home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / hardwire.scr < prev    next >
Encoding:
Text File  |  1988-02-28  |  6.2 KB  |  229 lines
  1. ***************************************************************************
  2. *       H A R D W I R E . S C R  --- Setup hard-wired connection          *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  HardWire.Scr                                                *
  6. *                                                                         *
  7. *    Purpose: Sets up hardwired connection to ACNS mainframe systems.     *
  8. *                                                                         *
  9. ***************************************************************************
  10. *
  11. *                                  Which ACNS system to connect to
  12.  Declare SysType Integer
  13. *                                  Which PACX class to connect to
  14.  Declare Class   String
  15. *
  16.  Declare AnyS    String
  17. *                                  If keyboard is enhanced keyboard
  18.  Declare EnhType Integer
  19. *
  20. *         Procedure to wake up Pack and send class.
  21. *
  22.  Procedure WakePacx
  23. *
  24. *         Issue break to get Pacx's attention and respond
  25. *         with appropriate class.
  26. *
  27.     Writeln " "
  28.     Writeln "Sending break to gain attention of Pacx ... "
  29.     Writeln " "
  30. *
  31.     Break
  32. *
  33.     Repeat
  34.        SText "|"
  35.        WaitString "class" 2
  36.     Until ( WaitFound )
  37. *
  38.     Set   Class = CONCAT( '~' , CONCAT( Class , "|" ))
  39.     SText Class
  40. *
  41.  EndProc   WakePacx
  42. *
  43. *
  44. *
  45.  Procedure KermNote
  46. *
  47.     Declare MyClass String
  48.     Declare PgUp String
  49.     Declare PgDn String
  50. *
  51.     Set PgUp = 'PgUp'
  52.     Set PgDn = 'PgDn'
  53. *
  54.     DoCase Class OF
  55.        Case "VE"
  56.           Set MyClass = 'NOS/VE'
  57.        EndCase
  58.        Case "Cyber"
  59.           Set MyClass = 'NOS'
  60.        EndCase
  61.        Case "Vax"
  62.           Set MyClass = 'VAX/VMS'
  63.           IF ( EnhType = 1 ) THEN
  64.              Set PgUp = '<CTRL>PgUp'
  65.              Set PgDn = '<CTRL>PgDn'
  66.           ENDIF
  67.        EndCase
  68.        Case "Ibm"
  69.           Set MyClass = 'CMS'
  70.        EndCase
  71.     EndDoCase
  72.     Writeln " "
  73.     Set AnyS = CONCAT(CONCAT('To start Kermit on ',MyClass), ' type KERMIT.')
  74.     Writeln AnyS
  75.     Writeln " "
  76.     Set AnyS = CONCAT(CONCAT('You should usually place ',MyClass),' Kermit')
  77.     Writeln AnyS
  78.     Writeln "in server mode by typing SERVER when"
  79.     Set AnyS = CONCAT( MyClass , ' Kermit asks for a command.')
  80.     Writeln AnyS
  81.     Writeln " "
  82.     Set AnyS = CONCAT(CONCAT('Then you can get a file from ',MyClass), ' by hitting')
  83.     Writeln AnyS
  84.     Set AnyS = CONCAT(CONCAT('the ',PgDn),' key on the PC keypad.')
  85.     Writeln AnYs
  86.     Writeln " "
  87.     Set AnyS = CONCAT(CONCAT('You can send a file to ',MyClass), ' by hitting')
  88.     Writeln AnyS
  89.     Set AnyS = CONCAT(CONCAT('the ',PgUp),' key on the PC keypad.')
  90.     Writeln AnYs
  91.     Writeln " "
  92.     Input   "Hit a key to continue with login ... " AnyS
  93.     Writeln " "
  94.  EndProc   KermNote
  95. *
  96. *         Clear the screen
  97.  Clear
  98. *
  99. *         Don't change keys when changing emulation
  100. *
  101.  SetParam '  ' '0'
  102. *
  103. *         Set VT100 mode
  104. *
  105.  SetParam 'te' '3'
  106. *
  107. *         Remember if enhanced keyboard or not
  108. *
  109.  Set EnhType = EnhKeybd
  110. *
  111. *         Indicate what to do with menu.
  112. *
  113.  Writeln  " "
  114.  Writeln  "          Choose the system to which you want to connect."
  115.  Writeln  " "
  116. *
  117. *         Get name of system to be used
  118. *
  119.  Menu SysType 15 10 3 'Choose system:'  'a) Cyber NOS' 'b) Cyber NOS/VE' 'c) Vax' 'd) Econ/KGSM IBM 4361' 'e) Luis' 'o) Other
  120. *
  121. *         Set stuff depending upon system
  122. *
  123.  DoCase SysType Of
  124. *                                  Cyber NOS
  125.     Case 1
  126.        SetParam 'BS' '^H'
  127.        SetParam 'DE' ''
  128.        SetParam 'VC' '0'
  129.        Key      'cdcnos.fnc'
  130.        Set      Class = 'Cyber'
  131.        Writeln  " "
  132.        Writeln  "Parameters set for accessing Cyber 845 NOS system."
  133.        Writeln  " "
  134.        Call KermNote
  135.        Call WakePacx
  136.        Repeat
  137.           SText "|"
  138.           WaitString "parity" 5
  139.        Until ( WaitFound )
  140.        WaitString "NAME" 15
  141.     EndCase
  142. *                                  Cyber NOS/VE
  143.     Case 2
  144.        SetParam 'BS' '^H'
  145.        SetParam 'DE' ''
  146.        SetParam 'VC' '0'
  147.        Key      'cdcnos.fnc'
  148.        Set      Class = 'VE'
  149.        Writeln  " "
  150.        Writeln  "Parameters set for accessing Cyber 845 NOS/VE system."
  151.        Writeln  " "
  152.        Call KermNote
  153.        Call WakePacx
  154.        Repeat
  155.           SText "|"
  156.           WaitString "parity" 5
  157.        Until ( WaitFound )
  158.        WaitString "User:" 15
  159.     EndCase
  160. *                                  Vax
  161.     Case 3
  162.        SetParam 'DE' '^H'
  163.        SetParam 'BS' ''
  164.        SetParam 'VC' '0'
  165.        IF ( EnhType = 1 ) THEN
  166.           Key      'decvaxe.fnc'
  167.        ELSE
  168.           Key      'decvax.fnc'
  169.        ENDIF
  170.        Set      Class = 'Vax'
  171.        Writeln  " "
  172.        Writeln  "Parameters set for accessing Vax 785 system."
  173.        Writeln  " "
  174.        Call KermNote
  175.        Call WakePacx
  176.        Repeat
  177.           SText "|"
  178.           WaitString "sername" 2
  179.        Until ( WaitFound )
  180.     EndCase
  181. *                                  KGSM/ECON Ibm
  182.     Case 4
  183.        SetParam 'BS' '^[[OD'
  184.        SetParam 'DE' '^[[OD'
  185.        SetParam 'VC' '1'
  186.        IF ( EnhType = 1 ) THEN
  187.           Key      'ibmcmse.fnc'
  188.        ELSE
  189.           Key      'ibmcms.fnc'
  190.        ENDIF
  191.        Set      Class = 'Ibm'
  192.        Writeln  " "
  193.        Writeln  "Parameters set for accessing KGSM/ECON IBM 4361."
  194.        Writeln  " "
  195.        Call KermNote
  196.        Call WakePacx
  197.     EndCase
  198. *                                  LUIS Ibm
  199.     Case 5
  200.        SetParam 'BS' '^[[OD'
  201.        SetParam 'DE' '^[[OD'
  202.        SetParam 'VC' '1'
  203.        IF ( EnhType = 1 ) THEN
  204.           Key      'ibmcmse.fnc'
  205.        ELSE
  206.           Key      'ibmcms.fnc'
  207.        ENDIF
  208.        Set      Class = 'Luis'
  209.        Writeln  " "
  210.        Writeln  "Parameters set for accessing University Library LUIS system."
  211.        Writeln  " "
  212.        Call WakePacx
  213.        WaitString "start" 5
  214.        SText "~|"
  215.        WaitString "TYPE:" 5
  216.        SText "~VT100|"
  217.        SText "~|"
  218.     EndCase
  219. *
  220.     Case Else
  221.        Writeln " "
  222.        Writeln "Parameters left at default values."
  223.        Writeln " "
  224.        Exit
  225.     EndCase
  226. *
  227.  EndDoCase
  228.  
  229.