10 REM ********************************
20 REM *  COPYRIGHT CDU OCTOBER 1990  *
30 REM *  PROGRAM WRITTEN BY J.FINCH  *
40 REM *    (CDU TECHNICAL DEPT.)     *
50 REM *                              *
60 REM * '128 FILE PROTECTED' DISABLE *
70 REM ********************************
80 :
90 POKE53280,14:POKE53281,6:PRINT"[147][142]PLEASE ENTER NAME OF PROGRAM FILE",":";
100 OPEN1,0:INPUT#1,F$:CLOSE1:PRINT:PRINT"DO YOU KNOW THE SECTOR NUMBER ON"
110 PRINT"WHICH THIS FILE CAN BE FOUND? PRESS Y/N[146]":POKE198,0:Z=0:S=1:F=0
120 GETA$:IFA$="N"THEN170
130 IFA$<>"Y"THEN120
140 PRINT"THE FILE IS ON TRACK 18. PLEASE ENTER   NUMBER OF SECTOR",,,":";
150 OPEN1,0:INPUT#1,S$:CLOSE1:S=VAL(S$):IFS<1ORS>18THENRUN
160 PRINT:Z=1
170 PRINT"[147]SEARCHING...":OPEN15,8,15,"I0":OPEN8,8,8,"#"
180 PRINT#15,"U1 8 0 18"S:INPUT#15,E,E$,A,B:IFETHEN310
190 PRINT#15,"B-P:8 0":GET#8,T$:GET#8,S$:NT=ASC(T$+CHR$(0)):NS=ASC(S$+CHR$(0))
200 PRINT,,"[145](SECTOR"S"[157]) ":FORN=0TO7:PRINT#15,"B-P:8"5+N*32:FL$=""
210 FORL=1TO16:GET#8,A$:FL$=FL$+A$:NEXT
220 IFLEFT$(FL$,LEN(F$))=F$THENF=N+1:N=7
230 NEXT:IFF>0THEN270
240 S=NS:IFNT=18THEN180
250 CLOSE8:CLOSE15:PRINT"[147]FILENAME NOT FOUND - PRESS ANY KEY"
260 POKE198,0:WAIT198,1:POKE198,0:RUN
270 PRINT"[147]FILE FOUND - UNPROTECTING...":PRINT#15,"B-P:8"2+(F-1)*32
280 GET#8,A$:A=ASC(A$+CHR$(0)):PRINT#15,"B-P:8"2+(F-1)*32
290 PRINT#8,CHR$(A AND 191);:PRINT#15,"U2 8 0 18"S
300 PRINT"OK - IT'S DONE.":CLOSE8:CLOSE15:END
310 CLOSE8:CLOSE15:PRINT"[147]DISK ERROR: "E$:PRINT"PRESS ANY KEY"
320 POKE198,0:WAIT198,1:POKE198,0:RUN