HP LaserJet - Page 60

BASIC PROGRAM TO PRINT ARROW
10 REM "·BASIC PROGRAM TO PRINT AN ARROW···
20REM
30 REM
40 WIDTH "LPTl:",255 :REM ··DISABLE AUTO CR-LF··
50 OPEN "LPTl:" AS #1 :REM "OPEN PRINTER AS A FILE··
60 PRINT #1,CHRS(27);"E"; :REM ··RESET PRINTERo.
70 PRINT #1,CHRS(27);"Ot75R"; :REM .0SET RESOLUTION"
80 PRINT #1,CHRS(27);"&a40C"; :REM "MOVE CURSOR TO COLUMN 40"
90 PRINT #1,CHRS(27);"OrlA"; :REM **START RASTER GRAPHICS··
100 REM
110 REM .0BEGIN LOOP TO READ DATA AND PRINT GRAPHICS"
120 FOR J =1 TO 32
130 READ A,B,C,D :REM "EACH RASTER ROW HAS FOUR BYTES·'
140 PRINT # 1,CHRS(27);''*b4W'';CHRS(A);CHRS(B);CHR$(C);CHR$(D);
150 NEXT J
160 REM
170 REM
180 PRINT #1,CHR$(27);''*rB''; :REM ··END RASTER GRAPHICS··
190 PRINT #1,CHRS(27);"E"; :REM ··RESET PRINTER & EJECT PAGE"
200 CLOSE
210 REM
220 REM ·*THIS IS THE DATA FOR THE ARROW··
230 DATA 0, 0,128, 0
240 DATA 0, 0,192, 0
250 DATA 0,
0,224, 0
260 DATA 0,
0,240,
0
270 DATA 0, 0,248,
0
280 DATA
0, 0,252, 0
290 DATA 0,
0,254,
0
300 DATA
0, 0,255, 0
310 DATA 0, 0,255,128
320 DATA 255,255,255,192
330 DATA 255,255,255,224
340 DATA 255,255,255,240
350 DATA 255,255,255,248
360 DATA 255,255,255,252
370 DATA 255,255,255,254
380 DATA 255,255,255,255
390 DATA 255,255,255,255
400 DATA 255,255,255,254
410 DATA 255,255,255,252
2-41