]> github.com/historicalsource and other repositories - beyondzork.git/commitdiff
Revision 57
authorhistoricalsource <historicalsoftware@textfiles.com>
Sun, 14 Apr 2019 04:48:40 +0000 (00:48 -0400)
committerhistoricalsource <historicalsoftware@textfiles.com>
Sun, 14 Apr 2019 04:48:40 +0000 (00:48 -0400)
13 files changed:
beyond.zil [new file with mode: 0644]
bz.chart [new file with mode: 0644]
bzalpha.zip [new file with mode: 0644]
bzbeta.zip [new file with mode: 0644]
constants.zil
macros.zil
misc.zil
places.zil
rarities.zil
things.zil
verbs.zil
z.zil
z.zip [new file with mode: 0644]

diff --git a/beyond.zil b/beyond.zil
new file mode 100644 (file)
index 0000000..37e123a
--- /dev/null
@@ -0,0 +1,43 @@
+"Z for BEYOND ZORK:
+ Copyright (C)1987 Infocom, Inc. All Rights Reserved."
+
+<PRINC "
+Beyond ZORK: The Coconut of Quendor
+">
+
+<VERSION XZIP>
+<FREQUENT-WORDS?>
+
+<SETG DISPLAY-OPS? T>
+<SETG USE-UNDO? T>
+
+<ORDER-OBJECTS? ROOMS-FIRST>
+
+ON!-INITIAL    "For DEBUGR."
+OFF!-INITIAL
+ENABLE!-INITIAL
+DISABLE!-INITIAL
+
+<SET REDEFINE T>
+
+<PUTPROP DIRECTIONS PROPSPEC!-IZILCH>
+
+<DIRECTIONS NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
+
+<INSERT-FILE "CONSTANTS" T>
+<INSERT-FILE "MACROS" T>
+<INSERT-FILE "SYNTAX" T>
+<INSERT-FILE "MISC" T>
+<INSERT-FILE "PARSER" T>
+<INSERT-FILE "VERBS" T>
+<INSERT-FILE "EVENTS" T>
+<INSERT-FILE "PEOPLE" T>
+<INSERT-FILE "MONSTERS" T>
+<INSERT-FILE "PLACES" T>
+<INSERT-FILE "THINGS" T>
+<INSERT-FILE "RARITIES" T>
+
+<PROPDEF SIZE 0>
+<PROPDEF CAPACITY 0>
+
+
diff --git a/bz.chart b/bz.chart
new file mode 100644 (file)
index 0000000..4518788
--- /dev/null
+++ b/bz.chart
@@ -0,0 +1,1492 @@
+BEYOND ZORK Compilation History
+
+-date-  -rel-  -size-  -pre-   -obj-   -glo-   -voc-
+ 9/11     0    47318   18178   40      117     764
+ 9/11     1    47318   18178   40      117     764
+ 9/11     2    45250   18109   39      113     764
+ 9/11     3    45138   18130   39      113     765
+ 9/11     4    45146   18130   39      113     765
+ 9/15     5    45018   17998   39      113     759
+ 9/15     6    45050   18031   40      113     759
+ 9/15     7    45166   18148   42      113     764
+ 9/15     8    45168   18150   42      113     764
+ 9/15     9    45184   18153   42      113     764
+ 9/15     0    45180   18153   42      113     764
+ 9/15     1    45188   18153   42      113     764
+ 9/15     2    45196   18153   42      113     764
+ 9/15     3    49892   22712   91      114     764
+ 9/15     0    49892   22712   91      114     764
+ 9/16     1    49680   22502   91      114     764
+ 9/17     2    48788   20835   91      117     765
+ 9/17     0    48804   20851   91      117     765
+ 9/17     1    48812   20851   91      117     765
+ 9/17     2    48960   20853   91      118     765
+ 9/17     3    49216   20855   91      119     765
+ 9/17     4    49216   20855   91      119     765
+ 9/17     5    49336   20855   91      119     765
+ 9/17     6    49452   20855   91      119     765
+ 9/18     7    49604   20957   91      120     765
+ 9/18     0    49600   20957   91      120     765
+ 9/18     1    49608   20957   91      120     765
+ 9/18     2    49968   20981   91      120     766
+ 9/18     0    49936   20981   91      120     766
+ 9/18     1    50084   20981   91      120     766
+ 9/18     0    50052   20981   91      120     766
+ 9/18     1    49924   20844   91      122     766
+ 9/18     2    49884   20844   91      122     766
+ 9/18     3    49888   20844   91      122     766
+ 9/18     0    49892   20844   91      122     766
+ 9/18     0    49892   20844   91      122     766
+ 9/18     1    49880   20844   91      122     766
+ 9/18     0    49880   20844   91      122     766
+ 9/19     1    50056   20846   91      123     766
+ 9/19     2    50056   20846   91      123     766
+ 9/19     3    50104   20846   91      123     766
+ 9/19     0    50104   20846   91      123     766
+ 9/19     1    50108   20846   91      123     766
+ 9/22     2    50256   20850   91      125     766
+ 9/22     3    50208   20850   91      125     766
+ 9/22     4    50268   20850   91      125     766
+ 9/22     1    50400   20850   91      125     766
+ 9/22     2    50536   20948   91      125     766
+ 9/22     3    50624   20948   91      125     766
+ 9/23     4    50704   20948   91      125     766
+ 9/23     5    50628   20946   91      124     766
+ 9/23     0    50624   20946   91      124     766
+ 9/23     1    50660   20946   91      124     766
+ 9/23     2    50676   20948   91      125     766
+ 9/24     3    51008   20950   91      126     766
+ 9/24     0    51012   20950   91      126     766
+ 9/24     0    51016   20950   91      126     766
+ 9/24     1    51044   20950   91      126     766
+ 9/24     0    51048   20950   91      126     766
+ 9/24     0    51052   20950   91      126     766
+ 9/25     1    50260   20290   91      126     766
+ 9/25     0    50268   20290   91      126     766
+ 9/29     1    50012   20208   91      126     766
+10/02     2    50484   20296   91      131     767
+10/02     3    50824   20323   91      131     767
+10/02     4    50824   20323   91      131     767
+10/02     5    50816   20323   91      131     767
+10/02     0    50812   20323   91      131     767
+10/02     0    50812   20323   91      131     767
+10/02     0    50808   20323   91      131     767
+10/02     0    50812   20323   91      131     767
+10/02     0    50812   20323   91      131     767
+10/02     1    50852   20323   91      131     767
+10/03     2    50864   20323   91      131     767
+10/03     3    50864   20323   91      131     767
+10/06     4    50692   20323   91      131     767
+10/06     5    50924   20437   92      131     768
+10/06     6    50952   20483   93      130     768
+10/06     7    52236   21764   113     130     768
+10/06     8    52296   21826   114     130     768
+10/07     9    53364   22104   114     132     769
+10/07     10   53680   22104   114     132     769
+10/07     11   53584   21999   114     132     769
+10/07     0    53584   21999   114     132     769
+10/07     0    53588   21999   114     132     769
+10/08     1    47260   18682   65      119     768
+10/08     2    46820   18634   65      119     766
+10/09     3    47196   18647   64      125     766
+10/09     0    47196   18647   64      125     766
+10/09     0    47196   18647   64      125     766
+10/09     1    47216   18647   64      125     766
+10/09     2    47208   18647   64      125     766
+10/09     3    47252   18647   64      125     766
+10/10     0    47252   18647   64      125     766
+10/10     1    47116   18656   64      125     766
+10/10     2    47216   18652   64      123     766
+10/10     3    47236   18652   64      123     766
+10/13     4    45596   18652   64      123     766
+10/13     0    46288   18652   64      123     766
+10/13     1    45320   18652   64      123     766
+10/13     2    45320   18652   64      123     766
+10/13     3    45328   18659   64      123     766
+10/13     0    45328   18659   64      123     766
+10/13     1    45336   18659   64      123     766
+10/13     0    45328   18659   64      123     766
+10/13     1    45428   18685   64      124     767
+10/14     2    45508   18685   64      124     767
+10/14     0    45508   18685   64      124     767
+10/14     0    45508   18685   64      124     767
+10/14     1    45508   18685   64      124     767
+10/14     0    45508   18685   64      124     767
+10/14     0    45508   18685   64      124     767
+10/14     0    45508   18685   64      124     767
+10/15     1    46224   19273   64      126     768
+10/15     2    46232   19273   64      126     768
+10/15     3    46404   19252   64      126     767
+10/15     4    46476   19252   64      126     767
+10/15     5    46528   19276   64      126     768
+10/15     0    46524   19276   64      126     768
+10/15     0    46524   19276   64      126     768
+10/15     1    46548   19276   64      126     768
+10/15     0    46548   19276   64      126     768
+10/15     1    46836   19276   64      126     768
+10/15     2    46516   19276   64      126     768
+10/15     0    46512   19276   64      126     768
+10/15     1    46512   19276   64      126     768
+10/15     2    46512   19276   64      126     768
+10/15     3    46532   19276   64      126     768
+10/15     4    46540   19276   64      126     768
+10/15     0    46540   19276   64      126     768
+10/15     1    46532   19276   64      126     768
+10/15     2    46552   19276   64      126     768
+10/15     3    46528   19276   64      126     768
+10/15     4    46520   19276   64      126     768
+10/16     5    46184   19181   64      125     763
+10/16     6    46308   19181   64      125     763
+10/16     7    46288   19181   64      125     763
+10/16     0    46292   19181   64      125     763
+10/16     1    46356   19185   64      127     763
+10/16     2    46360   19185   64      127     763
+10/17     3    46368   19185   64      127     763
+10/17     4    46380   19185   64      127     763
+10/17     0    46380   19185   64      127     763
+10/17     1    46400   19185   64      127     763
+10/17     2    46432   19200   64      127     763
+10/17     3    46436   19200   64      127     763
+10/17     0    46436   19200   64      127     763
+10/17     1    46444   19209   64      127     763
+10/20     2    46468   19211   64      128     763
+10/20     0    46468   19211   64      128     763
+10/20     0    46468   19211   64      128     763
+10/20     1    46460   19211   64      128     763
+10/20     2    46476   19212   64      128     763
+10/20     3    47624   19582   65      131     779
+10/20     4    47692   19652   65      130     779
+10/20     5    47708   19652   65      130     779
+10/21     6    47828   19652   65      130     779
+10/21     0    47828   19652   65      130     779
+10/21     1    47824   19652   65      130     779
+10/21     0    47820   19652   65      130     779
+10/21     0    47820   19652   65      130     779
+10/21     1    47836   19652   65      130     779
+10/21     1    47836   19652   65      130     779
+10/22     2    47832   19652   65      130     779
+10/22     0    47832   19652   65      130     779
+10/22     1    47824   19652   65      130     779
+10/22     0    47832   19652   65      130     779
+10/22     1    47852   19672   65      130     779
+10/22     2    48036   19833   63      132     779
+10/22     0    48032   19833   63      132     779
+10/22     0    48032   19833   63      132     779
+10/22     0    48032   19833   63      132     779
+10/22     1    48172   19859   63      132     779
+10/23     2    48296   19859   63      132     779
+10/23     0    48296   19859   63      132     779
+10/23     1    48300   19850   63      132     779
+10/23     0    48296   19850   63      132     779
+10/23     1    48296   19850   63      132     779
+10/23     2    48296   19850   63      132     779
+10/23     3    48292   19850   63      132     779
+10/23     4    48292   19850   63      132     779
+10/23     5    48292   19850   63      132     779
+10/23     6    47900   19659   63      130     779
+10/23     7    48044   19675   64      130     779
+10/23     8    48100   19677   64      131     779
+10/23     9    48108   19677   64      131     779
+10/23     10   48112   19677   64      131     779
+10/24     11   49368   20778   67      133     781
+10/24     0    49368   20778   67      133     781
+10/24     1    49852   21032   72      133     790
+10/24     2    49852   21032   72      133     790
+10/24     3    49920   21032   72      133     790
+10/24     4    49936   21034   72      134     790
+10/24     5    49936   21034   72      134     790
+10/24     6    49984   21034   72      134     790
+10/27     7    50256   21072   72      136     793
+10/27     8    50292   21088   72      137     793
+10/27     9    50468   21092   72      137     793
+10/27     10   50468   21092   72      137     793
+10/27     11   50440   21092   72      137     793
+10/27     12   50448   21092   72      137     793
+10/27     13   50448   21092   72      137     793
+10/28     14   50448   21092   72      137     793
+10/28     15   50420   21092   72      137     793
+10/28     16   50460   21092   72      137     793
+10/28     17   50436   21092   72      137     793
+10/28     18   50460   21092   72      137     793
+10/29     19   50552   21151   72      137     793
+10/29     20   50548   21151   72      137     793
+10/29     21   50552   21151   72      137     793
+10/29     22   50560   21149   72      136     793
+10/30     23   50560   21149   72      136     793
+10/30     24   50560   21149   72      136     793
+10/30     25   50560   21149   72      136     793
+10/31     26   50624   21155   72      139     793
+11/03     27   50892   21155   72      139     793
+11/03     28   50880   21155   72      139     793
+11/03     29   51048   21155   72      139     793
+11/03     30   51048   21155   72      139     793
+11/03     31   51048   21155   72      139     793
+11/03     32   51048   21155   72      139     793
+11/03     33   51080   21157   72      140     793
+11/03     34   51080   21157   72      140     793
+11/03     35   51080   21157   72      140     793
+11/03     36   50828   21191   72      139     797
+11/03     37   51060   21218   72      140     797
+11/03     38   51060   21218   72      140     797
+11/03     39   51056   21218   72      140     797
+11/04     40   51440   21222   72      142     797
+11/04     41   51456   21222   72      142     797
+11/06     42   51980   21253   72      144     797
+11/06     43   51980   21254   72      144     797
+11/06     44   51988   21261   72      144     797
+11/06     45   51996   21261   72      144     797
+11/06     46   51988   21261   72      144     797
+11/06     47   51988   21261   72      144     797
+11/06     48   52016   21261   72      144     797
+11/06     49   52016   21261   72      144     797
+11/06     50   52016   21261   72      144     797
+11/07     51   51992   21263   72      145     797
+11/07     52   51992   21263   72      145     797
+11/07     53   52476   21263   72      145     797
+11/07     54   52476   21263   72      145     797
+11/07     55   52476   21263   72      145     797
+11/07     56   52468   21263   72      145     797
+11/10     57   51240   19997   44      149     780
+11/10     58   51228   20003   44      149     780
+11/10     59   51308   20003   44      149     780
+11/10     60   51336   20003   44      149     780
+11/10     61   51340   20003   44      149     780
+11/10     62   51348   20003   44      149     780
+11/11     63   51864   20254   49      149     782
+11/11     64   51904   20254   49      149     782
+11/12     65   54360   21734   63      158     782
+11/13     66   55396   21951   65      158     787
+11/13     67   55504   21949   65      158     787
+11/13     68   55520   21965   65      158     787
+11/13     69   55516   21965   65      158     787
+11/13     70   55512   21965   65      158     787
+11/13     71   55516   21965   65      158     787
+11/13     72   55520   21965   65      158     787
+11/13     73   55636   21967   65      159     787
+11/13     74   55640   21967   65      159     787
+11/13     75   55636   21967   65      159     787
+11/13     76   55376   21923   65      159     787
+11/13     77   55376   21923   65      159     787
+11/13     78   55672   21923   65      159     787
+11/13     79   55724   21923   65      159     787
+11/13     80   55884   22025   65      160     787
+11/14     81   55884   22025   65      160     787
+11/14     82   55856   22029   65      162     787
+11/17     83   55876   22029   65      162     787
+11/17     84   56204   22007   65      163     787
+11/17     85   56200   22007   65      163     787
+11/17     0    56200   22007   65      163     787
+11/17     1    56208   22007   65      163     787
+11/17     2    56256   22007   65      163     787
+11/17     3    56280   22009   65      164     787
+11/18     4    56280   22009   65      164     787
+11/18     5    56304   22033   66      164     787
+11/18     6    56880   22255   72      167     787
+11/18     7    57384   22295   72      169     787
+11/19     8    57388   22295   72      169     787
+11/19     9    57436   22295   72      169     787
+11/19     10   57448   22267   72      167     787
+11/19     11   57476   22353   72      167     787
+11/19     12   57520   22349   72      167     787
+11/19     13   57500   22331   72      167     787
+11/19     14   57500   22331   72      167     787
+11/19     0    57492   22331   72      167     787
+11/19     1    57628   22361   72      167     787
+11/20     2    58734   22703   75      167     801
+11/20     3    58798   22725   75      168     801
+11/21     4    59526   22865   78      168     805
+11/24     5    60396   22917   78      170     809
+11/24     6    60978   23070   79      171     818
+11/24     7    61010   23070   79      171     818
+11/24     8    61018   23070   79      171     818
+11/25     9    61858   23232   80      172     824
+11/25     10   62186   23341   81      172     831
+11/25     11   62870   23524   84      173     835
+11/25     12   63114   23634   85      173     838
+11/25     13   63118   23631   85      173     838
+11/26     14   63414   23657   85      174     839
+12/01     15   63798   23684   85      174     841
+12/01     16   63878   23684   85      174     841
+12/01     17   63874   23684   85      174     841
+12/01     18   63842   23684   85      174     841
+12/01     19   64334   23696   85      174     841
+12/01     20   64394   23696   85      174     841
+12/01     21   64402   23696   85      174     841
+12/03     22   64774   23766   85      175     845
+12/03     23   64650   23766   85      175     845
+12/03     24   64678   23754   85      175     845
+12/04     25   64814   23758   85      177     845
+12/04     26   64974   23817   85      178     848
+12/04     27   65058   23834   85      179     848
+12/04     28   65042   23834   85      179     848
+12/04     29   64542   23695   83      179     848
+12/04     30   64538   23695   83      179     848
+12/04     31   64502   23693   83      178     848
+12/05     32   64518   23678   83      178     849
+12/05     33   64518   23678   83      178     849
+12/05     34   64554   23678   83      178     849
+12/05     35   64534   23678   83      178     849
+12/05     36   64542   23678   83      178     849
+12/08     37   64406   23682   83      180     849
+12/08     38   64406   23682   83      180     849
+12/08     39   64390   23682   83      180     849
+12/08     40   64890   23706   83      180     850
+12/08     41   64890   23706   83      180     850
+12/08     42   64890   23706   83      180     850
+12/09     43   64954   23721   83      180     850
+12/09     44   64958   23721   83      180     850
+12/10     45   65210   23798   84      182     853
+12/11     46   66304   24233   82      182     877
+12/11     47   66492   24287   82      183     877
+12/11     48   66492   24287   82      183     877
+12/11     49   66496   24287   82      183     877
+12/12     50   68704   26076   97      183     879
+12/15     51   68336   25601   97      184     879
+12/15     52   68344   25610   97      184     879
+12/15     53   69344   25878   101     184     883
+12/15     54   69740   25892   101     185     883
+12/16     55   69876   25929   102     185     884
+12/16     56   70160   25909   102     181     884
+12/16     57   69776   25783   102     181     884
+12/16     -1   69776   25783   102     181     884
+12/17     2    69792   25795   102     181     885
+12/17     3    71526   26726   101     183     884
+12/17     4    71526   26726   101     183     884
+12/17     5    71526   26726   101     183     884
+12/17     6    71526   26726   101     183     884
+12/17     7    71722   26748   101     186     884
+12/17     8    71758   26748   101     186     884
+12/17     9    71774   26748   101     186     884
+12/18     10   71618   26676   101     190     884
+12/18     11   71618   26676   101     190     884
+12/18     12   71618   26676   101     190     884
+12/18     13   71618   26676   101     190     884
+12/18     14   71618   26676   101     190     884
+12/18     15   71622   26668   101     190     884
+12/18     16   71658   26668   101     190     884
+12/18     17   71766   26694   101     190     886
+12/19     18   72462   26740   101     191     890
+12/19     19   72454   26731   101     191     889
+12/19     20   72462   26740   101     191     890
+12/19     21   72590   26755   101     192     890
+12/22     22   82058   35972   110     192     890
+12/22     23   82194   36006   110     193     890
+12/22     24   82206   36006   110     193     890
+12/22     25   82266   36006   110     193     890
+12/22     26   82270   36006   110     193     890
+12/22     27   82262   36006   110     193     890
+12/26     28   82290   36033   110     193     890
+12/26     29   82278   36033   110     193     890
+12/26     30   82278   36033   110     193     890
+12/26     31   84250   37090   123     196     890
+12/26     32   84274   37090   123     196     890
+12/26     33   84290   37090   123     196     890
+12/26     34   84294   37090   123     196     890
+12/26     35   84294   37090   123     196     890
+12/26     36   84290   37090   123     196     890
+12/26     37   84298   37081   123     196     889
+12/27     38   84282   37081   123     196     889
+12/27     39   84302   37081   123     196     889
+12/27     40   84310   37081   123     196     889
+12/27     41   84306   37081   123     196     889
+12/27     42   84306   37081   123     196     889
+12/27     43   84310   37081   123     196     889
+12/27     44   84314   37081   123     196     889
+12/27     45   84314   37081   123     196     889
+12/27     46   84314   37081   123     196     889
+12/27     47   84322   37081   123     196     889
+12/27     48   85138   37392   125     197     889
+12/27     49   85094   37392   125     197     889
+12/27     50   85138   37428   125     197     889
+12/27     51   85138   37428   125     197     889
+12/27     52   85138   37428   125     197     889
+12/29     53   85138   37480   125     197     889
+12/29     54   82014   35400   97      194     889
+12/29     55   82010   35400   97      194     889
+12/29     56   82062   35400   97      194     889
+12/29     57   82070   35400   97      194     889
+12/29     58   82066   35400   97      194     889
+12/29     59   82214   35389   97      194     889
+12/29     60   82238   35425   97      194     889
+12/30     61   82238   35425   97      194     889
+12/30     62   82238   35425   97      194     889
+12/30     63   82238   35399   97      194     889
+12/30     63   82246   35399   97      194     889
+12/30     64   82342   35399   97      194     889
+12/30     65   82362   35399   97      194     889
+12/30     66   82370   35399   97      194     889
+12/30     67   82374   35399   97      194     889
+12/31     68   82022   35253   95      194     889
+12/31     69   82542   35486   98      193     899
+12/31     70   82542   35486   98      193     899
+ 1/03     71   82542   35486   98      193     899
+ 1/03     72   82538   35504   98      193     901
+ 1/03     73   83410   35860   102     193     901
+ 1/03     74   83410   35860   102     193     901
+ 1/03     1    84642   36353   106     193     925
+ 1/03     2    84678   36353   106     193     925
+ 1/03     3    84686   36353   106     193     925
+ 1/03     4    84706   36361   106     193     925
+ 1/04     5    85162   36446   107     194     924
+ 1/04     6    85798   36531   109     194     925
+ 1/04     7    85798   36531   109     194     925
+ 1/05     8    85858   36540   109     194     925
+ 1/05     9    85882   36551   109     195     925
+ 1/05     10   87602   36600   109     200     925
+ 1/05     11   87602   36600   109     200     925
+ 1/05     12   87630   36600   109     200     925
+ 1/05     13   87694   36600   109     200     925
+ 1/05     14   87630   36600   109     200     925
+ 1/06     15   87730   36600   109     200     925
+ 1/06     16   87730   36600   109     200     925
+ 1/06     17   87806   36600   109     200     925
+ 1/06     18   87542   36600   109     200     925
+ 1/06     19   87906   36600   109     200     925
+ 1/06     20   87906   36600   109     200     925
+ 1/06     21   88146   36600   109     200     925
+ 1/07     22   88094   36594   109     200     925
+ 1/07     23   88082   36594   109     200     925
+ 1/07     24   88002   36594   109     200     925
+ 1/08     25   88894   36689   110     202     930
+ 1/08     26   88806   36689   110     202     930
+ 1/09     27   88806   36683   110     202     930
+ 1/10     28   90498   36979   113     205     941
+ 1/10     29   90982   37168   115     205     952
+ 1/10     30   91922   37290   116     205     960
+ 1/10     31   91882   37290   116     205     960
+ 1/11     32   92938   37949   125     205     968
+ 1/11     33   95522   39646   140     206     973
+ 1/11     34   95522   39646   140     206     973
+ 1/11     35   95558   39682   140     206     973
+ 1/11     36   95726   39682   140     206     973
+ 1/11     37   95574   39684   140     207     973
+ 1/14     38   95870   39744   141     209     976
+ 1/14     39   97358   40680   154     210     976
+ 1/14     40   102830  42930   178     212     981
+ 1/14     41   103050  42992   179     212     982
+ 1/15     42   103042  42992   179     212     982
+ 1/15     43   103170  42992   179     212     982
+ 1/15     44   103170  42992   179     212     982
+ 1/16     45   103818  43165   182     214     984
+ 1/16     46   103818  43165   182     214     984
+ 1/16     47   103866  43165   182     214     984
+ 1/16     48   103910  43165   182     214     984
+ 1/16     49   103982  43165   182     214     984
+ 1/16     50   104142  43191   182     215     985
+ 1/16     51   104142  43191   182     215     985
+ 1/16     52   104206  43191   182     215     985
+ 1/17     53   106770  44285   206     216     998
+ 1/17     54   106810  44285   206     216     998
+ 1/17     55   106826  44285   206     216     998
+ 1/19     56   108418  45292   218     210     998
+ 1/19     57   111366  47170   246     210     1009
+ 1/19     58   111366  47170   246     210     1009
+ 1/20     59   114866  49362   274     210     1009
+ 1/20     60   114866  49362   274     210     1009
+ 1/20     61   114914  49362   274     210     1009
+ 1/20     62   114754  49143   274     210     1009
+ 1/21     63   114806  49145   274     211     1009
+ 1/21     64   114906  49147   274     212     1009
+ 1/21     1    115066  49156   274     212     1010
+ 1/21     2    115070  49156   274     212     1010
+ 1/21     3    114962  49156   274     212     1010
+ 1/21     4    114958  49156   274     212     1010
+ 1/21     5    114962  49156   274     212     1010
+ 1/21     6    114966  49156   274     212     1010
+ 1/21     7    114962  49156   274     212     1010
+ 1/22     8    115878  49375   276     212     1023
+ 1/22     9    115890  49386   276     212     1024
+ 1/23     10   116574  49656   280     213     1029
+ 1/23     11   116570  49656   280     213     1029
+ 1/23     12   118122  49860   282     215     1038
+ 1/23     13   118174  49860   282     215     1038
+ 1/24     14   118162  49860   282     215     1038
+ 1/24     15   118158  49860   282     215     1038
+ 1/24     16   118310  49891   282     215     1038
+ 1/25     17   118510  49938   283     215     1038
+ 1/25     18   119870  50269   290     216     1041
+ 1/25     19   119870  50269   290     216     1041
+ 1/26     20   121202  50443   292     216     1050
+ 1/26     21   121566  50486   293     216     1051
+ 1/26     22   121590  50489   293     216     1051
+ 1/27     23   122138  50534   293     216     1051
+ 1/27     24   122150  50542   293     216     1051
+ 1/27     25   122150  50542   293     216     1051
+ 1/27     26   122158  50541   293     216     1050
+ 2/03     27   122354  50541   293     216     1050
+ 2/04     28   122806  50728   295     216     1058
+ 2/04     29   122806  50728   295     216     1058
+ 2/04     30   123018  50731   295     216     1058
+ 2/04     31   123022  50731   295     216     1058
+ 2/04     32   123990  50874   296     217     1060
+ 2/04     33   123986  50874   296     217     1060
+ 2/04     34   123978  50874   296     217     1060
+ 2/04     35   123986  50874   296     217     1060
+ 2/04     36   123998  50874   296     217     1060
+ 2/04     37   123994  50874   296     217     1060
+ 2/05     38   125714  50690   298     219     1064
+ 2/05     39   125714  50690   298     219     1064
+ 2/06     40   125814  50690   298     219     1064
+ 2/06     41   125090  50426   298     219     1064
+ 2/06     42   125090  50426   298     219     1064
+ 2/06     43   125090  50426   298     219     1064
+ 2/06     44   124970  50426   298     219     1064
+ 2/06     45   124970  50426   298     219     1064
+ 2/06     46   124990  50426   298     219     1064
+ 2/06     47   124990  50426   298     219     1064
+ 2/07     48   126062  50579   300     219     1071
+ 2/07     49   126166  50579   300     219     1071
+ 2/07     50   126174  50579   300     219     1071
+ 2/09     51   126394  50629   301     219     1070
+ 2/09     52   126402  50629   301     219     1070
+ 2/10     53   126858  50655   301     220     1071
+ 2/10     54   126858  50655   301     220     1071
+ 2/10     55   126862  50655   301     220     1071
+ 2/10     56   126866  50655   301     220     1071
+ 2/10     57   126866  50655   301     220     1071
+ 2/10     58   126950  50655   301     220     1071
+ 2/11     59   126950  50655   301     220     1071
+ 2/11     60   126910  50655   301     220     1071
+ 2/11     61   126910  50655   301     220     1071
+ 2/11     62   126966  50659   301     222     1071
+ 2/11     63   126974  50659   301     222     1071
+ 2/11     64   127902  50770   303     224     1073
+ 2/11     65   127926  50770   303     224     1073
+ 2/12     66   128766  50866   304     226     1078
+ 2/12     67   129110  50895   303     227     1079
+ 2/12     68   129110  50895   303     227     1079
+ 2/12     69   129094  50895   303     227     1079
+ 2/12     70   129094  50895   303     227     1079
+ 2/12     71   129142  50895   303     227     1079
+ 2/12     72   129138  50895   303     227     1079
+ 2/13     73   129186  50895   303     227     1079
+ 2/13     74   129186  50895   303     227     1079
+ 2/13     75   129394  50908   303     228     1079
+ 2/13     76   129410  50908   303     228     1079
+ 2/13     77   129446  50908   303     228     1079
+ 2/13     78   129450  50908   303     228     1079
+ 2/17     79   130710  51015   305     228     1083
+ 2/17     80   130706  51015   305     228     1083
+ 2/18     81   130602  51015   305     228     1083
+ 2/18     82   132706  51303   310     228     1092
+ 2/19     83   132946  51349   311     228     1093
+ 2/19     84   132942  51349   311     228     1093
+ 2/19     85   132930  51349   311     228     1093
+ 2/19     86   132930  51349   311     228     1093
+ 2/19     87   132926  51349   311     228     1093
+ 2/19     88   133302  51432   311     229     1097
+ 2/19     89   133262  51456   311     229     1098
+ 2/20     90   133270  51456   311     229     1098
+ 2/20     91   133346  51458   311     230     1098
+ 2/20     92   133362  51458   311     230     1098
+ 2/20     93   133310  51543   312     228     1104
+ 2/20     94   133306  51543   312     228     1104
+ 2/20     95   133306  51543   312     228     1104
+ 2/21     96   135170  51730   314     229     1110
+ 2/21     97   135170  51730   314     229     1110
+ 2/23     98   135990  51732   314     230     1110
+ 2/23     99   137006  51788   314     231     1110
+ 2/23     100  137002  51788   314     231     1110
+ 2/23     101  137142  51788   314     231     1110
+ 2/24     102  137326  51834   314     232     1112
+ 2/24     103  137378  51837   314     232     1112
+ 2/25     104  138326  52169   315     232     1115
+ 2/25     105  138702  52280   316     232     1120
+ 2/26     106  138314  51560   306     233     1122
+ 2/26     107  138314  51560   306     233     1122
+ 2/27     108  138350  51563   306     233     1122
+ 2/27     109  138354  51563   306     233     1122
+ 2/27     110  138230  51579   306     233     1122
+ 2/27     111  138230  51579   306     233     1122
+ 2/27     112  138230  51579   306     233     1122
+ 2/27     113  138710  51819   310     233     1123
+ 2/27     114  138710  51819   310     233     1123
+ 2/28     115  138970  51887   311     216     1127
+ 2/28     116  139090  51853   311     199     1127
+ 2/28     117  139974  52189   318     199     1134
+ 2/28     118  141126  52306   319     199     1139
+ 3/02     119  141374  52496   321     199     1149
+ 3/02     120  141374  52496   321     199     1149
+ 3/11     121  141374  52496   321     199     1149
+ 3/11     122  141338  52494   321     198     1149
+ 3/12     123  141510  52414   319     198     1152
+ 3/12     124  141510  52418   319     198     1152
+ 3/12     125  143738  52705   322     201     1165
+ 3/12     126  143778  52732   322     201     1165
+ 3/12     127  143786  52732   322     201     1165
+ 3/13     128  143786  52732   322     201     1165
+ 3/13     129  143778  52732   322     201     1165
+ 3/13     130  143890  52760   322     200     1166
+ 3/15     131  143902  52760   322     200     1166
+ 3/15     132  144310  52881   323     199     1171
+ 3/15     133  144710  52909   323     199     1173
+ 3/15     134  144710  52909   323     199     1173
+ 3/15     135  145638  52974   323     200     1177
+ 3/15     136  145638  52974   323     200     1177
+ 3/15     137  145638  52974   323     200     1177
+ 3/15     138  145710  52986   323     203     1177
+ 3/16     139  145854  53006   323     204     1177
+ 3/16     140  145802  53006   323     204     1177
+ 3/16     141  145814  53006   323     204     1177
+ 3/16     142  146426  53089   324     204     1180
+ 3/16     143  146430  53089   324     204     1180
+ 3/16     144  146438  53089   324     204     1180
+ 3/17     145  147886  53166   325     204     1184
+ 3/17     146  147962  53206   326     204     1185
+ 3/17     147  148338  53183   326     205     1184
+ 3/17     148  150714  53440   329     207     1195
+ 3/18     149  151534  53472   329     207     1195
+ 3/18     150  151586  53475   329     207     1195
+ 3/18     151  151586  53475   329     207     1195
+ 3/18     152  151586  53475   329     207     1195
+ 3/18     153  151590  53475   329     207     1195
+ 3/18     154  151582  53475   329     207     1195
+ 3/18     155  151538  53475   329     207     1195
+ 3/18     156  151546  53475   329     207     1195
+ 3/18     157  151602  53484   329     207     1195
+ 3/18     158  151570  53484   329     207     1195
+ 3/21     159  151674  53560   331     207     1197
+ 3/21     160  151646  53624   331     209     1197
+ 3/21     161  151646  53560   331     207     1197
+ 3/21     162  153526  53821   335     207     1206
+ 3/21     163  153534  53832   335     207     1207
+ 3/22     164  153538  53832   335     207     1207
+ 3/22     165  154106  53884   335     207     1209
+ 3/22     166  155094  54242   336     210     1214
+ 3/22     167  155234  54242   336     210     1214
+ 3/22     168  155290  54242   336     210     1214
+ 3/23     169  155546  54242   336     210     1214
+ 3/23     170  155522  54242   336     210     1214
+ 3/23     171  155286  54242   336     210     1214
+ 3/23     172  155290  54242   336     210     1214
+ 3/23     173  155022  54147   335     210     1213
+ 3/24     174  157618  54494   339     210     1223
+ 3/24     175  158578  54648   341     209     1230
+ 3/25     176  159270  54636   339     213     1228
+ 3/25     177  159282  54646   339     213     1228
+ 3/25     178  159306  54646   339     213     1228
+ 3/25     179  159306  54646   339     213     1228
+ 3/25     180  159310  54646   339     213     1228
+ 3/25     181  159302  54646   339     213     1228
+ 3/25     182  159290  54658   339     213     1228
+ 3/26     183  159290  54658   339     213     1228
+ 3/26     184  159290  54658   339     213     1228
+ 3/26     185  159294  54658   339     213     1228
+ 3/26     186  159418  54809   340     211     1229
+ 3/26     187  159418  54809   340     211     1229
+ 3/26     188  159794  54867   341     212     1231
+ 3/26     189  159882  54869   341     213     1231
+ 3/26     190  159898  54869   341     213     1231
+ 3/26     191  159906  54869   341     213     1231
+ 3/26     192  160010  54872   341     213     1231
+ 3/27     193  159982  54872   341     213     1231
+ 3/27     194  160010  54872   341     213     1231
+ 3/27     195  160474  55245   341     213     1271
+ 3/27     196  162218  55646   347     214     1282
+ 3/27     197  163362  55664   347     215     1283
+ 3/27     198  163070  55692   347     215     1283
+ 3/27     199  163682  55732   347     216     1284
+ 3/29     200  163678  55732   347     216     1284
+ 3/29     201  163678  55732   347     216     1284
+ 3/29     202  164030  55730   347     216     1284
+ 3/29     203  164198  55730   347     216     1284
+ 3/29     204  164206  55730   347     216     1284
+ 3/29     205  164202  55730   347     216     1284
+ 3/29     206  165278  56137   347     217     1286
+ 3/30     207  166414  56196   348     217     1288
+ 3/30     208  166414  56196   348     217     1288
+ 3/30     209  166426  56196   348     217     1288
+ 3/30     210  166438  56196   348     217     1288
+ 3/30     211  166442  56196   348     217     1288
+ 3/30     212  166446  56196   348     217     1288
+ 3/30     213  166446  56196   348     217     1288
+ 3/30     214  166562  56210   348     218     1288
+ 3/31     215  166674  56210   348     218     1288
+ 3/31     216  166670  56210   348     218     1288
+ 3/31     217  166902  56208   348     218     1288
+ 3/31     218  166902  56208   348     218     1288
+ 3/31     219  166778  56210   348     219     1288
+ 3/31     220  166774  56210   348     219     1288
+ 3/31     221  166786  56210   348     219     1288
+ 3/31     222  166802  56210   348     219     1288
+ 3/31     223  166802  56210   348     219     1288
+ 4/01     224  167026  56210   348     219     1288
+ 4/01     225  167026  56210   348     219     1288
+ 4/01     226  167030  56210   348     219     1288
+ 4/01     227  167030  56210   348     219     1288
+ 4/01     228  166906  56210   348     219     1288
+ 4/01     229  166906  56210   348     219     1288
+ 4/01     230  166906  56210   348     219     1288
+ 4/01     231  166922  56210   348     219     1288
+ 4/01     232  167006  56210   348     219     1288
+ 4/01     233  167006  56210   348     219     1288
+ 4/01     234  166962  56210   348     219     1288
+ 4/01     235  166946  56210   348     219     1288
+ 4/01     236  166942  56210   348     219     1288
+ 4/01     237  166946  56210   348     219     1288
+ 4/01     238  166954  56210   348     219     1288
+ 4/01     239  166954  56210   348     219     1288
+ 4/02     240  169602  56736   353     220     1308
+ 4/02     241  169602  56765   353     220     1308
+ 4/02     242  169598  56765   353     220     1308
+ 4/02     243  169598  56765   353     220     1308
+ 4/02     244  169598  56765   353     220     1308
+ 4/02     245  169670  56765   353     220     1308
+ 4/03     246  169670  56765   353     220     1308
+ 4/03     247  169682  56765   353     220     1308
+ 4/03     248  170322  56882   354     220     1314
+ 4/03     249  171594  56826   353     222     1310
+ 4/04     250  171594  56826   353     222     1310
+ 4/04     251  171598  56826   353     222     1310
+ 4/04     252  172466  56843   353     222     1310
+ 4/04     253  172466  56843   353     222     1310
+ 4/05     254  174114  56924   354     223     1312
+ 4/05     255  174222  56924   354     223     1312
+ 4/06     256  174426  56940   354     223     1312
+ 4/06     1    174426  56940   354     223     1312
+ 4/06     2    174426  56940   354     223     1312
+ 4/06     3    174426  56940   354     223     1312
+ 4/06     4    174622  56867   353     223     1312
+ 4/06     5    174618  56867   353     223     1312
+ 4/07     6    175394  56838   352     227     1310
+ 4/07     7    175382  56838   352     227     1310
+ 4/07     8    175406  56846   352     228     1310
+ 4/07     9    175406  56846   352     228     1310
+ 4/07     10   175406  56846   352     228     1310
+ 4/07     11   175506  56822   352     228     1309
+ 4/07     12   177190  56994   355     228     1315
+ 4/08     13   177606  56988   355     228     1315
+ 4/08     0    177602  56988   355     228     1315
+ 4/08     0    177602  56988   355     228     1315
+ 4/08     1    177722  56990   355     229     1315
+ 4/08     2    178042  57022   355     227     1318
+ 4/08     3    178402  57022   355     227     1318
+ 4/09     4    178822  57078   355     227     1318
+ 4/09     5    178822  57078   355     227     1318
+ 4/09     6    178978  57085   355     227     1318
+ 4/11     7    179998  57090   355     227     1318
+ 4/11     8    181154  57171   355     225     1320
+ 4/12     9    182246  57530   359     225     1326
+ 4/12     10   182690  57560   359     225     1327
+ 4/12     1    182634  57464   359     225     1327
+ 4/12     1    182634  57464   359     225     1327
+ 4/12     1    182634  57464   359     225     1327
+ 4/13     2    182634  57464   359     225     1327
+ 4/13     3    182626  57464   359     225     1327
+ 4/13     4    182634  57464   359     225     1327
+ 4/13     5    182678  57464   359     225     1327
+ 4/13     3    182678  57464   359     225     1327
+ 4/14     4    182846  57515   357     225     1329
+ 4/14     5    184946  57738   360     224     1336
+ 4/14     6    187670  58274   365     225     1349
+ 4/14     7    187798  58357   365     225     1349
+ 4/15     8    189070  58623   366     225     1350
+ 4/15     9    189074  58623   366     225     1350
+ 4/15     10   190050  58644   366     224     1350
+ 4/15     4    190050  58644   366     224     1350
+ 4/15     5    190218  58644   366     224     1350
+ 4/16     6    190238  58644   366     224     1350
+ 4/16     7    190306  58662   366     224     1350
+ 4/16     4    190306  58662   366     224     1350
+ 4/16     5    190354  58662   366     224     1350
+ 4/16     4    190350  58662   366     224     1350
+ 4/17     5    190774  58768   367     224     1350
+ 4/18     6    189590  58922   368     221     1349
+ 4/18     7    190026  58986   369     221     1351
+ 4/20     8    190186  58937   368     221     1349
+ 4/20     9    189926  58930   368     221     1349
+ 4/20     10   189926  58930   368     221     1349
+ 4/20     11   191190  59087   370     220     1357
+ 4/20     12   191206  59087   370     220     1357
+ 4/20     13   191546  59196   371     220     1361
+ 4/20     14   192398  59239   372     220     1362
+ 4/20     15   192394  59241   372     221     1362
+ 4/20     5    192394  59241   372     221     1362
+ 4/21     5    192398  59241   372     221     1362
+ 4/21     5    192394  59241   372     221     1362
+ 4/22     6    192274  59275   372     221     1362
+ 4/22     6    192274  59275   372     221     1362
+ 4/22     6    192274  59273   372     221     1362
+ 4/22     7    192450  59348   373     216     1365
+ 4/22     8    192658  59362   373     216     1366
+ 4/22     7    192658  59362   373     216     1366
+ 4/22     7    192670  59362   373     216     1366
+ 4/23     8    193730  59526   374     218     1369
+ 4/23     9    194370  59743   378     216     1374
+ 4/24     8    194362  59743   378     216     1374
+ 4/24     8    194358  59743   378     216     1374
+ 4/24     9    194934  59745   378     217     1374
+ 4/25     10   194910  59745   378     217     1374
+ 4/25     11   194910  59745   378     217     1374
+ 4/25     12   197290  60008   381     216     1381
+ 4/25     13   197294  60008   381     216     1381
+ 4/25     14   197294  60008   381     216     1381
+ 4/25     15   197298  60008   381     216     1381
+ 4/25     16   197290  60008   381     216     1381
+ 4/26     17   198514  60130   382     218     1387
+ 4/26     9    198518  60130   382     218     1387
+ 4/26     10   198434  60130   382     218     1387
+ 4/27     11   198638  60128   382     217     1387
+ 4/27     9    198634  60128   382     217     1387
+ 4/27     10   198638  60128   382     217     1387
+ 4/27     10   198638  60128   382     217     1387
+ 4/28     11   200942  60422   387     219     1397
+ 4/28     12   200938  60422   387     219     1397
+ 4/28     13   200946  60422   387     219     1397
+ 4/28     14   200942  60422   387     219     1397
+ 4/28     15   200942  60422   387     219     1397
+ 4/28     16   200950  60422   387     219     1397
+ 4/28     17   200950  60422   387     219     1397
+ 4/28     18   200954  60422   387     219     1397
+ 4/28     11   200954  60422   387     219     1397
+ 4/30     12   201126  60395   387     217     1397
+ 4/30     13   201130  60395   387     217     1397
+ 4/30     14   201186  60406   387     217     1398
+ 4/30     12   201186  60406   387     217     1398
+ 4/30     13   201878  60417   387     217     1399
+ 4/30     12   201874  60417   387     217     1399
+ 4/30     13   201874  60417   387     217     1399
+ 4/30     14   201890  60417   387     217     1399
+ 5/01     15   201866  60417   387     217     1399
+ 5/02     16   201870  60417   387     217     1399
+ 5/02     17   201418  60417   387     217     1399
+ 5/02     18   201554  60417   387     217     1399
+ 5/02     19   201654  60441   387     217     1400
+ 5/02     20   201646  60441   387     217     1400
+ 5/02     21   201646  60441   387     217     1400
+ 5/02     22   201618  60441   387     217     1400
+ 5/02     23   201618  60441   387     217     1400
+ 5/02     24   201830  60441   387     217     1400
+ 5/02     25   201830  60441   387     217     1400
+ 5/02     26   201754  60441   387     217     1400
+ 5/02     27   201770  60441   387     217     1400
+ 5/02     28   201774  60441   387     217     1400
+ 5/02     29   201786  60441   387     217     1400
+ 5/02     30   201722  60441   387     217     1400
+ 5/03     31   201782  60441   387     217     1400
+ 5/03     32   201826  60441   387     217     1400
+ 5/03     33   201826  60441   387     217     1400
+ 5/03     34   201826  60441   387     217     1400
+ 5/03     35   201826  60441   387     217     1400
+ 5/03     36   201822  60441   387     217     1400
+ 5/03     37   201826  60441   387     217     1400
+ 5/03     38   201842  60441   387     217     1400
+ 5/04     39   204170  60435   387     217     1400
+ 5/04     13   204170  60435   387     217     1400
+ 5/05     14   204766  60385   387     212     1399
+ 5/05     15   204758  60385   387     212     1399
+ 5/05     16   204678  60385   387     212     1399
+ 5/05     14   204678  60385   387     212     1399
+ 5/05     15   205522  60404   387     212     1398
+ 5/06     16   205546  60415   387     212     1399
+ 5/06     17   203142  57981   387     214     1399
+ 5/06     15   203146  57981   387     214     1399
+ 5/06     15   203146  57981   387     214     1399
+ 5/06     16   204794  58022   388     214     1400
+ 5/07     17   204786  58022   388     214     1400
+ 5/07     15   204790  58022   388     214     1400
+ 5/07     16   204798  58022   388     214     1400
+ 5/07     17   205078  58020   388     214     1398
+ 5/07     16   205074  58020   388     214     1398
+ 5/07     16   205074  58020   388     214     1398
+ 5/09     17   206842  58274   392     214     1410
+ 5/09     18   206778  58274   392     214     1410
+ 5/09     19   206750  58274   392     214     1410
+ 5/09     20   206854  58286   392     214     1410
+ 5/10     21   206846  58286   392     214     1410
+ 5/10     22   206850  58298   392     214     1410
+ 5/10     23   206846  58298   392     214     1410
+ 5/10     24   206838  58298   392     214     1410
+ 5/10     25   206970  58256   393     214     1405
+ 5/10     26   208914  58385   395     213     1409
+ 5/11     27   209010  58388   395     213     1409
+ 5/11     18   208974  58388   395     213     1409
+ 5/11     19   208958  58382   395     213     1409
+ 5/11     18   208958  58382   395     213     1409
+ 5/11     19   210858  58523   397     213     1411
+ 5/11     20   210994  58571   397     213     1411
+ 5/12     21   211010  58583   397     213     1411
+ 5/12     19   211010  58583   397     213     1411
+ 5/12     20   210902  58512   395     213     1410
+ 5/12     21   210906  58512   395     213     1410
+ 5/12     22   210906  58512   395     213     1410
+ 5/12     23   211798  58544   395     214     1411
+ 5/13     20   211798  58544   395     214     1411
+ 5/13     20   211874  58544   395     214     1411
+ 5/13     20   211906  58544   395     214     1411
+ 5/13     20   211910  58544   395     214     1411
+ 5/13     20   211910  58544   395     214     1411
+ 5/13     20   211906  58544   395     214     1411
+ 5/13     20   211918  58544   395     214     1411
+ 5/13     21   212254  58800   395     214     1411
+ 5/14     22   213022  59061   399     214     1410
+ 5/14     23   213098  59077   400     214     1410
+ 5/14     22   213098  59077   400     214     1410
+ 5/14     23   213098  59091   401     213     1410
+ 5/14     24   213134  59094   401     213     1410
+ 5/14     23   213134  59094   401     213     1410
+ 5/16     24   215566  59144   400     214     1419
+ 5/16     25   215570  59144   400     214     1419
+ 5/16     26   215566  59144   400     214     1419
+ 5/16     27   216506  59266   401     214     1425
+ 5/18     24   216510  59266   401     214     1425
+ 5/18     25   216706  59282   401     214     1425
+ 5/18     24   216706  59282   401     214     1425
+ 5/18     25   216950  59288   401     214     1425
+ 5/18     24   216950  59288   401     214     1425
+ 5/18     24   216954  59288   401     214     1425
+ 5/18     24   216958  59288   401     214     1425
+ 5/19     25   218434  59709   411     216     1424
+ 5/19     25   218302  59709   411     216     1424
+ 5/19     26   218618  59737   411     216     1424
+ 5/19     26   218622  59737   411     216     1424
+ 5/19     26   218626  59737   411     216     1424
+ 5/19     26   218638  59737   411     216     1424
+ 5/19     27   218654  59737   411     216     1424
+ 5/19     28   218678  59737   411     216     1424
+ 5/20     29   218102  59698   410     216     1424
+ 5/20     26   218102  59698   410     216     1424
+ 5/20     27   218046  59695   410     216     1424
+ 5/20     27   218046  59695   410     216     1424
+ 5/20     28   218550  59789   410     216     1428
+ 5/20     29   219682  59985   411     216     1430
+ 5/20     30   219314  59960   411     216     1428
+ 5/21     27   219458  59990   411     216     1430
+ 5/21     28   219462  59990   411     216     1430
+ 5/21     29   219454  59974   411     216     1430
+ 5/21     28   219454  59974   411     216     1430
+ 5/22     29   219690  59974   411     216     1430
+ 5/22     30   219742  59974   411     216     1430
+ 5/22     31   219954  60152   411     217     1430
+ 5/22     29   219954  60152   411     217     1430
+ 5/22     30   219954  60152   411     217     1430
+ 5/24     31   219238  60157   411     217     1430
+ 5/24     32   219250  60165   411     217     1430
+ 5/24     29   219250  60165   411     217     1430
+ 5/26     30   219314  60165   411     217     1430
+ 5/26     31   219158  60139   411     217     1428
+ 5/26     32   219462  60177   411     219     1428
+ 5/26     31   219462  60177   411     219     1428
+ 5/26     32   219762  60210   411     220     1429
+ 5/27     31   219762  60210   411     220     1429
+ 5/27     32   221174  60487   413     220     1432
+ 5/27     32   221170  60487   413     220     1432
+ 5/27     32   221170  60487   413     220     1432
+ 5/27     33   221170  60487   413     220     1432
+ 5/28     32   221170  60487   413     220     1432
+ 5/28     33   221294  60335   412     188     1430
+ 5/28     34   222034  60495   414     188     1432
+ 5/28     35   222022  60495   414     188     1432
+ 5/29     33   222022  60495   414     188     1432
+ 5/29     33   222026  60495   414     188     1432
+ 5/29     34   222034  60495   414     188     1432
+ 5/30     35   222894  60623   416     188     1437
+ 5/30     36   223798  60625   416     189     1437
+ 5/31     37   225610  61009   422     190     1441
+ 5/31     38   226090  61015   422     191     1441
+ 5/31     35   226098  61015   422     191     1441
+ 5/31     36   226186  61017   422     192     1441
+ 6/01     35   225530  60907   422     192     1441
+ 6/01     36   228382  61475   428     192     1452
+ 6/02     36   228098  61414   428     192     1452
+ 6/02     37   228138  61414   428     192     1452
+ 6/02     38   228138  61414   428     192     1452
+ 6/04     39   228510  61418   428     194     1452
+ 6/04     40   228506  61418   428     194     1452
+ 6/04     41   228474  61295   426     195     1452
+ 6/04     39   228474  61295   426     195     1452
+ 6/05     40   227422  60756   413     194     1452
+ 6/05     41   226066  60659   412     194     1450
+ 6/06     42   226006  60633   412     194     1450
+ 6/06     43   226686  60747   413     194     1455
+ 6/06     44   227522  60746   413     195     1455
+ 6/06     45   227526  60746   413     195     1455
+ 6/07     46   227430  60643   411     195     1456
+ 6/07     47   228798  60826   414     196     1462
+ 6/07     40   228802  60826   414     196     1462
+ 6/07     40   228802  60826   414     196     1462
+ 6/08     40   228802  60824   414     196     1462
+ 6/08     41   228496  60796   413     196     1462
+ 6/08     42   228672  60852   413     195     1462
+ 6/09     43   228036  60608   409     195     1462
+ 6/09     41   228020  60589   409     195     1462
+ 6/10     42   89752   60566   409     195     1462
+ 6/10     43   228056  60566   409     195     1462
+ 6/10     42   228044  60589   409     195     1462
+ 6/10     42   228064  60589   409     195     1462
+ 6/12     1    227688  60256   408     192     1462
+ 6/12     43   227688  60256   408     192     1462
+ 6/12     44   227704  60256   408     192     1462
+ 6/12     45   227712  60256   408     192     1462
+ 6/12     46   227988  60256   408     192     1462
+ 6/12     47   228004  60256   408     192     1462
+ 6/12     48   228016  60256   408     192     1462
+ 6/12     45   228016  60256   408     192     1462
+ 6/13     46   228908  60376   408     192     1462
+ 6/13     47   228908  60376   408     192     1462
+ 6/13     48   228908  60376   408     192     1462
+ 6/13     49   229352  60376   408     192     1462
+ 6/13     50   229372  60376   408     192     1462
+ 6/13     51   229372  60376   408     192     1462
+ 6/13     52   229340  60376   408     192     1462
+ 6/13     46   229348  60376   408     192     1462
+ 6/14     47   229340  60376   408     192     1462
+ 6/14     48   227496  60238   406     192     1458
+ 6/14     49   228292  60214   406     192     1459
+ 6/14     46   228292  60214   406     192     1459
+ 6/14     46   228312  60214   406     192     1459
+ 6/14     47   228212  60181   406     192     1457
+ 6/15     46   228212  60181   406     192     1457
+ 6/15     47   222132  51785   406     194     1457
+ 6/15     47   222132  51785   406     194     1457
+ 6/15     47   222132  51785   406     194     1457
+ 6/15     47   222140  51785   406     194     1457
+ 6/15     48   222352  51785   406     194     1457
+ 6/16     47   222352  51785   406     194     1457
+ 6/16     48   222360  51785   406     194     1457
+ 6/16     49   222368  51792   406     194     1457
+ 6/16     50   222360  51785   406     194     1457
+ 6/16     51   222352  51782   406     193     1457
+ 6/16     52   222352  51782   406     193     1457
+ 6/17     53   224328  52000   408     193     1464
+ 6/17     48   224324  52000   408     193     1464
+ 6/17     48   224324  52000   408     193     1464
+ 6/17     48   224324  52000   408     193     1464
+ 6/18     49   224340  52000   408     193     1464
+ 6/18     48   224276  52002   408     193     1464
+ 6/18     49   224344  52002   408     193     1464
+ 6/18     50   224256  52002   408     193     1464
+ 6/19     51   224256  52002   408     193     1464
+ 6/19     49   224256  52002   408     193     1464
+ 6/19     50   224496  52028   408     193     1464
+ 6/20     51   224900  52055   408     193     1462
+ 6/20     52   224900  52055   408     193     1462
+ 6/20     53   224896  52055   408     193     1462
+ 6/20     54   224896  52055   408     193     1462
+ 6/20     55   224896  52055   408     193     1462
+ 6/20     56   224896  52055   408     193     1462
+ 6/20     57   225724  52059   408     193     1462
+ 6/20     58   225720  52059   408     193     1462
+ 6/20     59   225720  52059   408     193     1462
+ 6/20     60   225752  52059   408     193     1462
+ 6/20     50   225752  52059   408     193     1462
+ 6/22     51   227140  52145   409     193     1465
+ 6/22     52   227148  52145   409     193     1465
+ 6/23     51   227148  52145   409     193     1465
+ 6/23     52   228128  52198   409     194     1466
+ 6/24     52   228120  52198   409     194     1466
+ 6/24     52   228132  52198   409     194     1466
+ 6/24     52   228128  52198   409     194     1466
+ 6/24     53   228220  52227   409     194     1467
+ 6/24     53   228216  52227   409     194     1467
+ 6/26     54   228668  52165   409     195     1467
+ 6/26     55   228664  52165   409     195     1467
+ 6/26     56   228664  52165   409     195     1467
+ 6/26     57   228676  52165   409     195     1467
+ 6/26     58   228688  52165   409     195     1467
+ 6/26     59   228684  52165   409     195     1467
+ 6/26     60   228680  52165   409     195     1467
+ 6/26     61   228672  52165   409     195     1467
+ 6/27     62   232376  53311   420     195     1482
+ 6/27     54   232376  53311   420     195     1482
+ 6/28     1    233924  53411   421     197     1482
+ 6/28     2    233924  53411   421     197     1482
+ 6/28     3    233924  53411   421     197     1482
+ 6/28     4    233924  53411   421     197     1482
+ 6/28     5    233924  53411   421     197     1482
+ 6/28     6    234900  53635   425     197     1485
+ 6/28     7    234916  53635   425     197     1485
+ 6/28     8    234832  53635   425     197     1485
+ 6/28     54   234832  53635   425     197     1485
+ 6/29     55   234988  53639   425     198     1485
+ 6/30     56   236216  54317   428     199     1491
+ 6/30     56   236232  54317   428     199     1491
+ 6/30     57   236348  54319   428     200     1491
+ 6/30     58   236376  54319   428     200     1491
+ 6/30     59   236356  54319   428     200     1491
+ 6/30     -1   236356  54319   428     200     1491
+ 6/30     1    236200  54317   428     199     1491
+ 6/30     57   236204  54317   428     199     1491
+ 6/30     57   236204  54317   428     199     1491
+ 6/30     57   236252  54317   428     199     1491
+ 6/30     57   236256  54317   428     199     1491
+ 6/30     57   236260  54317   428     199     1491
+ 6/30     57   236280  54317   428     199     1491
+ 6/30     57   236288  54317   428     199     1491
+ 7/01     58   237532  54428   429     201     1495
+ 7/02     58   237532  54428   429     201     1495
+ 7/02     58   237544  54428   429     201     1495
+ 7/02     58   237540  54428   429     201     1495
+ 7/02     58   237540  54428   429     201     1495
+ 7/02     59   239272  54673   431     201     1503
+ 7/03     60   239328  54731   432     201     1504
+ 7/03     61   239328  54731   432     201     1504
+ 7/05     62   241932  55374   438     202     1520
+ 7/05     63   241932  55374   438     202     1520
+ 7/05     64   241912  55374   438     202     1520
+ 7/05     65   241912  55374   438     202     1520
+ 7/05     66   244240  55603   441     203     1524
+ 7/05     67   244248  55616   441     201     1526
+ 7/05     68   244256  55625   441     201     1527
+ 7/06     59   244256  55625   441     201     1527
+ 7/06     60   244280  55625   441     201     1527
+ 7/06     61   246208  55849   442     203     1530
+ 7/06     62   246244  55849   442     203     1530
+ 7/06     63   246224  55849   442     203     1530
+ 7/06     61   246224  55849   442     203     1530
+ 7/07     62   247068  55949   443     203     1533
+ 7/07     63   247224  55949   443     203     1533
+ 7/07     62   247224  55949   443     203     1533
+ 7/08     63   247252  55949   443     203     1533
+ 7/08     63   247256  55949   443     203     1533
+ 7/08     64   247256  55949   443     203     1533
+ 7/08     65   247080  55949   443     203     1533
+ 7/08     66   247080  55949   443     203     1533
+ 7/08     67   247092  55949   443     203     1533
+ 7/08     68   247084  55949   443     203     1533
+ 7/08     69   247192  55956   443     204     1533
+ 7/08     65   247192  55952   443     204     1533
+ 7/08     65   247172  55952   443     204     1533
+ 7/08     65   247184  55952   443     204     1533
+ 7/08     65   247184  55952   443     204     1533
+ 7/10     66   247412  56141   443     205     1535
+ 7/11     67   247488  56105   443     205     1535
+ 7/11     68   247488  56105   443     205     1535
+ 7/11     69   247380  56138   443     204     1536
+ 7/12     70   247376  56138   443     204     1536
+ 7/12     71   248076  56070   442     205     1535
+ 7/12     72   248568  56094   442     206     1537
+ 7/12     73   248548  56094   442     206     1537
+ 7/12     66   248548  56094   442     206     1537
+ 7/13     66   248548  56094   442     206     1537
+ 7/13     66   248548  56094   442     206     1537
+ 7/13     67   248520  56092   442     205     1537
+ 7/13     68   249036  56118   442     206     1538
+ 7/13     69   249036  56118   442     206     1538
+ 7/13     70   249080  56118   442     206     1538
+ 7/13     71   249080  56118   442     206     1538
+ 7/13     72   249084  56118   442     206     1538
+ 7/13     73   250656  56470   446     207     1547
+ 7/14     74   250664  56461   446     207     1546
+ 7/14     67   250648  56461   446     207     1546
+ 7/14     68   250676  56445   446     207     1546
+ 7/14     69   250660  56445   446     207     1546
+ 7/14     70   250876  56443   446     206     1546
+ 7/14     70   250876  56443   446     206     1546
+ 7/15     71   251740  56457   446     206     1546
+ 7/15     0    251708  56457   446     206     1546 * Alpha Version
+ 7/15     1    252552  56668   450     206     1549
+ 7/18     2    252948  56700   450     206     1551
+ 7/18     3    253180  56702   450     207     1551
+ 7/19     4    253756  56692   451     207     1555
+ 7/19     5    253756  56692   451     207     1555
+ 7/19     6    253752  56692   451     207     1555
+ 7/19     7    253796  56707   451     207     1555
+ 7/19     8    253796  56707   451     207     1555
+ 7/19     9    254076  56756   451     207     1555
+ 7/20     2    254076  56756   451     207     1555
+ 7/20     3    255052  56910   453     207     1562
+ 7/20     4    255088  56910   453     207     1562
+ 7/21     3    255088  56910   453     207     1562
+ 7/21     3    255088  56910   453     207     1562
+ 7/21     4    253356  56390   447     207     1561
+ 7/22     5    249940  54232   416     207     1562
+ 7/22     4    249916  54280   416     207     1562
+ 7/22     4    249948  54280   416     207     1562
+ 7/22     4    249924  54280   416     207     1562
+ 7/23     5    249924  54280   416     207     1562
+ 7/23     6    246896  52867   416     201     1564
+ 7/23     7    246812  52867   416     201     1564
+ 7/23     6    246812  52867   416     201     1564
+ 7/24     7    248334  53171   419     201     1575
+ 7/24     8    248366  53171   419     201     1575
+ 7/24     9    248748  53280   420     201     1579
+ 7/25     10   246528  53417   427     203     1579
+ 7/25     11   246348  53417   427     203     1579
+ 7/25     12   246356  53401   426     203     1579
+ 7/25     13   246360  53401   426     203     1579
+ 7/25     14   246500  53401   426     203     1579
+ 7/26     15   247724  53574   429     203     1580
+ 7/26     7    247716  53574   429     203     1580
+ 7/26     7    247716  53574   429     203     1580
+ 7/26     7    247720  53574   429     203     1580
+ 7/26     8    247708  53574   429     203     1580
+ 7/27     7    247704  53574   429     203     1580
+ 7/27     7    247748  53574   429     203     1580
+ 7/27     7    247752  53574   429     203     1580
+ 7/27     8    248370  53567   430     203     1585
+ 7/28     9    248402  53597   430     203     1587
+ 7/28     8    248402  53597   430     203     1587
+ 7/28     9    248596  53597   430     203     1587
+ 7/28     10   248688  53566   430     203     1587
+ 7/28     8    248712  53566   430     203     1587
+ 7/28     8    248712  53566   430     203     1587
+ 7/28     8    248708  53566   430     203     1587
+ 7/28     8    248716  53566   430     203     1587
+ 7/29     9    248936  53563   430     203     1587
+ 7/30     10   248908  53541   430     203     1583
+ 7/30     11   248944  53563   430     203     1585
+ 7/30     9    248944  53563   430     203     1585
+ 7/30     9    248944  53563   430     203     1585
+ 7/31     10   249400  53575   430     203     1585
+ 7/31     11   249316  53504   430     203     1585
+ 7/31     12   249268  53500   430     203     1585
+ 7/31     13   249472  53512   430     203     1585
+ 8/01     14   249864  53517   429     203     1585
+ 8/01     10   249860  53517   429     203     1585
+ 8/01     11   250488  53541   429     203     1587
+ 8/03     10   250488  53541   429     203     1587
+ 8/03     11   239228  51974   413     198     1560
+ 8/03     12   239184  51974   413     198     1560
+ 8/04     13   242616  52341   420     197     1575
+ 8/04     14   242636  52341   420     197     1575
+ 8/04     15   242676  52317   419     197     1575
+ 8/04     16   242676  52317   419     197     1575
+ 8/04     17   243240  52439   421     197     1581
+ 8/05     18   244772  52459   421     197     1582
+ 8/05     19   244760  52459   421     197     1582
+ 8/05     20   244760  52459   421     197     1582
+ 8/05     21   244760  52459   421     197     1582
+ 8/05     22   244756  52459   421     197     1582
+ 8/05     23   244784  52459   421     197     1582
+ 8/05     24   244784  52459   421     197     1582
+ 8/05     25   245064  52459   421     197     1582
+ 8/05     26   245356  52455   421     197     1582
+ 8/05     11   245388  52455   421     197     1582
+ 8/05     11   245420  52457   421     197     1582
+ 8/06     12   245736  52448   421     197     1581
+ 8/06     12   245736  52448   421     197     1581
+ 8/06     12   245736  52448   421     197     1581
+ 8/06     12   245732  52448   421     197     1581
+ 8/06     12   245732  52448   421     197     1581
+ 8/06     12   245732  52448   421     197     1581
+ 8/06     12   245736  52448   421     197     1581
+ 8/06     12   245736  52448   421     197     1581
+ 8/06     12   245736  52448   421     197     1581
+ 8/06     12   245736  52448   421     197     1581
+ 8/06     12   245732  52448   421     197     1581
+ 8/06     12   245732  52448   421     197     1581
+ 8/06     13   245500  52448   421     197     1581
+ 8/06     14   238760  46511   421     197     1564
+ 8/07     15   238772  46511   421     197     1564
+ 8/07     16   245692  52469   421     197     1582
+ 8/08     17   245692  52469   421     197     1582
+ 8/08     18   245680  52469   421     197     1582
+ 8/09     19   247072  52701   423     197     1589
+ 8/09     20   247084  52701   423     197     1589
+ 8/10     14   247080  52701   423     197     1589
+ 8/10     14   247084  52701   423     197     1589
+ 8/10     15   247092  52678   422     197     1589
+ 8/10     14   247092  52678   422     197     1589
+ 8/10     15   247096  52678   422     197     1589
+ 8/10     16   247104  52678   422     197     1589
+ 8/10     17   248172  52868   423     197     1594
+ 8/11     15   248172  52868   423     197     1594
+ 8/11     15   248176  52868   423     197     1594
+ 8/11     16   248208  52868   423     197     1594
+ 8/11     17   248208  52868   423     197     1594
+ 8/11     18   248316  52900   423     197     1595
+ 8/11     19   248620  52902   423     196     1595
+ 8/11     20   249136  53041   425     195     1600
+ 8/11     16   249148  53043   425     195     1600
+ 8/11     17   243008  47006   425     195     1583
+ 8/12     17   249140  53046   425     195     1600
+ 8/12     16   249144  53046   425     195     1600
+ 8/12     17   249100  53043   425     195     1600
+ 8/12     16   249100  53043   425     195     1600
+ 8/12     17   249560  53108   426     195     1603
+ 8/14     18   249560  53108   426     195     1603
+ 8/14     19   249548  53108   426     195     1603
+ 8/14     20   249552  53108   426     195     1603
+ 8/14     21   249552  53108   426     195     1603
+ 8/14     22   249804  53196   427     195     1606
+ 8/15     23   252468  53686   436     195     1619
+ 8/15     24   252456  53686   436     195     1619
+ 8/15     25   253408  53936   439     195     1627
+ 8/15     26   253724  53993   440     195     1629
+ 8/16     27   253724  53993   440     195     1629
+ 8/16     28   253980  54003   440     195     1629
+ 8/16     29   253980  54003   440     195     1629
+ 8/16     30   253984  54005   440     195     1629
+ 8/16     31   254048  54000   440     195     1629
+ 8/16     32   255386  54173   441     196     1632
+ 8/16     19   255382  54173   441     196     1632
+ 8/16     20   255230  54212   441     196     1632
+ 8/17     21   255330  54212   441     196     1632
+ 8/17     19   255330  54212   441     196     1632
+ 8/17     20   256140  54349   442     197     1633
+ 8/17     20   256092  54343   442     197     1633
+ 8/18     21   256428  54343   442     197     1633
+ 8/18     22   256396  54352   442     196     1634
+ 8/18     23   256408  54352   442     196     1634
+ 8/18     24   256408  54352   442     196     1634
+ 8/18     25   256388  54352   442     196     1634
+ 8/18     26   256408  54352   442     196     1634
+ 8/18     27   256404  54352   442     196     1634
+ 8/19     22   256404  54352   442     196     1634
+ 8/19     23   253672  54182   441     196     1629
+ 8/19     24   253452  54158   441     197     1627
+ 8/20     23   253244  54158   441     197     1627
+ 8/20     24   255100  54259   441     197     1635
+ 8/20     24   255100  54259   441     197     1635
+ 8/20     24   255124  54259   441     197     1635
+ 8/21     24   255124  54259   441     197     1635
+ 8/21     24   255124  54259   441     197     1635
+ 8/21     25   255052  54256   441     197     1635
+ 8/21     25   255052  54256   441     197     1635
+ 8/22     26   255312  54256   441     197     1635
+ 8/22     27   255312  54256   441     197     1635
+ 8/22     28   255312  54256   441     197     1635
+ 8/22     29   255312  54256   441     197     1635
+ 8/22     30   255296  54256   441     197     1635
+ 8/22     31   255416  54259   441     197     1635
+ 8/22     32   255520  54259   441     197     1635
+ 8/24     33   255516  54259   441     197     1635
+ 8/24     34   255884  54259   441     197     1635
+ 8/24     35   255884  54259   441     197     1635
+ 8/24     36   255920  54259   441     197     1635
+ 8/24     37   255932  54259   441     197     1635
+ 8/24     38   255972  54259   441     197     1635
+ 8/24     39   255976  54259   441     197     1635
+ 8/24     40   253800  53597   433     196     1630
+ 8/24     41   253800  53597   433     196     1630
+ 8/24     42   253792  53597   433     196     1630
+ 8/24     43   253796  53597   433     196     1630
+ 8/24     26   253796  53597   433     196     1630
+ 8/25     27   255028  53781   435     196     1639
+ 8/26     27   255052  53781   435     196     1639
+ 8/26     28   255324  53927   436     197     1644
+ 8/26     29   255352  53927   436     197     1644
+ 8/27     30   256844  53927   436     197     1644
+ 8/27     27   256876  53927   436     197     1644
+ 8/27     28   256640  54059   438     195     1648
+ 8/27     29   257108  54072   438     195     1649
+ 8/27     30   257144  54072   438     195     1649
+ 8/27     28   257156  54072   438     195     1649
+ 8/28     29   257572  54104   438     195     1650
+ 8/28     28   257580  54104   438     195     1650
+ 8/28     28   257588  54104   438     195     1650
+ 8/28     29   257120  54177   440     194     1653
+ 8/28     30   257120  54177   440     194     1653
+ 8/28     31   256844  54199   440     194     1655
+ 8/28     32   256804  54193   440     194     1655
+ 8/29     33   257228  54215   440     195     1658
+ 8/29     34   257980  54213   440     195     1658
+ 8/29     35   259072  54261   441     195     1659
+ 8/29     36   259084  54322   442     195     1659
+ 8/30     37   259084  54322   442     195     1659
+ 8/30     38   259836  54568   446     198     1666
+ 8/30     39   259820  54568   446     198     1666
+ 8/30     40   259852  54562   446     195     1666
+ 8/30     41   260648  54729   448     196     1670
+ 8/30     29   260648  54729   448     196     1670
+ 8/31     30   260656  54729   448     196     1670
+ 8/31     31   259300  54705   447     203     1669
+ 8/31     32   259304  54705   447     203     1669
+ 8/31     33   259852  54763   448     203     1671
+ 8/31     34   260320  54786   448     203     1671
+ 8/31     35   258916  54627   446     203     1666
+ 9/01     36   258496  54627   446     203     1666
+ 9/01     36   258496  54627   446     203     1666
+ 9/01     37   256256  54601   446     202     1665
+ 9/01     38   256260  54601   446     202     1665
+ 9/01     39   257440  54648   446     203     1664
+ 9/01     31   257408  54648   446     203     1664
+ 9/01     31   257416  54648   446     203     1664
+ 9/01     31   257440  54648   446     203     1664
+ 9/02     32   257404  54648   446     203     1664
+ 9/02     33   257428  54648   446     203     1664
+ 9/02     32   257428  54648   446     203     1664
+ 9/02     33   257484  54648   446     203     1664
+ 9/02     34   258748  54651   446     203     1664
+ 9/02     33   258656  54645   446     203     1664
+ 9/02     34   258672  54645   446     203     1664
+ 9/03     35   259508  54720   447     203     1664
+ 9/03     36   259248  54719   447     204     1664
+ 9/04     33   259248  54719   447     204     1664
+ 9/04     34   259240  54719   447     204     1664
+ 9/04     35   259240  54719   447     204     1664
+ 9/04     36   259236  54719   447     204     1664
+ 9/04     37   259236  54719   447     204     1664
+ 9/04     38   259236  54719   447     204     1664
+ 9/04     39   259236  54719   447     204     1664
+ 9/04     40   259236  54719   447     204     1664
+ 9/04     41   257556  54090   447     213     1605
+ 9/05     42   259104  54183   448     213     1604
+ 9/05     43   259056  54192   448     213     1605
+ 9/05     34   259056  54192   448     213     1605
+ 9/05     35   259040  54226   448     213     1605
+ 9/05     34   259044  54226   448     213     1605
+ 9/05     35   259044  54226   448     213     1605
+ 9/05     36   260700  54238   448     213     1605
+ 9/05     37   260568  54228   448     213     1605
+ 9/05     38   260620  54258   448     213     1608
+ 9/05     39   259980  54015   448     215     1584
+ 9/06     36   259952  54021   448     215     1584
+ 9/06     36   259936  54021   448     215     1584
+ 9/06     37   258952  53706   444     215     1580
+ 9/06     38   258612  53706   444     215     1580
+ 9/06     39   258648  53706   444     215     1580
+ 9/06     40   259488  53856   445     216     1592
+ 9/06     41   259712  53881   445     216     1594
+ 9/07     42   261456  53892   445     217     1594
+ 9/07     37   261280  53884   445     217     1594
+ 9/07     38   261044  53872   444     219     1596
+ 9/07     37   261044  53872   444     219     1596
+ 9/07     38   261044  53872   444     219     1596
+ 9/07     39   262236  53924   444     219     1597
+ 9/07     38   261956  53920   444     219     1597
+ 9/08     39   261424  53445   444     220     1548
+ 9/08     38   261416  53445   444     220     1548
+ 9/08     38   261440  53445   444     220     1548
+ 9/08     39   261444  53445   444     220     1548
+ 9/08     40   261076  53438   444     221     1549
+ 9/08     40   261068  53438   444     221     1549
+ 9/08     41   261632  53461   444     220     1551
+ 9/08     42   261616  53461   444     220     1551
+ 9/08     43   261616  53461   444     220     1551
+ 9/08     44   261616  53461   444     220     1551
+ 9/09     45   262348  53531   445     221     1550
+ 9/09     46   261136  53353   445     223     1547
+ 9/09     47   261088  53353   445     223     1547
+ 9/09     48   262828  53713   446     223     1553
+ 9/09     49   262904  53723   446     223     1553
+ 9/10     50   261804  53589   445     224     1551
+ 9/10     41   261672  53589   445     224     1551
+ 9/10     41   261672  53589   445     224     1551
+ 9/10     41   261676  53589   445     224     1551
+ 9/10     41   261676  53589   445     224     1551
+ 9/10     42   261284  53683   445     226     1553
+ 9/10     42   261384  53679   445     226     1553
+ 9/11     43   261536  53790   446     226     1555
+ 9/11     43   261560  53790   446     226     1555
+ 9/11     44   261640  53805   446     226     1556
+ 9/11     45   261800  53938   447     226     1566
+ 9/11     43   261744  53936   447     226     1566
+ 9/11     43   261740  53936   447     226     1566
+ 9/12     44   261728  53968   447     229     1566
+ 9/12     45   261844  53968   447     229     1566
+ 9/12     43   261844  53968   447     229     1566
+ 9/14     44   261868  53968   447     229     1566
+ 9/14     44   261864  53968   447     229     1566
+ 9/14     44   261860  53968   447     229     1566
+ 9/14     44   261860  53968   447     229     1566
+ 9/14     45   261876  53968   447     229     1566
+ 9/14     45   261884  53968   447     229     1566
+ 9/14     45   261828  53968   447     229     1566
+ 9/14     46   261920  53978   447     229     1566
+ 9/14     46   261916  53978   447     229     1566
+ 9/14     46   261920  53978   447     229     1566
+ 9/15     47   261952  53996   447     229     1567
+ 9/16     48   261040  53998   447     229     1567
+ 9/16     48   261916  53998   447     229     1567
+ 9/16     48   261916  53998   447     229     1567
+ 9/16     48   261900  53998   447     229     1567
+ 9/16     48   261904  53998   447     229     1567
+ 9/16     48   261900  53998   447     229     1567
+ 9/16     49   261900  53998   447     229     1567
+ 9/17     49   261900  53998   447     229     1567
+ 9/21     50   261584  53998   447     229     1567
+
\ No newline at end of file
diff --git a/bzalpha.zip b/bzalpha.zip
new file mode 100644 (file)
index 0000000..778eb92
Binary files /dev/null and b/bzalpha.zip differ
diff --git a/bzbeta.zip b/bzbeta.zip
new file mode 100644 (file)
index 0000000..ec0ae17
Binary files /dev/null and b/bzbeta.zip differ
index 62c19ebb7a73d39ba78d393992184b3138a3ac14..3d3b72483f1396184a25417a36158a00f231b6c2 100644 (file)
 <CONSTANT C-CYAN 8>
 <CONSTANT C-WHITE 9>
 
