$ WRITE SYS$OUTPUT "COMPILE AND BUILD CDUTST PROGRAM"
$ INQUIRE COMP "COMPILE CDUTST PROGRAM?"
$ INQUIRE ASM "ASSEMBLE CDUINT SUBROUTINE?"
$ INQUIRE PACK "ASSEMBLE CDUTIL SUBROUTINES?"
$ INQUIRE STAT "ASSEMBLE CDSTAT SUBROUTINE"
$ INQUIRE BUILD "BUILD CDUTST"
$ INQUIRE DA "ODT IN TASK?"
$ IF COMP.NE."Y" THEN GOTO 100
$ MCR F4P
CDUTST,CDUTST/-SP=CDUTST
$ 100:
$ IF ASM.NE."Y" THEN GOTO 120
$ MCR MAC
CDUINT,CDUINT/-SP=CDPREF,CDUINT
$ 120:
$ IF PACK.NE."Y" THEN GOTO 140
$ MCR MAC
CDUTIL,CDUTIL=CDPREF,CDUTIL
$ 140:
$ IF STAT.NE."Y" THEN GOTO 190
$ MCR MAC CDSTAT,CDSTAT/-SP=CDPREF,CDRSX,CDSTAT
$ 190:
$ IF BUILD.NE."Y" THEN GOTO 200
$ IF DA.EQ."Y" THEN GOTO 150
$ MCR TKB
CDUTST/FP,CDUTST/-SP=CDUTST,CDUINT,CD$ROOT:[LIBRARY.RSX]CDPACK/LB
CD$ROOT:[LIBRARY.RSX]RSXLIB/LB,LB:[1,1]F4POTS/LB
/
ASG=CD:2
ASG=TI:5
//
$ GOTO 200
$ 150:
$ MCR TKB
CDUTST/FP/DA,CDUTST/-SP=CDUTST,CDUINT,CD$ROOT:[LIBRARY.RSX]CDPACK/LB
CD$ROOT:[LIBRARY.RSX]RSXLIB/LB,LB:[1,1]F4POTS/LB
/
ASG=CD:2
ASG=TI:5
//
$ 200: