!R! RES; UNIT C;
    MCRO PATTERN %, Ausgabe eines mit Muster gefüllten Rechtecks;
         FPAT %1, %2, %3, %4, %5, %6, %7, %8;
         BOX 5, 1.25; BLK 5, 1.25; MRP 0, 1.55;
         TEXT 'FPAT %1, %2, %3, %4, %5, %6, %7, %8;', L;
    ENDM;

MAP 5, 5; FTMD 15; FONT 13; SLS .2;

CALL PATTERN, 3, 3, 0, 0, 0, 0, 0, 0;
CALL PATTERN, 255, 0, 0, 0, 0, 0, 0, 0;
CALL PATTERN, 1, 1, 1, 1, 1, 1, 1, 255;
CALL PATTERN, 0, 0, 24, 60, 60, 24, 0, 0;

MRP 5.5, -7;

CALL PATTERN, 1, 2, 4, 8, 16, 32, 64, 128;
CALL PATTERN, 8, 8, 8, 8, 8, 8, 8, 8;
CALL PATTERN, 20, 0, 20, 0, 62, 0, 62, 0;
CALL PATTERN, 8, 20, 34, 65, 130, 68, 40, 16;

PAGE; EXIT;