Click above to get retro games delivered to your door ever month!

  MEMOPACK:

  Purpose:  Purges unused blocks from a memo file without having to do the
            old COPY TO ... FOR !Deleted() kludge.  Can also be used to
            alter the block size used by an .FPT (SIXCDX) or .SMT (SIXNSX)
            memo file.

  Syntax:  MEMOPACK [BLOCK <size>] [OPTION <opt> [STEP <step>]]

   where:  size = a number from 16 to 1024 (in multiples of 16).  The <size>
                  parameter is only applicable when using .FPT or .SMT memo
                  files.  The block size currently being used within the
                  .FPT or .SMT file will be used if no block size parameter
                  is specified.
           opt  = a function to execute for each record processed or, when
                  used in conjunction with the STEP option, for each <step>
                  records.
           step = numeric value representing how often, in number of
                  records processed, to call the <opt> function.

    CAUTION:  Do NOT attempt to use this command if you specify paths
              using the Netware-specific syntax. You will lose data!  For
              example, never do this:

               USE FS\SYS:data\datafile
               MEMOPACK

                This is fine:

               USE y:\data\datafile
               MEMOPACK

   Example:

     // Packs BOGUS.FPT, using 128 byte blocks, calling a UDF called MyUDF()
     // for every five records that are processed to show progress.

     RDDSetDefault("SIXCDX")
     USE bogus EXCL
     ? "Packing BOGUS.FPT: "
     MEMOPACK BLOCK 128 OPTION QQOut(".") STEP 5
     IF Sx_Error() # 0
       Alert( "Memo file NOT packed successfully." )
     ENDIF


   NOTE:  The DBF file must be opened in EXCLUSIVE mode to use this
          function.