home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / kaufmann / pk4.bas < prev    next >
BASIC Source File  |  1997-10-09  |  8KB  |  153 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,31: PRINT "K L E I N K R E D I T"
  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 "Sie wollen sich für Ihren Computer einen Drucker kaufen. Geld dafür"
  65. 102 LOCATE 8,2: PRINT "haben Sie nicht. Sie gehen zu Ihrer Bank und verhandeln über einen "
  66. 103 LOCATE 9,2: PRINT "persönlichen Kleinkredit. Ein Kleinkredit ist ein Darlehen, das zwischen"
  67. 104 LOCATE 10,2: PRINT "ein paar 100 und ca. 2000 Mark schwanken kann und innerhalb einer Zeit  "
  68. 105 LOCATE 11,2: PRINT "von mindestens 6, höchstens 24 Monaten in gleichen Raten zurückgezahlt  "
  69. 106 LOCATE 12,2: PRINT "werden muß. Das ist natürlich nicht umsonst !"
  70. 107 LOCATE 14,2: PRINT "Dafür zahlen Sie Zinsen - in einem Prozentsatz pro Monat Laufzeit."
  71. 108 LOCATE 15,2: PRINT "Wollen Sie z.B. 2000 DM für 24 Monate ausleihen und beträgt der "
  72. 109 LOCATE 16,2: PRINT "Zinssatz 0.5 % Monat, dann kostet Sie der Kredit"
  73. 110 LOCATE 17,2: PRINT "(24 * 0.5 * 2000) / 100"
  74. 111 LOCATE 18,2: PRINT "das sind 240 DM. Dieser Betrag wird Ihrem Darlehen zugeschlagen, so daß"
  75. 112 LOCATE 19,2: PRINT "Sie Ihrer Bank schon 2.240,-- DM schulden.": GOSUB 70
  76. 120 GOSUB 60
  77. 121 LOCATE 7,2: PRINT "Hinzu kommt eine einmalige Bearbeitungsgebühr von ca. 2%, bezogen auf"
  78. 122 LOCATE 8,2: PRINT "die Höhe des Darlehens. Das macht noch einmal 40 DM aus."
  79. 123 LOCATE 9,2: PRINT "Zurückzuzahlen haben Sie also 2.280,-- DM in 24 Monatsraten "
  80. 124 LOCATE 10,2: PRINT "zu je 95,-- DM (Monatsrate)."
  81. 125 LOCATE 11,2: PRINT "Was bei dieser Rechnung im Dunklen bleibt, ist die Höhe des tatsäch-"
  82. 126 LOCATE 12,2: PRINT "lichen - des effektiven - Zinses, den man in % angibt. Kommen Sie nicht"
  83. 127 LOCATE 13,2: PRINT "auf den Gedanken, das seien 0.5 * 12 = 6% !!"
  84. 128 LOCATE 15,2: PRINT "Nach den gleichen Spielregeln läuft das Geschäft auch in einem"
  85. 129 LOCATE 16,2: PRINT "Kaufhaus ab, wenn Sie dort etwas auf Teilzahlung kaufen."
  86. 130 LOCATE 18,2: PRINT "Doch nun zum Programm, das Sie für diese Zwecke nutzen sollten.": GOSUB 70
  87. 140 GOSUB 60
  88. 141 LOCATE 7,2: PRINT "KREDITSUMME        :"
  89. 142 ZZ$="": R=7: S=25: L=9: PK%=2: GOSUB 20: D$=ZZ$: IF D$=CHR$(13) THEN BEEP: GOSUB 90: GOTO 142
  90. 143 D=VAL(D$): IF D<=0 THEN BEEP: GOSUB 90: GOTO 142
  91. 144 GOSUB 95
  92. 145 LOCATE 9,2: PRINT "LAUFZEIT MONATE    :"
  93. 147 ZZ$="": R=9: S=25: L=2: PK%=2: GOSUB 20: M$=ZZ$: IF M$=CHR$(13) THEN BEEP: GOSUB 90: GOTO 147
  94. 148 M=VAL(M$): IF M<=0 THEN BEEP: GOSUB 90: GOTO 147
  95. 149 GOSUB 95
  96. 150 LOCATE 11,2: PRINT "ZINSEN % MONAT     :"
  97. 151 ZZ$="": R=11: S=25: L=4: PK%=2: GOSUB 20: ZI$=ZZ$: IF ZI$=CHR$(13) THEN BEEP: GOSUB 90: GOTO 151
  98. 152 ZI=VAL(ZI$): IF Z<=0 THEN BEEP: GOSUB 90: GOTO 151
  99. 153 GOSUB 95
  100. 154 LOCATE 13,2: PRINT "BEARBEITUNGSGEBÜHR%:"
  101. 155 ZZ$="": R=13: S=25: L=4: PK%=2: GOSUB 20: BI$=ZZ$: IF BI$=CHR$(13) THEN BEEP: GOSUB 90: GOTO 155
  102. 156 BI=VAL(BI$): IF BI<=0 THEN BEEP: GOSUB 90: GOTO 155
  103. 157 GOSUB 70
  104. 160 GOSUB 60
  105. 161 LOCATE 7,2: PRINT "BERECHNUNG VON RÜCKZAHLUNG UND KOSTEN"
  106. 162 LOCATE 9,2: PRINT "KREDIT-SUMME         : ";D$
  107. 163 Z1=(ZI*M*D)/100: Z1=INT(Z1*100+.5)/100
  108. 164 LOCATE 10,2: PRINT "ZINSEN IN DM         : ";Z1
  109. 165 G=(BI*D)/100
  110. 166 LOCATE 11,2: PRINT "GEBÜHREN IN DM       : ";G
  111. 167 DG=D+Z1+G
  112. 168 LOCATE 12,2: PRINT "GESAMTSCHULD         : ";DG;" DM"
  113. 169 LOCATE 14,2: PRINT "RÜCKZAHLUNG IN       : ";M;" GLEICHEN RATEN"
  114. 170 R=DG/M
  115. 171 LOCATE 15,2: PRINT "VON MONATLICHER RATE : ";R;" DM"
  116. 172 SD=(D+D/M)/2
  117. 173 ZD=Z*D*12/100
  118. 174 GD=G*12/M
  119. 175 ZE=((ZD+GD)*100)/SD
  120. 176 LOCATE 17,2: PRINT "EFFEKTIV ZINS IST    : ";ZE;"%": GOSUB 70
  121. 180 GOSUB 60
  122. 181 LOCATE 7,2: PRINT "DAS PROGRAMM-LISTING"
  123. 182 LOCATE 9,2: PRINT " 10 CLS                              'BILDSCHIRM FREI"
  124. 183 LOCATE 10,2: PRINT " 20 INPUT 'KREDITSUMME';D            'EINGABE KREDITSUMME"
  125. 184 LOCATE 11,2: PRINT " 30 INPUT 'LAUFZEIT   ';M            'EINGABE LAUFZEIT MONATE"
  126. 185 LOCATE 12,2: PRINT " 40 INPUT 'ZINSEN IN% ';Z            'EINGABE ZINSEN IN %    "
  127. 186 LOCATE 13,2: PRINT " 50 INPUT 'GEBÜHR IN% ';B            'EINGABE GEBÜHR IN %    "
  128. 187 LOCATE 14,2: PRINT " 60 PRINT 'KREDITSUMME  :';D         'AUSGABE KREDITSUMME    "
  129. 188 LOCATE 15,2: PRINT " 70 Z1=(Z*M*D) / 100                 'BERECHNUNG ZINSEN      "
  130. 189 LOCATE 16,2: PRINT " 80 PRINT 'ZINSEN DM    :';Z1        'AUSGABE ZINSEN IN DM"
  131. 190 LOCATE 17,2: PRINT " 90 G=(B*D) / 100                    'BERECHNUNG GEBÜHREN "
  132. 191 LOCATE 18,2: PRINT "100 PRINT 'GEBÜHREN DM  :';G         'AUSGABE GEBÜHREN IN DM": GOSUB 70
  133. 200 GOSUB 60
  134. 201 LOCATE 7,2: PRINT "110 DG=D+Z1+G                         'BERECHNUNG GESAMTSCHULD"
  135. 202 LOCATE 8,2: PRINT "120 PRINT 'GESAMT SCHULD:';DG         'AUSGABE GESAMTSCHULD   "
  136. 203 LOCATE 9,2: PRINT "130 PRINT 'RÜCKZAHLUNG IN ';M         'RATENAUSGABE           "
  137. 204 LOCATE 10,2: PRINT "140 R=DG/M                            'BERECHNUNG RATENHÖHE"
  138. 205 LOCATE 11,2: PRINT "150 PRINT 'VON ';R; 'RATEN'           'RATENAUSGABE           "
  139. 206 LOCATE 12,2: PRINT "160 SD=(D+D/M)/2                      'BERECHNUNG ZINS"
  140. 207 LOCATE 13,2: PRINT "170 ZD=Z*D*12/100                     'BERECHNUNG ZINS"
  141. 208 LOCATE 14,2: PRINT "180 GD=G*12/M                         'BERECHNUNG ZINS"
  142. 209 LOCATE 15,2: PRINT "190 ZE=((ZD+GD)*100)/SD               'BERECHNUNG ZINS"
  143. 210 LOCATE 16,2: PRINT "200 PRINT 'EFFEKTIV-ZINS:';ZE         'AUSGABE EFFEKTIV-ZINS  "
  144. 220 LOCATE 20,1: PRINT STRING$(79,205)
  145. 221 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
  146. 222 LOCATE 21,7: PRINT "ENDE DES TEILS      WIEDERHOLEN = W        PROGRAMM-MENÜ LADEN = ESC": COLOR 15,0
  147. 223 LOCATE 22,1: PRINT STRING$(79,205)
  148. 225 E$=INKEY$: IF E$="" THEN 225
  149. 226 IF E$=CHR$(27) THEN 19
  150. 227 IF E$="W" OR E$="w" THEN 100
  151. 228 GOTO 225
  152.  
  153.