.ENABLE SUBSTITUTION
.ASK COMP COMPILE RCVLUP PROGRAM
.ASK BUILD BUILD RCVLUP
.IFF BUILD .GOTO 2
.ASKS RSXLIB DISC AND UIC FOR RSXLIB [DEFAULT SY:[1,1]]
.IF RSXLIB EQ "" .SETS RSXLIB "SY:[1,1]"
.ASKS CDLIB DISC AND UIC FOR CDPACK LIBRARY [DEFAULT SY:[1,1]]
.IF CDLIB EQ "" .SETS CDLIB "SY:[1,1]"
.2:
.IFF COMP .GOTO 10
F4P RCVLUP,RCVLUP/-SP=RCVLUP
.10:
.50:
.IFF BUILD .GOTO 99
.OPEN RCVLUP.TKB
.ENABLE DATA
RCVLUP/FP,RCVLUP/-SP=RCVLUP,'CDLIB'CDPACK/LB                           
'RSXLIB'RSXLIB/LB
LB:[1,1]F4POTS/LB
/
ASG=CD:2
ASG=TI:5
TASK=...RCV
//
.DISABLE DATA
.CLOSE RCVLUP.TKB
TKB @RCVLUP.TKB
PIP RCVLUP.TKB;*/DE
.99:
.EXIT
