diff --git a/src/dcp/versa.211 b/src/dcp/versa.211 index 257a8604..ce3ff2bf 100644 --- a/src/dcp/versa.211 +++ b/src/dcp/versa.211 @@ -4512,8 +4512,10 @@ dopag1: call doline jrst dopag1 doline: setzm outena ;disable output - setzm chrrct ;should really be current height?? - setzm movdwn ;nothing forced us down yet + setzm chrrct + setzm movdwn + call normal ;initial line height based on + jfcl ; current font, in case line is empty setzm count ;count of saved characters move x,lftmar ;underline from left margin by default movem x,stubit @@ -4544,7 +4546,7 @@ cl.top: ^@,,[aos (p) ? return] ;ignore ^H,,backsp ^I,,tab ^J,,linefd - ^L,,[setom eopp ? return] + ^L,,[setom eopp ? jrst linfin] ^M,,cretrn 177,,xgpesc 0,,0