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

Page 92
Image 92
Star Micronics NX-1020 user manual Sample program, Lprint