5 REM **MUSHROOM INVASION** BBC VERSION* * BY IAN THOMAS FROM ORIGINAL BY MICHAEL BEWE S* 10 ENVELOPE1,1,1,-1,1,1,1,1,128,0,0,-4,128 ,0 20 *FX11 30 GOSUB180 40 GOSUB310 50 GOSUB330 60 MODE5 70 COLOUR1:PRINTTAB(Y,X)CHR$224;CHR$225;CH R$226; 80 IFINKEY(-99) GOSUB450 90 IFINKEY(-26) Y=Y-1:PRINTTAB(Y+3,X)" " ; 100 IFINKEY(-122) Y=Y+1:PRINTTAB(Y-3,X)" "; 110 IFINKEY(-99) GOSUB450 120 IFY<1 Y=1 130 IFY>15 Y=15 140 COLOUR1:PRINTTAB(Y,X)CHR$224;CHR$225;CH R$226; 150 IFFNAT(X-1,Y)=131 OR FNAT(X-1,Y+1)=131 OR FNAT(X-1,Y+2)=131 GOTO480 160 GOSUB370 170 GOTO70 180 VDU23,224:FORM=0TO7:READX:VDUX:NEXT 190 VDU23,225:FORM=0TO7:READX:VDUX:NEXT 200 VDU23,226:FORM=0TO7:READX:VDUX:NEXT 210 VDU23,227:FORM=0TO7:READX:VDUX:NEXT 220 VDU23,228:FORM=0TO7:READX:VDUX:NEXT 230 VDU23,229:FORM=0TO7:READX:VDUX:NEXT 240 RETURN 250 DATA3,7,15,170,170,15,7,3 260 DATA255,255,255,170,170,255,255,255 270 DATA192,224,240,85,85,240,224,192 280 DATA24,126,255,255,60,24,24,24 290 DATA24,24,24,24,24,24,24,24 300 DATA145,90,126,60,60,126,90,145 310 X=31:Y=1:W=0:C=0 320 RETURN 330 MODE7:PRINT'''CHR$&82"The earth is bein g attacked by a fleet"'CHR$&82"of mindless bu t deadly mushrooms."'''''CHR$&82"As always,yo u are its sole defender."'''''CHR$&82"The lef t and right cursor keys will" 340 PRINTCHR$&82"shift you about and the sp ace bar fires"CHR$&82"your laser.The end is i nevitable:If"'CHR$&82"you're hit,you're dead, but try to notch"CHR$&82"up a mean score befo re you go." 350 PRINTTAB(7,22)CHR$136;CHR$&85"Press SPA CE to play." 360 REPEATUNTILGET=32:RETURN 370 W=RND(17)-1 380 M=2 390 V=RND(3) 400 FORI=0TO100:NEXT 410 COLOUR2:PRINTTAB(W,M)CHR$227;TAB(W+V,M) CHR$227 420 VDU30,8 430 COLOUR1:PRINTTAB(Y,X)CHR$224;CHR$225;CH R$226; 440 RETURN 450 COLOUR3:PRINTTAB(Y+1,X-1)CHR$228 460 IFFNAT(X-2,Y+1)=131 GOSUB520 470 RETURN 480 COLOUR3:PRINTTAB(Y,X)STRING$(3,CHR$229) 490 *FX15 500 FORI=100TO80STEP-1:SOUND1,1,I,1:NEXT 510 MODE7:PRINT''''''''"You have been destr oyed."'''"Your score was ";C:GOSUB310:GOSUB35 0:GOTO60 520 COLOUR3:PRINTTAB(Y+1,X-2)CHR$229 530 C=C+1 540 SOUND0,1,4,1 550 RETURN 560 DEFFNAT(Y,X) 570 VDU31,X,Y 580 A%=135:C%=USR&FFF4 AND&FFFF 590 =C% DIV256