1 REM Ins{nt av 2839 100 REM ++++++++++++++++++++++++++ 110 REM +-------...ONLY...-------+ 120 REM +-- LIST-SKYDDAR PGM- --+ 130 REM +-- FILER f|r ABC80 --+ 140 REM +------------------------+ 150 REM +-- Copyright CID --+ 160 REM +-- Lars-B|rje Cid --+ 170 REM +-- 1983-08-26 --+ 180 REM ++++++++++++++++++++++++++ 190 REM 200 REM . Om ett program {r 210 REM . skyddat tas skyd- 220 REM . det bort och vice- 230 REM . versa. 240 REM 250 ; CHR$(12%)" RUN-ONLY PROTECTION f|r ABC80" : ; TAB(4%)STRING$(29%,61%) 260 ; : ; " LIST- och KOPIERINGS skyddar" 270 ; " programfiler lagrade med:" 280 ; : ; " SAVE " 290 ; : ; : ; " Ange fil: "; : INPUTLINE A$ : ONERRORGOTO 380 : OPEN LEFT$(A$,LEN(A$)-2%) ASFILE 1% 300 Z%=CALL(28666%,1%)+CALL(28668%,0%) 310 Z%=ASC(Q0$) : IF NOT (Z%=131% OR Z%=130%) A%=58% : GOTO 390 320 IF Z%=130% A%=131% ELSE A%=130% 330 Q0$=CHR$(A%)+RIGHT$(Q0$,2%) 340 Z%=CALL(28666%,1%)+CALL(28670%,0%) : ; 350 ; : ; " Filen '"LEFT$(A$,LEN(A$)-2%)"' {r nu "; 360 IF A%=131% ; "LIST-skyddad" ELSE ; "oskyddad" 370 END 380 A%=21% 390 ; : ; : ; "ERROR"A%"!"CHR$(7%); : END