10REM >TestSnd 20ON ERROR MODE 7:PROCoff:END 30*FX229,0 40*FX156,86,0 50*FX7,7 60*FX8,7 70*FX3,5 80MODE 4 90VDU 23,1,0;0;0;0; 100V=13:P=0:M=13:G=64:D=0 110DIM X(V,M),Y(V,M),S(360) 120FOR S=0 TO 2*PI STEP PI/180 130S(D)=SIN(S):D=D+1 140NEXT 150FOR B=1 TO M 160FOR A=1 TO V 170X(A,B)=-109+107*(A-A*B/21+B/3) 180NEXT:NEXT 190REPEAT 200FA=0.15*RND(100) 210FB=0.15*RND(100) 220F=FA/5 230FOR Y=1 TO M 240D=1 250FOR X=1 TO V 260D=D+F 270Y(X,Y)=27.7*Y+(S(D*FA MOD 360)+S((P +D*FB)MOD 360))*G+50 280NEXT 290P=P+20 300NEXT 310CLS 320FOR Y=1 TO M 330MOVE X(1,Y),Y(1,Y) 340FOR X=1 TO V 350PLOT 5,X(X,Y),Y(X,Y) 360NEXT:NEXT 370FOR X=1 TO V 380MOVE X(X,1),Y(X,1) 390FOR Y=1 TO M 400PLOT 5,X(X,Y),Y(X,Y) 410NEXT:NEXT 420UNTIL FALSE 430: 440DEF PROCoff 450*FX2,0 460*FX3,0 470ENDPROC