Mercurial > repo
comparison interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/quantum/come-from.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 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 |