;Autodialer Script for Qmodem. clrscr assign 1 ATDT assign 9 0 display 'Autodialer Script for Qmodem.' writeln '' writeln '' write 'Enter the three digit prefix: ' getn 2 4 writeln '' write 'Now enter the four digit starting number: ' getn 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? (Y/N): ' inkey 4 1 writeln '' if '$4' = 'n' go_dial writeln '' write 'Enter the number you wish to stop at: ' getn 5 4 turnon online go_dial: displayln 'Now dialing $2-$3' pause 2000 send '$1$2$3^M' pause 25000 ; timing for how many rings. 25000 is for 20 seconds or about ; three or 4 rings. if $offline 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