Star Micronics LC24-20 - Programming with BASIC

PROGRAMMING WITH BASIC
As an example of programming the printer on Microsoft BASIC. we have
listed the program for the IBM-PC. This program runs in the printer’s
Standard mode. and the downloadable condition.
1000
1010
1020
I 030
1040
1050
1060
1070
1080
1090
1100
1110
I 120
1130
1140
I i 5i)
I I (>()
1I 70
1180
I I 9()
1] (]()
]~lo
I ~zl)
~~30
1~~o
1250
1260
] ~70
1280
1~y[)
13100
1310
1320
I 33()
1340
1350
I 360
1370
1380
I 390
14c o
I 4 I ()
[ ~~o
1430
1440
I4.50
1460
1470
I 480
1490
1500
1510
1520
I 530
1540
1550
1560
1570
‘ Set control codes
E$=CHR$ ( 27 )
Escape code
D$?E$+”
x(l “
Draft qual i ty
L$=E$+ “x 1“+E$+ “k “
‘Letter qual i ty
RM$=L$+CHR$ ( O)
Roman character
H$=CHR$ ( 9 )
Hori zonta 1 tab
PI $=E$+ “P“
Pi ca pi tch
S t a r t pr i n t i ng
~1 ~T.H ---
LPR I NT
LPRINT
LPRI NT
LPRINT
LPRINT
LPR INT
LPRINT
I.PR I W
LPR I N’1
I.PRI NT
1>PRI NT
I.1’Rr x-r
LPR I?JT
LPR I NT
LPFiINT
LPR INT
LPRINT
LPR INT
LPR I NT
LPR I XT
1.PRI NT
LPR 1XT
I.PFiI ST
Lk”l’1: “ , 255
ES ; “D“ ; CHR$ ( 3 ) ; CHR$ (24 ) : CHR$ [O)
Se t HT
L$ : CHR$ (O) ; “Res i dent LQ fOnts are : “
H$:L$:CHR$ (0) ; “Roman characters. “ :
H$; L$; CHR$ (I) : “Sanserif characters, “
H$: L$:CHR$ (2) ; “Courier rhara~tel”s. “ :
H$ ; L$ ; CHR$ ( 3) :
“Prestige character s,”
H$:L$:cHR$ (4) ;“Script ~hara~ters. ”
RM$
:“P1rillt pi tclle. al-e: “
H$ : PI $ : “Fic-a pi tch ( 10 CPI) ,“:
H$ : E$ : “M“ : “Eli te pitch (12 CPI) ,“
1[$ : 1?S : “F
“ : “ semi - c [,nd c IIs ed [1i t c h ( I 5 (’1’I ) “ :
H$ : PI$ :
CHR$ ( 1.5) :
Se 1e c t c Ond e n 5ecl p r I n t
“Cundens ed p i ca p 1t ch ( 17 CI’I ) , “
H$ : E$ : “!4” : “Conrlens ed e 1i t e p i t ch [20 (’PI) , “ :
CHF?$( 18 )
Cane e 1 conde ns eti I)] i IIt.
H$ : E$ ; “p 1“ :
Se 1e c t p rOpc r t i utIa 1 s I):+t. z1)s
P I $ : “Nc)rma 1 prOp Or t i una 1 , “ :
H$ : C’HR$ ( 15) : “Cond ens ed prupo r t i ona 1. “ :
CHR$ ( I 8 ) :
E$ : “PO “
Canr e 1 pro pa r t i Ona 1 s j)<!c 1IIF
H$ : E$ : “
W1“ : “Duut, 1e–he i gh t , “ : E$ : “WO”
If$ : E,$: “w 1“ ; “Donh 1e wi d t h , “ ; E$ ; “WO“
H$ : CHR$ (28 ) ; “E“ ;
CHR$ (2 ) : “Trip 1e wi d t h . “ :
CHR$ (28) ; “E“ ; CHR$ [O)
H$ : E$ : “h” ; CHR$ ( 1) : “Douh 1e–s i z ed , “
11$; E$ ; “h “ ; CHR$ ( 2 ) :
“Quad-s i Zed. “ ;
ES : “h “ ; CHR$ (O)
: LPR I h’1’
E$ : “Q
“ : CHR$ (47 )
S? t r i gh t real- g,i 11
‘TMS : “\ :+i i 011s 1i tle and [cha rar t 6 r s p:.1[’i ngs : “
E$ : “a 1“
LF’RI XT
I.F’RI XT
LI’R~)iT
LI’RI NT
I.I’RI NT
1.I’RI N’T
LF’RINT
I.PRINT
LF’RI NT
LI’RI NT
LPRI NT
F’(IR 1= 1 TO 7
LPR I NT E$ : “.{ “ : CHR$ ( I ) :
I.PR1 XT E$ : “ “ : CHR$ ( I ) :
LPR I NT “THE SPACINGS ARE CHANGED“
NEXT I
FOR 1=7 TO 1 STEP - I
LpR INT E$ ; “A“ ; CHR$ ( I ) ;
LF’RINT E$ ; “ “ ; CHR$ ( I ) ;
LPRINT “THE SPACINGS ARE CHANGED”
NEXT I
LF’RINT ES : “aO”
LPRINT E$ ; “3“ : CHR$ ( 30) :
LF’RINT E$ ; “ “ ; CHR$ (0) :
LPRINT : LPRINT
LPRINT RM$; “Other features : “
(’t>II t e r t r x t
Li ne spa c i ng s e t
I ncreas t chara[. t r I s I;ice
L i n e spa c i t)g s e t
I nc r eas & c hara c t i>r s pa c e
Left just i fy
‘ Se t [ /6” 1 i ne spa
L i ng
NrIrma 1 character space
136