10 ! program to setup mail forwarding
20 dim fo$[14],ou$[14],in$[80]v,fx$[25]
25 set upper on
30 input "User name to forward ";fo$
40 input "User name to forward to ";ou$
50 ! search once to find forwarding info
60 open #3, "WHODID.LST" : if end #3 then 150
80 f1=0 : f2=0
90 input line #3, in$
100 if pos(in$,ou$)=1 then let f2=1 : fx$=in$
110 if pos(in$,fo$)=1 then let f1=1
120 goto 90
150 if f1=0 then print "User ";fo$;"not found for forwarding" : exit
160 if f2=0 then print "User ";ou$;"not found to forward to" : exit
170 close 3
200 open #3, "WHODID.LST/RO" : open #4, "WHODID.LST/WR"
220 if end #3 then 300
230 input line #3, in$
240 if pos(in$,fo$)=1 then 270
250 print #4, in$ : goto 230
270 print #4, sbs$(in$,1,25);fx$ : goto 230
300 close
310 b=0 : call "SPAWNB"("PIP WHODID.LST/PU",b)
320 exit