1 REM GHOST MANOR 
2 REM BY FRANK BACKES 
3 REM GRAPHIK 
10 POKE56,26:FORI=7168TO7679:POKE,0:NEXT 
20 FOR1=7168T07168+287:READY:POKEI,Y:NEXT 
23 FOR1=7456T07456+34:READY:POKILY:NEXT:FORI=7491TO7491+15:READY:FOKEI,Y:NEXT 
30 DATA66,26,66,126,66,126,66,126,0,56,120,56,16,62,58,250,56,56,120,120,72,78,194,0 
31 DATA56,56,56,40,62,10,8,24,0,28,30,28,8,124,92,95,28,28,28,30,18,114,67,0,28,28,28,20 
... todo
32 DATAl24,72,16,24,0,56,56,56,16,254,186,186,186,56,56,56,40,40:8,8:184,56,56,5 6,40:40 
33 DATA32,32,73,223,253,2551255:255,255,255,255:235,255,255,255;233,194,130,254, 248,255 
34 DATA254,252:255,254,255,127.255,63,127,63,255,127,63,255:255,126:122,56:56,48 #16:129 
35 DATA66:36,24,60:90,129,66,0,66;165,24,60,90:129,129,238,238,0:187,187:187,0:2 38:60 
36 DATA/26,195,255,129,255,102#60,60,118:215,213,213,215#118,60,255,221,136:221, 255)221 
37 DATR136,221,0,12,28,62,62,126,56,0,48,51,6S,254,252,124,56,56,12,204t253,127, 63,62 
38 DATA28,28,7,5,7,72,240,224,64,0,110:46:0,27,11,11,0,110,118/116/0,216,208,208 ,0:118 
39 DATA219,219,0,221:221,221,0419/238,110:0:29,13,5,001,60,126,126,60,0,040,002 53,58 
40 DATA40,8,0,000A0,255:119085,68,4,0,0,0:0,0,0,0,0,0,0,0.24,24:24,255,129,255,2 4,24 
41 DATA24,24,24:24,24:60,102,195:235:255,255,255d255,255,255,255 
42 DATA169,127,14144,145,173,32,145,41,128,133,251,169:255,141:34,145,173:31014 5,41:28 
43 DATA24,101,251: 133:251,173:31,145,41 32) 133,252: 96 
44 DATA225,225,223,223,228,228,225,225,223,223,215,215.219,219,209,209

1 REM *HOST MANOR
2 REM MRSCMINENV.R.
3 REM BY FRANK BRCKES
10 ROR1=6700707110:RERDY:P0KE1,Y:NEXT
20 BATR160,16,185,206)31,201,15,240)15,201,16,240,26,136,192)1,240)3,24,144,237) 24,144
21 BATR30,169,32,153)206,31,169,16,200,1163)206)31,136)24,144;230,169.$32)153)206) 31)169
22 DRTA15,200,153)206,31,136)24/144)215,173,.223)31,201/15)2404,24,144,10)169,32 )141
23 DRIR223,31)169,16,141,208.3/
24 DRTFi160 t 2) 185,118)31,201,18,240) 15, 19s 240)26,200) 192,17,240s 3)24,144, 237, 24,144
25 B8T830)169)32,153)110,31,169,19,136,153)118,01)200.24,144)230'169,32,153,118, 31,169
26 DRTRIS.136,153,118)31,200)24,144,215,173,119A31,201,18:240,3)24,144,10)169)32 ,141
27 1WiTR119)31A169,19,141)134,31
8 DRTR160,132,185454,30,201o21,240,8)136)192)0240,26)24,144)241,169)32,15345 4,30
29 BRTR152,24,105,22,160,169,2U153)154,30/152,24,233)22J168.24)144)225,160,13)1 85,30,31
30 ARTR201,21,240:61200,192,22,240,16,24,144)241)169,32,153)30,31t16921,153,154 )30,24
31 DRTA144,235
32 DATR160,13,1$5,110,30,201,23p240)8)200,192.19)240)18,24)144,241/169.32,153,11 0,30
33 DATR169,23136:153,110)30,200)24,144,233)160)17,185,110030.201,22,24S,etW6,1 92)11
34 DATR240,18)24)1444241)169,32,153.110)30)169,22)200,163)110,30)136)24,144)233
35 BRTR173,122,300201,23:240,10A73,128,30,701,Z2,240)16,244.44,23)169)32,141,12 2)30
3$ DRTR169,22)141s122130,24,144,10,169)32fr141,120,30,169,23)141.120,30
37 DRTH173,223)fle,a01,30)240010,173)229,30,201,31,240,16,24,144,18/169,31,141,22 3,30
36 DATR169)312141#223,30,24)144)5,169,30,141,229)30,160)8)185,220)30,201,31$240) 8,136
9 DRTR192,2)240,19)24.444,241)169,32,153,220,30,200)169,31,153)220,30)136,24)14 4,21
40 BRTRi60)4,185,220,30)201

