home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / COMMS / RCOM114 / SCR / _CIS.SCR next >
Encoding:
Text File  |  1994-10-13  |  1.7 KB  |  91 lines
  1. !This is a script to logon to the CompuServe
  2. !Information Service (CIS) via a direct CIS
  3. !node only.  Load this file in the Script
  4. !Editor application, and press <Psion-T> to
  5. !translate. The user also must create these
  6. !four Names: 
  7. !
  8. !"Initialize" - Modem setup string. Do not include AT prefix.
  9. !"Node1" - CompuServe access number.
  10. !"Userid" - CompuServe user ID.
  11. !"Password" - CompuServe password.
  12. !
  13.     PASSWORD
  14. settings:
  15.     SETUP (
  16.         BAUD=9600
  17. !        BORDER=OFF
  18.         DATA=7
  19.         ECHO=OFF
  20.         FAIL=NONE
  21. !        FONT=3
  22.         HANDSHAKE=RTSCTS
  23. !        LINES=100
  24.         PARITY=EVEN
  25. !        STATUS=2
  26.         STOP=1
  27.         TIMEOUT=10)
  28. setc1:
  29.     SET C1=5
  30. predial:
  31.     CONNECT 10 GOTO nomodem
  32.     SENDWAIT 10 "AT<Initialize>", "OK" GOTO nomodem
  33. dial:
  34.     SEND "ATD<Node1>"
  35. connection:
  36.     WAIT 200 (
  37.         ON REPLY "CONNECT" GOTO reset1
  38.         ON REPLY "NO DIAL" GOTO notone
  39.         ON REPLY "NO CARRIER" GOTO nocar
  40.         ON REPLY "NO ANSWER" GOTO noanswer
  41.         ON REPLY "BUSY" GOTO busy
  42.         ON REPLY "ERROR" GOTO error )
  43.     HANGUP
  44.     GOTO manual
  45. reset1:
  46.     SET C1=5
  47. ctrlc:
  48.     SEND "<3>"; 
  49.     WAIT 10 (
  50.         ON REPLY "User ID:" GOTO cisuser)
  51.     GOTO retry
  52. cisuser:
  53.     SET C1=0
  54.     SEND "<Userid>*OTHER\<Password>"
  55.     GOTO manual
  56.  
  57. busy:
  58.     ALERT "Busy"
  59.     ON C1 GOTO redial
  60.     GOTO manual
  61. error:
  62.     ALERT "Modem Error"
  63.     GOTO manual
  64. failhost:
  65.     ALERT "CIS did not respond to Control-C"
  66.     GOTO manual
  67. manual:
  68.     EXIT
  69. noanswer:
  70.     ALERT "No answer"
  71.     ON C1 GOTO redial
  72.     GOTO manual
  73. nocar:
  74.     ALERT "No carrier, check phone number"
  75.     ON C1 GOTO redial
  76.     GOTO manual
  77. nomodem:
  78.     ALERT "Check modem connection & power"
  79.     GOTO manual
  80. notone:
  81.     ALERT "No dialtone. Set Initialize:X1"
  82.     ON C1 GOTO redial
  83.     GOTO manual
  84. redial:
  85.     INFO "Redialing..."
  86.     SEND "A/";
  87.     GOTO connection
  88. retry:
  89.     ON C1 GOTO ctrlc
  90.     GOTO failhost
  91.