COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN "PRINTR"
 00004 ENDMK
⊗;
BEGIN "PRINTR"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	ITG I,J,K,M,N,RC,Q;
	STRING STR;

	OPEN(1,"DSK",8,3,0,0,0,0);
DO ⊂	OUTSTR(".TRI FILE = ");STR←INCHWL;
	LOOKUP(1,STR&".TRI",Q);⊃ UNTIL ¬Q;

	M ← WORDIN(1);
	N ← WORDIN(1);
	Q ← WORDIN(1);
	OUTSTR(CVS(M)&" "&CVS(N)&" "&CVS(Q)&↓&↓);
	I ← 0;
WHILE TRUE DO 
BEGIN
	OUTSTR(CVS(I←I+1));
	RC ← WORDIN(1);IF RC=-1 THEN DONE;
	OUTSTR(9&CVOS((RC ROT 18)LAND '777777)&9&CVOS(RC LAND '777777)&9);
	OUTSTR(CVOS(WORDIN(1))&↓);

	RC ← WORDIN(1);IF RC=-1 THEN DONE;
	OUTSTR(9&CVOS((RC ROT 18)LAND '777777)&9&CVOS(RC LAND '777777)&9);
	OUTSTR(CVOS(WORDIN(1))&↓);

	RC ← WORDIN(1);IF RC=-1 THEN DONE;
	OUTSTR(9&CVOS((RC ROT 18)LAND '777777)&9&CVOS(RC LAND '777777)&9);
	OUTSTR(CVOS(WORDIN(1))&↓&↓);
	INCHRW;
END;
	RELEASE(1);
END "PRINTR";