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.
Содержание ML3390
Страница 1: ...User Manual MICROLINE 3390 3391 IBM EPSON compatible People to People Technology...
Страница 3: ...II...
Страница 7: ...VI...
Страница 347: ...Z 1 Declaration of Conformity CE...
Страница 348: ...Z 2 Declaration of Conformity CE...