.SETF LSTCMD
.ENABLE SUBSTITUTION
.ASK CONFRM CONFIRM SHUTDOWN REQUEST
.IFF CONFRM .GOTO XIT
SEN TT2: SHUTTING DOWN!!! YOU HAVE 30 SECONDS TO EXIT!!!
.SETT LSTCMD
.DELAY 40S
.SETF LSTCMD
RUN ACCOFF 1S
.DELAY 3S
.WAIT ACCRPT
RUN ...BYE 1S/TI=TT2
RUN ...BYE 1S/TI=TT1
.DELAY 3S
SET /SLV=TT2:
UNL AS
UNL CR
UNL NB
.DELAY 10S
DMO DB1:
.SETT LSTCMD
;
;SYSTEM IS IN READINESS TO STOP. POWER DOWN WHENEVER YOU LIKE.
.XIT: