-This directory contains the documentation (such as it is) for INTERCAL.\r
-\r
-READ.ME\r
- This file.\r
-\r
-intercal.mm:\r
- Masters for the INTERCAL manual (needs pic to render illos)\r
- This has been carefully proofread against the original paper\r
- version.\r
-\r
-THEORY\r
- Implementation notes on the C-INTERCAL implementation.\r
-\r
-chip.spec:\r
- Christian Brunschen's spec sheet for the INTERCAL chip.\r
-\r
-ick.txi:\r
- Master for the Revamped reference manual, a newer manual\r
- independent of the old one.\r
-\r
-Note 1: The TeX version we formerly distributed has been dropped. The\r
-combination of groff and pic does an effective job of rendering the\r
-illustrations and is easier to maintain.\r
-\r
-Note 2: The supplemental reference manual, ick.txt, has been merged\r
-into the intercal manual. (It is still possible to generate the \r
-original; see the Makefile.)\r
-\r
-Note 3: The flat-ASCII directly transcribed from the paper original is\r
-also gone. You can regenerate something very close to it with `make\r
-original.txt'. The differences will be (a) page breaks may fall in\r
-different places, (b) the circuit diagrams present in the paper\r
-version but absent in the ASCII transcription are instead poorly\r
-approximated with ASCII boxology, (c) every "butchered Roman numeral"\r
-is preceded and followed by a line break, (d) the hanging-indent list\r
-of Princeton compiler options has all marks above each description,\r
-rather than to its left.\r
-\r
-The aim of these changes was to reduce to one the number of manual masters that\r
-need to be maintained for the original manual, which can both produce the\r
-original INTERCAL-72 manual and the revised version that existed up to about\r
-version 0.18. The revised version proved to be unportable and impractical; it's\r
-still worth a read, but for up-to-date information available in a range of\r
+This directory contains the documentation (such as it is) for INTERCAL.
+
+READ.ME
+ This file.
+
+intercal.mm:
+ Masters for the INTERCAL manual (needs pic to render illos)
+ This has been carefully proofread against the original paper
+ version.
+
+THEORY
+ Implementation notes on the C-INTERCAL implementation.
+
+chip.spec:
+ Christian Brunschen's spec sheet for the INTERCAL chip.
+
+ick.txi:
+ Master for the Revamped reference manual, a newer manual
+ independent of the old one.
+
+Note 1: The TeX version we formerly distributed has been dropped. The
+combination of groff and pic does an effective job of rendering the
+illustrations and is easier to maintain.
+
+Note 2: The supplemental reference manual, ick.txt, has been merged
+into the intercal manual. (It is still possible to generate the
+original; see the Makefile.)
+
+Note 3: The flat-ASCII directly transcribed from the paper original is
+also gone. You can regenerate something very close to it with `make
+original.txt'. The differences will be (a) page breaks may fall in
+different places, (b) the circuit diagrams present in the paper
+version but absent in the ASCII transcription are instead poorly
+approximated with ASCII boxology, (c) every "butchered Roman numeral"
+is preceded and followed by a line break, (d) the hanging-indent list
+of Princeton compiler options has all marks above each description,
+rather than to its left.
+
+The aim of these changes was to reduce to one the number of manual masters that
+need to be maintained for the original manual, which can both produce the
+original INTERCAL-72 manual and the revised version that existed up to about
+version 0.18. The revised version proved to be unportable and impractical; it's
+still worth a read, but for up-to-date information available in a range of
formats it's worth reading the Revamped manual instead.
\ No newline at end of file
- INTERCAL IMPLEMENTOR'S NOTES\r
- by ESR (and AIS where noted)\r
-\r
-The C-INTERCAL compiler has a very conventional implementation using YACC and\r
-LEX (latterly, bison and flex). It generates C, which is then passed to your C\r
-compiler.\r
-\r
- Lexical issues\r
-\r
-Note that the spectacular ugliness of INTERCAL syntax requires that the lexical\r
-analyzer have two levels. One, embedded in the input() function, handles the\r
-backquote and bang constructs, and stashes the input line away in a buffer for\r
-the splat construct's benefit. The upper level is generated by lex(1) and does\r
-normal tokenizing for YACC.\r
-\r
-In order to splatter erroneous statements correctly, the generated code has to\r
-track both logical and physical lines. That's the reason for the `lineno'\r
-variable in the generated C, it's actually tracking physical lines.\r
-\r
-Numeral tokens for input are defined in a symbol table (numerals.c) that is\r
-directly included in the run-time library module (cesspool.c). This avoids\r
-having to put the the size of the numerals array in an extern. To add new\r
-numeral tokens, simply put them in the numerals initializer.\r
-\r
-AIS: Now computed COME FROM is in the language, the lexer is called forth to do\r
- a bit of syntax analysis, by distinguishing it from an ordinary COME FROM\r
- and passing different symbols to the parser. The lexer is also responsible\r
- for helping the parser to match sparks and ears in complicated array\r
- situations, by distinguishing possibly closing sparkears from definitely\r
- opening sparkears.\r
-\r
- Compilation\r
-\r
-The parser builds an array of tuples, one for each INTERCAL statement. Most\r
-tuples have node trees attached. Once all tuples have been generated, the\r
-compile-time checker and optimizer phases can do consistency checks and\r
-expression-tree rewrites. Finally, the tuples are ground out as C code by the\r
-emit() function.\r
-\r
-Calculations are fully type-checked at compile time; they have to be because\r
-(as I read the manual) the 16- and 32-bit versions of the unary ops do\r
-different things. The only potential problem here is that the typechecker has\r
-to assume that :m ~ :n has the type of :n (32-bit) even though the result might\r
-fit in 16 bits. At run-time everything is calculated in 32 bits. When\r
-INTERCAL-72 was designed 32 bits was expensive; now it's cheap. Really, the\r
-only reason for retaining a 16-bit type at all is for the irritation value of\r
-it (yes, C-INTERCAL *does* enforce the 16-bit limit on constants).\r
-\r
-Labels are mapped to tuple indices (logical line numbers) in the code checker,\r
-just before optimization.\r
-\r
-The optimizer does full recursive folding of all constant expressions at\r
-compile time (evaluating away all the irritating little kluges you have to use\r
-to generate 32-bit constants). It also checks for known INTERCAL idioms for\r
-`test for equality', `test for nonzeroness', and the C logical operators &, |,\r
-^, and ~.\r
-\r
-AIS: The optimizer has now been expanded. See below.\r
-\r
- Code Generation\r
-\r
-Each line of INTERCAL is translated into a C if()-then; the guard part is used\r
-to implement abstentions and RESUMES, and the arm part translates the `body' of\r
-the corresponding INTERCAL statement.\r
-\r
-The generated C code is plugged into the template file ick-wrap.c inside\r
-main(). It needs to be linked with cesspool.o, fiddle.o and lose.o (these are\r
-in libick.a, with the support for runtime switches, arrgghh.o). Cesspool.o is\r
-the code that implements the storage manager; fiddle.o implements the INTERCAL\r
-operators; and lose.o is the code that generates INTERCAL's error messages.\r
-The routine arrgghh.o parses the runtime command line arguments.\r
-\r
-The abstain[] array in the generated C is used to track line and label\r
-abstentions; if member i is on, the statement on line i is being abstained\r
-from. If gerund abstentions/reinstatements are present in the code, a second\r
-array recording the type of each statement in generated into the runtime, and\r
-used to ensure that these operations are translated into abstention-guard\r
-changes on all appropriate line numbers.\r
-\r
-RESUMES are implemented with a branch to a generated switch statement that\r
-executes a goto to the appropriate label. If there are no RESUMES, no such\r
-switch is generated.\r
-\r
-The compiler places a simple label at the location of each COME FROM in the\r
-program, while all of the machinery for checking for abstention and conditional\r
-execution and actually performing the jump is placed immediately after the code\r
-for the target statement.\r
-\r
- Credits\r
-\r
-I wrote the first version of this compiler over a weekend using a pre-ANSI C\r
-compiler. It worked, but it wasn't pretty. Louis Howell added the array\r
-support later; he also torture-tested the COME FROM implementation by actually\r
-using it for the life2.i program included in this distribution, and fixed some\r
-bugs. Brian Raiter did a much-needed delinting while porting it for ANSI C,\r
-flex and Linux. He also improved the lexical analyzer's line tracking.\r
-\r
- Code Generation 2 (by AIS)\r
-\r
-The recent additions to the language have made code generation potentially more\r
-complicated, depending on which switches are on. Each INTERCAL command is still\r
-translated into an if()-then, but with extra guards around it. COME FROM is\r
-still handled the same way, but only in singlethreaded programs with no\r
-computed COME FROMs. For anything more complicated than that, a general COMING\r
-FROM mechanism is invoked. C's most confusing control-flow identifiers, setjmp\r
-and longjmp, are used. When computed COME FROMs are involved, after every\r
-labeled statement, a set of gotos are done to check each in turn. A jmp_buf,\r
-cjb, is used to store the point in the program where the check started. Each\r
-COME FROM leading to that line and computed COME FROM anywhere in the program\r
-is checked, and modifies cjb to aim for its suckpoint if neccesary. In the case\r
-of a multithreaded program, one cjb will be stored in a linked ring of threads,\r
-and the other will be the one in the main program. Extra guards are also added\r
-for ONCE/AGAIN; the position of this guard depends on whether the command is a\r
-NEXT or something else. ONCE/AGAIN are quite legal even in singlethreaded\r
-programs. Computed ABSTAIN is dealt with by allowing the abstain[] array to\r
-hold values other than 0 or 1. Multithreading is supported by a new library,\r
-libickmt.a, to hold the multithread versions of libick.a functions. See\r
-unravel.c for an explanation of the full gory details of the multithread\r
-implementation (it has many comments explaining the implementation at the top).\r
-\r
- Optimisation (by AIS)\r
-\r
-When I got my C-INTERCAL distribution, it only had a rudimentary\r
-optimiser. Constant folding had already been done, and the following\r
-optimisations. The following is mixed INTERCAL and C, sometimes in the same\r
-statement. It should be clear from context and whether I have used INTERCAL\r
-spark-ears or C brackets which language is which, although in some places I've\r
-mixed them. Note that the optimizer is only run in binary.\r
-\r
-Optimizations available with -O\r
-\r
-Optimisations that had already been done\r
-\r
-Constant folding\r
-'Vx$y'~"#0x55555555" into (x | y)\r
-'?x$y'~"#0x55555555" into (x ^ y)\r
-'&x$y'~"#0x55555555" into (x & y)\r
-(x ^ 0xFFFF) or (x ^ 0xFFFFFFFF) into ~x\r
-\r
-I added:\r
-\r
-[This list has been removed as it got out of date; see src/idiotism.oil for the\r
-new list. Most of the idioms are due to me, a few are by Joris Huizer.]\r
-\r
-Optimizations available with -f (I wrote all these)\r
-\r
-Guard removal (if a line can't be abstained, the if(!abstained[x]) line is\r
-removed when possible)\r
-\r
-Ignorance checks (if a variable can't be ignored and it can't overflow,\r
-assignment is done with C's = rather than a function)\r
-\r
-Recognition of NEXT...NEXT...computed RESUME as an idiom for if() (currently\r
-disabled because the rest of the optimiser can't handle it)\r
-\r
-Optimizations available with -F (I wrote this one)\r
-\r
-This optimization should mean that INTERCAL suddenly becomes the best language\r
-for various benchmark programs. Basically, the file is analysed to try to\r
-determine whether it takes no input and always produces the same output. If\r
-that is the case, the output is simply a shell-script (with executable\r
-permissions set and a #! line) that outputs the correct output! Therefore, the\r
-time required for one run of the program is taken up during compilation, and\r
-whenever the program is executed, it just copies out the predetermined\r
-output. This means (for instance) that primes.i runs in only a fraction of a\r
-second when optimized with -F. Of course, this tends to slow down the compiler\r
-and often produces a large object file, which is why it has a command-line\r
-option of its own.\r
+ INTERCAL IMPLEMENTOR'S NOTES
+ by ESR (and AIS where noted)
+
+The C-INTERCAL compiler has a very conventional implementation using YACC and
+LEX (latterly, bison and flex). It generates C, which is then passed to your C
+compiler.
+
+ Lexical issues
+
+Note that the spectacular ugliness of INTERCAL syntax requires that the lexical
+analyzer have two levels. One, embedded in the input() function, handles the
+backquote and bang constructs, and stashes the input line away in a buffer for
+the splat construct's benefit. The upper level is generated by lex(1) and does
+normal tokenizing for YACC.
+
+In order to splatter erroneous statements correctly, the generated code has to
+track both logical and physical lines. That's the reason for the `lineno'
+variable in the generated C, it's actually tracking physical lines.
+
+Numeral tokens for input are defined in a symbol table (numerals.c) that is
+directly included in the run-time library module (cesspool.c). This avoids
+having to put the the size of the numerals array in an extern. To add new
+numeral tokens, simply put them in the numerals initializer.
+
+AIS: Now computed COME FROM is in the language, the lexer is called forth to do
+ a bit of syntax analysis, by distinguishing it from an ordinary COME FROM
+ and passing different symbols to the parser. The lexer is also responsible
+ for helping the parser to match sparks and ears in complicated array
+ situations, by distinguishing possibly closing sparkears from definitely
+ opening sparkears.
+
+ Compilation
+
+The parser builds an array of tuples, one for each INTERCAL statement. Most
+tuples have node trees attached. Once all tuples have been generated, the
+compile-time checker and optimizer phases can do consistency checks and
+expression-tree rewrites. Finally, the tuples are ground out as C code by the
+emit() function.
+
+Calculations are fully type-checked at compile time; they have to be because
+(as I read the manual) the 16- and 32-bit versions of the unary ops do
+different things. The only potential problem here is that the typechecker has
+to assume that :m ~ :n has the type of :n (32-bit) even though the result might
+fit in 16 bits. At run-time everything is calculated in 32 bits. When
+INTERCAL-72 was designed 32 bits was expensive; now it's cheap. Really, the
+only reason for retaining a 16-bit type at all is for the irritation value of
+it (yes, C-INTERCAL *does* enforce the 16-bit limit on constants).
+
+Labels are mapped to tuple indices (logical line numbers) in the code checker,
+just before optimization.
+
+The optimizer does full recursive folding of all constant expressions at
+compile time (evaluating away all the irritating little kluges you have to use
+to generate 32-bit constants). It also checks for known INTERCAL idioms for
+`test for equality', `test for nonzeroness', and the C logical operators &, |,
+^, and ~.
+
+AIS: The optimizer has now been expanded. See below.
+
+ Code Generation
+
+Each line of INTERCAL is translated into a C if()-then; the guard part is used
+to implement abstentions and RESUMES, and the arm part translates the `body' of
+the corresponding INTERCAL statement.
+
+The generated C code is plugged into the template file ick-wrap.c inside
+main(). It needs to be linked with cesspool.o, fiddle.o and lose.o (these are
+in libick.a, with the support for runtime switches, arrgghh.o). Cesspool.o is
+the code that implements the storage manager; fiddle.o implements the INTERCAL
+operators; and lose.o is the code that generates INTERCAL's error messages.
+The routine arrgghh.o parses the runtime command line arguments.
+
+The abstain[] array in the generated C is used to track line and label
+abstentions; if member i is on, the statement on line i is being abstained
+from. If gerund abstentions/reinstatements are present in the code, a second
+array recording the type of each statement in generated into the runtime, and
+used to ensure that these operations are translated into abstention-guard
+changes on all appropriate line numbers.
+
+RESUMES are implemented with a branch to a generated switch statement that
+executes a goto to the appropriate label. If there are no RESUMES, no such
+switch is generated.
+
+The compiler places a simple label at the location of each COME FROM in the
+program, while all of the machinery for checking for abstention and conditional
+execution and actually performing the jump is placed immediately after the code
+for the target statement.
+
+ Credits
+
+I wrote the first version of this compiler over a weekend using a pre-ANSI C
+compiler. It worked, but it wasn't pretty. Louis Howell added the array
+support later; he also torture-tested the COME FROM implementation by actually
+using it for the life2.i program included in this distribution, and fixed some
+bugs. Brian Raiter did a much-needed delinting while porting it for ANSI C,
+flex and Linux. He also improved the lexical analyzer's line tracking.
+
+ Code Generation 2 (by AIS)
+
+The recent additions to the language have made code generation potentially more
+complicated, depending on which switches are on. Each INTERCAL command is still
+translated into an if()-then, but with extra guards around it. COME FROM is
+still handled the same way, but only in singlethreaded programs with no
+computed COME FROMs. For anything more complicated than that, a general COMING
+FROM mechanism is invoked. C's most confusing control-flow identifiers, setjmp
+and longjmp, are used. When computed COME FROMs are involved, after every
+labeled statement, a set of gotos are done to check each in turn. A jmp_buf,
+cjb, is used to store the point in the program where the check started. Each
+COME FROM leading to that line and computed COME FROM anywhere in the program
+is checked, and modifies cjb to aim for its suckpoint if neccesary. In the case
+of a multithreaded program, one cjb will be stored in a linked ring of threads,
+and the other will be the one in the main program. Extra guards are also added
+for ONCE/AGAIN; the position of this guard depends on whether the command is a
+NEXT or something else. ONCE/AGAIN are quite legal even in singlethreaded
+programs. Computed ABSTAIN is dealt with by allowing the abstain[] array to
+hold values other than 0 or 1. Multithreading is supported by a new library,
+libickmt.a, to hold the multithread versions of libick.a functions. See
+unravel.c for an explanation of the full gory details of the multithread
+implementation (it has many comments explaining the implementation at the top).
+
+ Optimisation (by AIS)
+
+When I got my C-INTERCAL distribution, it only had a rudimentary
+optimiser. Constant folding had already been done, and the following
+optimisations. The following is mixed INTERCAL and C, sometimes in the same
+statement. It should be clear from context and whether I have used INTERCAL
+spark-ears or C brackets which language is which, although in some places I've
+mixed them. Note that the optimizer is only run in binary.
+
+Optimizations available with -O
+
+Optimisations that had already been done
+
+Constant folding
+'Vx$y'~"#0x55555555" into (x | y)
+'?x$y'~"#0x55555555" into (x ^ y)
+'&x$y'~"#0x55555555" into (x & y)
+(x ^ 0xFFFF) or (x ^ 0xFFFFFFFF) into ~x
+
+I added:
+
+[This list has been removed as it got out of date; see src/idiotism.oil for the
+new list. Most of the idioms are due to me, a few are by Joris Huizer.]
+
+Optimizations available with -f (I wrote all these)
+
+Guard removal (if a line can't be abstained, the if(!abstained[x]) line is
+removed when possible)
+
+Ignorance checks (if a variable can't be ignored and it can't overflow,
+assignment is done with C's = rather than a function)
+
+Recognition of NEXT...NEXT...computed RESUME as an idiom for if() (currently
+disabled because the rest of the optimiser can't handle it)
+
+Optimizations available with -F (I wrote this one)
+
+This optimization should mean that INTERCAL suddenly becomes the best language
+for various benchmark programs. Basically, the file is analysed to try to
+determine whether it takes no input and always produces the same output. If
+that is the case, the output is simply a shell-script (with executable
+permissions set and a #! line) that outputs the correct output! Therefore, the
+time required for one run of the program is taken up during compilation, and
+whenever the program is executed, it just copies out the predetermined
+output. This means (for instance) that primes.i runs in only a fraction of a
+second when optimized with -F. Of course, this tends to slow down the compiler
+and often produces a large object file, which is why it has a command-line
+option of its own.
-#!/bin/perl\r
-\r
-# Change .html to .htm and change all URLs appropriately in the file\r
-# being edited; also fix a bug in makeinfo that sometimes causes\r
-# incorrect anchors to be used in the META REFRESH commands.\r
-#\r
-# This script assumes the output from makeinfo is reasonably correct, so it\r
-# needs to be run on a system that supports filenames longer than 8.3; it\r
-# converts these long filenames into 8.3 form.\r
-\r
-my @base32str=qw{0 1 2 3 4 5 6 7 8 9 a b c d e f\r
- g h i j k l m n o p q r s t u v};\r
-\r
-# Hash a string into 8 5-bit segments, base32 encoded\r
-# The algorithm isn't designed to be secure or anything like that, but simply\r
-# to avoid collisions in what filenames are mapped to. I don't know how well\r
-# it succeeds at this. Note that this can't map to "index" unless the input\r
-# is "index", in which case it always does; this is a special case. The\r
-# hashing is case-insensitive to reduce errors on DOS.\r
-sub hash8x5($)\r
-{\r
- my $low32sf=0;\r
- my $high32sf=0;\r
- my $str=shift;\r
- $str=lc $str;\r
- defined($str) or die;\r
- return "index" if $str eq "index";\r
- while($str ne '')\r
- {\r
- $low32sf ^= !!($low32sf & (1<<19));\r
- $low32sf &= (1<<19)-1;\r
- $low32sf <<= 1;\r
- $low32sf ^= ord $str;\r
- $low32sf *= 41;\r
- $high32sf ^= !!($high32sf & (511<<11));\r
- $high32sf &= (1<<11)-1;\r
- $high32sf <<= 9;\r
- $high32sf ^= ord $str;\r
- $high32sf *= 43;\r
- $str = substr $str, 1;\r
- }\r
- $str = $base32str[$low32sf & 31]; $low32sf >>= 5;\r
- $str .= $base32str[$low32sf & 31]; $low32sf >>= 5;\r
- $str .= $base32str[$low32sf & 31]; $low32sf >>= 5;\r
- $str .= $base32str[$low32sf & 31];\r
- $str .= $base32str[$high32sf & 31]; $high32sf >>= 5;\r
- $str .= $base32str[$high32sf & 31]; $high32sf >>= 5;\r
- $str .= $base32str[$high32sf & 31]; $high32sf >>= 5;\r
- $str .= $base32str[$high32sf & 31];\r
- return $str;\r
-}\r
-\r
-$/=undef; #read the whole file at a time\r
-\r
-open CSSFILE, "<ickstyle.css";\r
-my $css = <CSSFILE>;\r
-close CSSFILE;\r
-\r
-while(<>)\r
-{\r
- /^<meta http-equiv="refresh"/s and do{\r
- s/\#\%/'#g_t%'/ge;\r
- s/\%/_00/g;\r
- s/(url=)([^\">]*?).html([\"\#])/$1 . hash8x5($2) . ".htm" . $3/ge;\r
- };\r
- s/(\-\-><\/style>)/$css$1/;\r
- s/(href=\")([^\">]*?).html([\"\#])/$1 . hash8x5($2) . ".htm" . $3/ge;\r
- s=^(.*?)\.html$="mv html/".$1.".html html/".hash8x5($1).".htm"=gemi;\r
- print;\r
-}\r
+#!/bin/perl
+
+# Change .html to .htm and change all URLs appropriately in the file
+# being edited; also fix a bug in makeinfo that sometimes causes
+# incorrect anchors to be used in the META REFRESH commands.
+#
+# This script assumes the output from makeinfo is reasonably correct, so it
+# needs to be run on a system that supports filenames longer than 8.3; it
+# converts these long filenames into 8.3 form.
+
+my @base32str=qw{0 1 2 3 4 5 6 7 8 9 a b c d e f
+ g h i j k l m n o p q r s t u v};
+
+# Hash a string into 8 5-bit segments, base32 encoded
+# The algorithm isn't designed to be secure or anything like that, but simply
+# to avoid collisions in what filenames are mapped to. I don't know how well
+# it succeeds at this. Note that this can't map to "index" unless the input
+# is "index", in which case it always does; this is a special case. The
+# hashing is case-insensitive to reduce errors on DOS.
+sub hash8x5($)
+{
+ my $low32sf=0;
+ my $high32sf=0;
+ my $str=shift;
+ $str=lc $str;
+ defined($str) or die;
+ return "index" if $str eq "index";
+ while($str ne '')
+ {
+ $low32sf ^= !!($low32sf & (1<<19));
+ $low32sf &= (1<<19)-1;
+ $low32sf <<= 1;
+ $low32sf ^= ord $str;
+ $low32sf *= 41;
+ $high32sf ^= !!($high32sf & (511<<11));
+ $high32sf &= (1<<11)-1;
+ $high32sf <<= 9;
+ $high32sf ^= ord $str;
+ $high32sf *= 43;
+ $str = substr $str, 1;
+ }
+ $str = $base32str[$low32sf & 31]; $low32sf >>= 5;
+ $str .= $base32str[$low32sf & 31]; $low32sf >>= 5;
+ $str .= $base32str[$low32sf & 31]; $low32sf >>= 5;
+ $str .= $base32str[$low32sf & 31];
+ $str .= $base32str[$high32sf & 31]; $high32sf >>= 5;
+ $str .= $base32str[$high32sf & 31]; $high32sf >>= 5;
+ $str .= $base32str[$high32sf & 31]; $high32sf >>= 5;
+ $str .= $base32str[$high32sf & 31];
+ return $str;
+}
+
+$/=undef; #read the whole file at a time
+
+open CSSFILE, "<ickstyle.css";
+my $css = <CSSFILE>;
+close CSSFILE;
+
+while(<>)
+{
+ /^<meta http-equiv="refresh"/s and do{
+ s/\#\%/'#g_t%'/ge;
+ s/\%/_00/g;
+ s/(url=)([^\">]*?).html([\"\#])/$1 . hash8x5($2) . ".htm" . $3/ge;
+ };
+ s/(\-\-><\/style>)/$css$1/;
+ s/(href=\")([^\">]*?).html([\"\#])/$1 . hash8x5($2) . ".htm" . $3/ge;
+ s=^(.*?)\.html$="mv html/".$1.".html html/".hash8x5($1).".htm"=gemi;
+ print;
+}
-#!/bin/perl -w\r
-\r
-# Deindent and delink part headings in the TOC, and remove the initial\r
-# H2 entry.\r
-\r
-my $f=1;\r
-\r
-while(<>)\r
-{\r
- $f and /<ul>/ and do{$f=0; next;};\r
- /^<li><a[^>]*>C-INTERCAL / and next;\r
- s%^<li><a[^>]*>(PART .*?)</a>%</ul><h3>$1</h3><ul>%;\r
- print;\r
- last if $_ eq "</div>\n";\r
-}\r
-while(<>) {print;}\r
+#!/bin/perl -w
+
+# Deindent and delink part headings in the TOC, and remove the initial
+# H2 entry.
+
+my $f=1;
+
+while(<>)
+{
+ $f and /<ul>/ and do{$f=0; next;};
+ /^<li><a[^>]*>C-INTERCAL / and next;
+ s%^<li><a[^>]*>(PART .*?)</a>%</ul><h3>$1</h3><ul>%;
+ print;
+ last if $_ eq "</div>\n";
+}
+while(<>) {print;}
-\r
-/* Custom styles for the C-INTERCAL manual. These are partly for a\r
- small amount of beautification, but mostly to work around the\r
- ugliness of the default stylesheet on at least one compiler. This\r
- stylesheet is public domain from this comment onwards. */\r
-\r
- body {text-align:justify; font-family:serif;}\r
- pre {margin:0.5em 3em 0.5em 3em;\r
- background-color:#F8F8F8;\r
- border:1px solid #CCCCCC;}\r
- pre.smallexample {font-size:75%;}\r
- p {margin:0.5em 0em 0.5em 0em;}\r
- li {margin:0.5em 0em 0.5em 0em;}\r
- ul.menu li {margin:0em 0em 0em 0em;}\r
- ul.index-cp li {margin:0em 0em 0em 0em;}\r
- div.contents ul li {margin:0em 0em 0em 0em;}\r
- blockquote {margin:0.5em 3em 0.5em 3em;}\r
- dt {margin:0em 0em 0em 0em; font-weight:bold;}\r
- dd {margin:0.5em 0em 1em 3em;}\r
- code {background-color:#F8F8F8;}\r
- tt {background-color:#F8F8F8;}\r
- samp {background-color:#F8F8F8;}\r
- table {border:1px solid #666666; background-color:#CCCCCC;}\r
- td {border:1px solid #666666; background-color:#FFFFFF;}\r
+
+/* Custom styles for the C-INTERCAL manual. These are partly for a
+ small amount of beautification, but mostly to work around the
+ ugliness of the default stylesheet on at least one compiler. This
+ stylesheet is public domain from this comment onwards. */
+
+ body {text-align:justify; font-family:serif;}
+ pre {margin:0.5em 3em 0.5em 3em;
+ background-color:#F8F8F8;
+ border:1px solid #CCCCCC;}
+ pre.smallexample {font-size:75%;}
+ p {margin:0.5em 0em 0.5em 0em;}
+ li {margin:0.5em 0em 0.5em 0em;}
+ ul.menu li {margin:0em 0em 0em 0em;}
+ ul.index-cp li {margin:0em 0em 0em 0em;}
+ div.contents ul li {margin:0em 0em 0em 0em;}
+ blockquote {margin:0.5em 3em 0.5em 3em;}
+ dt {margin:0em 0em 0em 0em; font-weight:bold;}
+ dd {margin:0.5em 0em 1em 3em;}
+ code {background-color:#F8F8F8;}
+ tt {background-color:#F8F8F8;}
+ samp {background-color:#F8F8F8;}
+ table {border:1px solid #666666; background-color:#CCCCCC;}
+ td {border:1px solid #666666; background-color:#FFFFFF;}
-This is the directory of programs written in INTERCAL. Most of these\r
-are no doubt full of bugs. Don't complain, you're lucky if anything\r
-written in INTERCAL works at all.\r
-\r
-Some of these programs are explicitly licenced under the GNU GPL, just\r
-like the C-INTERCAL compiler is; therefore, remember to include\r
-COPYING.txt from the main installation directory if you want to\r
-redistribute these separately from that compiler.\r
-\r
-The subdirectory lib contains code fragments that are not complete\r
-programs; the programs in explib are expansion libraries written in C,\r
-which serve as examples of the C-INTERCAL to C interface as well as\r
-potentially being useful.\r
-\r
-Contents:\r
-\r
-from original manual:\r
- sample.i Returns absolute value of a 16-bit 2s-complement number\r
- lib/syslib.i Standard library, with bugs fixed\r
- lib/syslib-orig.i Standard library (original buggy version)\r
-\r
-by Jon Blow <jon@sampo.com>\r
- tests/sink.i Simple test program\r
- random.i Random number program\r
- lib/plus.i Increment .1\r
-\r
-by Hans Olsson <f88ho@efd.lth.se>\r
- lib/1910.doc Listing of a random number routine. Hans said he wrote this\r
- because he couldn't find (1910) in the system library, but\r
- it's there in our lib/syslib.i. We keep this around as an\r
- example. (What? Throw away INTERCAL code? Perish the thought!)\r
-\r
-by Louis Howell <nazgul@netcom.com>\r
- life.i Conway's game of Life, standard INTERCAL version\r
- life2.i This version uses COME FROM and character output\r
- blinkers\r
- t_tet\r
- glider\r
- gun Input files for both Life programs\r
- bubble.i Bubble sort\r
- icat.i Sends input to output\r
- lib/lib2.i New library routines: decrement, decrement and branch on 0,\r
- add bit, 16-bit division with remainder, exponentiation\r
- pi.i Calculate pi\r
- primes.i Find prime numbers\r
- pow.i Prints a list of nth powers using old exponentiation routine\r
- lib/syslib.i Corrected version of system library\r
- iching1.i Generates I Ching hexagrams\r
- iching2.i This version uses a lookup table to find the sequence number\r
- iching.doc Description of the two I Ching programs\r
- change.i Count up different ways to make change\r
- change.doc Description of change.i\r
-\r
-by Matt Dimeo <mdimeo@brooktree.com>\r
- beer.i Print out the lyrics to "99 Bottles of Beer On The Wall"\r
-\r
-by Stinglai Ka'abi <stinglai@bureau.World.GOV>:\r
- random2.i Another random-number generator\r
-\r
-by Jacob Mandelson <jlm@cco.caltech.edu>\r
- rot13.i Prints ROT-13 of its input\r
-\r
-by Jan-Pieter Cornet <johnpc@xs4all.nl>\r
- hail_mary.3i Print 1,000,000 Hail Marys\r
- tests/count.3i Count from 1 to 10 in TriINTERCAL\r
- tests/iogerunds.i Demonstrate gerund abstention\r
-\r
-by Clemens Meier <clmeier@lili.uni-bielefeld.de>\r
- rot13b.i Another ROT-13 program\r
-\r
-By Brian Raiter <breadbox@muppetlabs.com>\r
- lib/numio.i I/O routines\r
- lib/numio.doc Description of the I/O routines\r
- lib/syslib.3i\r
- lib/syslib.4i\r
- lib/syslib.5i\r
- lib/syslib.6i Translations of the standard library to\r
- lib/syslib.7i C-INTERCAL's other bases.\r
- lib/syslib3-7.doc Documentation for same\r
- hello.i The traditional hello world program\r
- ins.i Intersections & Splats, a Mastermind-style game\r
- ins.doc Documentation for I&S\r
- yapp.i Prints an INTERCAL program that prints\r
- yapp.doc Description of yapp.i\r
- quine.i Prints itself\r
- lib/floatlib.i Floating-point routines\r
- lib/floatlib.doc Documentation for the floating-point routines\r
- flonck.i An RPN calculator\r
- flonck.doc Documentation for flonck.i\r
- fft.i Fast Fourier Transform\r
- fft.doc Description of fft.i\r
- delta.fft\r
- tophat.fft Sample input for FFT\r
-\r
-by Donald Knuth\r
- tpk.i Don Knuth's implementation of the TPK algorithm\r
- tpk.doc Don's note about the algorithm\r
-\r
-by Oerjan Johansen\r
- unlambda.i An Unlambda interpreter in INTERCAL\r
- unlambda.doc Better-commented version of the above\r
-\r
-by Jeffrey Lee\r
- interfunge.i A Befunge-93 interpreter in INTERCAL\r
-\r
-The subdirectory tests contains some programs written only to test the\r
-compiler.\r
-\r
-by David Moews\r
- tests/test1.i Prints DO THIS TEST HAS BEEN SUCCESSFULLY COMPLETED\r
- tests/test2.i Reads in two numbers and multiplies their product\r
-\r
-David Moews wrote of the latter (test2.i):\r
-\r
-The following program reads in two numbers and then prints their product.\r
-It consists of a trivial calling program followed by a cleaned-up version\r
-of a portion of the INTERCAL subroutine library. (Only a portion of\r
-the INTERCAL subroutine library is present in the posted manual, and\r
-that portion is full of typos.)\r
-\r
-by Alex Smith\r
- tests/ais1.i A very simple test program\r
- tests/ais2.i A demonstration of computed ABSTAIN's power\r
- tests/compucome.i A program to test computed COME FROM\r
- tests/onceagain.i A single-threaded program testing ONCE and AGAIN\r
- tests/arrtest.i A program to test some changes I made to the grammar\r
- tests/arrtest.doc The history behind those changes\r
- tests/permute.i A permutation-printing program to test backtracking\r
- tests/permute.doc Information about the permutation-printer\r
- tests/whileadd.i Adds two input numbers with a single WHILE statement\r
- tests/ignorret.i Testing interactions of IGNORE and RETRIEVE\r
- tests/ignorret.doc What ignorret does on several compilers\r
- tests/normaldist.i Checking the standard deviation of (1910)\r
- tests/testcreate.i A test for the CREATE statement\r
- tests/iffit1.i The INTERCAL side of the INTERCAL/Funge-98 test\r
- tests/iffit2.b98 The Funge side of the INTERCAL/Funge-98 test\r
- tests/iffit.doc Documentation for the INTERCAL/Funge-98 test\r
- explib/syslibc.c The INTERCAL base 2 syslib, optimised version in C\r
- explib/compunex.c An example flow-control routine (computed NEXT)\r
- explib/ecto_b98.c A library that links INTERCAL and Funge-98 code\r
- sort.i An insertion-sort program testing computed ABSTAIN\r
- continuation.i A continuation library and example program\r
- continuation.doc About usage and internals of the continuation library\r
-\r
-by Malcom Ryan\r
- tests/testonce.i A single-threaded program testing ONCE and AGAIN\r
- pass.i A multithread program illustrating communications\r
- between threads\r
-\r
-by Jeffrey Lee\r
- interfunge.i A Befunge-93 interpreter written in INTERCAL\r
-\r
-The programs test16bit.i, testarray.i, testcf.i, testlib2.i, mult.i,\r
-limits.{i,3i}, testops.{3i,5i}, testsplat.i, were all written by Louis\r
-Howell. Of these, testcf.i might be considered an interesting\r
-puzzle---try to figure out what it's doing. The others are pretty\r
-boring, but are included as diagnostics and because so few other\r
-example programs exist. Not all of these even produce interesting\r
-diagnostic output; it may be necessary to look at the degenerated C\r
-code to determine if the compiler is doing the right thing.\r
-\r
-\r
-End of file CATALOG\r
--------------------\r
+This is the directory of programs written in INTERCAL. Most of these
+are no doubt full of bugs. Don't complain, you're lucky if anything
+written in INTERCAL works at all.
+
+Some of these programs are explicitly licenced under the GNU GPL, just
+like the C-INTERCAL compiler is; therefore, remember to include
+COPYING.txt from the main installation directory if you want to
+redistribute these separately from that compiler.
+
+The subdirectory lib contains code fragments that are not complete
+programs; the programs in explib are expansion libraries written in C,
+which serve as examples of the C-INTERCAL to C interface as well as
+potentially being useful.
+
+Contents:
+
+from original manual:
+ sample.i Returns absolute value of a 16-bit 2s-complement number
+ lib/syslib.i Standard library, with bugs fixed
+ lib/syslib-orig.i Standard library (original buggy version)
+
+by Jon Blow <jon@sampo.com>
+ tests/sink.i Simple test program
+ random.i Random number program
+ lib/plus.i Increment .1
+
+by Hans Olsson <f88ho@efd.lth.se>
+ lib/1910.doc Listing of a random number routine. Hans said he wrote this
+ because he couldn't find (1910) in the system library, but
+ it's there in our lib/syslib.i. We keep this around as an
+ example. (What? Throw away INTERCAL code? Perish the thought!)
+
+by Louis Howell <nazgul@netcom.com>
+ life.i Conway's game of Life, standard INTERCAL version
+ life2.i This version uses COME FROM and character output
+ blinkers
+ t_tet
+ glider
+ gun Input files for both Life programs
+ bubble.i Bubble sort
+ icat.i Sends input to output
+ lib/lib2.i New library routines: decrement, decrement and branch on 0,
+ add bit, 16-bit division with remainder, exponentiation
+ pi.i Calculate pi
+ primes.i Find prime numbers
+ pow.i Prints a list of nth powers using old exponentiation routine
+ lib/syslib.i Corrected version of system library
+ iching1.i Generates I Ching hexagrams
+ iching2.i This version uses a lookup table to find the sequence number
+ iching.doc Description of the two I Ching programs
+ change.i Count up different ways to make change
+ change.doc Description of change.i
+
+by Matt Dimeo <mdimeo@brooktree.com>
+ beer.i Print out the lyrics to "99 Bottles of Beer On The Wall"
+
+by Stinglai Ka'abi <stinglai@bureau.World.GOV>:
+ random2.i Another random-number generator
+
+by Jacob Mandelson <jlm@cco.caltech.edu>
+ rot13.i Prints ROT-13 of its input
+
+by Jan-Pieter Cornet <johnpc@xs4all.nl>
+ hail_mary.3i Print 1,000,000 Hail Marys
+ tests/count.3i Count from 1 to 10 in TriINTERCAL
+ tests/iogerunds.i Demonstrate gerund abstention
+
+by Clemens Meier <clmeier@lili.uni-bielefeld.de>
+ rot13b.i Another ROT-13 program
+
+By Brian Raiter <breadbox@muppetlabs.com>
+ lib/numio.i I/O routines
+ lib/numio.doc Description of the I/O routines
+ lib/syslib.3i
+ lib/syslib.4i
+ lib/syslib.5i
+ lib/syslib.6i Translations of the standard library to
+ lib/syslib.7i C-INTERCAL's other bases.
+ lib/syslib3-7.doc Documentation for same
+ hello.i The traditional hello world program
+ ins.i Intersections & Splats, a Mastermind-style game
+ ins.doc Documentation for I&S
+ yapp.i Prints an INTERCAL program that prints
+ yapp.doc Description of yapp.i
+ quine.i Prints itself
+ lib/floatlib.i Floating-point routines
+ lib/floatlib.doc Documentation for the floating-point routines
+ flonck.i An RPN calculator
+ flonck.doc Documentation for flonck.i
+ fft.i Fast Fourier Transform
+ fft.doc Description of fft.i
+ delta.fft
+ tophat.fft Sample input for FFT
+
+by Donald Knuth
+ tpk.i Don Knuth's implementation of the TPK algorithm
+ tpk.doc Don's note about the algorithm
+
+by Oerjan Johansen
+ unlambda.i An Unlambda interpreter in INTERCAL
+ unlambda.doc Better-commented version of the above
+
+by Jeffrey Lee
+ interfunge.i A Befunge-93 interpreter in INTERCAL
+
+The subdirectory tests contains some programs written only to test the
+compiler.
+
+by David Moews
+ tests/test1.i Prints DO THIS TEST HAS BEEN SUCCESSFULLY COMPLETED
+ tests/test2.i Reads in two numbers and multiplies their product
+
+David Moews wrote of the latter (test2.i):
+
+The following program reads in two numbers and then prints their product.
+It consists of a trivial calling program followed by a cleaned-up version
+of a portion of the INTERCAL subroutine library. (Only a portion of
+the INTERCAL subroutine library is present in the posted manual, and
+that portion is full of typos.)
+
+by Alex Smith
+ tests/ais1.i A very simple test program
+ tests/ais2.i A demonstration of computed ABSTAIN's power
+ tests/compucome.i A program to test computed COME FROM
+ tests/onceagain.i A single-threaded program testing ONCE and AGAIN
+ tests/arrtest.i A program to test some changes I made to the grammar
+ tests/arrtest.doc The history behind those changes
+ tests/permute.i A permutation-printing program to test backtracking
+ tests/permute.doc Information about the permutation-printer
+ tests/whileadd.i Adds two input numbers with a single WHILE statement
+ tests/ignorret.i Testing interactions of IGNORE and RETRIEVE
+ tests/ignorret.doc What ignorret does on several compilers
+ tests/normaldist.i Checking the standard deviation of (1910)
+ tests/testcreate.i A test for the CREATE statement
+ tests/iffit1.i The INTERCAL side of the INTERCAL/Funge-98 test
+ tests/iffit2.b98 The Funge side of the INTERCAL/Funge-98 test
+ tests/iffit.doc Documentation for the INTERCAL/Funge-98 test
+ explib/syslibc.c The INTERCAL base 2 syslib, optimised version in C
+ explib/compunex.c An example flow-control routine (computed NEXT)
+ explib/ecto_b98.c A library that links INTERCAL and Funge-98 code
+ sort.i An insertion-sort program testing computed ABSTAIN
+ continuation.i A continuation library and example program
+ continuation.doc About usage and internals of the continuation library
+
+by Malcom Ryan
+ tests/testonce.i A single-threaded program testing ONCE and AGAIN
+ pass.i A multithread program illustrating communications
+ between threads
+
+by Jeffrey Lee
+ interfunge.i A Befunge-93 interpreter written in INTERCAL
+
+The programs test16bit.i, testarray.i, testcf.i, testlib2.i, mult.i,
+limits.{i,3i}, testops.{3i,5i}, testsplat.i, were all written by Louis
+Howell. Of these, testcf.i might be considered an interesting
+puzzle---try to figure out what it's doing. The others are pretty
+boring, but are included as diagnostics and because so few other
+example programs exist. Not all of these even produce interesting
+diagnostic output; it may be necessary to look at the degenerated C
+code to determine if the compiler is doing the right thing.
+
+
+End of file CATALOG
+-------------------
-#\r
-# Torture-tester for the INTERCAL compiler\r
-#\r
-\r
-ICK = ../ick -b\r
-\r
-SOURCES = \\r
- ./sample.i \\r
- ./beer.i \\r
- ./bubble.i \\r
- ./count.3i \\r
- ./hail_mary.3i \\r
- ./icat.i \\r
- ./tests/test1.i \\r
- ./tests/limits.i \\r
- ./tests/limits.3i \\r
- ./tests/test16bit.i \\r
- ./tests/testarray.i \\r
- ./tests/testcf.i \\r
- ./tests/testlib2.i \\r
- ./tests/test2.i \\r
- ./tests/testops.3i \\r
- ./tests/testops.5i \\r
- ./tests/testsplat.i \\r
- ./pow.i \\r
- ./random.i \\r
- ./random2.i \\r
- ./rot13.i \\r
- ./rot13b.i \\r
- ./iogerunds.i \\r
- ./pi.i \\r
- ./lib/lib2.i \\r
- ./lib/numio.i \\r
- ./lib/syslib.i \\r
- ./lib/syslib3.i \\r
- ./lib/syslib4.i \\r
- ./lib/syslib5.i \\r
- ./lib/syslib6.i \\r
- ./lib/syslib7.i \\r
- ./lib/plus.i \\r
- ./primes.i \\r
- ./life.i \\r
- ./life2.i \\r
- ./sink.i \\r
- ./change.i \\r
- ./iching1.i \\r
- ./iching2.i \\r
- ./hello.i \\r
- ./ins.i \\r
- ./yapp.i\r
-\r
-TARGETS = \\r
- ./sample \\r
- ./beer \\r
- ./bubble \\r
- ./count \\r
- ./hail_mary \\r
- ./icat \\r
- ./tests/test1 \\r
- ./tests/limits \\r
- ./tests/limits3 \\r
- ./tests/test16bit \\r
- ./tests/testarray \\r
- ./tests/testcf \\r
- ./tests/testlib2 \\r
- ./tests/test2 \\r
- ./tests/testops \\r
- ./tests/testops \\r
- ./tests/testsplat \\r
- ./pow \\r
- ./random \\r
- ./random2 \\r
- ./rot13 \\r
- ./rot13b \\r
- ./iogerunds \\r
- ./pi \\r
- ./lib/lib2 \\r
- ./lib/numio \\r
- ./lib/syslib \\r
- ./lib/syslib3 \\r
- ./lib/syslib4 \\r
- ./lib/syslib5 \\r
- ./lib/syslib6 \\r
- ./lib/syslib7 \\r
- ./lib/plus \\r
- ./primes \\r
- ./life \\r
- ./life2 \\r
- ./sink \\r
- ./change \\r
- ./iching1 \\r
- ./iching2 \\r
- ./hello \\r
- ./ins \\r
- ./yapp\r
-\r
-.SUFFIXES: .i .3i .4i .5i .6i .7i\r
-\r
-.i:\r
- $(ICK) $<\r
-\r
-.3i:\r
- $(ICK) $<\r
-\r
-.4i:\r
- $(ICK) $<\r
-\r
-.5i:\r
- $(ICK) $<\r
-\r
-.6i:\r
- $(ICK) $<\r
-\r
-.7i:\r
- $(ICK) $<\r
-\r
-test: $(TARGETS)\r
-\r
-./lib/syslib3: ./lib/syslib.3i\r
- cp ./lib/syslib.3i ./lib/syslib3.3i\r
- $(ICK) ./lib/syslib3.3i\r
-\r
-./lib/syslib4: ./lib/syslib.4i\r
- cp ./lib/syslib.4i ./lib/syslib4.4i\r
- $(ICK) ./lib/syslib4.4i\r
-\r
-./lib/syslib5: ./lib/syslib.5i\r
- cp ./lib/syslib.5i ./lib/syslib5.5i\r
- $(ICK) ./lib/syslib5.5i\r
-\r
-./lib/syslib6: ./lib/syslib.6i\r
- cp ./lib/syslib.6i ./lib/syslib6.6i\r
- $(ICK) ./lib/syslib6.6i\r
-\r
-./lib/syslib7: ./lib/syslib.7i\r
- cp ./lib/syslib.7i ./lib/syslib7.7i\r
- $(ICK) ./lib/syslib7.7i\r
-\r
-./tests/limits3: ./tests/limits.3i\r
- cp ./tests/limits.3i ./tests/limits3.3i\r
- $(ICK) ./tests/limits3.3i\r
-\r
-lines:\r
- wc -l $(SOURCES)\r
-\r
-clean:\r
- rm -f $(TARGETS) *.c *.o *~ lib/syslib?.?i tests/limits3.3i\r
+#
+# Torture-tester for the INTERCAL compiler
+#
+
+ICK = ../ick -b
+
+SOURCES = \
+ ./sample.i \
+ ./beer.i \
+ ./bubble.i \
+ ./count.3i \
+ ./hail_mary.3i \
+ ./icat.i \
+ ./tests/test1.i \
+ ./tests/limits.i \
+ ./tests/limits.3i \
+ ./tests/test16bit.i \
+ ./tests/testarray.i \
+ ./tests/testcf.i \
+ ./tests/testlib2.i \
+ ./tests/test2.i \
+ ./tests/testops.3i \
+ ./tests/testops.5i \
+ ./tests/testsplat.i \
+ ./pow.i \
+ ./random.i \
+ ./random2.i \
+ ./rot13.i \
+ ./rot13b.i \
+ ./iogerunds.i \
+ ./pi.i \
+ ./lib/lib2.i \
+ ./lib/numio.i \
+ ./lib/syslib.i \
+ ./lib/syslib3.i \
+ ./lib/syslib4.i \
+ ./lib/syslib5.i \
+ ./lib/syslib6.i \
+ ./lib/syslib7.i \
+ ./lib/plus.i \
+ ./primes.i \
+ ./life.i \
+ ./life2.i \
+ ./sink.i \
+ ./change.i \
+ ./iching1.i \
+ ./iching2.i \
+ ./hello.i \
+ ./ins.i \
+ ./yapp.i
+
+TARGETS = \
+ ./sample \
+ ./beer \
+ ./bubble \
+ ./count \
+ ./hail_mary \
+ ./icat \
+ ./tests/test1 \
+ ./tests/limits \
+ ./tests/limits3 \
+ ./tests/test16bit \
+ ./tests/testarray \
+ ./tests/testcf \
+ ./tests/testlib2 \
+ ./tests/test2 \
+ ./tests/testops \
+ ./tests/testops \
+ ./tests/testsplat \
+ ./pow \
+ ./random \
+ ./random2 \
+ ./rot13 \
+ ./rot13b \
+ ./iogerunds \
+ ./pi \
+ ./lib/lib2 \
+ ./lib/numio \
+ ./lib/syslib \
+ ./lib/syslib3 \
+ ./lib/syslib4 \
+ ./lib/syslib5 \
+ ./lib/syslib6 \
+ ./lib/syslib7 \
+ ./lib/plus \
+ ./primes \
+ ./life \
+ ./life2 \
+ ./sink \
+ ./change \
+ ./iching1 \
+ ./iching2 \
+ ./hello \
+ ./ins \
+ ./yapp
+
+.SUFFIXES: .i .3i .4i .5i .6i .7i
+
+.i:
+ $(ICK) $<
+
+.3i:
+ $(ICK) $<
+
+.4i:
+ $(ICK) $<
+
+.5i:
+ $(ICK) $<
+
+.6i:
+ $(ICK) $<
+
+.7i:
+ $(ICK) $<
+
+test: $(TARGETS)
+
+./lib/syslib3: ./lib/syslib.3i
+ cp ./lib/syslib.3i ./lib/syslib3.3i
+ $(ICK) ./lib/syslib3.3i
+
+./lib/syslib4: ./lib/syslib.4i
+ cp ./lib/syslib.4i ./lib/syslib4.4i
+ $(ICK) ./lib/syslib4.4i
+
+./lib/syslib5: ./lib/syslib.5i
+ cp ./lib/syslib.5i ./lib/syslib5.5i
+ $(ICK) ./lib/syslib5.5i
+
+./lib/syslib6: ./lib/syslib.6i
+ cp ./lib/syslib.6i ./lib/syslib6.6i
+ $(ICK) ./lib/syslib6.6i
+
+./lib/syslib7: ./lib/syslib.7i
+ cp ./lib/syslib.7i ./lib/syslib7.7i
+ $(ICK) ./lib/syslib7.7i
+
+./tests/limits3: ./tests/limits.3i
+ cp ./tests/limits.3i ./tests/limits3.3i
+ $(ICK) ./tests/limits3.3i
+
+lines:
+ wc -l $(SOURCES)
+
+clean:
+ rm -f $(TARGETS) *.c *.o *~ lib/syslib?.?i tests/limits3.3i
-NINE\r
-FIVE\r
-THREE\r
-TWO\r
-THREE\r
-THREE\r
-THREE\r
-FOUR\r
-THREE\r
-SIX\r
-THREE\r
-SEVEN\r
-THREE\r
-EIGHT\r
-THREE\r
-ZERO\r
+NINE
+FIVE
+THREE
+TWO
+THREE
+THREE
+THREE
+FOUR
+THREE
+SIX
+THREE
+SEVEN
+THREE
+EIGHT
+THREE
+ZERO
-ONE\r
-ONE TWO EIGHT\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-SIX OH OH OH OH OH OH ZERO ONE\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-SIX OH OH OH OH OH OH ZERO ONE\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
+ONE
+ONE TWO EIGHT
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+SIX OH OH OH OH OH OH ZERO ONE
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+SIX OH OH OH OH OH OH ZERO ONE
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
-NINE\r
-NINE\r
-ZERO\r
-TWO\r
-FOUR\r
-THREE\r
-FOUR\r
-FOUR\r
-FOUR\r
-FOUR\r
-THREE\r
-THREE\r
-TWO\r
-OH\r
+NINE
+NINE
+ZERO
+TWO
+FOUR
+THREE
+FOUR
+FOUR
+FOUR
+FOUR
+THREE
+THREE
+TWO
+OH
-THREE EIGHT\r
-TWO ZERO\r
-ZERO\r
-TWO\r
-SIX\r
-TWO\r
-SEVEN\r
-THREE\r
-SIX\r
-THREE\r
-SEVEN\r
-ONE THREE\r
-SIX\r
-ONE THREE\r
-SEVEN\r
-ONE THREE\r
-EIGHT\r
-ONE FOUR\r
-FIVE\r
-ONE FOUR\r
-NINE\r
-ONE FIVE\r
-FOUR\r
-ONE FIVE\r
-ONE ZERO\r
-ONE SIX\r
-FIVE\r
-ONE SIX\r
-NINE\r
-ONE SEVEN\r
-SIX\r
-ONE SEVEN\r
-SEVEN\r
-ONE SEVEN\r
-EIGHT\r
-ONE EIGHT\r
-SIX\r
-ONE EIGHT\r
-SEVEN\r
-ONE EIGHT\r
-EIGHT\r
-TWO THREE\r
-FOUR\r
-TWO THREE\r
-FIVE\r
-TWO THREE\r
-SIX\r
-TWO FOUR\r
-THREE\r
-TWO FOUR\r
-FOUR\r
-TWO FOUR\r
-SIX\r
-TWO FOUR\r
-SEVEN\r
-TWO FIVE\r
-THREE\r
-TWO FIVE\r
-FOUR\r
-TWO FIVE\r
-SIX\r
-TWO FIVE\r
-SEVEN\r
-TWO SIX\r
-THREE\r
-TWO SIX\r
-FOUR\r
-TWO SIX\r
-FIVE\r
-TWO SIX\r
-SIX\r
-TWO SIX\r
-SEVEN\r
-TWO SEVEN\r
-TWO\r
-TWO SEVEN\r
-THREE\r
-TWO SEVEN\r
-SEVEN\r
-TWO SEVEN\r
-EIGHT\r
-THREE SIX\r
-FOUR\r
-THREE SIX\r
-FIVE\r
-THREE SEVEN\r
-FOUR\r
-THREE SEVEN\r
-FIVE\r
-ZERO\r
+THREE EIGHT
+TWO ZERO
+ZERO
+TWO
+SIX
+TWO
+SEVEN
+THREE
+SIX
+THREE
+SEVEN
+ONE THREE
+SIX
+ONE THREE
+SEVEN
+ONE THREE
+EIGHT
+ONE FOUR
+FIVE
+ONE FOUR
+NINE
+ONE FIVE
+FOUR
+ONE FIVE
+ONE ZERO
+ONE SIX
+FIVE
+ONE SIX
+NINE
+ONE SEVEN
+SIX
+ONE SEVEN
+SEVEN
+ONE SEVEN
+EIGHT
+ONE EIGHT
+SIX
+ONE EIGHT
+SEVEN
+ONE EIGHT
+EIGHT
+TWO THREE
+FOUR
+TWO THREE
+FIVE
+TWO THREE
+SIX
+TWO FOUR
+THREE
+TWO FOUR
+FOUR
+TWO FOUR
+SIX
+TWO FOUR
+SEVEN
+TWO FIVE
+THREE
+TWO FIVE
+FOUR
+TWO FIVE
+SIX
+TWO FIVE
+SEVEN
+TWO SIX
+THREE
+TWO SIX
+FOUR
+TWO SIX
+FIVE
+TWO SIX
+SIX
+TWO SIX
+SEVEN
+TWO SEVEN
+TWO
+TWO SEVEN
+THREE
+TWO SEVEN
+SEVEN
+TWO SEVEN
+EIGHT
+THREE SIX
+FOUR
+THREE SIX
+FIVE
+THREE SEVEN
+FOUR
+THREE SEVEN
+FIVE
+ZERO
-\r
- DO ,1 <- #10\r
- DO ,1 SUB #1 <- #238\r
- PLEASE ABSTAIN FROM (11)\r
- DO ,1 SUB #2 <- #140\r
- PLEASE DO ,1 SUB #3 <- #240\r
- DO ,1 SUB #4 <- #96\r
- DO ,1 SUB #5 <- #132\r
- DO ,1 SUB #6 <- #44\r
- DO ,1 SUB #7 <- #56\r
- DO ,1 SUB #8 <- #176\r
- DO ,1 SUB #9 <- #238\r
- DO ,1 SUB #10 <- #96\r
- DO .1 <- #400\r
- DO (19) NEXT\r
- DO GIVE UP\r
-(19) DO COME FROM (55)\r
- PLEASE DO STASH .1\r
- DO .1 <- #2500\r
- PLEASE (31) NEXT\r
- DO RETRIEVE .1\r
- DO (123) NEXT\r
-(55) PLEASE DO (15) NEXT\r
-(31) DO COME FROM (69)\r
- PLEASE DON'T FORGET TO INSERT A BETTER HAIL-MARY ROUTINE\r
-(11) DO ,1 SUB #1 <- #62\r
- PLEASE REINSTATE CALCULATING\r
- DO READ OUT ,1\r
- PLEASE DO (123) NEXT\r
-(69) DO (15) NEXT\r
-(42) DO RESUME .9\r
-(123) PLEASE .8 <- #1\r
- PLEASE COME FROM (81)\r
- DO .1 <- "?.1$.8"~"#0$#29524"\r
- DO .9 <- '?"V!1~.8'$#1"~#1'~#1\r
- PLEASE DO (42) NEXT\r
-(81) DO .8 <- !8$#0'~"#9841$#1"\r
-(15) PLEASE RESUME '?"!1~.1'~#2"$#1'~#1\r
+
+ DO ,1 <- #10
+ DO ,1 SUB #1 <- #238
+ PLEASE ABSTAIN FROM (11)
+ DO ,1 SUB #2 <- #140
+ PLEASE DO ,1 SUB #3 <- #240
+ DO ,1 SUB #4 <- #96
+ DO ,1 SUB #5 <- #132
+ DO ,1 SUB #6 <- #44
+ DO ,1 SUB #7 <- #56
+ DO ,1 SUB #8 <- #176
+ DO ,1 SUB #9 <- #238
+ DO ,1 SUB #10 <- #96
+ DO .1 <- #400
+ DO (19) NEXT
+ DO GIVE UP
+(19) DO COME FROM (55)
+ PLEASE DO STASH .1
+ DO .1 <- #2500
+ PLEASE (31) NEXT
+ DO RETRIEVE .1
+ DO (123) NEXT
+(55) PLEASE DO (15) NEXT
+(31) DO COME FROM (69)
+ PLEASE DON'T FORGET TO INSERT A BETTER HAIL-MARY ROUTINE
+(11) DO ,1 SUB #1 <- #62
+ PLEASE REINSTATE CALCULATING
+ DO READ OUT ,1
+ PLEASE DO (123) NEXT
+(69) DO (15) NEXT
+(42) DO RESUME .9
+(123) PLEASE .8 <- #1
+ PLEASE COME FROM (81)
+ DO .1 <- "?.1$.8"~"#0$#29524"
+ DO .9 <- '?"V!1~.8'$#1"~#1'~#1
+ PLEASE DO (42) NEXT
+(81) DO .8 <- !8$#0'~"#9841$#1"
+(15) PLEASE RESUME '?"!1~.1'~#2"$#1'~#1
- PLEASE KNOCK THREE TIMES BEFORE ENTERING\r
-\r
- (1000) PLEASE IGNORE .4\r
- PLEASE ABSTAIN FROM (1005)\r
- (1009) DO STASH .1 + .2 + .5 + .6\r
- DO .4 <- #1\r
- DO (1004) NEXT\r
- (1004) PLEASE FORGET #1\r
- DO .3 <- '^.1$.2'~'#0$#29524'\r
- DO .6 <- '?"'V"'&.1$.2'~'#0$#29524'"$#29524'\r
- ~'#0$#29524'"$#29524'~'#0$#29524'\r
- PLEASE DO .5 <- 'V".6~#39366"$#1'~#1\r
- DO (1002) NEXT\r
- DO .4 <- #2\r
- (1005) DO (1006) NEXT\r
- (1999) DOUBLE OR SINGLE PRECISION OVERFLOW\r
- (1002) DO (1001) NEXT\r
- (1006) PLEASE FORGET #1\r
- DO .5 <- 'V"!6~.6'~#2"$#1'~#1\r
- DO (1003) NEXT\r
- DO .1 <- .3\r
- DO .2 <- !6$#0'~'#9841$#1'\r
- DO (1004) NEXT\r
- (1003) DO (1001) NEXT\r
- DO REINSTATE (1005)\r
- (1007) PLEASE RETRIEVE .1 + .2 + .5 + .6\r
- DO REMEMBER .4\r
- PLEASE RESUME #2\r
- (1001) DO RESUME .5\r
- (1010) DO STASH .1 + .2 + .4\r
- DO .4 <- .1\r
- DO .1 <- '?#59048$.2'~'#0$#29524'\r
- DO (1020) NEXT\r
- PLEASE DO .2 <- .4\r
- PLEASE DO (1009) NEXT\r
- DO RETRIEVE .1 + .2 + .4\r
- PLEASE RESUME #1\r
- (1020) DO STASH .2 + .3\r
- DO .2 <- #1\r
- PLEASE DO (1021) NEXT\r
- (1021) DO FORGET #1\r
- DO .3 <- 'V"!1~.2'$#1"'~#1\r
- PLEASE DO .1 <- '^.1$.2'~'#0$#29524'\r
- DO (1022) NEXT\r
- DO .2 <- !2$#0'~'#9841$#1'\r
- DO (1021) NEXT\r
- (1023) PLEASE RESUME .3\r
- (1022) DO (1023) NEXT\r
- PLEASE RETRIEVE .2 + .3\r
- PLEASE RESUME #2\r
- (1030) DO ABSTAIN FROM (1033)\r
- PLEASE ABSTAIN FROM (1032)\r
- (1039) DO STASH :1 + .5\r
- DO (1530) NEXT\r
- DO .3 <- :1~#29524\r
- PLEASE DO .5 <- :1~'#29403$#29403'\r
- DO .5 <- 'V"!5~.5'~#2"$#1'~#1\r
- DO (1031) NEXT\r
- (1032) DO (1033) NEXT\r
- DO (1999) NEXT\r
- (1031) DO (1001) NEXT\r
- (1033) DO .4 <- .5\r
- DO REINSTATE (1032)\r
- PLEASE REINSTATE (1033)\r
- DO RETRIEVE :1 + .5\r
- PLEASE RESUME #2\r
- (1040) PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3\r
- DO .2 <- #0\r
- DO (1520) NEXT\r
- DO STASH :1\r
- PLEASE RETRIEVE .2\r
- DO .1 <- .2\r
- DO .2 <- #0\r
- PLEASE DO (1520) NEXT\r
- DO :2 <- :1\r
- DO RETRIEVE .1 + .2 + :1\r
- DO (1550) NEXT\r
- PLEASE DO .3 <- :3\r
- DO RETRIEVE :1 + :2 + :3\r
- DO RESUME #1\r
- (1050) PLEASE STASH :2 + :3 + .5\r
- DO :2 <- .1\r
- PLEASE DO (1550) NEXT\r
- DO .5 <- :3~'#29403$#29403'\r
- DO .5 <- 'V"!5~.5'~#2"$#1'~#1\r
- DO (1051) NEXT\r
- DO (1999) NEXT\r
- (1051) DO (1001) NEXT\r
- DO .2 <- :3\r
- PLEASE RETRIEVE :2 + :3 + .5\r
- DO RESUME #2\r
- (1500) PLEASE ABSTAIN FROM (1502)\r
- PLEASE ABSTAIN FROM (1506)\r
- (1509) PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6\r
- DO .1 <- :1~#29524\r
- PLEASE DO .2 <- :2~#29524\r
- DO (1009) NEXT\r
- DO .5 <- .3\r
- PLEASE DO .6 <- .4\r
- DO .1 <- :1~'#29403$#29403'\r
- DO .2 <- :2~'#29403$#29403'\r
- DO (1009) NEXT\r
- DO .1 <- .3\r
- PLEASE DO (1503) NEXT\r
- DO .6 <- .4\r
- DO .2 <- #1\r
- DO (1009) NEXT\r
- DO .1 <- .3\r
- DO (1501) NEXT\r
- (1504) PLEASE RESUME .6\r
- (1503) DO (1504) NEXT\r
- (1501) DO .2 <- .5\r
- DO .5 <- '&.6$.4'\r
- DO (1505) NEXT\r
- (1506) DO (1502) NEXT\r
- PLEASE DO (1999) NEXT\r
- (1505) DO (1001) NEXT\r
- (1502) DO :4 <- .5\r
- DO (1520) NEXT\r
- DO :3 <- :1\r
- PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6\r
- DO REINSTATE (1502)\r
- DO REINSTATE (1506)\r
- PLEASE RESUME #3\r
- (1510) DO STASH :1 + :2 + :4\r
- DO :1 <- "'?#59048$":2~'#29524$#0'"'~'#0$#29524'"\r
- $"'?#59048$":2~'#0$#29524'"'~'#0$#29524'"\r
- DO :2 <- #1\r
- DO (1509) NEXT\r
- PLEASE RETRIEVE :1\r
- DO :2 <- :3\r
- PLEASE DO (1509) NEXT\r
- DO RETRIEVE :2 + :4\r
- PLEASE RESUME #1\r
- (1520) PLEASE STASH .3 + .4\r
- DO .3 <- .1~#22143\r
- DO (1525) NEXT\r
- PLEASE DO .4 <- 'V.3$".2~#22143"'~'#0$#29524'\r
- DO .3 <- .1~#7381\r
- PLEASE DO (1525) NEXT\r
- DO :1 <- .4$"'V.3$".2~#7381"'~'#0$#29524'"\r
- PLEASE RETRIEVE .3 + .4\r
- DO RESUME #1\r
- (1525) DO .3 <- '"'"!3$#0'~'#9841$#1'"$#0'~'#3280$#4'"\r
- $#0'~'#3280$#4'\r
- PLEASE RESUME #1\r
- (1530) DO STASH :2 + :3 + .3 + .5\r
- DO :1 <- #0\r
- DO :2 <- .2\r
- DO .3 <- #1\r
- DO (1535) NEXT\r
- (1535) PLEASE FORGET #1\r
- DO .5 <- '@"'^".1~.3"$#7'~#4"$#2'~#10\r
- DO (1534) NEXT\r
- DO (1500) NEXT\r
- DO :1 <- :3\r
- DO (1536) NEXT\r
- (1534) DO (1531) NEXT\r
- (1536) DO (1500) NEXT\r
- DO :1 <- :3\r
- PLEASE DO (1533) NEXT\r
- (1531) PLEASE DO (1001) NEXT\r
- (1533) DO FORGET #2\r
- DO .3 <- !3$#0'~'#9841$#1'\r
- DO :2 <- ":2~'#0$#29524'"$"'":2~'#9841$#0'"$#0'\r
- ~'#9841$#1'"\r
- PLEASE DO .5 <- 'V"!3~.3'~#2"$#1'~#1\r
- DO (1532) NEXT\r
- DO (1535) NEXT\r
- (1532) DO (1001) NEXT\r
- PLEASE RETRIEVE :2 + :3 + .3 + .5\r
- DO RESUME #2\r
- (1540) PLEASE ABSTAIN FROM (1541)\r
- DO ABSTAIN FROM (1542)\r
- (1549) PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5\r
- DO .1 <- :1~#29524\r
- PLEASE DO .2 <- :2~'#29403$#29403'\r
- DO .5 <- :1~'#29403$#29403'\r
- DO (1530) NEXT\r
- DO :3 <- :1\r
- DO .2 <- :2~#29524\r
- PLEASE DO (1530) NEXT\r
- DO :5 <- :1\r
- DO .1 <- .5\r
- DO (1530) NEXT\r
- DO :4 <- :1\r
- PLEASE DO :1 <- ":3~'#29403$#29403'"$":4~'#29403\r
- $#29403'"\r
- DO .5 <- ':1~:1'~#2\r
- DO .2 <- :2~'#29403$#29403'\r
- DO (1530) NEXT\r
- PLEASE DO .5 <- '"':1~:1'~#2"$.5'~#4\r
- DO .1 <- :3~#29524\r
- DO .2 <- #0\r
- DO (1520) NEXT\r
- PLEASE DO :2 <- :1\r
- PLEASE DO .1 <- :4~#29524\r
- DO (1520) NEXT\r
- DO (1509) NEXT\r
- DO .5 <- !5$":4~#1"'~#31\r
- DO :1 <- :3\r
- DO :2 <- :5\r
- DO (1509) NEXT\r
- PLEASE DO .5 <- !5$":4~#1"'~#274\r
- DO .5 <- !5~.5'~#1\r
- PLEASE RETRIEVE :4\r
- (1541) DO :4 <- .5\r
- DO (1543) NEXT\r
- (1542) DO (1544) NEXT\r
- PLEASE DO (1999) NEXT\r
- (1543) DO (1001) NEXT\r
- (1544) DO REINSTATE (1541)\r
- PLEASE REINSTATE (1542)\r
- PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5\r
- DO RESUME #2\r
- (1550) DO STASH :1 + :4 + :5 + :6 + .5\r
- DO :3 <- #0\r
- DO .5 <- 'V"':2~:2'~#2"$#1'~#1\r
- PLEASE DO (1551) NEXT\r
- DO :4 <- #1\r
- PLEASE DO (1553) NEXT\r
- (1553) DO FORGET #1\r
- DO .5 <- '?"':2~"#39366$#0"'"$#1'~#1\r
- DO (1552) NEXT\r
- DO :2 <- ":2~'#0$#29524'"$"'":2~'#9841$#0'"$#0'\r
- ~'#9841$#1'"\r
- PLEASE DO :4 <- ":4~'#0$#29524'"$"'":4~'#9841\r
- $#0'"$#0'~'#9841$#1'"\r
- DO (1553) NEXT\r
- (1552) DO (1001) NEXT\r
- (1556) PLEASE FORGET #1\r
- DO :6 <- "'&":2~'#29524$#0'"$"'?#59048$":1\r
- ~'#29524$#0'"'~'#0$#29524'"'~'#0$#29524'"$\r
- "'&":2~'#0$#29524'"$"'?#59048$":1~'#0$\r
- #29524'"'~'#0$#29524'"'~'#0$#29524'"\r
- DO :5 <- "'?":1~'#29524$#0'"$":2~'#29524$#0'"'\r
- ~'#0$#59048'"$"'?":1~'#0$#29524'"$":2~'#0$\r
- #29524'"'~'#0$#59048'"\r
- DO .5 <- "?'"':6~:5'~'"'"'&"':5~:5'~'#29524$#0'"$\r
- #19683'~'#0$#29524'"$"'?:5~:5'~'#9841$#0'"'\r
- ~'#19683$#9841'"$"'?:5~:5'~'#0$#29524'"'"\r
- ~#1'$#1"~#1\r
- DO (1554) NEXT\r
- DO :5 <- :3\r
- DO (1510) NEXT\r
- PLEASE DO :1 <- :3\r
- DO :6 <- "'&":2~'#29524$#0'"$"'?#59048$":1\r
- ~'#29524$#0'"'~'#0$#29524'"'~'#0$#29524'"$\r
- "'&":2~'#0$#29524'"$"'?#59048$":1~'#0$\r
- #29524'"'~'#0$#29524'"'~'#0$#29524'"\r
- DO :3 <- "'?":1~'#29524$#0'"$":2~'#29524$#0'"'\r
- ~'#0$#59048'"$"'?":1~'#0$#29524'"$":2~'#0$\r
- #29524'"'~'#0$#59048'"\r
- DO .5 <- "?'"':6~:3'~'"'"'&"':3~:3'~'#29524$#0'"$\r
- #19683'~'#0$#29524'"$"'?:3~:3'~'#9841$#0'"'\r
- ~'#19683$#9841'"$"'?:3~:3'~'#0$#29524'"'"\r
- ~#1'$#1"~#1\r
- DO (1557) NEXT\r
- DO (1510) NEXT\r
- PLEASE DO :1 <- :3\r
- DO :3 <- "'V":4~'#59048$#0'"$":5~'#29524$#0'"'\r
- ~'#0$#29524'"$"'V":4~'#0$#59048'"$":5~'#0$\r
- #29524'"'~'#0$#29524'"\r
- PLEASE DO (1555) NEXT\r
- (1557) PLEASE DO (1001) NEXT\r
- PLEASE FORGET #1\r
- DO :3 <- "'V":4~'#29524$#0'"$":5~'#29524$#0'"'\r
- ~'#0$#29524'"$"'V":4~'#0$#29524'"$":5~'#0$\r
- #29524'"'~'#0$#29524'"\r
- PLEASE DO (1555) NEXT\r
- (1554) PLEASE DO (1001) NEXT\r
- (1555) PLEASE FORGET #1\r
- DO .5 <- "?':4~#2'$#1"~#1\r
- DO (1551) NEXT\r
- DO :2 <- :2~'#29524$#29523'\r
- DO :4 <- :4~'#29524$#29523'\r
- PLEASE DO (1556) NEXT\r
- (1551) DO (1001) NEXT\r
- PLEASE RETRIEVE :1 + :4 + :5 + :6 + .5\r
- PLEASE RESUME #2\r
- (1900) DO STASH .2 + .5\r
- DO .1 <- #0\r
- DO .2 <- #1\r
- PLEASE DO (1901) NEXT\r
- (1901) DO FORGET #1\r
- DO %50 (1904) NEXT\r
- DO %50 (1901) NEXT\r
- PLEASE DO (1903) NEXT\r
- (1904) DO .1 <- '^.1$.2'~'#0$#29524'\r
- DO %50 .1 <- '^.1$.2'~'#0$#29524'\r
- (1903) PLEASE FORGET #1\r
- DO .2 <- !2$#0'~'#9841$#1'\r
- PLEASE DO .5 <- 'V"!2~.2'~#2"$#1'~#1\r
- DO (1902) NEXT\r
- DO (1901) NEXT\r
- (1902) DO (1001) NEXT\r
- DO RETRIEVE .2 + .5\r
- PLEASE RESUME #2\r
- (1910) PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3\r
- DO .3 <- #59037\r
- DO :1 <- #6\r
- DO (1911) NEXT\r
- PLEASE NOTE THAT YOU CAN'T GET THREE FROM HERE\r
- (1912) DO (1001) NEXT\r
- (1911) DO FORGET #1\r
- PLEASE DO (1900) NEXT\r
- DO :2 <- .1\r
- DO (1500) NEXT\r
- PLEASE DO :1 <- :3\r
- DO .1 <- .3\r
- DO (1020) NEXT\r
- PLEASE DO .3 <- .1\r
- DO .5 <- '?"!3~.3'~#2"$#1'~#1\r
- DO (1912) NEXT\r
- DO .1 <- #12\r
- PLEASE DO (1050) NEXT\r
- DO RETRIEVE .1\r
- DO (1530) NEXT\r
- DO :2 <- #29524\r
- DO (1500) NEXT\r
- PLEASE DO .2 <- :3~'#29403$#29403'\r
- PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3\r
- DO RESUME #1\r
+ PLEASE KNOCK THREE TIMES BEFORE ENTERING
+
+ (1000) PLEASE IGNORE .4
+ PLEASE ABSTAIN FROM (1005)
+ (1009) DO STASH .1 + .2 + .5 + .6
+ DO .4 <- #1
+ DO (1004) NEXT
+ (1004) PLEASE FORGET #1
+ DO .3 <- '^.1$.2'~'#0$#29524'
+ DO .6 <- '?"'V"'&.1$.2'~'#0$#29524'"$#29524'
+ ~'#0$#29524'"$#29524'~'#0$#29524'
+ PLEASE DO .5 <- 'V".6~#39366"$#1'~#1
+ DO (1002) NEXT
+ DO .4 <- #2
+ (1005) DO (1006) NEXT
+ (1999) DOUBLE OR SINGLE PRECISION OVERFLOW
+ (1002) DO (1001) NEXT
+ (1006) PLEASE FORGET #1
+ DO .5 <- 'V"!6~.6'~#2"$#1'~#1
+ DO (1003) NEXT
+ DO .1 <- .3
+ DO .2 <- !6$#0'~'#9841$#1'
+ DO (1004) NEXT
+ (1003) DO (1001) NEXT
+ DO REINSTATE (1005)
+ (1007) PLEASE RETRIEVE .1 + .2 + .5 + .6
+ DO REMEMBER .4
+ PLEASE RESUME #2
+ (1001) DO RESUME .5
+ (1010) DO STASH .1 + .2 + .4
+ DO .4 <- .1
+ DO .1 <- '?#59048$.2'~'#0$#29524'
+ DO (1020) NEXT
+ PLEASE DO .2 <- .4
+ PLEASE DO (1009) NEXT
+ DO RETRIEVE .1 + .2 + .4
+ PLEASE RESUME #1
+ (1020) DO STASH .2 + .3
+ DO .2 <- #1
+ PLEASE DO (1021) NEXT
+ (1021) DO FORGET #1
+ DO .3 <- 'V"!1~.2'$#1"'~#1
+ PLEASE DO .1 <- '^.1$.2'~'#0$#29524'
+ DO (1022) NEXT
+ DO .2 <- !2$#0'~'#9841$#1'
+ DO (1021) NEXT
+ (1023) PLEASE RESUME .3
+ (1022) DO (1023) NEXT
+ PLEASE RETRIEVE .2 + .3
+ PLEASE RESUME #2
+ (1030) DO ABSTAIN FROM (1033)
+ PLEASE ABSTAIN FROM (1032)
+ (1039) DO STASH :1 + .5
+ DO (1530) NEXT
+ DO .3 <- :1~#29524
+ PLEASE DO .5 <- :1~'#29403$#29403'
+ DO .5 <- 'V"!5~.5'~#2"$#1'~#1
+ DO (1031) NEXT
+ (1032) DO (1033) NEXT
+ DO (1999) NEXT
+ (1031) DO (1001) NEXT
+ (1033) DO .4 <- .5
+ DO REINSTATE (1032)
+ PLEASE REINSTATE (1033)
+ DO RETRIEVE :1 + .5
+ PLEASE RESUME #2
+ (1040) PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3
+ DO .2 <- #0
+ DO (1520) NEXT
+ DO STASH :1
+ PLEASE RETRIEVE .2
+ DO .1 <- .2
+ DO .2 <- #0
+ PLEASE DO (1520) NEXT
+ DO :2 <- :1
+ DO RETRIEVE .1 + .2 + :1
+ DO (1550) NEXT
+ PLEASE DO .3 <- :3
+ DO RETRIEVE :1 + :2 + :3
+ DO RESUME #1
+ (1050) PLEASE STASH :2 + :3 + .5
+ DO :2 <- .1
+ PLEASE DO (1550) NEXT
+ DO .5 <- :3~'#29403$#29403'
+ DO .5 <- 'V"!5~.5'~#2"$#1'~#1
+ DO (1051) NEXT
+ DO (1999) NEXT
+ (1051) DO (1001) NEXT
+ DO .2 <- :3
+ PLEASE RETRIEVE :2 + :3 + .5
+ DO RESUME #2
+ (1500) PLEASE ABSTAIN FROM (1502)
+ PLEASE ABSTAIN FROM (1506)
+ (1509) PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6
+ DO .1 <- :1~#29524
+ PLEASE DO .2 <- :2~#29524
+ DO (1009) NEXT
+ DO .5 <- .3
+ PLEASE DO .6 <- .4
+ DO .1 <- :1~'#29403$#29403'
+ DO .2 <- :2~'#29403$#29403'
+ DO (1009) NEXT
+ DO .1 <- .3
+ PLEASE DO (1503) NEXT
+ DO .6 <- .4
+ DO .2 <- #1
+ DO (1009) NEXT
+ DO .1 <- .3
+ DO (1501) NEXT
+ (1504) PLEASE RESUME .6
+ (1503) DO (1504) NEXT
+ (1501) DO .2 <- .5
+ DO .5 <- '&.6$.4'
+ DO (1505) NEXT
+ (1506) DO (1502) NEXT
+ PLEASE DO (1999) NEXT
+ (1505) DO (1001) NEXT
+ (1502) DO :4 <- .5
+ DO (1520) NEXT
+ DO :3 <- :1
+ PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6
+ DO REINSTATE (1502)
+ DO REINSTATE (1506)
+ PLEASE RESUME #3
+ (1510) DO STASH :1 + :2 + :4
+ DO :1 <- "'?#59048$":2~'#29524$#0'"'~'#0$#29524'"
+ $"'?#59048$":2~'#0$#29524'"'~'#0$#29524'"
+ DO :2 <- #1
+ DO (1509) NEXT
+ PLEASE RETRIEVE :1
+ DO :2 <- :3
+ PLEASE DO (1509) NEXT
+ DO RETRIEVE :2 + :4
+ PLEASE RESUME #1
+ (1520) PLEASE STASH .3 + .4
+ DO .3 <- .1~#22143
+ DO (1525) NEXT
+ PLEASE DO .4 <- 'V.3$".2~#22143"'~'#0$#29524'
+ DO .3 <- .1~#7381
+ PLEASE DO (1525) NEXT
+ DO :1 <- .4$"'V.3$".2~#7381"'~'#0$#29524'"
+ PLEASE RETRIEVE .3 + .4
+ DO RESUME #1
+ (1525) DO .3 <- '"'"!3$#0'~'#9841$#1'"$#0'~'#3280$#4'"
+ $#0'~'#3280$#4'
+ PLEASE RESUME #1
+ (1530) DO STASH :2 + :3 + .3 + .5
+ DO :1 <- #0
+ DO :2 <- .2
+ DO .3 <- #1
+ DO (1535) NEXT
+ (1535) PLEASE FORGET #1
+ DO .5 <- '@"'^".1~.3"$#7'~#4"$#2'~#10
+ DO (1534) NEXT
+ DO (1500) NEXT
+ DO :1 <- :3
+ DO (1536) NEXT
+ (1534) DO (1531) NEXT
+ (1536) DO (1500) NEXT
+ DO :1 <- :3
+ PLEASE DO (1533) NEXT
+ (1531) PLEASE DO (1001) NEXT
+ (1533) DO FORGET #2
+ DO .3 <- !3$#0'~'#9841$#1'
+ DO :2 <- ":2~'#0$#29524'"$"'":2~'#9841$#0'"$#0'
+ ~'#9841$#1'"
+ PLEASE DO .5 <- 'V"!3~.3'~#2"$#1'~#1
+ DO (1532) NEXT
+ DO (1535) NEXT
+ (1532) DO (1001) NEXT
+ PLEASE RETRIEVE :2 + :3 + .3 + .5
+ DO RESUME #2
+ (1540) PLEASE ABSTAIN FROM (1541)
+ DO ABSTAIN FROM (1542)
+ (1549) PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5
+ DO .1 <- :1~#29524
+ PLEASE DO .2 <- :2~'#29403$#29403'
+ DO .5 <- :1~'#29403$#29403'
+ DO (1530) NEXT
+ DO :3 <- :1
+ DO .2 <- :2~#29524
+ PLEASE DO (1530) NEXT
+ DO :5 <- :1
+ DO .1 <- .5
+ DO (1530) NEXT
+ DO :4 <- :1
+ PLEASE DO :1 <- ":3~'#29403$#29403'"$":4~'#29403
+ $#29403'"
+ DO .5 <- ':1~:1'~#2
+ DO .2 <- :2~'#29403$#29403'
+ DO (1530) NEXT
+ PLEASE DO .5 <- '"':1~:1'~#2"$.5'~#4
+ DO .1 <- :3~#29524
+ DO .2 <- #0
+ DO (1520) NEXT
+ PLEASE DO :2 <- :1
+ PLEASE DO .1 <- :4~#29524
+ DO (1520) NEXT
+ DO (1509) NEXT
+ DO .5 <- !5$":4~#1"'~#31
+ DO :1 <- :3
+ DO :2 <- :5
+ DO (1509) NEXT
+ PLEASE DO .5 <- !5$":4~#1"'~#274
+ DO .5 <- !5~.5'~#1
+ PLEASE RETRIEVE :4
+ (1541) DO :4 <- .5
+ DO (1543) NEXT
+ (1542) DO (1544) NEXT
+ PLEASE DO (1999) NEXT
+ (1543) DO (1001) NEXT
+ (1544) DO REINSTATE (1541)
+ PLEASE REINSTATE (1542)
+ PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5
+ DO RESUME #2
+ (1550) DO STASH :1 + :4 + :5 + :6 + .5
+ DO :3 <- #0
+ DO .5 <- 'V"':2~:2'~#2"$#1'~#1
+ PLEASE DO (1551) NEXT
+ DO :4 <- #1
+ PLEASE DO (1553) NEXT
+ (1553) DO FORGET #1
+ DO .5 <- '?"':2~"#39366$#0"'"$#1'~#1
+ DO (1552) NEXT
+ DO :2 <- ":2~'#0$#29524'"$"'":2~'#9841$#0'"$#0'
+ ~'#9841$#1'"
+ PLEASE DO :4 <- ":4~'#0$#29524'"$"'":4~'#9841
+ $#0'"$#0'~'#9841$#1'"
+ DO (1553) NEXT
+ (1552) DO (1001) NEXT
+ (1556) PLEASE FORGET #1
+ DO :6 <- "'&":2~'#29524$#0'"$"'?#59048$":1
+ ~'#29524$#0'"'~'#0$#29524'"'~'#0$#29524'"$
+ "'&":2~'#0$#29524'"$"'?#59048$":1~'#0$
+ #29524'"'~'#0$#29524'"'~'#0$#29524'"
+ DO :5 <- "'?":1~'#29524$#0'"$":2~'#29524$#0'"'
+ ~'#0$#59048'"$"'?":1~'#0$#29524'"$":2~'#0$
+ #29524'"'~'#0$#59048'"
+ DO .5 <- "?'"':6~:5'~'"'"'&"':5~:5'~'#29524$#0'"$
+ #19683'~'#0$#29524'"$"'?:5~:5'~'#9841$#0'"'
+ ~'#19683$#9841'"$"'?:5~:5'~'#0$#29524'"'"
+ ~#1'$#1"~#1
+ DO (1554) NEXT
+ DO :5 <- :3
+ DO (1510) NEXT
+ PLEASE DO :1 <- :3
+ DO :6 <- "'&":2~'#29524$#0'"$"'?#59048$":1
+ ~'#29524$#0'"'~'#0$#29524'"'~'#0$#29524'"$
+ "'&":2~'#0$#29524'"$"'?#59048$":1~'#0$
+ #29524'"'~'#0$#29524'"'~'#0$#29524'"
+ DO :3 <- "'?":1~'#29524$#0'"$":2~'#29524$#0'"'
+ ~'#0$#59048'"$"'?":1~'#0$#29524'"$":2~'#0$
+ #29524'"'~'#0$#59048'"
+ DO .5 <- "?'"':6~:3'~'"'"'&"':3~:3'~'#29524$#0'"$
+ #19683'~'#0$#29524'"$"'?:3~:3'~'#9841$#0'"'
+ ~'#19683$#9841'"$"'?:3~:3'~'#0$#29524'"'"
+ ~#1'$#1"~#1
+ DO (1557) NEXT
+ DO (1510) NEXT
+ PLEASE DO :1 <- :3
+ DO :3 <- "'V":4~'#59048$#0'"$":5~'#29524$#0'"'
+ ~'#0$#29524'"$"'V":4~'#0$#59048'"$":5~'#0$
+ #29524'"'~'#0$#29524'"
+ PLEASE DO (1555) NEXT
+ (1557) PLEASE DO (1001) NEXT
+ PLEASE FORGET #1
+ DO :3 <- "'V":4~'#29524$#0'"$":5~'#29524$#0'"'
+ ~'#0$#29524'"$"'V":4~'#0$#29524'"$":5~'#0$
+ #29524'"'~'#0$#29524'"
+ PLEASE DO (1555) NEXT
+ (1554) PLEASE DO (1001) NEXT
+ (1555) PLEASE FORGET #1
+ DO .5 <- "?':4~#2'$#1"~#1
+ DO (1551) NEXT
+ DO :2 <- :2~'#29524$#29523'
+ DO :4 <- :4~'#29524$#29523'
+ PLEASE DO (1556) NEXT
+ (1551) DO (1001) NEXT
+ PLEASE RETRIEVE :1 + :4 + :5 + :6 + .5
+ PLEASE RESUME #2
+ (1900) DO STASH .2 + .5
+ DO .1 <- #0
+ DO .2 <- #1
+ PLEASE DO (1901) NEXT
+ (1901) DO FORGET #1
+ DO %50 (1904) NEXT
+ DO %50 (1901) NEXT
+ PLEASE DO (1903) NEXT
+ (1904) DO .1 <- '^.1$.2'~'#0$#29524'
+ DO %50 .1 <- '^.1$.2'~'#0$#29524'
+ (1903) PLEASE FORGET #1
+ DO .2 <- !2$#0'~'#9841$#1'
+ PLEASE DO .5 <- 'V"!2~.2'~#2"$#1'~#1
+ DO (1902) NEXT
+ DO (1901) NEXT
+ (1902) DO (1001) NEXT
+ DO RETRIEVE .2 + .5
+ PLEASE RESUME #2
+ (1910) PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3
+ DO .3 <- #59037
+ DO :1 <- #6
+ DO (1911) NEXT
+ PLEASE NOTE THAT YOU CAN'T GET THREE FROM HERE
+ (1912) DO (1001) NEXT
+ (1911) DO FORGET #1
+ PLEASE DO (1900) NEXT
+ DO :2 <- .1
+ DO (1500) NEXT
+ PLEASE DO :1 <- :3
+ DO .1 <- .3
+ DO (1020) NEXT
+ PLEASE DO .3 <- .1
+ DO .5 <- '?"!3~.3'~#2"$#1'~#1
+ DO (1912) NEXT
+ DO .1 <- #12
+ PLEASE DO (1050) NEXT
+ DO RETRIEVE .1
+ DO (1530) NEXT
+ DO :2 <- #29524
+ DO (1500) NEXT
+ PLEASE DO .2 <- :3~'#29403$#29403'
+ PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
+ DO RESUME #1
- PLEASE KNOCK TWICE TWO TIMES BEFORE ENTERING\r
-\r
- (1000) PLEASE IGNORE .4\r
- PLEASE ABSTAIN FROM (1005)\r
- (1009) DO STASH .1 + .2 + .5 + .6\r
- DO .4 <- #1\r
- DO (1004) NEXT\r
- (1004) PLEASE FORGET #1\r
- DO .3 <- '^.1$.2'~'#0$#21845'\r
- DO .6 <- '?"'V"'&.1$.2'~'#0$#21845'"$"'^"'@.1$\r
- .2'~'#0$#21845'"$#21845'~'#0$#43690'"'\r
- ~'#0$#21845'"$#43690'~'#0$#21845'\r
- PLEASE DO .5 <- '?".6~#49152"$#4'~#4\r
- DO (1002) NEXT\r
- DO .4 <- #2\r
- (1005) DO (1006) NEXT\r
- (1999) DOUBLE OR SINGLE PRECISION OVERFLOW\r
- (1002) DO (1001) NEXT\r
- (1006) PLEASE FORGET #1\r
- DO .5 <- '?"!6~.6'~#3"$#4'~#4\r
- DO (1003) NEXT\r
- DO .1 <- .3\r
- DO .2 <- !6$#0'~'#5461$#1'\r
- DO (1004) NEXT\r
- (1003) DO (1001) NEXT\r
- DO REINSTATE (1005)\r
- (1007) PLEASE RETRIEVE .1 + .2 + .5 + .6\r
- DO REMEMBER .4\r
- PLEASE RESUME #2\r
- (1001) DO RESUME .5\r
- (1010) DO STASH .1 + .2 + .4\r
- DO .4 <- .1\r
- DO .1 <- '?#65535$.2'~'#0$#21845'\r
- DO (1020) NEXT\r
- PLEASE DO .2 <- .4\r
- PLEASE DO (1009) NEXT\r
- DO RETRIEVE .1 + .2 + .4\r
- PLEASE RESUME #1\r
- (1020) DO STASH .2 + .3\r
- DO .2 <- #1\r
- PLEASE DO (1021) NEXT\r
- (1021) DO FORGET #1\r
- DO .3 <- '?"'V".1~.2"$#2'~#1"$#1'~#1\r
- PLEASE DO .1 <- '^.1$.2'~'#0$#21845'\r
- DO (1022) NEXT\r
- DO .2 <- !2$#0'~'#5461$#1'\r
- DO (1021) NEXT\r
- (1023) PLEASE RESUME .3\r
- (1022) DO (1023) NEXT\r
- PLEASE RETRIEVE .2 + .3\r
- PLEASE RESUME #2\r
- (1030) DO ABSTAIN FROM (1033)\r
- PLEASE ABSTAIN FROM (1032)\r
- (1039) DO STASH :1 + .5\r
- DO (1530) NEXT\r
- DO .3 <- :1~#21845\r
- PLEASE DO .5 <- :1~'#21760$#21760'\r
- DO .5 <- '?"!5~.5'~#3"$#4'~#4\r
- DO (1031) NEXT\r
- (1032) DO (1033) NEXT\r
- DO (1999) NEXT\r
- (1031) DO (1001) NEXT\r
- (1033) DO .4 <- .5\r
- DO REINSTATE (1032)\r
- PLEASE REINSTATE (1033)\r
- DO RETRIEVE :1 + .5\r
- PLEASE RESUME #2\r
- (1040) PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3\r
- DO .2 <- #0\r
- DO (1520) NEXT\r
- DO STASH :1\r
- PLEASE RETRIEVE .2\r
- DO .1 <- .2\r
- DO .2 <- #0\r
- PLEASE DO (1520) NEXT\r
- DO :2 <- :1\r
- DO RETRIEVE .1 + .2 + :1\r
- DO (1550) NEXT\r
- PLEASE DO .3 <- :3\r
- DO RETRIEVE :1 + :2 + :3\r
- DO RESUME #1\r
- (1050) PLEASE STASH :2 + :3 + .5\r
- DO :2 <- .1\r
- PLEASE DO (1550) NEXT\r
- DO .5 <- :3~'#21760$#21760'\r
- DO .5 <- '?"!5~.5'~#3"$#4'~#4\r
- DO (1051) NEXT\r
- DO (1999) NEXT\r
- (1051) DO (1001) NEXT\r
- DO .2 <- :3\r
- PLEASE RETRIEVE :2 + :3 + .5\r
- DO RESUME #2\r
- (1200) DO .2 <- '^.1$.1'~'#0$#21845'\r
- DO .3 <- '?"'@.1$#0'~'#0$#21845'"$"'@.1$#65535'\r
- ~'#0$#21845'"'~'#0$#21845'\r
- DO .2 <- '^.2$"!3$#0'~'#5461$#1'"'~'#0$#21845'\r
- DO .3 <- .3~#16384\r
- PLEASE RESUME #1\r
- (1210) DO .2 <- '?"'@.1$#0'~'#0$#21845'"$"'@.1$#65535'\r
- ~'#0$#21845'"'~'#0$#21845'\r
- DO .3 <- '^.1$.1'~'#0$#21845'\r
- DO .2 <- '^.2$".3~#21844"'~'#0$#21845'\r
- DO .3 <- .3~#1\r
- PLEASE RESUME #1\r
- (1500) PLEASE ABSTAIN FROM (1502)\r
- PLEASE ABSTAIN FROM (1506)\r
- (1509) PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6\r
- DO .1 <- :1~#21845\r
- PLEASE DO .2 <- :2~#21845\r
- DO (1009) NEXT\r
- DO .5 <- .3\r
- PLEASE DO .6 <- .4\r
- DO .1 <- :1~'#21760$#21760'\r
- DO .2 <- :2~'#21760$#21760'\r
- DO (1009) NEXT\r
- DO .1 <- .3\r
- PLEASE DO (1503) NEXT\r
- DO .6 <- .4\r
- DO .2 <- #1\r
- DO (1009) NEXT\r
- DO .1 <- .3\r
- DO (1501) NEXT\r
- (1504) PLEASE RESUME .6\r
- (1503) DO (1504) NEXT\r
- (1501) DO .2 <- .5\r
- DO .5 <- '&.6$.4'\r
- DO (1505) NEXT\r
- (1506) DO (1502) NEXT\r
- PLEASE DO (1999) NEXT\r
- (1505) DO (1001) NEXT\r
- (1502) DO :4 <- .5\r
- DO (1520) NEXT\r
- DO :3 <- :1\r
- PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6\r
- DO REINSTATE (1502)\r
- DO REINSTATE (1506)\r
- PLEASE RESUME #3\r
- (1510) DO STASH :1 + :2 + :4\r
- DO :1 <- "'?#65535$":2~'#21845$#0'"'~'#0$#21845'"$\r
- "'?#65535$":2~'#0$#21845'"'~'#0$#21845'"\r
- DO :2 <- #1\r
- DO (1509) NEXT\r
- PLEASE RETRIEVE :1\r
- DO :2 <- :3\r
- PLEASE DO (1509) NEXT\r
- DO RETRIEVE :2 + :4\r
- PLEASE RESUME #1\r
- (1520) PLEASE STASH .3 + .4\r
- DO .3 <- .1~#17476\r
- DO (1525) NEXT\r
- PLEASE DO .4 <- 'V.3$".2~#17476"'~'#0$#21845'\r
- DO .3 <- .1~#4369\r
- PLEASE DO (1525) NEXT\r
- DO :1 <- .4$"'V.3$".2~#4369"'~'#0$#21845'"\r
- PLEASE RETRIEVE .3 + .4\r
- DO RESUME #1\r
- (1525) DO .3 <- '"'"!3$#0'~'#5461$#1'"$#0'~'#5461$#1'"$\r
- #0'~'#1365$#5'\r
- PLEASE RESUME #1\r
- (1530) DO STASH :2 + :3 + .1 + .2 + .3\r
- DO :3 <- #0\r
- DO :2 <- .1\r
- DO (1535) NEXT\r
- (1535) PLEASE FORGET #1\r
- DO .3 <- '?"!2~.2'~#3"$#4'~#4\r
- DO (1532) NEXT\r
- DO .1 <- .2\r
- DO (1210) NEXT\r
- DO .3 <- 'V.3$#1'~#1\r
- DO (1531) NEXT\r
- DO :1 <- :3\r
- DO (1500) NEXT\r
- PLEASE DO (1533) NEXT\r
- (1531) PLEASE DO (1534) NEXT\r
- (1533) DO FORGET #1\r
- DO :1 <- :2\r
- DO (1700) NEXT\r
- DO (1535) NEXT\r
- (1534) PLEASE RESUME .3\r
- (1532) DO (1534) NEXT\r
- DO :1 <- :3\r
- PLEASE RETRIEVE :2 + :3 + .1 + .2 + .3\r
- DO RESUME #2\r
- (1540) PLEASE ABSTAIN FROM (1541)\r
- DO ABSTAIN FROM (1542)\r
- (1549) PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5\r
- DO .1 <- :1~#21845\r
- PLEASE DO .2 <- :2~'#21760$#21760'\r
- DO .5 <- :1~'#21760$#21760'\r
- DO (1530) NEXT\r
- DO :3 <- :1\r
- DO .2 <- :2~#21845\r
- PLEASE DO (1530) NEXT\r
- DO :5 <- :1\r
- DO .1 <- .5\r
- DO (1530) NEXT\r
- DO :4 <- :1\r
- PLEASE DO :1 <- ":3~'#21760$#21760'"$":4\r
- ~'#21760$#21760'"\r
- DO .5 <- ':1~:1'~#3\r
- DO .2 <- :2~'#21760$#21760'\r
- DO (1530) NEXT\r
- PLEASE DO .5 <- '"':1~:1'~#3"$.5'~#5\r
- DO .1 <- :3~#21845\r
- DO .2 <- #0\r
- DO (1520) NEXT\r
- PLEASE DO :2 <- :1\r
- PLEASE DO .1 <- :4~#21845\r
- DO (1520) NEXT\r
- DO (1509) NEXT\r
- DO .5 <- !5$"'^":4~#1"$#1'~#1"'~#69\r
- DO :1 <- :3\r
- DO :2 <- :5\r
- DO (1509) NEXT\r
- PLEASE DO .5 <- !5$"'^":4~#1"$#1'~#1"'~#1093\r
- DO .5 <- '?"!5~.5'~#1"$#1'~#1\r
- PLEASE RETRIEVE :4\r
- (1541) DO :4 <- .5\r
- DO (1543) NEXT\r
- (1542) DO (1544) NEXT\r
- PLEASE DO (1999) NEXT\r
- (1543) DO (1001) NEXT\r
- (1544) DO REINSTATE (1541)\r
- PLEASE REINSTATE (1542)\r
- PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5\r
- DO RESUME #2\r
- (1550) DO STASH :1 + :1 + :4 + :5 + :6 + .1 + .5\r
- DO :3 <- #0\r
- DO .5 <- '?"':2~:2'~#3"$#4'~#4\r
- PLEASE DO (1551) NEXT\r
- DO :4 <- #1\r
- PLEASE DO (1553) NEXT\r
- (1553) DO FORGET #1\r
- DO .5 <- '?#0$"'V"'@":2~'#16384$#0'"$#3'~#1"$#2'\r
- ~#1"'~#1\r
- DO (1552) NEXT\r
- DO :5 <- :2\r
- DO :1 <- :4\r
- PLEASE DO (1700) NEXT\r
- DO :4 <- :2\r
- DO :1 <- :5\r
- PLEASE DO (1700) NEXT\r
- DO (1553) NEXT\r
- (1552) DO (1001) NEXT\r
- DO RETRIEVE :1\r
- (1556) PLEASE FORGET #1\r
- DO :6 <- "'&":2~'#21845$#0'"$"'?#65535$":1\r
- ~'#21845$#0'"'~'#0$#21845'"'~'#0$#21845'"$\r
- "'&":2~'#0$#21845'"$"'?#65535$":1~'#0$\r
- #21845'"'~'#0$#21845'"'~'#0$#21845'"\r
- DO :6 <- "'?"'V":6~'#21845$#0'"$#21845'~'#0$\r
- #21845'"$#21845'~'#0$#65535'"$"'?"'V":6\r
- ~'#0$#21845'"$#21845'~'#0$#21845'"$#21845'\r
- ~'#0$#65535'"\r
- DO :5 <- "'?":1~'#21845$#0'"$":2~'#21845$#0'"'\r
- ~'#0$#65535'"$"'?":1~'#0$#21845'"$":2~'#0$\r
- #21845'"'~'#0$#65535'"\r
- DO .5 <- "?'"':6~:5'~'"'"'&"':5~:5'~'#21845$#0'"$\r
- #16384'~'#0$#21845'"$"'?:5~:5'~'#5461$#0'"'\r
- ~'#16384$#5461'"$"'?:5~:5'~'#0$#21845'"'"\r
- ~#1'$#2"~#1\r
- DO (1554) NEXT\r
- DO :5 <- :3\r
- DO (1510) NEXT\r
- PLEASE DO :1 <- :3\r
- DO :3 <- "'^":4~'#21845$#0'"$":5~'#21845$#0'"'\r
- ~'#0$#21845'"$"'^":4~'#0$#21845'"$":5~'#0$\r
- #21845'"'~'#0$#21845'"\r
- DO (1555) NEXT\r
- (1554) PLEASE DO (1001) NEXT\r
- (1555) DO FORGET #1\r
- DO .5 <- 'V":4~#1"$"'?#2$":4~#1"'~#1"'~#1\r
- DO (1551) NEXT\r
- DO :5 <- :1\r
- DO :1 <- :4\r
- DO :4 <- :2\r
- DO (1710) NEXT\r
- DO :1 <- :4\r
- DO :4 <- :2\r
- DO (1710) NEXT\r
- DO :1 <- :5\r
- PLEASE DO (1556) NEXT\r
- (1551) DO (1001) NEXT\r
- PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5\r
- PLEASE RESUME #2\r
- (1700) PLEASE STASH .2\r
- DO .1 <- :1~'#0$#21845'\r
- DO .2 <- :1~'#21845$#0'\r
- DO :2 <- "'^.2$.2'~'#0$#21845'"$"'^.1$.1'~'#0$\r
- #21845'"\r
- DO .1 <- '?"'@.1$#0'~'#0$#21845'"$"'@.1$#65535'\r
- ~'#0$#21845'"'~'#0$#21845'\r
- DO .2 <- '?"'@.2$#0'~'#0$#21845'"$"'@.2$#65535'\r
- ~'#0$#21845'"'~'#0$#21845'\r
- DO :2 <- "'^":2~'#21845$#0'"$.1'~'#0$#21845'"$\r
- "'^":2~'#0$#21845'"$"'.2$#0'~'#5461$#1'"'\r
- ~'#0$#21845'"\r
- DO .1 <- .2~#16384\r
- PLEASE RETRIEVE .2\r
- PLEASE RESUME #1\r
- (1710) PLEASE STASH :1 + .2\r
- DO .1 <- :1~'#0$#21845'\r
- DO .2 <- :1~'#21845$#0'\r
- DO :2 <- "'^.2$.2'~'#0$#21845'"$"'^.1$.1'~'#0$\r
- #21845'"\r
- DO :1 <- "'?"'@.2$#0'~'#0$#21845'"$"'@.2$#65535'\r
- ~'#0$#21845'"'~'#0$#21845'"$"'?"'@.1$#0'\r
- ~'#0$#21845'"$"'@.1$#65535'~'#0$#21845'"'\r
- ~'#0$#21845'"\r
- DO .1 <- :2~#1\r
- DO :2 <- "'^":1~'#21845$#0'"$":2~'#0$#21844'"'\r
- ~'#0$#21845'"$"'^":1~'#0$#21845'"$":2\r
- ~'#21845$#0'"'~'#0$#21845'"\r
- PLEASE RETRIEVE :1 + .2\r
- PLEASE RESUME #1\r
- (1900) DO STASH .2 + .5\r
- DO .1 <- #0\r
- DO .2 <- #1\r
- PLEASE DO (1901) NEXT\r
- (1901) PLEASE FORGET #1\r
- DO %50 .1 <- 'V.1$.2'~'#0$#21845'\r
- DO %50 .1 <- '^.1$".2~#43690"'~'#0$#21845'\r
- DO .2 <- !2$#0'~'#5461$#1'\r
- PLEASE DO .5 <- '^".2~.2"$#1'~#1\r
- DO (1902) NEXT\r
- DO (1901) NEXT\r
- (1902) DO (1001) NEXT\r
- DO RETRIEVE .2 + .5\r
- PLEASE RESUME #2\r
- (1910) PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3\r
- DO .3 <- #65524\r
- DO :1 <- #6\r
- DO (1911) NEXT\r
- PLEASE NOTE THAT YOU CAN'T GET ANYWHERE FROM HERE\r
- (1912) DO (1001) NEXT\r
- (1911) DO FORGET #1\r
- PLEASE DO (1900) NEXT\r
- DO :2 <- .1\r
- DO (1500) NEXT\r
- PLEASE DO :1 <- :3\r
- DO .1 <- .3\r
- DO (1020) NEXT\r
- PLEASE DO .3 <- .1\r
- DO .5 <- '?"!3~.3'~#3"$#2'~#1\r
- DO (1912) NEXT\r
- DO .1 <- #12\r
- PLEASE DO (1050) NEXT\r
- DO RETRIEVE .1\r
- DO (1530) NEXT\r
- DO :2 <- #32768\r
- DO (1500) NEXT\r
- PLEASE DO .2 <- :3~'#21760$#21760'\r
- PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3\r
- DO RESUME #1\r
+ PLEASE KNOCK TWICE TWO TIMES BEFORE ENTERING
+
+ (1000) PLEASE IGNORE .4
+ PLEASE ABSTAIN FROM (1005)
+ (1009) DO STASH .1 + .2 + .5 + .6
+ DO .4 <- #1
+ DO (1004) NEXT
+ (1004) PLEASE FORGET #1
+ DO .3 <- '^.1$.2'~'#0$#21845'
+ DO .6 <- '?"'V"'&.1$.2'~'#0$#21845'"$"'^"'@.1$
+ .2'~'#0$#21845'"$#21845'~'#0$#43690'"'
+ ~'#0$#21845'"$#43690'~'#0$#21845'
+ PLEASE DO .5 <- '?".6~#49152"$#4'~#4
+ DO (1002) NEXT
+ DO .4 <- #2
+ (1005) DO (1006) NEXT
+ (1999) DOUBLE OR SINGLE PRECISION OVERFLOW
+ (1002) DO (1001) NEXT
+ (1006) PLEASE FORGET #1
+ DO .5 <- '?"!6~.6'~#3"$#4'~#4
+ DO (1003) NEXT
+ DO .1 <- .3
+ DO .2 <- !6$#0'~'#5461$#1'
+ DO (1004) NEXT
+ (1003) DO (1001) NEXT
+ DO REINSTATE (1005)
+ (1007) PLEASE RETRIEVE .1 + .2 + .5 + .6
+ DO REMEMBER .4
+ PLEASE RESUME #2
+ (1001) DO RESUME .5
+ (1010) DO STASH .1 + .2 + .4
+ DO .4 <- .1
+ DO .1 <- '?#65535$.2'~'#0$#21845'
+ DO (1020) NEXT
+ PLEASE DO .2 <- .4
+ PLEASE DO (1009) NEXT
+ DO RETRIEVE .1 + .2 + .4
+ PLEASE RESUME #1
+ (1020) DO STASH .2 + .3
+ DO .2 <- #1
+ PLEASE DO (1021) NEXT
+ (1021) DO FORGET #1
+ DO .3 <- '?"'V".1~.2"$#2'~#1"$#1'~#1
+ PLEASE DO .1 <- '^.1$.2'~'#0$#21845'
+ DO (1022) NEXT
+ DO .2 <- !2$#0'~'#5461$#1'
+ DO (1021) NEXT
+ (1023) PLEASE RESUME .3
+ (1022) DO (1023) NEXT
+ PLEASE RETRIEVE .2 + .3
+ PLEASE RESUME #2
+ (1030) DO ABSTAIN FROM (1033)
+ PLEASE ABSTAIN FROM (1032)
+ (1039) DO STASH :1 + .5
+ DO (1530) NEXT
+ DO .3 <- :1~#21845
+ PLEASE DO .5 <- :1~'#21760$#21760'
+ DO .5 <- '?"!5~.5'~#3"$#4'~#4
+ DO (1031) NEXT
+ (1032) DO (1033) NEXT
+ DO (1999) NEXT
+ (1031) DO (1001) NEXT
+ (1033) DO .4 <- .5
+ DO REINSTATE (1032)
+ PLEASE REINSTATE (1033)
+ DO RETRIEVE :1 + .5
+ PLEASE RESUME #2
+ (1040) PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3
+ DO .2 <- #0
+ DO (1520) NEXT
+ DO STASH :1
+ PLEASE RETRIEVE .2
+ DO .1 <- .2
+ DO .2 <- #0
+ PLEASE DO (1520) NEXT
+ DO :2 <- :1
+ DO RETRIEVE .1 + .2 + :1
+ DO (1550) NEXT
+ PLEASE DO .3 <- :3
+ DO RETRIEVE :1 + :2 + :3
+ DO RESUME #1
+ (1050) PLEASE STASH :2 + :3 + .5
+ DO :2 <- .1
+ PLEASE DO (1550) NEXT
+ DO .5 <- :3~'#21760$#21760'
+ DO .5 <- '?"!5~.5'~#3"$#4'~#4
+ DO (1051) NEXT
+ DO (1999) NEXT
+ (1051) DO (1001) NEXT
+ DO .2 <- :3
+ PLEASE RETRIEVE :2 + :3 + .5
+ DO RESUME #2
+ (1200) DO .2 <- '^.1$.1'~'#0$#21845'
+ DO .3 <- '?"'@.1$#0'~'#0$#21845'"$"'@.1$#65535'
+ ~'#0$#21845'"'~'#0$#21845'
+ DO .2 <- '^.2$"!3$#0'~'#5461$#1'"'~'#0$#21845'
+ DO .3 <- .3~#16384
+ PLEASE RESUME #1
+ (1210) DO .2 <- '?"'@.1$#0'~'#0$#21845'"$"'@.1$#65535'
+ ~'#0$#21845'"'~'#0$#21845'
+ DO .3 <- '^.1$.1'~'#0$#21845'
+ DO .2 <- '^.2$".3~#21844"'~'#0$#21845'
+ DO .3 <- .3~#1
+ PLEASE RESUME #1
+ (1500) PLEASE ABSTAIN FROM (1502)
+ PLEASE ABSTAIN FROM (1506)
+ (1509) PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6
+ DO .1 <- :1~#21845
+ PLEASE DO .2 <- :2~#21845
+ DO (1009) NEXT
+ DO .5 <- .3
+ PLEASE DO .6 <- .4
+ DO .1 <- :1~'#21760$#21760'
+ DO .2 <- :2~'#21760$#21760'
+ DO (1009) NEXT
+ DO .1 <- .3
+ PLEASE DO (1503) NEXT
+ DO .6 <- .4
+ DO .2 <- #1
+ DO (1009) NEXT
+ DO .1 <- .3
+ DO (1501) NEXT
+ (1504) PLEASE RESUME .6
+ (1503) DO (1504) NEXT
+ (1501) DO .2 <- .5
+ DO .5 <- '&.6$.4'
+ DO (1505) NEXT
+ (1506) DO (1502) NEXT
+ PLEASE DO (1999) NEXT
+ (1505) DO (1001) NEXT
+ (1502) DO :4 <- .5
+ DO (1520) NEXT
+ DO :3 <- :1
+ PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6
+ DO REINSTATE (1502)
+ DO REINSTATE (1506)
+ PLEASE RESUME #3
+ (1510) DO STASH :1 + :2 + :4
+ DO :1 <- "'?#65535$":2~'#21845$#0'"'~'#0$#21845'"$
+ "'?#65535$":2~'#0$#21845'"'~'#0$#21845'"
+ DO :2 <- #1
+ DO (1509) NEXT
+ PLEASE RETRIEVE :1
+ DO :2 <- :3
+ PLEASE DO (1509) NEXT
+ DO RETRIEVE :2 + :4
+ PLEASE RESUME #1
+ (1520) PLEASE STASH .3 + .4
+ DO .3 <- .1~#17476
+ DO (1525) NEXT
+ PLEASE DO .4 <- 'V.3$".2~#17476"'~'#0$#21845'
+ DO .3 <- .1~#4369
+ PLEASE DO (1525) NEXT
+ DO :1 <- .4$"'V.3$".2~#4369"'~'#0$#21845'"
+ PLEASE RETRIEVE .3 + .4
+ DO RESUME #1
+ (1525) DO .3 <- '"'"!3$#0'~'#5461$#1'"$#0'~'#5461$#1'"$
+ #0'~'#1365$#5'
+ PLEASE RESUME #1
+ (1530) DO STASH :2 + :3 + .1 + .2 + .3
+ DO :3 <- #0
+ DO :2 <- .1
+ DO (1535) NEXT
+ (1535) PLEASE FORGET #1
+ DO .3 <- '?"!2~.2'~#3"$#4'~#4
+ DO (1532) NEXT
+ DO .1 <- .2
+ DO (1210) NEXT
+ DO .3 <- 'V.3$#1'~#1
+ DO (1531) NEXT
+ DO :1 <- :3
+ DO (1500) NEXT
+ PLEASE DO (1533) NEXT
+ (1531) PLEASE DO (1534) NEXT
+ (1533) DO FORGET #1
+ DO :1 <- :2
+ DO (1700) NEXT
+ DO (1535) NEXT
+ (1534) PLEASE RESUME .3
+ (1532) DO (1534) NEXT
+ DO :1 <- :3
+ PLEASE RETRIEVE :2 + :3 + .1 + .2 + .3
+ DO RESUME #2
+ (1540) PLEASE ABSTAIN FROM (1541)
+ DO ABSTAIN FROM (1542)
+ (1549) PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5
+ DO .1 <- :1~#21845
+ PLEASE DO .2 <- :2~'#21760$#21760'
+ DO .5 <- :1~'#21760$#21760'
+ DO (1530) NEXT
+ DO :3 <- :1
+ DO .2 <- :2~#21845
+ PLEASE DO (1530) NEXT
+ DO :5 <- :1
+ DO .1 <- .5
+ DO (1530) NEXT
+ DO :4 <- :1
+ PLEASE DO :1 <- ":3~'#21760$#21760'"$":4
+ ~'#21760$#21760'"
+ DO .5 <- ':1~:1'~#3
+ DO .2 <- :2~'#21760$#21760'
+ DO (1530) NEXT
+ PLEASE DO .5 <- '"':1~:1'~#3"$.5'~#5
+ DO .1 <- :3~#21845
+ DO .2 <- #0
+ DO (1520) NEXT
+ PLEASE DO :2 <- :1
+ PLEASE DO .1 <- :4~#21845
+ DO (1520) NEXT
+ DO (1509) NEXT
+ DO .5 <- !5$"'^":4~#1"$#1'~#1"'~#69
+ DO :1 <- :3
+ DO :2 <- :5
+ DO (1509) NEXT
+ PLEASE DO .5 <- !5$"'^":4~#1"$#1'~#1"'~#1093
+ DO .5 <- '?"!5~.5'~#1"$#1'~#1
+ PLEASE RETRIEVE :4
+ (1541) DO :4 <- .5
+ DO (1543) NEXT
+ (1542) DO (1544) NEXT
+ PLEASE DO (1999) NEXT
+ (1543) DO (1001) NEXT
+ (1544) DO REINSTATE (1541)
+ PLEASE REINSTATE (1542)
+ PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5
+ DO RESUME #2
+ (1550) DO STASH :1 + :1 + :4 + :5 + :6 + .1 + .5
+ DO :3 <- #0
+ DO .5 <- '?"':2~:2'~#3"$#4'~#4
+ PLEASE DO (1551) NEXT
+ DO :4 <- #1
+ PLEASE DO (1553) NEXT
+ (1553) DO FORGET #1
+ DO .5 <- '?#0$"'V"'@":2~'#16384$#0'"$#3'~#1"$#2'
+ ~#1"'~#1
+ DO (1552) NEXT
+ DO :5 <- :2
+ DO :1 <- :4
+ PLEASE DO (1700) NEXT
+ DO :4 <- :2
+ DO :1 <- :5
+ PLEASE DO (1700) NEXT
+ DO (1553) NEXT
+ (1552) DO (1001) NEXT
+ DO RETRIEVE :1
+ (1556) PLEASE FORGET #1
+ DO :6 <- "'&":2~'#21845$#0'"$"'?#65535$":1
+ ~'#21845$#0'"'~'#0$#21845'"'~'#0$#21845'"$
+ "'&":2~'#0$#21845'"$"'?#65535$":1~'#0$
+ #21845'"'~'#0$#21845'"'~'#0$#21845'"
+ DO :6 <- "'?"'V":6~'#21845$#0'"$#21845'~'#0$
+ #21845'"$#21845'~'#0$#65535'"$"'?"'V":6
+ ~'#0$#21845'"$#21845'~'#0$#21845'"$#21845'
+ ~'#0$#65535'"
+ DO :5 <- "'?":1~'#21845$#0'"$":2~'#21845$#0'"'
+ ~'#0$#65535'"$"'?":1~'#0$#21845'"$":2~'#0$
+ #21845'"'~'#0$#65535'"
+ DO .5 <- "?'"':6~:5'~'"'"'&"':5~:5'~'#21845$#0'"$
+ #16384'~'#0$#21845'"$"'?:5~:5'~'#5461$#0'"'
+ ~'#16384$#5461'"$"'?:5~:5'~'#0$#21845'"'"
+ ~#1'$#2"~#1
+ DO (1554) NEXT
+ DO :5 <- :3
+ DO (1510) NEXT
+ PLEASE DO :1 <- :3
+ DO :3 <- "'^":4~'#21845$#0'"$":5~'#21845$#0'"'
+ ~'#0$#21845'"$"'^":4~'#0$#21845'"$":5~'#0$
+ #21845'"'~'#0$#21845'"
+ DO (1555) NEXT
+ (1554) PLEASE DO (1001) NEXT
+ (1555) DO FORGET #1
+ DO .5 <- 'V":4~#1"$"'?#2$":4~#1"'~#1"'~#1
+ DO (1551) NEXT
+ DO :5 <- :1
+ DO :1 <- :4
+ DO :4 <- :2
+ DO (1710) NEXT
+ DO :1 <- :4
+ DO :4 <- :2
+ DO (1710) NEXT
+ DO :1 <- :5
+ PLEASE DO (1556) NEXT
+ (1551) DO (1001) NEXT
+ PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5
+ PLEASE RESUME #2
+ (1700) PLEASE STASH .2
+ DO .1 <- :1~'#0$#21845'
+ DO .2 <- :1~'#21845$#0'
+ DO :2 <- "'^.2$.2'~'#0$#21845'"$"'^.1$.1'~'#0$
+ #21845'"
+ DO .1 <- '?"'@.1$#0'~'#0$#21845'"$"'@.1$#65535'
+ ~'#0$#21845'"'~'#0$#21845'
+ DO .2 <- '?"'@.2$#0'~'#0$#21845'"$"'@.2$#65535'
+ ~'#0$#21845'"'~'#0$#21845'
+ DO :2 <- "'^":2~'#21845$#0'"$.1'~'#0$#21845'"$
+ "'^":2~'#0$#21845'"$"'.2$#0'~'#5461$#1'"'
+ ~'#0$#21845'"
+ DO .1 <- .2~#16384
+ PLEASE RETRIEVE .2
+ PLEASE RESUME #1
+ (1710) PLEASE STASH :1 + .2
+ DO .1 <- :1~'#0$#21845'
+ DO .2 <- :1~'#21845$#0'
+ DO :2 <- "'^.2$.2'~'#0$#21845'"$"'^.1$.1'~'#0$
+ #21845'"
+ DO :1 <- "'?"'@.2$#0'~'#0$#21845'"$"'@.2$#65535'
+ ~'#0$#21845'"'~'#0$#21845'"$"'?"'@.1$#0'
+ ~'#0$#21845'"$"'@.1$#65535'~'#0$#21845'"'
+ ~'#0$#21845'"
+ DO .1 <- :2~#1
+ DO :2 <- "'^":1~'#21845$#0'"$":2~'#0$#21844'"'
+ ~'#0$#21845'"$"'^":1~'#0$#21845'"$":2
+ ~'#21845$#0'"'~'#0$#21845'"
+ PLEASE RETRIEVE :1 + .2
+ PLEASE RESUME #1
+ (1900) DO STASH .2 + .5
+ DO .1 <- #0
+ DO .2 <- #1
+ PLEASE DO (1901) NEXT
+ (1901) PLEASE FORGET #1
+ DO %50 .1 <- 'V.1$.2'~'#0$#21845'
+ DO %50 .1 <- '^.1$".2~#43690"'~'#0$#21845'
+ DO .2 <- !2$#0'~'#5461$#1'
+ PLEASE DO .5 <- '^".2~.2"$#1'~#1
+ DO (1902) NEXT
+ DO (1901) NEXT
+ (1902) DO (1001) NEXT
+ DO RETRIEVE .2 + .5
+ PLEASE RESUME #2
+ (1910) PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3
+ DO .3 <- #65524
+ DO :1 <- #6
+ DO (1911) NEXT
+ PLEASE NOTE THAT YOU CAN'T GET ANYWHERE FROM HERE
+ (1912) DO (1001) NEXT
+ (1911) DO FORGET #1
+ PLEASE DO (1900) NEXT
+ DO :2 <- .1
+ DO (1500) NEXT
+ PLEASE DO :1 <- :3
+ DO .1 <- .3
+ DO (1020) NEXT
+ PLEASE DO .3 <- .1
+ DO .5 <- '?"!3~.3'~#3"$#2'~#1
+ DO (1912) NEXT
+ DO .1 <- #12
+ PLEASE DO (1050) NEXT
+ DO RETRIEVE .1
+ DO (1530) NEXT
+ DO :2 <- #32768
+ DO (1500) NEXT
+ PLEASE DO .2 <- :3~'#21760$#21760'
+ PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
+ DO RESUME #1
- PLEASE KNOCK "SHAVE-AND-A-HAIRCUT" BEFORE ENTERING\r
-\r
- (1000) PLEASE IGNORE .4\r
- PLEASE ABSTAIN FROM (1005)\r
- (1009) DO STASH .1 + .2 + .5 + .6\r
- DO .4 <- #1\r
- DO (1004) NEXT\r
- (1004) PLEASE FORGET #1\r
- DO .3 <- '^.1$.2'~'#0$#3906'\r
- DO .6 <- '?"'V"'&.1$.2'~'#0$#3906'"$"'^"'@.1$\r
- .2'~'#0$#3906'"$#3906'~'#0$#11718'"'\r
- ~'#0$#3906'"$#11718'~'#0$#3906'\r
- PLEASE DO .5 <- "?!6~#12500'$#5"~#5\r
- DO (1002) NEXT\r
- DO .4 <- #2\r
- (1005) DO (1006) NEXT\r
- (1999) DOUBLE OR SINGLE PRECISION OVERFLOW\r
- (1002) DO (1001) NEXT\r
- (1006) PLEASE FORGET #1\r
- DO .5 <- '?"!6~.6'~#4"$#5'~#5\r
- DO (1003) NEXT\r
- DO .1 <- .3\r
- DO .2 <- !6$#0'~'#781$#1'\r
- DO (1004) NEXT\r
- (1003) DO (1001) NEXT\r
- DO REINSTATE (1005)\r
- (1007) PLEASE RETRIEVE .1 + .2 + .5 + .6\r
- DO REMEMBER .4\r
- PLEASE RESUME #2\r
- (1001) DO RESUME .5\r
- (1010) DO STASH .1 + .2 + .4\r
- DO .4 <- .1\r
- DO .1 <- '?#15624$.2'~'#0$#3906'\r
- DO (1020) NEXT\r
- PLEASE DO .2 <- .4\r
- PLEASE DO (1009) NEXT\r
- DO RETRIEVE .1 + .2 + .4\r
- PLEASE RESUME #1\r
- (1020) DO STASH .2 + .3\r
- DO .2 <- #1\r
- PLEASE DO (1021) NEXT\r
- (1021) DO FORGET #1\r
- DO .3 <- '?"'V".1~.2"$#3'~#1"$#2'~#1\r
- PLEASE DO .1 <- '^.1$.2'~'#0$#3906'\r
- DO (1022) NEXT\r
- DO .2 <- !2$#0'~'#781$#1'\r
- DO (1021) NEXT\r
- (1023) PLEASE RESUME .3\r
- (1022) DO (1023) NEXT\r
- PLEASE RETRIEVE .2 + .3\r
- PLEASE RESUME #2\r
- (1030) DO ABSTAIN FROM (1033)\r
- PLEASE ABSTAIN FROM (1032)\r
- (1039) DO STASH :1 + .5\r
- DO (1530) NEXT\r
- DO .3 <- :1~#3906\r
- PLEASE DO .5 <- :1~'#3875$#3875'\r
- DO .5 <- '?"!5~.5'~#4"$#5'~#5\r
- DO (1031) NEXT\r
- (1032) DO (1033) NEXT\r
- DO (1999) NEXT\r
- (1031) DO (1001) NEXT\r
- (1033) DO .4 <- .5\r
- DO REINSTATE (1032)\r
- PLEASE REINSTATE (1033)\r
- DO RETRIEVE :1 + .5\r
- PLEASE RESUME #2\r
- (1040) PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3\r
- DO .2 <- #0\r
- DO (1520) NEXT\r
- DO STASH :1\r
- PLEASE RETRIEVE .2\r
- DO .1 <- .2\r
- DO .2 <- #0\r
- PLEASE DO (1520) NEXT\r
- DO :2 <- :1\r
- DO RETRIEVE .1 + .2 + :1\r
- DO (1550) NEXT\r
- PLEASE DO .3 <- :3\r
- DO RETRIEVE :1 + :2 + :3\r
- DO RESUME #1\r
- (1050) PLEASE STASH :2 + :3 + .5\r
- DO :2 <- .1\r
- PLEASE DO (1550) NEXT\r
- DO .5 <- :3~'#3875$#3875'\r
- DO .5 <- '?"!5~.5'~#4"$#5'~#5\r
- DO (1051) NEXT\r
- DO (1999) NEXT\r
- (1051) DO (1001) NEXT\r
- DO .2 <- :3\r
- PLEASE RETRIEVE :2 + :3 + .5\r
- DO RESUME #2\r
- (1500) PLEASE ABSTAIN FROM (1502)\r
- PLEASE ABSTAIN FROM (1506)\r
- (1509) PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6\r
- DO .1 <- :1~#3906\r
- PLEASE DO .2 <- :2~#3906\r
- DO (1009) NEXT\r
- DO .5 <- .3\r
- PLEASE DO .6 <- .4\r
- DO .1 <- :1~'#3875$#3875'\r
- DO .2 <- :2~'#3875$#3875'\r
- DO (1009) NEXT\r
- DO .1 <- .3\r
- PLEASE DO (1503) NEXT\r
- DO .6 <- .4\r
- DO .2 <- #1\r
- DO (1009) NEXT\r
- DO .1 <- .3\r
- DO (1501) NEXT\r
- (1504) PLEASE RESUME .6\r
- (1503) DO (1504) NEXT\r
- (1501) DO .2 <- .5\r
- DO .5 <- '&.6$.4'\r
- DO (1505) NEXT\r
- (1506) DO (1502) NEXT\r
- PLEASE DO (1999) NEXT\r
- (1505) DO (1001) NEXT\r
- (1502) DO :4 <- .5\r
- DO (1520) NEXT\r
- DO :3 <- :1\r
- PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6\r
- DO REINSTATE (1502)\r
- DO REINSTATE (1506)\r
- PLEASE RESUME #3\r
- (1510) DO STASH :1 + :2 + :4\r
- DO :1 <- "'?#15624$":2~'#3906$#0'"'~'#0$#3906'"$\r
- "'?#15624$":2~'#0$#3906'"'~'#0$#3906'"\r
- DO :2 <- #1\r
- DO (1509) NEXT\r
- PLEASE RETRIEVE :1\r
- DO :2 <- :3\r
- PLEASE DO (1509) NEXT\r
- DO RETRIEVE :2 + :4\r
- PLEASE RESUME #1\r
- (1520) PLEASE STASH .3 + .4\r
- DO .3 <- .1~#3255\r
- DO (1525) NEXT\r
- PLEASE DO .4 <- 'V.3$".2~#3255"'~'#0$#3906'\r
- DO .3 <- .1~#651\r
- PLEASE DO (1525) NEXT\r
- DO :1 <- .4$"'V.3$".2~#651"'~'#0$#3906'"\r
- PLEASE RETRIEVE .3 + .4\r
- DO RESUME #1\r
- (1525) DO .3 <- '"!3$#0'~'#781$#1'"$#0'~'#156$#6'\r
- PLEASE RESUME #1\r
- (1530) DO STASH :2 + :3 + :4 + .1 + .2 + .5\r
- DO :3 <- #0\r
- DO :4 <- .2\r
- DO (1535) NEXT\r
- (1535) PLEASE FORGET #1\r
- DO .5 <- '?".1~#4"$#5'~#5\r
- DO (1531) NEXT\r
- DO :1 <- :4\r
- DO (1720) NEXT\r
- DO :1 <- :3\r
- DO (1500) NEXT\r
- PLEASE DO (1533) NEXT\r
- (1531) PLEASE DO (1001) NEXT\r
- (1533) DO FORGET #1\r
- DO .1 <- .1~#3905\r
- DO :4 <- ":4~'#0$#3906'"$"'":4~'#781$#0'"$#0'\r
- ~'#781$#1'"\r
- PLEASE DO .5 <- '?"!1~.1'~#4"$#5'~#5\r
- DO (1532) NEXT\r
- DO (1535) NEXT\r
- (1532) DO (1001) NEXT\r
- DO :1 <- :3\r
- PLEASE RETRIEVE :2 + :3 + :4 + .1 + .2 + .5\r
- DO RESUME #2\r
- (1540) PLEASE ABSTAIN FROM (1541)\r
- DO ABSTAIN FROM (1542)\r
- (1549) PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5\r
- DO .1 <- :1~#3906\r
- PLEASE DO .2 <- :2~'#3875$#3875'\r
- DO .5 <- :1~'#3875$#3875'\r
- DO (1530) NEXT\r
- DO :3 <- :1\r
- DO .2 <- :2~#3906\r
- PLEASE DO (1530) NEXT\r
- DO :5 <- :1\r
- DO .1 <- .5\r
- DO (1530) NEXT\r
- DO :4 <- :1\r
- PLEASE DO :1 <- ":3~'#3875$#3875'"$":4\r
- ~'#3875$#3875'"\r
- DO .5 <- ':1~:1'~#4\r
- DO .2 <- :2~'#3875$#3875'\r
- DO (1530) NEXT\r
- PLEASE DO .5 <- '"':1~:1'~#4"$.5'~#6\r
- DO .1 <- :3~#3906\r
- DO .2 <- #0\r
- DO (1520) NEXT\r
- PLEASE DO :2 <- :1\r
- PLEASE DO .1 <- :4~#3906\r
- DO (1520) NEXT\r
- DO (1509) NEXT\r
- DO .5 <- !5$"'^":4~#1"$#2'~#1"'~#131\r
- DO :1 <- :3\r
- DO :2 <- :5\r
- DO (1509) NEXT\r
- PLEASE DO .5 <- !5$"'^":4~#1"$#2'~#1"'~#3256\r
- DO .5 <- '?"!5~.5'~#1"$#2'~#1\r
- PLEASE RETRIEVE :4\r
- (1541) DO :4 <- .5\r
- DO (1543) NEXT\r
- (1542) DO (1544) NEXT\r
- PLEASE DO (1999) NEXT\r
- (1543) DO (1001) NEXT\r
- (1544) DO REINSTATE (1541)\r
- PLEASE REINSTATE (1542)\r
- PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5\r
- DO RESUME #2\r
- (1550) DO STASH :1 + :4 + :5 + :6 + .1 + .5\r
- DO :5 <- #0\r
- DO .5 <- '?"':2~:2'~#4"$#5'~#5\r
- PLEASE DO (1551) NEXT\r
- DO :4 <- #1\r
- PLEASE DO (1553) NEXT\r
- (1553) DO FORGET #1\r
- DO .5 <- '?"':2~"#12500$#0"'"$#3'~#1\r
- DO (1552) NEXT\r
- DO :2 <- ":2~'#0$#3906'"$"'":2~'#781$#0'"$#0'\r
- ~'#781$#1'"\r
- PLEASE DO :4 <- ":4~'#0$#3906'"$"'":4~'#781\r
- $#0'"$#0'~'#781$#1'"\r
- DO (1553) NEXT\r
- (1552) DO (1001) NEXT\r
- DO .1 <- #0\r
- (1556) PLEASE FORGET #1\r
- DO :6 <- "'&":2~'#3906$#0'"$"'?#15624$":1\r
- ~'#3906$#0'"'~'#0$#3906'"'~'#0$#3906'"$\r
- "'&":2~'#0$#3906'"$"'?#15624$":1~'#0$\r
- #3906'"'~'#0$#3906'"'~'#0$#3906'"\r
- DO :6 <- "'?"'V":6~'#3906$#0'"$#7812'~'#0$\r
- #3906'"$#7812'~'#0$#15624'"$"'?"'V":6\r
- ~'#0$#3906'"$#7812'~'#0$#3906'"$#7812'\r
- ~'#0$#15624'"\r
- DO :3 <- "'?":1~'#3906$#0'"$":2~'#3906$#0'"'\r
- ~'#0$#15624'"$"'?":1~'#0$#3906'"$":2~'#0$\r
- #3906'"'~'#0$#15624'"\r
- DO .5 <- "?'"':6~:3'~'"'"'&"':3~:3'~'#3906$#0'"$\r
- #3125'~'#0$#3906'"$"'?:3~:3'~'#781$#0'"'\r
- ~'#3125$#781'"$"'?:3~:3'~'#0$#3906'"'"~#1'$\r
- #3"~#1\r
- PLEASE DO (1557) NEXT\r
- DO (1510) NEXT\r
- PLEASE DO :1 <- :3\r
- DO .5 <- '?#0$"'V.1$#3'~#1"'~#1\r
- DO (1557) NEXT\r
- DO .1 <- '^.1$#3906'~'#0$#3906'\r
- DO (1556) NEXT\r
- (1557) PLEASE DO (1001) NEXT\r
- PLEASE FORGET #1\r
- DO :5 <- "'V":4~'.1$#0'"$":5~'#3906$#0'"'\r
- ~'#0$#3906'"$"'V":4~'#0$.1'"$":5~'#0$\r
- #3906'"'~'#0$#3906'"\r
- DO .5 <- "?#2$':4~#1'"~#1\r
- DO (1551) NEXT\r
- DO :2 <- :2~'#3906$#3905'\r
- DO :4 <- :4~'#3906$#3905'\r
- DO .1 <- #0\r
- PLEASE DO (1556) NEXT\r
- (1551) DO (1001) NEXT\r
- DO :3 <- :5\r
- PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5\r
- PLEASE RESUME #2\r
- (1720) PLEASE STASH :1 + :3 + :4 + .1 + .5\r
- DO :2 <- #0\r
- DO .2 <- #0\r
- DO .5 <- '?".1~#4"$#5'~#5\r
- DO (1729) NEXT\r
- DO .5 <- .1~#1\r
- DO .2 <- :1~'#3906$#0'\r
- DO .1 <- :1~'#0$#3906'\r
- PLEASE DO (1724) NEXT\r
- DO :1 <- '"?#0$.2"~"#0$#3906"'$'"?#0$.1"~"#0$\r
- #3906"'\r
- DO :2 <- '"?'"V.2$#3906"~"#0$#3906"'$\r
- #3906"~"#0$#3906"'$'"?'"V.1$#3906"\r
- ~"#0$#3906"'$#3906"~"#0$#3906"'\r
- DO (1728) NEXT\r
- (1724) PLEASE DO (1723) NEXT\r
- DO :1 <- '"?#0$'"^.2$.2"~"#0$#3906"'"~"#0$#3906"'$\r
- '"?#0$'"^.1$.1"~"#0$#3906"'"~"#0$#3906"'\r
- DO :2 <- '"?'"V'"@.2$#11718"~"#0$#3906"'$#7812"\r
- ~"#0$#3906"'$#7812"~"#0$#3906"'$'"?'"V'"@.1$\r
- #11718"~"#0$#3906"'$#7812"~"#0$#3906"'$#7812"\r
- ~"#0$#3906"'\r
- (1728) DO .2 <- :2~'#3125$#0'\r
- DO :2 <- ':2~"#0$#3906"'$'"':2~"#781$#0"'$#0"\r
- ~"#781$#1"'\r
- DO (1509) NEXT\r
- DO :2 <- :3\r
- DO .2 <- '^.2$"'?":4~#1"$#1'~#1"'~#1\r
- DO (1721) NEXT\r
- (1723) PLEASE DO (1722) NEXT\r
- DO :1 <- '"^.2$.2"~"#0$#3906"'$'"^.1$.1"~"#0$\r
- #3906"'\r
- DO :2 <- '"?'"V'"2@.2$#15624"~"#0$#3906"'$\r
- #11718"~"#0$#3906"'$#11718"~"#0$#3906"'$\r
- '"?'"V'"2@.1$#15624"~"#0$#3906"'$#11718"\r
- ~"#0$#3906"'$#11718"~"#0$#3906"'\r
- PLEASE FORGET #2\r
- DO (1728) NEXT\r
- (1729) DO (1001) NEXT\r
- DO (1721) NEXT\r
- (1722) PLEASE DO (1001) NEXT\r
- DO :2 <- :1\r
- DO .2 <- #0\r
- DO FORGET #1\r
- (1721) PLEASE RETRIEVE :1 + :3 + :4 + .1 + .5\r
- PLEASE RESUME #3\r
- (1900) DO STASH .2 + .5\r
- DO .1 <- #0\r
- DO .2 <- #1\r
- PLEASE DO (1901) NEXT\r
- (1901) DO %20 (1903) NEXT\r
- DO .1 <- 'V.1$.2'~'#0$#3906'\r
- DO %50 .1 <- '^.1$".2~#7812"'~'#0$#3906'\r
- DO %50 .1 <- '^.1$.2'~'#0$#3906'\r
- PLEASE DO (1903) NEXT\r
- (1903) PLEASE FORGET #2\r
- DO .2 <- !2$#0'~'#781$#1'\r
- PLEASE DO .5 <- '^".2~.2"$#1'~#1\r
- DO (1902) NEXT\r
- DO (1901) NEXT\r
- (1902) DO (1001) NEXT\r
- DO RETRIEVE .2 + .5\r
- PLEASE RESUME #2\r
- (1910) PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3\r
- DO .3 <- #15613\r
- DO :1 <- #6\r
- DO (1911) NEXT\r
- PLEASE NOTE THAT YOU CAN'T GET SOMETHING FROM NOTHING\r
- (1912) DO (1001) NEXT\r
- (1911) DO FORGET #1\r
- PLEASE DO (1900) NEXT\r
- DO :2 <- .1\r
- DO (1500) NEXT\r
- PLEASE DO :1 <- :3\r
- DO .1 <- .3\r
- DO (1020) NEXT\r
- PLEASE DO .3 <- .1\r
- DO .5 <- '?"!3~.3'~#4"$#3'~#1\r
- DO (1912) NEXT\r
- DO .1 <- #12\r
- PLEASE DO (1050) NEXT\r
- DO RETRIEVE .1\r
- DO (1530) NEXT\r
- DO :2 <- #7812\r
- DO (1500) NEXT\r
- PLEASE DO .2 <- :3~'#3875$#3875'\r
- PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3\r
- DO RESUME #1\r
+ PLEASE KNOCK "SHAVE-AND-A-HAIRCUT" BEFORE ENTERING
+
+ (1000) PLEASE IGNORE .4
+ PLEASE ABSTAIN FROM (1005)
+ (1009) DO STASH .1 + .2 + .5 + .6
+ DO .4 <- #1
+ DO (1004) NEXT
+ (1004) PLEASE FORGET #1
+ DO .3 <- '^.1$.2'~'#0$#3906'
+ DO .6 <- '?"'V"'&.1$.2'~'#0$#3906'"$"'^"'@.1$
+ .2'~'#0$#3906'"$#3906'~'#0$#11718'"'
+ ~'#0$#3906'"$#11718'~'#0$#3906'
+ PLEASE DO .5 <- "?!6~#12500'$#5"~#5
+ DO (1002) NEXT
+ DO .4 <- #2
+ (1005) DO (1006) NEXT
+ (1999) DOUBLE OR SINGLE PRECISION OVERFLOW
+ (1002) DO (1001) NEXT
+ (1006) PLEASE FORGET #1
+ DO .5 <- '?"!6~.6'~#4"$#5'~#5
+ DO (1003) NEXT
+ DO .1 <- .3
+ DO .2 <- !6$#0'~'#781$#1'
+ DO (1004) NEXT
+ (1003) DO (1001) NEXT
+ DO REINSTATE (1005)
+ (1007) PLEASE RETRIEVE .1 + .2 + .5 + .6
+ DO REMEMBER .4
+ PLEASE RESUME #2
+ (1001) DO RESUME .5
+ (1010) DO STASH .1 + .2 + .4
+ DO .4 <- .1
+ DO .1 <- '?#15624$.2'~'#0$#3906'
+ DO (1020) NEXT
+ PLEASE DO .2 <- .4
+ PLEASE DO (1009) NEXT
+ DO RETRIEVE .1 + .2 + .4
+ PLEASE RESUME #1
+ (1020) DO STASH .2 + .3
+ DO .2 <- #1
+ PLEASE DO (1021) NEXT
+ (1021) DO FORGET #1
+ DO .3 <- '?"'V".1~.2"$#3'~#1"$#2'~#1
+ PLEASE DO .1 <- '^.1$.2'~'#0$#3906'
+ DO (1022) NEXT
+ DO .2 <- !2$#0'~'#781$#1'
+ DO (1021) NEXT
+ (1023) PLEASE RESUME .3
+ (1022) DO (1023) NEXT
+ PLEASE RETRIEVE .2 + .3
+ PLEASE RESUME #2
+ (1030) DO ABSTAIN FROM (1033)
+ PLEASE ABSTAIN FROM (1032)
+ (1039) DO STASH :1 + .5
+ DO (1530) NEXT
+ DO .3 <- :1~#3906
+ PLEASE DO .5 <- :1~'#3875$#3875'
+ DO .5 <- '?"!5~.5'~#4"$#5'~#5
+ DO (1031) NEXT
+ (1032) DO (1033) NEXT
+ DO (1999) NEXT
+ (1031) DO (1001) NEXT
+ (1033) DO .4 <- .5
+ DO REINSTATE (1032)
+ PLEASE REINSTATE (1033)
+ DO RETRIEVE :1 + .5
+ PLEASE RESUME #2
+ (1040) PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3
+ DO .2 <- #0
+ DO (1520) NEXT
+ DO STASH :1
+ PLEASE RETRIEVE .2
+ DO .1 <- .2
+ DO .2 <- #0
+ PLEASE DO (1520) NEXT
+ DO :2 <- :1
+ DO RETRIEVE .1 + .2 + :1
+ DO (1550) NEXT
+ PLEASE DO .3 <- :3
+ DO RETRIEVE :1 + :2 + :3
+ DO RESUME #1
+ (1050) PLEASE STASH :2 + :3 + .5
+ DO :2 <- .1
+ PLEASE DO (1550) NEXT
+ DO .5 <- :3~'#3875$#3875'
+ DO .5 <- '?"!5~.5'~#4"$#5'~#5
+ DO (1051) NEXT
+ DO (1999) NEXT
+ (1051) DO (1001) NEXT
+ DO .2 <- :3
+ PLEASE RETRIEVE :2 + :3 + .5
+ DO RESUME #2
+ (1500) PLEASE ABSTAIN FROM (1502)
+ PLEASE ABSTAIN FROM (1506)
+ (1509) PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6
+ DO .1 <- :1~#3906
+ PLEASE DO .2 <- :2~#3906
+ DO (1009) NEXT
+ DO .5 <- .3
+ PLEASE DO .6 <- .4
+ DO .1 <- :1~'#3875$#3875'
+ DO .2 <- :2~'#3875$#3875'
+ DO (1009) NEXT
+ DO .1 <- .3
+ PLEASE DO (1503) NEXT
+ DO .6 <- .4
+ DO .2 <- #1
+ DO (1009) NEXT
+ DO .1 <- .3
+ DO (1501) NEXT
+ (1504) PLEASE RESUME .6
+ (1503) DO (1504) NEXT
+ (1501) DO .2 <- .5
+ DO .5 <- '&.6$.4'
+ DO (1505) NEXT
+ (1506) DO (1502) NEXT
+ PLEASE DO (1999) NEXT
+ (1505) DO (1001) NEXT
+ (1502) DO :4 <- .5
+ DO (1520) NEXT
+ DO :3 <- :1
+ PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6
+ DO REINSTATE (1502)
+ DO REINSTATE (1506)
+ PLEASE RESUME #3
+ (1510) DO STASH :1 + :2 + :4
+ DO :1 <- "'?#15624$":2~'#3906$#0'"'~'#0$#3906'"$
+ "'?#15624$":2~'#0$#3906'"'~'#0$#3906'"
+ DO :2 <- #1
+ DO (1509) NEXT
+ PLEASE RETRIEVE :1
+ DO :2 <- :3
+ PLEASE DO (1509) NEXT
+ DO RETRIEVE :2 + :4
+ PLEASE RESUME #1
+ (1520) PLEASE STASH .3 + .4
+ DO .3 <- .1~#3255
+ DO (1525) NEXT
+ PLEASE DO .4 <- 'V.3$".2~#3255"'~'#0$#3906'
+ DO .3 <- .1~#651
+ PLEASE DO (1525) NEXT
+ DO :1 <- .4$"'V.3$".2~#651"'~'#0$#3906'"
+ PLEASE RETRIEVE .3 + .4
+ DO RESUME #1
+ (1525) DO .3 <- '"!3$#0'~'#781$#1'"$#0'~'#156$#6'
+ PLEASE RESUME #1
+ (1530) DO STASH :2 + :3 + :4 + .1 + .2 + .5
+ DO :3 <- #0
+ DO :4 <- .2
+ DO (1535) NEXT
+ (1535) PLEASE FORGET #1
+ DO .5 <- '?".1~#4"$#5'~#5
+ DO (1531) NEXT
+ DO :1 <- :4
+ DO (1720) NEXT
+ DO :1 <- :3
+ DO (1500) NEXT
+ PLEASE DO (1533) NEXT
+ (1531) PLEASE DO (1001) NEXT
+ (1533) DO FORGET #1
+ DO .1 <- .1~#3905
+ DO :4 <- ":4~'#0$#3906'"$"'":4~'#781$#0'"$#0'
+ ~'#781$#1'"
+ PLEASE DO .5 <- '?"!1~.1'~#4"$#5'~#5
+ DO (1532) NEXT
+ DO (1535) NEXT
+ (1532) DO (1001) NEXT
+ DO :1 <- :3
+ PLEASE RETRIEVE :2 + :3 + :4 + .1 + .2 + .5
+ DO RESUME #2
+ (1540) PLEASE ABSTAIN FROM (1541)
+ DO ABSTAIN FROM (1542)
+ (1549) PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5
+ DO .1 <- :1~#3906
+ PLEASE DO .2 <- :2~'#3875$#3875'
+ DO .5 <- :1~'#3875$#3875'
+ DO (1530) NEXT
+ DO :3 <- :1
+ DO .2 <- :2~#3906
+ PLEASE DO (1530) NEXT
+ DO :5 <- :1
+ DO .1 <- .5
+ DO (1530) NEXT
+ DO :4 <- :1
+ PLEASE DO :1 <- ":3~'#3875$#3875'"$":4
+ ~'#3875$#3875'"
+ DO .5 <- ':1~:1'~#4
+ DO .2 <- :2~'#3875$#3875'
+ DO (1530) NEXT
+ PLEASE DO .5 <- '"':1~:1'~#4"$.5'~#6
+ DO .1 <- :3~#3906
+ DO .2 <- #0
+ DO (1520) NEXT
+ PLEASE DO :2 <- :1
+ PLEASE DO .1 <- :4~#3906
+ DO (1520) NEXT
+ DO (1509) NEXT
+ DO .5 <- !5$"'^":4~#1"$#2'~#1"'~#131
+ DO :1 <- :3
+ DO :2 <- :5
+ DO (1509) NEXT
+ PLEASE DO .5 <- !5$"'^":4~#1"$#2'~#1"'~#3256
+ DO .5 <- '?"!5~.5'~#1"$#2'~#1
+ PLEASE RETRIEVE :4
+ (1541) DO :4 <- .5
+ DO (1543) NEXT
+ (1542) DO (1544) NEXT
+ PLEASE DO (1999) NEXT
+ (1543) DO (1001) NEXT
+ (1544) DO REINSTATE (1541)
+ PLEASE REINSTATE (1542)
+ PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5
+ DO RESUME #2
+ (1550) DO STASH :1 + :4 + :5 + :6 + .1 + .5
+ DO :5 <- #0
+ DO .5 <- '?"':2~:2'~#4"$#5'~#5
+ PLEASE DO (1551) NEXT
+ DO :4 <- #1
+ PLEASE DO (1553) NEXT
+ (1553) DO FORGET #1
+ DO .5 <- '?"':2~"#12500$#0"'"$#3'~#1
+ DO (1552) NEXT
+ DO :2 <- ":2~'#0$#3906'"$"'":2~'#781$#0'"$#0'
+ ~'#781$#1'"
+ PLEASE DO :4 <- ":4~'#0$#3906'"$"'":4~'#781
+ $#0'"$#0'~'#781$#1'"
+ DO (1553) NEXT
+ (1552) DO (1001) NEXT
+ DO .1 <- #0
+ (1556) PLEASE FORGET #1
+ DO :6 <- "'&":2~'#3906$#0'"$"'?#15624$":1
+ ~'#3906$#0'"'~'#0$#3906'"'~'#0$#3906'"$
+ "'&":2~'#0$#3906'"$"'?#15624$":1~'#0$
+ #3906'"'~'#0$#3906'"'~'#0$#3906'"
+ DO :6 <- "'?"'V":6~'#3906$#0'"$#7812'~'#0$
+ #3906'"$#7812'~'#0$#15624'"$"'?"'V":6
+ ~'#0$#3906'"$#7812'~'#0$#3906'"$#7812'
+ ~'#0$#15624'"
+ DO :3 <- "'?":1~'#3906$#0'"$":2~'#3906$#0'"'
+ ~'#0$#15624'"$"'?":1~'#0$#3906'"$":2~'#0$
+ #3906'"'~'#0$#15624'"
+ DO .5 <- "?'"':6~:3'~'"'"'&"':3~:3'~'#3906$#0'"$
+ #3125'~'#0$#3906'"$"'?:3~:3'~'#781$#0'"'
+ ~'#3125$#781'"$"'?:3~:3'~'#0$#3906'"'"~#1'$
+ #3"~#1
+ PLEASE DO (1557) NEXT
+ DO (1510) NEXT
+ PLEASE DO :1 <- :3
+ DO .5 <- '?#0$"'V.1$#3'~#1"'~#1
+ DO (1557) NEXT
+ DO .1 <- '^.1$#3906'~'#0$#3906'
+ DO (1556) NEXT
+ (1557) PLEASE DO (1001) NEXT
+ PLEASE FORGET #1
+ DO :5 <- "'V":4~'.1$#0'"$":5~'#3906$#0'"'
+ ~'#0$#3906'"$"'V":4~'#0$.1'"$":5~'#0$
+ #3906'"'~'#0$#3906'"
+ DO .5 <- "?#2$':4~#1'"~#1
+ DO (1551) NEXT
+ DO :2 <- :2~'#3906$#3905'
+ DO :4 <- :4~'#3906$#3905'
+ DO .1 <- #0
+ PLEASE DO (1556) NEXT
+ (1551) DO (1001) NEXT
+ DO :3 <- :5
+ PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5
+ PLEASE RESUME #2
+ (1720) PLEASE STASH :1 + :3 + :4 + .1 + .5
+ DO :2 <- #0
+ DO .2 <- #0
+ DO .5 <- '?".1~#4"$#5'~#5
+ DO (1729) NEXT
+ DO .5 <- .1~#1
+ DO .2 <- :1~'#3906$#0'
+ DO .1 <- :1~'#0$#3906'
+ PLEASE DO (1724) NEXT
+ DO :1 <- '"?#0$.2"~"#0$#3906"'$'"?#0$.1"~"#0$
+ #3906"'
+ DO :2 <- '"?'"V.2$#3906"~"#0$#3906"'$
+ #3906"~"#0$#3906"'$'"?'"V.1$#3906"
+ ~"#0$#3906"'$#3906"~"#0$#3906"'
+ DO (1728) NEXT
+ (1724) PLEASE DO (1723) NEXT
+ DO :1 <- '"?#0$'"^.2$.2"~"#0$#3906"'"~"#0$#3906"'$
+ '"?#0$'"^.1$.1"~"#0$#3906"'"~"#0$#3906"'
+ DO :2 <- '"?'"V'"@.2$#11718"~"#0$#3906"'$#7812"
+ ~"#0$#3906"'$#7812"~"#0$#3906"'$'"?'"V'"@.1$
+ #11718"~"#0$#3906"'$#7812"~"#0$#3906"'$#7812"
+ ~"#0$#3906"'
+ (1728) DO .2 <- :2~'#3125$#0'
+ DO :2 <- ':2~"#0$#3906"'$'"':2~"#781$#0"'$#0"
+ ~"#781$#1"'
+ DO (1509) NEXT
+ DO :2 <- :3
+ DO .2 <- '^.2$"'?":4~#1"$#1'~#1"'~#1
+ DO (1721) NEXT
+ (1723) PLEASE DO (1722) NEXT
+ DO :1 <- '"^.2$.2"~"#0$#3906"'$'"^.1$.1"~"#0$
+ #3906"'
+ DO :2 <- '"?'"V'"2@.2$#15624"~"#0$#3906"'$
+ #11718"~"#0$#3906"'$#11718"~"#0$#3906"'$
+ '"?'"V'"2@.1$#15624"~"#0$#3906"'$#11718"
+ ~"#0$#3906"'$#11718"~"#0$#3906"'
+ PLEASE FORGET #2
+ DO (1728) NEXT
+ (1729) DO (1001) NEXT
+ DO (1721) NEXT
+ (1722) PLEASE DO (1001) NEXT
+ DO :2 <- :1
+ DO .2 <- #0
+ DO FORGET #1
+ (1721) PLEASE RETRIEVE :1 + :3 + :4 + .1 + .5
+ PLEASE RESUME #3
+ (1900) DO STASH .2 + .5
+ DO .1 <- #0
+ DO .2 <- #1
+ PLEASE DO (1901) NEXT
+ (1901) DO %20 (1903) NEXT
+ DO .1 <- 'V.1$.2'~'#0$#3906'
+ DO %50 .1 <- '^.1$".2~#7812"'~'#0$#3906'
+ DO %50 .1 <- '^.1$.2'~'#0$#3906'
+ PLEASE DO (1903) NEXT
+ (1903) PLEASE FORGET #2
+ DO .2 <- !2$#0'~'#781$#1'
+ PLEASE DO .5 <- '^".2~.2"$#1'~#1
+ DO (1902) NEXT
+ DO (1901) NEXT
+ (1902) DO (1001) NEXT
+ DO RETRIEVE .2 + .5
+ PLEASE RESUME #2
+ (1910) PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3
+ DO .3 <- #15613
+ DO :1 <- #6
+ DO (1911) NEXT
+ PLEASE NOTE THAT YOU CAN'T GET SOMETHING FROM NOTHING
+ (1912) DO (1001) NEXT
+ (1911) DO FORGET #1
+ PLEASE DO (1900) NEXT
+ DO :2 <- .1
+ DO (1500) NEXT
+ PLEASE DO :1 <- :3
+ DO .1 <- .3
+ DO (1020) NEXT
+ PLEASE DO .3 <- .1
+ DO .5 <- '?"!3~.3'~#4"$#3'~#1
+ DO (1912) NEXT
+ DO .1 <- #12
+ PLEASE DO (1050) NEXT
+ DO RETRIEVE .1
+ DO (1530) NEXT
+ DO :2 <- #7812
+ DO (1500) NEXT
+ PLEASE DO .2 <- :3~'#3875$#3875'
+ PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
+ DO RESUME #1
- PLEASE KNOCK THRICE TWO TIMES BEFORE ENTERING\r
-\r
- (1000) PLEASE IGNORE .4\r
- PLEASE ABSTAIN FROM (1005)\r
- (1009) DO STASH .1 + .2 + .5 + .6\r
- DO .4 <- #1\r
- DO (1004) NEXT\r
- (1004) PLEASE FORGET #1\r
- DO .3 <- '^.1$.2'~'#0$#9331'\r
- DO .6 <- '?"'V"'V"'&.1$.2'~'#0$#9331'"$"'^"'@.1$\r
- .2'~'#0$#9331'"$#9331'~'#0$#9331'"'~'#0$\r
- #9331'"$"'^"'2@.1$.2'~'#0$#9331'"$#18662'\r
- ~'#0$#9331'"'~'#0$#37324'"$#37324'~'#0$#9331'\r
- PLEASE DO .5 <- "?!6~#38880'$#6"~#6\r
- DO (1002) NEXT\r
- DO .4 <- #2\r
- (1005) DO (1006) NEXT\r
- (1999) DOUBLE OR SINGLE PRECISION OVERFLOW\r
- (1002) DO (1001) NEXT\r
- (1006) PLEASE FORGET #1\r
- DO .5 <- '?"!6~.6'~#5"$#6'~#6\r
- DO (1003) NEXT\r
- DO .1 <- .3\r
- DO .2 <- !6$#0'~'#1555$#1'\r
- DO (1004) NEXT\r
- (1003) DO (1001) NEXT\r
- DO REINSTATE (1005)\r
- (1007) PLEASE RETRIEVE .1 + .2 + .5 + .6\r
- DO REMEMBER .4\r
- PLEASE RESUME #2\r
- (1001) DO RESUME .5\r
- (1010) DO STASH .1 + .2 + .4\r
- DO .4 <- .1\r
- DO .1 <- '?#46655$.2'~'#0$#9331'\r
- DO (1020) NEXT\r
- PLEASE DO .2 <- .4\r
- PLEASE DO (1009) NEXT\r
- DO RETRIEVE .1 + .2 + .4\r
- PLEASE RESUME #1\r
- (1020) DO STASH .2 + .3\r
- DO .2 <- #1\r
- PLEASE DO (1021) NEXT\r
- (1021) DO FORGET #1\r
- DO .3 <- '?"'V".1~.2"$#4'~#1"$#3'~#1\r
- PLEASE DO .1 <- '^.1$.2'~'#0$#9331'\r
- DO (1022) NEXT\r
- DO .2 <- !2$#0'~'#1555$#1'\r
- DO (1021) NEXT\r
- (1023) PLEASE RESUME .3\r
- (1022) DO (1023) NEXT\r
- PLEASE RETRIEVE .2 + .3\r
- PLEASE RESUME #2\r
- (1030) DO ABSTAIN FROM (1033)\r
- PLEASE ABSTAIN FROM (1032)\r
- (1039) DO STASH :1 + .5\r
- DO (1530) NEXT\r
- DO .3 <- :1~#9331\r
- PLEASE DO .5 <- :1~'#9288$#9288'\r
- DO .5 <- '?"!5~.5'~#5"$#6'~#6\r
- DO (1031) NEXT\r
- (1032) DO (1033) NEXT\r
- DO (1999) NEXT\r
- (1031) DO (1001) NEXT\r
- (1033) DO .4 <- .5\r
- DO REINSTATE (1032)\r
- PLEASE REINSTATE (1033)\r
- DO RETRIEVE :1 + .5\r
- PLEASE RESUME #2\r
- (1040) PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3\r
- DO .2 <- #0\r
- DO (1520) NEXT\r
- DO STASH :1\r
- PLEASE RETRIEVE .2\r
- DO .1 <- .2\r
- DO .2 <- #0\r
- PLEASE DO (1520) NEXT\r
- DO :2 <- :1\r
- DO RETRIEVE .1 + .2 + :1\r
- DO (1550) NEXT\r
- PLEASE DO .3 <- :3\r
- DO RETRIEVE :1 + :2 + :3\r
- DO RESUME #1\r
- (1050) PLEASE STASH :2 + :3 + .5\r
- DO :2 <- .1\r
- PLEASE DO (1550) NEXT\r
- DO .5 <- :3~'#9288$#9288'\r
- DO .5 <- '?"!5~.5'~#5"$#6'~#6\r
- DO (1051) NEXT\r
- DO (1999) NEXT\r
- (1051) DO (1001) NEXT\r
- DO .2 <- :3\r
- PLEASE RETRIEVE :2 + :3 + .5\r
- DO RESUME #2\r
- (1200) DO .2 <- '^.1$.1'~'#0$#9331'\r
- DO .3 <- '?"'2@.1$#0'~'#0$#9331'"$"'2@.1$#46655'\r
- ~'#0$#9331'"'~'#0$#9331'\r
- DO .2 <- '^.2$"!3$#0'~'#1555$#1'"'~'#0$#9331'\r
- DO .3 <- .3~#7776\r
- PLEASE RESUME #1\r
- (1210) DO .2 <- '^"'?"'@.1$#0'~'#0$#9331'"$"'@.1$#46655'\r
- ~'#0$#9331'"'~'#0$#9331'"$"'?"'3@.1$#0'~'#0$\r
- #9331'"$"'3@.1$#46655'~'#0$#9331'"'~'#0$\r
- #9331'"'~'#0$#9331'\r
- DO .3 <- '^"'^.1$.1'~'#0$#9331'"$.1'~'#0$#9331'\r
- DO .2 <- '^.2$".3~#9330"'~'#0$#9331'\r
- DO .3 <- .3~#1\r
- PLEASE RESUME #1\r
- (1500) PLEASE ABSTAIN FROM (1502)\r
- PLEASE ABSTAIN FROM (1506)\r
- (1509) PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6\r
- DO .1 <- :1~#9331\r
- PLEASE DO .2 <- :2~#9331\r
- DO (1009) NEXT\r
- DO .5 <- .3\r
- PLEASE DO .6 <- .4\r
- DO .1 <- :1~'#9288$#9288'\r
- DO .2 <- :2~'#9288$#9288'\r
- DO (1009) NEXT\r
- DO .1 <- .3\r
- PLEASE DO (1503) NEXT\r
- DO .6 <- .4\r
- DO .2 <- #1\r
- DO (1009) NEXT\r
- DO .1 <- .3\r
- DO (1501) NEXT\r
- (1504) PLEASE RESUME .6\r
- (1503) DO (1504) NEXT\r
- (1501) DO .2 <- .5\r
- DO .5 <- '&.6$.4'\r
- DO (1505) NEXT\r
- (1506) DO (1502) NEXT\r
- PLEASE DO (1999) NEXT\r
- (1505) DO (1001) NEXT\r
- (1502) DO :4 <- .5\r
- DO (1520) NEXT\r
- DO :3 <- :1\r
- PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6\r
- DO REINSTATE (1502)\r
- DO REINSTATE (1506)\r
- PLEASE RESUME #3\r
- (1510) DO STASH :1 + :2 + :4\r
- DO :1 <- "'?#46655$":2~'#9331$#0'"'~'#0$#9331'"$\r
- "'?#46655$":2~'#0$#9331'"'~'#0$#9331'"\r
- DO :2 <- #1\r
- DO (1509) NEXT\r
- PLEASE RETRIEVE :1\r
- DO :2 <- :3\r
- PLEASE DO (1509) NEXT\r
- DO RETRIEVE :2 + :4\r
- PLEASE RESUME #1\r
- (1520) PLEASE STASH .3 + .4\r
- DO .3 <- .1~#7998\r
- DO (1525) NEXT\r
- PLEASE DO .4 <- 'V.3$".2~#7998"'~'#0$#9331'\r
- DO .3 <- .1~#1333\r
- PLEASE DO (1525) NEXT\r
- DO :1 <- .4$"'V.3$".2~#1333"'~'#0$#9331'"\r
- PLEASE RETRIEVE .3 + .4\r
- DO RESUME #1\r
- (1525) DO .3 <- '"!3$#0'~'#1555$#1'"$#0'~'#259$#7'\r
- PLEASE RESUME #1\r
- (1530) DO STASH :2 + :3 + .1 + .2 + .3\r
- DO :3 <- #0\r
- DO :2 <- .1\r
- DO (1535) NEXT\r
- (1535) PLEASE FORGET #1\r
- DO .3 <- '?"!2~.2'~#5"$#6'~#6\r
- DO (1532) NEXT\r
- DO .1 <- .2\r
- DO (1210) NEXT\r
- DO .3 <- '?#1$".3~#5"'~#1\r
- DO (1531) NEXT\r
- DO :1 <- :3\r
- DO (1500) NEXT\r
- PLEASE DO (1533) NEXT\r
- (1531) PLEASE DO (1534) NEXT\r
- (1533) DO FORGET #1\r
- DO :1 <- :2\r
- DO (1700) NEXT\r
- DO (1535) NEXT\r
- (1534) PLEASE RESUME .3\r
- (1532) DO (1534) NEXT\r
- DO :1 <- :3\r
- PLEASE RETRIEVE :2 + :3 + .1 + .2 + .3\r
- DO RESUME #2\r
- (1540) PLEASE ABSTAIN FROM (1541)\r
- DO ABSTAIN FROM (1542)\r
- (1549) PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5\r
- DO .1 <- :1~#9331\r
- PLEASE DO .2 <- :2~'#9288$#9288'\r
- DO .5 <- :1~'#9288$#9288'\r
- DO (1530) NEXT\r
- DO :3 <- :1\r
- DO .2 <- :2~#9331\r
- PLEASE DO (1530) NEXT\r
- DO :5 <- :1\r
- DO .1 <- .5\r
- DO (1530) NEXT\r
- DO :4 <- :1\r
- PLEASE DO :1 <- ":3~'#9288$#9288'"$":4\r
- ~'#9288$#9288'"\r
- DO .5 <- ':1~:1'~#5\r
- DO .2 <- :2~'#9288$#9288'\r
- DO (1530) NEXT\r
- PLEASE DO .5 <- '"':1~:1'~#5"$.5'~#7\r
- DO .1 <- :3~#9331\r
- DO .2 <- #0\r
- DO (1520) NEXT\r
- PLEASE DO :2 <- :1\r
- PLEASE DO .1 <- :4~#9331\r
- DO (1520) NEXT\r
- DO (1509) NEXT\r
- DO .5 <- !5$"'^":4~#1"$#3'~#1"'~#223\r
- DO :1 <- :3\r
- DO :2 <- :5\r
- DO (1509) NEXT\r
- PLEASE DO .5 <- !5$"'^":4~#1"$#3'~#1"'~#7999\r
- DO .5 <- '?"!5~.5'~#1"$#3'~#1\r
- PLEASE RETRIEVE :4\r
- (1541) DO :4 <- .5\r
- DO (1543) NEXT\r
- (1542) DO (1544) NEXT\r
- PLEASE DO (1999) NEXT\r
- (1543) DO (1001) NEXT\r
- (1544) DO REINSTATE (1541)\r
- PLEASE REINSTATE (1542)\r
- PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5\r
- DO RESUME #2\r
- (1550) DO STASH :1 + :1 + :4 + :5 + :6 + .1 + .5\r
- DO :3 <- #0\r
- DO .5 <- '?"':2~:2'~#5"$#6'~#6\r
- PLEASE DO (1551) NEXT\r
- DO :4 <- #1\r
- PLEASE DO (1553) NEXT\r
- (1553) DO FORGET #1\r
- DO .5 <- '?#0$"'V"'2@":2~'#7776$#0'"$#5'~#1"$#4'\r
- ~#1"'~#1\r
- DO (1552) NEXT\r
- DO :5 <- :2\r
- DO :1 <- :4\r
- PLEASE DO (1700) NEXT\r
- DO :4 <- :2\r
- DO :1 <- :5\r
- PLEASE DO (1700) NEXT\r
- DO (1553) NEXT\r
- (1552) DO (1001) NEXT\r
- DO RETRIEVE :1\r
- (1556) PLEASE FORGET #1\r
- DO :6 <- "'&":2~'#9331$#0'"$"'?#46655$":1\r
- ~'#9331$#0'"'~'#0$#9331'"'~'#0$#9331'"$\r
- "'&":2~'#0$#9331'"$"'?#46655$":1~'#0$\r
- #9331'"'~'#0$#9331'"'~'#0$#9331'"\r
- DO :5 <- "'?":1~'#9331$#0'"$":2~'#9331$#0'"'\r
- ~'#0$#9331'"$"'?":1~'#0$#9331'"$":2~'#0$\r
- #9331'"'~'#0$#9331'"\r
- DO :6 <- "'&":6~'#9331$#0'"$":5~'#9331$#0'"'\r
- ~'#0$#9331'"$"'&":6~'#0$#9331'"$":5~'#0$\r
- #9331'"'~'#0$#9331'"\r
- DO :5 <- :5~'#46655$#46655'\r
- DO :6 <- "'?"'V":6~'#9331$#0'"$#27993'~'#0$\r
- #9331'"$#27993'~'#0$#46655'"$"'?"'V":6\r
- ~'#0$#9331'"$#27993'~'#0$#9331'"$#27993'\r
- ~'#0$#46655'"\r
- DO .5 <- "?'"':6~:5'~'"'"'&"':5~:5'~'#9331$#0'"$\r
- #7776'~'#0$#9331'"$"'?:5~:5'~'#1555$#0'"'\r
- ~'#7776$#1555'"$"'?:5~:5'~'#0$#9331'"'"~#1'$\r
- #4"~#1\r
- DO (1554) NEXT\r
- DO :5 <- :3\r
- DO (1510) NEXT\r
- DO :1 <- :4\r
- DO :4 <- :2\r
- DO :2 <- :5\r
- DO :5 <- :3\r
- DO (1500) NEXT\r
- DO :2 <- :4\r
- DO :4 <- :1\r
- DO :1 <- :5\r
- DO (1555) NEXT\r
- (1554) PLEASE DO (1001) NEXT\r
- (1555) DO FORGET #1\r
- DO .5 <- '?#2$"'@#0$":4~#1"'~#1"'~#1\r
- DO (1551) NEXT\r
- DO :5 <- :1\r
- DO :1 <- :4\r
- DO :4 <- :2\r
- DO (1710) NEXT\r
- DO :1 <- :4\r
- DO :4 <- :2\r
- DO (1710) NEXT\r
- DO :1 <- :5\r
- PLEASE DO (1556) NEXT\r
- (1551) DO (1001) NEXT\r
- PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5\r
- PLEASE RESUME #2\r
- (1700) PLEASE STASH .2\r
- DO .1 <- :1~'#0$#9331'\r
- DO .2 <- :1~'#9331$#0'\r
- DO :2 <- "'^.2$.2'~'#0$#9331'"$"'^.1$.1'~'#0$\r
- #9331'"\r
- DO .1 <- '?"'2@.1$#0'~'#0$#9331'"$"'2@.1$#46655'\r
- ~'#0$#9331'"'~'#0$#9331'\r
- DO .2 <- '?"'2@.2$#0'~'#0$#9331'"$"'2@.2$#46655'\r
- ~'#0$#9331'"'~'#0$#9331'\r
- DO :2 <- "'^":2~'#9331$#0'"$.1'~'#0$#9331'"$"'^":2\r
- ~'#0$#9331'"$"'.2$#0'~'#1555$#1'"'~'#0$#9331'"\r
- DO .1 <- .2~#7776\r
- PLEASE RETRIEVE .2\r
- PLEASE RESUME #1\r
- (1710) PLEASE STASH :1 + .2\r
- DO .2 <- :1~'#9331$#0'\r
- DO .1 <- :1~'#0$#9331'\r
- DO :2 <- "'^"'^.2$.2'~'#0$#9331'"$.2'~'#0$\r
- #9331'"$"'^"'^.1$.1'~'#0$#9331'"$.1'~'#0$\r
- #9331'"\r
- DO .1 <- '^"'?"'@.1$#0'~'#0$#9331'"$"'@.1$#46655'\r
- ~'#0$#9331'"'~'#0$#9331'"$"'?"'3@.1$#0'~'#0$\r
- #9331'"$"'3@.1$#46655'~'#0$#9331'"'~'#0$\r
- #9331'"'~'#0$#9331'\r
- DO :1 <- "'^"'?"'@.2$#0'~'#0$#9331'"$"'@.2$#46655'\r
- ~'#0$#9331'"'~'#0$#9331'"$"'?"'3@.2$#0'~'#0$\r
- #9331'"$"'3@.2$#46655'~'#0$#9331'"'~'#0$\r
- #9331'"'~'#0$#9331'"$.1\r
- DO .1 <- :2~#1\r
- DO :2 <- "'^":1~'#9331$#0'"$":2~'#0$#9330'"'\r
- ~'#0$#9331'"$"'^":1~'#0$#9331'"$":2~'#9331$\r
- #0'"'~'#0$#9331'"\r
- PLEASE RETRIEVE :1 + .2\r
- PLEASE RESUME #1\r
- (1900) DO STASH .2 + .5\r
- DO .1 <- #0\r
- DO .2 <- #1\r
- PLEASE DO (1901) NEXT\r
- (1901) DO FORGET #1\r
- DO %50 (1904) NEXT\r
- DO %50 (1901) NEXT\r
- PLEASE DO (1903) NEXT\r
- (1904) DO .1 <- '^.1$.2'~'#0$#9331'\r
- DO %50 .1 <- '^.1$.2'~'#0$#9331'\r
- (1903) PLEASE FORGET #1\r
- DO %50 .1 <- '^.1$".2~#27993"'~'#0$#9331'\r
- DO .2 <- !2$#0'~'#1555$#1'\r
- PLEASE DO .5 <- '^".2~.2"$#1'~#1\r
- DO (1902) NEXT\r
- DO (1901) NEXT\r
- (1902) DO (1001) NEXT\r
- DO RETRIEVE .2 + .5\r
- PLEASE RESUME #2\r
- (1910) PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3\r
- DO .3 <- #46644\r
- DO :1 <- #6\r
- DO (1911) NEXT\r
- PLEASE NOTE THAT YOU CAN'T GET BLOOD FROM A TURNIP\r
- (1912) DO (1001) NEXT\r
- (1911) DO FORGET #1\r
- PLEASE DO (1900) NEXT\r
- DO :2 <- .1\r
- DO (1500) NEXT\r
- PLEASE DO :1 <- :3\r
- DO .1 <- .3\r
- DO (1020) NEXT\r
- PLEASE DO .3 <- .1\r
- DO .5 <- '?"!3~.3'~#5"$#4'~#1\r
- DO (1912) NEXT\r
- DO .1 <- #12\r
- PLEASE DO (1050) NEXT\r
- DO RETRIEVE .1\r
- DO (1530) NEXT\r
- DO :2 <- #23328\r
- DO (1500) NEXT\r
- PLEASE DO .2 <- :3~'#9288$#9288'\r
- PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3\r
- DO RESUME #1\r
+ PLEASE KNOCK THRICE TWO TIMES BEFORE ENTERING
+
+ (1000) PLEASE IGNORE .4
+ PLEASE ABSTAIN FROM (1005)
+ (1009) DO STASH .1 + .2 + .5 + .6
+ DO .4 <- #1
+ DO (1004) NEXT
+ (1004) PLEASE FORGET #1
+ DO .3 <- '^.1$.2'~'#0$#9331'
+ DO .6 <- '?"'V"'V"'&.1$.2'~'#0$#9331'"$"'^"'@.1$
+ .2'~'#0$#9331'"$#9331'~'#0$#9331'"'~'#0$
+ #9331'"$"'^"'2@.1$.2'~'#0$#9331'"$#18662'
+ ~'#0$#9331'"'~'#0$#37324'"$#37324'~'#0$#9331'
+ PLEASE DO .5 <- "?!6~#38880'$#6"~#6
+ DO (1002) NEXT
+ DO .4 <- #2
+ (1005) DO (1006) NEXT
+ (1999) DOUBLE OR SINGLE PRECISION OVERFLOW
+ (1002) DO (1001) NEXT
+ (1006) PLEASE FORGET #1
+ DO .5 <- '?"!6~.6'~#5"$#6'~#6
+ DO (1003) NEXT
+ DO .1 <- .3
+ DO .2 <- !6$#0'~'#1555$#1'
+ DO (1004) NEXT
+ (1003) DO (1001) NEXT
+ DO REINSTATE (1005)
+ (1007) PLEASE RETRIEVE .1 + .2 + .5 + .6
+ DO REMEMBER .4
+ PLEASE RESUME #2
+ (1001) DO RESUME .5
+ (1010) DO STASH .1 + .2 + .4
+ DO .4 <- .1
+ DO .1 <- '?#46655$.2'~'#0$#9331'
+ DO (1020) NEXT
+ PLEASE DO .2 <- .4
+ PLEASE DO (1009) NEXT
+ DO RETRIEVE .1 + .2 + .4
+ PLEASE RESUME #1
+ (1020) DO STASH .2 + .3
+ DO .2 <- #1
+ PLEASE DO (1021) NEXT
+ (1021) DO FORGET #1
+ DO .3 <- '?"'V".1~.2"$#4'~#1"$#3'~#1
+ PLEASE DO .1 <- '^.1$.2'~'#0$#9331'
+ DO (1022) NEXT
+ DO .2 <- !2$#0'~'#1555$#1'
+ DO (1021) NEXT
+ (1023) PLEASE RESUME .3
+ (1022) DO (1023) NEXT
+ PLEASE RETRIEVE .2 + .3
+ PLEASE RESUME #2
+ (1030) DO ABSTAIN FROM (1033)
+ PLEASE ABSTAIN FROM (1032)
+ (1039) DO STASH :1 + .5
+ DO (1530) NEXT
+ DO .3 <- :1~#9331
+ PLEASE DO .5 <- :1~'#9288$#9288'
+ DO .5 <- '?"!5~.5'~#5"$#6'~#6
+ DO (1031) NEXT
+ (1032) DO (1033) NEXT
+ DO (1999) NEXT
+ (1031) DO (1001) NEXT
+ (1033) DO .4 <- .5
+ DO REINSTATE (1032)
+ PLEASE REINSTATE (1033)
+ DO RETRIEVE :1 + .5
+ PLEASE RESUME #2
+ (1040) PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3
+ DO .2 <- #0
+ DO (1520) NEXT
+ DO STASH :1
+ PLEASE RETRIEVE .2
+ DO .1 <- .2
+ DO .2 <- #0
+ PLEASE DO (1520) NEXT
+ DO :2 <- :1
+ DO RETRIEVE .1 + .2 + :1
+ DO (1550) NEXT
+ PLEASE DO .3 <- :3
+ DO RETRIEVE :1 + :2 + :3
+ DO RESUME #1
+ (1050) PLEASE STASH :2 + :3 + .5
+ DO :2 <- .1
+ PLEASE DO (1550) NEXT
+ DO .5 <- :3~'#9288$#9288'
+ DO .5 <- '?"!5~.5'~#5"$#6'~#6
+ DO (1051) NEXT
+ DO (1999) NEXT
+ (1051) DO (1001) NEXT
+ DO .2 <- :3
+ PLEASE RETRIEVE :2 + :3 + .5
+ DO RESUME #2
+ (1200) DO .2 <- '^.1$.1'~'#0$#9331'
+ DO .3 <- '?"'2@.1$#0'~'#0$#9331'"$"'2@.1$#46655'
+ ~'#0$#9331'"'~'#0$#9331'
+ DO .2 <- '^.2$"!3$#0'~'#1555$#1'"'~'#0$#9331'
+ DO .3 <- .3~#7776
+ PLEASE RESUME #1
+ (1210) DO .2 <- '^"'?"'@.1$#0'~'#0$#9331'"$"'@.1$#46655'
+ ~'#0$#9331'"'~'#0$#9331'"$"'?"'3@.1$#0'~'#0$
+ #9331'"$"'3@.1$#46655'~'#0$#9331'"'~'#0$
+ #9331'"'~'#0$#9331'
+ DO .3 <- '^"'^.1$.1'~'#0$#9331'"$.1'~'#0$#9331'
+ DO .2 <- '^.2$".3~#9330"'~'#0$#9331'
+ DO .3 <- .3~#1
+ PLEASE RESUME #1
+ (1500) PLEASE ABSTAIN FROM (1502)
+ PLEASE ABSTAIN FROM (1506)
+ (1509) PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6
+ DO .1 <- :1~#9331
+ PLEASE DO .2 <- :2~#9331
+ DO (1009) NEXT
+ DO .5 <- .3
+ PLEASE DO .6 <- .4
+ DO .1 <- :1~'#9288$#9288'
+ DO .2 <- :2~'#9288$#9288'
+ DO (1009) NEXT
+ DO .1 <- .3
+ PLEASE DO (1503) NEXT
+ DO .6 <- .4
+ DO .2 <- #1
+ DO (1009) NEXT
+ DO .1 <- .3
+ DO (1501) NEXT
+ (1504) PLEASE RESUME .6
+ (1503) DO (1504) NEXT
+ (1501) DO .2 <- .5
+ DO .5 <- '&.6$.4'
+ DO (1505) NEXT
+ (1506) DO (1502) NEXT
+ PLEASE DO (1999) NEXT
+ (1505) DO (1001) NEXT
+ (1502) DO :4 <- .5
+ DO (1520) NEXT
+ DO :3 <- :1
+ PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6
+ DO REINSTATE (1502)
+ DO REINSTATE (1506)
+ PLEASE RESUME #3
+ (1510) DO STASH :1 + :2 + :4
+ DO :1 <- "'?#46655$":2~'#9331$#0'"'~'#0$#9331'"$
+ "'?#46655$":2~'#0$#9331'"'~'#0$#9331'"
+ DO :2 <- #1
+ DO (1509) NEXT
+ PLEASE RETRIEVE :1
+ DO :2 <- :3
+ PLEASE DO (1509) NEXT
+ DO RETRIEVE :2 + :4
+ PLEASE RESUME #1
+ (1520) PLEASE STASH .3 + .4
+ DO .3 <- .1~#7998
+ DO (1525) NEXT
+ PLEASE DO .4 <- 'V.3$".2~#7998"'~'#0$#9331'
+ DO .3 <- .1~#1333
+ PLEASE DO (1525) NEXT
+ DO :1 <- .4$"'V.3$".2~#1333"'~'#0$#9331'"
+ PLEASE RETRIEVE .3 + .4
+ DO RESUME #1
+ (1525) DO .3 <- '"!3$#0'~'#1555$#1'"$#0'~'#259$#7'
+ PLEASE RESUME #1
+ (1530) DO STASH :2 + :3 + .1 + .2 + .3
+ DO :3 <- #0
+ DO :2 <- .1
+ DO (1535) NEXT
+ (1535) PLEASE FORGET #1
+ DO .3 <- '?"!2~.2'~#5"$#6'~#6
+ DO (1532) NEXT
+ DO .1 <- .2
+ DO (1210) NEXT
+ DO .3 <- '?#1$".3~#5"'~#1
+ DO (1531) NEXT
+ DO :1 <- :3
+ DO (1500) NEXT
+ PLEASE DO (1533) NEXT
+ (1531) PLEASE DO (1534) NEXT
+ (1533) DO FORGET #1
+ DO :1 <- :2
+ DO (1700) NEXT
+ DO (1535) NEXT
+ (1534) PLEASE RESUME .3
+ (1532) DO (1534) NEXT
+ DO :1 <- :3
+ PLEASE RETRIEVE :2 + :3 + .1 + .2 + .3
+ DO RESUME #2
+ (1540) PLEASE ABSTAIN FROM (1541)
+ DO ABSTAIN FROM (1542)
+ (1549) PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5
+ DO .1 <- :1~#9331
+ PLEASE DO .2 <- :2~'#9288$#9288'
+ DO .5 <- :1~'#9288$#9288'
+ DO (1530) NEXT
+ DO :3 <- :1
+ DO .2 <- :2~#9331
+ PLEASE DO (1530) NEXT
+ DO :5 <- :1
+ DO .1 <- .5
+ DO (1530) NEXT
+ DO :4 <- :1
+ PLEASE DO :1 <- ":3~'#9288$#9288'"$":4
+ ~'#9288$#9288'"
+ DO .5 <- ':1~:1'~#5
+ DO .2 <- :2~'#9288$#9288'
+ DO (1530) NEXT
+ PLEASE DO .5 <- '"':1~:1'~#5"$.5'~#7
+ DO .1 <- :3~#9331
+ DO .2 <- #0
+ DO (1520) NEXT
+ PLEASE DO :2 <- :1
+ PLEASE DO .1 <- :4~#9331
+ DO (1520) NEXT
+ DO (1509) NEXT
+ DO .5 <- !5$"'^":4~#1"$#3'~#1"'~#223
+ DO :1 <- :3
+ DO :2 <- :5
+ DO (1509) NEXT
+ PLEASE DO .5 <- !5$"'^":4~#1"$#3'~#1"'~#7999
+ DO .5 <- '?"!5~.5'~#1"$#3'~#1
+ PLEASE RETRIEVE :4
+ (1541) DO :4 <- .5
+ DO (1543) NEXT
+ (1542) DO (1544) NEXT
+ PLEASE DO (1999) NEXT
+ (1543) DO (1001) NEXT
+ (1544) DO REINSTATE (1541)
+ PLEASE REINSTATE (1542)
+ PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5
+ DO RESUME #2
+ (1550) DO STASH :1 + :1 + :4 + :5 + :6 + .1 + .5
+ DO :3 <- #0
+ DO .5 <- '?"':2~:2'~#5"$#6'~#6
+ PLEASE DO (1551) NEXT
+ DO :4 <- #1
+ PLEASE DO (1553) NEXT
+ (1553) DO FORGET #1
+ DO .5 <- '?#0$"'V"'2@":2~'#7776$#0'"$#5'~#1"$#4'
+ ~#1"'~#1
+ DO (1552) NEXT
+ DO :5 <- :2
+ DO :1 <- :4
+ PLEASE DO (1700) NEXT
+ DO :4 <- :2
+ DO :1 <- :5
+ PLEASE DO (1700) NEXT
+ DO (1553) NEXT
+ (1552) DO (1001) NEXT
+ DO RETRIEVE :1
+ (1556) PLEASE FORGET #1
+ DO :6 <- "'&":2~'#9331$#0'"$"'?#46655$":1
+ ~'#9331$#0'"'~'#0$#9331'"'~'#0$#9331'"$
+ "'&":2~'#0$#9331'"$"'?#46655$":1~'#0$
+ #9331'"'~'#0$#9331'"'~'#0$#9331'"
+ DO :5 <- "'?":1~'#9331$#0'"$":2~'#9331$#0'"'
+ ~'#0$#9331'"$"'?":1~'#0$#9331'"$":2~'#0$
+ #9331'"'~'#0$#9331'"
+ DO :6 <- "'&":6~'#9331$#0'"$":5~'#9331$#0'"'
+ ~'#0$#9331'"$"'&":6~'#0$#9331'"$":5~'#0$
+ #9331'"'~'#0$#9331'"
+ DO :5 <- :5~'#46655$#46655'
+ DO :6 <- "'?"'V":6~'#9331$#0'"$#27993'~'#0$
+ #9331'"$#27993'~'#0$#46655'"$"'?"'V":6
+ ~'#0$#9331'"$#27993'~'#0$#9331'"$#27993'
+ ~'#0$#46655'"
+ DO .5 <- "?'"':6~:5'~'"'"'&"':5~:5'~'#9331$#0'"$
+ #7776'~'#0$#9331'"$"'?:5~:5'~'#1555$#0'"'
+ ~'#7776$#1555'"$"'?:5~:5'~'#0$#9331'"'"~#1'$
+ #4"~#1
+ DO (1554) NEXT
+ DO :5 <- :3
+ DO (1510) NEXT
+ DO :1 <- :4
+ DO :4 <- :2
+ DO :2 <- :5
+ DO :5 <- :3
+ DO (1500) NEXT
+ DO :2 <- :4
+ DO :4 <- :1
+ DO :1 <- :5
+ DO (1555) NEXT
+ (1554) PLEASE DO (1001) NEXT
+ (1555) DO FORGET #1
+ DO .5 <- '?#2$"'@#0$":4~#1"'~#1"'~#1
+ DO (1551) NEXT
+ DO :5 <- :1
+ DO :1 <- :4
+ DO :4 <- :2
+ DO (1710) NEXT
+ DO :1 <- :4
+ DO :4 <- :2
+ DO (1710) NEXT
+ DO :1 <- :5
+ PLEASE DO (1556) NEXT
+ (1551) DO (1001) NEXT
+ PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5
+ PLEASE RESUME #2
+ (1700) PLEASE STASH .2
+ DO .1 <- :1~'#0$#9331'
+ DO .2 <- :1~'#9331$#0'
+ DO :2 <- "'^.2$.2'~'#0$#9331'"$"'^.1$.1'~'#0$
+ #9331'"
+ DO .1 <- '?"'2@.1$#0'~'#0$#9331'"$"'2@.1$#46655'
+ ~'#0$#9331'"'~'#0$#9331'
+ DO .2 <- '?"'2@.2$#0'~'#0$#9331'"$"'2@.2$#46655'
+ ~'#0$#9331'"'~'#0$#9331'
+ DO :2 <- "'^":2~'#9331$#0'"$.1'~'#0$#9331'"$"'^":2
+ ~'#0$#9331'"$"'.2$#0'~'#1555$#1'"'~'#0$#9331'"
+ DO .1 <- .2~#7776
+ PLEASE RETRIEVE .2
+ PLEASE RESUME #1
+ (1710) PLEASE STASH :1 + .2
+ DO .2 <- :1~'#9331$#0'
+ DO .1 <- :1~'#0$#9331'
+ DO :2 <- "'^"'^.2$.2'~'#0$#9331'"$.2'~'#0$
+ #9331'"$"'^"'^.1$.1'~'#0$#9331'"$.1'~'#0$
+ #9331'"
+ DO .1 <- '^"'?"'@.1$#0'~'#0$#9331'"$"'@.1$#46655'
+ ~'#0$#9331'"'~'#0$#9331'"$"'?"'3@.1$#0'~'#0$
+ #9331'"$"'3@.1$#46655'~'#0$#9331'"'~'#0$
+ #9331'"'~'#0$#9331'
+ DO :1 <- "'^"'?"'@.2$#0'~'#0$#9331'"$"'@.2$#46655'
+ ~'#0$#9331'"'~'#0$#9331'"$"'?"'3@.2$#0'~'#0$
+ #9331'"$"'3@.2$#46655'~'#0$#9331'"'~'#0$
+ #9331'"'~'#0$#9331'"$.1
+ DO .1 <- :2~#1
+ DO :2 <- "'^":1~'#9331$#0'"$":2~'#0$#9330'"'
+ ~'#0$#9331'"$"'^":1~'#0$#9331'"$":2~'#9331$
+ #0'"'~'#0$#9331'"
+ PLEASE RETRIEVE :1 + .2
+ PLEASE RESUME #1
+ (1900) DO STASH .2 + .5
+ DO .1 <- #0
+ DO .2 <- #1
+ PLEASE DO (1901) NEXT
+ (1901) DO FORGET #1
+ DO %50 (1904) NEXT
+ DO %50 (1901) NEXT
+ PLEASE DO (1903) NEXT
+ (1904) DO .1 <- '^.1$.2'~'#0$#9331'
+ DO %50 .1 <- '^.1$.2'~'#0$#9331'
+ (1903) PLEASE FORGET #1
+ DO %50 .1 <- '^.1$".2~#27993"'~'#0$#9331'
+ DO .2 <- !2$#0'~'#1555$#1'
+ PLEASE DO .5 <- '^".2~.2"$#1'~#1
+ DO (1902) NEXT
+ DO (1901) NEXT
+ (1902) DO (1001) NEXT
+ DO RETRIEVE .2 + .5
+ PLEASE RESUME #2
+ (1910) PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3
+ DO .3 <- #46644
+ DO :1 <- #6
+ DO (1911) NEXT
+ PLEASE NOTE THAT YOU CAN'T GET BLOOD FROM A TURNIP
+ (1912) DO (1001) NEXT
+ (1911) DO FORGET #1
+ PLEASE DO (1900) NEXT
+ DO :2 <- .1
+ DO (1500) NEXT
+ PLEASE DO :1 <- :3
+ DO .1 <- .3
+ DO (1020) NEXT
+ PLEASE DO .3 <- .1
+ DO .5 <- '?"!3~.3'~#5"$#4'~#1
+ DO (1912) NEXT
+ DO .1 <- #12
+ PLEASE DO (1050) NEXT
+ DO RETRIEVE .1
+ DO (1530) NEXT
+ DO :2 <- #23328
+ DO (1500) NEXT
+ PLEASE DO .2 <- :3~'#9288$#9288'
+ PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
+ DO RESUME #1
- PLEASE KNOCK "SHAVE-AND-A-HAIRCUT-TWO-PLEASE" BEFORE ENTERING\r
-\r
- (1000) PLEASE IGNORE .4\r
- PLEASE ABSTAIN FROM (1005)\r
- (1009) DO STASH .1 + .2 + .5 + .6\r
- DO .4 <- #1\r
- DO (1004) NEXT\r
- (1004) PLEASE FORGET #1\r
- DO .3 <- '^.1$.2'~'#0$#2801'\r
- DO .6 <- '?"'V"'V"'&.1$.2'~'#0$#2801'"$"'^"'@.1$\r
- .2'~'#0$#2801'"$#2801'~'#0$#2801'"'~'#0$\r
- #2801'"$"'^"'2@.1$.2'~'#0$#2801'"$#5602'\r
- ~'#0$#2801'"'~'#0$#14005'"$#14005'~'#0$#2801'\r
- PLEASE DO .5 <- "?!6~#14406'$#7"~#7\r
- DO (1002) NEXT\r
- DO .4 <- #2\r
- (1005) DO (1006) NEXT\r
- (1999) DOUBLE OR SINGLE PRECISION OVERFLOW\r
- (1002) DO (1001) NEXT\r
- (1006) PLEASE FORGET #1\r
- DO .5 <- '?"!6~.6'~#6"$#7'~#7\r
- DO (1003) NEXT\r
- DO .1 <- .3\r
- DO .2 <- !6$#0'~'#400$#1'\r
- DO (1004) NEXT\r
- (1003) DO (1001) NEXT\r
- DO REINSTATE (1005)\r
- (1007) PLEASE RETRIEVE .1 + .2 + .5 + .6\r
- DO REMEMBER .4\r
- PLEASE RESUME #2\r
- (1001) DO RESUME .5\r
- (1010) DO STASH .1 + .2 + .4\r
- DO .4 <- .1\r
- DO .1 <- '?#16806$.2'~'#0$#2801'\r
- DO (1020) NEXT\r
- PLEASE DO .2 <- .4\r
- PLEASE DO (1009) NEXT\r
- DO RETRIEVE .1 + .2 + .4\r
- PLEASE RESUME #1\r
- (1020) DO STASH .2 + .3\r
- DO .2 <- #1\r
- PLEASE DO (1021) NEXT\r
- (1021) DO FORGET #1\r
- DO .3 <- '?"'V".1~.2"$#5'~#1"$#4'~#1\r
- PLEASE DO .1 <- '^.1$.2'~'#0$#2801'\r
- DO (1022) NEXT\r
- DO .2 <- !2$#0'~'#400$#1'\r
- DO (1021) NEXT\r
- (1023) PLEASE RESUME .3\r
- (1022) DO (1023) NEXT\r
- PLEASE RETRIEVE .2 + .3\r
- PLEASE RESUME #2\r
- (1030) DO ABSTAIN FROM (1033)\r
- PLEASE ABSTAIN FROM (1032)\r
- (1039) DO STASH :1 + .5\r
- DO (1530) NEXT\r
- DO .3 <- :1~#2801\r
- PLEASE DO .5 <- :1~'#2793$#2744'\r
- DO .5 <- '?"!5~.5'~#6"$#7'~#7\r
- DO (1031) NEXT\r
- (1032) DO (1033) NEXT\r
- DO (1999) NEXT\r
- (1031) DO (1001) NEXT\r
- (1033) DO .4 <- .5\r
- DO REINSTATE (1032)\r
- PLEASE REINSTATE (1033)\r
- DO RETRIEVE :1 + .5\r
- PLEASE RESUME #2\r
- (1040) PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3\r
- DO .2 <- #0\r
- DO (1520) NEXT\r
- DO STASH :1\r
- PLEASE RETRIEVE .2\r
- DO .1 <- .2\r
- DO .2 <- #0\r
- PLEASE DO (1520) NEXT\r
- DO :2 <- :1\r
- DO RETRIEVE .1 + .2 + :1\r
- DO (1550) NEXT\r
- PLEASE DO .3 <- :3\r
- DO RETRIEVE :1 + :2 + :3\r
- DO RESUME #1\r
- (1050) PLEASE STASH :2 + :3 + .5\r
- DO :2 <- .1\r
- PLEASE DO (1550) NEXT\r
- DO .5 <- :3~'#2793$#2744'\r
- DO .5 <- '?"!5~.5'~#6"$#7'~#7\r
- DO (1051) NEXT\r
- DO (1999) NEXT\r
- (1051) DO (1001) NEXT\r
- DO .2 <- :3\r
- PLEASE RETRIEVE :2 + :3 + .5\r
- DO RESUME #2\r
- (1500) PLEASE ABSTAIN FROM (1502)\r
- PLEASE ABSTAIN FROM (1506)\r
- (1509) PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6\r
- DO .1 <- :1~#2801\r
- PLEASE DO .2 <- :2~#2801\r
- DO (1009) NEXT\r
- DO .5 <- .3\r
- PLEASE DO .6 <- .4\r
- DO .1 <- :1~'#2793$#2744'\r
- DO .2 <- :2~'#2793$#2744'\r
- DO (1009) NEXT\r
- DO .1 <- .3\r
- PLEASE DO (1503) NEXT\r
- DO .6 <- .4\r
- DO .2 <- #1\r
- DO (1009) NEXT\r
- DO .1 <- .3\r
- DO (1501) NEXT\r
- (1504) PLEASE RESUME .6\r
- (1503) DO (1504) NEXT\r
- (1501) DO .2 <- .5\r
- DO .5 <- '&.6$.4'\r
- DO (1505) NEXT\r
- (1506) DO (1502) NEXT\r
- PLEASE DO (1999) NEXT\r
- (1505) DO (1001) NEXT\r
- (1502) DO :4 <- .5\r
- DO (1520) NEXT\r
- DO :3 <- :1\r
- PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6\r
- DO REINSTATE (1502)\r
- DO REINSTATE (1506)\r
- PLEASE RESUME #3\r
- (1510) DO STASH :1 + :2 + :4\r
- DO :1 <- "'?#16806$":2~'#2801$#0'"'~'#0$#2801'"$\r
- "'?#16806$":2~'#0$#2801'"'~'#0$#2801'"\r
- DO :2 <- #1\r
- DO (1509) NEXT\r
- PLEASE RETRIEVE :1\r
- DO :2 <- :3\r
- PLEASE DO (1509) NEXT\r
- DO RETRIEVE :2 + :4\r
- PLEASE RESUME #1\r
- (1520) PLEASE STASH .3 + .4\r
- DO .3 <- .1~#2451\r
- DO (1525) NEXT\r
- PLEASE DO .4 <- 'V.3$".2~#350"'~'#0$#2801'\r
- DO .3 <- .1~#350\r
- PLEASE DO (1526) NEXT\r
- DO :1 <- .4$"'V.3$".2~#2451"'~'#0$#2801'"\r
- PLEASE RETRIEVE .3 + .4\r
- DO RESUME #1\r
- (1525) DO .3 <- '"!3$#0'~'#400$#1'"$#0'~'#400$#1'\r
- PLEASE RESUME #1\r
- (1526) DO .3 <- '"!3$#0'~'#400$#1'"$#0'~'#57$#8'\r
- PLEASE RESUME #1\r
- (1530) DO STASH :2 + :3 + :4 + .1 + .2 + .5\r
- DO :3 <- #0\r
- DO :4 <- .2\r
- DO (1535) NEXT\r
- (1535) PLEASE FORGET #1\r
- DO .5 <- '?".1~#6"$#7'~#7\r
- DO (1531) NEXT\r
- DO :1 <- :4\r
- DO (1720) NEXT\r
- DO :1 <- :3\r
- DO (1500) NEXT\r
- PLEASE DO (1533) NEXT\r
- (1531) PLEASE DO (1001) NEXT\r
- (1533) DO FORGET #1\r
- DO .1 <- .1~#2800\r
- DO :4 <- ":4~'#0$#2801'"$"'":4~'#400$#0'"$#0'\r
- ~'#400$#1'"\r
- PLEASE DO .5 <- '?"!1~.1'~#6"$#7'~#7\r
- DO (1532) NEXT\r
- DO (1535) NEXT\r
- (1532) DO (1001) NEXT\r
- DO :1 <- :3\r
- PLEASE RETRIEVE :2 + :3 + :4 + .1 + .2 + .5\r
- DO RESUME #2\r
- (1540) PLEASE ABSTAIN FROM (1541)\r
- DO ABSTAIN FROM (1542)\r
- (1549) PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5\r
- DO .1 <- :1~#2801\r
- PLEASE DO .2 <- :2~'#2793$#2744'\r
- DO .5 <- :1~'#2793$#2744'\r
- DO (1530) NEXT\r
- DO :3 <- :1\r
- DO .2 <- :2~#2801\r
- PLEASE DO (1530) NEXT\r
- DO :5 <- :1\r
- DO .1 <- .5\r
- DO (1530) NEXT\r
- DO :4 <- :1\r
- PLEASE DO :1 <- ":3~'#2793$#2744'"$":4\r
- ~'#2793$#2744'"\r
- DO .5 <- ':1~:1'~#6\r
- DO .2 <- :2~'#2793$#2744'\r
- DO (1530) NEXT\r
- PLEASE DO .5 <- '"':1~:1'~#6"$.5'~#8\r
- DO .1 <- :3~#2801\r
- DO .2 <- #0\r
- DO (1520) NEXT\r
- PLEASE DO :2 <- :1\r
- PLEASE DO .1 <- :4~#2801\r
- DO (1520) NEXT\r
- DO (1509) NEXT\r
- DO .5 <- !5$"'^":4~#1"$#4'~#1"'~#351\r
- DO :1 <- :3\r
- DO :2 <- :5\r
- DO (1509) NEXT\r
- PLEASE DO .5 <- !5$"'^":4~#1"$#4'~#1"'~'#57$#1'\r
- DO .5 <- '?"!5~.5'~#1"$#4'~#1\r
- PLEASE RETRIEVE :4\r
- (1541) DO :4 <- .5\r
- DO (1543) NEXT\r
- (1542) DO (1544) NEXT\r
- PLEASE DO (1999) NEXT\r
- (1543) DO (1001) NEXT\r
- (1544) DO REINSTATE (1541)\r
- PLEASE REINSTATE (1542)\r
- PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5\r
- DO RESUME #2\r
- (1550) DO STASH :1 + :4 + :5 + :6 + .1 + .5\r
- DO :5 <- #0\r
- DO .5 <- '?"':2~:2'~#6"$#7'~#7\r
- PLEASE DO (1551) NEXT\r
- DO :4 <- #1\r
- PLEASE DO (1553) NEXT\r
- (1553) DO FORGET #1\r
- DO .5 <- '?"':2~"#14406$#0"'"$#5'~#1\r
- DO (1552) NEXT\r
- DO :2 <- ":2~'#0$#2801'"$"'":2~'#400$#0'"$#0'\r
- ~'#400$#1'"\r
- PLEASE DO :4 <- ":4~'#0$#2801'"$"'":4~'#400\r
- $#0'"$#0'~'#400$#1'"\r
- DO (1553) NEXT\r
- (1552) DO (1001) NEXT\r
- DO .1 <- #0\r
- (1556) PLEASE FORGET #1\r
- DO :6 <- "'&":2~'#2801$#0'"$"'?#16806$":1\r
- ~'#2801$#0'"'~'#0$#2801'"'~'#0$#2801'"$\r
- "'&":2~'#0$#2801'"$"'?#16806$":1~'#0$\r
- #2801'"'~'#0$#2801'"'~'#0$#2801'"\r
- DO :3 <- "'?":1~'#2801$#0'"$":2~'#2801$#0'"'\r
- ~'#0$#2801'"$"'?":1~'#0$#2801'"$":2~'#0$\r
- #2801'"'~'#0$#2801'"\r
- DO :6 <- "'&":6~'#2801$#0'"$":3~'#2801$#0'"'\r
- ~'#0$#2801'"$"'&":6~'#0$#2801'"$":3~'#0$\r
- #2801'"'~'#0$#2801'"\r
- DO :3 <- :3~'#16806$#16806'\r
- DO :6 <- "'?"'V":6~'#2801$#0'"$#11204'~'#0$\r
- #2801'"$#11204'~'#0$#16806'"$"'?"'V":6\r
- ~'#0$#2801'"$#11204'~'#0$#2801'"$#11204'\r
- ~'#0$#16806'"\r
- DO .5 <- "?'"':6~:3'~'"'"'&"':3~:3'~'#2801$#0'"$\r
- #2401'~'#0$#2801'"$"'?:3~:3'~'#400$#0'"'\r
- ~'#2401$#400'"$"'?:3~:3'~'#0$#2801'"'"~#1'$\r
- #5"~#1\r
- PLEASE DO (1557) NEXT\r
- DO (1510) NEXT\r
- DO :1 <- :3\r
- DO .5 <- '?#0$"'V.1$#5'~#1"'~#1\r
- DO (1557) NEXT\r
- DO .1 <- '^.1$#2801'~'#0$#2801'\r
- DO (1556) NEXT\r
- (1557) PLEASE DO (1001) NEXT\r
- PLEASE FORGET #1\r
- DO :5 <- "'V":4~'.1$#0'"$":5~'#2801$#0'"'\r
- ~'#0$#2801'"$"'V":4~'#0$.1'"$":5~'#0$\r
- #2801'"'~'#0$#2801'"\r
- DO .5 <- "?#2$':4~#1'"~#1\r
- DO (1551) NEXT\r
- DO :2 <- :2~'#2801$#2800'\r
- DO :4 <- :4~'#2801$#2800'\r
- DO .1 <- #0\r
- PLEASE DO (1556) NEXT\r
- (1551) DO (1001) NEXT\r
- DO :3 <- :5\r
- PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5\r
- PLEASE RESUME #2\r
- (1720) PLEASE STASH :1 + :3 + :4 + .1 + .5\r
- DO :2 <- #0\r
- DO .2 <- #0\r
- DO .5 <- '?".1~#6"$#7'~#7\r
- DO (1729) NEXT\r
- DO .5 <- .1~#1\r
- DO .2 <- :1~'#2801$#0'\r
- DO .1 <- :1~'#0$#2801'\r
- PLEASE DO (1726) NEXT\r
- DO :1 <- '"?#0$.2"~"#0$#2801"'$'"?#0$.1"~"#0$\r
- #2801"'\r
- DO :2 <- '"?'"V.2$#2801"~"#0$#2801"'$#2801"\r
- ~"#0$#2801"'$'"?'"V.1$#2801"~"#0$#2801"'$\r
- #2801"~"#0$#2801"'\r
- DO (1728) NEXT\r
- (1726) PLEASE DO (1725) NEXT\r
- DO :1 <- '"?#0$'"^.2$.2"~"#0$#2801"'"~"#0$\r
- #2801"'$'"?#0$'"^.1$.1"~"#0$#2801"'"~"#0$\r
- #2801"'\r
- DO .2 <- "^'"V'"2@.2$#11204"~"#0$#2801"'$\r
- #5602"~"#0$#2801"'$'"2@.2$#2801"~"#0$\r
- #2801"'"~"#0$#2801"\r
- DO .1 <- "^'"V'"2@.1$#11204"~"#0$#2801"'$\r
- #5602"~"#0$#2801"'$'"2@.1$#2801"~"#0$\r
- #2801"'"~"#0$#2801"\r
- DO :2 <- '"?.2$#8403"~"#0$#2801"'$'"?.1$#8403"\r
- ~"#0$#2801"'\r
- (1728) DO .2 <- :2~'#2401$#0'\r
- DO :2 <- ':2~"#0$#2801"'$'"':2~"#400$#0"'$#0"\r
- ~"#400$#1"'\r
- DO (1509) NEXT\r
- DO :2 <- :3\r
- DO .2 <- '^.2$"'?":4~#1"$#1'~#1"'~#1\r
- DO (1721) NEXT\r
- (1725) PLEASE DO (1724) NEXT\r
- DO :2 <- '"?'"V'"?'"3@.2$#14005"~"#0$#2801"'$\r
- '"@.2$#0"~"#0$#2801"'"~"#0$#11204"'$#8403"\r
- ~"#0$#2801"'$#8403"~"#0$#2801"'$\r
- '"?'"V'"?'"3@.1$#14005"~"#0$#2801"'$'"@.1$\r
- #0"~"#0$#2801"'"~"#0$#11204"'$#8403"~"#0$\r
- #2801"'$#8403"~"#0$#2801"'\r
- DO .2 <- '^.2$.2'~'#0$#2801'\r
- DO .1 <- '^.1$.1'~'#0$#2801'\r
- DO :1 <- '"^.2$.2"~"#0$#2801"'$'"^.1$.1"~"#0$\r
- #2801"'\r
- PLEASE FORGET #2\r
- DO (1728) NEXT\r
- (1724) PLEASE DO (1723) NEXT\r
- DO :1 <- '"^'"^.2$.2"~"#0$#2801"'$.2"~"#0$\r
- #2801"'$'"^'"^.1$.1"~"#0$#2801"'$.1"\r
- ~"#0$#2801"'\r
- DO .2 <- "^'"V'"2@.2$#16806"~"#0$#2801"'$\r
- #14005"~"#0$#2801"'$'"V'"4@.2$#16806"\r
- ~"#0$#2801"'$#14005"~"#0$#2801"'"~"#0$\r
- #2801"\r
- DO .1 <- "^'"V'"2@.1$#16806"~"#0$#2801"'$\r
- #14005"~"#0$#2801"'$'"V'"4@.1$#16806"\r
- ~"#0$#2801"'$#14005"~"#0$#2801"'"~"#0$\r
- #2801"\r
- DO :2 <- '"?.2$#8403"~"#0$#2801"'$'"?.1$#8403"\r
- ~"#0$#2801"'\r
- PLEASE FORGET #3\r
- DO (1728) NEXT\r
- (1723) PLEASE DO (1722) NEXT\r
- DO :1 <- '"^.2$.2"~"#0$#2801"'$'"^.1$.1"~"#0$\r
- #2801"'\r
- DO :2 <- '"?'"V'"3@.2$#16806"~"#0$#2801"'$\r
- #14005"~"#0$#2801"'$#14005"~"#0$#2801"'$\r
- '"?'"V'"3@.1$#16806"~"#0$#2801"'$#14005"\r
- ~"#0$#2801"'$#14005"~"#0$#2801"'\r
- PLEASE FORGET #4\r
- DO (1728) NEXT\r
- (1729) DO (1001) NEXT\r
- DO (1721) NEXT\r
- (1722) PLEASE DO (1001) NEXT\r
- DO :2 <- :1\r
- DO .2 <- #0\r
- DO FORGET #3\r
- (1721) PLEASE RETRIEVE :1 + :3 + :4 + .1 + .5\r
- PLEASE RESUME #3\r
- (1900) DO STASH .2 + .5\r
- DO .1 <- #0\r
- DO .2 <- #1\r
- PLEASE DO (1901) NEXT\r
- (1901) DO FORGET #1\r
- DO %50 (1905) NEXT\r
- DO %50 (1904) NEXT\r
- DO %50 (1901) NEXT\r
- PLEASE DO (1903) NEXT\r
- (1905) DO FORGET #1\r
- DO .1 <- '^.1$".2~#8403"'~'#0$#2801'\r
- PLEASE DO %50 .1 <- '^.1$".2~#5602"'~'#0$#2801'\r
- DO (1906) NEXT\r
- (1904) DO .1 <- '^.1$.2'~'#0$#2801'\r
- (1906) DO %50 .1 <- '^.1$.2'~'#0$#2801'\r
- (1903) PLEASE FORGET #1\r
- DO .2 <- !2$#0'~'#400$#1'\r
- PLEASE DO .5 <- '^".2~.2"$#1'~#1\r
- DO (1902) NEXT\r
- DO (1901) NEXT\r
- (1902) DO (1001) NEXT\r
- DO RETRIEVE .2 + .5\r
- PLEASE RESUME #2\r
- (1910) PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3\r
- DO .3 <- #16795\r
- DO :1 <- #6\r
- DO (1911) NEXT\r
- PLEASE NOTE THAT YOU CAN'T GET SENSE FROM INTERCAL\r
- (1912) DO (1001) NEXT\r
- (1911) DO FORGET #1\r
- PLEASE DO (1900) NEXT\r
- DO :2 <- .1\r
- DO (1500) NEXT\r
- PLEASE DO :1 <- :3\r
- DO .1 <- .3\r
- DO (1020) NEXT\r
- PLEASE DO .3 <- .1\r
- DO .5 <- '?"!3~.3'~#6"$#5'~#1\r
- DO (1912) NEXT\r
- DO .1 <- #12\r
- PLEASE DO (1050) NEXT\r
- DO RETRIEVE .1\r
- DO (1530) NEXT\r
- DO :2 <- #8403\r
- DO (1500) NEXT\r
- PLEASE DO .2 <- :3~'#2793$#2744'\r
- PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3\r
- DO RESUME #1\r
+ PLEASE KNOCK "SHAVE-AND-A-HAIRCUT-TWO-PLEASE" BEFORE ENTERING
+
+ (1000) PLEASE IGNORE .4
+ PLEASE ABSTAIN FROM (1005)
+ (1009) DO STASH .1 + .2 + .5 + .6
+ DO .4 <- #1
+ DO (1004) NEXT
+ (1004) PLEASE FORGET #1
+ DO .3 <- '^.1$.2'~'#0$#2801'
+ DO .6 <- '?"'V"'V"'&.1$.2'~'#0$#2801'"$"'^"'@.1$
+ .2'~'#0$#2801'"$#2801'~'#0$#2801'"'~'#0$
+ #2801'"$"'^"'2@.1$.2'~'#0$#2801'"$#5602'
+ ~'#0$#2801'"'~'#0$#14005'"$#14005'~'#0$#2801'
+ PLEASE DO .5 <- "?!6~#14406'$#7"~#7
+ DO (1002) NEXT
+ DO .4 <- #2
+ (1005) DO (1006) NEXT
+ (1999) DOUBLE OR SINGLE PRECISION OVERFLOW
+ (1002) DO (1001) NEXT
+ (1006) PLEASE FORGET #1
+ DO .5 <- '?"!6~.6'~#6"$#7'~#7
+ DO (1003) NEXT
+ DO .1 <- .3
+ DO .2 <- !6$#0'~'#400$#1'
+ DO (1004) NEXT
+ (1003) DO (1001) NEXT
+ DO REINSTATE (1005)
+ (1007) PLEASE RETRIEVE .1 + .2 + .5 + .6
+ DO REMEMBER .4
+ PLEASE RESUME #2
+ (1001) DO RESUME .5
+ (1010) DO STASH .1 + .2 + .4
+ DO .4 <- .1
+ DO .1 <- '?#16806$.2'~'#0$#2801'
+ DO (1020) NEXT
+ PLEASE DO .2 <- .4
+ PLEASE DO (1009) NEXT
+ DO RETRIEVE .1 + .2 + .4
+ PLEASE RESUME #1
+ (1020) DO STASH .2 + .3
+ DO .2 <- #1
+ PLEASE DO (1021) NEXT
+ (1021) DO FORGET #1
+ DO .3 <- '?"'V".1~.2"$#5'~#1"$#4'~#1
+ PLEASE DO .1 <- '^.1$.2'~'#0$#2801'
+ DO (1022) NEXT
+ DO .2 <- !2$#0'~'#400$#1'
+ DO (1021) NEXT
+ (1023) PLEASE RESUME .3
+ (1022) DO (1023) NEXT
+ PLEASE RETRIEVE .2 + .3
+ PLEASE RESUME #2
+ (1030) DO ABSTAIN FROM (1033)
+ PLEASE ABSTAIN FROM (1032)
+ (1039) DO STASH :1 + .5
+ DO (1530) NEXT
+ DO .3 <- :1~#2801
+ PLEASE DO .5 <- :1~'#2793$#2744'
+ DO .5 <- '?"!5~.5'~#6"$#7'~#7
+ DO (1031) NEXT
+ (1032) DO (1033) NEXT
+ DO (1999) NEXT
+ (1031) DO (1001) NEXT
+ (1033) DO .4 <- .5
+ DO REINSTATE (1032)
+ PLEASE REINSTATE (1033)
+ DO RETRIEVE :1 + .5
+ PLEASE RESUME #2
+ (1040) PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3
+ DO .2 <- #0
+ DO (1520) NEXT
+ DO STASH :1
+ PLEASE RETRIEVE .2
+ DO .1 <- .2
+ DO .2 <- #0
+ PLEASE DO (1520) NEXT
+ DO :2 <- :1
+ DO RETRIEVE .1 + .2 + :1
+ DO (1550) NEXT
+ PLEASE DO .3 <- :3
+ DO RETRIEVE :1 + :2 + :3
+ DO RESUME #1
+ (1050) PLEASE STASH :2 + :3 + .5
+ DO :2 <- .1
+ PLEASE DO (1550) NEXT
+ DO .5 <- :3~'#2793$#2744'
+ DO .5 <- '?"!5~.5'~#6"$#7'~#7
+ DO (1051) NEXT
+ DO (1999) NEXT
+ (1051) DO (1001) NEXT
+ DO .2 <- :3
+ PLEASE RETRIEVE :2 + :3 + .5
+ DO RESUME #2
+ (1500) PLEASE ABSTAIN FROM (1502)
+ PLEASE ABSTAIN FROM (1506)
+ (1509) PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6
+ DO .1 <- :1~#2801
+ PLEASE DO .2 <- :2~#2801
+ DO (1009) NEXT
+ DO .5 <- .3
+ PLEASE DO .6 <- .4
+ DO .1 <- :1~'#2793$#2744'
+ DO .2 <- :2~'#2793$#2744'
+ DO (1009) NEXT
+ DO .1 <- .3
+ PLEASE DO (1503) NEXT
+ DO .6 <- .4
+ DO .2 <- #1
+ DO (1009) NEXT
+ DO .1 <- .3
+ DO (1501) NEXT
+ (1504) PLEASE RESUME .6
+ (1503) DO (1504) NEXT
+ (1501) DO .2 <- .5
+ DO .5 <- '&.6$.4'
+ DO (1505) NEXT
+ (1506) DO (1502) NEXT
+ PLEASE DO (1999) NEXT
+ (1505) DO (1001) NEXT
+ (1502) DO :4 <- .5
+ DO (1520) NEXT
+ DO :3 <- :1
+ PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6
+ DO REINSTATE (1502)
+ DO REINSTATE (1506)
+ PLEASE RESUME #3
+ (1510) DO STASH :1 + :2 + :4
+ DO :1 <- "'?#16806$":2~'#2801$#0'"'~'#0$#2801'"$
+ "'?#16806$":2~'#0$#2801'"'~'#0$#2801'"
+ DO :2 <- #1
+ DO (1509) NEXT
+ PLEASE RETRIEVE :1
+ DO :2 <- :3
+ PLEASE DO (1509) NEXT
+ DO RETRIEVE :2 + :4
+ PLEASE RESUME #1
+ (1520) PLEASE STASH .3 + .4
+ DO .3 <- .1~#2451
+ DO (1525) NEXT
+ PLEASE DO .4 <- 'V.3$".2~#350"'~'#0$#2801'
+ DO .3 <- .1~#350
+ PLEASE DO (1526) NEXT
+ DO :1 <- .4$"'V.3$".2~#2451"'~'#0$#2801'"
+ PLEASE RETRIEVE .3 + .4
+ DO RESUME #1
+ (1525) DO .3 <- '"!3$#0'~'#400$#1'"$#0'~'#400$#1'
+ PLEASE RESUME #1
+ (1526) DO .3 <- '"!3$#0'~'#400$#1'"$#0'~'#57$#8'
+ PLEASE RESUME #1
+ (1530) DO STASH :2 + :3 + :4 + .1 + .2 + .5
+ DO :3 <- #0
+ DO :4 <- .2
+ DO (1535) NEXT
+ (1535) PLEASE FORGET #1
+ DO .5 <- '?".1~#6"$#7'~#7
+ DO (1531) NEXT
+ DO :1 <- :4
+ DO (1720) NEXT
+ DO :1 <- :3
+ DO (1500) NEXT
+ PLEASE DO (1533) NEXT
+ (1531) PLEASE DO (1001) NEXT
+ (1533) DO FORGET #1
+ DO .1 <- .1~#2800
+ DO :4 <- ":4~'#0$#2801'"$"'":4~'#400$#0'"$#0'
+ ~'#400$#1'"
+ PLEASE DO .5 <- '?"!1~.1'~#6"$#7'~#7
+ DO (1532) NEXT
+ DO (1535) NEXT
+ (1532) DO (1001) NEXT
+ DO :1 <- :3
+ PLEASE RETRIEVE :2 + :3 + :4 + .1 + .2 + .5
+ DO RESUME #2
+ (1540) PLEASE ABSTAIN FROM (1541)
+ DO ABSTAIN FROM (1542)
+ (1549) PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5
+ DO .1 <- :1~#2801
+ PLEASE DO .2 <- :2~'#2793$#2744'
+ DO .5 <- :1~'#2793$#2744'
+ DO (1530) NEXT
+ DO :3 <- :1
+ DO .2 <- :2~#2801
+ PLEASE DO (1530) NEXT
+ DO :5 <- :1
+ DO .1 <- .5
+ DO (1530) NEXT
+ DO :4 <- :1
+ PLEASE DO :1 <- ":3~'#2793$#2744'"$":4
+ ~'#2793$#2744'"
+ DO .5 <- ':1~:1'~#6
+ DO .2 <- :2~'#2793$#2744'
+ DO (1530) NEXT
+ PLEASE DO .5 <- '"':1~:1'~#6"$.5'~#8
+ DO .1 <- :3~#2801
+ DO .2 <- #0
+ DO (1520) NEXT
+ PLEASE DO :2 <- :1
+ PLEASE DO .1 <- :4~#2801
+ DO (1520) NEXT
+ DO (1509) NEXT
+ DO .5 <- !5$"'^":4~#1"$#4'~#1"'~#351
+ DO :1 <- :3
+ DO :2 <- :5
+ DO (1509) NEXT
+ PLEASE DO .5 <- !5$"'^":4~#1"$#4'~#1"'~'#57$#1'
+ DO .5 <- '?"!5~.5'~#1"$#4'~#1
+ PLEASE RETRIEVE :4
+ (1541) DO :4 <- .5
+ DO (1543) NEXT
+ (1542) DO (1544) NEXT
+ PLEASE DO (1999) NEXT
+ (1543) DO (1001) NEXT
+ (1544) DO REINSTATE (1541)
+ PLEASE REINSTATE (1542)
+ PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5
+ DO RESUME #2
+ (1550) DO STASH :1 + :4 + :5 + :6 + .1 + .5
+ DO :5 <- #0
+ DO .5 <- '?"':2~:2'~#6"$#7'~#7
+ PLEASE DO (1551) NEXT
+ DO :4 <- #1
+ PLEASE DO (1553) NEXT
+ (1553) DO FORGET #1
+ DO .5 <- '?"':2~"#14406$#0"'"$#5'~#1
+ DO (1552) NEXT
+ DO :2 <- ":2~'#0$#2801'"$"'":2~'#400$#0'"$#0'
+ ~'#400$#1'"
+ PLEASE DO :4 <- ":4~'#0$#2801'"$"'":4~'#400
+ $#0'"$#0'~'#400$#1'"
+ DO (1553) NEXT
+ (1552) DO (1001) NEXT
+ DO .1 <- #0
+ (1556) PLEASE FORGET #1
+ DO :6 <- "'&":2~'#2801$#0'"$"'?#16806$":1
+ ~'#2801$#0'"'~'#0$#2801'"'~'#0$#2801'"$
+ "'&":2~'#0$#2801'"$"'?#16806$":1~'#0$
+ #2801'"'~'#0$#2801'"'~'#0$#2801'"
+ DO :3 <- "'?":1~'#2801$#0'"$":2~'#2801$#0'"'
+ ~'#0$#2801'"$"'?":1~'#0$#2801'"$":2~'#0$
+ #2801'"'~'#0$#2801'"
+ DO :6 <- "'&":6~'#2801$#0'"$":3~'#2801$#0'"'
+ ~'#0$#2801'"$"'&":6~'#0$#2801'"$":3~'#0$
+ #2801'"'~'#0$#2801'"
+ DO :3 <- :3~'#16806$#16806'
+ DO :6 <- "'?"'V":6~'#2801$#0'"$#11204'~'#0$
+ #2801'"$#11204'~'#0$#16806'"$"'?"'V":6
+ ~'#0$#2801'"$#11204'~'#0$#2801'"$#11204'
+ ~'#0$#16806'"
+ DO .5 <- "?'"':6~:3'~'"'"'&"':3~:3'~'#2801$#0'"$
+ #2401'~'#0$#2801'"$"'?:3~:3'~'#400$#0'"'
+ ~'#2401$#400'"$"'?:3~:3'~'#0$#2801'"'"~#1'$
+ #5"~#1
+ PLEASE DO (1557) NEXT
+ DO (1510) NEXT
+ DO :1 <- :3
+ DO .5 <- '?#0$"'V.1$#5'~#1"'~#1
+ DO (1557) NEXT
+ DO .1 <- '^.1$#2801'~'#0$#2801'
+ DO (1556) NEXT
+ (1557) PLEASE DO (1001) NEXT
+ PLEASE FORGET #1
+ DO :5 <- "'V":4~'.1$#0'"$":5~'#2801$#0'"'
+ ~'#0$#2801'"$"'V":4~'#0$.1'"$":5~'#0$
+ #2801'"'~'#0$#2801'"
+ DO .5 <- "?#2$':4~#1'"~#1
+ DO (1551) NEXT
+ DO :2 <- :2~'#2801$#2800'
+ DO :4 <- :4~'#2801$#2800'
+ DO .1 <- #0
+ PLEASE DO (1556) NEXT
+ (1551) DO (1001) NEXT
+ DO :3 <- :5
+ PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5
+ PLEASE RESUME #2
+ (1720) PLEASE STASH :1 + :3 + :4 + .1 + .5
+ DO :2 <- #0
+ DO .2 <- #0
+ DO .5 <- '?".1~#6"$#7'~#7
+ DO (1729) NEXT
+ DO .5 <- .1~#1
+ DO .2 <- :1~'#2801$#0'
+ DO .1 <- :1~'#0$#2801'
+ PLEASE DO (1726) NEXT
+ DO :1 <- '"?#0$.2"~"#0$#2801"'$'"?#0$.1"~"#0$
+ #2801"'
+ DO :2 <- '"?'"V.2$#2801"~"#0$#2801"'$#2801"
+ ~"#0$#2801"'$'"?'"V.1$#2801"~"#0$#2801"'$
+ #2801"~"#0$#2801"'
+ DO (1728) NEXT
+ (1726) PLEASE DO (1725) NEXT
+ DO :1 <- '"?#0$'"^.2$.2"~"#0$#2801"'"~"#0$
+ #2801"'$'"?#0$'"^.1$.1"~"#0$#2801"'"~"#0$
+ #2801"'
+ DO .2 <- "^'"V'"2@.2$#11204"~"#0$#2801"'$
+ #5602"~"#0$#2801"'$'"2@.2$#2801"~"#0$
+ #2801"'"~"#0$#2801"
+ DO .1 <- "^'"V'"2@.1$#11204"~"#0$#2801"'$
+ #5602"~"#0$#2801"'$'"2@.1$#2801"~"#0$
+ #2801"'"~"#0$#2801"
+ DO :2 <- '"?.2$#8403"~"#0$#2801"'$'"?.1$#8403"
+ ~"#0$#2801"'
+ (1728) DO .2 <- :2~'#2401$#0'
+ DO :2 <- ':2~"#0$#2801"'$'"':2~"#400$#0"'$#0"
+ ~"#400$#1"'
+ DO (1509) NEXT
+ DO :2 <- :3
+ DO .2 <- '^.2$"'?":4~#1"$#1'~#1"'~#1
+ DO (1721) NEXT
+ (1725) PLEASE DO (1724) NEXT
+ DO :2 <- '"?'"V'"?'"3@.2$#14005"~"#0$#2801"'$
+ '"@.2$#0"~"#0$#2801"'"~"#0$#11204"'$#8403"
+ ~"#0$#2801"'$#8403"~"#0$#2801"'$
+ '"?'"V'"?'"3@.1$#14005"~"#0$#2801"'$'"@.1$
+ #0"~"#0$#2801"'"~"#0$#11204"'$#8403"~"#0$
+ #2801"'$#8403"~"#0$#2801"'
+ DO .2 <- '^.2$.2'~'#0$#2801'
+ DO .1 <- '^.1$.1'~'#0$#2801'
+ DO :1 <- '"^.2$.2"~"#0$#2801"'$'"^.1$.1"~"#0$
+ #2801"'
+ PLEASE FORGET #2
+ DO (1728) NEXT
+ (1724) PLEASE DO (1723) NEXT
+ DO :1 <- '"^'"^.2$.2"~"#0$#2801"'$.2"~"#0$
+ #2801"'$'"^'"^.1$.1"~"#0$#2801"'$.1"
+ ~"#0$#2801"'
+ DO .2 <- "^'"V'"2@.2$#16806"~"#0$#2801"'$
+ #14005"~"#0$#2801"'$'"V'"4@.2$#16806"
+ ~"#0$#2801"'$#14005"~"#0$#2801"'"~"#0$
+ #2801"
+ DO .1 <- "^'"V'"2@.1$#16806"~"#0$#2801"'$
+ #14005"~"#0$#2801"'$'"V'"4@.1$#16806"
+ ~"#0$#2801"'$#14005"~"#0$#2801"'"~"#0$
+ #2801"
+ DO :2 <- '"?.2$#8403"~"#0$#2801"'$'"?.1$#8403"
+ ~"#0$#2801"'
+ PLEASE FORGET #3
+ DO (1728) NEXT
+ (1723) PLEASE DO (1722) NEXT
+ DO :1 <- '"^.2$.2"~"#0$#2801"'$'"^.1$.1"~"#0$
+ #2801"'
+ DO :2 <- '"?'"V'"3@.2$#16806"~"#0$#2801"'$
+ #14005"~"#0$#2801"'$#14005"~"#0$#2801"'$
+ '"?'"V'"3@.1$#16806"~"#0$#2801"'$#14005"
+ ~"#0$#2801"'$#14005"~"#0$#2801"'
+ PLEASE FORGET #4
+ DO (1728) NEXT
+ (1729) DO (1001) NEXT
+ DO (1721) NEXT
+ (1722) PLEASE DO (1001) NEXT
+ DO :2 <- :1
+ DO .2 <- #0
+ DO FORGET #3
+ (1721) PLEASE RETRIEVE :1 + :3 + :4 + .1 + .5
+ PLEASE RESUME #3
+ (1900) DO STASH .2 + .5
+ DO .1 <- #0
+ DO .2 <- #1
+ PLEASE DO (1901) NEXT
+ (1901) DO FORGET #1
+ DO %50 (1905) NEXT
+ DO %50 (1904) NEXT
+ DO %50 (1901) NEXT
+ PLEASE DO (1903) NEXT
+ (1905) DO FORGET #1
+ DO .1 <- '^.1$".2~#8403"'~'#0$#2801'
+ PLEASE DO %50 .1 <- '^.1$".2~#5602"'~'#0$#2801'
+ DO (1906) NEXT
+ (1904) DO .1 <- '^.1$.2'~'#0$#2801'
+ (1906) DO %50 .1 <- '^.1$.2'~'#0$#2801'
+ (1903) PLEASE FORGET #1
+ DO .2 <- !2$#0'~'#400$#1'
+ PLEASE DO .5 <- '^".2~.2"$#1'~#1
+ DO (1902) NEXT
+ DO (1901) NEXT
+ (1902) DO (1001) NEXT
+ DO RETRIEVE .2 + .5
+ PLEASE RESUME #2
+ (1910) PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3
+ DO .3 <- #16795
+ DO :1 <- #6
+ DO (1911) NEXT
+ PLEASE NOTE THAT YOU CAN'T GET SENSE FROM INTERCAL
+ (1912) DO (1001) NEXT
+ (1911) DO FORGET #1
+ PLEASE DO (1900) NEXT
+ DO :2 <- .1
+ DO (1500) NEXT
+ PLEASE DO :1 <- :3
+ DO .1 <- .3
+ DO (1020) NEXT
+ PLEASE DO .3 <- .1
+ DO .5 <- '?"!3~.3'~#6"$#5'~#1
+ DO (1912) NEXT
+ DO .1 <- #12
+ PLEASE DO (1050) NEXT
+ DO RETRIEVE .1
+ DO (1530) NEXT
+ DO :2 <- #8403
+ DO (1500) NEXT
+ PLEASE DO .2 <- :3~'#2793$#2744'
+ PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
+ DO RESUME #1
-ONE ONE\r
-ONE ONE\r
-ONE OH\r
-FIVE\r
-SIX\r
-SIX\r
-SIX\r
-SEVEN\r
-SIX\r
-SIX\r
-SEVEN\r
-OH\r
+ONE ONE
+ONE ONE
+ONE OH
+FIVE
+SIX
+SIX
+SIX
+SEVEN
+SIX
+SIX
+SEVEN
+OH
- DO ,1 <- #16\r
- DO :2 <- #6490$#55022\r
- PLEASE DO (44) NEXT\r
- DO :2 <- #5631$#54733\r
- PLEASE DO (44) NEXT\r
- DO :2 <- #14637$#40039\r
- PLEASE DO (44) NEXT\r
- DO :2 <- #58550$#53112\r
- PLEASE DO (44) NEXT\r
- DO .1 <- #1\r
- PLEASE DO (99) NEXT\r
- DO GIVE UP\r
-(44) DO REINSTATE COMING FROM\r
-(19) DO COME FROM (68)\r
- DO ABSTAIN FROM (19)\r
-(31) DO COME FROM (34)\r
- DO ABSTAIN FROM (31)\r
-(88) DO COME FROM (65)\r
- PLEASE ABSTAIN FROM (88)\r
- DO COME FROM (44)\r
- PLEASE DO (123) NEXT\r
- DO .3 <- ':2~"#4$#13"'\r
- DO :2 <- ':2~"#29520$#29511"'\r
- DO ,1 SUB .1 <- .3\r
-(65) DON'T GIVE UP\r
-(34) PLEASE DON'T GIVE UP\r
-(68) DO NOTE THAT THIS FUNNY CODE ACTUALLY WORKS\r
- PLEASE RESUME #1\r
-(99) DO COME FROM (69)\r
- DO READ OUT ,1\r
- DO ,1 SUB #1 <- #180\r
- DO READ OUT .1\r
- DO .2 <- "?.1$#10"~"#0$#29524"\r
- PLEASE DO (15) NEXT\r
-(69) PLEASE DO (123) NEXT\r
-(42) DO RESUME .9\r
-(123) PLEASE .8 <- #1\r
- DO COME FROM (81)\r
- DO .9 <- '?"V!1~.8'$#1"~#1'~#1\r
- DO .1 <- "^.1$.8"~"#0$#29524"\r
- PLEASE DO (42) NEXT\r
-(81) DO .8 <- !8$#0'~"#9841$#1"\r
-(15) PLEASE RESUME '?"!2~.2'~#2"$#1'~#1\r
+ DO ,1 <- #16
+ DO :2 <- #6490$#55022
+ PLEASE DO (44) NEXT
+ DO :2 <- #5631$#54733
+ PLEASE DO (44) NEXT
+ DO :2 <- #14637$#40039
+ PLEASE DO (44) NEXT
+ DO :2 <- #58550$#53112
+ PLEASE DO (44) NEXT
+ DO .1 <- #1
+ PLEASE DO (99) NEXT
+ DO GIVE UP
+(44) DO REINSTATE COMING FROM
+(19) DO COME FROM (68)
+ DO ABSTAIN FROM (19)
+(31) DO COME FROM (34)
+ DO ABSTAIN FROM (31)
+(88) DO COME FROM (65)
+ PLEASE ABSTAIN FROM (88)
+ DO COME FROM (44)
+ PLEASE DO (123) NEXT
+ DO .3 <- ':2~"#4$#13"'
+ DO :2 <- ':2~"#29520$#29511"'
+ DO ,1 SUB .1 <- .3
+(65) DON'T GIVE UP
+(34) PLEASE DON'T GIVE UP
+(68) DO NOTE THAT THIS FUNNY CODE ACTUALLY WORKS
+ PLEASE RESUME #1
+(99) DO COME FROM (69)
+ DO READ OUT ,1
+ DO ,1 SUB #1 <- #180
+ DO READ OUT .1
+ DO .2 <- "?.1$#10"~"#0$#29524"
+ PLEASE DO (15) NEXT
+(69) PLEASE DO (123) NEXT
+(42) DO RESUME .9
+(123) PLEASE .8 <- #1
+ DO COME FROM (81)
+ DO .9 <- '?"V!1~.8'$#1"~#1'~#1
+ DO .1 <- "^.1$.8"~"#0$#29524"
+ PLEASE DO (42) NEXT
+(81) DO .8 <- !8$#0'~"#9841$#1"
+(15) PLEASE RESUME '?"!2~.2'~#2"$#1'~#1
- DO .1 <- #59048\r
- DO :1 <- #59048\r
- DO WRITE IN .1 + :1\r
- DO READ OUT .1 + :1\r
- PLEASE GIVE UP\r
+ DO .1 <- #59048
+ DO :1 <- #59048
+ DO WRITE IN .1 + :1
+ DO READ OUT .1 + :1
+ PLEASE GIVE UP
- PLEASE WRITE IN .3\r
- DO .1 <- "^.3$#1"~#1\r
- DO READ OUT .1\r
- DO .1 <- "V.3$#1"~#1\r
- PLEASE DO READ OUT .1\r
- DO .1 <- "V'"&.3$#2"~#1'$#1"~#1\r
- DO READ OUT .1\r
- DO .1 <- "?'"&.3$#2"~#1'$#1"~#1\r
- PLEASE DO READ OUT .1\r
- DO .1 <- "V!3~#2'$#1"~#1\r
- DO READ OUT .1\r
- DO .1 <- "?!3~#2'$#1"~#1\r
- PLEASE DO READ OUT .1\r
- DO .1 <- "@'"^.3$#7"~#4'$#2"~#10\r
- DO READ OUT .1\r
- DO .1 <- "^.3$.3"~"#0$#29524"\r
- PLEASE DO READ OUT .1\r
- PLEASE GIVE UP\r
+ PLEASE WRITE IN .3
+ DO .1 <- "^.3$#1"~#1
+ DO READ OUT .1
+ DO .1 <- "V.3$#1"~#1
+ PLEASE DO READ OUT .1
+ DO .1 <- "V'"&.3$#2"~#1'$#1"~#1
+ DO READ OUT .1
+ DO .1 <- "?'"&.3$#2"~#1'$#1"~#1
+ PLEASE DO READ OUT .1
+ DO .1 <- "V!3~#2'$#1"~#1
+ DO READ OUT .1
+ DO .1 <- "?!3~#2'$#1"~#1
+ PLEASE DO READ OUT .1
+ DO .1 <- "@'"^.3$#7"~#4'$#2"~#10
+ DO READ OUT .1
+ DO .1 <- "^.3$.3"~"#0$#29524"
+ PLEASE DO READ OUT .1
+ PLEASE GIVE UP
- PLEASE WRITE IN .3\r
- DO .1 <- "^'"^.3$.3"~"#0$#3906"'$'"^.3$.3"~"#0$#3906"'"~"#0$#3906"\r
- PLEASE DO READ OUT .1\r
- DO .1 <- "^.3$.3"~"#0$#3906"\r
- DO .1 <- "^.1$.1"~"#0$#3906"\r
- DO READ OUT .1\r
- DO .1 <- "&.3$#1"~#1\r
- PLEASE DO READ OUT .1\r
- DO .1 <- "@.3$#1"~#1\r
- DO READ OUT .1\r
- DO .1 <- "2@.3$#1"~#1\r
- PLEASE DO READ OUT .1\r
- DO .1 <- "3@.3$#1"~#1\r
- DO READ OUT .1\r
- DO .1 <- "V.3$#1"~#1\r
- DO READ OUT .1\r
- PLEASE GIVE UP\r
+ PLEASE WRITE IN .3
+ DO .1 <- "^'"^.3$.3"~"#0$#3906"'$'"^.3$.3"~"#0$#3906"'"~"#0$#3906"
+ PLEASE DO READ OUT .1
+ DO .1 <- "^.3$.3"~"#0$#3906"
+ DO .1 <- "^.1$.1"~"#0$#3906"
+ DO READ OUT .1
+ DO .1 <- "&.3$#1"~#1
+ PLEASE DO READ OUT .1
+ DO .1 <- "@.3$#1"~#1
+ DO READ OUT .1
+ DO .1 <- "2@.3$#1"~#1
+ PLEASE DO READ OUT .1
+ DO .1 <- "3@.3$#1"~#1
+ DO READ OUT .1
+ DO .1 <- "V.3$#1"~#1
+ DO READ OUT .1
+ PLEASE GIVE UP
-(1) DO .1 <- #?6\r
- DOING DETECTION... YOU ARE USING INTERCAL-72\r
-(5) PLEASE COME FROM (1)\r
- DOING DETECTION... YOU ARE USING C-INTERCAL\r
- PLEASE COME FROM .1\r
- DOING DETECTION... YOU ARE USING CLC-INTERCAL\r
- \r
+(1) DO .1 <- #?6
+ DOING DETECTION... YOU ARE USING INTERCAL-72
+(5) PLEASE COME FROM (1)
+ DOING DETECTION... YOU ARE USING C-INTERCAL
+ PLEASE COME FROM .1
+ DOING DETECTION... YOU ARE USING CLC-INTERCAL
+
-ONE\r
-ONE TWO EIGHT\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
-ONE TWO FIVE OH OH OH OH FIVE ONE\r
-ZERO\r
+ONE
+ONE TWO EIGHT
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
+ONE TWO FIVE OH OH OH OH FIVE ONE
+ZERO
projects / intercal.git / commitdiff