{$B-}
PROGRAM CPMGSORT (INPUT,OUTPUT);
 {پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–}
 {پ–                                                            پ–}
 {پ–           گ”  —‌  ‰ب  ٹw  Œ¤  ‹†                           پ–}
 {پ–                                                            پ–}
 {پ–    چu    ژt    –¼  پF  –é   ‹v   ’|   •v                   پ–}
 {پ–                                                            پ–}
 {پ–    ٹw  گ¶  ژپ  –¼  پF  ژO  ‘؛  ڈ»  ژq                      پ–}
 {پ–                                                            پ–}
 {پ–    ٹw گ¶ ڈط ”ش چ†  پF  ‚Q ‚O ‚r ‚r ‚P ‚P ‚S ‚R             پ–}
 {پ–                                                            پ–}
 {پ–    ‘ه    ٹw    –¼  پF  “Œ    ٹC    ‘ه    ٹw                پ–}
 {پ–                                                            پ–}
 {پ–    ٹw •” ٹw ‰ب –¼  پF  —‌ ٹw •”   ڈî •ٌ گ” —‌ ٹw ‰ب        پ–}
 {پ–                                                            پ–}
 {پ–    ‰غ    ‘è    –¼  پF  POLYPHASE MERGE SORT                پ–}
 {پ–                                                            پ–}
 {پ–    ژg  —p  Œ¾  Œê  پF  ‚o  ‚پ  ‚“  ‚ƒ  ‚پ  ‚Œ              پ–}
 {پ–                                                            پ–}
 {پ–    چى    گ¬    “ْ  پF  ‚P ‚X ‚W ‚T ”N ‚X Œژ                پ–}
 {پ–                                                            پ–}
 {پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–}



 TYPE
    WKFILE = ARRAY[0..2] OF TEXT;

 VAR
     T:WKFILE;
     I,J:INTEGER;

{
EXTERNAL PROCEDURE PMGSORT(VAR T:WKFILE;MAXBLK,F1,F2:INTEGER);
}
{$I B:PMGSORT.SRC}

BEGIN
 I := 13; J := 8;
 ASSIGN(T[0],'TAPE0');
 ASSIGN(T[1],'TAPE1');
 ASSIGN(T[2],'TAPE2');
 PMGSORT(T,5,I,J);
 WRITELN(LST,'OUTPUT=T',5,I,J)
END.
