|
996
|
1 PLEASE NOTE: this program demonstrates quantum "COME FROM".
|
|
|
2 Requires CLC-INTERCAL 1.-94 or newer.
|
|
|
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 (1) DO .1 <- #2
|
|
|
11 (2) DO COME FROM .1
|
|
|
12 DO READ OUT .1
|
|
|
13 DO GIVE UP
|
|
|
14
|
|
|
15 DO NOTHING FOR A LITTLE WHILE
|
|
|
16 TO LET THE TIME PASS
|
|
|
17 AND SHOW THAT TIME, FOR US RUNNING INTERCAL, NEVER RUNS SHORT
|
|
|
18
|
|
|
19 PLEASE PLEASE PLEASE
|
|
|
20 DO PLEASE COME FROM (1) WHILE NOT COMING FROM THERE
|
|
|
21
|
|
|
22 DO NOT BE MISLED BY THE ABOVE,
|
|
|
23 THE PROGRAM WILL COME HERE ALL THE TIME,
|
|
|
24 AND ALSO STOPS DEAD ON ITS TRACKS AT LABEL (TWO)
|
|
|
25
|
|
|
26 DO .1 <- #3
|
|
|
27
|
|
|
28 DO NOT THINK THE ABOVE STATEMENT IS POINTLESS:
|
|
|
29 IT LETS THE OTHER STATE (SUPERPOSED TO THIS ONE)
|
|
|
30 CONTINUE AND READ OUT ITS NUMBER "III"
|
|
|
31
|
|
|
32 BUT FOR US, THERE'S NOTHING MORE TO DO
|
|
|
33
|
|
|
34 GIVE UP
|
|
|
35
|
|
|
36 DO NOT SPEND TOO MUCH TIME ON THIS CODE,
|
|
|
37 WITH SUCH AN OBVIOUS MEANING
|
|
|
38 BUT INSTEAD THINK (DO NOT GIVE UP HOPE OF UNDERSTANDING)
|
|
|
39 THAT THIS LITTLE CODE
|
|
|
40 TURNS AROUNDS AND TWISTS
|
|
|
41 JUST A LITTLE BIT
|
|
|
42 AND THEN READS
|
|
|
43 THE SINGLE NUMBER THREE
|
|
|
44
|
