0 PRINT"[147]":POKE53280,0:POKE53281,0:F=2:GOSUB20000:POKE198,0:GOSUB750 10 DIMT$(80):DIMRA$(20,10):WL=3:TI$="000000" 20 REM *** GEGENSTAENDE ******************************************************** 22 G$(0)=" ":G$(1)="MESSER":G$(2)="METALLBEHAELTER":G$(3)="BUCH":G$(4)="BEIL" 24 G$(5)="FRUECHTE":G$(6)="VERBANDSZEUG":G$(7)="SCHLANGENSERUM" 26 G$(8)="EDELSTEINE":G$(9)="FALTBOOT" 36 PRINT"[147]"CHR$(14):GOSUB25000 80 REM *** SPRUNG IN RAUM ****************************************************** 90 GOTO1000 100 IFUN=1THENGOTO200 101 PRINT"" 102 ZV=RND(1):IFZV<0.5THENPRINT"WAS NUN ?":GOTO110 103 IFZV>0.5ANDZV<0.80THENPRINT"WAS JETZT ?":GOTO110 105 PRINT"UND JETZT ?" 110 PRINT"[145]":X$="":PRINTCHR$(114) 120 GETB$ 125 IFZA=1THENIFTI-D>LITHENT=1:R=0:P$="":GOTO300 127 IFB$=""THEN120 130 IFASC(B$)=13THEN198 140 IFASC(B$)=20ANDX$<>""THEN160 142 IFASC(B$)=32THEN150 145 IFASC(B$)<65ORASC(B$)>90THEN120 150 X$=X$+B$:GOTO180 160 X$=LEFT$(X$,LEN(X$)-1) 170 IFLEN(X$)<41ANDLEN(X$)>37THENPRINT"[145][145]"X$+CHR$(114)+CHR$(32):UA=1:GOTO120 175 GOTO190 180 IFLEN(X$)<40AND UA=0 THENPRINT"[145]"X$+CHR$(114):UA=0:GOTO120 185 PRINT"[145][145]"X$+CHR$(114):GOTO194 190 IFLEN(X$)<41AND UA=0 THENPRINT"[145]"X$+CHR$(114)+CHR$(20):GOTO194 192 PRINT"[145][145]"X$+CHR$(114)+CHR$(20):GOTO194 194 IFLEN(X$)<79THEN120 195 GETB$:IFB$<>CHR$(20)ANDB$<>CHR$(13)THEN195 196 PRINT"[145][145]":GOTO130 198 IFLEN(X$)<39THENPRINT"[145]"X$+CHR$(46):GOTO200 199 PRINT"[145][145]"X$+CHR$(46) 200 REM *** STRINGZERLEGUNG **************************************************** 210 UN=0:WO=0:SZ=0:T$(0)="" 217 IFX$=""ANDUN=0THENGOTO713 220 FORX=1TOLEN(X$) 230 : IFMID$(X$,X,1)<>" "ANDWO=0THENWO=X 235 : IFMID$(X$,X,1)=" "ANDWO<>0THENT$(SZ)=MID$(X$,WO,X-WO):WO=0:SZ=SZ+1:GOTO280 240 :IFX=LEN(X$)ANDWO<>0THENT$(SZ)=MID$(X$,WO,X-WO+1):SZ=SZ+1 270 NEXT:GOTO300 280 : IFT$(SZ-1)="UND"THENX$=RIGHT$(X$,LEN(X$)-X):UN=1:GOTO300 290 GOTO270 300 REM *** WORTANALYSE ******************************************************** 305 S=0:V=0:R=0:G=0:Q=0 310 FORI=0TOSZ-1 315 IFT$(0)=""THENGOSUB704:RETURN 320 : P$=T$(I):F=ASC(P$)-64 330 : ONFGOTO350,360,370,380,390,400,410,420,430,440,450,460,470 340 : ONF-13GOTO480,490,500,510,520,526,545,550,560,570,580,590,600 345 NEXT 346 IFV=0ANDS=0ANDG=0ANDR=0THENGOSUB702 347 GOSUB800 349 RETURN 350 REM *** A-BER 351 IFP$="AST"THENS=3:GOTO345 352 IFP$="ALLES"THENS=1 353 IFP$="ASCHE"THENS=7 359 GOTO345 360 IFP$="BETRETE"ORP$="BETRITT"THENV=27 361 IFLEFT$(P$,4)="BAUM"THENS=2:GOTO345 362 IFP$="BUCH"THENG=3:S=10 363 IFP$="BEIL"THENG=4 364 IFP$="BEHAELTER"THENG=2 365 IFP$="BRING"THENV=3 366 IFP$="BERUEHRE"THENV=23 367 IFP$="BILD"THENS=25:GOTO345 368 IFP$="BEHANDLE"ORP$="BEHANDELE"THENV=26 369 IFP$="BOOT"THENG=9 370 REM *** C-BER 379 GOTO345 380 REM *** D-BER 381 IFP$="DREHE"THENV=15 382 IFP$="DRUECKE"THENV=23 389 GOTO345 390 REM *** E-BER 391 IFP$="EDELSTEINE"THENG=8 395 IFP$="ESSEN"THENV=5 396 IFP$="ENTZUENDE"THENV=25 399 GOTO345 400 IFP$="FAHRE"THENV=31 401 IFP$="FRUECHTE"THENG=5:S=11 402 IFP$="FASS"THENS=8 403 IFP$="FELSWAND"THENS=14 404 IFP$="FUELLE"THENV=11 405 IFP$="FAELLE"THENV=14 406 IFP$="FUENF"THENV=29 407 IFP$="FALTBOOT"THENG=9 408 IFP$="FELSENINSEL"THENS=32 409 GOTO345 410 REM *** G-BER 411 IFP$="GOLDSCHALE"THENS=13 412 IFP$="GORILLA"THENS=19 413 IFP$="GOETZENBILD"THENS=25 414 IFP$="GRABE"THENV=30 415 IFP$="GEHE"THENV=27 419 GOTO345 420 REM *** H-BER 421 IFP$="H"ORP$="HINAUF"THENR=5 422 IF P$="HINUNTER"THENR=6 423 IF P$="HAND"THENS=20 424 IF P$="HAENGE"THENV=17 425 IF P$="HINUEBER"THENG=10 426 IF P$="HANGLE"ORP$="HANGELE"THENV=22 427 IF P$="HUETTE"THENS=30 429 GOTO345 430 REM *** I-BER 431 IFP$="INSEL"THENS=32 435 IFP$="I"ORP$="INVENTUR"THENS=4 436 IFP$="ISS"THENV=5 439 GOTO345 440 REM *** J-BER 441 IFP$="JAGUAR"THENS=29 449 GOTO345 450 REM *** K-BER 451 IFP$="KISTE"THENS=15 459 GOTO345 460 REM *** L-BER 461 IFP$="LIANE"THENS=18 465 IFP$="LEGE"THENV=2 466 IFP$="LEERE"THENV=15 467 IFP$="LIES"THENV=8 469 GOTO345 470 REM *** M-BER 471 IFP$="MESSER"THENG=1 472 IFP$="METALLBEHAELTER"THENG=2 473 IFP$="METALLKISTE"THENS=11 474 IFP$="MAENNCHEN"THENS=22 475 IFP$="MACHE"THENV=12 479 GOTO345 480 REM *** N-BER 481 IFP$="N"ORLEFT$(P$,3)="NOR"THENR=1 485 IFP$="NIMM"THENV=1 489 GOTO345 490 REM *** O-BER 491 IFP$="O"ORLEFT$(P$,3)="OST"THENR=4 492 IFP$="OEFFNE"THENV=7 499 GOTO345 500 REM *** P-BER 501 IFP$="PULVER"THENS=21 502 IFP$="PADDELE"THENV=31 509 GOTO345 510 REM *** Q-BER 519 GOTO345 520 REM *** R-BER 521 IFP$="R"ORP$="RUNTER"THENR=6 522 IFP$="RUTSCHE"THENV=24 523 IFP$="RAMPE"THENS=26 524 IFP$="RUDERE"THENV=31 525 GOTO345 526 IFP$="SPRITZE"THENV=32 527 IFLEFT$(P$,6)="SPALTE"THENS=33 530 IFP$="S"ORLEFT$(P$,4)="SUED"THENR=2 531 IFLEFT$(P$,4)="SING"THENV=19 532 IFP$="SCHLANGENSERUM"ORRIGHT$(P$,5)="SERUM"THENG=7 533 IFP$="SCHAU"THENS=5 534 IFP$="SCHALE"THENS=13 535 IFP$="STRAND"THENS=6 536 IFP$="STRAUCH"THENS=12 537 IFLEFT$(P$,6)="SCHUET"THENV=9 538 IFP$="SCHLIESSE"THENV=10 539 IFP$="SCHUETTE"THENV=11 540 IFP$="SCHIESSPULVER"THENS=21 541 IFLEFT$(P$,6)="SPRING"THENV=13 542 IFP$="SAND"THENKG=1 543 IFP$="SPINNE"THENS=23 544 GOTO345 545 REM *** T-BER 546 IFP$="TISCH"THENS=9 547 IFP$="TOETE"THENV=20 549 GOTO345 550 REM *** U-BER 555 IF P$="UNTERSUCHE"THENV=6 559 GOTO345 560 REM *** V-BER 561 IFP$="VERBANDSZEUG"THENG=6 562 IFP$="VOGELSPINNE"THENS=23 563 IFP$="VORSPRUNG"ORP$="VORSPRUENGE"THENS=24 564 IFP$="VERBINDE"THENV=26 565 IFLEFT$(P$,7)="VERLIER"THENV=2 566 IFP$="VERLASSE"THENV=28 567 IFP$="VERNICHTE"THENV=20 569 GOTO345 570 REM *** W-BER 571 IFP$="W"ORLEFT$(P$,4)="WEST"THENR=3 572 IFLEFT$(P$,5)="WARTE"THENV=4 573 IFP$="WAND"THENS=14 574 IFP$="WILDSTRAUCH"THENS=12 575 IFP$="WIRF"THENV=11 576 IFP$="WENDE"THENV=15 577 IFP$="WEG"THENS=27 578 IFP$="WASSER"THENS=31 579 GOTO345 580 REM *** X-BER 589 GOTO345 590 REM *** Y-BER 599 GOTO345 600 REM *** Z-BER 601 IFP$="ZEUG"THENG=6 602 IFP$="ZURUECK"THENV=18 603 IFP$="ZEICHNUNG"THENS=25 604 IFP$="ZUENDSCHNUR"THENS=28 605 IFP$="ZUENDE"THENV=25 609 GOTO345 700 REM *** STANDARD-ANTWORTEN ************************************************* 701 PRINT"KEIN WEG IN DIESER RICHTUNG !":Q=1:RETURN 702 ZV=RND(1):IFZV<0.8THENPRINT"DAS VERSTEHE ICH NICHT!":Q=1:RETURN 703 PRINT"WAS SOLL DEN D A S BEDEUTEN ? !":Q=1:RETURN 704 PRINT"[145]BITTE EINE KORREKTE EINGABE!":R=0:Q=1:GOTO347 705 PRINT"OK":Q=1:RETURN 706 PRINT"HIER GIBT ES NICHTS MEHR ZU NEHMEN!":Q=1:GOTO989 707 PRINT"SIE HABEN DOCH NICHTS MEHR!":Q=1:GOTO989 708 PRINT"SIE ENTDECKEN NICHTS BESONDERES.":Q=1:RETURN 709 PRINT"IST SCHON OFFEN!":Q=1:RETURN 710 PRINT"IST SCHON ZU!":Q=1:RETURN 711 PRINT"SIE WARTEN.DIE ZEIT VERGEHT...":Q=1:RETURN 712 PRINT"SOVIELE SACHEN KOENNEN SIE NICHT TRAGEN![145][145]":Q=1:RETURN 713 PRINT"[145]WIESO DRUECKEN SIE 'RETURN' OHNE ETWAS EINZUGEBEN ?":UA=0:GOTO100 730 R=0:S=0:V=0:G=0:Q=1:RETURN 749 REM *** STANDARD-REAKTIONEN ************************************************ 750 GETB$:IFB$<>CHR$(32)THEN750 751 X$="":RETURN 760 FORI=0TO10:IFRA$(RA,I)<>""THENPRINT"[158]"RA$(RA,I) 761 NEXT:RETURN 777 ZV=RND(1):IFQ=0ANDZV<.7THENPRINT"DAS GEHT NICHT!" 778 IFQ=0ANDZV>.7THENPRINT"WAS WOLLEN SIE DENN DAMIT BEZWECKEN?" 779 RETURN 790 PRINT"DIE KANNIBALEN DROHEN SIE EINZUHOLEN!! 791 LI[178]1200:D[178]TI:DE[178]1:[142] 792 [153]"SIE HOEREN DEN KNALL EINER EXPLOSION!":ZA[178]0:T[178]0:ZU[178]2:RA$(14,2)[178]"" 793 [139]KA[178]1[167][153]"SIE HABEN DIE KANNIBALEN IN DIE FLUCHT GESCLAGEN." 794 RA$(13,2)[178]"":RA$(15,2)[178]"":RA$(20,2)[178]"":RA$(12,2)[178]"":[142] 800 [139]T[178]1[167]870 801 [139]RA$(12,9)[179][177]""[167]WL[178]1 802 [139]RA$(12,9)[178]""[167]WL[178]3 805 [139]V[178]1[175]WI[177]WL[167][141]712:[137]838 810 [139]V[178]1[175]RA$(RA,G)[179][177]""[167][141]705:SP$(G)[178]G$(G):RA$(RA,G)[178]"":WI[178]WI[170]1:[137]849 815 [139]V[178]1[175]G[177]0[175]SP$(G)[178]G$(G)[167][153]"DAS HABEN SIE SCHON!":Q[178]1:[137]899 820 [139]V[178]1[175]G[177]0[175]RA$(RA,G)[178]""[167][153]"HIER GIBT ES DAS NICHT!":Q[178]1:[137]899 825 [139]V[178]2[175]G[177]0[175]SP$(G)[178]""[167][153]"DAS HABEN SIE DOCH GAR NICHT!":Q[178]1:[137]899 830 [139]V[178]2[175]SP$(G)[178]G$(G)[167][141]705:RA$(RA,G)[178]G$(G):SP$(G)[178]"":WI[178]WI[171]1:[137]849 832 [139]V[178]1[175]S[178]1[167][141]980:Q[178]1:[139]A[178]1[167][141]705 835 [139]V[178]2[175]S[178]1[167][141]986:Q[178]1:[139]A[178]1[167][141]705 838 [139]S[178]4[167][141]990:Q[178]1 840 [139]V[178]4[167][141]711:[137]899 842 [139]V[178]5[175]SP$(5)[179][177]""[167][137]999 843 [139]V[178]5[175]SP$(5)[178]""[167][153]"SIE HABEN NICHTS ZU ESSEN!":Q[178]1:[137]899 844 [139]V[178]6[175]S[177]OG [176]V[178]6[175]S[179]UG[167][141]708 845 [139]V[178]8[175]S[178]15[175]SP$(3)[178]G$(3)[175]RA[179][177]3[167][141]3600:Q[178]1 846 [139]V[178]7[175]SP$(2)[178]G$(2)[175]G[178]2[175]RA[179][177]3[167][141]3800:Q[178]1 847 [139]V[178]19[167][153]"SIE SINGEN EIN LIED...":Q[178]1 848 [139]V[178]6[175]S[178]11[175]SP$(5)[179][177]""[167][153]"SIE STELLEN FEST,DASS SIE GIFTIG SIND!":Q[178]1 849 [139]SP$(9)[179][177]""[167]WL[178]1 850 [139]SP$(9)[178]""[167]WL[178]3 869 [142] 870 [141]730:[139]DE[178]1[167]RA[178]15:[137]900 871 [139]KA[178]1[167][141]790 872 [139]ZU[178]1[175]SP$(2)[179][177]""[167]RA[178]12:[137]900 873 [139]ZU[178]1[175]SP$(2)[178]""[167][141]792 899 [142] 900 [143] *** TODESANZEIGEN ****************************************************** 901 [141]30000 902 [145]RA[137]905,907,909,911,913,915,917,919,922,923,925,927,929,931,933,935,937 903 [145]RA[171]17[137]939,941,943,945,947,949 905 [153]"SIE SIND VON DER PALME GESTUERZT UND 906 PRINT"HABEN SICH DABEI DAS GENICK GEBROCHEN!":GOTO30100 907 PRINT"DIE FLEISCHFRESSENDE PLANZE HAT SIE 908 [153]"VERSPEIST!":[137]30100 909 [153]"DER SKORPION HAT SIE GESTOCHEN!DAS GIFT 910 PRINT"HAT SIE GETOETET!!":GOTO30100 911 PRINT"DER GORILLA HAT IHNEN DAS GENICK GE- 912 [153]"BROCHEN!":[137]30100 913 [153]"SIE SIND IN DEN SUMPF GESTUERZT UND 914 PRINT"ERSTICKT!":GOTO30100 915 PRINT"DIE FRUECHTE WAREN GIFTIG!":GOTO30100 917 PRINT"DIE GROSSE,SCHWARZE SPINNE HAT SIE 918 [153]"GEBISSEN!":[137]30100 919 [153]"DER STEINHAGEL HAT SIE IN DIE TIEFE 920 PRINT"GERISSEN!":GOTO30100 922 PRINT"SIE SIND IN DIE TIEFE GESTUERZT!!":GOTO30100 923 PRINT"DIE WAENDE HABEN SIE ZERQUETSCHT!!":GOTO30100 925 PRINT"DIE EINSTUERZENDE TREPPE HAT SIE UNTER 926 [153]"SICH BEGRABEN!":[137]30100 927 [153]"DER EXPLODIERENDE BEHAELTER HAT SIE IN 928 PRINT"STUECKE GERISSEN!":GOTO30100 929 PRINT"DAS GIFT DER SCHLANGE HAT IHRE ATMUNG 930 [153]"GELAEHMT.SIE SIND ERSTICKT!":[137]30100 931 [153]"DER JAGUAR HAT SIE GETOETET!":[137]30100 933 [153]"DIE KANNIBALEN HABEN SIE MIT EINER KEULE 934 PRINT"ERSCHLAGEN!":GOTO30100 935 PRINT"SIE SIND VERBLUTET!":GOTO30100READY. 980 A=0:FORI=0TO10 981 : IFRA$(12,9)<>""THENWL=1 982 : IFWI>WLTHENGOSUB712:RETURN 983 : IFRA$(RA,I)<>""THENSP$(I)=RA$(RA,I):RA$(RA,I)="":A=1:WI=WI+1 984 NEXT:IFA=0THENGOTO706 985 RETURN 986 A=0:FORI=0TO10 987 : IFSP$(I)<>""THENRA$(RA,I)=SP$(I):SP$(I)="":A=1:WI=WI-1 988 NEXT:IFA=0THENGOTO707 989 RETURN 990 A=0:PRINT"SIE HABEN:":FORI=0TO10:IFSP$(I)<>""THENPRINT"[158]"SP$(I):A=1 991 NEXT:IFA=0THENPRINT"[158]NICHTS" 992 RETURN 999 PRINT"SIE ESSEN VON DEN FRUECHTEN!":FORI=0TO3000:NEXT:RA=6:GOTO900 1000 PRINTSPC(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] " 1001 PRINTSPC(9)"[167] [201] [151][165]" 1002 PRINTSPC(9)"[167] [185][201][223][146][223][213][169][146][162][168][213] [151][165]" 1003 PRINTSPC(9)"[167] [169][213] [201][223][169][213][185] [213][223][146] [151][165]" 1004 PRINTSPC(9)"[167][172][203][201][146][188][213][149][168][168][146][223][201][188][201][202][146] [151][165]" 1005 PRINTSPC(9)"[167][213][202][146][202] [149][168][168][146]  [213][213][146][190] [151][165]" 1006 PRINTSPC(9)"[170] [149][168][168][146] [201] [151][165]" 1007 PRINTSPC(9)"[167] [149][168][168][146] [149] [169][213][223][146][169][169][201][223][151][146][165]" 1008 PRINTSPC(9)"[167][149] [168][168][146]  [213][213][146][213][149][168][146][202][208][203][151][146][165]" 1009 PRINTSPC(9)"[167] [149][168][168][146] [188][183] [149][168][146] [203][151][165]" 1010 PRINTSPC(9)"[167] [149][168][168][146] [149][168][146] [151][165]" 1011 PRINTSPC(9)"[167]  [149][168][168][146] [129]  [149][168][146] [151][165]" 1012 PRINTSPC(9)"[167] [149] [168][168][146] [149][168][146] [151][165]" 1013 PRINTSPC(9)"[167][129][162][184][183][163] [163][183][184][146][162][185][175][164] [149][168][129][146] [151][165]" 1014 PRINTSPC(9)"[167][129] [213] [213] [203] [203] [163][183][151][146][165]" 1015 PRINTSPC(9)"[167][129] [213] [202] [213] [202] [201] [151][146][165]" 1016 PRINTSPC(9)"[129] [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] " 1019 RA=1:OG=6:UG=6 1020 PRINT"SIE BEFINDEN SICH AM SUEDSTRAND EINER UNBEKANNTEN INSEL. 1050 [141]760 1120 [153]"MOEGLICHE RICHTUNGEN : N" 1125 [141]750 1130 [141]100 1135 [139]S[178]5[167][137]1000 1140 [145]R[137]2000,1160,1160,1160,1600,1160 1150 [137]1300 1160 [141]701 1300 [139]V[178]6[175]S[178]6[167][153]"SIE UNTERSUCHEN DEN STRAND.":Q[178]1:[139]R1[178]0[167][141]1500 1399 [141]777 1400 [137]1130 1500 [139]R1[178]0[167]RA$(1,1)[178]G$(1):R1[178]1 1510 [141]760:[142] 1600 [153]"SIE SITZEN AUF DER PALME." 1610 [141]100 1620 [145]R[137]900,900,900,900,900,1650 1630 [139]V[178]4[167][137]1610 1640 [137]900 1650 [141]705:[137]1130 2000 [153][166]9)"POKE TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO " 2001 [153][166]9)"THEN FN SGNPOKE WAIT INT SGNPOKE ABSFN PEEK SGNPOKE WAITFN" 2002 [153][166]9)"THEN FN +POKE WAITFNFN THEN+POKE LEFT$ CHR$ ABSPOKE WAITFN" 2003 [153][166]9)"THEN CHR$ ABSPOKE WAITSGN +ABSPOKE CHR$ SGN WAITGETPOKEFN WAITFN" 2004 [153][166]9)"THEN LEFT$ WAITGETPOKEFNWAITINTFN WAITGETPOKETHEN PEEK WAITGETPOKE WAITFN" 2005 [153][166]9)"THEN THEN WAITINTPOKE WAITGET WAITGETPOKELEFT$LEFT$ WAITINTPOKEFN WAITFN" 2006 [153][166]9)"THEN THEN WAITINTPOKE ABS WAITGETPOKEPEEK FN WAITFNPOKE +WAITFN" 2007 [153][166]9)"THEN THEN WAITSGNPOKE +FN WAITGETPOKEFN THEN PEEK PEEKWAITFN" 2008 [153][166]9)"THEN FNCHR$ THEN CHR$WAITINTPOKE CHR$ SGNWAITFN" 2009 [153][166]9)"THEN CHR$FN LEFT$ABSWAITINTPOKE LEFT$ +FNWAITFN" 2010 [153][166]9)"THEN PEEK FNTHENWAITINTPOKESGN THENFN WAITGETFNWAITFN" 2011 [153][166]9)"THEN LEFT$ THEN WAITSGNPOKE FN ABS WAITFN" 2012 [153][166]9)"THEN THEN (null) CHR$ (null) WAITGET WAITFN" 2013 [153][166]9)"THEN THENSGN LEFT$ FN CHR$ (null) WAITFN" 2014 [153][166]9)"THEN THENINT PEEK FN LEFT$ PEEK WAITFN" 2015 [153][166]9)"THEN ABSGET CHR$ PEEK (null) FN WAITFN" 2016 [153][166]9)" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( " 2019 RA[178]2:OG[178]1:UG[178]1 2020 [153]"SIE STEHEN AN EINER HOHEH,MIT LIANEN BE-WACHSENEN FELSWAND 2030 PRINT"[145]AN DEREN FUSS EINE 2040 [153]"GROSSE,FLEISCHFRESSENDE PLANZE WAECHST. 2120 PRINT"MOEGLICHE RICHTUNGEN : S,W,O" 2125 GOSUB750 2130 GOSUB100 2135 IFS=5THENGOTO2000 2140 ONRGOTO2160,1000,5000,2500,2200,2160 2150 GOTO2165 2160 GOSUB701 2165 GOSUB777 2170 GOTO2130 2200 PRINT"SIE SIND AN EINER LIANE HINAUFGEKLETTERT. 2222 [153]"ONDA DIESE IN HALBER HOEHE RISS,SIND SIE" 2224 [153]"AUF DIE ERDE ZURUECKGEFALLEN! 2226 PRINT"AUSGERECHNET IN DEN SCHLUND DER FLEISCH-FRESSENDEN PLANZE!! 2228 [153]"JETZT WERDEN SIE VERDAUT!!! 2300 GOSUB750:GOTO900 2500 REM *** RAUM 2500 ********************************************************* 2510 PRINT"SIE STEHEN AUF DEM WESTLICHEN VORPLATZ EINER VERLASSENEN HUETTE. 2520 [153]"AM BODEN SIND ABDRUECKE NACKTER FUESSE UND SCHLEIFSPUREN ZU ERKENNEN 2530 PRINT"[157][157][157][157][157][157][157][157][157][157][157]." 2540 PRINT"HIER SCHEINT EIN KAMPF STATTGEFUNDEN ZU HABEN! 2545 RA[178]20:OG[178]1:UG[178]1 2550 [141]760 2600 [153]"MOEGLICHE RICHTUNGEN : S,W,O" 2610 [141]100 2620 [145]R[137]2640,4000,2000,3000,2640,2640 2625 [139]S[178]5[167][137]2500 2630 [137]2645 2640 [141]701 2645 [141]777 2650 [137]2610 3000 [153][166]9)"VERIFY POKETOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOVERIFY " 3001 [153][166]9)"POKETHENVERIFYTHEN SGNVERIFYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN+THEN+THENPEEKPOKEWAITFN" 3002 [153][166]9)"THENVERIFYTHENTHEN+VERIFYTHENTHENTHENTHENOR==TAN^VERIFYTHENTHENTHEN+THEN+THENPEEKPOKEWAITFN" 3003 [153][166]9)"THENVERIFYTHENABSABSVERIFYTHENTHEN+THENPEEKCHR$-ASCPEEKVERIFYTHENTHENTHENTHENTHEN+THENPEEKPOKEWAITFN" 3004 [153][166]9)"THENVERIFY+THENWAITINTVERIFYTHENTHEN+THEN-FN(null)TANTANEXPVERIFYTHEN+THENTHENTHEN+THENPEEKPOKEWAITFN" 3007 [153][166]9)"THENVERIFYTHEN FNTHEN+THENTHENTHENTHENTHENTHENTHENTHEN+THENTHENTHEN+THENPEEKPOKEWAITFN" 3008 [153][166]9)"THENVERIFYTHEN WAITSTEPPOKEOR^ VERIFY STEP(null)WAITSTEPVERIFYSTEPTHENTHENSQRSQRSQRTHEN+THENPEEKPOKEWAITFN" 3009 [153][166]9)"THENVERIFYSQRWAITSTEP POKEMID$(null)  VERIFYSTEPSQRSQRSQRUSRFREUSR(null)SQRTHENPEEKPOKEWAITFN" 3010 [153][166]9)"THENVERIFY INTSGN INTSGN (null)(null)TO TO(null)(null)(null)PEEKPOKEWAITFN" 3011 [153][166]9)"THENVERIFY (null) INTSGN (null) INTSGN LEFT$ (null)VERIFY CHR$ (null)POKEWAITFN" 3012 [153][166]9)"THENVERIFY INT RIGHT$ INT (null) (null)TO TO(null)RIGHT$ POKEWAITFN" 3013 [153][166]9)"THENVERIFYRIGHT$ INT INT THENTOTAB(TOSGN POKEWAITFN" 3014 [153][166]9)"THENVERIFY (null) RIGHT$ TAB( (null) POKEWAITSGN" 3015 [153][166]9)"VERIFY POKETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(VERIFY " 3019 RA[178]3:OG[178]10:UG[178]8 3020 [153]"DIE HUETTE SCHEINT VOR KURZEM NOCH BEWOHNT GEWESEN ZU SEIN. 3022 PRINT"AUF DEM BODEN STEHT EIN FASS. 3024 [141]760 3120 [153]"MOEGLICHE RICHTUNGEN : W" 3125 [141]750 3130 [141]100 3135 [139]S[178]5[167][137]3000 3140 [145]R[137]3160,3160,2500,3160,3160,3160 3150 [137]3300 3160 [141]701 3300 [139]V[178]6[175]S[178]8[167][153]"ES ENTHAELT SCHIESSPULVER.":Q[178]1 3310 [139]V[178]6[175]S[178]9[175]SP$(2)[178]""[175]SP$(3)[178]""[167][141]3500 3320 [139]V[178]6[175]S[178]10[175]R3[178]1[167][153]"ES IST EIN TAGEBUCH.":Q[178]1 3350 [139]V[178]8[175]S[178]10[175]R3[178]1[167][141]3600 3360 [139]V[178]7[175]S[178]8[167][141]3700 3375 [139]V[178]7[175]G[178]2[175]R3[178]1[167][141]3800 3380 [139]V[178]11[175]S[178]21[175]RA[178]3[175]OF[178]1[175]OB[178]1[175]G[178]2[167][141]705:[141]3900:PA[178]1 3385 [139]V[178]10[175]S[178]8[175]OF[178]0[167][141]710 3387 [139]V[178]10[175]G[178]2[175]OB[178]0[167][141]710 3390 [139]V[178]10[175]S[178]8[175]OF[178]1[167][141]705:OF[178]0 3391 [139]V[178]10[175]G[178]2[175]OB[178]1[167][141]705:OB[178]0 3392 [139]V[178]6[175]S[178]9[175]Q[178]0[167][141]708:[137]3130 3399 [141]777 3400 [137]3130 3500 [139]R3[178]0[167]RA$(3,3)[178]G$(3):RA$(3,2)[178]G$(2):R3[178]1 3505 [153]"AUF DEM TISCH LIEGEN VERSCHIEDENE SACHENON" 3510 [141]760:Q[178]1:[142] 3600 [153]"ALS LETZTE EINTRAGUNG FINDEN SIE: 3602 PRINT"...ICH MUSS MICH VOR DEN WILDEN IN ACHT 3604 [153]"NEHMEN.ES SIND WAHRSCHEINLICH KANNIBALEN 3606 PRINT"FALLS SIE MICH ERWISCHEN,IST NICHT NUR 3608 [153]"MEINE GANZE FORSCHUNGSARBEIT UMSONST 3610 PRINT"GEWESEN,SONDERN ICH KANN AUCH NICHT 3612 [153]"RECHTZEITIG AM TREFFPUNKT SEIN... 3620 Q=1:RETURN 3700 IFOF=0ANDSA=1THENGOSUB705:OF=1:RETURN 3703 IFOF=0ANDSA=0THENPRINT"IM FASS IST EIN SKORPION!ER SPRINGT":OF=1:GOTO3710 3705 IFSA=1ANDOF=1THENGOSUB709:RETURN 3710 SA=1:PRINT"IHNEN AUF DIE HAND!!":GOSUB750:D=TI:LI=2700:ZA=1:GOSUB100 3730 IFV=9ANDS=20THEN3740 3735 GOTO900 3740 PRINT"DER SKORPION FAELLT ZU BODEN UND LAEUFT 3750 [153]"WEG.":ZA[178]0:Q[178]1:[142] 3800 [139]OB[178]1[167][141]709:[142] 3802 [139]OB[178]0[167][153]"DER BEHAELTER ENTHAELT EINE ZUENDSCHNUR":OB[178]1 3810 [139]PA[178]1[175]OB[178]1[167][153]"UND SCHIESSPULVER. 3830 Q=1:RETURN 3900 PRINT"PULVER IST IM BEHAELTER.":Q=1:RETURN 4000 PRINTSPC(9)"[151] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] " 4001 PRINTSPC(9)"[167] [223][166][166][166][166][166][166][151][146][165]" 4002 PRINTSPC(9)"[167] [223][166][166][166][166][151][146][165]" 4003 PRINTSPC(9)"[167] [166][166][166][166][151][146][165]" 4004 PRINTSPC(9)"[167] [223][166][149][161][194][151][146][165]" 4005 PRINTSPC(9)"[167] [149][161][194][151][146][165]" 4006 PRINTSPC(9)"[167] [149][181][199][151][146][165]" 4007 PRINTSPC(9)"[170] [149][181][199][151][146][165]" 4008 PRINTSPC(9)"[167] [149][180][212][151][146][165]" 4009 PRINTSPC(9)"[170] [155] [149][165][212][151][146][165]" 4010 PRINTSPC(9)"[170] [129] [155] [151][168][168][168] [155] [149][165][212][151][146][165]" 4011 PRINTSPC(9)"[170] [152][191][146][191][151][166][168][168][168][166][191][152][146][191] [155]  [149] [165][151][146][165]" 4012 PRINTSPC(9)"[167] [213] [201] [201] [201] [151][146][165]" 4013 PRINTSPC(9)"[167] [201] [213] [213] [203] [201] [213] [151][146][165]" 4014 PRINTSPC(9)"[167] [213] [213] [202] [201] [213] [201] [151][146][165]" 4015 PRINTSPC(9)" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] " 4019 RA=4:OG=7:UG=7 4020 PRINT"VOR IHNEN LIEGT EIN VERLASSENER LAGER- 4030 [153]"PLATZ.IN DER FEUERSTELLE BEFINDET SICH 4040 PRINT"ASCHE. 4080 [141]760 4120 [153]"MOEGLICHE RICHTUNGEN : N" 4122 [141]750 4125 [139]AA[178]0[167][141]4600 4130 [141]100 4135 [139]S[178]5[167][137]4000 4140 [145]R[137]2500,4160,4160,4160,4160,4160 4150 [137]4300 4160 [141]701 4300 [139]V[178]6[175]S[178]7[175]R4[178]0[167]RA$(4,4)[178]G$(4):R4[178]1:Q[178]1:[141]760 4499 [141]777 4500 [137]4130 4600 [153]"EIN GORILLA ERSCHEINT AUF DER LICHTUNG. 4610 PRINT"ER ROLLT AUF DEM BODEN HERUM UND MACHT 4620 [153]"MAENNCHEN!":AA[178]1 4630 [141]100:[139]V[178]12[175]S[178]22[167][137]4700 4635 [139]V[178]20[175]S[178]19[167][137]900 4637 [139]R[178]1[167][153]"DER GORILLA VERSPERRT IHNEN DEN WEG." 4640 [153]"DER GORILLA HAT AUFGEHOERT UND SCHAUT 4650 PRINT"SIE GRIMMIG AN! 4670 [141]100:[139]V[178]12[175]S[178]22[167][137]4700 4680 [137]900 4700 [153]"DER GORILLA TIPPT SICH AN DEN KOPF UND 4710 PRINT"VERSCHWINDET WIEDER IM DSCHUNGEL.":RETURN 5000 PRINTSPC(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] " 5001 PRINTSPC(9)"[151][167][149] [146][183][184][185][175][185][162][146][184][183][205][175]  [151][165]" 5002 PRINTSPC(9)"[167][149] [146][163][183][184][205] [197][198][210][206] [205][149] [151][165]" 5003 PRINTSPC(9)"[167][149] [184][146][162][185][162][162][184][183][183][184][146][175][164][163][197][196][198][187] [151][165]" 5004 PRINTSPC(9)"[167][149] [164][175][185][162][162][146][183][184][175] [164][175][185][162][146][183][181][129] [151][165]" 5005 PRINTSPC(9)"[167][149] [146] [158]  [161] [158]  [151][165]" 5006 PRINTSPC(9)"[167][149][167][158][146][200][212][199][199] [153] [161] [158][217] [212][217][151][165]" 5007 PRINTSPC(9)"[167][149] [158][146][194][194][194][200]  [153] [181] [158][200][217][194][194][194][151][165]" 5008 PRINTSPC(9)"[167][149] [158][146][194][200][199][194]  [165] [158][200][194][194][194][194][151][165]" 5009 PRINTSPC(9)"[167][149][167][158][146][194][194][194][194][194][129] [165][129] [158][194][194][194][194][194][151][165]" 5010 PRINTSPC(9)"[167][149] [151][146][162][184][184][183][183][183][163][163][163] [163][163][183][183][183][184][184][146][162][185][165]" 5011 PRINTSPC(9)"[167][149] [151] [146][165]" 5012 PRINTSPC(9)"[167][149] [151][146][184][162][162][185][185][185][175][175][175][175][175][175][185][185][185][162][162][146][184][183][165]" 5013 PRINTSPC(9)"[167][149][167][146] [151][165]" 5014 PRINTSPC(9)"[167][149] [146] [151][180]" 5015 PRINTSPC(9)"[167][149] [146] [151][165]" 5016 PRINTSPC(9)" [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] " 5019 RA=5:OG=1:UG=1 5020 PRINT"SIE BEFINDEN SICH AM FUSS EINES BAUMES. NOERDLICH VON IHNEN LIEGT EIN 6 5030 [153]"CMDCMDCMDCMDCMDCMDCMDCMDMETER BREITER,MIT SCHILF BEWACHSENER SUMPF. 5040 PRINT"AN DER MITTE EINES ASTES HAENGT EINE LIANE MITTEN UEBER DEM SUMPF. 5050 [141]760 5120 [139]SC[178]0[167][153]"MOEGLICHE RICHTUNGEN : O" 5122 [139]SC[178]1[167][153]"MOEGLICHE RICHTUNGEN : N,O" 5125 [141]750 5130 [141]100 5135 [139]S[178]5[167][137]5000 5140 [145]R[137]5600,5160,5160,2000,5160,5160 5150 [137]5300 5160 [141]701 5300 [139]V[178]13[167]900 5310 [139]BU[178]0[175]S[178]2[175]SP$(4)[179][177]""[175]V[178]14[167][141]5700 5320 [139]BU[178]1[175]S[178]18[175]V[178]11[167][141]5710 5499 [141]777 5500 [137]5130 5600 [139]SC[178]1[167]5720 5610 [137]5160 5700 [153]"SIE HABEN PECH!DER BAUM FAELLT ENTLANG 5702 PRINT"DES UFERS.DER AST MIT DER LIANE STEHT 5704 [153]"SENKRECHT IN DIE LUFT.":BU[178]1:Q[178]1 5705 [153]"DAS BEIL IST ZERBROCHEN .":SP$(4)[178]"":WI[178]WI[171]1 5706 [142] 5710 [153]"DIE LIANE VERFAENGT SICH IM SCHILF!":SC[178]1:Q[178]1:[137]5122 5720 [153]"GESCHAFFT!SIE SIND AUF DER ANDEREN SEITE 5730 PRINT"[145]DIE LIANE IST ABER ABGERISSEN.":GOSUB750:GOTO6000 6000 PRINTSPC(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][151]" 6002 PRINTSPC(9)"[151][167] [151][165]" 6003 PRINTSPC(9)"[170] [151] [151][165]" 6004 PRINTSPC(9)"[167] [166][146][220] [151][165]" 6005 PRINTSPC(9)"[167] [168][166] [146][166] [168][146][168] [151][165]" 6006 PRINTSPC(9)"[167] [158][209] [166][168][220][146] [220][158][209] [151][165]" 6007 PRINTSPC(9)"[167] [168][168][220][168][158][146][209][220][146][168][168] [151][165]" 6008 PRINTSPC(9)"[167] [220] [166][168][220][168][146] [220] [151][165]" 6009 PRINTSPC(9)"[167] [158][209] [168][168][158][146][209][166][220][168][146] [158][209] [151][165]" 6010 PRINTSPC(9)"[167] [166][146] [220][166][168][146] [220][146][168] [151][165]" 6011 PRINTSPC(9)"[167] [220][146] [158][209][220][220][220][146][168] [220] [151][165]" 6012 PRINTSPC(9)"[167] [158][209] [166][220][146] [220][158][209] [151][165]" 6013 PRINTSPC(9)"[167] [166][168][166][146] [158][209] [151][165]" 6014 PRINTSPC(9)"[167][149][183][163][213] [201][163][183][184][183][163][213] [201][163][183][184][184][183][151][146][165]" 6015 PRINTSPC(9)"[167][149] [202] [213] [201] [203] [151][146][165]" 6016 PRINTSPC(9)"[167][149] [203] [213] [201] [202] [151][146][165]" 6017 PRINTSPC(9)"[149] [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][149] " 6019 RA=6:OG=12:UG=11 6020 PRINT"SIE STEHEN VOR EINEM WILDSTRAUCH. 6030 [141]760 6120 [153]"MOEGLICHE RICHTUNGEN : W,O" 6130 [141]100 6135 [139]S[178]5[167][137]6000 6140 [145]R[137]6160,6160,7000,8000,6160,6160 6150 [137]6300 6160 [141]701 6300 [139]V[178]6[175]S[178]12[167]RA$(6,5)[178]G$(5):[141]760:Q[178]1 6499 [141]777 6500 [137]6130 7000 [153][166]9)"POKE TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO " 7001 [153][166]9)"THEN  POKEFN" 7002 [153][166]9)"THEN   FORTOAND(null)ASCPOKEFN" 7003 [153][166]9)"THEN   FORTO(null)ASCTANLENSTR$VALTAB( POKE. POKEFN" 7004 [153][166]9)"THENFORTO(null)ASCTANLENSTR$VALTAB(POKE.FOR  POKE. POKE. POKE. POKE.  POKEFN" 7005 [153][166]9)"THEN. POKE.LIST POKE.FOR LIST FOR LIST POKE.LIST POKE.LIST POKE.LIST POKEFN" 7006 [153][166]9)"THEN POKE. LIST  POKE.LIST POKE.LIST  POKE. POKE. POKEFN" 7007 [153][166]9)"THEN LIST POKE.LISTSTEP WAITSTEP POKE.  POKE. POKEFN" 7008 [153][166]9)"THEN POKE LIST POKE. LIST(null)USRUSRUSRUSR WAIT  POKE. POKE .FN" 7009 [153][166]9)"THEN POKE. FOR LISTSGN (null)LIST  WAIT POKE. POKE. POKEFN" 7010 [153][166]9)"THENLIST POKE  LIST(null)ANDANDANDANDSTEP POKE. POKE. FORTOANDPOSPOKEFN" 7011 [153][166]9)"THENFOR POKE.FOR POKE.FOR POKE.FORTOANDPOSNEWFRETAB(TAB( . POKEWAITFN" 7012 [153][166]9)"THENFOR TOANDPOSNEWFREUSRUSR . . . POKEWAITFN" 7013 [153][166]9)"THENFOR . . . . . POKEWAITFN" 7014 [153][166]9)"THENFOR . . . . POKEWAITFN" 7015 [153][166]9)" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FOR " 7019 RA[178]7:OG[178]1:UG[178]1 7020 [153]"SIE SIND AN DER WESTKUESTE DER INSEL. 7030 PRINT"AM STRAND STEHT EINE AN LAND GESCHWEMMTE 7040 [153]"ONMETALLKISTE. 7050 GOSUB760 7120 PRINT"MOEGLICHE RICHTUNGEN : O" 7125 GOSUB750 7130 GOSUB100 7135 IFS=5THENGOTO7000 7140 ONRGOTO7160,7160,7160,6000,7160,7160 7150 GOTO7300 7160 GOSUB701 7300 IFV=7ANDS=15ANDOK=1THENGOSUB709 7310 IFV=7ANDS=15ANDOK=0THENGOSUB7600:OK=1:Q=1 7320 IFV=10ANDS=15ANDOK=0THENGOSUB710 7330 IFV=10ANDS=15ANDOK=1THENGOSUB705:OK=0 7340 IFV=15ANDS=15ANDVS=0THENGOTO7700 7350 IFS=23ANDV=20ANDOK=1ANDVS=0THENGOTO900 7360 IFS=23ANDVS=0ANDV=11ANDOK=1ANDKG=1THENGOSUB7800:Q=1 7499 GOSUB777 7500 GOTO7130 7600 IFVS=0THENPRINT"AUF DEM INHALT DER KISTE SITZT EINE " 7610 IFVS=0THENPRINT"GROSSE,SCHWARZE VOGELSPINNE!":RETURN 7620 GOSUB705:OK=1:RETURN 7700 PRINT"DER INHALT UND DIE SPINNE FALLEN HERAUS. 7702 [153]"ONDIE VOGELSPINNE KRABBELT AN IHREM BEIN 7710 PRINT"HOCH!!":D=TI:LI=500:ZA=1:GOSUB100:GOTO900 7800 PRINT"DIE SPINNE LAEUFT DAVON!":VS=1 7810 RA$(7,6)=G$(6):RA$(7,7)=G$(7):GOSUB760:RETURN 8000 PRINTSPC(9)"[129] [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][129] " 8001 PRINTSPC(9)"[151][167] [146][170] [167] [165] [167] [165] [146][165]" 8002 PRINTSPC(9)"[167] [146][182] [217] [152][202][203][151] [199] [165] [180] [199] [146][165]" 8003 PRINTSPC(9)"[167] [199] [200][194] [182] [212][182][165] [194] [146][165]" 8004 PRINTSPC(9)"[167] [194] [221] [165] [152][202][203][151] [191] [199][167][161] [167] [146][165]" 8005 PRINTSPC(9)"[167] [212][165] [194] [194] [194] [180] [217] [146][165]" 8006 PRINTSPC(9)"[167] [167][165][191] [181] [200] [152][202][203][151] [146][161] [199] [200] [146][165]" 8007 PRINTSPC(9)"[167] [170][181] [194][180] [167][180] [200] [146][165]" 8008 PRINTSPC(9)"[167] [182][180] [217][181] [152][202][203][151] [161] [199] [146][165]" 8009 PRINTSPC(9)"[167] [146][161][165] [182][165] [167] [212] [146][165]" 8010 PRINTSPC(9)"[167] [146][181] [199] [152][202][203][151] [165] [212] [146][165]" 8011 PRINTSPC(9)"[167] [194] [165] [200][199] [180] [146][165]" 8012 PRINTSPC(9)"[167] [199] [170][165] [152][202][203][151] [221][194] [180][165][146][165]" 8013 PRINTSPC(9)"[167] [199] [170][191] [167] [152][202][203][151] [199][146][161][167] [165][146][165]" 8014 PRINTSPC(9)"[167] [212] [217] [199] [146][161] [165][167][167] [199][146][165]" 8015 PRINTSPC(9)"[167] [165] [200] [146][181] [146][181] [167][165] [146][170] [194][146][165]" 8016 PRINTSPC(9)" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] " 8019 RA=8:OG=1:UG=1 8020 PRINT"SIE STEHEN VOR EINER FELSWAND MIT 8030 [153]"SPALTEN ,AN DER FUSSTRITTE SIND. 8050 GOSUB760 8120 PRINT"MOEGLICHE RICHTUNGEN : W,HINAUF" 8130 GOSUB100 8135 IFS=5THENGOTO8000 8140 ONRGOTO8160,8160,6000,8160,8600,8160 8150 GOTO8299 8160 GOSUB701 8299 GOSUB777 8300 GOTO8130 8600 IFFH=1THENGOTO9000 8602 IFFH=0THENPRINT"SIE STEIGEN DIE WAND HINAUF. 8610 [139]FH[178]0[167][153]"PLOETZLICH KOMMT VON OBEN EIN HAGEL VON 8620 IFFH=0THENPRINT"FELSBROCKEN AUF SIE ZU!!":FH=1:D=TI:LI=3600:ZA=1 8625 GOSUB100 8630 IFS=33THENPRINT"DER STEINHAGEL FAELLT AN IHNEN VORBEI!":GOTO8650 8640 GOTO900 8650 ZA=0:GOSUB100 8660 IFV=18THENGOSUB705:GOTO8700 8665 IFV=13THENGOTO8680 8670 GOTO8650 8680 RA=9:GOTO900 8700 PRINT"SIE STEHEN WIEDER IN DER WAND." 8710 GOSUB100 8720 ONRGOTO8730,8730,8730,8730,9000,8000 8725 GOTO8735 8730 GOSUB701 8735 GOSUB777 8740 GOTO8710 9000 PRINTSPC(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] " 9001 PRINTSPC(9)"[151][167][155] [152][169][206]//[206][206] / /[206] [206] [151][146][165]" 9002 PRINTSPC(9)"[167][155] [152][169][206][198][196][196][183][196][196][195][175][206] [206] [151][146][165]" 9003 PRINTSPC(9)"[167][155] [152][198][183] [175][162][185][175] [191] [206] [151][146][165]" 9004 PRINTSPC(9)"[167][155] [152][169] [146][207]  [217] [220][152][188] [199] [206][151][146][165]" 9005 PRINTSPC(9)"[167][155] [152][172] [146][190]  [212][152] [173][204][152][182] [200] [206] [151][146][165]" 9006 PRINTSPC(9)"[167][155] [152][180] [182][146] [167][164][164][164][164][164][152] [165][206] [151][146][165]" 9007 PRINTSPC(9)"[167][155] [152] [146] / [158][169][216][146][169][205][152][181] [194] /[151][146][165]" 9008 PRINTSPC(9)"[167][155] [152][167] [182][158][146] / [158][169][163][163][223][146][206][152][170] [200] / [151][146][165]" 9009 PRINTSPC(9)"[167][150] [152][182] [146][161][158] / [152] [167]/ [151][146][165]" 9010 PRINTSPC(9)"[167][150] [152][182] [146][181][158] /[151] [152][180] [165] [151][146][165]" 9011 PRINTSPC(9)"[167][150] [152][161] [146][165]/[151]  [152] [181] [180] /[151][146][165]" 9012 PRINTSPC(9)"[167][150] [152][161] [146]/[151]  [152] [161] [199]/ [151][146][165]" 9013 PRINTSPC(9)"[167][169], . , , . , . ,[146][165]" 9014 PRINTSPC(9)"[167]. , . , . , . [146][169][165]" 9015 PRINTSPC(9)"[167] . , . . , [146][169] [165]" 9016 PRINTSPC(9)" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] " 9019 RA=9:OG=1:UG=1 9020 PRINT"SIE STEHEN VOR DEM EINGANG EINER HOEHLE 9050 [141]760 9120 [153]"MOEGLICHE RICHTUNGEN : N,O,RUNTER" 9130 [141]100 9135 [139]S[178]5[167][137]9000 9140 [145]R[137]10000,9160,9160,11000,9160,8000 9150 [137]9299 9160 [141]701 9299 [141]777 9300 [137]9130 10000 [153][166]9)"POKE TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO" 10001 [153][166]9)"THEN  FN + POKEFN" 10002 [153][166]9)"THENNOTNOTWAIT NOTNOTWAIT PEEK THEN POKEFN" 10003 [153][166]9)"THEN STEP (null)WAIT FN   + POKEFN" 10004 [153][166]9)"THEN (null) (null) PEEK THEN POKEFN" 10005 [153][166]9)"THENFN ===WAIT FN   + POKEFN" 10006 [153][166]9)"THEN(null)POKETHEN>>>WAIT PEEK   +  POKEFN" 10007 [153][166]9)"THENTHEN(null) (null)FN THEN POKEFN" 10008 [153][166]9)"THEN VALASC ASCVALSYS NEWSTR$VALTAB(TAB(VALSTR$NEW SYS +SYS POKEFN" 10009 [153][166]9)"THEN TAB( SYS (null)VALSTR$LENLENSTR$VAL(null) SYS + POKEFN" 10010 [153][166]9)"THEN SYS (null)ANDTOTOAND(null)  SYS + POKEFN" 10011 [153][166]9)"THENANDANDANDANDANDANDANDSYSSTEP WAIT(null) SQR WAITSTEP(null)ANDSQR POKEFN" 10012 [153][166]9)"THEN SYS STEP WAITSTEP (null) (null) POKEFN" 10013 [153][166]9)"THEN  SYS STEPTAB(TAB(TAB(TAB(TAB(TAB(TAB((null)WAIT (null) (null)POKEFN" 10014 [153][166]9)"THEN SYS STEP (null)(null)(null) (null)(null)(null) (null)WAIT SYS (null) POKEFN" 10015 [153][166]9)"THEN SYS STEP (null) (null)WAIT(null) POKEFN" 10016 [153][166]9)"THEN FN" 10017 [153][166]9)" POKETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( " 10019 RA[178]10:OG[178]13:UG[178]13 10020 [153]"SIE STEHEN IN EINEM GOETZENTEMPEL. 10030 PRINT"AUF DEM ALTAR BEFINDET SICH EINE SCHALE 10040 [153]"AUS GOLD. 10100 GOSUB760 10120 PRINT"MOEGLICHE RICHTUNGEN : S" 10125 GOSUB750 10130 GOSUB100 10135 IFS=5THENGOTO10000 10140 ONRGOTO10160,9000,10160,10160,10160,1160 10150 GOTO10300 10160 GOSUB701 10300 IFV=6ANDS=13THENGOSUB10600 10310 IFV=1ANDSP$(8)<>""ANDWA=0THENGOSUB10700 10499 GOSUB777 10500 GOTO10130 10600 IFR8=0THENPRINT"DIE SCHALE ENTHAELT EDELSTEINE. 10610 [139]R8[178]0[167]RA$(10,8)[178]G$(8):[141]760:R8[178]1 10620 Q[178]1:[142] 10700 [139]WA[178]0[167][141]10705 10702 Q[178]1:[142] 10705 [153]"DER ALTER BEGINNT IM BODEN ZU VERSCHWIN- 10710 PRINT"[145]DEN.VOR DEN AUSGANG SCHIEBT SICH EINE 10720 [153]"MAUER!DIE WAENDE BEGINNEN SICH AUF EIN- 10730 PRINT"ANDER ZU ZUBEWEGEN!!":WA=1:D=TI:LI=2400:ZA=1 10740 PRINT"MOEGLICHE RICHTUNGEN: KEINE 10750 [153]"SIE SIND GEFANGEN! 10760 GOSUB100 10770 ONRGOTO10790,10790,10790,10790,10790,10790 10780 GOTO10800 10790 GOSUB701 10800 IFV=23ANDS=25THENGOTO10900 10805 IFT=1THENGOTO900 10810 GOSUB777 10820 GOTO10760 10900 ZA=0:T=0 10910 PRINT"DIE WAENDE GEHEN ZURUECK.DER AUSGANG ISTFREI!":GOTO10120 11000 PRINTSPC(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] " 11001 PRINTSPC(9)"[167][175][175][175][175][175][175][175][175][175][175][175][175] [151][165]" 11002 PRINTSPC(9)"[167] [206][205] [151][165]" 11003 PRINTSPC(9)"[167][129][201] [129][213] [213] [129][202] [206] [152] [205] [151][165]" 11004 PRINTSPC(9)"[167] [129][213]  [129][213] [206] [152]  [205] [151][165]" 11005 PRINTSPC(9)"[167][129][216][216][216][216][216][216][216][216][151][175][175] [205] [151][165]" 11006 PRINTSPC(9)"[167] [151] [206][180] [205] [151][165]" 11007 PRINTSPC(9)"[167] [151][206] [151][204][175] [205] [151][165]" 11008 PRINTSPC(9)"[167] [151] [206] [151]/ [151][206][180] [205] [151][165]" 11009 PRINTSPC(9)"[170][129][216][216][216][216] [151] [206] [151]/ [151][206] [151][204][175] [205][151][165]" 11010 PRINTSPC(9)"[170][129][201] [206][151][183][208] / [151][206] [151]/ [206][180] [151][165]" 11011 PRINTSPC(9)"[170] [129][213][206] [152] [151][170]/ [206] / [151][206] [204][175] [151][165]" 11012 PRINTSPC(9)"[170] [206][154]  [152]  [151][183][208] / [151][206] / [206][180] [151][165]" 11013 PRINTSPC(9)"[170][206][151] [154]  [152]  [151][167]/ [206] / [206] [151][204][175] [151][165]" 11014 PRINTSPC(9)"[170] [152]  [151][183][208] / [206] / [206][180] [151][165]" 11015 PRINTSPC(9)"[167] [152]  [151][170]/ [206] [151]/ [151][206] [151][204] [151][165]" 11016 PRINTSPC(9)" [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] " 11019 RA=11:OG=1:UG=1 11020 PRINT"VOR IHNEN FUEHRT EINE TREPPE AUF EINER 11021 [153]"SCHRAEGEN RAMPE NACH UNTEN. 11050 GOSUB760 11120 PRINT"MOEGLICHE RICHTUNGEN : W,RUNTER" 11125 GOSUB750 11130 GOSUB100 11135 IFS=5THENGOTO11000 11136 IFV=24ANDS=26ANDR=6THENGOTO11500 11137 IFV=11ANDG=8ANDSP$(8)<>""ANDR=6THENGOSUB705:GOSUB11450 11138 IFV=11ANDR=6ORG<>0ANDR=6THENR=0 11140 ONRGOTO11160,11160,9000,11160,11160,11400 11150 GOTO11299 11160 GOSUB701 11299 GOSUB777 11300 GOTO11130 11400 PRINT"SIE GEHEN DIE TREPPE HINUNTER. 11410 [153]"PLOETZLICH BEGINNT DIE TREPPE UNTER 11420 PRINT"IHNEN EINZUSTUERZEN!! 11430 D[178]TI:LI[178]600:ZA[178]1:[141]100 11435 [139]V[178]13[167]ZA[178]0:T[178]0:[137]11500 11440 [137]900 11450 SP$(8)[178]"":RA$(18,8)[178]G$(8):WI[178]WI[171]1:R[178]0:[142] 11500 [143] *** RAUM 11500 ******************************************************* 11519 RA[178]18:OG[178]1:UG[178]1 11520 [153]"SIE BEFINDEN SICH AM FUSS DER TREPPE. 11530 PRINT"EIN PFAD VERLAEUFT NACH NORDEN. 11550 [141]760 11600 [153]"MOEGLICHE RICHTUNGEN : N" 11610 [141]100 11620 [145]R[137]12000,11640,11640,11640,11640,11640 11625 [139]S[178]5[167][137]11500 11630 [137]11645 11640 [141]701 11645 [141]777 11650 [137]11610 12000 [153][166]9)"FOR POKETOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOFOR " 12001 [153][166]9)"POKETHENFOR SINSPC(SPC(SPC(SPC(SPC(SPC(SINWAITSINFOR POKEFN" 12002 [153][166]9)"THENSINSINWAITNOTSPC(SPC(SPC(SPC(WAITNOTSINWAITSINSINFOR POKEFN" 12003 [153][166]9)"THEN SINSPC(SPC(SPC(SPC(SPC(SPC(SINSINWAIT POKEFN" 12004 [153][166]9)"THENSINSPC(WAIT(null)SPC(SPC(SPC(SPC(WAIT(null)SPC(WAITSINSIN POKEFN" 12005 [153][166]9)"THENSINSINSINSINVERIFYGETWAITSINVERIFYGETSINSINSIN POKEFN" 12006 [153][166]9)"THEN SINSINWAIT SINVERIFYPEEKSINWAIT SINSINWAITSIN POKEFN" 12007 [153][166]9)"THEN VERIFYINTPEEKABSWAIT POKEFN" 12008 [153][166]9)"THEN VERIFYINTPEEKABSWAIT FOR POKEFN" 12009 [153][166]9)"THEN VERIFYINTPEEKABSWAIT POKEFN" 12010 [153][166]9)"THENFORTO VERIFYINTCHR$ABSWAIT POKEFN" 12011 [153][166]9)"THENFORTAB(USRVALSTR$VERIFYSGNCHR$THENFORWAITLENSTR$VALUSRVALSTR$LENTANASC(null)ASCLENSTR$POKEFN" 12012 [153][166]9)"THEN VERIFYSGN(null)+WAIT POKEFN" 12013 [153][166]9)"THENFOR TAB(USRTAB(. .TAB(USRFREWAITNEWPOSNEWFREWAITNEWPOSNEWFREUSRPOKEWAITSGN" 12014 [153][166]9)"THENFOR . . . . .POKEWAITFN" 12015 [153][166]9)"THENFOR . . . . POKEWAITFN" 12016 [153][166]9)" POKETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FOR " 12019 RA[178]12:OG[178]1:UG[178]1:WE[178]0 12020 [153]"HIER STEHT EIN BAUM DER SELTENEN GATTUNG 12030 PRINT"[145]'ZYPRESSUS JACARANDA'. 12050 [141]760 12120 [153]"MOEGLICHE RICHTUNGEN : N,S,O" 12125 [141]750 12130 [141]100 12135 [139]S[178]5[167][137]12000 12137 [139]V[178]29[175]S[178]2[175]R[178]3[167][141]12400:R[178]0 12140 [145]R[137]17000,11500,12160,13000,12160,12160 12150 [137]12200 12160 [141]701 12200 [139]V[178]30[175]WE[178]1[175]MA[178]1[167][141]12500 12299 [141]777 12300 [137]12130 12400 [153]"SIE STEHEN FUENF SCHRITTE WESTLICH DES 12410 PRINT"BAUMES.":Q=1:WE=1:RETURN 12500 PRINT"SIE LEGEN EIN FALTBOOT FREI.":RA$(12,9)=G$(9):WL=1:GOSUB760 12510 Q=1:RETURN 13000 PRINTSPC(9)"[129] [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][129] " 13001 PRINTSPC(9)"[151][167] [165] [165]" 13002 PRINTSPC(9)"[167] [175][175][186] [149] [151][165]" 13003 PRINTSPC(9)"[167][167][205] [163][196][198][175][164] [149] [151] [149] [151][165]" 13004 PRINTSPC(9)"[167][167] [163][196][198][164] [149][213][196][201][151][164] [149] [151][165]" 13005 PRINTSPC(9)"[167][129] [151][165][129] [151][165][129] [151][197][149]/[158] [149] /[151] [163][197][196][195][198][210][164][164][165]" 13006 PRINTSPC(9)"[167] [199][129] [151][212][129] [149]/[158] [149]/[151][183][196][195][198][210][175][164] [163][165]" 13007 PRINTSPC(9)"[167][129] [151][194][129] [151][199][129] [149]/ [149]/ [151][165][129] [151][183][197][196][165]" 13008 PRINTSPC(9)"[167][129] [151][217][129] [151][194][149]/ [149]/ [156] [151][212][149] [129] [151][212][129] [151][165]" 13009 PRINTSPC(9)"[167][129] [151][167][129] [149]/ [149]/ [151][212][129] [151][212][129] [151][165]" 13010 PRINTSPC(9)"[167][152][197][196][149][213][196][201]/[129] [149] [151][199][149] [129] [151][199][129] [151][180]" 13011 PRINTSPC(9)"[167][129] [149][202][210][203][152][197][198][175][210][198][195][192][196][197][196][195][198][210][198][195][151][165]" 13012 PRINTSPC(9)"[167][149] [152].[149] [152].[149] [152].[149] [152]. .[151][165]" 13013 PRINTSPC(9)"[167][149] [152].[149] [152].[149] [152].[149] [151][165]" 13014 PRINTSPC(9)"[167][149] [152]. [149] [152].[149] [152].[149] [152].[149] [152] .[151][180]" 13015 PRINTSPC(9)"[167][149] [152].[149] [152].[149] [152].[149] [151][165]" 13016 PRINTSPC(9)"[129] [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][129] " 13017 IFSH=0THENPRINT"[145][145][145][145][145][145][145][145][145][145][145][145]" 13018 IFSH=0THENPRINTSPC(17)"[158][216][157][157][213][203][157][157][157][213][203][157][157][157][213][203]" 13019 RA=13:OG=1:UG=1 13020 PRINT"SIE STEHEN VOR EINEM BAUMSTAMM,DER QUER 13030 [153]"UEBER EINER SCHLUCHT LIEGT. 13050 GOSUB760 13120 PRINT"MOEGLICHE RICHTUNGEN : W,O" 13125 GOSUB750 13130 GOSUB100 13135 IFS=5THENGOTO13000 13140 ONRGOTO13160,13160,12000,13500,13160,13160 13150 GOTO13200 13160 GOSUB701 13200 IFSH=0ANDV=2ANDS=11ANDRA$(13,5)=G$(5)THENGOSUB13400:Q=1 13210 IFSH=0ANDV=20THENGOTO13600 13299 GOSUB777 13300 GOTO13130 13400 PRINT"DIE SCHLANGE FRISST VON DEN FRUECHTEN. 13410 [153]"SIE KRUEMMT SICH,VERLIERT DEN HALT UND 13420 PRINT"FAELLT IN DIE SCHLUCHT!":SH=1:RA$(13,5)="":RETURN 13500 IFSH=1THENGOTO14000 13510 GOTO13600 13600 PRINT"DIE AUF DEM BAUMSTAMM LIEGENDE SCHLANGE 13601 [153]"HAT SIE GEBISSEN!! 13605 ZA=1:LI=2000:D=TI:GOSUB100 13610 IFV=32THENGOSUB777:PRINT"SIE HABEN KEINE SPRITZE!":GOTO13605 13620 GOTO900 14000 PRINTSPC(9)"[151] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] " 14001 PRINTSPC(9)"[167] [169] [223][146] [151][165]" 14002 PRINTSPC(9)"[167] [151]/[205] [152][206] [163][163] [152][205] [152]  [151]/[165]" 14003 PRINTSPC(9)"[170] [151]/ [151][205][152][206] [152][205][206][205] [151]/ [151][165]" 14004 PRINTSPC(9)"[170] [151]/ [152][206] [152][206]  [152][205][151]/ [151][165]" 14005 PRINTSPC(9)"[170]/ [152][206] [152][206] [152][205] [151][180]" 14006 PRINTSPC(9)"[170][195][198][210][185][210][198][195][198][210][175][164][152][206] [164][175][210][195][196][195][210][151][180]" 14007 PRINTSPC(9)"[170] [164][198][196][163] [163][183][163][197][195][210][164] [151][180]" 14008 PRINTSPC(9)"[170][164][175][162][185][162][185][175][164][164][175][164][175][185][162][184][184][183][184][146][162][185][151][180]" 14009 PRINTSPC(9)"[170] [163] [129] [206][205]  [151][180]" 14010 PRINTSPC(9)"[170] [129]  [129][206] [205][175][175][175][175][175][175][175][151][165]" 14011 PRINTSPC(9)"[170] [129][206] [129][209] [129][209] [129][209][151][165]" 14012 PRINTSPC(9)"[170] [129][206] [129][209] [209] [129][209] [129][209] [151][165]" 14013 PRINTSPC(9)"[170] [129] [206] [129][191][146]  [129][191][146] [129][209] [129] [209][151][165]" 14014 PRINTSPC(9)"[170] [129] [206] [129][191][146] [191][146] [175][175][175][175][151][165]" 14015 PRINTSPC(9)"[167] [129][206] [129]  [129][209] [129][205] [151][165]" 14016 PRINTSPC(9)" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] " 14019 RA=14:OG=27:UG=27 14020 PRINT"HIER TEILT SICH DER WEG.EIN BREITER WEG 14030 [153]"MIT VIELEN FUSSABDRUECKEN FUEHRT NACH 14040 PRINT"SUEDEN,EIN SCHMALER PFAD NACH OSTEN. 14050 [141]760 14120 [153]"MOEGLICHE RICHTUNGEN : S,W,O" 14125 [141]750 14130 [141]100 14135 [139]S[178]5[167][137]14000 14140 [145]R[137]14160,15000,13000,14500,14160,14160 14150 [137]14200 14160 [141]701 14200 [139]V[178]6[175]S[178]27[167][141]14400 14210 [139]V[178]25[175]G[178]2[176]V[178]25[175]S[178]28[167][141]14450 14299 [141]777 14300 [137]14130 14400 [153]"AUF DEM BODEN LIEGT EIN GLIMMENDES STUE-CK HOLZ!":Q[178]1:[142] 14450 [139]SP$(2)[178]""[167][153]"SIE HABEN DAS NICHT!":Q[178]1:[142] 14460 [141]705:[153]"DIE ZUENDSCHNUR BRENNT!" 14465 [139]PA[178]0[167][153]"ES IST ABER KEIN PULVER DARIN." 14470 [139]PA[178]1[167]Q[178]1:ZA[178]1:D[178]TI:LI[178]3600:ZU[178]1 14480 [142] 14500 RA[178]19:OG[178]1:UG[178]1 14520 [153]"SIE STEHEN AUF EINER WALDLICHTUNG. 14550 GOSUB760 14600 PRINT"MOEGLICHE RICHTUNGEN : S,W" 14606 GOSUB750 14607 IFLE=0THENGOTO14950 14608 IFLE=1THENPRINT"AUF DEM BODEN LIEGT EIN TOTER JAGUAR." 14610 GOSUB100 14620 ONRGOTO14640,16000,14000,14640,14640,14640 14625 IFS=5THENGOTO14520 14630 GOTO14849 14640 GOSUB701 14849 GOSUB777 14850 GOTO14610 14950 PRINT"EIN JAGUAR TAUCHT AUF DIE LICHTUNG AUF. 14951 [153]"ER GREIFT SIE AN!!":ZA[178]1:D[178]TI:LI[178]3600:LE[178]1 14952 [141]100 14953 [139]V[178]20[175]S[178]29[175]SP$(1)[179][177]""[175]G[178]1[167]14960 14954 RA[178]14:[137]900 14960 [153]"GESCHAFFT!ABER DER JAGUAR HAT IHNEN DIE 14961 PRINT"PULSADERN DER LINKEN HAND AUFGERISSEN!" 14962 PRINT"SIE DROHEN ZU VERBLUTEN!!":D=TI 14963 GOSUB100 14964 IFV=26ANDG=6ANDSP$(6)<>""THENGOSUB705:GOTO14970 14965 GOSUB777:FORI=0TO3000:NEXT 14966 RA=16:GOTO900 14970 PRINT"DIE BLUTUNG KOMMT ZUM STILLSTAND.SIE SIND GERETTET!":ZA=0:GOTO14610 15000 PRINTSPC(9)"[158] [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] " 15001 PRINTSPC(9)"[167] [151][165]" 15002 PRINTSPC(9)"[167] [151][165]" 15003 PRINTSPC(9)"[167] [151][165]" 15004 PRINTSPC(9)"[167] [151][165]" 15005 PRINTSPC(9)"[167] [151][165]" 15006 PRINTSPC(9)"[167] [152][193][193][193][158][206][205][152][193][193][193][193][193][193][158][206][205][152][193][193][193] [151][165]" 15007 PRINTSPC(9)"[167] [152][193][194][194][158][206]  [158][205][152][194][194][194][194][158][206] [158][205][152][194][194][193][151][165]" 15008 PRINTSPC(9)"[167] [152][193][194] [158][206]  [158][205] [158] [208][197][197][207] [152][194][151][165]" 15009 PRINTSPC(9)"[170][152][193][194][194] [158][208][197][196][196][197][207] [158][170][213][201][180] [151][165]" 15010 PRINTSPC(9)"[167][152][194][194] [158][170] [158][213][201] [158][180] [149] [158][163][163] [151][165]" 15011 PRINTSPC(9)"[167][152][194] [201][158][167] [158][194][194] [158][180][203] [149][209][155]  [201] [203][151][165]" 15012 PRINTSPC(9)"[167][152][194] [213] [158][163][197][197][163] [149][213][219][203] [202] [201] [151][165]" 15013 PRINTSPC(9)"[167] [203] [201] [202] [149][172][177][187][201] [202] [151][165]" 15014 PRINTSPC(9)"[167] [203] [213] [201] [213] [203] [151][165]" 15015 PRINTSPC(9)"[167] [165]" 15016 PRINTSPC(9)" [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] " 15019 RA=15 15020 PRINT"SIE STEHEN VOR DEM EINGANG DES KANNIBA- 15030 [153]"LENDORFES. 15050 GOSUB760 15120 PRINT"MOEGLICHE RICHTUNGEN : N" 15125 GOSUB750 15127 IFKA=0THENPRINT"DIE KANNIBALEN HABEN SIE ENTDECKT UND GREIFEN SIE AN!" 15129 Q=1:KA=1:ZA=1:D=TI:LI=3600 15130 GOSUB100 15135 IFS=5THENGOTO15000 15140 ONRGOTO14000,15160,15160,15160,15160,15160 15150 GOTO15300 15160 GOSUB701 15300 GOTO15130 16000 PRINTSPC(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] " 16001 PRINTSPC(9)"[151][167] [151][165]" 16002 PRINTSPC(9)"[167] [151][165]" 16003 PRINTSPC(9)"[167] [158]  [151][180]" 16004 PRINTSPC(9)"[167] [158] [169] [146][169][205] [151][165]" 16005 PRINTSPC(9)"[167] [158] [169][163][163][163][163][163][223][146] [158][205] [151][165]" 16006 PRINTSPC(9)"[167] [158] [169][218][218][215] [215][218][218][223][146] [158][205] [151][165]" 16007 PRINTSPC(9)"[167] [129] [158][169] [215] [223][146][206] [151][165]" 16008 PRINTSPC(9)"[170][152][193][193][193][193][193][193][129][208][208][208][208][208][208][208][208][208][208] [165][152][193][193][151][165]" 16009 PRINTSPC(9)"[170][152][194][194][194][194][194][194][129][170][167][167][167][167][167][167][167][167][167] [129][165][152][200][200][151][180]" 16010 PRINTSPC(9)"[170][152][194][194][194][194][194][194][129][170][167][167][167][167][167][167][167][167][167] [129][165][152][200][200][151][165]" 16011 PRINTSPC(9)"[170][129][213] [129][202] [201][167][167][167][167][167][167][167][167][167][167][206] [129][202] [151][180]" 16012 PRINTSPC(9)"[170] [129][201] [129][163][163][163][163][163][163][163][163][163] [129][202][151][165]" 16013 PRINTSPC(9)"[170] [129][201] [129][203] [129][201] [129][202] [129][213] [202] [151][165]" 16014 PRINTSPC(9)"[170] [129][213] [129][203] [129][213] [129] [203] [129][201] [151][165]" 16015 PRINTSPC(9)"[167] [129][201] [129][213] [129][202] [129][202] [151][180]" 16016 PRINTSPC(9)" [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] " 16019 RA=16 16020 PRINT"SIE BEFINDEN SICH AN DER RUECKSEITE DES 16030 [153]"DORFES.HIER STEHT DIE OPFERHUETTE DER 16040 PRINT"KANNIBALEN.SIE IST ANSCHEINEND UNBEWACHT 16050 [141]760 16120 [153]"MOEGLICHE RICHTUNGEN : N" 16125 [141]750 16130 [141]100 16135 [139]S[178]5[167][137]16000 16140 [145]R[137]14500,16160,16160,16160,16160,16160 16150 [137]16300 16160 [141]701 16300 [139]V[178]28[175]S[178]30[167][141]705:[141]16800 16310 [139]V[178]27[175]S[178]30[167][141]705:[141]16700 16499 [141]777 16500 [137]16130 16700 [153]"IN DER HUETTE IST EIN GEFESSELTER WEIS- 16701 PRINT"SER MANN.ER SAGT ZU IHNEN: 16702 [153]""[199](34)"WER SIE AUCH IMMER SIND,FLIEHEN SIE! 16703 PRINT"DIE HUETTE IST BEWACHT.GEHEN SIE ZUM 16704 [153]"BAUM NOERDLICH VOM FUSS DER TREPPE!FUENF 16705 PRINT"[145]FUSS WESTLICH VON IHM LIEGT MEIN FALT- 16706 [153]"BOOT VERGRABEN.FAHREN SIE ZUR FELSEN- 16707 PRINT"INSEL UND HOLEN SIE HILFE!"CHR$(34) 16710 Q=1:MA=1:RETURN 16800 PRINT"DIE KANNIBALEN HABEN SIE ENTDECKT UND GREIFEN SIE AN!" 16810 Q=1:KA=1:ZA=1:D=TI:LI=3600:RETURN 17000 PRINTSPC(9)" [151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] " 17001 PRINTSPC(9)"[151][167] [151][165]" 17002 PRINTSPC(9)"[170]  [151][165]" 17003 PRINTSPC(9)"[167] [151][165]" 17004 PRINTSPC(9)"[167] [151][168]  [151][165]" 17005 PRINTSPC(9)"[170] [151] [168][168][169] [223][169][223][146] [151][165]" 17006 PRINTSPC(9)"[170] [151][169] [206] [205] [223][146] [151][165]" 17007 PRINTSPC(9)"[170][154] [151][146][165]" 17008 PRINTSPC(9)"[167][154] [151][146][165]" 17009 PRINTSPC(9)"[170][154] [151][146][165]" 17010 PRINTSPC(9)"[170][154][164][185][146][184][163] [183][162][175][164] [175][185][162][146][183][163] [163] [154][163][183][151][165]" 17011 PRINTSPC(9)"[170] [152]. [152]. [155] [152].[155]  [152]. [151][165]" 17012 PRINTSPC(9)"[170][152]. [152]. [152]. [152]. [152]. [152].[151][180]" 17013 PRINTSPC(9)"[170] [152]. [151][165]" 17014 PRINTSPC(9)"[167] [152]. [152] . [152]  [152]. [152]. [152]. [152]. [151][180]" 17015 PRINTSPC(9)"[170] [151][180]" 17016 PRINTSPC(9)" [151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] " 17019 RA=17 17020 PRINT"SIE STEHEN AN DER NORDKUESTE DER INSEL. 17030 [153]"IN DER FERNE IST EINE FELSENINSEL ZU 17040 PRINT"ERKENNEN. 17050 [141]760 17120 [153]"MOEGLICHE RICHTUNGEN : S" 17125 [141]750 17130 [141]100 17135 [139]S[178]5[167][137]17000 17140 [145]R[137]17160,12000,17160,17160,17160,17160 17150 [137]17200 17160 [141]701 17200 [139]S[178]31[175]SP$(9)[179][177]""[167][141]705:WA[178]1 17210 [139]WA[178]1[175]V[178]31[175]S[178]32[167]17310 17300 [137]17130 17310 DD[178]1:[153]"LOAD"[166]16)"DAS WAR" 17320 [153][166]13)"SYSO D Y S S E E 17330 PRINTSPC(14)"[158]T E I L 1 17340 [129]I[178]0[164]6000:[130]:[153]"LOAD"[166]10)"ERLEBEN SIE DEMNAECHST 17420 FORX=0TO2:GOSUB20060:GOTO20004 17430 PRINTSPC(14)"[158]T E I L 2":GOSUB750:PRINT"[147]":END 20000 READS,B:IFS<>-1THENPOKE55272+S,F:POKE1000+S,B:FORI=0TO200:NEXT:GOTO20000 20001 IFF=2THENF=1:GOTO20000 20002 FORX=0TO2:RESTORE:FORI=0TO24:READS,B:IFS=-1THENNEXTI 20003 POKE1000+S,128+B:POKE1000+S,B:NEXTI:NEXT::GOSUB20050:FORX=0TO2:GOSUB20060 20004 PRINTSPC(4-X)"[145][158] [164]  [158][164][164] [158] [164] [164] [164][164][164] [158][164][164][164] [158][164][164][164] [158][164] [158][164] " 20005 GOSUB20050 20006 PRINTSPC(X)"[158] //[205] / [158]/[205] [158]////[180]/ [158]/[165]/ [158]/[165]/ [158]/[165]////[180]" 20007 GOSUB20050 20008 PRINTSPC(4-X)"[169] [223][146]/[165] [223][146]/[165] [146]  [146] [165] [146]/  [146]/  [146]/  [146]  [146] [165]" 20009 GOSUB20050 20010 PRINTSPC(X)" [146] [158] [146] [158][180] [146] [158] [146] [158][165] [146]  [146] [165] [146] [204][175]  [146] [204][175]  [146] [158][204][175]  [146]  [146] [165] 20011 [141]20050 20012 [153][166]4[171]X)" WAIT  WAIT SGN WAIT  WAIT FN WAIT/ WAIT/  WAIT/ /SGN WAIT/ /FN WAIT/ /FN WAIT/ WAIT/ " 20013 [141]20050 20014 [153][166]X)" WAIT  WAIT FN WAIT  WAIT FN(null) WAITSTEPFN  WAIT SGN WAIT SGN WAIT/ (null) WAITSTEPFN " 20015 [141]20050 20016 [153][166]4[171]X)" WAIT/ WAIT SYSFN WAIT/ WAIT FN  WAIT SGN / SYS WAIT SYSSGN/ SYS WAIT SYSFN WAIT/ /FN SYS WAIT FN 20017 GOSUB20050 20018 PRINTSPC(X)" [146]/  [146]/  [146] [165]  [146]/  [146]/  [146]/  [146] [165] " 20019 GOSUB20050 20020 PRINTSPC(4-X)"[223] [146][169]  [146][169]  [146]/  [146][169]  [146][169]  [146][169]  [146]/ " 20021 GOSUB20050 20030 GOSUB20060:PRINT" [157][157] [157][157] [157][157] [157][157] [157][157] [157][157] [157][157] [157][157]" 20035 GOSUB20060:PRINT"[157][157][157] [157][157] [157][157] [157][157] [157][157] [157][157][157] [157][157] [157][157] " 20040 NEXT 20049 GOTO20065 20050 FORI=0TO400:NEXT:RETURN 20060 PRINT"":RETURN 20065 IFDD=1THENGOTO17430 20070 PRINTSPC(10)"EIN":GOSUB20050 20075 PRINTSPC(14)"[145]ABENTEUERSPIEL":GOSUB20050 20080 PRINTSPC(18)"VON":GOSUB20050 20090 PRINTSPC(9)"[154]HANS":GOSUB20050 20091 PRINTSPC(13)"[145]-GUENTHER":GOSUB20050 20092 PRINTSPC(23)"[145]SCHRECK":GOSUB20050 20100 DATA33,24,35,20,37,3,39,45,41,19,43,15,45,6,47,20,49,23,51,1,53,18 20101 DATA55,5,-1,-1,118,16,119,18,120,1,121,5,122,19,123,5,124,14,125,20 20102 DATA126,9,127,5,128,18,129,20,-1,-1 20103 RETURN 25000 PRINT"[211]IE ERINNERN SICH: 25001 [153]"(null)IE WAREN (null)ASSAGIER AN PEEKORD DES (null)UXUS- 25002 PRINT"LINERS '[209]UEEN [205]ARY' GEWESEN.[196]ER [212]AIFUN 25003 [153]"HATTE DIE PEEKESATZUNG VOLLKOMMEN UEBER- RASCHT. 25004 PRINT"[196]AS EINZIGE BRAUCHBARE [210]ETTUNGSBOOT WAR 25005 [153]"KURZ NACH DEM ATNUSSETZEN GEKENTERT. 25006 PRINT"[215]AS DANN GESCHAH, WISSEN [211]IE NICHT MEHR. 25007 [153]"MID$ETZT ERWACHEN (null)IE LANGSAM WIEDER AUS 25008 PRINT"[201]HRER [194]EWUSSTLOSIGKEIT..... 25009 :[141]750:[153]"LOAD"[199](142):[142] 30000 [153]"LOAD"[166]17)"  WAIT" 30002 [153][166]17)" WAIT" 30003 [153][166]17)"  WAIT" 30004 [153][166]17)"  WAIT" 30005 [142] 30100 [153]"NOCH EIN VERSUCH? (J/N)" 30110 [161]B$:[139]B$[178][199](74)[167][156]:[137]10 30120 [139]B$[178][199](78)[167][128] 30130 [137]30110