]> thyrsus.com Git - intercal.git/commitdiff
Rename base 3-7 system libraries to be unique without extension.
authorEric S. Raymond <esr@thyrsus.com>
Thu, 26 Aug 2010 08:40:48 +0000 (04:40 -0400)
committerEric S. Raymond <esr@thyrsus.com>
Thu, 26 Aug 2010 08:40:48 +0000 (04:40 -0400)
This eliminates the need for some ugly special-casing in the test system.

18 files changed:
.gitignore
README
buildaux/Makefile.am
buildaux/Makefile.in
doc/ick.txi
pit/CATALOG
pit/Makefile
pit/lib/syslib.3i [deleted file]
pit/lib/syslib.4i [deleted file]
pit/lib/syslib.5i [deleted file]
pit/lib/syslib.6i [deleted file]
pit/lib/syslib.7i [deleted file]
pit/lib/syslib3.3i [new file with mode: 0644]
pit/lib/syslib4.4i [new file with mode: 0644]
pit/lib/syslib5.5i [new file with mode: 0644]
pit/lib/syslib6.6i [new file with mode: 0644]
pit/lib/syslib7.7i [new file with mode: 0644]
src/perpet.c

index e5a3006210b08c685d658f3783a37a114e284cb1..0552c624440500ce63b6b81689c147126301b945 100644 (file)
@@ -18,12 +18,12 @@ oil
 # C source files and includes in the top directory were copied there, ignore
 *.[chyl]
 # So were any copies of the INTERCAL libraries we might find here
-syslib.3i
-syslib.4i
-syslib.5i
-syslib.6i
-syslib.7i
 syslib.i
