home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
M.u.C.S. Disc 2000
/
MUCS2000.iso
/
sigisoft
/
kaufmann
/
pk11.bas
< prev
next >
Wrap
BASIC Source File
|
1997-10-09
|
8KB
|
147 lines
1 WIDTH 80: COLOR 15,0,0
10 GOTO 100
15 LOCATE 20,1: PRINT STRING$(79,205)
16 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
17 LOCATE 21,25: PRINT "PROGRAMM WIRD GELADEN.BITTE WARTEN": COLOR 15,0
18 LOCATE 22,1: PRINT STRING$(79,205): RETURN
19 GOSUB 15: RUN "MENUE"
20 ZZ$=LEFT$(ZZ$,L):ZZ$=ZZ$+STRING$(L-LEN(ZZ$),95):Z2=0:Y=1
21 LOCATE R,S,O:PRINT ZZ$;
22 LOCATE R,S+Y-1,1
23 Z$=INKEY$: IF Z$="" THEN 23 ELSE Z=ASC(Z$): Z1=0: IF Z=0 THEN Z1=ASC(RIGHT$(Z$,1))
24 IF Z<>13 THEN 28 ELSE IF Z2 >0 THEN 23
25 IF Y=1 THEN ZZ$=CHR$(13):RETURN
26 IF RIGHT$(ZZ$,1)="_" THEN ZZ$=LEFT$(ZZ$,INSTR(ZZ$,"_")-1)
27 RETURN
28 IF Z<>0 THEN 48
29 IF Z1<>71 THEN 31 ELSE IF Y=1 OR Z2 THEN 23
30 Y=1:GOTO 22
31 IF Z1<>75 THEN 33 ELSE IF Y=1 OR Z2 THEN 23
32 Y=Y-1:GOTO 22
33 IF Z1<>77 THEN 35 ELSE IF MID$(ZZ$,Y,1)="_" OR Y>L THEN 23
34 Y=Y+1:GOTO 22
35 IF Z1<>79 THEN 39 ELSE IF Y>L OR Z2 THEN 23
36 IF MID$(ZZ$,Y,1)="_" THEN 23
37 Y=Y+1
38 IF MID$(ZZ$,Y,1)="_" THEN 22 ELSE 37
39 IF Z1<>82 THEN 42 ELSE IF RIGHT$(ZZ$,1)<>"_" THEN 23
40 IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
41 ZZ$=LEFT$(ZZ$,Y-1)+"_"+MID$(ZZ$,Y,L-Y):Z2=Z2+1:GOTO 21
42 IF Z1<>83 THEN 44 ELSE IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
43 GOSUB 56:ZZ$=LEFT$(ZZ$,Y-1)+MID$(ZZ$,Y+1)+"_":GOTO 21
44 IF Z1<>117 THEN 46 ELSE IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
45 GOSUB 56:ZZ$=LEFT$(ZZ$,Y-1)+STRING$(L-Y+1,95):GOTO 21
46 IF Z1<>119 THEN 23 ELSE IF Y=1 THEN 23
47 ZZ$=MID$(ZZ$,Y)+STRING$(Y-1,95):Y=1:GOTO 21
48 IF Z<>8 THEN 50 ELSE IF Y=1 THEN 23
49 ZZ$=LEFT$(ZZ$,Y-2)+MID$(ZZ$,Y)+"_":Y=Y-1:GOTO 21
50 IF Z<>27 THEN 51 ELSE ZZ$=STRING$(L,95):Y=1:Z2=0: GOTO 21
51 IF Z=95 OR Y>L THEN 23
52 ON PK% GOTO 55,53,54
53 IF Z<46 OR Z>58 THEN 23 ELSE 55
54 IF Z<>106 AND Z<>110 THEN 23
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
56 IF Z2 THEN Z2=Z2-1
57 RETURN
60 CLS: LOCATE 2,1: PRINT STRING$(79,205)
61 LOCATE 3,1: COLOR 0,15: PRINT SPACE$(79): LOCATE 3,30: PRINT "KAUFMÄNNISCHES RECHNEN": LOCATE 4,1: PRINT SPACE$(79)
62 LOCATE 4,30: PRINT "(C) BY SIEGFRIED HÜBNER ESC =LADE MENÜ": LOCATE 5,1: PRINT SPACE$(79)
63 LOCATE 5,24: PRINT "B R E A K E V E N A N A L Y S E"
64 COLOR 15,0: LOCATE 6,1: PRINT STRING$(79,205): RETURN
70 LOCATE 20,1: PRINT STRING$(79,205)
71 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
72 LOCATE 21,29: PRINT "BELIEBIGE TASTE DRÜCKEN": COLOR 15,0
73 LOCATE 22,1: PRINT STRING$(79,205)
75 E$=INKEY$: IF E$="" THEN 75
76 IF E$=CHR$(27) THEN 19
77 RETURN
90 LOCATE 20,1: PRINT STRING$(79,205)
91 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
92 LOCATE 21,34: PRINT "FALSCHE EINGABE": COLOR 15,0
93 LOCATE 22,1: PRINT STRING$(79,205): RETURN
95 FOR T=1 TO 4: LOCATE 19+T,1: PRINT SPACE$(79): NEXT: RETURN
100 GOSUB 60
101 LOCATE 7,2: PRINT "Mit dieser Methode können Sie herausfinden, ab welcher verkauften"
102 LOCATE 8,2: PRINT "Stückzahl Sie überhaupt Gewinn machen. Ihre Kosten belaufen sich"
103 LOCATE 9,2: PRINT "jeden Monat für Miete, Telefon, Energie usw. auf 1.000 DM. Diese"
104 LOCATE 10,2: PRINT "Kosten entstehen Ihnen, ob Sie nun etwas verkaufen oder nicht. Man"
105 LOCATE 11,2: PRINT "spricht deshalb von fixen Kosten FK. Die Selbstkosten für ein Produkt"
106 LOCATE 12,2: PRINT "betragen etwa 1000 DM. Verkaufen können Sie dieses Produkt für 110 DM."
107 LOCATE 13,2: PRINT "Wenn Sie in einem Monat nicht mehr als ein Stück dieses Produktes"
108 LOCATE 14,2: PRINT "verkaufen, stellt sich Ihre Gewinn- und Verlustrechnung wie folgt dar:"
109 LOCATE 15,2: PRINT "Fixe Kosten DM 1.000,--"
110 LOCATE 16,2: PRINT "Selbstkosten des einen verkauften Stückes DM 100.--"
111 LOCATE 17,2: PRINT "Verkaufserlös dieses Stücks DM 110.--"
112 LOCATE 18,2: PRINT "Nach Abzug der Selbskosten von 100 DM verbleiben Ihnen ganze 10 DM zur"
113 LOCATE 19,2: PRINT "Deckung der Fixkosten. Umsatzverlust diesen Monat von 990 DM": GOSUB 70
120 GOSUB 60
121 LOCATE 7,2: PRINT "HÖHE DER FIXKOSTEN : "
122 ZZ$="": R=7: S=29: L=5: PK%=2: GOSUB 20: FK$=ZZ$
123 FK=VAL(FK$): IF FK$=CHR$(13) OR FK<=0 THEN BEEP: GOSUB 90: GOTO 122
124 GOSUB 95
125 LOCATE 8,2: PRINT "HÖHE DER SELBTKOSTEN : "
126 ZZ$="": R=8: S=29: L=5: PK%=2: GOSUB 20: VK$=ZZ$
127 VK=VAL(VK$): IF VK$=CHR$(13) OR VK<=0 THEN BEEP: GOSUB 90: GOTO 126
128 GOSUB 95
129 LOCATE 9,2: PRINT "VERKAUFSPREIS OHNE MWST: "
130 ZZ$="": R=9: S=29: L=7: PK%=2: GOSUB 20: VP$=ZZ$
131 VP=VAL(VP$): IF VP$=CHR$(13) OR VP<=0 THEN BEEP: GOSUB 90: GOTO 130
132 GOSUB 95
134 GOSUB 95
135 LOCATE 10,2: PRINT "AB STÜCKZAHL RECHNEN : "
136 ZZ$="": R=10: S=29: L=3: PK%=2: GOSUB 20: M1$=ZZ$
137 M1=VAL(M1$): IF M1$=CHR$(13) OR M1<=0 THEN BEEP: GOSUB 90: GOTO 136
140 LOCATE 11,2: PRINT "BIS STÜCKZAHL RECHNEN : "
141 ZZ$="": R=11: S=29: L=3: PK%=2: GOSUB 20: M2$=ZZ$
142 M2=VAL(M2$): IF M2$=CHR$(13) OR M2<=0 THEN BEEP: GOSUB 90: GOTO 141
143 GOSUB 95
144 QB=FK/(VP-VK): GOSUB 70
150 GOSUB 60
151 LOCATE 7,2: PRINT "ANZAHL","KOSTEN","KOSTEN/ST","GEWINN"
152 FOR M=M1 TO M2
153 U=VP*M: K=FK+(VK*M): KS=K/M: KS=INT(KS*100+.5)/100: G=U-K
154 IF M<QB THEN 157
155 PRINT TAB(2)"DER BREAK-EVEN-PUNKT LIEGT BEI EINER STÜCKZAHL VON :";INT(QB)
156 QB=999999999#
157 PRINT TAB(2)M,K,KS,G
158 NEXT M
159 GOSUB 500: GOSUB 75
160 GOSUB 60
161 LOCATE 7,2: PRINT "DAS PROGRAMM-LISTING"
162 LOCATE 9,2: PRINT " 10 CLS 'BILDSCHIRM FREI"
163 LOCATE 10,2: PRINT " 20 INPUT 'HÖHE DER FIXKOSTEN ';FK 'EINGABE KOSTEN"
164 LOCATE 11,2: PRINT " 30 INPUT 'HÖHE SELBSTKOSTEN ';VK 'EINGABE KOSTEN"
165 LOCATE 12,2: PRINT " 40 INPUT 'VERKAUFSPREIS ';VP 'EINGABE KOSTEN"
166 LOCATE 13,2: PRINT " 50 INPUT 'AB STÜCKZAHL ';M1 'EINGABE KOSTEN"
167 LOCATE 14,2: PRINT " 60 INPUT 'BIS STÜCKZAHL ';M2 'EINGABE KOSTEN"
168 LOCATE 15,2: PRINT " 70 QB=FK/(VP-VK) 'BERECHNUNG"
169 LOCATE 16,2: PRINT " 80 PRINT 'ANZAHL','KOSTEN',KOS/ST','GEWINN' 'AUSGABE TEXT"
170 LOCATE 17,2: PRINT " 90 FOR M=M1 TO M2 'SCHLEIFEN BEGINN"
171 LOCATE 18,2: PRINT "100 U=VP*M 'BERECHNUNG"
172 LOCATE 19,2: PRINT "110 K=FK+(VK*M) 'BERECHNUNG": GOSUB 70
180 GOSUB 60
181 LOCATE 7,2: PRINT "120 KS=K/M 'BERECHNUNG"
182 LOCATE 8,2: PRINT "130 KS=INT(KS*100+.5)/100 'AUFRUNDEN"
183 LOCATE 9,2: PRINT "140 G=U-K 'BERECHNUNG"
184 LOCATE 10,2: PRINT "150 IF M<QB THEN 190 'VERGLEICH"
185 LOCATE 11,2: PRINT "160 PRINT 'DER BREAK-EVEN-PUNKT LIEGT BEI' 'AUSGABE TEXT"
186 LOCATE 12,2: PRINT "170 PRINT 'EINER STÜCKZAHL VON ';INT(QB) 'AUSGABE TEXT"
187 LOCATE 13,2: PRINT "180 QB=999999999 'WERTZUWEISUNG"
188 LOCATE 14,2: PRINT "190 PRINT M,K,KS,G 'AUSGABE DER WERTE"
189 LOCATE 15,2: PRINT "200 NEXT M 'SCHLEIFENENDE"
190 LOCATE 16,2: PRINT "210 END 'PROGRAMMENDE"
210 LOCATE 20,1: PRINT STRING$(79,205)
211 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
212 LOCATE 21,1: PRINT " ENDE DES TEILS WIEDERHOLEN = W BEENDEN = E PROGRAMM-MENÜ LADEN = ESC ": COLOR 15,0
213 LOCATE 22,1: PRINT STRING$(79,205)
215 E$=INKEY$: IF E$="" THEN 215
216 IF E$=CHR$(27) THEN 19
217 IF E$="W" OR E$="w" THEN 100
218 IF E$="E" OR E$="e" THEN CLS: END
219 GOTO 215
500 PRINT STRING$(79,205)
501 COLOR 0,15
502 COLOR 0,15: PRINT " BELIEBIGE TASTE DRÜCKEN ": COLOR 15,0
503 PRINT STRING$(79,205): RETURN