Star Micronics NX-2415II user manual Sample program

I

Sample program

Todemonstratehow to use the download characters, let’s usethe “telephone” character and the other user-defined characters to print a small graph. This program will do just that:

1000 WIDTH “LPT1 : “ ,255

1010 LPRINT CHR$( 27 ) ; “X1“ ;

1LPRINT CHR$(Z7) ; “&” ; CHR$(0) ;

1LPRINT CHR$(60) ; CHR$( 61 ) ;

1FOR N=60 TO 61

1READ LS :LPRINT CHR$(LS) ;

1READ CW :LPRINT CHR$(CW) ;

1READ RS :LPRINT CHR$(RS);

1FOR M=l TO CW*3

1READ MM

1LPRINT CHR$(MM);

1110 NEXT M

1120 NEXT N

1130 LPRINT CHR$(27) ;’’D’’;CHR$(ll) ;CHR$(O )

1140 LPRINT CHR$(27) ;’’k’’;CHR$(4);

1150 LPRINT CHR$(27) ;’’W’’;CHR$(1) ;CHR$(27) ;’’W’’;CHR$(1) ; 1160 LPR2NT 0 DIFFUSION RANGES OF” :LPRINT

1170 LPRINT “ CARS & TELEPHONES”

1180 LPRINT CHR$(27) ;’’W’’;CHR$(0) ;CHR$(27 );’’W’’;CHR$(O)

1190 LPRINT CHR$(27) ;’’k’’;CHR$(O) ;

1200 LPRINT CHR$(27) ;’’%’’;CHR$(1) ;

1210 LPRINT “USA’’;CHR$(9);

1220 FOR 1=0 TO 681 STEP 25 :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) ;

1280 FOR 1=0 TO 412 STEP 25 :LPRINT CHR$(60); :NEXT I 1290 LPRINT

1300 LPRINT CHR$(9);

1310 FOR 1=0 TO 468 STEP 25 :LPRINT CHR$(61); :NEXT I 1320 LPRINT

1330 LPRINT “JAPAN’’;CHR$(9) ;

1340 FOR 1=0 TO 347 STEP 25 :LPRINT CHR$(60); :NEXT I 1350 LPRINT

1360 LPRINT CHR$(9);

1370 FOR 1=0 TO 493 STEP 25 :LPRINT CHR$(61); :NEXT I 1380 LPRINT

1390 LPRINT CHR$(9) ;’’+-”;

1400 SCALE$=’’+-+-U

1410	FOR 1=2	TO 8	:LPRINT SCALE$;	:NEXT I
1420	LPRINT	“+-+”
1430	LPRINT	CHR$(9); ”0 “;
1440	FOR 1=1	TO 8
1450	LPRINT	“ “;1;
1460	NEXT I
1470	LPRINT CHR$(27) ;’’%’’;CHR$(O)
1460	LPRINT	cHR$(27);’’M”;
1490	LPRINT	CHR$(27) ;’’S’’;CHR$(O)	;