996
|
1 PLEASE NOTE: This program demonstrates that reinstating and not
|
|
2 reinstating can happen in the same state
|
|
3
|
|
4 Copyright (c) 2006 Claudio Calvelli, all rights reserved.
|
|
5
|
|
6 CLC-INTERCAL is copyrighted software. However, permission to use, modify,
|
|
7 and distribute it is granted provided that the conditions set out in the
|
|
8 licence agreement are met. See files README and COPYING in the distribution.
|
|
9
|
|
10 DO REINSTATE (1) WHILE ABSTAINING FROM IT
|
|
11 (2) DO .1 <- #1
|
|
12 DO .1 <- #2
|
|
13 (1) PLEASE DON'T COME FROM (2)
|
|
14 DO READ OUT .1
|
|
15 DO REINSTATE (3) WHILE ABSTAINING FROM IT
|
|
16 (3) PLEASE DON'T .1 <- .1 ¢ .1
|
|
17 DO READ OUT .1
|
|
18 DO GIVE UP
|
|
19
|
|
20 PLEASE NOTE: we aren't going to tell you what this program produces;
|
|
21 there's a race condition and we don't actually know.
|
|
22
|