/* REXX _pickftr */ /* By Francis */ call zocsynctime 250 CALL ZOCSEND "f" call zocwait ", leaving " call zocwait "^M" line=zoclastline() numb="" do i=1 to length(line) char=substr(line,i,1) if pos(char,"-0123456789") > 0 then numb=numb||char end /*do*/ call zocwait "defending this sector?" call zocsend numb||"^M" ans=zocwaitmux("Should","Done. You") if ans=0 then call zocsend "cd"