REM	THIS IS "PREFMT.BAS"


REM	ROUTINE TO PREFORMAT A DISK FILE FOR USE \
	WITH 'MAINT.BAS' AND 'REPORT.BAS' \
	FOR MAINTAINING A COMPUTER CLUB MAILING LIST

REM	PROGRAM LOGIC - WRITES A '0' AS THE FIRST FIELD \
	IN THE FILE - THIS IS THE 'EMPTY RECORD' FLAG. \
	A RECORD IN USE WILL HAVE A '1' HERE.

	INPUT "NAME OF FILE TO PREFORMAT";FILE.NAME$
	PRINT "NUMBER OF SECTORS IN FILE"
	PRINT "(MUST AGREE WITH FILE.SIZE IN:"
	PRINT "     MAINT.BAS   AND"
	INPUT "     REPORT.BAS) ";NO.SEC

REM	REC LENGTH 128 RECOMMENDED FOR SPEED OF ACCESS \
	BUT IS NOT REQUIRED.
	FILE FILE.NAME$(128)

	FOR I=1 TO NO.SEC
		PRINT #1,I;0,"EMPTY RECORD",I
		IF I=10*INT(I/10) THEN PRINT "RECORD ";I
	NEXT
	PRINT "DONE "
	END