B *************** * HANS HUBERS * ***************m* (C) 1985 * **************** DORDRECHT * ***************Z:""d36869,(36869)2n 5000" RITE ROTECT " "HIS MEANS THAT WRITING";A" ON THIS DISK WILL NO LONGER BE POSSIBLE";~" UNLESS THE LOCK IS REMOVED OR THEDISK REFORMATTED.""RE YOU SURE ?(Y/N)" A$: A$"" 1050$ A$"Y"A$"N" 1050. A$"N"50008 ************ * CHECK TAB* ************)B4000;L 15,8,15,"I"KV 2,8,2,"#"a`15,"U1";2;0;18;0yj15,EN$,EM$,ET$,ES$t15,"B-P";2;2~#2,B$ B$""B$(0)DOS(B$)15,"B-P";2;144DN$"" I116#2,B$ B$"" B$(0)A(B$)& A127 AA128< A32 A95A63L A34A63]DN$DN$(A)dIy"ISK NAME :" DN$x"HALL PROTECT IT? (Y/N)" A$: A$"Y"A$"N"1410 A$"N"500015,"M-R";(1);(1);(1)#15,B$3 B$"A"B$""1900: **ALREADY PROTECTED**N15,"B-P 2 2":2,(66)r15,"B-P 2 165":2,(60);(60);15,"U2 2 0 18 0""ISK IS PROTECTED " 4500 l ************* *DISK PROTEC* *************2 v"ISK IS ALREADY PROTECTED !!!"=  4100^ " EMOVE WRITE PROTECT " "HIS MEANS THAT WRITING"; " ON THIS DISK WILL AGAIN BE POSSIBLE" "RE YOU SURE ?(Y/N)"  A$: A$"" 2050  A$"Y"A$"N" 2050  A$"N"5000T  ************ * CHECK TAB* ************^ *4000p 4 15,8,15,"I" > 2,8,2,"#" H15,"U1";2;0;18;0 R15,EN$,EM$,ET$,ES$ \15,"B-P";2;2 f#2,B$ p B$""B$(0) zDOS(B$) 15,"B-P";2;144 DN$""  I116$ #2,B$9  B$"" B$(0)E A(B$)[  A127 AA128q  A32 A95A63  A34A63 DN$DN$(A) I "ISK NAME :" DN$ "HALL RELEASE IT? (Y/N)"  A$: A$"Y"A$"N"2310  A$"N"5000)  15,"M-R";(1);(1);(1)5 $ #15,B$c . B$"A"B$"" 2900: **NOT PROTECTED** 8 15,"M-W";(1);(1);(1);(65) B 15,"B-P 2 2":2,(65) L 15,"B-P 2 165":2,(50);(65); V 15,"U2 2 0 18 0" ` "ISK IS RELEASED " j 4500N T ************* *NOT PROTEC * *************} ^ "ISK IS NOT PROTECTED !!!" h 4100 " NFORMATION "; "HIS PROTECTION SYSTEMCAUSES ANY ATTEMPT TO ALTER THE";  " CONTENTS OF THE DISK TO FAIL";@ " EVEN IF NO WRITE PROTECT TAB IS PRESENT." "F YOU TRY TO WRITE ONA LOCKED DISK THE RED LIGHT WILL BEGIN TO FLICKER "; "AND IF YOU LOOK AT THE DIRECTORY YOU WILL SEE NOTHING HAS "; "BEEN WRITTEN ALTHOUGH SPACE HAS BEEN ALLOCATED."= "HIS IS IN FACT NOT TRUE,"; " BECAUSE IF YOU INITIALISE THE DISK YOU WILL SEE NOTHING HAS CHANGED"; " RESS Β"; A$: A$(13) 3095 " NFORMATION ";9& "LSO FILES ON DISK CANNOT BE SCRATCHED OR OVERWRITTEN."0 "F YOU HAVE A DISK MONITOR YOU KAN EASELYSEE HOW IT IS DONE.": "HE SECOND BYTE ON TRACK 18 SECTOR 0 IS THE BYTE";? " WITCH INDICATES THE FORMAT TYPE.""D "HIS IS NORMALLY AN '' OR A SHIFT SPACE."aN "Y MODIFYING THIS BYTENORMAL WRITING IS MADEIMPOSSIBLE."X " ANS UBERS (1985)"b 4500 ************ * CHECK TAB* ************ 15,8,15,"IO": 2,8,2,"#"15,"U1";2;0;18;015,"B-P";2;0&15,"U2";2;0;18;0115,X$E (X$)264090M 2V 15j C 1100,2100************* * REMOVE TAB* *************" LEASE FIRST REMOVE WRITE PROTECTION TAB"36878,15:36876,230 I1500:.36878,0:36876,0\" RESS Β";w A$: A$(13) 4510 ************ * MENU * ************ 15 2 15,8,15,"I" 15" ISK OCK - 1541 "" ==================":" RITE ROTECTION"V" =================="y"1 ROTECT DISK""2 EMOVE PROTECTION""3 NFORMATION""4 TOP") ************ * CHOOSE * ************? C$: C$""5100K C(C$)_ C1 C45100x C 1000,2000,3000~(