FAILAT 255

IF EXISTS ram:Userdata
  delete ram:userdata
ENDIF

at h1

GETENV NoToss
IF $NoToss EQ TRUE
  skip windup
ENDIF

PlutCheck BUNDLE PACKET COMMAND Setenv MailHere TRUE

GetEnv MsgWritten
GetEnv MailHere

IF $MsgWritten EQ TRUE
  IF $MailHere EQ TRUE
    copy mail:inbound/????????.((mo|tu|we|th|fr|sa|su)(0|1|2|3|4|5|6|7|8|9)|pkt) WB:MailBak clone
    TrapToss Toss Scan
    SetEnv MsgWritten FALSE
    SetEnv MailHere FALSE
  ELSE
    TrapToss Scan
    SetEnv MsgWritten FALSE
  ENDIF
ELSE
  IF $MailHere EQ TRUE
    copy mail:inbound/????????.((mo|tu|we|th|fr|sa|su)(0|1|2|3|4|5|6|7|8|9)|pkt) WB:MailBak clone
    TrapToss Toss Routing
    SetEnv MailHere FALSE
  ENDIF
ENDIF

LAB windup

echo " "
echo "WARNING! WARNING! WARNING! system will now die out slowly"

WAIT 10 secs

; die loudly

echo " "
echo "Warning - about to reboot!!!!!!"

wait 1 sec
echo "5"

wait 1 sec
echo "4"

wait 1 sec
echo "3"

wait 1 sec
echo "2"

wait 1 sec
echo "1"

wait 1 sec

echo "bye cruel world....."
wait 1 sec
echo "-1"
Wait 3 sec

Reset


