10 ON ERROR GOTO 160
20 CLS:WIDTH 80:LOCATE 3,15:COLOR 0,7:PRINT " * * * * * *   S O F T M A R K    I N C.   * * * * * * ":COLOR 7,0
30 LOCATE 7,5: COLOR 15,0:PRINT "ASDA FORMAT DELETION PROCEDURE":COLOR 7,0
40 LOCATE 8,1: PRINT "-------------------------------------------------------------------------------"
50 LOCATE 13,11:PRINT "ENTER NAME OF SCREEN FORMAT TO DELETE............."
60 LOCATE 13,62:COLOR 0,7:PRINT "         ":COLOR 7,0
70 LOCATE 18,1:FILES "B:*.*"
80 LOCATE 13,63:COLOR 0,7:INPUT "",FORMAT$:COLOR 7,0
90 IF FORMAT$="" THEN CHAIN "A:ASDARUN
100 FOR X=1 TO 8:IF MID$(FORMAT$,X,1)>CHR$(32) THEN FLXX=FLXX+1:NEXT X
110 FILENAME$=SPACE$(FLXX+7):MID$(FILENAME$,1,2)="B:":FOR X=1 TO FLXX:MID$(FILENAME$,X+2,1)=MID$(FORMAT$,X,1):NEXT X:MID$(FILENAME$,FLXX+3,4)=".BAS"
120 KILL FILENAME$
130 MID$(FILENAME$,FLXX+3,4)=".ATT"
140 KILL FILENAME$
150 GOTO 20
160 IF ERR=53 THEN BEEP:FOR X=1 TO 500:NEXT X:BEEP:LOCATE 25,5:PRINT "SCREEN FORMAT DOES NOT EXIST ON THIS DISKETTE----PRESS ANY KEY TO CONTINUE"
170 ENT$=INKEY$:IF ENT$="" THEN 170
180 RESUME 20