BEGIN "PRNV2D"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	STRING STR;
	ITG CHR,BRK,FLG,EOF;
	ITG W1,V1L,V1R,V2L,V2R;

	REAL ARRAY TMP[1:4];

	OPEN(1,"DSK",8,3,0,0,0,EOF);

DO BEGIN
	OUTSTR("	V2D FILE = ");STR ← INCHWL;
	LOOKUP(1,STR,FLG);
	IF FLG THEN LOOKUP(1,STR&".V2D",FLG);
END UNTIL ¬FLG;

WHILE TRUE DO
BEGIN
	W1 ←	WORDIN(1);
	IF EOF THEN DONE;

	ARRYIN(1,TMP[1],4);
	V1L ← WORDIN(1);
	V1R ← WORDIN(1);
	V2L ← WORDIN(1);
	V2R ← WORDIN(1);

	OUTSTR(9&CVOS(W1 LSH -18)&9&CVOS(W1 LAND '777777)&↓);

	OUTSTR(9&CVG(TMP[1]) &9&CVG(TMP[2])&↓);
	OUTSTR(9&CVG(TMP[3]) &9&CVG(TMP[4])&↓);

	OUTSTR(9&CVS((V1L LAND '777)LSH -3)&9&CVS((V1R LAND '777)LSH -3)&↓);
	OUTSTR(9&CVS((V2L LAND '777)LSH -3)&9&CVS((V2R LAND '777)LSH -3)&↓);
	OUTSTR(↓);INCHRW;
END;
END "PRNV2D";