Star Micronics NX-1020 Sample program

Sample program
To demonstrate how to use the download characters, let’s use the “car”
character and some other user-defined characters to print a small graph. This
program will do just that with the Standard mode:
1000 LPRINT CHR$(27);"xO";
1010 LPRINT CHR$(27);"&";CHR$(OJ;
1020 LPRINT CHR$(60);CHR$(62);
1030 FOR N=60 TO 62
1040 FOR M=O TO 11
1050 READ MM
1060 LPRINT CHR$(MM);
1070 NEXT M
1080 NEXT N
1090 LPRINT
1100 DATA 139, 2, 5, 8,241. 0
2110 DATA 0,241, 8, 5, 2, 0
1120 DATA 139,124, 0, 66, 4, 64
1130 DATA 36, 16. 2. 16, 12, 0
1140 DATA 139, 46, 16, 2, 60, 0
1150 DATA 48, 0, 48, 0, 48, 0
1160 LPRINT CHR$(27);"D";CHR$(ll);CHR$(O);
1170 LPRINT CHR$(27);"h";CHR$(l);
1180 LPRINT ( U.S. EXPORTS"
1190 LPRINT CHR$(27);"h";CHR$(O);
1200 LPRINT CHR$(27);"%";CHR$fl);
1210 LPRINT "AUTOS";CHR$(9);
1220 FOR I=.4 TO 9.3 STEP .4
1230 LPRINT CHR$(61);
1240 NEXT I
1250 LPRINT
1260 LPRINT "CHEMICALS";CHR$(S);
1270 FOR I=.4 TO 8.7 STEP .4
1280 LPRINT CHR$(GO);
1290 NEXT I
1300 LPRINT
1310 LPRINT "GUNS";CHR$(9);
1320 FOR I=.4 TO 1.4 STEP .4
1330 LPRINT CHR$(62);
1340 NEXT I
1350 LPRINT
84