Quasimodo, Herrscher der Kartanen

petcat | Checksummer

20 gosub22:gosub700:goto875
21 gosub22:fori=1to2500:next:goto875
22 printchr$(147):poke53281,0:u=646:r=2
25 poke53280,0:pokeu,4:t=58640:si=54272
65 forl=1to4:print
70 fori=7to32:reads:printtab(i)chr$(s);
71 nexti,l:print:poke214,9:pokeu,1:syst
80 printspc(9)"ein abenteuerspiel von
81 printspc(53)"roland selzer
82 printspc(50)"fuer den commodore 64
83 printspc(54)"(c) 1984/85
84 printspc(88)"finden und vernichten sie":printspc(51)"quasimodo den hexer
87 printspc(89)">>>> bitte  warten <<<<
110 dimg$(99):fori=2to22step2:readg$(i)
120 next:v=53248:f=v+17:p=1:return
600 data117,96,105,105,32,105,117,96,105
601 data117,96,105,105,117,105,117,105
602 data117,96,105,176,96,105
603 data117,96,105,98,32,98,98,32,98,98
604 data32,98,98,32,98,98,98,98,98,98,98
605 data32,98,98,32,98,98,32,98,98,32,98
606 data98,32,98,171,96,179,106,96,105
607 data98,98,106,107,98,98,32,98,98,32
608 data98,98,32,98,106,96
609 data109,106,96,107,107,32,107,106
610 data96,107,106,106,32,32,106,106
611 data96,107,173,96,107,106,96,107
650 dataopfer,pflanze,polizist,lampe
660 datahammer,orden,schalter,dynamit
670 dataschrank,buch,flasche
700 forl=0to2:readb:fori=0tob:reada
705 poke832+i+l*64,a:next
710 fori=b+1to62:poke832+i+l*64,0:nexti,l
711 forl=3to22:readb:fori=0tob:reada
712 poke14912+i+l*64,a:next
713 fori=b+1to62:poke14912+i+l*64,0
715 nexti,l:return
875 z$=chr$(18)+" "+chr$(146):w$="   "
890 x$=chr$(157)+" ":l$(p)="ste"
891 fori=1to24:u$=u$+chr$(175)
892 v$=v$+chr$(183):w$=w$+" ":next
900 pokef,11:printchr$(147);:pokeu,11:pokev+28,255:g$(99)="monster"
901 fori=0to7:pokev+i,0:next:pokev+16,0
902 fori=2to5:printspc(i)chr$(109);
903 printspc(36-i*2)chr$(110):next
904 printspc(6)chr$(111)v$chr$(112)
905 fori=1to8:printspc(6)chr$(165);
906 printspc(24)chr$(167):next
907 printspc(6)chr$(108)u$;
908 printchr$(186):fori=5to2step-1
909 printspc(i)chr$(110);
910 printspc(36-i*2)chr$(109):next
911 pokev+23,0:pokev+29,0:pokev+40,2
912 pokev+21,255:ifr=20orr=90thenpokev+28,0
1070 pokeu,11:fori=1to4:r$(i)="":next
1071 ifr=0thenr$=r$+" ":goto1102
1072 ifr=99andmo=0thengosub5800:goto1101
1073 ifr=99then1101
1075 ifr>5thenr$(1)="n-":gosub3100
1080 r$=a$:ifr<26thenr$(2)="s-"
1090 ifint(r/5)<>r/5thenr$(3)="o-":gosub3200
1092 ifg$(r)="loch"then4900
1093 j=r/2:ifj<>int(j)org$(r)=""orty=1then1095
1094 onjgosub5000,5100,5300,5200,5400,5500,5600,5700,5900,5960,7000
1095 b=(r-1)/5:ifle=1andr=2thengosub5040
1100 ifint(b)<>bthenr$(4)="w-":gosub3005
1101 ifr=99thengosub6540
1102 g$=g$(r):r$="":fori=1to4:r$=r$+r$(i)
1105 next:ifg$(r)=""theng$="nichts"
1106 ifty=1then6930
1120 poke214,20:poke211,0:syst
1121 pokeu,15:print" richtung: "r$x$;
1125 poke211,38-len(g$):printg$:la=0
1130 poke211,0:poke214,22:syst
1131 pokeu,15:print" kommando: "z$;
1135 pokef,27:k$="":b2=r:poke198,0
1140 geta$:ifa$=""then1140
1145 ifa$=chr$(13)orla>26then1180
1146 ifa$=" "then1160
1147 ifa$=chr$(20)then3297
1150 ifa$<"a"ora$>"z"then1140
1160 k$=k$+a$:poke211,11:poke214,22
1170 syst:printk$z$;:la=la+1:goto1140
1180 ifk$="n"thenifr$(1)="n-"thenr=r-5
1190 ifk$="s"thenifr$(2)="s-"thenr=r+5
1200 ifk$="w"thenifr$(4)="w-"thenr=r-1
1210 ifk$="o"thenifr$(3)="o-"thenr=r+1
1220 ifb2=rthen1240
1221 ifqu=1then2200
1230 pokef,11:goto900
1240 n$=left$(k$,3):pokeu,14:z=int(rnd(1)*3+1)
1241 printchr$(157)" ":print:poke211,1
1245 e$=right$(k$,3):ifn$<>"nim"then1350
1250 ife$="nze"andr=4then4020
1251 ife$="euz"andr=99then4040
1256 ife$="che"andr=22then4040
1260 ife$="mer"andr=10then4040
1270 ife$="fer"andr=2then4060
1275 ife$="olz"andr=18then4040
1280 ife$="ist"andr=6then4080
1290 ife$="mpe"andr=8then4100
1291 ife$="den"andr=12then4040
1293 ife$="mit"andr=16then4040
1294 ife$="ank"andr=18thenz=2:goto2930
1295 ife$="uch"andr=20then4040
1298 goto2910
1350 ifn$<>"gib"then1370
1355 ife$="den"ore$="mer"ore$="che"thenifr=6orr=99then4120
1356 ife$="fer"andr=99then4120
1357 ife$="euz"andqu=1then2300
1360 goto2995
1370 ifn$<>"dru"then1430
1380 ife$="ter"thenifr=14then4140
1430 ifn$<>"lis"then1520
1431 ifqu=1then2200
1435 ifl$(1)<>"ste"then2997
1440 pokef,11:poke214,8:poke211,0
1441 syst:fori=1to11
1445 printspc(8)chr$(18)left$(w$,13)
1450 next:w=8:ifr<>2andr<>18andr<>20thenpokev+21,0
1456 fori=0top:ifl$(i)=""thennext:goto1500
1460 ifl$(i)="mer"thenp$="hammer"
1464 ifl$(i)="euz"thenp$="kreuz"
1465 ifl$(i)="den"thenp$="orden"
1466 ifl$(i)="fer"thenp$="opfer"
1470 ifl$(i)="sel"thenp$="schluessel"
1472 ifl$(i)="mit"thenp$="dynamit"
1473 ifl$(i)="che"thenp$="flasche"
1474 ifl$(i)="olz"thenp$="streichholz"
1485 w=w+1:poke214,w:poke211,9:syst
1490 printchr$(18)p$:next
1500 pokef,27:poke198,0:wait198,1:goto900
1520 ifn$<>"spr"then1550
1530 print"dein kopf knallte";
1535 print" an die decke";
1540 goto9999
1550 ifn$<>"zue"then1570
1555 ife$="mit"then4800
1570 ifn$<>"oef"then1575
1571 ifr<>18then2910
1573 goto6700
1575 ifn$<>"bef"then1577
1576 goto6000
1577 ifn$<>"geh"then1579
1578 ifright$(k$,4)="loch"thenr=99:goto900
1579 ifn$="hoc"andr=99thenr=16:goto900
1580 ifn$<>"tri"then2000
1581 fori=1top:ifl$(i)<>"che"thennext:goto1583
1582 ifkr=0thengosub6500:goto1590
1583 print"was denn";:goto2998
1590 print"du fuehlst dich nun";
1595 print" kraeftiger";:kr=1:goto6750
2000 goto2950
2100 fori=1top:ifl$(i)<>"fer"thennext:goto
2200 poke214,24:poke211,1:syst:pokeu,5
2205 print"quasimodo hat dich getoetet";
2210 goto9999
2300 fori=1top:ifl$(i)<>"euz"thennext:goto2200
2310 pokef,11:printchr$(147);:pokeu,11:ty=1:goto902
2910 gosub4000:ifqu=1then2200
2920 ifz=1thenprint"selten so gelacht";
2930 ifz=2thenprint"total unmoeglich";
2940 ifz=3thenprint"das kann ich nicht";
2945 goto2998
2950 ifqu=1then2200
2951 gosub4000:ifk$="o"ork$="w"ork$="s"ork$="n"then2990
2970 ifz=1thenprint"versteh dich nicht";
2980 ifz=2thenprint"do you speak german";
2981 ifz=3thenprint"ist mir unbekannt";
2985 goto2998
2990 print"richtung nicht ";
2991 print"moeglich";:goto2998
2995 fori=1top:ifl$(i)<>e$thennext:goto2997
2996 ifr<>6andr<>99thenprint"wem denn";:goto2998
2997 print"hast du nicht";
2998 poke211,1:fori=1to1350:next:ifr=99andmo=0then6770
2999 poke214,22:poke211,11:syst
3000 printw$:print:printw$"           ";:goto1102
3001 gosub4000:print"gibt es hier";
3002 print" nicht";:goto2998
3005 poke214,3:poke211,1:syst
3010 printchr$(170)chr$(109)
3020 print" "chr$(170)" "chr$(109)
3030 print" "chr$(170)chr$(183)chr$(112)
3040 fori=1to9
3050 print" "chr$(170)" "chr$(167):next
3060 print" "chr$(170)chr$(175)chr$(186)
3065 print" "chr$(170)"  "
3070 print" "chr$(170)" "
3080 print" "chr$(110):return
3100 poke214,5:poke211,16:syst
3110 fori=1to6:printchr$(175);:next
3120 printspc(33)chr$(170)chr$(109);
3130 fori=1to4:printchr$(175);:next
3140 printchr$(110)chr$(180)
3150 fori=1to6:printspc(15)chr$(170)chr$(170);
3160 printspc(4)chr$(180)chr$(180):next
3170 printspc(15)chr$(186)chr$(110);
3180 print"    "chr$(109)chr$(108):return
3200 poke214,3:poke211,35:syst
3210 printchr$(110)chr$(180)
3220 printspc(34)chr$(110)" "chr$(180)
3230 printspc(34)chr$(111)chr$(183);
3240 printchr$(180):fori=1to9
3250 printspc(34)chr$(180)" "chr$(180)
3260 next:printspc(34)chr$(108)chr$(175)chr$(180)
3265 printspc(34)"  "chr$(180)
3270 printspc(35)" "chr$(109)
3280 printspc(37)chr$(109):return
3297 ifla<1then2999
3298 la=la-1:k$=left$(k$,la):poke211,11
3299 printk$z$" ";:goto1140
3310 data62,0,3,192,0,12,48,0,48,12,0,0
3320 data3,0,12,3,0,15,3,0,7,3,0,53,3,0
3330 data15,3,0,15,195
3340 data0,15,204,0,13,240,0,7,192,0,3
3350 data192,0,2,160,0,2,32,0,2,40
3360 data0,2,40,0,2,40,0,2,40
3370 data0,2,40,62,0,2,40,0,2,40
3380 data0,2,40,0,1,245,0,1,245,0,1,117
3390 data0,1,85,0,0,84,0,0,80,0,1,80,0
3400 data1,64,0,5,64,0,5,0,0,21,0,0,5,0
3410 data0,5,0,0,1,64,0,1,192,0,3,192,0
3420 data0,240,0,3,240,62
3430 data0,48,0,0,112,0,0,248,0,0,248,0
3440 data1,252,0,12,252,0,13,254,0,15
3450 data254,224,7,253,224,7,251,224,25
3460 data253,192,31,255,192,111,255,216
3470 data111,255,184,119,255,120,63,255
3480 data240,31,255,224,7,255,0,3,254,0
3490 data1,252,0,0,248,0,25
3500 data0,160,0,0,160,0,5,85,0,5
3510 data85,0,1,84,0,1,84,0,1,84,0
3520 data1,84,0,0,80,22
3600 data0,255,0,0,195,0,3,243,0,15,255
3610 data0,1,81,0,15,255,0,1,81,0,0,65
3620 data62,0,16,0,0,252,0,3,255,0,3
3630 data255,0,3,253,0,3,255,0,15
3640 data255,192,15,255,192,2,170,128,2
3645 data170,128,2,170,0,2
3650 data170,0,0,168,0,0,252,0,3,255,0
3660 data15,255,64,15,255,240,15,255,208
3670 data15,63,240,15,63,208,5,61,80,31
3680 data15,63,240,0,160,0,3,239,192,0
3690 data255,0,0,255,0,0,240,0,0,240,0,0
3700 data240,0,0,240,0,0,252,0,0,252
3710 data37,1,64,0,63,252,0,85,116,0,255
3720 data252,0,255,252,0,63,240,0,1,64
3730 data0,1,64,0,1,64,0,1,64,0,1,64,0
3740 data1,64,0,1,64
3750 data18,29,0,0,55,0,0,29,0,0,5,0,0
3760 data5,0,0,4,0,0,4
3770 data9,252,0,0,220,0,0,220,0,0,252
3771 data7,255,196,0,255,208,0,255,192
3772 data61,0,0,0,0,0,0,0,0,0,0,0,0,0,0
3773 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
3774 data0,0,1,64,0,5,80,0,21,208,1,21
3775 data84,4,21,84,4,85,85,20,85,85,84
3776 data86,85,81,86,21,81,90,0,81,86
3777 data62,81,86,0,81,213,128,81,117,0
3778 data69,89,64,85,93,80,85,91,112,85
3779 data86,48,85,85,0,85,85,0,21,85,0
3780 data21,85,0,5,84,0,1,84,0,0,84,0,0
3785 data85,0,0,21,0,0,21,0,0,84,0,0,84
3790 data0,0,85,64,0,93,192
3800 data56,255,255,240,0,0,0,255,255,240
3805 data255,255,240,255,15,240,255,255
3810 data240,255,255,240,0,0,0,255,255
3815 data240,255,255,240,255,255,48,255
3820 data255,48,255,255,48,255,255,240,255
3830 data255,240,255,255,240,80,0,80,64
3840 data0,16,64,0,16
3900 data56,255,255,240,192,0,48,192,0,32
3905 data192,0,48,192,0,48,192,0,48,192
3910 data0,48,192,0,48,255,255,240
3915 data255,255,240,255,255,48,255,255
3920 data48,255,255,48,255,255,240,255
3930 data255,240,255,255,240,80,0,80,64
3940 data0,16,64,0,16,3,86,0,0,86,45
3941 data63,240,0,74,80,0,115,240,0,124
3942 data80,0,110,240,0,78,144,0,70,240
3943 data0,102,176,0,110,240,0,110,80,0
3944 data110,240,0,110,144,0,126,240,0
3945 data62,0,0,14,0,0,2
3946 data62,0,2,0,0,2,0,0,7,0,0,7,0,0
3947 data15,128,0,15,128,0,31,192,0,31
3948 data192,0,63,224,0,63,224,0,255,248
3949 data0,64,16,0,88,208,0,45,160,1,224
3950 data60,7,240,95,31,215,79,63,136
3951 data131,63,13,131,126,7,16,126,34,0
3952 data62,126,34,0,124,4,16,124,32,16
3953 data250,64,8,251,64,8,249,252,5,248
3954 data12,15,248,28,8,252,22,28,252,50
3955 data7,252,34,1,124,42,1,126,44,2
3956 data62,38,14,62,39,30,126,49
3957 data240,124,18,225,127,18,225,127
3958 data206,227,126,108,98,126,56,99,60,192,0,0,240,0,0,240,0,0,252,0,0,254
3959 data0,0,127,0,0,63,128,0,63,128
3960 data0,111,128,0,207,128,0,15,128,0
3961 data15,128,0,31,128,0,31,128,0,31
3962 data128,0,159,128,0,191,0,0,191,0
3963 data0,191,0,0,191,0,0,191
3964 data54,126,56,99,126,56,99,126
3965 data56,126,56,99,126,56,99,126
3966 data56,126,56,99,126,56,99,126
3967 data56,126,56,99,126,56,99,126
3968 data56,126,56,99,126,56,99,126
3969 data56,126,56,99,126,56,99,126
3970 data56,126,56,99,126,56,99,126
3971 data27,16,0,0,48,0,0,48,0,0,252,0
3972 data0,252,0,0,168,0,0,168,0,0,252
3973 data0,0,252,0,0,252,18
3974 data32,0,0,32,0,0,168,0,0,168,0,0
3975 data32,0,0,32,0,0,32
4000 poke211,1:poke214,24:syst:return
4020 printchr$(157)"hornissen haben dich";
4030 print" toetlich gestochen";:goto9999
4040 ife$="euz"andr=99andmo=0then6770
4042 ifsr=1thensr=0:se=1:goto4045
4043 ifright$(g$(r),3)<>e$then3001
4044 g$(r)=""
4045 p=p+1:poke214,20:syst
4046 ifr<>18thenfori=0to1:pokev+i,0:next
4047 pokev+2,0:pokev+3,0:pokev+4,0
4048 pokev+5,0:l$(p)=e$:pokeu,15
4051 printspc(27)"    nichts"
4052 ife$="uch"thenqu=1:g$(20)="quasimodo":pokef,11:gosub6800
4053 goto2999
4060 ifkr=1thenle=1:goto4040
4065 print"ist zu schwer";:goto2998
4080 print"der polizist hat";
4095 print" dich verhaftet";:goto9999
4100 print"haengt zu hoch";:goto2998
4120 fori=1top
4121 ifl$(i)="den"ande$="den"andr=6then4130
4122 ifl$(i)="fer"ande$="fer"andr=99thenl$(i)="":goto6600
4123 ifl$(i)=e$then4156
4124 next:ifr=6then4080
4125 goto6770
4130 print"du bekommst einen";:od=1
4131 print" schluessel dafuer";:l$(i)="sel":gosub6500:goto6750
4140 print"eine falltuer hat";
4155 print" sich geoeffnet ";:goto9999
4156 l$(i)=""
4160 goto2998
4800 forl=1top:ifl$(l)="mit"then4871
4815 next:ifg$(r)="dynamit"then4871
4820 goto3001
4860 print"die explosion hat dich";
4870 print" zerfetzt";:goto9999
4871 ifse=0thenprint"mit was denn";:goto2998
4872 pokef,11:g$(r)="loch":fori=0to6
4873 pokesi+i,0:next:j=1:i1=99:gosub4880
4874 fori=1to2000:next:forj=15to0step-.5
4875 i1=30:gosub4880:next:fori=0to6
4876 pokesi+i,0:next
4877 ifl$(l)="mit"then4860
4878 goto900
4880 pokesi+24,j:pokesi+5,15:pokesi+1,i1
4881 pokesi,200:pokesi+4,129:return
4900 poke214,14:poke211,6:syst
4906 pokeu,11:printspc(2);:fori=1to5
4910 printchr$(175);:next:printspc(34);
4920 printchr$(110)spc(4)chr$(110)
4930 printspc(7)chr$(109)chr$(175);
4940 printchr$(175)chr$(110)chr$(183)
4950 goto1095
5000 pokev+37,6:pokev+38,15:pokev+39,2
5010 poke2040,13:pokev,207:pokev+1,107
5030 poke2041,14:pokev+2,207:pokev+3,128
5040 printchr$(19):pokeu,1:fori=1to7
5050 printspc(25)chr$(167):next
5055 printspc(25)chr$(110):pokeu,11:return
5100 pokev+37,11:pokev+38,5:pokev+39,8
5110 poke2040,15:poke2041,236
5120 pokev,100:pokev+1,145:pokev+40,8
5130 pokev+2,100:pokev+3,166:return
5200 pokev+37,7:pokev+38,2:poke2040,237
5210 pokev+16,255:pokev,46:pokev+1,110:return
5300 pokev+37,1:pokev+38,14:pokev+39,8
5310 pokev+40,8:poke2040,238:poke2041,239
5320 pokev,100:pokev+1,143
5330 pokev+2,100:pokev+3,164:return
5400 pokev+37,7:pokev+38,8:pokev+39,8
5410 pokev,233:pokev+1,160:poke2040,240:return
5500 pokev+37,2:pokev+38,7:pokev+39,8
5510 pokev,140:pokev+1,130:poke2040,241:return
5600 pokev+37,3:pokev+38,4:pokev+39,8
5610 pokev,140:pokev+1,130:poke2040,242:return
5700 pokev+37,7:pokev+38,2:pokev,100
5710 pokev+1,170:poke2040,243:return
5800 pokev+37,6:pokev+38,8:pokev+39,4
5810 pokev,90:pokev+1,93:pokev+2,90
5820 pokev+3,135:poke2040,244:pokev+23,7
5830 pokev+29,7:poke2041,245:return
5900 pokev+37,12:pokev+38,4:pokev,230
5905 ifse=1orsr=1thenpoke2040,247:goto5930
5920 poke2040,246
5930 pokev+1,147:fori=1top:ifl$(i)="olz"orse=1thennext:return
5940 poke2041,248:pokev+40,7
5950 pokev+2,235:pokev+3,152:return
5960 pokev+39,7:pokev,240:pokev+1,165
5970 poke2040,249:pokev+28,0:return
6000 fori=1to40:la$=la$+" ":next
6005 la$=la$+"nimm-gib-geh-hoch-list"
6010 la$=la$+"-zuende-spring-trink"
6020 la$=la$+"-druecke-oeffne":poke211,40
6025 fori=1to40:la$=la$+" ":next
6030 poke214,21:syst
6040 fv=fv+1:iffv>98then2998
6050 printmid$(la$,fv,40)chr$(145);
6060 fori=1to130:next:goto6040
6500 pokesi+24,8:pokesi+4,0:pokesi+5,10
6501 pokesi+6,22:fori=30to10step-.4
6505 pokesi+1,255-peek(si):pokesi+4,33:pokesi,200+i
6520 pokesi+4,17:next:pokesi+4,0:return
6540 ifg$(r)=""thenreturn
6550 pokev+4,200:pokev+5,100
6560 poke2042,255:pokev+41,15:return
6600 pokef,11:print"monster nahm leiche und verschwand";
6610 mo=1:g$(r)="  kreuz":mo=1:pokev+1,0
6620 pokev,0:pokev+2,0:pokev+3,0
6630 pokef,27:gosub6500:goto6750
6700 fori=1top:ifl$(i)<>"sel"thennext:print"mit was denn";:goto2998
6705 ifse=1orsr=1thenprint"ist schon offen";:goto2998
6710 gosub6500:poke2040,247
6730 print"im schrank liegt";:sr=1
6740 print" ein streichholz";
6750 poke198,0:wait198,1:goto2999
6770 print"das monster hat dich gebissen";:goto9999
6800 fori=0to3:poke2040+i,250+i:pokev+39+i,2
6810 next:pokev,150:pokev+2,150
6820 pokev+1,120:pokev+3,141:pokev+4,151
6830 poke214,10:poke211,17:syst
6840 pokeu,1:printz$:fori=1to5
6850 poke211,16:printz$z$z$:next
6900 poke2042,253:pokev+41,2:pokev+6,172
6910 pokev+7,135:poke2043,252:pokev+42,2
6920 pokev+5,162:return
6930 poke214,24:syst
6935 print" gratuliere der hexer verschwindet";:pokev+6,0
6940 fori=16045to16255
6950 pokei,255-peek(i):next:pokef,27
6960 fori=1to300:poke16000+rnd(1)*255,0
6965 pokev+37+rnd(1)*5,rnd(1)*15+1
6966 next:pokev+21,0:printchr$(147);:end
7000 pokev+37,3:pokev+38,5:pokev+39,13
7020 pokev,180:pokev+1,160:poke2040,254
7030 return
9999 fori=1to3000:next:pokev+21,0:run21

 20 GOSUB 22:GOSUB 700:GOTO 875 
 21 GOSUB 22:FOR I=1 TO2500:NEXT :GOTO 875 
 22 PRINTCHR$ (147):POKE 53281,0:U=646:R=2 
 25 POKE 53280,0:POKE U,4:T=58640:SI=54272 
 65 FOR L=1 TO4:PRINT 
 70 FOR I=7 TO32:READ S:PRINTTAB( I)CHR$ (S); 
 71 NEXT I,L:PRINT:POKE 214,9:POKE U,1:SYS T 
 80 PRINTSPC( 9)"EIN ABENTEUERSPIEL VON 
 81 PRINTSPC( 53)"ROLAND SELZER 
 82 PRINTSPC( 50)"FUER DEN COMMODORE 64 
 83 PRINTSPC( 54)"(C) 1984/85 
 84 PRINTSPC( 88)"FINDEN UND VERNICHTEN SIE":PRINTSPC( 51)"QUASIMODO DEN HEXER 
 87 PRINTSPC( 89)">>>> BITTE{2SPACE}WARTEN <<<< 
 110 DIM G$(99):FOR I=2 TO22STEP 2:READ G$(I) 
 120 NEXT :V=53248:F=V+17:P=1:RETURN 
 600 DATA 117,96,105,105,32,105,117,96,105 
 601 DATA 117,96,105,105,117,105,117,105 
 602 DATA 117,96,105,176,96,105 
 603 DATA 117,96,105,98,32,98,98,32,98,98 
 604 DATA 32,98,98,32,98,98,98,98,98,98,98 
 605 DATA 32,98,98,32,98,98,32,98,98,32,98 
 606 DATA 98,32,98,171,96,179,106,96,105 
 607 DATA 98,98,106,107,98,98,32,98,98,32 
 608 DATA 98,98,32,98,106,96 
 609 DATA 109,106,96,107,107,32,107,106 
 610 DATA 96,107,106,106,32,32,106,106 
 611 DATA 96,107,173,96,107,106,96,107 
 650 DATA OPFER,PFLANZE,POLIZIST,LAMPE 
 660 DATA HAMMER,ORDEN,SCHALTER,DYNAMIT 
 670 DATA SCHRANK,BUCH,FLASCHE 
 700 FOR L=0 TO2:READ B:FOR I=0 TOB:READ A 
 705 POKE 832+I+L*64,A:NEXT 
 710 FOR I=B+1 TO62:POKE 832+I+L*64,0:NEXT I,L 
 711 FOR L=3 TO22:READ B:FOR I=0 TOB:READ A 
 712 POKE 14912+I+L*64,A:NEXT 
 713 FOR I=B+1 TO62:POKE 14912+I+L*64,0 
 715 NEXT I,L:RETURN 
 875 Z$=CHR$ (18)+" "+CHR$ (146):W$="{3SPACE}" 
 890 X$=CHR$ (157)+" ":L$(P)="STE" 
 891 FOR I=1 TO24:U$=U$+CHR$ (175) 
 892 V$=V$+CHR$ (183):W$=W$+" ":NEXT 
 900 POKE F,11:PRINTCHR$ (147);:POKE U,11:POKE V+28,255:G$(99)="MONSTER" 
 901 FOR I=0 TO7:POKE V+I,0:NEXT :POKE V+16,0 
 902 FOR I=2 TO5:PRINTSPC( I)CHR$ (109); 
 903 PRINTSPC( 36-I*2)CHR$ (110):NEXT 
 904 PRINTSPC( 6)CHR$ (111)V$CHR$ (112) 
 905 FOR I=1 TO8:PRINTSPC( 6)CHR$ (165); 
 906 PRINTSPC( 24)CHR$ (167):NEXT 
 907 PRINTSPC( 6)CHR$ (108)U$; 
 908 PRINTCHR$ (186):FOR I=5 TO2STEP -1 
 909 PRINTSPC( I)CHR$ (110); 
 910 PRINTSPC( 36-I*2)CHR$ (109):NEXT 
 911 POKE V+23,0:POKE V+29,0:POKE V+40,2 
 912 POKE V+21,255:IF R=20OR R=90 THENPOKE V+28,0 
 1070 POKE U,11:FOR I=1 TO4:R$(I)="":NEXT 
 1071 IF R=0 THENR$=R$+" ":GOTO 1102 
 1072 IF R=99AND MO=0 THENGOSUB 5800:GOTO 1101 
 1073 IF R=99 THEN1101 
 1075 IF R>5 THENR$(1)="N-":GOSUB 3100 
 1080 R$=A$:IF R<26 THENR$(2)="S-" 
 1090 IF INT (R/5)<>R/5 THENR$(3)="O-":GOSUB 3200 
 1092 IF G$(R)="LOCH" THEN4900 
 1093 J=R/2:IF J<>INT (J)OR G$(R)=""OR TY=1 THEN1095 
 1094 ON JGOSUB 5000,5100,5300,5200,5400,5500,5600,5700,5900,5960,7000 
 1095 B=(R-1)/5:IF LE=1AND R=2 THENGOSUB 5040 
 1100 IF INT (B)<>B THENR$(4)="W-":GOSUB 3005 
 1101 IF R=99 THENGOSUB 6540 
 1102 G$=G$(R):R$="":FOR I=1 TO4:R$=R$+R$(I) 
 1105 NEXT :IF G$(R)="" THENG$="NICHTS" 
 1106 IF TY=1 THEN6930 
 1120 POKE 214,20:POKE 211,0:SYS T 
 1121 POKE U,15:PRINT" RICHTUNG: "R$X$; 
 1125 POKE 211,38-LEN (G$):PRINTG$:LA=0 
 1130 POKE 211,0:POKE 214,22:SYS T 
 1131 POKE U,15:PRINT" KOMMANDO: "Z$; 
 1135 POKE F,27:K$="":B2=R:POKE 198,0 
 1140 GET A$:IF A$="" THEN1140 
 1145 IF A$=CHR$ (13)OR LA>26 THEN1180 
 1146 IF A$=" " THEN1160 
 1147 IF A$=CHR$ (20) THEN3297 
 1150 IF A$<"A"OR A$>"Z" THEN1140 
 1160 K$=K$+A$:POKE 211,11:POKE 214,22 
 1170 SYS T:PRINTK$Z$;:LA=LA+1:GOTO 1140 
 1180 IF K$="N" THENIF R$(1)="N-" THENR=R-5 
 1190 IF K$="S" THENIF R$(2)="S-" THENR=R+5 
 1200 IF K$="W" THENIF R$(4)="W-" THENR=R-1 
 1210 IF K$="O" THENIF R$(3)="O-" THENR=R+1 
 1220 IF B2=R THEN1240 
 1221 IF QU=1 THEN2200 
 1230 POKE F,11:GOTO 900 
 1240 N$=LEFT$ (K$,3):POKE U,14:Z=INT (RND (1)*3+1) 
 1241 PRINTCHR$ (157)" ":PRINT:POKE 211,1 
 1245 E$=RIGHT$ (K$,3):IF N$<>"NIM" THEN1350 
 1250 IF E$="NZE"AND R=4 THEN4020 
 1251 IF E$="EUZ"AND R=99 THEN4040 
 1256 IF E$="CHE"AND R=22 THEN4040 
 1260 IF E$="MER"AND R=10 THEN4040 
 1270 IF E$="FER"AND R=2 THEN4060 
 1275 IF E$="OLZ"AND R=18 THEN4040 
 1280 IF E$="IST"AND R=6 THEN4080 
 1290 IF E$="MPE"AND R=8 THEN4100 
 1291 IF E$="DEN"AND R=12 THEN4040 
 1293 IF E$="MIT"AND R=16 THEN4040 
 1294 IF E$="ANK"AND R=18 THENZ=2:GOTO 2930 
 1295 IF E$="UCH"AND R=20 THEN4040 
 1298 GOTO 2910 
 1350 IF N$<>"GIB" THEN1370 
 1355 IF E$="DEN"OR E$="MER"OR E$="CHE" THENIF R=6OR R=99 THEN4120 
 1356 IF E$="FER"AND R=99 THEN4120 
 1357 IF E$="EUZ"AND QU=1 THEN2300 
 1360 GOTO 2995 
 1370 IF N$<>"DRU" THEN1430 
 1380 IF E$="TER" THENIF R=14 THEN4140 
 1430 IF N$<>"LIS" THEN1520 
 1431 IF QU=1 THEN2200 
 1435 IF L$(1)<>"STE" THEN2997 
 1440 POKE F,11:POKE 214,8:POKE 211,0 
 1441 SYS T:FOR I=1 TO11 
 1445 PRINTSPC( 8)CHR$ (18)LEFT$ (W$,13) 
 1450 NEXT :W=8:IF R<>2AND R<>18AND R<>20 THENPOKE V+21,0 
 1456 FOR I=0 TOP:IF L$(I)="" THENNEXT :GOTO 1500 
 1460 IF L$(I)="MER" THENP$="HAMMER" 
 1464 IF L$(I)="EUZ" THENP$="KREUZ" 
 1465 IF L$(I)="DEN" THENP$="ORDEN" 
 1466 IF L$(I)="FER" THENP$="OPFER" 
 1470 IF L$(I)="SEL" THENP$="SCHLUESSEL" 
 1472 IF L$(I)="MIT" THENP$="DYNAMIT" 
 1473 IF L$(I)="CHE" THENP$="FLASCHE" 
 1474 IF L$(I)="OLZ" THENP$="STREICHHOLZ" 
 1485 W=W+1:POKE 214,W:POKE 211,9:SYS T 
 1490 PRINTCHR$ (18)P$:NEXT 
 1500 POKE F,27:POKE 198,0:WAIT 198,1:GOTO 900 
 1520 IF N$<>"SPR" THEN1550 
 1530 PRINT"DEIN KOPF KNALLTE"; 
 1535 PRINT" AN DIE DECKE"; 
 1540 GOTO 9999 
 1550 IF N$<>"ZUE" THEN1570 
 1555 IF E$="MIT" THEN4800 
 1570 IF N$<>"OEF" THEN1575 
 1571 IF R<>18 THEN2910 
 1573 GOTO 6700 
 1575 IF N$<>"BEF" THEN1577 
 1576 GOTO 6000 
 1577 IF N$<>"GEH" THEN1579 
 1578 IF RIGHT$ (K$,4)="LOCH" THENR=99:GOTO 900 
 1579 IF N$="HOC"AND R=99 THENR=16:GOTO 900 
 1580 IF N$<>"TRI" THEN2000 
 1581 FOR I=1 TOP:IF L$(I)<>"CHE" THENNEXT :GOTO 1583 
 1582 IF KR=0 THENGOSUB 6500:GOTO 1590 
 1583 PRINT"WAS DENN";:GOTO 2998 
 1590 PRINT"DU FUEHLST DICH NUN"; 
 1595 PRINT" KRAEFTIGER";:KR=1:GOTO 6750 
 2000 GOTO 2950 
 2100 FOR I=1 TOP:IF L$(I)<>"FER" THENNEXT :GOTO 
 2200 POKE 214,24:POKE 211,1:SYS T:POKE U,5 
 2205 PRINT"QUASIMODO HAT DICH GETOETET"; 
 2210 GOTO 9999 
 2300 FOR I=1 TOP:IF L$(I)<>"EUZ" THENNEXT :GOTO 2200 
 2310 POKE F,11:PRINTCHR$ (147);:POKE U,11:TY=1:GOTO 902 
 2910 GOSUB 4000:IF QU=1 THEN2200 
 2920 IF Z=1 THENPRINT"SELTEN SO GELACHT"; 
 2930 IF Z=2 THENPRINT"TOTAL UNMOEGLICH"; 
 2940 IF Z=3 THENPRINT"DAS KANN ICH NICHT"; 
 2945 GOTO 2998 
 2950 IF QU=1 THEN2200 
 2951 GOSUB 4000:IF K$="O"OR K$="W"OR K$="S"OR K$="N" THEN2990 
 2970 IF Z=1 THENPRINT"VERSTEH DICH NICHT"; 
 2980 IF Z=2 THENPRINT"DO YOU SPEAK GERMAN"; 
 2981 IF Z=3 THENPRINT"IST MIR UNBEKANNT"; 
 2985 GOTO 2998 
 2990 PRINT"RICHTUNG NICHT "; 
 2991 PRINT"MOEGLICH";:GOTO 2998 
 2995 FOR I=1 TOP:IF L$(I)<>E$ THENNEXT :GOTO 2997 
 2996 IF R<>6AND R<>99 THENPRINT"WEM DENN";:GOTO 2998 
 2997 PRINT"HAST DU NICHT"; 
 2998 POKE 211,1:FOR I=1 TO1350:NEXT :IF R=99AND MO=0 THEN6770 
 2999 POKE 214,22:POKE 211,11:SYS T 
 3000 PRINTW$:PRINT:PRINTW$"{11SPACE}";:GOTO 1102 
 3001 GOSUB 4000:PRINT"GIBT ES HIER"; 
 3002 PRINT" NICHT";:GOTO 2998 
 3005 POKE 214,3:POKE 211,1:SYS T 
 3010 PRINTCHR$ (170)CHR$ (109) 
 3020 PRINT" "CHR$ (170)" "CHR$ (109) 
 3030 PRINT" "CHR$ (170)CHR$ (183)CHR$ (112) 
 3040 FOR I=1 TO9 
 3050 PRINT" "CHR$ (170)" "CHR$ (167):NEXT 
 3060 PRINT" "CHR$ (170)CHR$ (175)CHR$ (186) 
 3065 PRINT" "CHR$ (170)"{2SPACE}" 
 3070 PRINT" "CHR$ (170)" " 
 3080 PRINT" "CHR$ (110):RETURN 
 3100 POKE 214,5:POKE 211,16:SYS T 
 3110 FOR I=1 TO6:PRINTCHR$ (175);:NEXT 
 3120 PRINTSPC( 33)CHR$ (170)CHR$ (109); 
 3130 FOR I=1 TO4:PRINTCHR$ (175);:NEXT 
 3140 PRINTCHR$ (110)CHR$ (180) 
 3150 FOR I=1 TO6:PRINTSPC( 15)CHR$ (170)CHR$ (170); 
 3160 PRINTSPC( 4)CHR$ (180)CHR$ (180):NEXT 
 3170 PRINTSPC( 15)CHR$ (186)CHR$ (110); 
 3180 PRINT"{4SPACE}"CHR$ (109)CHR$ (108):RETURN 
 3200 POKE 214,3:POKE 211,35:SYS T 
 3210 PRINTCHR$ (110)CHR$ (180) 
 3220 PRINTSPC( 34)CHR$ (110)" "CHR$ (180) 
 3230 PRINTSPC( 34)CHR$ (111)CHR$ (183); 
 3240 PRINTCHR$ (180):FOR I=1 TO9 
 3250 PRINTSPC( 34)CHR$ (180)" "CHR$ (180) 
 3260 NEXT :PRINTSPC( 34)CHR$ (108)CHR$ (175)CHR$ (180) 
 3265 PRINTSPC( 34)"{2SPACE}"CHR$ (180) 
 3270 PRINTSPC( 35)" "CHR$ (109) 
 3280 PRINTSPC( 37)CHR$ (109):RETURN 
 3297 IF LA<1 THEN2999 
 3298 LA=LA-1:K$=LEFT$ (K$,LA):POKE 211,11 
 3299 PRINTK$Z$" ";:GOTO 1140 
 3310 DATA 62,0,3,192,0,12,48,0,48,12,0,0 
 3320 DATA 3,0,12,3,0,15,3,0,7,3,0,53,3,0 
 3330 DATA 15,3,0,15,195 
 3340 DATA 0,15,204,0,13,240,0,7,192,0,3 
 3350 DATA 192,0,2,160,0,2,32,0,2,40 
 3360 DATA 0,2,40,0,2,40,0,2,40 
 3370 DATA 0,2,40,62,0,2,40,0,2,40 
 3380 DATA 0,2,40,0,1,245,0,1,245,0,1,117 
 3390 DATA 0,1,85,0,0,84,0,0,80,0,1,80,0 
 3400 DATA 1,64,0,5,64,0,5,0,0,21,0,0,5,0 
 3410 DATA 0,5,0,0,1,64,0,1,192,0,3,192,0 
 3420 DATA 0,240,0,3,240,62 
 3430 DATA 0,48,0,0,112,0,0,248,0,0,248,0 
 3440 DATA 1,252,0,12,252,0,13,254,0,15 
 3450 DATA 254,224,7,253,224,7,251,224,25 
 3460 DATA 253,192,31,255,192,111,255,216 
 3470 DATA 111,255,184,119,255,120,63,255 
 3480 DATA 240,31,255,224,7,255,0,3,254,0 
 3490 DATA 1,252,0,0,248,0,25 
 3500 DATA 0,160,0,0,160,0,5,85,0,5 
 3510 DATA 85,0,1,84,0,1,84,0,1,84,0 
 3520 DATA 1,84,0,0,80,22 
 3600 DATA 0,255,0,0,195,0,3,243,0,15,255 
 3610 DATA 0,1,81,0,15,255,0,1,81,0,0,65 
 3620 DATA 62,0,16,0,0,252,0,3,255,0,3 
 3630 DATA 255,0,3,253,0,3,255,0,15 
 3640 DATA 255,192,15,255,192,2,170,128,2 
 3645 DATA 170,128,2,170,0,2 
 3650 DATA 170,0,0,168,0,0,252,0,3,255,0 
 3660 DATA 15,255,64,15,255,240,15,255,208 
 3670 DATA 15,63,240,15,63,208,5,61,80,31 
 3680 DATA 15,63,240,0,160,0,3,239,192,0 
 3690 DATA 255,0,0,255,0,0,240,0,0,240,0,0 
 3700 DATA 240,0,0,240,0,0,252,0,0,252 
 3710 DATA 37,1,64,0,63,252,0,85,116,0,255 
 3720 DATA 252,0,255,252,0,63,240,0,1,64 
 3730 DATA 0,1,64,0,1,64,0,1,64,0,1,64,0 
 3740 DATA 1,64,0,1,64 
 3750 DATA 18,29,0,0,55,0,0,29,0,0,5,0,0 
 3760 DATA 5,0,0,4,0,0,4 
 3770 DATA 9,252,0,0,220,0,0,220,0,0,252 
 3771 DATA 7,255,196,0,255,208,0,255,192 
 3772 DATA 61,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 3773 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 3774 DATA 0,0,1,64,0,5,80,0,21,208,1,21 
 3775 DATA 84,4,21,84,4,85,85,20,85,85,84 
 3776 DATA 86,85,81,86,21,81,90,0,81,86 
 3777 DATA 62,81,86,0,81,213,128,81,117,0 
 3778 DATA 69,89,64,85,93,80,85,91,112,85 
 3779 DATA 86,48,85,85,0,85,85,0,21,85,0 
 3780 DATA 21,85,0,5,84,0,1,84,0,0,84,0,0 
 3785 DATA 85,0,0,21,0,0,21,0,0,84,0,0,84 
 3790 DATA 0,0,85,64,0,93,192 
 3800 DATA 56,255,255,240,0,0,0,255,255,240 
 3805 DATA 255,255,240,255,15,240,255,255 
 3810 DATA 240,255,255,240,0,0,0,255,255 
 3815 DATA 240,255,255,240,255,255,48,255 
 3820 DATA 255,48,255,255,48,255,255,240,255 
 3830 DATA 255,240,255,255,240,80,0,80,64 
 3840 DATA 0,16,64,0,16 
 3900 DATA 56,255,255,240,192,0,48,192,0,32 
 3905 DATA 192,0,48,192,0,48,192,0,48,192 
 3910 DATA 0,48,192,0,48,255,255,240 
 3915 DATA 255,255,240,255,255,48,255,255 
 3920 DATA 48,255,255,48,255,255,240,255 
 3930 DATA 255,240,255,255,240,80,0,80,64 
 3940 DATA 0,16,64,0,16,3,86,0,0,86,45 
 3941 DATA 63,240,0,74,80,0,115,240,0,124 
 3942 DATA 80,0,110,240,0,78,144,0,70,240 
 3943 DATA 0,102,176,0,110,240,0,110,80,0 
 3944 DATA 110,240,0,110,144,0,126,240,0 
 3945 DATA 62,0,0,14,0,0,2 
 3946 DATA 62,0,2,0,0,2,0,0,7,0,0,7,0,0 
 3947 DATA 15,128,0,15,128,0,31,192,0,31 
 3948 DATA 192,0,63,224,0,63,224,0,255,248 
 3949 DATA 0,64,16,0,88,208,0,45,160,1,224 
 3950 DATA 60,7,240,95,31,215,79,63,136 
 3951 DATA 131,63,13,131,126,7,16,126,34,0 
 3952 DATA 62,126,34,0,124,4,16,124,32,16 
 3953 DATA 250,64,8,251,64,8,249,252,5,248 
 3954 DATA 12,15,248,28,8,252,22,28,252,50 
 3955 DATA 7,252,34,1,124,42,1,126,44,2 
 3956 DATA 62,38,14,62,39,30,126,49 
 3957 DATA 240,124,18,225,127,18,225,127 
 3958 DATA 206,227,126,108,98,126,56,99,60,192,0,0,240,0,0,240,0,0,252,0,0,254 
 3959 DATA 0,0,127,0,0,63,128,0,63,128 
 3960 DATA 0,111,128,0,207,128,0,15,128,0 
 3961 DATA 15,128,0,31,128,0,31,128,0,31 
 3962 DATA 128,0,159,128,0,191,0,0,191,0 
 3963 DATA 0,191,0,0,191,0,0,191 
 3964 DATA 54,126,56,99,126,56,99,126 
 3965 DATA 56,126,56,99,126,56,99,126 
 3966 DATA 56,126,56,99,126,56,99,126 
 3967 DATA 56,126,56,99,126,56,99,126 
 3968 DATA 56,126,56,99,126,56,99,126 
 3969 DATA 56,126,56,99,126,56,99,126 
 3970 DATA 56,126,56,99,126,56,99,126 
 3971 DATA 27,16,0,0,48,0,0,48,0,0,252,0 
 3972 DATA 0,252,0,0,168,0,0,168,0,0,252 
 3973 DATA 0,0,252,0,0,252,18 
 3974 DATA 32,0,0,32,0,0,168,0,0,168,0,0 
 3975 DATA 32,0,0,32,0,0,32 
 4000 POKE 211,1:POKE 214,24:SYS T:RETURN 
 4020 PRINTCHR$ (157)"HORNISSEN HABEN DICH"; 
 4030 PRINT" TOETLICH GESTOCHEN";:GOTO 9999 
 4040 IF E$="EUZ"AND R=99AND MO=0 THEN6770 
 4042 IF SR=1 THENSR=0:SE=1:GOTO 4045 
 4043 IF RIGHT$ (G$(R),3)<>E$ THEN3001 
 4044 G$(R)="" 
 4045 P=P+1:POKE 214,20:SYS T 
 4046 IF R<>18 THENFOR I=0 TO1:POKE V+I,0:NEXT 
 4047 POKE V+2,0:POKE V+3,0:POKE V+4,0 
 4048 POKE V+5,0:L$(P)=E$:POKE U,15 
 4051 PRINTSPC( 27)"{4SPACE}NICHTS" 
 4052 IF E$="UCH" THENQU=1:G$(20)="QUASIMODO":POKE F,11:GOSUB 6800 
 4053 GOTO 2999 
 4060 IF KR=1 THENLE=1:GOTO 4040 
 4065 PRINT"IST ZU SCHWER";:GOTO 2998 
 4080 PRINT"DER POLIZIST HAT"; 
 4095 PRINT" DICH VERHAFTET";:GOTO 9999 
 4100 PRINT"HAENGT ZU HOCH";:GOTO 2998 
 4120 FOR I=1 TOP 
 4121 IF L$(I)="DEN"AND E$="DEN"AND R=6 THEN4130 
 4122 IF L$(I)="FER"AND E$="FER"AND R=99 THENL$(I)="":GOTO 6600 
 4123 IF L$(I)=E$ THEN4156 
 4124 NEXT :IF R=6 THEN4080 
 4125 GOTO 6770 
 4130 PRINT"DU BEKOMMST EINEN";:OD=1 
 4131 PRINT" SCHLUESSEL DAFUER";:L$(I)="SEL":GOSUB 6500:GOTO 6750 
 4140 PRINT"EINE FALLTUER HAT"; 
 4155 PRINT" SICH GEOEFFNET ";:GOTO 9999 
 4156 L$(I)="" 
 4160 GOTO 2998 
 4800 FOR L=1 TOP:IF L$(L)="MIT" THEN4871 
 4815 NEXT :IF G$(R)="DYNAMIT" THEN4871 
 4820 GOTO 3001 
 4860 PRINT"DIE EXPLOSION HAT DICH"; 
 4870 PRINT" ZERFETZT";:GOTO 9999 
 4871 IF SE=0 THENPRINT"MIT WAS DENN";:GOTO 2998 
 4872 POKE F,11:G$(R)="LOCH":FOR I=0 TO6 
 4873 POKE SI+I,0:NEXT :J=1:I1=99:GOSUB 4880 
 4874 FOR I=1 TO2000:NEXT :FOR J=15 TO0STEP -.5 
 4875 I1=30:GOSUB 4880:NEXT :FOR I=0 TO6 
 4876 POKE SI+I,0:NEXT 
 4877 IF L$(L)="MIT" THEN4860 
 4878 GOTO 900 
 4880 POKE SI+24,J:POKE SI+5,15:POKE SI+1,I1 
 4881 POKE SI,200:POKE SI+4,129:RETURN 
 4900 POKE 214,14:POKE 211,6:SYS T 
 4906 POKE U,11:PRINTSPC( 2);:FOR I=1 TO5 
 4910 PRINTCHR$ (175);:NEXT :PRINTSPC( 34); 
 4920 PRINTCHR$ (110)SPC( 4)CHR$ (110) 
 4930 PRINTSPC( 7)CHR$ (109)CHR$ (175); 
 4940 PRINTCHR$ (175)CHR$ (110)CHR$ (183) 
 4950 GOTO 1095 
 5000 POKE V+37,6:POKE V+38,15:POKE V+39,2 
 5010 POKE 2040,13:POKE V,207:POKE V+1,107 
 5030 POKE 2041,14:POKE V+2,207:POKE V+3,128 
 5040 PRINTCHR$ (19):POKE U,1:FOR I=1 TO7 
 5050 PRINTSPC( 25)CHR$ (167):NEXT 
 5055 PRINTSPC( 25)CHR$ (110):POKE U,11:RETURN 
 5100 POKE V+37,11:POKE V+38,5:POKE V+39,8 
 5110 POKE 2040,15:POKE 2041,236 
 5120 POKE V,100:POKE V+1,145:POKE V+40,8 
 5130 POKE V+2,100:POKE V+3,166:RETURN 
 5200 POKE V+37,7:POKE V+38,2:POKE 2040,237 
 5210 POKE V+16,255:POKE V,46:POKE V+1,110:RETURN 
 5300 POKE V+37,1:POKE V+38,14:POKE V+39,8 
 5310 POKE V+40,8:POKE 2040,238:POKE 2041,239 
 5320 POKE V,100:POKE V+1,143 
 5330 POKE V+2,100:POKE V+3,164:RETURN 
 5400 POKE V+37,7:POKE V+38,8:POKE V+39,8 
 5410 POKE V,233:POKE V+1,160:POKE 2040,240:RETURN 
 5500 POKE V+37,2:POKE V+38,7:POKE V+39,8 
 5510 POKE V,140:POKE V+1,130:POKE 2040,241:RETURN 
 5600 POKE V+37,3:POKE V+38,4:POKE V+39,8 
 5610 POKE V,140:POKE V+1,130:POKE 2040,242:RETURN 
 5700 POKE V+37,7:POKE V+38,2:POKE V,100 
 5710 POKE V+1,170:POKE 2040,243:RETURN 
 5800 POKE V+37,6:POKE V+38,8:POKE V+39,4 
 5810 POKE V,90:POKE V+1,93:POKE V+2,90 
 5820 POKE V+3,135:POKE 2040,244:POKE V+23,7 
 5830 POKE V+29,7:POKE 2041,245:RETURN 
 5900 POKE V+37,12:POKE V+38,4:POKE V,230 
 5905 IF SE=1OR SR=1 THENPOKE 2040,247:GOTO 5930 
 5920 POKE 2040,246 
 5930 POKE V+1,147:FOR I=1 TOP:IF L$(I)="OLZ"OR SE=1 THENNEXT :RETURN 
 5940 POKE 2041,248:POKE V+40,7 
 5950 POKE V+2,235:POKE V+3,152:RETURN 
 5960 POKE V+39,7:POKE V,240:POKE V+1,165 
 5970 POKE 2040,249:POKE V+28,0:RETURN 
 6000 FOR I=1 TO40:LA$=LA$+" ":NEXT 
 6005 LA$=LA$+"NIMM-GIB-GEH-HOCH-LIST" 
 6010 LA$=LA$+"-ZUENDE-SPRING-TRINK" 
 6020 LA$=LA$+"-DRUECKE-OEFFNE":POKE 211,40 
 6025 FOR I=1 TO40:LA$=LA$+" ":NEXT 
 6030 POKE 214,21:SYS T 
 6040 FV=FV+1:IF FV>98 THEN2998 
 6050 PRINTMID$ (LA$,FV,40)CHR$ (145); 
 6060 FOR I=1 TO130:NEXT :GOTO 6040 
 6500 POKE SI+24,8:POKE SI+4,0:POKE SI+5,10 
 6501 POKE SI+6,22:FOR I=30 TO10STEP -.4 
 6505 POKE SI+1,255-PEEK (SI):POKE SI+4,33:POKE SI,200+I 
 6520 POKE SI+4,17:NEXT :POKE SI+4,0:RETURN 
 6540 IF G$(R)="" THENRETURN 
 6550 POKE V+4,200:POKE V+5,100 
 6560 POKE 2042,255:POKE V+41,15:RETURN 
 6600 POKE F,11:PRINT"MONSTER NAHM LEICHE UND VERSCHWAND"; 
 6610 MO=1:G$(R)="{2SPACE}KREUZ":MO=1:POKE V+1,0 
 6620 POKE V,0:POKE V+2,0:POKE V+3,0 
 6630 POKE F,27:GOSUB 6500:GOTO 6750 
 6700 FOR I=1 TOP:IF L$(I)<>"SEL" THENNEXT :PRINT"MIT WAS DENN";:GOTO 2998 
 6705 IF SE=1OR SR=1 THENPRINT"IST SCHON OFFEN";:GOTO 2998 
 6710 GOSUB 6500:POKE 2040,247 
 6730 PRINT"IM SCHRANK LIEGT";:SR=1 
 6740 PRINT" EIN STREICHHOLZ"; 
 6750 POKE 198,0:WAIT 198,1:GOTO 2999 
 6770 PRINT"DAS MONSTER HAT DICH GEBISSEN";:GOTO 9999 
 6800 FOR I=0 TO3:POKE 2040+I,250+I:POKE V+39+I,2 
 6810 NEXT :POKE V,150:POKE V+2,150 
 6820 POKE V+1,120:POKE V+3,141:POKE V+4,151 
 6830 POKE 214,10:POKE 211,17:SYS T 
 6840 POKE U,1:PRINTZ$:FOR I=1 TO5 
 6850 POKE 211,16:PRINTZ$Z$Z$:NEXT 
 6900 POKE 2042,253:POKE V+41,2:POKE V+6,172 
 6910 POKE V+7,135:POKE 2043,252:POKE V+42,2 
 6920 POKE V+5,162:RETURN 
 6930 POKE 214,24:SYS T 
 6935 PRINT" GRATULIERE DER HEXER VERSCHWINDET";:POKE V+6,0 
 6940 FOR I=16045 TO16255 
 6950 POKE I,255-PEEK (I):NEXT :POKE F,27 
 6960 FOR I=1 TO300:POKE 16000+RND (1)*255,0 
 6965 POKE V+37+RND (1)*5,RND (1)*15+1 
 6966 NEXT :POKE V+21,0:PRINTCHR$ (147);:END 
 7000 POKE V+37,3:POKE V+38,5:POKE V+39,13 
 7020 POKE V,180:POKE V+1,160:POKE 2040,254 
 7030 RETURN 
 9999 FOR I=1 TO3000:NEXT :POKE V+21,0:RUN 21