.ENABLE SUBSTITUTION
.ASK COMP COMPILE XMTLUP PROGRAM
.ASK BUILD BUILD XMTLUP
.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 XMTLUP,XMTLUP/-SP=XMTLUP
.10:
.50:
.IFF BUILD .GOTO 99
.OPEN XMTLUP.TKB
.ENABLE DATA
XMTLUP/FP,XMTLUP/-SP=XMTLUP,'CDLIB'CDPACK/LB         
'RSXLIB'RSXLIB/LB,LB:[1,1]F4POTS/LB
/
ASG=CD:2
ASG=TI:5
TASK=...XMT
//
.DISABLE DATA
.CLOSE XMTLUP.TKB
TKB @XMTLUP.TKB
PIP XMTLUP.TKB;*/DE
.99:
.EXIT
