.ENABLE SUBSTITUTION
.ENABLE QUIET
.2:
.IF P1 EQ "" .GOTO 10
.SETS TEMP P1[1:1]
.IF TEMP <> "@" .GOTO 3
.TEST P1
.SETS TEMP P1[2:<STRLEN>]
.OPENR 'TEMP'
.13:
.READ P1
.IFT <EOF> .GOTO 10
F77 'P1'='P1'/-wr'P2'
.IF <EXSTAT> NE 1 .GOTO 1
PIP 'P1'.*/PU
.GOTO 13
.3:
F77 'P1'='P1'/-wr'P2'
.IF <EXSTAT> NE 1 .GOTO 1
PIP 'P1'.*/PU
.ASKS P1 Compile any more routines ?
.GOTO 2
.10:
TKB @'P0'.TKB
.IF <EXSTAT> NE 1 .GOTO 1
PIP 'P0'.*/PU
.1:
BEL
