10 ON ERROR GOTO 170
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 MODIFICATION SETUP":COLOR 7,0
40 LOCATE 8,1: PRINT "-------------------------------------------------------------------------------"
50 LOCATE 13,11:PRINT "ENTER NAME OF SCREEN FORMAT TO MODIFY............."
60 LOCATE 13,62:COLOR 0,7:PRINT "         ":COLOR 7,0
70  LOCATE 18,1:FILES "B:*.ATT"
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)=".ATT"
120 OPEN FILENAME$ FOR INPUT AS #1
130 INPUT#1,M$,N$,O$,P$,Q$,R$,S$,T$,U$
140 SWW=VAL(T$):SW=VAL(T$)
160 CLOSE:I17=1:I16=1:CHAIN "ASDA",200,ALL
170 IF ERR=53 THEN BEEP:FOR X=1 TO 500:NEXT X:BEEP:LOCATE 25,1:PRINT"SCREEN FORMAT DOES NOT EXIST ON THIS DISKETTE.......PRESS ANY KEY TO CONTINUE"
180 ENT$=INKEY$:IF ENT$="" THEN 180
190 RESUME 20