Mercurial > repo
comparison interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/quantum/finish.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 shows how a student can be attending a | |
2 lecture while, at the same time, be somewhere completely different. | |
3 | |
4 Requires CLC-INTERCAL 1.-94. | |
5 | |
6 Copyright (c) 2006 Claudio Calvelli, all rights reserved. | |
7 | |
8 CLC-INTERCAL is copyrighted software. However, permission to use, modify, | |
9 and distribute it is granted provided that the conditions set out in the | |
10 licence agreement are met. See files README and COPYING in the distribution. | |
11 | |
12 DO STUDY #1 AT (1000) IN CLASS @1 | |
13 DO ENROL .1 TO LEARN #1 | |
14 DO .1 <- #1 | |
15 DO .1 LEARNS #1 | |
16 PLEASE READ OUT .1 | |
17 DO GIVE UP | |
18 | |
19 (1000) PLEASE FINISH LECTURE WHILE CONTINUING IT | |
20 DO NOTHING FOR A SHORT WHILE | |
21 DO .1 <- #2 | |
22 DO FINISH LECTURE | |
23 | |
24 PLEASE DON'T ASK ME WHAT HAPPENS HERE | |
25 Just run the program and see, will you? | |
26 You'll never know (until you observe) if you'll see | |
27 a repeated "II" or maybe a "I" and a "II", not | |
28 necessarily in that order. | |
29 |