setarray $KILLERS 30 1
getword CURRENTLINE $PROMPT 1
if ($PROMPT <> "Command") AND ($PROMPT <> "Citadel")
   halt
end
send "cc?qd**"
waiton "<A>"
setVar $TMP (CURRENTLINE & "!!@@##")
getText $TMP $POD "A> " "!!@@##"
waiton "Or you may enter any text to search for if it is 8 chars or less"
setTextLineTrigger   ONCE      :ONCE      "Daily Journal S.D."
setTExtLineTrigger   DESTRO   :DESTRO   "DESTROYED"
settextTrigger         PAUSE1   :PAUSE   "[Pause]"
settextTrigger         PAUSE2   :PAUSE   "[Press Space or Enter to continue]"
settexttrigger         done      :done      "Computer command"
pause
:ONCE
getText CURRENTLINE $DATE ".D. " "-=-="
pause
:DESTRO
setVar $TMP ("!!@@##" & CURRENTLINE)
#getwordpos $TMP $pos (#42 & #42 & #42 & " Joker " & #42 & #42 & #42)
getwordpos $TMP $pos $POD
if ($pos <> 0)
   getText $TMP $TRADER "!!@@##" "DESTROYED"
   setVar $i 1
   while ($i <= 30)
      if ($KILLERS[$i] = 0)
         setVar $KILLERS[$i] $TRADER
         add $KILLERS[$i][1] 1
         goto :_NEXT_
      elseif ($KILLERS[$i] = $TRADER)
         add $KILLERS[$i][1] 1
         goto :_NEXT_
      end
      add $i 1
   end
end
:_NEXT_
setTExtLineTrigger   DESTRO   :DESTRO   "DESTROYED"
pause

:done
killalltriggers
send "q"
waiton "<Computer deactivated>"
setVar $i 1
Echo ANSI_15 & "** THE KILL ZONE "&ANSI_12&"- "&ANSI_15&"AS OF "&ANSI_7&$DATE&"*"
while ($KILLERS[$i] <> 0)
   getlength $KILLERS[$i] $len
   setVar $PAD ""
   setvar $a 1
   while ($a <= (17 - $LEN))
      setVar $PAD ($PAD & " ")
      add $a 1
   end
   Echo "*   " & ANSI_7 & $KILLERS[$i] & $PAD & ANSI_14 & $KILLERS[$i][1]
   add $i 1
end
Echo "*"
halt
:PAUSE
killtrigger PAUSE1
killtrigger PAUSE2
send "*"
settextTrigger         PAUSE1   :PAUSE   "[Pause]"
settextTrigger         PAUSE2   :PAUSE   "[Press Space or Enter to continue]"
pause