Sample Program - Star Micronics LC24-20 User Manual

When defining characters, the number of printed columns (m1). and the sum
of side spaces and the character width (mo + m1 + M) cannot exceed the
value shown below'.
I
L
Sample program
Character mode
t?? 1 M + tn1+
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
To demonstrate how to use the download characters. let's use the "telephone"
character and the other user-defined characters [o print a small graph. This
program will 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
WIDTH
"LPT1: " , 25S
LPRINT
CHR$ (27) ;
"X 1 " ;
LPRINT CHR$ (27) : "&" ;CHR$ (0) ;
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
LPRINT CHR$ (MM) ;
NEXT M
NEXT N
LpRINT
(JHR$
(27)
; "D"; CHR$ ( 1 i ) ;
CHR$
(0)
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 2S
: LPRINT CHR$ (60) ;
LPRINT
:NEXT I
LPRINT CHR$ (9) ;
FOR 1=0 TO 781 STEP 25
: LPRINT CHR$(61 ) : :NEXT I
LPRINT
LPRINT "GERMANY" ; CHR$ ( 9) ;
FOR 1=0 TO 412 STEP 2S :LPRINT CHR$(60) ;
:NEXT I
LPRINT
LPRINT CHR$(9) ;
FOR 1=0 TO 488 STEP 25
:LPRINT CHR$(61) ; :NEXT I
LPR I NT
LPRINT "JAPAN" ;CHR$ (9) ;