home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / Zinseszinsrechnu (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  153 lines
  1. 7 poke45,peek(174):poke46,peek(175):clr
  2. 8 rem (c) by klaus kloeker
  3. 9 clr:dima$(19),a(19),ba$(4):goto1000
  4. 10 z1=2:z2=10:s=13:rem * maskeloeschen *
  5. 20 forz=z1toz2:gosub80:print"                          ":next:ifc=0thenreturn
  6. 30 z1=12:z2=20:c=0:goto20
  7. 40 s=0:forz=12to20:gosub80:print"           ":next:return
  8. 50 a$(a)=str$(int(a(a)*100+.5)):rem * runden
  9. 60 ab$=left$(a$(a),len(a$(a))-2)+"."+right$(a$(a),2):return
  10. 70 load"menue",8:rem *
  11. 80 poke214,z:poke211,s:sys58732:return:rem * cursorposition
  12. 90 a=55869:fori=1597to1622:pokei,100:pokea,1:a=a+1:next:return
  13. 100 rem * auswahlroutine
  14. 110 gosub80:print"           [146]":fori=1to75:next
  15. 120 gosub80:print""a$(y)"[146]":fori=1to125:next
  16. 130 getg$:ifg$<>chr$(133)andg$<>chr$(134)andg$<>chr$(135)andg$<>chr$(13)then110
  17. 140 ifg$=chr$(133)andcthenc=0:return
  18. 150 ifg$=chr$(13)thengosub80:print">[146]";:return
  19. 160 ifg$=chr$(135)then190
  20. 170 z=z+sw:y=y+1:ifz>z2thenz=z1:y=y1
  21. 180 goto110
  22. 190 z=z-sw:y=y-1:ifz<z1thenz=z2:y=y2
  23. 195 goto110
  24. 200 rem * wahl-fusszeile:s=0
  25. 210 z=23:gosub80:print"          [146]";:fori=1to75:next
  26. 220 gosub80:print""ba$(y)"[146]";:fori=1to175:next
  27. 230 getg$:ifg$<>chr$(134)andg$<>chr$(135)andg$<>chr$(13)then210
  28. 240 ifg$=chr$(13)thengosub80:print">[146]";:return
  29. 250 ifg$=chr$(135)then280
  30. 260 s=s+10:y=y+1:ifs>30thens=0:y=1
  31. 270 goto210
  32. 280 s=s-10:y=y-1:ifs<0thens=30:y=4
  33. 290 goto210
  34. 300 rem * eingaberoutine
  35. 310 gosub80
  36. 315 in$=""
  37. 320 print"[162][157]";
  38. 330 getg$:ifg$=""then330
  39. 340 g=asc(g$):ifg=13then460
  40. 360 ifg<48org>57then410
  41. 370 in$=in$+g$:in=len(in$)
  42. 380 printg$;
  43. 390 ifin>nthenfori=1toin:printchr$(20);:next:goto310
  44. 400 goto320
  45. 410 ifg=46then370
  46. 420 ifg$=chr$(133)then9
  47. 430 ifg<>20then320
  48. 440 ifin<1then320
  49. 450 in$=left$(in$,in-1):goto380
  50. 460 pn$="":fori=1to(10-len(in$)):pn$=pn$+".":next:printpn$
  51. 470 iflen(in$)<1then310
  52. 480 return
  53. 999 :
  54. 1000 rem * zinseszinsrechnung
  55. 1010 gosub5000:printma$
  56. 1020 a=55388:fori=1076to1906step40:pokei,101:pokea,1:a=a+40:next
  57. 1030 a=55736:fori=1464to1474:pokei,100:pokea,1:a=a+1:next
  58. 1040 a=55749:fori=1477to1502:pokei,100:pokea,1:a=a+1:next
  59. 1050 z=23:s=0:gosub80:printmb$
  60. 1060 z=2:gosub80:print"[193]uswahl :":print"[163][163][163][163][163][163][163][163][163]"
  61. 1070 z=4:fori=1to5:gosub80:print""a$(i)"[146]":z=z+1:next
  62. 1080 z=4:z1=z:z2=8:s=0:y=1:y1=y:y2=5:sw=1:c=0:gosub100:f=y:iff=5then70
  63. 1090 iff=1thena$(9)=ko$:a$(10)=p$:a$(11)=n$:k=1
  64. 1100 iff=2thena$(9)=kn$:a$(10)=p$:a$(11)=n$:k=1
  65. 1110 iff=3thena$(9)=ko$:a$(10)=kn$:a$(11)=n$:k=0
  66. 1120 iff=4thena$(9)=ko$:a$(10)=kn$:a$(11)=p$:k=2
  67. 2000 rem * eingabemaske
  68. 2010 z=2:s=13:gosub80:print"[197]ingabe :":z=3:gosub80:print"[163][163][163][163][163][163][163][163][163]"
  69. 2020 z=4:fori=9to12:s=13:gosub80:print""a$(i)"[146] : ";pm$:z=z+2:next
  70. 2030 z=23:s=0:gosub80:printmc$;
  71. 2040 z=4:s=27:n=10:gosub300:a(9)=val(in$)
  72. 2050 z=6:gosub300:a(10)=val(in$)
  73. 2060 z=8:gosub300:a(11)=val(in$)
  74. 2065 z=10:n=9:gosub300:a(12)=val(in$)
  75. 2070 z=13:s=13:gosub80:print"[197]ingabe korrekt ? (j/n):":gosub90
  76. 2080 z=13:s=38:gosub80:print"[162][157]";
  77. 2090 getg$:ifg$<>"j"andg$<>"n"then2090
  78. 2100 printg$:ifg$="j"theny=1
  79. 2110 ifg$="n"theny=0
  80. 2120 geti$:ifi$<>chr$(13)andi$<>chr$(20)then2120
  81. 2130 ifi$=chr$(20)then2080
  82. 2140 c=1:gosub10:ify=0then2010
  83. 3000 rem * rechnung
  84. 3010 iff=1thena(16)=a(9)*(1+(a(10)/(a(12)*100)))^(a(11)*a(12))
  85. 3020 iff=1thena(19)=100*((1+(a(10)/(a(12)*100)))^a(12)-1):d=1
  86. 3030 iff=2thena(16)=a(9)/(1+(a(10)/(a(12)*100)))^(a(11)*a(12)):d=0
  87. 3040 iff=3thena(16)=((a(10)/a(9))^(1/(a(11)*a(12)))-1)*100:d=0
  88. 3050 iff=4thena(16)=(log(a(10)/a(9))/log(1+(a(11)/(a(12)*100))))/a(12):d=0
  89. 3500 rem * screen
  90. 3510 z=2:s=13:gosub80:print"[197]ingabe :":z=3:gosub80:print"[163][163][163][163][163][163][163][163][163][163]"
  91. 3520 z=4:fori=9to12:gosub80:printa$(i)" :"a(i):z=z+2:next
  92. 3530 z=13:gosub80::print"[210]esultat :":z=14:gosub80:print"[163][163][163][163][163][163][163][163][163][163]":a=16:gosub50
  93. 3540 z=15:gosub80:print""a$(f)"[146] :"tab(38-len(ab$));ab$
  94. 3550 printtab(39-len(ab$));:fori=1tolen(ab$)-1:print"=";:next
  95. 3560 z=20:gosub80:ifk=1thenprint"[193]usdruck in [196][205] !":goto3580
  96. 3570 ifk=0thenprint"[193]usdruck in [208]rozent !"
  97. 3580 ifd=0then3620
  98. 3590 z=13:s=0:gosub80::print""a$(17)"[146]":print""a$(18)"[146]"
  99. 3600 z=17:s=1:gosub80:a=19:gosub50:printab$" %"
  100. 3610 printtab(7-len(ab$));:fori=1tolen(ab$)+1:print"=";:next
  101. 3620 z=23:s=0:gosub80:fori=1to4:print""ba$(i)"[146]";:next
  102. 3630 y=1:gosub200:ify=4then70
  103. 3640 ify=3then1010
  104. 3650 ify=2then4500
  105. 4000 rem * aenderung
  106. 4010 c=1:gosub10:ifdthengosub40
  107. 4020 z=2:s=13:gosub80::print"[193]enderung :":z=3:gosub80:print"[163][163][163][163][163][163][163][163][163][163][163]"
  108. 4030 z=4:s=13::fori=9to12:gosub80:print""a$(i)"[146] :";a(i):z=z+2:next
  109. 4040 z=23:s=0:gosub80:printmd$;
  110. 4050 z=4:z1=z:z2=10:s=13:y=9:y1=y:y2=12:sw=2:c=1:gosub100
  111. 4060 ifc=0thengosub10:goto3000
  112. 4070 z=13:s=13:gosub80:print""a$(y)"[146] : ";pm$:gosub90
  113. 4080 z=23:s=0:gosub80:printmc$;:z=13:s=27:gosub300:a(y)=val(in$):goto4010
  114. 4500 rem * printer
  115. 4505 ta$=chr$(10):tb$=chr$(16)
  116. 4510 open4,4,7:print#4,chr$(14);tb$"25[218][201][206][211][197][211][218][201][206][211][210][197][195][200][206][213][206][199]"
  117. 4520 print#4,tb$"25-----------------"ta$
  118. 4530 fori=9to12:print#4,chr$(15)tb$"10*** "a$(i)" : "a(i):next
  119. 4540 a=16:gosub50:print#4,ta$;tb$"14"a$(f)" : "ab$
  120. 4550 print#4,tb$"15";:fori=1to2+len(a$(f)+ab$):print#4,"=";:next
  121. 4560 print#4,chr$(13):ifdthengosub4620
  122. 4565 print#4,ta$;ta$;ta$
  123. 4570 print#4,chr$(13);tb$"10***  [203]apital und [218]inssatz werden";
  124. 4580 print#4," in ' [196][205] ' ausgedruckt,"
  125. 4590 print#4,tb$"16[218]inssatz und [202]ahreszins (falls vorhanden) in ' %[160]' !"
  126. 4600 print#4:fori=1to40:print#4,"==";:next:print#4,ta$;ta$;ta$
  127. 4610 close4:fori=56176to56215:pokei,0:next:goto3620
  128. 4620 ifdthenprint#4,ta$;tb$"15"a$(17)" "a$(18)" : ";
  129. 4630 a=19:gosub50:print#4,ab$
  130. 4640 print#4,tb$"15";:fori=1tolen(a$(18)+a$(19)+ab$)+10:print#4,"=";:next
  131. 4650 return
  132. 5000 rem * variablen
  133. 5010 ma$="[147]  [218][160][201][160][206][160][211][160][197][160][211][160][218][160][201][160][206][160][211][160][210][160][197][160][195][160][200][160][206][160][213][160][206][160][199][160][160][146]"
  134. 5020 mb$=" [198]3 u. [198]5 - [215]ahl ! '[210][197][212][213][210][206]' - [197]ingabe ![146]"
  135. 5030 mc$="  [198]1 - [206]eu !      [199]eben [211]ie ein !      [146]"
  136. 5040 md$=" [198]1 - [210]esultat !     [198]3 u. [198]5 - [215]ahl ! [146]"
  137. 5050 ko$=" [193]n.kapital":p$="  [218]inssatz ":kn$=" [197]ndkapital"
  138. 5060 n$="  [202]ahre    ":a$(12)=" [218]insper./a":pm$=".........."
  139. 5100 ba$(1)="  [193]endern "
  140. 5110 ba$(2)="  [203]opie   "
  141. 5120 ba$(3)="  [206]eu     "
  142. 5130 ba$(4)=" [205]enue    "
  143. 5500 a$(1)=kn$
  144. 5510 a$(2)=ko$
  145. 5520 a$(3)=p$
  146. 5530 a$(4)="  [204]aufzeit "
  147. 5540 a$(5)="  [205]enue    "
  148. 5600 a$(13)="  [193]endern  "
  149. 5610 a$(14)="  [210]esultat "
  150. 5620 a$(15)="  [205]enue    "
  151. 5630 a$(17)="[197]ffektiver"
  152. 5640 a$(18)="[202]ahreszins":return
  153.