00000000: 00 20 54 4F 20 4B 4F 4C 4F 4D 20 3A 4A 20 3A 4A |. TO KOLOM :J :J|
00000010: 45 0D 20 41 4C 53 20 3A 4A 20 3C 20 3A 4A 45 20 |E. ALS :J < :JE |
00000020: 44 41 4E 20 53 54 4F 50 0D 20 42 4C 4F 4B 20 38 |DAN STOP. BLOK 8|
00000030: 31 39 39 20 2B 20 3A 4A 20 38 31 39 32 20 2B 20 |199 + :J 8192 + |
00000040: 3A 4A 0D 20 4B 4F 4C 4F 4D 20 3A 4A 20 2D 20 33 |:J. KOLOM :J - 3|
00000050: 32 30 20 3A 4A 45 0D 45 4E 44 0D 0D 54 4F 20 42 |20 :JE.END..TO B|
00000060: 4C 4F 4B 20 3A 4B 20 3A 4B 45 0D 20 41 4C 53 20 |LOK :K :KE. ALS |
00000070: 3A 4B 20 3C 20 3A 4B 45 20 44 41 4E 20 53 54 4F |:K < :KE DAN STO|
00000080: 50 0D 20 2E 43 54 59 4F 20 2E 45 58 41 4D 49 4E |P. .CTYO .EXAMIN|
00000090: 45 20 3A 4B 0D 20 42 4C 4F 4B 20 3A 4B 20 2D 20 |E :K. BLOK :K - |
000000A0: 31 20 3A 4B 45 0D 45 4E 44 0D 0D 54 4F 20 21 42 |1 :KE.END..TO !B|
000000B0: 0D 20 57 45 47 20 5B 50 52 49 4E 54 42 45 45 4C |. WEG [PRINTBEEL|
000000C0: 44 20 42 4C 4F 4B 20 4B 4F 4C 4F 4D 20 50 52 49 |D BLOK KOLOM PRI|
000000D0: 4E 54 52 49 4A 20 21 42 5D 0D 45 4E 44 0D 0D 54 |NTRIJ !B].END..T|
000000E0: 4F 20 50 52 49 4E 54 52 49 4A 20 3A 49 0D 20 41 |O PRINTRIJ :I. A|
000000F0: 4C 53 20 3A 49 20 3E 20 33 31 32 20 44 41 4E 20 |LS :I > 312 DAN |
00000100: 2E 43 54 59 4F 20 32 37 20 2E 43 54 59 4F 20 36 |.CTYO 27 .CTYO 6|
00000110: 34 20 53 54 4F 50 0D 20 2E 43 54 59 4F 20 32 37 |4 STOP. .CTYO 27|
00000120: 20 2E 43 54 59 4F 20 36 35 20 2E 43 54 59 4F 20 | .CTYO 65 .CTYO |
00000130: 38 20 2E 43 54 59 4F 20 31 33 0D 20 2E 43 54 59 |8 .CTYO 13. .CTY|
00000140: 4F 20 32 37 20 2E 43 54 59 4F 20 37 35 20 2E 43 |O 27 .CTYO 75 .C|
00000150: 54 59 4F 20 32 30 30 20 2E 43 54 59 4F 20 30 0D |TYO 200 .CTYO 0.|
00000160: 20 4B 4F 4C 4F 4D 20 37 36 38 30 20 2B 20 3A 49 | KOLOM 7680 + :I|
00000170: 20 3A 49 0D 20 50 52 49 4E 54 52 49 4A 20 3A 49 | :I. PRINTRIJ :I|
00000180: 20 2B 20 38 0D 45 4E 44 0D 0D 54 4F 20 50 52 49 | + 8.END..TO PRI|
00000190: 4E 54 42 45 45 4C 44 0D 20 50 52 49 4E 54 45 52 |NTBEELD. PRINTER|
000001A0: 0D 20 2E 4B 45 55 5A 45 20 22 49 4E 54 45 52 20 |. .KEUZE "INTER |
000001B0: 30 20 31 0D 20 2E 4B 45 55 5A 45 20 22 50 52 49 |0 1. .KEUZE "PRI|
000001C0: 4E 54 45 52 20 32 20 31 0D 20 50 52 49 4E 54 52 |NTER 2 1. PRINTR|
000001D0: 49 4A 20 30 0D 20 2E 4B 45 55 5A 45 20 22 50 52 |IJ 0. .KEUZE "PR|
000001E0: 49 4E 54 45 52 20 32 20 30 0D 20 53 54 4F 50 50 |INTER 2 0. STOPP|
000001F0: 52 49 4E 54 45 52 0D 20 2E 4B 45 55 5A 45 20 22 |RINTER. .KEUZE "|
00000200: 49 4E 54 45 52 20 30 20 30 0D 45 4E 44 0D 0D |INTER 0 0.END.. |
. TO KOLOM :J :JE. ALS :J < :JE DAN STOP
. BLOK 8199 + :J 8192 + :J. KOLOM :J - 3
20 :JE.END..TO BLOK :K :KE. ALS :K < :KE
DAN STOP. .CTYO .EXAMINE :K. BLOK :K -
1 :KE.END..TO !B. WEG [PRINTBEELD BLOK K
OLOM PRINTRIJ !B].END..TO PRINTRIJ :I. A
LS :I > 312 DAN .CTYO 27 .CTYO 64 STOP.
.CTYO 27 .CTYO 65 .CTYO 8 .CTYO 13. .CTY
O 27 .CTYO 75 .CTYO 200 .CTYO 0. KOLOM 7
680 + :I :I. PRINTRIJ :I + 8.END..TO PRI
NTBEELD. PRINTER. .KEUZE "INTER 0 1. .KE
UZE "PRINTER 2 1. PRINTRIJ 0. .KEUZE "PR
INTER 2 0. STOPPRINTER. .KEUZE "INTER 0
0.END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL