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