Chapter 11: IBM - Graphics
11-7
100 REM CHR$(96) and CHR$(3) state the number of
graphic bytes: 6*48**3 = 864 = 96 + (3*256)
110 FOR I = 1 TO 6: REM Repeat triangle pattern 6
times
120 FOR J + 1 TO 48: REM Triangle consists of 48
columns
130 READ A, B, C: REM 3 bytes for each column
140 PRINT #1, CHR$(A); CHR$(B); CHR$(C); : REM Send to
printer
150 NEXT J
160 RESTORE
170 NEXT I: PRINT #1, CHR$(13); CHR$(10); CHR$(10); :
REM Next triangle
180 NEXT MODE
190 DATA 0, 0, 1, 0, 0, 3, 0, 0, 7, 0, 0, 15
200 DATA 0, 0, 31, 0, 0, 63, 0, 0, 127, 0, 0, 255
210 DATA 0, 1, 255, 0, 3, 255, 0, 7, 255, 0, 15, 255
220 DATA 0, 31, 255, 0, 63, 255, 0, 127, 255, 0,
255, 255
230 DATA 1, 255, 255, 63, 255, 255, 127, 255, 255,
255, 255, 255
240 DATA 31, 255, 255, 63, 255, 255, 127, 255, 255,
255, 255, 255
250 DATA 255, 255, 255, 127, 255, 255, 63, 255,
255, 31, 255, 255
260 DATA 15, 255, 255, 7, 255, 255, 3, 255, 255, 1,
255, 255
270 DATA 0, 255, 255, 0, 127, 255, 0, 63, 255, 0,
31, 255
280 DATA 0, 15, 255, 0, 7, 255, 0, 3, 255, 0, 1, 255
290 DATA 0, 0, 255, 0, 0, 127, 0, 0, 63, 0, 0, 31
300 DATA 0, 0, 15, 0, 0, 7, 0, 0, 3, 0, 0, 1
310 END
The program outputs to the printer 4 lines each of 6 triangles in the
different graphic densities.
To Next Page
Loading...
