home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / comm / tm412_3.zip / WIDTH.SCR < prev    next >
Text File  |  1993-07-20  |  1KB  |  40 lines
  1. ;
  2. ; WIDTH.SCR, set the terminal window width
  3. ;
  4. ; If you have a 132 column screen, Telemate will use it. However,
  5. ; Telemate will restrict screen output to 80 column only to 
  6. ; maintain compatibility with remote systems that are expecting
  7. ; 80 columns. ANSI and VT102 terminal emulation defined a 132
  8. ; column control code which will switch Telemate to 132 column
  9. ; mode. Most remote systems that use 132 column will send the
  10. ; special control code automatically.
  11. ;
  12. ; This script allows you to switch between 80 and 132 column
  13. ; mode manually by sending the appropriating column control code.
  14. ;
  15.  
  16. if width <> 132
  17.   print "This script run 132 column screen only"
  18.   stop
  19. endif
  20.    
  21. query terminal,term
  22. if term=1 or term=3 or term=4
  23.   print
  24.   print "What terminal width do you like ?"
  25.   print " 1. 80 columns"
  26.   print " 2. 132 columns"
  27.   print "Select: ",
  28.   input choice
  29.   print "^[[2J",
  30.   concat s,choice
  31.   atoi s,w
  32.   switch w
  33.     case 1: print "^[[?3l",
  34.     case 2: print "^[[?3h",
  35.   endswitch
  36. else
  37.   print "This script run on ANSI, VT102 and AVATAR only"
  38. endif
  39.  
  40.