hrd.sl 529 B

1234567891011121314151617181920
  1. % HRD.SL.2 07 April 83
  2. % Programs to interface to Methius high-resolution display on HP 9836.
  3. % G. Novak 07 April 83
  4. (DE M-MOVEP1 (X Y)
  5. (M_MOVEP1 X (DIFFERENCE 551 Y)))
  6. (DE M-CHAR (ASCIIN)
  7. (M_CHAR ASCIIN))
  8. (DE M-ERASE (X1 Y1 X2 Y2)
  9. (M_ERASE X1 (DIFFERENCE 551 Y1) X2 (DIFFERENCE 551 Y2)))
  10. (DE M-RECT-OUTLINE (X1 Y1 X2 Y2)
  11. (M_RECT_OUTLINE X1 (DIFFERENCE 551 Y1) X2 (DIFFERENCE 551 Y2)))
  12. (DE M-VECTOR (X1 Y1 X2 Y2)
  13. (M_VECTOR X1 (DIFFERENCE 551 Y1) X2 (DIFFERENCE 551 Y2)))