source: to-imperative/trunk/samples/Access/middle.rf @ 689

Last change on this file since 689 was 689, checked in by orlov, 18 years ago
  • All Words are changed to Chars sequences, so tests work with the current runtime version.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 180 bytes
Line 
1$use Access StdIO;
2
3Main =
4  {
5    <PrintLN <Middle 0 0 'abc'>>,
6      <PrintLN <Middle 2 3 'abcdef'>>,
7      <PrintLN <Middle 2 3 'abcd'>>;
8    <PrintLN 'Branch 1 failed'>;
9  };
10
Note: See TracBrowser for help on using the repository browser.