Sampleprogram - Star Micronics XB-2425 User Manual

I
Whendefdng characters, t henumberof printedcolumns(ml), andthesum
of side spacesand the characterwidth (mO+ ml + m2) cannotexceedthe
value shownbelow.
Charactermode
ml mO+ ml+ m2
Draft charactem 9
12
LQ picacharacters
31
36
LQ elitecharactem
27
30
LQ semi-condensed
19
24
LQ proportional 37
42
Draft super/subscript
7
12
LQ super/subscript
19 36
LQ prop.superlsubscript 37
42
Sampleprogram
Todemonstrate howtousethedownloadcharacters,let' s use the''telephone"
characterand the otheruser-definedcharactm to print a smallgraph.This
programwilldo 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
WIDTH "LPTI : " ,255
LPRINT CHR$(27) ;
"X1" ;
LPRINT CHR$ (27) ; "&" ; CHR$
LPRINT CHR$(60) :CHR$(61 )
FOR N=60 TO 61
READ LS :LPRINT CHR$(LS)
READ CW : LPRINT CHR$(CW)
READ RS :LPRINT CHR$(RS)
FOR M=1 TO CW*3
READ MM
LPR~NT
NEXT M
NEXT N
CHR$ (MM);
o) ;
LPRINT CHR$(27) ; "D" : CHR$( 11 ) ; CHR
LPRINT CHR$(27) ; "k" ;CHR$ (4) :
LPRINT CHR$(27) ; "h" ;CHR$ ( 1 ) ;
LPRINT " DIFFUSION RANGES OF "
LPRINT "
CARS & TELEPHONES"
LPRINT CHR$(27) ;
"h" :
CHR$(0)
LPRINT CHR$(27) ; "k" ;CHR$ (0) ;
LPRINT CHR$(27) ; "%" :CHR$ ( 1) ;
LPRINT "USA" ;CHR$ (9) :
FOR 1=0 TO 681 STEP 25 : LPR I NT
I,PRINT
:$( o )
CHR$
LPRINT CHR$(9) ;
FOR 1=0 TO 781 STEP 25 :LPRINT CHR$
LPR INT
LPRINT "GERMANY' ': CHR$[ 9):
60) ;
:NEXT I
61) : :NEXT I
FOR 1=0 TO 412 STEP 25 :LPRINT CHR$(60):
:NEXT I
LPR I NT
LPRINT CHR$(9) :
FOR 1=0 TO 488 STEP 25 :LPRINT CHR$(61):
:NEXT I
LPRINT
120