!R! RES; DAM; UNIT C;

MCRO SCREEN %, width, depth;
     CMNT Draws box with rounded corners;
     CMNT Leaves cursor at previous position;
     SPD .08;
     SCP; SCP;
          MRP  .25,  .25;  ARC .23, .30, 270,   0;
          MRP    0, -.25;  DRP  %1,   0;
          MRP    0,  .25;  ARC .23, .30,   0,  90;
          MRP  .27,    0;  DRP   0,  %2;
          MRP -.27,    0;  ARC .23, .30,  90, 180;
          RPP;
          MRP    0,  .25;  DRP   0,  %2;
          MRP  .25,    0;  ARC .23, .30, 180, 270;
          MRP    0,  .27;  DRP  %1,   0;
     RPP;
ENDM;

MCRO STAR %, pen-diameter, point-length;
     SPD %1;
     DRPA %2,  18; DRPA %2, 306; DRPA %2,  90;
     DRPA %2,  18; DRPA %2, 162; DRPA %2,  90;
     DRPA %2, 234; DRPA %2, 162; DRPA %2, 306;
     DRPA %2, 234;

     MRP %2, 0; MRP %2, 0; MRP %2, 0;
ENDM;

MAP 2, 3;  CALL 10 STAR, 0.03, 0.3366;
MAP 2, 4;  CALL SCREEN, 9.2, 1.7;
MAP 4, 5;  TEXT 'STAR & SCREEN macros are', L;
           TEXT 'present in memory.';

DELM SCREEN;
CMNT DAM; CMNT Uncomment to test DAM command;

MAP 2,  8;  CALL 10 STAR, 0.03, 0.3366;
MAP 2,  9;  CALL SCREEN, 9.2, 1.7;
MAP 4, 10;  TEXT 'SCREEN macro was deleted by DELM';

RES; EXIT;