.ENABLE SUBSTITUTION .ASKS STNG File(s) .PARSE STNG "," F1 F2 F3 F4 F5 F6 F7 F8 .ASK DEBUG Debug .SETS BUG "" .IFT DEBUG .SETS BUG "/DE" .SETS FILE "'F1'" .GOSUB 100 .IF DONE EQ 1 .GOTO 5000 .SETS FILE "'F2'" .GOSUB 100 .IF DONE EQ 1 .GOTO 5000 .SETS FILE "'F3'" .GOSUB 100 .IF DONE EQ 1 .GOTO 5000 .SETS FILE "'F4'" .GOSUB 100 .IF DONE EQ 1 .GOTO 5000 .SETS FILE "'F5'" .GOSUB 100 .IF DONE EQ 1 .GOTO 5000 .SETS FILE "'F6'" .GOSUB 100 .IF DONE EQ 1 .GOTO 5000 .SETS FILE "'F7'" .GOSUB 100 .IF DONE EQ 1 .GOTO 5000 .SETS FILE "'F8'" .GOSUB 100 .GOTO 5000 .100: .IF FILE EQ "" .GOTO 110 F77 'FILE''BUG','FILE'/-SP='FILE' .SETN DONE 0 .IF NE 1 .SETN DONE 1 .GOTO 120 .110: .SETN DONE 1 .120: .RETURN .5000: .IF NE 1 .STOP TKB @PLAYER