10 ! program to show mail forwarding
20 dim in$[80]v
30 ! search once to find forwarding info
40 open #3, "WHODID.LST" : if end #3 then 100
50 input line #3, in$
60 if len(in$)<26 then 50
70 print sbs$(in$,1,12);" is being forwarded to ";sbs$(in$,26,12)
80 goto 50
100 close
110 exit