Star Micronics NX-2415II User Manual page 113

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
1010
1
1
1
1
1
1
1
1
1
1110
1120
1130
1140
1150
1160
1170
1180
1190
1200
1210
1220
1230
1240
1250
1260
1270
1280
1290
1300
1310
1320
1330
1340
1350
1360
1370
1380
1390
1400
1410
1420
1430
1440
1450
1460
1470
1460
1490
WIDTH "LPT1 : " ,255
LPRINT CHR$( 27 ) ; "X1" ;
LPRINT CHR$(Z7) ; "&" ; CHR$(0) ;
LPRINT CHR$(60) ; CHR$( 61 ) ;
FOR N=60 TO 61
READ LS :LPRINT CHR$(LS) ;
READ CW :LPRINT CHR$(CW) ;
READ RS :LPRINT CHR$(RS);
FOR M=l TO CW*3
READ MM
LPRINT CHR$(MM);
NEXT M
NEXT N
LPRINT CHR$(27) ;''D'';CHR$(ll) ;CHR$(O )
LPRINT CHR$(27) ;''k'';CHR$(4);
LPRINT CHR$(27) ;''W'';CHR$(1) ;CHR$(27) ;''W'';CHR$(1) ;
LPR2NT 0 DIFFUSION RANGES OF" :LPRINT
LPRINT " CARS & TELEPHONES"
LPRINT CHR$(27) ;''W'';CHR$(0) ;CHR$(27 );''W'';CHR$(O)
LPRINT CHR$(27) ;''k'';CHR$(O) ;
LPRINT CHR$(27) ;''%'';CHR$(1) ;
LPRINT "USA'';CHR$(9);
FOR 1=0 TO 681 STEP 25 :LPRINT CHR$(60); :NEXT I
LPRINT
LPRINT CHR$(9);
FOR 1=0 TO 781 STEP 25 :LPRINT CHR$(61); :NEXT I
LPRINT
LPRINT "GERMANY'' ; CHR$(9) ;
FOR 1=0 TO 412 STEP 25 :LPRINT CHR$(60); :NEXT I
LPRINT
LPRINT CHR$(9);
FOR 1=0 TO 468 STEP 25 :LPRINT CHR$(61);
:NEXT I
LPRINT
LPRINT "JAPAN'';CHR$(9) ;
FOR 1=0 TO 347 STEP 25 :LPRINT CHR$(60); :NEXT I
LPRINT
LPRINT CHR$(9);
FOR 1=0 TO 493 STEP 25 :LPRINT CHR$(61); :NEXT I
LPRINT
LPRINT CHR$(9) ;''+-";
SCALE$=''+-+-U
FOR 1=2 TO 8 :LPRINT SCALE$;
:NEXT I
LPRINT "+-+"
LPRINT CHR$(9); "0 ";
FOR 1=1 TO 8
LPRINT " ";1;
NEXT I
LPRINT CHR$(27) ;''%'';CHR$(O)
LPRINT cHR$(27);''M";
LPRINT CHR$(27) ;''S'';CHR$(O) ;