Filter
Top Products
remainingfivebytes(ti throughm9) indicatethecompressionmask
.Eachbitsshowsthedatathatwilltranslatethecompresseddotpattern
The
bits.
databackto the originalcharacterpattern.
For example, the compressionmask bits of our telephone symbol are
0110000000000100111100100000000001100000.Sothesebytesare96,
4,242,0, and96.
You
mustdefinetheindextabledataforallcharactersfromO to255.Ifyou
donotwantto defineaparticularcharacter,enterOintothatindextabledata.
Sample program
Todemonstratehow todefineandtousethedownloadcharactersinIBM
mode,let’susethe“telephone”characterandtheotheruser-definedcharac-
tersto printa smallgraph.Thisprogramwill dojust that:
1000
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1130
1140
1150
1160
1170
1180
1190
1200
1210
1220
1230
1240
1250
1260
1270
1280
1290
1300
1310
1320
1330
1340
1350
1360
1370
1380
1390
LPRINTWIDTH“LPT1: “ ,255
LPRINTCHR$(27) ; “=” ;CHR$( 164) ;CHR$(9) : “~” :
LPRINT CHR$
(&HOF);CHR$(&H80);cHR$(o);
‘ INDEXTABLE
LPRINTCHR$(1):
FOR1=0TO 59
LPRINTSTRING$(9,O);
NEXTI
FORIT=lTO 9 :READMM :LPRINTCHR$(MM): :NEXTIT
FORIT=lTO 9 :READMM :LPRINTCHR$(MM): :NEXTIT
FOR1=62TO 255
LPRINTSTRING$(9,O):
NEXTI
‘ DOTPATTERN
FORDP=lTO 159
READMM
LPRINTCHR$(MM);
NEXTDP
‘ PRINTOUTPROGRAM
LPRINTCHR$(27):“D”;CHR$(l
1) ;CHR$(0)
LPRINTCHR$(27);“k”;CHR$(4);
LPRINTCHR$(27):“h”;CHR$(l):
LPRINT“ DIFFUSIONRANGESOF”
LPRINT“ CARS& TELEPHONES
LPRINTCHR$(27);
“h” ;CHR$(0);
LPRINTCHR$(27);
“k” ;CHR$(0)
LPRINT“USA’’;CHR$(9);
LPRINTCHR$(27);’’I’’;CHR$(6);
FOR 1=0TO 681STEP25 :LPRINTCHR$(60);:NEXTI
LPRINT
LPRINTCHR$(9);
FOR 1=0TO 781STEP25 :LPRINTCHR$(61);:NEXTI
LPRINT
CHR$(27);’’I’’:CHR$(2)
LPRINT “GERMANY’’;CHR$(9);
LPRINTCHR$(27) ;’’I’’;CHR$(6);
FOR 1=0 TO 412 STEP 25 :LPRINT CHR$(60); :NEXT I
LPRINT
LPRINTCHR$(9);
FOR 1=0 TO 488 STEP 25 :LPRINT CHR$(61):
:NEXTI
LPRINTCHR$(27);’’I’’;CHR$(2)
94