REMARK	THIS PROGRAM INITIALIZES THE DATA FILES TO BE USED
	REMARK	  IN THE ACCOUNTS PAYABLE & RECEIVABLE PROGRAMS.

%INCLUDE CURSOR
	DIM R$(10),R1(10),R2(10),P(6),G2$(5),G3(5)
	GOTO 1

%INCLUDE A/P-INFO
%INCLUDE GENINFO
%INCLUDE A/RTAX
%INCLUDE A/R-INFO
%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
	INPUT"OPEN THE G/L FILES ALSO (Y/N)?";GL$
	PRINT:PRINT "WORKING... DO NOT INTERRUPT"
	CREATE "A/P0F020.DAT" RECL 580 AS 1,"A/P0F030.DAT" RECL 86 AS 2,\
	"A/P0F030.PST" AS 3,"A/P0F110.DAT" RECL 162 AS 4,\
	"A/P0F120.DAT" RECL 580 AS 5,"CRT" RECL 1100 AS 6,"A/P0F130.DAT" AS 7,\
	"G/I0F010.DAT" AS 8,"A/R0F020.DAT" RECL 226 AS 9,\
	"A/R0F110.DAT" RECL 162 AS 10,"A/R0F120.DAT" RECL 226 AS 11,\
	"A/R0F030.DAT" AS 12,"A/R0F130.DAT" AS 13
	IF GL$="Y" THEN \
		CREATE "G/L0F020.DAT" RECL 36 AS 15,\
		"G/L0F110.DAT" RECL 157 AS 16,"G/L0F130.DAT" AS 17
	PRINT #3;0
	X0=7:GOSUB 3350
	Y9=8:GOSUB 720
	A1=12:GOSUB 3750
	FILE.NO=13:GOSUB 3.15
	IF GL$="Y" THEN \
		FILE.NO%=17:GOSUB .315
	PRINT CLEAR.SCREEN$;"FILE INITIALIZE COMPLETE"
	STOP