source: to-imperative/trunk/samples/Access/l1.rf @ 569

Last change on this file since 569 was 569, checked in by orlov, 18 years ago
  • More complete test.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 246 bytes
Line 
1$use Access StdIO;
2
3Main =
4  {
5    <PrintLN <L 0 'ab'>>, <PrintLN <L 1 'ab'>>, <PrintLN <L 2 'ab'>>;
6    <PrintLN "Branch 1 failed.">, <PrintLN <L 1 ''>>;
7    <PrintLN "Branch 2 failed.">, <PrintLN <L 0>>;
8    <PrintLN "Branch 3 failed.">;
9  };
10
Note: See TracBrowser for help on using the repository browser.