!R! RES; UNIT C;

MCRO BX;
   PAT %1;
   BOX 2, 2;
   BLK 2, 2;  

   MRP 0, 2.5; TEXT 'PAT %1;';   

   MRP 2.5, -2.5;
ENDM;

SFNT "Univers-Md", 10;

MAP 1, 1;
CALL BX,1; CALL BX,2; CALL BX,3; CALL BX,4; CALL BX,5; CALL BX,6; CALL BX,7; 

MAP 1, 4;
CALL BX,8; CALL BX,9; CALL BX,10; CALL BX,11; CALL BX,12; CALL BX,13; CALL BX,14; 

MAP 1, 7;
CALL BX,15; CALL BX,16; CALL BX,17; CALL BX,18; CALL BX,19; CALL BX,20; CALL BX,21; 

MAP 1, 10;
CALL BX,22; CALL BX,23; CALL BX,24; CALL BX,25; CALL BX,26; CALL BX,27; CALL BX,28;

MAP 1, 13;
CALL BX,29; CALL BX,30; CALL BX,31; CALL BX,32; CALL BX,33; CALL BX,34; CALL BX,35;  

MAP 1, 16;
CALL BX,36; CALL BX,37; CALL BX,38; CALL BX,39; CALL BX,40; CALL BX,41; CALL BX,42; 

MAP 1, 19;
CALL BX,43; CALL BX,44; CALL BX,45; CALL BX,46; CALL BX,47; CALL BX,48; CALL BX,49; 

MAP 1, 22;
CALL BX,50; CALL BX,51; CALL BX,52; CALL BX,53; CALL BX,54; CALL BX,55; CALL BX,56; 

MAP 1, 25;
CALL BX,57; CALL BX,58; CALL BX,59; CALL BX,60;

PAGE; EXIT;