Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DWSETSCR

DWSETSCR.m

Go to the documentation of this file.
  1. DWSETSCR ;NEW PROGRAM [ 02/25/92  1:48 PM ]
  1.  ;this progrm written by dan walz, pimc, phoenix
  1.  ;when called set variables for screen enhancement
  1.  ;IV=INVERSE VIDEO
  1.  ;NO=NORMAL INTENSITY
  1.  ;HI=HI INTENSITY
  1.  ;BLK=BLINK
  1. BEGIN S IV=$C(27)_"[7m"
  1.  S NO=$C(27)_$C(91)_$C(109)
  1.  S HI=$C(27)_$C(91)_$C(49)_$C(109)
  1.  S BLK=$C(27)_"[5m"
  1.  Q
  1. KILL K IV,NO,HI,BLK
  1.  Q