1 SCREEN1,0:DIMC,X,Y,P,W(9):WIDTH32:COLOR3,12,1:KEYOFF:FORI=14350TO14381:READA$:VPOKEI,VAL("&h"+A$):NEXT:FORI=32TO87:READA$:VPOKEI,VAL("&h"+A$):NEXT:FORI=6240TO6815:VPOKEI,0:NEXT:VPOKE8192,177:VPOKE8193,97:FORI=1TO38:READA,B:VPOKE6300+A,B:NEXT


2 DEFINTA-Z:PLAY"","t250s8m6000o4l2dd+dcd4","T200O3L2D.DD":LOCATE2,22:PRINT"U.F.O. SCORE: 0    MAX:";M:X=40:Y=96:C=0:ONSPRITEGOSUB8:VPOKE6785,7:VPOKE6753,7:VPOKE6721,7:VPOKE6689,7:VPOKE6657,6:FORI=0TO9:X(I)=0:C(I)=0:W(I)=0:P(I)=0:PUTSPRITEI,,0,0:NEXT


3 SOUND7,48:SOUND6,0:Z=RND(-TIME):LOCATE5,1:PRINT"PUSH SPACE OR SWITCH 1 !    ":Q=1+1*(STRIG(0)=-1):IFSTRIG(Q)=-1THENFORI=6176TO6232:VPOKEI,32:NEXT:V=5:P=4:PLAY"v11","t250v9s8m6000o4L2dd+dcl4dd-dl2ee+ec2l4ee","t250v10o3l2d.d-dcl4dd+dl2ee-ec2l4e"ELSE3


4 D=8*(S=3)*(X<224)-8*(S=7)*(X>24):E=16*(S=5)*(Y<112)-16*(S=1)*(Y>32):Y=Y+E:X=X+D:PUTSPRITE21,(X,Y),13,3:PUTSPRITE20,(X,159),10,4:IFSTRIG(Q)=0THENH=0ELSEIFH=0THENH=1:FORI=7TO9:IFC(I)<2THENW(I)=Y:X(I)=X:Y(I)=152:C(I)=2:P(I)=1:I=9:PLAY"o4f32":NEXTELSENEXT


5 FORI=7TO9:IFC(I)>1THENY(I)=Y(I)+8*(P(I)=1):PUTSPRITEI,(X(I),Y(I)+1),C(I),P(I):IFY(I)=W(I)THENP(I)=5:W(I)=0:PUTSPRITEI,(X(I),Y(I)+1),C(I),P(I):C(I)=3:PLAY"t250o4e64"ELSEIFC(I)>2THENC(I)=C(I)+1:IFC(I)=10THENC(I)=1:O=O-1:P(I)=0:PUTSPRITEI,(0,0),0,0


6 NEXT:IFV=0THENV=8:PLAY"","t180o3b","t180o2b":GOTO10ELSEFORI=0TO5:IFX(I)=<8THENIFC(I)=0THENX(I)=240:C(I)=INT(1+RND(1)*(3+INT(C/500))):C(I)=5*-(C(I)>5)-C(I)*(C(I)<6)ELSEC(I)=0:O=I:GOSUB10ELSEY(I)=32+I*16:PUTSPRITEI,(X(I),Y(I)),C(I)+4,2:X(I)=X(I)-C(I)


7 NEXT:SPRITEON:S=STICK(Q):GOTO4:DATA18,18,00,18,24,ff,7e,3c,42,00,66,00,00,00,00,00,00,66,18,18,18,18,42,7e,a5,db,ba,7c,d9,7e,3a,55,00,00,00,00,00,50,20,50,20,20,a8,70,df,70,a8,20,00,91,9a,9c,ae,97,98,66,ff,99,99,ff,ff,99,99,ff,01,02,04,08,10,20,40,80


8 SPRITEOFF:FORL=0TO5:FORK=7TO9:IFP(K)<5THENNEXT:NEXT:RETURNELSEIFY(K)=Y(L)ANDX(K)>X(L)-9ANDX(K)<X(L)+9THENPUTSPRITEL,(0,0),0,0:X(L)=0:C(K)=9:C=C+C(L)*10:C(L)=0:LOCATE15,22:PRINTC:PLAY"t250o5l64e":K=9:DATA80,40,20,10,08,04,02,01,00,00,00,00,00,3c,7e,ff


9 NEXT:NEXT:RETURN:DATA99,4,78,4,147,4,248,4,265,4,305,4,381,4,484,7,486,7,513,7,490,8,459,8,428,8,397,8,366,8,367,9,400,9,433,9,496,8,465,8,434,8,435,9,468,9,501,9,506,8,507,9,509,8,478,8,479,9,512,9,452,10,454,10,481,10,102,5,225,5,21,5,407,5,182,5


10 IFV=8THENLOCATE12,1:PRINT"GAME OVER !":V=9:PLAY"","cdd-ddl2ee+ecl4ee","c.dd-ddl2ee+ecl4e.":GOTO10ELSEIFV=9THENM=-M*(C<=M)-C*(C>M):IFPLAY(0)=0THEN2ELSE10ELSEV=V+1*(V>0):VPOKE6785-V*32,0:PUTSPRITEO,(8,162-V*8),10,5:PLAY"t250o3l32gf":RETURNELSE10