Download - Index of

I've kind of grown out of it but still
think about doing it now and again. But to
the point of why I'm mostly writing this. I
still have the old Qmodem script that scans
prefixes and thought that others might want
to use it as they see fit. It's short but it
works well. I don't know how any other
scanners work but this is the one I made.
The only thing is you have to have
Qmodem for it to work but it is available in
a test drive version probably on most
BBS's.
The script is as follows:
;Autodialer Script fo r Qmodem.
clrscr
assign 1 ATDT
assign 90
display 'Autodialer Script fo r Qmodem:
writeln ' ,
writeln ' ,
write 'Enter the three digit prefIX : '
gem 2 4
writeln ' ,
write 'Now enter the fo ur digit starting
number: '
gem 3 4
writeln "
write 'Enter filename to save numbers
to: '
get 6 20
writeln ' ,
write 'Do you want to stop dialing at a
certain number? (YIN) : '
inkey 4 1
writeln ' ,
if'$4'= 'n 'go_dial
writeln ' ,
write 'Enter the number you wish to
stop at: '
gem 54
turn on online
Page 42 261JO Magazi,Ju
displayln 'Now dialing $2-$3 '
pause 2000
send '$1$2$3AM'
pause 25000; timingfor how many
rings. 25000 is fo r 20 seconds or
about three or 4 rings.
if $o.lJline add
gosub save
goto go_dial
add:
displayln 'No connection made with
$2-$3 '
hangup
flush
incr 3
if'$3'> '$5 'bye
goto go_dial
save:
displayln 'CONNECTED with $2-
$3 '
incr 9
writeln 'Hanging up modem:
hangup
clrscr
writeln 'Writing number to disk ...... :
pause 3000
openfile c: \$6 append
writefile $2$3
closefile
writeln 'Done:
pause 1000
clrscr
flush
incr 3
return
bye:
writeln "
writeln 'You connected with $9
computers:
writeln "
writeln 'Terminating Program:
exit
Summer 1995