home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / modem / fidoterm.arc / DIAL.SCR next >
Encoding:
Text File  |  1988-02-05  |  767 b   |  57 lines
  1.     trap timeout
  2.     &t= 4
  3.     quiet 1000
  4.     output "ATX3V1E1M1\r"
  5.     match "OK\r"
  6.     quiet 1000
  7.     &t= 60
  8.     output "ATDT&1\r"
  9.  
  10. :get-result
  11.     sample
  12.     if "24" 2400b
  13.     if "RI" jmp ring
  14.     if "VO" voice
  15.     if "96" 9600b
  16.     if "CT\r" 300b
  17.     if "12" 1200b
  18.     if "BU" busy
  19.     if "NO" noans
  20.     if "FA" fast
  21.     jmp get-result
  22.  
  23. :timeout
  24.     message "The modem is dead as a doorknob"
  25.     return 1
  26. :ring
  27.     message "Ring!"
  28.     jmp getbaud
  29. :noans
  30.     message "No connection!"
  31.     return 1
  32. :voice
  33.     message "Voice!"
  34.     return 1
  35. :busy
  36.     message "Busy, redialing ..."
  37.     &t= 60
  38.     output "A/\r"
  39.     jmp get-result
  40. :300b
  41.     &a= 300
  42.     jmp connect
  43. :1200b
  44.     &a= 1200
  45.     jmp connect
  46. :2400b
  47.     &a= 2400
  48.     jmp connect
  49. :9600b
  50.     &a= 9600
  51. :connect
  52.     &b= &a
  53. :fast
  54.     message "Connected at &a baud"
  55.     return 0
  56. :end
  57.