Mercurial > repo
comparison interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/quantum/reinstate-label.i @ 996:859f9b4339e6
<Gregor> tar xf egobot.tar.xz
author | HackBot |
---|---|
date | Sun, 09 Dec 2012 19:30:08 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
995:6883f5911eb7 | 996:859f9b4339e6 |
---|---|
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 |