10 REM Great Wave @bazzargh
20 DATA 52,93,0,40,1,0,48,52,93,2,80,22,51,64,2,42,30,2,10,1,42,45,2,28,2,42,45,60,36,2,128,70,80,22,2,96,3,129,25,3,80,13,120,28,3,128,38,65,3,2,128,38,72,25,2
25 FOR Y=0TO 63:LINE (0,Y)-(239,Y),R:NEXT
30 FOR E=1TO 5000
40 Z=RND (11):RESTORE :FOR I=1TO Z:READ A,B,C,D,W:NEXT
50 FOR I=1TO 5
60 K=RND (3)
70 X=C-A:Y=D-B
80 IF W=1LET P=A-Y*0.3:Q=B+X*0.3:R=A+X*0.4:S=B+Y*0.4
90 IF W=2LET P=A+X*0.4-Y/8:Q=B+Y*0.4+X/8:R=C-X*0.4-Y/8:S=D-Y*0.4+X/8
100 IF W=3LET P=A+X*0.3+Y*0.1:Q=B+Y*0.3:R=A+X*0.2:S=B+Y*0.2
110 IF K=1LET C=P:D=Q
120 IF K=2LET A=P:B=Q:C=R:D=S
130 IF K=3LET A=R:B=S
140 NEXT
150 LINE (1.875*A,63-0.625*B)-(1.875*C,63-0.625*D)
160 NEXT
170 WAIT :PRINT "";