home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug006.ark / PREFMT.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  733 b   |  28 lines
  1. REM    THIS IS "PREFMT.BAS"
  2.  
  3.  
  4. REM    ROUTINE TO PREFORMAT A DISK FILE FOR USE \
  5.     WITH 'MAINT.BAS' AND 'REPORT.BAS' \
  6.     FOR MAINTAINING A COMPUTER CLUB MAILING LIST
  7.  
  8. REM    PROGRAM LOGIC - WRITES A '0' AS THE FIRST FIELD \
  9.     IN THE FILE - THIS IS THE 'EMPTY RECORD' FLAG. \
  10.     A RECORD IN USE WILL HAVE A '1' HERE.
  11.  
  12.     INPUT "NAME OF FILE TO PREFORMAT";FILE.NAME$
  13.     PRINT "NUMBER OF SECTORS IN FILE"
  14.     PRINT "(MUST AGREE WITH FILE.SIZE IN:"
  15.     PRINT "     MAINT.BAS   AND"
  16.     INPUT "     REPORT.BAS) ";NO.SEC
  17.  
  18. REM    REC LENGTH 128 RECOMMENDED FOR SPEED OF ACCESS \
  19.     BUT IS NOT REQUIRED.
  20.     FILE FILE.NAME$(128)
  21.  
  22.     FOR I=1 TO NO.SEC
  23.         PRINT #1,I;0,"EMPTY RECORD",I
  24.         IF I=10*INT(I/10) THEN PRINT "RECORD ";I
  25.     NEXT
  26.     PRINT "DONE "
  27.     END
  28.