10 RET$=INKEY$:IF RET$="" THEN 10
20 COMMON BACK$
40 ON ERROR GOTO 170
50 CLS:WIDTH 80:LOCATE 3,15:COLOR 0,7:PRINT " * * * * * *   S O F T M A R K    I N C.   * * * * * * ":COLOR 7,0
60 LOCATE 7,5: COLOR 15,0:PRINT "SCREEN FORMAT DISPLAY":COLOR 7,0
70 LOCATE 8,1: PRINT "-------------------------------------------------------------------------------"
80 LOCATE 13,11:PRINT "ENTER NAME OF SCREEN FORMAT TO VIEW..............."
90 LOCATE 13,62:COLOR 0,7:PRINT "         ":COLOR 7,0
100 LOCATE 18,1:FILES "B:*.BAS"
110 LOCATE 13,63:COLOR 0,7:INPUT "",FORMAT$:COLOR 7,0
120 BACK$="A:FORMDISP"
130 IF FORMAT$CHR$(32) THEN FLXX=FLXX+1:NEXT X
150 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"
160 CLS:CHAIN FILENAME$
170 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"
180 ENT$=INKEY$:IF ENT$="" THEN 180
190 RESUME 50