From f24de098a558508d0b3b7926ec5ea24640670d13 Mon Sep 17 00:00:00 2001 From: Alex Smith Date: Mon, 16 Nov 2009 12:56:41 -0500 Subject: [PATCH] Change all CRLF newlines to just LF --- doc/READ.ME | 86 ++--- doc/THEORY.txt | 336 +++++++++--------- doc/fix83.pl | 140 ++++---- doc/fixtoc.pl | 32 +- doc/ickstyle.css | 48 +-- pit/CATALOG | 328 +++++++++--------- pit/Makefile | 294 ++++++++-------- pit/blinkers | 32 +- pit/delta.fft | 516 +++++++++++++-------------- pit/glider | 28 +- pit/gun | 180 +++++----- pit/hail_mary.3i | 76 ++-- pit/lib/syslib.3i | 646 +++++++++++++++++----------------- pit/lib/syslib.4i | 708 ++++++++++++++++++------------------- pit/lib/syslib.5i | 710 +++++++++++++++++++------------------- pit/lib/syslib.6i | 746 +++++++++++++++++++-------------------- pit/lib/syslib.7i | 804 +++++++++++++++++++++---------------------- pit/t_tet | 24 +- pit/tests/count.3i | 86 ++--- pit/tests/limits.3i | 10 +- pit/tests/testops.3i | 36 +- pit/tests/testops.5i | 34 +- pit/tests/version.4i | 14 +- pit/tophat.fft | 516 +++++++++++++-------------- 24 files changed, 3215 insertions(+), 3215 deletions(-) diff --git a/doc/READ.ME b/doc/READ.ME index 0a53649..abebbf5 100644 --- a/doc/READ.ME +++ b/doc/READ.ME @@ -1,44 +1,44 @@ -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 +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 diff --git a/doc/THEORY.txt b/doc/THEORY.txt index 9668955..f6c490e 100644 --- a/doc/THEORY.txt +++ b/doc/THEORY.txt @@ -1,168 +1,168 @@ - 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. + 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. diff --git a/doc/fix83.pl b/doc/fix83.pl index fdf774f..3d7a923 100755 --- a/doc/fix83.pl +++ b/doc/fix83.pl @@ -1,70 +1,70 @@ -#!/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, "; -close CSSFILE; - -while(<>) -{ - /^]*?).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 + +# 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, "; +close CSSFILE; + +while(<>) +{ + /^]*?).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; +} diff --git a/doc/fixtoc.pl b/doc/fixtoc.pl index 1eadd40..eda66a8 100755 --- a/doc/fixtoc.pl +++ b/doc/fixtoc.pl @@ -1,16 +1,16 @@ -#!/bin/perl -w - -# Deindent and delink part headings in the TOC, and remove the initial -# H2 entry. - -my $f=1; - -while(<>) -{ - $f and /
    / and do{$f=0; next;}; - /^
  • ]*>C-INTERCAL / and next; - s%^
  • ]*>(PART .*?)%

