> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 64 00 8F 3A 20 44 45 43 4F 44 45 00 |....d..: DECODE.|
00000010: 40 08 6E 00 8F 3A 20 46 49 4E 44 45 20 44 45 4E |@.n..: FINDE DEN|
00000020: 20 47 45 48 45 49 4D 43 4F 44 45 20 44 45 53 20 | GEHEIMCODE DES |
00000030: 43 4F 4D 50 55 54 45 52 53 20 48 45 52 41 55 53 |COMPUTERS HERAUS|
00000040: 00 6E 08 6F 00 8F 3A 20 43 4F 50 59 52 49 47 48 |.n.o..: COPYRIGH|
00000050: 54 20 31 39 38 33 20 54 4F 4D 20 52 55 47 47 2C |T 1983 TOM RUGG,|
00000060: 20 50 48 49 4C 20 46 45 4C 44 4D 41 4E 4E 00 8F | PHIL FELDMANN..|
00000070: 08 70 00 8F 3A 20 55 4E 44 20 57 45 53 54 45 52 |.p..: UND WESTER|
00000080: 4E 20 53 59 53 54 45 4D 53 20 47 52 4F 55 50 00 |N SYSTEMS GROUP.|
00000090: A0 08 78 00 44 B2 36 3A 50 B2 34 3A 4C B2 31 32 |..x.D.6:P.4:L.12|
000000A0: 00 BF 08 82 00 86 47 24 28 4C 29 2C 47 28 50 29 |......G$(L),G(P)|
000000B0: 2C 43 28 50 29 2C 42 28 4C 29 2C 57 28 4C 29 00 |,C(P),B(L),W(L).|
000000C0: CC 08 8C 00 52 B2 BB 28 AB 54 49 29 00 D7 08 96 |....R..(.TI)....|
000000D0: 00 8D 20 31 32 30 30 00 E7 08 AA 00 8D 20 33 30 |.. 1200...... 30|
000000E0: 30 3A 8D 20 33 37 30 00 FE 08 B4 00 99 20 22 56 |0:. 370...... "V|
000000F0: 45 52 53 55 43 48 20 4E 52 2E 22 3B 47 3B 00 07 |ERSUCH NR.";G;..|
00000100: 09 BE 00 85 20 41 24 00 1F 09 C8 00 8B 20 C8 28 |.... A$...... .(|
00000110: 41 24 2C 31 29 B2 22 5A 22 20 A7 20 35 30 30 00 |A$,1)."Z" . 500.|
00000120: 37 09 D2 00 8B 20 C8 28 41 24 2C 31 29 B2 22 45 |7.... .(A$,1)."E|
00000130: 22 20 A7 20 36 30 30 00 41 09 DC 00 8D 20 37 30 |" . 600.A.... 70|
00000140: 30 00 4B 09 E6 00 8D 20 38 30 30 00 56 09 F0 00 |0.K.... 800.V...|
00000150: 8D 20 31 30 30 30 00 6A 09 FA 00 8B 20 42 28 47 |. 1000.j.... B(G|
00000160: 29 B2 50 20 A7 20 32 30 30 30 00 77 09 04 01 47 |).P . 2000.w...G|
00000170: 24 28 47 29 B2 41 24 00 8E 09 0E 01 47 B2 47 AA |$(G).A$.....G.G.|
00000180: 31 3A 8B 20 47 B1 4C 20 A7 20 32 32 30 30 00 98 |1:. G.L . 2200..|
00000190: 09 18 01 89 20 31 38 30 00 A6 09 2C 01 47 B2 31 |.... 180...,.G.1|
000001A0: 3A 43 24 B2 22 22 00 AC 09 36 01 8E 00 BA 09 72 |:C$.""...6.....r|
000001B0: 01 81 20 4A B2 31 20 A4 20 50 00 CC 09 7C 01 52 |.. J.1 . P...|.R|
000001C0: B2 B5 28 44 AC BB 28 31 29 29 AA 31 00 E2 09 86 |..(D..(1)).1....|
000001D0: 01 43 24 B2 43 24 AA CA 28 C4 28 52 29 2C 32 2C |.C$.C$..(.(R),2,|
000001E0: 31 29 00 EA 09 90 01 82 20 4A 00 0D 0A 9A 01 99 |1)...... J......|
000001F0: 20 22 49 43 48 20 48 41 42 45 20 4D 45 49 4E 45 | "ICH HABE MEINE|
00000200: 20 47 45 48 45 49 4D 5A 41 48 4C 2E 22 00 13 0A | GEHEIMZAHL."...|
00000210: A4 01 99 00 19 0A AE 01 8E 00 44 0A F4 01 8B 20 |..........D.... |
00000220: 47 B2 31 20 A7 20 99 20 22 4E 4F 43 48 20 4E 49 |G.1 . . "NOCH NI|
00000230: 43 48 54 53 20 47 45 52 41 54 45 4E 2E 22 3A 89 |CHTS GERATEN.":.|
00000240: 20 31 38 30 00 6A 0A FE 01 99 20 C7 28 31 34 37 | 180.j.... .(147|
00000250: 29 3B A3 31 30 29 3B 22 5A 55 53 41 4D 4D 45 4E |);.10);"ZUSAMMEN|
00000260: 46 41 53 53 55 4E 47 22 3A 99 00 8E 0A 08 02 99 |FASSUNG":.......|
00000270: 20 22 4E 52 2E 20 20 20 20 20 54 49 50 20 20 53 | "NR. TIP S|
00000280: 43 48 57 41 52 5A 20 20 57 45 49 53 53 22 00 A0 |CHWARZ WEISS"..|
00000290: 0A 12 02 99 3A 81 20 4A B2 31 20 A4 20 47 AB 31 |....:. J.1 . G.1|
000002A0: 00 C6 0A 1C 02 99 20 4A 3B A3 37 29 3B 47 24 28 |...... J;.7);G$(|
000002B0: 4A 29 3B A3 31 36 29 3B 42 28 4A 29 3B A3 32 34 |J);.16);B(J);.24|
000002C0: 29 3B 57 28 4A 29 00 D5 0A 26 02 8B 20 47 B3 31 |);W(J)...&.. G.1|
000002D0: 30 20 A7 20 99 00 DD 0A 30 02 82 3A 99 00 E7 0A |0 . ....0..:....|
000002E0: 3A 02 89 20 31 38 30 00 ED 0A 58 02 99 00 0D 0B |:.. 180...X.....|
000002F0: 62 02 99 20 22 4B 4C 41 50 50 54 20 57 4F 48 4C |b.. "KLAPPT WOHL|
00000300: 20 4E 49 43 48 54 2C 20 57 41 53 3F 22 00 27 0B | NICHT, WAS?".'.|
00000310: 6C 02 99 3A 99 20 22 4D 45 49 4E 45 20 5A 41 48 |l..:. "MEINE ZAH|
00000320: 4C 20 57 41 52 22 3B 00 35 0B 76 02 81 20 4A B2 |L WAR";.5.v.. J.|
00000330: 31 20 A4 20 34 00 41 0B 80 02 99 20 22 20 2E 22 |1 . 4.A.... " ."|
00000340: 3B 00 53 0B 8A 02 81 20 4B B2 31 20 A4 20 39 30 |;.S.... K.1 . 90|
00000350: 30 3A 82 00 5B 0B 94 02 82 20 4A 00 66 0B 9E 02 |0:..[.... J.f...|
00000360: 99 20 43 24 3A 99 00 71 0B A8 02 89 20 32 30 39 |. C$:..q.... 209|
00000370: 30 00 86 0B BC 02 8B 20 C3 28 41 24 29 B3 B1 50 |0...... .(A$)..P|
00000380: 20 A7 20 37 38 30 00 94 0B C6 02 81 20 4A B2 31 | . 780...... J.1|
00000390: 20 A4 20 50 00 A7 0B D0 02 52 B2 C5 28 CA 28 41 | . P.....R..(.(A|
000003A0: 24 2C 4A 2C 31 29 29 00 BD 0B DA 02 8B 20 52 B3 |$,J,1))...... R.|
000003B0: 31 20 B0 20 52 B1 44 20 A7 20 37 38 30 00 C3 0B |1 . R.D . 780...|
000003C0: E4 02 82 00 C9 0B EE 02 8E 00 F4 0B 0C 03 99 20 |............... |
000003D0: 22 49 4C 4C 45 47 41 4C 20 20 20 56 45 52 53 55 |"ILLEGAL VERSU|
000003E0: 43 48 45 4E 20 53 49 45 27 53 20 4E 4F 43 48 4D |CHEN SIE'S NOCHM|
000003F0: 41 4C 2E 22 00 FE 0B 16 03 89 20 31 38 30 00 0A |AL."...... 180..|
00000400: 0C 20 03 42 B2 30 3A 57 B2 30 00 18 0C 2A 03 81 |. .B.0:W.0...*..|
00000410: 20 4A B2 31 20 A4 20 50 00 2E 0C 34 03 47 28 4A | J.1 . P...4.G(J|
00000420: 29 B2 C5 28 CA 28 41 24 2C 4A 2C 31 29 29 00 44 |)..(.(A$,J,1)).D|
00000430: 0C 3E 03 43 28 4A 29 B2 C5 28 CA 28 43 24 2C 4A |.>.C(J)..(.(C$,J|
00000440: 2C 31 29 29 00 6A 0C 48 03 8B 20 47 28 4A 29 B2 |,1)).j.H.. G(J).|
00000450: 43 28 4A 29 20 A7 20 42 B2 42 AA 31 3A 47 28 4A |C(J) . B.B.1:G(J|
00000460: 29 B2 30 3A 43 28 4A 29 B2 30 00 70 0C 52 03 82 |).0:C(J).0.p.R..|
00000470: 00 8D 0C 5C 03 81 20 4A B2 31 20 A4 20 50 3A 8B |...\.. J.1 . P:.|
00000480: 20 43 28 4A 29 B2 30 20 A7 20 39 32 30 00 9F 0C | C(J).0 . 920...|
00000490: 66 03 48 B2 30 3A 81 20 4B B2 31 20 A4 20 50 00 |f.H.0:. K.1 . P.|
000004A0: B2 0C 70 03 8B 20 43 28 4A 29 B2 30 20 A7 20 39 |..p.. C(J).0 . 9|
000004B0: 31 30 00 C9 0C 7A 03 8B 20 43 28 4A 29 B3 B1 47 |10...z.. C(J)..G|
000004C0: 28 4B 29 20 A7 20 39 31 30 00 DF 0C 84 03 48 B2 |(K) . 910.....H.|
000004D0: 31 3A 47 28 4B 29 B2 30 3A 43 28 4A 29 B2 30 00 |1:G(K).0:C(J).0.|
000004E0: ED 0C 8E 03 82 20 4B 3A 57 B2 57 AA 48 00 F5 0C |..... K:W.W.H...|
000004F0: 98 03 82 20 4A 00 FB 0C A2 03 8E 00 0F 0D E8 03 |... J...........|
00000500: 42 28 47 29 B2 42 3A 57 28 47 29 B2 57 3A 99 00 |B(G).B:W(G).W:..|
00000510: 33 0D F2 03 99 20 22 56 45 52 53 55 43 48 22 3B |3.... "VERSUCH";|
00000520: 47 3B 22 2D 2D 20 53 43 48 57 41 52 5A 20 3D 22 |G;"-- SCHWARZ ="|
00000530: 3B 42 3B 00 47 0D F7 03 99 20 22 20 20 57 45 49 |;B;.G.... " WEI|
00000540: 53 53 20 3D 22 3B 57 00 4F 0D FC 03 99 3A 8E 00 |SS =";W.O....:..|
00000550: 5C 0D B0 04 99 20 C7 28 31 34 37 29 00 7D 0D BA |\.... .(147).}..|
00000560: 04 99 20 A3 33 29 3B 22 2A 2A 2A 2A 20 44 45 4B |.. .3);"**** DEK|
00000570: 4F 44 49 45 52 45 4E 20 2A 2A 2A 2A 22 00 85 0D |ODIEREN ****"...|
00000580: C4 04 99 3A 99 00 AF 0D CE 04 99 20 22 52 41 54 |...:....... "RAT|
00000590: 45 4E 20 53 49 45 20 45 49 4E 45 22 3B 50 3B 22 |EN SIE EINE";P;"|
000005A0: 2D 53 54 45 4C 4C 49 47 45 20 5A 41 48 4C 22 00 |-STELLIGE ZAHL".|
000005B0: B5 0D D8 04 99 00 D5 0D E2 04 99 20 22 4D 49 54 |........... "MIT|
000005C0: 20 44 45 4E 20 5A 49 46 46 45 52 4E 20 31 20 42 | DEN ZIFFERN 1 B|
000005D0: 49 53 22 3B 44 00 DD 0D EC 04 99 3A 99 00 07 0E |IS";D......:....|
000005E0: F6 04 99 20 22 27 53 43 48 57 41 52 5A 27 20 48 |... "'SCHWARZ' H|
000005F0: 45 49 53 53 54 2C 20 52 49 43 48 54 49 47 45 20 |EISST, RICHTIGE |
00000600: 5A 49 46 46 45 52 22 00 2C 0E 00 05 99 3A 99 20 |ZIFFER".,....:. |
00000610: 22 49 4E 20 44 45 52 20 52 49 43 48 54 49 47 45 |"IN DER RICHTIGE|
00000620: 4E 20 50 4F 53 49 54 49 4F 4E 2E 22 00 32 0E 0A |N POSITION.".2..|
00000630: 05 99 00 5A 0E 14 05 99 20 22 27 57 45 49 53 53 |...Z.... "'WEISS|
00000640: 27 20 48 45 49 53 53 54 2C 20 52 49 43 48 54 49 |' HEISST, RICHTI|
00000650: 47 45 20 5A 49 46 46 45 52 22 00 60 0E 1E 05 99 |GE ZIFFER".`....|
00000660: 00 87 0E 28 05 99 20 22 41 42 45 52 20 49 4E 20 |...(.. "ABER IN |
00000670: 44 45 52 20 46 41 4C 53 43 48 45 4E 20 50 4F 53 |DER FALSCHEN POS|
00000680: 49 54 49 4F 4E 2E 22 00 8F 0E 32 05 99 3A 99 00 |ITION."...2..:..|
00000690: 95 0E 3C 05 8E 00 9B 0E D0 07 99 00 CB 0E DA 07 |..<.............|
000006A0: 99 20 22 53 49 45 20 48 41 42 45 4E 27 53 20 49 |. "SIE HABEN'S I|
000006B0: 4E 22 3B 47 3B 22 56 45 52 53 55 43 48 45 4E 20 |N";G;"VERSUCHEN |
000006C0: 47 45 53 43 48 41 46 46 54 2E 22 00 EB 0E E4 07 |GESCHAFFT.".....|
000006D0: 8B 20 47 B3 35 20 A7 20 42 24 B2 22 41 55 53 47 |. G.5 . B$."AUSG|
000006E0: 45 5A 45 49 43 48 4E 45 54 21 22 00 0D 0F EE 07 |EZEICHNET!".....|
000006F0: 8B 20 47 B2 35 20 B0 20 47 B2 36 20 A7 20 42 24 |. G.5 . G.6 . B$|
00000700: B2 22 52 45 43 48 54 20 47 55 54 21 22 00 2E 0F |."RECHT GUT!"...|
00000710: F8 07 8B 20 47 B2 37 20 A7 20 42 24 B2 22 4E 49 |... G.7 . B$."NI|
00000720: 43 48 54 20 53 43 48 4C 45 43 48 54 21 22 00 52 |CHT SCHLECHT!".R|
00000730: 0F 02 08 8B 20 47 B2 38 20 A7 20 42 24 B2 22 4E |.... G.8 . B$."N|
00000740: 49 43 48 54 20 55 45 42 45 52 52 41 47 45 4E 44 |ICHT UEBERRAGEND|
00000750: 21 22 00 72 0F 0C 08 8B 20 47 B1 38 20 A7 20 42 |!".r.... G.8 . B|
00000760: 24 B2 22 52 45 43 48 54 20 4D 41 45 53 53 49 47 |$."RECHT MAESSIG|
00000770: 21 22 00 8B 0F 16 08 99 3A 99 20 22 2E 2E 2E 44 |!"......:. "...D|
00000780: 41 53 20 57 41 52 20 22 3B 42 24 00 91 0F 20 08 |AS WAR ";B$... .|
00000790: 99 00 B8 0F 2A 08 85 20 22 57 4F 4C 4C 45 4E 20 |....*.. "WOLLEN |
000007A0: 53 49 45 27 53 20 4E 4F 43 48 4D 41 4C 20 57 41 |SIE'S NOCHMAL WA|
000007B0: 47 45 4E 20 22 3B 41 24 00 D0 0F 34 08 8B 20 C8 |GEN ";A$...4.. .|
000007C0: 28 41 24 2C 31 29 B2 22 4A 22 20 A7 20 31 35 30 |(A$,1)."J" . 150|
000007D0: 00 EA 0F 3E 08 8B 20 C8 28 41 24 2C 31 29 B3 B1 |...>.. .(A$,1)..|
000007E0: 22 4E 22 20 A7 20 32 30 39 30 00 00 10 48 08 99 |"N" . 2090...H..|
000007F0: 3A 99 20 22 46 45 49 47 4C 49 4E 47 21 22 3A 99 |:. "FEIGLING!":.|
00000800: 00 06 10 52 08 80 00 0C 10 98 08 99 00 39 10 A2 |...R.........9..|
00000810: 08 99 20 22 44 41 53 20 49 53 54 20 49 48 52 20 |.. "DAS IST IHR |
00000820: 4C 49 4D 49 54 20 56 4F 4E 22 3B 4C 3B 22 56 45 |LIMIT VON";L;"VE|
00000830: 52 53 55 43 48 45 4E 2E 22 00 3F 10 AC 08 99 00 |RSUCHEN.".?.....|
00000840: 5A 10 B6 08 99 20 22 4D 45 49 4E 45 20 5A 41 48 |Z.... "MEINE ZAH|
00000850: 4C 20 57 41 52 20 22 3B 43 24 00 65 10 C0 08 89 |L WAR ";C$.e....|
00000860: 20 32 30 38 30 00 00 00 | 2080... |
....D..: DECODE.@.N..: FINDE DEN GEHEIMC
ODE DES COMPUTERS HERAUS.N.O..: COPYRIGH
T 1983 TOM RUGG, PHIL FELDMANN...P..: UN
D WESTERN SYSTEMS GROUP. .X.D.6:P.4:L.12
......G$(L),G(P),C(P),B(L),W(L).L...R..(
.TI).W.... 1200...... 300:. 370...... "V
ERSUCH NR.";G;...... A$...H.. H(A$,1)."Z
" . 500.7.R.. H(A$,1)."E" . 600.A.... 70
0.K.... 800.V.... 1000.J.... B(G).P . 20
00.W...G$(G).A$.....G.G.1:. G.L . 2200..
.... 180...,.G.1:C$.""...6.....R.. J.1 .
P.L.|.R..(D..(1)).1.....C$.C$.J(D(R),2,
1)...... J...... "ICH HABE MEINE GEHEIMZ
AHL.".............D.... G.1 . . "NOCH NI
CHTS GERATEN.":. 180.J.... G(147);.10);"
ZUSAMMENFASSUNG":....... "NR. TIP S
CHWARZ WEISS". ....:. J.1 . G.1.F.... J
;.7);G$(J);.16);B(J);.24);W(J).U.&.. G.1
0 . ....0..:....:.. 180...X.....B.. "KLA
PPT WOHL NICHT, WAS?".'.L..:. "MEINE ZAH
L WAR";.5.V.. J.1 . 4.A.... " .";.S....
K.1 . 900:..[.... J.F.... C$:..Q.... 209
0...... C(A$)..P . 780...F.. J.1 . P...P
.R.E(J(A$,J,1))...Z.. R.1 . R.D . 780.C.
....I.......... "ILLEGAL VERSUCHEN SIE
'S NOCHMAL."...... 180... .B.0:W.0...*..
J.1 . P...4.G(J).E(J(A$,J,1)).D.>.C(J).
E(J(C$,J,1)).J.H.. G(J).C(J) . B.B.1:G(J
).0:C(J).0.P.R.....\.. J.1 . P:. C(J).0
. 920...F.H.0:. K.1 . P...P.. C(J).0 . 9
10.I.Z.. C(J)..G(K) . 910.....H.1:G(K).0
:C(J).0...... K:W.W.H...... J...........
B(G).B:W(G).W:..3.... "VERSUCH";G;"-- SC
HWARZ =";B;.G.... " WEISS =";W.O....:..
\.... G(147).}.... .3);"**** DEKODIEREN
****"...D..:....N.. "RATEN SIE EINE";P;"
-STELLIGE ZAHL"...X...U.... "MIT DEN ZIF
FERN 1 BIS";D......:....... "'SCHWARZ' H
EISST, RICHTIGE ZIFFER".,....:. "IN DER
RICHTIGEN POSITION.".2.....Z.... "'WEISS
' HEISST, RICHTIGE ZIFFER".`.......(.. "
ABER IN DER FALSCHEN POSITION."...2..:..
..<.....P...K.Z.. "SIE HABEN'S IN";G;"VE
RSUCHEN GESCHAFFT."...... G.5 . B$."AUSG
EZEICHNET!"...... G.5 . G.6 . B$."RECHT
GUT!"...... G.7 . B$."NICHT SCHLECHT!".R
.... G.8 . B$."NICHT UEBERRAGEND!".R....
G.8 . B$."RECHT MAESSIG!"......:. "...D
AS WAR ";B$... .....*.. "WOLLEN SIE'S NO
CHMAL WAGEN ";A$.P.4.. H(A$,1)."J" . 150
...>.. H(A$,1).."N" . 2090...H..:. "FEIG
LING!":....R.........9.... "DAS IST IHR
LIMIT VON";L;"VERSUCHEN.".?.....Z.... "M
EINE ZAHL WAR ";C$.E.... 2080...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL