1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program .... SKIVRENS
3 REM ! Utg}va 1.0 81-01-21
4 REM ! av (c) JAN K[RRB[CK
7 REM ! Minne 16 Kbytes f|r flexskiva
8 REM ! Ins{nt av 765
9 REM ++++++++++++++++++++++++++++++++
10 REM
11 REM Screened by C R LERIN.
12 REM
40 POKE 65436%,83%,30%,0%,67%,203%,8%,205%,18%,96%,58%,21%,253%,33%,255%,255%,167%
50 POKE 65452%,192%,62%,32%,131%,95%,48%,236%,42%,18%,253%,111%,201%
60 P%=62720%
70 ; CHR$(12%)'* ABC80 SKIVRENS Vers 1.0 *'
80 REM
90 FOR I%=0% TO 2047%
100 POKE P%+I%,0% : NEXT I%
110 ONERRORGOTO 250 : ; : ; 'Vilken drive '; : INPUT D%
120 IF (D% AND 254%) GOTO 70
130 ; : ; 'Ok f|r rensning ';
140 GOSUB 270
150 ; : ; 'Absolut s{ker ';
160 GOSUB 270
170 POKE -767%,D%
180 REM < RENSAR SP]R 0 TILL 39 >
190 FOR I%=0% TO 39%
200 Z%=CALL(-100%,I%)
210 IF PEEK(-747%) GOTO 260
220 ; CUR(8%,0%)'Rensar sp}r 'I%
230 NEXT I%
240 POKE -128%,255% : POKE -100%,255%
250 END
260 ; : ; 'Diskfel drive'D%' !!!' : GOTO 250
270 INPUT T$ : T%=-(T$='J')-(T$='j')
280 IF T%=0% GOTO 250 ELSE RETURN