Star Micronics LC24-20 user manual 131

1410	LPRINT	CHR$ (27)			; “I” :CHR$(6)				:
1420	FOR 1=0		TO	347	STEP		25	:LPRINT		CHR$(60);			:NEXT		I
1430	LPRINT
1440 LPRINT CHR$(9):
1450	FOR 1=0		TO	493	STEP		25	:LPRINT		CHR$(61):			:NEXT		I
1460	LPRINT	CHR$(2’			); ’’I’’ ;CHR$(2)
1470	LPRINT	CHR$(9			; “+-”	;
1480	ScALE$=”+–+-u
1490	FOR 1=0		TO	2				:LPRItiT		SCALE$;			:NEXT		I
1500	LPRINT	‘+-+”
1,510	LPRINT	CHR$(9 ;“0 “;
1520	FOR 1=1		TO	8
1530	LPRINT	“	“;1;
1540	NEXT I
1550	LPRINT CHR$(27) ;’’:”;
1560	LPRINT	cHR$(27)			:”S”;CHR$(0)				:
1570	LPRINT	CHR$(9);			’’(IOO		UNITS/1000			PERSONS)”
1580	LPRINT	CHR$(27);			’’T”;
1590	LPRINT	CHR$(27);”@M
1600	END
2000	‘ l)ATA
2010	‘ Index Table Data								4,242,
2020	DATA	137,		17,	25,227,			96,			0,	96
2030	DATA	137,		92,	28,227,			96,	0,	80,	64,	96
2040	‘ Dot Pattern Data
2050	Telephone			symbol
2060	DATA	O,		0,	0,	7,		0,	0,	15,	0,	0,	31,		0,	0,	59,	0,	0
2070	DATA	59,		15,192,		56,		31,192,112,			63,192,112,127,192,112							,255,192
2080	DATA	127,255,192,127,243,							192,113,227,192,127,243						,192,127,255,192
2090	DATA	112,255,192,112,127,							192,112,		63,192,		56,	31,192,			59,	15,192
2100	DATA	59,		0,	0,	31,		0,	0,	15,	0,	0,	7!		o,	0,	0,	0,	0
2110	Car	symbol
2120	DATA	O,		0,	0,	0,		30,	0,	0,	28,	0,	0,	60,		0,	0,	63,	0
2130	DATA	0,255,128,				0,255,192,				1,255,192,			3,255,192,				7,127,128
2140	DATA	14,127,			0,	28,124,			0,	56,124,		0,112,126,				0,	96,124,		0
2150	DATA	127,254,			0,127,252,				0,	96,124,		0,	96,127,			0,	96,127,128
2160	DATA	96,127,192,112,127,192							,124,127,128,				63,127,			0,	15,124,		0
2170	DATA	3,124,			0,	0,2S4,			O,	0,	0,	0

131