> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 8F 2A 2A 56 49 43 32 30 2D 44 |.......**VIC20-D|
00000010: 45 20 4D 41 52 4B 54 4B 52 41 4D 45 52 2A 2A 00 |E MARKTKRAMER**.|
00000020: 2B 08 14 00 86 4A 4F 24 28 39 29 00 36 08 1E 00 |+....JO$(9).6...|
00000030: 81 49 B2 30 A4 39 00 42 08 28 00 87 4A 4F 24 28 |.I.0.9.B.(..JO$(|
00000040: 49 29 00 48 08 32 00 82 00 52 08 3C 00 99 22 93 |I).H.2...R.<..".|
00000050: 22 3B 00 6D 08 46 00 4E 52 B2 30 3A 54 49 24 B2 |";.m.F.NR.0:TI$.|
00000060: 22 30 30 30 30 30 30 22 3A 4D 58 B2 31 00 77 08 |"000000":MX.1.w.|
00000070: 50 00 89 31 30 30 30 00 B7 08 5A 00 83 20 47 52 |P..1000...Z.. GR|
00000080: 4F 54 45 20 4E 55 4C 2C 4B 4C 45 55 54 45 52 2C |OTE NUL,KLEUTER,|
00000090: 4B 52 41 4E 54 4A 4F 4E 47 45 4E 2C 4B 4C 45 52 |KRANTJONGEN,KLER|
000000A0: 4B 2C 41 55 54 4F 56 45 52 4B 4F 50 45 52 2C 4D |K,AUTOVERKOPER,M|
000000B0: 41 4B 45 4C 41 41 52 00 EE 08 64 00 83 20 4D 41 |AKELAAR...d.. MA|
000000C0: 52 4B 54 4B 52 41 4D 45 52 2C 4F 4C 49 45 4D 41 |RKTKRAMER,OLIEMA|
000000D0: 47 4E 41 41 54 2C 4D 49 4C 4C 49 4F 4E 41 49 52 |GNAAT,MILLIONAIR|
000000E0: 2C 53 43 48 4F 4F 4C 4D 45 45 53 54 45 52 00 08 |,SCHOOLMEESTER..|
000000F0: 09 C8 00 8F 2A 2A 52 41 4E 44 4F 4D 20 4F 50 54 |....**RANDOM OPT|
00000100: 45 4C 4C 49 4E 47 2A 2A 00 24 09 D2 00 4E 31 24 |ELLING**.$...N1$|
00000110: B2 C4 28 B5 28 31 AA 28 4D 58 AB 31 29 AC BB 28 |..(.(1.(MX.1)..(|
00000120: 30 29 29 29 00 40 09 DC 00 4E 32 24 B2 C4 28 B5 |0))).@...N2$..(.|
00000130: 28 31 AA 28 4D 58 AB 31 29 AC BB 28 30 29 29 29 |(1.(MX.1)..(0)))|
00000140: 00 55 09 E6 00 41 4E B2 C5 28 4E 31 24 29 AA C5 |.U...AN..(N1$)..|
00000150: 28 4E 32 24 29 00 6D 09 F0 00 99 20 A3 4E 52 AA |(N2$).m.... .NR.|
00000160: 32 AB C3 28 4E 31 24 29 29 3B 4E 31 24 00 89 09 |2..(N1$));N1$...|
00000170: FA 00 99 20 A3 4E 52 AA 32 AB C3 28 4E 32 24 29 |... .NR.2..(N2$)|
00000180: 29 3B 4E 32 24 3B 22 2B 22 00 98 09 04 01 81 44 |);N2$;"+"......D|
00000190: 55 B2 30 A4 4E 52 AA 31 00 A2 09 0E 01 99 22 2D |U.0.NR.1......"-|
000001A0: 22 3B 00 A8 09 18 01 82 00 AE 09 1D 01 99 00 B4 |";..............|
000001B0: 09 22 01 8E 00 CF 09 2C 01 8F 2A 2A 41 4E 54 57 |.".....,..**ANTW|
000001C0: 4F 4F 52 44 20 49 4E 56 4F 45 52 45 4E 2A 2A 00 |OORD INVOEREN**.|
000001D0: E4 09 36 01 85 22 52 45 53 55 4C 54 41 41 54 22 |..6.."RESULTAAT"|
000001E0: 3B 41 4E 24 00 EA 09 40 01 8E 00 07 0A F4 01 8F |;AN$...@........|
000001F0: 2A 2A 43 4F 4E 54 52 4F 4C 45 45 52 20 41 4E 54 |**CONTROLEER ANT|
00000200: 57 4F 4F 52 44 2A 2A 00 0F 0A F9 01 99 3A 99 00 |WOORD**......:..|
00000210: 35 0A FE 01 8B C5 28 41 4E 24 29 B2 41 4E A7 99 |5.....(AN$).AN..|
00000220: 22 47 4F 45 44 20 21 22 3A 4E 52 B2 4E 52 AA 31 |"GOED !":NR.NR.1|
00000230: 3A 89 35 34 30 00 43 0A 08 02 99 22 46 4F 55 54 |:.540.C...."FOUT|
00000240: 20 21 22 00 49 0A 0D 02 99 00 5B 0A 12 02 99 22 | !".I.....[...."|
00000250: 48 45 54 20 49 53 3A 22 3B 41 4E 00 80 0A 17 02 |HET IS:";AN.....|
00000260: 99 22 55 57 20 54 59 44 3A 22 3B C4 28 B5 28 54 |."UW TYD:";.(.(T|
00000270: 49 AD 2E 36 29 AD 31 30 30 29 3B 22 53 45 43 22 |I..6).100);"SEC"|
00000280: 00 86 0A 1C 02 8E 00 9E 0A E8 03 8F 2A 2A 48 4F |............**HO|
00000290: 4F 46 44 50 52 4F 47 52 41 4D 4D 41 2A 2A 00 AB |OFDPROGRAMMA**..|
000002A0: 0A F2 03 4D 58 B2 4D 58 AC 31 30 00 C7 0A FC 03 |...MX.MX.10.....|
000002B0: 8D 32 30 30 3A 8F 20 52 41 4E 44 4F 4D 20 4F 50 |.200:. RANDOM OP|
000002C0: 54 45 4C 4C 49 4E 47 00 E4 0A 06 04 8D 33 30 30 |TELLING......300|
000002D0: 3A 8F 20 41 4E 54 57 4F 4F 52 44 20 49 4E 56 4F |:. ANTWOORD INVO|
000002E0: 45 52 45 4E 00 FB 0A 10 04 8D 35 30 30 3A 8F 20 |EREN......500:. |
000002F0: 43 4F 4E 54 52 4F 4C 45 52 45 4E 00 0F 0B 1A 04 |CONTROLEREN.....|
00000300: 8B C5 28 41 4E 24 29 B2 41 4E A7 31 30 31 30 00 |..(AN$).AN.1010.|
00000310: 28 0B 24 04 99 22 42 45 52 4F 45 50 3A 22 3B 3A |(.$.."BEROEP:";:|
00000320: 99 4A 4F 24 28 4E 52 29 00 00 00 |.JO$(NR)... |
.......**VIC20-DE MARKTKRAMER**.+....JO$
(9).6....I.0.9.B.(..JO$(I).H.2...R.<..".
";.M.F.NR.0:TI$."000000":MX.1.W.P..1000.
..Z.. GROTE NUL,KLEUTER,KRANTJONGEN,KLER
K,AUTOVERKOPER,MAKELAAR...D.. MARKTKRAME
R,OLIEMAGNAAT,MILLIONAIR,SCHOOLMEESTER..
.H..**RANDOM OPTELLING**.$.R.N1$.D(.(1.(
MX.1)..(0))).@...N2$.D(.(1.(MX.1)..(0)))
.U...AN.E(N1$).E(N2$).M.... .NR.2.C(N1$)
);N1$...... .NR.2.C(N2$));N2$;"+"......D
U.0.NR.1......"-";..............."...O.,
..**ANTWOORD INVOEREN**...6.."RESULTAAT"
;AN$...@........**CONTROLEER ANTWOORD**.
.....:..5....E(AN$).AN.."GOED !":NR.NR.1
:.540.C...."FOUT !".I.....[...."HET IS:"
;AN......"UW TYD:";D(.(TI..6).100);"SEC"
............**HOOFDPROGRAMMA**.....MX.MX
.10.G....200:. RANDOM OPTELLING......300
:. ANTWOORD INVOEREN......500:. CONTROLE
REN......E(AN$).AN.1010.(.$.."BEROEP:";:
.JO$(NR)...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL