_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

FILE PROTECTOR

FILE INFORMATION

FILENAME(S): FILE PROTECTOR

FILE TYPE(S): PRG

FILE SIZE: 4.1K

FIRST SEEN: 2025-11-30 21:05:28

APPEARS ON: 2 disk(s)

FILE HASH

503d7b76a71f0b25b0eda99154ab34f4c45c97b1246d498c62cddd27c0936eb9

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
DE BRUIN 12B FILE PROTECTOR PRG DuncanTwain 29 10 DOWNLOAD FILE
QST DE WB4ZOJ FILE PROTECTOR PRG DuncanTwain 29 10 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 13 08 05 00 99 22  93 22 3A 51 24 B2 C7 28  |.......".":Q$..(|
00000010: 31 33 29 00 61 08 0A 00  55 24 B2 22 12 20 20 20  |13).a...U$.".   |
00000020: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000030: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000040: 20 20 20 20 20 22 3A 4B  42 B2 31 39 38 3A 53 46  |     ":KB.198:SF|
00000050: B2 36 35 33 3A 4B 4C B2  32 30 33 3A 4E 53 B2 31  |.653:KL.203:NS.1|
00000060: 32 00 82 08 14 00 46 31  B2 34 3A 46 37 B2 33 3A  |2.....F1.4:F7.3:|
00000070: 97 35 33 32 38 31 2C 31  32 3A 97 35 33 32 38 30  |.53281,12:.53280|
00000080: 2C 36 00 92 08 32 00 8D  31 32 34 30 3A 89 31 30  |,6...2..1240:.10|
00000090: 38 30 00 AC 08 3C 00 98  31 35 2C 22 55 31 22 3B  |80...<..15,"U1";|
000000A0: 32 3B 30 3B 54 3B 53 3A  89 36 37 30 00 D4 08 46  |2;0;T;S:.670...F|
000000B0: 00 98 31 35 2C 22 42 2D  50 20 32 20 30 22 3A 98  |..15,"B-P 2 0":.|
000000C0: 31 35 2C 22 55 32 22 3B  32 3B 30 3B 54 3B 53 3A  |15,"U2";2;0;T;S:|
000000D0: 89 36 37 30 00 EC 08 50  00 54 B2 C2 28 36 38 31  |.670...P.T..(681|
000000E0: 29 3A 53 B2 C2 28 36 38  32 29 3A 8E 00 1B 09 64  |):S..(682):....d|
000000F0: 00 99 22 93 22 A6 4E 53  29 22 4C 4F 43 4B 20 41  |..".".NS)"LOCK A|
00000100: 4C 4C 20 46 49 4C 45 53  22 3A 99 55 24 3A 8D 36  |LL FILES":.U$:.6|
00000110: 36 30 3A 54 B2 31 38 3A  53 B2 31 00 27 09 6E 00  |60:T.18:S.1.'.n.|
00000120: 50 B2 32 3A 8D 36 30 00  55 09 78 00 A1 23 32 2C  |P.2:.60.U.x..#2,|
00000130: 41 24 3A 54 31 B2 C6 28  41 24 AA C7 28 30 29 29  |A$:T1..(A$..(0))|
00000140: 3A A1 23 32 2C 41 24 3A  53 31 B2 C6 28 41 24 AA  |:.#2,A$:S1..(A$.|
00000150: C7 28 30 29 29 00 73 09  82 00 81 49 B2 30 A4 37  |.(0)).s....I.0.7|
00000160: 3A 98 31 35 2C 22 42 2D  50 22 3B 32 3B 50 AA 33  |:.15,"B-P";2;P.3|
00000170: 32 AC 49 00 94 09 8C 00  A1 23 32 2C 41 24 3A 41  |2.I......#2,A$:A|
00000180: B2 C6 28 41 24 AA C7 28  30 29 29 3A 8B 41 B2 2E  |..(A$..(0)):.A..|
00000190: A7 31 37 30 00 A2 09 96  00 8B 41 AF 36 34 A7 31  |.170......A.64.1|
000001A0: 37 30 00 C5 09 A0 00 98  31 35 2C 22 42 2D 50 22  |70......15,"B-P"|
000001B0: 3B 32 3B 50 AA 33 32 AC  49 3A 98 32 2C C7 28 41  |;2;P.32.I:.2,.(A|
000001C0: B0 36 34 29 3B 00 D4 09  AA 00 82 3A 8D 37 30 3A  |.64);......:.70:|
000001D0: 8B 45 A7 8E 00 07 0A B4  00 99 22 54 52 41 43 4B  |.E........"TRACK|
000001E0: 22 54 22 53 45 43 54 4F  52 22 53 22 49 53 20 4C  |"T"SECTOR"S"IS L|
000001F0: 4F 43 4B 45 44 22 3A 54  B2 54 31 3A 53 B2 53 31  |OCKED":T.T1:S.S1|
00000200: 3A 8B 54 A7 31 31 30 00  17 0A BE 00 8D 37 33 30  |:.T.110......730|
00000210: 3A 8D 37 34 30 3A 8E 00  3F 0A D2 00 48 24 B2 C7  |:.740:..?...H$..|
00000220: 28 31 38 29 3A 99 22 93  12 48 4F 4C 44 20 5B 53  |(18):."..HOLD [S|
00000230: 48 49 46 54 5D 20 54 4F  20 50 41 55 53 45 11 00  |HIFT] TO PAUSE..|
00000240: 61 0A DC 00 8D 36 36 30  3A 98 31 35 2C 22 4D 2D  |a....660:.15,"M-|
00000250: 52 22 C7 28 31 34 34 29  C7 28 37 29 C7 28 32 33  |R".(144).(7).(23|
00000260: 29 00 9E 0A E6 00 81 49  B2 30 A4 32 32 3A A1 23  |)......I.0.22:.#|
00000270: 31 35 2C 41 24 3A 48 24  B2 48 24 AA 28 41 24 AA  |15,A$:H$.H$.(A$.|
00000280: C7 28 30 29 29 3A 82 3A  99 48 24 22 90 22 3A 97  |.(0)):.:.H$".":.|
00000290: 31 34 30 2C 31 3A 54 B2  31 38 3A 53 B2 31 00 BE  |140,1:T.18:S.1..|
000002A0: 0A F0 00 8D 36 30 3A 9E  38 32 38 3A 8D 38 30 3A  |....60:.828:.80:|
000002B0: 8B C2 28 53 46 29 A7 92  53 46 2C 31 2C 31 00 C9  |..(SF)..SF,1,1..|
000002C0: 0A FA 00 8B 54 A7 32 34  30 00 FE 0A 04 01 98 31  |....T.240......1|
000002D0: 35 2C 22 4D 2D 52 22 C7  28 32 35 30 29 C7 28 32  |5,"M-R".(250).(2|
000002E0: 29 3A A1 23 31 35 2C 4C  4F 24 3A 98 31 35 2C 22  |):.#15,LO$:.15,"|
000002F0: 4D 2D 52 22 C7 28 32 35  32 29 C7 28 32 29 00 35  |M-R".(252).(2).5|
00000300: 0B 0E 01 A1 23 31 35 2C  48 49 24 3A 99 C6 28 4C  |....#15,HI$:..(L|
00000310: 4F 24 AA C7 28 30 29 29  AA 32 35 36 AC C6 28 48  |O$..(0)).256..(H|
00000320: 49 24 AA C7 28 30 29 29  22 20 42 4C 4F 43 4B 53  |I$..(0))" BLOCKS|
00000330: 20 46 52 45 45 00 4C 0B  18 01 8D 37 33 30 3A 8D  | FREE.L....730:.|
00000340: 37 34 30 3A 97 31 34 30  2C 30 3A 8E 00 78 0B 2C  |740:.140,0:..x.,|
00000350: 01 99 22 11 5B 46 31 5D  20 45 58 49 54 20 20 20  |..".[F1] EXIT   |
00000360: 20 20 20 20 20 20 20 20  20 20 5B 46 37 5D 20 44  |          [F7] D|
00000370: 49 52 45 43 54 4F 52 59  00 9B 0B 36 01 99 22 11  |IRECTORY...6..".|
00000380: 46 49 4C 45 4E 41 4D 45  3F 20 22 43 55 24 3B 3A  |FILENAME? "CU$;:|
00000390: 97 4B 42 2C 30 3A 46 24  B2 22 22 00 BD 0B 40 01  |.KB,0:F$.""...@.|
000003A0: 4B 51 B2 C2 28 4B 4C 29  3A A1 41 24 3A 8B 41 24  |KQ..(KL):.A$:.A$|
000003B0: B2 22 22 AF 4B 51 B2 36  34 A7 33 32 30 00 D7 0B  |."".KQ.64.320...|
000003C0: 4A 01 8B 4B 51 B2 46 31  B0 4B 51 B2 46 37 A7 99  |J..KQ.F1.KQ.F7..|
000003D0: C7 28 32 30 29 3A 8E 00  EF 0B 54 01 8B 41 24 B2  |.(20):....T..A$.|
000003E0: C7 28 32 30 29 AF 46 24  B2 22 22 A7 33 32 30 00  |.(20).F$."".320.|
000003F0: 0D 0C 5E 01 8B 41 24 B2  C7 28 31 33 29 AF 46 24  |..^..A$..(13).F$|
00000400: B3 B1 22 22 A7 99 C7 28  32 30 29 3A 8E 00 25 0C  |..""...(20):..%.|
00000410: 68 01 8B 41 24 B2 C7 28  31 33 29 AF 46 24 B2 22  |h..A$..(13).F$."|
00000420: 22 A7 33 32 30 00 56 0C  72 01 8B 41 24 B2 C7 28  |".320.V.r..A$..(|
00000430: 32 30 29 A7 99 C7 28 32  30 29 41 24 43 55 24 3B  |20)...(20)A$CU$;|
00000440: 3A 46 24 B2 C8 28 46 24  2C C3 28 46 24 29 AB 31  |:F$..(F$,.(F$).1|
00000450: 29 3A 89 33 32 30 00 75  0C 7C 01 99 C7 28 32 30  |):.320.u.|...(20|
00000460: 29 41 24 43 55 24 3B 3A  46 24 B2 46 24 AA 41 24  |)A$CU$;:F$.F$.A$|
00000470: 3A 89 33 32 30 00 7F 0C  90 01 99 22 93 22 3B 00  |:.320......".";.|
00000480: 9A 0C 95 01 99 A6 4E 53  29 22 4C 4F 43 4B 20 41  |......NS)"LOCK A|
00000490: 20 46 49 4C 45 22 3A 99  55 24 00 AC 0C 9A 01 8D  | FILE":.U$......|
000004A0: 33 30 30 3A 8B 4B 51 B2  46 31 A7 8E 00 C1 0C A4  |300:.KQ.F1......|
000004B0: 01 8B 4B 51 B2 46 37 A7  8D 32 31 30 3A 89 34 30  |..KQ.F7..210:.40|
000004C0: 35 00 DF 0C AE 01 97 36  37 39 2C 31 3A 8D 37 38  |5......679,1:.78|
000004D0: 30 3A 8D 36 36 30 3A 54  B2 31 38 3A 53 B2 31 00  |0:.660:T.18:S.1.|
000004E0: FC 0C B8 01 8D 36 30 3A  9E 38 32 38 3A 41 B2 C2  |.....60:.828:A..|
000004F0: 28 32 35 32 29 3A 8B 41  A7 34 37 30 00 0B 0D C2  |(252):.A.470....|
00000500: 01 8D 38 30 3A 8B 54 A7  34 34 30 00 2A 0D CC 01  |..80:.T.440.*...|
00000510: 99 22 11 1C 46 49 4C 45  20 4E 4F 54 20 46 4F 55  |."..FILE NOT FOU|
00000520: 4E 44 90 11 22 3A 89 34  31 30 00 5F 0D D6 01 8B  |ND..":.410._....|
00000530: 28 41 AF 36 34 29 A7 99  46 24 3A 99 22 20 49 53  |(A.64)..F$:." IS|
00000540: 20 41 4C 52 45 41 44 59  20 4C 4F 43 4B 45 44 22  | ALREADY LOCKED"|
00000550: 3A 8D 37 33 30 3A 8D 37  34 30 3A 89 35 31 30 00  |:.730:.740:.510.|
00000560: 8A 0D E0 01 50 B2 C2 28  32 35 35 29 3A 8D 36 30  |....P..(255):.60|
00000570: 3A 98 31 35 2C 22 42 2D  50 22 3B 32 3B 50 3A 98  |:.15,"B-P";2;P:.|
00000580: 32 2C C7 28 41 B0 36 34  29 3B 00 99 0D EA 01 8D  |2,.(A.64);......|
00000590: 37 30 3A 8B 45 A7 34 30  30 00 B8 0D F4 01 8D 37  |70:.E.400......7|
000005A0: 33 30 3A 99 46 24 3A 99  22 49 53 20 4C 4F 43 4B  |30:.F$:."IS LOCK|
000005B0: 45 44 22 3A 8D 37 34 30  00 C8 0D FE 01 97 36 37  |ED":.740......67|
000005C0: 39 2C 30 3A 89 34 30 30  00 D2 0D 12 02 99 22 93  |9,0:.400......".|
000005D0: 22 3B 00 EF 0D 17 02 99  A6 4E 53 29 22 55 4E 4C  |";.......NS)"UNL|
000005E0: 4F 43 4B 20 41 20 46 49  4C 45 22 3A 99 55 24 00  |OCK A FILE":.U$.|
000005F0: 01 0E 1C 02 8D 33 30 30  3A 8B 4B 51 B2 46 31 A7  |.....300:.KQ.F1.|
00000600: 8E 00 16 0E 26 02 8B 4B  51 B2 46 37 A7 8D 32 31  |....&..KQ.F7..21|
00000610: 30 3A 89 35 33 35 00 34  0E 30 02 97 36 37 39 2C  |0:.535.4.0..679,|
00000620: 31 3A 8D 37 38 30 3A 8D  36 36 30 3A 54 B2 31 38  |1:.780:.660:T.18|
00000630: 3A 53 B2 31 00 51 0E 3A  02 8D 36 30 3A 9E 38 32  |:S.1.Q.:..60:.82|
00000640: 38 3A 41 B2 C2 28 32 35  32 29 3A 8B 41 A7 36 30  |8:A..(252):.A.60|
00000650: 30 00 60 0E 44 02 8D 38  30 3A 8B 54 A7 35 37 30  |0.`.D..80:.T.570|
00000660: 00 7F 0E 4E 02 99 22 11  1C 46 49 4C 45 20 4E 4F  |...N.."..FILE NO|
00000670: 54 20 46 4F 55 4E 44 90  11 22 3A 89 35 34 30 00  |T FOUND..":.540.|
00000680: B7 0E 58 02 8B 28 41 AF  36 34 29 B2 2E A7 99 46  |..X..(A.64)....F|
00000690: 24 51 24 22 49 53 20 41  4C 52 45 41 44 59 20 55  |$Q$"IS ALREADY U|
000006A0: 4E 4C 4F 43 4B 45 44 22  3A 8D 37 33 30 3A 8D 37  |NLOCKED":.730:.7|
000006B0: 34 30 3A 89 36 34 30 00  E3 0E 62 02 50 B2 C2 28  |40:.640...b.P..(|
000006C0: 32 35 35 29 3A 8D 36 30  3A 98 31 35 2C 22 42 2D  |255):.60:.15,"B-|
000006D0: 50 22 3B 32 3B 50 3A 98  32 2C C7 28 41 AF 31 33  |P";2;P:.2,.(A.13|
000006E0: 35 29 3B 00 F2 0E 6C 02  8D 37 30 3A 8B 45 A7 35  |5);...l..70:.E.5|
000006F0: 33 30 00 13 0F 76 02 8D  37 33 30 3A 99 46 24 3A  |30...v..730:.F$:|
00000700: 99 22 49 53 20 55 4E 4C  4F 43 4B 45 44 22 3A 8D  |."IS UNLOCKED":.|
00000710: 37 34 30 00 23 0F 80 02  97 36 37 39 2C 30 3A 89  |740.#....679,0:.|
00000720: 35 33 30 00 47 0F 94 02  A0 32 3A A0 31 35 3A 9F  |530.G....2:.15:.|
00000730: 31 35 2C 38 2C 31 35 2C  22 49 30 22 3A 9F 32 2C  |15,8,15,"I0":.2,|
00000740: 38 2C 32 2C 22 23 22 00  5B 0F 9E 02 84 31 35 2C  |8,2,"#".[....15,|
00000750: 45 2C 45 4D 24 2C 45 54  2C 45 53 00 74 0F A8 02  |E,EM$,ET,ES.t...|
00000760: 8B 45 B2 37 33 B0 45 B2  32 36 A7 8D 37 33 30 3A  |.E.73.E.26..730:|
00000770: 89 37 31 30 00 A4 0F B2  02 8B 45 A7 99 22 1C 12  |.710......E.."..|
00000780: 45 52 52 4F 52 3A 22 3A  99 45 22 2C 22 45 4D 24  |ERROR:":.E","EM$|
00000790: 22 2C 22 45 54 22 2C 22  45 53 22 90 22 3A 8D 37  |","ET","ES".":.7|
000007A0: 33 30 3A 80 00 AA 0F BC  02 8E 00 CD 0F C6 02 8B  |30:.............|
000007B0: 45 B2 37 33 A7 99 22 44  49 53 4B 20 49 53 20 4C  |E.73.."DISK IS L|
000007C0: 4F 43 4B 45 44 22 3A 8D  37 34 30 3A 8E 00 F4 0F  |OCKED":.740:....|
000007D0: D0 02 99 22 52 45 4D 4F  56 45 20 57 52 49 54 45  |..."REMOVE WRITE|
000007E0: 20 50 52 4F 54 45 43 54  20 54 41 42 22 3A 8D 37  | PROTECT TAB":.7|
000007F0: 34 30 3A 8E 00 01 10 DA  02 A0 32 3A A0 31 35 3A  |40:.......2:.15:|
00000800: 8E 00 1F 10 E4 02 99 22  12 11 50 52 45 53 53 20  |......."..PRESS |
00000810: 41 4E 59 20 4B 45 59 11  22 3A 97 4B 42 2C 30 00  |ANY KEY.":.KB,0.|
00000820: 41 10 EE 02 4B 51 B2 C2  28 4B 4C 29 3A A1 41 24  |A...KQ..(KL):.A$|
00000830: 3A 8B 41 24 B2 22 22 AF  4B 51 B2 36 34 A7 37 35  |:.A$."".KQ.64.75|
00000840: 30 00 47 10 F8 02 8E 00  67 10 0C 03 8B C3 28 46  |0.G.....g.....(F|
00000850: 24 29 B3 31 36 A7 46 24  B2 46 24 AA C7 28 31 36  |$).16.F$.F$..(16|
00000860: 30 29 3A 89 37 38 30 00  95 10 16 03 81 49 B2 31  |0):.780......I.1|
00000870: A4 C3 28 46 24 29 3A 97  36 38 33 AA 49 2C C6 28  |..(F$):.683.I,.(|
00000880: CA 28 46 24 2C 49 2C 31  29 29 3A 82 3A 97 37 30  |.(F$,I,1)):.:.70|
00000890: 30 2C 30 3A 8E 00 B8 10  2A 03 99 22 93 22 A6 4E  |0,0:....*..".".N|
000008A0: 53 29 22 4C 4F 43 4B 20  45 4E 54 49 52 45 20 44  |S)"LOCK ENTIRE D|
000008B0: 49 53 4B 22 3A 99 55 24  00 F5 10 34 03 99 22 11  |ISK":.U$...4..".|
000008C0: 49 4E 53 45 52 54 20 44  49 53 4B 20 49 4E 20 44  |INSERT DISK IN D|
000008D0: 52 49 56 45 20 20 5B 46  31 5D 20 54 4F 20 41 42  |RIVE  [F1] TO AB|
000008E0: 4F 52 54 22 3A 81 54 44  B2 31 A4 39 30 30 3A 82  |ORT":.TD.1.900:.|
000008F0: 3A 8D 37 34 30 00 02 11  3E 03 8B 4B 51 B2 46 31  |:.740...>..KQ.F1|
00000900: A7 8E 00 26 11 48 03 8D  36 36 30 3A 54 B2 31 38  |...&.H..660:T.18|
00000910: 3A 53 B2 30 3A 8D 36 30  3A 98 31 35 2C 22 42 2D  |:S.0:.60:.15,"B-|
00000920: 50 20 32 20 32 22 00 59  11 52 03 98 32 2C C7 28  |P 2 2".Y.R..2,.(|
00000930: 36 36 29 3B 3A 98 31 35  2C 22 42 2D 50 20 32 20  |66);:.15,"B-P 2 |
00000940: 31 36 36 22 3A 98 32 2C  C7 28 36 36 29 3B 3A 8D  |166":.2,.(66);:.|
00000950: 37 30 3A 8B 45 A7 38 31  30 00 67 11 5C 03 8D 36  |70:.E.810.g.\..6|
00000960: 36 30 3A 8D 37 33 30 00  95 11 66 03 99 22 54 48  |60:.730...f.."TH|
00000970: 45 20 44 49 53 4B 20 49  53 20 4E 4F 57 20 57 52  |E DISK IS NOW WR|
00000980: 49 54 45 20 50 52 4F 54  45 43 54 45 44 22 3A 8D  |ITE PROTECTED":.|
00000990: 37 34 30 3A 8E 00 9F 11  7A 03 99 22 93 22 3B 00  |740:....z..".";.|
000009A0: BD 11 7F 03 99 A6 4E 53  29 22 53 43 52 41 54 43  |......NS)"SCRATC|
000009B0: 48 20 41 20 46 49 4C 45  22 3A 99 55 24 00 CF 11  |H A FILE":.U$...|
000009C0: 84 03 8D 33 30 30 3A 8B  4B 51 B2 46 31 A7 8E 00  |...300:.KQ.F1...|
000009D0: E4 11 8E 03 8B 4B 51 B2  46 37 A7 8D 32 31 30 3A  |.....KQ.F7..210:|
000009E0: 89 38 39 35 00 09 12 98  03 85 22 11 41 52 45 20  |.895......".ARE |
000009F0: 59 4F 55 20 53 55 52 45  22 3B 41 24 3A 8B 41 24  |YOU SURE";A$:.A$|
00000A00: B3 B1 22 59 22 A7 38 39  30 00 3E 12 A2 03 8D 36  |.."Y".890.>....6|
00000A10: 36 30 3A 98 31 35 2C 22  53 30 3A 22 AA 46 24 3A  |60:.15,"S0:".F$:|
00000A20: 84 31 35 2C 45 2C 45 4D  24 2C 45 54 2C 45 53 3A  |.15,E,EM$,ET,ES:|
00000A30: 8B 45 B1 31 A7 8D 36 38  30 3A 89 38 39 30 00 7A  |.E.1..680:.890.z|
00000A40: 12 AC 03 8D 37 33 30 3A  8B 45 54 B2 2E A7 99 22  |....730:.ET...."|
00000A50: 1C 46 49 4C 45 20 49 53  20 4C 4F 43 4B 45 44 20  |.FILE IS LOCKED |
00000A60: 4F 52 20 4E 4F 54 20 4F  4E 20 44 49 53 4B 90 22  |OR NOT ON DISK."|
00000A70: 3A 8D 37 34 30 3A 89 38  39 30 00 96 12 B6 03 8B  |:.740:.890......|
00000A80: 45 54 B1 31 A7 99 45 54  3B 45 4D 24 3A 8D 37 34  |ET.1..ET;EM$:.74|
00000A90: 30 3A 89 38 39 30 00 B8  12 C0 03 99 46 24 3A 99  |0:.890......F$:.|
00000AA0: 22 49 53 20 53 43 52 41  54 43 48 45 44 22 3A 8D  |"IS SCRATCHED":.|
00000AB0: 37 34 30 3A 89 38 39 30  00 D8 12 D4 03 99 22 93  |740:.890......".|
00000AC0: 22 A6 4E 53 29 22 20 55  4E 4C 4F 43 4B 20 20 44  |".NS)" UNLOCK  D|
00000AD0: 49 53 4B 22 3A 99 55 24  00 16 13 DE 03 99 22 11  |ISK":.U$......".|
00000AE0: 49 4E 53 45 52 54 20 44  49 53 4B 20 49 4E 20 44  |INSERT DISK IN D|
00000AF0: 52 49 56 45 20 20 20 5B  46 31 5D 20 54 4F 20 41  |RIVE   [F1] TO A|
00000B00: 42 4F 52 54 22 3A 81 54  44 B2 31 A4 39 30 30 3A  |BORT":.TD.1.900:|
00000B10: 82 3A 8D 37 34 30 00 23  13 E8 03 8B 4B 51 B2 46  |.:.740.#....KQ.F|
00000B20: 31 A7 8E 00 39 13 F2 03  8D 36 36 30 3A 54 B2 31  |1...9....660:T.1|
00000B30: 38 3A 53 B2 30 3A 8D 36  30 00 5D 13 FC 03 98 31  |8:S.0:.60.]....1|
00000B40: 35 2C 22 4D 2D 57 22 3B  C7 28 31 29 3B C7 28 31  |5,"M-W";.(1);.(1|
00000B50: 29 3B C7 28 31 29 3B C7  28 36 35 29 3B 00 89 13  |);.(1);.(65);...|
00000B60: 06 04 98 31 35 2C 22 42  2D 50 20 32 20 32 22 3A  |...15,"B-P 2 2":|
00000B70: 98 32 2C C7 28 36 35 29  3B 3A 98 31 35 2C 22 42  |.2,.(65);:.15,"B|
00000B80: 2D 50 20 32 20 31 36 36  22 00 A2 13 10 04 98 32  |-P 2 166"......2|
00000B90: 2C C7 28 36 35 29 3B 3A  8D 37 30 3A 8B 45 A7 39  |,.(65);:.70:.E.9|
00000BA0: 38 30 00 C3 13 1A 04 8D  36 36 30 3A 8D 37 33 30  |80......660:.730|
00000BB0: 3A 99 22 44 49 53 4B 20  49 53 20 55 4E 4C 4F 43  |:."DISK IS UNLOC|
00000BC0: 4B 45 44 00 CE 13 24 04  8D 37 34 30 3A 8E 00 F3  |KED...$..740:...|
00000BD0: 13 38 04 99 22 93 90 11  22 A6 4E 53 AB 32 29 22  |.8.."...".NS.2)"|
00000BE0: 3C 3C 46 49 4C 45 20 50  52 4F 54 45 43 54 4F 52  |<<FILE PROTECTOR|
00000BF0: 3E 3E 22 00 08 14 42 04  99 22 11 20 31 29 20 44  |>>"...B..". 1) D|
00000C00: 49 52 45 43 54 4F 52 59  00 21 14 4C 04 99 22 20  |IRECTORY.!.L.." |
00000C10: 32 29 20 4C 4F 43 4B 20  41 4C 4C 20 46 49 4C 45  |2) LOCK ALL FILE|
00000C20: 53 00 37 14 56 04 99 22  20 33 29 20 4C 4F 43 4B  |S.7.V.." 3) LOCK|
00000C30: 20 41 20 46 49 4C 45 00  4F 14 60 04 99 22 20 34  | A FILE.O.`.." 4|
00000C40: 29 20 55 4E 4C 4F 43 4B  20 41 20 46 49 4C 45 00  |) UNLOCK A FILE.|
00000C50: 6A 14 6A 04 99 22 20 35  29 20 4C 4F 43 4B 20 45  |j.j.." 5) LOCK E|
00000C60: 4E 54 49 52 45 20 44 49  53 4B 00 82 14 74 04 99  |NTIRE DISK...t..|
00000C70: 22 20 36 29 20 55 4E 4C  4F 43 4B 20 41 20 44 49  |" 6) UNLOCK A DI|
00000C80: 53 4B 00 9B 14 7E 04 99  22 20 37 29 20 53 43 52  |SK...~.." 7) SCR|
00000C90: 41 54 43 48 20 41 20 46  49 4C 45 00 AA 14 88 04  |ATCH A FILE.....|
00000CA0: 99 22 20 38 29 20 51 55  49 54 00 C6 14 92 04 99  |." 8) QUIT......|
00000CB0: 22 11 11 20 45 4E 54 45  52 20 59 4F 55 52 20 43  |".. ENTER YOUR C|
00000CC0: 48 4F 49 43 45 22 00 DA  14 9C 04 A1 41 24 3A 8B  |HOICE"......A$:.|
00000CD0: 41 24 B2 22 22 A7 31 31  38 30 00 F4 14 A6 04 43  |A$."".1180.....C|
00000CE0: B2 C5 28 41 24 29 3A 8B  43 B3 31 B0 43 B1 38 A7  |..(A$):.C.1.C.8.|
00000CF0: 31 31 38 30 00 1C 15 B0  04 91 43 8D 32 31 30 2C  |1180......C.210,|
00000D00: 31 30 30 2C 34 30 30 2C  35 33 30 2C 38 31 30 2C  |100,400,530,810,|
00000D10: 39 38 30 2C 38 39 30 2C  31 32 32 30 00 26 15 BA  |980,890,1220.&..|
00000D20: 04 89 31 30 38 30 00 33  15 C4 04 A0 32 3A A0 31  |..1080.3....2:.1|
00000D30: 35 3A 80 00 5D 15 D8 04  97 36 37 39 2C 30 3A 97  |5:..]....679,0:.|
00000D40: 31 34 30 2C 30 3A 43 55  24 B2 C7 28 33 31 29 AA  |140,0:CU$..(31).|
00000D50: C7 28 31 36 31 29 AA C7  28 31 34 34 29 00 7D 15  |.(161)..(144).}.|
00000D60: E2 04 81 51 5A B2 38 32  38 A4 31 30 30 36 3A 87  |...QZ.828.1006:.|
00000D70: 5A 51 3A 97 51 5A 2C 5A  51 3A 82 3A 8E 00 AF 15  |ZQ:.QZ,ZQ:.:....|
00000D80: EC 04 83 20 31 36 39 2C  30 2C 31 34 31 2C 31 36  |... 169,0,141,16|
00000D90: 38 2C 32 2C 31 33 33 2C  32 35 33 2C 31 36 32 2C  |8,2,133,253,162,|
00000DA0: 32 2C 33 32 2C 31 39 38  2C 32 35 35 2C 33 32 00  |2,32,198,255,32.|
00000DB0: E4 15 F6 04 83 20 32 32  38 2C 32 35 35 2C 31 34  |..... 228,255,14|
00000DC0: 31 2C 31 36 39 2C 32 2C  33 32 2C 32 32 38 2C 32  |1,169,2,32,228,2|
00000DD0: 35 35 2C 31 34 31 2C 31  37 30 2C 32 2C 32 33 30  |55,141,170,2,230|
00000DE0: 2C 32 35 33 00 1C 16 00  05 83 20 32 33 30 2C 32  |,253...... 230,2|
00000DF0: 35 33 2C 33 32 2C 32 32  38 2C 32 35 35 2C 31 33  |53,32,228,255,13|
00000E00: 33 2C 32 35 32 2C 31 36  35 2C 32 35 33 2C 31 33  |3,252,165,253,13|
00000E10: 33 2C 32 35 35 2C 33 32  2C 32 32 38 00 52 16 0A  |3,255,32,228.R..|
00000E20: 05 83 20 32 35 35 2C 33  32 2C 32 32 38 2C 32 35  |.. 255,32,228,25|
00000E30: 35 2C 32 33 30 2C 32 35  33 2C 32 33 30 2C 32 35  |5,230,253,230,25|
00000E40: 33 2C 31 36 30 2C 30 2C  33 32 2C 32 32 38 2C 32  |3,160,0,32,228,2|
00000E50: 35 35 00 88 16 14 05 83  20 32 33 30 2C 32 35 33  |55...... 230,253|
00000E60: 2C 31 35 33 2C 31 38 39  2C 32 2C 32 30 30 2C 32  |,153,189,2,200,2|
00000E70: 34 2C 31 39 32 2C 31 36  2C 31 34 34 2C 32 34 32  |4,192,16,144,242|
00000E80: 2C 31 36 30 2C 32 34 33  00 BD 16 1E 05 83 20 33  |,160,243...... 3|
00000E90: 32 2C 32 32 38 2C 32 35  35 2C 32 33 30 2C 32 35  |2,228,255,230,25|
00000EA0: 33 2C 31 36 35 2C 31 34  34 2C 32 34 30 2C 33 2C  |3,165,144,240,3,|
00000EB0: 31 34 31 2C 31 36 38 2C  32 2C 32 30 30 00 F2 16  |141,168,2,200...|
00000EC0: 28 05 83 20 32 30 38 2C  32 34 31 2C 31 36 35 2C  |(.. 208,241,165,|
00000ED0: 32 35 32 2C 32 30 38 2C  37 2C 31 37 33 2C 31 36  |252,208,7,173,16|
00000EE0: 38 2C 32 2C 32 30 38 2C  32 32 2C 32 34 30 2C 31  |8,2,208,22,240,1|
00000EF0: 39 31 00 22 17 32 05 83  20 31 36 35 2C 31 34 30  |91.".2.. 165,140|
00000F00: 2C 32 34 30 2C 33 2C 33  32 2C 31 39 39 2C 33 2C  |,240,3,32,199,3,|
00000F10: 31 37 33 2C 31 36 37 2C  32 2C 32 34 30 2C 33 2C  |173,167,2,240,3,|
00000F20: 33 32 00 54 17 3C 05 83  20 31 37 35 2C 33 2C 31  |32.T.<.. 175,3,1|
00000F30: 37 33 2C 31 36 38 2C 32  2C 32 34 30 2C 31 37 31  |73,168,2,240,171|
00000F40: 2C 33 32 2C 32 30 34 2C  32 35 35 2C 39 36 2C 31  |,32,204,255,96,1|
00000F50: 36 30 2C 30 00 86 17 46  05 83 20 31 38 35 2C 31  |60,0...F.. 185,1|
00000F60: 37 32 2C 32 2C 32 34 30  2C 38 2C 32 31 37 2C 31  |72,2,240,8,217,1|
00000F70: 38 39 2C 32 2C 32 30 38  2C 37 2C 32 30 30 2C 32  |89,2,208,7,200,2|
00000F80: 30 38 2C 32 34 33 00 A7  17 50 05 83 20 32 33 38  |08,243...P.. 238|
00000F90: 2C 31 36 38 2C 32 2C 39  36 2C 31 36 39 2C 30 2C  |,168,2,96,169,0,|
00000FA0: 31 33 33 2C 32 35 32 00  D9 17 5A 05 83 20 39 36  |133,252...Z.. 96|
00000FB0: 2C 31 36 30 2C 30 2C 31  38 35 2C 31 38 39 2C 32  |,160,0,185,189,2|
00000FC0: 2C 32 34 30 2C 36 2C 33  32 2C 32 31 30 2C 32 35  |,240,6,32,210,25|
00000FD0: 35 2C 32 30 30 2C 32 30  38 00 21 18 64 05 83 20  |5,200,208.!.d.. |
00000FE0: 32 34 35 2C 31 36 35 2C  32 35 32 2C 34 31 2C 36  |245,165,252,41,6|
00000FF0: 34 2C 32 34 30 2C 31 30  2C 31 36 39 2C 31 34 34  |4,240,10,169,144|
00001000: 2C 33 32 2C 32 31 30 2C  32 35 35 2C 31 36 39 2C  |,32,210,255,169,|
00001010: 36 30 2C 33 32 2C 32 31  30 2C 32 35 35 2C 31 36  |60,32,210,255,16|
00001020: 39 00 4B 18 6E 05 83 20  31 33 2C 33 32 2C 32 31  |9.K.n.. 13,32,21|
00001030: 30 2C 32 35 35 2C 31 36  39 2C 31 34 34 2C 33 32  |0,255,169,144,32|
00001040: 2C 32 31 30 2C 32 35 35  2C 39 36 00 00 00 00 00  |,210,255,96.....|
00001050: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00001060: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00001070: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
.......".":Q$.G(13).A...U$.".           
                             ":KB.198:SF
.653:KL.203:NS.12.....F1.4:F7.3:.53281,1
2:.53280,6...2..1240:.1080...<..15,"U1";
2;0;T;S:.670.T.F..15,"B-P 2 0":.15,"U2";
2;0;T;S:.670...P.T.B(681):S.B(682):....D
..".".NS)"LOCK ALL FILES":.U$:.660:T.18:
S.1.'.N.P.2:.60.U.X..#2,A$:T1.F(A$.G(0))
:.#2,A$:S1.F(A$.G(0)).S....I.0.7:.15,"B-
P";2;P.32.I......#2,A$:A.F(A$.G(0)):.A..
.170......A.64.170.E. ..15,"B-P";2;P.32.
I:.2,G(A.64);.T....:.70:.E........"TRACK
"T"SECTOR"S"IS LOCKED":T.T1:S.S1:.T.110.
.....730:.740:..?.R.H$.G(18):."..HOLD [S
HIFT] TO PAUSE..A....660:.15,"M-R"G(144)
G(7)G(23)......I.0.22:.#15,A$:H$.H$.(A$.
G(0)):.:.H$".":.140,1:T.18:S.1......60:.
828:.80:.B(SF)..SF,1,1.I....T.240......1
5,"M-R"G(250)G(2):.#15,LO$:.15,"M-R"G(25
2)G(2).5....#15,HI$:.F(LO$.G(0)).256.F(H
I$.G(0))" BLOCKS FREE.L....730:.740:.140
,0:..X.,..".[F1] EXIT             [F7] D
IRECTORY...6..".FILENAME? "CU$;:.KB,0:F$
.""...@.KQ.B(KL):.A$:.A$."".KQ.64.320.W.
J..KQ.F1.KQ.F7..G(20):....T..A$.G(20).F$
."".320...^..A$.G(13).F$..""..G(20):..%.
H..A$.G(13).F$."".320.V.R..A$.G(20)..G(2
0)A$CU$;:F$.H(F$,C(F$).1):.320.U.|..G(20
)A$CU$;:F$.F$.A$:.320.....".";.......NS
)"LOCK A FILE":.U$......300:.KQ.F1...A..
..KQ.F7..210:.405......679,1:.780:.660:T
.18:S.1......60:.828:A.B(252):.A.470...B
..80:.T.440.*.L.."..FILE NOT FOUND..":.4
10._.V..(A.64)..F$:." IS ALREADY LOCKED"
:.730:.740:.510.....P.B(255):.60:.15,"B-
P";2;P:.2,G(A.64);......70:.E.400......7
30:.F$:."IS LOCKED":.740.H....679,0:.400
.R....".";.......NS)"UNLOCK A FILE":.U$.
.....300:.KQ.F1.....&..KQ.F7..210:.535.4
.0..679,1:.780:.660:T.18:S.1.Q.:..60:.82
8:A.B(252):.A.600.`.D..80:.T.570..N..".
.FILE NOT FOUND..":.540...X..(A.64)....F
$Q$"IS ALREADY UNLOCKED":.730:.740:.640.
..B.P.B(255):.60:.15,"B-P";2;P:.2,G(A.13
5);...L..70:.E.530...V..730:.F$:."IS UNL
OCKED":.740.#....679,0:.530.G... 2: 15:.
15,8,15,"I0":.2,8,2,"#".[....15,E,EM$,ET
,ES.T....E.73.E.26..730:.710......E.."..
ERROR:":.E","EM$","ET","ES".":.730:.....
...M.F..E.73.."DISK IS LOCKED":.740:....
P.."REMOVE WRITE PROTECT TAB":.740:....Z
. 2: 15:......."..PRESS ANY KEY.":.KB,0.
A...KQ.B(KL):.A$:.A$."".KQ.64.750.G.....
G....C(F$).16.F$.F$.G(160):.780......I.1
.C(F$):.683.I,F(J(F$,I,1)):.:.700,0:....
*..".".NS)"LOCK ENTIRE DISK":.U$...4..".
INSERT DISK IN DRIVE  [F1] TO ABORT":.TD
.1.900:.:.740...>..KQ.F1...&.H..660:T.18
:S.0:.60:.15,"B-P 2 2".Y.R..2,G(66);:.15
,"B-P 2 166":.2,G(66);:.70:.E.810.G.\..6
60:.730...F.."THE DISK IS NOW WRITE PROT
ECTED":.740:....Z..".";......NS)"SCRATC
H A FILE":.U$.O....300:.KQ.F1........KQ.
F7..210:.895......".ARE YOU SURE";A$:.A$
.."Y".890.>....660:.15,"S0:".F$:.15,E,EM
$,ET,ES:.E.1..680:.890.Z....730:.ET...."
.FILE IS LOCKED OR NOT ON DISK.":.740:.8
90......ET.1..ET;EM$:.740:.890......F$:.
"IS SCRATCHED":.740:.890.X.T..".".NS)" U
NLOCK  DISK":.U$......".INSERT DISK IN D
RIVE   [F1] TO ABORT":.TD.1.900:.:.740.#
....KQ.F1...9....660:T.18:S.0:.60.]....1
5,"M-W";G(1);G(1);G(1);G(65);......15,"B
-P 2 2":.2,G(65);:.15,"B-P 2 166"......2
,G(65);:.70:.E.980.C....660:.730:."DISK 
IS UNLOCKED.N.$..740:....8.."...".NS.2)"
<<FILE PROTECTOR>>"...B..". 1) DIRECTORY
.!.L.." 2) LOCK ALL FILES.7.V.." 3) LOCK
 A FILE.O.`.." 4) UNLOCK A FILE.J.J.." 5
) LOCK ENTIRE DISK...T.." 6) UNLOCK A DI
SK...~.." 7) SCRATCH A FILE......" 8) QU
IT.F....".. ENTER YOUR CHOICE".Z....A$:.
A$."".1180.....C.E(A$):.C.1.C.8.1180....
..C.210,100,400,530,810,980,890,1220.&..
..1080.3.D. 2: 15:..].X..679,0:.140,0:CU
$.G(31).G(161).G(144).}....QZ.828.1006:.
ZQ:.QZ,ZQ:.:....... 169,0,141,168,2,133,
253,162,2,32,198,255,32...... 228,255,14
1,169,2,32,228,255,141,170,2,230,253....
.. 230,253,32,228,255,133,252,165,253,13
3,255,32,228.R.... 255,32,228,255,230,25
3,230,253,160,0,32,228,255...... 230,253
,153,189,2,200,24,192,16,144,242,160,243
...... 32,228,255,230,253,165,144,240,3,
141,168,2,200...(.. 208,241,165,252,208,
7,173,168,2,208,22,240,191.".2.. 165,140
,240,3,32,199,3,173,167,2,240,3,32.T.<..
 175,3,173,168,2,240,171,32,204,255,96,1
60,0...F.. 185,172,2,240,8,217,189,2,208
,7,200,208,243...P.. 238,168,2,96,169,0,
133,252.Y.Z.. 96,160,0,185,189,2,240,6,3
2,210,255,200,208.!.D.. 245,165,252,41,6
4,240,10,169,144,32,210,255,169,60,32,21
0,255,169.K.N.. 13,32,210,255,169,144,32
,210,255,96.............................
........................
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL