1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   PROTALL.BAS
3 REM ! Utg}va         1981-01-01
4 REM ! av (c) Joel Vogler
7 REM ! Minne 16 Kbytes f|r flexskiva
9 REM +++++++++++++++++++++++++++++++++
10 REM 
11 REM Screening av
12 REM Allan Varcoe & G|ran Olsson
13 REM 
14 IF PEEK(472)=80 THEN ; INP(3)
15 REM +++++++++++++++++++++++++++++++++
20 REM **                     **
30 REM **  SKYDD AV SAMTLIGA  ** 
40 REM **  FILER I BIBLIOTEK  **
50 REM **  P] ALLA DISKETTER  ** 
60 REM **                     **
70 ; CHR$(12%) : GOSUB 320 : ; CUR(10%,0);
80 FOR D%=0% TO 6% : POKE -767%,D%
90 Z%=CALL(24678%,192%)
100 IF PEEK(-747%) 310
110 ; : ; 'DRIVE'D%':'; : FOR S%=0% TO 7%
120 Z%=CALL(24678%,512%+S%*32%)
130 IF PEEK(-747%) 380
140 FOR I%=-2800% TO -2576% STEP 16%
150 IF PEEK(I%)=0% OR PEEK(I%)=255% 270
160 F$='' : FOR J%=4% TO 14%
170 IF J%=12% F$=F$+'.'
180 F$=F$+CHR$(PEEK(I%+J%))
190 NEXT J% : ; ,F$'    ';
200 ; (PEEK(I%+1%) AND 3%)CHR$(8%);
210 GET A$ : A%=ASC(A$)
220 IF A%=13% ; : GOSUB 320 : GOTO 270
230 A%=A%-48% : IF A%<0% OR A%>3% 210
240 ; CHR$(8%)A% : GOSUB 320
250 POKE I%+1%,(PEEK(I%+1%) AND 252%)
260 POKE I%+1%,(PEEK(I%+1%) OR A%)
270 NEXT I%
280 Z%=CALL(24675%,512%+S%*32%)
290 IF PEEK(-747%) 380
300 NEXT S% : POKE -523%,0%
310 NEXT D% : ; CHR$(7%) : GOTO 390
320 FOR L%=31872% TO 31911% : POKE L%,32% : NEXT L%
330 POKE 32000%,49%+128%,61%,115%,107%,114%,105%,118%,32%,32%,32%,32%,50%+128%,61%,114%,97%,100%,96%,114%,32%,32%
340 POKE 32020%,32%,32%,51%+128%,61%,49%,43%,50%,32%,32%,32%,32%,48%+128%,61%,105%,110%,103%,101%,116%,32%,32%
350 POKE 31744%,32%,32%,32%,32%,32%,32%,32%,32%,86%,91%,76%,74%,32%,84%,89%,80%,32%,65%,86%,32%
360 POKE 31764%,70%,73%,76%,83%,75%,89%,68%,68%,32%,58%,32%,32%,32%,32%,32%,32%,32%,32%,32%,32%
370 FOR L%=32256% TO 32295% : POKE L%,32% : NEXT L% : RETURN 
380 ; '>>FEL !' : OUT 6,7
390 GOSUB 320 : END