home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FILER.ZIP / FILER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-18  |  3.1 KB  |  86 lines
  1. (***************************************************************)
  2. (*                                                             *)
  3. (*        FILER A LA PASCAL DATA BASE SOURCE CODE FILE         *)
  4. (*                                                             *)
  5. (*        (C) 1985 by  John M. Harlan                          *)
  6. (*                     24000 Telegraph                         *)
  7. (*                     Southfield, MI. 48034                   *)
  8. (*                                                             *)
  9. (*     The FILER GROUP of programs is released on a "FREE      *)
  10. (*     SOFTWARE" basis.  The recipient is free to examine      *)
  11. (*     and use the software with the understanding that if     *)
  12. (*     the FILER GROUP of programs prove to be of use and      *)
  13. (*     value,  a contribution to the author is encouraged.     *)
  14. (*                                                             *)
  15. (*     While reasonable effort has been made to ensure the     *)
  16. (*     reliability of the FILER GROUP of programs, no war-     *)
  17. (*     ranty is given. The recipient uses the programs at      *)
  18. (*     his own risk  and in no event shall the author be       *)
  19. (*     liable for damages arising from their use.              *)
  20. (*                                                             *)
  21. (*                                                             *)
  22. (***************************************************************)
  23.  
  24. PROGRAM FILER;
  25. {$C-}                       { MAKE CTRL C AND CTRL S INOPERATIVE }
  26. {  A DATA BASE PROGRAM WRITTEN IN TURBO PASCAL FOR PC-DOS COMPUTERS  }
  27. {  FILER.PAS VERSION 2.0 }
  28. {  INCLUDE FILES : FILER1.PAS, FILER2.PAS, FILER3.PAS, FILER4.PAS }
  29. {  JUNE 28, 1985  }
  30.  
  31. LABEL              FILERSTART;
  32.  
  33. TYPE
  34.   RANGE          = ARRAY[1..256] OF CHAR;
  35.   STRING60       = STRING[60];
  36.   NAMESTR        = STRING[12];
  37.  
  38. CONST
  39.   HILIGHT          : STRING[3]  = ' ';
  40.   LOWLIGHT         : STRING[3]  = '';
  41.  
  42. VAR
  43.   FILERECCHGD      : BOOLEAN;
  44.   CONDITION        : BOOLEAN;
  45.   CHANGEDATE       : BOOLEAN;
  46.   ABORTCHAR        : BOOLEAN;
  47.   RECADDEDTOFILE   : BOOLEAN;
  48.   FILEEXISTS       : BOOLEAN;
  49.  
  50.   CH,CH1,OPTION    : CHAR;
  51.   SEARCHTYPE       : CHAR;
  52.  
  53.   FILENAME       : STRING[6];
  54.   FILEDATE,
  55.   CURRDATE       : STRING[8];
  56.   SOURCENAME     : STRING[14];
  57.   ANS            : STRING60;
  58.   TARGET         : STRING60;
  59.   LASTTARGET     : STRING60;
  60.   MESSAGE        : STRING60;
  61.  
  62.   W,X,Z, CODE, COUNT, VALUE, LEN,
  63.   MAXNBRREC, NBRRECUSED, RCDLEN,
  64.   BLOCKINGFACTOR, FIELDPERRECORD,
  65.   DATARECORD, DISKRECORD, PRECBYTE,
  66.   DISKRECNOWINMEM, NBRDISKRECUSED,
  67.   LASTRECUSED, FIRST, POSN, INCR,
  68.   ASCII                                      :    INTEGER;
  69.  
  70.   NUMVALUE, TARGETVALUE                      :    REAL;
  71.  
  72.   LABELLENGTH, DATALEN, DATAFORM,
  73.   LABELPOSN, DATAPOSN, ROW,
  74.   COLUMN, FIELDNBR                  :    ARRAY[1..32] OF INTEGER;
  75.   LBL                               :    ARRAY[1..384] OF CHAR;
  76.   GETDATA                           :    RANGE;
  77.  
  78.   SOURCE                            :    FILE;
  79.  
  80. {$IFILER1.PAS}
  81. {$IFILER2.PAS}
  82. {$IFILER3.PAS}
  83. {$IFILER4.PAS}
  84.  
  85. END.
  86.