World of A1200/World_Of_A1200.iso/programs/text/skoed/m2_macros/skoed.macro

Text File | 1995-02-27 | 335b | 33 lines

PROC If;
  "IF   THEN";
  Return;
  "ELSE";
  Return;
  "END;";
  Up;
  Up;
  Left;
CORP;
!LI = If;
PROC While;
  "WHILE () DO";
  Return;
  "END;";
  Up;
  Right;
  Right;
  Right;
CORP;
!LW = While;
!LP = "PROCEDURE";
!LB = "BEGIN";
!LE = "END;";
PROC Repeat;
  "REPEAT";
  Return;
  "UNTIL ();";
  Left;
  Left;
CORP;
!LR = Repeat;