1 REM Ins{nd av Martin Sandberg <6882>    1988-02-11 16.08.13 (KERMIT)
10 ; : ; : ; "!!!!!!!!!!!!!! L I S T S K Y D D !!!!!!!!!!!!!!!!!"
20 REM start
30 ; : ; : ; 
50 ; "A=Nytt skydd"
60 ; "B=Tag bort skydd"
70 ; "C=Sluta"
80 GET A$
90 IF A$="a" OR A$="A" THEN 120
100 IF A$="b" OR A$="B" THEN 210
105 IF A$="c" OR A$="C" THEN CHAIN 'Null:'
110 GOTO 80
120 INPUT "Vad heter filen som skall list-skyddas:"A$
130 OPEN A$ AS FILE 1
140 POSIT #1.,2.
150 GET #1,Byte$
160 Byte$=CHR$(ASCII(Byte$) OR 2)
170 POSIT #1,2
180 PUT #1,Byte$
190 CLOSE 1
200 GOTO 20
210 INPUT "Vad heter filen som listskyddet skall tas bort p}:"A$
220 OPEN A$ AS FILE 1
230 POSIT #1,2
240 GET #1,Byte$
250 Byte$=CHR$(ASCII(Byte$) AND 253)
260 POSIT #1,2
270 PUT #1,Byte$
280 CLOSE 1
290 GOTO 20