Mercurial > repo
comparison interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/hello.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 IS A *REAL* "HELLO, WORLD" PROGRAM -- | |
| 2 NOT ONE OF THOSE USELESS THINGS WHICH PRINT THE STRING | |
| 3 "HELLO, WORLD" | |
| 4 | |
| 5 THIS PROGRAM WRITES A STRING IN FROM STANDARD INPUT, | |
| 6 AND PRODUCES AN ERROR IF THE STRING WAS NOT | |
| 7 "HELLO, WORLD" | |
| 8 | |
| 9 THIS PROGRAM REQUIRES CLC-INTERCAL | |
| 10 | |
| 11 Copyright (c) 2006 Claudio Calvelli, all rights reserved. | |
| 12 | |
| 13 CLC-INTERCAL is copyrighted software. However, permission to use, modify, | |
| 14 and distribute it is granted provided that the conditions set out in the | |
| 15 licence agreement are met. See files README and COPYING in the distribution. | |
| 16 | |
| 17 PLEASE ;1 <- #12 | |
| 18 (1) PLEASE WRITE IN ;1 | |
| 19 PLEASE GIVE UP | |
| 20 | |
| 21 PLEASE PLEASE PLEASE (PRETTY PLEASE) | |
| 22 DO NOT ASK ME TO SEE THE REST OF THIS PROGRAM | |
| 23 | |
| 24 DO COME FROM '".1/'"'¥#29¢"';1SUB#1'~#65535"'~'#0¢#65535'"~ | |
| 25 "'¥#29¢"';1SUB#1'~#65535"'~'#0¢#65535'"'~#1"~#0'¢.1 | |
| 26 ERROR: THE FIRST CHARACTER IS NOT "H" | |
| 27 | |
| 28 DO COME FROM '".2/'"'¥#1356¢"';1SUB#2'~#65535"'~'#0¢#65535'"~ | |
| 29 "'¥#1356¢"';1SUB#2'~#65535"'~'#0¢#65535'"'~#1"~#0'¢ | |
| 30 '.2~"'¥#1¢.1'~#1"' | |
| 31 ERROR: THE SECOND CHARACTER IS NOT "E" | |
| 32 | |
| 33 DO COME FROM '".3/'"'¥#377¢"';1SUB#3'~#65535"'~'#0¢#65535'"~ | |
| 34 "'¥#377¢"';1SUB#3'~#65535"'~'#0¢#65535'"'~#1"~#0'¢ | |
| 35 '".22/'"V.1¢.2"~#1'"~#0'¢'.3~"'¥#1¢.22'~#1"' | |
| 36 ERROR: THE THIRD CHARACTER IS NOT "L" | |
| 37 | |
| 38 DO COME FROM '".4/'"'¥#383¢"';1SUB#4'~#65535"'~'#0¢#65535'"~ | |
| 39 "'¥#383¢"';1SUB#4'~#65535"'~'#0¢#65535'"'~#1"~#0'¢ | |
| 40 '".23/'"V.22¢.3"~#1'"~#0'¢'.4~"'¥#1¢.23'~#1"' | |
| 41 ERROR: THE FOURTH CHARACTER IS NOT "L" | |
| 42 | |
| 43 DO COME FROM '".5/'"'¥#378¢"';1SUB#5'~#65535"'~'#0¢#65535'"~ | |
| 44 "'¥#378¢"';1SUB#5'~#65535"'~'#0¢#65535'"'~#1"~#0'¢ | |
| 45 '".24/'"V.23¢.4"~#1'"~#0'¢'.5~"'¥#1¢.24'~#1"' | |
| 46 ERROR: THE FIFTH CHARACTER IS NOT "O" | |
| 47 | |
| 48 DO COME FROM '".6/'"'¥#177¢"';1SUB#6'~#65535"'~'#0¢#65535'"~ | |
| 49 "'¥#177¢"';1SUB#6'~#65535"'~'#0¢#65535'"'~#1"~#0'¢ | |
| 50 '".25/'"V.24¢.5"~#1'"~#0'¢'.6~"'¥#1¢.25'~#1"' | |
| 51 ERROR: THE SIXTH CHARACTER IS NOT COMMA | |
| 52 | |
| 53 DO COME FROM '".7/'"'¥#373¢"';1SUB#7'~#65535"'~'#0¢#65535'"~ | |
| 54 "'¥#373¢"';1SUB#7'~#65535"'~'#0¢#65535'"'~#1"~#0'¢ | |
| 55 '".26/'"V.25¢.6"~#1'"~#0'¢'.7~"'¥#1¢.26'~#1"' | |
| 56 ERROR: THE SEVENTH CHARACTER IS NOT SPACE | |
| 57 | |
| 58 DO COME FROM '".8/'"'¥#4160¢"';1SUB#8'~#65535"'~'#0¢#65535'"~ | |
| 59 "'¥#4160¢"';1SUB#8'~#65535"'~'#0¢#65535'"'~#1"~#0'¢ | |
| 60 '".27/'"V.26¢.7"~#1'"~#0'¢'.8~"'¥#1¢.27'~#1"' | |
| 61 ERROR: THE EIGHTH CHARACTER IS NOT "W" | |
| 62 | |
| 63 DO COME FROM '".9/'"'¥#574¢"';1SUB#9'~#65535"'~'#0¢#65535'"~ | |
| 64 "'¥#574¢"';1SUB#9'~#65535"'~'#0¢#65535'"'~#1"~#0'¢ | |
| 65 '".28/'"V.27¢.8"~#1'"~#0'¢'.9~"'¥#1¢.28'~#1"' | |
| 66 ERROR: THE NINTH CHARACTER IS NOT "O" | |
| 67 | |
| 68 DO COME FROM '".10/'"'¥#540¢"';1SUB#10'~#65535"'~'#0¢#65535'"~ | |
| 69 "'¥#540¢"';1SUB#10'~#65535"'~'#0¢#65535'"'~#1"~#0'¢ | |
| 70 '".29/'"V.28¢.9"~#1'"~#0'¢'.10~"'¥#1¢.29'~#1"' | |
| 71 ERROR: THE TENTH CHARACTER IS NOT "R" | |
| 72 | |
| 73 DO COME FROM '".11/'"'¥#353¢"';1SUB#11'~#65535"'~'#0¢#65535'"~ | |
| 74 "'¥#353¢"';1SUB#11'~#65535"'~'#0¢#65535'"'~#1"~#0'¢ | |
| 75 '".30/'"V.29¢.10"~#1'"~#0'¢'.11~"'¥#1¢.30'~#1"' | |
| 76 ERROR: THE ELEVENTH CHARACTER IS NOT "L" | |
| 77 | |
| 78 DO COME FROM '".12/'"'¥#375¢"';1SUB#12'~#65535"'~'#0¢#65535'"~ | |
| 79 "'¥#375¢"';1SUB#12'~#65535"'~'#0¢#65535'"'~#1"~#0'¢ | |
| 80 '".31/'"V.30¢.11"~#1'"~#0'¢'.12~"'¥#1¢.31'~#1"' | |
| 81 ERROR: THE TWELFTH AND LAST CHARACTER IS NOT "D" | |
| 82 |