home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / GENLINE.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  266 b   |  16 lines
  1. <<* GENLINE.INC *>>
  2.     
  3.  
  4. <<procedure genline>>
  5. <<begin>>
  6. SET COLOR TO &ScreenAtr
  7. @ 1,0 say replicate('⌐Ñ',40)
  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>> <<*genline*>>
  14.  
  15. <<* EOF: GENLINE.INC *>>
  16.