home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG006.ARK
/
PREFMT.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
733b
|
28 lines
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