REMARK		THIS PROGRAM INITIALIZES THE DATA FILES
	REMARK		TO BE USED IN THE GENERAL LEDGER PROGRAMS

%INCLUDE CURSOR
	DIM G2$(5),G3(5)
	GOTO 1

%INCLUDE GENINFO
%INCLUDE G/L-INFO


1	PRINT CLEAR.SCREEN$;"DATA FILE INITIALIZATION PROGRAM"
	PRINT "ENTER 'RETURN' TO BEGIN, 'END' TO EXIT"
	INPUT LINE A$
	IF A$="END" THEN \
		PRINT CLEAR.SCREEN$;"EXITING":\
		STOP
	PRINT:PRINT"WORKING... DO NOT INTERRUPT"
	CREATE "G/L0F110.DAT" RECL 157 AS 1,"G/L0F020.DAT" RECL 36 AS 2,\
	"G/L0F030.DAT" RECL 36 AS 3,"G/L0F130.DAT" AS 4,"CRT" RECL 1100 AS 5,\
	"G/I0F010.DAT" AS 6
	FILE.NO%=6:GOSUB 720
	FILE.NO%=4:GOSUB .315
	PRINT CLEAR.SCREEN$;"FILE INITIALIZE COMPLETE"