Star Micronics NX-2415 user manual Lprint

1000	LPRINT		CHR$(27);"xl";
1010	LPRINT CHR$(27); "&";CHR$(O);CHR$(60):CHR$(61);
1020	RESTORE		1540
1030 FOR N=60 TO 61
1040 READ LS :LPRINT CHR$(LS);
1050 READ CW :LPRINT CHR$(CN);
1060 READ RS :LPRINT CHR$(RS):
1070 FOR M=l TO CW*3
1080	READ	MM
1090 LPRINT CHR$(MH);
1100	NEXT	I4
1110	NEXT	N
1120	LPRINT CHR$(27);"D";CHR$(ll);CHR$(O)
1130	LPRINT CHR$(27);"k";CHR$(4);
1140	LPRINT CHR$(27);"h";CHR$(l);
1150 LPRINT n DIFFUSION RANGES OF”
1160 LPRINT ' CARS 6 TELEPHONES"
1170	LPRINT CHR$(27);"h";CHR$(O)
1180	LPRINT CHR$(27);"k";CHR$(O);
1190 LPRINT CHR$(27);"%1":
1200	LPRINT		"USA";CHR$(9);
1210	FOR	I=0	TO	681	STEP		25	:LPRINT		CHR$(60);		:NEXT		I
1220	LPRINT
1230	LPRINT		CHRS(9):
1240	FOR	I=0	TO';Si.STEP				25	:LPRINT		CHR$(61);		:NEXT		I
1250	LPRINT
1260	LPRINT		"GERMANY";CHR$(9);
1270	FOR	I=0	TO	412	STEP		25	:LPRINT		CHR$(60);		:NEXT		I
1280	LPRINT
1290	LPRINT		CHRS(9);
1300	FOR	I=0	TO	408	STEP		25	:LPRINT		CHRS(61):		:NEXT		I
1310	LPRINT
1320	LPRINT		"JAPAN";CHR$(9);
1330	FOR	I-O	TO	347	STEP		25	:LPRINT		CHR$(60);		:NEXT		I
1340	LPRINT
1350 LPRINT CHR$(9):
1360	FOR	I=0	TO	493	STEP		25	:LPRINT		CHRS(61):		:NEXT		I
1370	LPRINT
1380	LPRINT CHR$(9);"+-";
1390 SCALES="+-+-"
1400	FOR	I=2	TO	S				:LPRINT		SCALES;		:NEXT		I
1410	LPRINT		"+-+"
1420	LPRINT		CHRS(9);"O			";
1430 FOR I=1 TO 8
1440	LPRINT		u ";I;
1450	NEXT	I
1460	LPRINT		CHR$(27);"%0"														-
1470	LPRINT		CHRS(27);"M";
1480	LPRINT		CHRQ(27);"SO";
1490	LPRINT		CHR$(9);"(100				UNITS/1000		PERSONS)"
1500	LPRINT		CHRS(27);"T";
1510	LPRINT		CHR$(27):"@"
1520	END
1530	' DATA
1540	' Telephone			Symbol
1550	DATA		4,	29,	3				23.
1560	DATA		7,	0, 0, 8, 0, 0,						0.	0,	40,	0,	0.	19,	15,192
1570	DATA	40,		16,	0,	00,		47,192,	32,	SO,	0,	SO,175,192,			47,	SO,	0
1580	DATA	80.175.192,				47,		SO, 0,	60,163,192,			33,	64,	0,	80,163,192
1590	DATA	33,		64,	0,	80,163,192,			47,	SO,	0,	80,175,192,			47,	00,	0

80