home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 40 / Commodore_Disc_40_19xx_-_de.d64 / handelsfahrt (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  12.7 KB  |  588 lines
  1. 10 rem handelsfahrt =========c64
  2. 20 rem (p) commodore disc
  3. 30 rem =========================
  4. 40 rem (c) claus-d. heineck v3.5
  5. 50 rem (v) a.mittelmeyer    v2.0
  6. 60 rem
  7. 70 rem basic v2.0
  8. 80 rem c64
  9. 90 rem =========================
  10. 100 gosub 5750:goto110
  11. 101 geta$:ifa$=""then101
  12. 102 return
  13. 110 fori=1to22:qq$=qq$+c4$:next:qq$=qq$+"          [145]":ql$=""
  14. 120 fori=1to7:ql$=ql$+c1$:next
  15. 130 printchr$(14):printchr$(147);:poke53281,6:poke53280,6:poke646,7
  16. 140 printtab(128)"[196][201][197]"s2$"[199][210][207][211][211][197]"s2$"[200][193][206][196][197][204][211][198][193][200][210][212]
  17. 150 [153]"       ";:xx$[178]zn$:zz[178]25:[141]5720:[153]
  18. 160 [153][163]135)"(NULL)ritten by"
  19. 170 [153][163]52)"lenlaus-str$  left$eineck"
  20. 180 [153][163]240)" "rn$fl$"str$ein (NULL)ame"fo$;rf$
  21. 190 [153]
  22. 200 [133]ne$
  23. 210 [129]x[178]1[164]1000:[130]
  24. 220 [141]5540
  25. 230 ru[178]0
  26. 240 g[178]10[172][181]([187](1)[172]90)
  27. 250 [139]g[179]350[176]g[177]750[167]240
  28. 260 sc[178]100[172][181]([187](1)[172]100)
  29. 270 [139]sc[179]4000[176]sc[177]9000[167]260
  30. 280 a[178]0:w[178]0:k[178]0:r[178]0:e[178]0:ru[178]0:lp[178]50:ke[178]0:xg[178]0:se$[178]"1"
  31. 290 [141]5450
  32. 300 [141]5340
  33. 310 [153]he$
  34. 320 [153][163]240):[153][163]240)
  35. 330 [153][163]80)fl$"str$ruecke"fo$"             (NULL)reise:"
  36. 340 [153]"              "
  37. 350 [153]"1 fuer (NULL)aufen       atnllgemeines \"
  38. 360 [153]"2 fuer (NULL)erk         (NULL)affen      \"
  39. 370 [153]"3 fuer (NULL)egeln       (NULL)ohle       \"
  40. 380 [153]"4 fuer peekank-        (NULL)um         \"
  41. 390 [153]"       besuch       valdelsteine  \"
  42. 400 [153][163]80)"             "
  43. 410 [153]he$
  44. 420 [153][163]131);s$
  45. 430 [153][163]51)"       "ql$;g
  46. 440 [153][163]51)"      "[200](ql$,6);sc
  47. 450 [153][163]51)"    "[200](ql$,4);lp
  48. 460 [153]he$
  49. 470 [153][163]232)"    "c1$c1$c1$;a
  50. 480 [153][163]32)"    "c1$c1$c1$;w
  51. 490 [153][163]32)"    "c1$c1$c1$;k
  52. 500 [153][163]32)"    "c1$c1$c1$;r
  53. 510 [153][163]32)"    "c1$c1$c1$;e
  54. 520 [153][163]233);p(1)
  55. 530 [153][163]33);p(2)
  56. 540 [153][163]33);p(3)
  57. 550 [153][163]33);p(4)
  58. 560 [153][163]33);p(5)
  59. 570 [153]he$
  60. 580 [153][163]240):[153][163]240)
  61. 590 [153][163]80)fl$"str$ruecke"fo$"     "
  62. 600 [153][163]40)"1 fuer (NULL)aufen "
  63. 610 [153]"2 fuer (NULL)erk   "
  64. 620 [153]"3 fuer (NULL)egeln "
  65. 630 [139]se$[177]"1"[167][137] 5510
  66. 640 [153]"4 fuer peekank-  "
  67. 650 [153]"       besuch "
  68. 660 [143]      printtab(80)"           "
  69. 670 [161]d$
  70. 680 [139]se$[177]"1"[175]d$[177]"3"[167]670
  71. 690 [139]d$[178]"1"[175]lp[177]0[167]740
  72. 700 [139]d$[178]"2"[175]lp[179]50[167]1200
  73. 710 [139]d$[178]"3"[167]1660
  74. 720 [139]d$[178]"4"[167]1920
  75. 730 [137]670
  76. 740 [153]he$
  77. 750 [153][163]240):[153][163]240)
  78. 760 [153][163]80)"(NULL)as willst str$u "
  79. 770 [153][163]40)"kaufen ?      "
  80. 780 [153]"             "
  81. 790 [153]"(a/w/k/r/e)  "
  82. 800 [153]"             "
  83. 810 [153]"             "
  84. 820 [161]k$
  85. 830 [139]k$[179][177]"a"[175]k$[179][177]"w"[175]k$[179][177]"k"[175]k$[179][177]"r"[175]k$[179][177]"e"[167]820
  86. 840 [139]k$[178]"a"[167]p[178]p(1)
  87. 850 [139]k$[178]"w"[167]p[178]p(2)
  88. 860 [139]k$[178]"k"[167]p[178]p(3)
  89. 870 [139]k$[178]"r"[167]p[178]p(4)
  90. 880 [139]k$[178]"e"[167]p[178]p(5)
  91. 890 [153]he$
  92. 900 [153][163]240):[153][163]240)
  93. 910 [153][163]80)"(NULL)ieviel willst"
  94. 920 [153][163]40)"str$u kaufen ?    "
  95. 930 [153][163]40)"              "
  96. 940 [153][163]160)"              "
  97. 950 [153]he$:[153]qq$:[133]ka
  98. 960 [139]ka[177]50[167]890
  99. 970 [139]ka[177]lp[167][141]1130
  100. 980 [139](ka[172]p)[177]g[167]1070
  101. 990 g[178]g[171](ka[172]p)
  102. 1000 lp[178]lp[171]ka
  103. 1010 [139]k$[178]"a"[167]a[178]a[170]ka
  104. 1020 [139]k$[178]"w"[167]w[178]w[170]ka
  105. 1030 [139]k$[178]"k"[167]k[178]k[170]ka
  106. 1040 [139]k$[178]"r"[167]r[178]r[170]ka
  107. 1050 [139]k$[178]"e"[167]e[178]e[170]ka
  108. 1060 [137]310
  109. 1070 [153]he$
  110. 1080 [153][163]240):[153][163]240)
  111. 1090 [153][163]80)"str$u hast nicht "
  112. 1100 [153][163]40)"genug chr$eld !  "
  113. 1110 [129]x[178]1[164]1500:[130]
  114. 1120 [137]890
  115. 1130 [153]he$
  116. 1140 [153][163]240):[153][163]240)
  117. 1150 [153][163]80)"str$u hast keinen"
  118. 1160 [153][163]40)"(NULL)latz fuer";ka;"!"
  119. 1170 [153][163]160)
  120. 1180 [129]x[178]0[164]1500:[130]
  121. 1190 [137]890
  122. 1200 [153]he$
  123. 1210 [153][163]240):[153][163]240)
  124. 1220 [153][163]80)"(NULL)as willst str$u "
  125. 1230 [153][163]40)"verkaufen ?  "
  126. 1240 [153]"             "
  127. 1250 [153]"(a/w/k/r/e)  "
  128. 1260 [153]"             "
  129. 1270 [153]"             "
  130. 1280 [161]v$
  131. 1290 [139]v$[179][177]"a"[175]v$[179][177]"w"[175]v$[179][177]"k"[175]v$[179][177]"r"[175]v$[179][177]"e"[167]1280
  132. 1300 [139]v$[178]"a"[167]p[178]p(1)
  133. 1310 [139]v$[178]"w"[167]p[178]p(2)
  134. 1320 [139]v$[178]"k"[167]p[178]p(3)
  135. 1330 [139]v$[178]"r"[167]p[178]p(4)
  136. 1340 [139]v$[178]"e"[167]p[178]p(5)
  137. 1350 [153]he$
  138. 1360 [153][163]240):[153][163]240)
  139. 1370 [153][163]80)"(NULL)ieviel willst"
  140. 1380 [153][163]40)"str$u verkaufen ?"
  141. 1390 [153][163]40)"              "
  142. 1400 [153][163]160)"             "
  143. 1410 [153]he$:[153]qq$:[133]vn
  144. 1420 [139]vn[177]50[167]1350
  145. 1430 [139]v$[178]"a"[175]vn[177]a[167]1570
  146. 1440 [139]v$[178]"w"[175]vn[177]w[167]1570
  147. 1450 [139]v$[178]"k"[175]vn[177]k[167]1570
  148. 1460 [139]v$[178]"r"[175]vn[177]r[167]1570
  149. 1470 [139]v$[178]"e"[175]vn[177]e[167]1570
  150. 1480 [136]g[178]g[170](p[172]vn)
  151. 1490 [136]lp[178]lp[170]vn
  152. 1500 [139]v$[178]"a"[167]a[178]a[171]vn
  153. 1510 [139]v$[178]"w"[167]w[178]w[171]vn
  154. 1520 [139]v$[178]"k"[167]k[178]k[171]vn
  155. 1530 [139]v$[178]"r"[167]r[178]r[171]vn
  156. 1540 [139]v$[178]"e"[167]e[178]e[171]vn
  157. 1550 [139]g[177][178]800000[167]5130
  158. 1560 [137]310
  159. 1570 [153]he$
  160. 1580 [153][163]240):[153][163]240)
  161. 1590 [153][163]80)"str$u hast keine "
  162. 1600 [153][163]40)"    an peekord ! "
  163. 1610 [153]he$
  164. 1620 [153][163]240):[153][163]240)
  165. 1630 [153][163]160);vn
  166. 1640 [129]x[178]0[164]1500:[130]
  167. 1650 [137]1350
  168. 1660 [136]ru[178]ru[170]1
  169. 1670 [136]xg[178]0
  170. 1680 [153]he$
  171. 1690 [153][163]240):[153][163]240)
  172. 1700 [153][163]80)"(NULL)taedte:  "
  173. 1710 [153][163]40)"1 (NULL)wansea    "
  174. 1720 [153]"2 (NULL)iverpool "
  175. 1730 [153]"3 (NULL)ondon     "
  176. 1740 [153]"4 (NULL)ewcastle "
  177. 1750 [153]"5 (NULL)outhampton"
  178. 1760 [153]
  179. 1770 [161]se$
  180. 1780 [139]se$[179]"1"[176]se$[177]"5"[167]1770
  181. 1790 [139]s$[178]" (NULL)wansea"[175]se$[178]"1"[167]1770
  182. 1800 [141]5450
  183. 1810 [139]ru[178]5[176]ru[178]10[176]ru[178]15[167]4870
  184. 1820 [139][187](1)[177].22[175][187](1)[179].3[167] 3520
  185. 1830 [139][187](1)[179].15[167] 4250
  186. 1840 [139][187](1)[177].55[175][187](1)[179].65[167] 4480
  187. 1850 [139][187](1)[177].45[175][187](1)[179].55[167] 2530
  188. 1860 [139][187](1)[177].35[175][187](1)[179].45[167] 3290
  189. 1870 [139][187](1)[177].80 [175] sc[177]0 [167] 4710
  190. 1871 [137]1810
  191. 1880 [141]5540
  192. 1890 [136]sc[178][181](1.12[172]sc)
  193. 1900 [139]sc[177][178]25000[167]5650
  194. 1910 [137]300
  195. 1920 [153]he$
  196. 1930 [153][163]240):[153][163]240)
  197. 1940 [153][163]80)"(NULL)illst str$u chr$eld "
  198. 1950 [153][163]40)fl$"l"fo$"eihen oder "fl$"z"fo$"u-"
  199. 1960 [153]"              "
  200. 1970 [153]"rueckzahlen ? "
  201. 1980 [153]"              "
  202. 1990 [153]"              "
  203. 2000 [153][163]80)"          "
  204. 2010 [161]lz$
  205. 2020 [139]lz$[179][177]"l"[175]lz$[179][177]"z"[167]2010
  206. 2030 [139]lz$[178]"l"[175]xg[177]0[167]2160
  207. 2040 [139]lz$[178]"l"[167]2260
  208. 2050 [153]he$
  209. 2060 [153][163]240):[153][163]240)
  210. 2070 [153][163]80)"(NULL)ieviel willst "
  211. 2080 [153][163]40)"str$u zurueckzah-   "
  212. 2090 [153][163]40)"len ?          "
  213. 2100 [153][163]160)"              "
  214. 2110 [153]he$:[153]qq$:[133]zu
  215. 2120 [139]zu[177]g [176]zu[177]sc[167]2050
  216. 2130 [136]sc[178]sc[171]zu
  217. 2140 [136]g[178]g[171]zu
  218. 2150 [137]310
  219. 2160 [153]he$
  220. 2170 [153][163]240):[153][163]240)
  221. 2180 [153][163]80)rn$"str$u kannst pro "rf$"  "
  222. 2190 [153]rn$"ascahrt nur ein-"rf$"  "
  223. 2200 [153]rn$"mal leihen !  "rf$"  "
  224. 2210 [153]"               "
  225. 2220 [153]"               "
  226. 2230 [153][163]120)
  227. 2240 [129]x[178]0[164]2000:[130]
  228. 2250 [137]310
  229. 2260 [153]he$
  230. 2270 [153][163]240):[153][163]240)
  231. 2280 [153][163]80)"(NULL)ieviel willst "
  232. 2290 [153][163]40)"str$u leihen ?     "
  233. 2300 [153][163]40)"             "
  234. 2310 [153][163]120)
  235. 2320 [136]xg[178]xg[170]1
  236. 2330 [153]he$:[153]qq$:[133]le
  237. 2340 [136]li[178]100[172][181]([187](1)[172]50)[170]1000
  238. 2350 [139]li[179]1000[167]2340
  239. 2360 [139]le[177]li[167]2400
  240. 2370 [136]sc[178]sc[170]le
  241. 2380 [136]g[178]g[170]le
  242. 2390 [137]310
  243. 2400 [153]he$
  244. 2410 [153][163]240)
  245. 2420 [153][163]240)
  246. 2430 [153][163]80)"str$as (NULL)imit ist "
  247. 2440 [153][163]40)"\      !      "
  248. 2450 [153]he$
  249. 2460 [153][163]240)
  250. 2470 [153][163]240)
  251. 2480 [153][163]161);li
  252. 2490 [136]sc[178]sc[170]li
  253. 2500 [136]g[178]g[170]li
  254. 2510 [129]x[178]0[164]1700:[130]
  255. 2520 [137]310
  256. 2530 [153][199](147);:[151]53280,2:[151]53281,2:[151]646,7
  257. 2540 [153][163]240)
  258. 2550 [153][163]129)"*** (NULL)"s2$"right$"s2$"(NULL)"s2$"atn"s2$"(NULL)"s2$"val"s2$"(NULL) ***"
  259. 2560 [141]101
  260. 2570 [139]ke[178]1[167]2850
  261. 2580 [139][187](1)[177].5[167]3210
  262. 2590 [139]lp[178]50[167]2730
  263. 2600 [153][199](147);
  264. 2610 [153][163]240)
  265. 2620 [153][163]130)"(NULL)iraten haben uns"
  266. 2630 [153][163]50)"ueberfallen und die"
  267. 2640 [153][163]50)"ganze (NULL)adung an sich"
  268. 2650 [153][163]50)"genommen "
  269. 2660 [141]101
  270. 2670 [136]lp[178]50
  271. 2680 [136]a[178]0
  272. 2690 [136]w[178]0
  273. 2700 [136]k[178]0
  274. 2710 [136]r[178]0
  275. 2720 [136]e[178]0
  276. 2730 [153][199](147);
  277. 2740 [136]x[178][181]([187](1)[172]10)[170]3
  278. 2750 [153][163]250)"(NULL)aehrend der (NULL)chlacht"
  279. 2760 [153][163]50)"sind";x;"str$einer (NULL)ann-"
  280. 2770 [153][163]50)"schaft verwundet wor-"
  281. 2780 [153][163]50)"den str$ie left$eilung durch"
  282. 2790 [153][163]50)"einen str$oktor kostet"
  283. 2800 [153][163]50)"str$ich je (NULL)erletzten \75 "
  284. 2810 [141]101
  285. 2820 [136]g[178]g[171]75[172]x
  286. 2830 [139]g[179]0[167]3070
  287. 2840 [137]1880
  288. 2850 [153][199](147);
  289. 2860 [153][163]240)
  290. 2870 [153][163]130)"str$eine (NULL)annschaft be-"
  291. 2880 [153][163]50)"nutzt die (NULL)anone vom"
  292. 2890 [153][163]50)"schwarzen mid$ack "
  293. 2900 [141]101
  294. 2910 [153][199](147);
  295. 2920 [139][187](1)[177].3[167]3000
  296. 2930 [153][163]240)
  297. 2940 [153][163]130)"str$ie (NULL)anone ist leider"
  298. 2950 [153][163]50)"kaputt !"
  299. 2960 [141]101
  300. 2970 [153][199](147);
  301. 2980 [136]ke[178]0
  302. 2990 [137]2610
  303. 3000 [153][163]240)
  304. 3010 [153][163]90)"str$ie (NULL)anone hat das"
  305. 3020 [153][163]50)"(NULL)iratenschiff ver-"
  306. 3030 [153][163]50)"senkt !"
  307. 3040 [153][163]50)"(chr$ut gemacht,mid$ungs!)"
  308. 3050 [141]101
  309. 3060 [137]1880
  310. 3070 [153][199](147);:[151]53280,0:[151]53281,0:[151]646,0
  311. 3080 [153][163]130)"str$a str$u nicht genuegend"
  312. 3090 [153][163]50)"chr$eld hattest,den str$ok-"
  313. 3100 [153][163]50)"tor zu bezahlen,hat"
  314. 3110 [153][163]50)"str$eine (NULL)annschaft ge-"
  315. 3120 [153][163]50)"meutert und das (NULL)chiff"
  316. 3130 [153][163]50)"verkauft,um die (NULL)ech-"
  317. 3140 [153][163]50)"nung bezahlen zu koen-"
  318. 3150 [153][163]50)"nen                  "
  319. 3160 [153][163]92)"(NULL)imm's leicht!"
  320. 3170 [141]101
  321. 3180 [153][199](147);
  322. 3190 [153][163]255)"val"s2$"(NULL)"s2$"str$"s2$"val"
  323. 3200 [137]5260
  324. 3210 [153][199](147);
  325. 3220 [153][163]240)
  326. 3230 [153][163]130)"str$ie (NULL)iraten haben"
  327. 3240 [153][163]50)"nicht angegriffen,"
  328. 3250 [153][163]50)"und du kannst wei-"
  329. 3260 [153][163]50)"fahren !"
  330. 3270 [141]101
  331. 3280 [137]1880
  332. 3290 [153][199](147);:[151]53280,5:[151]53281,5:[151]646,7
  333. 3300 [153][163]240)
  334. 3310 [153][163]211)"*** (NULL)"s2$"(NULL)"s2$"(NULL)"s2$"(NULL)"s2$"(NULL)"s2$"***"
  335. 3320 [141]101
  336. 3330 [139][187](1)[177].5[176]lp[178]50[167]3450
  337. 3340 [153][199](147);
  338. 3350 [153][163]240)
  339. 3360 [153][163]90)"valin (NULL)turm ist aufge-"
  340. 3370 [153][163]50)"kommen,und wir mues-"
  341. 3380 [153][163]50)"sen ueber die left$aelfte"
  342. 3390 [153][163]50)"der (NULL)adung ueber peekord"
  343. 3400 [153][163]50)"werfen ! (schade drum)"
  344. 3410 lp[178]lp[170](a[171][181](a[173]2))[170](w[171][181](w[173]2))[170](k[171][181](k[173]2))[170](r[171][181](r[173]2))[170](e[171][181](e[173]2))
  345. 3420 [141]101
  346. 3430 a[178][181](a[173]2):w[178][181](w[173]2):k[178][181](k[173]2):r[178][181](r[173]2):e[178][181](e[173]2)
  347. 3440 [137]1880
  348. 3450 [153][199](147);
  349. 3460 [153][163]240)
  350. 3470 [153][163]90)"str$er (NULL)turm hat sofort"
  351. 3480 [153][163]50)"aufgehoert , und du"
  352. 3490 [153][163]50)"kannst weiterfahren "
  353. 3500 [141]101
  354. 3510 [137]1880
  355. 3520 [153][199](147);:[151]53281,9:[151]53280,9:[151]646,0
  356. 3530 [153][163]240)
  357. 3540 [153][163]125)"*** (NULL) atn"s2$"(NULL) str$"s2$"atn"s2$"(NULL)"s2$"(NULL)"s2$"asc"s2$"(NULL)"s2$"(NULL)"s2$"chr$"s2$"***"
  358. 3550 [141]101
  359. 3560 [139][187](1)[177].5[167]3840
  360. 3570 [139]r[177]0[167]3750
  361. 3580 tr[178][181]([187](1)[172]3100)
  362. 3590 [139]tr[179]500[167]3580
  363. 3600 [153][199](147);
  364. 3610 [153][163]250)"(NULL)aehrend eines (NULL)and-"
  365. 3620 [153][163]50)"ausflugs haben str$ir"
  366. 3630 [153][163]50)"(NULL)rickbetrueger \";tr
  367. 3640 [153][163]50)"abgenommen !"
  368. 3650 [141]101
  369. 3660 g[178]g[171]tr
  370. 3670 [139]g[179]0[167]3690
  371. 3680 [137]1880
  372. 3690 [153][199](147);:[151]53280,0:[151]53281,0:[151]646,1
  373. 3700 [153][163]250)"str$u bist jetzt pleite"
  374. 3710 [153][163]50)"und musst die (NULL)eise"
  375. 3720 [153][163]50)"beenden !!!"
  376. 3730 [141]101
  377. 3740 [137]3160
  378. 3750 [153][199](147);:[153][163]250)"(NULL)aehrend str$u einen"
  379. 3760 [153][163]50)"(NULL)andausflug gemacht"
  380. 3770 [153][163]50)"hast , haben str$eine"
  381. 3780 [153][163]50)"(NULL)atrosen den ganzen"
  382. 3790 [153][163]50)"(NULL)um ausgetrunken !"
  383. 3800 [141]101
  384. 3810 lp[178]lp[170]r
  385. 3820 r[178]0
  386. 3830 [137]1880
  387. 3840 [153][199](147);
  388. 3850 [153][163]250)"(NULL)aehrend eines (NULL)and-"
  389. 3860 [153][163]50)"ausflugs kommst str$u"
  390. 3870 [153][163]50)"an einer (NULL)neipe vor-"
  391. 3880 [153][163]50)"bei und gehst hinein "
  392. 3890 [141]101
  393. 3900 [153][199](147);
  394. 3910 [153][163]250)"str$u wirst zu einem"
  395. 3920 [153][163]50)"chr$luecksspiel aufge-"
  396. 3930 [153][163]50)"fordert "
  397. 3940 [153][163]50)"(NULL)achst str$u mit ?"
  398. 3950 [161]mm$
  399. 3960 [139]mm$[179][177]"j"[175]mm$[179][177]"n"[167]3950
  400. 3970 [139]mm$[178]"n"[167]1880
  401. 3980 gv[178][181]([187](1)[172]10100)
  402. 3990 [139]gv[179]1000[167]3980
  403. 4000 gz[178][181]([187](1)[170]1.5)
  404. 4010 [153][199](147);
  405. 4020 [153][163]170)"(NULL)aehle zwischen den"
  406. 4030 [153][163]50)"(NULL)ahlen '1' und '2' !"
  407. 4040 [153][163]50)"right$st es die richtige"
  408. 4050 [153][163]50)"(NULL)ahl , gewinnst str$u ;"
  409. 4060 [153][163]50)"ist es die falsche ,"
  410. 4070 [153][163]50)"verlierst str$u "
  411. 4080 [161]wn
  412. 4090 [139]wn[179][177]1[175]wn[179][177]2[167]4080
  413. 4100 [139]wn[179][177]gz[167]4170
  414. 4110 [153][199](147);
  415. 4120 [153][163]250)"str$u hast richtig gera-"
  416. 4130 [153][163]50)"ten und somit \";gv
  417. 4140 [153][163]50)"gewonnen !"
  418. 4150 [141]101
  419. 4160 g[178]g[170]gv:[137]1880
  420. 4170 [153][199](147);
  421. 4180 [153][163]250)"str$u hast falsch gera-"
  422. 4190 [153][163]50)"ten und somit \";gv
  423. 4200 [153][163]50)"verloren !"
  424. 4210 [141]101
  425. 4220 g[178]g[171]gv
  426. 4230 [139]g[179]0[167][137]3690
  427. 4240 [137]1880
  428. 4250 pk[178][181]([187](1)[172]10100)
  429. 4260 [139]pk[179]1000[167]4250
  430. 4270 [153][199](147);:[151]53280,0:[151]53281,0:[151]646,1
  431. 4280 [153][163]240)
  432. 4290 [153][163]127)"*** str$val(NULL)"s2$"(NULL)lenleft$(NULL)atn(NULL)(NULL)val"s2$"mid$atnlen(NULL)"s2$"***"
  433. 4300 [141]101
  434. 4310 [153][199](147);
  435. 4320 [153][163]250)"'(NULL)chwarzer mid$ack' bie-"
  436. 4330 [153][163]50)"tet str$ir eine (NULL)anone"
  437. 4340 [153][163]50)"zum (NULL)chutz vor (NULL)ira-"
  438. 4350 [153][163]50)"ten an "
  439. 4360 [153][163]50)"(NULL)ie kostet \";pk;" "
  440. 4370 [153][163]50)"(NULL)illst str$u eine ?"
  441. 4380 [161]kk$
  442. 4390 [139]kk$[179][177]"j"[175]kk$[179][177]"n"[167]4380
  443. 4400 [139]kk$[178]"j"[175]g[179]pk[167]4450
  444. 4410 [139]kk$[178]"n"[167]1880
  445. 4420 ke[178]1
  446. 4430 g[178]g[171]pk
  447. 4440 [137]1880
  448. 4450 [153][163]90)"str$u hast zuwenig chr$eld !"
  449. 4460 [141]101
  450. 4470 [137]1880
  451. 4480 [153][199](147);:[151]53280,1:[151]53281,1:[151]646,0
  452. 4490 [153][163]240):[153][163]128)"***"s2$"(NULL)lenleft$right$ascasc"s2$"right$(NULL)"s2$"(NULL)right$lenleft$(NULL)"s2$"***"
  453. 4500 [141]101
  454. 4510 [153][199](147);
  455. 4520 [153][163]250)"(NULL)illst str$u naeher an"
  456. 4530 [153][163]50)"das gesichtete (NULL)chiff"
  457. 4540 [153][163]50)"heranfahren ?"
  458. 4550 [161]hf$
  459. 4560 [139]hf$[179][177]"j"[175]hf$[179][177]"n"[167]4550
  460. 4570 [139]hf$[178]"n"[167]1880
  461. 4580 [139][187](1)[177].5[167]2530
  462. 4590 vd[178][181]([187](1)[172]10100)
  463. 4600 [139]vd[179]1000[167]4590
  464. 4610 [153][199](147);
  465. 4620 [153][163]250)"vals ist ein englisches"
  466. 4630 [153][163]50)"left$andelsschiff "
  467. 4640 [153][163]50)"str$u machst mit dem (NULL)a-"
  468. 4650 [153][163]50)"pitaen ein chr$eschaeft"
  469. 4660 [153][163]50)"und verdienst dabei"
  470. 4670 [153][163]50)"\";vd
  471. 4680 [141]101
  472. 4690 g[178]g[170]vd
  473. 4700 [137]1880
  474. 4710 [153][199](147);:[151]53280,14:[151]53281,14:[151]646,6
  475. 4720 [153][163]240):[153][163]129)"*** valright$(NULL)"s2$"chr$(NULL)val(NULL)(NULL)val(NULL) ***"
  476. 4730 [141]101
  477. 4740 gr[178]100[172][181]([187](1)[172]101)
  478. 4750 [139]gr[179]1000[167]4740
  479. 4760 [139]gr[177]sc[167]gr[178]sc
  480. 4770 [153][199](147);
  481. 4780 [153][163]250)"valin unbekannter chr$oen-"
  482. 4790 [153][163]50)"ner hat \";gr;"von"
  483. 4800 [153][163]50)"str$einen (NULL)chulden abbe-"
  484. 4810 [153][163]50)"zahlt !"
  485. 4820 [141]101
  486. 4830 [139]sc[179]gr[167]4850
  487. 4840 sc[178]sc[171]gr:[137]1880
  488. 4850 sc[178]0
  489. 4860 [137]1880
  490. 4870 [136]mr[178][181]([187](1)[172]5100)
  491. 4880 [139]mr[179]500[176]mr[177]2000[167]4870
  492. 4890 [136]sr[178][181]([187](1)[172]5100)
  493. 4900 [139]sr[179]500[176]sr[177]2000[167]4890
  494. 4910 [136]rr[178][181]([187](1)[172]5100)
  495. 4920 [139]rr[179]200[176]rr[177]2000[167]4910
  496. 4930 gr[178]mr[170]sr[170]rr
  497. 4940 [153][199](147);
  498. 4950 [153][163]122)"str$ein (NULL)chiff muss repariert werden !"
  499. 4960 [153][163]122)"(NULL)osten :"
  500. 4970 [153][163]82)"(NULL)ast    \";mr
  501. 4980 [153][163]82)"(NULL)egel   \";sr
  502. 4990 [153][163]82)"(NULL)umpf   \";rr
  503. 5000 [153][163]49)"--------"
  504. 5010 [153][163]82)"chr$esamt  \";gr
  505. 5020 [141]101
  506. 5030 g[178]g[171]gr
  507. 5040 [139]g[179]0[167]5060
  508. 5050 [137]1880
  509. 5060 [153][199](147);:[151]53280,0:[151]53281,0:[151]646,1
  510. 5070 [153][163]250)"str$a str$u zuwenig chr$eld"
  511. 5080 [153][163]50)"hast , die (NULL)echnung"
  512. 5090 [153][163]50)"zu bezahlen , musst"
  513. 5100 [153][163]50)"str$u die (NULL)eise been-"
  514. 5110 [153][163]50)"den !!!"
  515. 5120 [137]3160
  516. 5130 [153][199](147);:[151]53281,7:[151]53280,7:[151]646,2
  517. 5140 [153][163]125)"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  518. 5150 [153][163]5)"$                           $"
  519. 5160 [153][163]5)"$    left$"s2$"val"s2$"(NULL)"s2$"(NULL)"s2$"(NULL)"s2$"right$"s2$"len"s2$"left$"s2$"val (NULL)    $"
  520. 5170 [153][163]5)"$                           $"
  521. 5180 [153][163]5)"$  chr$"s2$"(NULL)"s2$"(NULL)"s2$"val"s2$"len"s2$"(NULL)"s2$"(NULL)";
  522. 5190 [153]s2$"(NULL)"s2$"(NULL)"s2$"(NULL)"s2$"len"s2$"left$"s2$s2$"$"
  523. 5200 [153][163]5)"$                           $"
  524. 5210 [153][163]5)"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
  525. 5220 [153][163]204)"str$u hast ueber \ 800000 verdient"
  526. 5230 [153][163]44)"und kannst str$ich jetzt zur (NULL)uhe"
  527. 5240 [153][163]44)"setzen !!!"
  528. 5250 [153][163]120)"chr$enauer (NULL)pielstand : \";g
  529. 5260 [141]101
  530. 5270 [153][199](147);
  531. 5280 [153][163]240):[153][163]131)"(NULL)och ein (NULL)piel ?"
  532. 5290 [161]ns$
  533. 5300 [139]ns$[179][177]"j"[175]ns$[179][177]"n"[167]5290
  534. 5310 [139]ns$[178]"j"[167][138]
  535. 5320 [153][163]250)"(NULL)"s2$"(NULL)"s2$"len"s2$"left$"s2$"(NULL)"s2$"val"s2$"(NULL)"s2$"(NULL)  !"
  536. 5330 [128]
  537. 5340 [136]p(1)[178][181]([187](1)[172]16)
  538. 5350 [139]p(1)[179]1[167]5340
  539. 5360 [136]p(2)[178]10[172][181]([187](1)[172]19)
  540. 5370 [139]p(2)[179]50[167]5360
  541. 5380 [136]p(3)[178]10[172][181]([187](1)[172]100)
  542. 5390 [139]p(3)[179]300[167]5380
  543. 5400 [136]p(4)[178]100[172][181]([187](1)[172]31)
  544. 5410 [139]p(4)[179]500[167]5400
  545. 5420 [136]p(5)[178]100[172][181]([187](1)[172]101)
  546. 5430 [139]p(5)[179]1000[167]5420
  547. 5440 [142]
  548. 5450 [139]se$[178]"1"[167] [136]s$[178]" (NULL)wansea"
  549. 5460 [139]se$[178]"2"[167] [136]s$[178]" (NULL)iverpool"
  550. 5470 [139]se$[178]"3"[167] [136]s$[178]" (NULL)ondon"
  551. 5480 [139]se$[178]"4"[167] [136]s$[178]" (NULL)ewcastle"
  552. 5490 [139]se$[178]"5"[167] [136]s$[178]" (NULL)outhampton"
  553. 5500 [142]
  554. 5510 [153]"              "
  555. 5520 [153]"              "
  556. 5530 [137]670
  557. 5540 [153][199](147);:[151]53280,6:[151]53281,6:[151]646,7
  558. 5550 [153]" ";ne$;"  (NULL)chiffahrtsgesellschaft"
  559. 5560 [153][163]40)rn$"****************************************"rf$
  560. 5570 [153]"(NULL)tandort  :"
  561. 5580 [153][163]40)"chr$uthaben  \         atnllgemeines"
  562. 5590 [153][163]20)"(NULL)affen"             "
  563. 5600 print"[211]chulden  \         [203]ohle"
  564. 5610 printtab(20)"[210]um"
  565. 5620 print"[204]adeplatz :         [197]delsteine"
  566. 5630 printtab(40)rn$"****************************************"rf$
  567. 5640 return
  568. 5650 printchr$(147);:poke53280,0:poke53281,0:poke646,1
  569. 5660 printtab(250)"[215]eil [196]u ueber \ 25000"
  570. 5670 printtab(50)"[211]chulden hast , pfaen-
  571. 5680 [153][163]50)"den str$eine chr$laeubiger"
  572. 5690 [153][163]50)"das (NULL)chiff , und deine"
  573. 5700 [153][163]50)"(NULL)eise ist zuende !!!"
  574. 5710 [137]3160
  575. 5720 [129]i[178]1[164]zz:[153]xx$;:[130]:[142]
  576. 5730 [143] nachspann ===========
  577. 5740 [143] farbcodes/steuercodes
  578. 5750 c4$[178][199](017):rn$[178][199](018)
  579. 5760 he$[178][199](019):fl$[178][199](130)
  580. 5770 fo$[178][199](132):rf$[178][199](146)
  581. 5780 c1$[178][199](157)
  582. 5790 [143] zeichensatz/graphik
  583. 5800 s2$[178][199](160):zn$[178][199](184)
  584. 5810 [142]
  585. 5820 [143] =====================
  586. 5830 [143]  e n d e
  587. 5840 [143] =====================
  588.