home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 12 / Commodore_Disc_12_19xx_-_de.d64 / aktienspiel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  14KB  |  459 lines
  1. 10 rem"[141][147]       das    aktienspielh.v.h.[144]
  2. 20 [143]      ---variablenbelegung---
  3. 30 [134]ka(11,4),kt(100,4):hh[178]1:b[178]53248:[151]b[170]21,0:si[178]54272
  4. 40 n1$(1)[178]"daimler-benz":n1$(2)[178]"bp":n1$(3)[178]"varta":n1$(4)[178]"volkswagen"
  5. 50 n2$(1)[178]"d-b":n2$(2)[178]"bp ":n2$(3)[178]"var":n2$(4)[178]"vw ":n2$(5)[178]"(NULL)  ":n2$(6)[178]"(NULL)(NULL)(NULL)"
  6. 60 n3$(1)[178]"+60":n3$(2)[178]"100":n3$(3)[178]" 2x":n3$(4)[178]"-40":n3$(5)[178]"-10":n3$(6)[178]"0.5"
  7. 70 n1(1)[178]6:n1(2)[178]10:n1(4)[178][171]4:n1(5)[178][171]1
  8. 80 [143]---bildschirmfarben + vorspann---
  9. 90 [151]53280,14:[151]53281,14:[151]646,0:[141]14000:[141]10000
  10. 95 sp[178]1:[141]6500:sp[178]ak
  11. 100 [143]     ---hauptmenue---
  12. 110 hh[178]1:sp[178]sp[170]1:[139]sp[178]as[170]1[167]sp[178]1
  13. 120 [141]6500
  14. 130 [141]1000:[141]1070:[151]b[170]21,255
  15. 140 [161]a$:[139]a$[178]""[167]140
  16. 150 [141]14020:[139]a$[178]"input"[167]2000
  17. 160 [139]a$[178]"dim"[167]3000
  18. 170 [139]a$[178]"read"[167]4000
  19. 180 [139]a$[178]"let"[167]5000
  20. 190 [139]a$[178]"^"[167]7000
  21. 200 [139]a$[178]"_"[167]12000
  22. 210 [137]140
  23. 1000 [143] ---aktienkursdarstellung---
  24. 1010 [141]14040:[153]"stopload":[129]q[178]210[164]10[169][171]10:[153]q;[163]16);q:[130]
  25. 1020 [153]"stoportantantan=tantan=tantan=tantan=tantan=tantantan^"
  26. 1030 [129]q[178]0[164]22:[153]"(NULL)(NULL)  stop(NULL)  stop(NULL)  stop(NULL)  stop(NULL)(NULL)":[130]
  27. 1040 [153]"/tantantan>tantan>tantan>tantan>tantan>tantantanexp"
  28. 1050 [129]q[178]1[164]4:[151]50298[170]po(q)[172]40[170]q[172]3,81:[151]50299[170]q[172]3[170]po(q)[172]40,87:[130]
  29. 1060 [142]
  30. 1070 [143]       ---menue---
  31. 1080 [153]""[163]25)"stoportantantantantan^"
  32. 1090 [153][163]25)"(NULL)menuestop(NULL)"
  33. 1100 [153][163]25)"/tantantantantanexp"
  34. 1110 [153][163]23)n$","
  35. 1120 [153][163]24)"ihre aktien:"
  36. 1130 [153][163]23)"da.-be.:stop";ku(1)
  37. 1140 [153][163]23)"bp     :stop";ku(2)
  38. 1150 [153][163]23)"varta  :stop";ku(3)
  39. 1160 [153][163]23)"vw     :stop";ku(4)
  40. 1170 [153][163]24)"ihr guthaben:stop"
  41. 1180 [153][163]23);gu;"dm"
  42. 1190 [153][163]24)"zug nr.stop"zu
  43. 1200 [153][163]23)"f1-ak. kaufen"
  44. 1210 [153][163]23)"stopf3-ak. verkaufen"
  45. 1220 [153][163]23)"stopf5-berechnungen"
  46. 1230 [153][163]23)"stopf7-zug beenden"
  47. 1240 [153][163]23)"stop^ -karten"
  48. 1250 [153][163]23)"stop_ -spiel beenden"
  49. 1260 [142]
  50. 2000 [143]    ---aktien kaufen---
  51. 2010 [141]1000
  52. 2020 [153]""[163]22)"stoportantantantantantantantantantantantantan^"
  53. 2030 [153][163]22)"(NULL)aktien kaufenstop(NULL)"
  54. 2040 [153][163]22)"/tantantantantantantantantantantantantanexp"
  55. 2050 [153][163]24)"ihre aktien:"
  56. 2060 [153][163]25)"da.-be.:stop";ku(1)
  57. 2070 [153][163]25)"bp     :stop";ku(2)
  58. 2080 [153][163]25)"varta  :stop";ku(3)
  59. 2090 [153][163]25)"vw     :stop";ku(4)
  60. 2100 [153][163]24)"ihr guthaben:stop"
  61. 2110 [153][163]23);gu;"dm"
  62. 2120 [153][163]23)"welche aktien"
  63. 2130 [153][163]23)"sollen gekauft"
  64. 2140 [153][163]23)"werden?"
  65. 2150 [153][163]24)"stopf1-daimler-benz"
  66. 2160 [153][163]24)"stopf3-bp"
  67. 2170 [153][163]24)"stopf5-varta  "
  68. 2180 [153][163]24)"stopf7-vw "
  69. 2190 [153][163]24)"stop^ -ende"
  70. 2200 [161]a$:[139]a$[178]""[167]2200
  71. 2210 i[178]0:[141]14020
  72. 2220 [139]a$[178]"input"[167]i[178]1
  73. 2230 [139]a$[178]"dim"[167]i[178]2
  74. 2240 [139]a$[178]"read"[167]i[178]3
  75. 2250 [139]a$[178]"let"[167]i[178]4
  76. 2260 [139]a$[178]"^"[167]130
  77. 2270 [139]i[178]0[167]2220
  78. 2280 [153]"onononononononononon":[129]q[178]0[164]8:[153][163]23)"                ":[130]
  79. 2290 [153]"ononononononononon"[163]23)"wievielestop"
  80. 2300 [153][163]23)n1$(i)
  81. 2310 [153][163]23)"aktien wollen"
  82. 2320 [153][163]23)"sie kaufen?"
  83. 2330 [153][163]24)"stopanzahl";:[133]an
  84. 2340 [139]((21[171]po(i))[172]10[172]an[177]gu)[175](an[177]0)[167][153]"onononon":[137]2330
  85. 2345 [139]an[179]0[167][153]"onononon":[137]2330
  86. 2347 [139]an[177]10000[167][153]"onononon":[137]2330
  87. 2350 [143]      ---berechnung---
  88. 2360 gu[178]gu[171](21[171]po(i))[172]10[172]an
  89. 2370 ku(i)[178]ku(i)[170]an
  90. 2380 [137]130
  91. 3000 [143]   ---aktien verkaufen---
  92. 3010 [141]1000
  93. 3020 [153]""[163]21)"stoportantantantantantantantantantantantantantantantan^"
  94. 3030 [153][163]21)"(NULL)aktien verkaufenstop(NULL)"
  95. 3040 [153][163]21)"stop/tantantantantantantantantantantantantantantantanexp"
  96. 3050 [153][163]24)"ihre aktien:"
  97. 3060 [153][163]23)"da.-be.:stop";ku(1)
  98. 3070 [153][163]23)"bp     :stop";ku(2)
  99. 3080 [153][163]23)"varta  :stop";ku(3)
  100. 3090 [153][163]23)"vw     :stop";ku(4)
  101. 3100 [153][163]24)"ihr guthaben:stop"
  102. 3110 [153][163]23);gu;"dm"
  103. 3120 [153][163]23)"welche aktien"
  104. 3130 [153][163]23)"sollen verkauft"
  105. 3140 [153][163]23)"werden?"
  106. 3150 [153][163]24)"stopf1-daimler-benz"
  107. 3160 [153][163]24)"stopf3-bp"
  108. 3170 [153][163]24)"stopf5-varta  "
  109. 3180 [153][163]24)"stopf7-vw "
  110. 3190 [153][163]24)"stop^ -ende "
  111. 3200 [161]a$:[139]a$[178]""[167]3200
  112. 3210 i[178]0:[141]14020
  113. 3220 [139]a$[178]"input"[167]i[178]1
  114. 3230 [139]a$[178]"dim"[167]i[178]2
  115. 3240 [139]a$[178]"read"[167]i[178]3
  116. 3250 [139]a$[178]"let"[167]i[178]4
  117. 3260 [139]a$[178]"^"[167]130
  118. 3270 [139](i[178]0)[167]3200
  119. 3280 [153]"onononononononononon":[129]q[178]0[164]8:[153][163]23)"                ":[130]
  120. 3290 [153]"ononononononononon"[163]23)"wievielestop"
  121. 3300 [153][163]23)n1$(i)
  122. 3310 [153][163]23)"aktien wollen"
  123. 3320 [153][163]23)"sie verkaufen?"
  124. 3330 [153][163]24)"stopanzahl";:[133]an
  125. 3340 [139]an[177]ku(i)[167][153]"onononon":[137]3330
  126. 3345 [139]an[179]0[167][153]"onononon":[137]3330
  127. 3350 [143]     ---berechnung---
  128. 3360 gu[178]gu[170](21[171]po(i))[172]10[172]an
  129. 3370 ku(i)[178]ku(i)[171]an
  130. 3380 [137]130
  131. 4000 [143]  ---kostenberechnungen---
  132. 4010 [141]1000:g[178]gu
  133. 4020 [153]""[163]23)"stoportantantantantantantantantantantantan^"
  134. 4030 [153][163]23)"stop(NULL)berechnungenstop(NULL)"
  135. 4040 [153][163]23)"stop/tantantantantantantantantantantantanexp"
  136. 4050 [153][163]24)"ihr guthaben:stop"
  137. 4060 [153][163]23);g;"dm"
  138. 4070 ga[178]gu:[129]q[178]1[164]4:ga[178]ga[170](21[171]po(q))[172]10[172]ku(q):[130]
  139. 4080 [153][163]24)"ihr guthaben +"
  140. 4090 [153][163]24)"aktienwerte"
  141. 4100 [153][163]23)"stop"ga"dm"
  142. 4110 [153][163]24)"stopf1-daimler-benz"
  143. 4120 [153][163]24)"stopf3-bp"
  144. 4130 [153][163]24)"stopf5-varta  "
  145. 4140 [153][163]24)"stopf7-vw "
  146. 4150 [153][163]24)"stop^ -ende"
  147. 4160 [161]a$:[139]a$[178]""[167]4160
  148. 4170 i[178]0:[141]14020
  149. 4180 [139]a$[178]"input"[167]i[178]1
  150. 4190 [139]a$[178]"dim"[167]i[178]2
  151. 4200 [139]a$[178]"read"[167]i[178]3
  152. 4210 [139]a$[178]"let"[167]i[178]4
  153. 4220 [139]a$[178]"^"[167]130
  154. 4230 [139]i[178]0[167]4160
  155. 4240 [153]"onononononononon":[129]q[178]0[164]7:[153][163]23)"                ":[130]
  156. 4250 [153]"ononononononon"[163]23)"wieviel dm"
  157. 4260 [153][163]23)"wuerden sie fuer"
  158. 4270 [153][163]23)"stop"n1$(i)
  159. 4280 [153][163]23)"aktien zahlen?"
  160. 4290 [153][163]24)"stopanzahl";:[133]an
  161. 4300 [139]an[177]gu[167][153]"ononon":[137]4290
  162. 4305 [139]an[179]0[167][153]"ononon":[137]4290
  163. 4310 sa[178](21[171]po(i))[172]10:g1[178][181](an[173]sa):g2[178]g1[172]sa
  164. 4320 [153][163]23)"onsie wuerden fuer"
  165. 4330 [153][163]22)"stop"g1"aktien"
  166. 4340 [153][163]22)"stop"g2"dm zahlen"
  167. 4350 [153][163]23)"und haetten"
  168. 4360 [153][163]22)"stop"g[171]g2"dm."
  169. 4370 [161]a$:[139]a$[178]""[167]4370
  170. 4380 [137]130
  171. 5000 [143]    ---karte legen---
  172. 5010 [151]b[170]21,0:[139]hh[178]2[167]6000
  173. 5020 hh[178]hh[170]1:[153]"load"
  174. 5030 [139]az[179]6[167][129]q[178]1[164]az:[141]5410
  175. 5040 [139]az[177]5[167][129]q[178]1[164]5:[141]5410:[130]:[153]"":[129]q[178]6[164]az:[141]5410
  176. 5050 [130]
  177. 5060 [153]:[153]"welche karte soll gelegt werden?stop  waitcmd";
  178. 5070 [161]a$:[139]a$[178]""[167]5070
  179. 5080 [139][198](a$)[179]65[176][198](a$)[177]64[170]az[167]5070
  180. 5090 [153]a$:[141]14020
  181. 5100 [139]([198](a$)[179]65)[176]([198](a$)[177]65[170]az)[167][153]"onononononononononononononon":[137]5060
  182. 5110 [153]"loadihre gewuenschte karte:":[153]"";:q[178][198](a$)[171]64:[141]5410
  183. 5120 [139](ka(q,1)[179][177]5)[175](ka(q,3)[179][177]5)[167][153]"":[137]5190
  184. 5130 [141]14020:[153]"stop1) daimler-benz"
  185. 5140 [153][163]15)"stop2) bp"
  186. 5150 [153][163]15)"stop3) varta  "
  187. 5160 [153][163]15)"stop4) vw "
  188. 5170 [139]ka(q,1)[178]5[167][133]"welche firma soll veraendert werdenstop";a1
  189. 5180 [143]   ---kursaenderungen---
  190. 5190 i1[178]ka(q,1):[139]ka(q,1)[178]5[167]i1[178]a1
  191. 5200 i2[178]n1(ka(q,2)):[139]ka(q,2)[178]3[167]i2[178]21[171]po(i1)
  192. 5210 [139]ka(q,3)[178]5[167][133]"welche firma soll veraendert werdenstop";a2
  193. 5220 i3[178]ka(q,3):[139]ka(q,3)[178]5[167]i3[178]a2
  194. 5230 i4[178]n1(ka(q,4)):[139]ka(q,4)[178]6[167]i4[178][171][181]((21[171]po(i3))[173]2)
  195. 5240 po(i1)[178]po(i1)[171]i2
  196. 5250 [139]ka(q,3)[178]6[167][141]5370
  197. 5260 [139]ka(q,3)[179]6[167]po(i3)[178]po(i3)[171]i4
  198. 5270 [129]w[178]q[170]1[164]az:[129]e[178]1[164]4:ka(w[171]1,e)[178]ka(w,e):[130]e,w
  199. 5280 [129]q[178]1[164]4:[139]po(q)[179]0[167][141]8000
  200. 5290 [130]
  201. 5300 [129]q[178]1[164]4:[139]po(q)[177]19[167][141]9000
  202. 5310 [130]
  203. 5320 az[178]az[171]1
  204. 5330 [139](az[178]0)[175](sp[178]as)[167]11000
  205. 5340 [153]"stoptaste!"
  206. 5350 [161]a$:[139]a$[178]""[167]5350
  207. 5360 [137]130
  208. 5370 [129]w[178]1[164]4:i(w)[178]n1(ka(q,4)):[139]ka(q,4)[178]6[167]i(w)[178][171][181]((21[171]po(w))[173]2)
  209. 5380 [130]:[129]w[178]1[164]4:po(w)[178]po(w)[171]i(w):[130]
  210. 5390 [139]ka(q,3)[178]6[167]po(i1)[178]po(i1)[170]i(i1)
  211. 5400 [142]
  212. 5410 [143] ---darstellung der karten---
  213. 5420 [153]"stoportantantantantantan^cmdcmdcmdcmdcmdcmdcmdcmd(NULL)      (NULL)cmdcmdcmdcmdcmdcmdcmdcmd(NULL)"n2$(ka(q,1));n3$(ka(q,2));
  214. 5430 [153]"stop(NULL)cmdcmdcmdcmdcmdcmdcmdcmd(NULL)      (NULL)cmdcmdcmdcmdcmdcmdcmdcmd-tantantantantantan<cmdcmdcmdcmdcmdcmdcmdcmd(NULL)      (NULL)cmdcmdcmd";
  215. 5440 [153]"cmdcmdcmdcmdcmd(NULL)"n2$(ka(q,3));n3$(ka(q,4))"stop(NULL)cmdcmdcmdcmdcmdcmdcmdcmd(NULL)      (NULL)cmdcmdcmdcmdcmdcmdcmdcmd";
  216. 5450 [153]"/tantantantantantanexpcmdcmdcmdcmd"[199](q[170]64)"ononononononononon";
  217. 5460 [142]
  218. 6000 [143]   ---spieler abspeichern---
  219. 6010 [159]2,8,2,"@:sp"[170][199](sp[170]48)[170]",s,w":[160]2:[141]13000
  220. 6020 [139]f1[177]0[167]6000
  221. 6030 [159]2,8,2,"@:sp"[170][199](sp[170]48)[170]",s,w"
  222. 6040 [152]2,n$:[152]2,gu:[152]2,az:[129]q[178]1[164]4:[152]2,ku(q):[130]
  223. 6050 [129]q[178]1[164]10:[129]w[178]1[164]4:[152]2,ka(q,w):[130]w,q:[160]2
  224. 6060 [159]3,8,3,"@:hauptdaten,s,w"
  225. 6070 [152]3,as:[152]3,ru[170]1:[152]3,sp[171]1:[129]q[178]1[164]4:[152]3,po(q):[130]:[160]3
  226. 6080 [137]100
  227. 6500 [143]   ---neuen spieler laden---
  228. 6510 [159]2,8,2,"sp"[170][199](sp[170]48)[170]",s,r":[160]2:[141]13000
  229. 6520 [139]f1[177]0[167]6100
  230. 6530 [159]2,8,2,"sp"[170][199](sp[170]48)[170]",s,r"
  231. 6540 [132]2,n$:[132]2,gu:[132]2,az:[129]q[178]1[164]4:[132]2,ku(q):[130]
  232. 6550 [129]q[178]1[164]10:[129]w[178]1[164]4:[132]2,ka(q,w):[130]w,q:[160]2
  233. 6560 [159]3,8,3,"hauptdaten,s,r"
  234. 6570 [132]3,as:[132]3,zu:[132]3,ak:[129]q[178]1[164]4:[132]3,po(q):[130]:[160]3
  235. 6580 [142]
  236. 7000 [143]   ---karten zeigen---
  237. 7010 [153]"load":[151]b[170]21,0
  238. 7020 [139]az[179]6[167][129]q[178]1[164]az:[141]5410
  239. 7030 [139]az[177]5[167][129]q[178]1[164]5:[141]5410:[130]:[153]"":[129]q[178]6[164]az:[141]5410
  240. 7040 [130]:[153]
  241. 7050 [153]"stoptaste!"
  242. 7060 [161]a$:[139]a$[178]""[167]7060
  243. 7070 [141]14020:[137]130
  244. 8000 [143]-gewinne anderer sp. berechnen-
  245. 8010 d[178][171]po(q):[129]w[178]1[164]as
  246. 8020 [139]w[178]sp[167]gu[178]gu[170]d[172]ku(q)[172]10:[137]8040
  247. 8030 [159]2,8,2,"sp"[170][199](w[170]48)[170]",s,r":[160]2:[141]13000
  248. 8040 [139]f1[177]0[167]8030
  249. 8050 [159]2,8,2,"sp"[170][199](w[170]48)[170]",s,r"
  250. 8060 [132]2,a2$:[132]2,g:[132]2,a3:[129]e[178]1[164]4:[132]2,k(e):[130]
  251. 8070 [129]r[178]1[164]10:[129]t[178]1[164]4:[132]2,a4(r,t):[130]t,r:[160]2
  252. 8080 [139]k(q)[177]0[167]g[178]g[170]d[172]k(q)[172]10:[141]8110
  253. 8090 [130]w
  254. 8100 po(q)[178]0:[142]
  255. 8110 [159]2,8,2,"@:sp"[170][199](w[170]48)[170]",s,w":[160]2:[141]13000
  256. 8120 [139]f1[177]0[167]8110
  257. 8130 [159]2,8,2,"@:sp"[170][199](w[170]48)[170]",s,w"
  258. 8140 [152]2,a2$:[152]2,g:[152]2,a3:[129]e[178]1[164]4:[152]2,k(e):[130]
  259. 8150 [129]r[178]1[164]10:[129]t[178]1[164]4:[152]2,a4(r,t):[130]t,r:[160]2
  260. 8160 [142]
  261. 9000 [143]-verluste anderer sp. berechnen-
  262. 9010 [129]w[178]1[164]as
  263. 9020 [139]w[178]sp[167]gu[178]gu[171]ku(q)[172]20:[137]9040
  264. 9030 [159]2,8,2,"sp"[170][199](w[170]48)[170]",s,r":[160]2:[141]13000
  265. 9040 [139]f1[177]0[167]9030
  266. 9050 [159]2,8,2,"sp"[170][199](w[170]48)[170]",s,r"
  267. 9060 [132]2,a2$:[132]2,g:[132]2,a3:[129]e[178]1[164]4:[132]2,k(e):[130]
  268. 9070 [129]r[178]1[164]10:[129]t[178]1[164]4:[132]2,a4(r,t):[130]t,r:[160]2
  269. 9080 [139]k(q)[177]0[167]g[178]g[171]k(q)[172]20:[141]9110
  270. 9090 [130]w
  271. 9100 po(q)[178]20:[142]
  272. 9110 [159]2,8,2,"@:sp"[170][199](w[170]48)[170]",s,w":[160]2:[141]13000
  273. 9120 [139]f1[177]0[167]9110
  274. 9130 [159]2,8,2,"@:sp"[170][199](w[170]48)[170]",s,w"
  275. 9140 [152]2,a2$:[152]2,g:[152]2,a3:[129]e[178]1[164]4:[152]2,k(e):[130]
  276. 9150 [129]r[178]1[164]10:[129]t[178]1[164]4:[152]2,a4(r,t):[130]t,r:[160]2
  277. 9160 [142]
  278. 10000 [143]      ---vorspann---
  279. 10010 [141]14020:[153]"load":[129]q[178]0[164]39:[151]1024[170]q,78:[151]1984[170]q,78
  280. 10020 [139]q[179]25[167][151]1024[170]q[172]40,78:[151]1063[170]q[172]40,78
  281. 10030 [130]:[153][199](142);[199](8)
  282. 10040 [153]"* * *  das  grosse  aktienspiel  * * *"
  283. 10045 [153][163]18)"das"
  284. 10050 [153]"(NULL)tanright$ right$(NULL) (NULL)=right$ * (NULL)tanright$ (NULL)right$(NULL) (NULL)tanright$ (NULL)tanright$ * (NULL)tanright$ right$"
  285. 10060 [153]"-tan< -(NULL)  (NULL)  (NULL) -tan  (NULL)(NULL)(NULL) mid$tanright$ -tan(NULL) (NULL) -tan  (NULL)"
  286. 10070 [153]"(NULL)closemid$tan(NULL)mid$tantan(NULL)tantan(NULL)tanmid$tan(NULL)tan(NULL)mid$(NULL)tanmid$tan(NULL)tan(NULL)tantantan(NULL)tanmid$tan(NULL)tanmid$tan(NULL)"
  287. 10080 [153][163]10)"geschrieben von"
  288. 10090 [153][163]14)"michael schlueter"
  289. 10100 [143]      ---sprites---
  290. 10110 [141]20000:[151]646,0
  291. 10120 [153]"load":[129]q[178]0[164]39:[151]1024[170]q,78:[151]1984[170]q,78
  292. 10130 [139]q[179]25[167][151]1024[170]q[172]40,78:[151]1063[170]q[172]40,78
  293. 10140 [130]
  294. 10150 [141]14020:[153]"* * *  das  grosse  aktienspiel  * * *"
  295. 10160 [153]"nun koennen sie endlich einmal ak-"
  296. 10170 [153]"tien kaufen und verkaufen, ohne geld"
  297. 10180 [153]"zu investieren. weiterhin koennen sie"
  298. 10190 [153]"an der boerse mitmischen und die ak-"
  299. 10200 [153]"tienkurse mit beeinflussen."
  300. 10210 [153]"viel vergnuegen!"
  301. 10220 [153]""[163]15)"michael schlueter"
  302. 10230 [153]"stop* * *  das  grosse  aktienspiel  * * *"
  303. 10240 [153][163]32)"h.v.h."
  304. 10250 [143]   ---neuer zeichensatz---
  305. 10260 [141]25000:[151]648,196:[151]53272,25:[151]56576,196:[153]"load"
  306. 10270 [129]q[178]1[164]48:[129]w[178]1[164]4:[135]kt(q,w):[130]w,q
  307. 10280 [153]"loadwollen sie ein angefangenes spiel wei-"
  308. 10290 [153]"ter spielen (j/n)? stop cmdwait";
  309. 10300 [161]a$:[139]a$[178]""[167]10300
  310. 10310 [141]14020:[153]a$:[139]a$[178]"j"[167][142]
  311. 10320 [143]---neues spiel vorbereiten---
  312. 10330 [153]"geben sie die anzahl der spieler ein:stop waitcmd";
  313. 10340 [161]an:[139]an[178]0[176]an[178]9[167]10340
  314. 10350 [153]an:[153]:[141]14020
  315. 10360 [129]i[178]1[164]an:[153]"wie heisst der"i"cmd. spieler:stop";:[133]n$(i):[130]
  316. 10370 [153]"sind alle angaben richtig (j/n) stop waitcmd";
  317. 10380 [161]a$:[139]a$[178]""[167]10380
  318. 10390 [141]14020:[153]a$:[139]a$[178]"n"[167]10280
  319. 10400 [129]i[178]1[164]an:[129]w[178]1[164]10:zz[178][181]([187](1)[172]48)[170]1:[129]e[178]1[164]4
  320. 10410 ka(w,e)[178]kt(zz,e):[130]e,w
  321. 10420 [159]2,8,2,"@:sp"[170][199](i[170]48)[170]",s,w":[160]2:[141]13000
  322. 10430 [139]f1[177]0[167]10420
  323. 10440 [159]2,8,2,"@:sp"[170][199](i[170]48)[170]",s,w"
  324. 10450 [152]2,n$(i):[152]2,500:[152]2,10:[129]q[178]1[164]4:[152]2,0:[130]
  325. 10460 [129]q[178]1[164]10:[129]w[178]1[164]4:[152]2,ka(q,w):[130]w,q:[160]2:[130]i
  326. 10470 [159]2,8,2,"@:hauptdaten,s,w"
  327. 10480 [152]2,an:[152]2,0:[152]2,0:[129]q[178]1[164]4:[152]2,11:[130]:[160]2
  328. 10490 [142]
  329. 11000 [143]   ---spielauswertung---
  330. 11010 [151]b[170]21,0:[153]"stoploads p i e l a u s w e r t u n g"
  331. 11020 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  332. 11030 [153]"";:[129]e[178]as[164]1[169][171]1
  333. 11040 [139]e[178]sp[167]11100
  334. 11050 [159]2,8,2,"sp"[170][199](e[170]48)[170]",s,r":[160]2:[141]13000
  335. 11060 [139]f1[177]0[167]11000
  336. 11070 [159]2,8,2,"sp"[170][199](e[170]48)[170]",s,r"
  337. 11080 [132]2,n$:[132]2,gu:[132]2,az:[129]q[178]1[164]4:[132]2,ku(q):[130]
  338. 11090 [129]q[178]1[164]10:[129]w[178]1[164]4:[132]2,ka(q,w):[130]w,q:[160]2
  339. 11100 [153]"spieler ";n$;" hat mit aktienwerten"
  340. 11110 [153][163]10)"stop";:za[178]0:[129]r[178]1[164]4:za[178]za[170]ku(r)[172](21[171]po(r))[172]10:[130]
  341. 11120 [153]za[170]gu"dm":[130]e:[153]"cont":[128]
  342. 12000 [143]---spiel vorzeitig beenden---
  343. 12010 [159]2,8,2,"@:sp"[170][199](sp[170]48)[170]",s,w":[160]2:[141]13000
  344. 12020 [139]f1[177]0[167]12000
  345. 12030 [159]2,8,2,"@:sp"[170][199](sp[170]48)[170]",s,w"
  346. 12040 [152]2,n$:[152]2,gu:[152]2,az:[129]q[178]1[164]4:[152]2,ku(q):[130]
  347. 12050 [129]q[178]1[164]10:[129]w[178]1[164]4:[152]2,ka(q,w):[130]w,q:[160]2
  348. 12060 [159]3,8,3,"@:hauptdaten,s,w"
  349. 12070 [152]3,as:[152]3,ru[170]1:[152]3,sp[171]1:[129]q[178]1[164]4:[152]3,po(q):[130]:[160]3
  350. 12080 [151]b[170]21,0:[153]"loadauf wiedesehen an der boerse!cont":[128]
  351. 13000 [143]   ---diskettenfehler---
  352. 13010 [159]1,8,15:[132]1,f1,f2$,f3,f4:[160]1
  353. 13020 [139]f1[178]0[167][142]
  354. 13030 [153]"load"
  355. 13040 [139]f1[177]20[175]f1[179]24[167][153][163]10)"lesefehler!"
  356. 13050 [139]f1[178]72[167][153][163]5)"diskette ist schon voll!"
  357. 13060 [139]f1[178]74[167][153][163]5)"bitte diskette einlegen!"
  358. 13070 [139]f1[178]62[167][153]"  richtige diskette einlegen!"
  359. 13080 [153]"stoptaste!"
  360. 13090 [161]a$:[139]a$[178]""[167]13090
  361. 13100 [142]
  362. 14000 [143]  ---noten vorbereiten---
  363. 14010 [151]si[170]5,2:[151]si[170]6,138:[151]si[170]24,15:[142]
  364. 14020 [143]   ---hoher ton---
  365. 14030 [151]si,0:[151]si[170]1,150:[151]si[170]4,17:[129]t[178]0[164]70:[130]:[151]si[170]4,16:[142]
  366. 14040 [143]   ---tiefer ton---
  367. 14050 [151]si,0:[151]si[170]1,20:[151]si[170]4,33:[129]t[178]1[164]200:[130]:[151]si[170]4,32:[142]
  368. 20000 [143]  ---sprites vorbereiten---
  369. 20010 [129]q[178]0[164]3:[129]w[178]0[164]63:[135]e:[151]49152[170]q[172]64[170]w,e:[130]w,q
  370. 20020 [129]q[178]0[164]3:[151]51192[170]q,q:[130]
  371. 20030 [151]b[170]39,0:[151]b[170]40,7:[151]b[170]41,6:[151]b[170]42,0
  372. 20040 [151]b,62:[151]b[170]2,84:[151]b[170]4,110:[151]b[170]6,134
  373. 20050 [129]q[178]0[164]3:[151]b[170]1[170]q[172]2,56:[130]:[142]
  374. 25000 [143]--neuen zeichensatz kopieren--
  375. 25010 [151]56334,0:[151]1,51
  376. 25020 [129]q[178]208[164]511:[151]57344[170]q,[194](53248[170]q):[130]
  377. 25030 [151]1,55:[151]56334,1
  378. 25040 [129]q[178]0[164]26:[129]w[178]0[164]7:[135]e:[151]57344[170]q[172]8[170]w,e:[130]w,q
  379. 25050 [129]q[178]1[164]23:[135]w:[129]e[178]0[164]7:[135]r:[151]57344[170]w[172]8[170]e,r:[130]e,q:[153]"load"
  380. 25060 [142]
  381. 29000 [143]     ---spritedaten---
  382. 30000 [131]1,248,0,7,254,0,30,39,128,48,32,192,32,32,64,96,32,96,96,32,96,192
  383. 30010 [131]112,48,192,112,48,192,112,48,192,248,48,193,252,48,195,142,48,102,2
  384. 30020 [131]96,108,1,96,56,0,192,48,0,192,30,7,128,7,254,0,1,248,0,0,0,0,0
  385. 30100 [131]127,255,254,128,0,1,128,0,1,159,3,225,153,131,49,152,195,25,152,195
  386. 30110 [131]25,152,195,25,152,195,25,153,131,25,159,3,241,159,131,193,152,195
  387. 30120 [131]1,152,99,1,152,99,1,152,99,1,152,195,1,159,131,1,128,0,1,128,0,1,127
  388. 30130 [131]255,254,0,0,0,0
  389. 30200 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,128,16,0,128,24,1,128,24,1,128,28
  390. 30210 [131]3,128,28,3,128,30,7,128,31,15,128,31,15,128,31,159,128,31,159,128
  391. 30220 [131]31,255,128,31,255,128,0,0,0,0,0,0,0
  392. 30300 [131]0,248,0,3,254,0,7,7,128,31,7,192,25,140,192,49,140,96,48,216,96,120
  393. 30310 [131]248,240,108,113,176,108,33,176,102,115,48,102,251,48,51,222,96,51,142
  394. 30320 [131]96,25,140,192,29,5,192,15,7,128,7,254,0,0,248,0,0,0,0,0,0,0,0
  395. 39000 [143]  ---zeichendaten---
  396. 40000 [131]60,102,110,110,96,98,60,0
  397. 40010 [131]14,17,17,31,34,34,102,0
  398. 40020 [131]28,18,18,28,34,34,124,0
  399. 40030 [131]14,17,16,32,32,34,28,0
  400. 40040 [131]30,17,17,17,34,34,124,0
  401. 40050 [131]31,16,16,28,32,32,124,0
  402. 40060 [131]15,16,16,30,32,32,96,0
  403. 40070 [131]30,33,32,70,66,66,60,0
  404. 40080 [131]17,17,17,31,34,34,102,0
  405. 40090 [131]6,4,4,4,8,8,24,0
  406. 40100 [131]3,2,2,4,4,36,24,0
  407. 40110 [131]49,18,18,28,36,34,98,0
  408. 40120 [131]24,16,16,16,32,34,126,0
  409. 40130 [131]17,21,21,21,34,34,102,0
  410. 40140 [131]25,25,21,21,38,38,102,0
  411. 40150 [131]14,17,17,33,34,34,28,0
  412. 40160 [131]30,17,17,30,32,32,96,0
  413. 40170 [131]30,33,33,65,70,70,62,0
  414. 40180 [131]30,17,17,30,36,34,98,0
  415. 40190 [131]14,17,16,12,2,34,28,0
  416. 40200 [131]63,8,8,8, 16,16,48,0
  417. 40210 [131]17,17,17,33,34,34,28,0
  418. 40220 [131]34,34,36,36,40,40,48,0
  419. 40230 [131]65,65,73,90,90,90,102,0
  420. 40240 [131]34,34,36,24,24,36,68,68
  421. 40250 [131]34,34,20,8,8,16,48,0
  422. 40260 [131]62,36,8,16,32,68,124,0
  423. 40270 [131]81,0,31,63,63,63,63,31,0
  424. 40280 [131]87,0,248,252,252,252,252,248,0
  425. 40290 [131]110,0,254,254,6,6,230,230,102
  426. 40300 [131]112,0,127,127,96,96,103,103,102
  427. 40310 [131]125,102,230,230,6,6,254,254,0
  428. 40320 [131]113,102,255,255,0,0,255,255,0
  429. 40330 [131]114,0,255,255,0,0,255,255,102
  430. 40340 [131]115,102,230,230,102,102,230,230,102
  431. 40350 [131]107,102,103,103,102,102,103,103,102
  432. 40360 [131]93,102,102,102,102,102,102,102,102
  433. 40370 [131] 64,0,255,255,0,0,255,255,0
  434. 40380 [131]48,28,34,38,42,50,34,28,0
  435. 40390 [131]49,8,8,24,8,8,8,28,0
  436. 40400 [131]50,28,34,2,12,16,32,62,0
  437. 40410 [131]51,28,34,2,12,2,34,28,0
  438. 40420 [131]52,2,6,10,18,31,2,2,0
  439. 40430 [131]54,28,34,32,60,34,34,28,0
  440. 40440 [131]55,62,34,4,8,8,8,8,0
  441. 40450 [131]56,28,34,34,28,34,34,28,0
  442. 40460 [131]57,28,34,34,30,2,34,28,0
  443. 40470 [131]53,62,32,60,2,2,34,28,0
  444. 40480 [131]109,102,103,103,96,96,127,127,0
  445. 40490 [131]160,0,0,0,0,0,0,0,255
  446. 49000 [143]    ---kartendaten---
  447. 50000 [131]1,1,2,4,1,1,3,4,1,1,4,4,1,1,6,4
  448. 50010 [131]3,1,2,4,2,1,3,4,3,1,4,4,3,1,6,4
  449. 50020 [131]4,1,2,4,4,1,3,4,2,1,4,4,4,1,6,4
  450. 50030 [131]5,1,2,4,5,1,3,4,5,1,4,4,5,1,6,4
  451. 50040 [131]1,2,2,5,1,2,3,5,1,2,4,5,1,2,6,5
  452. 50050 [131]3,2,2,5,2,2,3,5,3,2,4,5,3,2,6,5
  453. 50060 [131]4,2,2,5,4,2,3,5,2,2,4,5,4,2,6,5
  454. 50070 [131]5,2,2,5,5,2,3,5,5,2,4,5,5,2,6,5
  455. 50080 [131]1,3,2,6,1,3,3,6,1,3,4,6,1,3,6,6
  456. 50090 [131]3,3,2,6,2,3,3,6,3,3,4,6,3,3,6,6
  457. 50100 [131]4,3,2,6,4,3,3,6,2,3,4,6,4,3,6,6
  458. 50110 [131]5,3,2,6,5,3,3,6,5,3,4,6,5,3,6,6
  459.