Escape codes for printer control

[Dennis Garces <DGarces@VENEVISION.COM.VE>]

I had a similar problem a week ago. Everyone I asked suggested that I used
the  ENCODE instruction. Maybe, this  could help you.

Look at this:

      ENCODE
'<27>&l12d0e0o1x1s<27>&a1g<27>&a0r<27>&f0s<27>&f1000y3x<27>&f1s<27>(s4099<27
>(s15h<10>' into $INIT
      ENCODE '<27>&a' into $ROW
      ENCODE '<27>=' into $HALF_LINE
      IF $EMPLID_OLD <> ''
         NEW-PAGE
      END-IF
      PRINT $INIT               (,)
      PRINT $ROW                (,)
      PRINT '3R'                (,)