VT100/tests/TestRegisMacro.mod

MODULE TestRegisMacro;

(* ReGIS macrograph demo: define a relative box once, stamp it twice. *)

IMPORT Regis;

BEGIN
  Regis.Enter;
  Regis.ScreenErase;

  Regis.MacroDef("B");
  Regis.LineRel(100, 0);
  Regis.LineRel(0, 100);
  Regis.LineRel(-100, 0);
  Regis.LineRel(0, -100);
  Regis.MacroEnd;

  Regis.MoveTo(100, 100);
  Regis.MacroRun("B");
  Regis.MoveTo(400, 250);
  Regis.MacroRun("B");

  Regis.MoveTo(100, 400);
  Regis.TextOut("macros stamped twice");

  Regis.Exit;
END TestRegisMacro.