-
The following program demonstrates how to use the NLQ download
characters with the Standard mode:
1000 LPRINT CHR$(27);"xl"
1010 LPRINT CHR$(27);"&";CHR$(O);
1020 LPRINT CHR$(60);CHR$(62);
1030 FOR N=60 TO 62
1040 LPRINT CHR$(O);CHR$(23);CHR$(O);
1050 FOR M=l TO 69
1060 READ MM
1070 LPRINT CHR$(MM);
1080 NEXT M
1090 NEXT N
1100 LPRINT -
1110 LPRINT CHR$(27);"D";CHR$(ll);CHR$tO);
1120 LPRINT CHR$(27);"h";CHR$(l);
1130 LPRINT u U.S. EXPORTS"
1140 LPRINT CHR$(27);"h";CHR$(O);
1150 LPRINT CHR$(27);"%";CHR$(l);
1160 LPRINT "AUTOS";CHR$(9);
1170 FOR I=.4 TO 9.3 STEP .4
1180 LPRINT CHR$(61);
1190 NEXT I
1200 LPRINT
1210 LPRINT "CHEMICALS";CHR$(9);
1220 FOR I=. 4 TO 8.7 STEP .4
1230 LPRINT CHR$(60);
1240 NEXT I
1250 LPRINT
1260 LPRINT "GUNS";CHR$(9);
1270 FOR I=.4 TO 1.4 STEP .4
1280 LPRINT CHR$(62);
1290 NEXT I
1300 LPRINT
1310 LPRINT CHR$/9);"+--'I:
1320 SCALE$="--+--'I
1330 FOR I=2 TO 8 STEP 2
1340 LPRINT SCALE$;
1350 NEXT I
1360 LPRINT "--+"
1370 LPRINT CHR$(9);" ";
1380 FOR I=2 TO 8 STEP 2
1390 LPRINT u ";I;
88