10 REM ! Program... KILLFIL.BAS  / Gjort av: Martin Davidsson <7108>
20 REM !                         / Datum   : 1991-07-16
30 REM !                         / Dator   : ABC806 + F{rgsk{rm"
40 REM ! Raderar filer p} disketten. Ange filnamn + extension tex: TEST.BAS
50 REM ! Om du skriver in 'S' s} avsluta du , 'L' s} avslutar du och 'LIB'
60 REM ! startas, 'E' s} byter du exension (s{tts automatiskt till BAC n{r 
70 REM ! man startar programmet).
80 REM 
90 REM !
100 REM ! Ver 1.0 = "Svart-vit" version.
110 REM ! Ver 1.1 = F{rg tillsatt.
120 REM ! Ver 1.2 = Val av extension.    * 1992-01-05
130 REM !
140 EXTEND 
150 REM 
160 E$="BAC"
170 ; CHR$(12) DBLE WHT NWBG RED "RADERING AV FILER ver 1.2    " BLBG
180 ; 
190 ; 
200 ; CYA "   S = Slut     L = Avslutar programmet och chainar till 'LIB'"
210 ; CYA "                E = Extension {r nu satt till:" YEL "" E$
220 ; 
230 ; WHT NWBG BLU; : INPUT "Ange filnamn (Obs! ingen extension): "F$
240 ON ERROR GOTO 350
250 IF F$="S" OR F$="s" THEN GOTO 490 ELSE 260
260 IF F$="L" OR F$="l" THEN CHAIN "LIB" ELSE 270
270 IF F$="E" OR F$="e" THEN GOTO 510 ELSE 300
280 ! 
290 ! 
300 ; : ; 
310 ; 
320 KILL F$+"."+E$
330 GOTO 380
340 ! 
350 IF ERRCODE=21 THEN ; CUR(15,2) CHR$(7) RED "Hittar ingen fil med det namnet!" : GOTO 400
360 IF ERRCODE=40 THEN ; CUR(15,2) CHR$(7) "Filen '";F$ "' {r raderskyddad!" RED FLSH "Kan ej raderas!" : GOTO 430
370 ! 
380 ; : ; : ; "   Filen '";F$+"."+E$ "' {r nu raderad!"
390 ; : ; GRN EL "K L A R T!"; : GET W$ : GOTO 170
400 ; : ; : ; : ; "  Var v{nlig f|rs|k igen!"; : GET D$
410 GOTO 170
420 ! 
430 ; : ; : ; : ; RED "" YEL "Du kan ta bort skyddet med programmet:";CYA " 'REPROT.BAC'";RED ""
440 ; RED "" YEL "som finns p} system-skivan!                         " RED ""
450 GET D$
460 GOTO 170
470 ! 
480 END 
490 ; CHR$(12)
500 END 
510 ; CHR$(12) YEL ULN "Val av extension:             " NULN
520 ; : ; 
530 ; CYA; : INPUT "V{lj extension (BAS): "E$
540 IF E$="" THEN E$="BAS" ELSE E$=E$
550 GOTO 170