home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / Zinseszinsrechnu (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.