partno  Example 4.2
REMARK  From Irvin H Krals' Numerical Control Programming in APT.
REMARK  Page 100
        clprnt
        print / on
	machin / dxf
setpt	= point / 0, 0, 2
orig	= point / 0, 0, 0
lx	= line / xaxis
theta	= 60
lp	= line / orig, atangl, theta
ln	= line / orig, atangl, -theta
d	= 1
h	= 5 * d
lu	= line / parlel, lx, ylarge, h
ll	= line / parlel, lx, ysmall, h
w	= .75 * d
lpr	= line / parlel, lp, ysmall, w
lpl	= line / parlel, lp, ylarge, w
lnr	= line / parlel, ln, ylarge, w
lnl	= line / parlel, ln, ysmall, w
	cutter / d
	from / setpt
	go / to, lpr
	tllft, golft / lpr, to, lu
	golft / lu, to, lpl
	golft / lpl, to, ll
	golft / ll, to, lpr
	golft / lpr, to, lnr
	golft / lnr, to, lu
	golft / lu, to, lnl
	golft / lnl, to, ll
	golft / ll, to, lnr
	golft / lnr, to, lpl
	goto / setpt
	fini