$! ADMIN:REORDR.COM == Reorder all accounts nightly $! Do it all again tomorrow $ _SUBMIT/AFTER=03:00+1DAYS/PRIORITY=200 ADMIN:REORDR.COM $! Make sure it's still in the middle of the night $ _IF F$MID(F$CVTIME(F$TIME),10,2) .GT. "07" THEN _GOTO TOO_LATE $! Ask anybody foolish enough to be here at this time of the morning $! to get off, then give them five minutes to wake up. $ _BROADCAST/ALL/BELL - "The system will be reordered in 5 minutes. Please log off." $ _INQUIRE/NOPUNCTUATION/TIME_OUT=300 JUNK "" $! Reorder all the disks (modify to add all disks on system) $ _RUN $REORDR NO SY0:[*,*] $ _BROADCAST/ALL/BELL - "The system has been reordered. You may log in now." $ _EXIT $! Log the fact that we didn't reorder today, then quit. $ TOO_LATE: $ _BROADCAST/BELL KB0: "?REORDR was NOT successfully completed!" $ _WRITE 0 "?REORDR was NOT successfully completed!" $ _EXIT