.ENABLE SUBSTITUTION
.;
.;
.;	GET MVGALL, AND PUT INTO THE DIFFERENT CATEGORY FILES
.;
.;
.;	OPEN INPUT,OUTPUT FILES
.;
.OPENR MVGALL.LIS
.OPEN#1 'P1'.LIS
.;
.;	READ IN A LOOP, MVGALL, DISPLAY & WRITE TO MVG???.LIS
.;
.MAINLP:
	.READ FILNAM
	.IFT <EOF> .GOTO FINISH
.;
.;	ASK THE USER WHICH FILE
.;
.ASKOPT:
	; [1m--- 'FILNAM' ---[m
	.ASK OPTN
	.IFF OPTN .GOTO MAINLP
.;
.;	WRITE AN OUTPUT RECORD
.;
	.DATA#1 'FILNAM'
	.GOTO MAINLP
.;
.;	CLOSE ALL FILES, AND EXIT
.;
.FINISH:
	.CLOSE#1
	.CLOSE
.EXIT
