Sample Program - Star Micronics LC24-200 Colour User Manual

Whendefiningcharacters,thenumberofprintedcolumns(ml), andthesum
of side spacesand the characterwidth (MI + ml + rTz2) cannotexceedthe
value shownbelow.
Charactermode ml mO+ ml+ m2
Draft characters 9 12
LQ pica characters
31 36
LQ elite characters 27
30
LQ semi-condesed
19 24
LQ proportional 37 42
Draft super/subscript 7 12
LQ super/subscript 19
36
LQ prop. super/subscript 37
42
L
Sample program
To demonstratehow to use the downloadcharacters,let's use the "tele-
phone"characterandtheotheruser-defined characterstoprinta smallgraph.
This programwill do just 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
LPRINT WIDTH"LPTI : " ,255
LPRINT CHR$ (27) ;
"X1" ;
LPRINT CHR$ (27) ; "&";CHR$
LPRINT CHR$ (60)
;CHR$ ( 61)
FORN=60TO 61
READLS : LPRINT CHR$ [LS)
READcw :LPRINT C HR$
icwj
READRS :~LPRINT CHR.$ (RS)
FORM=l TO CW*3
READ
MM
o);
LPRINT CHR$ (MM) ;
NEXT ,M
NEXTN
LPRINT CHR$ (27) ; "D" ;CHR$ ( 11 );CHR$ ( 0)
LPRINT CHR$ (27) ;"k" ;CHR$ ( 4) ;
LPRINT CHR$ (27) ;"h" ;CHR$ ( 1 );
LPRINT "
DIFFUSION R ANGES OF"
LPRINT "
CARS& TELEPHONES"
LPRINT CHR$(27) ;
"h"
;CHR$ ( 0)
LPRINT CHR$ (27) ; "k" :CHR$ ( 0) ;
LPRINTCHR$ ( 27) ; ''%' '; C HR$(1);
LPRINT "USA" : CHR$(9) ;
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
LPRINT "GERMANY" ;CHR$(9);
FOR 1=0TO 412STEP25 :LPRINT C HR$(60);:NEXT I
LPRINT
LPRINT CHR$(9);
FOR 1=0TO 488STEP25
:LPRINT C HR$(61);:NEXT I
LPRINT
LPRINT "JAPAN";CHR$(9) ;
88