1 REM Ins{nd av Bo Kullmar # <1789>    1985-09-07 15.14.17
2 ! **********************************************************************
3 ! Program          L]SUPP.BAC       Utg}va  2.1      1985-09-07
4 ! av Bo Kullmar
5 ! Ins{nd av Bo Kullmar
6 ! F|r ABC800M ABC800C ABC802 ABC806
8 ! Testad p} ABC806
9 ! **********************************************************************
60 INTEGER : EXTEND 
1000 ; CHR$(12) 'L]SUPP' : ; : ; 
1010 ; 'En oskyddad fil blir listskyddad, en listskyddad blir oskyddad:' : ; : ; 
1020 ON ERROR GOTO 1090
1030 INPUT 'Ange fil: 'Fil$
1040 OPEN Fil$ AS FILE 1
1050 GET #1,A$ : IF ASCII(A$)<>143 AND ASCII(A$)<>144 ; : ; 'Filen ' Fil$ ' {r ingen BASIC II fil!!!' : GOTO 1100
1060 POSIT #1,2 : GET #1,A$
1070 POSIT #1,2 : PUT #1,CHR$(ASCII(A$) XOR 2)
1080 END 
1090 ; 'Fel nr ' ERRCODE
1100 END