home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / GENCOLOR.INC next >
Encoding:
Text File  |  1992-04-01  |  542 b   |  25 lines
  1. <<* GENCOLOR.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3. <<#pragma
  4.  
  5. procedure GenColor( indentlevel : integer; atr : string )
  6. begin
  7.   gen( space(indentlevel * 3),'SET COLOR TO ' )
  8.   if atr = 'SCREEN'
  9.     genln( '&ScreenAtr' )
  10.   elsif atr = 'STATUS'
  11.     genln( '&StatusAtr' )
  12.   elsif atr = 'WINDOW'
  13.     genln( '&WindowAtr' )
  14.   elsif atr = 'PROMPT'
  15.     genln( '&PromptAtr' )
  16.   elsif atr = 'HILITE'
  17.     genln( '&HiliteAtr' )
  18.   else
  19.     genln
  20.   endif
  21. end <<*GenColor*>>
  22.  
  23. <<* EOF: GENCOLOR.INC *>>
  24. #>>
  25.