This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Spookbusters
-
Category:Games
-
Publisher/Developer:BELLCOM - Public Domain Library
Listing 1
1 GOSUB 9000 2 REM SPOOKBUSTERS BY WILLIAM DAGLE FOR ANTIC MAGAZINE 3 REM 5 SOUND 0,0,0,0:SOUND 1,0,0,0:? "":DIM A$(3),ARRAY(5):HSC=10000 10 DIF=8:LIFE=3:SCORE=0 11 ? "" 15 GOSUB 100:GOTO 200 20 POKE 77,0:TAR=0:GOTO 300 100 ? "":GOSUB 8000:POSITION 15,5:? "":DIF=DIF-2:IF DIF<1 THEN DIF=1 101 FOR TIM=1 TO 10:FOR TONE=35 TO 50:SOUND 0,TONE,10,10:FOR DE=1 TO 1:NEXT DE:NEXT TONE:FOR TT=50 TO 35 STEP -5 102 SOUND 0,TT,10,10:NEXT TT:NEXT TIM:SOUND 0,0,0,0:? "" 104 FOR I=1 TO 39 STEP 7:POSITION I,1:? "bc":NEXT I:A$="ef":POSITION 18,22:? A$:PX=18 106 FOR DE=1 TO 10:NEXT DE 110 FOR I=1 TO 70 115 A=INT(RND(0)*13)+3:POSITION A,2:? " ":POSITION A+11,2:? " ":TRAP 117 117 POSITION 0,2:? "":SOUND 1,180,8,8:POSITION 0,2:? " " 120 IF STICK(0)=11 THEN A$="gh":PX=PX-1:GOTO 130 125 IF STICK(0)=7 THEN A$="ef":PX=PX+1 130 IF PX<5 THEN PX=5 131 IF PX>33 THEN PX=33 134 LOCATE PX,22,HIT:LOCATE PX+1,22,HIT1 136 IF HIT<>32 OR HIT1<>32 THEN SCORE=SCORE+(10*I):GOSUB 5000:? "":FOR DE=1 TO 100:NEXT DE:GOTO 100 138 SOUND 0,50,12,10 139 POSITION PX,22:? A$ 149 SOUND 1,0,0,0:FOR DE=1 TO DIF:NEXT DE:SOUND 0,0,0,0 150 NEXT I 151 FOR I=1 TO 15:POSITION 0,2:? "":SOUND 1,140,8,8:POSITION 0,2:? " " 155 IF STICK(0)=11 THEN A$="gh":PX=PX-1:GOTO 160 156 IF STICK(0)=7 THEN A$="ef":PX=PX+1 160 IF PX<3 THEN PX=3 161 IF PX>36 THEN PX=36 162 LOCATE PX,22,HIT:LOCATE PX+1,22,HIT1 164 IF HIT<>32 OR HIT1<>32 THEN SCORE=SCORE+700:GOSUB 5000:? "":FOR DE=1 TO 100:NEXT DE:GOTO 100 165 POSITION PX,22:? A$:SOUND 0,60,12,10:SOUND 1,0,0,0 170 FOR DE=1 TO DIF:NEXT DE:SOUND 0,0,0,0 175 NEXT I 176 FOR I=1 TO 24:POSITION 0,0:? "":SOUND 1,130,8,8 180 IF STICK(0)=11 THEN A$="gh":PX=PX-1:GOTO 190 181 IF STICK(0)=7 THEN A$="ef":PX=PX+1 190 IF PX<3 THEN PX=3 191 IF PX>36 THEN PX=36 192 LOCATE PX,22,HIT:IF HIT<>32 THEN SCORE=SCORE+800:GOSUB 5000:? "":FOR DE=1 TO 100:NEXT DE:GOTO 100 193 POSITION PX,22:? A$:SOUND 0,50,12,10:SOUND 1,0,0,0 195 FOR DE=1 TO DIF:NEXT DE:SOUND 0,0,0,0 199 NEXT I:FOR DE=1 TO 20:NEXT DE:SCORE=SCORE+1700:RETURN 200 ? "":GOSUB 8000:POSITION 15,5:? "":TAR=0:DT=0:DEM1=1 205 V1=4:FOR NT=30 TO 70:SOUND 0,NT,10,V1:SOUND 1,NT+3,10,V1*0.7000000000000001:FOR WT=1 TO DUR*3:NEXT WT:V1=V1*1.03:NEXT NT 206 SOUND 2,35,8,12:V1=15:V2=15:V3=15:NT=DUR+5:ICR=0.79+DUR/100 207 SOUND 0,NT,8,V1:SOUND 1,NT+20,8,V2 208 SOUND 2,NT+50,8,V3:V1=V1*ICR:V2=V2*(ICR+0.05):V3=V3*(ICR+0.08):IF V3>1 THEN 207 209 FOR S=0 TO 2:SOUND S,0,0,0:NEXT S 210 TRAP 210:? "":FOR S=0 TO 3:SOUND S,0,0,0:NEXT S 211 COLOR 142:PLOT 1,0:DRAWTO 39,0:COLOR 130:PLOT 39,1:DRAWTO 39,22:COLOR 141:PLOT 39,22:DRAWTO 1,22:COLOR 130 212 PLOT 0,21:DRAWTO 0,1:FOR DE=1 TO 15:A=INT(RND(0)*35)+2:B=INT(RND(0)*18)+2:LOCATE A+1,B,C:LOCATE A,B,C2 213 IF C<>32 OR C2<>32 THEN NEXT DE 214 POSITION A,B:? "mn":NEXT DE 215 A=INT(RND(0)*35)+1:B=INT(RND(0)*19)+2:LOCATE A,B,C:IF C<>32 THEN 215 216 POSITION A,B:? "l" 217 FOR DE=1 TO 5:NEXT DE 218 ANI=108:ST=STICK(0):IF ST=15 THEN 230 219 SOUND 0,200,8,4:IF A$="l" THEN POSITION A,B:? " ":GOTO 221 220 POSITION A,B:? " " 221 IF ST=7 THEN A=A+1:A$="ef":DT=7:GOTO 225 222 IF ST=11 THEN A=A-1:A$="gh":DT=11:GOTO 225 223 IF ST=14 THEN B=B-1:A$="l":DT=14:GOTO 225 224 IF ST=13 THEN B=B+1:A$="l":DT=13 225 IF A<2 THEN A=2 226 IF A>37 THEN A=37 227 IF B<1 THEN B=1 228 IF B>21 THEN B=21 230 LOCATE A,B,C:IF C=109 OR C=110 THEN GOSUB 5000:GOTO 200 232 IF A$="l" THEN 235 233 LOCATE A+1,B,C:IF C=109 OR C=110 THEN GOSUB 5000:GOTO 200 235 POSITION A,B:? A$ 240 IF STRIG(0)=1 THEN 260 241 IF DT=14 THEN GOTO 900 242 IF DT=7 THEN GOTO 920 243 IF DT=13 THEN GOTO 940 244 IF DT=11 THEN GOTO 960 260 IF TAR>=10 THEN 20 265 IF INT(RND(0)*40)>DIF+30 THEN 270 266 GOTO 279 270 ANI=103:DV=B:FOR I=35 TO 1 STEP -1:POSITION I,DV:? "ijk ":SOUND 0,(35*5),12,8:SOUND 1,35*4,8,8 271 LOCATE A,B,C:IF C=105 THEN GOSUB 5000:GOTO 200 272 POSITION A,B:? A$ 273 IF STICK(0)=7 THEN A$="ef":POSITION A,B:? A$ 274 IF STICK(0)=7 AND STRIG(0)=0 THEN 920 275 SOUND 1,0,0,0:SOUND 0,0,0,0:NEXT I:POSITION I,B:? " " 279 IF INT(RND(0)*40)>DIF+30 THEN 281 280 GOTO 299 281 ANI=98:DV=B:FOR I=1 TO 34:POSITION I,DV:? " bc":SOUND 0,(35*5),12,8:SOUND 1,35*4,8,8 282 LOCATE A,B,C:IF C=99 THEN GOSUB 5000:GOTO 200 283 POSITION A,B:? A$ 284 IF STICK(0)=11 THEN A$="gh":POSITION A,B:? A$ 285 IF STICK(0)=11 AND STRIG(0)=0 THEN 960 286 SOUND 1,0,0,0:SOUND 0,0,0,0:NEXT I:POSITION I,B:? " " 299 SOUND 0,0,0,0:GOTO 218 300 ? "":FOR J=-10 TO 10:V=64:FOR J=1 TO 30 302 SOUND 0,V-J,10,15:SOUND 1,F+J,10,15:FOR K=1 TO 30-J:NEXT K:SOUND 0,0,0,0:SOUND 1,0,0,0:FOR K=1 TO 1 305 NEXT K:NEXT J 306 GOSUB 8000:POSITION 11,3:? "GOZER THE GOZARIAN":POSITION 17,5:? "AWAITS" 310 FOR I=15 TO 0 STEP -0.2:SOUND 0,10+10*RND(0),0,I:SOUND 1,100+10*RND(0),16,I:SETCOLOR 2,3,14*RND(0) 311 SETCOLOR 1,5,14*RND(0):SETCOLOR 3,4,14*RND(0):NEXT I 315 SETCOLOR 0,0,15:SETCOLOR 1,5,4:SETCOLOR 2,9,6:SETCOLOR 3,4,6:SETCOLOR 4,0,0:FOR DE=1 TO 100:NEXT DE:? "" 330 POSITION 0,10:? "" 331 POSITION 0,11:? "QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ" 335 FOR I=0 TO 3:POSITION 3,I:? "":NEXT I:POSITION 1,4:? "":FOR I=5 TO 9 340 POSITION 1,I:? "":NEXT I:FOR I=0 TO 3:POSITION 30,I:? "":NEXT I:PUFF=0 343 POSITION 27,4:? "":FOR I=5 TO 9:POSITION 27,I:? "":NEXT I:TOP=0:A=3:ZZ=13:ZY=13:B=13 345 ZX=12:ZW=12:POSITION 10,14:? "mn":POSITION 13,17:? "bc":POSITION 20,20:? "mn":POSITION 13,13:? "mn" 346 POSITION 20,18:? "bc":POSITION 10,19:? "bc":FOR I=12 TO 22:POSITION 26,I:? "":NEXT I:LOOP=0:TOP=0:TAR=0 350 LOOP=LOOP+1:ST=STICK(0):IF ST=15 THEN 364 351 POSITION A,B:? " " 352 IF ST=14 THEN B=B-1:GOTO 360 354 IF ST=13 THEN B=B+1:GOTO 360 356 IF ST=7 THEN A=A+1:GOTO 360 360 SOUND 0,200,8,4 361 IF A>35 THEN A=35 362 IF B<12 THEN B=12 363 IF B>22 THEN B=22 364 LOCATE A+1,B,HIT:IF HIT=32 THEN 369 365 IF HIT=102 THEN 369 366 GOSUB 5000:GOTO 300 369 POSITION A,B:? "ef" 370 IF INT(RND(0)*25)+1=5 THEN 375 371 GOTO 390 375 ANI=103:DV=B:FOR I=35 TO 1 STEP -1:POSITION I,DV:? "ijk ":SOUND 0,(35*5),12,8:SOUND 1,35*4,8,8 376 LOCATE A,B,C:IF C=105 THEN GOSUB 5000:GOTO 300 380 POSITION A,B:? "ef" 383 IF STICK(0)=7 AND STRIG(0)=0 THEN 480 385 SOUND 1,0,0,0:SOUND 0,0,0,0:NEXT I:POSITION I,B:? " " 390 IF STRIG(0)=0 THEN 480 400 REM 402 POSITION 8,ZW:? " " 403 POSITION 12,ZZ:? " ":POSITION 16,ZX:? " ":POSITION 20,ZY:? " ":POSITION 24,ZW:? " ":ZZ=ZZ+4:ZY=ZY+2 406 ZX=ZX+1:ZW=ZW+3 407 IF ZZ>22 THEN ZZ=13 410 IF ZY>22 THEN ZY=13 411 IF ZX>22 THEN ZX=12 413 IF ZW>22 THEN ZW=12 415 POSITION 12,ZZ:? "a":POSITION 16,ZX:? "a":POSITION 20,ZY:? "a":POSITION 24,ZW:? "a":POSITION 8,ZW:? "a" 420 IF PUFF=1 THEN 600 421 LOCATE A+1,B,HIT:IF HIT=32 OR HIT=102 THEN 425 422 GOSUB 5000:GOTO 300 425 POSITION A,B:? "ef":IF LOOP>4+(DIF/1.5) THEN TOP=TOP+1:DIG=1:LOOP=0:GOSUB 500:SOUND 0,0,0,0 430 IF A>28 AND TAR>7 AND B=18 AND STRIG(0)=0 THEN PUFF=1:GOTO 480 440 IF DIG=1 THEN POSITION GH,GV:? " ":GH=INT(RND(0)*30)+7:GV=INT(RND(0)*8)+12:POSITION GH,GV:? "l":DIG=0 450 SOUND 0,0,0,0:POSITION 38,17:? "":POSITION 38,18:? "":POSITION 38,19:? "":GOTO 350 480 FOR LI=A+2 TO 37:SOUND 0,(50+(15*LI)),12,10:LOCATE LI,B,C 481 IF C<>32 THEN TAR=TAR+1:SCORE=SCORE+500:B1=B:A1=LI:GOSUB 5500:COLOR 32:PLOT A,B:DRAWTO LI,B:LI=A:GOTO 420 482 POSITION LI,B:? "" 483 NEXT LI:COLOR 32:PLOT A,B:DRAWTO LI,B:SOUND 0,0,0,0:LI=A:GOTO 420 500 SOUND 0,200,8,10:L=10-TOP:POSITION 18,L:? "yzz":IF TOP=1 THEN RETURN 501 L=L+1:POSITION 18,L:? "|":IF TOP=2 THEN RETURN 502 L=L+1:POSITION 16,L:? "XXXXXXXX":IF TOP=3 THEN RETURN 503 L=L+1:POSITION 15,L:? "XXXXXXXXXX":IF TOP=4 THEN RETURN 504 L=L+1:POSITION 15,L:? "XXXXXXXXXX":IF TOP=5 THEN RETURN 505 L=L+1:POSITION 15,L:? "QXXXXXXXXQ":IF TOP=6 THEN RETURN 506 L=L+1:POSITION 15,L:? " XXXXXX ":IF TOP=7 THEN RETURN 507 L=L+1:POSITION 15,L:? " XX XX ":IF TOP=8 THEN RETURN 508 L=L+1:POSITION 15,L:? " XX XX":IF TOP=9 THEN RETURN 510 L=L+1:POSITION 17,L:? "QQ QQ" 515 FOR DE=1 TO 75:NEXT DE 525 A=PEEK(756):FOR I=1 TO 254 STEP 10:POKE 756,I:SOUND 0,I,8,8:SOUND 1,I/2,6,4:SOUND 2,I,12,6 530 NEXT I:POKE 756,A:GOSUB 5000:GOTO 300 600 SCORE=SCORE+2000 605 FOR I=1 TO 15:POKE 755,0:FOR DE=1 TO 3:SOUND 1,180,8,DE*5:NEXT DE 610 POKE 755,4:FOR DE=1 TO 3:SOUND 1,220,8,DE*5:NEXT DE 615 SOUND 0,240,12,I:NEXT I 617 A=PEEK(756):FOR I=1 TO 254 STEP 10:POKE 756,I:SOUND 0,I,12,10:SOUND 1,I/2,12,10:SOUND 2,I,10,8 618 NEXT I:POKE 756,A:? "":SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0 625 FOR I=1 TO 25:A=INT(RND(0)*10)+5:POSITION A,1:? " X X X":POSITION 0,0:? "":NEXT I 626 FOR I=1 TO 24:POSITION 0,1:? " ":POSITION 0,0:? "":NEXT I 627 POKE 755,2:FOR DE=1 TO 25:NEXT DE 630 GOTO 11 700 END 900 FOR LI=B-1 TO 2 STEP -1:SOUND 0,(150+(5*B)),12,10:LOCATE A,LI,C 905 IF C=109 OR C=110 THEN TAR=TAR+1:SCORE=SCORE+500:B1=LI:A1=A:GOSUB 5500:COLOR 32:PLOT A,B:DRAWTO A,LI:GOTO 230 907 POSITION A,LI:? "a" 910 NEXT LI:COLOR 32:PLOT A,B:DRAWTO A,LI:SOUND 0,0,0,0:GOTO 230 920 FOR LI=A+2 TO 37:SOUND 0,(50+(15*LI)),12,10:LOCATE LI,B,C 925 IF C>ANI THEN TAR=TAR+1:SCORE=SCORE+500:B1=B:A1=LI:GOSUB 5500:COLOR 32:PLOT A,B:DRAWTO LI,B:LI=A:GOTO 230 927 POSITION LI,B:? "" 930 NEXT LI:COLOR 32:PLOT A,B:DRAWTO LI,B:SOUND 0,0,0,0:LI=A:GOTO 230 940 FOR LI=B+1 TO 19:SOUND 0,(50+(15*B)),8,10:LOCATE A,LI,C 945 IF C=109 OR C=110 THEN TAR=TAR+1:SCORE=SCORE+500:B1=LI:A1=A:GOSUB 5500:COLOR 32:PLOT A,B:DRAWTO A,LI:GOTO 230 947 POSITION A,LI:? "a" 950 NEXT LI:COLOR 32:PLOT A,B:DRAWTO A,LI:SOUND 0,0,0,0:LI=B:GOTO 230 960 FOR LI=A-1 TO 2 STEP -1:SOUND 0,(50+(15*LI)),12,10:LOCATE LI,B,C 965 IF C>ANI THEN TAR=TAR+1:SCORE=SCORE+500:B1=B:A1=LI:GOSUB 5500:COLOR 32:PLOT A-1,B:DRAWTO LI,B:GOTO 230 967 POSITION LI,B:? "" 970 NEXT LI:COLOR 32:PLOT A,B:DRAWTO LI,B:SOUND 0,0,0,0:LI=A:GOTO 230 5000 REM DEATH 5005 LIFE=LIFE-1:FOR S=0 TO 3:SOUND S,0,0,0:NEXT S 5006 FOR NTE=50 TO 35 STEP -7:SOUND 0,NTE,10,14:FOR DE=1 TO 20:NEXT DE:NEXT NTE 5007 V=64:FOR J=1 TO 3:SOUND 0,V-J,8,10:SOUND 1,F+J,6,10:FOR K=1 TO 30-J:NEXT K:SOUND 0,0,0,0:SOUND 1,0,0,0 5008 FOR K=1 TO 10:NEXT K:NEXT J 5009 SOUND 0,0,0,0 5010 IF LIFE<=0 THEN 6000 5015 RETURN 5500 A1=A1-1:IF A1<1 THEN A1=1 5501 FOR LP=250 TO 1 STEP -15 5502 SOUND 0,LP,6,8:SOUND 1,LP/2,12,8:SOUND 2,LP/3,8,8 5505 POSITION A1,B1:? " ":FOR DE=1 TO 2:NEXT DE:POSITION A1,B1:? "**":NEXT LP:POSITION A1,B1:? " " 5507 IF I<>0 THEN POSITION I,B:? " " 5509 FOR S=0 TO 3:SOUND S,0,0,0:NEXT S 5510 FOR DE=1 TO 3:NEXT DE:ST=15:RETURN 6000 FOR S=0 TO 3:SOUND S,0,0,0:REM END OF GAME 6005 ? "" 6010 POSITION 15,5:? "END OF GAME":IF SCORE<10000 THEN POSITION 12,7:? " " 6011 IF SCORE>HSC THEN POSITION 6,7:? "GHOSTBUSTER":POSITION 11,11:? "" 6015 POSITION 15,15:? "SCORE: ";SCORE:IF SCORE>HSC THEN HSC=SCORE 6020 IF PEEK(53279)=6 THEN 6025 6021 IF STRIG(0)=0 THEN 6025 6022 GOTO 6020 6025 ? "":POSITION 9,4:? "" 6030 POSITION 17,9:? "opqrs":POSITION 17,10:? "tuvwx" 6035 POSITION 14,15:? "":FOR DE=1 TO 20:NEXT DE 6040 IF PEEK(53279)=6 THEN 10 6041 IF STRIG(0)=0 THEN 10 6042 GOTO 6040 7000 RETURN 8000 ? "":POSITION 17,7:? SCORE:RETURN 9000 MT=PEEK(106):GT=MT-8:POKE 106,GT 9005 GRAPHICS 0:SETCOLOR 2,0,0:POKE 752,1:DL=PEEK(560)+256*PEEK(561)+4:FOR I=2 TO 23:POKE DL+I,4:NEXT I:POKE DL-1,68 9006 SETCOLOR 0,0,15:SETCOLOR 1,5,4:SETCOLOR 2,9,6:SETCOLOR 3,4,6:SETCOLOR 4,0,0 9010 CROM=PEEK(756)*256:CRAM=GT*256:POKE 756,GT 9015 FOR N=264 TO 471:POKE CRAM+N,PEEK(CROM+N):NEXT N:POSITION 9,3:? "" 9016 POSITION 5,6:? "T H E S U P E R N A T U R A L":POSITION 16,8:? "G A M E" 9017 FOR N=0 TO 263:POKE CRAM+N,PEEK(CROM+N):NEXT N:FOR N=472 TO 775:POKE CRAM+N,PEEK(CROM+N):NEXT N 9020 FOR N=776 TO 1023:READ A:POKE CRAM+N,A:NEXT N 9025 FOR N=448 TO 455:READ A:POKE CRAM+N,A:NEXT N:FOR N=392 TO 395:POKE CRAM+N,170:NEXT N 9026 FOR N=396 TO 399:POKE CRAM+N,0:NEXT N 9030 POSITION 17,16:? "opqrs":POSITION 17,17:? "tuvwx" 9035 POSITION 14,19:? "" 9040 TI=0:TMS=35:FOR XX=1 TO 35:IR=0.3:LM=2:GOSUB 9060 9045 NEXT XX:IR=0.9:LM=1:GOSUB 9060 9050 TMS=TMS-1:IF TMS<1 THEN 9040 9055 GOTO 9040 9060 VL=15 9061 SOUND 0,40,10,VL:SOUND 1,42,10,VL:VL=VL*IR 9062 IF PEEK(53279)=6 THEN 5 9063 IF STRIG(0)=0 THEN 5 9065 IF VL>LM THEN 9061 9067 TI=TI+1:IF TI=99 THEN SOUND 0,0,0,0:SOUND 1,0,0,0:GOTO 9080 9070 VL=15:GOTO 9061 9080 IF PEEK(53279)=6 THEN 5 9081 IF STRIG(0)=0 THEN 5 9082 GOTO 9080 9400 GRAPHICS 0 10010 DATA 4,16,4,16,4,16,4,16 10020 DATA 1,6,21,29,7,65,17,5 10030 DATA 80,100,85,221,117,84,80,64 10040 DATA 16,8,36,24,36,251,60,0 10070 DATA 3,23,29,29,22,2,40,128 10080 DATA 192,0,196,80,128,0,192,192 10090 DATA 3,0,19,5,2,0,3,3 10100 DATA 192,212,116,116,148,128,40,2 10120 DATA 3,59,253,7,83,15,63,60 10130 DATA 0,240,255,255,255,63,0,3 10140 DATA 0,0,240,255,243,207,63,255 10160 DATA 60,60,105,40,40,65,65,65 11050 DATA 5,25,21,85,64,0,0,0 11060 DATA 64,144,80,64,0,0,0,0 12010 DATA 0,0,0,0,2,2,6,21 12020 DATA 0,42,169,161,129,129,133,85 12030 DATA 154,86,85,221,85,117,86,170 12040 DATA 128,170,42,2,0,10,170,170 12050 DATA 0,0,128,128,160,160,160,85 12090 DATA 21,6,2,2,0,0,0,0 12100 DATA 106,170,169,129,165,170,42,0 12110 DATA 170,165,85,85,85,85,170,170 12120 DATA 149,85,85,85,86,106,170,128 12130 DATA 84,164,160,160,128,128,0,0 13010 DATA 0,0,63,255,255,21,255,21 13030 DATA 0,0,255,255,255,85,255,85 13040 DATA 0,0,240,252,252,106,254,80 13080 DATA 80,80,80,80,80,80,80,80 13090 DATA 22,22,21,20,21,21,21,21 13100 DATA 165,37,85,85,0,64,80,85 13110 DATA 106,98,85,84,1,5,21,85 13120 DATA 85,85,85,85,85,85,85,85 15000 REM UPON RUNNING, AFTER A BRIEF INITIALIZATION, THE ALARM BELL RINGS AND YOU PRESS START OR FIRE TO PLAY. 15010 REM FIRST STOP: SLIME ATTACK WHERE YOU MUST DODGE LEFT OR RIGHT TO AVOID THE SLIME ATTACK BEFORE GOING 15020 REM TO THE SECOND STOP: DINING ROOM WHERE YOU WILL BE ATTACKED BY THEGATEKEEPER AND THE HEAD GHOST. 15030 REM AIM THE JOYSTICK IN THEIR DIRECTION AND PRESS THE FIRE BUTTON. AVOID BUMPING INTO THE SMALL SPOOKS. 15040 REM ONCE YOU HAVE ZAPPED 10 GHOSTS, YOU MOVE ON TO THE THIRD STOP:THE BATTLE WITH GOZAR THE GOZARIAN! 15050 REM MOVE ACROSS THE SCREEN, AVOIDING THE ENERGY BEAMS AND GOZAR, THEN POSITION YOURSELF IN FRONT OF 15060 REM THE GATE AND FIRE. THIS MUSTBE DONE BEFORE THE STAY-PUFF MAN REACHES THE TOP. IN ORDER TO KILL 15070 REM THE GATE KEEPER, YOU MUST HOLD THE STICK IN HIS DIRECTION AND FIRE. ALSO, YOU MUST DESTROY SEVEN 15080 REM TARGETS BEFORE YOU CAN FIRE ON THE GATE. GOOD SPOOK BUSTING!
References
Listing downloads
Downloads
Copyright holder