-<CONSTANT COLOR-NAMES
-         <PTABLE "same" "default" "black" "red" "green" "yellow"
-                 "blue" "magenta" "cyan" "white">>
-
 <CONSTANT BWWW <PTABLE (BYTE) C-BLUE C-WHITE C-WHITE C-WHITE>> 
 <CONSTANT BWCR <PTABLE (BYTE) C-BLACK C-WHITE C-CYAN C-RED>>
 <CONSTANT WBBB <PTABLE (BYTE) C-WHITE C-BLACK C-BLACK C-BLACK>>
 <CONSTANT DWWW <PTABLE (BYTE) C-BLACK C-WHITE C-WHITE C-WHITE>>
+<CONSTANT DEFCOLORS 
+         <PTABLE (BYTE) C-DEFAULT C-DEFAULT C-DEFAULT C-DEFAULT>>
 
 <CONSTANT ST-MONO <PLTABLE DWWW WBBB>>
 
          <PLTABLE
           0 ; "DEC-20"
           0 ; "Apple //e"
-          <PLTABLE
-              WBBB
-              DWWW > ; "Macintosh"
+          0 ; "Macintosh"
           <PLTABLE
               BWCR DWWW BWWW WBBB> ; "Amiga"
           <PLTABLE
               BWCR DWWW BWWW WBBB> ; "Atari ST"
           <PLTABLE
