home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / BLST10_2.ZIP / SAMPLES / TYMNET.SCR < prev    next >
Encoding:
Text File  |  1990-09-19  |  1.9 KB  |  58 lines
  1. #:
  2. #:Tymnet
  3. .LOGON
  4. ##############################  TYNMET     #################################
  5. #
  6. #  This tymnet script will connect and leave a user at the tymnet log in
  7. #  prompt.  When entering tymnet this script enters an 'a' for the
  8. #  identifier.
  9. #
  10. #  You may incorporate this script into the systems.scr script, use it as a 
  11. #  stand alone systems script or as a regular script.  If you choose to insert
  12. #  this script into systems.scr you must make three modifications.  When the
  13. #  systems.scr (or modems.scr) files are indexed our index utility is looking
  14. #  specifically for colons; therefore, the # must be deleted from the first
  15. #  two lines and from the last line of this file.  Once these items have been
  16. #  changed, copy this script into systems.scr and re-index (See the Users 
  17. #  manual for instructions on the index utility).
  18. #
  19. ############################################################################
  20. #
  21. #
  22. connect                               # make the connection    
  23. if @status not = "0"                  # if no connection - return with error
  24.    write "connection not estabished"
  25.    write "TYMNET.SCR ABORTED"
  26.    return 1
  27.    end
  28. reps 4                                # try four times 
  29. ttrap 2,"second wait"
  30. #
  31. #
  32. .identifier                           # send indentifier
  33. tsend "a"
  34. ttrap 5, "identifier", "in:"
  35. if @status = "2"  return 0
  36. if @status = "1"  goto .identifier
  37. if reps                               # if nothing recognized
  38.    tsend cr                           #    try again
  39.    goto .identifier
  40.    end                                # else
  41. else                                  #    return with error
  42.    write "could not obtain log in"
  43.    write "TYMNET SCRIPT ABORTED"
  44.    return 1
  45.    end
  46. #
  47. .LOGOFF
  48.  return 0
  49. .UPLOAD
  50.  write "Uploads not available on tymnet with this system script"
  51.  return 0
  52. .TRANSFER
  53.  write "Filetransfer not available on tymnet with this system script"
  54.  return 0
  55. .END
  56. #:
  57.  
  58.