! Document name: pattern_

!name: pattern_  29.06.1989.
!internal macro: -

let m=int(b/c)
if m<2 goto 10
let n=b/m
for i=1 to m-1
lin_ 0,i*n,0,a,i*n,0
next i
10:end