ViewWindow 1,3,0,1,2,0
1/3->G
1/6->H
sqrt 3/6->I
2*G->J
Lbl 0
A->C
Plot C+2,D+1.2
4*Ran#->O
O<1=>Goto 1
O<2=>Goto 2
O<3=>Goto 3
H*C-I*D-H->A
I*C+H*D+I->D
Goto 0
Lbl 1
H*C+I*D+H->A
I-I*C+H*D->D
Goto 0
Lbl 2
G*C-J->A
G*D->D
Goto 0
Lbl 3
G*C+J->A
G*D->D
Goto 0