home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / YHB.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  600 b   |  43 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. use yjh
  6. a='     '
  7. p='          '
  8. @ 4,10 say "╟δ╩Σ╚δ─Ω╖▌,╘┬╖▌" get a pict '99.99'
  9. @ 5,10 say "╚≤╗¼╙═├√│╞" get p
  10. read
  11. j1=substr(a,4,2)
  12. j2='01'
  13. j3=substr(a,1,2)
  14. b=j1+'/'+j2+'/'+j3
  15. b=ctod(b)
  16. t=month(b)
  17. if t>=1 .and. t<=7
  18. t1=t/2
  19. t2=int(t1)
  20. if t1-t2<>0
  21. c=b+30
  22. else
  23. c=b+29
  24. endif
  25. else
  26. t1=t/2
  27. t2=int(t1)
  28. if t1-t2<>0
  29. c=b+29
  30. else
  31. c=b+30
  32. endif
  33. endif
  34. if t=2
  35. c=b+27
  36. endif
  37. sum y5 to x for y3>=b .and. y3<=c .and. y4=p
  38. clear
  39. @ 4,10 say " "+a+"╨Φ╥¬"+p+"╚≤╗¼╙═"+str(x,8)+"ú╦úτ"
  40. @ 8,1 clear
  41. wait '░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
  42. retu
  43.