Sample Program - Star Micronics LC24-200 Colour User Manual

remaining f ive bytes (ti through m 9) indicate thecompression mask
.Eachbits s howsthe data that will translate the compressed d otpattern
The
bits.
data back to the originalcharacterpattern.
For example, the compressionmask bits of our telephone symbol are
011000000000010011110010 0 000000001100000. S othesebytesare96,
4,242,0, and 96.
You
mustdefine t he index table d ata for all c haracters fromO to
255.If you
donotwantto definea particularcharacter,enterOintothatindextabledata.
Sample program
To
demonstrate how todefine a ndtousethedownloadcharacters in
IBM
mode,let'susethe"telephone"characterandtheotheruser-definedcharac-
ters to 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
LPRINT WIDTH"LPT1: " ,255
LPRINT CHR$ (27) ; "=" ;CHR$ ( 164) ;CHR$ (9) : "~" :
LPRINT CHR$
(&HOF) ;CHR$ ( &H80) ; cHR$ (o) ;
' INDEX TABLE
LPRINT CHR$ (1):
FOR 1=0TO 59
LPRINT STRING$ (9 , O);
NEXTI
FOR IT=lTO 9 : READMM : LPRINT CHR$ (MM) : : NEXTIT
FOR IT=lTO 9 :READ MM :LPRINT C HR$ (MM) : :NEXT IT
FOR 1=62TO 255
LPRINT STRING$ (9 , O):
NEXTI
' DOTPATTERN
FORDP=lTO 159
READMM
LPRINT CHR$ (MM) ;
NEXTDP
' PRINTOUT P ROGRAM
LPRINT CHR$(27) :"D" ;CHR$(l 1) ;CHR$(0)
LPRINT CHR$ (27) ; "k" ;CHR$ ( 4) ;
LPRINT CHR$(27) :"h" ;CHR$ ( l) :
LPRINT " DIFFUSION RANGES OF"
LPRINT " CARS& TELEPHONES
LPRINT CHR$ (27) ; "h" ;CHR$ ( 0) ;
LPRINT CHR$(27) ; "k" ;CHR$ ( 0)
LPRINT "USA' '; C HR$(9) ;
LPRINT CHR$(27) ;''I''; CHR$ (6);
FOR 1=0TO 681 STEP25 :LPRINT C HR$(60); : NEXT I
LPRINT
LPRINT CHR$(9);
FOR 1=0TO 781STEP25 :LPRINT C HR$(61); : NEXT I
LPRINT
CHR$(27) ;''I'':CHR$(2)
LPRINT "GERMANY'' ;CHR$(9);
LPRINT CHR$(27) ;''I'';CHR$(6);
FOR 1=0 TO 412 STEP 25 :LPRINT CHR$(60); :NEXT I
LPRINT
LPRINT CHR$(9);
FOR 1=0 TO 488 STEP 25 :LPRINT CHR$(61): :NEXT I
LPRINT CHR$(27) ;''I'';CHR$(2)
94