10 REM    FARBSTATISTIK
20 (null):(null)1:(null)14,0:POKE53280,0
30 :
60 (null)0:FORI=199TO0STEP-10:(null)2,I:NEXT
65 (null)199:FORI=29TO319STEP30:(null)I,198:NEXT
70 FORA=1TO10:X=-6+30*A:(null)A,0
100 Y=180
120 H=RND(1)*120
130 H=INT(H*100+.5)/100
150 GOSUB10000:(null)X,Y-1:(null)X,Y-H-1
160 (null)CX,CY,DX,DY
170 (null)3,1,1,0,8,X-5,30-(H>=1)*8-(H>=10)*8-(H>=100)*8,H
180 NEXT
9020 FORI=0TO20000:NEXT:RUN
10000 AX=X+4:BX=X-12:CX=X+12:DX=X-4:EX=BX:FX=DX:GX=CX
10010 EY=Y-4:FY=Y+4:GY=FY:AY=EY-H:BY=AY:CY=FY-H:DY=FY-H
10020 (null)AX,AY,BX,BY:(null)AX,AY,CX,CY:(null)BX,BY,DX,DY:(null)CX,CY,DX,DY
10030 (null)BX,BY,EX,EY:(null)DX,DY,FX,FY:(null)CX,CY,GX,GY:(null)EX,EY,FX,FY
10040 (null)GX,GY,FX,FY
10050 RETURN