home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / DATATERM / SAMPLE < prev    next >
Encoding:
Text File  |  1987-10-25  |  1.1 KB  |  64 lines  |  [04] ASCII Text (0x0000)
  1. # start
  2. # -  Logon Macro for pro-colony
  3.  
  4. # - set up modem
  5. set timer 5
  6. xmit "ATS7=50^M"
  7. set duplex full
  8. set baud 1200
  9. waitfor string "ok"
  10. pause 5
  11.  
  12. # - see note below on changing this macro to dial tone or pulse only.
  13.  
  14. # window
  15. display "^LCalling: pro-colony ^J^J^M"
  16. display "To dial Pulse type `P`, or ^J^M"
  17. display "Any other key to dial Touch-Tone^J^M"
  18. display "Enter --> "
  19.  
  20. # - dial tone or pulse?
  21. waitfor keyboard
  22. if keyboard p goto pulse
  23. if keyboard ^[ goto abort
  24. goto tone
  25.  
  26. # - display pulse screen
  27. # Pulse
  28. display "^MNow Dialing with Pulse^J^M"
  29. xmit "ATDP 1 214 370 7056 ^M"
  30. set timer 60
  31. goto begin
  32.  
  33. # - display tone screen
  34. # Tone
  35. display "^MNow Dialing with Touch-Tone^J^M"
  36. xmit "ATDT 1 214 370 7056 ^M"
  37. set timer 60
  38. goto begin
  39.  
  40. # begin
  41. waitfor string "connect"
  42. if failed goto restart
  43. buffer on
  44.  
  45. # - prompt for user name
  46. waitfor string "login:"
  47. xmit "datalink^M"
  48. stop
  49.  
  50. # restart
  51. hangup
  52. display "^MNo answer or busy. Press a key to continue"
  53. waitfor keyboard
  54. goto window
  55.  
  56. # abort
  57. display "^MPress <esc> to quit or any other key to continue"
  58. waitfor keyboard
  59. if keyboard ^[ goto exit
  60. goto window
  61. # exit
  62. display "^L"
  63. stop
  64.