Screenshot 1 Screenshot 2 Screenshot 3
2bc0 91d9 0000 B ... RUMPI
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

   10!**************************
   12!*
   14!*
   16!* RUMPELSTILZCHEN
   18!* _______________
   20!*
   22!* C.: STEFFEN POLSTER
   24!*     LUTHERSTRASSE 56
   26!*     KARL-MARX-STADT
   28!*     9022
   30!*
   32!* D.: 25./28. 9.1986
   34!*     VERSION 1
   36!*
   38!* AUS DEM PROGRAMM "BURG"  
   40!* VON A.SCHROEDER WURDEN
   42!* GRAFIK-ELEMENTE VERWENDET
   44!*
   46!**************************
   48 WINDOW:CLS:CLEAR          
   50 DATA 229,197,33,0,236,6,240,54,32,35,54,32,35,54,32,35,54,32,35,16
   52 DIM BF(20),Z$(42),KR(42)
   54 DATA 242,193,225,201
   58 PRINT "              "     
   60 PRINT "                  "   
   62 PRINT "                  "   
   64 PRINT "                     "   
   66 PRINT "                     "   
   68 PRINT "                  "   
   70 PRINT:PRINT
   72 PRINT "                "
   74 PRINT "                       "
   76 PRINT "                      "
   78 PRINT "                       "
   80 PRINT "                       "
   82 PRINT "                 "
   84 PRINT:PRINT:PRINT
   86 PRINT "ABENTEUER IM MAERCHENLAND"      
   88 PRINT:PRINT "SPANNEND UND EINMALIG":PRINT
   90 PRINT:PRINT             
   92 GOSUB 1454
   94 DATA ""         
   96 DATA ES WAR EINMAL ...
   98 DATA "DASS EIN MUELLER UM SICH VORM "        
   99 DATA "KOENIG GROSS ZU TUN,ERZAEHLTE,"
  100 DATA "SEINE TOCHTER KOENNE STROH ZU"           
  102 DATA "GOLD SPINNEN.    DER KOENIG,"
  104 DATA "DAVON ANGETAN, LIESS DIE"           
  106 DATA "ARME JUNGFER IN EIN VERLIES"
  108 DATA "FUEHREN, UND TRUG IHR AUF, "          
  109 DATA "EINEN BERG STROH ZU GOLD "
  110 DATA "ZU SPINNEN ."
  112 DATA ""         
  114 RESTORE 94
  116 FOR I=1 TO 12:READ B$:PRINT B$:PRINT:NEXT I
  118 GOSUB 986
  120 DATA "ALS GEBILDETER, MODERNER MENSCH"
  122 DATA KENNST DU DAS MAERCHEN VOM
  124 DATA "      "
  126 DATA "        RUMPELSTILZCHEN  "
  128 DATA "      "
  130 DATA "UND VERTRITTST NATUERLICH GERN"
  131 DATA "DAS HUEBSCHE MAEDCHEN."
  132 DATA "WIE IST DEIN DENKWUERDIGER NAME"
  134 RESTORE 120:FOR I=1 TO 8 :READ B$:PRINT B$:PRINT:NEXT I
  136 INPUT N$:IF LEN(N$)=0 THEN N$="UNBEKANNTER"
  138 PRINT AT(24,0);"VIEL ERFOLG FUER DICH "          
  140 PRINT AT(26,0);N$," "," DU HILFSBEREITER HELD"
  142 GOSUB 986
  143 GOSUB 990
  144 PRINT AT(26,0);"BEVOR DU IN DAS VERLIES MUSST,"
  146 PRINT AT(28,0);"DARFST DU DIR 3 DINGE WAEHLEN"       
  148 GOSUB 1036
  149! TUER
  150 FOR I=7 TO 15:PRINT AT(I,17);"":NEXT I:PAUSE 45
  152 GOSUB 922
  154 FOR I=7 TO 9:G(I)=-1:NEXT I:FOR I=1 TO 6:G(I)=0:NEXT I:G(10)=2
  156 XX$="NICHT MOEGLICH !! "
  158 PRINT AT(28,0);"SPIEGEL(1), GOLDENER RING(2)  "         
  159 PRINT AT(29,0);"KERZE(3), TARNKAPPE(4)"
  160 PRINT AT(30,0);"SCHLUESSEL(5), KAEFIG(6)"
  162 PRINT AT(26,0);"WAS MOECHTEST DU ?           "   
  164 Q$=INKEY$:IF LEN(Q$)>0 THEN X=VAL(Q$):GOTO 176:ELSE 164    
  166 PRINT AT(26,0);"UND ALS ZWEITES ?        "
  168 Q$=INKEY$:IF LEN(Q$)>0 THEN Y=VAL(Q$):GOTO 178:ELSE 168
  170 PRINT AT(26,0);"UND ALS DRITTES ?     "
  172 Q$=INKEY$:IF LEN(Q$)>0 THEN Z=VAL(Q$):GOTO 182:ELSE 172
  174 GOTO 184
  176 IF(X<1 OR X>6)THEN PRINT AT(26,0);XX$:PAUSE 25:GOTO 162:ELSE 166
  178 IF(Y<1 OR Y>6 OR Y=X)THEN PRINT AT(26,0);XX$:PAUSE 20:GOTO 166
  180 GOTO 170
  182 IF(Z<1 OR Z>6 OR Z=X OR Z=Y)THEN PRINT AT(26,0);XX$:PAUSE 20:GOTO 170
  184 G(X)=1:G(Y)=1:G(Z)=1
  186 DATA SPIEGEL,GOLDENER RING,KERZE,TARNKAPPE,SCHLUESSEL,KAEFIG,VOGEL
  188 DATA FEUERZEUG,APFEL
  190 RESTORE 186:FOR I=1 TO 9:READ G$(I):NEXT I
  192 WINDOW 25,31,0,31:CLS:PRINT "DU ERWAEHLTEST"
  194 PRINT G$(X)+" , "+G$(Y)+" , "+G$(Z)
  196 PRINT AT(27,0);" ":PAUSE 45:CLS:PRINT "ABER NUN MUSST DU IN DAS VERLIES "
  198 PRINT AT(26,0);" "
  200 GOSUB 1036
  202 EW=3
  204 PAUSE 35
  206!
  208 GOSUB 990:GOSUB 1004
  210 GOSUB 1068
  212 FOR I=1 TO 9:IF G(I)<>1 THEN 222
  214 ON I GOSUB 932,938,944,950,956,962,968,974,980
  216 FOR J=1 TO 20:READ BF(J):NEXT J
  218 K=K+1:FOR J=0 TO 4:FOR JJ=0 TO 3:POKE-4586+K*5+J*32+JJ,BF(J*4+JJ+1):NEXT JJ    
  220 NEXT J
  222 NEXT I 
  224 IF EV=4 THEN RETURN
  226 FOR I=0 TO 5+1*(3-EW):FOR J=0 TO 2*I
  228 POKE-4592+J+I*32-I-(3-EW)*1 ,204:NEXT J
  230 NEXT I:POKE-4319,32
  232 ON EV GOTO 252,372
  234 PRINT AT(27,0);"DA IST DER HAUFEN STROH !!"
  236 PRINT AT(28,0);"KANNST DU IHN ZU GOLD SPINNEN ?"
  238 IF PEEK(4)=74 THEN WINDOW 25,31,0,31:GOTO 244
  242 IF PEEK(4)=78 THEN 270:ELSE 238
  244 CLS:PRINT "DANN BITTE, ZEIGE ES !":PRINT "DU GROSSMAUL !!!!!"
  246 PRINT AT(23,0);" "
  248 PAUSE 55:WINDOW:CLS   : PRINT AT(10,10);"8 STUNDEN SPAETER":POKE-5120,32
  250 PAUSE 45: CLS   :EV=1:K=0:GOTO 208
  252 WINDOW 25,31,0,31
  254 PRINT "DER HAUFEN STROH IST NOCH NICHT"         
  256 PRINT "KLEINER UND DER MORGEN NAHT."
  258 PRINT AT(29,0);"BRAUCHST DU NUN HILFE?"
  260 IF INKEY$<>""THEN 262:ELSE 260
  262 CLS:PRINT AT(29,0);"ES IST ABER ZU SPAET !":PAUSE 45:GOSUB 1012
  264 PRINT AT(27,0);"STEIGE DIE TREPPE HINAUF !!"            
  266 PRINT AT(29,0);"DER GALGEN WARTET !!":PAUSE 80
  268 GOTO 896
  270 WINDOW 25,31,0,31:CLS
  272 PRINT "WAS GIBST DU RUMPELSTILZCHEN,":PRINT "WENN ER DIR HILFT ? "        
  273 INPUT "";GE$
  274 FOR I=1 TO 6
  276 IF G$(I)=GE$ THEN 282
  278 NEXT I
  280 CLS:PRINT "DAS HAST DU JA GAR NICHT !!":PAUSE 25:GOTO 270
  282 IF G(I)=1 THEN 286
  284 GOTO 280
  286 IF EW=1 THEN 312
  288 CLS:PRINT:PRINT "  OKAY":PRINT AT(28,0);" ":G(I)=-1:PAUSE 30
  290 WINDOW:CLS
  292 DATA "DER KOENIG IST WIE JEDER KOENIG"
  294 DATA "SEHR HABGIERIG UND VERLANGT,"
  296 DATA "GEGEN ALLE ABMACHUNGEN, EINEN"
  297 DATA "NEUERLICHEN BEWEIS DEINER KUNST."
  298 DATA "DU KOMMST ERNEUT IN DAS VERLIES"
  300 DATA "UND DER HAUFEN STROH IST "
  302 DATA "JETZT GROESSER!, "," DEIN BESITZ: "
  304 RESTORE 292:FOR I=1 TO 8:READ B$:PRINT B$:PRINT:NEXT I:EW=0
  306 FOR I=1 TO 6:IF G(I)=1 THEN PRINT TAB(17);G$(I):PRINT:EW=EW+1
  308 NEXT I:PRINT AT(18,0);" ":PRINT AT(20,0);" "
  310 GOSUB 986:K=0:WINDOW:CLS    :GOTO 208
  312 DATA "RUMPELSTILZCHEN IST HAESSLICH       UND NIMMT KEINEN SPIEGEL."
  314 DATA "GOLDENE RINGE HAT RUMPI GENUG            "
  316 DATA "WAS SOLL RUMPI MIT EINER KERZE ?         "
  318 DATA "EINE TARNKAPPE HAT RUMPI SELBST "         
  320 DATA "SCHLUESSEL BRAUCHT RUMPI NICHT !         "
  322 DATA "KAEFIGE SIND FUER VOEGEL WIE      DICH DA"
  324 CLS:RESTORE 312:FOR I=1 TO 6:READ B$
  326 IF G(I)=1 THEN PRINT B$:I=6
  328 NEXT I
  330 PRINT AT(27,0);"DIESES MAL WILL RUMPI DEIN LEBEN   " :PAUSE 60
  332 CLS:PRINT "DU KANNST DICH ABER FREI KAUFEN,"      
  334 PRINT "INDEM DU RUMPI DEN STEIN DER  "          
  336 PRINT "WEISEN AUS DEM SCHLOSS DES "                   
  337 PRINT "KOENIGS HOLST.":PAUSE 65
  338 CLS:PRINT AT(29,0);"WILLST DU ?"             
  340 IF PEEK(4)=74 THEN 350    
  342 IF PEEK(4)=78 THEN 346:ELSE 340
  346 CLS:PRINT "SCHADE UM DICH UND DEIN JUNGES   LEBEN !!!!!!":PAUSE 35
  348 GOSUB 1012:GOTO 264
  350 WINDOW:CLS
  352 DATA "DU WIRST DICH JETZT DURCH DIE "      
  354 DATA "RAUME DES SCHLOSSES BEWEGEN  "
  356 DATA "UND DEN STEIN DER WEISEN SUCHEN "                       
  357 DATA "AUF DIE FRAGE WOHIN ?,GIB "
  358 DATA "JEWEILS N,O,S,W FUER DIE HIMMELS"     
  360 DATA "RICHTUNGEN ODER H,R FUER HOCH "                  
  361 DATA "UND RUNTER EIN. WUENSCHT"
  362 DATA "DU EINE INVENTUR, DRUECKE I."           
  364 RESTORE 352:FOR I=1 TO 8 :READ B$:PRINT B$:PRINT:NEXT I
  366 PRINT AT(18,0);" "
  368 GOSUB 986
  370 EV=2:GOTO 208
  372 GOSUB 1026
  374 RESTORE 812:FOR I=0 TO 40:READ Z$(I):NEXT
  376 ZN=9
  378 WINDOW 25,31,0,31:CLS
  380 DATA S,W,N,O,H,R
  382 RESTORE 380:FOR I=1 TO 6:READ RI$(I):NEXT
  384 PRINT AT(25,0);"WOHIN ?         "
  386 R$=INKEY$:IF LEN(R$)=0 THEN 386:ELSE 388            
  388 IF R$="I"THEN GOTO 654
  390 GOSUB 798
  392 IF RR=0 THEN PRINT AT(25,0);"NICHT MOEGLICH !":PAUSE 30:GOTO 384
  394 GOSUB 438:IF KK=1 THEN RR=0:GOTO 392
  396 GOSUB 802:IF RR=0 THEN PRINT AT(25,0);"NICHT MOEGLICH !":PAUSE 20:GOTO 384
  398 SC=SC+1
  400 IF ZN=34 THEN 424
  402 IF ZN=37 THEN 428
  404 GOTO 420
  406 GOSUB 990:IF MID$(Z$(ZN),3,2)<>"00"THEN GOSUB 1020
  408 IF MID$(Z$(ZN),5,2)<>"00"THEN GOSUB 1036
  410 IF MID$(Z$(ZN),7,2)<>"00"THEN GOSUB 1026
  412 IF MID$(Z$(ZN),9,2)<>"00"THEN GOSUB 1004
  414 IF MID$(Z$(ZN),11,2)<>"00"THEN GOSUB 1008
  416 IF MID$(Z$(ZN),13,1)="A" THEN GOSUB 1012
  418 RETURN
  420 GOSUB 690
  422 GOTO 384
  424 GOSUB 1292:PRINT AT(28,0);"DU BIST IN DEN SCHLOSSGRABEN    GEFALLEN"
  426 PRINT AT(30,0);"UND JAEMMERLICH ERSOFFEN !!!":PAUSE 90:GOTO 896
  428 PRINT AT(28,0);"IN DIESEM DUNKLEN KELLERLOCH "          
  429 PRINT AT(29,0);"WIMMELT ES VON RATTEN. DENEN"
  430 PRINT AT(30,0);"BIST DU LEIDER NICHT GEWACHSEN!" 
  432 POKE-5120,32
  434 FOR I=1 TO 75:X=-4600+200*RND(1):POKE X,201:PAUSE 1:POKE X,32:NEXT
  436 PAUSE 70:GOTO 896
  438 IF RIGHT$(Z$(ZN),1)=R$ THEN KK=1:GOTO 444
  440 KK=0:RETURN
  444 IF R$="R"THEN 450
  446 PRINT AT(28,0);"DIE TUER IST NOCH GESPERRT !":PAUSE 20
  448 PRINT AT(28,0);STRING$(30,CHR$(32)):RETURN
  450 PRINT AT(28,0);"OHNE LICHT KANNST DU NICHT IN":PRINT AT(29,0);"DEN KELLER"
  452 PAUSE 25:RETURN
  454 PRINT AT(27,0);"DAS IST RUMPELSTILZCHENS LAGER":K=0:WINDOW 25,31,0,31
  456 GOTO 1500
  458 IF KR(19)=1 THEN PRINT AT(28,0);"DU HAST SCHON EINMAL GEWAEHLT":GOTO 492
  460 PRINT AT(28,0);"DU DARFST DIR EINEN GEGENSTAND  WAELEN!"
  462 IF G(5)<>1 THEN G(5)=-1
  464 FOR I=1 TO 9:IF G(I)<>-1 THEN 476
  466 ON I GOSUB 932,938,944,950,956,962,968,974,980
  468 FOR J=1 TO 20:READ BF(J):NEXT J
  470 K=K+1:FOR J=0 TO 4:FOR JJ=0 TO 3
  472 POKE-4599+K*5+J*32+JJ,BF(J*4+JJ+1):NEXT JJ
  474 NEXT J
  476 NEXT I
  478 INPUT "DU WUENSCHST ?";W$
  480 PRINT AT(28,0);"D"
  482 FOR I=1 TO 9:IF G(I)<>-1 THEN 490
  484 IF(I=7 AND G(6)<>1)THEN 490
  486 OK$="OKAY                                  "
  488 IF W$=G$(I)THEN G(I)=1:I=9:CLS:PRINT AT(27,9);OK$:GOTO 492
  490 NEXT I:CLS:PRINT AT(27,0);"NICHT MOEGLICH !!!":PAUSE 30:CLS:GOTO 478            
  492 PAUSE 30:KR(19)=1
  494 CLS:RETURN
  496 IF KR(17)=1 THEN GOSUB 1338:GOSUB 1350:RETURN
  498 PRINT AT(27,0);"DAS UNGEHEUER HAT SCHON LANGE":PRINT AT(28,0);"GEWARTET !"
  500 WINDOW 25,31,0,31
  502 GOSUB 1280:!?AT(28,0);"D"
  504 IF G(2)=1 THEN 532
  506 IF G(4)=1 THEN 508:ELSE 510
  508 PRINT AT(29,0);"MIT DER TARNKAPPE BIST DU ABER":PRINT AT(30,0);"SICHER"   
  509 PAUSE 40:CLS:RETURN
  510 IF G(7)=1 THEN 512:ELSE 514
  512 PRINT AT(29,0);"GIB IHM DEN VOGEL ZUM FRESSEN!":G(7)=0:PAUSE 40:CLS:RETURN
  514 PAUSE 15:PRINT AT(29,0);"UND VERSPEISST DICH MIT VIEL     VERGNUEGEN"
  516 PAUSE 75:GOTO 896
  518 GOSUB 968:FOR I=1 TO 20:READ BF(I):NEXT I:IF G(7)=1 THEN 530
  520 FOR J=0 TO 4:FOR JJ=0 TO 3
  522 POKE-4753+J*32+JJ,BF(J*4+JJ+1):NEXT JJ:NEXT J
  524 IF G(6)=1 THEN 526:ELSE 528
  526 PRINT AT(29,0);"DER VOGEL GEHOERT DIR !!":PAUSE 35:G(7)=1:RETURN
  528 PRINT AT(30,0);"OHNE KAEFIG BEKOMMST DU IHN      NICHT !!"
  530 PAUSE 35:RETURN
  532 PAUSE 40:PRINT AT(25,0);"MIT DEM RING VERWANDELST DU ES"       
  533 PRINT AT(26,0);"IN EINE PRINZESSIN. ZUM DANK"
  534 PRINT AT(27,0);"ERHAELST DU DEN GOLDENEN "
  536 PRINT AT(28,0);"SCHLUESSEL UND EINEN KUSS !!":G(10)=1
  538 GOSUB 1338
  540 PAUSE 75:WINDOW 25,31,0,31:CLS
  542 KR(17)=1:GOTO 586
  544 FOR I=7 TO 10:PRINT AT(I,12);"":NEXT:RETURN
  546 DATA 4,8,3,2,6,1,5,9
  548 IF KR(22)=1 THEN RETURN
  550 RESTORE 546
  552 FOR I=1 TO 8:READ DD:IF G(DD)<>1 THEN I=8
  554 NEXT I
  556 ON DD GOSUB 932,938,944,950,956,962,968,974,980
  558 FOR J=1 TO 20:READ BF(J):NEXT
  560 FOR J=0 TO 4:FOR JJ=0 TO 3
  562 POKE-4690+J*32+JJ,BF(J*4+JJ+1):NEXT JJ:NEXT J
  564 PRINT AT(27,0);"IN DER ECKE LIEGT DIE           "+G$(DD)
  566 PRINT AT(29,0);"DU DARFST ZUGREIFEN !"
  568 G(DD)=1:KR(22)=1
  570 PAUSE 35:RETURN
  572 IF G(1)<>1 THEN PRINT AT(30,0);"DU ERHAELST DEN SPIEGEL !":G(1)=1:RETURN
  574 RETURN
  576 IF KR(31)=1 THEN RETURN
  578 IF G(9)=1 THEN RETURN
  580 PRINT AT(27,0);"UNTER DEM BETT LIEGT DER APFEL" 
  582 PRINT AT(28,0);"WELCHER JETZT DEIN IST !!"
  584 G(9)=1:RETURN
  586 KR(8)=1:KR(20)=1
  588 Z$(20)=LEFT$(Z$(20),12):Z$(8)=LEFT$(Z$(8),12)
  590 RETURN
  592 FOR I=1 TO 150:PRINT AT(13,20);"":PRINT AT(14,19);"   "
  594 PRINT AT(15,18);"  ":PRINT AT(16,18);"  "
  596 PRINT AT(17,18);" ",CHR$(191),"",CHR$(142)," "
  598 PRINT AT(18,19);"   ":PRINT AT(19,20);""
  600 PRINT AT(15,20);"":PRINT AT(16,20);" "
  602 PRINT AT(17,20);""
  604 PRINT AT(25,0);"GRATULATION !"
  606 PRINT AT(26,0);"DU HAST DEN 'STEIN DER WEISEN'   GEFUNDEN":NEXT I
  608 PAUSE 40:GOTO 1318
  610 IF G(1)=1 THEN PRINT AT(27,0);"DEN SPIEGEL GIBST DU FUERS LEBEN":ELSE 614    
  612 G(1)=0:RETURN
  614 PAUSE 40:PRINT AT(27,0);"OHNE SPIEGEL WIRST DU VON IHM IN"     
  616 PRINT AT(28,0);"EINE HAESSLICHE KROETE":PRINT AT(29,20);"VERWANDELT"
  618 FR=10:GOSUB 1364:PAUSE 95:GOTO 896
  620 IF G(9)<>1 THEN 630
  622 IF G(2)=1 THEN 1506
  624 PRINT AT(27,0);"VON DIESER RIESENSPINNE ERHAELST"      
  626 PRINT AT(28,0);"DU FUER DEINEN APFEL DEN"
  627 PRINT AT(29,0);"GOLDENEN RING !!!"
  628 G(2)=1:KR(2)=1:G(9)=-1:PAUSE 40:RETURN
  630 PRINT AT(27,0);"DU HATTEST KEINE CHANCE !              "
  632 PRINT AT(28,0);"DIESE RIESENSPINNE HAT DICH     VERNASCHT "
  634 PAUSE 85:GOTO 896
  636 IF G(10)=1 THEN 646
  638 PRINT AT(27,0);"DU HAST ZWAR EINEN,ABER NICHT "        
  640 PRINT AT(28,0);"DEN GOLDENEN SCHLUESSEL !!!"
  642 PRINT AT(29,0);"IN DEM NETZ VERFAENGST DU DICH"         
  644 PAUSE 85:GOTO 896
  646 IF KR(2)=0 THEN 662
  648 PRINT AT(26,0);"MIT DEM GOLDENEN SCHLUESSEL"
  650 PRINT AT(27,0);"WEICHT DAS MAGISCHE NETZ VON"
  651 PRINT AT(28,0);"GANZ ALLEINE !!!"
  652 PAUSE 40:RETURN
  654 YN=ZN:K=-3:EV=4:GOSUB 206
  656 PRINT AT(27,0);"DEIN BESITZ  !!"
  658 GOSUB 986:ZN=YN:GOTO 398
  660 PRINT AT(27,0);"DAS LOCH FUEHRT IN DEN ERSTEN   STOCK ":RETURN
  662 GOSUB 1196:PAUSE 20:GOTO 630
  664 PRINT AT(26,0);"IHRE NEUGIER TRIEB SIE IN DAS "        
  665 PRINT AT(27,0);"FUERCHTERLICHSTE KELLERVERLIES."
  666 GOSUB 1068
  668 PRINT AT(28,0);"HIER GIBT ES KEIN ENTKOMMEN !!"         
  670 PRINT AT(29,0);"SIE MUESSEN !!  ERSAUFEN !!"            
  672 PAUSE 50
  674 FOR I=9 TO 19:PRINT AT(I,18);"":PAUSE 1:NEXT:PAUSE 1
  676 FOR I=19 TO 9 STEP-1:PRINT AT(I,0);""        
  678 PAUSE 3:NEXT
  680 PAUSE 70:GOTO 896
  682 PRINT AT(7,7);"",CHR$(191),"",CHR$(142),"":FOR I=8 TO 11
  684 PRINT AT(I,7);"   ":NEXT:PRINT AT(12,7);"":RETURN
  686 FOR A=9 TO 19 STEP 2:PRINT AT(A,18);"":NEXT:FOR A=10 TO 18 STEP 2
  688 PRINT AT(A,18);" ":NEXT:RETURN
  690 IF ZN=19 THEN GOSUB 406:GOSUB 454:GOTO 794
  692 IF ZN=36 THEN GOSUB 406:GOSUB 1394:GOTO 664
  694 IF ZN=5 THEN GOSUB 406:GOSUB 1146:GOSUB 1406:GOTO 794
  696 IF ZN=33 THEN GOSUB 406:GOSUB 1074:GOTO 794
  698 IF ZN=35 THEN GOSUB 406:GOSUB 1068:GOSUB 1060:GOSUB 660:GOTO 794
  700 IF ZN=3 THEN GOSUB 406:GOSUB 1238:GOSUB 1356:GOSUB 1364:GOSUB 610:GOTO 794
  702 IF ZN=11 THEN GOSUB 406:GOSUB 1254:GOSUB 1370:GOTO 794
  704 IF ZN=31 THEN GOSUB 406:GOSUB 1220:GOSUB 576:GOTO 794
  706 IF ZN=28 THEN GOSUB 406:GOSUB 1272:GOSUB 544:GOTO 794
  708 IF ZN=2 THEN GOSUB 406:GOSUB 1196:GOSUB 620:GOTO 794
  710 IF(ZN=8 AND KR(8)=0)THEN GOSUB 406:GOSUB 1050:GOSUB 1432:GOTO 758
  712 IF(ZN=8 AND KR(8)<>0)THEN GOSUB 406:GOSUB 1432:GOTO 758
  714 IF ZN=22 THEN GOSUB 406:GOSUB 1060:GOSUB 682:GOSUB 546:GOTO 794
  716 IF ZN=32 THEN GOSUB 1086:GOTO 794
  718 IF ZN=27 THEN GOSUB 406:GOSUB 1128:GOSUB 572:GOTO 794
  720 IF ZN=10 THEN GOSUB 406:GOSUB 1118:GOTO 794
  722 IF ZN=29 THEN GOSUB 406:GOSUB 1184:GOSUB 636:GOTO 744
  724 IF ZN=38 THEN GOSUB 1086:GOTO 794
  726 IF ZN=9 THEN K=-3:EV=4:GOSUB 206:GOSUB 1026:GOTO 794
  728 IF ZN=17 THEN GOSUB 406:GOSUB 1068:GOSUB 496:GOTO 794
  730 IF G(3)=1 OR G(8)=1 THEN KR(13)=1:Z$(15)=LEFT$(Z$(15),13) 
  732 IF ZN=15 THEN GOSUB 1316
  734 IF ZN=15 AND KR(13)=0 THEN Z$(15)=Z$(15)+"R":GOSUB 406:GOTO 784
  736 IF ZN=12 THEN GOSUB 406:GOSUB 1158:GOSUB 518:GOTO 794
  738 IF ZN=13 THEN GOSUB 1154
  740 IF KR(13)=1 THEN Z$(13)=LEFT$(Z$(13),12)
  742 IF(ZN=13 AND KR(13)=0)THEN Z$(13)=Z$(13)+"R":GOSUB 406:GOTO 794
  744 GOSUB 406
  746 IF(ZN=22 OR ZN=25)THEN GOSUB 682
  748 IF(ZN=20 AND KR(20)=0)THEN Z$(20)=Z$(20)+"O"
  750 IF ZN=24 THEN GOSUB 686:GOSUB 1380:GOSUB 1420
  752 IF ZN=40 THEN GOSUB 1428
  754 IF G(5)=1 THEN KR(8)=1
  756 IF ZN=7 THEN PRINT AT(27,0);"DIES IST DER HINTERE KELLERGANG  "
  758 IF(ZN=8 AND KR(8)=0)THEN Z$(8)=Z$(8)+"N"
  760 IF ZN=4 THEN GOSUB 1046:GOSUB 1394
  762 IF ZN=39 THEN GOTO 592
  764 IF(ZN=0 OR ZN=1)THEN GOSUB 1048
  766 IF ZN=14 THEN GOSUB 1370:GOSUB 1380:GOSUB 1386
  768 IF ZN=24 THEN GOSUB 1180
  770 IF ZN=25 THEN GOSUB 1356:GOSUB 1388
  772 IF ZN=30 THEN GOSUB 1406
  774 IF ZN=23 THEN GOSUB 1216:GOSUB 1394
  776 IF ZN=7 THEN GOSUB 1380:GOSUB 1420
  778 IF ZN=21 THEN GOSUB 1082
  780 IF ZN=0 THEN 1356
  782 IF ZN=6 THEN GOSUB 1180
  784 IF ZN=15 THEN GOSUB 1406
  786 IF ZN=1 THEN GOSUB 1370
  788 IF(ZN=20 OR ZN=16)THEN GOSUB 1412
  790 IF ZN=13 THEN GOSUB 1154
  792 IF ZN=26 THEN GOSUB 1060:GOSUB 1390:POKE-4577,136:POKE-4458,145:POKE-4457,159
  794 RETURN
  796 GOTO 796
  798 FOR I=1 TO 6:IF R$=RI$(I)THEN RR=I:I=6
  800 NEXT I:RETURN
  802 RJ$=MID$(Z$(ZN),2*RR-1,2)
  804 IF VAL(RJ$)=0 THEN RR=0:RETURN
  806 ZN=ZN+VAL(RJ$)
  808 PRINT AT(25,9);"OKAY            ":PAUSE 5:RETURN
  810 GOTO 810
  812 DATA 000003010000
  814 DATA 00-103010000
  816 DATA 00-100000000
  818 DATA-30000010000
  820 DATA-3-100010900A
  822 DATA 000803000000
  824 DATA 000000010900A
  826 DATA 00-100010030
  828 DATA-3-128000000
  830 DATA 000000010000
  832 DATA 00-103010000
  834 DATA 00-100000000
  836 DATA 000000010000 
  838 DATA-3-1030100-9
  840 DATA 00-103200000
  842 DATA 0000000109-9A
  844 DATA 00-100010900A
  846 DATA-3-100000000
  848 DATA 0000030009-9A
  850 DATA 0000000000-9
  852 DATA 00-103090000
  854 DATA-31303010000
  856 DATA 00-100010000
  858 DATA-3-103000900A
  860 DATA-300000000-9
  862 DATA 0000000100-9
  864 DATA-3-102000000
  866 DATA 0000000600-9
  868 DATA-20300000000
  870 DATA 00-900010000
  872 DATA 00-109040800A
  874 DATA 000000-30000
  876 DATA 0000000000-9
  878 DATA 00-607020000
  880 DATA 000000000000
  882 DATA 00-2000000-9
  884 DATA 000000000000
  886 DATA 000000000000
  888 DATA 0000000000-8
  890 DATA-90000000000
  892 DATA-70000000000
  894 GOTO 894
  896 WINDOW:CLS
  898 AU$="":FOR I=2 TO 18:PRINT AT(I,15);AU$:NEXT:AU$=""
  900 FOR I=6 TO 8:PRINT AT(I,11);AU$:NEXT
  902 AU$=""          
  904 PRINT AT(18,0);AU$:PRINT AT(23,0);AU$
  906 FOR I=19 TO 22:PRINT AT(I,0);"":PRINT AT(I,30);"":NEXT
  908! PRINT(0,0);"SPIELZEIT":PRINTAT(2,3);PEEK(30),"MIN"
  910 PRINT AT(20,2);"HIER RUHT IN FRIEDEN " 
  912! PRINT(4,0);"SCHRITTE":PRINTAT(6,3);SC
  914 IF N$="UNBEKANNTER"THEN N$="EIN "+N$
  916 PRINT AT(21, 3);N$
  918 PAUSE 125:GOTO 10
  920 GOTO 920
  922 PRINT AT(14,6);" ":PRINT AT(14,24);"      "
  924 PRINT AT(15,6);"     ":PRINT AT(15,24);"    " 
  926 PRINT AT(16,6);"  ":PRINT AT(16,24);"     "
  928 PRINT AT(17,6);"":PRINT AT(17,24);"    "
  930 PRINT AT(18,6);"  ":PRINT AT(18,24);"    ":RETURN
  932 DATA 32,174,173,32,32,159,192,32,32,171,172,32,32,192,159,32
  934 DATA 32,192,159
  936 RESTORE 932:RETURN
  938 DATA 32,32,32,32,32,32,32,32,32,146,149,32,192,150,147,159,32
  940 DATA 150,147,32
  942 RESTORE 938:RETURN
  944 DATA 32,246,32,32,32,199,199,32,32,199,199,32,32,199,199,32
  946 DATA 32,199,199,32
  948 RESTORE 944:RETURN
  950 DATA 32,32,32,32,32,221,32,32,174,199,173,32,197,197,197,32
  952 DATA 197,197,197,32
  954 RESTORE 950:RETURN
  956 DATA 32,174,173,32,32,171,172,32,32,32,159,32,32,224,159,32
  958 DATA 32,248,159,32
  960 RESTORE 956:RETURN
  962 DATA 32,248,248,248,192,200,200,200,192,200,200,200,192,200,200,200
  964 DATA 192,200,200,200
  966 RESTORE 962:RETURN
  968 DATA 32,32,131,32,32,129,214,151,149,200,130,32,129,248,128,32
  970 DATA 32,136,32,32
  972 RESTORE 968:RETURN
  974 DATA 32,32,193,159,129,128,136,159,198,198,32,32,198,198,128,32
  976 DATA 198,198,32,32
  978 RESTORE 974:RETURN
  980 DATA 32,200,131,32,32,130,193,32,174,158,173,32,159,32,192,32
  982 DATA 171,248,172,32
  984 RESTORE 980:RETURN
  986 PRINT AT(28,06);"WEITER MIT ... ENTER"
  988 IF PEEK(0004)=13   THEN WINDOW : CLS  :RETURN:ELSE 986
  990 REM GRUNDRAUM:WINDOW:CLS
  991 WINDOW:CLS
  992 FOR A=0 TO 3:PRINT AT(A,A);"":NEXT:C=20:FOR A=0 TO 3:PRINT AT(C,A);"":C=C-1   
  993 NEXT
  994 C=30:FOR A=0 TO 3:PRINT AT(A,C);"":C=C-1:NEXT:C=17:FOR A=27 TO 30
  996 PRINT AT(C,A);""
  998 C=C+1:NEXT:FOR A=4 TO 26:PRINT AT(3,A);"":NEXT:FOR A=4 TO 16:PRINT AT(A,4);""
 1001 NEXT
 1002 FOR A=4 TO 16:PRINT AT(A,26);"":NEXT:FOR A=4 TO 26:PRINT AT(17,A);"":NEXT     
 1003 RETURN
 1004 REM LOCH IN DER DECKE
 1006 FOR A=15 TO 23:PRINT AT(0,A);"":NEXT:PRINT AT(1,15);"":RETURN
 1008 REM LOCH IM BODEN
 1010 FOR A=15 TO 23:PRINT AT(20,A);"":NEXT:PRINT AT(19,15);"":RETURN
 1012 REM LEITER
 1014 FOR A=1 TO 19 STEP 2:PRINT AT(A,18);"":NEXT:FOR A=2 TO 18 STEP 2
 1016 PRINT AT(A,18);" "
 1018 NEXT:RETURN
 1020 REM TUER LINKS
 1022 PRINT AT(5,0);"":PRINT AT(6,0);" ":PRINT AT(7,0);"":FOR A=8 TO 16:PRINT AT(A,0);" "
 1024 NEXT:PRINT AT(17,0);"":PRINT AT(18,0);"  ":PRINT AT(19,0);" ":RETURN
 1026 REM TUER RECHTS
 1028 PRINT AT(5,29);"":PRINT AT(6,28);" ":PRINT AT(7,28);"":FOR A=8 TO 16
 1030 PRINT AT(A,28);" "
 1032 NEXT:PRINT AT(17,28);"":PRINT AT(18,28);"  ":PRINT AT(19,29);" "
 1034 RETURN
 1036 REM TUER IM HINTERGRUND
 1038 FOR A=16 TO 22:PRINT AT(6,A);"":NEXT:PRINT AT(7,15);"     "
 1040 PRINT AT(8,15);"  "
 1042 FOR A=9 TO 15:PRINT AT(A,15);"     ":NEXT:PRINT AT(14,17);""
 1044 PRINT AT(16,15);"     ":FOR A=16 TO 22:PRINT AT(17,A);" ":NEXT:RETURN
 1046 PRINT AT(28,0);"DIES IST DER KELLERRAUM IM TURM " :RETURN
 1048 PRINT AT(28,0);"DU BIST IM VORDEREN KELLERGANG !":RETURN
 1050 IF KR(8)=1 THEN 1056:ELSE PRINT AT(5,1);"":PRINT AT(6,1);""
 1052 FOR A=7 TO 17:PRINT AT(A,1);"":NEXT:PRINT AT(18,1);"",CHR$(142)
 1054 PRINT AT(19,1);CHR$(142)
 1056 IF KR(8)=0 THEN FOR A=7 TO 16:PRINT AT(A,16);"":NEXT
 1058 PRINT AT(28,0);"DER HINTERE KELLERGANG !":RETURN
 1060 PRINT AT(13,15);"":PRINT AT(14,14);"           "
 1062 PRINT AT(15,14);"            ":PRINT AT(16,14);"  "
 1064 PRINT AT(17,15);"           ":PRINT AT(18,16);""
 1066 RETURN
 1068 PRINT AT(6,17);"":PRINT AT(7,17);"":PRINT AT(8,17);""
 1070 PRINT AT(9,17);CHR$(142),"",CHR$(191):PRINT AT(10,17);""
 1072 RETURN
 1074 PRINT AT(15,22);"":PRINT AT(16,12);"    "
 1076 PRINT AT(17,11);"          ":PRINT AT(18,11);""
 1078 PRINT AT(19,11);""
 1080 PRINT AT(28,0);"DAS TURMVERLIES !":RETURN
 1082 PRINT AT(28,0);"DIESER RAUM BEFINDET SICH IM "      
 1084 PRINT AT(29,0);"ERSTEN STOCKWERK DES TURMES !":RETURN
 1086 CLS
 1088 PRINT AT(5,6);"",CHR$(142),"",CHR$(191),"",CHR$(142),""
 1090 PRINT AT(5,20);CHR$(191)
 1092 PRINT AT(5,21);"",CHR$(142),"",CHR$(191),""
 1094 PRINT AT(6,5);"",CHR$(142),"      ",CHR$(191),""
 1096 PRINT AT(7,4);"",CHR$(142),"  ",CHR$(191),""
 1098 PRINT AT(8,4);"    ":FOR A=9 TO 13:FOR C=7 TO 31
 1100 PRINT AT(A,C);"":NEXT:NEXT:PRINT AT(9,4);"":PRINT AT(9,30);""
 1102 PRINT AT(10,1);"",CHR$(142),"":PRINT AT(10,27);"",CHR$(191),""
 1104 PRINT AT(11,0);"",CHR$(142),"":PRINT AT(11,27);"",CHR$(191),""
 1106 PRINT AT(12,0);"":PRINT AT(12,30);"":PRINT AT(13,0);"":PRINT AT(13,30);"
 1108 PRINT AT(14,0);"":PRINT AT(14,26);"":B=6:C=20:FOR A=14 TO 20:PRINT AT(A,B);"
 1110 PRINT AT(A,C);"":B=B-1:C=C+1:NEXT
 1112 GOSUB 1008:IF G(5)=1 THEN 1116:ELSE G(5)=1
 1114 PRINT AT(28,0);"HIER LIEGT EIN SCHLUESSEL FUER   DICH !"
 1116 PRINT AT(27,0);"DU BIST GANZ OBEN AUF DEM TURM !":GOSUB 586:RETURN
 1118 PRINT AT(16,13);"":PRINT AT(17,12);""
 1120 FOR A=12 TO 26:PRINT AT(18,A);"":NEXT:PRINT AT(19,13);""
 1122 PRINT AT(19,24);""
 1124 PRINT AT(20,13);"":PRINT AT(20,25);""
 1126 PRINT AT(28,0);"DER WARTESAAL !":RETURN
 1128 PRINT AT(7,15);" ":PRINT AT(8,15);""
 1130 PRINT AT(9,15);CHR$(191),"",CHR$(142):PRINT AT(10,16);""
 1132 PRINT AT(11,16);"":PRINT AT(12,14);""
 1134 PRINT AT(13,14);"":PRINT AT(13,15);"":PRINT AT(13,24);""
 1136 PRINT AT(14,15);"":PRINT AT(15,15);""
 1138 PRINT AT(16,14);"":PRINT AT(17,13);""
 1140 PRINT AT(18,12);""
 1142 PRINT AT(19,12);""
 1144 PRINT AT(28,0);"DIES IST DER TRONSAAL !":RETURN
 1146 PRINT AT(14,1);"":PRINT AT(15,1);CHR$(142),""
 1148 PRINT AT(16,1);"",CHR$(142)
 1150 PRINT AT(17,1);CHR$(142),"",CHR$(142),"":PRINT AT(18,1);"",CHR$(142),"
 1152 PRINT AT(19,1);"":PRINT AT(28,0);"MITTLERER FLUR IM KELLER !":RETURN
 1154 PRINT AT(28,0);"DIES IST EIN DURCHGANGSZIMMER !":RETURN
 1156 PRINT AT(28,0);"HINTERER FLUR IM ERDGESCHOSS !":RETURN
 1158 PRINT AT(10,1);"",CHR$(142),"":PRINT AT(11,0);"",CHR$(142),""
 1160 PRINT AT(12,0);"":PRINT AT(13,0);"":PRINT AT(14,0);""
 1162 PRINT AT(15,0);""
 1164 PRINT AT(16,0);"":PRINT AT(17,0);" ":PRINT AT(18,0);""
 1166 PRINT AT(19,0);" "
 1168 PRINT AT(20,0);"":FOR A=4 TO 29:PRINT AT(14,A);"":NEXT:FOR A=4 TO 30
 1170 PRINT AT(15,A);"":NEXT:PRINT AT(14,30);"":PRINT AT(15,31);"":FOR A=4 TO 31
 1172 PRINT AT(16,A);"":NEXT:PRINT AT(17,7);"":PRINT AT(17,27);""
 1174 PRINT AT(18,7);""
 1176 PRINT AT(18,27);"":PRINT AT(17,8);"":PRINT AT(17,26);""
 1178 PRINT AT(27,0);"IN DER KUECHE IST DER VOGEL !":RETURN
 1180 PRINT AT(29,0);"DIE LEITER FUEHRT IN DAS ERD-   GESCHOSS  !":RETURN
 1182 PRINT AT(29,0);"DAS LOCH FUEHRT IN DEN KELLER !":RETURN
 1184 C=30:FOR A=0 TO 20:PRINT AT(A,C);"":C=C-1:NEXT:C=30:FOR A=4 TO 20
 1186 PRINT AT(A,C);""
 1188 C=C-1:NEXT:C=30:FOR A=8 TO 20:PRINT AT(A,C);"":C=C-1:NEXT:C=30:FOR A=12 TO 20
 1190 PRINT AT(A,C);"":C=C-1:NEXT:C=30:FOR A=16 TO 20:PRINT AT(A,C);"":C=C-1:NEXT
 1192 PRINT AT(20,30);"":C=20:FOR A=10 TO 19:PRINT AT(A,C);"":C=C+1:NEXT
 1194 RETURN
 1196 FOR A=0 TO 5:PRINT AT(A,14);"":NEXT:PRINT AT(5,5);"":PRINT AT(5,21);""
 1198 PRINT AT(6,4);"        ":PRINT AT(7,3);"    
 1200 PRINT AT(8,5);"    ":PRINT AT(9,4);"    "
 1202 PRINT AT(10,6);"  ",CHR$(191),"",CHR$(142),"  "
 1204 PRINT AT(11,5);"    ",CHR$(191),"",CHR$(142),"    "
 1206 PRINT AT(12,11);"":PRINT AT(13,11);CHR$(191),"",CHR$(142)
 1208 PRINT AT(14,12);"",CHR$(142),CHR$(191),"":PRINT AT(15,12);"  "
 1210 PRINT AT(27,0);"DU BIST INS NETZ EINER RIESIGEN "      
 1212 PRINT AT(28,0);"SPINNE GERATEN !":GOSUB 1184:PAUSE 20:RETURN
 1214 PRINT AT(28,0);"DER VORDERE FLUR IM ERSTEN STOCK  ":RETURN
 1216 PRINT AT(28,0);"DIES IST DER MITTLERE FLUR !":RETURN
 1218 PRINT AT(28,0);"DU BIST IM HINTEREN FLUR !":RETURN
 1220 PRINT AT(9,15);"":PRINT AT(10,14);""
 1222 PRINT AT(11,13);"":PRINT AT(12,13);"
 1224 PRINT AT(13,13);"          ":PRINT AT(14,13);"          
 1226 PRINT AT(15,13);"            ":PRINT AT(15,17);""
 1228 PRINT AT(16,13);"            ":PRINT AT(16,17);""
 1230 PRINT AT(17,13);"            ":PRINT AT(17,16);""
 1232 PRINT AT(18,13);"            ":PRINT AT(18,15);""
 1234 PRINT AT(19,13);"            ":PRINT AT(19,14);""
 1236 PRINT AT(20,13);"            ":RETURN
 1238 PRINT AT(7,23);"":PRINT AT(8,26);"":PRINT AT(9,22);""
 1240 PRINT AT(9,27);""
 1242 PRINT AT(10,22);" ":PRINT AT(11,23);" ":PRINT AT(12,21);""
 1244 PRINT AT(13,20);" ":PRINT AT(14,20);" ":PRINT AT(15,21);""
 1246 PRINT AT(16,21);"  ":PRINT AT(17,21);"  ":PRINT AT(18,21);"  "
 1248 PRINT AT(19,20);"    "
 1250 PRINT AT(27,0);"DU STEHST VOR EINEM ZAUBERER !"
 1252 RETURN
 1254 PRINT AT(6,19);"":PRINT AT(7,19);" ":PRINT AT(8,19);" "
 1256 PRINT AT(9,19);""
 1258 PRINT AT(10,19);"":PRINT AT(11,20);"":PRINT AT(12,6);""
 1260 PRINT AT(12,19);""
 1262 PRINT AT(13,6);"":PRINT AT(13,18);""
 1264 PRINT AT(14,6);CHR$(191),"",CHR$(142)
 1266 PRINT AT(14,18);"":PRINT AT(15,6);"":PRINT AT(15,18);""
 1268 PRINT AT(16,6);"":PRINT AT(17,6);""
 1270 PRINT AT(28,0);"DAS WC !":RETURN
 1272 PRINT AT(16,14);"":PRINT AT(17,13);""
 1274 PRINT AT(18,12);"  ":PRINT AT(19,12);""
 1276 PRINT AT(20,12);""
 1278 PRINT AT(28,0);"DU BIST IM BADERAUM !":RETURN
 1280 PRINT AT(9,22);"    ":PRINT AT(10,23);"":PRINT AT(11,22);""
 1282 PRINT AT(12,23);"":PRINT AT(13,22);""
 1284 PRINT AT(14,21);"",CHR$(142),"",CHR$(191),""
 1286 PRINT AT(15,22);"":PRINT AT(16,22);"",CHR$(191),"",CHR$(142),""
 1288 PRINT AT(17,22);"    ":PRINT AT(18,21);"",CHR$(142)
 1290 PRINT AT(18,27);CHR$(191),"":RETURN
 1292 CLS
 1294 PRINT "":PRINT "    ":PRINT "    ":PRINT ""
 1296 PRINT "    ":PRINT "    ":PRINT "":PRINT ""
 1298 PRINT "":PRINT "":PRINT ""
 1300 PRINT "":PRINT " '       "
 1302 PRINT "      ''   ":PRINT "  '         "
 1304 PRINT "      '    "
 1306 PRINT "      '            " 
 1308 PRINT "'                  '" 
 1310 PRINT "                       "
 1312 PRINT AT(19,1);" "
 1314 RETURN
 1316 PRINT AT(28,0);"DU BEFINDEST DICH IM TURM!            ":RETURN
 1318 WINDOW:CLS
 1320 DATA "MIT VIEL MUEHE HAST DU DEIN ZIEL"
 1322 DATA "ERREICHT UND UEBERGIBST DEN "                 
 1323 DATA "'STEIN DER WEISEN' AN RUMPEL-"
 1324 DATA "STIELZCHEN UND ERHAELTST ALS "      
 1326 DATA "DANK DAS VERWANDELTE UNGEHEUER,","D.H. ALSO DIE PRINZESSIN,"
 1328 DATA ZUR FRAU.," ",WERDE MIT IHR GLUECKLICH
 1330 DATA DU HILFSBEREITER HELD.
 1332 RESTORE 1320:FOR I=1 TO 10:READ B$:PRINT B$:PRINT:NEXT I
 1334 PRINT AT(20,0);" ":PRINT AT(23,0);"SCHRITTE",SC
 1336!RINTAT(21,0);"ZEIT    ",PEEK(30),"MIN":PAUSE160:GOTO10
 1338   PRINT AT(17,25);"  ":PRINT AT(18,25);"":PRINT AT(19,25);"  
 1340 PRINT AT(20,25);"    ":PRINT AT(21,25);"  "
 1342 PRINT AT(22,24);"      ":PRINT AT(23,25);"  "      
 1344 PRINT AT(23,25);"    ":PRINT AT(24,25);""
 1346 PRINT AT(25,24);"     ":PRINT AT(26,26);"  "  
 1348 RETURN
 1350 PRINT AT(28,0);"DAS IST DIE VON DIR ERLOESTE "        
 1352 PRINT AT(29,0);"HUEBSCHE PRINZESSIN !!!"
 1354 RETURN
 1356 PRINT AT(13,4);"":PRINT AT(14,3);"          "
 1358 PRINT AT(15,2);"          ":PRINT AT(16,2);""
 1360 PRINT AT(17,2);"":PRINT AT(18,4);"   "
 1362 PRINT AT(19,4);"   ":RETURN
 1364 IF FR=0 THEN FR=5
 1366 PRINT AT(12,FR);"":PRINT AT(13,FR);"  ":PRINT AT(14,FR-1);""
 1368 PRINT AT(15,FR-1);"":RETURN
 1370 PRINT AT(6,27);"":PRINT AT(7,27);"":PRINT AT(8,28);""
 1372 PRINT AT(9,26);" ":PRINT AT(10,26);"":PRINT AT(11,27);""
 1374 PRINT AT(12,26);" ":PRINT AT(13,26);"":PRINT AT(14,27);""
 1376 PRINT AT(15,26);"":PRINT AT(16,27);"":PRINT AT(17,27);""
 1378 RETURN
 1380 PRINT AT(9,7);"":FOR I=10 TO 12:PRINT AT(I,7);"":NEXT
 1382 PRINT AT(13,7);"":PRINT AT(14,6);""
 1384 FOR I=15 TO 17:PRINT AT(I,7);"":PRINT AT(I,10);"":NEXT:RETURN
 1386 PRINT AT(28,0);"DU BIST IM MITTLEREN FLUR.":RETURN
 1388 PRINT AT(28,0);"DAS LOCH FUEHRT IN DAS ERDGE-    SCHOSS !":RETURN
 1390 PRINT AT(10,26);"  ":PRINT AT(11,26);" ":PRINT AT(12,26);" "
 1392 PRINT AT(13,26);" ":PRINT AT(14,27);"":RETURN
 1394 PRINT AT(6,25);"":PRINT AT(7,24);"     ":PRINT AT(8,24);"   "
 1396 PRINT AT(9,24);"    ":PRINT AT(10,24);"   "
 1398 PRINT AT(11,24);"     "
 1400 PRINT AT(12,24);"":PRINT AT(13,25);"":PRINT AT(14,25);"
 1402 PRINT AT(15,25);"":PRINT AT(16,25);"":PRINT AT(17,25);"    "
 1404 RETURN
 1406 PRINT AT(9,8);"":PRINT AT(10,7);" ":PRINT AT(11,5);""
 1408 PRINT AT(12,5);"":PRINT AT(13,6);"":PRINT AT(14,6);""
 1410 FOR I=15 TO 17:PRINT AT(I,5);"":NEXT:RETURN
 1412 PRINT AT(11,4);"":PRINT AT(12,3);"      "
 1414 PRINT AT(13,3);" ":PRINT AT(14,3);" "
 1416 PRINT AT(15,3);" ":PRINT AT(16,3);" "
 1418 PRINT AT(17,3);"":RETURN
 1420 PRINT AT(5,15);"":PRINT AT(6,15);"    "
 1422 PRINT AT(7,15);"    ":PRINT AT(8,15);"    "
 1424 PRINT AT(9,15);CHR$(142),"",CHR$(191):PRINT AT(10,15);""
 1426 RETURN
 1428 GOSUB 1420:GOSUB 1412:GOSUB 1394
 1430 PRINT AT(28,0);"EIN ABSTELLRAUM !":RETURN
 1432 PRINT AT(27,0);"KOBOLDE HABEN DICH UEBERFALLEN UND"
 1434 GOSUB 1446
 1436 DI=INT(10*RND(1)):IF G(DI)<>1 THEN 1436
 1438 PRINT AT(28,2);"HABEN DICH BESTOHLEN. VERLUST:  "+G$(DI)
 1440 G(DI)=-1:KR(19)=0:PAUSE 30
 1442 L$=STRING$(32,CHR$(32))
 1444 PRINT AT(28,0);L$:PRINT AT(29,0);L$:PRINT AT(30,0);L$:RETURN
 1446 ZU=0:FOR I=1 TO 9:IF G(I)=1 THEN ZU=1
 1448 NEXT I:IF ZU=1 THEN RETURN
 1450 PRINT AT(29,0);"DIR DEIN LEBEN GERAUBT !!"
 1452 PAUSE 75:GOTO 896
 1454 PRINT AT(7,26);"":PRINT AT(8,24);" ":PRINT AT(9,23);"  "
 1456 PRINT AT(28,2);"WEITER MIT ... ENTER"
 1458 PRINT AT(10,22);"  ":PRINT AT(11,22);"":PRINT AT(12,23);""
 1460 FOR I=13 TO 16:PRINT AT(I,22);"":NEXT
 1462 PRINT AT(17,22);CHR$(191),"",CHR$(142)
 1464 PRINT AT(11,20);"":PRINT AT(12,20);"":PRINT AT(13,20);CHR$(191),""
 1466 PRINT AT(14,20);" "    
 1468 PRINT AT(14,21);CHR$(191):PRINT AT(15,20);"  ":PRINT AT(16,20);" "
 1470 PRINT AT(17,20);" ":PRINT AT(18,21);"  ":PRINT AT(19,21);"    "
 1472 PRINT AT(20,20);"",CHR$(142),"     ":PRINT AT(21,23);" "
 1474 PRINT AT(22,22);"  ",CHR$(191),"":PRINT AT(14,26);""
 1476 PRINT AT(11,27);" ":PRINT AT(12,27);" ":PRINT AT(13,26);"  "
 1478 PRINT AT(15,27);"":PRINT AT(16,27);"":PRINT AT(17,27);""
 1480 IF PEEK(004)=13 THEN WINDOW:CLS:RETURN
 1482 PRINT AT(11,20);" ":PRINT AT(12,20);" ":PRINT AT(13,20);"  "
 1484 PRINT AT(14,20);"":PRINT AT(15,20);"":PRINT AT(16,20);""
 1486 PRINT AT(17,20);"":PRINT AT(11,27);"":PRINT AT(12,27);""
 1488 PRINT AT(13,26);"",CHR$(142):PRINT AT(14,26);CHR$(142)," "
 1490 FOR I=15 TO 17:PRINT AT(I,27);" ":NEXT
 1492 PRINT AT(18,21);"  ":PRINT AT(19,21);"    "
 1494 PRINT AT(20,20);"     ",CHR$(191),"":PRINT AT(21,23);" " 
 1496 PRINT AT(22,22);"",CHR$(142),"  "        
 1498 IF PEEK(0004)=13  THEN WINDOW: CLS  :RETURN:ELSE 1464
 1500 ZU=0:FOR I=1 TO 9:IF G(I)=-1 THEN ZU=ZU+1
 1502 NEXT:IF ZU>1 THEN 458
 1504 PRINT AT(29,0);"WIE DU SIEHST IST ES LEER !!":RETURN
 1506 PRINT AT(28,0);"DIE SPINNE FRISST DEINEN APFEL !       "
 1508 PRINT AT(29,0);"                                       ":GOTO 628
 1510!************************
 1512!*
 1514!* ENDE
 1516!*
 1518!************************