! Document name: US1

!US1
!1991 GSCNE
if c<>0 goto 1
let c=3.0
1 : if d<>0 goto 2
let d=0.17
2 : let n=c/d
if fra (n) < 0.5 then 3
let n=n+0.5
3: let n=int (n)
let d=c/n

let l=a/n

call st1  l,b,d

for i=1 to n-2
	addx l
	addz d
call st2  l,b,d
next i
	addx l
	addz d
call st2 l,b,d,0,0,0,2
del top
end