home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / GENCOLOR.INC < prev    next >
Encoding:
Text File  |  1988-02-11  |  496 b   |  24 lines
  1. <<* GENCOLOR.INC *>>
  2. <<#pragma
  3.  
  4. procedure GenColor( indentlevel : integer; atr : string )
  5. begin
  6.   gen( space(indentlevel * 3),'SET COLOR TO ' )
  7.   if atr = 'SCREEN'
  8.     genln( '&ScreenAtr' )
  9.   elsif atr = 'STATUS'
  10.     genln( '&StatusAtr' )
  11.   elsif atr = 'WINDOW'
  12.     genln( '&WindowAtr' )
  13.   elsif atr = 'PROMPT'
  14.     genln( '&PromptAtr' )
  15.   elsif atr = 'HILITE'
  16.     genln( '&HiliteAtr' )
  17.   else
  18.     genln
  19.   endif <<*case*>>
  20. end <<*GenColor*>>
  21.  
  22. <<* EOF: GENCOLOR.INC *>>
  23. #>>
  24.