home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / terms / st125.lha / ShellTerm / Scripts / ST < prev   
Encoding:
AmigaDOS Script File  |  1994-12-13  |  2.4 KB  |  124 lines
  1. .key FROM/K,SCREEN,DEPTH,WINDOW,XPOS/K,YPOS/K,XSIZE/K,YSIZE/K,FONT,SIZE,KEYMAP,PORT
  2. .bra [
  3. .ket ]
  4.  
  5. ;$VER: ShellTerm_Script 1.07 (13.12.94) (C)opyright Tomi Blinnikka 1994
  6.  
  7. ;This version currently REQUIRES the following programs:
  8. ;
  9. ;WatchPort by Klaus Seistrup
  10. ;PSX by Steve Tibbett
  11. ;
  12. ;PSX opens a public screen for ShellTerm
  13. ;WatchPort waits for ShellTerm to quit
  14.  
  15. ;====================================================
  16. ;Default settings.
  17. ;====================================================
  18.  
  19. ;Default prefs-file
  20. set FROM S:ShellTerm.PREFS
  21.  
  22. ;Default screen name
  23. set SCREEN ShellTerm
  24.  
  25. ;Default screen depth
  26. set DEPTH 1
  27.  
  28. ;Default window name
  29. set WINDOW "ShellTerm Window"
  30.  
  31. ;Default window dimensions
  32. set XPOS 0
  33. set YPOS 11
  34. set XSIZE 724
  35. set YSIZE 271
  36.  
  37. ;Default font name
  38. set FONT topaz.font
  39.  
  40. ;Default font size
  41. set SIZE 8
  42.  
  43. ;Default keymap
  44. set KEYMAP usa0
  45.  
  46. ;Default port name
  47. set PORT ShellTerm_Port
  48.  
  49. ;====================================================
  50. ;Override defaults with user options.
  51. ;====================================================
  52.  
  53. if not "[FROM]" eq ""
  54.  set FROM "[FROM]"
  55. endif
  56.  
  57. if not "[SCREEN]" eq ""
  58.  set SCREEN "[SCREEN]"
  59. endif
  60.  
  61. if not "[DEPTH]" eq ""
  62.  set DEPTH "[DEPTH]"
  63. endif
  64.  
  65. if not "[WINDOW]" eq ""
  66.  set WINDOW "[WINDOW]"
  67. endif
  68.  
  69. if not "[XPOS]" eq ""
  70.  set XPOS "[XPOS]"
  71. endif
  72.  
  73. if not "[YPOS]" eq ""
  74.  set YPOS "[YPOS]"
  75. endif
  76.  
  77. if not "[XSIZE]" eq ""
  78.  set XSIZE "[XSIZE]"
  79. endif
  80.  
  81. if not "[YSIZE]" eq ""
  82.  set YSIZE "[YSIZE]"
  83. endif
  84.  
  85. if not "[FONT]" eq ""
  86.  set FONT "[FONT]"
  87. endif
  88.  
  89. if not "[SIZE]" eq ""
  90.  set SIZE "[SIZE]"
  91. endif
  92.  
  93. if not "[KEYMAP]" eq ""
  94.  set KEYMAP "[KEYMAP]"
  95. endif
  96.  
  97. if not "[PORT]" eq ""
  98.  set PORT "[PORT]"
  99. endif
  100.  
  101. ;====================================================
  102. ;Quit other programs using serial device.
  103. ;====================================================
  104.  
  105. ;FailAt 21
  106. ;Break >NIL: `Status COM=RingDetect`    ;Quit RingDetect
  107. ;FailAt 10
  108.  
  109. ;====================================================
  110. ;Open Screen & Shell window, start ShellTerm.
  111. ;Wait for ShellTerm to quit and clean up.
  112. ;====================================================
  113.  
  114. PSX OPEN "$SCREEN" HIRES DEPTH "$DEPTH"
  115. NewShell FROM S:ShellTerm-StartUp "CON:$XPOS/$YPOS/$XSIZE/$YSIZE/$WINDOW/NOCLOSE/SCREEN $SCREEN"
  116. WatchPort "$PORT"
  117. PSX CLOSE "$SCREEN" HIRES DEPTH 1
  118.  
  119. ;====================================================
  120. ;Start programs that we stopped.
  121. ;====================================================
  122.  
  123. ;RUN >NIL: RingDetect ICONIFY DEV=serial.device UNIT=0    ;Restart RingDetect
  124.