home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / BLST10_2.ZIP / SAMPLES / LEXNEX.SCR < prev    next >
Encoding:
Text File  |  1990-09-19  |  3.3 KB  |  89 lines
  1. #:
  2. #:LexNex
  3. .LOGON
  4. ##############################  LEXUS/NEXUS  ##############################
  5. #
  6. #  This Lexus/Nexus script will connect, log a user in and leave them at the
  7. #  Lexus/Nexus command prompt.  The automatic login process is dependent on
  8. #  the userid and password of the current set up file, if either of these 
  9. #  are null the script will return control to the user to complete the log
  10. #  in manually.  Hint: watch out for blank characters in these fields.
  11. #
  12. #  For best results, TTY terminal emulation is recommended and used by this
  13. #  script.  If the user has no Blast emulation capabilites then delete the
  14. #  set @emulate = "xxx" line.  If another emulator is desired, change the
  15. #  following two lines to the emulator of choice and the valid Lexus/Nexus
  16. #  terminal type.  Hint: if a VT type terminal is selected, filter out the
  17. #  ^E escape seqence (HEX 05) using a Blast translate table.
  18. #
  19.    set @emulate = "tty"
  20.    set @termtype = ".tty"
  21. #
  22. #  You may incorporate this script into the systems.scr script, use it as a 
  23. #  stand alone systems script or as a regular script.  If you choose to insert
  24. #  this script into systems.scr you must make three modifications.  When the
  25. #  systems.scr (or modems.scr) files are indexed our index utility is looking
  26. #  specifically for colons; therefore, the # must be deleted from the first
  27. #  two lines and from the last line of this file.  Once these items have been
  28. #  changed, copy this script into systems.scr and re-index (See the Users 
  29. #  manual for instructions on the index utility).
  30. #
  31. #######################################################################
  32. #
  33. connect                               # make the connection    
  34. if @status not = "0"                  # if no connection - return with error
  35.    write "connection not established"
  36.    write "LEXUS/NEXUS SCRIPT ABORTED"
  37.    return 1
  38.    end
  39. #
  40. #
  41. reps 4                                # try four times
  42. ttrap 20,"assistance)"
  43. if @status = "0"                      # if nothing - return with error
  44.    write "could not obtain initial screen"
  45.    write "LEXUS/NEXUS SCRIPT ABORTED"
  46.    return 1
  47.    end
  48. #
  49. #
  50. .terminal                             # send the users terminal type
  51. tsend @termtype
  52. #
  53. #
  54. .log_in                               # log in
  55. tsend cr
  56. ttrap 10,"assistance)","identification number","identification code"
  57. if @status = "1"  goto .terminal
  58. if @status = "2"                      # send the user identification number
  59.    if @userid = ""  return 0          # if none return control to the user
  60.    tsend @userid
  61.    goto .log_in
  62.    end
  63. if @status = "3"                      # send the user identification code
  64.    if @password = ""  return 0        # if none return control to the user
  65.    tsend @password,cr
  66.    return 0
  67.    end
  68. if @status = "0"                      # if nothing recognized
  69.    if reps                            #    try again
  70.       goto .terminal
  71.       end
  72.    write "    could not log in"       # else
  73.    write "LEXUS/NEXUS SCRIPT ABORTED" #    write an error message
  74.    return 1                           #    return with error
  75.    end
  76. return 1
  77. #
  78. #.LOGOFF
  79.  return 0
  80. .UPLOAD
  81.  write "Uploads not available on Lexus/Nexus with this system script"
  82.  return 0
  83. .TRANSFER
  84.  write "Filetransfer not available on Lexus/Nexus with this system script"
  85.  return 0
  86. .END
  87. #:
  88.  
  89.