/usr/share/doc/clc-intercal/examples/reinstate-label.i is in clc-intercal 1:1.0~4pre1.-94.-2-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | PLEASE NOTE: This program demonstrates that reinstating and not
reinstating can happen in the same state
Copyright (c) 2006 Claudio Calvelli, all rights reserved.
CLC-INTERCAL is copyrighted software. However, permission to use, modify,
and distribute it is granted provided that the conditions set out in the
licence agreement are met. See files README and COPYING in the distribution.
DO REINSTATE (1) WHILE ABSTAINING FROM IT
(2) DO .1 <- #1
DO .1 <- #2
(1) PLEASE DON'T COME FROM (2)
DO READ OUT .1
DO REINSTATE (3) WHILE ABSTAINING FROM IT
(3) PLEASE DON'T .1 <- .1 ยข .1
DO READ OUT .1
DO GIVE UP
PLEASE NOTE: we aren't going to tell you what this program produces;
there's a race condition and we don't actually know.
|