.ENABLE SUBSTITUTION
.ENABLE ESCAPE
.100:.ASKS FILE Name of file:
.IF <STRLEN> = 0 .GOTO 500
.IFT <ESCAPE> .GOTO 500
.200:FOR 'FILE'='FILE'/TR
.IF <EXSTAT> = 1 .GOTO 300
;
; Ooops, Error in file.
;
F4P ,TI:/LI:1='FILE'
EDI 'FILE'.FTN
.GOTO 200
;
.300:TKB 'FILE'='FILE'
.IF <EXSTAT> = 1 .GOTO 400
;
; Error(s) in Task Build
;
/
.400:PIP 'FILE'.*/PU
RUN 'FILE'
.500:/
