1 ZZ=1
2 XO=10:YO=5:XT=10:YT=5:XF=10:YF=5
9 CLS
10 DIMXL(ZZ),XH(ZZ),XZ(ZZ),YL(ZZ),YH(ZZ),YZ(ZZ)
20 X1=5:X2=7:X3=10:Y1=.75:Y2=1.75:Y3=2.5
30 XH=10:XL=20:XZ=30:YH=10:YL=20:YZ=30
40 A=ZZ
45 GOTO 57
50 LINE (XH,YH)-(XL,YL)
55 LINE (XL,YL)-(XZ,YZ)
56 LINE (XZ,YZ)-(XH,YH)
57 LINE (XH(A),YH(A))-(XL(A),YL(A)),0
58 LINE (XL(A),YL(A))-(XZ(A),YZ(A)),0
59 LINE (XZ(A),YZ(A))-(XH(A),YH(A)),0
60 XL=XL+X1:IF XL<0 OR XL>239 THEN XL=XL-X1:X1=-SGN(X1)*(RND(1)*XO+3)
62 XH=XH+X2:IF XH<0 OR XH>239 THEN XH=XH-X2:X2=-SGN(X2)*(RND(1)*XT+3)
63 XZ=XZ+X3:IF XZ<0 OR XZ>239 THEN XZ=XZ-X3:X3=-SGN(X3)*(RND(1)*XF+3)
64 YL=YL+Y1:IF YL<0 OR YL>63 THEN YL=YL-Y1:Y1=-SGN(Y1)*(RND(1)*YO+3)
66 YH=YH+Y2:IF YH<0 OR YH>64 THEN YH=YH-Y2:Y2=-SGN(Y2)*(RND(1)*YT)
67 YZ=YZ+Y3:IF YZ<0 OR YZ>64 THEN YZ=YZ-Y3:Y3=-SGN(Y3)*(RND(1)*YF)
68 XH(A)=XH:XL(A)=XL:YH(A)=YH:YL(A)=YL:XZ(A)=XZ:YZ(A)=YZ
70 A=A+1:IF A=ZZ+1 THEN A=0
90 GOTO 50