[email protected] [email protected] .DELETE BASE:'A.AOK .IF (ERROR) .DELETE BASE:'A.FUB .IF (ERROR) .PA='B: .COMPIL/COMPIL/CREF 'C .IF (ERROR) .GOTO BADCOM .COPY BASE:'A.AOK=NUL:AOK.AOK .CREF BASE:='A .R FILCOM *BASE:.SCM=MON:'A.MAC,BASE:/O/T .PRINT BASE:'A.LST,'A.SCM .GOTO DONE BADCOM:: .COPY BASE:'A.FUB=NUL:FUB.FUB DONE::