home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / demo / exittest.ifps3 < prev    next >
Text File  |  2002-01-05  |  158b  |  14 lines
  1. Program IFSTest;
  2. procedure test;
  3. begin
  4.   writeln('1');
  5.   exit;
  6.   writeln('2');
  7. end;
  8. Begin
  9.   test;
  10.   writeln('3');
  11.   exit;
  12.   writeln('4');
  13.   
  14. End.