REMARK	*******************************************\
		*  MSTRINIT.BAS   MASTER FILE INITIALIZE  *\
		*  5/16/79                       8:45 PM  *\
		*******************************************

%INCLUDE CURSOR

	DIM S(96),R1(2),R2(5),R$(4)
	DIM G2$(5),G3(5)

	GOTO 6000
%INCLUDE GENINFO
%INCLUDE MSTROUT

6000	PRINT CLEAR.SCREEN$;
	INPUT "NUMBER OF EMPLOYEE RECORDS =";A
	A$="P/R0F110.DAT":BLOCKING=1150:GOSUB 9000
	PRINT "FILENAME  ";A$;"  INITIALIZED"
	Y9=2:OPEN "G/I0F010.DAT" RECL 200 AS Y9
	GOSUB 700							REMARK  READ IN GENERAL INFORMATION
	MSTR.RECORDS=A
	GOSUB 720							REMARK  WRITE OUT INFO WITH MSTR FILE EXTENTS
	GOTO 9999
9000	FILE A$(BLOCKING)
	FOR I%=1 TO A
	PRINT CURSOR.HOME:PRINT:PRINT:PRINT I%
	X0=I%
	GOSUB 750
	NEXT I%
	RETURN
9999	END