.;========================================================================
.;	MIDNIGHT.GEN	VER 1.2
.;
.;	Phil Hoffman
.;	Department of Chemistry
.;	Michigan State University
.;	East Lansing, MI 48824
.;	15-April-1983
.;------------------------------------------------------------------------
.; Indirect command file to assemble, task build, and install, and run
.; MIDNIGHT.TSK
.;========================================================================
.ENABLE SUBSTITUTION
;
; Substantial Editing is required w/in the source code for MIDNIGHT.MAC
; to tailor it to a specific environment.  If this has not been done,
; please answer NO to the following question and edit MIDNIGHT.MAC to
; suit your own requirements.
;
;
.GOSUB 100
;
; RSXMC must be located on your system
;
.PAUSE
.ASKS DEVUIC Device and UIC for RSXMC.MAC
;
; Assembling source code
;
PIP MIDNIGHT.OBJ;*/DE/NM,MIDNIGHT.LST;*
MAC MIDNIGHT,MIDNIGHT=LB:[1,1]EXEMC/ML,'DEVUIC'RSXMC,SY:'<UIC>'MIDNIGHT
.;
.GOSUB 100
;
; Task Building
;
PIP MIDNIGHT.TSK;*/DE/NM,MIDNIGHT.MAP;*,MIDNIGHT.BLD;*
.OPEN MIDNIGHT.BLD
.ENABLE DATA
MIDNIGHT/PR:5,MIDNIGHT=MIDNIGHT,LB:[1,54]RSX11M.STB/SS
/
TASK=...MID
UNITS=3
.DISABLE DATA
.ASK FCS Resident Library FCSRES Available
.IFT FCS .DATA LIBR=FCSRES:RO
.DATA //
.CLOSE
TKB @MIDNIGHT.BLD
.;
.GOSUB 100
;
.ASK INST Install and Run MIDNIGHT
.IFF INST .EXIT
.IFINS MID CAN ...MID
.IFINS MID REM MID
INS MIDNIGHT
;
; Enter the time at which MIDNIGHT is to run.  Please use military time
; in the format HH:MM:SS.  Please include the minutes and seconds,
; even if "00" is desired.
;
.ASKS TIME Enter time at which MIDNIGHT will run
RUN ...MID 'TIME'/RSI=24H
;
; Remember to add the RUN ...MID 'TIME'/RSI=24H command to STARTUP.CMD
; MIDNIGHT must also be installed either through VMR or in STARTUP.CMD
; prior to the RUN.
;
.EXIT
.;
.;
.100:
.ASK CONTIN Continue
.IFF CONTIN .EXIT
.RETURN
.;
.;
.1000:
.ASKS STR Enter location for 'FILE' if NOT 'DEFSTR'
.IF STR = "" .SETS STR DEFSTR
.RETURN