1 REM Ins{nt av 1183
10 REM +++++++++++++++++++++++++++++++++
20 REM ! Program .... FILEPRO
30 REM ! Utg}va 2.1 1983-02-13
40 REM ! av (c) H.Schimmer
50 REM ! Minne 16 Kbytes f|r flexskiva
60 REM ! Ins{nt av <1183>
70 REM +++++++++++++++++++++++++++++++++
80 REM Drive type FD2
90 ; CHR$(12)
100 ; CUR(1,1)"HS-SYSTEM FILE-PROTECTOR VER. 1.2"
110 ; CUR(2,1)"+++++++++++++++++++++++++++++++++++++++"
120 ; CUR(20,1)"---------------------------------------"
130 ; CUR(21,1)"Message:";
140 ; CUR(5,1)"Enter filename including drive and ext."
150 ; CUR(6,1)"if required. Upper Case should be ."
160 ; CUR(8,1)"................"
170 ; CUR(8,1); : INPUTLINE F$
180 F$=LEFT$(F$,LEN(F$)-2)
190 ; CUR(21,11)"Reading "F$
200 ; CUR(10,1)"Current status:";
210 ONERRORGOTO 390
220 OPEN F$ ASFILE 1
230 ONERRORGOTO 0
240 Z%=CALL(28666%,1)+CALL(28668%,0)
250 IF ASC(LEFT$(Q0$,1))=130 THEN S$="UNLOCKED" ELSE S$="LOCKED"
260 CLOSE 1 : ; CUR(10,17)S$
270 ; CUR(21,11)" ";
280 ; CUR(12,1)"Press (L) to lock (U) to unlock:"; : GET V$
290 IF V$="L" OR V$="l" THEN A$=CHR$(131) ELSE A$=CHR$(130)
300 OPEN F$ ASFILE 1
310 Q0$=A$+RIGHT$(Q0$,2)
320 Z=CALL(28666,1) : Z=CALL(28670,0)
330 CLOSE 1
340 IF S$="LOCKED" AND V$="L" THEN PRINT CUR(10,17)"No change" : GOTO 380
350 IF S$="UNLOCKED" AND V$="U" THEN PRINT CUR(10,17)"No change" ELSE 360
351 GOTO 370
360 ; CUR(10,17)"File-status changed"
370 ; CUR(12,1)" "
380 ; CUR(14,1)"Program exiting ..."; : END
390 ; CHR$(7);CUR(21,11)"File not found "; : GOTO 100