+              DEFCOLORS
               BWWW
-             <PTABLE (BYTE) C-BLUE C-WHITE C-WHITE C-CYAN>
-             <PTABLE (BYTE) C-BLUE C-WHITE C-WHITE C-GREEN>
-             BWCR DWWW WBBB> ; "IBM"
+              <PTABLE (BYTE) C-BLUE C-WHITE C-WHITE C-GREEN>
+              BWCR DWWW WBBB> ; "IBM"
           <PLTABLE
              <PTABLE (BYTE) C-BLACK C-WHITE C-YELLOW C-CYAN>
               DWWW WBBB BWWW> ; "C128"
 <CONSTANT MAX-LEVEL 8>
 <CONSTANT RANK-NAMES <PTABLE "Peasant" "Novice" "Cheater">>
 
+; <CONSTANT SAVE-NAME <PLTABLE (STRING) "BEYONDZ">>
+
 <CONSTANT CHARNAME-LENGTH 24>
 <CONSTANT CHARNAME <ITABLE %<+ ,CHARNAME-LENGTH 1> (BYTE) 0>>
 
-<CONSTANT SAVE-NAME <PLTABLE (STRING) "BEYONDZ">>
-
 <CONSTANT NAMES-LENGTH 12>
 
 <CONSTANT DEFAULT-NAME-LENGTH 13>
 <CONSTANT DEFAULT-NAME
