Hacker Chronicles 2/HACKER2.BIN/264.SNETWORK.SCR

Text File | 1987-09-28 | 4KB | 92 lines

!
! DISCatalog
!
! Copyright (C) 1987 Westinghouse Electric Corp. -- All rights reserved.
!
! This is a sample script for networks.  For the TELENET(TM) or WESPAC(TM)
! networks, DISCatalog will execute TELENET.SCR.  For another network that
! connects to the WESPAC or TELENET networks - copy this file (SNETWORK.SCR)
! to NETWORK.SCR and edit it to control your network.  To edit the script,
! change the parameters (in lower case) and remove the ! (comment character)
! from the beginning of the line.  For unused lines, leave the ! (comment
! character) at the beginning of the line.
!
! If you need assistance, please call us at [phone].
!

!
! This is the connect script.  It is needed for all networks, but not all of
! the blocks may be needed.
!
    CLEARBUFF                           ! clear old communications

!
! This block is to get the network's attention.  It is not needed for some
! networks.
!
!   MESSAGE "Getting network's attention."
!   WAIT 1                              ! give network a chance
!   BREAK                               ! send a break and/or
!   SEND "wakeup_string<CR>"            !   send wakeup string to network
!   RECEIVE "response_string" time_in_sec ! look for response

!
! This block is to initialize the network.  It is not needed for some
! networks.
!
!   MESSAGE "Initializing network."
!   WAIT 1                              ! give network a chance
!   SEND "initialize_string<CR>"        ! initialize network
!   RECEIVE "response_string" time_in_sec ! look for response

!
! This block is to call the Westinghouse DISCatalog mainframe computer.  It
! is needed for all networks.
!
    CLEARBUFF                           ! get rid of garbage
    WAIT 1                              ! give network a chance
    SEND "<CR>"                         ! send return
    RECEIVE "@" 5                       ! look for network response
    MESSAGE "Calling mainframe computer (Takes approx. 15 seconds)."
    SEND "C 422448<CR>"                 ! call DISCatalog mainframe
    RECEIVE "Username: " 15             ! look for VMS response
    MESSAGE "Sending username to mainframe computer (Takes approx. 10 seconds)."
    SEND "CUSTOMER<CR>"                 ! send username
    RECEIVE "Password: " 10             ! look for VMS response
    MESSAGE "Sending password to mainframe computer (Takes approx. 10 seconds)."
    SEND "CBTCUS<CR>"                   ! send password

Hangup
!
! This is the hangup script.  It may not be needed by some networks.  If your
! network doesn't hangup for some reason, wait approx. 10 minutes for the
! communications to clear.  If a hangup script is needed for your network,
! not all of the blocks may be needed.
!
    CLEARBUFF                           ! clear old communications

!
! This block is to get the network's attention.
!
!   MESSAGE "Getting network's attention."
!   WAIT 1                              ! give network a chance
!   SEND "attention_string<CR>"         ! send attention chars
!   RECEIVE "response_string" time_in_sec ! look for network

!
! This block is to disconnect from the network.
!
!   MESSAGE "Disconnecting from network."
!   WAIT 1                              ! give network a chance
!   SEND "disconnect_string<CR>"        ! disconnect from network
!   RECEIVE "response_string" time_in_sec ! look for response

!
! This block is to reset the network.
!
!   MESSAGE "Resetting network."
!   WAIT 1                              ! give network a chance
!   SEND "reset_string<CR>"             ! reset network
!   RECEIVE "response_string" time_in_sec ! look for response