$
PTMP
GRON
2 GMODE
1 1000 FOR
2 MEGET 1 ADD 2 MEPUT DNORM
CALL

(P)V
$
NEXT
GROFF

$$$