home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d23456 / CAJSCRTP.ZIP / demo_kylix / exittest.ifs < prev    next >
Text File  |  2000-10-31  |  227b  |  15 lines
  1. Program CajScriptTest;
  2.   procedure Test;
  3.   begin
  4.     Writeln('test1');
  5.     Exit;
  6.     Writeln('Test2');
  7.   end;
  8. Begin
  9.     Writeln('test1_1');
  10.     test;
  11.     Writeln('Test1_2');
  12.     exit;
  13.     Writeln('Test1_3');
  14. End.
  15.