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