Star Micronics NX-2415II User Manual page 119

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) ;''+-";