00000000: 00 20 54 4F 20 50 52 49 4E 54 42 45 45 4C 44 0D |. TO PRINTBEELD.|
00000010: 20 50 52 49 4E 54 45 52 0D 20 2E 4B 45 55 5A 45 | PRINTER. .KEUZE|
00000020: 20 22 49 4E 54 45 52 20 30 20 31 0D 20 2E 4B 45 | "INTER 0 1. .KE|
00000030: 55 5A 45 20 22 50 52 49 4E 54 45 52 20 32 20 31 |UZE "PRINTER 2 1|
00000040: 0D 20 50 52 49 4E 54 52 49 4A 20 30 0D 20 2E 4B |. PRINTRIJ 0. .K|
00000050: 45 55 5A 45 20 22 50 52 49 4E 54 45 52 20 32 20 |EUZE "PRINTER 2 |
00000060: 30 0D 20 53 54 4F 50 50 52 49 4E 54 45 52 0D 20 |0. STOPPRINTER. |
00000070: 2E 4B 45 55 5A 45 20 22 49 4E 54 45 52 20 30 20 |.KEUZE "INTER 0 |
00000080: 30 0D 45 4E 44 0D 0D 54 4F 20 21 42 0D 20 57 45 |0.END..TO !B. WE|
00000090: 47 20 5B 50 52 49 4E 54 42 45 45 4C 44 20 42 4C |G [PRINTBEELD BL|
000000A0: 4F 4B 20 4B 4F 4C 4F 4D 20 50 52 49 4E 54 52 49 |OK KOLOM PRINTRI|
000000B0: 4A 20 21 42 5D 0D 45 4E 44 0D 0D 54 4F 20 42 4C |J !B].END..TO BL|
000000C0: 4F 4B 20 3A 4B 20 3A 4B 45 0D 20 41 4C 53 20 3A |OK :K :KE. ALS :|
000000D0: 4B 20 3C 20 3A 4B 45 20 44 41 4E 20 53 54 4F 50 |K < :KE DAN STOP|
000000E0: 0D 20 2E 43 54 59 4F 20 2E 45 58 41 4D 49 4E 45 |. .CTYO .EXAMINE|
000000F0: 20 3A 4B 0D 20 42 4C 4F 4B 20 3A 4B 20 2D 20 31 | :K. BLOK :K - 1|
00000100: 20 3A 4B 45 0D 45 4E 44 0D 0D 54 4F 20 4B 4F 4C | :KE.END..TO KOL|
00000110: 4F 4D 20 3A 4A 20 3A 4A 45 0D 20 41 4C 53 20 3A |OM :J :JE. ALS :|
00000120: 4A 20 3C 20 3A 4A 45 20 44 41 4E 20 53 54 4F 50 |J < :JE DAN STOP|
00000130: 0D 20 42 4C 4F 4B 20 38 31 39 39 20 2B 20 3A 4A |. BLOK 8199 + :J|
00000140: 20 38 31 39 32 20 2B 20 3A 4A 0D 20 4B 4F 4C 4F | 8192 + :J. KOLO|
00000150: 4D 20 3A 4A 20 2D 20 33 32 30 20 3A 4A 45 0D 45 |M :J - 320 :JE.E|
00000160: 4E 44 0D 0D 54 4F 20 50 52 49 4E 54 52 49 4A 20 |ND..TO PRINTRIJ |
00000170: 3A 49 0D 20 41 4C 53 20 3A 49 20 3E 20 33 31 32 |:I. ALS :I > 312|
00000180: 20 44 41 4E 20 2E 43 54 59 4F 20 32 37 20 2E 43 | DAN .CTYO 27 .C|
00000190: 54 59 4F 20 36 34 20 53 54 4F 50 0D 20 2E 43 54 |TYO 64 STOP. .CT|
000001A0: 59 4F 20 32 37 20 2E 43 54 59 4F 20 36 35 20 2E |YO 27 .CTYO 65 .|
000001B0: 43 54 59 4F 20 38 20 2E 43 54 59 4F 20 31 33 0D |CTYO 8 .CTYO 13.|
000001C0: 20 2E 43 54 59 4F 20 32 37 20 2E 43 54 59 4F 20 | .CTYO 27 .CTYO |
000001D0: 37 35 20 2E 43 54 59 4F 20 32 30 30 20 2E 43 54 |75 .CTYO 200 .CT|
000001E0: 59 4F 20 30 0D 20 4B 4F 4C 4F 4D 20 37 36 38 30 |YO 0. KOLOM 7680|
000001F0: 20 2B 20 3A 49 20 3A 49 0D 20 50 52 49 4E 54 52 | + :I :I. PRINTR|
00000200: 49 4A 20 3A 49 20 2B 20 38 0D 45 4E 44 0D 0D |IJ :I + 8.END.. |
. TO PRINTBEELD. PRINTER. .KEUZE "INTER
0 1. .KEUZE "PRINTER 2 1. PRINTRIJ 0. .K
EUZE "PRINTER 2 0. STOPPRINTER. .KEUZE "
INTER 0 0.END..TO !B. WEG [PRINTBEELD BL
OK KOLOM PRINTRIJ !B].END..TO BLOK :K :K
E. ALS :K < :KE DAN STOP. .CTYO .EXAMINE
:K. BLOK :K - 1 :KE.END..TO KOLOM :J :J
E. ALS :J < :JE DAN STOP. BLOK 8199 + :J
8192 + :J. KOLOM :J - 320 :JE.END..TO P
RINTRIJ :I. ALS :I > 312 DAN .CTYO 27 .C
TYO 64 STOP. .CTYO 27 .CTYO 65 .CTYO 8 .
CTYO 13. .CTYO 27 .CTYO 75 .CTYO 200 .CT
YO 0. KOLOM 7680 + :I :I. PRINTRIJ :I +
8.END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL