Artifact 8f47198c9513be4aa37b1c011c2222d1d04e58b13c47cae8907171ea9da653f8:

• File psl-1983/3-1/glisp/hrd.sl — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 529) [annotate] [blame] [check-ins using] [more...]

%  HRD.SL.2                                     07 April 83

%  Programs to interface to Methius  high-resolution display on HP 9836.
%  G. Novak   07 April 83

(DE M-MOVEP1 (X Y)
  (M_MOVEP1 X (DIFFERENCE 551 Y)))

(DE M-CHAR (ASCIIN)
  (M_CHAR ASCIIN))

(DE M-ERASE (X1 Y1 X2 Y2)
  (M_ERASE X1 (DIFFERENCE 551 Y1) X2 (DIFFERENCE 551 Y2)))

(DE M-RECT-OUTLINE (X1 Y1 X2 Y2)
  (M_RECT_OUTLINE X1 (DIFFERENCE 551 Y1) X2 (DIFFERENCE 551 Y2)))

(DE M-VECTOR (X1 Y1 X2 Y2)
  (M_VECTOR X1 (DIFFERENCE 551 Y1) X2 (DIFFERENCE 551 Y2)))