The remainingfivebytes(ti throughm9) indicatethecompressionmask bits.Eachbitsshowsthedatathatwilltranslatethecompresseddotpattern data back to the originalcharacterpattern.
For example, the compressionmask bits of our telephone symbol are 0110000000000100111100100000000001100000Sothesebytesare96,. 4,242,0, and 96.
YoumustdefinetheindextabledataforallcharactersfromO to255. If you donotwantto definea particularcharacter,enterOintothatindextabledata.
Sample program
To demonstratehow todefineandtousethedownloadcharactersinIBM
1000LPRINT WIDTH“LPT1: “ ,255
1010LPRINT CHR$(27) ; “=” ;CHR$( 164) ;CHR$(9) : “~” :
1020LPRINT CHR$(&HOF);CHR(&H80);cHR$ $(o); 1030‘ INDEXTABLE 1040LPRINTCHR$(1):
1050FOR1=0TO 59 1060LPRINTSTRING(9,O);$ 1070NEXTI
1080FORIT=lTO 9 :READMM :LPRINTCHR$(MM): :NEXTIT
1090FORIT=lTO 9 :READMM :LPRINTCHR$(MM): :NEXTIT 1100FOR1=62TO 255
1110LPRINTSTRING(9,O):$ 1120NEXTI
1130‘ DOTPATTERN 1140FORDP=lTO 159 1150READMM 1160LPRINTCHR$(MM); 1170NEXTDP
1180‘ PRINTOUTPROGRAM
1190LPRINTCHR$(27):“D”;CHR$(l1) ;CHR$(0) 1200LPRINTCHR$(27);“k”;CHR(4);$ 1210LPRINTCHR$(27):“h”;CHR(l):$ 1220LPRINT“ DIFFUSIONRANGESOF” 1230LPRINT“ CARS& TELEPHONES 1240LPRINTCHR$(27);“h” ;CHR(0);$ 1250LPRINTCHR$(27);“k” ;CHR(0)$ 1260LPRINT“USA’’;CHR$(9); 1270LPRINTCHR$(27);’’I’’;CHR$(6);
1280FOR 1=0TO 681STEP25 :LPRINTCHR$(60);:NEXTI 1290LPRINT
1300LPRINTCHR$(9);
1310FOR 1=0TO 781STEP25 :LPRINTCHR$(61);:NEXTI 1320LPRINTCHR$(27) ;’’I’’:CHR$(2)
1330LPRINT “GERMANY’’;CHR$(9);
1340LPRINT CHR$(27) ;’’I’’;CHR$(6);
1350FOR 1=0 TO 412 STEP 25 :LPRINT CHR$(60); :NEXT I
1360LPRINT
1370LPRINT CHR$(9);
1380FOR 1=0 TO 488 STEP 25 :LPRINT CHR$(61): :NEXTI 1390LPRINTCHR$(27);’’I’’;CHR$(2)
94
