10 CLS:WIDTH20,8:PRINTCHR$(23)
20 PRINTTAB(3)+"Attack of the":PRINTTAB(3)+"Sine Wave from":PRINTTAB(3)+"Outer Space!";
30 FORI=1TO3:FORJ=1TO55STEP3:SOUNDJ,1:NEXTJ,I
40 CLS:LOCATE0,2,0:PRINT"";:LOCATE19,1,0:PRINT"";
50 LOCATE9,0,0:PRINT"";:LOCATE10,3,0:PRINT"";
60 Z=RND*16+.0625:PSET(0,16)
70 FORX=0TO119
80 Y=16-16*(SIN(X/Z)):LINE-(X,Y),PSET
90 A$=INKEY$:IFA$<>""THEN160
100 W%=(W%+X+1)MOD56+1:SOUNDW%,1
110 NEXTX
120 FORI=1TO2:FORJ=56TO1STEP-4:SOUNDJ,1:SOUNDJ+1,1:NEXTJ,I
130 V%=V%-50
140 LOCATE0,3,0:PRINTV%;:IFV%>500ORV%<-500THEN230
150 GCLS:LOCATES0,0,0:GOTO60
160 LINE(2,19)-(X,Y),PSET:LINE(116,11)-(X,Y),PSET
170 IFPOINT(56,3)ORPOINT(62,27)THEN200
180 V%=V%-ABS(Y-16)-16
190 GOTO100
200 FORI=1TO3:FORJ=56TO51STEP-1:SOUNDJ,1:SOUND51,1:SOUND56,1:NEXTJ,I
210 V%=V%+ABS(X-60)+60
220 GOTO140
230 GCLS:LOCATES0,0,0
240 FORK=1TO2:FORL=1TO4:FORI=1TO112STEP4:J=ABS(I-56):SOUNDJ+31,1:SOUNDJ,1:NEXTI,L
250 FORI=1TO112:J=I^2-56*(I^2\56):SOUNDJ,1:NEXTI,K:CLS:END
