home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / dos / demotest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-13  |  918 b   |  23 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-,Y-,M 1024,0,0}
  2. (*===================================================================*)
  3. (*                            DEMOTEST.PAS                           *)
  4. (*                 Copyright (C) 1993 te-wi Verlag                   *)
  5. (*-------------------------------------------------------------------*)
  6. (*               Demonstration für die Unit DEMOFILE                 *)
  7. (*===================================================================*)
  8.  
  9. PROGRAM DemoForDemofileUnit;
  10. {$DEFINE demo}                        { <-- bei Vollversion weglassen }
  11. USES
  12.   Crt {$IFDEF demo}, DemoFile {$ENDIF};
  13.  
  14. BEGIN
  15.  {$IFDEF demo}
  16.    Write ('Dies ist ein Test für die UNIT ''DEMOFILE''');
  17.  {$ELSE}
  18.    Write('Dies ist die Vollversion von DEMOTEST ohne Programmzähler!');
  19.  {$ENDIF}
  20. END.
  21.  
  22. (*===================================================================*)
  23.