10 REM +++++++++++++++++++++++++++++++++
11 REM ! Program .... NYUNSAVE.UTL
12 REM ! Utg}va  1.0    1981-05-16
13 REM ! av JAN K[RRB[CK <765>
14 REM ! granskat av BO HJULSTR\M <557>
15 REM ! Copyright SE 4
16 REM ! Minne 16 Kbytes f|r flexskiva
17 REM ! Ins{nt av SE 4
18 REM +++++++++++++++++++++++++++++++++
19 REM UTILITYPROGRAM : 
20 REM PROGRAMMET [R UPPBYGGT P] SAMMA
21 REM S[TT SOM COPYLIB MED SKILLNADEN
22 REM ATT I ST[LLET F\R ATT KOPIERAS
23 REM RADERAS FILEN.
24 REM 
25 REM 
26 REM 
27 REM 
28 REM 
29 REM 
30 REM +++++++++++++++++++++++++
31 REM (c) UNSAVE Vers 1.0
32 REM JAN K[RRB[CK 81.05.16
33 REM Tel 08/386285,891910
34 DEFFNT%(X$,Y$)=INSTR(1%,T$,X$)+INSTR(1%,T$,Y$)
35 DIM Q$(120%)=15%,T%(120%) : A%=0%
36 Z%=CALL(24678%,512%) : GOSUB 61
37 ONERRORGOTO 59 : ; : ; 'Drive '; : INPUT D% : IF (D% AND 254%) GOTO 35
38 ONERRORGOTO 0 : POKE -767%,D% : D$='DR'+NUM$(D%)+':'
39 ; : ; 'Fas 1, filnamn:' : ; : FOR S%=0% TO 7%
40 Z%=CALL(24678%,512%+S%*32%)
41 IF PEEK(-747%) ; CHR$(7%)'Diskfel drive'D%' !!!' : GOTO 59
42 FOR J%=62736% TO 62960% STEP 16%
43 IF PEEK(J%)=255% GOTO 53
44 Q$='' : FOR I%=4% TO 14%
45 Q$=Q$+CHR$(PEEK(J%+I%)) : NEXT I%
46 A%=A%+1% : Q$(A%)=LEFT$(Q$,8%)+'.'+RIGHT$(Q$,9%)+' '
47 ; Q$(A%); : IF T% ; '?' : GOTO 52
48 INPUT T$ : T%(A%)=FNT%('Y','y') : IF T%(A%) Q%=1%
49 IF T$='I' AND A%=1% OR T$='i' AND A%=1% GOTO 59
50 IF FNT%('I','i') GOTO 54
51 IF FNT%('X','x') GOTO 59
52 IF FNT%('A','a') T%(A%)=1% : T%=1%
53 NEXT J% : NEXT S%
54 IF A%=0% GOTO 59 ELSE IF Q% OR T% ; : ; 'Fas 2, radering!' : ; ELSE 59
55 FOR I%=1% TO A% : IF T%(I%)=0% GOTO 58
56 ONERRORGOTO 60 : ; Q$(I%);
57 KILL D$+Q$(I%) : ; 'Raderad.'
58 NEXT I%
59 END 
60 ; 'ERR'ERRCODE : GOTO 58
61 ; CHR$(12%)'* ABC80 UNSAVE Vers 1.0 *'
62 ; : ; 'Till}tna kommandon:' : ; 
63 ; 'A = Alla, raderar alla filer.'
64 ; 'I = Ignorera efterf|ljande filer.'
65 ; 'x = Exit, ingen }tg{rd.'
66 ; 'Y = Yes, radera denna fil.'
67 ; 'Return, radera ej denna fil.'
68 RETURN