+syslib3.3i
+syslib4.4i
+syslib5.5i
+syslib6.6i
+syslib7.7i
 # Other generated stuff
 doc/*info*
 doc/*.htm
diff --git a/README b/README
index 4dcade92035713c434d9f232a222b07413bdc957..7ad34b1a4da26bffd3a8b1361a61bb9daa98853c 100644 (file)
--- a/README
+++ b/README
@@ -97,7 +97,7 @@ aclocal.m4              -- helper file needed to build the build system itself
 
 pit/*                   -- sample INTERCAL code; see pit/CATALOG
 pit/explib/*            -- source code for expansion libraries
-pit/lib/syslib.*i       -- source code for the system libraries
+pit/lib/syslib*.*i      -- source code for the system libraries
 
                               HOW TO GET STARTED
 
index dbeae4929000fc63432806b1f86e846af166f49b..2a5ca7ea12a388b042d217d22b25ffc116fca526 100644 (file)
@@ -22,16 +22,16 @@ pickwrap.c : src/pickwrap.c
        $(LN_S) `test -f 'src/pickwrap.c' || echo '$(srcdir)/'`src/pickwrap.c pickwrap.c
 syslib.i : pit/lib/syslib.i
        $(LN_S) `test -f 'pit/lib/syslib.i' || echo '$(srcdir)/'`pit/lib/syslib.i syslib.i
-syslib.3i : pit/lib/syslib.3i
-       $(LN_S) `test -f 'pit/lib/syslib.3i' || echo '$(srcdir)/'`pit/lib/syslib.3i syslib.3i
-syslib.4i : pit/lib/syslib.4i
-       $(LN_S) `test -f 'pit/lib/syslib.4i' || echo '$(srcdir)/'`pit/lib/syslib.4i syslib.4i
-syslib.5i : pit/lib/syslib.5i
-       $(LN_S) `test -f 'pit/lib/syslib.5i' || echo '$(srcdir)/'`pit/lib/syslib.5i syslib.5i
-syslib.6i : pit/lib/syslib.6i
-       $(LN_S) `test -f 'pit/lib/syslib.6i' || echo '$(srcdir)/'`pit/lib/syslib.6i syslib.6i
-syslib.7i : pit/lib/syslib.7i
-       $(LN_S) `test -f 'pit/lib/syslib.7i' || echo '$(srcdir)/'`pit/lib/syslib.7i syslib.7i
+syslib3.3i : pit/lib/syslib3.3i
+       $(LN_S) `test -f 'pit/lib/syslib.3i' || echo '$(srcdir)/'`pit/lib/syslib3.3i syslib3.3i
+syslib4.4i : pit/lib/syslib4.4i
+       $(LN_S) `test -f 'pit/lib/syslib.4i' || echo '$(srcdir)/'`pit/lib/syslib4.4i syslib4.4i
+syslib5.5i : pit/lib/syslib5.5i
+       $(LN_S) `test -f 'pit/lib/syslib.5i' || echo '$(srcdir)/'`pit/lib/syslib5.5i syslib5.5i
+syslib6.6i : pit/lib/syslib6.6i
+       $(LN_S) `test -f 'pit/lib/syslib.6i' || echo '$(srcdir)/'`pit/lib/syslib6.6i syslib6.6i
+syslib7.7i : pit/lib/syslib7.7i
+       $(LN_S) `test -f 'pit/lib/syslib.7i' || echo '$(srcdir)/'`pit/lib/syslib7.7i syslib7.7i
 ick_ec.h : src/ick_ec.h
        $(LN_S) `test -f 'src/ick_ec.h' || echo '$(srcdir)/'`src/ick_ec.h ick_ec.h
 ick_lose.h : src/ick_lose.h
@@ -47,8 +47,8 @@ AM_YFLAGS = -d
 # BUILT_SOURCES is used both to make sure parser.h is built early, and to
 # create symlinks used by ick to find files if it's run without first being
 # installed.
-BUILT_SOURCES = parser.h ick-wrap.c pickwrap.c syslib.i syslib.3i syslib.4i \
-                syslib.5i syslib.6i syslib.7i ick_ec.h fiddle.h abcess.h \
+BUILT_SOURCES = parser.h ick-wrap.c pickwrap.c syslib.i syslib3.3i syslib4.4i \
+                syslib5.5i syslib6.6i syslib7.7i ick_ec.h fiddle.h abcess.h \
                 ick_lose.h yuk.h
 noinst_LIBRARIES = libidiot.a
 libidiot_a_SOURCES = src/idiotism.oil
@@ -107,8 +107,8 @@ dist_ickdata_DATA = src/atari.bin src/baudot.bin src/ebcdic.bin src/latin1.bin \
                     src/ick-wrap.c src/pickwrap.c COPYING
 # These necessary pit files are in nodist_ here because they're in EXTRA_DIST
 # later along with the rest of the pit.
-nodist_ickdata_DATA = pit/lib/syslib.i pit/lib/syslib.3i pit/lib/syslib.4i \
-                      pit/lib/syslib.5i pit/lib/syslib.6i pit/lib/syslib.7i \
+nodist_ickdata_DATA = pit/lib/syslib.i pit/lib/syslib3.3i pit/lib/syslib4.4i \
+                      pit/lib/syslib5.5i pit/lib/syslib6.6i pit/lib/syslib7.7i \
                       coopt.sh pit/explib/syslibc.c pit/explib/compunex.c \
                       pit/explib/ecto_b98.c
 dist_man1_MANS = doc/ick.1 doc/convickt.1
@@ -154,8 +154,8 @@ $(srcdir)/MANIFEST: distdir
 # links made to simplify the build, not the originals
 CLEANFILES = oilout*.c parser.y lexer.l ick-wrap.c pickwrap.c \
              atari.c baudot.c ebcdic.c latin1.c ick.dvi \
-             syslib.i syslib.3i syslib.4i syslib.5i \
-             syslib.6i syslib.7i ick_ec.h fiddle.h abcess.h \
+             syslib.i syslib3.3i syslib4.4i syslib5.5i \
+             syslib6.6i syslib7.7i ick_ec.h fiddle.h abcess.h \
              ick_lose.h yuk.h
 # Distclean deletes the Makefile and thus requires reconfiguring,
 # and therefore this is a safe moment to delete the build tree
index 109d75a332af274d7576bb4b39095f3f7f663c92..f12ef9dc08e1813492ad9f7a63a4436c771ce647 100644 (file)
@@ -1,4 +1,4 @@
-# Makefile.in generated by automake 1.11 from Makefile.am.
+# Makefile.in generated by automake 1.11.1 from Makefile.am.
 # @configure_input@
 
 # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
@@ -295,8 +295,8 @@ AM_YFLAGS = -d
 # BUILT_SOURCES is used both to make sure parser.h is built early, and to
 # create symlinks used by ick to find files if it's run without first being
 # installed.
-BUILT_SOURCES = parser.h ick-wrap.c pickwrap.c syslib.i syslib.3i syslib.4i \
-                syslib.5i syslib.6i syslib.7i ick_ec.h fiddle.h abcess.h \
+BUILT_SOURCES = parser.h ick-wrap.c pickwrap.c syslib.i syslib3.3i syslib4.4i \
+                syslib5.5i syslib6.6i syslib7.7i ick_ec.h fiddle.h abcess.h \
                 ick_lose.h yuk.h
 
 noinst_LIBRARIES = libidiot.a
@@ -331,8 +331,8 @@ dist_ickdata_DATA = src/atari.bin src/baudot.bin src/ebcdic.bin src/latin1.bin \
 
 # These necessary pit files are in nodist_ here because they're in EXTRA_DIST
 # later along with the rest of the pit.
-nodist_ickdata_DATA = pit/lib/syslib.i pit/lib/syslib.3i pit/lib/syslib.4i \
-                      pit/lib/syslib.5i pit/lib/syslib.6i pit/lib/syslib.7i \
+nodist_ickdata_DATA = pit/lib/syslib.i pit/lib/syslib3.3i pit/lib/syslib4.4i \
+                      pit/lib/syslib5.5i pit/lib/syslib6.6i pit/lib/syslib7.7i \
                       coopt.sh pit/explib/syslibc.c pit/explib/compunex.c \
                       pit/explib/ecto_b98.c
 
@@ -354,8 +354,8 @@ EXTRA_DIST = pit etc BUGS src/abcess.h src/feh.h src/fiddle.h src/ick_ec.h \
 # links made to simplify the build, not the originals
 CLEANFILES = oilout*.c parser.y lexer.l ick-wrap.c pickwrap.c \
              atari.c baudot.c ebcdic.c latin1.c ick.dvi \
-             syslib.i syslib.3i syslib.4i syslib.5i \
-             syslib.6i syslib.7i ick_ec.h fiddle.h abcess.h \
+             syslib.i syslib3.3i syslib4.4i syslib5.5i \
+             syslib6.6i syslib7.7i ick_ec.h fiddle.h abcess.h \
              ick_lose.h yuk.h
 
 # Distclean deletes the Makefile and thus requires reconfiguring,
@@ -1159,7 +1159,8 @@ distdir: $(DISTFILES)
          top_distdir="$(top_distdir)" distdir="$(distdir)" \
          dist-info dist-hook
        -test -n "$(am__skip_mode_fix)" \
-       || find "$(distdir)" -type d ! -perm -777 -exec chmod a+rwx {} \; -o \
+       || find "$(distdir)" -type d ! -perm -755 \
+               -exec chmod u+rwx,go+rx {} \; -o \
          ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \
          ! -type d ! -perm -400 -exec chmod a+r {} \; -o \
          ! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \
@@ -1203,17 +1204,17 @@ dist dist-all: distdir
 distcheck: dist
        case '$(DIST_ARCHIVES)' in \
        *.tar.gz*) \
-         GZIP=$(GZIP_ENV) gunzip -c $(distdir).tar.gz | $(am__untar) ;;\
+         GZIP=$(GZIP_ENV) gzip -dc $(distdir).tar.gz | $(am__untar) ;;\
        *.tar.bz2*) \
-         bunzip2 -c $(distdir).tar.bz2 | $(am__untar) ;;\
+         bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\
        *.tar.lzma*) \
-         unlzma -c $(distdir).tar.lzma | $(am__untar) ;;\
+         lzma -dc $(distdir).tar.lzma | $(am__untar) ;;\
        *.tar.xz*) \
          xz -dc $(distdir).tar.xz | $(am__untar) ;;\
        *.tar.Z*) \
          uncompress -c $(distdir).tar.Z | $(am__untar) ;;\
        *.shar.gz*) \
-         GZIP=$(GZIP_ENV) gunzip -c $(distdir).shar.gz | unshar ;;\
+         GZIP=$(GZIP_ENV) gzip -dc $(distdir).shar.gz | unshar ;;\
        *.zip*) \
          unzip $(distdir).zip ;;\
        esac
@@ -1515,16 +1516,16 @@ pickwrap.c : src/pickwrap.c
        $(LN_S) `test -f 'src/pickwrap.c' || echo '$(srcdir)/'`src/pickwrap.c pickwrap.c
 syslib.i : pit/lib/syslib.i
        $(LN_S) `test -f 'pit/lib/syslib.i' || echo '$(srcdir)/'`pit/lib/syslib.i syslib.i
-syslib.3i : pit/lib/syslib.3i
-       $(LN_S) `test -f 'pit/lib/syslib.3i' || echo '$(srcdir)/'`pit/lib/syslib.3i syslib.3i
-syslib.4i : pit/lib/syslib.4i
-       $(LN_S) `test -f 'pit/lib/syslib.4i' || echo '$(srcdir)/'`pit/lib/syslib.4i syslib.4i
-syslib.5i : pit/lib/syslib.5i
-       $(LN_S) `test -f 'pit/lib/syslib.5i' || echo '$(srcdir)/'`pit/lib/syslib.5i syslib.5i
-syslib.6i : pit/lib/syslib.6i
-       $(LN_S) `test -f 'pit/lib/syslib.6i' || echo '$(srcdir)/'`pit/lib/syslib.6i syslib.6i
-syslib.7i : pit/lib/syslib.7i
-       $(LN_S) `test -f 'pit/lib/syslib.7i' || echo '$(srcdir)/'`pit/lib/syslib.7i syslib.7i
+syslib3.3i : pit/lib/syslib3.3i
+       $(LN_S) `test -f 'pit/lib/syslib.3i' || echo '$(srcdir)/'`pit/lib/syslib3.3i syslib3.3i
+syslib4.4i : pit/lib/syslib4.4i
+       $(LN_S) `test -f 'pit/lib/syslib.4i' || echo '$(srcdir)/'`pit/lib/syslib4.4i syslib4.4i
+syslib5.5i : pit/lib/syslib5.5i
+       $(LN_S) `test -f 'pit/lib/syslib.5i' || echo '$(srcdir)/'`pit/lib/syslib5.5i syslib5.5i
+syslib6.6i : pit/lib/syslib6.6i
+       $(LN_S) `test -f 'pit/lib/syslib.6i' || echo '$(srcdir)/'`pit/lib/syslib6.6i syslib6.6i
+syslib7.7i : pit/lib/syslib7.7i
+       $(LN_S) `test -f 'pit/lib/syslib.7i' || echo '$(srcdir)/'`pit/lib/syslib7.7i syslib7.7i
 ick_ec.h : src/ick_ec.h
        $(LN_S) `test -f 'src/ick_ec.h' || echo '$(srcdir)/'`src/ick_ec.h ick_ec.h
 ick_lose.h : src/ick_lose.h
index 528291f43177c7f2e4e3bb8985cc29c5350742cf..a412094c8b134fd4eda9d1512e2124b6b4359146 100644 (file)
@@ -3784,7 +3784,8 @@ expression.)
 
 @portability{yes, all versions, no, all versions}
 
-@ical{} has a system library, called @samp{syslib}.  It is included
+@ical{} has a system library, called @samp{syslib} (versions for bases
+other than 2 will have a numeric suffix on the name).  It is included
 automatically at the end of your program by the compiler whenever your
 program refers to a line from (1000) to (1999) without defining any
 line in that range in the program.  (Although it is not added
@@ -3814,7 +3815,7 @@ aiming at them.
 The system library is currently available in all bases from 2 to 7
 (@pxref{TriINTERCAL}), but not every command is available in every
 base, and @cic{} is the only one of the three compilers listed above
-that use the system library to ship with a version in bases other than
+that has the system library to ship with a version in bases other than
 2.  (This table was originally based on the @icst{} manual, but has
 had extra information added for bases other than 2.) Here, ``overflow
 checked'' means that #1 is assigned to .4 if there is not an overflow,
index 2e8a95effbf6e663b1847bdc37da9ded0a637e1e..68e719e1e0d6b3e2db9f2fc54f358e98040a7072 100644 (file)
@@ -74,11 +74,11 @@ by Clemens Meier <clmeier@lili.uni-bielefeld.de>
 By Brian Raiter <breadbox@muppetlabs.com>
   lib/numio.i      I/O routines
   lib/numio.doc            Description of the I/O routines
-  lib/syslib.3i
-  lib/syslib.4i
-  lib/syslib.5i
-  lib/syslib.6i     Translations of the standard library to
-  lib/syslib.7i     C-INTERCAL's other bases.
+  lib/syslib3.3i
+  lib/syslib4.4i
+  lib/syslib5.5i
+  lib/syslib6.6i    Translations of the standard library to
+  lib/syslib7.7i    C-INTERCAL's other bases.
   lib/syslib3-7.doc Documentation for same
   tests/hello.i     + The traditional hello world program
   ins.i             Intersections & Splats, a Mastermind-style game
index 322304043a85e0f948a112e11b9df3537d11319c..4313581511d2c8921009c37c037504f37a9c4927 100644 (file)
@@ -101,26 +101,6 @@ test: $(TARGETS)
 tests/permute: tests/permute.i
        $(ICK) -m tests/permute.i
 
-./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
@@ -137,5 +117,5 @@ lines:
        wc -l $(SOURCES)
 
 clean:
-       rm -f $(TARGETS) *.c *.o *~ lib/syslib?.?i 
+       rm -f $(TARGETS) *.c *.o *~
        rm tests/limits3.3i tests/testops3.3i tests/testops5.5i
diff --git a/pit/lib/syslib.3i b/pit/lib/syslib.3i
deleted file mode 100644 (file)
index fd1ea3c..0000000
+++ /dev/null
@@ -1,323 +0,0 @@
-               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
deleted file mode 100644 (file)
index d1c1084..0000000
+++ /dev/null
@@ -1,354 +0,0 @@
-               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
deleted file mode 100644 (file)
index 518b7cd..0000000
+++ /dev/null
@@ -1,355 +0,0 @@
-               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
deleted file mode 100644 (file)
index 156a59f..0000000
+++ /dev/null
@@ -1,373 +0,0 @@
-               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
deleted file mode 100644 (file)
index 1d51a1a..0000000
+++ /dev/null
@@ -1,402 +0,0 @@
-               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/lib/syslib3.3i b/pit/lib/syslib3.3i
new file mode 100644 (file)
index 0000000..fd1ea3c
--- /dev/null
@@ -0,0 +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
diff --git a/pit/lib/syslib4.4i b/pit/lib/syslib4.4i
new file mode 100644 (file)
index 0000000..d1c1084
--- /dev/null
@@ -0,0 +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
diff --git a/pit/lib/syslib5.5i b/pit/lib/syslib5.5i
new file mode 100644 (file)
index 0000000..518b7cd
--- /dev/null
@@ -0,0 +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
diff --git a/pit/lib/syslib6.6i b/pit/lib/syslib6.6i
new file mode 100644 (file)
index 0000000..156a59f
--- /dev/null
@@ -0,0 +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
diff --git a/pit/lib/syslib7.7i b/pit/lib/syslib7.7i
new file mode 100644 (file)
index 0000000..1d51a1a
--- /dev/null
@@ -0,0 +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
index 0cb35dfa509b0cc1c243dd4529828fea38e1b97e..9d2d2e165552efbefc665fe06af837159dc1b3aa 100644 (file)
@@ -656,7 +656,7 @@ static void check_syslib(/*@partial@*/ char *buffer,
     if (ick_Base == 2)    /* see code for opening the skeleton */
       (void) ick_snprintf_or_die(buffer, size, "%s.i", SYSLIB);
     else
-      (void) ick_snprintf_or_die(buffer, size, "%s.%di", SYSLIB, ick_Base);
+      (void) ick_snprintf_or_die(buffer, size, "%s%d.%di", SYSLIB, ick_Base, ick_Base);
     if (ick_findandfreopen(buffer, ick_datadir, "r", argv0, stdin) == NULL)
       ick_lose(IE127, 1, (const char*) NULL);
 #ifdef USE_YYRESTART