home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / kaufmann / pk7.bas < prev    next >
BASIC Source File  |  1997-10-09  |  9KB  |  162 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 A L K U L A T I O N"
  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 werden Unternehmer und haben beschlossen, sich selbstständig zu"
  65. 102 LOCATE 8,2: PRINT "machen. Sie eröffnen einen Computerladen und wollen nun einen Drucker"
  66. 103 LOCATE 9,2: PRINT "gewinnbringend verkaufen. Sie kaufen also einen Drucker beim Hersteller"
  67. 104 LOCATE 10,2: PRINT "für x DM und verkaufen ihn für y DM. Aus der Differenz y-x müssen Sie"
  68. 105 LOCATE 11,2: PRINT "Ihre Aktivitäten finanzieren und ein Gewinn sollte dabei auch"
  69. 106 LOCATE 12,2: PRINT "herauskommen. Sie müssen also den Verkaufspreis kalkulieren."
  70. 107 LOCATE 13,2: PRINT "Dabei lauern Gefahren, die über Sein und Nichtsein Ihres jungen"
  71. 109 LOCATE 15,2: PRINT "Je mehr an Geräten Sie einkaufen, desto mehr an Prozenten werden Sie"
  72. 110 LOCATE 16,2: PRINT "vom Hersteller erhalten. Sind Sie flüssig, wenn die Rechnung kommt, "
  73. 111 LOCATE 17,2: PRINT "können Sie noch Skonto abziehen. In der Regel erhalten Sie die Ware "
  74. 112 LOCATE 18,2: PRINT "nicht frei Haus, sondern haben noch Fracht,Rollgeld etc. zu zahlen ." : GOSUB 70
  75. 120 GOSUB 60
  76. 121 LOCATE 7,2: PRINT "Nun kommt der wichtigste Teil. Sie müssen Ihre Kosten berücksichtigen."
  77. 122 LOCATE 8,2: PRINT "Vielleicht haben Sie einen Laden gemietet. Sie telefonieren,brauchen"
  78. 123 LOCATE 9,2: PRINT "Licht und Heizung. Möglicherweise beschäftigen Sie hin und wieder eine"
  79. 124 LOCATE 10,2: PRINT "Aushilfskraft usw. Alles das kostet Geld. Im Beispielprogramm sind"
  80. 125 LOCATE 11,2: PRINT "diese Selbstkosten mit 25% (SK) angesetzt. Diesen Kosten sollten Sie"
  81. 126 LOCATE 12,2: PRINT "allergrößte Aufmerksamkeit schenken und sie so gering wie möglich halten."
  82. 127 LOCATE 13,2: PRINT "Bisher haben Sie noch keinen Pfennig verdient.Wählen Sie für's erste 10 %"
  83. 128 LOCATE 14,2: PRINT "Dadurch erhalten Sie den Listenpreis ohne Mehrwertsteuer. Verkaufen Sie"
  84. 129 LOCATE 15,2: PRINT "unter diesem Preis, geht das zu Lasten Ihres Gewinns. Letztendlich "
  85. 130 LOCATE 16,2: PRINT "müssen noch die derzeit gültigen 14 % Mehrwertsteuer zugeschlagen  "
  86. 131 LOCATE 17,2: PRINT "werden. Vergleichen Sie die Preise mit Ihren Wettbewerbern.        "
  87. 132 LOCATE 18,2: PRINT "Liegen Sie preislich richtig !": GOSUB 70
  88. 140 GOSUB 60
  89. 141 LOCATE 7,2: PRINT "LISTENPREIS DES ANBIETERS IN DM/STÜCK :"
  90. 142 ZZ$="": R=7: S=43: L=7: PK%=2: GOSUB 20: LP$=ZZ$
  91. 143 LP=VAL(LP$): IF LP$=CHR$(13) OR LP<=0 THEN BEEP: GOSUB 90: GOTO 142
  92. 144 GOSUB 95
  93. 145 LOCATE 8,2: PRINT "BESTELLMENGE                          :"
  94. 146 ZZ$="": R=8: S=43: L=3: PK%=2: GOSUB 20: N$=ZZ$
  95. 147 N=VAL(N$): IF N$=CHR$(13) OR N<=0 THEN BEEP: GOSUB 90: GOTO 146
  96. 148 GOSUB 95
  97. 149 LOCATE 9,2: PRINT "MENGENRABATT FÜR STÜCKZAHLEN          :"
  98. 150 ZZ$="": R=9: S=43: L=2: PK%=2: GOSUB 20: M$=ZZ$
  99. 151 M=VAL(M$): IF M$=CHR$(13) OR M<=0 THEN BEEP: GOSUB 90: GOTO 150
  100. 152 GOSUB 95
  101. 153 EP=LP*(1-M/100)
  102. 155 LOCATE 10,2: PRINT "SKONTO -ODER RETURN FÜR NULL          :"
  103. 156 ZZ$="": R=10: S=43: L=1: PK%=1: GOSUB 20: S$=ZZ$
  104. 157 IF S$=CHR$(13) THEN S=0: GOTO 159
  105. 159 S=VAL(S$): IF S=0 THEN EP=EP ELSE EP=EP*(1-S/100)
  106. 160 LOCATE 11,2: PRINT "FRACHT/PORTOKOSTEN                    :"
  107. 161 ZZ$="": R=11: S=43: L=5: PK%=2: GOSUB 20: BK$=ZZ$
  108. 162 BK=VAL(BK$): IF BK$=CHR$(13) OR BK<=0 THEN BEEP: GOSUB 90: GOTO 161
  109. 163 GOSUB 95
  110. 165 LOCATE 12,2: PRINT "GEMEINKOSTEN IN % (EIGENE)            :"
  111. 166 ZZ$="": R=12: S=43: L=2: PK%=2: GOSUB 20: GK$=ZZ$
  112. 167 GK=VAL(GK$): IF GK$=CHR$(13) OR GK<=0 THEN BEEP: GOSUB 90: GOTO 166
  113. 168 GOSUB 95
  114. 169 SK=EP*(1+GK/100)
  115. 170 LOCATE 13,2: PRINT "GEWINN IN %                           :"
  116. 171 ZZ$="": R=13: S=43: L=2: PK%=2: GOSUB 20: G$=ZZ$
  117. 172 G=VAL(G$): IF G$=CHR$(13) OR G<=0 THEN BEEP: GOSUB 90: GOTO 171
  118. 173 GOSUB 95
  119. 174 L=SK*(1+G/100)
  120. 175 L=INT(L*100+.5)/100
  121. 176 E=L*1.14
  122. 177 E=INT(E*100+.5)/100
  123. 180 LOCATE 15,2: PRINT "LISTENPREIS DES HERSTELLERS    : ";USING"####.##";LP
  124. 181 LOCATE 16,2: PRINT "IHR EINSTANDSPREIS             : ";USING"####.##";EP
  125. 182 LOCATE 17,2: PRINT "IHRE SELBSTKOSTEN              : ";USING"####.##";SK
  126. 183 LOCATE 18,2: PRINT "LISTENPREIS OHNE MWST          : ";USING"####.##";L
  127. 184 LOCATE 19,2: PRINT "ENDPREIS INKL.   MWST          : ";USING"####.##";E: GOSUB 70
  128. 190 GOSUB 60
  129. 191 LOCATE 7,2: PRINT "DAS PROGRAMM-LISTING"
  130. 192 LOCATE 9,2: PRINT " 10 CLS                                           'BILDSCHIRM FREI"
  131. 193 LOCATE 10,2: PRINT " 20 INPUT 'LISTENPREIS ANBIETER';LP               'EINGABE LISTENPREIS"
  132. 194 LOCATE 11,2: PRINT " 30 INPUT 'BESTELL-MENGE       ';N                'EINGABE STÜCKZAHL"
  133. 195 LOCATE 12,2: PRINT " 40 INPUT 'MENGENRABATT        ';M                'EINGABE RABATT"
  134. 196 LOCATE 13,2: PRINT " 50 EP=LP*(1-M/100)                               'BERECHNUNG"
  135. 197 LOCATE 14,2: PRINT " 60 INPUT 'SKONTO ODER RETURN=0';S                'EINGABE SKONTO"
  136. 198 LOCATE 15,2: PRINT " 80 IF S=0 THEN EP=EP ELSE EP=EP*(1-S/100)        'BERECHNUNG"
  137. 199 LOCATE 16,2: PRINT " 90 INPUT 'BEZUGSKOSTEN ';BK                      'EINGABE FRACHT"
  138. 200 LOCATE 17,2: PRINT "100 EP=EP+BK                                      'BERECHNUNG "
  139. 201 LOCATE 18,2: PRINT "110 INPUT 'GEMEINKOSTEN IN % ';GK                 'EINGABE EIGENE KOSTEN"
  140. 202 LOCATE 19,2: PRINT "120 SK=EP*(1+GK/100)                              'BERECHNUNG": GOSUB 70
  141. 210 GOSUB 60
  142. 211 LOCATE 7,2:  PRINT "130 INPUT 'GEWINN IN % ';G                        'EINGABE GEWINN IN %"
  143. 212 LOCATE 8,2:  PRINT "140 L=SK*(1+G/100)                                'BERECHNUNG"
  144. 213 LOCATE 9,2:  PRINT "150 L=INT(L*100+.5)/100                           'AUFRUNDEN "
  145. 214 LOCATE 10,2: PRINT "160 E=L*1.14                                      'MWST BERECHNEN"
  146. 215 LOCATE 11,2: PRINT "170 E=INT(E*100+.5)/100                           'AUFRUNDEN"
  147. 216 LOCATE 12,2: PRINT "180 PRINT 'EINSTANDSPREIS      ';LP               'AUSGABE TEXT"
  148. 217 LOCATE 13,2: PRINT "190 PRINT 'SELBSTKOSTEN        ';SK               'AUSGABE TEXT"
  149. 218 LOCATE 14,2: PRINT "200 PRINT 'LISTENPREIS NETTO   ';L                'AUSGABE TEXT"
  150. 219 LOCATE 15,2: PRINT "210 PRINT 'ENDPREIS BRUTTO     ';E                'AUSGABE TEXT"
  151. 220 LOCATE 16,2: PRINT "220 END                                           'PROGRAMMENDE"
  152. 230 LOCATE 20,1: PRINT STRING$(79,205)
  153. 231 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
  154. 232 LOCATE 21,1: PRINT " ENDE DES TEILS    WIEDERHOLEN = W   BEENDEN = E  PROGRAMM-MENÜ LADEN = ESC " : COLOR 15,0
  155. 233 LOCATE 22,1: PRINT STRING$(79,205)
  156. 235 E$=INKEY$: IF E$="" THEN 235
  157. 236 IF E$=CHR$(27) THEN 19
  158. 237 IF E$="W" OR E$="w" THEN 100
  159. 238 IF E$="E" OR E$="e" THEN CLS: END
  160. 239 GOTO 235
  161.  
  162.