:testcopy.sub        Demonstrates how to emulate GOTOs.
:
IF+ NOT ZZZ.DOC   SET JOB.SUB CR ZZZ.DOC :Create test file.
:
IF+ COPYTASK.B    SET BUMP.??? RE *.+6   :Skip next few lines?
:
:Create copy with "A" at end of name.
PIP ZZZA.DOC=ZZZ.DOC
SET BUMP.??? RE *.+5                     :Skip to Finish up.
:
:Create copy with "B" at end of name.
PIP ZZZB.DOC=ZZZ.DOC
:
:Finish up.
ERASE COPYTASK.???
ERASE ZZZ?.???
ERASE JOBLINE.???                        :This is final line.