10 PRINT"{CLEAR}"
15 DIM V,X,Y,C,X1,Y1,X2,Y2,X3,Y3,W,H,H1
20 DIM A(2):A(0)=32:A(1)=32+128:A(2)=230
25 W=40:H=24:H1=H-1:V=32768+INT((W-H)/2)
30 X=INT(RND(1)*H):Y=INT(RND(1)*H)
35 C=A(.5+RND(1)):IF RND(1)<=.33 THEN C=A(2)
40 X1=X*W:Y1=Y*W:X2=H1-X:Y2=H1-Y:X3=X2*W:Y3=Y2*W
45 POKEV+X+Y1,C:POKEV+Y+X1,C
50 POKEV+X2+Y1,C:POKEV+Y2+X1,C
55 POKEV+X+Y3,C:POKEV+Y+X3,C
60 POKEV+X2+Y3,C:POKEV+Y2+X3,C
65 GOTO30