.;
.;  COMMAND FILE TO BUILD TEST PROGRAM CDTEST
.;   
.;  VICKY WHITE   
.;     FERMILAB, BATAVIA, IL 60510
.;
.;  THE PROGRAM CDTEST CAN BE USED TO TEST ALL THE FUNCTIONS
.;  OF THE CD DRIVER (AND THE FORTRAN CALLABLE PACKAGE). IT
.;  ALSO CAN RUN AS AN ECHO TYPE TEST PROGRAM, CHECKING THE
.;  VALIDITY OF THE DATA BEING TRANSFERRED OVER THE LINK
.; 
;  COMMAND FILE TO BUILD CDTEST PROGRAM
;
.ENABLE SUBSTITUTION
.ASK COMP COMPILE CDTEST PROGRAM
.ASK WAKE COMPILE CDWAKE FORTRAN SUBROUTINE
.ASK BUILD BUILD CDTEST 
.IFF COMP .GOTO 10
F4P CDTEST,CDTEST/-SP=CDTEST
.10:
.IFF WAKE .GOTO 11
F4P CDWAKE,CDWAKE/-SP=CDWAKE
.11:
.IFF BUILD .GOTO 99
.ASKS CDLIB ENTER DISK AND UIC FOR CDPACK.OLB [DEFAULT SY:[1,1]]
.IF CDLIB EQ "" .SETS CDLIB "SY:[1,1]"
.ASKS RSXL ENTER DISK AND UIC FOR RSXLIB.OLB [DEFAULT SY:[1,1]]
.IF RSXL EQ "" .SETS RSXL "SY:[1,1]"
.OPEN CDTEST.TKB
.ENABLE DATA
CDTEST/FP,CDTEST/-SP=CDTEST,CDWAKE,'CDLIB'CDPACK/LB
'CDLIB'CDPACK/LB
'RSXL'RSXLIB/LB
LB:[1,1]F4POTS/LB
/
ASG=CD:2
ASG=TI:5
TASK=...CDT
//
.DISABLE DATA
.CLOSE CDTEST.TKB
TKB @CDTEST.TKB
PIP CDTEST.TKB;*/DE
.99:
.EXIT