> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 05 00 97 38 30 38 2C 32 33 34 00 2C |.......808,234.,|
00000010: 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |....53280,0:.532|
00000020: 38 31 2C 30 3A 97 35 36 2C 32 30 37 00 57 08 14 |81,0:.56,207.W..|
00000030: 00 99 22 93 9F 20 20 20 20 20 20 20 2A 2A 2A 20 |..".. *** |
00000040: 54 48 45 20 44 49 53 4B 20 50 52 4F 54 45 43 54 |THE DISK PROTECT|
00000050: 4F 52 20 2A 2A 2A 22 00 85 08 1E 00 99 22 11 1D |OR ***"......"..|
00000060: 1D 9E 20 20 43 4F 50 59 52 49 47 48 54 20 28 43 |.. COPYRIGHT (C|
00000070: 29 20 31 39 38 36 20 48 45 41 52 54 20 43 4F 4D |) 1986 HEART COM|
00000080: 50 41 4E 59 22 00 A3 08 28 00 99 22 11 11 11 1D |PANY"...(.."....|
00000090: 1D 9B 12 20 31 20 92 20 20 44 49 52 45 43 54 4F |... 1 . DIRECTO|
000000A0: 52 59 22 00 C5 08 32 00 99 22 11 1D 1D 12 20 32 |RY"...2..".... 2|
000000B0: 20 92 20 20 50 52 4F 54 45 43 54 20 44 49 53 4B | . PROTECT DISK|
000000C0: 45 54 54 45 22 00 E9 08 3C 00 99 22 11 1D 1D 12 |ETTE"...<.."....|
000000D0: 20 33 20 92 20 20 44 45 50 52 4F 54 45 43 54 20 | 3 . DEPROTECT |
000000E0: 44 49 53 4B 45 54 54 45 22 00 12 09 41 00 99 22 |DISKETTE"...A.."|
000000F0: 11 1D 1D 12 20 34 20 92 20 20 43 48 41 4E 47 45 |.... 4 . CHANGE|
00000100: 20 4E 41 4D 45 2F 49 44 20 28 50 52 45 53 45 54 | NAME/ID (PRESET|
00000110: 29 22 00 32 09 43 00 99 22 11 1D 1D 12 20 35 20 |)".2.C..".... 5 |
00000120: 92 20 20 43 48 41 4E 47 45 20 4E 41 4D 45 2F 49 |. CHANGE NAME/I|
00000130: 44 22 00 51 09 46 00 99 22 11 11 1D 1D 9A 45 4E |D".Q.F..".....EN|
00000140: 54 45 52 20 59 4F 55 52 20 43 48 4F 49 43 45 2E |TER YOUR CHOICE.|
00000150: 22 00 6B 09 50 00 A1 41 24 3A 8B 41 24 B3 22 31 |".k.P..A$:.A$."1|
00000160: 22 B0 41 24 B1 22 35 22 A7 38 30 00 96 09 5A 00 |".A$."5".80...Z.|
00000170: 99 22 91 05 22 A3 32 31 29 41 24 3A 91 C5 28 41 |."..".21)A$:..(A|
00000180: 24 29 89 34 30 30 2C 31 30 30 2C 33 30 30 2C 32 |$).400,100,300,2|
00000190: 30 30 2C 35 30 30 00 B3 09 64 00 9F 31 35 2C 38 |00,500...d..15,8|
000001A0: 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 2C |,15,"I0":.2,8,2,|
000001B0: 22 23 22 00 CF 09 6E 00 98 31 35 2C 22 55 31 3A |"#"...n..15,"U1:|
000001C0: 22 3B 32 3B 30 3B 31 38 3B 30 3A 8D 36 30 30 00 |";2;0;18;0:.600.|
000001D0: E2 09 78 00 98 31 35 2C 22 42 2D 50 3A 22 3B 32 |..x..15,"B-P:";2|
000001E0: 3B 32 00 EF 09 82 00 98 32 2C C7 28 37 37 29 00 |;2......2,.(77).|
000001F0: 0B 0A 8C 00 98 31 35 2C 22 55 32 3A 22 3B 32 3B |.....15,"U2:";2;|
00000200: 30 3B 31 38 3B 30 3A 8D 36 30 30 00 18 0A 96 00 |0;18;0:.600.....|
00000210: A0 32 3A A0 31 35 3A 8A 00 35 0A C8 00 9F 31 35 |.2:.15:..5....15|
00000220: 2C 38 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 2C |,8,15,"I0":.2,8,|
00000230: 32 2C 22 23 22 00 51 0A D2 00 98 31 35 2C 22 55 |2,"#".Q....15,"U|
00000240: 31 3A 22 3B 32 3B 30 3B 31 38 3B 30 3A 8D 36 30 |1:";2;0;18;0:.60|
00000250: 30 00 78 0A DC 00 4E 44 24 B2 22 48 45 41 52 54 |0.x...ND$."HEART|
00000260: 20 43 4F 4D 50 41 4E 59 20 20 20 22 3A 4E 49 24 | COMPANY ":NI$|
00000270: B2 22 28 43 29 38 36 22 00 94 0A E6 00 98 31 35 |."(C)86"......15|
00000280: 2C 22 42 2D 50 3A 22 3B 32 3B 31 34 34 3A 98 32 |,"B-P:";2;144:.2|
00000290: 2C 4E 44 24 00 B0 0A F0 00 98 31 35 2C 22 42 2D |,ND$......15,"B-|
000002A0: 50 3A 22 3B 32 3B 31 36 32 3A 98 32 2C 4E 49 24 |P:";2;162:.2,NI$|
000002B0: 00 CC 0A FA 00 98 31 35 2C 22 55 32 3A 22 3B 32 |......15,"U2:";2|
000002C0: 3B 30 3B 31 38 3B 30 3A 8D 36 30 30 00 E2 0A 04 |;0;18;0:.600....|
000002D0: 01 98 31 35 2C 22 49 30 22 3A A0 32 3A A0 31 35 |..15,"I0":.2:.15|
000002E0: 3A 8A 00 FF 0A 2C 01 9F 31 35 2C 38 2C 31 35 2C |:....,..15,8,15,|
000002F0: 22 49 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 00 |"I0":.2,8,2,"#".|
00000300: 16 0B 36 01 98 31 35 2C 22 55 31 3A 22 3B 32 3B |..6..15,"U1:";2;|
00000310: 30 3B 31 38 3B 30 00 29 0B 40 01 98 31 35 2C 22 |0;18;0.).@..15,"|
00000320: 42 2D 50 3A 22 3B 32 3B 32 00 36 0B 4A 01 98 32 |B-P:";2;2.6.J..2|
00000330: 2C C7 28 36 35 29 00 59 0B 54 01 98 31 35 2C 22 |,.(65).Y.T..15,"|
00000340: 4D 2D 57 22 3B C7 28 31 29 3B C7 28 31 29 3B C7 |M-W";.(1);.(1);.|
00000350: 28 31 29 3B C7 28 36 35 29 00 7C 0B 5E 01 98 31 |(1);.(65).|.^..1|
00000360: 35 2C 22 4D 2D 57 22 3B C7 28 32 29 3B C7 28 37 |5,"M-W";.(2);.(7|
00000370: 29 3B C7 28 31 29 3B C7 28 36 35 29 00 98 0B 68 |);.(1);.(65)...h|
00000380: 01 98 31 35 2C 22 55 32 3A 22 3B 32 3B 30 3B 31 |..15,"U2:";2;0;1|
00000390: 38 3B 30 3A 8D 36 30 30 00 A5 0B 72 01 A0 32 3A |8;0:.600...r..2:|
000003A0: A0 31 35 3A 8A 00 C3 0B 90 01 99 22 93 9F 22 3A |.15:......."..":|
000003B0: 9E 33 34 38 39 3A 9F 31 35 2C 38 2C 31 35 3A 8D |.3489:.15,8,15:.|
000003C0: 36 30 30 00 DA 0B 9A 01 A0 31 35 3A A1 44 24 3A |600......15:.D$:|
000003D0: 8B 44 24 B2 22 22 A7 34 31 30 00 E0 0B A4 01 8A |.D$."".410......|
000003E0: 00 FD 0B F4 01 85 22 11 11 1D 1D 1E 45 4E 54 45 |......".....ENTE|
000003F0: 52 20 4E 41 4D 45 3A 9B 20 22 3B 4E 24 00 18 0C |R NAME:. ";N$...|
00000400: F9 01 8B C3 28 4E 24 29 B1 31 36 A7 99 22 91 91 |....(N$).16.."..|
00000410: 91 91 22 3A 89 35 30 30 00 39 0C FB 01 4E 24 B2 |..":.500.9...N$.|
00000420: C8 28 4E 24 AA 22 20 20 20 20 20 20 20 20 20 20 |.(N$." |
00000430: 20 20 20 20 22 2C 31 36 29 00 5B 0C FE 01 85 22 | ",16).[...."|
00000440: 11 1D 1D 1E 45 4E 54 45 52 20 49 44 20 28 4D 41 |....ENTER ID (MA|
00000450: 58 20 35 29 3A 9B 20 22 3B 49 24 00 74 0C 03 02 |X 5):. ";I$.t...|
00000460: 8B C3 28 49 24 29 B1 35 A7 99 22 91 91 91 22 3A |..(I$).5.."...":|
00000470: 89 35 31 30 00 87 0C 05 02 49 24 B2 C8 28 49 24 |.510.....I$..(I$|
00000480: AA 22 20 22 2C 35 29 00 A4 0C 08 02 9F 31 35 2C |." ",5)......15,|
00000490: 38 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 |8,15,"I0":.2,8,2|
000004A0: 2C 22 23 22 00 C0 0C 12 02 98 31 35 2C 22 55 31 |,"#"......15,"U1|
000004B0: 3A 22 3B 32 3B 30 3B 31 38 3B 30 3A 8D 36 30 30 |:";2;0;18;0:.600|
000004C0: 00 DB 0C 1C 02 98 31 35 2C 22 42 2D 50 3A 22 3B |......15,"B-P:";|
000004D0: 32 3B 31 34 34 3A 98 32 2C 4E 24 00 F6 0C 26 02 |2;144:.2,N$...&.|
000004E0: 98 31 35 2C 22 42 2D 50 3A 22 3B 32 3B 31 36 32 |.15,"B-P:";2;162|
000004F0: 3A 98 32 2C 49 24 00 12 0D 30 02 98 31 35 2C 22 |:.2,I$...0..15,"|
00000500: 55 32 3A 22 3B 32 3B 30 3B 31 38 3B 30 3A 8D 36 |U2:";2;0;18;0:.6|
00000510: 30 30 00 28 0D 3A 02 98 31 35 2C 22 49 30 22 3A |00.(.:..15,"I0":|
00000520: A0 32 3A A0 31 35 3A 8A 00 40 0D 58 02 84 31 35 |.2:.15:..@.X..15|
00000530: 2C 46 31 24 2C 46 32 24 2C 46 33 24 2C 46 34 24 |,F1$,F2$,F3$,F4$|
00000540: 00 50 0D 62 02 8B 46 31 24 B2 22 30 30 22 A7 8E |.P.b..F1$."00"..|
00000550: 00 7D 0D 6C 02 99 22 11 11 1D 1D 9B 4E 52 3A 22 |.}.l..".....NR:"|
00000560: 3B 46 31 24 3B 22 2C 1C 20 22 3B 46 32 24 2C 22 |;F1$;",. ";F2$,"|
00000570: 9B 22 46 33 24 3B 22 2C 22 3B 46 34 24 00 90 0D |."F3$;",";F4$...|
00000580: 76 02 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 36 33 30 |v..Z$:.Z$."".630|
00000590: 00 9D 0D 80 02 A0 32 3A A0 31 35 3A 8A 00 00 00 |......2:.15:....|
.......808,234.,....53280,0:.53281,0:.56
,207.W....".. *** THE DISK PROTECT
OR ***"......".... COPYRIGHT (C) 1986 H
EART COMPANY"...(.."....... 1 . DIRECTO
RY".E.2..".... 2 . PROTECT DISKETTE"...
<..".... 3 . DEPROTECT DISKETTE"...A.."
.... 4 . CHANGE NAME/ID (PRESET)".2.C..
".... 5 . CHANGE NAME/ID".Q.F..".....EN
TER YOUR CHOICE.".K.P..A$:.A$."1".A$."5"
.80...Z.."..".21)A$:.E(A$).400,100,300,2
00,500...D..15,8,15,"I0":.2,8,2,"#".O.N.
.15,"U1:";2;0;18;0:.600...X..15,"B-P:";2
;2......2,G(77)......15,"U2:";2;0;18;0:.
600..... 2: 15:..5.H..15,8,15,"I0":.2,8,
2,"#".Q.R..15,"U1:";2;0;18;0:.600.X...ND
$."HEART COMPANY ":NI$."(C)86"......15
,"B-P:";2;144:.2,ND$......15,"B-P:";2;16
2:.2,NI$.L....15,"U2:";2;0;18;0:.600....
..15,"I0": 2: 15:....,..15,8,15,"I0":.2,
8,2,"#"...6..15,"U1:";2;0;18;0.).@..15,"
B-P:";2;2.6.J..2,G(65).Y.T..15,"M-W";G(1
);G(1);G(1);G(65).|.^..15,"M-W";G(2);G(7
);G(1);G(65)...H..15,"U2:";2;0;18;0:.600
...R. 2: 15:..C...."..":.3489:.15,8,15:.
600.Z... 15:.D$:.D$."".410............".
....ENTER NAME:. ";N$......C(N$).16.."..
..":.500.9...N$.H(N$." ",16
).[...."....ENTER ID (MAX 5):. ";I$.T...
.C(I$).5.."...":.510.....I$.H(I$." ",5).
.....15,8,15,"I0":.2,8,2,"#"......15,"U1
:";2;0;18;0:.600......15,"B-P:";2;144:.2
,N$...&..15,"B-P:";2;162:.2,I$...0..15,"
U2:";2;0;18;0:.600.(.:..15,"I0": 2: 15:.
.@.X..15,F1$,F2$,F3$,F4$.P.B..F1$."00"..
.}.L..".....NR:";F1$;",. ";F2$,"."F3$;",
";F4$...V..Z$:.Z$."".630..... 2: 15:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL