home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b032 / 6.img / 31 / GYC12.PRG < prev    next >
Encoding:
Text File  |  1987-09-03  |  820 b   |  61 lines
  1. dime dm(52)
  2. publ yzs
  3. sele 2
  4. rest from "fwbl.mem" addi
  5. if ssfwh=3
  6.  use dydc
  7. else
  8.  use lsk1
  9. endif
  10. go bott
  11. lsk1zs=recn()
  12. go top
  13. do case
  14.  case lsk1zs<=200
  15.   yzs=0
  16.  case lsk1zs>200.and.lsk1zs<=800
  17.   yzs=20
  18.  case lsk1zs>800.and.lsk1zs<=2400
  19.   yzs=40
  20.  case lsk1zs>2400.and.lsk1zs<=4800
  21.   yzs=60
  22.  other
  23.   loop
  24. endcase
  25. sele e
  26. USE DMK
  27. IDM=1
  28. DO WHILE IDM<53
  29.  DM(IDM)=YWDH
  30.  SKIP
  31.  IDM=IDM+1
  32. ENDDO
  33. USE
  34. @ 2,0 say repl("í╘",40)
  35. sele 2
  36. if yzs=0
  37.  do cd02 with "trim(ywm)+' '+trim(dm(lx))+' ì
  38. '+trim(zw)",3,0,40,2,1,20
  39.  use
  40.  sele 1
  41.  @ 3,0 clear
  42.  do tsh
  43.  retu
  44. else
  45.  erase lsk2.dbf
  46.  copy to lsk2 for mod(recn(),yzs)=1
  47. endif
  48. sele 3
  49. use lsk2
  50. zxcx="ylxs"
  51. do cd with "trim(ywm)+'  '+trim(dm(lx))+' '+trim(zw)",3,0,40,2,1,10
  52. use
  53. sele 2
  54. use
  55. @ 3,0 clear
  56. do tsh
  57. sele 1 
  58. zxcx="gyc10"
  59. retu
  60.  
  61.