1 DEFINT a-x:RANDOMIZE TIME:DIM l(32),m(32),p(32):BORDER 13:f=RND:MODE f:POKE &FFE0,f:f=8-4*f:FOR i=0 TO 15:j=RND*26:POKE &FFD0+i,j:INK i,j:NEXT:w=RND*30:FOR n=1 TO 13+RND*13:l(n)=RND*120/n:m(n)=RND*6:p(n)=1+RND*14:NEXT:FOR x=319 TO 11 STEP-f:FOR s=0 TO 1 2 FOR t=0 TO 1:u=s*637+x+2*x*(s=1)+f/2*(t=1)-f*(s+t=2):MOVE u,8:y=8:FOR g=1 TO n:DRAW u,399*t+y-y*t*2,p(g):y=MIN(390,y+l(g)*(2+SIN(g*x/80+w+m(g)))):NEXT g,t,s:NEXT:WHILE INKEY(47):WHILE INKEY(60)=0:SAVE"t",b,&C000,&4000:CALL &BBFF:CAT:END:WEND:WEND:RUN