{\rtf1\mac\ansicpg10000\cocoartf102
{\fonttbl\f0\fmodern\fcharset77 Courier;}
{\colortbl;\red255\green255\blue255;}
\paperw11900\paperh16840\margl1440\margr1440\vieww9000\viewh9000\viewkind0
\pard\tx560\tx1120\tx1680\tx2240\tx2800\tx3360\tx3920\tx4480\tx5040\tx5600\tx6160\tx6720\ql\qnatural

\f0\fs20 \cf0 PROCEDURE migui;\
\
VAR\
	m,n,o,p,q	:INTEGER;\
\
\{Begin of Programm\}\
BEGIN;\
\
\
PenFore (0,0,0);\
\
		\{Kinckelemente\}\
\
			MoveTo (0,4);\
			Line (1.5,2);\
			Line (-1.5,2);\
\
			MoveTo (4,4);\
			Line (-1.5,2);\
			Line (1.5,2);\
\
			Oval (1.9,4.4,2.1,4.2);\
			Oval (1.9,7.8,2.1,7.6);\
\
			FOR p:=1 TO 17 DO BEGIN;\
			duplicate(0,4)\
			END;\
\
			duplicate(4,0);\
			FOR p:=1 TO 17 DO BEGIN;\
			duplicate(0,-4)\
			END;\
\
			duplicate(4,0);\
			FOR p:=1 TO 17 DO BEGIN;\
			duplicate(0,4)\
			END;\
\
			duplicate(4,0);\
			FOR p:=1 TO 17 DO BEGIN;\
			duplicate(0,-4)\
			END;\
			DSelectAll;\
\
		\{Abschl\'9fsse oben\};\
\
			Poly (0,76,0.1,76,0.1,79.9,3.9,79.9,3.9,76,4,76);\
			Oval (1.5,78.5,2.5,77.5);\
			Oval (0.2,78.1,0.4,77.9);\
			Oval (3.6,78.1,3.8,77.9);\
			Oval (1.9,79.8,2.1,79.6);\
			Oval (1.9,76.4,2.1,76.2);\
\
			FOR n:=1 TO 3 DO BEGIN;\
			duplicate(4,0);\
			END;\
			DSelectAll;\
\
\
		\{Abschl\'9fsse Unten\}\
\
			Poly (0,4,0.1,4,0.1,0.1,3.9,0.1,3.9,4,4,4);\
			Oval (0.2,2.1,0.4,1.9);\
			Oval (3.6,2.1,3.8,1.9);\
			Oval (1.9,3.8,2.1,3.6);\
			Oval (1.9,0.4,2.1,0.2);\
\
			FOR n:=1 TO 3 DO BEGIN;\
			duplicate(4,0)\
			END;\
			DSelectAll;\
\
\
PenFore (0,65535,65535);\
\
		\{Linien horizontal kerben\};\
\
			MoveTo (0,4);\
			Line (16,0);\
			FOR o:=1 TO 36 DO BEGIN;\
			duplicate(0,2)\
			END;\
\
END;\
\
Run(migui);}