home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 03 / tricks / csdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-29  |  619 b   |  20 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      CSDEMO.PAS                        *)
  3. (*     Demonstration der Anwendung von CHECKSUM.TPU       *)
  4. (* ------------------------------------------------------ *)
  5. {$R-,S+,I+,D+,F-,V+,B-,N-,L+}
  6. {$M 32000,00000,00000}
  7.  
  8. PROGRAM CsDemo;
  9. USES Dos, Crt, CheckSum;
  10.  
  11. CONST
  12.   Dummy : BYTE = 031;
  13.   Msg   : STRING[15] = 'Checksum was ok';
  14.  
  15. BEGIN
  16.   CheckProgFileForChange('CSDEMO.EXE');
  17.   WriteLn(msg);
  18. END.
  19. (* ------------------------------------------------------ *)
  20. (*                Ende von CSDEMO.PAS                     *)