10 ! program to cancel mail forwarding
20 dim fo$[14],in$[80]v
25 set upper on
30 input "User name to cancel forwarding for ";fo$
40 ! search once to find forwarding info
50 open #3, "WHODID.LST" : if end #3 then 150
60 open #4, "WHODID.LST/WR"
70 f1=0
80 input line #3, in$
100 if pos(in$,fo$)=1 then let f1=1 : print #4, sbs$(in$,1,25)
110 if pos(in$,fo$)<>1 then print #4, in$
120 goto 80
150 if f1=0 then print "User ";fo$;"not found to cancel forwarding"
170 close
180 b=0 : call "SPAWNB"("PIP WHODID.LST/PU",b)
190 exit