home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / misc / ega.mut < prev    next >
Text File  |  1995-01-14  |  1KB  |  29 lines
  1. ;; ega.mut : some support for EGA big displays
  2. ;; Some of the routines require NANSI.SYS to provide escape key processing
  3. ;;   that kicks the EGA display in and out of 43 line mode.  These Mutt
  4. ;;   routines could be replaced by a .exe or batch file to do the same
  5. ;;   things (and run with shell-command).
  6. ;; Why is this stuff usefull:  When ME starts up, it looks at the display
  7. ;;   and uses all the lines and columns.  Some displays (like EGA and VGA)
  8. ;;   support multiple display modes.  If you want to edit in one mode and
  9. ;;   run dos in another, these routines will be handy.
  10. ;; routines:
  11. ;;   EGA : Send an escape sequence to the display to enable 43 line mode.
  12. ;;   noEga: Send an escape sequence to the display to enable 25 line mode.
  13. ;;   MAIN: set some hooks so that 43 line mode is toggled when entering and
  14. ;;     leaving ME.
  15. ;; C Durland    Public Domain
  16.  
  17. (include me.mh)
  18.  
  19. (defun
  20.   EGA   { (puts "^[[=43h")(screen-length 43) }
  21.   noEGA { (puts "^[[=3h") (screen-length 25) }
  22.   MAIN
  23.   {
  24.     (register-hook ENTER-ME-HOOK "EGA")
  25.     (register-hook LEAVE-ME-HOOK "noEGA")
  26.     (EGA)
  27.   }
  28. )
  29.