Star Micronics LC24-20 user manual Sample program, 1250

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’.

Character mode

Draft characters

LQ pica characters

LQ elite characters

ILQ semi-condesed LQ proportional

Draft super/subscript LQsuper/subscript

prop. super/subscript

t??1 M + tn1+ m2

912

3136

2730

1924

3742

712

1936

3742

Sample program

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		WIDTH “LPT1: “ , 25S
1010		LPRINT CHR$ (27)				; “X 1 “ ;
1020		LPRINT		CHR$ (27)		: “&” ;CHR$		(0) ;
1030		LPRINT		CHR$ (60)		:CHR$(61 ) ;
1040		FOR	N=60 TO		61
1050		READ	LS	:LPRINT		CHR$ (LS)		:
1060		READ CW : LPRINT				CHR$ (CW) :
1070		READ RS		: LPRINT		CHR$ (RS)		;
1080		FOR M= 1 TO CW*3
1090		READ MM
1100		LPRINT		CHR$ (MM) ;
1110 NEXT M
1120 NEXT N					(27)	; “D”;	CHR$ ( 1 i ) ; CHR$(0)
1130		LpRINT		(JHR$
1140		LPRINT		CHR$ (27)		; “k”	:CHR$ (4) ;
1150		LPRINT		CHR$ (27)		; “h” ; CHR$ ( 1) :
1160		LPRINT		“	DIFFUSION		RANGES OF”
1170		LPRINT		“	CARS & TELEPHONES”
1180		LPRINT		CHR$ (27)		; “h” :CHR$ (0)
1190		LPRINT		CHR$ ( 27)		; “k” ; CHR$.(0) ;
1200		LPRINT		CHR$ (27)		; “%” ;CHR$		( 1 ) ;
1210		LPRINT		“USA” ;CHR$ (9)			;
1220		FOR	1=0	TO	681	STEP	2S	: LPRINT CHR$ (60)	;	:NEXT	I
1230		LPRINT
1240		LPRINT		CHR$ (9)		;
1250		FOR	1=0	TO	781	STEP	25	: LPRINT CHR$(61	) :	:NEXT	I
1260 LPRINT
1270		LPRINT		“GERMANY” ; CHR$ ( 9) ;						:NEXT	I
1280		FOR	1=0	TO	412	STEP	2S	:LPRINT CHR$(60) ;
1290		LPRINT
1300	LPRINT CHR$(9) ;
1310 FOR			1=0	TO	488	STEP	25	:LPRINT CHR$(61) ;		:NEXT	I
1320 LPR I NT
1330 LPRINT				“JAPAN” ;CHR$ (9) ;