home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JC6.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.1 KB  |  69 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. a1=.t.
  5. k1='          '
  6. k2='     '
  7. k3='          '
  8. k6='     '
  9. p='  '
  10. k7='     '
  11. k8='     '
  12. d='  '
  13. do while a1 
  14. clear
  15. @ 1,20 say "╟δ╩Σ╚δ╥╘╧┬"+b+"╟Θ┐÷"
  16. @ 2,1 say "╔Φ▒╕╫╝▒╕╙├╝╕─Ω" get p pict '##'
  17. @ 3,1 say "╔Φ▒╕╘¡╓╡" get k1 pict '#######.##'
  18. @ 4,1 say "─Ω╒█╛╔┬╩úÑ" get k2 pict '##.##'
  19. @ 5,1 say "─▄╘┤╖╤ú»─Ω" get k3 pict '#######.##'
  20. @ 6,1 say "╔Φ▒╕┤≤╨▐╖╤╙├┬╩úÑ" get k6 pict '##.##'
  21. @ 7,1 say "╬¼╨▐╖╤╙├┬╩úÑ" get k7 pict '##.##'
  22. @ 8,1 say "╬¼╨▐╖╤╙├╘÷│ñ┬╩úÑ" get k8 pict '##.##' 
  23. @ 9,1 say "╔Φ▒╕╡─┤≤╨▐╓▄╞┌ú¿─Ωú⌐" get d pict '##'
  24. read
  25. wait '╩Σ╚δ╡─╩²╛▌ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥ú║' to w
  26. do case
  27. case w='r'
  28. retu
  29. case w='x'
  30. loop
  31. case w='z'
  32. k1=val(k1)
  33. k2=val(k2)/100
  34. k3=val(k3)
  35. k6=val(k6)
  36. p=val(p)
  37. k7=val(k7)/100
  38. k8=val(k8)/100
  39. d=val(d)
  40. f=d
  41. g=d
  42. ppp=1
  43. do while p<>0
  44. kk=k1*k7
  45. d=g
  46. d=f
  47. do while p<>0 .and. d<>0
  48. kk=kk*(1+k8)**(ppp-1)
  49. k5=k1*k2+k3+kk
  50. k4=str(ppp,2)
  51. loca for j6=k4
  52. if eof()
  53. appe blank
  54. repl j6 with k4,&j10 with k5
  55. else
  56. repl &j10 with k5
  57. endif
  58. p=p-1
  59. ppp=ppp+1
  60. d=d-1
  61. enddo
  62. enddo 
  63. exit
  64. endcase
  65. enddo a1
  66. retu
  67.  
  68.  
  69.