home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dbcontac.lbr / MFILE.CMD < prev    next >
Encoding:
Text File  |  1993-10-26  |  512 b   |  18 lines
  1. *  mfile subprogram for CONTACT system
  2. ERASE
  3. @ 23,1 SAY 'I am reindexing the ZIP file, please wait==>                           '
  4. SELECT PRIMARY
  5. USE B:TEMP INDEX B:ZIP
  6. REINDEX
  7. ERASE
  8. @ 23,1 SAY 'I am writing a forign file of data, please wait==>                  '
  9. USE B:TEMP INDEX B:ZIP
  10.  
  11. DO WHILE .NOT. EOF .AND. .NOT. ZIP='         '
  12.  COPY TO B:label.txt FIELD first,last,house,street,suite,city,state,zip DELIMITED WITH ,
  13. ENDDO WHILE.NOT.EOF
  14.  
  15. RETURN
  16.  
  17. * end mfile
  18.