home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 14 / tools / test.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-03-21  |  620 b   |  19 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      TEST.PAS                          *)
  3. (*         Demonstration des Viren-Selbsttests            *)
  4. (*         (c) 1989  Klaus Ruzicka  &  TOOLBOX            *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM Test;
  7.  
  8. TYPE str12 = ARRAY [1..12] OF CHAR;
  9.  
  10. {$I CHK.INC}
  11.  
  12. VAR name : str12;
  13.  
  14. BEGIN
  15.   name := 'TEST.COM    ';    { Das müssen 12 Zeichen sein! }
  16.   selftest(name);
  17. END.
  18. (* ------------------------------------------------------ *)
  19. (*                   Ende von TEST.PAS                    *)