REM Start of BASIC! Program GR.OPEN 255,255,255,255,0,1 GR.SCREEN sx,sy gr.bitmap.create bmp,sx,sy gr.bitmap.draw vd,bmp,0,0 gr.bitmap.drawinto.start bmp GR.COLOR 255,0,0,127,1 dx=sx/60 dy=sy/80 FOR j=0 TO 59 yy=sy/60*(j+0.5) f=1+j/300 x2=-5 y2=yy FOR i=0 TO 80*PI() STEP PI()/8 x=i/80/PI()*sx+SIN(i/20*3)*sx/100 y=yy+SIN(i/20*1)*sy/80 x1=x+COS(i)*dx y1=y+SIN(i*f)*dy GR.LINE vd,x1,y1,x2,y2 x2=x1 y2=y1 NEXT i GR.RENDER NEXT j gr.bitmap.drawinto.end GR.RENDER DO PAUSE 100 UNTIL