diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/hello.i	Sun Dec 09 19:30:08 2012 +0000
@@ -0,0 +1,82 @@
+	PLEASE NOTE: THIS IS A *REAL* "HELLO, WORLD" PROGRAM --
+	NOT ONE OF THOSE USELESS THINGS WHICH PRINT THE STRING
+	"HELLO, WORLD"
+
+	THIS PROGRAM WRITES A STRING IN FROM STANDARD INPUT,
+	AND PRODUCES AN ERROR IF THE STRING WAS NOT
+	"HELLO, WORLD"
+
+	THIS PROGRAM REQUIRES CLC-INTERCAL
+
+Copyright (c) 2006 Claudio Calvelli, all rights reserved.
+
+CLC-INTERCAL is copyrighted software. However, permission to use, modify,
+and distribute it is granted provided that the conditions set out in the
+licence agreement are met. See files README and COPYING in the distribution.
+
+	PLEASE ;1 <- #12
+(1)	PLEASE WRITE IN ;1
+	PLEASE GIVE UP
+
+	PLEASE PLEASE PLEASE (PRETTY PLEASE)
+	DO NOT ASK ME TO SEE THE REST OF THIS PROGRAM
+
+	DO COME FROM '".1/'"'¥#29¢"';1SUB#1'~#65535"'~'#0¢#65535'"~
+		     "'¥#29¢"';1SUB#1'~#65535"'~'#0¢#65535'"'~#1"~#0'¢.1
+	ERROR: THE FIRST CHARACTER IS NOT "H"
+
+	DO COME FROM '".2/'"'¥#1356¢"';1SUB#2'~#65535"'~'#0¢#65535'"~
+		     "'¥#1356¢"';1SUB#2'~#65535"'~'#0¢#65535'"'~#1"~#0'¢
+		     '.2~"'¥#1¢.1'~#1"'
+	ERROR: THE SECOND CHARACTER IS NOT "E"
+
+	DO COME FROM '".3/'"'¥#377¢"';1SUB#3'~#65535"'~'#0¢#65535'"~
+		     "'¥#377¢"';1SUB#3'~#65535"'~'#0¢#65535'"'~#1"~#0'¢
+		     '".22/'"V.1¢.2"~#1'"~#0'¢'.3~"'¥#1¢.22'~#1"'
+	ERROR: THE THIRD CHARACTER IS NOT "L"
+
+	DO COME FROM '".4/'"'¥#383¢"';1SUB#4'~#65535"'~'#0¢#65535'"~
+		     "'¥#383¢"';1SUB#4'~#65535"'~'#0¢#65535'"'~#1"~#0'¢
+		     '".23/'"V.22¢.3"~#1'"~#0'¢'.4~"'¥#1¢.23'~#1"'
+	ERROR: THE FOURTH CHARACTER IS NOT "L"
+
+	DO COME FROM '".5/'"'¥#378¢"';1SUB#5'~#65535"'~'#0¢#65535'"~
+		     "'¥#378¢"';1SUB#5'~#65535"'~'#0¢#65535'"'~#1"~#0'¢
+		     '".24/'"V.23¢.4"~#1'"~#0'¢'.5~"'¥#1¢.24'~#1"'
+	ERROR: THE FIFTH CHARACTER IS NOT "O"
+
+	DO COME FROM '".6/'"'¥#177¢"';1SUB#6'~#65535"'~'#0¢#65535'"~
+		     "'¥#177¢"';1SUB#6'~#65535"'~'#0¢#65535'"'~#1"~#0'¢
+		     '".25/'"V.24¢.5"~#1'"~#0'¢'.6~"'¥#1¢.25'~#1"'
+	ERROR: THE SIXTH CHARACTER IS NOT COMMA
+
+	DO COME FROM '".7/'"'¥#373¢"';1SUB#7'~#65535"'~'#0¢#65535'"~
+		     "'¥#373¢"';1SUB#7'~#65535"'~'#0¢#65535'"'~#1"~#0'¢
+		     '".26/'"V.25¢.6"~#1'"~#0'¢'.7~"'¥#1¢.26'~#1"'
+	ERROR: THE SEVENTH CHARACTER IS NOT SPACE
+
+	DO COME FROM '".8/'"'¥#4160¢"';1SUB#8'~#65535"'~'#0¢#65535'"~
+		     "'¥#4160¢"';1SUB#8'~#65535"'~'#0¢#65535'"'~#1"~#0'¢
+		     '".27/'"V.26¢.7"~#1'"~#0'¢'.8~"'¥#1¢.27'~#1"'
+	ERROR: THE EIGHTH CHARACTER IS NOT "W"
+
+	DO COME FROM '".9/'"'¥#574¢"';1SUB#9'~#65535"'~'#0¢#65535'"~
+		     "'¥#574¢"';1SUB#9'~#65535"'~'#0¢#65535'"'~#1"~#0'¢
+		     '".28/'"V.27¢.8"~#1'"~#0'¢'.9~"'¥#1¢.28'~#1"'
+	ERROR: THE NINTH CHARACTER IS NOT "O"
+
+	DO COME FROM '".10/'"'¥#540¢"';1SUB#10'~#65535"'~'#0¢#65535'"~
+		     "'¥#540¢"';1SUB#10'~#65535"'~'#0¢#65535'"'~#1"~#0'¢
+		     '".29/'"V.28¢.9"~#1'"~#0'¢'.10~"'¥#1¢.29'~#1"'
+	ERROR: THE TENTH CHARACTER IS NOT "R"
+
+	DO COME FROM '".11/'"'¥#353¢"';1SUB#11'~#65535"'~'#0¢#65535'"~
+		     "'¥#353¢"';1SUB#11'~#65535"'~'#0¢#65535'"'~#1"~#0'¢
+		     '".30/'"V.29¢.10"~#1'"~#0'¢'.11~"'¥#1¢.30'~#1"'
+	ERROR: THE ELEVENTH CHARACTER IS NOT "L"
+
+	DO COME FROM '".12/'"'¥#375¢"';1SUB#12'~#65535"'~'#0¢#65535'"~
+		     "'¥#375¢"';1SUB#12'~#65535"'~'#0¢#65535'"'~#1"~#0'¢
+		     '".31/'"V.30¢.11"~#1'"~#0'¢'.12~"'¥#1¢.31'~#1"'
+	ERROR: THE TWELFTH AND LAST CHARACTER IS NOT "D"
+