/* Add this command to your autoreply        */
call zocsynctime 750
robexp=1               
call getexp
ZocSend "pr^Mr"
ZocWait "in excess of "
holdfinal= ""
ZocWait " creds"
holds= ZocLastLine()
DO addchar=1 to 80
        holdsit=substr(holds,addchar,1)
        if holdsit<>" " then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
l=length(holdfinal)-5
creds= substr(holdfinal,1,l)
megarob=3300000
maxrob=trunc(creds+(creds*.11),0)
saferob=robexp*6
if maxrob>megarob then do
  call zocsend maxrob
  call zocsend "^M"
  signal endit
end
if maxrob>saferob then do
  call zocsend saferob
  call zocsend "^M" 
  signal endit
end
if maxrob<saferob then do
  call zocsend maxrob
  call zocsend "^M"
  signal endit
end
return


signal endit
doit:

GETEXP:
ZocSend "i"
expfinal=""
Call ZocWait "po"
exp=zoclastline()
DO addchar=17 to (length(exp)-2)
        exptmp=substr(exp,addchar,1)
        if exptmp<>" " then DO
          if exptmp<>"," then expfinal=expfinal||exptmp
        end
END
robexp=expfinal
return
endit: