1 REM HANS-PETER DIEGEL, 2878 WILDESHAUSEN, DEEKENSTR. 31 - 04431/4567
10 REMW$(W)=10WPKNR15NAME6DATUM7ANZ.10KURS(INKL.)10GES.WERT+EVTL1D/B/Z-59=DEd\
20 POKE53281,1:REMWP$=10WPKNR15NAME6HV2ART6dSIDENDE1A/R
30 QQ=16:DIMW$(250),WP$(100),KU$(100):POKE53280,6:POKE53272,23:W$="E":GOTO1300
40 GOSUB3900:PRINTUE$:T$="":T1$=T$:F$=T$:X=7:P$="                 ":QQ=15
50 IFH>.THENPRINTTAB(X+4)"--> ";DP$;"[146] <--"
60 I=.:SU$="[197]INGABE [196]EPOTUMSATZ":GOSUB160:SU$="[197]INLESEN / [211]PEICHERN":GOSUB160
70 SU$="[204]ISTEN [196]EPOTUMSATZ":GOSUB160:SU$="[204]ISTEN [196]EPOTBESTAND":GOSUB160
80 SU$="[196]EPOTWERTAUFSTELLUNG":GOSUB160:SU$="[215]ERT-/[210]ENDITEBERECHNUNG":GOSUB160
90 SU$="[197]X[196] UND [197]X[194]-[197]INGABEN":GOSUB160:SU$="[193]ENDERUNGEN IM [194]ESTAND":GOSUB160
100 SU$="[196]IRECTORY":GOSUB160:PRINT:IFH=.THENPRINTTAB(X)"  [203]EINE [196]ATEN GELADEN ! [146][145]"
120 GETA1$:IFA1$<"1"ORA1$>"9"GOTO120
130 ONVAL(A1$)GOTO520,1270,1400,2200,2480,2800,3330,3530,460
140 PRINT"   ";SU$;".:  ";:GOSUB290:RETURN
160 I=I+1:PRINT:PRINTTAB(X)"";I;"[146] ";SU$:IFX=4THENPRINT"[145][145]"
161 RETURN
180 PRINT"  [164][164].[164][164].[164][164][164][164][157][157][157][157][157][157][157][157][157][157]";:ZA=.:SU$=""
190 GETY$:IFY$=""GOTO190
200 IFA1$="8"THENIFZA=.THENIFY$=CHR$(13)THENPRINT:RETURN
210 IFA1$="1"ORA1$=>"5"ORA1$<="7"THENIFY$="_"THENF$="_":RETURN
220 IFVAL(Y$)=.ANDY$<>"0"ANDY$<>CHR$(20)GOTO190
230 IFY$=CHR$(20)THENZA=ZA-1:SU$=MID$(SU$,1,ZA):GOTO250
240 ZA=ZA+1:SU$=SU$+Y$
250 PRINTY$;:IFY$=CHR$(20)GOTO270
260 IFZA=2ORZA=5THENY$=".":GOTO240
270 IFLEN(SU$)<10GOTO190
280 PRINT:F$=MID$(SU$,1,2)+MID$(SU$,4,2)+MID$(SU$,9,2):RETURN
290 ZA=.:SU$=""
300 GETY$:IFY$=""GOTO300
310 IFY$="_"THENSU$="_":RETURN
320 IFY$=CHR$(13)THENPRINT:RETURN
330 IFY$=CHR$(20)THENZA=ZA-1:SU$=MID$(SU$,1,ZA):GOTO350
340 ZA=ZA+1:IFZA>QQTHENZA=16:GOTO370
350 PRINTY$;:IFY$=","THENY$="."
360 IFY$<>CHR$(20)THENSU$=SU$+Y$
370 GOTO300
380 I=.:IFT1$="2"THENIFVAL(MID$(WP$(C),32,2))<>VAL(E2$)THENI=1
390 RETURN
400 I=.:IFT$="2"THENIFVAL(MID$(W$(W),59,1))<>VAL(E$)THENI=2:RETURN
420 IFVAL(MID$(W$(W),1,10))<>VAL(MID$(WP$(C),1,10))THENI=3
430 RETURN
440 IFF$="D"THENPRINT#4:CLOSE4:I=5
450 RETURN
460 PRINTUE$:S=.:OPEN1,8,0,"$":GET#1,A$,A$
470 GET#1,A$,A$:S=S+1:IFST=64THENPRINT:PRINT:GOSUB4730:CLOSE1:GOTO40
480 GET#1,A$,B$:PRINT"     ";ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0));
490 GET#1,A$:PRINTA$;:IFA$<>""THEN490
500 IFS=16THENPRINT:PRINT:GOSUB4730:PRINTUE$:S=.
510 PRINT:GOTO470
520 F$="":AZ=.:ZS=.:Q=H:Q=Q+1:GOSUB4860:QQ=10:PRINT"[145]":SU$="[215]ERTPAPIERKENNNR":GOSUB140
530 IFSU$="_"THENQ=Q-1:GOTO40
540 IFVAL(SU$)=.THENQ=Q-1:PRINT"[145][145]":GOTO520
550 W$(Q)=LEFT$(SU$+P$,10)
560 FORX=1TOZ:IFVAL(MID$(WP$(X),1,10))=VAL(SU$)THENW$(Q)=W$(Q)+MID$(WP$(X),11,15)
570 IFVAL(MID$(WP$(X),1,10))=VAL(SU$)THENAZ=X:PRINT"";:GOTO630
580 NEXTX:Z=Z+1
590 ZS=1:QQ=15:SU$="[206]AME DES [215]ERTPAP":GOSUB140
600 IFSU$="_"THENQ=Q-1:GOSUB1230:GOTO520
610 IFSU$=""THENPRINT"[145][145]":F$="":GOTO590
620 WP$(Z)=W$(Q):SU$=LEFT$(SU$+P$,15):W$(Q)=W$(Q)+SU$:WP$(Z)=WP$(Z)+SU$
630 IFQ>HTHENH=Q
640 PRINT"[145]   [206]AME DES [215]ERTPAP.:  ";MID$(W$(Q),11,15);"[146]"
650 PRINT"   [203][146]AUF ODER [214][146]ERKAUF:"
660 GETW$:IFW$<>"_"ANDW$<>"K"ANDW$<>"V"GOTO660
670 IFW$="_"THENGOSUB1220:GOTO520
680 SU$="[214] [197] [210] [203] [193] [213] [198]":IFW$="K"THENSU$="[203] [193] [213] [198]"
690 PRINT"[145]   ";SU$;"  EINES [215]ERTPAPIER"
700 PRINT"   [196]ATUM............:";:GOSUB180
710 IFF$="_"THENGOSUB1220:GOTO520
720 X$=F$:GOSUB4520:IFX$=""THENPRINT"[145][145][145]":GOTO700
730 W$(Q)=W$(Q)+X$:F$=""
740 QQ=7:SU$="[211]TUECKZAHL .....":GOSUB140
750 IFSU$="_"THENPRINT"[145][145][145][145]":W$(Q)=LEFT$(W$(Q),25):GOTO700
760 IFVAL(SU$)=.THENPRINT"[145][145][145]":GOTO740
770 SU$=RIGHT$(P$+SU$,7):W$(Q)=W$(Q)+SU$
780 QQ=10:SU$="[203]URS ...........":GOSUB140
790 IFSU$="_"THENPRINT"[145][145][145][145]":W$(Q)=LEFT$(W$(Q),31):GOTO740
800 IFVAL(SU$)=.THENPRINT"[145][145][145]":GOTO780
810 W$(Q)=W$(Q)+RIGHT$(P$+SU$,10)
820 X=VAL(MID$(W$(Q),32,7))*VAL(MID$(W$(Q),39,10)):IFW$="V"THENX=X*-1
830 GOSUB4090:F$=X$:F$=RIGHT$(P$+F$,10):W$(Q)=W$(Q)+F$
840 PRINT"   [199]ESAMTKOSTEN[146] ....:  ";F$:QQ=10:SU$="[210]EALER [208]REIS ...":GOSUB140
850 IFSU$="_"THENGOSUB1220:GOTO40
860 IFVAL(SU$)=.THENSU$=F$
870 F$="":X=VAL(SU$)/VAL(MID$(W$(Q),32,7)):GOSUB4090
880 X$=RIGHT$(P$+X$,10):PRINT"   [210]EALER [203]URS[146] .....:  ";X$;"[145]"
890 W$(Q)=MID$(W$(Q),1,38)+RIGHT$(P$+X$,10)+MID$(W$(Q),49,10):PRINT:PRINT:GOSUB4730
900 IFA1$="6"THENRETURN
910 I=1:X=13:GOSUB4860:PRINT"  [196][197][208][207][212] BEI   1[146]  [214]OLKSBANK":SU$="[195]OMMERZBANK"
920 GOSUB160:SU$="[201]NVESTMENTGESELLSCHAFT":GOSUB160:SU$="[208]OST UND [193]EHNLICHES":GOSUB160
930 SU$="[211]ONSTIGES":GOSUB160
940 GETE$:IFE$<"1"ORE$>"5"ANDE$<>"_"GOTO940
950 DE$="[211]ONST.":PRINT:PRINTTAB(X)E$:X=.:IFE$="1"THENDE$=" [214]OBA."
960 IFE$="2"THENDE$=" [195]OMM."
970 IFE$="3"THENDE$=" [193][196][201][199] "
980 IFE$="4"THENDE$=" [208]OST "
985 IFE$="_"ANDA1$="1"THENGOSUB1220:GOTO520
986 IFE$="_"ANDA1$="7"THENRETURN
990 IFZS=.THENPRINT:PRINT:PRINT:GOSUB4700:IFW$="N"THENW$(Q)=MID$(W$(Q),1,58):GOTO910
1000 IFA1$>"2"THENIFA1$<"6"THENRETURN
1010 W$(Q)=W$(Q)+E$:IFA1$="7"THENRETURN
1020 IFZS=.THENIFA1$<>"6"GOTO1250
1030 GOSUB4860:PRINT"     [196]ATUM D. [200][214]......:";:GOSUB180
1040 IFF$="_"THENW$(Q)=MID$(W$(Q),1,58):GOTO910
1050 X$=F$:IFVAL(F$)=.GOTO1070
1060 GOSUB4520:IFX$=""THENPRINT"[145][145][145]":GOTO1030
1070 WP$(Z)=WP$(Z)+X$
1080 X=4:GOSUB4860:PRINT"        [193]RT DES [215]ERTPAPIERS ?":PRINT"        [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
1090 I[178].:SU$[178]"ATNKTIE (STR$EUTSCH)":[141]160:SU$[178]"ATNKTIE (ATNUSLAEND./KEINE (null)INEN)
1100 GOSUB160:SU$="[193]KTIE ([205]INENWERTE)":GOSUB160:SU$="[201]NVESTMENTANTEILE":GOSUB160
1110 SU$="[194]UNDESSCHATZBRIEFE":GOSUB160:SU$="[198]INANZIERUNGSSCHAETZE":GOSUB160
1120 SU$="S. FESTVERZINSL. WERTPAPIERE":GOSUB160:SU$="[194]AUSPARKASSE":GOSUB160
1130 SU$="[207]PTIONSSCHEIN":GOSUB160:PRINT
1140 GETE2$:IFE2$<"1"ORE2$>"9"ANDE2$<>"_"GOTO1140
1150 IFE2$="_"THENWP$(Z)=MID$(WP$(Z),1,25):GOTO1030
1160 IFA1$>"2"THENIFA1$<"6"THENRETURN
1170 PRINT:PRINTTAB(X+2)E2$:X=.:E2$=RIGHT$(P$+E2$,2):WP$(Z)=WP$(Z)+E2$:E2$=""
1180 QQ=6:GOSUB4860:PRINT"         [200]OEHE DER [196]IVIDENDE ?":PRINT"         [196][205]  ";
1190 GOSUB290:IFSU$="_"THENWP$(Z)=MID$(WP$(Z),1,31):GOTO1080
1200 PRINT"":WP$(Z)=WP$(Z)+RIGHT$(P$+SU$,6)+"A":IFA=1THENRETURN
1210 GOTO40
1220 H=H-1:Q=Q-1
1230 IFZS>.THENWP$(Z)="":Z=Z-1:ZS=.
1240 RETURN
1250 IFVAL(MID$(W$(Q),49,10))>.THENWP$(AZ)=MID$(WP$(AZ),1,39)+"A"
1260 GOTO40
1270 GOSUB3960:GOSUB4860:PRINT"     [211][146] PEICHERN  ODER   [197][146] INLESEN  ?
1280 [161]W$:[139]W$[179][177]"E"[175]W$[179][177]"S"[175]W$[179][177]"_"[137]1280
1290 [139]W$[178]"_"[137]40
1300 [139]W$[178]"E"[167][141]4000:[141]4860:[137]1330
1310 [141]3990:[141]4860:[153]"        (null)AME DES STR$EPOT  ";DP$;" WAIT":QQ[178]16
1320 [153]"        '(null)VAL(null)(null)(null)(null)' = ALTER (null)AMEONONON"
1330 [153]"     (null)AME DES STR$EPOT: TOTOCMDCMD";:[141]290:[139]SU$[178]"_"[137]40
1335 [139]SU$[178]""[175]Y$[178][199](13)[167]SU$[178]DP$
1340 DP$[178]SU$:I[178]6:[141]3600:[139]W$[178]"E"[137]1370
1350 [159]2,8,2,"@:"[170]DP$[170]",S,W":H$[178][196](H):[152]2,H$:[129]X[178]1[164]H:[152]2,W$(X):[130]
1360 Z$[178][196](Z):[152]2,Z$:[129]X[178]1[164]Z:[152]2,WP$(X):[130]:[137]1390
1370 [159]2,8,2,DP$[170]",S,R":[132]2,H$:H[178][197](H$):[129]X[178]1[164]H:[132]2,W$(X):[130]
1380 [132]2,Z$:Z[178][197](Z$):[129]X[178]1[164]Z:[132]2,WP$(X):[130]
1390 [160]2:[137]40
1400 F$[178]"":D[178]1:L$[178]"":[141]4210:[141]3910:[141]4860:[153]"          PEEKITTE WAEHLEN (null)IE:
1410 X=6:PRINT"          [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":PRINTTAB(X)" 1[146]  [193] L L E   [193] K T I E N
1420 [153][163]X)" 2WAIT  ATNUSWAHL NACH  (null) (null)CLOSE(null)CLOSE(null)CLOSE(null)":[153][163]X)" 3WAIT  ATNUSWAHL NACH  (null) O S T E N
1430 E=.:S=.:GETS$:IFS$<"1"ORS$>"3"ANDS$<>"_"GOTO1430
1440 ONVAL(S$)GOTO1450,1460,1940:IFS$="_"GOTO40
1450 GOSUB4640:GOSUB4740:GOTO1510
1460 PRINTUE$"     '0' = [193]NZEIGE ALLER [208]APIERE ! [146] "
1470 PRINT"     [215]ERTPAPIERKENNR. : [164][164][164][164][164][164][157][157][157][157][157][157]";:GOSUB290:L$=SU$
1480 IFL$="_"GOTO40
1490 IFVAL(L$)>.THENGOSUB3710:GOTO1520
1500 PRINTUE$
1510 FORC=1TOZ:S=.:GOSUB380:IFI=1GOTO1870
1520 FORW=1TOH:IFS$="2"THENIFVAL(L$)>.GOTO1540
1530 GOTO1580
1540 IFVAL(MID$(W$(W),1,10))<>VAL(MID$(L$,1,10))GOTO1770
1550 IFS=.THENIFF$<>"D"THENPRINTUE$
1560 IFS=.THENPRINT"  -->  ";MID$(W$(W),1,25);"[146]  <--":GOTO1620
1570 GOTO1620
1580 GOSUB400:IFI=2ORI=3GOTO1770
1600 IFS=.THENIFF$<>"D"THENPRINTUE$
1610 IFS=.THENPRINT"  -->  ";MID$(WP$(C),1,25);"[146]  <--"
1620 S=S+1:IFD=1THENPRINT:PRINT" -[196]ATUM-----[193]NZAHL------[203]URS----- +/- -":PRINT:D=.
1630 PRINT"  ";MID$(W$(W),26,6);"  ";
1640 X=VAL(MID$(W$(W),32,7)):GOSUB4040:PRINTRIGHT$(P$+X$,8);:GOSUB1900
1650 IFI=4THENX=VAL(MID$(W$(W),49,10)):GOTO1670
1660 X=VAL(MID$(W$(W),39,10))
1670 GOSUB4090:PRINTRIGHT$(P$+X$,10);"  ";:SU$="   [218][201][206][211][197][206]":IFO$="_"THENSU$="[196][201][214][201][196][197][206][196][197]"
1680 IFO$="^"THENSU$="[194][197][218][213][199][211][210][197]."
1690 IFI=4THENPRINTSU$:GOTO1760
1700 IFVAL(MID$(W$(W),49,10))<.THENPRINT"  [214][197][210][203][193][213][198]":GOTO1720
1710 PRINT"     [203][193][213][198]"
1720 S=VAL(MID$(W$(W),32,7)):IFVAL(MID$(W$(W),49,10))<.THENS=S*-1
1730 IFS<.THENS2=S2+(S*(S2/S1))
1740 S1=S1+S:IFVAL(MID$(W$(W),49,10))<.GOTO1770
1750 S2=S2+(VAL(MID$(W$(W),39,10))*S)
1760 IFI=4THENS2=S2-VAL(MID$(W$(W),49,10)):O$=""
1770 NEXTW:D=1:IFS=.THENIFS$<>"2"GOTO1870
1780 IFS=.THENIFS$="2"THENS2=.
1790 X=S2:GOSUB4090:PRINT:PRINT"  [199]ESAMTWERT D. [193]KTIE:";RIGHT$(P$+X$,10);" [196][205]"
1800 IFS1<=.THENX=.:GOSUB4090:GOTO1820
1810 X=S2/S1:GOSUB4090
1820 PRINT"  [196]URCHSCHNITTSKURS  :";RIGHT$(P$+X$,10);" [196][205]":S1=.:S2=.
1830 IFS$="1"THENPRINT:GOSUB4320:GOTO1870
1840 IFF$="D"GOTO1880
1850 GOSUB4300:IFF$="D"THENPRINTU$:PRINT:GOTO1510
1860 IFS$="2"THENIFVAL(L$)>.GOTO40
1870 NEXTC
1880 GOSUB440
1890 GOTO40
1900 I=4:O$=MID$(W$(W),32,2):IFO$="Z "THENO$="/":RETURN
1910 IFO$="D "THENO$="_":RETURN
1920 IFO$="B "THENO$="^":RETURN
1930 I=.:RETURN
1940 J$="":GOSUB4010:GOSUB4210:GOSUB4640:GOSUB4740:GOSUB4860:QQ=2
1950 PRINT"     [202] A H R  -->  19..:   [164][164][157][157]";:GOSUB290:J$=SU$:IFJ$="_"GOTO40
1960 QQ=15:PRINTUE$;
1970 S1=.:DA=.:IFVAL(J$)>.THENPRINT"   [203]OSTEN IM [215]ERTPAPIERGESCHAEFT 19";J$:GOTO1990
1980 PRINT"     [203]OSTEN IM [215]ERTPAPIERGESCHAEFT"
1990 PRINT:PRINT" -[193]KTIENNAME-----[215][208][203][206]R---[203]OSTEN--[196]EPOT-":PRINT
2000 FORC=1TOZ:S=.:S2=.:GOSUB380:IFI=1GOTO2130
2010 FORW=1TOH:GOSUB400:IFI=3ORI=2GOTO2100
2030 IFVAL(W$)<>.THENIFVAL(MID$(W$(W),30,2))<>VAL(J$)GOTO2100
2040 GOSUB1900:IFI=4GOTO2100
2050 DA=DA+1:X1=VAL(MID$(W$(W),32,7))*VAL(MID$(W$(W),39,10)):IFX1<.THENX1=X1*-1
2060 S2=S2+1:X2=VAL(MID$(W$(W),49,10)):IFX2<.THENX2=X2*-1:GOTO2080
2070 X3=X1-X2:GOTO2090
2080 X3=X2-X1
2090 S=S+X3:IFT$="1"THENGOSUB4820
2100 NEXTW:IFS2=.GOTO2130
2110 PRINT" ";MID$(WP$(C),11,15);" ";MID$(WP$(C),1,7);:X=S:GOSUB4090
2120 PRINTRIGHT$(P$+X$,7);" ";:PRINTDE$:S1=S1+S:IFT$="1"THENDE$=""
2130 NEXTC
2140 X$=STR$(DA):PRINT:PRINT"      [193]UFTRAEGE.....: ";RIGHT$(P$+X$,5);" [208]OSTEN"
2150 X=S1:GOSUB4090:PRINT"      [199]ESAMTUNKOSTEN: ";RIGHT$(P$+X$,8);"  [196][205]":PRINT
2160 IFF$="D"GOTO2180
2170 GOSUB4300:IFF$="D"GOTO1970
2180 GOSUB440
2190 GOTO40
2200 F$="":GOSUB3920:GOSUB4210:GOSUB4640:GOSUB4740:GOSUB4240
2210 DA=.:IFF$="D"THENPRINTU$:PRINT:GOTO2230
2220 PRINTUE$
2230 PRINT" -[193]NZAHL--[193]KTIENNAME----[215][208][203][206]R----[196]U[203]URS ";
2240 IFF$="D"THENPRINT"--[203]AUFTAG--[200][214] AM--[196]IVIDENDE--[196]EPOT-":PRINT
2250 FORC=1TOZ:S=.:S1=.:S2=.:IFMID$(WP$(C),40,1)="R"GOTO2430
2260 IFT$="1"THENDE$=""
2270 GOSUB380:IFI=1GOTO2430
2280 FORW=1TOH:GOSUB400:IFI=2ORI=3GOTO2370
2300 S=VAL(MID$(W$(W),32,7)):IFVAL(MID$(W$(W),49,10))<.THENS=S*-1
2310 IFS<.THENS2=S2+(S*(S2/S1))
2320 S1=S1+S
2330 GOSUB1900:IFI=4THENX=VAL(MID$(W$(W),49,10)):S2=S2-X:GOTO2370
2340 IFS<.GOTO2370
2350 S2=S2+(VAL(MID$(W$(W),39,10))*S):ID$=MID$(W$(W),26,6)
2360 IFF$="D"THENIFT$="1"THENGOSUB4820
2370 NEXTW:S3=S3+S2:IFS1<=.GOTO2430
2380 X=S1:GOSUB4040:PRINTRIGHT$(P$+X$,9);
2390 PRINT" ";MID$(WP$(C),11,12);"  ";MID$(WP$(C),1,7);:DA=DA+1
2400 X=S2/S1:GOSUB4090:PRINTRIGHT$(P$+X$,8);
2410 IFF$<>"D"THENPRINT:GOTO2430
2420 PRINT"   ";ID$;"  ";MID$(WP$(C),26,6);"   ";MID$(WP$(C),34,6);"   ";DE$
2430 NEXTC:X$=STR$(DA):IFDA=.GOTO40
2440 PRINT:PRINT"      [199]ESAMTBESTAND:";RIGHT$(P$+X$,6);" [208]OSTEN       ";:S1=.:S2=.
2450 X=S3:GOSUB4090:PRINT"      [203]AUFPREIS    :";RIGHT$(P$+X$,10);" [196][205]":PRINT:S3=.
2460 GOSUB440:IFI=5GOTO40
2470 GOSUB4730:GOTO40
2480 RE=.:S=.:GOSUB3920:GOSUB4210:GOSUB4640:GOSUB4740:A=.:GOSUB4380:GOSUB3930
2490 GOSUB4240:IFF$="D"THENPRINTU$:PRINT:GOTO2510
2500 PRINTUE$
2510 PRINT" -[193]NZAHL--[193]KTIENNAME--[215][208][203][206]R.----[203]URS----";
2520 PRINT"-[203]URSWERT---[203]AUFKURS---[197]RTRAG-[210]ENDITE--":PRINT
2530 S3=.:S4=.:FORC=1TOZ:S1=.:S2=.:S=.:S6=.:S7=.:IFMID$(WP$(C),40,1)="R"GOTO2750
2540 IFT$="1"THENDE$=""
2550 GOSUB380:IFI=1GOTO2750
2560 FORW=1TOH:GOSUB400:IFI=2ORI=3GOTO2670
2580 S=VAL(MID$(W$(W),32,7)):IFVAL(MID$(W$(W),49,10))<.THENS7=S7+S:S=S*-1
2590 IFS<.THENS2=S2+(S*(S2/S1))
2600 S1=S1+S:GOSUB1900
2610 IFI=4THENX=VAL(MID$(W$(W),49,10)):S2=S2-X:GOTO2670
2620 IFS<.GOTO2670
2630 S2=S2+(VAL(MID$(W$(W),39,10))*S):X1=VAL(KU$(C))
2640 X2=VAL(MID$(W$(W),39,10)):IFX2=.GOTO2670
2650 GOSUB4140:RE=((X1-X2)*100*360)/(X2*TG)
2660 RE=RE*VAL(MID$(W$(W),32,7)):X=RE:GOSUB4040:RE=X:S6=S6+RE
2670 NEXTW:S3=S3+(VAL(KU$(C))*S1):IFS1=<.GOTO2750
2680 X=S1:GOSUB4040:PRINTRIGHT$(P$+X$,8);" ";MID$(WP$(C),11,12);" ";MID$(WP$(C),1,7);
2690 X=VAL(KU$(C)):GOSUB4090:PRINTRIGHT$(P$+X$,8);" ";:X=VAL(KU$(C))*S1:GOSUB4090
2700 PRINTRIGHT$(P$+X$,10);:X=.:IFS1>.THENX=S2/S1
2710 GOSUB4090:PRINTRIGHT$(P$+X$,10);" ";:IFX=.GOTO2730
2720 X=(VAL(KU$(C))*S1)-S2:S4=S4+X
2730 GOSUB4090:PRINTRIGHT$(P$+X$,9);
2740 X=S6/(S1+S7):GOSUB4090:PRINTRIGHT$(P$+X$,9);" %"
2750 NEXTC
2760 X=S3:GOSUB4090:PRINT:PRINT"        [203]URSWERT   :";RIGHT$(P$+X$,12);" [196][205]";
2770 X=S4:GOSUB4090:PRINT"           [199]ESAMTERTRAG :";RIGHT$(P$+X$,12);" [196][205]":PRINT
2780 GOSUB440:IFI=5GOTO40
2790 GOSUB4730:GOTO40
2800 E=.:S=.:A=.:GOSUB3950:GOSUB4860:PRINT"       [215]ERT - / [210]ENDITEBERECHNUNG
2810 [153]"       USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR":[153]"     1WAIT  FUER EINE NEUE ATNKTIE
2820 PRINT"     2[146]  FUER ALLE [193]KTIEN IM [196]EPOT":PRINT"     3[146]  [193]KTIE AUS DIESEM [196]EPOT
2830 [161]W$:[139]W$[179]"1"[176]W$[177]"3"[175]W$[179][177]"_"[137]2830
2840 F$[178]"":A[178][197](W$):[139]W$[178]"_"[137]40
2850 [139]A[178]2[137]2900
2860 [141]4210:[139]A[178]1[167][141]4230:[141]520:[137]2900
2870 [141]4860:[153]"    (null)ERTPAPIERKENNUMMER : TOTOTOTOTOTOCMDCMDCMDCMDCMDCMD";:[141]290:L$[178]SU$
2880 [139][197](L$)[178].[137]40
2890 [139]A[178]3[167][141]4790
2900 [141]4380:[153]UE$
2910 [129]W[178]1[164]H:[139]A[178]1[167]W[178]Q:[137]2980
2920 [139]A[177]1[167][139][197]([202](W$(W),49,10))[179].[137]3270
2930 [141]1900:[139]I[178]4[137]3270
2940 [139]A[178]2[167][141]3310:[153]:[139]F$[178]"D"[137]2960
2950 [139]A[178]2[167][153]"  -->  ";[202](WP$(C),1,25);"WAIT <--":[137]3010
2960 [139]A[178]2[167][153]"  -->  ";[202](WP$(C),1,25);" <--":[137]3010
2970 [139]A[178]3[167][139][197]([202](W$(W),1,10))[179][177][197](L$)[137]3270
2980 [153]:[139]F$[178]"D"[167][153]"  -->  ";[202](W$(W),1,25);"  <--":[137]3000
2990 [153]"  -->  ";[202](W$(W),1,25);"WAIT  <--"
3000 [153]:[153]" --ATNNZAHL--(null)AUFTAG----VALRTRAG--(null)ENDITE--":[153]:[139]A[179][177]2[137]3030
3010 [153]:[153]" --ATNNZAHL---ATNKTIENNAME---(null)(null)(null)(null)(null)--(null)AUFTAG-";
3020 [153]"-(null)AUFPREIS--(null)URSWERT---VALRTRAG-(null)ENDITE--":[153]
3030 X[178][197]([202](W$(W),32,7)):[141]4040:[153][201](P$[170]X$,9);" ";:[139]A[178]2[137]3050
3040 [153]"  ";:[153][202](W$(W),26,6);
3050 X1[178][197](L1$)[172][197]([202](W$(W),32,7))
3060 X2[178][197]([202](W$(W),32,7))[172][197]([202](W$(W),39,10))
3070 [139]A[178]2[137]3120
3080 X[178]X1[171]X2:[141]4090:[153][201](P$[170]X$,10);:[141]4140
3090 RE[178]((X1[171]X2)[172]100[172]360)[173](X2[172]TG)
3100 X[178]RE:[141]4090:[153][201](P$[170]X$,8);" %":[139]A[178]1[176]A[178]3[137]3200
3110 X[178][197]([202](W$(W),32,7)):[141]4040:[153][201](P$[170]X$,8);"   ";
3120 [153][202](W$(W),11,13);"  ";[202](W$(W),1,8);[202](W$(W),26,6);" ";
3130 X[178]X2:[141]4090:[153][201](P$[170]X$,10);
3140 X1[178][197](KU$(C))[172][197]([202](W$(W),32,7)):X[178]X1:[141]4090:[153][201](P$[170]X$,10);
3150 X3[178]X[171]([197]([202](W$(W),32,7))[172][197]([202](W$(W),39,10))):X[178]X3:[141]4090
3160 [153][201](P$[170]X$,9);
3170 X2[178][197]([202](W$(W),32,7))[172][197]([202](W$(W),39,10)):[141]4140
3180 RE[178]((X1[171]X2)[172]100[172]360)[173](X2[172]TG):X[178]RE:[141]4090
3190 [153][201](P$[170]X$,8);" %":[139]A[178]2[167]I[178][197](KU$(C))[171][197]([202](W$(W),39,10))
3200 [139]A[179][177]2[167]I[178][197](L1$)[171][197]([202](W$(W),39,10))
3210 X[178](I[172]100)[173][197]([202](W$(W),39,10)):[141]4090
3220 [153]:[153]"   LEFT$EUTIGES STR$ATUM: ";[202](FF$,1,2);".";[202](FF$,3,2);".";[202](FF$,5,2),
3230 [153]"             (null)ERTSTEIGERUNG:";X$;" %":[153]:[153]
3240 [141]440:[139]I[178]5[167]C[178]Z:W[178]H:[130]:[137]40
3250 [141]4300:[139]F$[178]"D"[167][139]A[179][177]2[167]W[178].:[153]"   ";U$:[137]2910
3260 [139]F$[178]"D"[167][139]A[178]2[167][153]"   ";U$:[137]2920
3270 [139]A[177]1[167][139]F$[179][177]"D"[167][153]UE$:[130]W
3280 [139]A[177]1[167][139]F$[178]"D"[167][130]W
3290 [139]A[178]1[167][141]1220
3300 [137]40
3310 C[178].:[129]C[178]1[164]Z:[139][197]([202](W$(W),1,10))[178][197]([202](WP$(C),1,10))[167][142]
3320 [130]:[142]
3330 [141]3970:[141]4210:[141]4860:[153]"   (null)ERTPAPIERKENNNR...:  ";:[141]290:W$[178]SU$
3340 [139]W$[178]"_"[176][197](W$)[178].[167]W$[178]"":[137]40
3350 Q[178]H:Q[178]Q[170]1:H[178]Q
3360 [141]3710:[139]SS[177].[167]SU$[178]W$:W$(Q)[178][202](WP$(SS),1,25):[137]3380
3380 [153]"   STR$WAITIVIDENDE / PEEKWAITEZUGSRECHT / (null)WAITINSEN"
3390 [161]W$:[139]W$[179][177]"D"[175]W$[179][177]"B"[175]W$[179][177]"Z"[175]W$[179][177]"_"[137]3390
3400 [139]W$[178]"_"[167]W$(Q)[178]"":H[178]H[171]1:Q[178]Q[171]1:[137]3330
3410 SU$[178]"PEEK VAL (null) (null) CHR$ (null) (null) VAL LEN LEFT$ (null) WAIT":[139]W$[178]"D"[167]SU$[178]"STR$ RIGHT$ (null) RIGHT$ STR$ VAL (null) STR$ VAL WAIT    "
3420 [139]W$[178]"Z"[167]SU$[178]"  (null) RIGHT$ (null) (null) VAL (null)     WAIT    "
3430 [153]"ON    ";SU$;"          "
3440 [153]"   STR$ATUM..............:";:[141]180
3450 [139]F$[178]"_"[167]W$(Q)[178]"":F$[178]"":H[178]H[171]1:Q[178]Q[171]1:[137]3330
3460 X$[178]F$:[141]4520:F$[178]X$:[139]X$[178]""[167][153]"ONONONON":F$[178]"":[137]3440
3470 W$(Q)[178]W$(Q)[170]F$[170]W$:F$[178]""
3480 J$[178]"(null)INSEN INSGESAMT...":[139]W$[178]"D"[167]J$[178]"STR$IVIDENDE INSGESAMT"
3490 [139]W$[178]"B"[167]J$[178]"PEEKEZUGSRECHT INSGES."
3500 [153]"   ";J$;":  ";:[141]290:[153]"":[141]4700
3510 [139]W$[178]"_"[176]W$[178]"N"[167][153]"ONONONONONONONONONONONON":[137]3480
3520 F$[178][201](P$[170]SU$,10):W$(Q)[178]W$(Q)[170]"      "[170]"          "[170]F$:[141]910
3525 [139]E$[178]"_"[167]Q[178]Q[171]1:H[178]H[171]1:[137]3330
3526 [137]40
3530 [141]3980:[141]4210:[141]4860:[153]"    (null)ELCHE ATNENDERUNGEN MOECHTEN (null)IE:"
3540 X[178]4:[153][163]X)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR":X[178]5
3550 [153]:[153][163]X)" 1WAIT  ATNKTIEN AKTIVIEREN BZW. RUHEN
3560 PRINTTAB(X)" 2[146]  [193]ENDERUNG DER [211]TAMMDATEN
3570 [153][163]X)" 3WAIT  (null) E U S T A R T"
3580 X[178].:[161]W$:[139]W$[179]"1"[176]W$[177]"3"[175]W$[179][177]"_"[137]3580
3590 [145][197](W$)[137]3600,3700,3670:[139]W$[178]"_"[137]40
3600 [153]UE$"       PEEK I T T E    W A R T E N  ! ":[139]I[178]6[167]I[178].:[142]
3610 [129]C[178]1[164]Z:S[178].:[129]W[178]1[164]H:I[178].:[141]420:[139]I[178]3[137]3640
3620 X[178][197]([202](W$(W),32,7)):[139][197]([202](W$(W),49,10))[179].[167]X[178]X[172][171]1
3630 S[178]S[170]X
3640 [130]W:WP$(C)[178][202](WP$(C),1,39):[139]S[177].[167]WP$(C)[178]WP$(C)[170]"A":[137]3660
3650 WP$(C)[178]WP$(C)[170]"R"
3660 [130]C:[137]1310
3670 [141]4860:[153]"     (null)IRKLICH ALLE STR$ATEN LOESCHEN ?":[141]4710
3680 [139]W$[178]"J"[167][156]:[137]10
3690 [137]40
3700 [141]4860:[153]"   (null)ELCHE (null)ERTPAPIERNR.: ";:[141]290:[139]SU$[178]"_"[137]3530
3710 SS[178].:[129]X[178]1[164]Z:[139][197]([202](WP$(X),1,10))[178][197](SU$)[167]SS[178]X
3720 [130]:[139]SS[177].[137]3740
3730 [153]UE$"  (null)UMMER NICHT GESPEICHERT BZW. FALSCH!":[141]4730:[137]40
3740 [139]A1$[178]"3"[176]A1$[178]"7"[167][142]
3745 [153]UE$"    PEEKITTE NUR ATNENDERUNGEN EINGEBENCLOSE!"
3750 [153]"   USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
3760 QQ[178]10:X[178]1:Y[178]10:S[178]4:[153]"   (null)(null)(null)(null)R: ";:[141]3890:NE$[178][200](SU$[170]P$,10)
3770 QQ[178]15:X[178]11:Y[178]15:S[178].:[153]"   (null)AME: ";:[141]3890:NE$[178]NE$[170][200](SU$[170]P$,15)
3780 [153]"   LEFT$(null) AM: ";[202](WP$(SS),26,6);[166]6);:[141]180:X[178]26:Y[178]6:[141]3860
3785 [139]ZA[178].[167]F$[178]SU$
3790 NE$[178]NE$[170][201](P$[170]F$,6)
3800 QQ[178]2:X[178]32:Y[178]2:S[178]12:[153]"   ATNCLOSER T: ";:[141]3890:NE$[178]NE$[170][201](P$[170]SU$,2)
3810 QQ[178]6:X[178]34:Y[178]6:S[178]4:[153]"   STR$IVIDENDE: ";:[141]3890:NE$[178]NE$[170][201](P$[170]SU$,6)
3820 QQ[178]1:X[178]40:Y[178]1:S[178]6:[153]"   AKTIV ? (A/R) ";:[141]3890:NE$[178]NE$[170][201](P$[170]SU$,1)
3830 QQ[178]15:[153]UE$"      (null) E U WAIT":[153]NE$:[153]"      ATN L T WAIT":[153]WP$(SS):[153]""
3840 [141]4700:[139]W$[179][177]"J"[137]3530
3850 WP$(SS)[178]NE$:[137]1310
3860 [139]ZA[178].[167][139]Y$[178][199](13)[167]SU$[178][202](WP$(SS),X,Y)
3870 [139]SU$[178]"_"[137]3530
3880 [142]
3890 [153][202](WP$(SS),X,Y);[166]S);:[141]290:[141]3860:[142]
3900 U$[178]" (null) E R T P A P I E R D E P O T  ":[137]4020
3910 U$[178]"    STR$CLOSEE P O T U M S A E T Z E   ":[137]4020
3920 U$[178]"     STR$CLOSEE P O T B E S T A N D    ":[137]4020
3930 U$[178]" STR$CLOSEE P O T W E R T  A M "[170][202](FF$,1,2)[170]"."[170][202](FF$,3,2)[170]"."
3940 U$[178]U$[170][202](FF$,5,2):[137]4020
3950 U$[178]"(null) E R T - / (null) E N D I T E B E R.":[137]4020
3960 U$[178]"  VAL I N L E S E N / (null) A D E N   ":[137]4020
3970 U$[178]" VAL (null) STR$   UND   VAL (null) PEEK - VALINGABEN ":[137]4020
3980 U$[178]"     ATN E N D E R U N G E N      ":[137]4020
3990 U$[178]"    (null)  P  E  I  C  H  E  R  N   ":[137]4020
4000 U$[178]"     VAL  I  N  L  E  S  E  N     ":[137]4020
4010 U$[178]"        (null)  O  S  T  E  N        ":[137]4020
4020 UE$[178]"STOPLOAD                                        ":UE$[178]UE$[170]"    "[170]U$[170]"    "
4030 UE$[178]UE$[170]"                                        WAITSTOP":[142]
4040 X[178][181](X[172]1000[170].5)[173]1000:X$[178][196](X):Y[178][195](X$)
4050 [139][197](X$)[178][181]([197](X$))[167]X$[178]X$[170]".000":[142]
4060 [139][202](X$,Y[171]1,1)[178]"."[167]X$[178]X$[170]"00"
4070 [139][202](X$,Y[171]2,1)[178]"."[167]X$[178]X$[170]"0":[142]
4080 [142]
4090 X[178][181](X[172]100[170].5)[173]100
4100 X$[178][196](X):Y[178][195](X$):W$[178][201](X$,3):[139][200](W$,1)[178]"."[167][142]
4110 [139][197](X$)[178][181]([197](X$))[167]X$[178]X$[170]".00":[142]
4120 [139][202](X$,Y[171]1,1)[178]"."[167]X$[178]X$[170]"0":[142]
4130 [142]
4140 [139]A[178]1[167]X$[178][202](W$(W),26,6)
4150 [139]A[177]1[176]A[178].[167]X$[178][202](W$(W),26,6)
4160 J1[178]([197]([202](X$,5,2))[171]1)[172]360:J2[178]([197]([202](FF$,5,2))[171]1)[172]360
4170 M1[178]([197]([202](X$,3,2))[171]1)[172]30:M2[178]([197]([202](FF$,3,2))[171]1)[172]30
4180 T1[178] [197]([202](X$,1,2))[171]1:[139]T1[177]30[167]T1[178]30
4190 T2[178] [197]([202](FF$,1,2)):[139]T2[177]30[167]T2[178]30
4200 TG[178](J2[170]M2[170]T2)[171](J1[170]M1[170]T1):[142]
4210 [139]H[178].[167][153]UE$"        STR$ ATN (null) VAL (null)   L A D E N  !"
4220 [139]H[178].[167][129]T[178]1[164]400:[130]:W$[178]"E":[137]1300
4230 [142]
4240 [141]4860:[153]"     ATNUSGABE AUF   STR$WAIT RUCKER ODER
4250 PRINT"                   [194][146] ILDSCHIRM
4260 [161]W$:[139]W$[179][177]"B"[175]W$[179][177]"D"[175]W$[179][177]"_"[137]4260
4270 [139]W$[178]"D"[167]F$[178]"D":[159]4,4,7:[157]4:[153][199](27);[199](77);:[142]
4280 [139]W$[178]"B"[167]F$[178]"":[142]
4290 [137]40
4300 [139]F$[178]"D"[137]4330
4310 [153]"      STR$ = STR$RUCK / (null)PACE = WEITER ! WAIT":[137]4330
4320 [153]"       _ = ZURUECK/ ODER (null)ASTE ! WAIT"
4330 [161]F$:[139]F$[178]""[137]4330
4340 [139]F$[178]"_"[137]40
4350 [139]S$[178]"1"[167]F$[178]"":[142]
4360 [139]F$[178]"D"[167]C[178].:[159]4,4,7:[157]4:[153][199](27);[199](77);
4370 [142]
4380 [141]4860:[153]""
4390 [153]"    LEFT$EUTIGES STR$ATUM...:";:[141]180
4400 FF$[178]F$:[139]FF$[178]"_"[167]FF$[178]"":[137]40
4410 X$[178]FF$:[141]4520:FF$[178]X$:[139]FF$[178]""[137]4380
4420 [139]A[178]2[176]A[178].[137]4460
4430 [153]UE$"      ";:[139]A[178]1[167][153]" ";[202](W$(Q),1,25);" WAIT"
4440 [139]A[178]3[167][153]"  ";L$;"WAIT"
4450 [153]"    (null)URS AM HEUTIGEN (null)AGE: ";:[141]290:L1$[178]SU$:[137]4510
4460 [129]X[178]1[164]Z:[139][202](WP$(X),40,1)[178]"R"[137]4500
4470 C[178]X:[141]380:[139]I[178]1[137]4500
4480 [153]UE$"        ";[202](WP$(X),1,25);"WAIT":KU$(X)[178]""
4490 [153]"     (null)URS AM HEUTIGEN (null)AGE: ";:[141]290:KU$(X)[178]SU$
4500 [130]
4510 [142]
4520 [139][197]([202](X$,3,2))[178].[167]X$[178]"":[142]
4530 [139][197]([202](X$,1,2))[178].[167]X$[178]"":[142]
4540 [139][197]([202](X$,3,2))[177]12[167]X$[178]"":[142]
4550 [139][197]([202](X$,3,2))[178]4[176][197]([202](X$,3,2))[178]6[176][197]([202](X$,3,2))[178]9[137]4600
4560 [139][197]([202](X$,3,2))[178]11[137]4600
4570 [139][197]([202](X$,3,2))[178]2[137]4620
4580 [139][197]([202](X$,1,2))[177]31[167]X$[178]"":[142]
4590 [142]
4600 [139][197]([202](X$,1,2))[177]30[167]X$[178]"":[142]
4610 [142]
4620 [139][197]([202](X$,1,2))[177]29[167]X$[178]"":[142]
4630 [142]
4640 [141]4860:[153]"     1WAIT  ATNNGABEN AUS ALLEN STR$EPOTS ODER
4650 PRINT"     2[146]  AUS EINEM SPEZIELLEN [196]EPOT ?
4660 [161]T$:[139]T$[179]"1"[176]T$[177]"2"[175]T$[179][177]"_"[137]4660
4670 [139]T$[178]"_"[137]40
4680 [139]T$[178]"2"[167][141]910
4690 [142]
4700 [153]"             (null) I C H E R  ?   WAIT":[137]4710
4710 [161]W$:[139]W$[179][177]"J"[167][139]W$[179][177]"N"[167][139]W$[179][177]"_"[137]4710
4720 [142]
4730 [153]"         PEEKITTE (null)ASTE DRUECKEN !  WAIT":[151]198,0:[146]198,1:[142]
4740 [153]UE$"    1WAIT  ALLE VERSCHIEDENEN (null)APIERE BZW.
4750 PRINT"    2[146]  NUR EINE BESTIMMTE [193]RT ?
4760 [161]T1$:[139]T1$[179]"1"[176]T1$[177]"2"[137]4760
4770 [139]T1$[178]"2"[167][141]1080
4780 [142]
4790 [129]X[178]1[164]Z
4800 [139][197]([202](WP$(X),1,10))[178][197](L$)[167]L$[178][200](L$[170]P$,10)[170][202](WP$(X),11,15)
4810 [130]:[142]
4820 [139][197](DE$)[178].[167]DE$[178]""
4830 X$[178][202](W$(W),59,1):[129]X[178]1[164]6:[139][202](DE$,X,1)[178]X$[167]X[178]6:[130]:[137]4850
4840 [130]:DE$[178][201](P$[170]DE$[170]X$,6)
4850 [142]
4860 [153]UE$;"          _ = (null)CHRITT ZURUECK   WAIT":[142]