home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 55 / Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_D.d64 / ship_ad3_main (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  28KB  |  811 lines
  1. 10 v=53248:ld=52300
  2. 15 poke 2040,13:poke 2041,14
  3. 20 forn=0to62:readq:poke832+n,q:next
  4. 25 forn=0to62:readq:poke896+n,q:next
  5. 30 poke v+21,0:poke v+27,1+2
  6. 35 poke v+39,3:poke v+40,1
  7. 40 rem sprite 0 *the ship logo*
  8. 45 data 127,255,252,127,255,252
  9. 50 data 102,0,0,102,102,124
  10. 55 data 6,102,96,6,126,124
  11. 60 data 6,126,124,6,102,96
  12. 65 data 6,102,124,0,0,0
  13. 70 data 0,0,0,14,151,120
  14. 75 data 30,151,68,24,146,68
  15. 80 data 28,242,120,6,146,96
  16. 85 data 30,151,96,28,151,96
  17. 90 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  18. 95 :
  19. 100 rem sprite 1 *the ship*
  20. 105 data 0,0,0,0,8,0,0,14,0
  21. 110 data 0,8,0,0,28,0,0,60,0
  22. 115 data 0,234,0,1,235,14,7,235,8
  23. 120 data 31,235,136,63,235,136,127,235,200
  24. 125 data 129,255,254,64,8,50,63,255,254
  25. 130 data 30,219,126,15,255,252
  26. 135 data 15,255,252,7,255,248
  27. 140 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  28. 145 :
  29. 150 poke 53280,0:poke 53281,0:print"[147]"
  30. 155 :
  31. 160 fa=peek(53280):fb=peek(53281):fc=peek(646):poke53280,0:poke53281,0
  32. 165 print"           great adventure 3            [146]"
  33. 170 print"  the ship - digital talk edition 2002  [146]"
  34. 175 print"[159] greetings from 1990 to"
  35. 180 print" tai pan,phantom,willibald,safda,bauer"
  36. 185 print" greetings from 2002 to"
  37. 190 print" champ,winni,baracuda & the stock,red"
  38. 195 print" scorpion,gazette"
  39. 200 print"[158] das spiel besitzt ein hilfsmenue."
  40. 205 print" schreibe"
  41. 210 poke646,a:print"                  help [146]"
  42. 215 print"[158] fuer weitere informationen..."
  43. 220 print"     neue spieldaten anlegen (j/n)?"
  44. 225 geta$
  45. 230 if a$="j" goto 250
  46. 235 if a$="n" goto 1115
  47. 240 if a>15 then a=0
  48. 245 poke 646,a:a=a+1:goto 165
  49. 250 input"[147] wie heisst du";name$
  50. 255 open7,8,7,"@0:ship/ad3/farben,s,w":cr$=chr$(13)
  51. 260 print#7,2;cr$;10;cr$;1
  52. 265 close7
  53. 270 open4,8,4,"@0:ship/ad3/name,s,w":print#4,name$:close4
  54. 275 print" der name wurde gespeichert."
  55. 280 poke 198,0:wait 198,1
  56. 285 goto 1115
  57. 290 :
  58. 295 rem auswertung tastatureingabe
  59. 300 ifa$="help" goto 460
  60. 305 ifa$="inv" or a$="inventar" goto 820
  61. 310 if left$(a$,5)="toete" then print" ist doch gar keiner da!":return
  62. 315 if a$="benutze" or a$="nimm" or a$="gib" or a$="oeffne" goto 370
  63. 320 if a$="klopfe an" or a$="untersuche" or a$="erklettere" goto 370
  64. 325 if a$="n" or a$="s" or a$="w" or a$="o" goto 375
  65. 330 ifleft$(a$,7)="benutze"goto385
  66. 335 ifleft$(a$,4)="nimm"thenprint" das brauchst du nicht mitzunehmen.":return
  67. 340 ifleft$(a$,3)="gib"goto385
  68. 345 ifleft$(a$,6)="oeffne"goto385
  69. 350 ifleft$(a$,9)="klopfe an"goto385
  70. 355 ifleft$(a$,10)="untersuche"thenprint" da ist nichts besonders.":return
  71. 360 ifleft$(a$,10)="erklettere"goto385
  72. 365 print" unzureichende daten, ";name$;".":return
  73. 370 print" bitte ganze saetze eingeben, ";name$;".":return
  74. 375 print" diese richtung ist momentan nicht"
  75. 380 print" moeglich, ";name$;".":return
  76. 385 print" ich verstehe das hauptwort leider"
  77. 390 print" nicht, ";name$;".":return
  78. 395 geta$:ifa$=""goto395
  79. 400 print"[147] dein held ist gestorben!"
  80. 405 print" ruestungsschutz:";r
  81. 410 print" werte          :";s
  82. 415 print" punkte         :";p;"von 500"
  83. 420 print" nicht traurig sein.the show must go"
  84. 425 print" on."
  85. 430 print" nochmal?(j/n)"
  86. 435 geta$
  87. 440 ifa$="j"thenclr:print"[147]":goto155
  88. 445 ifa$="n"thenprint"[147]":end
  89. 450 goto435
  90. 455 :
  91. 460 poke v+23,1:poke v+29,1
  92. 462 poke v+21,1:print"[147]";
  93. 465 for n=15 to 55:sys ld,270,n,0:next n
  94. 475 print" help-menue"
  95. 480 print" (f1) farben aendern"
  96. 485 print" (f3) liste moeglicher befehle"
  97. 490 print" (f5) kurze anleitung"
  98. 495 print" (f7) werte des helden"
  99. 500 print" (f2) kampftraining"
  100. 505 print" (f4) spielername aendern"
  101. 510 print" (f6) 'the ship' und mehr..."
  102. 515 print"  _ [146]  weiterspielen"
  103. 520 print" spielzeit(std,min,sek):"
  104. 525 t1$=left$(ti$,2):t2$=mid$(ti$,3,2):t3$=right$(ti$,2)
  105. 530 print"";t1$;":";t2$;".";t3$
  106. 535 a$="":get a$
  107. 540 ifa$=chr$(133)then gosub 582:goto 590
  108. 545 ifa$=chr$(134)then gosub 582:goto 740
  109. 550 ifa$=chr$(135)then gosub 582:goto 940
  110. 555 ifa$=chr$(136)then gosub 582:goto 995
  111. 560 ifa$=chr$(137)then gosub 582:goto 1040
  112. 565 ifa$=chr$(138)then gosub 582:goto 860
  113. 570 ifa$=chr$(139)then gosub 582:goto 895
  114. 575 ifa$="_"then gosub 582:print"[147]":return
  115. 580 goto525
  116. 582 for n=55 to 15 step-1:sys ld,270,n,0:next n
  117. 583 poke v+21,0
  118. 584 poke v+23,0:poke v+29,0
  119. 585 return
  120. 586 :
  121. 590 rem farben aendern
  122. 595 print"[147]farben:  1 [146] rahmenfarbe"
  123. 600 print"         2 [146] hintergrundfarbe"
  124. 605 print"         3 [146] zeichenfarbe"
  125. 610 print"         0 [146] speichern"
  126. 615 print"         _ [146] zurueck"
  127. 620 poke 198,0:wait 198,1:get a$
  128. 625 if a$="1" then 660
  129. 630 if a$="2" then 675
  130. 635 if a$="3" then 690
  131. 640 if a$="0" then 710
  132. 645 if a$="_" then 460
  133. 650 goto 620
  134. 655 :
  135. 660 if fa>15 then fa=0
  136. 665 poke 53280,fa:fa=fa+1
  137. 670 goto 620
  138. 675 if fb>15 then fb=0
  139. 680 poke 53281,fb:fb=fb+1
  140. 685 goto 620
  141. 690 if fc>15 then fc=0
  142. 695 poke 646,fc:fc=fc+1
  143. 700 goto 590
  144. 705 :
  145. 710 open 7,8,7,"@0:ship/ad3/farben,s,w":cr$=chr$(13)
  146. 715 xx=peek(53281):yy=peek(53280):zz=peek(646)
  147. 720 print#7,xx;cr$;yy;cr$;zz
  148. 725 close 7
  149. 730 goto 460
  150. 735 :
  151. 740 rem befehle
  152. 745 print"[147] befehle:"
  153. 750 print" himmelsrichtungen: n,s,w,o,"
  154. 755 print" ein-wort-kommandos: toete, help, inv,"
  155. 760 print" zwei-wort-kommandos:"
  156. 765 print"   nimm ...."
  157. 770 print"   gib ...."
  158. 775 print"   untersuche ...."
  159. 780 print"   benutze ...."
  160. 785 print"   oeffne ...."
  161. 790 print"   klopfe an ...."
  162. 795 print"   erklettere ...."
  163. 800 poke 198,0:wait 198,1
  164. 805 goto 460
  165. 810 :
  166. 815 rem inventar
  167. 820 print" inventar:"
  168. 825 ifs1$=""ands2$=""ands3$=""thenprint" wenich!":goto845
  169. 830 ifs1$<>""thenprint" ";s1$
  170. 835 ifs2$<>""thenprint" ";s2$
  171. 840 ifs3$<>""thenprint" ";s3$
  172. 845 poke 198,0:wait 198,1
  173. 850 return
  174. 855 :
  175. 860 rem spielername aendern
  176. 865 print" alter name: ";name$
  177. 870 input" neuer name";name$
  178. 875 open4,8,4,"@0:ship/ad3/name,s,w":print#4,name$:close4
  179. 880 goto 460
  180. 885 :
  181. 890 rem 'the ship' und mehr...
  182. 895 print"[147] aus der reihe 'great adventures'- von"
  183. 900 print" karamba soft programmiert -sind bisher"
  184. 905 print" erschienen:":print"  - the house":print"  - the temple"
  185. 910 print"  - the ship"
  186. 915 print" public domain.verbreitung erwuenscht."
  187. 920 poke 198,0:wait 198,1
  188. 925 goto460
  189. 930 :
  190. 935 rem kurze anleitung
  191. 940 print"[147] die schwierigkeit bei abenteuern be-"
  192. 945 print" steht zweifellos darin,dem computer"
  193. 950 print" die eingabe verstehen zu lassen."
  194. 955 print" dies erreicht man unter verwendung der"
  195. 960 print" vorgegebenen tunwoerter und durch das"
  196. 965 print" aufgreifen der hauptwoerter aus dem"
  197. 970 print" vorhergegangenen text."
  198. 975 poke 198,0:wait 198,1
  199. 980 goto460
  200. 985 :
  201. 990 rem werte des helden
  202. 995 print"[147]";:sys 52912
  203. 1000 print"   ";c;"      ";r;"        ";s;"   ";p;"/500"
  204. 1005 print" lebens-  ruestungs-  inventar  spiel-"
  205. 1010 print"  kraft    schutz               punkte"
  206. 1015 poke 198,0:wait 198,1
  207. 1020 sys 53103
  208. 1025 poke53281,fb:goto460
  209. 1030 :
  210. 1035 rem simulation kampf
  211. 1040 print"[147] dieser programmabschnitt simuliert"
  212. 1045 print" kaempfe gegen nacheinanderfolgende"
  213. 1050 print" skelette.der spielverlauf wird durch"
  214. 1055 print" den ablauf nicht beeintraechtigt.":me=0
  215. 1060 le=c
  216. 1065 d=15
  217. 1070 tr=fnx(x):iftr>rthenle=le-tr+r
  218. 1075 d=d-fnx(x)
  219. 1080 ifle<0goto1095
  220. 1085 ifd<=0thenme=me+1:goto1065
  221. 1090 goto1070
  222. 1095 print" du konntest";me;"skelette erschlagen."
  223. 1100 poke 198,0:wait 198,1
  224. 1105 goto460
  225. 1110 :
  226. 1115 rem anzeige werte bei spielstart
  227. 1120 open4,8,4,"@0:ship/ad3/name,s,r":input#4,name$:close4
  228. 1125 open7,8,7,"@0:ship/ad3/farben,s,r":input#7,xx,yy,zz:close7
  229. 1130 poke53280,yy:poke646,zz
  230. 1135 print"[147]";
  231. 1140 def fnx(x)=int(rnd(x)*7)+1
  232. 1145 c=int(rnd(x)*50)+1:ifc<40thenc=40
  233. 1150 sys 52912
  234. 1155 print"              1           -     0/500"
  235. 1160 r=1:print" lebens-  ruestungs-  inventar  spiel-"
  236. 1165 print"  kraft    schutz               punkte"
  237. 1170 print"      das abenteuer kann beginnen!"
  238. 1175 print"   ";c
  239. 1180 poke 198,0:wait 198,1
  240. 1185 sys 53103
  241. 1190 :
  242. 1195 print"[147]";:poke53281,xx
  243. 1200 ti$="000000"
  244. 1205 print" am ersten tag deiner suche wirst vor"
  245. 1210 print" den aeltestenrat berufen.hier kann"
  246. 1215 print" dir keiner so recht weiterhelfen:die"
  247. 1220 print" dorfaeltesten sind veraengstigt und"
  248. 1225 print" sind deinem vorhaben abgeneigt,da sie"
  249. 1230 print" noch schlimmeres erwarten, sollte sich"
  250. 1235 print" einer gegen die untoten auflehnen.nach"
  251. 1240 print" dieser nutzlosen versammlung wendest"
  252. 1245 print" du dich dem dorf zu."
  253. 1250 :
  254. 1255 print" du bist gerade auf dem marktplatz.er"
  255. 1260 print" wird von einigen schaebigen holz-"
  256. 1265 print" huetten eingerahmt.im westen befindet"
  257. 1270 print" sich die kleine taverne,dahinter er-"
  258. 1275 print" streckt sich der endlose ozean.gegen-"
  259. 1280 print" ueber der heruntergekommenen kneipe"
  260. 1285 print" liegt das stilvoll erbaute haus des"
  261. 1290 print" buergermeisters."
  262. 1295 inputa$
  263. 1300 ifa$="w"goto1320
  264. 1305 ifa$="o"goto1720
  265. 1310 gosub300:goto1255
  266. 1315 :
  267. 1320 ifac=1goto1820
  268. 1325 ac=1
  269. 1330 print" vor der taverne liegt neben den muell-"
  270. 1335 print" tonnen und einigen leeren flaschen ein"
  271. 1340 print" angetrunkener alter mann.er beobachtet"
  272. 1345 print" dich aufmerksam und murmelt 'zu wenig'"
  273. 1350 print" 'noch zu wenig' vor sich hin und"
  274. 1355 print" kichert nervoes.die kneipe ist noch"
  275. 1360 print" geschlossen und oeffnet erst nach-"
  276. 1365 print" mittags, wie ein schild neben der tuer"
  277. 1370 print" besagt."
  278. 1375 inputa$
  279. 1380 ifleft$(a$,5)="toete" and s3$="" goto 1700
  280. 1385 ifa$="oeffne tuer"goto1435
  281. 1390 ifa$="klopfe an tuer"goto1440
  282. 1395 ifa$="untersuche tuer"goto1470
  283. 1400 ifa$="untersuche schild"goto1495
  284. 1405 ifa$="o"goto1255
  285. 1410 ifa$="w"goto1570
  286. 1415 ifleft$(a$,21)="untersuche muelltonne"goto1475
  287. 1420 ifleft$(a$,18)="untersuche flasche"goto1600
  288. 1425 ifleft$(a$,12)="nimm flasche"goto1610
  289. 1430 gosub300:goto1330
  290. 1435 print" sie ist verschlossen.":goto1330
  291. 1440 ifwi=1goto1450
  292. 1445 wi=wi+1:print" nichts ruehrt sich.":goto1330
  293. 1450 print" ein kleines fenster oeffnet sich und"
  294. 1455 print" das gesicht des wirts erscheint."
  295. 1460 print" 'koennen sie nicht lesen!wir oeffnen":ifwi=1thenp=p+5
  296. 1465 print" erst in ungefaehr zwei stunden!":goto1330
  297. 1470 print" ja ...das ist eine tuer.":goto1330
  298. 1475 print" neben einigen angeschimmelten essens-"
  299. 1480 print" resten und glasscherben gibt es noch"
  300. 1485 print" andere leckereien.ein paar ratten"
  301. 1490 print" huschen verschreckt ins dunkle.":goto1330
  302. 1495 print" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  303. 1500 print" [194]      gasthaus     [194]"
  304. 1505 print" [194] zum verschleppten [194]"
  305. 1510 print" [194]      seemann      [194]"
  306. 1515 print" [194]                   [194]"
  307. 1520 print" [194] oeffnungszeiten:  [194]"
  308. 1525 print" [194] mo-fr ab 16.00    [194]"
  309. 1530 print" [194] sa,so ab 14.30    [194]"
  310. 1535 print" [194]                   [194]"
  311. 1540 print" [194]  bitte nicht an   [194]"
  312. 1545 print" [194] die tuer klopfen! [194]"
  313. 1550 print" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  314. 1555 sc=sc+1:ifsc=1thenp=p+5
  315. 1560 poke 198,0:wait 198,1
  316. 1565 goto1330
  317. 1570 print" um diese zeit ist am hafen nichts los."
  318. 1575 print" ein kleines schiff wird gerade ent-"
  319. 1580 print" laden,auf dem meer kreuzen ein paar"
  320. 1585 print" fischerkaehne. und geisterschiffe"
  321. 1590 print" kommen bekanntlich erst zu fortge-"
  322. 1595 print" schrittener stunde.":goto1330
  323. 1600 print" alles ganz gewoehnliche leergetrunkene"
  324. 1605 print" weinflaschen.":goto1330
  325. 1610 iffl=1thenprint" mehr brauchst du wirklich nicht.":goto1330
  326. 1615 l=1:print" ok.":s1$="flasche":p=p+5:goto1330
  327. 1620 print" der landstreicher springt auf seine"
  328. 1625 print" fuesse und zieht ein kleines messer."
  329. 1630 d=15
  330. 1635 tr=fnx(x)+2:iftr>rthenc=c-tr+r:gosub1660
  331. 1640 t2=fnx(x):ift2>1thend=d-t2:gosub1680
  332. 1645 ifc<0goto395
  333. 1650 ifd<=0goto1690
  334. 1655 goto1635
  335. 1660 print" der landstreicher sticht zu und er-"
  336. 1665 print" zielt";tr;"trefferpunkte."
  337. 1670 poke 198,0:wait 198,1
  338. 1675 return
  339. 1680 print" du schlaegst mit";t2;"trefferpunkten"
  340. 1685 print" zu.":goto1670
  341. 1690 print" der landstreicher ist tot.erschrocken"
  342. 1695 print" fluechtest du zum marktplatz.":p=p+15:la=1:goto1255
  343. 1700 print" deine faeuste nutzen dir wenig, denn"
  344. 1705 print" der kerl hatte ein messer dabei."
  345. 1710 print" du stirbst.":print"     ende.":end
  346. 1715 :
  347. 1720 if ac=1 and bu=0 goto 1750
  348. 1725 print" an der tuer des rathauses faengt dich"
  349. 1730 print" der diener des buergermeisters ab."
  350. 1735 print" 'der buergermeister will jetzt nicht"
  351. 1740 print" gestoert werden',erklaert er und"
  352. 1745 print" schickt dich fort.":goto1255
  353. 1750 print" der diener des buergermeisters bittet"
  354. 1755 print" dich zu einer unterredung herein und"
  355. 1760 print" fuehrt dich in den warteraum und nach"
  356. 1765 print" kurzer zeit empfaengt dich der buerger-";
  357. 1770 print" meister.im amtszimmer erzaehlst du"
  358. 1775 print" ihm dein vorhaben.er ist hocherfreut,"
  359. 1780 print" dass sich endlich jemand bei ihm"
  360. 1785 print" meldet, die geister zu vertreiben."
  361. 1790 print" er ueberreicht dir ein schwert und"
  362. 1795 print" 5 dukaten um das abenteuer bestehen zu"
  363. 1800 print" koennen.anschliessend wuenscht er dir"
  364. 1805 print" viel glueck und verabschiedet sich.der"
  365. 1810 print" diener begleitet dich zur tuer.":bu=1:p=p+5:s=5:s3$="schwert"
  366. 1815 goto 1255
  367. 1820 ifbu=1goto1845
  368. 1825 ifla=1goto1970
  369. 1830 print" die kneipe hat immer noch nicht ge-"
  370. 1835 print" oeffnet. der penner ist eingenickt."
  371. 1840 print" enttaeuscht wendest du dich ab.":goto 1375
  372. 1845 ifla=1goto1980
  373. 1850 print" der penner blinzelt dich an.das"
  374. 1855 print" schwert scheint ihm zu gefallen."
  375. 1860 print" ploetzlich springt er auf die fuesse"
  376. 1865 print" und attackiert dich mit einem messer."
  377. 1870 d=15
  378. 1875 t1=fnx(x)+2:t2=fnx(x)+3
  379. 1880 d=d-t2:gosub1915
  380. 1885 ifr<t1thenc=c-t1+r:gosub1905
  381. 1890 ifc<0goto395
  382. 1895 ifd<0goto1940
  383. 1900 goto1875
  384. 1905 print" der landstreicher sticht zu und fuegt"
  385. 1910 print" dir";t1;"schadenspunkte zu.":goto1930
  386. 1915 print" ein gewaltiger schwerthieb bringt dem"
  387. 1920 print" landstreicher";t2;"schadenspunkte"
  388. 1925 print" ein."
  389. 1930 poke 198,0:wait 198,1
  390. 1935 return
  391. 1940 print" der landstreicher stuerzt toedlich"
  392. 1945 print" getroffen zu boden.du wischst das blut"
  393. 1950 print"[160]von der scheide und wendest dich von"
  394. 1955 print" ihm ab.":p=p+15
  395. 1960 poke 198,0:wait 198,1
  396. 1965 goto1980
  397. 1970 print" die kneipe ist immer noch geschlossen."
  398. 1975 print"[160]enttaeuscht gehst du zurueck.":goto1255
  399. 1980 print" die taverne hat endlich geoeffnet."
  400. 1985 print"[160]du trittst als erster ein und setzt"
  401. 1990 print" dich an einen der tische. beim wirt"
  402. 1995 print" bestellst du dir dann ein bier.":p=p+5:s=s-5
  403. 2000 poke 198,0:wait 198,1
  404. 2005 print" schnell fuellt sich die kleine kneipe."
  405. 2010 print" an mehreren tischen wird gekartet und"
  406. 2015 print"[160]pfeifenqualm vernebelt die luft.ein"
  407. 2020 print" betrunkener fischer steht lallend auf"
  408. 2025 print" einem tisch, einige ebenfalls ange-"
  409. 2030 print" trunkene zuhoerer bestaunen, was"
  410. 2035 print" dieser mordskerl schon alles erlebt"
  411. 2040 print" hat und lassen es sich nicht nehmen,"
  412. 2045 print" ihm in seinen kunstpausen etwas zu"
  413. 2050 print" spendieren. ein alter mann, der allein"
  414. 2055 print" an seinem tisch sitzt, faehrt die"
  415. 2060 print" kartenspieler zornig an, worauf einer"
  416. 2065 print" gelassen antwortet:"
  417. 2070 print" 'setz dich schoen wieder hin, stroessi,";
  418. 2075 print" sonst stirbst du uns noch an einem"
  419. 2080 print" herzinfakt!'. ein anderer ergaenzt:"
  420. 2085 print" 'alte labernase!' tolle stimmung!"
  421. 2090 poke 198,0:wait 198,1
  422. 2095 print" in der west- und ostwand befindet sich"
  423. 2100 print" jeweils eine tuer.an den tischen wird"
  424. 2105 print"[160]weiter karten gespielt.hinter der"
  425. 2110 print" theke steht der wirt und unterhaelt"
  426. 2115 print" sich angeregt mit einem fischer."
  427. 2120 inputa$
  428. 2125 ifw1=5goto2870
  429. 2130 ifleft$(a$,5)="toete"thenprint" nicht hier!":goto2095
  430. 2135 ifa$="untersuche theke"goto2170
  431. 2140 ifa$="untersuche tische"goto2180
  432. 2145 ifa$="klopfe an tuer"goto2225
  433. 2150 ifa$="w"goto2235
  434. 2155 ifa$="o"goto2430
  435. 2160 ifa$="nimm kartenspiel"goto2215
  436. 2165 gosub300:goto2095
  437. 2170 w1=w1+1:print" bei der theke gibt es nichts von"
  438. 2175 print" interesse.":goto2095
  439. 2180 ifka=1goto2205
  440. 2185 print" an einem unbesetzten tisch liegt ein"
  441. 2190 print" unvollstaendiges kartenspiel und"
  442. 2195 print"[160]halbvolle bierkruege."
  443. 2200 w1=w1+1:goto2095
  444. 2205 print"[160]an einem tisch stehen noch einige"
  445. 2210 print" halbvolle bierkruege.":wi=wi+1:goto2095
  446. 2215 ifka=1thenprint" hast du doch schon!":w1=w1+1:goto2095
  447. 2220 s2$="kartenspiel":p=p+10:print" ok.":w1=w1+1:ka=1:goto2095
  448. 2225 print" du klopfst an der tuer,aber es"
  449. 2230 print" passiert nichts.":w1=w1+1:goto2095
  450. 2235 print" du befindest dich im wc des wirts-"
  451. 2240 print" hauses."
  452. 2245 ifsa=1goto2335
  453. 2250 sa=1:print"[160]gerade kommt opa stroessi zur tuer"
  454. 2255 print" herein."
  455. 2260 inputa$
  456. 2265 ifa$="gib kartenspiel"ands2$="kartenspiel"goto2305
  457. 2270 ifa$="untersuche waschbecken"goto2385
  458. 2275 ifa$="benutze flasche"goto2390
  459. 2280 ifa$="benutze waschbecken"goto2415
  460. 2285 ifa$="o"goto2095
  461. 2290 gosub300
  462. 2295 print" opi stroessi verrichtet sein geschaeft"
  463. 2300 print" und verlaesst das wc.":goto2335
  464. 2305 print"[160]wuetend starrt dich stroessi an.sein"
  465. 2310 print" unterkiefer vibriert vor wut.er"
  466. 2315 print" zerreisst den kartenstapel und wirft"
  467. 2320 print" die konfettis in die luft.irrsinnig"
  468. 2325 print" sabbernd stuerzt er zur tuer und wirft":s2$="":gy=1
  469. 2330 print" sie hinter sich zu.":p=p+50
  470. 2335 print" im wc befinden sich ein waschbecken"
  471. 2340 print" und mehrere kabinen.du weigerst dich"
  472. 2345 print" sie wegen ihres unertraeglichen"
  473. 2350 print" gestankes zu betreten.":inputa$
  474. 2355 ifright$(a$,7)="kabinen"thenprint" igitt!":goto2335
  475. 2360 ifa$="o"thenw1=w1+1:goto2095
  476. 2365 ifa$="untersuche waschbecken"goto2385
  477. 2370 ifa$="benutze flasche"goto2390
  478. 2375 ifa$="benutze waschbecken"goto2415
  479. 2380 gosub300:goto2335
  480. 2385 print" ein ganz gewoehnliches waschbecken.":goto2335
  481. 2390 ifs1$="flasche (sauber)"thenprint" hast du doch schon!":goto2335
  482. 2395 ifs1$=""goto2335
  483. 2400 print" sehr vernuenftig!du spuelst die"
  484. 2405 print" flasche erst einmal kraeftig aus.":s1$="flasche (sauber)":p=p+20
  485. 2410 goto2335
  486. 2415 print" du waeschst dir deine haende.dir"
  487. 2420 print" scheint,dass du hier etwas anderes"
  488. 2425 print" machen solltest.":goto2335
  489. 2430 print"[160]hinter der tuer befinden sich stufen"
  490. 2435 print" die in die tiefe fuehren:eine"
  491. 2440 print" kellertreppe!wahrscheinlich geht es"
  492. 2445 print" hier zu den vorraeten des gasthauses."
  493. 2450 print" der wirt wird sich ueber deine"
  494. 2455 print"[160]aktivitaeten nicht freuen,noch kannst"
  495. 2460 print"[160]du umkehren.":inputa$
  496. 2465 ifa$="untersuche kellertreppe"goto2485
  497. 2470 ifa$="w"thenwi=wi+1:goto2095
  498. 2475 ifa$="o"goto2500
  499. 2480 gosub300:goto2430
  500. 2485 print" die holztreppe hat schon einige"
  501. 2490 print" wacklige bretter.du wirst dich be-"
  502. 2495 print" muehen,diese zu umgehen.":br=1:goto2430
  503. 2500 ifbr=1goto2530
  504. 2505 print" leider bist du auf eine laut knarrende"
  505. 2510 print" stufe getreten.der wirt erscheint in"
  506. 2515 print" der tuer und holt dich zurueck."
  507. 2520 print" 'staendig diese betrunkenen die das wc"
  508. 2525 print" nicht finden.solche saufkoepfe!":wi=wi+1:goto2095
  509. 2530 ifho=1thenp=p-10
  510. 2535 ho=1:p=p+10:print" du hast es geschafft!"
  511. 2540 print" du bist in einem kleinen lagerraum."
  512. 2545 print" eine holztreppe im westen fuehrt nach"
  513. 2550 print" oben.ein gang verlaeuft in nord-sued"
  514. 2555 print" richtung."
  515. 2560 input a$
  516. 2565 ifa$="n"goto2605
  517. 2570 ifa$="s"goto2640
  518. 2575 ifa$="w"ora$="erklettere holztreppe"ora$="benutze holztreppe"goto2585
  519. 2580 gosub300:goto2540
  520. 2585 iffa=1goto2870
  521. 2590 print" vorsichtig schleichst du die treppe"
  522. 2595 print" wieder hoch und gelangst unbemerkt"
  523. 2600 print" in den schankraum zurueck.":wi=wi+1:goto2095
  524. 2605 print" in diesem raum befinden sich zahl-"
  525. 2610 print" reiche schraenke,vollgestopft mit"
  526. 2615 print" lebensmitteln.":inputa$
  527. 2620 ifleft$(a$,10)="untersuche"goto2635
  528. 2625 ifa$="s"goto2540
  529. 2630 gosub300:goto2605
  530. 2635 print" du entdeckst nichts von interesse.":goto2605
  531. 2640 print" in diesem kleinen raum stehen faesser,"
  532. 2645 print"[160]kisten und regale voll mit flaschen."
  533. 2650 print" an einem ende tuermen sich die faesser"
  534. 2655 print" sogar fast bis unter die decke.":inputa$
  535. 2660 ifa$="n"goto2540
  536. 2665 ifa$="erklettere faesser"goto2725
  537. 2670 ifleft$(a$,7)="benutze"goto2700
  538. 2675 ifleft$(a$,4)="nimm"goto2695
  539. 2680 ifleft$(a$,10)="untersuche"goto2690
  540. 2685 gosub300:goto2640
  541. 2690 print" du findest nichts von interesse.":goto2640
  542. 2695 print" das brauchst du nicht.":goto2640
  543. 2700 print" du laesst alles moegliche in dich"
  544. 2705 print" hineinlaufen und fuehlst dich nachher"
  545. 2710 print" ziemlich breit.":dr=int(rnd(x)*30)+1:c=c-dr:ifc<=0goto2720
  546. 2715 goto2640
  547. 2720 print" das war leider etwas zuviel des guten!":goto395
  548. 2725 iffa=1goto2735
  549. 2730 fa=1:goto2750
  550. 2735 print"[160]beim klettern rutschst du ploetzlich"
  551. 2740 print"[160]aus und faellst auf den boden.":c=c-5:ifc<=0goto395
  552. 2745 goto2640
  553. 2750 print" du ueberkletterst die mauer aus"
  554. 2755 print" faessern und siehst vor dir nun den"
  555. 2760 print" anderen teil des raumes.hier befinden"
  556. 2765 print" sich die gehobeneren weine und andere"
  557. 2770 print" etwas teureren angebote eines gast-"
  558. 2775 print" hauses.im osten windet sich ein enger"
  559. 2780 print" gang zu einer grotte,die nur vom meer"
  560. 2785 print" gesehen und betreten werden kann.der"
  561. 2790 print" lieferanteneingang fuer schmuggler!"
  562. 2795 ifs1$<>""goto2825
  563. 2800 print" auch nach ausgiebiger untersuchung der"
  564. 2805 print" grotte und des geheimraumes findest"
  565. 2810 print" dennoch nichts,was dir bei deinem"
  566. 2815 print" abenteuer weiterhelfen koennte.ent-"
  567. 2820 print" taeuscht kehrst du um.":p=p+10:goto2640
  568. 2825 print" aus einer eingebung heraus fuellst du"
  569. 2830 print" etwas wein aus einem fass in deine"
  570. 2835 print" flasche ab.":p=p+100
  571. 2840 ifs1$="flasche"thens1$="weinflasche"
  572. 2845 ifs1$="flasche (sauber)"thens1$="weinflasche (sauber)"
  573. 2850 print" anschliessend schaust du dich noch"
  574. 2855 print" einmal genau um,findest aber nichts"
  575. 2860 print" was dir weiterhelfen koennte."
  576. 2865 print" schliesslich kletterst zurueck.":goto2640
  577. 2870 print" im schankraum draengt ploetzlich alles"
  578. 2875 print" nach draussen.neugierig schliesst du"
  579. 2880 print" dich an."
  580. 2885 ifgy=1goto2925
  581. 2890 print" an der tuer haelt dich einer der"
  582. 2895 print" kartenspieler an:'stroessi hat einen"
  583. 2900 print" teil unserer karten zerrissen,hast du"
  584. 2905 print" vielleicht ersatzkarten?' grosszuegig"
  585. 2910 print" gibst du ihm das unvollstaendige"
  586. 2915 print" kartenspiel,worauf er wieder in der"
  587. 2920 print" kneipe verschwindet.":s2$="":p=p+10:goto2970
  588. 2925 print" im freien hat sich die menge um eine"
  589. 2930 print" am boden liegende gestalt geschart."
  590. 2935 print" die kartenspieler sind schon wieder"
  591. 2940 print" auf dem weg in die taverne zurueck."
  592. 2945 print" 'zu wenich karten gespuilt,der"
  593. 2950 print" stroessi!',meint einer.'wir muessen"
  594. 2955 print" jetzt zu seinem gedenken ans kartn!'"
  595. 2960 print"[160]mit zufriedenen gesichtern ver-"
  596. 2965 print" schwinden sie im innern."
  597. 2970 poke 198,0:wait 198,1
  598. 2975 print" gerade als du auch wieder in die"
  599. 2980 print" taverne zurueck moechtest,bruellt"
  600. 2985 print" einer der schaulustigen:'das geister-"
  601. 2990 print" schiff kommt!' alle rennen zum hafen"
  602. 2995 print" und starren auf das wasser. 'da...da!'"
  603. 3000 print"[160]kreischt einer,'ein skelett!',ein"
  604. 3005 print" anderer,'er winkt mir zu,ich sterbe!',"
  605. 3010 print" ein dritter.so sehr du dich anstrengst"
  606. 3015 print"[160]du kannst in der dunkelheit ueberhaupt"
  607. 3020 print" nichts ausmachen.'auf den schreck"
  608. 3025 print" brauche ich einen schluck!' "
  609. 3030 print" zustimmendes gemurmel."
  610. 3035 print"[160]du bist allein am hafen - bis auf"
  611. 3040 print" einen fischer,der etwas verspaetet"
  612. 3045 print" sein schiff aufraeumt.als du ihn"
  613. 3050 print" fraegst,ob er dich nicht auf das meer"
  614. 3055 print"[160]faehrt,um das geisterschiff zu suchen"
  615. 3060 print" schaut er dich nur entgeistert an.":inputa$
  616. 3065 ifleft$(a$,5)="toete"goto3085
  617. 3070 ifleft$(a$,15)="gib weinflasche"goto3095
  618. 3075 ifleft$(a$,11)="gib flasche"goto3095
  619. 3080 gosub300:goto3035
  620. 3085 print"[160]kannst du selbst ein schiff steuern?"
  621. 3090 print" wohl kaum!":goto3035
  622. 3095 ifs1$=""goto3120
  623. 3100 ifleft$(s1$,4)="wein"goto3130
  624. 3105 print" 'was will ich denn mit einer leeren"
  625. 3110 print" flasche? naechstes mal wuerde ich sie"
  626. 3115 print" besser mit etwas fuellen!"
  627. 3120 print" du hast etwas vergessen zu tun und"
  628. 3125 print" kommst hier nicht mehr weiter...":goto395
  629. 3130 ifs1$="weinflasche (sauber)"goto3160
  630. 3135 print" der fischer nimmt dankend an.nach"
  631. 3140 print" einigen kraeftigen zuegen ist die"
  632. 3145 print" flasche auch schon leer.ploetzlich"
  633. 3150 print"[160]'was war da ausser wein noch drin?'":s1$=""
  634. 3155 print" er bricht zusammen.":goto3120
  635. 3160 print" der fischer nimmt dankend an und leert"
  636. 3165 print" die flasche bis zum boden.tatendurstig"
  637. 3170 print" fordert er dich auf, sein schiff zu"
  638. 3175 print" besteigen, um das geisterschiff zu"
  639. 3180 print" erobern.":p=p+100:s1$=""
  640. 3185 poke 198,0:wait 198,1
  641. 3190 print" nach kurzer zeit tauchen vor eurem"
  642. 3195 print" kahn die umrisse eines grossen segel-"
  643. 3200 print" schiffes auf.nebelschwaden umgeben das"
  644. 3205 print" monstroese gefaehrt.vorsichtig"
  645. 3210 print" klettert ihr an bord und schaut euch"
  646. 3215 print" um."
  647. 3220 poke 198,0:wait 198,1
  648. 3225 print" auf dem deck tauchen ploetzlich von"
  649. 3230 print" allen seiten dunkle gestalten auf."
  650. 3235 print" viele halten bedrohlich wirkende gegen"
  651. 3240 print" staende in den haenden.der kapitaen"
  652. 3245 print" tritt vor und fraegt was ihr hier"
  653. 3250 print" zu suchen habt und du erzaehlst"
  654. 3255 print" wahrheitsgemaess deine geschichte."
  655. 3260 print" 'habt ihr das gehoert leute,ein"
  656. 3265 print" geisterschiff sucht er!',beginnt der"
  657. 3270 print" kapitaen.rauhes gelaechter seiner"
  658. 3275 print" mannschaft.'also gut.ihr habt es"
  659. 3280 print" gefunden!' entsetzt und irritiert"
  660. 3285 print" blickst du in das gesicht des"
  661. 3290 print" kapitaens.langsam beginnt sich seine"
  662. 3295 print" kleidung aufzuloesen und seine haut"
  663. 3300 print" zersetzt sich.grosse fleischfetzen"
  664. 3305 print" schaelen sich von seinen knochen und"
  665. 3310 print" verschwinden im nichts.am ende des"
  666. 3315 print" grausigen vorganges siehst du dich"
  667. 3320 print" einem skelett in zerschlissener"
  668. 3325 print" schweift dein blick ueber das deck."
  669. 3330 poke 198,0:wait 198,1
  670. 3335 print" allerdings stellst du voller panik"
  671. 3340 print" fest,dass dich die skelette einge-"
  672. 3345 print" kreist haben!der fischer hinter dir"
  673. 3350 print" zieht entschlossen sein messer und"
  674. 3355 print" stuerzt sich wuetend auf den kapitaen."
  675. 3360 print" 'was habt ihr mit meinem bruder und"
  676. 3365 print" den anderen im boot gemacht? rede!'
  677. 3370 [153]" seine mannschaft will ihrem anfuehrer"
  678. 3375 [153]" zu hilfe eilen,aber da muessen sie"
  679. 3380 [153]" erst einmal an dir vorbei."
  680. 3385 x[178]0:[139]c[179]40[167]c[178]40
  681. 3390 x[178]x[170]1:h[178]15:[139]x[178]4[137]3470
  682. 3395 d[178][165]x(x):e[178][165]x(x)[170]3
  683. 3400 [139]r[177]d[167]d[178]0
  684. 3405 c[178]c[171]d:h[178]h[171]e:[139]c[179][178]0[137]395
  685. 3410 [139]h[179][178]0[137]3460
  686. 3415 [141]3425
  687. 3420 [137]3395
  688. 3425 [151] 198,0:[146] 198,1
  689. 3430 [153]" das skelett greift mit einem saebel"
  690. 3435 [153]" an!der schaden betraegt";d;"punkte."
  691. 3440 [151] 198,0:[146] 198,1
  692. 3445 [153]" dein schlag fuegt dem skelett";e
  693. 3450 [153]" trefferpunkte zu."
  694. 3455 [142]
  695. 3460 [153]" mit einem letzten streich erschlaegst"
  696. 3465 [153]" du das skelett!":[137]3390
  697. 3470 [153]" die skelette weichen zurueck!":p[178]p[170]30
  698. 3475 [153]" am boden liegen zahlreiche knochen."
  699. 3480 [153]"closein einer lache aus blut liegt die"
  700. 3485 [153]" leiche des fischers."
  701. 3490 [153]" die skelette stacksen langsam wieder"
  702. 3495 [153]" auf dich zu.schnell schaust du dich"
  703. 3500 [153]" um.hinter dir befindet sich die"
  704. 3505 [153]" kajuete des kapitaens.du drehst dich"
  705. 3510 [153]" um und rennst darauf zu."
  706. 3515 [151] 198,0:[146] 198,1
  707. 3520 [153]" dort angekommen wirfst du die tuer"
  708. 3525 [153]" hinter dir ins schloss.erschoept"
  709. 3530 [153]" lehnst du dich gegen eine wand,dein"
  710. 3535 [153]" blick schweift durch den raum.nebenbei"
  711. 3540 [153]" vernimmst du scharrende geraeusche an"
  712. 3545 [153]" der tuer.neben einem bett,einem regal"
  713. 3550 [153]" mit plaenen und buechern faellt dein"
  714. 3555 [153]" blick schliesslich auf einen schreib-"
  715. 3560 [153]" tisch.auf ihm stehen naemlich eine"
  716. 3565 [153]" grosse anzahl kleiner flaeschchen."
  717. 3570 [153]" eines traegt die aufschrift heiltrank;"
  718. 3575 [153]" da du keine andere wahl hast trinkst"
  719. 3580 [153]" du sie leer.":c[178]60
  720. 3585 [151] 198,0:[146] 198,1
  721. 3590 [153]" sie wirkt!deine lebensenergie ist auf"
  722. 3595 [153]" 60 punkte angestiegen!"
  723. 3600 [153]" unter dem schreibtisch liegt saeuber-"
  724. 3605 [153]" lich zusammengelegt eine lederruestung"
  725. 3610 [153]" dankbar ziehst du sie an.":r[178]4
  726. 3615 [153]" ploetzlich hoerst du das geraeuusch"
  727. 3620 [153]" splitternden holzes,du wirbelst herum"
  728. 3625 [153]" und siehst,wie die tuer aufspringt."
  729. 3630 [153]" im eingang tauchen einige skelette auf"
  730. 3635 [153]" 'diesmal entkommst du uns nicht mehr!'"
  731. 3640 [153]" droehnt einer und erhebt seinen saebel":d[178]0
  732. 3645 a[178]15
  733. 3650 b[178][165]x(x):e[178][165]x(x)[170]3
  734. 3655 [139]r[178][177]b[137]3665
  735. 3660 c[178]c[171]b[170]r:[141]3680:[139]c[179][178]0[137]395
  736. 3665 a[178]a[171]e:[141]3690:[139]a[179][178]0[167][141]3700:[137]3645
  737. 3670 d[178]d[170]1:[139]d[178]11[137]3720
  738. 3675 p[178]p[170]10:[137]3650
  739. 3680 [153]" das skelett trifft dich mit dem saebel"
  740. 3685 [153]" der treffer kostet dich";b[171]r;"punkte.":[137]3710
  741. 3690 [153]" mit einem wuchtigen schlag erziehlst"
  742. 3695 [153]" du";e;"schadenspunkte.":[137]3710
  743. 3700 [153]" das skelett sinkt toedlich getroffen"
  744. 3705 [153]" zu boden."
  745. 3710 [151] 198,0:[146] 198,1
  746. 3715 [142]
  747. 3720 [153]"closedas letzte skelett liegt tot zu deinen"
  748. 3725 [153]" fuessen!der spuk ist vorbei.in"
  749. 3730 [153]" sekundenschnelle zerfallen die"
  750. 3735 [153]" skelette zu staub.auch das schiff"
  751. 3740 [153]" altert im zeitraffer:holz verfault,"
  752. 3745 [153]" segel zerreissen,bretter loesen sich."
  753. 3750 [153]" du verlierst den boden unter den"
  754. 3755 [153]" fuessen und verlierst das bewusstsein."
  755. 3760 [151] 198,0:[146] 198,1
  756. 3765 [153]"loadopen (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
  757. 3770 [153]" peekals du aufwachst liegst du in einem peek"
  758. 3775 [153]" peekbett.durch ein fenster kannst du aufpeek"
  759. 3780 [153]" peekden marktplatz des kleinen fischer- peek"
  760. 3785 [153]" peekdorfes blicken.nach einiger zeit    peek"
  761. 3790 [153]"closepeekbetritt der buergermeister den raum.peek"
  762. 3795 [153]" mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)"
  763. 3800 [151] 198,0:[146] 198,1
  764. 3805 [153]"load (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
  765. 3810 [153]" peek'unsere fischer haben dich vor      peek"
  766. 3815 [153]" peekeinigen tagen am strand aufgelesen. peek"
  767. 3820 [153]" peekwas ist geschehen?' du erzaehlst vonpeek"
  768. 3825 [153]" peekdeinem abenteuer,der buergermeister peek"
  769. 3830 [153]" peekhoert aufmerksam zu.am ende deiner  peek"
  770. 3835 [153]"closepeekhaarstraeubenden geschichte meint   peek"
  771. 3840 [153]" peekder buergermeister nachdenklich,dasspeek"
  772. 3845 [153]" peekeine alte legende von einem piraten-peek"
  773. 3850 [153]" peekschiff erzaehlt, welches genau an   peek"
  774. 3855 [153]" peekdieser stelle im meer versunken seinpeek"
  775. 3860 [153]" peeksoll. 'ich werde veranlassen, dass  peek"
  776. 3865 [153]" peekdort getaucht wird.' der erfolg     peek"
  777. 3870 [153]" peekbleibt nicht aus:die morschen teile peek"
  778. 3875 [153]" peekeines schiffes werden gefunden,sowiepeek"
  779. 3880 [153]" peekeinige skelette und eine grosse an- peek"
  780. 3885 [153]" peekzahl geraubter wertgegenstaende,    peek"
  781. 3890 [153]" peekvon denen du einen guten teil       peek"
  782. 3895 [153]" peekerhaeltst.                          peek"
  783. 3900 [153]" mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)"
  784. 3905 [151] 198,0:[146] 198,1
  785. 3910 [153]"loadclr      you have made it to sunset!":p[178]p[170]40:s[178]s[170]1000
  786. 3915 [153]" gute arbeit, ";name$;"!"
  787. 3920 [153]" nochmals deine werte:"
  788. 3925 [153]" lebensenergie  ";c
  789. 3930 [153]" ruestungsschutz";r
  790. 3935 [153]" punkte         ";p;"von 500"
  791. 3940 [153]" wertsachen     ";s
  792. 3945 t1$[178][200](ti$,2):t2$[178][202](ti$,3,2):t3$[178][201](ti$,2)
  793. 3950 [153]" spielzeit(std,min,sek):  ";t1$;":";t2$;".";t3$
  794. 3955 [153]"    mit der leertaste geht's weiter"
  795. 3960 [151] 198,0:[146] 198,1
  796. 3965 [153]"loadprint (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
  797. 3970 [153]" peeknatuerlich geniesst du es, in dem   peek"
  798. 3975 [153]" peekkleinen dorf fuer kurze zeit zu ver-peek"
  799. 3980 [153]" peekweilen, doch mit dem verschwinden   peek"
  800. 3985 [153]" peekdes phantomschiffs wird es bald     peek"
  801. 3990 [153]" peeklangweilig.deshalb reist du ab mit  peek"
  802. 3995 [153]" peekeiner grossen menge wertgegenstaendepeek"
  803. 4000 [153]" peekum das naechste grosse abenteuer    peek"
  804. 4005 [153]" peekzu finden.                          peek"
  805. 4010 [153]" mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)"
  806. 4015 [153]" die suche geht weiter..."
  807. 4100 [151] v[170]21,2
  808. 4105 [129] n[178]60 [164] 260:[158] ld,n,220,1:[129] i[178]1[164] 20:[130]i:[130] n
  809. 4110 [129] n[178]260 [164] 60 [169][171]1:[158] ld,n,220,1:[129] i[178]1[164] 20:[130]i:[130] n
  810. 4115 [137] 4105
  811.