home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pibterm / pibt41s4.arc / TOGGLEOP.MOD < prev    next >
Encoding:
Text File  |  1987-12-26  |  694 b   |  23 lines
  1. (*----------------------------------------------------------------------*)
  2. (*             Toggle_Option -- Toggle an option on or off              *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Toggle_Option( Option_Name : AnyStr; VAR Option_Flag : BOOLEAN );
  6.  
  7. (* STRUCTURED *) CONST
  8.    OnOffChars : ARRAY[0..1] OF STRING[3] = ('OFF','ON');
  9.  
  10. BEGIN (* Toggle_Option *)
  11.  
  12.    Option_Flag := NOT Option_Flag;
  13.  
  14.    Draw_Titled_Box( Saved_Screen, 10, 10, 55, 15, '' );
  15.  
  16.    WRITE('*** ',Option_Name, ' now ', OnOffChars[ ORD( Option_Flag ) ] );
  17.  
  18.    Window_Delay;
  19.  
  20.    Restore_Screen_And_Colors( Saved_Screen );
  21.  
  22. END   (* Toggle_Option *);
  23.