> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 01 00 8F 20 41 43 43 45 53 53 20 43 |....... ACCESS C|
00000010: 4F 44 45 20 50 52 4F 47 52 41 4D 00 2E 08 02 00 |ODE PROGRAM.....|
00000020: 8F 20 4A 41 4E 55 41 52 59 20 31 39 38 36 00 43 |. JANUARY 1986.C|
00000030: 08 03 00 8F 20 44 41 4E 49 45 4C 20 41 20 53 4D |.... DANIEL A SM|
00000040: 49 54 48 00 55 08 04 00 44 B2 34 35 3A 97 38 30 |ITH.U...D.45:.80|
00000050: 38 2C 32 33 34 00 99 08 05 00 97 35 33 32 38 31 |8,234......53281|
00000060: 2C 36 3A 97 35 33 32 38 30 2C 36 3A 99 22 9B 93 |,6:.53280,6:."..|
00000070: 12 20 2D 2D 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 |. -- COMMODORE 6|
00000080: 34 20 44 49 53 4B 20 41 55 54 48 4F 52 49 5A 41 |4 DISK AUTHORIZA|
00000090: 54 49 4F 4E 20 2D 2D 20 22 00 C7 08 06 00 99 22 |TION -- "......"|
000000A0: 9B 11 20 2A 20 50 52 45 53 53 20 90 5C 9B 20 54 |.. * PRESS .\. T|
000000B0: 4F 20 45 4E 41 42 4C 45 20 50 52 49 56 41 43 59 |O ENABLE PRIVACY|
000000C0: 20 4D 4F 44 45 2E 22 00 F9 08 07 00 99 22 9B 11 | MODE."......"..|
000000D0: 20 2A 20 50 52 45 53 53 20 90 2F 9B 20 54 4F 20 | * PRESS ./. TO |
000000E0: 45 4E 54 45 52 20 41 20 4E 45 57 20 41 43 43 45 |ENTER A NEW ACCE|
000000F0: 53 53 20 43 4F 44 45 2E 22 00 23 09 08 00 99 22 |SS CODE.".#...."|
00000100: 1D 1D 1D 28 4E 4F 54 45 3A 20 50 52 45 56 49 4F |...(NOTE: PREVIO|
00000110: 55 53 20 43 4F 44 45 20 52 45 51 55 49 52 45 44 |US CODE REQUIRED|
00000120: 2E 29 22 00 37 09 0E 00 41 58 24 B2 22 54 48 45 |.)".7...AX$."THE|
00000130: 20 42 45 41 53 54 22 00 47 09 10 00 8B 41 58 24 | BEAST".G....AX$|
00000140: B2 22 22 A7 8D 33 30 00 63 09 11 00 99 22 11 11 |.""..30.c...."..|
00000150: 05 20 3E 20 41 43 43 45 53 53 20 43 4F 44 45 3A |. > ACCESS CODE:|
00000160: 20 22 3B 00 6B 09 12 00 8D 33 38 00 99 09 13 00 | ";.k....38.....|
00000170: 8B 49 24 B2 41 58 24 A7 99 A3 31 30 29 22 11 11 |.I$.AX$...10)"..|
00000180: 05 2D 50 41 53 53 57 4F 52 44 20 41 43 43 45 50 |.-PASSWORD ACCEP|
00000190: 54 45 44 2D 22 3A 89 32 37 00 B6 09 14 00 99 22 |TED-":.27......"|
000001A0: 11 49 4E 56 41 4C 49 44 20 41 43 43 45 53 53 20 |.INVALID ACCESS |
000001B0: 43 4F 44 45 2E 22 00 F2 09 15 00 8B 51 B3 31 A7 |CODE."......Q.1.|
000001C0: 51 B2 51 AA 31 3A 99 22 11 54 52 59 20 41 47 41 |Q.Q.1:.".TRY AGA|
000001D0: 49 4E 2E 22 3A 99 22 11 11 41 43 43 45 53 53 20 |IN.":."..ACCESS |
000001E0: 43 4F 44 45 3A 20 22 3B 3A 49 24 B2 22 22 3A 89 |CODE: ";:I$."":.|
000001F0: 31 38 00 09 0A 16 00 99 22 11 41 43 43 45 53 53 |18......".ACCESS|
00000200: 20 44 45 4E 49 45 44 2E 22 00 34 0A 17 00 99 22 | DENIED.".4...."|
00000210: 11 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |.THIS PROGRAM WI|
00000220: 4C 4C 20 53 45 4C 46 20 44 45 53 54 52 55 43 54 |LL SELF DESTRUCT|
00000230: 20 49 4E 22 00 4C 0A 18 00 99 22 11 46 49 56 45 | IN".L....".FIVE|
00000240: 20 53 45 43 4F 4E 44 53 2E 2E 2E 22 00 5D 0A 19 | SECONDS...".]..|
00000250: 00 81 54 B2 30 A4 31 35 30 30 3A 82 54 00 68 0A |..T.0.1500:.T.h.|
00000260: 1A 00 9E 36 34 37 33 38 00 99 0A 1B 00 81 54 B2 |...64738......T.|
00000270: 30 A4 31 32 35 30 3A 82 54 3A 99 22 93 11 11 11 |0.1250:.T:."....|
00000280: 1F 4C 4F 41 44 22 C7 28 33 34 29 22 49 30 22 C7 |.LOAD".(34)"I0".|
00000290: 28 33 34 29 22 2C 38 13 22 00 AF 0A 1C 00 97 31 |(34)",8."......1|
000002A0: 39 38 2C 31 3A 97 36 33 31 2C 31 33 31 3A A2 00 |98,1:.631,131:..|
000002B0: B5 0A 1D 00 80 00 E0 0A 1E 00 5A B2 31 3A 99 22 |..........Z.1:."|
000002C0: 93 11 11 9F 2D 20 4E 45 57 20 41 43 43 45 53 53 |....- NEW ACCESS|
000002D0: 20 43 4F 44 45 20 52 4F 55 54 49 4E 45 20 2D 22 | CODE ROUTINE -"|
000002E0: 00 EF 0A 1F 00 8B 41 58 24 B2 22 22 A7 33 35 00 |......AX$."".35.|
000002F0: 21 0B 20 00 99 22 11 11 11 05 50 52 45 56 49 4F |!. .."....PREVIO|
00000300: 55 53 20 41 43 43 45 53 53 20 43 4F 44 45 3A 20 |US ACCESS CODE: |
00000310: 22 3B 3A 8D 33 38 3A 8B 49 24 B2 41 58 24 A7 33 |";:.38:.I$.AX$.3|
00000320: 35 00 53 0B 21 00 8B 51 B2 30 A7 51 B2 31 3A 99 |5.S.!..Q.0.Q.1:.|
00000330: 22 11 49 4E 56 41 4C 49 44 20 43 4F 44 45 2E 22 |".INVALID CODE."|
00000340: 3A 99 22 11 54 52 59 20 41 47 41 49 4E 2E 22 3A |:.".TRY AGAIN.":|
00000350: 89 33 32 00 60 0B 22 00 90 3A 9E 36 34 37 33 38 |.32.`."..:.64738|
00000360: 00 82 0B 23 00 99 22 11 11 11 05 4E 45 57 20 41 |...#.."....NEW A|
00000370: 43 43 45 53 53 20 43 4F 44 45 3A 20 22 3B 3A 8D |CCESS CODE: ";:.|
00000380: 33 38 00 B5 0B 24 00 99 22 11 50 52 4F 43 45 53 |38...$..".PROCES|
00000390: 53 49 4E 47 20 4E 45 57 20 41 43 43 45 53 53 20 |SING NEW ACCESS |
000003A0: 43 4F 44 45 2E 2E 2E 22 3A 81 54 B2 30 A4 31 32 |CODE...":.T.0.12|
000003B0: 35 30 3A 82 54 00 BD 0B 25 00 89 35 32 00 C7 0B |50:.T...%..52...|
000003C0: 26 00 49 24 B2 22 22 00 E7 0B 27 00 99 22 AF 9D |&.I$.""...'.."..|
000003D0: 22 3B 3A 81 54 B2 30 A4 44 3A A1 41 24 3A 8B 41 |";:.T.0.D:.A$:.A|
000003E0: 24 B1 22 22 A7 34 32 00 0A 0C 28 00 82 54 3A 99 |$."".42...(..T:.|
000003F0: 22 20 9D 22 3B 3A 81 54 B2 30 A4 44 3A A1 41 24 |" .";:.T.0.D:.A$|
00000400: 3A 8B 41 24 B1 22 22 A7 34 32 00 15 0C 29 00 82 |:.A$."".42...)..|
00000410: 54 3A 89 33 39 00 43 0C 2A 00 8B 41 24 B2 C7 28 |T:.39.C.*..A$..(|
00000420: 32 30 29 AF 49 24 B1 22 22 A7 49 24 B2 C8 28 49 |20).I$."".I$..(I|
00000430: 24 2C C3 28 49 24 29 AB 31 29 3A 99 41 24 3B 3A |$,.(I$).1):.A$;:|
00000440: 89 33 39 00 54 0C 2B 00 8B 41 24 B2 C7 28 31 33 |.39.T.+..A$..(13|
00000450: 29 A7 35 31 00 6C 0C 2C 00 8B 41 24 B2 22 5E 22 |).51.l.,..A$."^"|
00000460: AF 5A B2 30 A7 8D 33 30 3A 9C 3A 8A 00 88 0C 2D |.Z.0..30:.:....-|
00000470: 00 8B 41 24 B2 22 5C 22 A7 46 B2 31 3A 99 22 9E |..A$."\".F.1:.".|
00000480: 22 41 24 3B 3A 89 33 39 00 9E 0C 2E 00 8B 41 24 |"A$;:.39......A$|
00000490: B1 22 5A 22 B0 41 24 B3 22 20 22 A7 33 39 00 AF |."Z".A$." ".39..|
000004A0: 0C 2F 00 8B 41 24 B2 C7 28 33 34 29 A7 33 39 00 |./..A$..(34).39.|
000004B0: C2 0C 30 00 8B 46 B2 31 A7 99 22 58 22 3B 3A 89 |..0..F.1.."X";:.|
000004C0: 35 30 00 CB 0C 31 00 99 41 24 3B 00 E5 0C 32 00 |50...1..A$;...2.|
000004D0: 49 24 B2 49 24 AA 41 24 3A 8B C3 28 49 24 29 B3 |I$.I$.A$:..(I$).|
000004E0: 31 36 A7 33 39 00 F1 0C 33 00 99 22 05 20 22 3A |16.39...3..". ":|
000004F0: 8E 00 1A 0D 34 00 97 38 30 38 2C 32 33 37 3A 99 |....4..808,237:.|
00000500: 22 93 1F 11 11 11 31 34 20 41 58 24 3D 22 C7 28 |".....14 AX$=".(|
00000510: 33 34 29 49 24 C7 28 33 34 29 00 42 0D 35 00 99 |34)I$.(34).B.5..|
00000520: 22 47 4F 54 4F 35 35 13 22 3A 97 31 39 38 2C 32 |"GOTO55.":.198,2|
00000530: 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 |:.631,13:.632,13|
00000540: 3A 80 00 64 0D 37 00 9F 31 35 2C 38 2C 31 35 2C |:..d.7..15,8,15,|
00000550: 22 53 30 3A 41 43 43 45 53 53 20 31 39 38 36 22 |"S0:ACCESS 1986"|
00000560: 3A A0 31 35 00 84 0D 38 00 99 22 93 11 11 11 11 |:.15...8..".....|
00000570: 52 55 4E 13 22 3A 97 31 39 38 2C 31 3A 97 36 33 |RUN.":.198,1:.63|
00000580: 31 2C 31 33 00 9B 0D 39 00 94 22 30 3A 41 43 43 |1,13...9.."0:ACC|
00000590: 45 53 53 20 31 39 38 36 22 2C 38 00 00 00 |ESS 1986",8... |
....... ACCESS CODE PROGRAM...... JANUAR
Y 1986.C.... DANIEL A SMITH.U...D.45:.80
8,234......53281,6:.53280,6:."... -- COM
MODORE 64 DISK AUTHORIZATION -- ".G...."
.. * PRESS .\. TO ENABLE PRIVACY MODE.".
.....".. * PRESS ./. TO ENTER A NEW ACCE
SS CODE.".#...."...(NOTE: PREVIOUS CODE
REQUIRED.)".7...AX$."THE BEAST".G....AX$
.""..30.C...."... > ACCESS CODE: ";.K...
.38......I$.AX$...10)"...-PASSWORD ACCEP
TED-":.27......".INVALID ACCESS CODE."..
....Q.1.Q.Q.1:.".TRY AGAIN.":."..ACCESS
CODE: ";:I$."":.18......".ACCESS DENIED.
".4....".THIS PROGRAM WILL SELF DESTRUCT
IN".L....".FIVE SECONDS...".]....T.0.15
00:.T.H....64738......T.0.1250:.T:."....
.LOAD"G(34)"I0"G(34)",8."......198,1:.63
1,131:............Z.1:."....- NEW ACCESS
CODE ROUTINE -"......AX$."".35.!. .."..
..PREVIOUS ACCESS CODE: ";:.38:.I$.AX$.3
5.S.!..Q.0.Q.1:.".INVALID CODE.":.".TRY
AGAIN.":.32.`."..:.64738...#.."....NEW A
CCESS CODE: ";:.38...$..".PROCESSING NEW
ACCESS CODE...":.T.0.1250:.T...%..52.G.
&.I$.""...'.."..";:.T.0.D:.A$:.A$."".42.
..(..T:." .";:.T.0.D:.A$:.A$."".42...)..
T:.39.C.*..A$.G(20).I$."".I$.H(I$,C(I$).
1):.A$;:.39.T.+..A$.G(13).51.L.,..A$."^"
.Z.0..30:.:....-..A$."\".F.1:."."A$;:.39
......A$."Z".A$." ".39.../..A$.G(34).39.
B.0..F.1.."X";:.50.K.1..A$;...2.I$.I$.A$
:.C(I$).16.39...3..". ":....4..808,237:.
".....14 AX$="G(34)I$G(34).B.5.."GOTO55.
":.198,2:.631,13:.632,13:..D.7..15,8,15,
"S0:ACCESS 1986": 15...8..".....RUN.":.1
98,1:.631,13...9.."0:ACCESS 1986",8...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL