10 V=53248:LD=52300
15 POKE 2040,13:POKE 2041,14
20 FORN=0TO62:READQ:POKE832+N,Q:NEXT
25 FORN=0TO62:READQ:POKE896+N,Q:NEXT
30 POKE V+21,0:POKE V+27,1+2
35 POKE V+39,3:POKE V+40,1
40 REM SPRITE 0 *THE SHIP LOGO*
45 DATA 127,255,252,127,255,252
50 DATA 102,0,0,102,102,124
55 DATA 6,102,96,6,126,124
60 DATA 6,126,124,6,102,96
65 DATA 6,102,124,0,0,0
70 DATA 0,0,0,14,151,120
75 DATA 30,151,68,24,146,68
80 DATA 28,242,120,6,146,96
85 DATA 30,151,96,28,151,96
90 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
95 :
100 REM SPRITE 1 *THE SHIP*
105 DATA 0,0,0,0,8,0,0,14,0
110 DATA 0,8,0,0,28,0,0,60,0
115 DATA 0,234,0,1,235,14,7,235,8
120 DATA 31,235,136,63,235,136,127,235,200
125 DATA 129,255,254,64,8,50,63,255,254
130 DATA 30,219,126,15,255,252
135 DATA 15,255,252,7,255,248
140 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
145 :
150 POKE 53280,0:POKE 53281,0:PRINT"[147]"
155 :
160 FA=PEEK(53280):FB=PEEK(53281):FC=PEEK(646):POKE53280,0:POKE53281,0
165 PRINT"           GREAT ADVENTURE 3            [146]"
170 PRINT"  THE SHIP - DIGITAL TALK EDITION 2002  [146]"
175 PRINT"[159] GREETINGS FROM 1990 TO"
180 PRINT" TAI PAN,PHANTOM,WILLIBALD,SAFDA,BAUER"
185 PRINT" GREETINGS FROM 2002 TO"
190 PRINT" CHAMP,WINNI,BARACUDA & THE STOCK,RED"
195 PRINT" SCORPION,GAZETTE"
200 PRINT"[158] DAS SPIEL BESITZT EIN HILFSMENUE."
205 PRINT" SCHREIBE"
210 POKE646,A:PRINT"                  HELP [146]"
215 PRINT"[158] FUER WEITERE INFORMATIONEN..."
220 PRINT"     NEUE SPIELDATEN ANLEGEN (J/N)?"
225 GETA$
230 IF A$="J" GOTO 250
235 IF A$="N" GOTO 1115
240 IF A>15 THEN A=0
245 POKE 646,A:A=A+1:GOTO 165
250 INPUT"[147] WIE HEISST DU";NAME$
255 OPEN7,8,7,"@0:SHIP/AD3/FARBEN,S,W":CR$=CHR$(13)
260 PRINT#7,2;CR$;10;CR$;1
265 CLOSE7
270 OPEN4,8,4,"@0:SHIP/AD3/NAME,S,W":PRINT#4,NAME$:CLOSE4
275 PRINT" DER NAME WURDE GESPEICHERT."
280 POKE 198,0:WAIT 198,1
285 GOTO 1115
290 :
295 REM AUSWERTUNG TASTATUREINGABE
300 IFA$="HELP" GOTO 460
305 IFA$="INV" OR A$="INVENTAR" GOTO 820
310 IF LEFT$(A$,5)="TOETE" THEN PRINT" IST DOCH GAR KEINER DA!":RETURN
315 IF A$="BENUTZE" OR A$="NIMM" OR A$="GIB" OR A$="OEFFNE" GOTO 370
320 IF A$="KLOPFE AN" OR A$="UNTERSUCHE" OR A$="ERKLETTERE" GOTO 370
325 IF A$="N" OR A$="S" OR A$="W" OR A$="O" GOTO 375
330 IFLEFT$(A$,7)="BENUTZE"GOTO385
335 IFLEFT$(A$,4)="NIMM"THENPRINT" DAS BRAUCHST DU NICHT MITZUNEHMEN.":RETURN
340 IFLEFT$(A$,3)="GIB"GOTO385
345 IFLEFT$(A$,6)="OEFFNE"GOTO385
350 IFLEFT$(A$,9)="KLOPFE AN"GOTO385
355 IFLEFT$(A$,10)="UNTERSUCHE"THENPRINT" DA IST NICHTS BESONDERS.":RETURN
360 IFLEFT$(A$,10)="ERKLETTERE"GOTO385
365 PRINT" UNZUREICHENDE DATEN, ";NAME$;".":RETURN
370 PRINT" BITTE GANZE SAETZE EINGEBEN, ";NAME$;".":RETURN
375 PRINT" DIESE RICHTUNG IST MOMENTAN NICHT"
380 PRINT" MOEGLICH, ";NAME$;".":RETURN
385 PRINT" ICH VERSTEHE DAS HAUPTWORT LEIDER"
390 PRINT" NICHT, ";NAME$;".":RETURN
395 GETA$:IFA$=""GOTO395
400 PRINT"[147] DEIN HELD IST GESTORBEN!"
405 PRINT" RUESTUNGSSCHUTZ:";R
410 PRINT" WERTE          :";S
415 PRINT" PUNKTE         :";P;"VON 500"
420 PRINT" NICHT TRAURIG SEIN.THE SHOW MUST GO"
425 PRINT" ON."
430 PRINT" NOCHMAL?(J/N)"
435 GETA$
440 IFA$="J"THENCLR:PRINT"[147]":GOTO155
445 IFA$="N"THENPRINT"[147]":END
450 GOTO435
455 :
460 POKE V+23,1:POKE V+29,1
462 POKE V+21,1:PRINT"[147]";
465 FOR N=15 TO 55:SYS LD,270,N,0:NEXT N
475 PRINT" HELP-MENUE"
480 PRINT" (F1) FARBEN AENDERN"
485 PRINT" (F3) LISTE MOEGLICHER BEFEHLE"
490 PRINT" (F5) KURZE ANLEITUNG"
495 PRINT" (F7) WERTE DES HELDEN"
500 PRINT" (F2) KAMPFTRAINING"
505 PRINT" (F4) SPIELERNAME AENDERN"
510 PRINT" (F6) 'THE SHIP' UND MEHR..."
515 PRINT"  _ [146]  WEITERSPIELEN"
520 PRINT" SPIELZEIT(STD,MIN,SEK):"
525 T1$=LEFT$(TI$,2):T2$=MID$(TI$,3,2):T3$=RIGHT$(TI$,2)
530 PRINT"";T1$;":";T2$;".";T3$
535 A$="":GET A$
540 IFA$=CHR$(133)THEN GOSUB 582:GOTO 590
545 IFA$=CHR$(134)THEN GOSUB 582:GOTO 740
550 IFA$=CHR$(135)THEN GOSUB 582:GOTO 940
555 IFA$=CHR$(136)THEN GOSUB 582:GOTO 995
560 IFA$=CHR$(137)THEN GOSUB 582:GOTO 1040
565 IFA$=CHR$(138)THEN GOSUB 582:GOTO 860
570 IFA$=CHR$(139)THEN GOSUB 582:GOTO 895
575 IFA$="_"THEN GOSUB 582:PRINT"[147]":RETURN
580 GOTO525
582 FOR N=55 TO 15 STEP-1:SYS LD,270,N,0:NEXT N
583 POKE V+21,0
584 POKE V+23,0:POKE V+29,0
585 RETURN
586 :
590 REM FARBEN AENDERN
595 PRINT"[147]FARBEN:  1 [146] RAHMENFARBE"
600 PRINT"         2 [146] HINTERGRUNDFARBE"
605 PRINT"         3 [146] ZEICHENFARBE"
610 PRINT"         0 [146] SPEICHERN"
615 PRINT"         _ [146] ZURUECK"
620 POKE 198,0:WAIT 198,1:GET A$
625 IF A$="1" THEN 660
630 IF A$="2" THEN 675
635 IF A$="3" THEN 690
640 IF A$="0" THEN 710
645 IF A$="_" THEN 460
650 GOTO 620
655 :
660 IF FA>15 THEN FA=0
665 POKE 53280,FA:FA=FA+1
670 GOTO 620
675 IF FB>15 THEN FB=0
680 POKE 53281,FB:FB=FB+1
685 GOTO 620
690 IF FC>15 THEN FC=0
695 POKE 646,FC:FC=FC+1
700 GOTO 590
705 :
710 OPEN 7,8,7,"@0:SHIP/AD3/FARBEN,S,W":CR$=CHR$(13)
715 XX=PEEK(53281):YY=PEEK(53280):ZZ=PEEK(646)
720 PRINT#7,XX;CR$;YY;CR$;ZZ
725 CLOSE 7
730 GOTO 460
735 :
740 REM BEFEHLE
745 PRINT"[147] BEFEHLE:"
750 PRINT" HIMMELSRICHTUNGEN: N,S,W,O,"
755 PRINT" EIN-WORT-KOMMANDOS: TOETE, HELP, INV,"
760 PRINT" ZWEI-WORT-KOMMANDOS:"
765 PRINT"   NIMM ...."
770 PRINT"   GIB ...."
775 PRINT"   UNTERSUCHE ...."
780 PRINT"   BENUTZE ...."
785 PRINT"   OEFFNE ...."
790 PRINT"   KLOPFE AN ...."
795 PRINT"   ERKLETTERE ...."
800 POKE 198,0:WAIT 198,1
805 GOTO 460
810 :
815 REM INVENTAR
820 PRINT" INVENTAR:"
825 IFS1$=""ANDS2$=""ANDS3$=""THENPRINT" WENICH!":GOTO845
830 IFS1$<>""THENPRINT" ";S1$
835 IFS2$<>""THENPRINT" ";S2$
840 IFS3$<>""THENPRINT" ";S3$
845 POKE 198,0:WAIT 198,1
850 RETURN
855 :
860 REM SPIELERNAME AENDERN
865 PRINT" ALTER NAME: ";NAME$
870 INPUT" NEUER NAME";NAME$
875 OPEN4,8,4,"@0:SHIP/AD3/NAME,S,W":PRINT#4,NAME$:CLOSE4
880 GOTO 460
885 :
890 REM 'THE SHIP' UND MEHR...
895 PRINT"[147] AUS DER REIHE 'GREAT ADVENTURES'- VON"
900 PRINT" KARAMBA SOFT PROGRAMMIERT -SIND BISHER"
905 PRINT" ERSCHIENEN:":PRINT"  - THE HOUSE":PRINT"  - THE TEMPLE"
910 PRINT"  - THE SHIP"
915 PRINT" PUBLIC DOMAIN.VERBREITUNG ERWUENSCHT."
920 POKE 198,0:WAIT 198,1
925 GOTO460
930 :
935 REM KURZE ANLEITUNG
940 PRINT"[147] DIE SCHWIERIGKEIT BEI ABENTEUERN BE-"
945 PRINT" STEHT ZWEIFELLOS DARIN,DEM COMPUTER"
950 PRINT" DIE EINGABE VERSTEHEN ZU LASSEN."
955 PRINT" DIES ERREICHT MAN UNTER VERWENDUNG DER"
960 PRINT" VORGEGEBENEN TUNWOERTER UND DURCH DAS"
965 PRINT" AUFGREIFEN DER HAUPTWOERTER AUS DEM"
970 PRINT" VORHERGEGANGENEN TEXT."
975 POKE 198,0:WAIT 198,1
980 GOTO460
985 :
990 REM WERTE DES HELDEN
995 PRINT"[147]";:SYS 52912
1000 PRINT"   ";C;"      ";R;"        ";S;"   ";P;"/500"
1005 PRINT" LEBENS-  RUESTUNGS-  INVENTAR  SPIEL-"
1010 PRINT"  KRAFT    SCHUTZ               PUNKTE"
1015 POKE 198,0:WAIT 198,1
1020 SYS 53103
1025 POKE53281,FB:GOTO460
1030 :
1035 REM SIMULATION KAMPF
1040 PRINT"[147] DIESER PROGRAMMABSCHNITT SIMULIERT"
1045 PRINT" KAEMPFE GEGEN NACHEINANDERFOLGENDE"
1050 PRINT" SKELETTE.DER SPIELVERLAUF WIRD DURCH"
1055 PRINT" DEN ABLAUF NICHT BEEINTRAECHTIGT.":ME=0
1060 LE=C
1065 D=15
1070 TR=FNX(X):IFTR>RTHENLE=LE-TR+R
1075 D=D-FNX(X)
1080 IFLE<0GOTO1095
1085 IFD<=0THENME=ME+1:GOTO1065
1090 GOTO1070
1095 PRINT" DU KONNTEST";ME;"SKELETTE ERSCHLAGEN."
1100 POKE 198,0:WAIT 198,1
1105 GOTO460
1110 :
1115 REM ANZEIGE WERTE BEI SPIELSTART
1120 OPEN4,8,4,"@0:SHIP/AD3/NAME,S,R":INPUT#4,NAME$:CLOSE4
1125 OPEN7,8,7,"@0:SHIP/AD3/FARBEN,S,R":INPUT#7,XX,YY,ZZ:CLOSE7
1130 POKE53280,YY:POKE646,ZZ
1135 PRINT"[147]";
1140 DEF FNX(X)=INT(RND(X)*7)+1
1145 C=INT(RND(X)*50)+1:IFC<40THENC=40
1150 SYS 52912
1155 PRINT"              1           -     0/500"
1160 R=1:PRINT" LEBENS-  RUESTUNGS-  INVENTAR  SPIEL-"
1165 PRINT"  KRAFT    SCHUTZ               PUNKTE"
1170 PRINT"      DAS ABENTEUER KANN BEGINNEN!"
1175 PRINT"   ";C
1180 POKE 198,0:WAIT 198,1
1185 SYS 53103
1190 :
1195 PRINT"[147]";:POKE53281,XX
1200 TI$="000000"
1205 PRINT" AM ERSTEN TAG DEINER SUCHE WIRST VOR"
1210 PRINT" DEN AELTESTENRAT BERUFEN.HIER KANN"
1215 PRINT" DIR KEINER SO RECHT WEITERHELFEN:DIE"
1220 PRINT" DORFAELTESTEN SIND VERAENGSTIGT UND"
1225 PRINT" SIND DEINEM VORHABEN ABGENEIGT,DA SIE"
1230 PRINT" NOCH SCHLIMMERES ERWARTEN, SOLLTE SICH"
1235 PRINT" EINER GEGEN DIE UNTOTEN AUFLEHNEN.NACH"
1240 PRINT" DIESER NUTZLOSEN VERSAMMLUNG WENDEST"
1245 PRINT" DU DICH DEM DORF ZU."
1250 :
1255 PRINT" DU BIST GERADE AUF DEM MARKTPLATZ.ER"
1260 PRINT" WIRD VON EINIGEN SCHAEBIGEN HOLZ-"
1265 PRINT" HUETTEN EINGERAHMT.IM WESTEN BEFINDET"
1270 PRINT" SICH DIE KLEINE TAVERNE,DAHINTER ER-"
1275 PRINT" STRECKT SICH DER ENDLOSE OZEAN.GEGEN-"
1280 PRINT" UEBER DER HERUNTERGEKOMMENEN KNEIPE"
1285 PRINT" LIEGT DAS STILVOLL ERBAUTE HAUS DES"
1290 PRINT" BUERGERMEISTERS."
1295 INPUTA$
1300 IFA$="W"GOTO1320
1305 IFA$="O"GOTO1720
1310 GOSUB300:GOTO1255
1315 :
1320 IFAC=1GOTO1820
1325 AC=1
1330 PRINT" VOR DER TAVERNE LIEGT NEBEN DEN MUELL-"
1335 PRINT" TONNEN UND EINIGEN LEEREN FLASCHEN EIN"
1340 PRINT" ANGETRUNKENER ALTER MANN.ER BEOBACHTET"
1345 PRINT" DICH AUFMERKSAM UND MURMELT 'ZU WENIG'"
1350 PRINT" 'NOCH ZU WENIG' VOR SICH HIN UND"
1355 PRINT" KICHERT NERVOES.DIE KNEIPE IST NOCH"
1360 PRINT" GESCHLOSSEN UND OEFFNET ERST NACH-"
1365 PRINT" MITTAGS, WIE EIN SCHILD NEBEN DER TUER"
1370 PRINT" BESAGT."
1375 INPUTA$
1380 IFLEFT$(A$,5)="TOETE" AND S3$="" GOTO 1700
1385 IFA$="OEFFNE TUER"GOTO1435
1390 IFA$="KLOPFE AN TUER"GOTO1440
1395 IFA$="UNTERSUCHE TUER"GOTO1470
1400 IFA$="UNTERSUCHE SCHILD"GOTO1495
1405 IFA$="O"GOTO1255
1410 IFA$="W"GOTO1570
1415 IFLEFT$(A$,21)="UNTERSUCHE MUELLTONNE"GOTO1475
1420 IFLEFT$(A$,18)="UNTERSUCHE FLASCHE"GOTO1600
1425 IFLEFT$(A$,12)="NIMM FLASCHE"GOTO1610
1430 GOSUB300:GOTO1330
1435 PRINT" SIE IST VERSCHLOSSEN.":GOTO1330
1440 IFWI=1GOTO1450
1445 WI=WI+1:PRINT" NICHTS RUEHRT SICH.":GOTO1330
1450 PRINT" EIN KLEINES FENSTER OEFFNET SICH UND"
1455 PRINT" DAS GESICHT DES WIRTS ERSCHEINT."
1460 PRINT" 'KOENNEN SIE NICHT LESEN!WIR OEFFNEN":IFWI=1THENP=P+5
1465 PRINT" ERST IN UNGEFAEHR ZWEI STUNDEN!":GOTO1330
1470 PRINT" JA ...DAS IST EINE TUER.":GOTO1330
1475 PRINT" NEBEN EINIGEN ANGESCHIMMELTEN ESSENS-"
1480 PRINT" RESTEN UND GLASSCHERBEN GIBT ES NOCH"
1485 PRINT" ANDERE LECKEREIEN.EIN PAAR RATTEN"
1490 PRINT" HUSCHEN VERSCHRECKT INS DUNKLE.":GOTO1330
1495 PRINT" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1500 PRINT" [194]      GASTHAUS     [194]"
1505 PRINT" [194] ZUM VERSCHLEPPTEN [194]"
1510 PRINT" [194]      SEEMANN      [194]"
1515 PRINT" [194]                   [194]"
1520 PRINT" [194] OEFFNUNGSZEITEN:  [194]"
1525 PRINT" [194] MO-FR AB 16.00    [194]"
1530 PRINT" [194] SA,SO AB 14.30    [194]"
1535 PRINT" [194]                   [194]"
1540 PRINT" [194]  BITTE NICHT AN   [194]"
1545 PRINT" [194] DIE TUER KLOPFEN! [194]"
1550 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
1555 SC=SC+1:IFSC=1THENP=P+5
1560 POKE 198,0:WAIT 198,1
1565 GOTO1330
1570 PRINT" UM DIESE ZEIT IST AM HAFEN NICHTS LOS."
1575 PRINT" EIN KLEINES SCHIFF WIRD GERADE ENT-"
1580 PRINT" LADEN,AUF DEM MEER KREUZEN EIN PAAR"
1585 PRINT" FISCHERKAEHNE. UND GEISTERSCHIFFE"
1590 PRINT" KOMMEN BEKANNTLICH ERST ZU FORTGE-"
1595 PRINT" SCHRITTENER STUNDE.":GOTO1330
1600 PRINT" ALLES GANZ GEWOEHNLICHE LEERGETRUNKENE"
1605 PRINT" WEINFLASCHEN.":GOTO1330
1610 IFFL=1THENPRINT" MEHR BRAUCHST DU WIRKLICH NICHT.":GOTO1330
1615 L=1:PRINT" OK.":S1$="FLASCHE":P=P+5:GOTO1330
1620 PRINT" DER LANDSTREICHER SPRINGT AUF SEINE"
1625 PRINT" FUESSE UND ZIEHT EIN KLEINES MESSER."
1630 D=15
1635 TR=FNX(X)+2:IFTR>RTHENC=C-TR+R:GOSUB1660
1640 T2=FNX(X):IFT2>1THEND=D-T2:GOSUB1680
1645 IFC<0GOTO395
1650 IFD<=0GOTO1690
1655 GOTO1635
1660 PRINT" DER LANDSTREICHER STICHT ZU UND ER-"
1665 PRINT" ZIELT";TR;"TREFFERPUNKTE."
1670 POKE 198,0:WAIT 198,1
1675 RETURN
1680 PRINT" DU SCHLAEGST MIT";T2;"TREFFERPUNKTEN"
1685 PRINT" ZU.":GOTO1670
1690 PRINT" DER LANDSTREICHER IST TOT.ERSCHROCKEN"
1695 PRINT" FLUECHTEST DU ZUM MARKTPLATZ.":P=P+15:LA=1:GOTO1255
1700 PRINT" DEINE FAEUSTE NUTZEN DIR WENIG, DENN"
1705 PRINT" DER KERL HATTE EIN MESSER DABEI."
1710 PRINT" DU STIRBST.":PRINT"     ENDE.":END
1715 :
1720 IF AC=1 AND BU=0 GOTO 1750
1725 PRINT" AN DER TUER DES RATHAUSES FAENGT DICH"
1730 PRINT" DER DIENER DES BUERGERMEISTERS AB."
1735 PRINT" 'DER BUERGERMEISTER WILL JETZT NICHT"
1740 PRINT" GESTOERT WERDEN',ERKLAERT ER UND"
1745 PRINT" SCHICKT DICH FORT.":GOTO1255
1750 PRINT" DER DIENER DES BUERGERMEISTERS BITTET"
1755 PRINT" DICH ZU EINER UNTERREDUNG HEREIN UND"
1760 PRINT" FUEHRT DICH IN DEN WARTERAUM UND NACH"
1765 PRINT" KURZER ZEIT EMPFAENGT DICH DER BUERGER-";
1770 PRINT" MEISTER.IM AMTSZIMMER ERZAEHLST DU"
1775 PRINT" IHM DEIN VORHABEN.ER IST HOCHERFREUT,"
1780 PRINT" DASS SICH ENDLICH JEMAND BEI IHM"
1785 PRINT" MELDET, DIE GEISTER ZU VERTREIBEN."
1790 PRINT" ER UEBERREICHT DIR EIN SCHWERT UND"
1795 PRINT" 5 DUKATEN UM DAS ABENTEUER BESTEHEN ZU"
1800 PRINT" KOENNEN.ANSCHLIESSEND WUENSCHT ER DIR"
1805 PRINT" VIEL GLUECK UND VERABSCHIEDET SICH.DER"
1810 PRINT" DIENER BEGLEITET DICH ZUR TUER.":BU=1:P=P+5:S=5:S3$="SCHWERT"
1815 GOTO 1255
1820 IFBU=1GOTO1845
1825 IFLA=1GOTO1970
1830 PRINT" DIE KNEIPE HAT IMMER NOCH NICHT GE-"
1835 PRINT" OEFFNET. DER PENNER IST EINGENICKT."
1840 PRINT" ENTTAEUSCHT WENDEST DU DICH AB.":GOTO 1375
1845 IFLA=1GOTO1980
1850 PRINT" DER PENNER BLINZELT DICH AN.DAS"
1855 PRINT" SCHWERT SCHEINT IHM ZU GEFALLEN."
1860 PRINT" PLOETZLICH SPRINGT ER AUF DIE FUESSE"
1865 PRINT" UND ATTACKIERT DICH MIT EINEM MESSER."
1870 D=15
1875 T1=FNX(X)+2:T2=FNX(X)+3
1880 D=D-T2:GOSUB1915
1885 IFR<T1THENC=C-T1+R:GOSUB1905
1890 IFC<0GOTO395
1895 IFD<0GOTO1940
1900 GOTO1875
1905 PRINT" DER LANDSTREICHER STICHT ZU UND FUEGT"
1910 PRINT" DIR";T1;"SCHADENSPUNKTE ZU.":GOTO1930
1915 PRINT" EIN GEWALTIGER SCHWERTHIEB BRINGT DEM"
1920 PRINT" LANDSTREICHER";T2;"SCHADENSPUNKTE"
1925 PRINT" EIN."
1930 POKE 198,0:WAIT 198,1
1935 RETURN
1940 PRINT" DER LANDSTREICHER STUERZT TOEDLICH"
1945 PRINT" GETROFFEN ZU BODEN.DU WISCHST DAS BLUT"
1950 PRINT"[160]VON DER SCHEIDE UND WENDEST DICH VON"
1955 PRINT" IHM AB.":P=P+15
1960 POKE 198,0:WAIT 198,1
1965 GOTO1980
1970 PRINT" DIE KNEIPE IST IMMER NOCH GESCHLOSSEN."
1975 PRINT"[160]ENTTAEUSCHT GEHST DU ZURUECK.":GOTO1255
1980 PRINT" DIE TAVERNE HAT ENDLICH GEOEFFNET."
1985 PRINT"[160]DU TRITTST ALS ERSTER EIN UND SETZT"
1990 PRINT" DICH AN EINEN DER TISCHE. BEIM WIRT"
1995 PRINT" BESTELLST DU DIR DANN EIN BIER.":P=P+5:S=S-5
2000 POKE 198,0:WAIT 198,1
2005 PRINT" SCHNELL FUELLT SICH DIE KLEINE KNEIPE."
2010 PRINT" AN MEHREREN TISCHEN WIRD GEKARTET UND"
2015 PRINT"[160]PFEIFENQUALM VERNEBELT DIE LUFT.EIN"
2020 PRINT" BETRUNKENER FISCHER STEHT LALLEND AUF"
2025 PRINT" EINEM TISCH, EINIGE EBENFALLS ANGE-"
2030 PRINT" TRUNKENE ZUHOERER BESTAUNEN, WAS"
2035 PRINT" DIESER MORDSKERL SCHON ALLES ERLEBT"
2040 PRINT" HAT UND LASSEN ES SICH NICHT NEHMEN,"
2045 PRINT" IHM IN SEINEN KUNSTPAUSEN ETWAS ZU"
2050 PRINT" SPENDIEREN. EIN ALTER MANN, DER ALLEIN"
2055 PRINT" AN SEINEM TISCH SITZT, FAEHRT DIE"
2060 PRINT" KARTENSPIELER ZORNIG AN, WORAUF EINER"
2065 PRINT" GELASSEN ANTWORTET:"
2070 PRINT" 'SETZ DICH SCHOEN WIEDER HIN, STROESSI,";
2075 PRINT" SONST STIRBST DU UNS NOCH AN EINEM"
2080 PRINT" HERZINFAKT!'. EIN ANDERER ERGAENZT:"
2085 PRINT" 'ALTE LABERNASE!' TOLLE STIMMUNG!"
2090 POKE 198,0:WAIT 198,1
2095 PRINT" IN DER WEST- UND OSTWAND BEFINDET SICH"
2100 PRINT" JEWEILS EINE TUER.AN DEN TISCHEN WIRD"
2105 PRINT"[160]WEITER KARTEN GESPIELT.HINTER DER"
2110 PRINT" THEKE STEHT DER WIRT UND UNTERHAELT"
2115 PRINT" SICH ANGEREGT MIT EINEM FISCHER."
2120 INPUTA$
2125 IFW1=5GOTO2870
2130 IFLEFT$(A$,5)="TOETE"THENPRINT" NICHT HIER!":GOTO2095
2135 IFA$="UNTERSUCHE THEKE"GOTO2170
2140 IFA$="UNTERSUCHE TISCHE"GOTO2180
2145 IFA$="KLOPFE AN TUER"GOTO2225
2150 IFA$="W"GOTO2235
2155 IFA$="O"GOTO2430
2160 IFA$="NIMM KARTENSPIEL"GOTO2215
2165 GOSUB300:GOTO2095
2170 W1=W1+1:PRINT" BEI DER THEKE GIBT ES NICHTS VON"
2175 PRINT" INTERESSE.":GOTO2095
2180 IFKA=1GOTO2205
2185 PRINT" AN EINEM UNBESETZTEN TISCH LIEGT EIN"
2190 PRINT" UNVOLLSTAENDIGES KARTENSPIEL UND"
2195 PRINT"[160]HALBVOLLE BIERKRUEGE."
2200 W1=W1+1:GOTO2095
2205 PRINT"[160]AN EINEM TISCH STEHEN NOCH EINIGE"
2210 PRINT" HALBVOLLE BIERKRUEGE.":WI=WI+1:GOTO2095
2215 IFKA=1THENPRINT" HAST DU DOCH SCHON!":W1=W1+1:GOTO2095
2220 S2$="KARTENSPIEL":P=P+10:PRINT" OK.":W1=W1+1:KA=1:GOTO2095
2225 PRINT" DU KLOPFST AN DER TUER,ABER ES"
2230 PRINT" PASSIERT NICHTS.":W1=W1+1:GOTO2095
2235 PRINT" DU BEFINDEST DICH IM WC DES WIRTS-"
2240 PRINT" HAUSES."
2245 IFSA=1GOTO2335
2250 SA=1:PRINT"[160]GERADE KOMMT OPA STROESSI ZUR TUER"
2255 PRINT" HEREIN."
2260 INPUTA$
2265 IFA$="GIB KARTENSPIEL"ANDS2$="KARTENSPIEL"GOTO2305
2270 IFA$="UNTERSUCHE WASCHBECKEN"GOTO2385
2275 IFA$="BENUTZE FLASCHE"GOTO2390
2280 IFA$="BENUTZE WASCHBECKEN"GOTO2415
2285 IFA$="O"GOTO2095
2290 GOSUB300
2295 PRINT" OPI STROESSI VERRICHTET SEIN GESCHAEFT"
2300 PRINT" UND VERLAESST DAS WC.":GOTO2335
2305 PRINT"[160]WUETEND STARRT DICH STROESSI AN.SEIN"
2310 PRINT" UNTERKIEFER VIBRIERT VOR WUT.ER"
2315 PRINT" ZERREISST DEN KARTENSTAPEL UND WIRFT"
2320 PRINT" DIE KONFETTIS IN DIE LUFT.IRRSINNIG"
2325 PRINT" SABBERND STUERZT ER ZUR TUER UND WIRFT":S2$="":GY=1
2330 PRINT" SIE HINTER SICH ZU.":P=P+50
2335 PRINT" IM WC BEFINDEN SICH EIN WASCHBECKEN"
2340 PRINT" UND MEHRERE KABINEN.DU WEIGERST DICH"
2345 PRINT" SIE WEGEN IHRES UNERTRAEGLICHEN"
2350 PRINT" GESTANKES ZU BETRETEN.":INPUTA$
2355 IFRIGHT$(A$,7)="KABINEN"THENPRINT" IGITT!":GOTO2335
2360 IFA$="O"THENW1=W1+1:GOTO2095
2365 IFA$="UNTERSUCHE WASCHBECKEN"GOTO2385
2370 IFA$="BENUTZE FLASCHE"GOTO2390
2375 IFA$="BENUTZE WASCHBECKEN"GOTO2415
2380 GOSUB300:GOTO2335
2385 PRINT" EIN GANZ GEWOEHNLICHES WASCHBECKEN.":GOTO2335
2390 IFS1$="FLASCHE (SAUBER)"THENPRINT" HAST DU DOCH SCHON!":GOTO2335
2395 IFS1$=""GOTO2335
2400 PRINT" SEHR VERNUENFTIG!DU SPUELST DIE"
2405 PRINT" FLASCHE ERST EINMAL KRAEFTIG AUS.":S1$="FLASCHE (SAUBER)":P=P+20
2410 GOTO2335
2415 PRINT" DU WAESCHST DIR DEINE HAENDE.DIR"
2420 PRINT" SCHEINT,DASS DU HIER ETWAS ANDERES"
2425 PRINT" MACHEN SOLLTEST.":GOTO2335
2430 PRINT"[160]HINTER DER TUER BEFINDEN SICH STUFEN"
2435 PRINT" DIE IN DIE TIEFE FUEHREN:EINE"
2440 PRINT" KELLERTREPPE!WAHRSCHEINLICH GEHT ES"
2445 PRINT" HIER ZU DEN VORRAETEN DES GASTHAUSES."
2450 PRINT" DER WIRT WIRD SICH UEBER DEINE"
2455 PRINT"[160]AKTIVITAETEN NICHT FREUEN,NOCH KANNST"
2460 PRINT"[160]DU UMKEHREN.":INPUTA$
2465 IFA$="UNTERSUCHE KELLERTREPPE"GOTO2485
2470 IFA$="W"THENWI=WI+1:GOTO2095
2475 IFA$="O"GOTO2500
2480 GOSUB300:GOTO2430
2485 PRINT" DIE HOLZTREPPE HAT SCHON EINIGE"
2490 PRINT" WACKLIGE BRETTER.DU WIRST DICH BE-"
2495 PRINT" MUEHEN,DIESE ZU UMGEHEN.":BR=1:GOTO2430
2500 IFBR=1GOTO2530
2505 PRINT" LEIDER BIST DU AUF EINE LAUT KNARRENDE"
2510 PRINT" STUFE GETRETEN.DER WIRT ERSCHEINT IN"
2515 PRINT" DER TUER UND HOLT DICH ZURUECK."
2520 PRINT" 'STAENDIG DIESE BETRUNKENEN DIE DAS WC"
2525 PRINT" NICHT FINDEN.SOLCHE SAUFKOEPFE!":WI=WI+1:GOTO2095
2530 IFHO=1THENP=P-10
2535 HO=1:P=P+10:PRINT" DU HAST ES GESCHAFFT!"
2540 PRINT" DU BIST IN EINEM KLEINEN LAGERRAUM."
2545 PRINT" EINE HOLZTREPPE IM WESTEN FUEHRT NACH"
2550 PRINT" OBEN.EIN GANG VERLAEUFT IN NORD-SUED"
2555 PRINT" RICHTUNG."
2560 INPUT A$
2565 IFA$="N"GOTO2605
2570 IFA$="S"GOTO2640
2575 IFA$="W"ORA$="ERKLETTERE HOLZTREPPE"ORA$="BENUTZE HOLZTREPPE"GOTO2585
2580 GOSUB300:GOTO2540
2585 IFFA=1GOTO2870
2590 PRINT" VORSICHTIG SCHLEICHST DU DIE TREPPE"
2595 PRINT" WIEDER HOCH UND GELANGST UNBEMERKT"
2600 PRINT" IN DEN SCHANKRAUM ZURUECK.":WI=WI+1:GOTO2095
2605 PRINT" IN DIESEM RAUM BEFINDEN SICH ZAHL-"
2610 PRINT" REICHE SCHRAENKE,VOLLGESTOPFT MIT"
2615 PRINT" LEBENSMITTELN.":INPUTA$
2620 IFLEFT$(A$,10)="UNTERSUCHE"GOTO2635
2625 IFA$="S"GOTO2540
2630 GOSUB300:GOTO2605
2635 PRINT" DU ENTDECKST NICHTS VON INTERESSE.":GOTO2605
2640 PRINT" IN DIESEM KLEINEN RAUM STEHEN FAESSER,"
2645 PRINT"[160]KISTEN UND REGALE VOLL MIT FLASCHEN."
2650 PRINT" AN EINEM ENDE TUERMEN SICH DIE FAESSER"
2655 PRINT" SOGAR FAST BIS UNTER DIE DECKE.":INPUTA$
2660 IFA$="N"GOTO2540
2665 IFA$="ERKLETTERE FAESSER"GOTO2725
2670 IFLEFT$(A$,7)="BENUTZE"GOTO2700
2675 IFLEFT$(A$,4)="NIMM"GOTO2695
2680 IFLEFT$(A$,10)="UNTERSUCHE"GOTO2690
2685 GOSUB300:GOTO2640
2690 PRINT" DU FINDEST NICHTS VON INTERESSE.":GOTO2640
2695 PRINT" DAS BRAUCHST DU NICHT.":GOTO2640
2700 PRINT" DU LAESST ALLES MOEGLICHE IN DICH"
2705 PRINT" HINEINLAUFEN UND FUEHLST DICH NACHHER"
2710 PRINT" ZIEMLICH BREIT.":DR=INT(RND(X)*30)+1:C=C-DR:IFC<=0GOTO2720
2715 GOTO2640
2720 PRINT" DAS WAR LEIDER ETWAS ZUVIEL DES GUTEN!":GOTO395
2725 IFFA=1GOTO2735
2730 FA=1:GOTO2750
2735 PRINT"[160]BEIM KLETTERN RUTSCHST DU PLOETZLICH"
2740 PRINT"[160]AUS UND FAELLST AUF DEN BODEN.":C=C-5:IFC<=0GOTO395
2745 GOTO2640
2750 PRINT" DU UEBERKLETTERST DIE MAUER AUS"
2755 PRINT" FAESSERN UND SIEHST VOR DIR NUN DEN"
2760 PRINT" ANDEREN TEIL DES RAUMES.HIER BEFINDEN"
2765 PRINT" SICH DIE GEHOBENEREN WEINE UND ANDERE"
2770 PRINT" ETWAS TEUREREN ANGEBOTE EINES GAST-"
2775 PRINT" HAUSES.IM OSTEN WINDET SICH EIN ENGER"
2780 PRINT" GANG ZU EINER GROTTE,DIE NUR VOM MEER"
2785 PRINT" GESEHEN UND BETRETEN WERDEN KANN.DER"
2790 PRINT" LIEFERANTENEINGANG FUER SCHMUGGLER!"
2795 IFS1$<>""GOTO2825
2800 PRINT" AUCH NACH AUSGIEBIGER UNTERSUCHUNG DER"
2805 PRINT" GROTTE UND DES GEHEIMRAUMES FINDEST"
2810 PRINT" DENNOCH NICHTS,WAS DIR BEI DEINEM"
2815 PRINT" ABENTEUER WEITERHELFEN KOENNTE.ENT-"
2820 PRINT" TAEUSCHT KEHRST DU UM.":P=P+10:GOTO2640
2825 PRINT" AUS EINER EINGEBUNG HERAUS FUELLST DU"
2830 PRINT" ETWAS WEIN AUS EINEM FASS IN DEINE"
2835 PRINT" FLASCHE AB.":P=P+100
2840 IFS1$="FLASCHE"THENS1$="WEINFLASCHE"
2845 IFS1$="FLASCHE (SAUBER)"THENS1$="WEINFLASCHE (SAUBER)"
2850 PRINT" ANSCHLIESSEND SCHAUST DU DICH NOCH"
2855 PRINT" EINMAL GENAU UM,FINDEST ABER NICHTS"
2860 PRINT" WAS DIR WEITERHELFEN KOENNTE."
2865 PRINT" SCHLIESSLICH KLETTERST ZURUECK.":GOTO2640
2870 PRINT" IM SCHANKRAUM DRAENGT PLOETZLICH ALLES"
2875 PRINT" NACH DRAUSSEN.NEUGIERIG SCHLIESST DU"
2880 PRINT" DICH AN."
2885 IFGY=1GOTO2925
2890 PRINT" AN DER TUER HAELT DICH EINER DER"
2895 PRINT" KARTENSPIELER AN:'STROESSI HAT EINEN"
2900 PRINT" TEIL UNSERER KARTEN ZERRISSEN,HAST DU"
2905 PRINT" VIELLEICHT ERSATZKARTEN?' GROSSZUEGIG"
2910 PRINT" GIBST DU IHM DAS UNVOLLSTAENDIGE"
2915 PRINT" KARTENSPIEL,WORAUF ER WIEDER IN DER"
2920 PRINT" KNEIPE VERSCHWINDET.":S2$="":P=P+10:GOTO2970
2925 PRINT" IM FREIEN HAT SICH DIE MENGE UM EINE"
2930 PRINT" AM BODEN LIEGENDE GESTALT GESCHART."
2935 PRINT" DIE KARTENSPIELER SIND SCHON WIEDER"
2940 PRINT" AUF DEM WEG IN DIE TAVERNE ZURUECK."
2945 PRINT" 'ZU WENICH KARTEN GESPUILT,DER"
2950 PRINT" STROESSI!',MEINT EINER.'WIR MUESSEN"
2955 PRINT" JETZT ZU SEINEM GEDENKEN ANS KARTN!'"
2960 PRINT"[160]MIT ZUFRIEDENEN GESICHTERN VER-"
2965 PRINT" SCHWINDEN SIE IM INNERN."
2970 POKE 198,0:WAIT 198,1
2975 PRINT" GERADE ALS DU AUCH WIEDER IN DIE"
2980 PRINT" TAVERNE ZURUECK MOECHTEST,BRUELLT"
2985 PRINT" EINER DER SCHAULUSTIGEN:'DAS GEISTER-"
2990 PRINT" SCHIFF KOMMT!' ALLE RENNEN ZUM HAFEN"
2995 PRINT" UND STARREN AUF DAS WASSER. 'DA...DA!'"
3000 PRINT"[160]KREISCHT EINER,'EIN SKELETT!',EIN"
3005 PRINT" ANDERER,'ER WINKT MIR ZU,ICH STERBE!',"
3010 PRINT" EIN DRITTER.SO SEHR DU DICH ANSTRENGST"
3015 PRINT"[160]DU KANNST IN DER DUNKELHEIT UEBERHAUPT"
3020 PRINT" NICHTS AUSMACHEN.'AUF DEN SCHRECK"
3025 PRINT" BRAUCHE ICH EINEN SCHLUCK!' "
3030 PRINT" ZUSTIMMENDES GEMURMEL."
3035 PRINT"[160]DU BIST ALLEIN AM HAFEN - BIS AUF"
3040 PRINT" EINEN FISCHER,DER ETWAS VERSPAETET"
3045 PRINT" SEIN SCHIFF AUFRAEUMT.ALS DU IHN"
3050 PRINT" FRAEGST,OB ER DICH NICHT AUF DAS MEER"
3055 PRINT"[160]FAEHRT,UM DAS GEISTERSCHIFF ZU SUCHEN"
3060 PRINT" SCHAUT ER DICH NUR ENTGEISTERT AN.":INPUTA$
3065 IFLEFT$(A$,5)="TOETE"GOTO3085
3070 IFLEFT$(A$,15)="GIB WEINFLASCHE"GOTO3095
3075 IFLEFT$(A$,11)="GIB FLASCHE"GOTO3095
3080 GOSUB300:GOTO3035
3085 PRINT"[160]KANNST DU SELBST EIN SCHIFF STEUERN?"
3090 PRINT" WOHL KAUM!":GOTO3035
3095 IFS1$=""GOTO3120
3100 IFLEFT$(S1$,4)="WEIN"GOTO3130
3105 PRINT" 'WAS WILL ICH DENN MIT EINER LEEREN"
3110 PRINT" FLASCHE? NAECHSTES MAL WUERDE ICH SIE"
3115 PRINT" BESSER MIT ETWAS FUELLEN!"
3120 PRINT" DU HAST ETWAS VERGESSEN ZU TUN UND"
3125 PRINT" KOMMST HIER NICHT MEHR WEITER...":GOTO395
3130 IFS1$="WEINFLASCHE (SAUBER)"GOTO3160
3135 PRINT" DER FISCHER NIMMT DANKEND AN.NACH"
3140 PRINT" EINIGEN KRAEFTIGEN ZUEGEN IST DIE"
3145 PRINT" FLASCHE AUCH SCHON LEER.PLOETZLICH"
3150 PRINT"[160]'WAS WAR DA AUSSER WEIN NOCH DRIN?'":S1$=""
3155 PRINT" ER BRICHT ZUSAMMEN.":GOTO3120
3160 PRINT" DER FISCHER NIMMT DANKEND AN UND LEERT"
3165 PRINT" DIE FLASCHE BIS ZUM BODEN.TATENDURSTIG"
3170 PRINT" FORDERT ER DICH AUF, SEIN SCHIFF ZU"
3175 PRINT" BESTEIGEN, UM DAS GEISTERSCHIFF ZU"
3180 PRINT" EROBERN.":P=P+100:S1$=""
3185 POKE 198,0:WAIT 198,1
3190 PRINT" NACH KURZER ZEIT TAUCHEN VOR EUREM"
3195 PRINT" KAHN DIE UMRISSE EINES GROSSEN SEGEL-"
3200 PRINT" SCHIFFES AUF.NEBELSCHWADEN UMGEBEN DAS"
3205 PRINT" MONSTROESE GEFAEHRT.VORSICHTIG"
3210 PRINT" KLETTERT IHR AN BORD UND SCHAUT EUCH"
3215 PRINT" UM."
3220 POKE 198,0:WAIT 198,1
3225 PRINT" AUF DEM DECK TAUCHEN PLOETZLICH VON"
3230 PRINT" ALLEN SEITEN DUNKLE GESTALTEN AUF."
3235 PRINT" VIELE HALTEN BEDROHLICH WIRKENDE GEGEN"
3240 PRINT" STAENDE IN DEN HAENDEN.DER KAPITAEN"
3245 PRINT" TRITT VOR UND FRAEGT WAS IHR HIER"
3250 PRINT" ZU SUCHEN HABT UND DU ERZAEHLST"
3255 PRINT" WAHRHEITSGEMAESS DEINE GESCHICHTE."
3260 PRINT" 'HABT IHR DAS GEHOERT LEUTE,EIN"
3265 PRINT" GEISTERSCHIFF SUCHT ER!',BEGINNT DER"
3270 PRINT" KAPITAEN.RAUHES GELAECHTER SEINER"
3275 PRINT" MANNSCHAFT.'ALSO GUT.IHR HABT ES"
3280 PRINT" GEFUNDEN!' ENTSETZT UND IRRITIERT"
3285 PRINT" BLICKST DU IN DAS GESICHT DES"
3290 PRINT" KAPITAENS.LANGSAM BEGINNT SICH SEINE"
3295 PRINT" KLEIDUNG AUFZULOESEN UND SEINE HAUT"
3300 PRINT" ZERSETZT SICH.GROSSE FLEISCHFETZEN"
3305 PRINT" SCHAELEN SICH VON SEINEN KNOCHEN UND"
3310 PRINT" VERSCHWINDEN IM NICHTS.AM ENDE DES"
3315 PRINT" GRAUSIGEN VORGANGES SIEHST DU DICH"
3320 PRINT" EINEM SKELETT IN ZERSCHLISSENER"
3325 PRINT" SCHWEIFT DEIN BLICK UEBER DAS DECK."
3330 POKE 198,0:WAIT 198,1
3335 PRINT" ALLERDINGS STELLST DU VOLLER PANIK"
3340 PRINT" FEST,DASS DICH DIE SKELETTE EINGE-"
3345 PRINT" KREIST HABEN!DER FISCHER HINTER DIR"
3350 PRINT" ZIEHT ENTSCHLOSSEN SEIN MESSER UND"
3355 PRINT" STUERZT SICH WUETEND AUF DEN KAPITAEN."
3360 PRINT" 'WAS HABT IHR MIT MEINEM BRUDER UND"
3365 PRINT" DEN ANDEREN IM BOOT GEMACHT? REDE!'
3370 [153]" SEINE MANNSCHAFT WILL IHREM ANFUEHRER"
3375 [153]" ZU HILFE EILEN,ABER DA MUESSEN SIE"
3380 [153]" ERST EINMAL AN DIR VORBEI."
3385 X[178]0:[139]C[179]40[167]C[178]40
3390 X[178]X[170]1:H[178]15:[139]X[178]4[137]3470
3395 D[178][165]X(X):E[178][165]X(X)[170]3
3400 [139]R[177]D[167]D[178]0
3405 C[178]C[171]D:H[178]H[171]E:[139]C[179][178]0[137]395
3410 [139]H[179][178]0[137]3460
3415 [141]3425
3420 [137]3395
3425 [151] 198,0:[146] 198,1
3430 [153]" DAS SKELETT GREIFT MIT EINEM SAEBEL"
3435 [153]" AN!DER SCHADEN BETRAEGT";D;"PUNKTE."
3440 [151] 198,0:[146] 198,1
3445 [153]" DEIN SCHLAG FUEGT DEM SKELETT";E
3450 [153]" TREFFERPUNKTE ZU."
3455 [142]
3460 [153]" MIT EINEM LETZTEN STREICH ERSCHLAEGST"
3465 [153]" DU DAS SKELETT!":[137]3390
3470 [153]" DIE SKELETTE WEICHEN ZURUECK!":P[178]P[170]30
3475 [153]" AM BODEN LIEGEN ZAHLREICHE KNOCHEN."
3480 [153]"CLOSEIN EINER LACHE AUS BLUT LIEGT DIE"
3485 [153]" LEICHE DES FISCHERS."
3490 [153]" DIE SKELETTE STACKSEN LANGSAM WIEDER"
3495 [153]" AUF DICH ZU.SCHNELL SCHAUST DU DICH"
3500 [153]" UM.HINTER DIR BEFINDET SICH DIE"
3505 [153]" KAJUETE DES KAPITAENS.DU DREHST DICH"
3510 [153]" UM UND RENNST DARAUF ZU."
3515 [151] 198,0:[146] 198,1
3520 [153]" DORT ANGEKOMMEN WIRFST DU DIE TUER"
3525 [153]" HINTER DIR INS SCHLOSS.ERSCHOEPT"
3530 [153]" LEHNST DU DICH GEGEN EINE WAND,DEIN"
3535 [153]" BLICK SCHWEIFT DURCH DEN RAUM.NEBENBEI"
3540 [153]" VERNIMMST DU SCHARRENDE GERAEUSCHE AN"
3545 [153]" DER TUER.NEBEN EINEM BETT,EINEM REGAL"
3550 [153]" MIT PLAENEN UND BUECHERN FAELLT DEIN"
3555 [153]" BLICK SCHLIESSLICH AUF EINEN SCHREIB-"
3560 [153]" TISCH.AUF IHM STEHEN NAEMLICH EINE"
3565 [153]" GROSSE ANZAHL KLEINER FLAESCHCHEN."
3570 [153]" EINES TRAEGT DIE AUFSCHRIFT HEILTRANK;"
3575 [153]" DA DU KEINE ANDERE WAHL HAST TRINKST"
3580 [153]" DU SIE LEER.":C[178]60
3585 [151] 198,0:[146] 198,1
3590 [153]" SIE WIRKT!DEINE LEBENSENERGIE IST AUF"
3595 [153]" 60 PUNKTE ANGESTIEGEN!"
3600 [153]" UNTER DEM SCHREIBTISCH LIEGT SAEUBER-"
3605 [153]" LICH ZUSAMMENGELEGT EINE LEDERRUESTUNG"
3610 [153]" DANKBAR ZIEHST DU SIE AN.":R[178]4
3615 [153]" PLOETZLICH HOERST DU DAS GERAEUUSCH"
3620 [153]" SPLITTERNDEN HOLZES,DU WIRBELST HERUM"
3625 [153]" UND SIEHST,WIE DIE TUER AUFSPRINGT."
3630 [153]" IM EINGANG TAUCHEN EINIGE SKELETTE AUF"
3635 [153]" 'DIESMAL ENTKOMMST DU UNS NICHT MEHR!'"
3640 [153]" DROEHNT EINER UND ERHEBT SEINEN SAEBEL":D[178]0
3645 A[178]15
3650 B[178][165]X(X):E[178][165]X(X)[170]3
3655 [139]R[178][177]B[137]3665
3660 C[178]C[171]B[170]R:[141]3680:[139]C[179][178]0[137]395
3665 A[178]A[171]E:[141]3690:[139]A[179][178]0[167][141]3700:[137]3645
3670 D[178]D[170]1:[139]D[178]11[137]3720
3675 P[178]P[170]10:[137]3650
3680 [153]" DAS SKELETT TRIFFT DICH MIT DEM SAEBEL"
3685 [153]" DER TREFFER KOSTET DICH";B[171]R;"PUNKTE.":[137]3710
3690 [153]" MIT EINEM WUCHTIGEN SCHLAG ERZIEHLST"
3695 [153]" DU";E;"SCHADENSPUNKTE.":[137]3710
3700 [153]" DAS SKELETT SINKT TOEDLICH GETROFFEN"
3705 [153]" ZU BODEN."
3710 [151] 198,0:[146] 198,1
3715 [142]
3720 [153]"CLOSEDAS LETZTE SKELETT LIEGT TOT ZU DEINEN"
3725 [153]" FUESSEN!DER SPUK IST VORBEI.IN"
3730 [153]" SEKUNDENSCHNELLE ZERFALLEN DIE"
3735 [153]" SKELETTE ZU STAUB.AUCH DAS SCHIFF"
3740 [153]" ALTERT IM ZEITRAFFER:HOLZ VERFAULT,"
3745 [153]" SEGEL ZERREISSEN,BRETTER LOESEN SICH."
3750 [153]" DU VERLIERST DEN BODEN UNTER DEN"
3755 [153]" FUESSEN UND VERLIERST DAS BEWUSSTSEIN."
3760 [151] 198,0:[146] 198,1
3765 [153]"LOADOPEN (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
3770 [153]" PEEKALS DU AUFWACHST LIEGST DU IN EINEM PEEK"
3775 [153]" PEEKBETT.DURCH EIN FENSTER KANNST DU AUFPEEK"
3780 [153]" PEEKDEN MARKTPLATZ DES KLEINEN FISCHER- PEEK"
3785 [153]" PEEKDORFES BLICKEN.NACH EINIGER ZEIT    PEEK"
3790 [153]"CLOSEPEEKBETRITT DER BUERGERMEISTER DEN RAUM.PEEK"
3795 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
3800 [151] 198,0:[146] 198,1
3805 [153]"LOAD (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
3810 [153]" PEEK'UNSERE FISCHER HABEN DICH VOR      PEEK"
3815 [153]" PEEKEINIGEN TAGEN AM STRAND AUFGELESEN. PEEK"
3820 [153]" PEEKWAS IST GESCHEHEN?' DU ERZAEHLST VONPEEK"
3825 [153]" PEEKDEINEM ABENTEUER,DER BUERGERMEISTER PEEK"
3830 [153]" PEEKHOERT AUFMERKSAM ZU.AM ENDE DEINER  PEEK"
3835 [153]"CLOSEPEEKHAARSTRAEUBENDEN GESCHICHTE MEINT   PEEK"
3840 [153]" PEEKDER BUERGERMEISTER NACHDENKLICH,DASSPEEK"
3845 [153]" PEEKEINE ALTE LEGENDE VON EINEM PIRATEN-PEEK"
3850 [153]" PEEKSCHIFF ERZAEHLT, WELCHES GENAU AN   PEEK"
3855 [153]" PEEKDIESER STELLE IM MEER VERSUNKEN SEINPEEK"
3860 [153]" PEEKSOLL. 'ICH WERDE VERANLASSEN, DASS  PEEK"
3865 [153]" PEEKDORT GETAUCHT WIRD.' DER ERFOLG     PEEK"
3870 [153]" PEEKBLEIBT NICHT AUS:DIE MORSCHEN TEILE PEEK"
3875 [153]" PEEKEINES SCHIFFES WERDEN GEFUNDEN,SOWIEPEEK"
3880 [153]" PEEKEINIGE SKELETTE UND EINE GROSSE AN- PEEK"
3885 [153]" PEEKZAHL GERAUBTER WERTGEGENSTAENDE,    PEEK"
3890 [153]" PEEKVON DENEN DU EINEN GUTEN TEIL       PEEK"
3895 [153]" PEEKERHAELTST.                          PEEK"
3900 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
3905 [151] 198,0:[146] 198,1
3910 [153]"LOADCLR      YOU HAVE MADE IT TO SUNSET!":P[178]P[170]40:S[178]S[170]1000
3915 [153]" GUTE ARBEIT, ";NAME$;"!"
3920 [153]" NOCHMALS DEINE WERTE:"
3925 [153]" LEBENSENERGIE  ";C
3930 [153]" RUESTUNGSSCHUTZ";R
3935 [153]" PUNKTE         ";P;"VON 500"
3940 [153]" WERTSACHEN     ";S
3945 T1$[178][200](TI$,2):T2$[178][202](TI$,3,2):T3$[178][201](TI$,2)
3950 [153]" SPIELZEIT(STD,MIN,SEK):  ";T1$;":";T2$;".";T3$
3955 [153]"    MIT DER LEERTASTE GEHT'S WEITER"
3960 [151] 198,0:[146] 198,1
3965 [153]"LOADPRINT (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
3970 [153]" PEEKNATUERLICH GENIESST DU ES, IN DEM   PEEK"
3975 [153]" PEEKKLEINEN DORF FUER KURZE ZEIT ZU VER-PEEK"
3980 [153]" PEEKWEILEN, DOCH MIT DEM VERSCHWINDEN   PEEK"
3985 [153]" PEEKDES PHANTOMSCHIFFS WIRD ES BALD     PEEK"
3990 [153]" PEEKLANGWEILIG.DESHALB REIST DU AB MIT  PEEK"
3995 [153]" PEEKEINER GROSSEN MENGE WERTGEGENSTAENDEPEEK"
4000 [153]" PEEKUM DAS NAECHSTE GROSSE ABENTEUER    PEEK"
4005 [153]" PEEKZU FINDEN.                          PEEK"
4010 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
4015 [153]" DIE SUCHE GEHT WEITER..."
4100 [151] V[170]21,2
4105 [129] N[178]60 [164] 260:[158] LD,N,220,1:[129] I[178]1[164] 20:[130]I:[130] N
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
4115 [137] 4105