$JOB/PASS:SECRET SYSTEM IASUTIL $MOUNT/NOOP/FOR DB1 DECUS $SET DEF DB1:[355,2] $RUN DB0:[11,1]LBR @UTILITIES.LBR $RUN DB0:[11,1]MAX @UTILITIES.ASM $RUN DB0:[11,1]F4P @UTILITIES.FOR $RUN DB0:[11,1]TKB @UTILITIES.BLD $EOJ