-> Thanks for posting. It would be useful had the original poster told
-> us exactly what he needed it for. BTW, I notice you're using line
-> numbers here; is that your usual practice or is this older code you
-> have modified?
The numbers are necessary in the rather ancient dialect of BASIC I'm
using here. However, the code doesn't use them in any way. There are no
GOTO  commands or anything like that. So you can just omit
them if you want.
The original poster seems to have disappeared without trace...
                              dow
--- QScan/PCB v1.19b / 01-0150
---------------