program Width
* Program to change screen width on the fly.
      Parms = trim(upcase(@Sentence))
      Name = Parms<1>
      Esc = char(27)
      begin case
         case Name eq "*80"
            crt Esc:"[=3l"
            execute "TERM 80"
         case Name eq "*132"
            crt Esc:"[=3h"
            execute "TERM 132"
         case 1
            crt "Not defined: ":Name:"  (width)"
      end case
      return
   end