2 SCREEN 7:DIM A(311,7),B(5),C(59,38):B(0)=4:B(1)=12:B(2)=14:B(3)=15:B(4)=14:B(5)=12:PRINT"C.E. Software presents: W A V E D E M O":FOR I=0 TO 311:FOR J=0 TO 7:A(I,J)=POINT(I,J):NEXT J,I:F=1:L=-310
5 X=1:FOR I=0 TO 12:X=1-X:LINE(0,I*3)-(59,I*3+2),X*11+4,BF:NEXT:LINE(0,0)-(24,20),1,BF:X=1:FOR I=0 TO 8:X=1-X:FOR J=0 TO 5-X:PSET(J*4+2+X*2,I*2+2),15:NEXT J,I:FOR I=0 TO 59:FOR J=0 TO 38:C(I,J)=POINT(I,J):NEXT J,I:B=1:Q=129:R=9:S=1:T=1
10 SCREEN,,X,1-X:DELAY .08:X=1-X:IF INKEY$=" " THEN CLS:END
11 A=A+B:IF A=0 OR A=3 THEN IF V>2 THEN B=-U:V=0 ELSE V=V+1:IF V=1 THEN U=B:B=0
12 C=A:D=B:M=U:W=V:CLS:FOR I=0 TO 59:FOR J=0 TO 38:PSET(Q+I,R+J+C),C(I,J):NEXT:C=C+D:IF C=0 OR C=3 THEN IF W>2 THEN D=-M:W=0 ELSE W=W+1:IF W=1 THEN M=D:D=0
15 NEXT:Y=Y-1:IF Y<0 THEN Y=5
17 Q=Q+S:IF Q=0 OR Q=260 THEN S=-S
18 R=R+T:IF R=0 OR R=90 THEN T=-T
19 E=E+F:IF E=0 OR E=2 THEN IF O=0 THEN O=F:F=0 ELSE F=-O:O=0
20 Z=Y:G=E:H=F:P=O:LINE(0,174)-(319,182),1,BF:FOR I=0 TO 7:FOR J=0 TO 311:N=J+L:IF A(J,I) AND N>-1 AND N<320 THEN PSET(N,166+I),B(Z):PSET(N+G-1,181-I),B(Z)
22 NEXT:Z=Z+1:IF Z=6 THEN Z=0
25 G=G+H:IF G=0 OR G=2 THEN IF P=0 THEN P=H:H=0 ELSE H=-P:P=0
27 NEXT:L=L+2:IF L=322 THEN L=-310
35 GOTO 10