home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / DATATERM / DL.KEY.L < prev    next >
Encoding:
Text File  |  1994-02-13  |  613 b   |  38 lines  |  [04] ASCII Text (0x0000)
  1. display "^L"
  2. set timer 2
  3. set baud 2400
  4. # ready
  5. xmit "ATS0=0S7=75^M"
  6. waitfor string "OK"
  7. if failed goto ready
  8. set duplex full
  9. set timer 30
  10. # dial
  11. xmit "ATDT12128099660^M"
  12. waitfor string "connect"
  13. if failed goto redial
  14. set duplex Full
  15. buffer Off
  16. # logon
  17. pause 4
  18. xmit "O"
  19. set timer 5
  20. # manual
  21. stop
  22. # failed
  23. display "^M^JLogon Sequence Failed. Must try Manual Logon.^M^J^J"
  24. stop
  25. # redial
  26. xmit "ATH^M"
  27. waitfor string "NO CARRIER"
  28. display "^M^JPush D to Delphi again; anything else to stop."
  29. waitfor keyboard
  30. display "^J^M"
  31. if keyboard "^[" goto exit
  32. if keyboard "D" goto dial
  33. goto exit
  34. # exit
  35. hangup
  36. display "^L"
  37. stop
  38.