home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 July / 64er_Magazin_90-07_1990_Markt__Technik_de_Side_A.d64 / depot (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  18KB  |  487 lines
  1. 1 rem hans-peter diegel, 2878 wildeshausen, deekenstr. 31 - 04431/4567
  2. 10 remw$(w)=10wpknr15name6datum7anz.10kurs(inkl.)10ges.wert+evtl1d/b/z-59=deD\
  3. 20 poke53281,1:remwp$=10wpknr15name6hv2art6Dsidende1a/r
  4. 30 qq=16:dimw$(250),wp$(100),ku$(100):poke53280,6:poke53272,23:w$="e":goto1300
  5. 40 gosub3900:printue$:t$="":t1$=t$:f$=t$:x=7:p$="                 ":qq=15
  6. 50 ifh>.thenprinttab(x+4)"--> ";dp$;"[146] <--"
  7. 60 i=.:su$="[197]ingabe [196]epotumsatz":gosub160:su$="[197]inlesen / [211]peichern":gosub160
  8. 70 su$="[204]isten [196]epotumsatz":gosub160:su$="[204]isten [196]epotbestand":gosub160
  9. 80 su$="[196]epotwertaufstellung":gosub160:su$="[215]ert-/[210]enditeberechnung":gosub160
  10. 90 su$="[197]x[196] und [197]x[194]-[197]ingaben":gosub160:su$="[193]enderungen im [194]estand":gosub160
  11. 100 su$="[196]irectory":gosub160:print:ifh=.thenprinttab(x)"  [203]eine [196]aten geladen ! [146][145]"
  12. 120 geta1$:ifa1$<"1"ora1$>"9"goto120
  13. 130 onval(a1$)goto520,1270,1400,2200,2480,2800,3330,3530,460
  14. 140 print"   ";su$;".:  ";:gosub290:return
  15. 160 i=i+1:print:printtab(x)"";i;"[146] ";su$:ifx=4thenprint"[145][145]"
  16. 161 return
  17. 180 print"  [164][164].[164][164].[164][164][164][164][157][157][157][157][157][157][157][157][157][157]";:za=.:su$=""
  18. 190 gety$:ify$=""goto190
  19. 200 ifa1$="8"thenifza=.thenify$=chr$(13)thenprint:return
  20. 210 ifa1$="1"ora1$=>"5"ora1$<="7"thenify$="_"thenf$="_":return
  21. 220 ifval(y$)=.andy$<>"0"andy$<>chr$(20)goto190
  22. 230 ify$=chr$(20)thenza=za-1:su$=mid$(su$,1,za):goto250
  23. 240 za=za+1:su$=su$+y$
  24. 250 printy$;:ify$=chr$(20)goto270
  25. 260 ifza=2orza=5theny$=".":goto240
  26. 270 iflen(su$)<10goto190
  27. 280 print:f$=mid$(su$,1,2)+mid$(su$,4,2)+mid$(su$,9,2):return
  28. 290 za=.:su$=""
  29. 300 gety$:ify$=""goto300
  30. 310 ify$="_"thensu$="_":return
  31. 320 ify$=chr$(13)thenprint:return
  32. 330 ify$=chr$(20)thenza=za-1:su$=mid$(su$,1,za):goto350
  33. 340 za=za+1:ifza>qqthenza=16:goto370
  34. 350 printy$;:ify$=","theny$="."
  35. 360 ify$<>chr$(20)thensu$=su$+y$
  36. 370 goto300
  37. 380 i=.:ift1$="2"thenifval(mid$(wp$(c),32,2))<>val(e2$)theni=1
  38. 390 return
  39. 400 i=.:ift$="2"thenifval(mid$(w$(w),59,1))<>val(e$)theni=2:return
  40. 420 ifval(mid$(w$(w),1,10))<>val(mid$(wp$(c),1,10))theni=3
  41. 430 return
  42. 440 iff$="d"thenprint#4:close4:i=5
  43. 450 return
  44. 460 printue$:s=.:open1,8,0,"$":get#1,a$,a$
  45. 470 get#1,a$,a$:s=s+1:ifst=64thenprint:print:gosub4730:close1:goto40
  46. 480 get#1,a$,b$:print"     ";asc(a$+chr$(0))+256*asc(b$+chr$(0));
  47. 490 get#1,a$:printa$;:ifa$<>""then490
  48. 500 ifs=16thenprint:print:gosub4730:printue$:s=.
  49. 510 print:goto470
  50. 520 f$="":az=.:zs=.:q=h:q=q+1:gosub4860:qq=10:print"[145]":su$="[215]ertpapierkennnr":gosub140
  51. 530 ifsu$="_"thenq=q-1:goto40
  52. 540 ifval(su$)=.thenq=q-1:print"[145][145]":goto520
  53. 550 w$(q)=left$(su$+p$,10)
  54. 560 forx=1toz:ifval(mid$(wp$(x),1,10))=val(su$)thenw$(q)=w$(q)+mid$(wp$(x),11,15)
  55. 570 ifval(mid$(wp$(x),1,10))=val(su$)thenaz=x:print"";:goto630
  56. 580 nextx:z=z+1
  57. 590 zs=1:qq=15:su$="[206]ame des [215]ertpap":gosub140
  58. 600 ifsu$="_"thenq=q-1:gosub1230:goto520
  59. 610 ifsu$=""thenprint"[145][145]":f$="":goto590
  60. 620 wp$(z)=w$(q):su$=left$(su$+p$,15):w$(q)=w$(q)+su$:wp$(z)=wp$(z)+su$
  61. 630 ifq>hthenh=q
  62. 640 print"[145]   [206]ame des [215]ertpap.:  ";mid$(w$(q),11,15);"[146]"
  63. 650 print"   [203][146]auf oder [214][146]erkauf:"
  64. 660 getw$:ifw$<>"_"andw$<>"k"andw$<>"v"goto660
  65. 670 ifw$="_"thengosub1220:goto520
  66. 680 su$="[214] [197] [210] [203] [193] [213] [198]":ifw$="k"thensu$="[203] [193] [213] [198]"
  67. 690 print"[145]   ";su$;"  eines [215]ertpapier"
  68. 700 print"   [196]atum............:";:gosub180
  69. 710 iff$="_"thengosub1220:goto520
  70. 720 x$=f$:gosub4520:ifx$=""thenprint"[145][145][145]":goto700
  71. 730 w$(q)=w$(q)+x$:f$=""
  72. 740 qq=7:su$="[211]tueckzahl .....":gosub140
  73. 750 ifsu$="_"thenprint"[145][145][145][145]":w$(q)=left$(w$(q),25):goto700
  74. 760 ifval(su$)=.thenprint"[145][145][145]":goto740
  75. 770 su$=right$(p$+su$,7):w$(q)=w$(q)+su$
  76. 780 qq=10:su$="[203]urs ...........":gosub140
  77. 790 ifsu$="_"thenprint"[145][145][145][145]":w$(q)=left$(w$(q),31):goto740
  78. 800 ifval(su$)=.thenprint"[145][145][145]":goto780
  79. 810 w$(q)=w$(q)+right$(p$+su$,10)
  80. 820 x=val(mid$(w$(q),32,7))*val(mid$(w$(q),39,10)):ifw$="v"thenx=x*-1
  81. 830 gosub4090:f$=x$:f$=right$(p$+f$,10):w$(q)=w$(q)+f$
  82. 840 print"   [199]esamtkosten[146] ....:  ";f$:qq=10:su$="[210]ealer [208]reis ...":gosub140
  83. 850 ifsu$="_"thengosub1220:goto40
  84. 860 ifval(su$)=.thensu$=f$
  85. 870 f$="":x=val(su$)/val(mid$(w$(q),32,7)):gosub4090
  86. 880 x$=right$(p$+x$,10):print"   [210]ealer [203]urs[146] .....:  ";x$;"[145]"
  87. 890 w$(q)=mid$(w$(q),1,38)+right$(p$+x$,10)+mid$(w$(q),49,10):print:print:gosub4730
  88. 900 ifa1$="6"thenreturn
  89. 910 i=1:x=13:gosub4860:print"  [196][197][208][207][212] bei   1[146]  [214]olksbank":su$="[195]ommerzbank"
  90. 920 gosub160:su$="[201]nvestmentgesellschaft":gosub160:su$="[208]ost und [193]ehnliches":gosub160
  91. 930 su$="[211]onstiges":gosub160
  92. 940 gete$:ife$<"1"ore$>"5"ande$<>"_"goto940
  93. 950 de$="[211]onst.":print:printtab(x)e$:x=.:ife$="1"thende$=" [214]oba."
  94. 960 ife$="2"thende$=" [195]omm."
  95. 970 ife$="3"thende$=" [193][196][201][199] "
  96. 980 ife$="4"thende$=" [208]ost "
  97. 985 ife$="_"anda1$="1"thengosub1220:goto520
  98. 986 ife$="_"anda1$="7"thenreturn
  99. 990 ifzs=.thenprint:print:print:gosub4700:ifw$="n"thenw$(q)=mid$(w$(q),1,58):goto910
  100. 1000 ifa1$>"2"thenifa1$<"6"thenreturn
  101. 1010 w$(q)=w$(q)+e$:ifa1$="7"thenreturn
  102. 1020 ifzs=.thenifa1$<>"6"goto1250
  103. 1030 gosub4860:print"     [196]atum d. [200][214]......:";:gosub180
  104. 1040 iff$="_"thenw$(q)=mid$(w$(q),1,58):goto910
  105. 1050 x$=f$:ifval(f$)=.goto1070
  106. 1060 gosub4520:ifx$=""thenprint"[145][145][145]":goto1030
  107. 1070 wp$(z)=wp$(z)+x$
  108. 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]
  109. 1090 i[178].:su$[178]"atnktie (str$eutsch)":[141]160:su$[178]"atnktie (atnuslaend./keine (NULL)inen)
  110. 1100 gosub160:su$="[193]ktie ([205]inenwerte)":gosub160:su$="[201]nvestmentanteile":gosub160
  111. 1110 su$="[194]undesschatzbriefe":gosub160:su$="[198]inanzierungsschaetze":gosub160
  112. 1120 su$="s. festverzinsl. wertpapiere":gosub160:su$="[194]ausparkasse":gosub160
  113. 1130 su$="[207]ptionsschein":gosub160:print
  114. 1140 gete2$:ife2$<"1"ore2$>"9"ande2$<>"_"goto1140
  115. 1150 ife2$="_"thenwp$(z)=mid$(wp$(z),1,25):goto1030
  116. 1160 ifa1$>"2"thenifa1$<"6"thenreturn
  117. 1170 print:printtab(x+2)e2$:x=.:e2$=right$(p$+e2$,2):wp$(z)=wp$(z)+e2$:e2$=""
  118. 1180 qq=6:gosub4860:print"         [200]oehe der [196]ividende ?":print"         [196][205]  ";
  119. 1190 gosub290:ifsu$="_"thenwp$(z)=mid$(wp$(z),1,31):goto1080
  120. 1200 print"":wp$(z)=wp$(z)+right$(p$+su$,6)+"a":ifa=1thenreturn
  121. 1210 goto40
  122. 1220 h=h-1:q=q-1
  123. 1230 ifzs>.thenwp$(z)="":z=z-1:zs=.
  124. 1240 return
  125. 1250 ifval(mid$(w$(q),49,10))>.thenwp$(az)=mid$(wp$(az),1,39)+"a"
  126. 1260 goto40
  127. 1270 gosub3960:gosub4860:print"     [211][146] peichern  oder   [197][146] inlesen  ?
  128. 1280 [161]w$:[139]w$[179][177]"e"[175]w$[179][177]"s"[175]w$[179][177]"_"[137]1280
  129. 1290 [139]w$[178]"_"[137]40
  130. 1300 [139]w$[178]"e"[167][141]4000:[141]4860:[137]1330
  131. 1310 [141]3990:[141]4860:[153]"        (NULL)ame des str$epot  ";dp$;" wait":qq[178]16
  132. 1320 [153]"        '(NULL)val(NULL)(NULL)(NULL)(NULL)' = alter (NULL)ameononon"
  133. 1330 [153]"     (NULL)ame des str$epot: totocmdcmd";:[141]290:[139]su$[178]"_"[137]40
  134. 1335 [139]su$[178]""[175]y$[178][199](13)[167]su$[178]dp$
  135. 1340 dp$[178]su$:i[178]6:[141]3600:[139]w$[178]"e"[137]1370
  136. 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]
  137. 1360 z$[178][196](z):[152]2,z$:[129]x[178]1[164]z:[152]2,wp$(x):[130]:[137]1390
  138. 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]
  139. 1380 [132]2,z$:z[178][197](z$):[129]x[178]1[164]z:[132]2,wp$(x):[130]
  140. 1390 [160]2:[137]40
  141. 1400 f$[178]"":d[178]1:l$[178]"":[141]4210:[141]3910:[141]4860:[153]"          peekitte waehlen (NULL)ie:
  142. 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
  143. 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
  144. 1430 e=.:s=.:gets$:ifs$<"1"ors$>"3"ands$<>"_"goto1430
  145. 1440 onval(s$)goto1450,1460,1940:ifs$="_"goto40
  146. 1450 gosub4640:gosub4740:goto1510
  147. 1460 printue$"     '0' = [193]nzeige aller [208]apiere ! [146] "
  148. 1470 print"     [215]ertpapierkennr. : [164][164][164][164][164][164][157][157][157][157][157][157]";:gosub290:l$=su$
  149. 1480 ifl$="_"goto40
  150. 1490 ifval(l$)>.thengosub3710:goto1520
  151. 1500 printue$
  152. 1510 forc=1toz:s=.:gosub380:ifi=1goto1870
  153. 1520 forw=1toh:ifs$="2"thenifval(l$)>.goto1540
  154. 1530 goto1580
  155. 1540 ifval(mid$(w$(w),1,10))<>val(mid$(l$,1,10))goto1770
  156. 1550 ifs=.theniff$<>"d"thenprintue$
  157. 1560 ifs=.thenprint"  -->  ";mid$(w$(w),1,25);"[146]  <--":goto1620
  158. 1570 goto1620
  159. 1580 gosub400:ifi=2ori=3goto1770
  160. 1600 ifs=.theniff$<>"d"thenprintue$
  161. 1610 ifs=.thenprint"  -->  ";mid$(wp$(c),1,25);"[146]  <--"
  162. 1620 s=s+1:ifd=1thenprint:print" -[196]atum-----[193]nzahl------[203]urs----- +/- -":print:d=.
  163. 1630 print"  ";mid$(w$(w),26,6);"  ";
  164. 1640 x=val(mid$(w$(w),32,7)):gosub4040:printright$(p$+x$,8);:gosub1900
  165. 1650 ifi=4thenx=val(mid$(w$(w),49,10)):goto1670
  166. 1660 x=val(mid$(w$(w),39,10))
  167. 1670 gosub4090:printright$(p$+x$,10);"  ";:su$="   [218][201][206][211][197][206]":ifo$="_"thensu$="[196][201][214][201][196][197][206][196][197]"
  168. 1680 ifo$="^"thensu$="[194][197][218][213][199][211][210][197]."
  169. 1690 ifi=4thenprintsu$:goto1760
  170. 1700 ifval(mid$(w$(w),49,10))<.thenprint"  [214][197][210][203][193][213][198]":goto1720
  171. 1710 print"     [203][193][213][198]"
  172. 1720 s=val(mid$(w$(w),32,7)):ifval(mid$(w$(w),49,10))<.thens=s*-1
  173. 1730 ifs<.thens2=s2+(s*(s2/s1))
  174. 1740 s1=s1+s:ifval(mid$(w$(w),49,10))<.goto1770
  175. 1750 s2=s2+(val(mid$(w$(w),39,10))*s)
  176. 1760 ifi=4thens2=s2-val(mid$(w$(w),49,10)):o$=""
  177. 1770 nextw:d=1:ifs=.thenifs$<>"2"goto1870
  178. 1780 ifs=.thenifs$="2"thens2=.
  179. 1790 x=s2:gosub4090:print:print"  [199]esamtwert d. [193]ktie:";right$(p$+x$,10);" [196][205]"
  180. 1800 ifs1<=.thenx=.:gosub4090:goto1820
  181. 1810 x=s2/s1:gosub4090
  182. 1820 print"  [196]urchschnittskurs  :";right$(p$+x$,10);" [196][205]":s1=.:s2=.
  183. 1830 ifs$="1"thenprint:gosub4320:goto1870
  184. 1840 iff$="d"goto1880
  185. 1850 gosub4300:iff$="d"thenprintu$:print:goto1510
  186. 1860 ifs$="2"thenifval(l$)>.goto40
  187. 1870 nextc
  188. 1880 gosub440
  189. 1890 goto40
  190. 1900 i=4:o$=mid$(w$(w),32,2):ifo$="z "theno$="/":return
  191. 1910 ifo$="d "theno$="_":return
  192. 1920 ifo$="b "theno$="^":return
  193. 1930 i=.:return
  194. 1940 j$="":gosub4010:gosub4210:gosub4640:gosub4740:gosub4860:qq=2
  195. 1950 print"     [202] a h r  -->  19..:   [164][164][157][157]";:gosub290:j$=su$:ifj$="_"goto40
  196. 1960 qq=15:printue$;
  197. 1970 s1=.:da=.:ifval(j$)>.thenprint"   [203]osten im [215]ertpapiergeschaeft 19";j$:goto1990
  198. 1980 print"     [203]osten im [215]ertpapiergeschaeft"
  199. 1990 print:print" -[193]ktienname-----[215][208][203][206]r---[203]osten--[196]epot-":print
  200. 2000 forc=1toz:s=.:s2=.:gosub380:ifi=1goto2130
  201. 2010 forw=1toh:gosub400:ifi=3ori=2goto2100
  202. 2030 ifval(w$)<>.thenifval(mid$(w$(w),30,2))<>val(j$)goto2100
  203. 2040 gosub1900:ifi=4goto2100
  204. 2050 da=da+1:x1=val(mid$(w$(w),32,7))*val(mid$(w$(w),39,10)):ifx1<.thenx1=x1*-1
  205. 2060 s2=s2+1:x2=val(mid$(w$(w),49,10)):ifx2<.thenx2=x2*-1:goto2080
  206. 2070 x3=x1-x2:goto2090
  207. 2080 x3=x2-x1
  208. 2090 s=s+x3:ift$="1"thengosub4820
  209. 2100 nextw:ifs2=.goto2130
  210. 2110 print" ";mid$(wp$(c),11,15);" ";mid$(wp$(c),1,7);:x=s:gosub4090
  211. 2120 printright$(p$+x$,7);" ";:printde$:s1=s1+s:ift$="1"thende$=""
  212. 2130 nextc
  213. 2140 x$=str$(da):print:print"      [193]uftraege.....: ";right$(p$+x$,5);" [208]osten"
  214. 2150 x=s1:gosub4090:print"      [199]esamtunkosten: ";right$(p$+x$,8);"  [196][205]":print
  215. 2160 iff$="d"goto2180
  216. 2170 gosub4300:iff$="d"goto1970
  217. 2180 gosub440
  218. 2190 goto40
  219. 2200 f$="":gosub3920:gosub4210:gosub4640:gosub4740:gosub4240
  220. 2210 da=.:iff$="d"thenprintu$:print:goto2230
  221. 2220 printue$
  222. 2230 print" -[193]nzahl--[193]ktienname----[215][208][203][206]r----[196]u[203]urs ";
  223. 2240 iff$="d"thenprint"--[203]auftag--[200][214] am--[196]ividende--[196]epot-":print
  224. 2250 forc=1toz:s=.:s1=.:s2=.:ifmid$(wp$(c),40,1)="r"goto2430
  225. 2260 ift$="1"thende$=""
  226. 2270 gosub380:ifi=1goto2430
  227. 2280 forw=1toh:gosub400:ifi=2ori=3goto2370
  228. 2300 s=val(mid$(w$(w),32,7)):ifval(mid$(w$(w),49,10))<.thens=s*-1
  229. 2310 ifs<.thens2=s2+(s*(s2/s1))
  230. 2320 s1=s1+s
  231. 2330 gosub1900:ifi=4thenx=val(mid$(w$(w),49,10)):s2=s2-x:goto2370
  232. 2340 ifs<.goto2370
  233. 2350 s2=s2+(val(mid$(w$(w),39,10))*s):id$=mid$(w$(w),26,6)
  234. 2360 iff$="d"thenift$="1"thengosub4820
  235. 2370 nextw:s3=s3+s2:ifs1<=.goto2430
  236. 2380 x=s1:gosub4040:printright$(p$+x$,9);
  237. 2390 print" ";mid$(wp$(c),11,12);"  ";mid$(wp$(c),1,7);:da=da+1
  238. 2400 x=s2/s1:gosub4090:printright$(p$+x$,8);
  239. 2410 iff$<>"d"thenprint:goto2430
  240. 2420 print"   ";id$;"  ";mid$(wp$(c),26,6);"   ";mid$(wp$(c),34,6);"   ";de$
  241. 2430 nextc:x$=str$(da):ifda=.goto40
  242. 2440 print:print"      [199]esamtbestand:";right$(p$+x$,6);" [208]osten       ";:s1=.:s2=.
  243. 2450 x=s3:gosub4090:print"      [203]aufpreis    :";right$(p$+x$,10);" [196][205]":print:s3=.
  244. 2460 gosub440:ifi=5goto40
  245. 2470 gosub4730:goto40
  246. 2480 re=.:s=.:gosub3920:gosub4210:gosub4640:gosub4740:a=.:gosub4380:gosub3930
  247. 2490 gosub4240:iff$="d"thenprintu$:print:goto2510
  248. 2500 printue$
  249. 2510 print" -[193]nzahl--[193]ktienname--[215][208][203][206]r.----[203]urs----";
  250. 2520 print"-[203]urswert---[203]aufkurs---[197]rtrag-[210]endite--":print
  251. 2530 s3=.:s4=.:forc=1toz:s1=.:s2=.:s=.:s6=.:s7=.:ifmid$(wp$(c),40,1)="r"goto2750
  252. 2540 ift$="1"thende$=""
  253. 2550 gosub380:ifi=1goto2750
  254. 2560 forw=1toh:gosub400:ifi=2ori=3goto2670
  255. 2580 s=val(mid$(w$(w),32,7)):ifval(mid$(w$(w),49,10))<.thens7=s7+s:s=s*-1
  256. 2590 ifs<.thens2=s2+(s*(s2/s1))
  257. 2600 s1=s1+s:gosub1900
  258. 2610 ifi=4thenx=val(mid$(w$(w),49,10)):s2=s2-x:goto2670
  259. 2620 ifs<.goto2670
  260. 2630 s2=s2+(val(mid$(w$(w),39,10))*s):x1=val(ku$(c))
  261. 2640 x2=val(mid$(w$(w),39,10)):ifx2=.goto2670
  262. 2650 gosub4140:re=((x1-x2)*100*360)/(x2*tg)
  263. 2660 re=re*val(mid$(w$(w),32,7)):x=re:gosub4040:re=x:s6=s6+re
  264. 2670 nextw:s3=s3+(val(ku$(c))*s1):ifs1=<.goto2750
  265. 2680 x=s1:gosub4040:printright$(p$+x$,8);" ";mid$(wp$(c),11,12);" ";mid$(wp$(c),1,7);
  266. 2690 x=val(ku$(c)):gosub4090:printright$(p$+x$,8);" ";:x=val(ku$(c))*s1:gosub4090
  267. 2700 printright$(p$+x$,10);:x=.:ifs1>.thenx=s2/s1
  268. 2710 gosub4090:printright$(p$+x$,10);" ";:ifx=.goto2730
  269. 2720 x=(val(ku$(c))*s1)-s2:s4=s4+x
  270. 2730 gosub4090:printright$(p$+x$,9);
  271. 2740 x=s6/(s1+s7):gosub4090:printright$(p$+x$,9);" %"
  272. 2750 nextc
  273. 2760 x=s3:gosub4090:print:print"        [203]urswert   :";right$(p$+x$,12);" [196][205]";
  274. 2770 x=s4:gosub4090:print"           [199]esamtertrag :";right$(p$+x$,12);" [196][205]":print
  275. 2780 gosub440:ifi=5goto40
  276. 2790 gosub4730:goto40
  277. 2800 e=.:s=.:a=.:gosub3950:gosub4860:print"       [215]ert - / [210]enditeberechnung
  278. 2810 [153]"       usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr":[153]"     1wait  fuer eine neue atnktie
  279. 2820 print"     2[146]  fuer alle [193]ktien im [196]epot":print"     3[146]  [193]ktie aus diesem [196]epot
  280. 2830 [161]w$:[139]w$[179]"1"[176]w$[177]"3"[175]w$[179][177]"_"[137]2830
  281. 2840 f$[178]"":a[178][197](w$):[139]w$[178]"_"[137]40
  282. 2850 [139]a[178]2[137]2900
  283. 2860 [141]4210:[139]a[178]1[167][141]4230:[141]520:[137]2900
  284. 2870 [141]4860:[153]"    (NULL)ertpapierkennummer : totototototocmdcmdcmdcmdcmdcmd";:[141]290:l$[178]su$
  285. 2880 [139][197](l$)[178].[137]40
  286. 2890 [139]a[178]3[167][141]4790
  287. 2900 [141]4380:[153]ue$
  288. 2910 [129]w[178]1[164]h:[139]a[178]1[167]w[178]q:[137]2980
  289. 2920 [139]a[177]1[167][139][197]([202](w$(w),49,10))[179].[137]3270
  290. 2930 [141]1900:[139]i[178]4[137]3270
  291. 2940 [139]a[178]2[167][141]3310:[153]:[139]f$[178]"d"[137]2960
  292. 2950 [139]a[178]2[167][153]"  -->  ";[202](wp$(c),1,25);"wait <--":[137]3010
  293. 2960 [139]a[178]2[167][153]"  -->  ";[202](wp$(c),1,25);" <--":[137]3010
  294. 2970 [139]a[178]3[167][139][197]([202](w$(w),1,10))[179][177][197](l$)[137]3270
  295. 2980 [153]:[139]f$[178]"d"[167][153]"  -->  ";[202](w$(w),1,25);"  <--":[137]3000
  296. 2990 [153]"  -->  ";[202](w$(w),1,25);"wait  <--"
  297. 3000 [153]:[153]" --atnnzahl--(NULL)auftag----valrtrag--(NULL)endite--":[153]:[139]a[179][177]2[137]3030
  298. 3010 [153]:[153]" --atnnzahl---atnktienname---(NULL)(NULL)(NULL)(NULL)(NULL)--(NULL)auftag-";
  299. 3020 [153]"-(NULL)aufpreis--(NULL)urswert---valrtrag-(NULL)endite--":[153]
  300. 3030 x[178][197]([202](w$(w),32,7)):[141]4040:[153][201](p$[170]x$,9);" ";:[139]a[178]2[137]3050
  301. 3040 [153]"  ";:[153][202](w$(w),26,6);
  302. 3050 x1[178][197](l1$)[172][197]([202](w$(w),32,7))
  303. 3060 x2[178][197]([202](w$(w),32,7))[172][197]([202](w$(w),39,10))
  304. 3070 [139]a[178]2[137]3120
  305. 3080 x[178]x1[171]x2:[141]4090:[153][201](p$[170]x$,10);:[141]4140
  306. 3090 re[178]((x1[171]x2)[172]100[172]360)[173](x2[172]tg)
  307. 3100 x[178]re:[141]4090:[153][201](p$[170]x$,8);" %":[139]a[178]1[176]a[178]3[137]3200
  308. 3110 x[178][197]([202](w$(w),32,7)):[141]4040:[153][201](p$[170]x$,8);"   ";
  309. 3120 [153][202](w$(w),11,13);"  ";[202](w$(w),1,8);[202](w$(w),26,6);" ";
  310. 3130 x[178]x2:[141]4090:[153][201](p$[170]x$,10);
  311. 3140 x1[178][197](ku$(c))[172][197]([202](w$(w),32,7)):x[178]x1:[141]4090:[153][201](p$[170]x$,10);
  312. 3150 x3[178]x[171]([197]([202](w$(w),32,7))[172][197]([202](w$(w),39,10))):x[178]x3:[141]4090
  313. 3160 [153][201](p$[170]x$,9);
  314. 3170 x2[178][197]([202](w$(w),32,7))[172][197]([202](w$(w),39,10)):[141]4140
  315. 3180 re[178]((x1[171]x2)[172]100[172]360)[173](x2[172]tg):x[178]re:[141]4090
  316. 3190 [153][201](p$[170]x$,8);" %":[139]a[178]2[167]i[178][197](ku$(c))[171][197]([202](w$(w),39,10))
  317. 3200 [139]a[179][177]2[167]i[178][197](l1$)[171][197]([202](w$(w),39,10))
  318. 3210 x[178](i[172]100)[173][197]([202](w$(w),39,10)):[141]4090
  319. 3220 [153]:[153]"   left$eutiges str$atum: ";[202](ff$,1,2);".";[202](ff$,3,2);".";[202](ff$,5,2),
  320. 3230 [153]"             (NULL)ertsteigerung:";x$;" %":[153]:[153]
  321. 3240 [141]440:[139]i[178]5[167]c[178]z:w[178]h:[130]:[137]40
  322. 3250 [141]4300:[139]f$[178]"d"[167][139]a[179][177]2[167]w[178].:[153]"   ";u$:[137]2910
  323. 3260 [139]f$[178]"d"[167][139]a[178]2[167][153]"   ";u$:[137]2920
  324. 3270 [139]a[177]1[167][139]f$[179][177]"d"[167][153]ue$:[130]w
  325. 3280 [139]a[177]1[167][139]f$[178]"d"[167][130]w
  326. 3290 [139]a[178]1[167][141]1220
  327. 3300 [137]40
  328. 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]
  329. 3320 [130]:[142]
  330. 3330 [141]3970:[141]4210:[141]4860:[153]"   (NULL)ertpapierkennnr...:  ";:[141]290:w$[178]su$
  331. 3340 [139]w$[178]"_"[176][197](w$)[178].[167]w$[178]"":[137]40
  332. 3350 q[178]h:q[178]q[170]1:h[178]q
  333. 3360 [141]3710:[139]ss[177].[167]su$[178]w$:w$(q)[178][202](wp$(ss),1,25):[137]3380
  334. 3380 [153]"   str$waitividende / peekwaitezugsrecht / (NULL)waitinsen"
  335. 3390 [161]w$:[139]w$[179][177]"d"[175]w$[179][177]"b"[175]w$[179][177]"z"[175]w$[179][177]"_"[137]3390
  336. 3400 [139]w$[178]"_"[167]w$(q)[178]"":h[178]h[171]1:q[178]q[171]1:[137]3330
  337. 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    "
  338. 3420 [139]w$[178]"z"[167]su$[178]"  (NULL) right$ (NULL) (NULL) val (NULL)     wait    "
  339. 3430 [153]"on    ";su$;"          "
  340. 3440 [153]"   str$atum..............:";:[141]180
  341. 3450 [139]f$[178]"_"[167]w$(q)[178]"":f$[178]"":h[178]h[171]1:q[178]q[171]1:[137]3330
  342. 3460 x$[178]f$:[141]4520:f$[178]x$:[139]x$[178]""[167][153]"onononon":f$[178]"":[137]3440
  343. 3470 w$(q)[178]w$(q)[170]f$[170]w$:f$[178]""
  344. 3480 j$[178]"(NULL)insen insgesamt...":[139]w$[178]"d"[167]j$[178]"str$ividende insgesamt"
  345. 3490 [139]w$[178]"b"[167]j$[178]"peekezugsrecht insges."
  346. 3500 [153]"   ";j$;":  ";:[141]290:[153]"":[141]4700
  347. 3510 [139]w$[178]"_"[176]w$[178]"n"[167][153]"onononononononononononon":[137]3480
  348. 3520 f$[178][201](p$[170]su$,10):w$(q)[178]w$(q)[170]"      "[170]"          "[170]f$:[141]910
  349. 3525 [139]e$[178]"_"[167]q[178]q[171]1:h[178]h[171]1:[137]3330
  350. 3526 [137]40
  351. 3530 [141]3980:[141]4210:[141]4860:[153]"    (NULL)elche atnenderungen moechten (NULL)ie:"
  352. 3540 x[178]4:[153][163]x)"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr":x[178]5
  353. 3550 [153]:[153][163]x)" 1wait  atnktien aktivieren bzw. ruhen
  354. 3560 printtab(x)" 2[146]  [193]enderung der [211]tammdaten
  355. 3570 [153][163]x)" 3wait  (NULL) e u s t a r t"
  356. 3580 x[178].:[161]w$:[139]w$[179]"1"[176]w$[177]"3"[175]w$[179][177]"_"[137]3580
  357. 3590 [145][197](w$)[137]3600,3700,3670:[139]w$[178]"_"[137]40
  358. 3600 [153]ue$"       peek i t t e    w a r t e n  ! ":[139]i[178]6[167]i[178].:[142]
  359. 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
  360. 3620 x[178][197]([202](w$(w),32,7)):[139][197]([202](w$(w),49,10))[179].[167]x[178]x[172][171]1
  361. 3630 s[178]s[170]x
  362. 3640 [130]w:wp$(c)[178][202](wp$(c),1,39):[139]s[177].[167]wp$(c)[178]wp$(c)[170]"a":[137]3660
  363. 3650 wp$(c)[178]wp$(c)[170]"r"
  364. 3660 [130]c:[137]1310
  365. 3670 [141]4860:[153]"     (NULL)irklich alle str$aten loeschen ?":[141]4710
  366. 3680 [139]w$[178]"j"[167][156]:[137]10
  367. 3690 [137]40
  368. 3700 [141]4860:[153]"   (NULL)elche (NULL)ertpapiernr.: ";:[141]290:[139]su$[178]"_"[137]3530
  369. 3710 ss[178].:[129]x[178]1[164]z:[139][197]([202](wp$(x),1,10))[178][197](su$)[167]ss[178]x
  370. 3720 [130]:[139]ss[177].[137]3740
  371. 3730 [153]ue$"  (NULL)ummer nicht gespeichert bzw. falsch!":[141]4730:[137]40
  372. 3740 [139]a1$[178]"3"[176]a1$[178]"7"[167][142]
  373. 3745 [153]ue$"    peekitte nur atnenderungen eingebenclose!"
  374. 3750 [153]"   usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  375. 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)
  376. 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)
  377. 3780 [153]"   left$(NULL) am: ";[202](wp$(ss),26,6);[166]6);:[141]180:x[178]26:y[178]6:[141]3860
  378. 3785 [139]za[178].[167]f$[178]su$
  379. 3790 ne$[178]ne$[170][201](p$[170]f$,6)
  380. 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)
  381. 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)
  382. 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)
  383. 3830 qq[178]15:[153]ue$"      (NULL) e u wait":[153]ne$:[153]"      atn l t wait":[153]wp$(ss):[153]""
  384. 3840 [141]4700:[139]w$[179][177]"j"[137]3530
  385. 3850 wp$(ss)[178]ne$:[137]1310
  386. 3860 [139]za[178].[167][139]y$[178][199](13)[167]su$[178][202](wp$(ss),x,y)
  387. 3870 [139]su$[178]"_"[137]3530
  388. 3880 [142]
  389. 3890 [153][202](wp$(ss),x,y);[166]s);:[141]290:[141]3860:[142]
  390. 3900 u$[178]" (NULL) e r t p a p i e r d e p o t  ":[137]4020
  391. 3910 u$[178]"    str$closee p o t u m s a e t z e   ":[137]4020
  392. 3920 u$[178]"     str$closee p o t b e s t a n d    ":[137]4020
  393. 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]"."
  394. 3940 u$[178]u$[170][202](ff$,5,2):[137]4020
  395. 3950 u$[178]"(NULL) e r t - / (NULL) e n d i t e b e r.":[137]4020
  396. 3960 u$[178]"  val i n l e s e n / (NULL) a d e n   ":[137]4020
  397. 3970 u$[178]" val (NULL) str$   und   val (NULL) peek - valingaben ":[137]4020
  398. 3980 u$[178]"     atn e n d e r u n g e n      ":[137]4020
  399. 3990 u$[178]"    (NULL)  p  e  i  c  h  e  r  n   ":[137]4020
  400. 4000 u$[178]"     val  i  n  l  e  s  e  n     ":[137]4020
  401. 4010 u$[178]"        (NULL)  o  s  t  e  n        ":[137]4020
  402. 4020 ue$[178]"stopload                                        ":ue$[178]ue$[170]"    "[170]u$[170]"    "
  403. 4030 ue$[178]ue$[170]"                                        waitstop":[142]
  404. 4040 x[178][181](x[172]1000[170].5)[173]1000:x$[178][196](x):y[178][195](x$)
  405. 4050 [139][197](x$)[178][181]([197](x$))[167]x$[178]x$[170]".000":[142]
  406. 4060 [139][202](x$,y[171]1,1)[178]"."[167]x$[178]x$[170]"00"
  407. 4070 [139][202](x$,y[171]2,1)[178]"."[167]x$[178]x$[170]"0":[142]
  408. 4080 [142]
  409. 4090 x[178][181](x[172]100[170].5)[173]100
  410. 4100 x$[178][196](x):y[178][195](x$):w$[178][201](x$,3):[139][200](w$,1)[178]"."[167][142]
  411. 4110 [139][197](x$)[178][181]([197](x$))[167]x$[178]x$[170]".00":[142]
  412. 4120 [139][202](x$,y[171]1,1)[178]"."[167]x$[178]x$[170]"0":[142]
  413. 4130 [142]
  414. 4140 [139]a[178]1[167]x$[178][202](w$(w),26,6)
  415. 4150 [139]a[177]1[176]a[178].[167]x$[178][202](w$(w),26,6)
  416. 4160 j1[178]([197]([202](x$,5,2))[171]1)[172]360:j2[178]([197]([202](ff$,5,2))[171]1)[172]360
  417. 4170 m1[178]([197]([202](x$,3,2))[171]1)[172]30:m2[178]([197]([202](ff$,3,2))[171]1)[172]30
  418. 4180 t1[178] [197]([202](x$,1,2))[171]1:[139]t1[177]30[167]t1[178]30
  419. 4190 t2[178] [197]([202](ff$,1,2)):[139]t2[177]30[167]t2[178]30
  420. 4200 tg[178](j2[170]m2[170]t2)[171](j1[170]m1[170]t1):[142]
  421. 4210 [139]h[178].[167][153]ue$"        str$ atn (NULL) val (NULL)   l a d e n  !"
  422. 4220 [139]h[178].[167][129]t[178]1[164]400:[130]:w$[178]"e":[137]1300
  423. 4230 [142]
  424. 4240 [141]4860:[153]"     atnusgabe auf   str$wait rucker oder
  425. 4250 print"                   [194][146] ildschirm
  426. 4260 [161]w$:[139]w$[179][177]"b"[175]w$[179][177]"d"[175]w$[179][177]"_"[137]4260
  427. 4270 [139]w$[178]"d"[167]f$[178]"d":[159]4,4,7:[157]4:[153][199](27);[199](77);:[142]
  428. 4280 [139]w$[178]"b"[167]f$[178]"":[142]
  429. 4290 [137]40
  430. 4300 [139]f$[178]"d"[137]4330
  431. 4310 [153]"      str$ = str$ruck / (NULL)pace = weiter ! wait":[137]4330
  432. 4320 [153]"       _ = zurueck/ oder (NULL)aste ! wait"
  433. 4330 [161]f$:[139]f$[178]""[137]4330
  434. 4340 [139]f$[178]"_"[137]40
  435. 4350 [139]s$[178]"1"[167]f$[178]"":[142]
  436. 4360 [139]f$[178]"d"[167]c[178].:[159]4,4,7:[157]4:[153][199](27);[199](77);
  437. 4370 [142]
  438. 4380 [141]4860:[153]""
  439. 4390 [153]"    left$eutiges str$atum...:";:[141]180
  440. 4400 ff$[178]f$:[139]ff$[178]"_"[167]ff$[178]"":[137]40
  441. 4410 x$[178]ff$:[141]4520:ff$[178]x$:[139]ff$[178]""[137]4380
  442. 4420 [139]a[178]2[176]a[178].[137]4460
  443. 4430 [153]ue$"      ";:[139]a[178]1[167][153]" ";[202](w$(q),1,25);" wait"
  444. 4440 [139]a[178]3[167][153]"  ";l$;"wait"
  445. 4450 [153]"    (NULL)urs am heutigen (NULL)age: ";:[141]290:l1$[178]su$:[137]4510
  446. 4460 [129]x[178]1[164]z:[139][202](wp$(x),40,1)[178]"r"[137]4500
  447. 4470 c[178]x:[141]380:[139]i[178]1[137]4500
  448. 4480 [153]ue$"        ";[202](wp$(x),1,25);"wait":ku$(x)[178]""
  449. 4490 [153]"     (NULL)urs am heutigen (NULL)age: ";:[141]290:ku$(x)[178]su$
  450. 4500 [130]
  451. 4510 [142]
  452. 4520 [139][197]([202](x$,3,2))[178].[167]x$[178]"":[142]
  453. 4530 [139][197]([202](x$,1,2))[178].[167]x$[178]"":[142]
  454. 4540 [139][197]([202](x$,3,2))[177]12[167]x$[178]"":[142]
  455. 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
  456. 4560 [139][197]([202](x$,3,2))[178]11[137]4600
  457. 4570 [139][197]([202](x$,3,2))[178]2[137]4620
  458. 4580 [139][197]([202](x$,1,2))[177]31[167]x$[178]"":[142]
  459. 4590 [142]
  460. 4600 [139][197]([202](x$,1,2))[177]30[167]x$[178]"":[142]
  461. 4610 [142]
  462. 4620 [139][197]([202](x$,1,2))[177]29[167]x$[178]"":[142]
  463. 4630 [142]
  464. 4640 [141]4860:[153]"     1wait  atnngaben aus allen str$epots oder
  465. 4650 print"     2[146]  aus einem speziellen [196]epot ?
  466. 4660 [161]t$:[139]t$[179]"1"[176]t$[177]"2"[175]t$[179][177]"_"[137]4660
  467. 4670 [139]t$[178]"_"[137]40
  468. 4680 [139]t$[178]"2"[167][141]910
  469. 4690 [142]
  470. 4700 [153]"             (NULL) i c h e r  ?   wait":[137]4710
  471. 4710 [161]w$:[139]w$[179][177]"j"[167][139]w$[179][177]"n"[167][139]w$[179][177]"_"[137]4710
  472. 4720 [142]
  473. 4730 [153]"         peekitte (NULL)aste druecken !  wait":[151]198,0:[146]198,1:[142]
  474. 4740 [153]ue$"    1wait  alle verschiedenen (NULL)apiere bzw.
  475. 4750 print"    2[146]  nur eine bestimmte [193]rt ?
  476. 4760 [161]t1$:[139]t1$[179]"1"[176]t1$[177]"2"[137]4760
  477. 4770 [139]t1$[178]"2"[167][141]1080
  478. 4780 [142]
  479. 4790 [129]x[178]1[164]z
  480. 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)
  481. 4810 [130]:[142]
  482. 4820 [139][197](de$)[178].[167]de$[178]""
  483. 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
  484. 4840 [130]:de$[178][201](p$[170]de$[170]x$,6)
  485. 4850 [142]
  486. 4860 [153]ue$;"          _ = (NULL)chritt zurueck   wait":[142]
  487.