$1

    %; - print; - last if $_ eq "\n"; -} -while(<>) {print;} +#!/bin/perl -w + +# Deindent and delink part headings in the TOC, and remove the initial +# H2 entry. + +my $f=1; + +while(<>) +{ + $f and /
      / and do{$f=0; next;}; + /^
    • ]*>C-INTERCAL / and next; + s%^
    • ]*>(PART .*?)%

    $1

      %; + print; + last if $_ eq "\n"; +} +while(<>) {print;} diff --git a/doc/ickstyle.css b/doc/ickstyle.css index 7768fd5..a8f8128 100644 --- a/doc/ickstyle.css +++ b/doc/ickstyle.css @@ -1,24 +1,24 @@ - -/* 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;} + +/* 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;} diff --git a/pit/CATALOG b/pit/CATALOG index e5aa975..052db81 100644 --- a/pit/CATALOG +++ b/pit/CATALOG @@ -1,164 +1,164 @@ -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 - tests/sink.i Simple test program - random.i Random number program - lib/plus.i Increment .1 - -by Hans Olsson - 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 - 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 - beer.i Print out the lyrics to "99 Bottles of Beer On The Wall" - -by Stinglai Ka'abi : - random2.i Another random-number generator - -by Jacob Mandelson - rot13.i Prints ROT-13 of its input - -by Jan-Pieter Cornet - 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 - rot13b.i Another ROT-13 program - -By Brian Raiter - 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 -------------------- +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 + tests/sink.i Simple test program + random.i Random number program + lib/plus.i Increment .1 + +by Hans Olsson + 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 + 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 + beer.i Print out the lyrics to "99 Bottles of Beer On The Wall" + +by Stinglai Ka'abi : + random2.i Another random-number generator + +by Jacob Mandelson + rot13.i Prints ROT-13 of its input + +by Jan-Pieter Cornet + 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 + rot13b.i Another ROT-13 program + +By Brian Raiter + 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 +------------------- diff --git a/pit/Makefile b/pit/Makefile index e500c8c..3658fba 100644 --- a/pit/Makefile +++ b/pit/Makefile @@ -1,147 +1,147 @@ -# -# 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 +# +# 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 diff --git a/pit/blinkers b/pit/blinkers index b1ea1fc..8707fc3 100644 --- a/pit/blinkers +++ b/pit/blinkers @@ -1,16 +1,16 @@ -NINE -FIVE -THREE -TWO -THREE -THREE -THREE -FOUR -THREE -SIX -THREE -SEVEN -THREE -EIGHT -THREE -ZERO +NINE +FIVE +THREE +TWO +THREE +THREE +THREE +FOUR +THREE +SIX +THREE +SEVEN +THREE +EIGHT +THREE +ZERO diff --git a/pit/delta.fft b/pit/delta.fft index d3c2c88..43eac5c 100644 --- a/pit/delta.fft +++ b/pit/delta.fft @@ -1,258 +1,258 @@ -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 +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 diff --git a/pit/glider b/pit/glider index e619f6f..69baa28 100644 --- a/pit/glider +++ b/pit/glider @@ -1,14 +1,14 @@ -NINE -NINE -ZERO -TWO -FOUR -THREE -FOUR -FOUR -FOUR -FOUR -THREE -THREE -TWO -OH +NINE +NINE +ZERO +TWO +FOUR +THREE +FOUR +FOUR +FOUR +FOUR +THREE +THREE +TWO +OH diff --git a/pit/gun b/pit/gun index 3317c69..7c4c0b7 100644 --- a/pit/gun +++ b/pit/gun @@ -1,90 +1,90 @@ -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 +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 diff --git a/pit/hail_mary.3i b/pit/hail_mary.3i index 88a5931..6710c4d 100644 --- a/pit/hail_mary.3i +++ b/pit/hail_mary.3i @@ -1,38 +1,38 @@ - - 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 + + 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 diff --git a/pit/lib/syslib.3i b/pit/lib/syslib.3i index 44b3ba9..fd1ea3c 100644 --- a/pit/lib/syslib.3i +++ b/pit/lib/syslib.3i @@ -1,323 +1,323 @@ - 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 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 diff --git a/pit/lib/syslib.4i b/pit/lib/syslib.4i index 1710a1f..d1c1084 100644 --- a/pit/lib/syslib.4i +++ b/pit/lib/syslib.4i @@ -1,354 +1,354 @@ - 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 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 diff --git a/pit/lib/syslib.5i b/pit/lib/syslib.5i index c768250..518b7cd 100644 --- a/pit/lib/syslib.5i +++ b/pit/lib/syslib.5i @@ -1,355 +1,355 @@ - 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 "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 diff --git a/pit/lib/syslib.6i b/pit/lib/syslib.6i index 43e5f52..156a59f 100644 --- a/pit/lib/syslib.6i +++ b/pit/lib/syslib.6i @@ -1,373 +1,373 @@ - 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 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 diff --git a/pit/lib/syslib.7i b/pit/lib/syslib.7i index ea218e0..1d51a1a 100644 --- a/pit/lib/syslib.7i +++ b/pit/lib/syslib.7i @@ -1,402 +1,402 @@ - 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 + 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 diff --git a/pit/t_tet b/pit/t_tet index 25339f4..54106e6 100644 --- a/pit/t_tet +++ b/pit/t_tet @@ -1,12 +1,12 @@ -ONE ONE -ONE ONE -ONE OH -FIVE -SIX -SIX -SIX -SEVEN -SIX -SIX -SEVEN -OH +ONE ONE +ONE ONE +ONE OH +FIVE +SIX +SIX +SIX +SEVEN +SIX +SIX +SEVEN +OH diff --git a/pit/tests/count.3i b/pit/tests/count.3i index 2d2225e..9988329 100644 --- a/pit/tests/count.3i +++ b/pit/tests/count.3i @@ -1,43 +1,43 @@ - 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 <- #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 diff --git a/pit/tests/limits.3i b/pit/tests/limits.3i index 6293447..0c62541 100644 --- a/pit/tests/limits.3i +++ b/pit/tests/limits.3i @@ -1,5 +1,5 @@ - DO .1 <- #59048 - DO :1 <- #59048 - DO WRITE IN .1 + :1 - DO READ OUT .1 + :1 - PLEASE GIVE UP + DO .1 <- #59048 + DO :1 <- #59048 + DO WRITE IN .1 + :1 + DO READ OUT .1 + :1 + PLEASE GIVE UP diff --git a/pit/tests/testops.3i b/pit/tests/testops.3i index f540881..ca109ff 100644 --- a/pit/tests/testops.3i +++ b/pit/tests/testops.3i @@ -1,18 +1,18 @@ - 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 + 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 diff --git a/pit/tests/testops.5i b/pit/tests/testops.5i index 5669467..c00ed20 100644 --- a/pit/tests/testops.5i +++ b/pit/tests/testops.5i @@ -1,17 +1,17 @@ - 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 + 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 diff --git a/pit/tests/version.4i b/pit/tests/version.4i index fd19d0a..f18b9bc 100644 --- a/pit/tests/version.4i +++ b/pit/tests/version.4i @@ -1,7 +1,7 @@ -(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 - +(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 + diff --git a/pit/tophat.fft b/pit/tophat.fft index d4c4170..453a687 100644 --- a/pit/tophat.fft +++ b/pit/tophat.fft @@ -1,258 +1,258 @@ -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 +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 -- 2.43.0