blob: 32279e80d43cd3dd3a097326e3cc8ed88cf9ca23 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
| | |
"Informal by Nature"
[ * * * ]
by
[ * * * ]
David Corbett
[This is a [nested] comment.]
Section 1 - Use option translation
Use maximum tests of at least 100 translates as (-
@c
Constant MAX_TESTS = {N}; —). | Section 2
A room has a number called size.
The Kitchen is a room. "A nondescript kitchen.“ The Kitchen has size 2.
When play begins:
say "Testing:[line break]";
test 0.
To test (N — number): (—
if (Test({N}) == (+size of the Kitchen [this should succeed]+)) {-open—brace}
print ”Success.^”;
{-close-brace} else {
print “Failure.^";
}
]; ! You shouldn't end a routine within a phrase definition, but it works.
[ Unused;
#Include "\
@p \
"; ! At signs hold no power here.
! Of course, the file "@p .h" must exist.
-).
Include (-!% This is not ICL.
[ Test x;
if (x) {x++;}
{–! Single line comment.}
@inc x;
@p At signs.
...
@Purpose: ...
...
@-...
@c ...
@inc x;
@c
@c
return x;
];
@Purpose: ...
@-------------------------------------------------------------------------------
-).
|
