home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b032 / 6.img / 31 / GYC140.PRG < prev    next >
Encoding:
Text File  |  1987-09-10  |  180 b   |  16 lines
  1. publ ym,cm
  2. do case
  3.  case recn()=1
  4.   ym="ywm"
  5.   cm="zw"
  6.   do gyc141
  7.  case recn()=2
  8.   ym="zw"
  9.   cm="ywm"
  10.   do gyc141
  11.  case recn()=3
  12.   do gyc143
  13.  other
  14.   loop
  15. endcase
  16.