50 P0IT650,128:8V87456:0ETWIFAS="0"ORPEEK(252)=9THEN70 
60 007050 70 R=0:Ft3:8=1 
80 BE8142:C=17:R=3000:04232:N=32:0=2:Pa1fX=7491 
100 PRINT":3":POKE36879, 14:POKE36869;255:PRINT"MISIPHOOHOST NRNOR**" 
110 PRINTIODWYM t" 
111 PRINT"0 0" 
112 PRINT"Q0 3 7 3 QQQ0Q00 QOM" 
113 PRINT"Qe Q2 Q" 
114 PRINT"Ye Qe U 0" 
115 PRINT"Q@ Qe 2" 
116 PRINT"EQQ ttttttne 2" 
117 PRINTIWT @Q@ 0" 
118 PRINT"int @Q@ Q" 
119 PRINT"MOT 000 UQ" 
120 PRINT"130 QQQ QQQQQ0 QQ000J.7"; 
121 PRINT"Q 0 0"; 
1221FR/NT"Q @ $ Q"; 
123 PRINT"Q R @SRRQ"; 
124 PRINT"LeKKUKK KMAWKKKKIWA"; 
125 PRINT"1.0 N 14 TTTM"; 
126 PRINT"1.0 RTITM"; 
127 PRINT"Le P BTTTM";:IFS>3THENPOKE7893,21:POKES090,32 
128 PRINTWJJJJJJJJJJJJJJJJJJJ";:IFS>2THENPOKE7847,21:POKES059018 
129 POKE8164+21,35:POKE7746+18;24:IFS>1THENPOKE7806,22:ROKE8152;16 
130 PRINT"MUNNTIME";8;"M SCORE";R;"11 ":POKE36878;0450KE36877,0:U=0:/FM$2THENM=0 
131 POKE7680184-176:PO1KE7701,F+175 
140 POKE36278,15:P0KE36876;PEEK(X):X=X+1:1FX=7507THEKX=7491 
150 POKED+C;O:POKEB+C-22,P 155 IFM=1RNDPEEK(E+C+22)(>32TNENR=R+50 
160 SYS6700:IFPEEk(B+C)000RPEEK0340-2230PTHEN500 16$ IFPEEK(B+C+22)w32RNDM=OTHEN600 
170 IFB4C=7967THEN1000 
180 R=R-10:IFR=-10THEN500 
185 IFPEEK(B+C-44)=24THEN800 lee IFfIlTHENM=2:POKEB+C;W:POKEB+C-22;Q:B=B+22:O=O+U 
189 SYS7456:1FPEEK(BCO0RNUM=10PPEEK(B+C)032PNOM=2THEN500 
190 OETR$11FR$=""RNDPEEK(251)=456ANDPEEK(252)00THENFORTalT050:NEXTTIO070130 
195 POKEB+C;W:POKEB+C-22;Q:POKE36878,15:POKE36877;160 
200 IFRWR"ORPEEK(251)152THEN250 
210 IFR$="2"ORPEEK(251)=148THEN300 
220 IFRS="B"ORPEEK(251)=140THEN350 
230 IFFIWN"ORPEEK(251)=28THEN400 
240 IFRWN"RNOM=OORPEEK<252)sORNDM=OTHEN450 
245 GOT0130 
250 IPW=9THENE=B-22 
260 IFP=7THEH0=0+1:1F0=10THEN0=8 
265 IFP=7THEN490 270 P=7:0=8:8070490 
300 IFPEEK(B+C+22)=OTHENB=S+22 
310 IFPn7THEN0=0+1:IF0=10THEN0=8 
315 IFP=7THEN490 320 P=7:0n8:00T0490 
350 1PPECK(B+C-1)---0DRPEEK(8+C-1)=32THEmesC-1 
360 IFP=1THEN0=04-1:IF0x4THEN0=2 365 IFP=1THEN490 
370 Ps1.0=2:G0T0490 
400 /FPEEK(B+C+1)=0ORPEEK'S+C+1>=32THENC=C+1 
410 IFPn4THEN0=0+1:/F0=7TREN0=5 415 IFP=4THEN490 
420 Pft4:0=5:00T0490 
450 IFP=1THENU=1- 
451 IPP=4TNENUs-1 
455 IFFEEK(B+C-44-U)=32THEN8=S-22fM=160T0470 
460 0010130 
470 C=C-U 
499 WoPEEK(B+C):QmPEEK(B+C-22):00T0130 
500 FORN=1T05 
501 POKEW134:POKEB+C-22,33:POKE36078,15:FORG=200T0250;POKE36876,0:NENT:POKE368 76,0 
502 NEM 
503 POKE198;0 
510 POKE36678,0:F=F-1:IFF=9THEN530 
520 OOTOSO 
530 PRINT"Ol$SO411014101013111NONGRIS OVER!":FORT=1T02000:NEXT:00T050 
600 POKES+C-22,32:B=B+22:1FPEEK(B+C)032THENPOKEB+C;32:2=B-22:GOT0500 
605 POKEB+C;O:POKEB+C-22,P 
610 FORTIT0100:NEXT:00T0600 
ROO POKE7968,32:FORT=170150:NEXT:POKE7946,32:FORT=IT0150:NEXT:POKE7924,32 
810 POKEB+C-44032:POKE7768+C132.POKE7790+0;32:0070490 
1080 POKE36876,02POKE36878,15:FORO=1T0101FORH=150T0250STEP2:POKE36875,11;NEXTH,0 
1810 POKE36875,0:POKE36878,0:8=8+1:R=R+R:IFS=2THENF=F+1 
1020 007080