home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JC2.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  90 lines
  1. clear
  2. set talk off
  3. close data
  4. sele 1
  5. use jy
  6. sele 2
  7. use jc
  8. dele all 
  9. pack
  10. set device to screen
  11. a1=.t.
  12. do while a1
  13. clear
  14. k1='     '
  15. k2='          '
  16. k3='  '
  17. @ 3,10 say "╫╩╜≡╡─└√┬╩úÑ" get k1 pict '##.##'
  18. @ 4,10 say "╛╔╔Φ▒╕╧╓╘┌╡─╝█╓╡" get k2 pict '#######.##'
  19. @ 5,10 say "┤╦╔Φ▒╕╫╝▒╕╙├╝╕─Ω" get k3 pict '99'
  20. read
  21. set cons on
  22. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐'to q
  23. if q<>'y'
  24. loop
  25. endif
  26. exit
  27. enddo a1
  28. clear
  29. @ 4,20 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí"
  30. set cons on 
  31. k1=val(k1)
  32. k2=val(k2)
  33. k3=val(k3)
  34. l=1
  35. do while l<=5
  36. a='j'+str(l,1)
  37. sele 1
  38. goto 2
  39. x=j4
  40. x2=&a
  41. goto 1
  42. if l=4 .or. l=5
  43. x1=&a-k2
  44. else
  45. x1=&a
  46. endif
  47. goto 3
  48. q=1
  49. z1=0+x1
  50. do while q<=k3 .and. .not. eof()
  51. b=val(j6)
  52. z=z1+&a/(1+k1/100)**q
  53. z1=z
  54. z=z*x/x2
  55. sele 2 
  56. if l<>1 .and. q=1
  57. goto 1
  58. endif
  59. if l=1
  60. appe blank
  61. else
  62. if q<>1
  63. skip
  64. else
  65. goto 1
  66. endif
  67. endif
  68. repl &a with z,j6 with b
  69. sele 1
  70. skip
  71. q=q+1
  72. enddo
  73. l=l+1
  74. enddo
  75. set cons on
  76. clos data
  77. retu
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89. exit
  90.