home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / Zinsrechnung (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  5KB  |  148 lines
  1. 7 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 8 REM (C) BY KLAUS KLOEKER
  3. 9 CLR:DIMA$(15),A(15):GOTO1000
  4. 10 Z1=3:Z2=9:S=13:REM * MASKE LOESCHEN *
  5. 20 FORZ=Z1TOZ2:GOSUB90:PRINT"                          ":NEXT:IFC=0THENRETURN
  6. 30 Z1=12:Z2=20:C=0:GOTO20
  7. 50 RETURN
  8. 70 A$(12)=STR$(INT(A(12)*100+.5)):REM * RUNDEN
  9. 75 AB$=LEFT$(A$(12),LEN(A$(12))-2)+"."+RIGHT$(A$(12),2):RETURN
  10. 80 LOAD"MENUE",8:REM *LOAD MENUE
  11. 90 POKE214,Z:POKE211,S:SYS58732:RETURN:REM * CURSORPOSITION
  12. 95 A=55869:FORI=1597TO1622:POKEI,100:POKEA,1:A=A+1:NEXT:RETURN
  13. 100 REM * AUSWAHLROUTINE *
  14. 110 GOSUB90:PRINT"           [146]":FORI=1TO75:NEXTI
  15. 120 GOSUB90: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)THENGOSUB90: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:GOSUB90:PRINT"          [146]";:FORI=1TO75:NEXT
  26. 220 GOSUB90: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)THENGOSUB90:PRINT">[146]";:RETURN
  29. 250 IFG$=CHR$(135)THEN280
  30. 260 S=S+10:Y=Y+1:IFS>31THENS=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 GOSUB90
  36. 320 IN$=""
  37. 330 PRINT"[162][157]";
  38. 340 GETG$:IFG$=""THEN340
  39. 350 G=ASC(G$):IFG=13THENGOTO460
  40. 370 IFG$<"0"ORG$>"9"THEN420
  41. 380 IN$=IN$+G$
  42. 390 PRINTG$;
  43. 400 IFLEN(IN$)>NTHENFORI=1TOLEN(IN$):PRINTCHR$(20);:NEXT:GOTO320
  44. 410 GOTO330
  45. 420 IFG=46THEN380
  46. 425 IFG$=CHR$(133)THEN9
  47. 430 IFG<>20THEN330
  48. 440 IFLEN(IN$)<1THEN330
  49. 450 IN$=LEFT$(IN$,LEN(IN$)-1):GOTO390
  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 ** ZINSRECHNUNG **
  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:GOSUB90:PRINTMB$
  60. 1060 Z=3:GOSUB90:PRINT"[193]USWAHL :":PRINT"[163][163][163][163][163][163][163][163][163]"
  61. 1070 Z=5:FORI=1TO5:GOSUB90:PRINT""A$(I)"[146]":Z=Z+1:NEXT
  62. 1080 Z=5:Z1=Z:Z2=9:S=0:Y=1:Y1=Y:Y2=5:SW=1:C=0:GOSUB100:F=Y:IFF=5THEN80
  63. 1090 Z=13:S=0:GOSUB90:PRINT"[204]AUFZEIT IN":PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
  64. 1100 Z=15:FORI=6TO8:S=0:GOSUB90:PRINT""A$(I)"[146]":Z=Z+1:NEXT
  65. 1110 Z=15:Z1=Z:Z2=17:S=0:Y=6:Y1=Y:Y2=8:SW=1:C=0:GOSUB100:E=Y
  66. 1120 IFE=6THENA$(11)=JA$:H=1
  67. 1130 IFE=7THENA$(11)=MO$:H=12
  68. 1140 IFE=8THENA$(11)=TA$:H=360
  69. 1150 IFF=1THENA$(9)=KA$:A$(10)=P$:K=1
  70. 1160 IFF=2THENA$(9)=ZI$:A$(10)=P$:K=1
  71. 1170 IFF=3THENA$(9)=KA$:A$(10)=ZI$:K=0
  72. 1180 IFF=4THENA$(9)=KA$:A$(10)=ZI$:A$(11)=P$:K=2
  73. 2000 REM * EINGABEMASKE *
  74. 2010 Z=3:S=13:GOSUB90:PRINT"[197]INGABE :":Z=4:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163]"
  75. 2020 Z=5:FORI=9TO11:S=13:GOSUB90:PRINT""A$(I)"[146] : ";PM$
  76. 2030 Z=Z+2:NEXT:Z=23:S=0:GOSUB90:PRINTMC$
  77. 2040 Z=5:S=27:N=10:GOSUB300:A(9)=VAL(IN$)
  78. 2050 Z=7:S=27:N=10:GOSUB300:A(10)=VAL(IN$)
  79. 2060 Z=9:S=27:N=10:GOSUB300:A(11)=VAL(IN$)
  80. 2070 Z=13:S=13:GOSUB90:PRINT"[197]INGABE KORREKT ? (J/N):":GOSUB95
  81. 2080 Z=13:S=38:GOSUB90:PRINT"[162][157]";
  82. 2090 GETG$:IFG$<>"J"ANDG$<>"N"THEN2090
  83. 2100 PRINTG$:IFG$="J"THENY=1
  84. 2110 IFG$="N"THENY=0
  85. 2120 GETI$:IFI$<>CHR$(13)ANDI$<>CHR$(20)THEN2120
  86. 2130 IFI$=CHR$(20)THEN2080
  87. 2140 C=1:GOSUB10:IFY=0THEN2010
  88. 3000 REM * RECHNUNG *
  89. 3010 IFF=1THENA(12)=(A(9)*A(10)*A(11))/(100*H)
  90. 3020 IFF=2THENA(12)=(A(9)*100*H)/(A(10)*A(11))
  91. 3030 IFF=3THENA(12)=(A(10)*100*H)/(A(9)*A(11))
  92. 3040 IFF=4THENA(12)=(A(10)*100*H)/(A(9)*A(11))
  93. 3500 REM * BILDSCHIRM
  94. 3510 Z=3:S=13:GOSUB90:PRINT"[197]INGABE :":Z=4:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163][163]"
  95. 3520 Z=5:FORI=9TO11:GOSUB90:PRINTA$(I)" :"A(I):Z=Z+2:NEXT
  96. 3530 Z=13:GOSUB90:PRINT"[210]ESULTAT :":Z=14:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163][163]":GOSUB70
  97. 3540 Z=16:GOSUB90:PRINT""A$(F)"[146] :";:PRINTTAB(38-LEN(AB$));AB$
  98. 3550 PRINTTAB(39-LEN(AB$));:FORI=1TOLEN(AB$)-1:PRINT"=";:NEXT
  99. 3560 Z=20:GOSUB90:IFK=1THENPRINT"[193]USDRUCK IN [196][205][160]!":GOTO3580
  100. 3570 IFK=0THENPRINT"[193]USDRUCK IN [208]ROZENT !"
  101. 3580 Z=23:S=0:GOSUB90:FORI=1TO4:PRINT""BA$(I)"[146]";:NEXT
  102. 3590 Y=1:GOSUB200:IFY=4THEN80
  103. 3600 IFY=3THEN1010
  104. 3610 IFY=2THEN4500
  105. 4000 REM * AENDERUNG *
  106. 4010 C=1:GOSUB10
  107. 4020 Z=3:S=13:GOSUB90:PRINT"[193]ENDERUNG :":Z=4:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
  108. 4030 Z=5:S=13:FORI=9TO11:GOSUB90:PRINT""A$(I)"[146] :";A(I):Z=Z+2:NEXT
  109. 4040 Z=23:S=0:GOSUB90:PRINTMD$;
  110. 4050 Z=5:Z1=Z:Z2=9:S=13:Y=9:Y1=Y:Y2=11:SW=2:C=1:GOSUB100
  111. 4060 IFC=0THENGOSUB10:GOTO3000
  112. 4070 Z=13:S=13:GOSUB90:PRINT""A$(Y)"[146] : ";PM$:GOSUB95
  113. 4080 Z=23:S=0:GOSUB90:PRINTMC$;:Z=13:S=27:GOSUB300:A(Y)=VAL(IN$):GOTO4010
  114. 4500 REM * AUSDRUCK *
  115. 4510 OPEN4,4,7:PRINT#4,CHR$(14);CHR$(16);"28[218][201][206][211][210][197][195][200][206][213][206][199]"
  116. 4520 PRINT#4,CHR$(16);"28------------";CHR$(10)
  117. 4530 FORI=9TO11:PRINT#4,CHR$(15);CHR$(16);"10*** "A$(I)" : ";A(I):NEXT
  118. 4540 GOSUB70:PRINT#4,CHR$(10);CHR$(16);"14"A$(F)" : "AB$
  119. 4550 PRINT#4,CHR$(16);"15";:FORI=1TO2+LEN(A$(F)+AB$):PRINT#4,"=";:NEXT
  120. 4560 PRINT#4:PRINT#4:PRINT#4
  121. 4570 PRINT#4,CHR$(13);CHR$(16);"10***   [203]APITAL UND [218]INSSATZ WERDEN";
  122. 4580 PRINT#4," IN ' [196][205] ' AUSGEDRUCKT,"
  123. 4590 PRINT#4,CHR$(16);"16DER [218]INSSATZ IN ' % ' !"
  124. 4600 PRINT#4:FORI=1TO40:PRINT#4,"==";:NEXT:PRINT#4:PRINT#4:PRINT#4:PRINT#4
  125. 4610 CLOSE4:FORI=56176TO56215:POKEI,0:NEXT:GOTO3580
  126. 5000 REM * VARIABLENLISTE *
  127. 5010 MA$="[147]        [218][160][201][160][206][160][211][160][210][160][197][160][195][160][200][160][206][160][213][160][206][160][199]        [146]"
  128. 5020 MB$=" [198]3 U. [198]5 - [215]AHL ! '[210][197][212][213][210][206]' - [197]INGABE ![146]"
  129. 5030 MC$="   [198]1 - [206]EU !     [199]EBEN [211]IE EIN !      [146]"
  130. 5040 MD$=" [198]1 - [210]ESULTAT !     [198]3 U. [198]5 - [215]AHL ! [146]"
  131. 5050 KA$="  [203]APITAL  ":P$="  [218]INSSATZ ":ZI$=" [218]INSERTRAG"
  132. 5060 JA$="  [202]AHRE    ":MO$="  [205]ONATE   ":TA$="  [212]AGE     ":PM$=".........."
  133. 5110 BA$(1)=" [193]ENDERN  "
  134. 5120 BA$(2)=" [203]OPIE    "
  135. 5130 BA$(3)=" [206].[194]ERECH."
  136. 5140 BA$(4)=" [205]ENUE    "
  137. 5510 A$(1)=" [218]INSERTRAG"
  138. 5520 A$(2)="  [203]APITAL  "
  139. 5530 A$(3)="  [218]INSSATZ "
  140. 5540 A$(4)="  [204]AUFZEIT "
  141. 5550 A$(5)="  [205]ENUE    "
  142. 5560 A$(6)="  [202]AHRE    "
  143. 5570 A$(7)="  [205]ONATE   "
  144. 5580 A$(8)="  [212]AGE     "
  145. 5590 A$(13)="  [193]ENDERN  "
  146. 5600 A$(14)="  [210]ESULTAT "
  147. 5610 A$(15)="  [205]ENUE    ":RETURN
  148.