2 SCREEN 7:DIM A(59,38):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
5 FOR I=0 TO 59:FOR J=0 TO 38:A(I,J)=POINT(I,J):NEXT J,I:B=1:Q=129:R=9:S=1:T=1
10 SCREEN,,X,1-X:DELAY .05:X=1-X:IF INKEY$=" " THEN CLS:END
15 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
20 C=A:D=B:M=U:W=V:CLS:LINE(0,133)-(319,199),3,BF:COLOR 14:LOCATE 2,3:PRINT"C.E. Software presents: MIRROR-DEMO"
22 FOR I=0 TO 59:K=Q+I:FOR J=0 TO 38:L=R+J+C:IF L<133 THEN PSET(K,L),A(I,J):O=265-L:IF O>132 AND O<200 THEN PSET(K,O),A(I,J)
25 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
30 NEXT:Y=Y-1:IF Y<0 THEN Y=5
35 Q=Q+S:IF Q=0 OR Q=260 THEN S=-S
40 R=R+T:IF R=0 OR R=133 THEN T=-T
45 GOTO 10