home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8506a.d64 / Zinseszinsrechnu (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  152 lines
  1. 7 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 9 CLR:DIMA$(19),A(19),BA$(4):GOTO1000
  3. 10 Z1=2:Z2=10:S=13:REM * MASKELOESCHEN *
  4. 20 FORZ=Z1TOZ2:GOSUB80:PRINT"                          ":NEXT:IFC=0THENRETURN
  5. 30 Z1=12:Z2=20:C=0:GOTO20
  6. 40 S=0:FORZ=12TO20:GOSUB80:PRINT"           ":NEXT:RETURN
  7. 50 A$(A)=STR$(INT(A(A)*100+.5)):REM * RUNDEN
  8. 60 AB$=LEFT$(A$(A),LEN(A$(A))-2)+"."+RIGHT$(A$(A),2):RETURN
  9. 70 LOAD"FM.MENUE",8:REM *
  10. 80 POKE214,Z:POKE211,S:SYS58732:RETURN:REM * CURSORPOSITION
  11. 90 A=55869:FORI=1597TO1622:POKEI,100:POKEA,1:A=A+1:NEXT:RETURN
  12. 100 REM * AUSWAHLROUTINE
  13. 110 GOSUB80:PRINT"           [146]":FORI=1TO75:NEXT
  14. 120 GOSUB80:PRINT""A$(Y)"[146]":FORI=1TO125:NEXT
  15. 130 GETG$:IFG$<>CHR$(133)ANDG$<>CHR$(134)ANDG$<>CHR$(135)ANDG$<>CHR$(13)THEN110
  16. 140 IFG$=CHR$(133)ANDCTHENC=0:RETURN
  17. 150 IFG$=CHR$(13)THENGOSUB80:PRINT">[146]";:RETURN
  18. 160 IFG$=CHR$(135)THEN190
  19. 170 Z=Z+SW:Y=Y+1:IFZ>Z2THENZ=Z1:Y=Y1
  20. 180 GOTO110
  21. 190 Z=Z-SW:Y=Y-1:IFZ<Z1THENZ=Z2:Y=Y2
  22. 195 GOTO110
  23. 200 REM * WAHL-FUSSZEILE:S=0
  24. 210 Z=23:GOSUB80:PRINT"          [146]";:FORI=1TO75:NEXT
  25. 220 GOSUB80:PRINT""BA$(Y)"[146]";:FORI=1TO175:NEXT
  26. 230 GETG$:IFG$<>CHR$(134)ANDG$<>CHR$(135)ANDG$<>CHR$(13)THEN210
  27. 240 IFG$=CHR$(13)THENGOSUB80:PRINT">[146]";:RETURN
  28. 250 IFG$=CHR$(135)THEN280
  29. 260 S=S+10:Y=Y+1:IFS>30THENS=0:Y=1
  30. 270 GOTO210
  31. 280 S=S-10:Y=Y-1:IFS<0THENS=30:Y=4
  32. 290 GOTO210
  33. 300 REM * EINGABEROUTINE
  34. 310 GOSUB80
  35. 315 IN$=""
  36. 320 PRINT"[162][157]";
  37. 330 GETG$:IFG$=""THEN330
  38. 340 G=ASC(G$):IFG=13THEN460
  39. 360 IFG<48ORG>57THEN410
  40. 370 IN$=IN$+G$:IN=LEN(IN$)
  41. 380 PRINTG$;
  42. 390 IFIN>NTHENFORI=1TOIN:PRINTCHR$(20);:NEXT:GOTO310
  43. 400 GOTO320
  44. 410 IFG=46THEN370
  45. 420 IFG$=CHR$(133)THEN9
  46. 430 IFG<>20THEN320
  47. 440 IFIN<1THEN320
  48. 450 IN$=LEFT$(IN$,IN-1):GOTO380
  49. 460 PN$="":FORI=1TO(10-LEN(IN$)):PN$=PN$+".":NEXT:PRINTPN$
  50. 470 IFLEN(IN$)<1THEN310
  51. 480 RETURN
  52. 999 :
  53. 1000 REM * ZINSESZINSRECHNUNG
  54. 1010 GOSUB5000:PRINTMA$
  55. 1020 A=55388:FORI=1076TO1906STEP40:POKEI,101:POKEA,1:A=A+40:NEXT
  56. 1030 A=55736:FORI=1464TO1474:POKEI,100:POKEA,1:A=A+1:NEXT
  57. 1040 A=55749:FORI=1477TO1502:POKEI,100:POKEA,1:A=A+1:NEXT
  58. 1050 Z=23:S=0:GOSUB80:PRINTMB$
  59. 1060 Z=2:GOSUB80:PRINT"[193]USWAHL :":PRINT"[163][163][163][163][163][163][163][163][163]"
  60. 1070 Z=4:FORI=1TO5:GOSUB80:PRINT""A$(I)"[146]":Z=Z+1:NEXT
  61. 1080 Z=4:Z1=Z:Z2=8:S=0:Y=1:Y1=Y:Y2=5:SW=1:C=0:GOSUB100:F=Y:IFF=5THEN70
  62. 1090 IFF=1THENA$(9)=KO$:A$(10)=P$:A$(11)=N$:K=1
  63. 1100 IFF=2THENA$(9)=KN$:A$(10)=P$:A$(11)=N$:K=1
  64. 1110 IFF=3THENA$(9)=KO$:A$(10)=KN$:A$(11)=N$:K=0
  65. 1120 IFF=4THENA$(9)=KO$:A$(10)=KN$:A$(11)=P$:K=2
  66. 2000 REM * EINGABEMASKE
  67. 2010 Z=2:S=13:GOSUB80:PRINT"[197]INGABE :":Z=3:GOSUB80:PRINT"[163][163][163][163][163][163][163][163][163]"
  68. 2020 Z=4:FORI=9TO12:S=13:GOSUB80:PRINT""A$(I)"[146] : ";PM$:Z=Z+2:NEXT
  69. 2030 Z=23:S=0:GOSUB80:PRINTMC$;
  70. 2040 Z=4:S=27:N=10:GOSUB300:A(9)=VAL(IN$)
  71. 2050 Z=6:GOSUB300:A(10)=VAL(IN$)
  72. 2060 Z=8:GOSUB300:A(11)=VAL(IN$)
  73. 2065 Z=10:N=9:GOSUB300:A(12)=VAL(IN$)
  74. 2070 Z=13:S=13:GOSUB80:PRINT"[197]INGABE KORREKT ? (J/N):":GOSUB90
  75. 2080 Z=13:S=38:GOSUB80:PRINT"[162][157]";
  76. 2090 GETG$:IFG$<>"J"ANDG$<>"N"THEN2090
  77. 2100 PRINTG$:IFG$="J"THENY=1
  78. 2110 IFG$="N"THENY=0
  79. 2120 GETI$:IFI$<>CHR$(13)ANDI$<>CHR$(20)THEN2120
  80. 2130 IFI$=CHR$(20)THEN2080
  81. 2140 C=1:GOSUB10:IFY=0THEN2010
  82. 3000 REM * RECHNUNG
  83. 3010 IFF=1THENA(16)=A(9)*(1+(A(10)/(A(12)*100)))^(A(11)*A(12))
  84. 3020 IFF=1THENA(19)=100*((1+(A(10)/(A(12)*100)))^A(12)-1):D=1
  85. 3030 IFF=2THENA(16)=A(9)/(1+(A(10)/(A(12)*100)))^(A(11)*A(12)):D=0
  86. 3040 IFF=3THENA(16)=((A(10)/A(9))^(1/(A(11)*A(12)))-1)*100*A(12):D=0
  87. 3050 IFF=4THENA(16)=(LOG(A(10)/A(9))/LOG(1+(A(11)/(A(12)*100))))/A(12):D=0
  88. 3500 REM * SCREEN
  89. 3510 Z=2:S=13:GOSUB80:PRINT"[197]INGABE :":Z=3:GOSUB80:PRINT"[163][163][163][163][163][163][163][163][163][163]"
  90. 3520 Z=4:FORI=9TO12:GOSUB80:PRINTA$(I)" :"A(I):Z=Z+2:NEXT
  91. 3530 Z=13:GOSUB80::PRINT"[210]ESULTAT :":Z=14:GOSUB80:PRINT"[163][163][163][163][163][163][163][163][163][163]":A=16:GOSUB50
  92. 3540 Z=15:GOSUB80:PRINT""A$(F)"[146] :"TAB(38-LEN(AB$));AB$
  93. 3550 PRINTTAB(39-LEN(AB$));:FORI=1TOLEN(AB$)-1:PRINT"=";:NEXT
  94. 3560 Z=20:GOSUB80:IFK=1THENPRINT"[193]USDRUCK IN [196][205] !":GOTO3580
  95. 3570 IFK=0THENPRINT"[193]USDRUCK IN [208]ROZENT !"
  96. 3580 IFD=0THEN3620
  97. 3590 Z=13:S=0:GOSUB80::PRINT""A$(17)"[146]":PRINT""A$(18)"[146]"
  98. 3600 Z=17:S=1:GOSUB80:A=19:GOSUB50:PRINTAB$" %"
  99. 3610 PRINTTAB(7-LEN(AB$));:FORI=1TOLEN(AB$)+1:PRINT"=";:NEXT
  100. 3620 Z=23:S=0:GOSUB80:FORI=1TO4:PRINT""BA$(I)"[146]";:NEXT
  101. 3630 Y=1:GOSUB200:IFY=4THEN70
  102. 3640 IFY=3THEN1010
  103. 3650 IFY=2THEN4500
  104. 4000 REM * AENDERUNG
  105. 4010 C=1:GOSUB10:IFDTHENGOSUB40
  106. 4020 Z=2:S=13:GOSUB80::PRINT"[193]ENDERUNG :":Z=3:GOSUB80:PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
  107. 4030 Z=4:S=13::FORI=9TO12:GOSUB80:PRINT""A$(I)"[146] :";A(I):Z=Z+2:NEXT
  108. 4040 Z=23:S=0:GOSUB80:PRINTMD$;
  109. 4050 Z=4:Z1=Z:Z2=10:S=13:Y=9:Y1=Y:Y2=12:SW=2:C=1:GOSUB100
  110. 4060 IFC=0THENGOSUB10:GOTO3000
  111. 4070 Z=13:S=13:GOSUB80:PRINT""A$(Y)"[146] : ";PM$:GOSUB90
  112. 4080 Z=23:S=0:GOSUB80:PRINTMC$;:Z=13:S=27:GOSUB300:A(Y)=VAL(IN$):GOTO4010
  113. 4500 REM * PRINTER
  114. 4505 TA$=CHR$(10):TB$=CHR$(16)
  115. 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]"
  116. 4520 PRINT#4,TB$"25-----------------"TA$
  117. 4530 FORI=9TO12:PRINT#4,CHR$(15)TB$"10*** "A$(I)" : "A(I):NEXT
  118. 4540 A=16:GOSUB50:PRINT#4,TA$;TB$"14"A$(F)" : "AB$
  119. 4550 PRINT#4,TB$"15";:FORI=1TO2+LEN(A$(F)+AB$):PRINT#4,"=";:NEXT
  120. 4560 PRINT#4,CHR$(13):IFDTHENGOSUB4620
  121. 4565 PRINT#4,TA$;TA$;TA$
  122. 4570 PRINT#4,CHR$(13);TB$"10***  [203]APITAL UND [218]INSSATZ WERDEN";
  123. 4580 PRINT#4," IN ' [196][205] ' AUSGEDRUCKT,"
  124. 4590 PRINT#4,TB$"16[218]INSSATZ UND [202]AHRESZINS (FALLS VORHANDEN) IN ' %[160]' !"
  125. 4600 PRINT#4:FORI=1TO40:PRINT#4,"==";:NEXT:PRINT#4,TA$;TA$;TA$
  126. 4610 CLOSE4:FORI=56176TO56215:POKEI,0:NEXT:GOTO3620
  127. 4620 IFDTHENPRINT#4,TA$;TB$"15"A$(17)" "A$(18)" : ";
  128. 4630 A=19:GOSUB50:PRINT#4,AB$
  129. 4640 PRINT#4,TB$"15";:FORI=1TOLEN(A$(18)+A$(19)+AB$)+10:PRINT#4,"=";:NEXT
  130. 4650 RETURN
  131. 5000 REM * VARIABLEN
  132. 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]"
  133. 5020 MB$=" [198]3 U. [198]5 - [215]AHL ! '[210][197][212][213][210][206]' - [197]INGABE ![146]"
  134. 5030 MC$="  [198]1 - [206]EU !      [199]EBEN [211]IE EIN !      [146]"
  135. 5040 MD$=" [198]1 - [210]ESULTAT !     [198]3 U. [198]5 - [215]AHL ! [146]"
  136. 5050 KO$=" [193]N.KAPITAL":P$="  [218]INSSATZ ":KN$=" [197]NDKAPITAL"
  137. 5060 N$="  [202]AHRE    ":A$(12)=" [218]INSPER./A":PM$=".........."
  138. 5100 BA$(1)="  [193]ENDERN "
  139. 5110 BA$(2)="  [203]OPIE   "
  140. 5120 BA$(3)="  [206]EU     "
  141. 5130 BA$(4)=" [205]ENUE    "
  142. 5500 A$(1)=KN$
  143. 5510 A$(2)=KO$
  144. 5520 A$(3)=P$
  145. 5530 A$(4)="  [204]AUFZEIT "
  146. 5540 A$(5)="  [205]ENUE    "
  147. 5600 A$(13)="  [193]ENDERN  "
  148. 5610 A$(14)="  [210]ESULTAT "
  149. 5620 A$(15)="  [205]ENUE    "
  150. 5630 A$(17)="[197]FFEKTIVER"
  151. 5640 A$(18)="[202]AHRESZINS":RETURN
  152.