home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / ZJJS.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.8 KB  |  77 lines
  1. CLEAR
  2. SET TALK OFF
  3. ACCE'          ╟δ╩Σ╚δ╡▒╟░─Ω╖╓(NN)' TO NF
  4. USE SB
  5. STORE 0 TO SB15S
  6. STORE 0 TO YTS
  7. STORE 0 TO SB17S
  8. STORE 0 TO SB49S
  9. STORE 0 TO X
  10. STORE DTOC(SB12) TO SB12R1
  11. STORE SUBS(SB12R1,7,2) TO SB12R2
  12. STORE SUBS(SB12R1,1,2) TO SB12R3
  13. STORE 12-VAL(SB12R3) TO SB12R4
  14. DO WHILE .NOT. EOF()
  15. IF X=0
  16. CLEAR
  17. SET DEVICE TO SCREEN
  18. @ X+1,1 SAY '▒α║┼             ╘¡╓╡            ╡▒─Ω╒█╛╔       ╥╤╠ß╒█╛╔'
  19. STORE 2 TO X
  20. ENDIF
  21. *STORE YZ/ZJ TO DN
  22. *STORE Z84+DN*(VAL(NF)-84) TO YT
  23. IF VAL(SB12R2)<=87
  24. IF SB17>SB15*SB26
  25. STORE SB15*(1-SB26)/SB16 TO SB49R1
  26. REPL SB49 WITH SB49R1
  27. STORE SB49*(VAL(NF)-87)+SB18 TO YT
  28. REPL SB17 WITH SB15-YT
  29. ELSE 
  30. STORE 0 TO SB49R1
  31. REPL SB49 WITH SB49R1
  32. REPL SB17 WITH SB17+0
  33. STORE SB15-SB17 TO YT
  34. ENDIF
  35. ENDIF
  36. IF VAL(SB12R2)>87 .AND. VAL(SB12R2)=VAL(NF)
  37. STORE SB15*(1-SB26)/SB16*SB12R4*1/12 TO SB49R1
  38. REPL SB49 WITH SB49R1
  39. REPL SB17 WITH SB15-SB49
  40. STORE SB49 TO YT
  41. ENDIF
  42. IF VAL(SB12R2)>87 .AND. SB17>SB15*SB26 .AND. VAL(SB12R2)#VAL(NF)
  43. STORE SB15*(1-SB26)/SB16 TO SB49R1
  44. REPL SB49 WITH SB49R1
  45. STORE SB49*(VAL(NF)-VAL(SB12R2))+SB49*1/12*SB12R4 TO YT
  46. REPLA SB17 WITH SB15-YT
  47. ENDIF
  48. IF VAL(SB12R2)>87 .AND. SB17<SB15*SB26 .AND. VAL(SB12R2)#VAL(NF)
  49. STORE 0 TO SB49R1
  50. REPL SB49 WITH SB49R1
  51. REPL SB17 WITH SB17+0
  52. STORE SB15-SB17 TO YT
  53. ENDIF
  54. STORE SB49S+SB49 TO SB49S
  55. STORE YTS+YT TO YTS
  56. @ X,1 SAY SB1 PICTU 'XXXXXXXXXX'
  57. @ X,11 SAY SB15 PICTU '999999999999.99'
  58. @ X,28 SAY SB49 PICTU '999999999999.99'
  59. @ X,43 SAY YT PICTU '999999999999.99'
  60. SKIP
  61. IF X=9
  62. STORE 0 TO X
  63. ELSE
  64. STORE X+1 TO X
  65. ENDIF
  66. ENDDO
  67. SUM SB15 TO SB15S
  68. @ X,1 SAY A- '╫▄╩²      ╘¡╓╡╫▄╢ε    ╡▒─Ω╒█╛╔╫▄╢ε    ╥╤╠ß╒█╛╔╫▄╢ε'
  69. STORE X+1 TO X
  70. COUNT TO SBTS
  71. @ X,1 SAY SBTS PICTU '9999999999'
  72. @ X,15 SAY STR(SB15S,11,2)
  73. @ X,32 SAY SB49S PICTU '99999999.99'
  74. @ X,47 SAY STR(YTS,11,2)
  75. ENDIF
  76. RETURN
  77.