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 | |
|---|---|
|
|
| File size: 246 bytes | |
| Line | |
|---|---|
| 1 | $use Access StdIO; |
| 2 | |
| 3 | Main = |
| 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.
