SUB.DISK PROTECT
FILE INFORMATION
FILENAME(S): SUB.DISK PROTECT
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-02 17:01:56
APPEARS ON: 1 disk(s)
FILE HASH
ff9c9a6f61eaa3787e0b8c6fcf9ea28c437b3bc7ffe9b139dcc1ab7a2282a491
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC02 | SUB.DISK PROTECT | PRG | Treasure Chest - Spook | 9 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 92 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..&.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 00 4B 08 9C 04 8F 20 2A 20 54 |******.K.... * T| 00000030: 48 45 20 4E 45 58 54 20 52 4F 55 54 49 4E 45 20 |HE NEXT ROUTINE | 00000040: 57 49 4C 4C 20 2E 2E 2E 2E 20 2A 00 70 08 A6 04 |WILL .... *.p...| 00000050: 8F 20 2A 20 50 52 4F 54 45 43 54 20 4F 52 20 55 |. * PROTECT OR U| 00000060: 4E 50 52 4F 54 45 43 54 20 41 20 44 49 53 4B 2A |NPROTECT A DISK*| 00000070: 00 95 08 B0 04 8F 20 2A 20 49 4E 20 41 20 31 35 |...... * IN A 15| 00000080: 34 31 20 44 52 49 56 45 2E 20 20 20 20 20 20 20 |41 DRIVE. | 00000090: 20 20 20 20 2A 00 BA 08 BA 04 8F 20 2A 20 2D 2D | *...... * --| 000000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 20 2A 00 DF 08 C4 04 8F |-------- *......| 000000C0: 20 2A 20 49 54 20 50 52 4F 54 45 43 54 53 20 42 | * IT PROTECTS B| 000000D0: 59 20 43 48 41 4E 47 49 4E 47 20 54 48 45 2A 00 |Y CHANGING THE*.| 000000E0: 04 09 CE 04 8F 20 2A 20 44 49 53 4B 20 46 4F 52 |..... * DISK FOR| 000000F0: 4D 41 54 20 43 48 41 52 41 43 54 45 52 20 4F 4E |MAT CHARACTER ON| 00000100: 20 20 20 2A 00 29 09 D8 04 8F 20 2A 20 54 52 41 | *.).... * TRA| 00000110: 43 4B 31 38 2C 53 45 43 54 4F 52 30 20 2D 20 42 |CK18,SECTOR0 - B| 00000120: 59 54 45 20 32 20 20 20 2A 00 4E 09 E2 04 8F 20 |YTE 2 *.N.... | 00000130: 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |* --------------| 00000140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 2A 00 73 |------------ *.s| 00000150: 09 EC 04 8F 20 2A 20 20 20 20 20 41 4E 44 20 49 |.... * AND I| 00000160: 54 20 55 4E 50 52 4F 54 45 43 54 53 20 42 59 20 |T UNPROTECTS BY | 00000170: 20 20 2A 00 98 09 F6 04 8F 20 2A 20 43 48 41 4E | *...... * CHAN| 00000180: 47 49 4E 47 20 54 48 45 20 49 44 20 46 4F 52 4D |GING THE ID FORM| 00000190: 41 54 20 42 41 43 4B 2A 00 BD 09 00 05 8F 20 2A |AT BACK*...... *| 000001A0: 20 54 4F 20 43 48 52 24 28 36 35 29 2E 20 20 20 | TO CHR$(65). | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 E2 09 | *...| 000001C0: 0A 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************| 000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001E0: 2A 2A 00 07 0A 14 05 8F 20 2A 20 49 20 53 55 47 |**...... * I SUG| 000001F0: 47 45 53 54 20 59 4F 55 20 50 55 54 20 41 20 4D |GEST YOU PUT A M| 00000200: 41 52 4B 45 52 20 2A 00 2C 0A 1E 05 8F 20 2A 20 |ARKER *.,.... * | 00000210: 4F 4E 20 41 4E 59 20 44 49 53 4B 53 20 59 4F 55 |ON ANY DISKS YOU| 00000220: 20 28 50 52 4F 54 45 43 54 29 20 2A 00 51 0A 28 | (PROTECT) *.Q.(| 00000230: 05 8F 20 2A 20 53 4F 20 59 4F 55 20 57 49 4C 4C |.. * SO YOU WILL| 00000240: 20 4B 4E 4F 57 20 54 4F 20 52 45 2D 55 53 45 20 | KNOW TO RE-USE | 00000250: 2A 00 76 0A 32 05 8F 20 2A 20 54 48 49 53 20 50 |*.v.2.. * THIS P| 00000260: 52 4F 47 52 41 4D 20 57 48 45 4E 20 59 4F 55 20 |ROGRAM WHEN YOU | 00000270: 57 41 4E 54 20 2A 00 9B 0A 3C 05 8F 20 2A 20 54 |WANT *...<.. * T| 00000280: 4F 20 57 52 49 54 45 20 42 41 43 4B 20 54 4F 20 |O WRITE BACK TO | 00000290: 49 54 2E 28 50 48 45 57 29 20 2A 00 C0 0A 46 05 |IT.(PHEW) *...F.| 000002A0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************| 000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002C0: 00 C6 0A 50 05 8F 00 D0 0A 5A 05 99 22 93 22 3B |...P.....Z..".";| 000002D0: 00 FE 0A 64 05 99 22 05 20 20 20 A4 A4 A4 A4 A4 |...d..". .....| 000002E0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 000002F0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 2C |.............".,| 00000300: 0B 6E 05 99 22 20 20 20 12 20 53 4F 46 54 57 41 |.n.." . SOFTWA| 00000310: 52 45 20 57 52 49 54 45 20 50 52 4F 54 45 43 54 |RE WRITE PROTECT| 00000320: 2F 55 4E 50 52 4F 54 45 43 54 20 22 00 56 0B 78 |/UNPROTECT ".V.x| 00000330: 05 99 22 11 11 11 9E 20 20 20 20 20 20 20 20 20 |..".... | 00000340: 57 48 49 43 48 20 44 4F 20 59 4F 55 20 52 45 51 |WHICH DO YOU REQ| 00000350: 55 49 52 45 3F 22 00 74 0B 82 05 99 22 11 11 20 |UIRE?".t....".. | 00000360: 20 20 20 20 20 05 20 A4 20 20 20 20 20 20 20 20 | . . | 00000370: 20 20 A4 22 00 A3 0B 8C 05 99 22 05 20 20 20 20 | ."......". | 00000380: 20 20 20 12 50 92 52 4F 54 45 43 54 20 4F 52 20 | .P.ROTECT OR | 00000390: 05 12 55 92 4E 50 52 4F 54 45 43 54 20 44 49 53 |..U.NPROTECT DIS| 000003A0: 4B 2E 22 00 BE 0B 96 05 A1 58 24 3A 8B 58 24 B2 |K."......X$:.X$.| 000003B0: 22 22 A7 8D 32 30 39 30 3A 89 31 34 33 30 00 CF |""..2090:.1430..| 000003C0: 0B A0 05 8B 58 24 B2 22 50 22 A7 31 34 37 30 00 |....X$."P".1470.| 000003D0: E0 0B AA 05 8B 58 24 B2 22 55 22 A7 31 35 36 30 |.....X$."U".1560| 000003E0: 00 EA 0B B4 05 89 31 34 33 30 00 17 0C BE 05 99 |......1430......| 000003F0: 22 93 05 20 20 20 49 4E 53 45 52 54 20 44 49 53 |".. INSERT DIS| 00000400: 4B 20 54 4F 20 42 45 20 12 20 50 52 4F 54 45 43 |K TO BE . PROTEC| 00000410: 54 45 44 20 92 9E 22 00 21 0C C8 05 8D 32 30 36 |TED ..".!....206| 00000420: 30 00 3E 0C D2 05 9F 31 35 2C 38 2C 31 35 2C 22 |0.>....15,8,15,"| 00000430: 49 30 22 3A 9F 32 2C 38 2C 32 2C 22 23 22 00 5B |I0":.2,8,2,"#".[| 00000440: 0C DC 05 98 31 35 2C 22 55 31 3A 22 3B 32 3B 30 |....15,"U1:";2;0| 00000450: 3B 31 38 3B 30 3A 8D 31 36 37 30 00 7E 0C E6 05 |;18;0:.1670.~...| 00000460: 98 31 35 2C 22 42 2D 50 3A 22 3B 32 3B 32 3A 98 |.15,"B-P:";2;2:.| 00000470: 32 2C C7 28 37 38 29 3B 3A 8D 31 36 37 30 00 9B |2,.(78);:.1670..| 00000480: 0C F0 05 98 31 35 2C 22 55 32 3A 22 3B 32 3B 30 |....15,"U2:";2;0| 00000490: 3B 31 38 3B 30 3A 8D 31 36 37 30 00 AF 0C FA 05 |;18;0:.1670.....| 000004A0: A0 32 3A 98 31 35 2C 22 49 30 22 3A A0 31 35 00 |.2:.15,"I0":.15.| 000004B0: DE 0C 04 06 99 22 93 11 11 20 43 55 52 52 45 4E |....."... CURREN| 000004C0: 54 20 44 49 53 4B 20 49 53 20 4E 4F 57 20 12 05 |T DISK IS NOW ..| 000004D0: 20 50 52 4F 54 45 43 54 45 44 20 9A 92 22 00 EF | PROTECTED .."..| 000004E0: 0C 0E 06 99 22 9E 22 3A 8D 32 30 36 30 3A 8E 00 |....".":.2060:..| 000004F0: 1D 0D 18 06 99 22 93 05 20 20 49 4E 53 45 52 54 |.....".. INSERT| 00000500: 20 44 49 53 4B 20 54 4F 20 42 45 20 12 20 55 4E | DISK TO BE . UN| 00000510: 50 52 4F 54 45 43 54 45 44 20 92 9E 22 00 27 0D |PROTECTED ..".'.| 00000520: 22 06 8D 32 30 36 30 00 44 0D 2C 06 9F 31 35 2C |"..2060.D.,..15,| 00000530: 38 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 |8,15,"I0":.2,8,2| 00000540: 2C 22 23 22 00 61 0D 36 06 98 31 35 2C 22 55 31 |,"#".a.6..15,"U1| 00000550: 3A 22 3B 32 3B 30 3B 31 38 3B 30 3A 8D 31 36 37 |:";2;0;18;0:.167| 00000560: 30 00 84 0D 40 06 98 31 35 2C 22 42 2D 50 3A 22 |0...@..15,"B-P:"| 00000570: 3B 32 3B 32 3A 98 32 2C C7 28 36 35 29 3B 3A 8D |;2;2:.2,.(65);:.| 00000580: 31 36 37 30 00 A7 0D 4A 06 98 31 35 2C 22 4D 2D |1670...J..15,"M-| 00000590: 57 22 3B C7 28 31 29 3B C7 28 31 29 3B C7 28 31 |W";.(1);.(1);.(1| 000005A0: 29 3B C7 28 36 35 29 00 CA 0D 54 06 98 31 35 2C |);.(65)...T..15,| 000005B0: 22 4D 2D 57 22 3B C7 28 32 29 3B C7 28 37 29 3B |"M-W";.(2);.(7);| 000005C0: C7 28 31 29 3B C7 28 36 35 29 00 E7 0D 5E 06 98 |.(1);.(65)...^..| 000005D0: 31 35 2C 22 55 32 3A 22 3B 32 3B 30 3B 31 38 3B |15,"U2:";2;0;18;| 000005E0: 30 3A 8D 31 36 37 30 00 FB 0D 68 06 A0 32 3A 98 |0:.1670...h..2:.| 000005F0: 31 35 2C 22 49 30 22 3A A0 31 35 00 2B 0E 72 06 |15,"I0":.15.+.r.| 00000600: 99 22 93 11 11 43 55 52 52 45 4E 54 20 44 49 53 |."...CURRENT DIS| 00000610: 4B 20 49 53 20 4E 4F 57 20 12 05 20 55 4E 50 52 |K IS NOW .. UNPR| 00000620: 4F 54 45 43 54 45 44 20 92 9A 22 00 3C 0E 7C 06 |OTECTED ..".<.|.| 00000630: 99 22 9E 22 3A 8D 32 30 36 30 3A 8E 00 51 0E 86 |.".":.2060:..Q..| 00000640: 06 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 |..15,EN,EM$,ET,E| 00000650: 53 00 6C 0E 90 06 8B 45 4E A7 99 22 11 22 45 4E |S.l....EN.."."EN| 00000660: 2C 45 4D 24 2C 45 54 2C 45 53 3A 90 00 72 0E 9A |,EM$,ET,ES:..r..| 00000670: 06 8E 00 00 00 |..... |
..&.... ******************************.K
.... * THE NEXT ROUTINE WILL .... *.P...
. * PROTECT OR UNPROTECT A DISK*...... *
IN A 1541 DRIVE. *...... * --
------------------------ *...D.. * IT PR
OTECTS BY CHANGING THE*...N.. * DISK FOR
MAT CHARACTER ON *.).X.. * TRACK18,SEC
TOR0 - BYTE 2 *.N.... * --------------
------------ *.S.... * AND IT UNPROT
ECTS BY *...... * CHANGING THE ID FORM
AT BACK*...... * TO CHR$(65).
*...... ****************************
**...... * I SUGGEST YOU PUT A MARKER *.
,.... * ON ANY DISKS YOU (PROTECT) *.Q.(
.. * SO YOU WILL KNOW TO RE-USE *.V.2..
* THIS PROGRAM WHEN YOU WANT *...<.. * T
O WRITE BACK TO IT.(PHEW) *...F.. ******
************************.F.P...P.Z..".";
...D..". .............................
.....".,.N.." . SOFTWARE WRITE PROTECT
/UNPROTECT ".V.X..".... WHICH DO
YOU REQUIRE?".T....".. . .
."......". .P.ROTECT OR ..U.NPRO
TECT DISK."......X$:.X$.""..2090:.1430.O
. ..X$."P".1470......X$."U".1560......14
30......".. INSERT DISK TO BE . PROTEC
TED ..".!.H..2060.>.R..15,8,15,"I0":.2,8
,2,"#".[....15,"U1:";2;0;18;0:.1670.~...
.15,"B-P:";2;2:.2,G(78);:.1670......15,"
U2:";2;0;18;0:.1670..... 2:.15,"I0": 15.
....."... CURRENT DISK IS NOW .. PROTECT
ED .."......".":.2060:.......".. INSERT
DISK TO BE . UNPROTECTED ..".'."..2060.
D.,..15,8,15,"I0":.2,8,2,"#".A.6..15,"U1
:";2;0;18;0:.1670...@..15,"B-P:";2;2:.2,
G(65);:.1670...J..15,"M-W";G(1);G(1);G(1
);G(65).J.T..15,"M-W";G(2);G(7);G(1);G(6
5)...^..15,"U2:";2;0;18;0:.1670...H. 2:.
15,"I0": 15.+.R.."...CURRENT DISK IS NOW
.. UNPROTECTED ..".<.|..".":.2060:..Q..
..15,EN,EM$,ET,ES.L....EN.."."EN,EM$,ET,
ES:..R.......
> CLICK IMAGE PREVIEW FOR FULL MODAL