> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 34 08 00 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..4....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 00 52 08 05 00 8F 20 20 20 20 20 20 |****.R.... |
00000040: 20 20 20 20 20 20 20 20 20 56 49 53 49 2E 4C 49 | VISI.LI|
00000050: 53 54 00 74 08 0A 00 8F 20 20 20 20 20 20 20 20 |ST.t.... |
00000060: 20 20 20 20 2D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | -===========|
00000070: 3D 3D 3D 2D 00 9E 08 0F 00 8F 20 20 20 20 20 20 |===-...... |
00000080: 20 20 4C 49 53 54 45 4E 20 56 41 4E 20 42 41 53 | LISTEN VAN BAS|
00000090: 49 43 2D 50 52 4F 47 52 41 4D 4D 41 27 53 00 D0 |IC-PROGRAMMA'S..|
000000A0: 08 14 00 8F 20 20 20 20 20 4D 45 54 20 4B 4F 4E |.... MET KON|
000000B0: 54 52 4F 4C 45 20 28 52 56 53 29 2D 53 59 4D 42 |TROLE (RVS)-SYMB|
000000C0: 4F 4C 45 4E 20 55 49 54 47 45 50 52 49 4E 54 2E |OLEN UITGEPRINT.|
000000D0: 00 FD 08 19 00 8F 20 20 20 20 20 20 20 54 45 20 |...... TE |
000000E0: 47 45 42 52 55 49 4B 45 4E 20 56 4F 4F 52 20 41 |GEBRUIKEN VOOR A|
000000F0: 4C 4C 45 20 50 52 49 4E 54 45 52 53 2E 00 26 09 |LLE PRINTERS..&.|
00000100: 1E 00 8F 20 20 20 20 20 20 20 20 45 4E 20 41 4C |... EN AL|
00000110: 4C 45 20 43 4F 4D 4D 4F 44 4F 52 45 20 43 4F 4D |LE COMMODORE COM|
00000120: 50 55 54 45 52 53 00 2C 09 23 00 8F 00 4E 09 28 |PUTERS.,.#...N.(|
00000130: 00 8F 20 20 50 52 4F 47 52 41 4D 4D 41 20 4F 4E |.. PROGRAMMA ON|
00000140: 54 57 49 4B 4B 45 4C 44 20 44 4F 4F 52 3A 00 78 |TWIKKELD DOOR:.x|
00000150: 09 2D 00 8F 20 20 20 20 20 20 20 20 20 20 20 20 |.-.. |
00000160: 20 20 4A 41 4E 20 42 4F 44 5A 49 4E 47 41 2C 20 | JAN BODZINGA, |
00000170: 42 4C 41 52 49 43 55 4D 00 7E 09 32 00 8F 00 8D |BLARICUM.~.2....|
00000180: 09 37 00 8F 20 38 34 30 37 30 37 2E 32 00 C0 09 |.7.. 840707.2...|
00000190: 3C 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |<..*************|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001C0: 00 EA 09 63 00 8F 20 20 20 20 20 20 20 20 20 2D |...c.. -|
000001D0: 2D 2D 2D 20 20 42 45 47 49 4E 20 50 52 4F 47 52 |--- BEGIN PROGR|
000001E0: 41 4D 4D 41 20 20 2D 2D 2D 2D 00 07 0A 64 00 99 |AMMA ----...d..|
000001F0: C7 28 31 34 29 20 20 20 20 20 20 3A 8F 20 54 45 |.(14) :. TE|
00000200: 4B 53 54 4D 4F 44 45 00 38 0A 6E 00 99 22 93 11 |KSTMODE.8.n.."..|
00000210: 11 1D 1D 1D C4 49 54 20 50 52 4F 47 52 41 4D 4D |.....IT PROGRAMM|
00000220: 41 20 47 45 42 52 55 49 4B 54 20 12 C4 C9 D3 CB |A GEBRUIKT .....|
00000230: 2D 44 52 49 56 45 92 22 00 5B 0A 78 00 8D 32 30 |-DRIVE.".[.x..20|
00000240: 30 30 20 20 20 20 20 20 20 20 20 20 3A 8F 20 4D |00 :. M|
00000250: 41 4B 45 4E 20 41 52 52 41 59 53 00 88 0A 82 00 |AKEN ARRAYS.....|
00000260: 99 A3 35 29 22 11 12 C6 49 4C 45 4E 41 41 4D 92 |..5)"...ILENAAM.|
00000270: 20 56 41 4E 20 54 45 20 4C 49 53 54 45 4E 20 20 | VAN TE LISTEN |
00000280: 20 20 20 20 20 20 20 22 00 AC 0A 8C 00 99 A3 35 | ".......5|
00000290: 29 22 50 52 4F 47 52 41 4D 4D 41 20 28 4F 50 20 |)"PROGRAMMA (OP |
000002A0: 44 49 53 4B 29 22 3B 3A 85 50 47 24 00 DF 0A 96 |DISK)";:.PG$....|
000002B0: 00 4B 52 24 B2 22 20 20 20 20 20 20 20 CC C9 D3 |.KR$." ...|
000002C0: D4 C9 CE C7 20 50 52 4F 47 52 41 4D 4D 41 20 3A |.... PROGRAMMA :|
000002D0: 20 22 AA 50 47 24 AA 22 20 20 50 41 47 2E 22 00 | ".PG$." PAG.".|
000002E0: F2 0A A0 00 50 47 24 B2 50 47 24 AA 22 2C 50 2C |....PG$.PG$.",P,|
000002F0: 52 22 00 1C 0B AA 00 44 56 B2 38 3A 53 41 B2 32 |R".....DV.8:SA.2|
00000300: 20 20 20 20 20 20 20 20 20 3A 8F 20 44 45 56 49 | :. DEVI|
00000310: 43 45 2B 53 45 43 2E 41 44 52 45 53 00 4A 0B B4 |CE+SEC.ADRES.J..|
00000320: 00 99 A3 35 29 22 11 CC 49 53 54 20 4F 50 20 12 |...5)"..IST OP .|
00000330: D3 92 43 48 45 52 4D 20 4F 46 20 12 D0 92 52 49 |..CHERM OF ...RI|
00000340: 4E 54 45 52 22 3B 3A 85 50 24 00 63 0B BE 00 50 |NTER";:.P$.c...P|
00000350: 24 B2 C7 28 C6 28 C8 28 50 24 2C 31 29 29 AF 31 |$..(.(.(P$,1)).1|
00000360: 32 37 29 00 7C 0B C8 00 8B 50 24 B3 B1 22 53 22 |27).|....P$.."S"|
00000370: AF 50 24 B3 B1 22 50 22 A7 31 38 30 00 92 0B D2 |.P$.."P".180....|
00000380: 00 8B 50 24 B2 22 53 22 A7 50 53 B2 33 3A 89 32 |..P$."S".PS.3:.2|
00000390: 38 30 00 B8 0B DC 00 99 A3 35 29 22 11 C4 45 56 |80.......5)"..EV|
000003A0: 49 43 45 4E 55 4D 4D 45 52 20 50 52 49 4E 54 45 |ICENUMMER PRINTE|
000003B0: 52 20 22 3B 3A 85 50 53 00 DF 0B E6 00 99 A3 35 |R ";:.PS.......5|
000003C0: 29 22 11 C1 41 4E 54 41 4C 20 52 45 47 45 4C 53 |)"..ANTAL REGELS|
000003D0: 20 50 45 52 20 42 4C 41 44 22 3B 3A 85 52 47 00 | PER BLAD";:.RG.|
000003E0: 0A 0C F0 00 99 A3 35 29 22 11 C1 41 4E 54 41 4C |......5)"..ANTAL|
000003F0: 20 4B 41 52 41 4B 54 45 52 53 20 50 45 52 20 52 | KARAKTERS PER R|
00000400: 45 47 45 4C 22 3B 3A 85 4B 52 00 37 0C FA 00 99 |EGEL";:.KR.7....|
00000410: A3 35 29 22 11 12 D0 52 49 4E 54 45 52 20 41 41 |.5)"...RINTER AA|
00000420: 4E 5A 45 54 54 45 4E 20 2F 20 54 59 50 20 3E D3 |NZETTEN / TYP >.|
00000430: 50 41 54 49 45 3C 22 00 4E 0C 04 01 A1 41 24 3A |PATIE<".N....A$:|
00000440: 8B 41 24 B3 B1 C7 28 33 32 29 A7 32 36 30 00 83 |.A$...(32).260..|
00000450: 0C 0E 01 99 A3 35 29 22 91 A0 A0 3E 3E 3E 3E 20 |.....5)"...>>>> |
00000460: 20 D0 52 49 4E 54 45 52 20 49 4E 20 4F 52 44 45 | .RINTER IN ORDE|
00000470: 20 20 20 20 20 3C 3C 3C 3C 20 20 20 20 20 20 20 | <<<< |
00000480: 20 20 22 00 B4 0C 18 01 8B 50 53 B2 33 A7 99 A3 | "......PS.3...|
00000490: 35 29 22 11 C1 41 4E 54 41 4C 20 4B 41 52 41 4B |5)"..ANTAL KARAK|
000004A0: 54 45 52 53 20 50 45 52 20 52 45 47 45 4C 22 3B |TERS PER REGEL";|
000004B0: 3A 85 4B 52 00 DE 0C 22 01 8F 20 20 20 2A 2A 2A |:.KR...".. ***|
000004C0: 2A 2A 2A 2A 20 20 49 4E 49 54 49 41 4C 49 53 45 |**** INITIALISE|
000004D0: 52 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FB |REN **********..|
000004E0: 0C 2C 01 9F 31 35 2C 28 44 56 29 2C 31 35 20 20 |.,..15,(DV),15 |
000004F0: 3A 8F 20 46 E0 4B 41 4E 41 41 4C 00 29 0D 36 01 |:. F.KANAAL.).6.|
00000500: 9F 32 2C 28 44 56 29 2C 28 53 41 29 2C 50 47 24 |.2,(DV),(SA),PG$|
00000510: 20 20 3A 8F 20 4F 50 45 4E 45 4E 20 50 52 4F 47 | :. OPENEN PROG|
00000520: 52 41 4D 4D 41 46 49 4C 45 00 4A 0D 40 01 8B 50 |RAMMAFILE.J.@..P|
00000530: 53 B2 33 A7 99 22 93 22 20 20 20 3A 8F 20 43 4C |S.3.."." :. CL|
00000540: 45 41 52 20 53 43 48 45 52 4D 00 63 0D 4A 01 84 |EAR SCHERM.c.J..|
00000550: 31 35 2C 45 4E 2C 45 4D 24 3A 8B 45 4E B2 30 A7 |15,EN,EM$:.EN.0.|
00000560: 33 36 30 00 7F 0D 54 01 99 A3 35 29 22 11 D3 20 |360...T...5)".. |
00000570: CF 20 D2 20 D2 20 D9 20 12 22 45 4D 24 3A 99 00 |. . . . ."EM$:..|
00000580: 8F 0D 5E 01 A0 32 3A A0 31 35 3A 89 31 33 30 00 |..^..2:.15:.130.|
00000590: BB 0D 68 01 8F 20 2A 2A 2A 2A 2A 2A 2A 20 4F 50 |..h.. ******* OP|
000005A0: 45 4E 45 4E 20 50 52 49 4E 54 2D 44 45 56 49 43 |ENEN PRINT-DEVIC|
000005B0: 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E6 0D 72 01 |E *********...r.|
000005C0: 52 4C B2 30 3A 4B 4C B2 30 3A 54 45 B2 31 3A 42 |RL.0:KL.0:TE.1:B|
000005D0: 4E B2 32 20 3A 8F 20 54 45 4C 4C 45 52 53 20 50 |N.2 :. TELLERS P|
000005E0: 52 49 4E 54 45 52 00 08 0E 7C 01 45 4C 24 B2 22 |RINTER...|.EL$."|
000005F0: 20 20 2A 2A 2A A0 C5 C9 CE C4 C5 20 CC C9 D3 D4 | ***...... ....|
00000600: C9 CE C7 20 2A 2A 2A 22 00 14 0E 86 01 9F 34 2C |... ***"......4,|
00000610: 28 50 53 29 00 2A 0E 90 01 98 34 2C 4B 52 24 3B |(PS).*....4,KR$;|
00000620: 31 3A 98 34 20 3A 52 4C B2 33 00 4F 0E 9A 01 A1 |1:.4 :RL.3.O....|
00000630: 23 32 2C 53 31 24 2C 53 32 24 20 20 20 20 20 20 |#2,S1$,S2$ |
00000640: 20 3A 8F 20 53 54 41 52 54 20 41 44 52 45 53 00 | :. START ADRES.|
00000650: 6D 0E A4 01 8D 31 30 30 30 3A 89 34 34 30 3A 8F |m....1000:.440:.|
00000660: 20 52 45 47 45 4C 4E 55 4D 4D 45 52 53 00 8F 0E | REGELNUMMERS...|
00000670: AE 01 A1 23 32 2C 41 24 3A 8B 41 24 B2 22 22 A7 |...#2,A$:.A$."".|
00000680: 8D 31 30 30 30 3A 8B A8 4F 4B A7 33 30 30 30 00 |.1000:..OK.3000.|
00000690: BC 0E B8 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 20 41 46 |.....******** AF|
000006A0: 48 41 4E 44 45 4C 45 4E 20 31 20 52 45 47 45 4C |HANDELEN 1 REGEL|
000006B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 0E C2 | ***********....|
000006C0: 01 8B 41 24 B2 C7 28 33 34 29 A7 51 55 4F 54 45 |..A$..(34).QUOTE|
000006D0: 25 B2 51 55 4F 54 45 25 AC AB 31 3A 8B A8 51 55 |%.QUOTE%..1:..QU|
000006E0: 4F 54 45 25 A7 8D 36 30 30 3A 43 52 24 B2 22 22 |OTE%..600:CR$.""|
000006F0: 00 12 |.. |
..4....*********************************
************.R.... VISI.LI
ST.T.... -==============-....
.. LISTEN VAN BASIC-PROGRAMMA'S.P
.... MET KONTROLE (RVS)-SYMBOLEN UIT
GEPRINT....... TE GEBRUIKEN VOOR A
LLE PRINTERS..&.... EN ALLE COMMO
DORE COMPUTERS.,.#...N.(.. PROGRAMMA ON
TWIKKELD DOOR:.X.-.. JAN BO
DZINGA, BLARICUM.~.2.....7.. 840707.2...
<..*************************************
********...C.. ---- BEGIN PROGR
AMMA ----...D..G(14) :. TEKSTMODE.
8.N.."......DIT PROGRAMMA GEBRUIKT .DISK
-DRIVE.".[.X..2000 :. MAKEN ARR
AYS.......5)"..FILENAAM. VAN TE LISTEN
".......5)"PROGRAMMA (OP DISK)";:
.PG$.....KR$." LISTING PROGRAMMA :
".PG$." PAG."... .PG$.PG$.",P,R".....D
V.8:SA.2 :. DEVICE+SEC.ADRES.J..
...5)".LIST OP .S.CHERM OF .P.RINTER";:.
P$.C...P$.G(F(H(P$,1)).127).|.H..P$.."S"
.P$.."P".180...R..P$."S".PS.3:.280......
.5)".DEVICENUMMER PRINTER ";:.PS.......5
)".AANTAL REGELS PER BLAD";:.RG.......5)
".AANTAL KARAKTERS PER REGEL";:.KR.7....
.5)"..PRINTER AANZETTEN / TYP >SPATIE<".
N....A$:.A$..G(32).260.......5)". >>>>
PRINTER IN ORDE <<<< ".....
.PS.3...5)".AANTAL KARAKTERS PER REGEL";
:.KR...".. ******* INITIALISEREN ****
******...,..15,(DV),15 :. F.KANAAL.).6.
.2,(DV),(SA),PG$ :. OPENEN PROGRAMMAFIL
E.J.@..PS.3.."." :. CLEAR SCHERM.C.J..
15,EN,EM$:.EN.0.360..T...5)".S O R R Y
."EM$:....^. 2: 15:.130...H.. ******* OP
ENEN PRINT-DEVICE *********...R.RL.0:KL.
0:TE.1:BN.2 :. TELLERS PRINTER...|.EL$."
*** EINDE LISTING ***"......4,(PS).*..
..4,KR$;1:.4 :RL.3.O....#2,S1$,S2$
:. START ADRES.M....1000:.440:. REGELNU
MMERS......#2,A$:.A$.""..1000:..OK.3000.
.....******** AFHANDELEN 1 REGEL *******
****...B..A$.G(34).QUOTE%.QUOTE%..1:..QU
OTE%..600:CR$.""..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL