home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b032 / 6.img / 31 / GYC161.PRG < prev    next >
Encoding:
Text File  |  1987-09-04  |  187 b   |  13 lines
  1. flh=recn()+47
  2. sele 3
  3. use lsk1
  4. set filter to gc=flh
  5. @ 9,0 say repl("íε",40)
  6. do tsh1
  7. do cd00 with "trim(ywm)+'   '+trim(zw)",10,1,40,2,1,12
  8. @ 10,0 clear
  9. do tsh
  10. use
  11. sele 2
  12. retu
  13.