home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b032 / 6.img / 31 / GYC10.PRG < prev    next >
Encoding:
Text File  |  1987-08-25  |  295 b   |  24 lines
  1. do tsh
  2. do case
  3.  case recn()=1
  4.   do gyc11
  5.  case recn()=2
  6.   do gyc12
  7.  case recn()=3
  8.   do gyc13
  9.  case recn()=4
  10.   do gyc14
  11.  case recn()=5
  12.   do gyc15
  13.  case recn()=6
  14.   do gyc16
  15.  case recn()=7
  16.   do gyc17
  17.  case recn()=8
  18.   do gyc18
  19.  case recn()=9
  20.   do gyc19
  21.  other
  22.   loop
  23. endcase
  24.