home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / comm / tm412_3.zip / HEIGHT.SCR < prev    next >
Text File  |  1993-07-20  |  1KB  |  46 lines
  1. ;
  2. ; HEIGHT.SCR, set the terminal window height
  3. ;
  4. ; You cannot reduce the size of the screen. However, you can reduce
  5. ; the size of the terminal window by using the scroll margin command
  6. ; defined in VT102 and ANSI terminal emulations.
  7. ;
  8.  
  9. query terminal,term
  10. if term=1 or term=3 or term=4
  11.   print
  12.   print "What terminal height do you like ?"
  13.   print " 0. full height"
  14.   if height > 24
  15.      print " 1. 24 lines"
  16.   endif
  17.   if height > 25
  18.     print " 2. 25 lines"
  19.   endif
  20.   if height > 35
  21.     print " 3. 35 lines"
  22.   endif      
  23.   if height > 43
  24.     print " 4. 43 lines"
  25.   endif
  26.   if height > 50
  27.     print " 5. 50 lines"
  28.   endif
  29.   print "Select: ",
  30.   input choice
  31.   print "^[[2J",
  32.   concat s,choice
  33.   atoi s,h
  34.   switch h
  35.     case 0: print "^[[0;0r",
  36.     case 1: print "^[[0;24r",
  37.     case 2: print "^[[0;25r",
  38.     case 3: print "^[[0;35r",
  39.     case 4: print "^[[0;43r",
  40.     case 5: print "^[[0;50r",
  41.   endswitch
  42. else
  43.   print "This script run on ANSI, VT102 and AVATAR only"
  44. endif
  45.  
  46.