-         <PTABLE (STRING) 11 "Buck Palace" 0>>
+         <PTABLE (STRING) 11 "Frank Booth" 0>>
 
 <CONSTANT LABEL-WIDTH 12>
 <CONSTANT BAR-LABELS
index 1fda2958e55cd0156fe9b683e39aff155dbdfc38..ff9c345a9d5b0ad304b7da23b430ff480d9278bc 100644 (file)
                           <3 .OBJ>>>
              <REST .L>>)>
 
-<PUTPROP THINGS PROPSPEC!-IZILCH PSEUDO>
+<PUTPROP THINGS PROPSPEC PSEUDO>
 
 <DEFMAC LSB ('WRD)
        <FORM BAND .WRD 127>>
index a09650d0893947bf446819d641d844bd4c8d14d4..e2f8330328f81b8799d5fc165fd78812feb0b380 100644 (file)
--- a/misc.zil
+++ b/misc.zil
         <RFALSE>>
 
 <ROUTINE DO-CURSET (Y X)
-        <COND (<EQUAL? 1 ,CWIDTH ,CHEIGHT>
-               <CURSET .Y .X>
-               <RFALSE>)>
-        <SET X <* .X ,CWIDTH>>
-        <CURSET <* ,CHEIGHT .Y> .X>
+        <COND (<NOT <EQUAL? 1 ,CWIDTH ,CHEIGHT>>
+               <DEC X>
+               <SET X <* .X ,CWIDTH>>
+               <INC X>
+               <DEC Y>
+               <SET Y <* .Y ,CHEIGHT>>
+               <INC Y>)>
+        <CURSET .Y .X>
         <RFALSE>>
 
 <ROUTINE TO-TOP-WINDOW ("AUX" X)
         <DPRINT .O>
         <RTRUE>>
 
+<ROUTINE DESCRIBE-LANTERN (OBJ)
+        <COND (<IS? .OBJ ,MUNGED>
+               <TELL B ,W?BROKEN C ,SP>)
+              (<IS? .OBJ ,LIGHTED>
+               <TELL B ,W?LIGHTED C ,SP>)
+              (<NOT <IS? .OBJ ,MAPPED>>
+               <TELL B ,W?RUSTY C ,SP>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-SHILL (OBJ)
+        <COND (<IS? .OBJ ,NAMED>
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <COND (<ZERO? ,INV-PRINTING?>
+                      <RTRUE>)>
+               <TELL ,STHE>)>
+        <COND (<IS? .OBJ ,TOUCHED>
+               <PRINTD .OBJ>
+               <RTRUE>)>
+        <TELL "piece of " B ,W?DRIFTWOOD>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-SWORD (OBJ)
+        <COND (<IS? .OBJ ,NAMED>
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <COND (<ZERO? ,INV-PRINTING?>
+                      <RTRUE>)>
+               <TELL ,STHE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-AXE (OBJ)
+        <COND (<IS? .OBJ ,NAMED>
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <COND (<ZERO? ,INV-PRINTING?>
+                      <RTRUE>)>
+               <TELL ,STHE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-DAGGER (OBJ)
+        <COND (<IS? .OBJ ,NAMED>
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <COND (<ZERO? ,INV-PRINTING?>
+                      <RTRUE>)>
+               <TELL ,STHE>)>
+        <COND (<IS? .OBJ ,MUNGED>
+               <TELL B ,W?RUSTY C ,SP>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-AMULET (OBJ)
+        <COND (<IS? ,AMULET ,IDENTIFIED>
+               <TELL "Amulet of ">
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-PHASE (OBJ)
+        <COND (<IS? .OBJ ,NAMED>
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <COND (<ZERO? ,INV-PRINTING?>
+                      <RTRUE>)>
+               <TELL ,STHE>)>
+        <COND (<HERE? APLANE>
+               <PRINTD .OBJ>
+               <RTRUE>)>
+        <TELL 'SHAPE>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-JUNGLE-WAND (CONTEXT)
+        <TELL CA ,DESCING " lies in a clump of grass.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-MOOR-WAND (CONTEXT)
+        <TELL "The end of " A ,DESCING " sticks out of the mud.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-FOREST-WAND (CONTEXT)
+        <TELL "Somebody has left " A ,DESCING " lying across the path.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-CELLAR-WAND (CONTEXT)
+        <TELL CA ,DESCING " lies in a shadowy corner.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-TOWER-WAND (CONTEXT)
+        <TELL CA ,DESCING>
+        <PRINT " lies half-hidden in ">
+        <TELL "a corner.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-HALL-WAND (CONTEXT)
+        <TELL "The tip of " A ,DESCING>
+        <PRINT " is visible in the ">
+        <TELL "rubble.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-TELE-WAND (OBJ)
+        <PRINTD .OBJ>
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL " of Sayonara">)>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-SLEEP-WAND (OBJ)
+        <PRINTD .OBJ>
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL " of Anesthesia">)>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-IO-WAND (OBJ)
+        <PRINTD .OBJ>
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL " of Eversion">)>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-LEV-WAND (OBJ)
+        <PRINTD .OBJ>
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL " of Levitation">)>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-BLAST-WAND (OBJ)
+        <PRINTD .OBJ>
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL " of Annihilation">)>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-DISPEL-WAND (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "Dispel ">)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-HELM (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "Pheehelm">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-HORSE (OBJ)
+        <COND (<IS? ,HORSE ,LIVING>
+               <TELL B ,W?GRAY>)
+              (T
+               <TELL B ,W?DEAD>)>
+        <TELL C ,SP 'HORSE>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-TRENCH (OBJ)
+        <COND (<HERE? ARCH12>
+               <TELL "minxhole">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-KEYS (OBJ "AUX" WORD)
+        <SET WORD <GET <GETPT .OBJ ,P?ADJECTIVE> 0>>
+        <COND (<NOT <SEE-COLOR?>>
+               <SET WORD ,W?GRAY>)>
+        <TELL B .WORD C ,SP>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-ARROW (OBJ)
+        <COND (<IS? .OBJ ,NAMED>
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <COND (<ZERO? ,INV-PRINTING?>
+                      <RTRUE>)>
+               <TELL ,STHE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-CLOAK (OBJ)
+        <PRINTD .OBJ>
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL " of Stealth">)>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-PARASOL (OBJ)
+        <COND (<IS? .OBJ ,MUNGED>
+               <TELL B ,W?BROKEN>)
+              (<IS? .OBJ ,OPENED>
+               <TELL B ,W?OPEN>)
+              (T
+               <TELL B ,W?CLOSED>)>
+        <PRINTC ,SP>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-WHISTLE (OBJ)
+        <PRINTD .OBJ>
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL " of Summoning">)>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-BFLY (OBJ)
+        <COND (<IS? .OBJ ,NAMED>
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <COND (<ZERO? ,INV-PRINTING?>
+                      <RTRUE>)>
+               <TELL ,STHE>)>
+        <COND (<NOT <IS? .OBJ ,LIVING>>
+               <TELL "dead ">)>
+        <COND (<IS? .OBJ ,MUNGED>
+               <PRINT "caterpillar">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-GOBLET (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "Chalice of ">
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-RING (OBJ)
+        <PRINTD .OBJ>
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL " of Shielding">)>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-SPADE (OBJ)
+        <COND (<IS? .OBJ ,NAMED>
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <COND (<ZERO? ,INV-PRINTING?>
+                      <RTRUE>)>
+               <TELL ,STHE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-SCABBARD (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "Sheath of Grueslayer">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-DIAMOND (OBJ)
+        <TELL B ,W?SNOWFLAKE>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-DO-PARTAY (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "scroll of Mischief">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-BLESS-WEAPON (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "scroll of Honing">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-BLESS-ARMOR (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "scroll of Protection">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-DO-FILFRE (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "scroll of Fireworks">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-DO-GOTO (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "scroll of Recall">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-TOWER-SCROLL (CONTEXT)
+        <TELL CA ,DESCING>
+        <PRINT " lies half-hidden in ">
+        <TELL "shadow.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-FOREST-SCROLL (CONTEXT)
+        <TELL CA ,DESCING>
+        <PRINT " lies forgotten in ">
+        <TELL "the underbrush.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-PLAIN-SCROLL (CONTEXT)
+        <TELL CA ,DESCING " is blowing against a clump of grass.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-MOOR-SCROLL (CONTEXT)
+        <TELL CA ,DESCING " lies trodden in the mud.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-JUNGLE-SCROLL (CONTEXT)
+        <TELL "The undergrowth nearly conceals " A ,DESCING C ,PER>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-RENEWAL (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "scroll of Renewal">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE RENEWAL-DESC (CONTEXT)
+        <TELL CA ,RENEWAL " lies trampled in the dust.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-PALIMP (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "scroll of Gating">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-STONE (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "Scrystone of ">
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-WALL (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <COND (<EQUAL? .OBJ ,NWALL>
+                      <TELL "Nor">)
+                     (T
+                      <TELL "Sou">)>
+               <TELL "th Wall of ">
+               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-IQ-POTION (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "potion of Enlightenment">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-HEALING-POTION (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "potion of Healing">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-DEATH-POTION (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "potion of Death">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-MIGHT-POTION (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "potion of Might">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-FORGET-POTION (OBJ)
+        <COND (<IS? .OBJ ,IDENTIFIED>
+               <TELL "potion of Forgetfulness">
+               <RTRUE>)>
+        <PRINTD .OBJ>
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-MOOR-POTION (CONTEXT)
+        <TELL "Some luckless fool has left " A ,DESCING
+              " in the mud.">
+        <RTRUE>>
+
+<ROUTINE DESCRIBE-RUINS-POTION (CONTEXT)
+        <TELL "Someone else must have been here recently. There's " 
+              A ,DESCING>
+        <PRINT " lying in the dust.">
+        <RTRUE>>
+
 <ROUTINE KERBLAM ()
         <ITALICIZE "Kerblam">
         <TELL "! ">
index 7a611dde83a31806866e2c2e83046e88c500cc18..34bfff17f60716c1631e4c755b43c3de5bf1b07a 100644 (file)
@@ -4736,10 +4736,11 @@ THE ,BENCH " in the center of the room">
                <REPLACE-SYN? ,PRINCE ,W?CORPSE ,W?ZZZP>
                <REPLACE-ADJ? ,PRINCE ,W?DEAD ,W?ZZZP>
                <REMOVE ,HORSE>
+               <REMOVE ,DEAD-HORSE>
                <MAKE ,HORSE ,LIVING>
                <UNMAKE ,HORSE ,NODESC>
-               <REPLACE-ADJ? ,HORSE ,W?DEAD ,W?ZZZP>
-               <PUTP ,HORSE ,P?ACTION ,HORSE-F>)>
+             ; <REPLACE-ADJ? ,HORSE ,W?DEAD ,W?ZZZP>
+             ; <PUTP ,HORSE ,P?ACTION ,HORSE-F>)>
         <RETURN <HANDLE-ARCH-ROOMS? .CONTEXT>>>
 
 <OBJECT ARCH5
index a24a040a59f5d5ac5bfcaca933cee9530ce1079a..46bbc5f2a7b7a55af1755b8b462254617a312dfb 100644 (file)
         (LOC GLOBAL-OBJECTS)
        (DESC "yourself")
        (FLAGS PERSON LIVING TOUCHED NOARTICLE)
-       (SYNONYM BUCK PALACE I ME MYSELF SELF BODY)
-       (ADJECTIVE BUCK MY OWN)
+       (SYNONYM I ME MYSELF SELF BODY)
+       (ADJECTIVE MY OWN)
        (ACTION ME-F)>
 
 <ROUTINE ME-F ("OPT" (CONTEXT <>) "AUX" (ANY <>) OBJ NXT X) 
@@ -1642,8 +1642,6 @@ By what Name shall your character be known?">
                <DEQUEUE ,I-URGRUE>
                <UNMAKE ,URGRUE ,LIVING>
                <SETG LAST-MONSTER <>>
-             ; <DEQUEUE ,I-URGRUE>
-             ; <WINDOW ,SHOWING-ROOM>
                <TELL 
 "leaving you gasping but alive. You stumble backwards to find the old man leaning against the wall, breathing hard, his eyes brimming with tears.|
   \"Enough,\" he cries again, gesturing towards the exit. \"Take what you want and leave this place! I cannot bring myself to murder one so virtuous. Go!\" His voice is bitter with despair. \"Leave me to wallow in Compassion.\"|
@@ -1737,8 +1735,9 @@ By what Name shall your character be known?">
                <SET TBL <GET ,MACHINE-COLORS ,HOST>>
                <COND (<AND <ZERO? ,COLORS?>
                            <EQUAL? ,HOST ,ATARI-ST>>
-                      <SET TBL ,ST-MONO>)>
-               <COND (<OR <ZERO? .TBL>
+                      <SET TBL ,ST-MONO>)
+                     (<OR <ZERO? ,COLORS?>
+                          <ZERO? .TBL>
                           <AND <SET CNT <GET .TBL 0>>
                                <L? .CNT 2>>>
                       <NOT-AVAILABLE>
@@ -1749,12 +1748,12 @@ By what Name shall your character be known?">
                <SETG INCOLOR <GETB .TBL 2>>
                <SETG GCOLOR <GETB .TBL 3>>
                <V-REFRESH>
-               <TELL CR "[Color palette " N ,PALLETTE
+               <TELL CR "[Color pallette " N ,PALLETTE
                      " of " N .CNT ".]" CR>
                <COND (<IGRTR? PALLETTE .CNT>
                       <SETG PALLETTE 1>)>
                <RTRUE>)
-              (<PRSO? INTNUM>
+            ; (<PRSO? INTNUM>
                <COND (<ZERO? ,P-NUMBER>
                       <COND (<IGRTR? BGND 9>
                              <SETG BGND 1>)>
@@ -1786,7 +1785,7 @@ By what Name shall your character be known?">
         <DONT-UNDERSTAND>
         <RTRUE>>
 
-<ROUTINE SAY-COLOR (C STR "OPT" X)
+<ROUTINE SAY-COLOR (C STR "OPT" X)
         <COND (<NOT <ASSIGNED? X>>
                <V-REFRESH>)>
         <TELL "[" .STR " color = " <GET ,COLOR-NAMES .C> ".]" CR>
@@ -1928,7 +1927,7 @@ beyond Magick, beyond Science ...\"||">
 
 <ROUTINE V-$CREDITS ("AUX" X)
         <CLEAR -1>
-        <SPLIT 23>
+        <SPLIT <- ,HEIGHT 1>>
         <TO-TOP-WINDOW>
         <CENTER 2 33>
         <BIG-ZORK>
@@ -1957,29 +1956,36 @@ beyond Magick, beyond Science ...\"||">
         <COLOR ,FORE ,BGND>
         <TELL "Carl Genatossio       Jon Palace       Elizabeth Langosy">
 
-        <CENTER 15 57>
-        <COLOR ,INCOLOR ,BGND>
-        <TELL 
+        <SET X 15>
+        <COND (<G? ,HEIGHT 23>
+               <CENTER .X 57>
+               <COLOR ,INCOLOR ,BGND>
+               <TELL 
 "Cover           Map & Book       Photography     Production">
-        
-        <CENTER 16 63>
-        <COLOR ,FORE ,BGND>
-        <TELL 
+               <INC X>
+               <CENTER .X 63>
+               <COLOR ,FORE ,BGND>
+               <TELL 
 "John Gamache    Bruce Hutchinson    Steve Grohe    Angela Crews">
+               <SET X <+ .X 2>>)>
 
-        <CENTER 18 18>
+        <CENTER .X 18>
         <COLOR ,INCOLOR ,BGND>
         <TELL "Micro Interpreters">
-        <CENTER 19 47>
+        <INC X>
+        <CENTER .X 47>
         <COLOR ,FORE ,BGND>
         <TELL "Tim Anderson    Jon Arnold     Duncan Blanchard">
-        <CENTER 20 34>
+        <INC X>
+        <CENTER .X 34>
         <TELL "Linde Dynneson    Andy Kaluzniacki">
+        <SET X <+ .X 2>>
         
         <COLOR ,INCOLOR ,BGND>
-        <CENTER 22 20>
+        <CENTER .X 20>
         <TELL "Z Development System">
-        <CENTER 23 43>
+        <INC X>
+        <CENTER .X 43>
         <COLOR ,FORE ,BGND>
         <TELL "Tim Anderson    Dave Lebling    Chris Reeve">
         <TO-BOTTOM-WINDOW>
index 43af785506442ca8966790112ca090b2f64fab9d..67dab1487d8d4c6b7520022c69f1db9ae857f89b 100644 (file)
        (ADJECTIVE LIGHT LAMP RUSTY RUSTED DARK ZZZP)
        (ACTION LANTERN-F)>
 
-<ROUTINE DESCRIBE-LANTERN (OBJ)
-        <COND (<IS? .OBJ ,MUNGED>
-               <TELL B ,W?BROKEN C ,SP>)
-              (<IS? .OBJ ,LIGHTED>
-               <TELL B ,W?LIGHTED C ,SP>)
-              (<NOT <IS? .OBJ ,MAPPED>>
-               <TELL B ,W?RUSTY C ,SP>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE LANTERN-F ("AUX" TBL X)
         <COND (<THIS-PRSI?>
        (DESCFCN DESCRIBE-WEAPONS)
        (ACTION SHILL-F)>
 
-<ROUTINE DESCRIBE-SHILL (OBJ)
-        <COND (<IS? .OBJ ,NAMED>
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <COND (<ZERO? ,INV-PRINTING?>
-                      <RTRUE>)>
-               <TELL ,STHE>)>
-        <COND (<IS? .OBJ ,TOUCHED>
-               <PRINTD .OBJ>
-               <RTRUE>)>
-        <TELL "piece of " B ,W?DRIFTWOOD>
-        <RTRUE>>
        
 "BUOYANT = queue flag, NODESC = appearance delay."
 
        (DESCFCN DESCRIBE-WEAPONS)
        (ACTION SWORD-F)>
         
-<ROUTINE DESCRIBE-SWORD (OBJ)
-        <COND (<IS? .OBJ ,NAMED>
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <COND (<ZERO? ,INV-PRINTING?>
-                      <RTRUE>)>
-               <TELL ,STHE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE SWORD-F ()
         <COND (<THIS-PRSI?>
        (DESCFCN DESCRIBE-WEAPONS)
        (ACTION AXE-F)>
         
-<ROUTINE DESCRIBE-AXE (OBJ)
-        <COND (<IS? .OBJ ,NAMED>
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <COND (<ZERO? ,INV-PRINTING?>
-                      <RTRUE>)>
-               <TELL ,STHE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE AXE-F ()
         <COND (<THIS-PRSI?>
        (DESCFCN DESCRIBE-WEAPONS)
        (ACTION DAGGER-F)>
 
-<ROUTINE DESCRIBE-DAGGER (OBJ)
-        <COND (<IS? .OBJ ,NAMED>
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <COND (<ZERO? ,INV-PRINTING?>
-                      <RTRUE>)>
-               <TELL ,STHE>)>
-        <COND (<IS? .OBJ ,MUNGED>
-               <TELL B ,W?RUSTY C ,SP>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE DAGGER-F ()
         <COND (<THIS-PRSI?>
@@ -1019,13 +973,6 @@ THE ,BOTTLE
        (NAME-TABLE 0)
        (ACTION AMULET-F)>
 
-<ROUTINE DESCRIBE-AMULET (OBJ)
-        <COND (<IS? ,AMULET ,IDENTIFIED>
-               <TELL "Amulet of ">
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <GLOBAL AMULET-STARS:NUMBER 3>
 <GLOBAL AMULET-WORD <>>
@@ -2279,17 +2226,6 @@ THE ,BOTTLE
 
 "NOALL = never seen."
 
-<ROUTINE DESCRIBE-PHASE (OBJ)
-        <COND (<IS? .OBJ ,NAMED>
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <COND (<ZERO? ,INV-PRINTING?>
-                      <RTRUE>)>
-               <TELL ,STHE>)>
-        <COND (<HERE? APLANE>
-               <PRINTD .OBJ>
-               <RTRUE>)>
-        <TELL 'SHAPE>
-        <RTRUE>>
 
 <ROUTINE HARD-PHASE-F ()
         <COND (<THIS-PRSI?>
@@ -2565,39 +2501,7 @@ THE ,BOTTLE
        (DESCFCN 0)
        (ACTION 0)>
 
-<ROUTINE DESCRIBE-JUNGLE-WAND (CONTEXT)
-        <TELL CA ,DESCING " lies in a clump of grass.">
-        <RTRUE>>
-
-<ROUTINE DESCRIBE-MOOR-WAND (CONTEXT)
-        <TELL "The end of " A ,DESCING " sticks out of the mud.">
-        <RTRUE>>
-
-<ROUTINE DESCRIBE-FOREST-WAND (CONTEXT)
-        <TELL "Somebody has left " A ,DESCING " lying across the path.">
-        <RTRUE>>
-
-<ROUTINE DESCRIBE-CELLAR-WAND (CONTEXT)
-        <TELL CA ,DESCING " lies in a shadowy corner.">
-        <RTRUE>>
-
-<ROUTINE DESCRIBE-TOWER-WAND (CONTEXT)
-        <TELL CA ,DESCING>
-        <PRINT " lies half-hidden in ">
-        <TELL "a corner.">
-        <RTRUE>>
-
-<ROUTINE DESCRIBE-HALL-WAND (CONTEXT)
-        <TELL "The tip of " A ,DESCING>
-        <PRINT " is visible in the ">
-        <TELL "rubble.">
-        <RTRUE>>
 
-<ROUTINE DESCRIBE-TELE-WAND (OBJ)
-        <PRINTD .OBJ>
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL " of Sayonara">)>
-        <RTRUE>>
 
 <ROUTINE TELE-WAND-F ()
         <COND (<THIS-PRSI?>
@@ -2696,11 +2600,6 @@ THE ,BOTTLE
         <MOVE .OBJ .RM>
         <RFALSE>>
         
-<ROUTINE DESCRIBE-SLEEP-WAND (OBJ)
-        <PRINTD .OBJ>
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL " of Anesthesia">)>
-        <RTRUE>>
 
 <ROUTINE SLEEP-WAND-F ()
         <COND (<THIS-PRSI?>
@@ -2792,11 +2691,6 @@ THE ,BOTTLE
         <SETG DACT-SLEEP 4>
         <RFALSE>>
 
-<ROUTINE DESCRIBE-IO-WAND (OBJ)
-        <PRINTD .OBJ>
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL " of Eversion">)>
-        <RTRUE>>
 
 <ROUTINE IO-WAND-F ()
         <COND (<THIS-PRSI?>
@@ -2898,11 +2792,6 @@ THE ,BOTTLE
         <UPDATE-STAT .S ,STRENGTH>
         <RTRUE>>
 
-<ROUTINE DESCRIBE-LEV-WAND (OBJ)
-        <PRINTD .OBJ>
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL " of Levitation">)>
-        <RTRUE>>
 
 <ROUTINE LEV-WAND-F ()
          <COND (<THIS-PRSI?>
@@ -2999,6 +2888,13 @@ THE ,BOTTLE
                       <SET S -3>)>
                <UPDATE-STAT .S ,STRENGTH>
                <RTRUE>)
+              (<IN? .OBJ ,GRINDER>
+               <TELL CTHE ,GRINDER " retrieves the rising "
+                     D .OBJ " with a chuckle. \"Cute.\"" CR>
+               <COND (<L? .S -3>
+                      <SET S -3>)>
+               <UPDATE-STAT .S ,STRENGTH>
+               <RTRUE>)
               (<IS? .OBJ ,TAKEABLE>
                <SET L <LOC .OBJ>>
                <TELL CTHE .OBJ>
@@ -3086,11 +2982,6 @@ CR ,TAB CTHE ,CONGREG " grovels in fear and wonder." CR>)
         <UPDATE-STAT .S ,STRENGTH>
         <RTRUE>>
 
-<ROUTINE DESCRIBE-BLAST-WAND (OBJ)
-        <PRINTD .OBJ>
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL " of Annihilation">)>
-        <RTRUE>>
 
 <ROUTINE BLAST-WAND-F ()
         <COND (<THIS-PRSI?>
@@ -3161,11 +3052,6 @@ CR ,TAB CTHE ,CONGREG " grovels in fear and wonder." CR>)
               " is quicker. He throws open his " 'GURDY>
         <RTRUE>>
 
-<ROUTINE DESCRIBE-DISPEL-WAND (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "Dispel ">)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE DISPEL-WAND-F ()
          <COND (<THIS-PRSI?>
@@ -4512,12 +4398,6 @@ B <GET ,DIR-NAMES <CREATE-MIRROR? .OBJ>> ,PERIOD>
        (ADJECTIVE PHEE)
        (ACTION HELM-F)>
 
-<ROUTINE DESCRIBE-HELM (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "Pheehelm">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE HELM-F ("AUX" FX)
         <SET FX <GETP ,HELM ,P?EFFECT>>
@@ -4612,14 +4492,15 @@ B <GET ,DIR-NAMES <CREATE-MIRROR? .OBJ>> ,PERIOD>
                <RFALSE>)>>
                
 <ROUTINE SLAY-HORSE ()
+        <MOVE ,DEAD-HORSE ,HERE>
         <WINDOW ,SHOWING-ROOM>
         <UNMAKE ,PRINCE ,NODESC>
         <MOVE ,HORSE ,TRENCH>
         <UNMAKE ,TRENCH ,OPENED>
         <MAKE ,HORSE ,NODESC>
         <UNMAKE ,HORSE ,LIVING>
-        <REPLACE-ADJ? ,HORSE ,W?ZZZP ,W?DEAD>
-        <PUTP ,HORSE ,P?ACTION ,DEAD-HORSE-F>   
+       ; <REPLACE-ADJ? ,HORSE ,W?ZZZP ,W?DEAD>
+       ; <PUTP ,HORSE ,P?ACTION ,DEAD-HORSE-F>  
         <TELL 
 "stray arrow strikes the prince's stallion in the flank. The luckless beast shrieks piteously, stumbles into " THE ,TRENCH " and lies still." CR>
         <RTRUE>>
@@ -4630,18 +4511,11 @@ B <GET ,DIR-NAMES <CREATE-MIRROR? .OBJ>> ,PERIOD>
        (FLAGS SURFACE LIVING)
        (CAPACITY 25)
        (SYNONYM STALLION HORSE)
-       (ADJECTIVE GRAY GREY PRINCE\'S ZZZP)
+       (ADJECTIVE GRAY GREY PRINCE\'S)
        (CONTFCN HORSE-F)
        (DESCFCN HORSE-F)
        (ACTION HORSE-F)>
 
-<ROUTINE DESCRIBE-HORSE (OBJ)
-        <COND (<IS? ,HORSE ,LIVING>
-               <TELL B ,W?GRAY>)
-              (T
-               <TELL B ,W?DEAD>)>
-        <TELL C ,SP 'HORSE>
-        <RTRUE>>
 
 <ROUTINE HORSE-F ("OPT" (CONTEXT <>) "AUX" X OBJ)
         <COND (<T? .CONTEXT>
@@ -4704,13 +4578,15 @@ B <GET ,DIR-NAMES <CREATE-MIRROR? .OBJ>> ,PERIOD>
               " and tumbles to " THE ,GROUND ,PERIOD>
         <RTRUE>>
 
-<ROUTINE DEAD-HORSE-F ("OPT" (CONTEXT <>) "AUX" X)
-        <COND (<T? .CONTEXT>
-               <COND (<EQUAL? .CONTEXT ,M-OBJDESC>
-                      <TELL "A stallion lies dead across a nearby trench.">
-                      <RTRUE>)>
-               <RFALSE>)
-              (<THIS-PRSI?>
+<OBJECT DEAD-HORSE
+       (DESC "stallion")
+       (FLAGS NODESC TRYTAKE NOALL SURFACE)
+       (SYNONYM HORSE STALLION)
+       (ADJECTIVE DEAD GRAY GREY)
+       (ACTION DEAD-HORSE-F)>
+
+<ROUTINE DEAD-HORSE-F ("AUX" X)
+        <COND (<THIS-PRSI?>
                <COND (<VERB? THROW THROW-OVER>
                       <PRSO-SLIDES-OFF-PRSI>
                       <RTRUE>)
@@ -4749,12 +4625,6 @@ B <GET ,DIR-NAMES <CREATE-MIRROR? .OBJ>> ,PERIOD>
               
 <VOC "MINXHOLE" NOUN>
 
-<ROUTINE DESCRIBE-TRENCH (OBJ)
-        <COND (<HERE? ARCH12>
-               <TELL "minxhole">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE TRENCH-F ("OPT" (CONTEXT <>) "AUX" X OBJ)
         <COND (<T? .CONTEXT>
@@ -5595,13 +5465,6 @@ B <GET ,DIR-NAMES <CREATE-MIRROR? .OBJ>> ,PERIOD>
        (GENERIC GENERIC-KEYS-F)
        (ACTION KEY3-F)>
 
-<ROUTINE DESCRIBE-KEYS (OBJ "AUX" WORD)
-        <SET WORD <GET <GETPT .OBJ ,P?ADJECTIVE> 0>>
-        <COND (<NOT <SEE-COLOR?>>
-               <SET WORD ,W?GRAY>)>
-        <TELL B .WORD C ,SP>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE GENERIC-KEYS-F (TBL "OPT" (LEN <GET .TBL 0>))
         <COND (<HERE? IN-SPLENDOR>
@@ -7036,15 +6899,7 @@ B <GET ,DIR-NAMES <CREATE-MIRROR? .OBJ>> ,PERIOD>
        (VALUE 2)
        (NAME-TABLE <ITABLE %<+ ,NAMES-LENGTH 1> (BYTE) 0>)
        (ACTION BAD-ARROW-F)>
-
-<ROUTINE DESCRIBE-ARROW (OBJ)
-        <COND (<IS? .OBJ ,NAMED>
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <COND (<ZERO? ,INV-PRINTING?>
-                      <RTRUE>)>
-               <TELL ,STHE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>               
+               
 
 <ROUTINE ARROW-F ()
         <COND (<THIS-PRSI?>
@@ -8587,11 +8442,6 @@ THE ,STABLE ", where her hoofbeats quickly fade into the distance." CR>
        (VALUE 30)
        (ACTION CLOAK-F)>
 
-<ROUTINE DESCRIBE-CLOAK (OBJ)
-        <PRINTD .OBJ>
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL " of Stealth">)>
-        <RTRUE>>
 
 <ROUTINE CLOAK-F ("AUX" (W 0) EFX X)
         <SET EFX <GETP ,CLOAK ,P?EFFECT>>
@@ -8993,16 +8843,6 @@ THE ,MAMA ". It looks as if she's about to attack!" CR>
        (DESCFCN PARASOL-F)
        (ACTION PARASOL-F)>
 
-<ROUTINE DESCRIBE-PARASOL (OBJ)
-        <COND (<IS? .OBJ ,MUNGED>
-               <TELL B ,W?BROKEN>)
-              (<IS? .OBJ ,OPENED>
-               <TELL B ,W?OPEN>)
-              (T
-               <TELL B ,W?CLOSED>)>
-        <PRINTC ,SP>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE PARASOL-F ("OPT" (CONTEXT <>) "AUX" X)
         <COND (<T? .CONTEXT>
@@ -9161,11 +9001,6 @@ CA ,PARASOL " dangles uncertainly from one of the ropes.">
        (ADJECTIVE SUMMONING)
        (ACTION WHISTLE-F)>
 
-<ROUTINE DESCRIBE-WHISTLE (OBJ)
-        <PRINTD .OBJ>
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL " of Summoning">)>
-        <RTRUE>>
 
 <GLOBAL HOOTS:NUMBER 0>
 
@@ -9459,7 +9294,7 @@ THE ,DACT>
        (LOC PLAIN1)
        (DESC "butterfly")
        (SDESC DESCRIBE-BFLY)
-       (FLAGS TAKEABLE LIVING PERSON FEMALE NAMEABLE)
+       (FLAGS TRYTAKE ; TAKEABLE LIVING PERSON FEMALE NAMEABLE)
        (SYNONYM BUTTERFLY ZZZP FLY INSECT)
        (ADJECTIVE BUTTER)
        (LIFE I-BFLY)
@@ -9470,20 +9305,7 @@ THE ,DACT>
        (ACTION BFLY-F)>
 
 <VOC "CATERPILLAR" NOUN>
-
-<ROUTINE DESCRIBE-BFLY (OBJ)
-        <COND (<IS? .OBJ ,NAMED>
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <COND (<ZERO? ,INV-PRINTING?>
-                      <RTRUE>)>
-               <TELL ,STHE>)>
-        <COND (<NOT <IS? .OBJ ,LIVING>>
-               <TELL "dead ">)>
-        <COND (<IS? .OBJ ,MUNGED>
-               <PRINT "caterpillar">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>               
+               
 
 <ROUTINE BFLY-F ("OPT" (CONTEXT <>) "AUX" (ALIVE 0) (CAT 0) X)
         <SETG P-IT-OBJECT ,BFLY>
@@ -9562,13 +9384,6 @@ THE ,DACT>
        (NAME-TABLE 0)
        (ACTION GOBLET-F)>
 
-<ROUTINE DESCRIBE-GOBLET (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "Chalice of ">
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE GOBLET-F ("OPT" (CONTEXT <>) "AUX" (B 0) X)
         <COND (<AND <IN? ,BFLY ,GOBLET>
@@ -10516,11 +10331,6 @@ THE ,DACT>
        (VALUE 50)
        (ACTION RING-F)>
 
-<ROUTINE DESCRIBE-RING (OBJ)
-        <PRINTD .OBJ>
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL " of Shielding">)>
-        <RTRUE>>
 
 <ROUTINE RING-F ()
         <COND (<THIS-PRSI?>
@@ -10669,14 +10479,6 @@ THE ,DACT>
        (NAME-TABLE <ITABLE %<+ ,NAMES-LENGTH 1> (BYTE) 0>)
        (ACTION SPADE-F)>
 
-<ROUTINE DESCRIBE-SPADE (OBJ)
-        <COND (<IS? .OBJ ,NAMED>
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <COND (<ZERO? ,INV-PRINTING?>
-                      <RTRUE>)>
-               <TELL ,STHE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE SPADE-F ()
         <COND (<THIS-PRSI?>
@@ -10809,12 +10611,6 @@ THE ,DACT>
        (VALUE 80)
        (ACTION SCABBARD-F)>
         
-<ROUTINE DESCRIBE-SCABBARD (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "Sheath of Grueslayer">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE SCABBARD-F ("AUX" X)
         <COND (<THIS-PRSI?>
@@ -10953,9 +10749,6 @@ THE ,DACT>
 
 <VOC "DIAMOND" NOUN>
 
-<ROUTINE DESCRIBE-DIAMOND (OBJ)
-        <TELL B ,W?SNOWFLAKE>
-        <RTRUE>>
 
 <ROUTINE DIAMOND-F ("OPT" (CONTEXT <>) "AUX" X TBL)
         <COND (<T? .CONTEXT>
@@ -11163,12 +10956,6 @@ THE ,DACT>
         <SET X <FONT ,F-DEFAULT>>
         <RFALSE>>
 
-<ROUTINE DESCRIBE-DO-PARTAY (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "scroll of Mischief">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE DO-PARTAY ("OPT" (OBJ ,PRSO))
         <COND (<FINE-PRINT? .OBJ>
@@ -11181,12 +10968,6 @@ THE ,DACT>
 ". At the same moment, a housewife in a suburb of Mareilon watches in astonishment as her lawn furniture silently rearranges itself." CR>
         <RTRUE>>
 
-<ROUTINE DESCRIBE-BLESS-WEAPON (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "scroll of Honing">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE DO-BLESS-WEAPON ("OPT" (SCR ,PRSO) "AUX" (CNT 0) OBJ WOBJ X)
         <COND (<FINE-PRINT? .SCR>
@@ -11221,12 +11002,6 @@ THE ,DACT>
         <TELL ,PERIOD>
         <RTRUE>>
 
-<ROUTINE DESCRIBE-BLESS-ARMOR (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "scroll of Protection">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE DO-BLESS-ARMOR ("OPT" (SCR ,PRSO) "AUX" (CNT 0) (NAC 0) OBJ WOBJ X)
         <COND (<FINE-PRINT? .SCR>
@@ -11264,12 +11039,6 @@ THE ,DACT>
                <UPDATE-STAT <- .NAC <GET ,STATS ,AC>> ,AC>)>
         <RTRUE>>
 
-<ROUTINE DESCRIBE-DO-FILFRE (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "scroll of Fireworks">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE DO-FILFRE ("OPT" (OBJ ,PRSO))
         <COND (<FINE-PRINT? .OBJ>
@@ -11279,12 +11048,6 @@ THE ,DACT>
         <TELL CR "The fireworks fade around you." CR>
         <RTRUE>>
 
-<ROUTINE DESCRIBE-DO-GOTO (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "scroll of Recall">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE DO-GOTO ("OPT" (OBJ ,PRSO))
         <COND (<FINE-PRINT? .OBJ>
@@ -11393,29 +11156,6 @@ THE ,DACT>
         <GOTO .L>
         <RTRUE>>
 
-<ROUTINE DESCRIBE-TOWER-SCROLL (CONTEXT)
-        <TELL CA ,DESCING>
-        <PRINT " lies half-hidden in ">
-        <TELL "shadow.">
-        <RTRUE>>
-
-<ROUTINE DESCRIBE-FOREST-SCROLL (CONTEXT)
-        <TELL CA ,DESCING>
-        <PRINT " lies forgotten in ">
-        <TELL "the underbrush.">
-        <RTRUE>>
-
-<ROUTINE DESCRIBE-PLAIN-SCROLL (CONTEXT)
-        <TELL CA ,DESCING " is blowing against a clump of grass.">
-        <RTRUE>>
-
-<ROUTINE DESCRIBE-MOOR-SCROLL (CONTEXT)
-        <TELL CA ,DESCING " lies trodden in the mud.">
-        <RTRUE>>
-
-<ROUTINE DESCRIBE-JUNGLE-SCROLL (CONTEXT)
-        <TELL "The undergrowth nearly conceals " A ,DESCING C ,PER>
-        <RTRUE>>
 
 <ROUTINE FINE-PRINT? ("OPT" (OBJ ,PRSO))
         <COND (<NOT <VISIBLE? .OBJ>>
@@ -11480,16 +11220,6 @@ THE ,DACT>
        (DESCFCN RENEWAL-DESC)
        (ACTION HANDLE-SCROLL-F)>
 
-<ROUTINE DESCRIBE-RENEWAL (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "scroll of Renewal">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
-
-<ROUTINE RENEWAL-DESC (CONTEXT)
-        <TELL CA ,RENEWAL " lies trampled in the dust.">
-        <RTRUE>>
 
 <ROUTINE DO-RENEWAL ("OPT" (OBJ ,PRSO) "AUX" STAT MAX OLD)
         <COND (<FINE-PRINT? .OBJ>
@@ -11575,6 +11305,7 @@ THE ,DACT>
                       <DEQUEUE ,I-PILLAR>
                       <QUEUE ,I-BFLY>
                       <UNMAKE ,BFLY ,MUNGED>
+                      <UNMAKE ,BFLY ,TAKEABLE>
                       <REPLACE-SYN? ,BFLY ,W?CATERPILLAR ,W?BUTTERFLY>
                       <REPLACE-SYN? ,BFLY ,W?ZZZP ,W?FLY>
                       <REPLACE-ADJ? ,BFLY ,W?ZZZP ,W?BUTTER>)>)>
@@ -11643,6 +11374,7 @@ THE ,DACT>
                <DEQUEUE ,I-BFLY>
                <QUEUE ,I-PILLAR>)>
         <MAKE ,BFLY ,MUNGED>
+        <MAKE ,BFLY ,TAKEABLE>
         <REPLACE-SYN? ,BFLY ,W?BUTTERFLY ,W?CATERPILLAR>
         <REPLACE-SYN? ,BFLY ,W?FLY ,W?ZZZP>
         <REPLACE-ADJ? ,BFLY ,W?BUTTER ,W?ZZZP>
@@ -11665,13 +11397,7 @@ THE ,DACT>
        (DNUM "transcendental physics")
        (EFFECT DO-GATE)
        (ACTION HANDLE-SCROLL-F)>
-
-<ROUTINE DESCRIBE-PALIMP (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "scroll of Gating">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>               
+               
 
 <GLOBAL PALIMP-CHARGES:NUMBER 5>
 
@@ -12702,13 +12428,6 @@ THE ,DACT>
        (NAME-TABLE 0)
        (ACTION STONE-F)>
 
-<ROUTINE DESCRIBE-STONE (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "Scrystone of ">
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <GLOBAL VISION:NUMBER 0>
 
@@ -12815,17 +12534,6 @@ THE ,DACT>
         <REFRESH-MAP>
         <RTRUE>>                
                       
-<ROUTINE DESCRIBE-WALL (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <COND (<EQUAL? .OBJ ,NWALL>
-                      <TELL "Nor">)
-                     (T
-                      <TELL "Sou">)>
-               <TELL "th Wall of ">
-               <PRINT-TABLE <GETP .OBJ ,P?NAME-TABLE>>
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <OBJECT DIARY
        (LOC BENCH)
@@ -13192,53 +12900,20 @@ THE ,DACT>
        (DESCFCN 0)
        (ACTION 0)>
 
-<ROUTINE DESCRIBE-IQ-POTION (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "potion of Enlightenment">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
+
 
 <ROUTINE IQ-POTION-F ()
         <RETURN <HANDLE-POTION? ,I-IQ>>>
-               
-<ROUTINE DESCRIBE-HEALING-POTION (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "potion of Healing">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
 
 <ROUTINE HEALING-POTION-F ()
         <RETURN <HANDLE-POTION? ,I-HEAL>>>
 
-<ROUTINE DESCRIBE-DEATH-POTION (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "potion of Death">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
-
 <ROUTINE DEATH-POTION-F ()
         <RETURN <HANDLE-POTION? ,I-DEATH>>>
 
-<ROUTINE DESCRIBE-MIGHT-POTION (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "potion of Might">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
-
 <ROUTINE MIGHT-POTION-F ()
         <RETURN <HANDLE-POTION? ,I-MIGHT>>>
 
-<ROUTINE DESCRIBE-FORGET-POTION (OBJ)
-        <COND (<IS? .OBJ ,IDENTIFIED>
-               <TELL "potion of Forgetfulness">
-               <RTRUE>)>
-        <PRINTD .OBJ>
-        <RTRUE>>
-
 <ROUTINE FORGET-POTION-F ()
         <RETURN <HANDLE-POTION? ,I-FORGET>>>
 
@@ -13261,17 +12936,6 @@ THE ,DACT>
              ; <SAY-ERROR "NEXT-POTION?">
                <RFALSE>)>>
 
-<ROUTINE DESCRIBE-MOOR-POTION (CONTEXT)
-        <TELL "Some luckless fool has left " A ,DESCING
-              " in the mud.">
-        <RTRUE>>
-
-<ROUTINE DESCRIBE-RUINS-POTION (CONTEXT)
-        <TELL "Someone else must have been here recently. There's " 
-              A ,DESCING>
-        <PRINT " lying in the dust.">
-        <RTRUE>>
-
 <ROUTINE HANDLE-POTION? (INT)
         <COND (<THIS-PRSI?>
                <COND (<VERB? POUR-FROM>
index 5e2ad01f602b26d2a650e992d3fa02a8469db0fd..54c73419c7701e8bf47e7df4c4cc886e4fc67d26 100644 (file)
--- a/verbs.zil
+++ b/verbs.zil
@@ -1221,6 +1221,7 @@ A ,SHAPE ", stretched across your path like the skin of a drum." CR>
 
 <ROUTINE CANT-SAVE? ("AUX" OBJ NXT X)
         <COND (<T? ,CHOKE>
+               <MUMBLAGE ,SKELETON>
                <RTRUE>)
               (<SET OBJ <FIRST? ,HERE>>
                <REPEAT ()
@@ -4021,8 +4022,9 @@ A ,SHAPE ", stretched across your path like the skin of a drum." CR>
        (DESC "foo")
        (SDESC DESCRIBE-MONEY)
        (FLAGS NODESC NOARTICLE NOALL)
-       (SYNONYM MONEY ZORKMIDS ZORKMID ZM CASH LOOT ASSETS COINS COIN)
-       (ADJECTIVE INTNUM MY)
+       (SYNONYM MONEY ZORKMIDS ZORKMID ZM CASH LOOT
+                ASSETS COINS COIN CREDIT LINE)
+       (ADJECTIVE INTNUM MY PERSONAL CREDIT)
        (ACTION MONEY-F)>
 
 <GLOBAL LOOT:NUMBER 1>
@@ -5052,6 +5054,7 @@ A ,SHAPE ", stretched across your path like the skin of a drum." CR>
         <SPLIT 22>
         <TO-TOP-WINDOW>
         <DO-CURSET .TOP <+ .LMARGIN 18>>
+        <COLOR ,FORE ,BGND>
         <TELL "Display Settings">
         
         <SET LINE 0>
@@ -5194,7 +5197,10 @@ A ,SHAPE ", stretched across your path like the skin of a drum." CR>
                                           (<EQUAL? ,PRIOR ,SHOWING-ROOM>
                                            <SETG PRIOR ,SHOWING-INV>
                                            <SETG IN-DBOX ,SHOWING-INV>)
-                                          (<EQUAL? ,PRIOR ,SHOWING-INV>
+                                          (<AND <EQUAL? ,PRIOR
+                                                        ,SHOWING-INV>
+                                                <NOT <EQUAL? ,STAT-ROUTINE
+                                                             ,BAR-NUMBER>>>
                                            <SETG PRIOR ,SHOWING-STATS>
                                            <SETG IN-DBOX ,SHOWING-STATS>)
                                           (T
@@ -5205,14 +5211,20 @@ A ,SHAPE ", stretched across your path like the skin of a drum." CR>
                                            <SETG VERBOSITY 2>)>)
                                    (<EQUAL? .LINE 5>
                                     <COND (<ZERO? ,PRIOR>
-                                           <SETG PRIOR ,SHOWING-STATS>
-                                           <SETG IN-DBOX ,SHOWING-STATS>)
+                                           <SETG PRIOR ,SHOWING-STATS>    
+                                           <SETG IN-DBOX ,SHOWING-STATS>
+                                           <COND (<EQUAL? ,STAT-ROUTINE
+                                                          ,BAR-NUMBER>
+                                                  <SETG PRIOR ,SHOWING-INV>
+                                                  <SETG IN-DBOX
+                                                        ,SHOWING-INV>)>)
                                           (<EQUAL? ,PRIOR ,SHOWING-ROOM>
                                            <SETG PRIOR 0>)
                                           (<EQUAL? ,PRIOR ,SHOWING-INV>
                                            <SETG PRIOR ,SHOWING-ROOM>
                                            <SETG IN-DBOX ,SHOWING-ROOM>)
-                                          (T
+                                          (<NOT <EQUAL? ,STAT-ROUTINE
+                                                        ,BAR-NUMBER>>
                                            <SETG PRIOR ,SHOWING-INV>
                                            <SETG IN-DBOX ,SHOWING-INV>)>)>)>
                       <RETURN>)>
@@ -5225,120 +5237,136 @@ A ,SHAPE ", stretched across your path like the skin of a drum." CR>
         <DO-CURSET <+ <* .LINE 2> .TOP> .X>
         <HLIGHT ,H-NORMAL>
         <HLIGHT ,H-MONO>
-        <COLOR ,GCOLOR ,BGND>
+        <COLOR ,FORE ,BGND>
         <COND (<T? .HL>
-               <HLIGHT ,H-INVERSE>
-               <COND (<AND <T? ,COLORS?>
-                           <NOT <EQUAL? ,FORE ,GCOLOR>>>
-                      <COLOR ,FORE ,BGND>)>)
-              (<AND <T? ,COLORS?>
-                    <NOT <EQUAL? ,FORE ,GCOLOR>>>
                <HLIGHT ,H-INVERSE>)>
-        <TO-GCOLOR <GET ,SNAMES .LINE>>
+        <PRINT <GET ,SNAMES .LINE>>
+        <HLIGHT ,H-NORMAL>
+        <HLIGHT ,H-MONO>
+        <PRINTC ,SP>
         <COND (<EQUAL? .LINE 7 8>
                <RTRUE>)
               (<ZERO? .LINE>
                <COND (<T? ,DMODE>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Enhanced ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Enhanced ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
+               <PRINTC ,SP>
                <COND (<ZERO? ,DMODE>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Standard ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Standard ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
                <RTRUE>)
               (<EQUAL? .LINE 1>
                <COND (<ZERO? ,VERBOSITY>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Superbrief ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Superbrief ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
+               <PRINTC ,SP>
                <COND (<EQUAL? ,VERBOSITY 1>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Brief ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Brief ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
+               <PRINTC ,SP>
                <COND (<EQUAL? ,VERBOSITY 2>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Verbose ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Verbose ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
                <RTRUE>)
               (<EQUAL? .LINE 2>
                <SET X <BAND <LOWCORE FLAGS> 1>>
                <COND (<ZERO? .X>            
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Off ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Off ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
+               <PRINTC ,SP>
                <COND (<T? .X>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " On ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " On ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
                <RTRUE>)
               (<EQUAL? .LINE 3>
                <COND (<ZERO? ,SAY-STAT>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Off ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Off ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
+               <PRINTC ,SP>
                <COND (<T? ,SAY-STAT>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " On ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " On ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
                <RTRUE>)
               (<EQUAL? .LINE 4>
                <COND (<ZERO? ,DMODE>)
                      (<EQUAL? ,MAP-ROUTINE ,CLOSE-MAP>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Normal ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Normal ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
+               <PRINTC ,SP>
                <COND (<ZERO? ,DMODE>)
                      (<EQUAL? ,MAP-ROUTINE ,FAR-MAP>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Wide ">)
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Wide ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
+               <RTRUE>)
               (<EQUAL? .LINE 5>
                <COND (<ZERO? ,DMODE>)
                      (<ZERO? ,PRIOR>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Off ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Off ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
+               <PRINTC ,SP>
                <COND (<ZERO? ,DMODE>)
                      (<EQUAL? ,PRIOR ,SHOWING-ROOM>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Room ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Room ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
+               <PRINTC ,SP>
                <COND (<ZERO? ,DMODE>)
                      (<EQUAL? ,PRIOR ,SHOWING-INV>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Inventory ">
-               <COND (<ZERO? ,DMODE>)
-                     (<EQUAL? ,PRIOR ,SHOWING-STATS>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Status ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Inventory ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
+               <COND (<NOT <EQUAL? ,STAT-ROUTINE ,BAR-NUMBER>>
+                      <PRINTC ,SP>
+                      <COND (<ZERO? ,DMODE>)
+                            (<EQUAL? ,PRIOR ,SHOWING-STATS>
+                             <HLIGHT ,H-INVERSE>)>
+                      <TELL " Status ">
+                      <HLIGHT ,H-NORMAL>
+                      <HLIGHT ,H-MONO>)>
                <RTRUE>)
               (<EQUAL? .LINE 6>
                <COND (<ZERO? ,DMODE>)
                      (<T? ,AUTO>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Automatic ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Automatic ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
+               <PRINTC ,SP>
                <COND (<ZERO? ,DMODE>)
                      (<ZERO? ,AUTO>
-                      <HLIGHT ,H-INVERSE>
-                      <COLOR ,FORE ,BGND>)>
-               <TO-GCOLOR " Off ">
+                      <HLIGHT ,H-INVERSE>)>
+               <TELL " Off ">
+               <HLIGHT ,H-NORMAL>
+               <HLIGHT ,H-MONO>
                <RTRUE>)
               (T
                <RFALSE>)>>
                
-<ROUTINE TO-GCOLOR (STR)
-        <PRINT .STR>
-        <COLOR ,GCOLOR ,BGND>
-        <HLIGHT ,H-NORMAL>
-        <HLIGHT ,H-MONO>
-        <PRINTC ,SP>
-        <COND (<AND <T? ,COLORS?>
-                    <NOT <EQUAL? ,FORE ,GCOLOR>>>
-               <HLIGHT ,H-INVERSE>)>
-        <RFALSE>>
 
 
diff --git a/z.zil b/z.zil
index 37e123a00762ed09f0b218e41a88ab11d12eb251..98c3af24ce3ace0bb032a807a18a7286a70abe89 100644 (file)
--- a/z.zil
+++ b/z.zil
@@ -8,8 +8,10 @@ Beyond ZORK: The Coconut of Quendor
 <VERSION XZIP>
 <FREQUENT-WORDS?>
 
-<SETG DISPLAY-OPS? T>
-<SETG USE-UNDO? T>
+<ZIP-OPTIONS MOUSE UNDO COLOR DISPLAY>
+
+; <SETG DISPLAY-OPS? T>
+; <SETG USE-UNDO? T>
 
 <ORDER-OBJECTS? ROOMS-FIRST>
 
@@ -20,7 +22,7 @@ DISABLE!-INITIAL
 
 <SET REDEFINE T>
 
-<PUTPROP DIRECTIONS PROPSPEC!-IZILCH>
+<PUTPROP DIRECTIONS PROPSPEC>
 
 <DIRECTIONS NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
 
diff --git a/z.zip b/z.zip
new file mode 100644 (file)
index 0000000..30d7905
Binary files /dev/null and b/z.zip differ