home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b032 / 6.img / 31 / GYC130.PRG < prev    next >
Encoding:
Text File  |  1987-08-17  |  181 b   |  14 lines
  1. publ yyz,zyy
  2. do case
  3.  case recn()=1
  4.   yyz="trim(ywm)"
  5.   zyy="trim(zw)"
  6.   do gyc131
  7.  case recn()=2
  8.   yyz="trim(zw)"
  9.   zyy="trim(ywm)"
  10.   do gyc131
  11.  other
  12.   loop
  13. endcase
  14.