( 8 July 88 -- MFB )
( this is identical to the routine in CIR.ASM, but it uses
      single precision FORTH words )

off printload
forget new
: new ; 

2 block x
2 block y

40 const aa

2 block xc 
2 block yc 
2 block col

: fred 0 x ! col ! 100 * y ! yc ! xc ! 250 0 do 
       x @ y @ aa / - dup x ! 100 / xc @ + 
       x @ aa / y @ + dup y ! 100 / 6 7  */ yc @ + 

       col @ egadot loop ;

egam

( 140h afh 350 3 fred
140h afh 300 3 fred
140h afh 360 3 fred
140h afh 400 3 fred
140h afh 200 3 fred
140h afh 100 3 fred
140h afh 50 3 fred
140h afh 10 3 fred )

140h afh 360 3 fred
e0h afh 200 3 fred
7ch afh 100 3 fred
4ah afh 50 3 fred
23h afh 10 3 fred