Star Micronics NX-2415II user manual Sample program

I

Sample program

To demonstrate how to define and to use the download characters in IBM mode, let’s use the “telephone” character and the other user-defined char- acters to print a small graph. This program will do just that:

1000	WIDTH “ LPT1 : “ ,255
1010	LPRINT	CHR$( 27) ; “=”; CHR$( 164 ) ; CHR$(9 ) ; “#”;
1020	LPRINT	CHR.$(&HOF); cHR5(&H80 ); CHR$(0);
1030	‘ INDEX TABLE
1040	LPRINT CHR$( 1 ) ;
1050	FOR 1=0		TO 59
1060	LPRINT	STRING$(9,0)			;
1070	NEXT I
1080	FOR IT=l		TO 9	:READ Ml-i :LPRINT			CHR$(hlt);			:NEXT IT
1090	FOR IT=l		TO 9	:READ KM :LPRINT			CHR$(MM);			:NEXT IT
1100	FOR 1=62		TO 255
1110	LPRINT	STRING$(9,0);
1120	NEXT I
1130	‘ DOT PATTERN
1140	FOR DP=l		TO 159
1150	READ MM
1160 LPRINT CHR$(MM);
1170	NEXT DP
1180	‘ PRINTOUT PROGRAM
1190	LPRINT	cHR$(27)		;’’D’’;CHR$(ll)		;CHR$(O)
1200	LPRINT CHR$(27) ;’’k”;CHR$(4);
1210	LPRINT	CHR$(27)		;’’[’’@	’’@’’;CHR$(4);			CHR$(0);
1220	LPRINT	CHR$(0);CHR$(O) ;CHR$(34);CHR$(2)							;
1230 LPRINT u DIFFUSION RANGES OF”
1240	LPRINT	“	CARS & TELEPHONES”
1250	LPRINT	cHR$(27);		’’[’’;”@” ;CHR$(4);CHR$(0)					;
1260	LPRINT	CHR$(0);CHR$(O) ;CHR$(17);CHR$(1)							;
1270	LPRINT	CHR$(27) ;’’k’’;CHR$(O)
1280	LPRINT	“USA’’;CHR$(9);
1290	LPRINT	CHR$(27)		;’’I’’;CHR$(6);				“
1300	FOR 1=0		TO 681	STEP 25		:LPRINT		CHR$(60);		:NEXT	I
1310	LPRINT
1320	LPRINT	CHR$(9);
1330	FOR 1=0		TO 781	STEP	25	:LPRINT		CHR$(61);		:NEXT	I
1340	LPRINT	cHR$(27) ;’’I’’;CHR$(2)
1350	LPRINT “GERMANY’’;CHR$(9) ;
1360	LPRINT	CHR$(27) ;’’I’’;CHR$(6);
1370	FOR 1=0		TO 412	STEP 25		:LPRINT		CHR$(60);		:NEXT	I
1380	LPRINT
1390	LPRINT	CHR$(9);
1400	FOR 1=0		TO 488	STEP	25	:LPRINT		CHR$(61);		:NEXT	I
1410	LPRINT	cHR$(27) ;’’I’’;CHR$(2)
1420	LPRINT	“JAPAN’’;CHR$(9);
1430	LPRINT	CHR$(27)		;’’I’’;CHR$(6)		;
1440	FOR 1=0		TO 347	STEP	25	:LPRINT		CHR$(60);		:NEXT	I
1450	LPRINT
1460	LPRINT	CHR$(9);
1470	FOR 1=0		TO 493	STEP 25		:LPRINT		CHR$(61);		:NEXT	I
1480	LPRINT	CHR$(27) ;’’I’’;CHR$(2)
1490	LPRINT CHR$(9) ;’’+-”;