It is attached - hope this won't overload the server!
Goes to show other people can knock up something useful in the lunch hour too!!
Rich Mellor
RWAP Software
7 Common Road, Kinsley, Pontefract, West Yorkshire, WF9 5JR
TEL: 01977 614299
http://hometown.aol.co.uk/rwapsoftware
100 source$='ram1_':dest$='win1_smsq_' 110 OPEN_NEW #3,pipe_dir2_50000 120 OPEN_IN #4,pipe_dir2 130 DIR #3,source$ 140 CLOSE #3 145 INK 4 150 INPUT #4,desc$\sector$ 160 REPeat loop 170 IF EOF(#4):EXIT loop 180 INPUT #4,file$ 190 OPEN #5,source$&file$ 200 OPEN_NEW #6,dest$&file$ 210 lno=0 220 REPeat line_loop 230 IF EOF(#5):EXIT line_loop 240 lno=lno+1 250 INPUT #5,line$ 260 IF 'include ' INSTR line$ 270 xpos="'" INSTR line$:IF xpos=0:xpos='"' INSTR line$ 275 IF xpos>0 280 IF line$(xpos+1 TO xpos+4)='win1' 290 line$(xpos+1 TO xpos+4)='dev8' 300 ELSE 310 PRINT file$;'>> line no';lno;'> ';line$;:INK 2:PRINT ' - needs to be looked at':PAUSE:INK 4 315 END IF 320 END IF 330 END IF 340 PRINT #6,line$ 350 END REPeat line_loop 360 CLOSE #5,#6 370 END REPeat loop 380 CLOSE #4
