Mushroom Invasion   


All right. So you've dealt with the worst that the galaxies can throw up. The Space Invaders, the asteroid belts, the nightmare timewarp tunnels, the vampire cats - you've seen it all haven't you? Don't you believe it! Things can only ever get worse. This time around you are faced with a mindless, soulless, heartless fungus . . . the invasion of the mushrooms. It's all over for Earth. The mushrooms already cover half the globe and they're moving in for the final kill. You are the commander of the only surviving security cruiser, and your laser cannons are running low. Wait until you see the whites of their undersides and make every shot count. If they hit your ship you're finished.

    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