COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "MSORT"
C00003 ENDMK
C⊗;
BEGIN "MSORT"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	STRING ARRAY NAM[1:2000];
	INTEGER ARRAY VAL[1:2000];
	ITG FLG,CNT,BRK,EOF,I,J,K;

	BREAKSET(1,'40&13&9,"I");
	BREAKSET(1,10,"O");
	OPEN(1,"DSK",0,3,0,CNT,BRK,EOF)
	LOOKUP(1,"MAP",FLG);
	IF FLG THEN ⊂ OUTSTR("MAP NOT FOUND."&↓);WHILE TRUE DO INCHRW;⊃;