home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 265.TELENET.SCR < prev    next >
Text File  |  1987-09-28  |  2KB  |  49 lines
  1. !
  2. ! DISCatalog
  3. !
  4. ! Copyright (C) 1987 Westinghouse Electric Corp. -- All rights reserved.
  5. !
  6. ! This is a script for the TELENET(TM) or WESPAC(TM) networks.
  7. !
  8.  
  9. !
  10. ! this is the connect script
  11. !
  12.     clearbuff                           ! clear old communications
  13.     Message "Sending CR's to network (Takes approx. 10 seconds)."
  14.     WAIT 1                              ! give network a chance
  15.     send <Cr>                           ! send a couple of returns
  16.     WAIT 1                              !   in case it is autobaud
  17.     SEND <CR>
  18.     Clearbuff                           ! get rid of garbage
  19.     WAIT 1                              ! give network a chance
  20.     Send <cr>                           ! send return
  21.     RECeive @ 5                         ! look for network response
  22.     MESSage "Calling mainframe computer (Takes approx. 15 seconds)."
  23.     SEND "c 422448<CR>"                 ! call westinghouse mainframe
  24.     Receive "Username: " 15             ! look for VMS response
  25.     message "Sending username to mainframe computer (Takes approx. 10 seconds)."
  26.     SEND CUSTOMER<CR>                   ! send username
  27.     Receive "Password: " 10             ! look for VMS response
  28.     MESSAGE "Sending password to mainframe computer (Takes approx. 10 seconds)."
  29.     send CBTCUS<CR>                     ! send password
  30.  
  31. Hangup
  32. !
  33. ! this is the hangup script
  34. !
  35.     Clearbuff                           ! clear old communications
  36.     Message "Getting network's attention (Takes approx. 10 seconds)."
  37.     WAIT 1                              ! give network a chance
  38.     SEND <cr>                           ! send return
  39.     WAIT 1                              ! give network a chance
  40.     SEND @                              ! send attention char
  41.     WAIT 1                              ! give network a chance
  42.     SEND <cr>                           ! send return
  43.     RECEIVE @ 5                         ! look for network
  44.     MESSage "Disconnecting from network (Takes approx. 5 seconds)."
  45.     WAIT 1                              ! give network a chance
  46.     SEND D<cr>                          ! send disconnect command
  47.     receive @ 5                         ! look for networks response
  48.  
  49.