home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / SHADE.INC < prev    next >
Encoding:
Text File  |  1988-05-05  |  265 b   |  17 lines
  1. <<* SHADE.INC *>>
  2.     
  3.  
  4. <<procedure SHADE>>
  5. <<begin>>
  6. SET COLOR TO &ScreenAtr
  7. @ 1,0 say replicate(CHR(196),80)
  8. store 2 to CNT
  9. do while CNT < 22
  10.  @ CNT,0 say replicate('░',80)
  11.  store CNT + 1 to CNT
  12. enddo
  13. <<end>> <<*SHADE*>>
  14.  
  15.  
  16. <<* EOF: SHADE.INC *>>
  17.