\ Original program by David Ahl, Creative Computing, 1978
\ 4tH version by J.L. Bezemer, 2009

include lib/zenfloat.4th
include lib/zenfsin.4th

false 160 0 do
  i s>f 4 s>f f/ fsin 25 s>f f* 26 s>f f+ f>s spaces
  dup  if ." J.L. Bezemer" else ." 4tH compiler " then 0= cr
loop
