home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / kaufmann / pk2.bas < prev    next >
BASIC Source File  |  1997-10-09  |  10KB  |  175 lines
  1. 1 WIDTH 80: COLOR 15,0,0
  2. 10 GOTO 100
  3. 15 LOCATE 20,1: PRINT STRING$(79,205)
  4. 16 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
  5. 17 LOCATE 21,25: PRINT "PROGRAMM WIRD GELADEN.BITTE WARTEN": COLOR 15,0
  6. 18 LOCATE 22,1: PRINT STRING$(79,205): RETURN
  7. 19 GOSUB 15: RUN "MENUE"
  8. 20 ZZ$=LEFT$(ZZ$,L):ZZ$=ZZ$+STRING$(L-LEN(ZZ$),95):Z2=0:Y=1
  9. 21 LOCATE R,S,O:PRINT ZZ$;
  10. 22 LOCATE R,S+Y-1,1
  11. 23 Z$=INKEY$: IF Z$="" THEN 23 ELSE Z=ASC(Z$): Z1=0: IF Z=0 THEN Z1=ASC(RIGHT$(Z$,1))
  12. 24 IF Z<>13 THEN 28 ELSE IF Z2 >0 THEN 23
  13. 25 IF Y=1 THEN ZZ$=CHR$(13):RETURN
  14. 26 IF RIGHT$(ZZ$,1)="_" THEN ZZ$=LEFT$(ZZ$,INSTR(ZZ$,"_")-1)
  15. 27 RETURN
  16. 28 IF Z<>0 THEN 48
  17. 29 IF Z1<>71 THEN 31 ELSE IF Y=1 OR Z2 THEN 23
  18. 30 Y=1:GOTO 22
  19. 31 IF Z1<>75 THEN 33 ELSE IF Y=1 OR Z2 THEN 23
  20. 32 Y=Y-1:GOTO 22
  21. 33 IF Z1<>77 THEN 35 ELSE IF MID$(ZZ$,Y,1)="_" OR Y>L THEN 23
  22. 34 Y=Y+1:GOTO 22
  23. 35 IF Z1<>79 THEN 39 ELSE IF Y>L OR Z2 THEN 23
  24. 36 IF MID$(ZZ$,Y,1)="_" THEN 23
  25. 37 Y=Y+1
  26. 38 IF MID$(ZZ$,Y,1)="_" THEN 22 ELSE 37
  27. 39 IF Z1<>82 THEN 42 ELSE IF RIGHT$(ZZ$,1)<>"_" THEN 23
  28. 40 IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
  29. 41 ZZ$=LEFT$(ZZ$,Y-1)+"_"+MID$(ZZ$,Y,L-Y):Z2=Z2+1:GOTO 21
  30. 42 IF Z1<>83 THEN 44 ELSE IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
  31. 43 GOSUB 56:ZZ$=LEFT$(ZZ$,Y-1)+MID$(ZZ$,Y+1)+"_":GOTO 21
  32. 44 IF Z1<>117 THEN 46 ELSE IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
  33. 45 GOSUB 56:ZZ$=LEFT$(ZZ$,Y-1)+STRING$(L-Y+1,95):GOTO 21
  34. 46 IF Z1<>119 THEN 23 ELSE IF Y=1 THEN 23
  35. 47 ZZ$=MID$(ZZ$,Y)+STRING$(Y-1,95):Y=1:GOTO 21
  36. 48 IF Z<>8 THEN 50 ELSE IF Y=1 THEN 23
  37. 49 ZZ$=LEFT$(ZZ$,Y-2)+MID$(ZZ$,Y)+"_":Y=Y-1:GOTO 21
  38. 50 IF Z<>27 THEN 51 ELSE ZZ$=STRING$(L,95):Y=1:Z2=0: GOTO 21
  39. 51 IF Z=95 OR Y>L THEN 23
  40. 52 ON PK% GOTO 55,53,54
  41. 53 IF Z<46 OR Z>58 THEN 23 ELSE 55
  42. 54 IF Z<>106 AND Z<>110 THEN 23
  43. 55 IF Z=44 THEN 23 ELSE GOSUB 56:ZZ$=LEFT$(ZZ$,Y-1)+Z$+MID$(ZZ$,Y+1):PRINT Z$;:Y=Y+1:GOTO 22
  44. 56 IF Z2 THEN Z2=Z2-1
  45. 57 RETURN
  46. 60 CLS: LOCATE 2,1: PRINT STRING$(79,205)
  47. 61 LOCATE 3,1: COLOR 0,15: PRINT SPACE$(79): LOCATE 3,30: PRINT "KAUFMÄNNISCHES  RECHNEN": LOCATE 4,1: PRINT SPACE$(79)
  48. 62 LOCATE 4,30: PRINT "(C) BY SIEGFRIED HÜBNER       ESC =LADE MENÜ": LOCATE 5,1: PRINT SPACE$(79)
  49. 63 LOCATE 5,32: PRINT "Z I N S R E C H N U N G"
  50. 64 COLOR 15,0: LOCATE 6,1: PRINT STRING$(79,205): RETURN
  51. 70 LOCATE 20,1: PRINT STRING$(79,205)
  52. 71 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
  53. 72 LOCATE 21,29: PRINT "BELIEBIGE TASTE DRÜCKEN": COLOR 15,0
  54. 73 LOCATE 22,1: PRINT STRING$(79,205)
  55. 75 E$=INKEY$: IF E$="" THEN 75
  56. 76 IF E$=CHR$(27) THEN 19
  57. 77 RETURN
  58. 90 LOCATE 20,1: PRINT STRING$(79,205)
  59. 91 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
  60. 92 LOCATE 21,34: PRINT "FALSCHE EINGABE": COLOR 15,0
  61. 93 LOCATE 22,1: PRINT STRING$(79,205): RETURN
  62. 95 FOR T=1 TO 4: LOCATE 19+T,1: PRINT SPACE$(79): NEXT: RETURN
  63. 100 GOSUB 60
  64. 101 LOCATE 7,2: PRINT "Die ZINSRECHNUNG ist eine Ergänzung der Prozentrechnung; hier wird noch"
  65. 102 LOCATE 8,2: PRINT "die Zeit berücksichtigt. Unter ZINSEN versteht man die Vergütung für die"
  66. 103 LOCATE 9,2: PRINT "leihweise Überlassung eines Geldbetrages, eines KAPITALS. Leihen Sie"
  67. 104 LOCATE 10,2: PRINT "sich Geld von Ihrer Bank, dann müssen Sie dafür in Form vereinbarter"
  68. 105 LOCATE 11,2: PRINT "Sollzinsen bezahlen. Stellen Sie Ihrer Bank Ihr Geld zur Verfügung, er-"
  69. 106 LOCATE 12,2: PRINT "halten Sie in Form von Habenzinsen dafür eine entsprechende Vergütung."
  70. 107 LOCATE 13,2: PRINT "Zinsen werden üblicherweise in PROZENT PRO JAHR berechnet, doch sind"
  71. 108 LOCATE 14,2: PRINT "auch kürzere Zeiträume wie Monate oder Tage möglich."
  72. 109 LOCATE 17,2: PRINT "In Deutschland wird für die Berechnung der Zinsen das Jahr zu"
  73. 110 LOCATE 18,2: PRINT "360 Tagen, der Monat zu 30 Tagen gerechnet.": GOSUB 70
  74. 120 GOSUB 60
  75. 121 LOCATE 7,2: PRINT "Wenn Sie am nächsten Wochenende 1 000 000 DM in der Lotterie gewinnen,"
  76. 122 LOCATE 8,2: PRINT "dann können Sie diesen Betrag zur Bank tragen und anlegen. Angenommen,"
  77. 123 LOCATE 9,2: PRINT "Sie erhalten darauf 6% Zinsen, dann sind Sie nach Ablauf eines Jahres"
  78. 124 LOCATE 10,2: PRINT "um 60 000 Mark reicher geworden. "
  79. 125 LOCATE 12,2: PRINT "Ihr Anfangskapital wäre 1 000 000 DM  = KA"
  80. 126 LOCATE 13,2: PRINT "nach 1 Jahr Ihr Endkapital            = EK"
  81. 127 LOCATE 14,2: PRINT "Der Zinssatz in % Jahr                =  Z"
  82. 128 LOCATE 15,2: PRINT "Der Zinsgewinn (60 000 DM)            = ZG"
  83. 129 LOCATE 17,2: PRINT "EK = KA + (KA * Z / 100) "
  84. 130 LOCATE 18,2: PRINT "ZG = KA + Z / 100": GOSUB 70
  85. 140 GOSUB 60
  86. 141 LOCATE 7,2: PRINT "Legen Sie Ihr Geld nicht für ein Jahr an, sondern für Monate oder"
  87. 142 LOCATE 8,2: PRINT "Tage, dann wird :"
  88. 143 LOCATE 10,2: PRINT "ZG (MONATE) = (KA * Z / 1200) * MONATE"
  89. 144 LOCATE 11,2: PRINT "ZG (TAGE)   = (KA * Z / 36000) * TAGE"
  90. 145 LOCATE 13,2: PRINT "Sie können sich also jedes Jahr 60 000 Mark an Zinsen abheben und"
  91. 146 LOCATE 14,2: PRINT "davon leben und behalten die Million auf der Bank. Ihre neue Kapitalanlage"
  92. 147 LOCATE 15,2: PRINT "nennt sich EWIGE RENTE. Aber leider ist diese Rente nicht ewig. Bei dieser"
  93. 148 LOCATE 16,2: PRINT "statistischen Betrachtung ist die Geldentwertung nicht berücksichtigt."
  94. 149 LOCATE 17,2: PRINT "Diese schmälert zwar nicht den nominelen Betrag Ihres Vermögens und den"
  95. 150 LOCATE 18,2: PRINT "Ihrer Zinsen nicht, wohl aber deren Kaufkraft.": GOSUB 70
  96. 160 GOSUB 60
  97. 161 LOCATE 7,2: PRINT "Wenn Sie lesen, daß sich die Lebenshaltungskosten wieder mal um 3% gegenüber"
  98. 162 LOCATE 8,2: PRINT "dem Vorjahr erhöht haben, heißt das, daß Guthaben und Zinsen 3 % weniger "
  99. 163 LOCATE 9,2: PRINT "Wert sind. Sie können dafür 3 % weniger Waren und Dienstleistungen kaufen "
  100. 164 LOCATE 10,2: PRINT "als ein Jahr zuvor. Welche verheerende Wirkung diese Inflation auf Dauer"
  101. 165 LOCATE 11,2: PRINT "haben kann, macht folgendes Programm deutlich. Sie können darin Ihr "
  102. 166 LOCATE 12,2: PRINT "Kapital, den Zinssatz und eine erwartete Inflationsrate in % eingeben"
  103. 167 LOCATE 13,2: PRINT "und sich für 10 Jahre vorrechnen lassen, wie ggf. der Wert (nicht der"
  104. 168 LOCATE 14,2: PRINT "Betrag) Ihres Kapitals dahinschmilzt.": GOSUB 70
  105. 170 GOSUB 60
  106. 171 LOCATE 7,2: PRINT "ZINSRECHNUNGS-PROGRAMM"
  107. 172 LOCATE 9,2: PRINT "WELCHES KAPITAL STEHT ZUR VERFÜGUNG : "
  108. 173 ZZ$="": R=9: S=40: L=7: PK%=2: GOSUB 20: KA$=ZZ$
  109. 174 IF KA$=CHR$(13) THEN BEEP: GOSUB 90: GOTO 173
  110. 175 KA=VAL(KA$): IF KA<=0 THEN BEEP: GOSUB 90: GOTO 173
  111. 176 GOSUB 95
  112. 177 LOCATE 11,2: PRINT "WELCHER ZINSSATZ IN % PRO JAHR      : "
  113. 178 ZZ$="": R=11: S=40: L=2: PK%=2: GOSUB 20: Z1$=ZZ$
  114. 179 IF Z1$=CHR$(13) THEN BEEP: GOSUB 90: GOTO 178
  115. 180 Z=VAL(Z1$): IF Z<=0 THEN BEEP: GOSUB 90: GOTO 178
  116. 181 GOSUB 95
  117. 182 LOCATE 13,2: PRINT "INFLATIONSRATE   IN % PRO JAHR      : "
  118. 183 ZZ$="": R=13: S=40: L=1: PK%=2: GOSUB 20: IR$=ZZ$
  119. 184 IF IR$=CHR$(13) THEN BEEP: GOSUB 90: GOTO 183
  120. 185 IR=VAL(IR$): IF IR<=0 THEN BEEP: GOSUB 90: GOTO 183
  121. 186 GOSUB 95
  122. 187 LOCATE 15,2: PRINT "FÜR WIEVIEL JAHRE BERECHNEN (>10)   : "
  123. 188 ZZ$="": R=15: S=40: L=2: PK%=2: GOSUB 20: J$=ZZ$
  124. 189 IF J$=CHR$(13) THEN BEEP: GOSUB 90: GOTO 188
  125. 190 J=VAL(J$): IF J<=0 OR J>10 THEN BEEP: GOSUB 90: GOTO 188
  126. 191 GOSUB 95: GOSUB 70
  127. 200 GOSUB 60
  128. 201 LOCATE 7,2: PRINT "KAPITAL   : ";KA$;TAB(30)"ZINSSATZ : ";Z1$
  129. 202 LOCATE 8,2: PRINT "INFLATION : ";IR$;TAB(30)"JAHRE    : ";J$
  130. 203 F1=(Z/100)
  131. 204 F2=(IR/100)
  132. 205 LOCATE 9,2: PRINT "JAHR","KAPITAL","ZINSGEWINN"
  133. 206 LOCATE 10,2: PRINT "====================================="
  134. 207 FOR I=2 TO J
  135. 208 KA=KA-KA*F2
  136. 209 KA=INT(KA*100+.5)/100
  137. 210 ZG=KA*F1
  138. 211 ZG=INT(ZG*100+.5)/100
  139. 212 PRINT TAB(2);I,KA,ZG
  140. 213 NEXT: GOSUB 70
  141. 220 GOSUB 60
  142. 221 LOCATE 7,2: PRINT "DAS PROGRAMM :"
  143. 222 LOCATE 9,2: PRINT " 10 CLS                                       'BILDSCHIRM FREI"
  144. 223 LOCATE 10,2: PRINT " 20 INPUT 'KAPITAL';KA                        'EINGABE SUMME  "
  145. 224 LOCATE 11,2: PRINT " 30 INPUT 'ZINSSATZ'; Z                       'EINGABE ZINSEN "
  146. 225 LOCATE 12,2: PRINT " 40 INPUT 'INFLATION'; IR                     'EINGABE INFLATION"
  147. 226 LOCATE 13,2: PRINT " 50 INPUT 'WIEVIEL JAHRE';J                   'EINGABE JAHRE    "
  148. 227 LOCATE 14,2: PRINT " 60 F1 = (Z/100)                              'ZWISCHENBERECHNUNG"
  149. 228 LOCATE 15,2: PRINT " 70 F2 = (IR/100)                             'ZWISCHENBERECHNUNG"
  150. 229 LOCATE 16,2: PRINT " 80 PRINT 'JAHR', 'KAPITAL', 'ZINSGEWINN'     'AUSGABE BERECHNUNG"
  151. 230 LOCATE 17,2: PRINT " 90 FOR I=2 TO J                              'AUSGABE AB 2. JAHR"
  152. 231 LOCATE 18,2: PRINT "100 KA = KA - KA * F2                         'BERECHNUNG"
  153. 232 LOCATE 19,2: PRINT "110 KA = INT ( KA * 100 + .5) / 100           'AUFRUNDEN ": GOSUB 70
  154. 240 GOSUB 60
  155. 241 LOCATE 7,2:  PRINT "120 ZG = KA * F 1                             'ZINSGEWINN"
  156. 242 LOCATE 8,2:  PRINT "130 ZG = INT ( ZG * 100 +.5) / 100            'AUFRUNDEN"
  157. 243 LOCATE 9,2:  PRINT "140 PRINT I, KA, ZG                           'AUSGABE DER DATEN"
  158. 244 LOCATE 10,2:  PRINT "150 NEXT  I                                   'SCHLEIFENENDE"
  159. 245 LOCATE 11,2:  PRINT "160 END                                       'PROGRAMMENDE"
  160. 246 LOCATE 13,2:  PRINT "BEDEUTUNG DER VARIABLEN:"
  161. 247 LOCATE 15,2:  PRINT "KA = ANFANGSKAPITAL"
  162. 248 LOCATE 16,2:  PRINT " Z = ZINSSATZ IN % "
  163. 249 LOCATE 17,2:  PRINT "IR = INFLATIONSRATE IN %"
  164. 250 LOCATE 18,2:  PRINT " J = ANZAHL DER JAHRE"
  165. 251 LOCATE 19,2:  PRINT "ZG = ZINSGEWINN      F1/F2 = ZWISCHEN-VARIABLEN"
  166. 255 LOCATE 20,1: PRINT STRING$(79,205)
  167. 256 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
  168. 257 LOCATE 21,10: PRINT "ENDE DES TEILS   WIEDERHOLEN = W     PROGRAMM-MENÜ LADEN = ESC": COLOR 15,0
  169. 258 LOCATE 22,1: PRINT STRING$(79,205)
  170. 260 E$=INKEY$: IF E$="" THEN 260
  171. 261 IF E$=CHR$(27) THEN 19
  172. 262 IF E$="W" OR E$="w" THEN 100
  173. 263 GOTO 260
  174.  
  175.