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 <PROGNAMN>"
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