\start83\
\comment=Programm Dateidatum 03/27/04, 17:31
\name=KOCHREK
\file=G:\KOCHREK.TXT
\L\K(dim(\L\K)-4)\->\X
\L\K(dim(\L\K)-3)\->\Y
\L\K(dim(\L\K)-2)\->\A
\L\K(dim(\L\K)-1)\->\L
\L\K(dim(\L\K))\->\R

If R\<=\0
Then
If dim(\L\P)=1
\L\K\->\\L\P
dim(\L\K)-5\->\dim(\L\K)
Line(X,Y,X+cos(A)*L,Y+sin(A)*L)
Return
End

dim(\L\K)+5\->\dim(\L\K)
X\->\\L\K(dim(\L\K)-4)
Y\->\\L\K(dim(\L\K)-3)
A\->\\L\K(dim(\L\K)-2)
L/3\->\\L\K(dim(\L\K)-1)
R-1\->\\L\K(dim(\L\K))


X+cos(A)*L/3\->\B
Y+sin(A)*L/3\->\E
dim(\L\K)+5\->\dim(\L\K)
B\->\\L\K(dim(\L\K)-4)
E\->\\L\K(dim(\L\K)-3)
A+60\->\\L\K(dim(\L\K)-2)
L/3\->\\L\K(dim(\L\K)-1)
R-1\->\\L\K(dim(\L\K))




B+cos(A+60)*L/3\->\C
E+sin(A+60)*L/3\->\F
dim(\L\K)+5\->\dim(\L\K)
C\->\\L\K(dim(\L\K)-4)
F\->\\L\K(dim(\L\K)-3)
A-60\->\\L\K(dim(\L\K)-2)
L/3\->\\L\K(dim(\L\K)-1)
R-1\->\\L\K(dim(\L\K))



C+cos(A-60)*L/3\->\G
F+sin(A-60)*L/3\->\H
dim(\L\K)+5\->\dim(\L\K)
G\->\\L\K(dim(\L\K)-4)
H\->\\L\K(dim(\L\K)-3)
A\->\\L\K(dim(\L\K)-2)
L/3\->\\L\K(dim(\L\K)-1)
R-1\->\\L\K(dim(\L\K))

prgmKOCHREK
prgmKOCHREK
prgmKOCHREK
prgmKOCHREK

dim(\L\K)-5\->\dim(\L\K)

Return

\stop83\

