/* move.c 4.2 83/02/12 */
move(dir
, amt
, p
) int dir
, amt
, p
; {
a
= VERT( (EFFPS(ps
) * 6 * amt
) / 100);
a
= VERT( (amt
+49)/50 ); /* nearest number of half-lines */
printf(".ds %d ", yyval
);
if( dir
== FWD
|| dir
== BACK
) /* fwd, back */
printf("\\h'%s%du'\\*(%d\n", (dir
==BACK
) ? "-" : "", a
, p
);
printf("\\v'-%du'\\*(%d\\v'%du'\n", a
, p
, a
);
printf("\\v'%du'\\*(%d\\v'-%du'\n", a
, p
, a
);
if(dbg
)printf(".\tmove %d dir %d amt %d; h=%d b=%d\n",
p
, dir
, a
, eht
[yyval
], ebase
[yyval
]);