|
996
|
1 PLEASE NOTE: this program demonstrates quantum "COME FROM GERUND".
|
|
|
2 Requires CLC-INTERCAL 1.-94 or newer.
|
|
|
3 Also requires the "COME FROM GERUND" extension
|
|
|
4
|
|
|
5 Copyright (c) 2006 Claudio Calvelli, all rights reserved.
|
|
|
6
|
|
|
7 CLC-INTERCAL is copyrighted software. However, permission to use, modify,
|
|
|
8 and distribute it is granted provided that the conditions set out in the
|
|
|
9 licence agreement are met. See files README and COPYING in the distribution.
|
|
|
10
|
|
|
11 DO .1 <- #2
|
|
|
12 PLEASE IGNORE .2
|
|
|
13 (2) DO COME FROM .1
|
|
|
14 DO READ OUT .1
|
|
|
15 DO GIVE UP
|
|
|
16
|
|
|
17 DO NOTHING FOR A LITTLE WHILE
|
|
|
18 TO LET THE TIME PASS
|
|
|
19 AND SHOW THAT TIME, FOR US RUNNING INTERCAL, NEVER RUNS SHORT
|
|
|
20
|
|
|
21 PLEASE PLEASE PLEASE
|
|
|
22 DO PLEASE COME FROM IGNORING WHILE NOT COMING FROM THERE
|
|
|
23
|
|
|
24 DO NOT BE MISLED BY THE ABOVE,
|
|
|
25 THE PROGRAM WILL COME HERE ALL THE TIME,
|
|
|
26 AND ALSO STOPS DEAD ON ITS TRACKS AT LABEL (TWO)
|
|
|
27
|
|
|
28 DO .1 <- #3
|
|
|
29
|
|
|
30 DO NOT THINK THE ABOVE STATEMENT IS POINTLESS:
|
|
|
31 IT LETS THE OTHER STATE (SUPERPOSED TO THIS ONE)
|
|
|
32 CONTINUE AND READ OUT ITS NUMBER "III"
|
|
|
33
|
|
|
34 BUT FOR US, THERE'S NOTHING MORE TO DO
|
|
|
35
|
|
|
36 GIVE UP
|
|
|
37
|
|
|
38 DO NOT SPEND TOO MUCH TIME ON THIS CODE,
|
|
|
39 WITH SUCH AN OBVIOUS MEANING
|
|
|
40 BUT INSTEAD THINK (DO NOT GIVE UP HOPE OF UNDERSTANDING)
|
|
|
41 THAT THIS LITTLE CODE
|
|
|
42 TURNS AROUNDS AND TWISTS
|
|
|
43 JUST A LITTLE BIT
|
|
|
44 AND THEN READS
|
|
|
45 THE SINGLE NUMBER THREE
|
|
|
46
|
