5 IFPEEK(828)=3THEN482
7 IFPEEK(828)<>0THEN14
8 POKE53281,0:POKE53280,0:PRINT"[147][154][142]"
10 POKE646,14:X=24:Y=3:GOSUB300:POKE828,1
11 FORI=0TO8:POKE1316+I,160:POKE1636+I,160:NEXT
12 FORI=0TO8:POKE1315+I*40,160:POKE1324+I*40,160:NEXT
14 PRINT"[154] KEYS:"AV:PRINT"[145]"TAB(24)"COINS:"RA
15 IFKI=1THENPRINT"[129]         YOU HAVE AN AXE"
17 POKE54296,0:POKE54296,15:POKE54296,0
20 SYS49152:POKE54296,2:POKE54296,0
25 JV=PEEK(56320):FR=JVAND16:JV=15-(JVAND15):IFJV=0ANDPE=16THEN25
27 IFFR=0THEN101
28 LX=0:LY=0
30 IFJV=1THENLI=-40:LY=-1:GOTO50
32 IFJV=2THENLI=40:LY=1:GOTO50
34 IFJV=4THENLI=-1:LX=-1:GOTO50
36 IFJV=8THENLI=1:LX=1:GOTO50
38 GOTO25
50 POKE50003,PEEK(1480+LI):SYS50000:IFPEEK(781)<>0THEN25
52 FORI=49155TO49233STEP6:PE=PEEK(I)+PEEK(I+1)*256:PE=PE+LI:HI=INT(PE/256)
54 LO=PE-HI*256:POKEI,LO:POKEI+1,HI:NEXT:X=X+LX:Y=Y+LY:GOTO20
100 POKE54296,0:POKE54296,15:POKE54296,0
101 MP=38000+X+Y*40:PE=PEEK(MP)
102 IFPE=71THENAV=AV+1:POKEMP,32:POKEMP+1000,0:GOTO494
104 IFPE=72THENRA=RA+1:POKEMP,32:POKEMP+1000,0:GOTO14
105 IFPE=31THENPOKEMP,32:KI=1:GOTO14
106 YL=PEEK(1440):AL=PEEK(1520):VA=PEEK(1479):OI=PEEK(1481)
108 IFYL=70ANDKI=1THENPOKEMP-40,81:POKEMP+960,5:GOTO14
110 IFAL=70ANDKI=1THENPOKEMP+40,81:POKEMP+1040,5:GOTO14
112 IFVA=70ANDKI=1THENPOKEMP-1,81:POKEMP+999,5:GOTO14
114 IFOI=70ANDKI=1THENPOKEMP+1,81:POKEMP+1001,5:GOTO14
116 IFYL=67ANDAV>0THENPOKEMP-40,32:POKEMP+960,0:AV=AV-1:GOTO14
118 IFAL=67ANDAV>0THENPOKEMP+40,32:POKEMP+1040,0:AV=AV-1:GOTO14
120 IFVA=68ANDAV>0THENPOKEMP-1,32:POKEMP+999,0:AV=AV-1:GOTO14
122 IFOI=68ANDAV>0THENPOKEMP+1,32:POKEMP+1001,0:AV=AV-1:GOTO490
123 IFPE=94THEN480
124 IFPE=65THEN650
125 IFPE<>73THEN25
126 VA=PEEK(39000+X+Y*40)
128 PRINT""
130 IFVA<>250THEN136
132 IFRR=0THENPRINT" YOU VISITED THE CASTLE AND GOT A KEY":RR=1:AV=AV+1:GOTO200
134 PRINT"     YOU VISITED THE CASTLE":GOTO200
136 IFVA<>247THEN140
138 IFVP=0THENVP=1:AV=AV+1:PRINT" YOU VISITED THE CASTLE AND GOT A KEY":GOTO200
139 GOTO134
140 IFVA<>35THEN145
142 IFCY=0THENCY=1:AV=AV+1:PRINT" YOU VISITED THE CASTLE AND GOT A KEY":GOTO200
143 GOTO134
145 IFVA<>45ANDVA<>253THEN160
147 GOTO600
160 IFVA<>65THEN25
170 PRINT"[155]   YOU CAME TO YOUR HOMECASTLE !":FORQ=0TO200:POKE54296,2
172 POKE54296,0:NEXT:GOTO700
200 FORW=0TO3000:NEXT:PRINT"[145]                                       ":GOTO14
300 PRINT"[147]"
302 PRINT"[153]              RETURN TO"
304 PRINT"    #$[176][191][170][185]  [176][191][177][187][162][181][170][185][178][174][190][179][173]+#$[][170][185] * "
306 PRINT"    %'[188][172][175][171]  [188][172][165][180][182][167][175][171][163][184][189][183]-\%'<>[175][171] @ "
308 PRINT""
310 PRINT"[158]      BY HARRI & ILPO HAKKARAINEN"
312 PRINT"            ^ 1987 HIH[192]SOFT"
314 RETURN
480 IFPEEK(828)=3THEN610
481 POKE828,3:SYS51000:PRINT"[144]":LOAD"7THE",8,1
482 IFKI=1THENPOKE38228,32
484 IFPO=1THENPOKE38220,32
486 IFKY=1THENPOKE38777,32
488 GOTO14
490 IFPEEK(828)=3THENPO=1
492 GOTO14
494 IFPEEK(828)=3THENKY=1
496 GOTO14
600 IFPEEK(828)=2THEN610
602 POKE828,2:SYS51000:PRINT"[144]":LOAD"6THE",8,1
610 POKE828,1:SYS51100:FORLL=1TO500:NEXT:GOTO14
650 PRINT""
651 IFRA=5THENAV=AV+1:RA=0:TM=1:PRINT"         YOU BOUGHT A KEY":GOTO200
652 IFTM=1THENPRINT"      THERE IS NOTHING TO BUY":GOTO200
654 PRINT"    YOU DO NOT HAVE ENOUGH COINS":GOTO200
700 PRINT" PRESS BUTTON TO START A NEW GAME"
702 WAIT56320,16,16
705 PRINT"[147][144]LOAD"CHR$(34)"THE HOMECASTLE !"CHR$(34)",8":POKE828,0
708 PRINT"RUN":POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE198,4:END