00000000: 01 1C 2B 1C 0A 00 8F 20 47 45 4F 53 20 44 49 53 |..+.... GEOS DIS|
00000010: 4B 20 50 52 4F 54 45 43 54 4F 52 2C 20 36 34 2F |K PROTECTOR, 64/|
00000020: 31 32 38 20 56 45 52 53 49 4F 4E 00 31 1C 14 00 |128 VERSION.1...|
00000030: 3A 00 3C 1C 1E 00 99 20 22 93 22 3B 00 52 1C 28 |:.<.... ".";.R.(|
00000040: 00 8B 20 C2 28 36 35 32 38 30 29 B3 B1 30 A7 31 |.. .(65280)..0.1|
00000050: 30 30 00 74 1C 29 00 81 20 49 B2 34 30 39 36 A4 |00.t.).. I.4096.|
00000060: 34 33 35 32 3A 97 20 49 AA 32 30 34 38 2C C2 28 |4352:. I.2048,.(|
00000070: 49 29 3A 82 00 A4 1C 32 00 4A B2 31 33 32 3A 81 |I):....2.J.132:.|
00000080: 20 41 B2 31 A4 32 3A 81 20 4B B2 41 20 A4 38 A9 | A.1.2:. K.A .8.|
00000090: 32 3A 4A B2 4A AA 31 3A F9 20 4B 2C C7 28 4A 29 |2:J.J.1:. K,.(J)|
000000A0: 3A 82 3A 82 00 B7 1C 3C 00 8B 20 C2 28 32 31 35 |:.:....<.. .(215|
000000B0: 29 B2 30 A7 31 30 30 00 BE 1C 3D 00 FE 25 00 C8 |).0.100...=..%..|
000000C0: 1C 46 00 E7 36 2C 31 36 00 DB 1C 50 00 FE 1A 31 |.F..6,16...P...1|
000000D0: 39 2C 30 2C 35 39 2C 32 34 2C 31 00 E1 1C 5A 00 |9,0,59,24,1...Z.|
000000E0: 3A 00 F8 1C 64 00 97 35 33 32 38 30 2C 36 3A 97 |:...d..53280,6:.|
000000F0: 35 33 32 38 31 2C 31 35 00 05 1D 6E 00 99 20 22 |53281,15...n.. "|
00000100: 93 0E 08 22 3B 00 38 1D 78 00 99 20 22 1F 12 20 |...";.8.x.. ".. |
00000110: 20 20 20 20 20 20 20 20 20 20 C7 C5 CF D3 20 C4 | .... .|
00000120: 49 53 4B 20 D0 52 4F 54 45 43 54 4F 52 20 20 20 |ISK .ROTECTOR |
00000130: 20 20 20 20 20 20 20 22 00 61 1D 82 00 99 A3 35 | ".a.....5|
00000140: 29 22 11 D6 45 52 53 49 4F 4E 20 31 2E 30 2C 20 |)"..ERSION 1.0, |
00000150: C4 45 43 45 4D 42 45 52 20 20 35 2C 20 31 39 38 |.ECEMBER 5, 198|
00000160: 37 00 8A 1D 8C 00 99 A3 35 29 22 11 41 4E 4F 54 |7.......5)".ANOT|
00000170: 48 45 52 20 46 49 4E 45 20 C7 C5 CF D3 20 55 54 |HER FINE .... UT|
00000180: 49 4C 49 54 59 20 46 52 4F 4D 00 A5 1D 96 00 99 |ILITY FROM......|
00000190: A3 31 32 29 22 D2 41 4E 44 59 20 D7 49 4E 43 48 |.12)".ANDY .INCH|
000001A0: 45 53 54 45 52 00 D2 1D A0 00 99 A3 33 29 22 11 |ESTER.......3)".|
000001B0: C3 4F 50 59 52 49 47 48 54 20 31 39 38 37 20 42 |.OPYRIGHT 1987 B|
000001C0: 59 20 D2 41 4E 44 59 20 D7 49 4E 43 48 45 53 54 |Y .ANDY .INCHEST|
000001D0: 45 52 00 F0 1D AA 00 99 A3 31 30 29 22 C1 4C 4C |ER.......10)".LL|
000001E0: 20 D2 49 47 48 54 53 20 D2 45 53 45 52 56 45 44 | .IGHTS .ESERVED|
000001F0: 00 23 1E B4 00 99 20 22 11 C0 C0 C0 C0 C0 C0 C0 |.#.... "........|
00000200: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000210: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000220: C0 22 3B 00 3B 1E BE 00 99 3A 99 A3 31 35 29 22 |.";.;....:..15)"|
00000230: 1C 12 CD 41 49 4E 20 CD 45 4E 55 00 5B 1E C8 00 |...AIN .ENU.[...|
00000240: 99 A3 31 30 29 22 11 12 46 20 31 92 20 2D 20 C9 |..10)"..F 1. - .|
00000250: 4E 53 54 52 55 43 54 49 4F 4E 53 00 7B 1E D2 00 |NSTRUCTIONS.{...|
00000260: 99 A3 31 30 29 22 11 12 46 20 33 92 20 2D 20 D0 |..10)"..F 3. - .|
00000270: 52 4F 54 45 43 54 20 C4 49 53 4B 00 9D 1E DC 00 |ROTECT .ISK.....|
00000280: 99 A3 31 30 29 22 11 12 46 20 34 92 20 2D 20 D5 |..10)"..F 4. - .|
00000290: 4E 50 52 4F 54 45 43 54 20 C4 49 53 4B 00 BE 1E |NPROTECT .ISK...|
000002A0: E6 00 99 A3 31 30 29 22 11 12 46 20 35 92 20 2D |....10)"..F 5. -|
000002B0: 20 D1 55 49 54 20 54 4F 20 C2 C1 D3 C9 C3 00 DD | .UIT TO .......|
000002C0: 1E F0 00 99 A3 31 30 29 22 11 12 46 20 37 92 20 |.....10)"..F 7. |
000002D0: 2D 20 D2 45 42 4F 4F 54 20 C7 C5 CF D3 00 F2 1E |- .EBOOT .......|
000002E0: FA 00 A1 20 41 24 3A 8B 20 41 24 B2 22 22 A7 32 |... A$:. A$."".2|
000002F0: 35 30 00 04 1F 04 01 8B 20 41 24 B2 22 85 22 20 |50...... A$."." |
00000300: A7 35 32 30 00 30 1F 0E 01 8B 20 41 24 B2 22 86 |.520.0.... A$.".|
00000310: 22 20 A7 20 4D 24 B2 22 20 20 D0 52 4F 54 45 43 |" . M$." .ROTEC|
00000320: 54 22 3A 50 24 B2 C7 28 38 30 29 3A 89 33 32 30 |T":P$..(80):.320|
00000330: 00 5B 1F 18 01 8B 20 41 24 B2 22 8A 22 20 A7 20 |.[.... A$."." . |
00000340: 4D 24 B2 22 C4 45 50 52 4F 54 45 43 54 22 3A 50 |M$.".EPROTECT":P|
00000350: 24 B2 C7 28 30 29 3A 89 33 32 30 00 6D 1F 22 01 |$..(0):.320.m.".|
00000360: 8B 20 41 24 B2 22 87 22 20 A7 37 31 30 00 7F 1F |. A$."." .710...|
00000370: 2C 01 8B 20 41 24 B2 22 88 22 20 A7 34 36 30 00 |,.. A$."." .460.|
00000380: 88 1F 36 01 89 32 35 30 00 93 1F 40 01 99 20 22 |..6..250...@.. "|
00000390: 93 22 3B 00 C6 1F 4A 01 99 20 22 1F 12 20 20 20 |.";...J.. ".. |
000003A0: 20 20 20 20 20 20 20 20 C7 C5 CF D3 20 C4 49 53 | .... .IS|
000003B0: 4B 20 D0 52 4F 54 45 43 54 4F 52 20 20 20 20 20 |K .ROTECTOR |
000003C0: 20 20 20 20 20 22 00 DF 1F 54 01 99 A3 31 32 29 | "...T...12)|
000003D0: 22 11 11 1C 12 CD 4F 44 45 3A 20 20 22 4D 24 00 |".....ODE: "M$.|
000003E0: 10 20 5E 01 99 20 22 11 20 12 D0 4C 41 43 45 20 |. ^.. ". ..LACE |
000003F0: 44 49 53 4B 20 49 4E 20 C4 52 49 56 45 20 C1 2E |DISK IN .RIVE ..|
00000400: 20 20 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 2E | .RESS ANY KEY.|
00000410: 00 25 20 68 01 A1 20 41 24 3A 8B 20 41 24 B2 22 |.% h.. A$:. A$."|
00000420: 22 A7 33 36 30 00 40 20 72 01 99 A3 31 33 29 22 |".360.@ r...13)"|
00000430: 11 12 D7 4F 52 4B 49 4E 47 20 2E 20 2E 20 2E 22 |...ORKING . . ."|
00000440: 00 52 20 7C 01 9F 31 35 2C 38 2C 31 35 2C 22 49 |.R |..15,8,15,"I|
00000450: 30 22 00 61 20 86 01 9F 32 2C 38 2C 32 2C 22 23 |0".a ...2,8,2,"#|
00000460: 22 00 77 20 90 01 98 31 35 2C 22 55 31 22 3B 32 |".w ...15,"U1";2|
00000470: 3B 30 3B 31 38 3B 30 00 8B 20 9A 01 98 31 35 2C |;0;18;0.. ...15,|
00000480: 22 42 2D 50 22 3B 32 3B 31 38 39 00 96 20 A4 01 |"B-P";2;189.. ..|
00000490: 98 32 2C 50 24 3B 00 AC 20 AE 01 98 31 35 2C 22 |.2,P$;.. ...15,"|
000004A0: 55 32 22 3B 32 3B 30 3B 31 38 3B 30 00 B7 20 B8 |U2";2;0;18;0.. .|
000004B0: 01 A0 32 3A A0 31 35 00 C0 20 C2 01 89 31 31 30 |..2:.15.. ...110|
000004C0: 00 CB 20 CC 01 99 20 22 93 22 3B 00 FE 20 D6 01 |.. ... ".";.. ..|
000004D0: 99 20 22 1F 12 20 20 20 20 20 20 20 20 20 20 20 |. ".. |
000004E0: C7 C5 CF D3 20 C4 49 53 4B 20 D0 52 4F 54 45 43 |.... .ISK .ROTEC|
000004F0: 54 4F 52 20 20 20 20 20 20 20 20 20 20 22 00 2C |TOR ".,|
00000500: 21 E0 01 99 A3 34 29 22 11 1C 12 D0 4C 41 43 45 |!....4)"....LACE|
00000510: 20 C7 C5 CF D3 20 42 4F 4F 54 20 44 49 53 4B 20 | .... BOOT DISK |
00000520: 49 4E 20 C4 52 49 56 45 20 C1 2E 22 00 58 21 EA |IN .RIVE ..".X!.|
00000530: 01 99 A3 34 29 22 12 20 20 20 20 20 20 20 20 20 |...4)". |
00000540: 20 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 2E 20 | .RESS ANY KEY. |
00000550: 20 20 20 20 20 20 20 22 00 6D 21 F4 01 A1 20 41 | ".m!... A|
00000560: 24 3A 8B 20 41 24 B2 22 22 A7 35 30 30 00 7E 21 |$:. A$."".500.~!|
00000570: FE 01 9E 34 39 31 35 32 3A FE 26 3A FE 1B 00 89 |...49152:.&:....|
00000580: 21 08 02 99 20 22 93 22 3B 00 BC 21 12 02 99 20 |!... ".";..!... |
00000590: 22 1F 12 20 20 20 20 20 20 20 20 20 20 20 C7 C5 |".. ..|
000005A0: CF D3 20 C4 49 53 4B 20 D0 52 4F 54 45 43 54 4F |.. .ISK .ROTECTO|
000005B0: 52 20 20 20 20 20 20 20 20 20 20 22 00 EA 21 1C |R "..!.|
000005C0: 02 99 20 22 11 D4 48 49 53 20 50 52 4F 47 52 41 |.. "..HIS PROGRA|
000005D0: 4D 20 57 49 4C 4C 20 50 52 4F 54 45 43 54 20 41 |M WILL PROTECT A|
000005E0: 20 C7 C5 CF D3 20 44 49 53 4B 00 14 22 26 02 99 | .... DISK.."&..|
000005F0: 20 22 49 4E 20 53 55 43 48 20 41 20 57 41 59 20 | "IN SUCH A WAY |
00000600: 54 48 41 54 20 46 49 4C 45 53 20 43 41 4E 4E 4F |THAT FILES CANNO|
00000610: 54 20 42 45 00 41 22 30 02 99 20 22 53 43 52 41 |T BE.A"0.. "SCRA|
00000620: 54 43 48 45 44 20 46 52 4F 4D 20 54 48 45 20 C7 |TCHED FROM THE .|
00000630: C5 CF D3 20 44 45 53 4B D4 4F 50 2E 20 20 D4 48 |... DESK.OP. .H|
00000640: 45 00 6F 22 3A 02 99 20 22 44 45 53 4B D4 4F 50 |E.o":.. "DESK.OP|
00000650: 20 57 49 4C 4C 20 41 4C 53 4F 20 52 45 46 55 53 | WILL ALSO REFUS|
00000660: 45 20 54 4F 20 46 4F 52 4D 41 54 20 54 48 45 00 |E TO FORMAT THE.|
00000670: 7C 22 44 02 99 20 22 44 49 53 4B 2E 00 A9 22 4E ||"D.. "DISK..."N|
00000680: 02 99 20 22 11 D4 48 49 53 20 49 53 20 55 53 45 |.. "..HIS IS USE|
00000690: 46 55 4C 20 46 4F 52 20 50 52 4F 54 45 43 54 49 |FUL FOR PROTECTI|
000006A0: 4E 47 20 41 20 44 49 53 4B 00 DB 22 58 02 99 20 |NG A DISK.."X.. |
000006B0: 22 46 52 4F 4D 20 46 4F 52 4D 41 54 54 49 4E 47 |"FROM FORMATTING|
000006C0: 20 4F 52 20 41 43 43 49 44 45 4E 54 41 4C 20 53 | OR ACCIDENTAL S|
000006D0: 43 52 41 54 43 48 49 4E 47 22 3B 00 EC 22 62 02 |CRATCHING";.."b.|
000006E0: 99 20 22 4F 46 20 46 49 4C 45 53 2E 00 19 23 6C |. "OF FILES...#l|
000006F0: 02 99 20 22 11 C6 49 4C 45 53 20 43 41 4E 20 53 |.. "..ILES CAN S|
00000700: 54 49 4C 4C 20 42 45 20 53 43 52 41 54 43 48 45 |TILL BE SCRATCHE|
00000710: 44 20 49 46 20 54 48 45 59 00 47 23 76 02 99 20 |D IF THEY.G#v.. |
00000720: 22 41 52 45 20 46 49 52 53 54 20 4D 4F 56 45 44 |"ARE FIRST MOVED|
00000730: 20 54 4F 20 54 48 45 20 4C 4F 57 45 52 20 42 4F | TO THE LOWER BO|
00000740: 52 44 45 52 20 4F 46 00 5B 23 80 02 99 20 22 54 |RDER OF.[#... "T|
00000750: 48 45 20 44 45 53 4B D4 4F 50 2E 00 89 23 8A 02 |HE DESK.OP...#..|
00000760: 99 20 22 11 D4 48 45 20 44 49 53 4B 20 43 41 4E |. "..HE DISK CAN|
00000770: 20 42 45 20 52 45 54 55 52 4E 45 44 20 54 4F 20 | BE RETURNED TO |
00000780: 4E 4F 52 4D 41 4C 20 42 59 00 B6 23 94 02 99 20 |NORMAL BY..#... |
00000790: 22 52 55 4E 4E 49 4E 47 20 54 48 45 20 50 52 4F |"RUNNING THE PRO|
000007A0: 47 52 41 4D 20 41 4E 44 20 53 45 4C 45 43 54 49 |GRAM AND SELECTI|
000007B0: 4E 47 20 54 48 45 00 E1 23 9E 02 99 20 22 C4 45 |NG THE..#... ".E|
000007C0: 50 52 4F 54 45 43 54 20 4F 50 54 49 4F 4E 20 42 |PROTECT OPTION B|
000007D0: 59 20 50 52 45 53 53 49 4E 47 20 12 46 20 34 92 |Y PRESSING .F 4.|
000007E0: 2E 00 12 24 A8 02 99 A3 34 29 22 11 11 11 11 1C |...$....4)".....|
000007F0: 12 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |..RESS ANY KEY T|
00000800: 4F 20 43 4F 4E 54 49 4E 55 45 20 2E 20 2E 20 2E |O CONTINUE . . .|
00000810: 22 3B 00 27 24 B2 02 A1 20 41 24 3A 8B 20 41 24 |";.'$... A$:. A$|
00000820: B2 22 22 A7 36 39 30 00 30 24 BC 02 89 31 31 30 |."".690.0$...110|
00000830: 00 46 24 C6 02 8B 20 C2 28 36 35 32 38 30 29 B3 |.F$... .(65280).|
00000840: B1 30 A7 37 33 30 00 68 24 D0 02 81 20 49 B2 34 |.0.730.h$... I.4|
00000850: 30 39 36 A4 34 33 35 32 3A 97 20 49 2C C2 28 49 |096.4352:. I,.(I|
00000860: AA 32 30 34 38 29 3A 82 00 88 24 DA 02 99 20 22 |.2048):...$... "|
00000870: 93 D4 59 50 45 20 D2 D5 CE 20 54 4F 20 52 45 53 |..YPE ... TO RES|
00000880: 54 41 52 54 2E 22 3A 80 00 00 00 |TART.":.... |
..+.... GEOS DISK PROTECTOR, 64/128 VERS
ION.1...:.<.... ".";.R.(.. B(65280)..0.1
00.T.).. I.4096.4352:. I.2048,B(I):....2
.J.132:. A.1.2:. K.A .8.2:J.J.1:. K,G(J)
:.:....<.. B(215).0.100...=..%.H.F..6,16
...P...19,0,59,24,1...Z.:...D..53280,6:.
53281,15...N.. "...";.8.X.. "..
GEOS DISK PROTECTOR ".A.....5
)".VERSION 1.0, DECEMBER 5, 1987.......
5)".ANOTHER FINE GEOS UTILITY FROM......
.12)"RANDY WINCHESTER.R. ...3)".COPYRIGH
T 1987 BY RANDY WINCHESTER.......10)"ALL
RIGHTS RESERVED.#.... "................
.........................";.;....:..15)"
..MAIN MENU.[.H...10)"..F 1. - INSTRUCTI
ONS.{.R...10)"..F 3. - PROTECT DISK.....
..10)"..F 4. - UNPROTECT DISK.......10)"
..F 5. - QUIT TO BASIC.......10)"..F 7.
- REBOOT GEOS...... A$:. A$."".250......
A$."." .520.0.... A$."." . M$." PROTEC
T":P$.G(80):.320.[.... A$."." . M$."DEPR
OTECT":P$.G(0):.320.M.".. A$."." .710..
,.. A$."." .460...6..250...@.. ".";.F.J.
. ".. GEOS DISK PROTECTOR
"...T...12)"....MODE: "M$.. ^.. ".
.PLACE DISK IN DRIVE A. PRESS ANY KEY.
.% H.. A$:. A$."".360.@ R...13)"..WORKIN
G . . .".R |..15,8,15,"I0".A ...2,8,2,"#
".W ...15,"U1";2;0;18;0.. ...15,"B-P";2;
189.. ...2,P$;.. ...15,"U2";2;0;18;0.. .
. 2: 15.. B..110.K L.. ".";.. V.. "..
GEOS DISK PROTECTOR ".,
!....4)"...PLACE GEOS BOOT DISK IN DRIVE
A.".X!....4)". PRESS ANY KEY.
".M!... A$:. A$."".500.~!...49152
:.&:....!... ".";..!... ".. GE
OS DISK PROTECTOR "..!... ".THI
S PROGRAM WILL PROTECT A GEOS DISK.."&..
"IN SUCH A WAY THAT FILES CANNOT BE.A"0
.. "SCRATCHED FROM THE GEOS DESKTOP. TH
E.O":.. "DESKTOP WILL ALSO REFUSE TO FOR
MAT THE.|"D.. "DISK..."N.. ".THIS IS USE
FUL FOR PROTECTING A DISK.."X.. "FROM FO
RMATTING OR ACCIDENTAL SCRATCHING";.."B.
. "OF FILES...#L.. ".FILES CAN STILL BE
SCRATCHED IF THEY.G#V.. "ARE FIRST MOVED
TO THE LOWER BORDER OF.[#... "THE DESKT
OP...#... ".THE DISK CAN BE RETURNED TO
NORMAL BY..#... "RUNNING THE PROGRAM AND
SELECTING THE..#... "DEPROTECT OPTION B
Y PRESSING .F 4....$....4)"......PRESS A
NY KEY TO CONTINUE . . .";.'$... A$:. A$
."".690.0$...110.F$F.. B(65280)..0.730.H
$P.. I.4096.4352:. I,B(I.2048):...$Z.. "
.TYPE RUN TO RESTART.":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL