home *** CD-ROM | disk | FTP | other *** search
- 0 GOSUB5000:GOSUB1500:GOSUB200:GOSUB1000:GOSUB1100:GOSUB1300:GOSUB1010
- 1 GOSUB1140
- 5 GOSUB3000:GOSUB4000:GOSUB1500:TI$="000000"
- 7 GOSUB20:GOTO7
- 10 JOY=0:JY=PEEK(56320):J2=15-(JYAND15):ONJ2GOTO11,12,12,13,13,13,13,14:RETURN
- 11 JOY=-40:RETURN
- 12 JOY=40:RETURN
- 13 JOY=-1:RETURN
- 14 JOY=1:RETURN
- 20 GOSUB10
- 25 GETA$:IFA$="L"THENGOSUB491:LEVITATE=-1
- 27 IFTI$>"000300"THENA$="YOUR TIME RAN OUT":GOTO600
- 30 TEMP=PEEK(MAN+JOY)-40:IFTEMP<0THENLEVITATE=0:GOTO170
- 40 ONTEMPGOSUB50,60,80,90,110,130,140,150,160:GOTO170
- 50 GOSUB220:JOY=0:RETURN
- 60 IFNOTLEVITATETHENPOKEMAN,BLANK:GOSUB125:A$="YOU FELL INTO A PIT":GOTO105
- 70 K=1:RETURN
- 80 KEY=-1:POKE1303,43:POKE55575,1:GOSUB401:RETURN
- 90 GOSUB320:IFNOTSWRDTHENA$="YOU LOST TO A BEAST":GOTO600
- 100 GOSUB360:RETURN
- 105 GOSUB220:FORTD=1TO200:NEXT:GOTO600
- 110 BOMB=BOMB-1:POKE1823+40*BOMB,45:POKE56095+40*BOMB,1:IFBOMB=0THEN500
- 120 RETURN
- 125 GOSUB260:GOSUB220:FORTD=1TO200:RETURN
- 130 RETURN
- 140 IFNOTKEYTHENGOSUB220:JOY=0:RETURN
- 150 RETURN
- 160 SWRD=-1:GOSUB401:POKE1423,49:POKE55695,1:RETURN
- 170 XH=0:POKEMAN,BLANK:MAN=MAN+JOY:POKEMAN,FIGURE:IFK=1THENPOKEMAN,42:K=1
- 180 Q=MAN-1024:Y=INT(Q/40):X=(Q-Y*40)*8:IFX>255THENXH=INT(X/256):X=X-XH*256
- 190 Y=Y*8+32:POKEHXSPRITE,XH:POKELXSPRITE,X:POKEYSPRITE,Y:BLANK=32
- 195 IFK=1THENK=0:BLANK=42
- 196 RETURN
- 200 FORI=1TO4:READNO(1,I),DUR(1,I):NEXT
- 201 FORI=1TO7:READNO(2,I),NL(2,I),DUR(2,I):NEXT
- 205 RETURN
- 210 DATA8,100,7,50,7,50,12,300,14
- 211 DATA2,24,100,2,24,100,2,24,100
- 212 DATA2,163,100,2,24,100,2,163,100
- 213 DATA3,35
- 220 REM BUMP SOUND
- 230 POKEH1,15:POKEL1,10
- 240 POKEVOLUME,15:POKEATTDEC,20:POKESUSTREL,5:POKEWAVE,NOISE
- 250 FORTD=1TO10:NEXT:POKEWAVE,NOISE-1:FORTD=1TO2:NEXT:RETURN
- 260 REM FALLING SOUND
- 270 POKE ATTDEC,10:POKESUSTREL,10:POKEVOLUME,15
- 280 FORI=200TO100STEP-1
- 290 POKEH1,I:POKEH2,100:POKEWAVE,TRIANGLE
- 300 FORTD=1TO3:NEXT:POKEWAVE,TRIANGLE-1:FORTD=1TO3:NEXT:NEXTI
- 310 RETURN
- 320 REM LION SOUND
- 330 POKEATTDEC,100:POKESUSTREL,100:POKEVOLUME,15
- 340 POKEH1,2:POKEH2,10:POKEWAVE,NOISE:FORTD=1TO1000:NEXT:POKEWAVE,NOISE-1
- 350 FORTD=1TO100:NEXT:RETURN
- 360 REM VICTORY SOUND
- 370 POKEATTDEC,100:POKESUSTREL,100:POKEVOLUME,15
- 380 FORI=1TO4:POKEH1,NO(1,I):POKEH2,100:POKEWAVE,SAW
- 390 FORTD=1TODUR(1,I):NEXT:POKEWAVE,SAW-1:FORTD=1TODUR(1,I):NEXT:NEXT
- 400 RETURN
- 401 POKEATTDEC,14:POKESUSTREL,201
- 402 POKEH1,120:POKEWAVE,SAW:FORTD=1TO100:NEXT:POKEWAVE,SAW-1
- 403 FORTD=1TO200:NEXT:RETURN
- 410 REM WIN SOUND AND OPENING SOUND
- 420 POKEVOLUME,15:POKEATTDEC,17:POKESUSTREL,140
- 430 FORI=1TO7:POKEH2,NO(2,I):POKEH1,NL(2,I):POKEWAVE,SAW
- 440 FORTD=1TODUR(2,I):NEXT:POKEWAVE,SAW-1:FORTD=1TODUR(2,I):NEXT:NEXT:RETURN
- 450 REM LOSE SOUND
- 460 POKEATTDEC,100:POKESUSTREL,120:POKEVOLUME,15
- 470 POKEH1,4:POKEL1,48:POKEWAVE,SAW:FORTD=1TO500:NEXT:POKEWAVE,SAW-1
- 480 FORTD=1TO400:NEXT:POKEH1,2:POKEL1,24:POKEWAVE,SAW:FORTD=1TO900:NEXT
- 485 POKEWAVE,SAW-1:FORTD=1TO500:NEXT:RETURN
- 490 REM LEVITATE SOUND
- 491 POKEATTDEC,100:POKESUSTREL,250:POKEVOLUME,15
- 492 FORA=10TO20:FORB=20TO27:POKEH1,A+B:POKEL1,40:POKEWAVE,TRIANGLE
- 493 FORTD=1TO2:NEXT:POKEWAVE,TRIANGLE-1:FORTD=1TO1:NEXT:NEXT:NEXT
- 494 RETURN
- 500 POKE53269,0:GOSUB410:POKEBACKGROUND,1:FORTD=1TO2000:NEXT
- 510 PRINT"ô":POKE251,50:PRINT"ÉCONGRATULATIONS !"
- 520 PRINT"YOU SAVED THE CASTLE!"
- 530 GOTO700
- 600 POKE53269,0:POKEBACKGROUND,1:GOSUB450:FORTD=1TO2000:NEXT
- 610 PRINT"ôÉ"SPC(((40-(LEN(A$)))/2))A$
- 620 PRINT"YOU LOST THE CASTLE!"
- 630 GOTO710
- 700 POKE251,0:FORTD=1TO1500:NEXT:PRINT"THIS TIME"
- 710 FORTD=1TO500:NEXT:PRINT" HIT Y FOR FURTHER ADVENTURES"
- 720 GETANS$:IFANS$=""THEN720
- 730 IFANS$="Y"THEN POKE BACKGROUND,0:GOTO5
- 740 POKE251,0:END
- 1000 FORL=679TO703:READA:POKEL,A:NEXT:POKE806,167:POKE807,2:POKE251,40:RETURN
- 1010 PRINTCHR$(144)"ô FIND THE BOMBS HIDDEN IN THE DUNGEON."
- 1020 PRINT"DON'T FALL INTO A PIT OR GET EATEN BY "
- 1030 PRINT"A BEAST. PRESS THE 'L' KEY FOR A "
- 1040 PRINT" LEVITATION SPELL. YOU HAVE 3 MINUTES"
- 1050 PRINT" TO FULFILL YOUR QUEST."
- 1060 PRINT:PRINT:PRINT" (HIT BUTTON TO BEGIN)"
- 1065 GOSUB10:IFJY<>111THEN1065
- 1067 RETURN
- 1070 DATA72,138,72,152,72,166,251,240,8,160,255,136,208,253,202
- 1080 DATA208,248,104,168,104,170,104,76,202,241
- 1100 CM=14336:CS=53248:POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
- 1110 FORI=0TO1023:POKECM+I,PEEK(CS+I):NEXT
- 1120 FORI=CM+320TOCM+320+95:READA:POKEI,ABS(A-255):NEXT
- 1130 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1:RETURN
- 1140 POKE53272,(PEEK(53272)AND240)OR14
- 1150 RETURN
- 1160 DATA247,227,246,193,215,247,235,235,255,34,34,34,255,68,68,68
- 1170 DATA255,231,195,129,129,131,199,255,255,191,95,64,90,186,255,255
- 1180 DATA191,121,112,1,0,135,55,115,255,239,247,231,195,195,231,255
- 1190 DATA255,255,255,255,255,255,255,255,255,255,255,129,129,255,255,255
- 1200 DATA255,255,255,255,255,255,255,255,255,253,251,247,143,207,175,255
- 1210 DATA191,121,112,1,0,135,55,115,255,255,231,0,0,231,255,255
- 1300 PRINTCHR$(147):POKEBACKGROUND,0:POKEBRDER,0
- 1305 READL,N:IFN=-1THENGOSUB410:FORTD=1TO2500:NEXT:RETURN
- 1310 FORJ=0TON:READS:POKEL+J,S:NEXT:GOTO1305
- 1360 DATA1234,17,85,64,73,112,64,110,85,64,75,64,114,64,112,32,32,112,64,75
- 1370 DATA1274,16,93,32,32,107,64,115,74,64,73,32,93,32,93,32,32,107,64
- 1380 DATA1314,17,74,64,75,75,32,125,85,64,75,32,75,32,74,64,75,109,64,73
- 1420 DATA1393,20,114,64,73,73,32,110,85,73,110,85,64,73,112,64,75,85,64,73
- 1421 DATA85,73
- 1430 DATA110
- 1440 DATA1433,20,93,32,93,93,32,93,93,93,93,93,64,73,107,64,32,93,32,93,93
- 1441 DATA93,93
- 1450 DATA1473,20,113,64,75,74,64,115,125,74,75,74,64,75,109,64,73,74,64,75,125
- 1455 DATA74,75,-1,-1
- 1500 WAVE=54276:NOISE=129:TRIANGLE=17:VOL=54296:SOUND=54272:ATTDEC=54277
- 1505 BACKGROUND=53281:BRDER=53280:LEVITATE=0:SWRD=0:KEY=0:BOMB=3:LOIN=44
- 1510 SAW=33:SUSTREL=54278:H1=54273:H2=54272:FIGURE=40:BLANK=32
- 1515 HXSPRITE=53264:LXSPRITE=53248:YSPRITE=53249:POKE53271,1:POKE53277,1
- 1517 POKE53269,1:FORI=832TO896:POKEI,255:NEXT:POKE2040,13
- 1518 POKE53287,1:POKE53275,1
- 1520 FORI=SOUNDTOSOUND+28:POKEI,0:NEXT:POKEVOLUME,15:RETURN
- 3000 I=49152:IFPEEK(I+2)=216THENSYS49160:GOTO3025
- 3010 READA:IFA=256THENSYS49160:GOTO3025
- 3020 POKEI,A:I=I+1:GOTO3010
- 3025 FORI=1024TO1062:POKEI,41:POKEI+960,41:NEXT
- 3027 FORI=55296TO56295:POKEI,0:NEXT:RETURN
- 3030 DATA1,0,216,255,255,255,40
- 3040 DATA0,169,41,133,251,169,40
- 3050 DATA133,253,169,4,133,252,133
- 3060 DATA254,169,147,32,210,255,162
- 3070 DATA0,160,0,169,41,145,253
- 3080 DATA200,192,39,208,249,24,165
- 3090 DATA253,105,40,133,253,144,2
- 3100 DATA230,254,232,224,23,208,229
- 3110 DATA160,0,169,4,145,251,169
- 3120 DATA255,141,15,212,169,128,141
- 3130 DATA18,212,173,27,212,41,3
- 3140 DATA133,173,170,10,168,24,185
- 3150 DATA0,192,101,251,133,170,185
- 3160 DATA1,192,101,252,133,171,24
- 3170 DATA185,0,192,101,170,133,253
- 3180 DATA185,1,192,101,171,133,254
- 3190 DATA160,0,177,253,201,41,208
- 3200 DATA18,138,145,253,169,32,145
- 3210 DATA170,165,253,133,251,165,254
- 3220 DATA133,252,76,62,192,232,138
- 3230 DATA41,3,197,173,208,189,177
- 3240 DATA251,170,169,32,145,251,224
- 3250 DATA4,240,26,138,10,168,162
- 3260 DATA2,56,165,251,249,0,192
- 3270 DATA133,251,165,252,249,1,192
- 3280 DATA133,252,202,208,238,76,62
- 3290 DATA192,169,1,160,0,153,0
- 3300 DATA216,153,0,217,153,0,218
- 3310 DATA153,0,219,200,208,241,96,256
- 4000 REM CHARACTER PLACEMENTS
- 4010 T=32:Q=42:FORI=1TO7:GOSUB4100:NEXT
- 4020 Q=44:FORI=1TO6:GOSUB4100:NEXT
- 4030 Q=45:FORI=1TO3:GOSUB4100:NEXT
- 4040 Q=43:FORI=1TO2:GOSUB4100:NEXT
- 4050 Q=47:FORI=1TO5
- 4055 GOSUB4100
- 4060 IF(PEEK(PLACE-40)<>32)OR(PEEK(PLACE+40)<>32)THENPOKEPLACE,BLANK:GOTO4055
- 4070 NEXT
- 4080 Q=49:GOSUB4100
- 4090 Q=FIGURE:GOSUB4100:MAN=PLACE
- 4095 T=41:Q=32:FORI=1TO50:GOSUB4100:NEXT:RETURN
- 4100 X=(RND(1)*36+2):Y=INT(RND(1)*20+3):PL=Y*40+X+1024:IFPEEK(PLACE)<>TTHEN4100
- 4110 POKEPLACE,Q:RETURN
- 5000 PRINT"ôPLEASE WAIT"
- 5010 RETURN
- 59999 END
- 60000 OPEN15,8,15,"S0:CASTLE DUNGEON":CLOSE15:SAVE"0:CASTLE DUNGEON",8
-