home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / luis.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  1.9 KB  |  49 lines
  1. ***************************************************************************
  2. *       L U I S . S C R --- Script for connecting to Luis system          *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  Luis.Scr                                                    *
  6. *                                                                         *
  7. *    Purpose: Connects to Luis system.  Designed for use as               *
  8. *             attached script in dialing directory.                       *
  9. *                                                                         *
  10. *    Invocation:                                                          *
  11. *                                                                         *
  12. *       Execute "Luis"                                                    *
  13. *                                                                         *
  14. ***************************************************************************
  15. *
  16. *                                  Wake up protocol converter.
  17.  Repeat
  18. *
  19.     SText "|"
  20. *                                  Wait for "Username" prompt.
  21.     WaitString "TYPE:" 2
  22. *
  23.  UNTIL ( WaitFound OR ( NOT Connected ) )
  24. *
  25. *                                  Quit if carrier dropped.
  26.  IF ( NOT Connected ) THEN
  27.     Exit
  28.  ENDIF
  29. *                                  Send terminal type of VT100.
  30.  SText "vt100|"
  31. *                                  Wait until an intro stuff clears.
  32.  WaitQuiet 20
  33. *                                  Send CR to get Luis screen.
  34.  SText "|"
  35. *
  36. *                                  Set VT100 emulation
  37.  SetParam 'VC' '0'
  38.  SetParam 'AK' '0'
  39. *                                  Load CMS function keys
  40.  SetParam 'BS' '^[[OD'
  41.  SetParam 'DE' '^[[OD'
  42. *
  43.  IF ( EnhKeybd = 1 ) THEN
  44.     Key      'ibmcmse.fnc'
  45.  ELSE
  46.     Key      'ibmcms.fnc'
  47.  ENDIF
  48. *
  49.