Sampleprogram - Star Micronics XB-2425 User Manual

The remainingfive bytes (ti throughm9)indicatethe compressionmask
bits.Each bitsof thisbyteshowsthe datathat willtranslatethe compressed
dot patterndata backto the originalcharacterpattern.
For example, the compressionmask bits of our telephone symbol are
olmoooomlw111 N301000000wo
011000OO. Sothesebytesare96,
4,242,0, and 96.
Youmustdefinethe indextabledatafor allcharactemffomOto 255.If you
do notwantto definea particularcharacter,enterOintothatindextabledata.
Sampleprogram
To demonstmtehow to defineand to use the downloadcharactemin IBM
mode,let's use the "telephone"characterand the otheruser-definedchar-
actersto print a smallgraph.This programwill 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
1400
1410
1420
WIDTH "LPTI : " ,255
LPRINT CHR$(27) ; "=" ; CHR$ ( 164) ; CHR$ (9) ; "#" :
LPRINT CHR$ (&HOF) :CHR$ (&H80) :CHR$ (0) :
' INDEX TABLE
LPRINT CHR$( 1) ;
FOR 1=0 TO 59
LPRINT STRINGS (9 , O) ;
NEXT I
FOR IT=l TO 9 : READ MM : LPRINT CHR$(MM): : NEXT
FOR IT=l TO 9 : READ MM : LPRINT CHR$(MM); : NEXT
FOR 1=62 TO 255
LPRINT STRING$ (9 , O) ;
NEXT I
DOT PATTERN
FOR DP= 1 TO 159
READ MM
LPRINT CHR$(MM) ;
NEXT DP
' PRINTOUT PROGRAM
IT
IT
LPRLNT
LPRINT
LPRINT
LPRINT
cHR$ (27) ;
"D" ;
CHR$( 11 ) ; CHR$(o)
CHR$(27) ; "k " ; CHR$(4) ;
CHR$(27) ; "h" : CHR$( 1) ;
,!
DIFFUSION RANGES OF"
LPRINT " CARS & TELEPHONES
LPRINT CHR$(27) ;
"h"
;CHR$ (0) ;
LPRINT CHR$(27) ; "k" :CHR$ (0)
LPRINT "USA" ;CHR$ (9) ;
LPRINT CHR$(27) : "I" ;CHR$ (6) :
FOR 1=0 TO 681 STEP 25 :LPRINT
LPRINT
LPRINT CHR$ (9) ;
FOR I=@ TO 781 STEP 25 :LPRINT
LPRINT CHR$(27) ; "I" ;CHR$ (2)
LPRINT "GERMANY" ;CHR$ (9) :
LPRINT CHR$(27) : "I" ;CHR$ (6) ;
FOR 1=0 1'0 412 STEP 25 :LPRINT
LPRINT
LPRINT CHR$(9) :
FOR 1=0 TO 488 STEP 25 :LPRINT
LPRINT CHR$(27) ;''I":CHRS(2)
LPRINT 'JAPAN" :CHR$(9);
LPRINT CHR$(27) ;"I":CHR$(6) ;
FOR 1=0 TO 347 STEP 25 :I,PRINT
CHR$(60); :NEXT I
CHR$(61); :NEXT I
CHR$(60); :NEXT I
CHR$(61): :NEXT I
CHR$(60); :NEXT I
126