home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / sharware / komunik / QMODEM / QM4VT100.ZIP / VT100.SCR < prev   
Text File  |  1989-03-02  |  1KB  |  61 lines
  1. ;
  2. ;  ****  VT100 QMODEM 4.0 script for IBM 3708 LOGON  ****
  3. ;  ****  1989 Jim Klocek Woodridge, IL               ****
  4. ;
  5. ColorFG 7
  6. ColorBG 0
  7.  
  8. ; setup string variable data for primary system logon
  9.  
  10. string this
  11.  
  12. When "NO CARRIER" Error
  13. TurnOff Noise
  14. graphics vt100
  15. loadkey vt100.key
  16.  
  17. ; Set logon data for desired application. Insert application logon data
  18. ; string in between the quotes in the following line.
  19.  
  20. ASSIGN 0 "XXXXXX"
  21.  
  22. Timeout 5 skip1
  23.  
  24. skip1:
  25. Send "^M"
  26.  
  27. ; This line will send a password from the phone book dialing entry to the
  28. ; 3708.
  29.  
  30. Waitfor "===> "
  31. Send    "$password^M"
  32.  
  33. ; Tell 3708 you are a VT100
  34.  
  35. Timeout  120
  36. ;Waitfor  "C2:  Type the number of your terminal:
  37. Waitfor  "===> "
  38. Send     "5^M"
  39.  
  40. ; wait for the following request from 3708 and reply "1"
  41. ;Waitfor  "C3:  Type the number of the desired connection:
  42.  
  43. Waitfor  "===> "
  44. Send     "1^M"
  45.  
  46. ; send string set in ASSIGN 0 above for application logon
  47. ;Waitfor  "C4:  You can now type your system logon
  48.  
  49. Waitfor  "===> "
  50. Send     "$0"
  51.  
  52. Exit
  53.  
  54. ; on error reload qmodem.key and switch to ANSI terminal emulation
  55.  
  56. Error:
  57. graphics ansi
  58. loadkey qmodem.key
  59. hangup
  60. *Exit
  61.