Created
March 20, 2023 11:02
-
-
Save angstsmurf/ddeda8dc97c491848d58b91ffdc28ee8 to your computer and use it in GitHub Desktop.
Output of txd from file uhoh-demo.z5
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| txd -a uhoh-demo.z5 | |
| Resident data ends at 4f1c, program starts at 4f1c, file ends at 2b098 | |
| Starting analysis pass at address 4f1a | |
| End of analysis pass, low address = 4f1c, high address = 10228 | |
| [Start of code] | |
| Main routine r0001, 0 locals | |
| call_vs r0002 -> gef | |
| quit | |
| Routine r0002, 0 locals | |
| call_vn r0494 #0016 #0049 | |
| rtrue | |
| Routine r0003, 0 locals | |
| rtrue | |
| Routine r0004, 1 local | |
| loadb local0 #00 -> sp | |
| pull gef | |
| je gef #61 #65 #69 l0001 | |
| je gef #6f #75 #41 l0001 | |
| je gef #45 #49 #4f l0001 | |
| je gef #55 ~l0002 | |
| l0001: rtrue | |
| l0002: rfalse | |
| Routine r0005, 1 local | |
| store gef local0 | |
| je gef #07 ~l0001 | |
| print "north" | |
| jump l0013 | |
| l0001: je gef #08 ~l0002 | |
| print "south" | |
| jump l0013 | |
| l0002: je gef #09 ~l0003 | |
| print "east" | |
| jump l0013 | |
| l0003: je gef #0a ~l0004 | |
| print "west" | |
| jump l0013 | |
| l0004: je gef #0b ~l0005 | |
| print "northeast" | |
| jump l0013 | |
| l0005: je gef #0d ~l0006 | |
| print "northwest" | |
| jump l0013 | |
| l0006: je gef #0c ~l0007 | |
| print "southeast" | |
| jump l0013 | |
| l0007: je gef #0e ~l0008 | |
| print "southwest" | |
| jump l0013 | |
| l0008: je gef #0f ~l0009 | |
| print "up" | |
| jump l0013 | |
| l0009: je gef #10 ~l0010 | |
| print "down" | |
| jump l0013 | |
| l0010: je gef #11 ~l0011 | |
| print "in" | |
| jump l0013 | |
| l0011: je gef #12 ~l0012 | |
| print "out" | |
| jump l0013 | |
| l0012: call_vs r0114 #09 local0 -> sp | |
| ret_popped | |
| l0013: rtrue | |
| Routine r0006, 2 locals | |
| jz local0 ~l0001 | |
| print "zero" | |
| rfalse | |
| l0001: jl local0 #00 ~l0002 | |
| print "minus " | |
| sub #00 local0 -> local0 | |
| l0002: jl local0 #03e8 l0003 | |
| div local0 #03e8 -> sp | |
| call_2n r0006 sp | |
| print " thousand" | |
| mod local0 #03e8 -> local0 | |
| store local1 #01 | |
| l0003: jl local0 #64 ?l0005 | |
| je local1 #01 ~l0004 | |
| print ", " | |
| l0004: div local0 #64 -> sp | |
| call_2n r0006 sp | |
| print " hundred" | |
| mod local0 #64 -> local0 | |
| store local1 #01 | |
| l0005: jz local0 rfalse | |
| je local1 #01 ~l0006 | |
| print " and " | |
| l0006: store gef local0 | |
| je gef #01 ~l0007 | |
| print "one" | |
| jump l0034 | |
| l0007: je gef #02 ~l0008 | |
| print "two" | |
| jump l0034 | |
| l0008: je gef #03 ~l0009 | |
| print "three" | |
| jump l0034 | |
| l0009: je gef #04 ~l0010 | |
| print "four" | |
| jump l0034 | |
| l0010: je gef #05 ~l0011 | |
| print "five" | |
| jump l0034 | |
| l0011: je gef #06 ~l0012 | |
| print "six" | |
| jump l0034 | |
| l0012: je gef #07 ~l0013 | |
| print "seven" | |
| jump l0034 | |
| l0013: je gef #08 ~l0014 | |
| print "eight" | |
| jump l0034 | |
| l0014: je gef #09 ~l0015 | |
| print "nine" | |
| jump l0034 | |
| l0015: je gef #0a ~l0016 | |
| print "ten" | |
| jump l0034 | |
| l0016: je gef #0b ~l0017 | |
| print "eleven" | |
| jump l0034 | |
| l0017: je gef #0c ~l0018 | |
| print "twelve" | |
| jump l0034 | |
| l0018: je gef #0d ~l0019 | |
| print "thirteen" | |
| jump l0034 | |
| l0019: je gef #0e ~l0020 | |
| print "fourteen" | |
| jump l0034 | |
| l0020: je gef #0f ~l0021 | |
| print "fifteen" | |
| jump l0034 | |
| l0021: je gef #10 ~l0022 | |
| print "sixteen" | |
| jump l0034 | |
| l0022: je gef #11 ~l0023 | |
| print "seventeen" | |
| jump l0034 | |
| l0023: je gef #12 ~l0024 | |
| print "eighteen" | |
| jump l0034 | |
| l0024: je gef #13 ~l0025 | |
| print "nineteen" | |
| jump l0034 | |
| l0025: jl gef #14 ?l0034 | |
| jg gef #63 ?l0034 | |
| div local0 #0a -> sp | |
| pull gef | |
| je gef #02 ~l0026 | |
| print "twenty" | |
| jump l0033 | |
| l0026: je gef #03 ~l0027 | |
| print "thirty" | |
| jump l0033 | |
| l0027: je gef #04 ~l0028 | |
| print "forty" | |
| jump l0033 | |
| l0028: je gef #05 ~l0029 | |
| print "fifty" | |
| jump l0033 | |
| l0029: je gef #06 ~l0030 | |
| print "sixty" | |
| jump l0033 | |
| l0030: je gef #07 ~l0031 | |
| print "seventy" | |
| jump l0033 | |
| l0031: je gef #08 ~l0032 | |
| print "eighty" | |
| jump l0033 | |
| l0032: je gef #09 ~l0033 | |
| print "ninety" | |
| l0033: mod local0 #0a -> sp | |
| jz sp l0034 | |
| print "-" | |
| mod local0 #0a -> sp | |
| call_2n r0006 sp | |
| l0034: rtrue | |
| Routine r0007, 3 locals | |
| mod local0 #0c -> local2 | |
| jz local2 ~l0001 | |
| store local2 #0c | |
| l0001: jl local2 #0a ~l0002 | |
| print " " | |
| l0002: print_num local2 | |
| print ":" | |
| div local1 #0a -> sp | |
| print_num sp | |
| mod local1 #0a -> sp | |
| print_num sp | |
| div local0 #0c -> sp | |
| jg sp #00 ~l0003 | |
| print " pm" | |
| jump l0004 | |
| l0003: print " am" | |
| l0004: rtrue | |
| Routine r0008, 1 local | |
| je local0 "l" ~l0001 | |
| print "look" | |
| rtrue | |
| l0001: je local0 "z" ~l0002 | |
| print "wait" | |
| rtrue | |
| l0002: je local0 "x" ~l0003 | |
| print "examine" | |
| rtrue | |
| l0003: je local0 "i" "inv" "inventory" ~l0004 | |
| print "inventory" | |
| rtrue | |
| l0004: rfalse | |
| Routine r0009, 1 local | |
| je local0 g1b ~l0001 | |
| print "you" | |
| rtrue | |
| l0001: test_attr local0 #27 ~l0002 | |
| print "those" | |
| rtrue | |
| l0002: test_attr local0 #09 ~l0004 | |
| test_attr local0 #25 ~l0003 | |
| print "her" | |
| rtrue | |
| l0003: test_attr local0 #26 l0004 | |
| print "him" | |
| rtrue | |
| l0004: print "that" | |
| rtrue | |
| Routine r0010, 1 local | |
| je local0 g1b ~l0001 | |
| print "yourself" | |
| rtrue | |
| l0001: test_attr local0 #27 ~l0002 | |
| print "them" | |
| rtrue | |
| l0002: test_attr local0 #09 ~l0004 | |
| test_attr local0 #25 ~l0003 | |
| print "her" | |
| rtrue | |
| l0003: test_attr local0 #26 l0004 | |
| print "him" | |
| rtrue | |
| l0004: print "it" | |
| rtrue | |
| Routine r0011, 1 local | |
| test_attr local0 #27 l0001 | |
| je local0 g1b ~l0002 | |
| l0001: print "are" | |
| jump l0003 | |
| l0002: print "is" | |
| l0003: rtrue | |
| Routine r0012, 1 local | |
| je local0 g1b ~l0001 | |
| print "You" | |
| rtrue | |
| l0001: test_attr local0 #27 ~l0002 | |
| print "Those" | |
| rtrue | |
| l0002: test_attr local0 #09 ~l0004 | |
| test_attr local0 #25 ~l0003 | |
| print "She" | |
| rtrue | |
| l0003: test_attr local0 #26 l0004 | |
| print "He" | |
| rtrue | |
| l0004: print "That" | |
| rtrue | |
| Routine r0013, 1 local | |
| je local0 g1b ~l0001 | |
| print "You're" | |
| rtrue | |
| l0001: test_attr local0 #27 ~l0002 | |
| print "They're" | |
| rtrue | |
| l0002: test_attr local0 #09 ~l0004 | |
| test_attr local0 #25 ~l0003 | |
| print "She's" | |
| rtrue | |
| l0003: test_attr local0 #26 l0004 | |
| print "He's" | |
| rtrue | |
| l0004: print "That's" | |
| rtrue | |
| Routine r0014, 2 locals | |
| je ge9 #1008 ~l0001 | |
| print "^>" | |
| rtrue | |
| l0001: je ge9 #1007 ?~l0066 | |
| store gef local0 | |
| je gef #01 ~l0002 | |
| print_paddr s042 | |
| new_line | |
| rtrue | |
| l0002: je gef #02 ~l0003 | |
| print_ret "Nothing to do!" | |
| l0003: je gef #03 ~l0004 | |
| print " You have died " | |
| jump l0065 | |
| l0004: je gef #04 ~l0005 | |
| print " You have won " | |
| jump l0065 | |
| l0005: je gef #05 ?~l0008 | |
| print_paddr s043 | |
| jz #0001 ~l0006 | |
| print_paddr s044 | |
| l0006: je g1c #02 ~l0007 | |
| jz #0001 ~l0007 | |
| print_paddr s045 | |
| l0007: print_ret " or QUIT?" | |
| l0008: je gef #06 ~l0009 | |
| print_paddr s046 | |
| new_line | |
| rtrue | |
| l0009: je gef #07 ~l0010 | |
| print_paddr s047 | |
| new_line | |
| rtrue | |
| l0010: je gef #08 ~l0011 | |
| print_paddr s048 | |
| new_line | |
| rtrue | |
| l0011: je gef #09 ~l0012 | |
| print_ret "^It is now pitch dark in here!" | |
| l0012: je gef #0a ~l0013 | |
| print_ret "I beg your pardon?" | |
| l0013: je gef #0b ~l0014 | |
| print_paddr s049 | |
| new_line | |
| rtrue | |
| l0014: je gef #0c ~l0015 | |
| print_paddr s050 | |
| new_line | |
| rtrue | |
| l0015: je gef #0d ~l0016 | |
| print_ret "[Previous turn undone.]" | |
| l0016: je gef #0e ~l0017 | |
| print_ret "Sorry, that can't be corrected." | |
| l0017: je gef #0f ~l0018 | |
| print_ret "Think nothing of it." | |
| l0018: je gef #10 ~l0019 | |
| print_paddr s051 | |
| new_line | |
| rtrue | |
| l0019: je gef #11 ~l0020 | |
| print_paddr s052 | |
| new_line | |
| rtrue | |
| l0020: je gef #12 ~l0021 | |
| print "yourself" | |
| jump l0065 | |
| l0021: je gef #13 ~l0022 | |
| print_ret "As good-looking as ever." | |
| l0022: je gef #14 ~l0023 | |
| print_paddr s053 | |
| new_line | |
| rtrue | |
| l0023: je gef #15 ~l0024 | |
| print_ret "You can hardly repeat that." | |
| l0024: je gef #16 ~l0025 | |
| print_ret "You can't begin with a comma." | |
| l0025: je gef #17 ~l0026 | |
| print_paddr s054 | |
| new_line | |
| rtrue | |
| l0026: je gef #18 ~l0027 | |
| print "You can't talk to " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0027: je gef #19 ~l0028 | |
| print_paddr s055 | |
| new_line | |
| rtrue | |
| l0028: je gef #1a ~l0029 | |
| print "(first taking " | |
| call_2n r0105 g4a | |
| print_ret ")" | |
| l0029: je gef #1b ~l0030 | |
| print_paddr s056 | |
| new_line | |
| rtrue | |
| l0030: je gef #1c ~l0031 | |
| print_paddr s057 | |
| jump l0065 | |
| l0031: je gef #1d ~l0032 | |
| print_ret "I didn't understand that number." | |
| l0032: je gef #1e ~l0033 | |
| print_ret "You can't see any such thing." | |
| l0033: je gef #1f ~l0034 | |
| print_paddr s058 | |
| new_line | |
| rtrue | |
| l0034: je gef #20 ~l0035 | |
| print_ret "You aren't holding that!" | |
| l0035: je gef #21 ~l0036 | |
| print_paddr s059 | |
| new_line | |
| rtrue | |
| l0036: je gef #22 ~l0037 | |
| print_paddr s060 | |
| new_line | |
| rtrue | |
| l0037: je gef #23 ?~l0038 | |
| print "I'm not sure what ~" | |
| print_addr g6f | |
| print_ret "~ refers to." | |
| l0038: je gef #24 ~l0039 | |
| print_paddr s061 | |
| new_line | |
| rtrue | |
| l0039: je gef #25 ~l0040 | |
| print_paddr s062 | |
| new_line | |
| rtrue | |
| l0040: je gef #26 ~l0041 | |
| print_ret "That's not a verb I recognise." | |
| l0041: je gef #27 ~l0042 | |
| print_paddr s063 | |
| new_line | |
| rtrue | |
| l0042: je gef #28 ?~l0043 | |
| print "You can't see ~" | |
| print_addr g6f | |
| print "~ (" | |
| call_2n r0105 g70 | |
| print_ret ") at the moment." | |
| l0043: je gef #29 ~l0044 | |
| print_paddr s064 | |
| new_line | |
| rtrue | |
| l0044: je gef #2a ?~l0049 | |
| jz local1 ~l0045 | |
| print "None" | |
| jump l0046 | |
| l0045: print "Only " | |
| call_2n r0108 local1 | |
| l0046: print " of those " | |
| je local1 #01 ~l0047 | |
| print "is" | |
| jump l0048 | |
| l0047: print "are" | |
| l0048: print_ret " available." | |
| l0049: je gef #2b ~l0050 | |
| print_ret "Nothing to do!" | |
| l0050: je gef #2c ~l0051 | |
| print_ret "There are none at all available!" | |
| l0051: je gef #2d ~l0052 | |
| print "Who do you mean, " | |
| jump l0065 | |
| l0052: je gef #2e ~l0053 | |
| print "Which do you mean, " | |
| jump l0065 | |
| l0053: je gef #2f ~l0054 | |
| print_paddr s065 | |
| new_line | |
| rtrue | |
| l0054: je gef #30 ?~l0056 | |
| print "Whom do you want" | |
| je g3e g1b l0055 | |
| print " " | |
| call_2n r0105 g3e | |
| l0055: print " to " | |
| call_1n r0036 | |
| print "?^" | |
| jump l0065 | |
| l0056: je gef #31 ?~l0058 | |
| print "What do you want" | |
| je g3e g1b l0057 | |
| print " " | |
| call_2n r0105 g3e | |
| l0057: print " to " | |
| call_1n r0036 | |
| print "?^" | |
| jump l0065 | |
| l0058: je gef #32 ?~l0062 | |
| print "Your score has just gone " | |
| jg local1 #00 ~l0059 | |
| print "up" | |
| jump l0060 | |
| l0059: sub #00 local1 -> local1 | |
| print "down" | |
| l0060: print " by " | |
| call_2n r0108 local1 | |
| print " point" | |
| jg local1 #01 ~l0061 | |
| print "s" | |
| l0061: jump l0065 | |
| l0062: je gef #33 ~l0063 | |
| print_paddr s066 | |
| new_line | |
| rtrue | |
| l0063: je gef #34 ?~l0064 | |
| print "^Type a number from 1 to " | |
| print_num local1 | |
| print_ret ", 0 to redisplay or press ENTER." | |
| l0064: je gef #35 ~l0065 | |
| print_ret "^[Please press SPACE.]" | |
| l0065: rtrue | |
| l0066: je ge9 #1006 ?~l0089 | |
| store gef local0 | |
| je gef #01 ~l0067 | |
| print " (providing light)" | |
| jump l0088 | |
| l0067: je gef #02 ~l0068 | |
| print " (which " | |
| call_2n r0011 local1 | |
| print " closed)" | |
| jump l0088 | |
| l0068: je gef #03 ~l0069 | |
| print " (closed and providing light)" | |
| jump l0088 | |
| l0069: je gef #04 ~l0070 | |
| print " (which " | |
| call_2n r0011 local1 | |
| print " empty)" | |
| jump l0088 | |
| l0070: je gef #05 ~l0071 | |
| print " (empty and providing light)" | |
| jump l0088 | |
| l0071: je gef #06 ?~l0072 | |
| print " (which " | |
| call_2n r0011 local1 | |
| print " closed and empty)" | |
| jump l0088 | |
| l0072: je gef #07 ~l0073 | |
| print_paddr s067 | |
| jump l0088 | |
| l0073: je gef #08 ~l0074 | |
| print " (providing light and being worn" | |
| jump l0088 | |
| l0074: je gef #09 ~l0075 | |
| print " (providing light" | |
| jump l0088 | |
| l0075: je gef #0a ~l0076 | |
| print " (being worn" | |
| jump l0088 | |
| l0076: je gef #0b ~l0077 | |
| print " (which " | |
| call_2n r0011 local1 | |
| print " " | |
| jump l0088 | |
| l0077: je gef #0c ~l0078 | |
| print "open" | |
| jump l0088 | |
| l0078: je gef #0d ~l0079 | |
| print "open but empty" | |
| jump l0088 | |
| l0079: je gef #0e ~l0080 | |
| print "closed" | |
| jump l0088 | |
| l0080: je gef #0f ~l0081 | |
| print "closed and locked" | |
| jump l0088 | |
| l0081: je gef #10 ~l0082 | |
| print " and empty" | |
| jump l0088 | |
| l0082: je gef #11 ~l0083 | |
| print " (which " | |
| call_2n r0011 local1 | |
| print " empty)" | |
| jump l0088 | |
| l0083: je gef #12 ~l0084 | |
| print " containing " | |
| jump l0088 | |
| l0084: je gef #13 ~l0085 | |
| print " (on " | |
| jump l0088 | |
| l0085: je gef #14 ~l0086 | |
| print ", on top of " | |
| jump l0088 | |
| l0086: je gef #15 ~l0087 | |
| print " (in " | |
| jump l0088 | |
| l0087: je gef #16 ~l0088 | |
| print ", inside " | |
| l0088: rtrue | |
| l0089: je ge9 #00 ?~l0094 | |
| store gef local0 | |
| je gef #01 ~l0090 | |
| print "At the moment, " | |
| jump l0093 | |
| l0090: je gef #02 ~l0091 | |
| print "means " | |
| jump l0093 | |
| l0091: je gef #03 ~l0092 | |
| print "is unset" | |
| jump l0093 | |
| l0092: je gef #04 ~l0093 | |
| print_paddr s068 | |
| new_line | |
| rtrue | |
| l0093: rtrue | |
| l0094: je ge9 #1003 ?~l0097 | |
| call_2n r0106 local1 | |
| test_attr local1 #27 ~l0095 | |
| print " have" | |
| jump l0096 | |
| l0095: print " has" | |
| l0096: print_ret " better things to do." | |
| l0097: je ge9 #01 ?~l0100 | |
| store gef local0 | |
| je gef #01 ~l0098 | |
| print "Please answer yes or no." | |
| jump l0099 | |
| l0098: je gef #02 ~l0099 | |
| print "Are you sure you want to quit? " | |
| l0099: rtrue | |
| l0100: je ge9 #02 ~l0103 | |
| store gef local0 | |
| je gef #01 ~l0101 | |
| print_paddr s069 | |
| jump l0102 | |
| l0101: je gef #02 ~l0102 | |
| print_ret "Failed." | |
| l0102: rtrue | |
| l0103: je ge9 #03 ?~l0106 | |
| store gef local0 | |
| je gef #01 ~l0104 | |
| print_ret "Restore failed." | |
| l0104: je gef #02 ~l0105 | |
| print_ret "Ok." | |
| l0105: rtrue | |
| l0106: je ge9 #04 ?~l0109 | |
| store gef local0 | |
| je gef #01 ~l0107 | |
| print_ret "Save failed." | |
| l0107: je gef #02 ~l0108 | |
| print_ret "Ok." | |
| l0108: rtrue | |
| l0109: je ge9 #05 ~l0112 | |
| store gef local0 | |
| je gef #01 ~l0110 | |
| print_paddr s070 | |
| new_line | |
| rtrue | |
| l0110: je gef #02 ~l0111 | |
| print_paddr s071 | |
| new_line | |
| rtrue | |
| l0111: rtrue | |
| l0112: je ge9 #06 ?~l0116 | |
| store gef local0 | |
| je gef #01 ~l0113 | |
| print_ret "Transcripting is already on." | |
| l0113: je gef #02 ~l0114 | |
| print_ret "Start of a transcript of" | |
| l0114: je gef #03 ~l0115 | |
| print_paddr s072 | |
| new_line | |
| rtrue | |
| l0115: rtrue | |
| l0116: je ge9 #07 ?~l0120 | |
| store gef local0 | |
| je gef #01 ~l0117 | |
| print_ret "Transcripting is already off." | |
| l0117: je gef #02 ~l0118 | |
| print_ret "^End of transcript." | |
| l0118: je gef #03 ~l0119 | |
| print_paddr s073 | |
| new_line | |
| rtrue | |
| l0119: rtrue | |
| l0120: je ge9 #08 ~l0121 | |
| print_ret "Score notification on." | |
| l0121: je ge9 #09 ~l0122 | |
| print_ret "Score notification off." | |
| l0122: je ge9 #0a ~l0123 | |
| print "You have visited: " | |
| rtrue | |
| l0123: je ge9 #0b ?~l0134 | |
| store gef local0 | |
| je gef #01 ~l0124 | |
| print_ret "Objects you have handled:^" | |
| l0124: je gef #02 ~l0125 | |
| print_ret "None." | |
| l0125: je gef #03 ~l0126 | |
| print " (worn)" | |
| jump l0133 | |
| l0126: je gef #04 ~l0127 | |
| print " (held)" | |
| jump l0133 | |
| l0127: je gef #05 ~l0128 | |
| print " (given away)" | |
| jump l0133 | |
| l0128: je gef #06 ~l0129 | |
| print " (in " | |
| call_2n r0107 local1 | |
| print ")" | |
| jump l0133 | |
| l0129: je gef #07 ~l0130 | |
| print " (in " | |
| call_2n r0105 local1 | |
| print ")" | |
| jump l0133 | |
| l0130: je gef #08 ~l0131 | |
| print " (inside " | |
| call_2n r0105 local1 | |
| print ")" | |
| jump l0133 | |
| l0131: je gef #09 ~l0132 | |
| print " (on " | |
| call_2n r0105 local1 | |
| print ")" | |
| jump l0133 | |
| l0132: je gef #0a ~l0133 | |
| print " (lost)" | |
| l0133: rtrue | |
| l0134: je ge9 #0c ?~l0138 | |
| jz g1c l0135 | |
| print "In that game you scored " | |
| jump l0136 | |
| l0135: print "You have so far scored " | |
| l0136: print_num g16 | |
| print " out of a possible " | |
| print_num #c8 | |
| print ", in " | |
| print_num g11 | |
| print " turn" | |
| jg g11 #01 ~l0137 | |
| print "s" | |
| l0137: rtrue | |
| l0138: je ge9 #0d ?~l0145 | |
| store gef local0 | |
| je gef #01 ?~l0141 | |
| jz g1c l0139 | |
| print "The score was " | |
| jump l0140 | |
| l0139: print "The score is " | |
| l0140: print_ret "made up as follows:^" | |
| l0141: je gef #02 ~l0142 | |
| print_ret "finding sundry items" | |
| l0142: je gef #03 ~l0143 | |
| print_ret "visiting various places" | |
| l0143: je gef #04 ~l0144 | |
| print "total (out of " | |
| print_num #c8 | |
| print_ret ")" | |
| l0144: rtrue | |
| l0145: je ge9 #0e ?~l0148 | |
| store gef local0 | |
| je gef #01 ~l0146 | |
| print_ret "You are carrying nothing." | |
| l0146: je gef #02 ~l0147 | |
| print "You are carrying" | |
| l0147: rtrue | |
| l0148: je ge9 #0f ?~l0172 | |
| store gef local0 | |
| je gef #01 ~l0149 | |
| print_ret "Taken." | |
| l0149: je gef #02 ~l0150 | |
| print_ret "You are always self-possessed." | |
| l0150: je gef #03 ?~l0151 | |
| print "I don't suppose " | |
| call_2n r0105 local1 | |
| print_ret " would care for that." | |
| l0151: je gef #04 ?~l0154 | |
| print "You'd have to get " | |
| test_attr local1 #1d ~l0152 | |
| print "off " | |
| jump l0153 | |
| l0152: print "out of " | |
| l0153: call_2n r0105 local1 | |
| print_ret " first." | |
| l0154: je gef #05 ~l0155 | |
| print "You already have " | |
| call_2n r0009 local1 | |
| print_ret "." | |
| l0155: je gef #06 ?~l0158 | |
| test_attr g34 #27 ~l0156 | |
| print "Those seem " | |
| jump l0157 | |
| l0156: print "That seems " | |
| l0157: print "to belong to " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0158: je gef #07 ?~l0161 | |
| test_attr g34 #27 ~l0159 | |
| print "Those seem " | |
| jump l0160 | |
| l0159: print "That seems " | |
| l0160: print "to be a part of " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0161: je gef #08 ~l0162 | |
| call_2n r0012 local1 | |
| print " " | |
| call_2n r0011 local1 | |
| print_ret "n't available." | |
| l0162: je gef #09 ~l0163 | |
| call_2n r0106 local1 | |
| print " " | |
| call_2n r0011 local1 | |
| print_ret "n't open." | |
| l0163: je gef #0a ?~l0166 | |
| test_attr local1 #27 ~l0164 | |
| print "They're " | |
| jump l0165 | |
| l0164: print "That's " | |
| l0165: print_ret "hardly portable." | |
| l0166: je gef #0b ?~l0169 | |
| test_attr local1 #27 ~l0167 | |
| print "They're " | |
| jump l0168 | |
| l0167: print "That's " | |
| l0168: print_ret "fixed in place." | |
| l0169: je gef #0c ~l0170 | |
| print_paddr s074 | |
| new_line | |
| rtrue | |
| l0170: je gef #0d ?~l0171 | |
| print "(putting " | |
| call_2n r0105 local1 | |
| print " into " | |
| call_2n r0105 #0000 | |
| print_ret " to make room)" | |
| l0171: rtrue | |
| l0172: je ge9 #10 ?~l0179 | |
| store gef local0 | |
| je gef #01 ?~l0175 | |
| test_attr local1 #27 ~l0173 | |
| call_2n r0106 local1 | |
| print " are " | |
| jump l0174 | |
| l0173: call_2n r0106 local1 | |
| print " is " | |
| l0174: print_ret "already here." | |
| l0175: je gef #02 ~l0176 | |
| print "You haven't got " | |
| call_2n r0009 local1 | |
| print_ret "." | |
| l0176: je gef #03 ~l0177 | |
| print "(first taking " | |
| call_2n r0105 local1 | |
| print_ret " off)" | |
| l0177: je gef #04 ~l0178 | |
| print_ret "Dropped." | |
| l0178: rtrue | |
| l0179: je ge9 #11 ?~l0187 | |
| store gef local0 | |
| je gef #01 ?~l0182 | |
| test_attr local1 #27 ~l0180 | |
| print "They are" | |
| jump l0181 | |
| l0180: print "It is " | |
| l0181: print_ret " unfortunately closed." | |
| l0182: je gef #02 ?~l0185 | |
| test_attr local1 #27 ~l0183 | |
| print "But they aren't" | |
| jump l0184 | |
| l0183: print "But it isn't" | |
| l0184: print_ret " there now." | |
| l0185: je gef #03 ~l0186 | |
| print_ret "Removed." | |
| l0186: rtrue | |
| l0187: je ge9 #12 ?~l0196 | |
| store gef local0 | |
| je gef #01 ?~l0188 | |
| print "You need to be holding " | |
| call_2n r0105 local1 | |
| print " before you can put " | |
| call_2n r0010 local1 | |
| print_ret " on top of something else." | |
| l0188: je gef #02 ~l0189 | |
| print_paddr s075 | |
| new_line | |
| rtrue | |
| l0189: je gef #03 ?~l0190 | |
| print "Putting things on " | |
| call_2n r0105 local1 | |
| print_ret " would achieve nothing." | |
| l0190: je gef #04 ~l0191 | |
| print_ret "You lack the dexterity." | |
| l0191: je gef #05 ~l0192 | |
| print "(first taking " | |
| call_2n r0010 local1 | |
| print_ret " off)^" | |
| l0192: je gef #06 ~l0193 | |
| print "There is no more room on " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0193: je gef #07 ~l0194 | |
| print_ret "Done." | |
| l0194: je gef #08 ~l0195 | |
| print "You put " | |
| call_2n r0105 local1 | |
| print " on " | |
| call_2n r0105 g35 | |
| print_ret "." | |
| l0195: rtrue | |
| l0196: je ge9 #13 ?~l0206 | |
| store gef local0 | |
| je gef #01 ?~l0197 | |
| print "You need to be holding " | |
| call_2n r0105 local1 | |
| print " before you can put " | |
| call_2n r0010 local1 | |
| print_ret " into something else." | |
| l0197: je gef #02 ~l0198 | |
| call_2n r0012 local1 | |
| print_ret " can't contain things." | |
| l0198: je gef #03 ~l0199 | |
| call_2n r0106 local1 | |
| print " " | |
| call_2n r0011 local1 | |
| print_ret " closed." | |
| l0199: je gef #04 ?~l0200 | |
| print "You'll need to take " | |
| call_2n r0010 local1 | |
| print_ret " off first." | |
| l0200: je gef #05 ~l0201 | |
| print_paddr s076 | |
| new_line | |
| rtrue | |
| l0201: je gef #06 ~l0202 | |
| print "(first taking " | |
| call_2n r0010 local1 | |
| print_ret " off)^" | |
| l0202: je gef #07 ~l0203 | |
| print "There is no more room in " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0203: je gef #08 ~l0204 | |
| print_ret "Done." | |
| l0204: je gef #09 ~l0205 | |
| print "You put " | |
| call_2n r0105 local1 | |
| print " into " | |
| call_2n r0105 g35 | |
| print_ret "." | |
| l0205: rtrue | |
| l0206: je ge9 #14 ?~l0210 | |
| store gef local0 | |
| je gef #01 ~l0207 | |
| call_2n r0106 local1 | |
| print_ret " can't contain things." | |
| l0207: je gef #02 ~l0208 | |
| call_2n r0106 local1 | |
| print " " | |
| call_2n r0011 local1 | |
| print_ret " closed." | |
| l0208: je gef #03 ~l0209 | |
| call_2n r0106 local1 | |
| print " " | |
| call_2n r0011 local1 | |
| print_ret " empty already." | |
| l0209: rtrue | |
| l0210: je ge9 #15 ?~l0216 | |
| store gef local0 | |
| je gef #01 ~l0211 | |
| print "You aren't holding " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0211: je gef #02 ~l0212 | |
| print "You juggle " | |
| call_2n r0105 local1 | |
| print_paddr s077 | |
| new_line | |
| rtrue | |
| l0212: je gef #03 ?~l0215 | |
| call_2n r0106 local1 | |
| test_attr local1 #27 ~l0213 | |
| print " don't" | |
| jump l0214 | |
| l0213: print " doesn't" | |
| l0214: print_ret " seem interested." | |
| l0215: rtrue | |
| l0216: je ge9 #16 ?~l0219 | |
| store gef local0 | |
| je gef #01 ~l0217 | |
| print "You aren't holding " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0217: je gef #02 ~l0218 | |
| call_2n r0106 local1 | |
| print " " | |
| call_2n r0011 local1 | |
| print_ret " unimpressed." | |
| l0218: rtrue | |
| l0219: je ge9 #17 ?~l0237 | |
| store gef local0 | |
| je gef #01 ?~l0222 | |
| print "But you're already " | |
| test_attr local1 #1d ~l0220 | |
| print "on " | |
| jump l0221 | |
| l0220: print "in " | |
| l0221: call_2n r0105 local1 | |
| print_ret "." | |
| l0222: je gef #02 ?~l0225 | |
| test_attr local1 #27 ~l0223 | |
| print "They're" | |
| jump l0224 | |
| l0223: print "That's" | |
| l0224: print_ret " not something you can enter." | |
| l0225: je gef #03 ?~l0226 | |
| print "You can't get into the closed " | |
| call_2n r0107 local1 | |
| print_ret "." | |
| l0226: je gef #04 ~l0227 | |
| print_paddr s078 | |
| new_line | |
| rtrue | |
| l0227: je gef #05 ?~l0230 | |
| print "You get " | |
| test_attr local1 #1d ~l0228 | |
| print "onto " | |
| jump l0229 | |
| l0228: print "into " | |
| l0229: call_2n r0105 local1 | |
| print_ret "." | |
| l0230: je gef #06 ?~l0233 | |
| print "(getting " | |
| test_attr local1 #1d ~l0231 | |
| print "off " | |
| jump l0232 | |
| l0231: print "out of " | |
| l0232: call_2n r0105 local1 | |
| print_ret ")" | |
| l0233: je gef #07 ?~l0236 | |
| test_attr local1 #1d ~l0234 | |
| print "(getting onto " | |
| call_2n r0105 local1 | |
| print_ret ")^" | |
| l0234: test_attr local1 #0d ~l0235 | |
| print "(getting into " | |
| call_2n r0105 local1 | |
| print_ret ")^" | |
| l0235: print "(entering " | |
| call_2n r0105 local1 | |
| print_ret ")^" | |
| l0236: rtrue | |
| l0237: je ge9 #18 ?~l0238 | |
| print "But you aren't on " | |
| call_2n r0105 local1 | |
| print_ret " at the moment." | |
| l0238: je ge9 #19 ?~l0244 | |
| store gef local0 | |
| je gef #01 ~l0239 | |
| print_paddr s079 | |
| new_line | |
| rtrue | |
| l0239: je gef #02 ?~l0240 | |
| print "You can't get out of the closed " | |
| call_2n r0107 local1 | |
| print_ret "." | |
| l0240: je gef #03 ?~l0243 | |
| print "You get " | |
| test_attr local1 #1d ~l0241 | |
| print "off " | |
| jump l0242 | |
| l0241: print "out of " | |
| l0242: call_2n r0105 local1 | |
| print_ret "." | |
| l0243: rtrue | |
| l0244: je ge9 #1a ~l0245 | |
| print_paddr s080 | |
| new_line | |
| rtrue | |
| l0245: je ge9 #1b ?~l0255 | |
| store gef local0 | |
| je gef #01 ?~l0248 | |
| print "You'll have to get " | |
| test_attr local1 #1d ~l0246 | |
| print "off " | |
| jump l0247 | |
| l0246: print "out of " | |
| l0247: call_2n r0105 local1 | |
| print_ret " first." | |
| l0248: je gef #02 ~l0249 | |
| print_ret "You can't go that way." | |
| l0249: je gef #03 ~l0250 | |
| print "You are unable to climb " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0250: je gef #04 ~l0251 | |
| print "You are unable to descend by " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0251: je gef #05 ?~l0252 | |
| print "You can't, since " | |
| call_2n r0105 local1 | |
| print " " | |
| call_2n r0011 local1 | |
| print_ret " in the way." | |
| l0252: je gef #06 ?~l0254 | |
| print "You can't, since " | |
| call_2n r0105 local1 | |
| test_attr local1 #27 ~l0253 | |
| print_ret " lead nowhere." | |
| l0253: print_ret " leads nowhere." | |
| l0254: rtrue | |
| l0255: je ge9 #1c ~l0256 | |
| print_paddr s081 | |
| new_line | |
| rtrue | |
| l0256: je ge9 #1d ~l0257 | |
| print_paddr s082 | |
| new_line | |
| rtrue | |
| l0257: je ge9 #1e ~l0258 | |
| print_paddr s083 | |
| new_line | |
| rtrue | |
| l0258: je ge9 #1f ?~l0272 | |
| store gef local0 | |
| je gef #01 ~l0259 | |
| print " (on " | |
| call_2n r0105 local1 | |
| print ")" | |
| jump l0271 | |
| l0259: je gef #02 ~l0260 | |
| print " (in " | |
| call_2n r0105 local1 | |
| print ")" | |
| jump l0271 | |
| l0260: je gef #03 ~l0261 | |
| print " (as " | |
| print_obj local1 | |
| print ")" | |
| jump l0271 | |
| l0261: je gef #04 ?~l0263 | |
| print "^On " | |
| call_2n r0105 local1 | |
| add #0008 #0010 -> sp | |
| add sp #0080 -> sp | |
| add sp #0040 -> sp | |
| add sp #0400 -> sp | |
| add sp #0800 -> sp | |
| get_child local1 -> sp ~l0262 | |
| l0262: call_vn r0123 sp sp | |
| print_ret "." | |
| l0263: je local1 g09 ?l0266 | |
| test_attr local1 #1d ~l0264 | |
| print "^On " | |
| jump l0265 | |
| l0264: print "^In " | |
| l0265: call_2n r0105 local1 | |
| print " you" | |
| jump l0267 | |
| l0266: print "^You" | |
| l0267: print " can " | |
| je local0 #05 ~l0268 | |
| print "also " | |
| l0268: print "see " | |
| add #0008 #0200 -> sp | |
| add sp #0010 -> sp | |
| add sp #0080 -> sp | |
| add sp #0040 -> sp | |
| add sp #0800 -> sp | |
| get_child local1 -> sp ~l0269 | |
| l0269: call_vn r0123 sp sp | |
| je local1 g09 l0270 | |
| print_ret "." | |
| l0270: print_ret " here." | |
| l0271: rtrue | |
| l0272: je ge9 #20 ?~l0277 | |
| store gef local0 | |
| je gef #01 ~l0273 | |
| print_paddr s084 | |
| new_line | |
| rtrue | |
| l0273: je gef #02 ?~l0274 | |
| print "You see nothing special about " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0274: je gef #03 ?~l0276 | |
| call_2n r0106 local1 | |
| print " " | |
| call_2n r0011 local1 | |
| print " currently switched " | |
| test_attr local1 #16 ~l0275 | |
| print_ret "on." | |
| l0275: print_ret "off." | |
| l0276: rtrue | |
| l0277: je ge9 #21 ?~l0280 | |
| store gef local0 | |
| je gef #01 ~l0278 | |
| print_ret "But it's dark." | |
| l0278: je gef #02 ~l0279 | |
| print_ret "You find nothing of interest." | |
| l0279: rtrue | |
| l0280: je ge9 #22 ?~l0290 | |
| store gef local0 | |
| je gef #01 ~l0281 | |
| print_ret "But it's dark." | |
| l0281: je gef #02 ~l0282 | |
| print "There is nothing on " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0282: je gef #03 ?~l0284 | |
| print "On " | |
| call_2n r0105 local1 | |
| add #0040 #0008 -> sp | |
| add sp #0400 -> sp | |
| add sp #0800 -> sp | |
| get_child local1 -> sp ~l0283 | |
| l0283: call_vn r0123 sp sp | |
| print_ret "." | |
| l0284: je gef #04 ~l0285 | |
| print_ret "You find nothing of interest." | |
| l0285: je gef #05 ?~l0286 | |
| print "You can't see inside, since " | |
| call_2n r0105 local1 | |
| print " " | |
| call_2n r0011 local1 | |
| print_ret " closed." | |
| l0286: je gef #06 ~l0287 | |
| call_2n r0106 local1 | |
| print " " | |
| call_2n r0011 local1 | |
| print_ret " empty." | |
| l0287: je gef #07 ?~l0289 | |
| print "In " | |
| call_2n r0105 local1 | |
| add #0040 #0008 -> sp | |
| add sp #0400 -> sp | |
| add sp #0800 -> sp | |
| get_child local1 -> sp ~l0288 | |
| l0288: call_vn r0123 sp sp | |
| print_ret "." | |
| l0289: rtrue | |
| l0290: je ge9 #23 ?~l0299 | |
| store gef local0 | |
| je gef #01 ?~l0293 | |
| test_attr local1 #27 ~l0291 | |
| print "They don't " | |
| jump l0292 | |
| l0291: print "That doesn't " | |
| l0292: print_paddr s085 | |
| new_line | |
| rtrue | |
| l0293: je gef #02 ~l0294 | |
| call_2n r0013 local1 | |
| print_ret " unlocked at the moment." | |
| l0294: je gef #03 ?~l0297 | |
| test_attr local1 #27 ~l0295 | |
| print "Those don't " | |
| jump l0296 | |
| l0295: print "That doesn't " | |
| l0296: print_ret "seem to fit the lock." | |
| l0297: je gef #04 ~l0298 | |
| print "You unlock " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0298: rtrue | |
| l0299: je ge9 #24 ?~l0309 | |
| store gef local0 | |
| je gef #01 ?~l0302 | |
| test_attr local1 #27 ~l0300 | |
| print "They don't " | |
| jump l0301 | |
| l0300: print "That doesn't " | |
| l0301: print_paddr s086 | |
| new_line | |
| rtrue | |
| l0302: je gef #02 ~l0303 | |
| call_2n r0013 local1 | |
| print_ret " locked at the moment." | |
| l0303: je gef #03 ~l0304 | |
| print "First you'll have to close " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0304: je gef #04 ?~l0307 | |
| test_attr local1 #27 ~l0305 | |
| print "Those don't " | |
| jump l0306 | |
| l0305: print "That doesn't " | |
| l0306: print_ret "seem to fit the lock." | |
| l0307: je gef #05 ~l0308 | |
| print "You lock " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0308: rtrue | |
| l0309: je ge9 #25 ?~l0313 | |
| store gef local0 | |
| je gef #01 ~l0310 | |
| call_2n r0013 local1 | |
| print_ret " not something you can switch." | |
| l0310: je gef #02 ~l0311 | |
| call_2n r0013 local1 | |
| print_ret " already on." | |
| l0311: je gef #03 ~l0312 | |
| print "You switch " | |
| call_2n r0105 local1 | |
| print_ret " on." | |
| l0312: rtrue | |
| l0313: je ge9 #26 ?~l0317 | |
| store gef local0 | |
| je gef #01 ~l0314 | |
| call_2n r0013 local1 | |
| print_ret " not something you can switch." | |
| l0314: je gef #02 ~l0315 | |
| call_2n r0013 local1 | |
| print_ret " already off." | |
| l0315: je gef #03 ~l0316 | |
| print "You switch " | |
| call_2n r0105 local1 | |
| print_ret " off." | |
| l0316: rtrue | |
| l0317: je ge9 #27 ?~l0327 | |
| store gef local0 | |
| je gef #01 ~l0318 | |
| call_2n r0013 local1 | |
| print_ret " not something you can open." | |
| l0318: je gef #02 ?~l0321 | |
| test_attr local1 #27 ~l0319 | |
| print "They seem " | |
| jump l0320 | |
| l0319: print "It seems " | |
| l0320: print_ret "to be locked." | |
| l0321: je gef #03 ~l0322 | |
| call_2n r0013 local1 | |
| print_ret " already open." | |
| l0322: je gef #04 ?~l0325 | |
| print "You open " | |
| call_2n r0105 local1 | |
| print ", revealing " | |
| add #0008 #0040 -> sp | |
| add sp #0800 -> sp | |
| get_child local1 -> sp ~l0323 | |
| l0323: call_vs r0123 sp sp -> sp | |
| jz sp ~l0324 | |
| print_ret "nothing." | |
| l0324: print_ret "." | |
| l0325: je gef #05 ~l0326 | |
| print "You open " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0326: rtrue | |
| l0327: je ge9 #28 ?~l0331 | |
| store gef local0 | |
| je gef #01 ~l0328 | |
| call_2n r0013 local1 | |
| print_ret " not something you can close." | |
| l0328: je gef #02 ~l0329 | |
| call_2n r0013 local1 | |
| print_ret " already closed." | |
| l0329: je gef #03 ~l0330 | |
| print "You close " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0330: rtrue | |
| l0331: je ge9 #29 ?~l0334 | |
| store gef local0 | |
| je gef #01 ~l0332 | |
| print "You're not wearing " | |
| call_2n r0009 local1 | |
| print_ret "." | |
| l0332: je gef #02 ~l0333 | |
| print "You take off " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0333: rtrue | |
| l0334: je ge9 #2a ?~l0339 | |
| store gef local0 | |
| je gef #01 ~l0335 | |
| print "You can't wear " | |
| call_2n r0009 local1 | |
| print_ret "!" | |
| l0335: je gef #02 ~l0336 | |
| print "You're not holding " | |
| call_2n r0009 local1 | |
| print_ret "!" | |
| l0336: je gef #03 ~l0337 | |
| print "You're already wearing " | |
| call_2n r0009 local1 | |
| print_ret "!" | |
| l0337: je gef #04 ~l0338 | |
| print "You put on " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0338: rtrue | |
| l0339: je ge9 #2b ?~l0342 | |
| store gef local0 | |
| je gef #01 ~l0340 | |
| call_2n r0013 local1 | |
| print_ret " plainly inedible." | |
| l0340: je gef #02 ~l0341 | |
| print "You eat " | |
| call_2n r0105 local1 | |
| print_ret ". Not bad." | |
| l0341: rtrue | |
| l0342: je ge9 #2c #2d ~l0343 | |
| print_ret "That was a rhetorical question." | |
| l0343: je ge9 #2e ~l0344 | |
| print_paddr s087 | |
| new_line | |
| rtrue | |
| l0344: je ge9 #2f ~l0345 | |
| print_paddr s088 | |
| new_line | |
| rtrue | |
| l0345: je ge9 #30 ~l0346 | |
| print_paddr s089 | |
| new_line | |
| rtrue | |
| l0346: je ge9 #31 ~l0347 | |
| print_ret "That seems unnecessary." | |
| l0347: je ge9 #32 ~l0348 | |
| print_ret "Keep your mind on the game." | |
| l0348: je ge9 #33 ~l0349 | |
| print_ret "What a good idea." | |
| l0349: je ge9 #34 ~l0350 | |
| print_ret "You smell nothing unexpected." | |
| l0350: je ge9 #35 ~l0351 | |
| print_ret "You hear nothing unexpected." | |
| l0351: je ge9 #36 ~l0352 | |
| print_ret "You taste nothing unexpected." | |
| l0352: je ge9 #37 ?~l0356 | |
| store gef local0 | |
| je gef #01 ~l0353 | |
| print_ret "Keep your hands to yourself!" | |
| l0353: je gef #02 ~l0354 | |
| print_ret "You feel nothing unexpected." | |
| l0354: je gef #03 ~l0355 | |
| print_ret "If you think that'll help." | |
| l0355: rtrue | |
| l0356: je ge9 #38 ~l0357 | |
| print_paddr s090 | |
| new_line | |
| rtrue | |
| l0357: je ge9 #39 ?~l0358 | |
| print "Cutting " | |
| call_2n r0009 local1 | |
| print_ret " up would achieve little." | |
| l0358: je ge9 #3a ~l0359 | |
| print_paddr s091 | |
| new_line | |
| rtrue | |
| l0359: je ge9 #3b #3c ~l0360 | |
| print_paddr s092 | |
| new_line | |
| rtrue | |
| l0360: je ge9 #3d ~l0361 | |
| print_paddr s093 | |
| new_line | |
| rtrue | |
| l0361: je ge9 #3e ~l0362 | |
| print_paddr s094 | |
| new_line | |
| rtrue | |
| l0362: je ge9 #3f ~l0363 | |
| print_ret "Oh, don't apologise." | |
| l0363: je ge9 #40 ~l0364 | |
| print_paddr s095 | |
| new_line | |
| rtrue | |
| l0364: je ge9 #41 ~l0365 | |
| print_ret "Quite." | |
| l0365: je ge9 #42 ~l0366 | |
| print_paddr s096 | |
| new_line | |
| rtrue | |
| l0366: je ge9 #43 ~l0367 | |
| print_paddr s097 | |
| new_line | |
| rtrue | |
| l0367: je ge9 #44 ~l0368 | |
| print_paddr s098 | |
| new_line | |
| rtrue | |
| l0368: je ge9 #45 ~l0369 | |
| print "You can't usefully blow " | |
| call_2n r0009 local1 | |
| print_ret "." | |
| l0369: je ge9 #46 ~l0370 | |
| print_ret "You achieve nothing by this." | |
| l0370: je ge9 #47 ~l0371 | |
| print "No, you can't set " | |
| call_2n r0009 local1 | |
| print_ret "." | |
| l0371: je ge9 #48 ?~l0372 | |
| print "No, you can't set " | |
| call_2n r0009 local1 | |
| print_ret " to anything." | |
| l0372: je ge9 #49 ~l0373 | |
| print_ret "You wave, feeling foolish." | |
| l0373: je ge9 #4a ?~l0376 | |
| store gef local0 | |
| je gef #01 ~l0374 | |
| print "But you aren't holding " | |
| call_2n r0009 local1 | |
| print_ret "." | |
| l0374: je gef #02 ~l0375 | |
| print "You look ridiculous waving " | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0375: rtrue | |
| l0376: je ge9 #4b #4c #4d ?~l0383 | |
| store gef local0 | |
| je gef #01 ?~l0379 | |
| test_attr local1 #27 ~l0377 | |
| print "Those are " | |
| jump l0378 | |
| l0377: print "It is " | |
| l0378: print_ret "fixed in place." | |
| l0379: je gef #02 ~l0380 | |
| print_ret "You are unable to." | |
| l0380: je gef #03 ~l0381 | |
| print_ret "Nothing obvious happens." | |
| l0381: je gef #04 ~l0382 | |
| print_paddr s099 | |
| new_line | |
| rtrue | |
| l0382: rtrue | |
| l0383: je ge9 #4e ?~l0387 | |
| store gef local0 | |
| je gef #01 ~l0384 | |
| print_paddr s100 | |
| new_line | |
| rtrue | |
| l0384: je gef #02 ~l0385 | |
| print_ret "That's not a direction." | |
| l0385: je gef #03 ~l0386 | |
| print_ret "Not that way you can't." | |
| l0386: rtrue | |
| l0387: je ge9 #4f ?~l0390 | |
| store gef local0 | |
| je gef #01 ~l0388 | |
| print_ret "Keep your hands to yourself." | |
| l0388: je gef #02 ~l0389 | |
| print_ret "You achieve nothing by this." | |
| l0389: rtrue | |
| l0390: je ge9 #50 ~l0393 | |
| store gef local0 | |
| je gef #01 ~l0391 | |
| print_ret "Futile." | |
| l0391: je gef #02 ~l0392 | |
| print_paddr s101 | |
| new_line | |
| rtrue | |
| l0392: rtrue | |
| l0393: je ge9 #51 ?~l0396 | |
| store gef local0 | |
| je gef #01 ~l0394 | |
| print_ret "You talk to yourself a while." | |
| l0394: je gef #02 ~l0395 | |
| print_ret "This provokes no reaction." | |
| l0395: rtrue | |
| l0396: je ge9 #52 #53 ~l0397 | |
| print_ret "There is no reply." | |
| l0397: je ge9 #54 ~l0398 | |
| print_ret "That's not for sale." | |
| l0398: je ge9 #55 ~l0399 | |
| print_ret "Your singing is abominable." | |
| l0399: je ge9 #56 ~l0400 | |
| print_paddr s102 | |
| new_line | |
| rtrue | |
| l0400: je ge9 #57 ~l0401 | |
| print_ret "Time passes." | |
| l0401: je ge9 #58 ~l0402 | |
| print_paddr s103 | |
| new_line | |
| rtrue | |
| l0402: je ge9 #59 ~l0403 | |
| print_paddr s104 | |
| call_2n r0105 local1 | |
| print_ret "." | |
| l0403: rtrue | |
| Routine r0015, 0 locals | |
| call_vs r0241 #1007 #11 -> sp | |
| ret_popped | |
| Routine r0016, 0 locals | |
| call_vs r0241 #1007 #12 -> sp | |
| ret_popped | |
| Routine r0017, 0 locals | |
| call_vs r0241 #1007 #13 -> sp | |
| ret_popped | |
| Routine r0018, 1 local | |
| je local0 #0f ~l0001 | |
| store g5b #01 | |
| store g5c #0f | |
| rtrue | |
| l0001: loadb local0 #00 -> sp | |
| and sp #0f -> g5b | |
| add local0 #01 -> sp | |
| loadw sp #00 -> g5c | |
| rtrue | |
| Routine r0019, 2 locals | |
| store local1 #00 | |
| l0001: jl local1 #20 ~l0002 | |
| storew #2940 local1 #0f | |
| storew #28c0 local1 #01 | |
| storew #2900 local1 #0f | |
| inc local1 | |
| jump l0001 | |
| l0002: loadb local0 #01 -> sp | |
| loadb local0 #00 -> sp | |
| mul #0100 sp -> sp | |
| add sp sp -> g58 | |
| and g58 #0400 -> sp | |
| jz sp ~l0003 | |
| push #00 | |
| jump l0004 | |
| l0003: push #01 | |
| l0004: pull g59 | |
| and g58 #03ff -> g58 | |
| dec local0 | |
| store g54 #00 | |
| store local1 #00 | |
| l0005: add local0 #03 -> local0 | |
| loadb local0 #00 -> sp | |
| je sp #0f ~l0006 | |
| jump l0008 | |
| l0006: storew #2940 local1 local0 | |
| call_2n r0018 local0 | |
| je g5b #02 l0007 | |
| inc g54 | |
| l0007: storew #28c0 local1 g5b | |
| storew #2900 local1 g5c | |
| inc local1 | |
| jump l0005 | |
| l0008: add local0 #01 -> sp | |
| ret_popped | |
| Routine r0020, 2 locals | |
| loadb local0 #01 -> sp | |
| add #02 sp -> sp | |
| storeb local0 sp #00 | |
| tokenise local0 local1 | |
| rtrue | |
| Routine r0021, 1 local | |
| call_2n r0023 local0 | |
| rfalse | |
| Routine r0022, 8 locals | |
| call_1n r0092 | |
| l0001: store local3 #00 | |
| l0002: jl local3 #40 ~l0003 | |
| loadb local0 local3 -> sp | |
| storeb #2ced local3 sp | |
| inc local3 | |
| jump l0002 | |
| l0003: storeb local0 #00 #78 | |
| storeb local1 #00 #40 | |
| call_2n r0241 #1008 | |
| call_1n r0480 | |
| store gef #00 | |
| store gec local0 | |
| storeb gec #01 #00 | |
| call_1n r0099 | |
| read gec local1 -> gef | |
| loadb local1 #01 -> local2 | |
| jz local2 ~l0004 | |
| call_vn r0241 #1007 #0a | |
| jump l0001 | |
| l0004: loadw local1 #01 -> local4 | |
| je local4 "oops" "o" "oops" ~l0005 | |
| jump l0016 | |
| l0005: je local4 "undo" "undo" "undo" ?~l0012 | |
| loadb #2b79 #01 -> sp | |
| je sp #01 ?~l0012 | |
| je g11 #01 ~l0006 | |
| call_vn r0241 #1007 #0b | |
| jump l0001 | |
| l0006: jz g0e ~l0007 | |
| call_vn r0241 #1007 #06 | |
| jump l0001 | |
| l0007: je g0e #01 ~l0008 | |
| jump l0010 | |
| l0008: je g0f #01 ~l0009 | |
| call_vn r0241 #1007 #0c | |
| jump l0001 | |
| l0009: restore_undo -> local3 | |
| jz local3 ~l0011 | |
| l0010: call_vn r0241 #1007 #07 | |
| l0011: jump l0001 | |
| l0012: save_undo -> local3 | |
| store g0f #00 | |
| store g0e #02 | |
| je local3 #ffff ~l0013 | |
| store g0e #00 | |
| l0013: jz local3 ~l0014 | |
| store g0e #01 | |
| l0014: je local3 #02 ~l0015 | |
| set_text_style boldface | |
| call_2n r0107 g09 | |
| print "^" | |
| set_text_style roman | |
| call_vn r0241 #1007 #0d | |
| store g0f #01 | |
| jump l0001 | |
| l0015: ret local2 | |
| l0016: jz g83 ~l0017 | |
| call_vn r0241 #1007 #0e | |
| jump l0001 | |
| l0017: je local2 #01 ~l0018 | |
| call_vn r0241 #1007 #0f | |
| jump l0001 | |
| l0018: jg local2 #02 ~l0019 | |
| call_vn r0241 #1007 #10 | |
| jump l0001 | |
| l0019: store local3 #00 | |
| l0020: jg local3 #78 l0021 | |
| loadb local0 local3 -> sp | |
| storeb #2bba local3 sp | |
| inc local3 | |
| jump l0020 | |
| l0021: loadb local1 #09 -> local6 | |
| loadb local1 #08 -> local7 | |
| store local3 #00 | |
| l0022: jl local3 #40 ~l0023 | |
| loadb #2ced local3 -> sp | |
| storeb local0 local3 sp | |
| inc local3 | |
| jump l0022 | |
| l0023: call_vn r0020 local0 local1 | |
| mul #04 g83 -> sp | |
| add sp #01 -> sp | |
| loadb local1 sp -> local4 | |
| mul #04 g83 -> sp | |
| loadb local1 sp -> local5 | |
| store local3 #00 | |
| l0024: jl local3 local5 ~l0025 | |
| add local3 local4 -> sp | |
| storeb local0 sp #20 | |
| inc local3 | |
| jump l0024 | |
| l0025: jl local5 local7 ?~l0028 | |
| store local3 #78 | |
| l0026: add local4 local7 -> sp | |
| jl local3 sp l0027 | |
| sub local3 local7 -> sp | |
| add sp local5 -> sp | |
| loadb local0 sp -> sp | |
| storeb local0 local3 sp | |
| dec local3 | |
| jump l0026 | |
| l0027: sub local7 local5 -> sp | |
| loadb local0 #01 -> sp | |
| add sp sp -> sp | |
| storeb local0 #01 sp | |
| l0028: store local3 #00 | |
| l0029: jl local3 local7 ~l0030 | |
| add local3 local6 -> sp | |
| loadb #2bba sp -> sp | |
| add local3 local4 -> sp | |
| storeb local0 sp sp | |
| inc local3 | |
| jump l0029 | |
| l0030: call_vn r0020 local0 local1 | |
| loadb local1 #01 -> local2 | |
| ret local2 | |
| Routine r0023, 11 locals | |
| je g48 #01 ~l0003 | |
| store local5 #00 | |
| l0001: jl local5 #08 ~l0002 | |
| loadw #2820 local5 -> sp | |
| storew local0 local5 sp | |
| inc local5 | |
| jump l0001 | |
| l0002: store g48 #00 | |
| rtrue | |
| l0003: je g85 #01 ~l0004 | |
| store g85 #00 | |
| call_vn r0020 #2b00 #2b79 | |
| jump l0005 | |
| l0004: call_vn r0022 #2b00 #2b79 | |
| l0005: store g3d #01 | |
| loadb #2b79 #01 -> g7f | |
| store g7e #01 | |
| call_1n r0003 | |
| call_vn r0020 #2b00 #2b79 | |
| call_1n r0481 | |
| loadb #2b79 #01 -> g7f | |
| store local7 #00 | |
| store g81 #01 | |
| store g3e g1b | |
| call_2s r0024 g1b -> g3f | |
| store g82 #00 | |
| l0006: store g74 #00 | |
| store g58 #ffff | |
| l0007: store g7e g81 | |
| call_1s r0057 -> g80 | |
| je g80 #ffff ~l0008 | |
| store g4c #01 | |
| jump l0077 | |
| l0008: je g80 "g" "again" ~l0009 | |
| store g80 "again" | |
| l0009: je g80 "again" ?~l0014 | |
| je g3e g1b l0010 | |
| call_vn r0241 #1007 #14 | |
| jump l0004 | |
| l0010: loadb #2c74 #01 -> sp | |
| jz sp ~l0011 | |
| call_vn r0241 #1007 #15 | |
| jump l0004 | |
| l0011: store local5 #00 | |
| l0012: jl local5 #78 ~l0013 | |
| loadb #2c74 local5 -> sp | |
| storeb #2b00 local5 sp | |
| inc local5 | |
| jump l0012 | |
| l0013: jump l0005 | |
| l0014: je g80 "again" l0016 | |
| store local5 #00 | |
| l0015: jl local5 #78 ~l0016 | |
| loadb #2b00 local5 -> sp | |
| storeb #2c74 local5 sp | |
| inc local5 | |
| jump l0015 | |
| l0016: jz g82 ?~l0021 | |
| call_vs r0086 g3e #1c -> local5 | |
| jl local5 #00 ~l0017 | |
| store g82 g81 | |
| sub #00 local5 -> local5 | |
| l0017: je local5 #01 ~l0018 | |
| storew local0 #00 g31 | |
| storew local0 #01 g34 | |
| storew local0 #02 g35 | |
| rtrue | |
| l0018: jz local5 l0019 | |
| store g80 local5 | |
| dec g7e | |
| dec g81 | |
| jump l0020 | |
| l0019: store g7e g81 | |
| call_1s r0056 -> g80 | |
| l0020: jump l0022 | |
| l0021: store g82 #00 | |
| l0022: jz g80 l0023 | |
| loadb g80 #06 -> sp | |
| and sp #01 -> sp | |
| jz sp ?~l0036 | |
| l0023: store g7e g81 | |
| store g64 #00 | |
| store g5d #00 | |
| call_vs r0030 #06 #00 #00 -> local9 | |
| je local9 #2710 ~l0024 | |
| jump l0005 | |
| l0024: jz local9 l0025 | |
| storew local0 #00 #1b | |
| storew local0 #01 #01 | |
| storew local0 #02 local9 | |
| jump l0104 | |
| l0025: je g3e g1b ?~l0029 | |
| store local6 #02 | |
| l0026: jg local6 g7f l0028 | |
| call_1s r0056 -> local5 | |
| je local5 "comma," ~l0027 | |
| jump l0030 | |
| l0027: inc local6 | |
| jump l0026 | |
| l0028: call_2s r0484 g80 -> g80 | |
| jz g80 l0029 | |
| jump l0036 | |
| l0029: store g4c #0c | |
| jump l0077 | |
| l0030: sub g7e #01 -> local6 | |
| je local6 #01 ~l0031 | |
| call_vn r0241 #1007 #16 | |
| jump l0004 | |
| l0031: store g7e #01 | |
| store g5f #01 | |
| store g73 #01 | |
| call_vs r0030 g1b g3f #06 -> local9 | |
| store g73 #00 | |
| je local9 #2710 ~l0032 | |
| jump l0005 | |
| l0032: jz local9 ~l0033 | |
| call_vn r0241 #1007 #17 | |
| jump l0004 | |
| l0033: test_attr local9 #09 l0034 | |
| test_attr local9 #1f l0034 | |
| call_vn r0241 #1007 #18 local9 | |
| jump l0004 | |
| l0034: je g7e local6 l0035 | |
| call_vn r0241 #1007 #19 | |
| jump l0004 | |
| l0035: call_2n r0072 local9 | |
| add local6 #01 -> g81 | |
| store g3e local9 | |
| call_2s r0024 local9 -> g3f | |
| jump l0007 | |
| l0036: loadb g80 #06 -> sp | |
| and sp #02 -> sp | |
| div sp #02 -> g40 | |
| je g40 #01 ~l0037 | |
| je g3e g1b l0037 | |
| store g4c #0c | |
| store g40 #00 | |
| jump l0077 | |
| l0037: loadb g80 #07 -> sp | |
| sub #ff sp -> local5 | |
| loadw #00 #07 -> sp | |
| loadw sp local5 -> local1 | |
| loadb local1 #00 -> sp | |
| sub sp #01 -> local3 | |
| store g6f #ffff | |
| store g70 #ffff | |
| store g4c #01 | |
| store g4d #01 | |
| add local1 #01 -> local4 | |
| store local2 #00 | |
| l0038: jg local2 local3 ?l0077 | |
| store local5 #00 | |
| l0039: jl local5 #20 ~l0040 | |
| storew #2940 local5 #0f | |
| storew #28c0 local5 #01 | |
| storew #2900 local5 #0f | |
| inc local5 | |
| jump l0039 | |
| l0040: call_2s r0019 local4 -> local4 | |
| store g4a #00 | |
| store g55 #00 | |
| store g50 #00 | |
| store g51 #00 | |
| store g43 #00 | |
| store g44 #00 | |
| storew #27a0 #00 #00 | |
| store g63 #00 | |
| store g4b #01 | |
| add g81 #01 -> g7e | |
| store g5a #ffff | |
| store g64 #00 | |
| store local5 #00 | |
| store local10 #00 | |
| store g4e #00 | |
| l0041: loadw #2940 g4e -> sp | |
| je sp #0f ?l0051 | |
| store g74 #00 | |
| loadw #28c0 g4e -> sp | |
| je sp #02 l0042 | |
| inc local5 | |
| l0042: loadw #28c0 g4e -> sp | |
| je sp #01 ?~l0050 | |
| loadw #2900 g4e -> sp | |
| je sp #02 ~l0043 | |
| store local10 #01 | |
| l0043: loadw #2900 g4e -> sp | |
| je sp #04 #05 ?~l0050 | |
| je local5 #01 ?~l0050 | |
| inc g4e | |
| loadw #28c0 g4e -> sp | |
| je sp #02 ?~l0049 | |
| l0044: loadw #28c0 g4e -> sp | |
| je sp #02 ~l0045 | |
| inc g4e | |
| jump l0044 | |
| l0045: loadw #28c0 g4e -> sp | |
| je sp #01 ?~l0049 | |
| loadw #2900 g4e -> sp | |
| jz sp ?~l0049 | |
| l0046: jg g7e g7f ?l0049 | |
| sub g4e #01 -> sp | |
| loadw #2900 sp -> sp | |
| call_1s r0056 -> sp | |
| je sp sp ~l0048 | |
| call_vs r0030 g3f g3e #00 -> local9 | |
| je local9 #2710 ~l0047 | |
| jump l0005 | |
| l0047: jl local9 #02 l0048 | |
| store g5a local9 | |
| l0048: jump l0046 | |
| l0049: jump l0051 | |
| l0050: inc g4e | |
| jump l0041 | |
| l0051: store g6d #00 | |
| jz local10 l0052 | |
| je g54 #01 ~l0052 | |
| je g58 #0f ~l0052 | |
| store g6d #01 | |
| l0052: store g4a #00 | |
| store g55 #00 | |
| store g50 #00 | |
| store g51 #00 | |
| store g43 #00 | |
| store g44 #00 | |
| storew #27a0 #00 #00 | |
| store g4b #01 | |
| add g81 #01 -> g7e | |
| store g4e #01 | |
| l0053: storew #2840 g4e #ffff | |
| store g74 #00 | |
| sub g4e #01 -> sp | |
| loadw #2940 sp -> local8 | |
| loadw #2940 g4e -> g5f | |
| je local8 #0f ?l0056 | |
| store g73 #00 | |
| sub g4e #01 -> sp | |
| call_vs r0029 local0 sp -> local9 | |
| store g73 #00 | |
| je local9 #2710 ~l0054 | |
| jump l0005 | |
| l0054: jz local9 ~l0055 | |
| jump l0073 | |
| l0055: jump l0072 | |
| l0056: jg g7e g7f ?l0061 | |
| call_1s r0056 -> local9 | |
| je local9 "then" "then" "then" l0057 | |
| je local9 "comma," ~l0058 | |
| l0057: store g85 #01 | |
| sub g7e #01 -> g86 | |
| jump l0061 | |
| l0058: store local10 #00 | |
| l0059: jl local10 #20 ~l0060 | |
| loadw #2840 local10 -> sp | |
| storew #2880 local10 sp | |
| inc local10 | |
| jump l0059 | |
| l0060: store g4f g4e | |
| store g4b #02 | |
| jump l0073 | |
| l0061: jl g50 #01 l0062 | |
| loadw local0 #02 -> sp | |
| jz sp ~l0062 | |
| loadw local0 #03 -> sp | |
| call_2s r0032 sp -> local9 | |
| jz local9 l0062 | |
| store g4b local9 | |
| jump l0073 | |
| l0062: jl g50 #02 l0063 | |
| loadw local0 #03 -> sp | |
| jz sp ~l0063 | |
| loadw local0 #02 -> sp | |
| call_2s r0032 sp -> local9 | |
| jz local9 l0063 | |
| store g4b local9 | |
| jump l0073 | |
| l0063: je g6d #02 ~l0064 | |
| loadw local0 #02 -> sp | |
| je sp g3e ~l0064 | |
| store g4c #11 | |
| jump l0077 | |
| l0064: store g83 #00 | |
| jz g55 l0065 | |
| print "(" | |
| call_2n r0036 g55 | |
| print ")^" | |
| l0065: storew local0 #00 g58 | |
| storew local0 #01 g50 | |
| jz g59 ?l0066 | |
| je g50 #02 ?~l0066 | |
| loadw local0 #02 -> local5 | |
| loadw local0 #03 -> sp | |
| storew local0 #02 sp | |
| storew local0 #03 local5 | |
| je g51 #02 ~l0066 | |
| store local5 g52 | |
| store g52 g53 | |
| store g53 local5 | |
| l0066: jg g50 #00 ~l0067 | |
| loadw local0 #02 -> sp | |
| jl sp #02 l0067 | |
| loadw local0 #02 -> sp | |
| call_2n r0072 sp | |
| l0067: jz g4a ?l0070 | |
| je g3e g1b ?~l0070 | |
| store g48 #01 | |
| store local5 #00 | |
| l0068: jl local5 #08 ~l0069 | |
| loadw local0 local5 -> sp | |
| storew #2820 local5 sp | |
| inc local5 | |
| jump l0068 | |
| l0069: storew local0 #00 #0f | |
| storew local0 #01 #01 | |
| storew local0 #02 g4a | |
| call_vn r0241 #1007 #1a g4a | |
| l0070: je g85 #01 ~l0071 | |
| store g7e g86 | |
| jump l0104 | |
| l0071: rtrue | |
| l0072: inc g4e | |
| jump l0053 | |
| l0073: jg g4b g4c ~l0074 | |
| store g4c g4b | |
| l0074: je g4b #12 l0075 | |
| jg g4b g4d ~l0075 | |
| store g4d g4b | |
| l0075: je g6d #02 ~l0076 | |
| je g4b #11 ~l0076 | |
| jump l0077 | |
| l0076: inc local2 | |
| jump l0038 | |
| l0077: store g4b g4c | |
| je g3e g1b ?l0080 | |
| jg g82 #00 ~l0078 | |
| store g81 g82 | |
| jump l0006 | |
| l0078: store g7e g81 | |
| call_1s r0056 -> g43 | |
| je g43 "comma," ~l0079 | |
| call_1s r0056 -> g43 | |
| inc g81 | |
| l0079: call_2s r0060 g81 -> g44 | |
| storew local0 #00 #1009 | |
| storew local0 #01 #02 | |
| storew local0 #02 #01 | |
| store g52 g43 | |
| storew local0 #03 g3e | |
| store g46 g81 | |
| sub g7f g46 -> sp | |
| add sp #01 -> g47 | |
| rtrue | |
| l0080: call_2s r0486 g4b -> sp | |
| jz sp l0081 | |
| jump l0004 | |
| l0081: store g6f g71 | |
| store g70 g72 | |
| je g4b #01 ~l0082 | |
| call_vn r0241 #1007 #1b | |
| store g83 #01 | |
| l0082: je g4b #02 ?~l0085 | |
| call_vn r0241 #1007 #1c | |
| store local10 #00 | |
| l0083: jl local10 #20 ~l0084 | |
| loadw #2880 local10 -> sp | |
| storew #2840 local10 sp | |
| inc local10 | |
| jump l0083 | |
| l0084: store g4e g4f | |
| call_2n r0036 #00 | |
| print ".^" | |
| l0085: je g4b #03 ~l0086 | |
| call_vn r0241 #1007 #1d | |
| l0086: je g4b #04 ~l0087 | |
| call_vn r0241 #1007 #1e | |
| store g83 g84 | |
| l0087: je g4b #05 ~l0088 | |
| call_vn r0241 #1007 #1f | |
| l0088: je g4b #06 ~l0089 | |
| call_vn r0241 #1007 #20 | |
| store g83 g84 | |
| l0089: je g4b #07 ~l0090 | |
| call_vn r0241 #1007 #21 | |
| l0090: je g4b #08 ~l0091 | |
| call_vn r0241 #1007 #22 | |
| l0091: je g4b #09 ~l0092 | |
| call_vn r0241 #1007 #23 | |
| l0092: je g4b #0a ~l0093 | |
| call_vn r0241 #1007 #24 | |
| l0093: je g4b #0b ~l0094 | |
| call_vn r0241 #1007 #25 | |
| l0094: je g4b #0c ~l0095 | |
| call_vn r0241 #1007 #26 | |
| l0095: je g4b #0d ~l0096 | |
| call_vn r0241 #1007 #27 | |
| l0096: je g4b #0e ~l0098 | |
| je g70 #ffff ~l0097 | |
| call_vn r0241 #1007 #23 | |
| jump l0098 | |
| l0097: call_vn r0241 #1007 #28 | |
| l0098: je g4b #0f ~l0099 | |
| call_vn r0241 #1007 #29 | |
| l0099: je g4b #10 ~l0100 | |
| call_vn r0241 #1007 #2a g62 | |
| l0100: je g4b #11 ~l0102 | |
| je g61 #64 ~l0101 | |
| call_vn r0241 #1007 #2b | |
| jump l0102 | |
| l0101: call_vn r0241 #1007 #2c | |
| l0102: je g4b #12 ~l0103 | |
| store g76 #03 | |
| call_1s g75 -> sp | |
| je sp #ffff ~l0103 | |
| store g4c g4d | |
| jump l0077 | |
| l0103: jump l0004 | |
| l0104: jg g7e g7f rtrue | |
| call_1s r0056 -> local5 | |
| je local5 "then" "then" "then" l0105 | |
| je local5 "comma," ?~l0112 | |
| l0105: jg g7e g7f ~l0106 | |
| store g85 #00 | |
| rtrue | |
| l0106: call_2s r0058 g81 -> local5 | |
| call_2s r0058 g7e -> local6 | |
| l0107: jl local5 local6 ~l0108 | |
| storeb local5 #00 #20 | |
| inc local5 | |
| jump l0107 | |
| l0108: call_1s r0056 -> local5 | |
| je local5 "again" "g" "again" ?~l0111 | |
| sub g7e #02 -> sp | |
| call_2s r0058 sp -> sp | |
| sub sp #2b00 -> local5 | |
| jg g7e g7f ~l0109 | |
| store local6 #77 | |
| jump l0110 | |
| l0109: call_2s r0058 g7e -> sp | |
| sub sp #2b00 -> local6 | |
| l0110: jl local5 local6 ~l0111 | |
| storeb #2c74 local5 #20 | |
| inc local5 | |
| jump l0110 | |
| l0111: call_vn r0020 #2b00 #2b79 | |
| store g85 #01 | |
| rtrue | |
| l0112: store g4c #02 | |
| jump l0077 | |
| Routine r0024, 2 locals | |
| get_parent local0 -> local1 | |
| l0001: get_parent local1 -> sp | |
| jz sp l0003 | |
| test_attr local1 #20 l0002 | |
| test_attr local1 #1d l0002 | |
| test_attr local1 #0d ~l0003 | |
| test_attr local1 #17 ~l0003 | |
| l0002: get_parent local1 -> local1 | |
| jump l0001 | |
| l0003: je local0 g1b ~l0004 | |
| je g09 #13 ~l0004 | |
| ret #13 | |
| l0004: ret local1 | |
| Routine r0025, 0 locals | |
| store g64 #00 | |
| store g65 #00 | |
| store g66 #00 | |
| store g67 #00 | |
| store g6a #00 | |
| store g68 #00 | |
| store g69 #0fff | |
| store g6b #00 | |
| rtrue | |
| Routine r0026, 7 locals | |
| call_1n r0025 | |
| jg g7e g7f ~l0001 | |
| rfalse | |
| l0001: store local3 #01 | |
| l0002: jz local3 ?l0019 | |
| call_1s r0057 -> local1 | |
| store local3 #00 | |
| store local2 #01 | |
| jump l0004 | |
| l0003: add local2 #04 -> local2 | |
| l0004: loadw #2d5f #00 -> sp | |
| jg local2 sp ?l0011 | |
| loadw #2d5f local2 -> sp | |
| je local1 sp ?~l0010 | |
| store local3 #01 | |
| add local2 #02 -> sp | |
| loadw #2d5f sp -> local5 | |
| je local5 #0101 l0005 | |
| store g64 #01 | |
| l0005: store g6a #01 | |
| add local2 #01 -> sp | |
| loadw #2d5f sp -> sp | |
| and g69 sp -> g69 | |
| je local5 #0100 ?~l0008 | |
| add local2 #03 -> sp | |
| loadw #2d5f sp -> local4 | |
| store gef local4 | |
| je gef #00 ~l0006 | |
| or g65 #02 -> g65 | |
| jump l0008 | |
| l0006: je gef #01 ~l0007 | |
| or g65 #04 -> g65 | |
| jump l0008 | |
| l0007: call_2s r0069 local4 -> g68 | |
| je g68 #ffff ~l0008 | |
| store g68 #15 | |
| l0008: je local5 #12 ~l0009 | |
| or g65 #10 -> g65 | |
| l0009: je local5 #ffee ~l0010 | |
| or g65 #20 -> g65 | |
| l0010: jump l0003 | |
| l0011: je local1 "another" "other" "other" ~l0012 | |
| store g64 #01 | |
| store local3 #01 | |
| or g65 #01 -> g65 | |
| l0012: je local1 "all" "each" "every" l0013 | |
| je local1 "everythin" "both" ~l0015 | |
| l0013: store g64 #01 | |
| store local3 #01 | |
| store g66 #64 | |
| je g6d #01 ~l0014 | |
| store g6d #02 | |
| l0014: or g65 #08 -> g65 | |
| l0015: jz g6c ?l0017 | |
| jz local0 ?l0017 | |
| call_2s r0109 local1 -> local6 | |
| je local6 #01 ~l0016 | |
| store g64 #01 | |
| store local3 #01 | |
| l0016: jg local6 #01 ~l0017 | |
| store g67 #01 | |
| store g64 #01 | |
| store local3 #01 | |
| store g66 local6 | |
| sub g7e #01 -> g6b | |
| or g65 #08 -> g65 | |
| l0017: je local3 #01 ~l0018 | |
| call_1s r0057 -> sp | |
| pull gef | |
| je gef "of" "of" "of" l0018 | |
| je gef "of" l0018 | |
| dec g7e | |
| l0018: jump l0002 | |
| l0019: dec g7e | |
| jg g66 #00 ~l0020 | |
| jz local0 ~l0020 | |
| ret #07 | |
| l0020: rfalse | |
| Routine r0027, 1 local | |
| test_attr local0 #09 rtrue | |
| test_attr local0 #1f ~rfalse | |
| je g58 #53 #52 #51 rtrue | |
| je g58 #5a rtrue | |
| rfalse | |
| Routine r0028, 2 locals | |
| loadw #2900 local1 -> sp | |
| je sp local0 ~l0001 | |
| ret local0 | |
| l0001: loadw #2940 local1 -> sp | |
| loadb sp #00 -> sp | |
| and sp #20 -> sp | |
| jz sp ~l0002 | |
| ret #ffff | |
| l0002: loadw #2900 local1 -> sp | |
| je sp local0 ~l0003 | |
| ret local0 | |
| l0003: inc local1 | |
| loadw #2940 local1 -> sp | |
| je sp #0f l0004 | |
| loadw #2940 local1 -> sp | |
| loadb sp #00 -> sp | |
| and sp #10 -> sp | |
| jz sp ?~l0002 | |
| l0004: ret #ffff | |
| Routine r0029, 13 locals | |
| loadw #2940 local1 -> local2 | |
| call_2n r0018 local2 | |
| store g5d #00 | |
| store g3d #01 | |
| store gef g5b | |
| je gef #01 ?~l0020 | |
| store gef g5c | |
| je gef #07 ?~l0004 | |
| call_2s r0060 g7e -> local3 | |
| call_1s r0056 -> g43 | |
| je local3 #fc18 ~l0001 | |
| store local3 g43 | |
| l0001: store g44 local3 | |
| jz g51 ~l0002 | |
| store g52 local3 | |
| jump l0003 | |
| l0002: store g53 local3 | |
| l0003: inc g51 | |
| store local9 #01 | |
| jump l0077 | |
| l0004: je gef #08 ?~l0008 | |
| push g7e | |
| inc g7e | |
| call_2s r0060 sp -> local3 | |
| je local3 #fc18 ~l0005 | |
| store g4b #03 | |
| rfalse | |
| l0005: push g51 | |
| inc g51 | |
| jz sp ~l0006 | |
| store g52 local3 | |
| jump l0007 | |
| l0006: store g53 local3 | |
| l0007: store local9 #01 | |
| jump l0077 | |
| l0008: je gef #06 ~l0011 | |
| je g58 #52 #53 #5a l0009 | |
| je g58 #51 ~l0010 | |
| l0009: store g73 #01 | |
| l0010: jump l0019 | |
| l0011: je gef #09 ?~l0019 | |
| store g46 g7e | |
| add local1 #01 -> sp | |
| loadw #28c0 sp -> sp | |
| je sp #02 l0012 | |
| add local1 #01 -> sp | |
| loadw #2940 sp -> sp | |
| je sp #0f l0012 | |
| call_2n r0114 #0d | |
| l0012: call_1s r0057 -> local4 | |
| je local4 #ffff l0013 | |
| add local1 #01 -> sp | |
| call_vs r0028 local4 sp -> sp | |
| je sp #ffff ?l0012 | |
| l0013: dec g7e | |
| sub g7e g46 -> g47 | |
| jz g47 ~l0014 | |
| rtrue | |
| l0014: je g58 #53 #52 #51 ?~l0018 | |
| store local4 g7e | |
| store g7e g46 | |
| call_1s r0056 -> g45 | |
| je g45 "the" ~l0015 | |
| jg g47 #01 ~l0015 | |
| call_1s r0056 -> g45 | |
| l0015: store g7e local4 | |
| push g51 | |
| inc g51 | |
| jz sp ~l0016 | |
| store g52 g45 | |
| jump l0017 | |
| l0016: store g53 g45 | |
| l0017: store local9 #01 | |
| jump l0077 | |
| l0018: rtrue | |
| l0019: jump l0039 | |
| l0020: je gef #02 ?~l0027 | |
| loadb local2 #00 -> sp | |
| and sp #10 -> sp | |
| jz sp l0021 | |
| rtrue | |
| l0021: jg g7e g7f ?~l0024 | |
| jz g55 ~l0022 | |
| jl g50 g54 ~l0022 | |
| store g55 g4e | |
| store g56 local2 | |
| call_2s r0063 g5c -> sp | |
| add #2710 sp -> sp | |
| storew #2840 g4e sp | |
| l0022: jz g55 ~l0023 | |
| rfalse | |
| l0023: call_2s r0063 g5c -> sp | |
| add #2710 sp -> sp | |
| storew #2840 g4e sp | |
| rtrue | |
| l0024: call_1s r0056 -> local4 | |
| call_2s r0063 local4 -> sp | |
| add #2710 sp -> sp | |
| storew #2840 g4e sp | |
| je local4 g5c ~l0025 | |
| rtrue | |
| l0025: call_vs r0028 local4 local1 -> sp | |
| je sp #ffff l0026 | |
| rtrue | |
| l0026: rfalse | |
| l0027: je gef #06 ?~l0034 | |
| call_1s g5c -> local3 | |
| jl local3 #ff38 ~l0028 | |
| add local3 #0100 -> g5c | |
| jump l0039 | |
| l0028: jl local3 #00 rfalse | |
| jz local3 ~l0029 | |
| dec g54 | |
| rtrue | |
| l0029: je local3 #01 ~l0032 | |
| jz g51 ~l0030 | |
| store g52 g45 | |
| jump l0031 | |
| l0030: store g53 g45 | |
| l0031: inc g51 | |
| l0032: je local3 #2710 ~l0033 | |
| ret local3 | |
| l0033: store local9 local3 | |
| jump l0077 | |
| l0034: je gef #05 ~l0037 | |
| store g74 g5c | |
| store g76 #01 | |
| call_1s g74 -> local3 | |
| je local3 #01 ~l0035 | |
| store g5c #02 | |
| jump l0036 | |
| l0035: store g5c #00 | |
| l0036: jump l0039 | |
| l0037: je gef #04 ~l0038 | |
| add #01 g5c -> g5d | |
| store g5c #00 | |
| jump l0039 | |
| l0038: je gef #03 ~l0039 | |
| store g5d g5c | |
| store g5c #00 | |
| l0039: store local2 g5c | |
| store local12 #00 | |
| je local2 #02 #03 #04 l0040 | |
| je local2 #05 ~l0041 | |
| l0040: store local12 #01 | |
| l0041: store local11 #00 | |
| store local8 #01 | |
| store g57 #00 | |
| l0042: call_1s r0056 -> local4 | |
| dec g7e | |
| store g6f #ffff | |
| store g70 #ffff | |
| call_2s r0069 local4 -> local3 | |
| jz local3 ?l0047 | |
| store g6f local4 | |
| store g70 local3 | |
| je local3 #ffff ?~l0047 | |
| store local3 #01 | |
| jump l0044 | |
| l0043: add local3 #04 -> local3 | |
| l0044: jg local3 #2d5f l0046 | |
| loadw #2d5f local3 -> sp | |
| je local4 sp ~l0045 | |
| jump l0047 | |
| l0045: jump l0043 | |
| l0046: store g71 g6f | |
| store g72 g70 | |
| store g4b #09 | |
| rfalse | |
| l0047: je local4 "me" "myself" "self" ~l0048 | |
| store g6f local4 | |
| store g70 g1b | |
| l0048: store g6c #01 | |
| store local10 g7e | |
| l0049: call_2s r0026 local12 -> local3 | |
| jz local3 l0050 | |
| store g4b local3 | |
| rfalse | |
| l0050: store g83 g7e | |
| je local2 #01 ?l0065 | |
| loadw #27a0 #00 -> local5 | |
| call_vs r0030 g3f g3e local2 -> local3 | |
| je local3 #2710 ~l0051 | |
| ret local3 | |
| l0051: jz local3 ~l0053 | |
| jz g6a l0052 | |
| call_1n r0025 | |
| store g7e local10 | |
| jump l0050 | |
| l0052: call_1s r0037 -> g4b | |
| jump l0080 | |
| l0053: je local3 #01 ?~l0059 | |
| jz local11 ~l0054 | |
| store local11 #01 | |
| jump l0058 | |
| l0054: loadw #27a0 #00 -> local7 | |
| storew #27a0 #00 local5 | |
| add local5 #01 -> local6 | |
| l0055: jg local6 local7 ?l0058 | |
| jz local8 l0056 | |
| loadw #27a0 local6 -> sp | |
| call_2n r0038 sp | |
| jump l0057 | |
| l0056: loadw #27a0 local6 -> sp | |
| call_2n r0039 sp | |
| l0057: inc local6 | |
| jump l0055 | |
| l0058: jump l0064 | |
| l0059: jz g7c ~l0060 | |
| jz g6a l0060 | |
| call_1n r0025 | |
| store g7e local10 | |
| jump l0050 | |
| l0060: je local2 #06 ~l0061 | |
| call_2s r0027 local3 -> sp | |
| jz sp ~l0061 | |
| store g4b #0b | |
| jump l0080 | |
| l0061: jz local11 ~l0062 | |
| store local9 local3 | |
| jump l0064 | |
| l0062: jz local8 l0063 | |
| call_2n r0038 local3 | |
| jump l0064 | |
| l0063: call_2n r0039 local3 | |
| l0064: jump l0071 | |
| l0065: call_vs r0030 g3e g3f local2 -> local3 | |
| je local3 #2710 ~l0066 | |
| ret local3 | |
| l0066: jz local3 ~l0068 | |
| jz g6a l0067 | |
| call_1n r0025 | |
| store g7e local10 | |
| jump l0050 | |
| l0067: call_1s r0037 -> g4b | |
| ret local3 | |
| l0068: get_parent local3 -> local4 | |
| je local4 g3e l0070 | |
| je g48 #01 ~l0069 | |
| store g84 g83 | |
| store g4b #06 | |
| jump l0080 | |
| l0069: store g4a local3 | |
| l0070: store local9 local3 | |
| l0071: add g83 g7c -> g7e | |
| call_1s r0056 -> local4 | |
| je local4 "and" "and" "and" l0072 | |
| je local4 "but" "except" "but" l0072 | |
| je local4 "comma," ?~l0076 | |
| l0072: jz local12 ~l0073 | |
| store g4b #07 | |
| jump l0080 | |
| l0073: je local4 "but" "except" "but" ~l0074 | |
| sub #01 local8 -> local8 | |
| l0074: jz local11 ~l0075 | |
| storew #27a0 #00 #01 | |
| storew #27a0 #01 local9 | |
| store local11 #01 | |
| l0075: store g57 #01 | |
| store g55 #00 | |
| jump l0042 | |
| l0076: dec g7e | |
| l0077: jz local11 l0078 | |
| store local9 #00 | |
| store g63 local2 | |
| jump l0079 | |
| l0078: je g64 #01 ?~l0079 | |
| and g65 #08 -> sp | |
| jz sp l0079 | |
| jl g66 #64 ~l0079 | |
| jg g66 #01 ~l0079 | |
| store g62 #01 | |
| store g61 g66 | |
| store g4b #10 | |
| jump l0080 | |
| l0079: add g50 #02 -> sp | |
| storew local0 sp local9 | |
| inc g50 | |
| storew #2840 g4e local9 | |
| rtrue | |
| l0080: jz g6c l0081 | |
| je g67 #01 ~l0081 | |
| store g6c #00 | |
| store g7e local10 | |
| jump l0049 | |
| l0081: rfalse | |
| Routine r0030, 10 locals | |
| store g7c #00 | |
| store g7a #00 | |
| store g7d g7e | |
| store g79 #00 | |
| call_vn r0043 local0 local1 local2 | |
| add g7d g7c -> g7e | |
| jz g7a ~l0001 | |
| inc g7e | |
| rfalse | |
| l0001: jg g7d g7f ?l0003 | |
| je g7a #01 ~l0002 | |
| loadw #2980 #00 -> local4 | |
| ret local4 | |
| l0002: jg g7e g7f ?l0003 | |
| call_1s r0056 -> local4 | |
| dec g7e | |
| je local4 "and" "and" "and" ?l0003 | |
| je local4 "comma," "then" "then" l0003 | |
| je local4 "then" "but" "except" l0003 | |
| je local4 "but" l0003 | |
| je g5f #0f rfalse | |
| l0003: store g7b #00 | |
| je g7a #01 ~l0004 | |
| loadw #2980 #00 -> local4 | |
| l0004: jg g7a #01 ~l0005 | |
| call_2s r0031 local2 -> local4 | |
| je local4 #ffff rfalse | |
| je local4 #01 rtrue | |
| l0005: jz local4 l0008 | |
| jz g57 l0006 | |
| ret local4 | |
| l0006: jz g55 ~l0007 | |
| store g55 g4e | |
| l0007: storew #2840 g4e local4 | |
| ret local4 | |
| l0008: jg g7d g7f ~l0009 | |
| jump l0035 | |
| l0009: je local2 #06 ~l0010 | |
| call_vn r0241 #1007 #2d | |
| jump l0011 | |
| l0010: call_vn r0241 #1007 #2e | |
| l0011: store local5 g7b | |
| store local9 #00 | |
| store local4 #01 | |
| l0012: jg local4 g7b ?l0019 | |
| l0013: loadw #2a00 local9 -> sp | |
| je sp local4 l0014 | |
| sub #00 local4 -> sp | |
| loadw #2a00 local9 -> sp | |
| je sp sp l0014 | |
| inc local9 | |
| jump l0013 | |
| l0014: loadw #2980 local9 -> local6 | |
| loadw #2a00 local9 -> sp | |
| jg sp #00 ~l0015 | |
| call_2n r0105 local6 | |
| jump l0016 | |
| l0015: call_2n r0104 local6 | |
| l0016: sub local5 #01 -> sp | |
| jl local4 sp ~l0017 | |
| print ", " | |
| l0017: sub local5 #01 -> sp | |
| je local4 sp ~l0018 | |
| print_paddr s033 | |
| l0018: inc local4 | |
| jump l0012 | |
| l0019: print "?^" | |
| l0020: store local4 #02 | |
| l0021: jl local4 #78 ~l0022 | |
| storeb #2bba local4 #20 | |
| inc local4 | |
| jump l0021 | |
| l0022: call_vs r0022 #2bba #2c33 -> local8 | |
| loadw #2c33 #01 -> local3 | |
| je local3 "all" "each" "every" l0023 | |
| je local3 "everythin" "both" ?~l0028 | |
| l0023: je local2 #02 #03 #04 l0024 | |
| je local2 #05 ?~l0027 | |
| l0024: loadw #27a0 #00 -> local7 | |
| store local4 #00 | |
| l0025: jl local4 g7a ?~l0026 | |
| add local7 local4 -> sp | |
| jl sp #3f ~l0026 | |
| loadw #2980 local4 -> local6 | |
| add local4 #01 -> sp | |
| add sp local7 -> sp | |
| storew #27a0 sp local6 | |
| inc local4 | |
| jump l0025 | |
| l0026: add local4 local7 -> sp | |
| storew #27a0 #00 sp | |
| rtrue | |
| l0027: call_vn r0241 #1007 #2f | |
| jump l0020 | |
| l0028: jz local3 ?l0029 | |
| loadb local3 #06 -> local5 | |
| and local5 #01 -> sp | |
| je #00 sp ?l0029 | |
| je local3 "long" "short" "normal" l0029 | |
| je local3 "brief" "full" "verbose" l0029 | |
| call_vn r0065 #2b00 #2bba | |
| ret #2710 | |
| l0029: call_2s r0058 g7d -> sp | |
| sub sp #2b00 -> local6 | |
| loadb #2bba #01 -> sp | |
| add sp #01 -> local7 | |
| loadb #2b00 #00 -> sp | |
| add #2b00 sp -> sp | |
| sub sp #01 -> local5 | |
| l0030: add #2b00 local6 -> sp | |
| add sp local7 -> sp | |
| jl local5 sp l0031 | |
| sub local5 local7 -> sp | |
| loadb #00 sp -> sp | |
| storeb local5 #00 sp | |
| dec local5 | |
| jump l0030 | |
| l0031: store local4 #00 | |
| l0032: jl local4 local7 ~l0033 | |
| add #02 local4 -> sp | |
| loadb #2bba sp -> sp | |
| add local6 local4 -> sp | |
| storeb #2b00 sp sp | |
| inc local4 | |
| jump l0032 | |
| l0033: add local6 local7 -> sp | |
| sub sp #01 -> sp | |
| storeb #2b00 sp #20 | |
| loadb #2b00 #01 -> sp | |
| add sp local7 -> sp | |
| storeb #2b00 #01 sp | |
| loadb #2b00 #00 -> sp | |
| sub sp #01 -> sp | |
| loadb #2b00 #01 -> sp | |
| jl sp sp l0034 | |
| loadb #2b00 #00 -> sp | |
| storeb #2b00 #01 sp | |
| l0034: ret #2710 | |
| l0035: je local2 #06 ~l0036 | |
| call_vn r0241 #1007 #30 | |
| jump l0037 | |
| l0036: call_vn r0241 #1007 #31 | |
| l0037: store local4 #02 | |
| l0038: jl local4 #78 ~l0039 | |
| storeb #2bba local4 #20 | |
| inc local4 | |
| jump l0038 | |
| l0039: call_vs r0022 #2bba #2c33 -> local8 | |
| loadw #2c33 #01 -> local3 | |
| jz local3 l0040 | |
| loadb local3 #06 -> local5 | |
| and local5 #01 -> sp | |
| je #00 sp l0040 | |
| call_vn r0065 #2b00 #2bba | |
| ret #2710 | |
| l0040: jz g55 ?l0054 | |
| store local5 g55 | |
| l0041: jl local5 g4e ?~l0054 | |
| loadw #2840 local5 -> sp | |
| je sp #ffff ~l0042 | |
| jump l0053 | |
| l0042: loadb #2b00 #01 -> sp | |
| add #02 sp -> local4 | |
| store gef #2b00 | |
| store gee #01 | |
| loadb gef gee -> ged | |
| inc ged | |
| storeb gef gee ged | |
| push local4 | |
| inc local4 | |
| storeb #2b00 sp #20 | |
| jl g39 #05 l0043 | |
| print_paddr s105 | |
| loadw #2840 local5 -> sp | |
| print_num sp | |
| print "]^" | |
| l0043: storew #2c33 #01 #00 | |
| loadw #2840 local5 -> sp | |
| jl sp #02 ?l0049 | |
| loadw #2840 local5 -> sp | |
| jl sp #2710 ?~l0049 | |
| loadw #2840 local5 -> sp | |
| call_2n r0072 sp | |
| store local6 #01 | |
| jump l0045 | |
| l0044: add local6 #03 -> local6 | |
| l0045: loadw #2d45 #00 -> sp | |
| jg local6 sp ?l0048 | |
| add local6 #02 -> sp | |
| loadw #2d45 sp -> sp | |
| loadw #2840 local5 -> sp | |
| je sp sp ?~l0047 | |
| loadw #2d45 local6 -> sp | |
| storew #2c33 #01 sp | |
| jl g39 #05 ?l0046 | |
| print "[Using pronoun '" | |
| loadw #2c33 #01 -> sp | |
| print_addr sp | |
| print "']^" | |
| l0046: jump l0048 | |
| l0047: jump l0044 | |
| l0048: jump l0050 | |
| l0049: loadw #2840 local5 -> sp | |
| sub sp #2710 -> sp | |
| call_2s r0064 sp -> sp | |
| storew #2c33 #01 sp | |
| jl g39 #05 ?l0050 | |
| print "[Using preposition '" | |
| loadw #2c33 #01 -> sp | |
| print_addr sp | |
| print "']^" | |
| l0050: loadw #2c33 #01 -> sp | |
| jz sp ?l0053 | |
| add #2b00 local4 -> local6 | |
| output_stream redirect_enable local6 | |
| loadw #2c33 #01 -> sp | |
| print_addr sp | |
| output_stream #fffd | |
| loadw local6 #00 -> local6 | |
| store local7 local4 | |
| l0051: add local4 local6 -> sp | |
| jl local7 sp ~l0052 | |
| add local7 #02 -> sp | |
| loadb #2b00 sp -> sp | |
| storeb #2b00 local7 sp | |
| inc local7 | |
| jump l0051 | |
| l0052: add local4 local6 -> local4 | |
| sub local4 #02 -> sp | |
| storeb #2b00 #01 sp | |
| l0053: inc local5 | |
| jump l0041 | |
| l0054: loadb #2b00 #01 -> sp | |
| add #02 sp -> local4 | |
| store gef #2b00 | |
| store gee #01 | |
| loadb gef gee -> ged | |
| inc ged | |
| storeb gef gee ged | |
| push local4 | |
| inc local4 | |
| storeb #2b00 sp #20 | |
| store local5 #00 | |
| jump l0056 | |
| l0055: inc local4 | |
| inc local5 | |
| l0056: loadb #2bba #01 -> sp | |
| jl local5 sp ?~l0058 | |
| add local5 #02 -> sp | |
| loadb #2bba sp -> sp | |
| storeb #2b00 local4 sp | |
| store gef #2b00 | |
| store gee #01 | |
| loadb gef gee -> ged | |
| inc ged | |
| storeb gef gee ged | |
| loadb #2b00 #01 -> sp | |
| je sp #78 ~l0057 | |
| jump l0058 | |
| l0057: jump l0055 | |
| l0058: jl local4 #78 ~l0059 | |
| storeb #2b00 local4 #20 | |
| inc local4 | |
| jump l0058 | |
| l0059: ret #2710 | |
| Routine r0031, 10 locals | |
| sub g7a #01 -> local2 | |
| store local4 #00 | |
| loadw #2980 #00 -> local5 | |
| store local1 #00 | |
| l0001: jg local1 local2 ?l0012 | |
| loadw #2980 local1 -> local6 | |
| storew #2a80 local1 local4 | |
| store local7 local6 | |
| l0002: get_parent local7 -> local7 | |
| je local7 g3f g3e #00 ?~l0002 | |
| je local0 #01 ~l0003 | |
| get_parent local6 -> sp | |
| je sp g3e ~l0003 | |
| inc local4 | |
| store local5 local6 | |
| l0003: je local0 #02 ~l0004 | |
| je local7 g3f ~l0004 | |
| je local6 g3e l0004 | |
| test_attr local6 #0c l0004 | |
| test_attr local6 #1a l0004 | |
| inc local4 | |
| store local5 local6 | |
| l0004: je local0 #03 ~l0005 | |
| get_parent local6 -> sp | |
| je sp g3e ~l0005 | |
| inc local4 | |
| store local5 local6 | |
| l0005: je local0 #04 #05 ?~l0010 | |
| je g5a #ffff ?~l0008 | |
| je local0 #04 ~l0006 | |
| inc local4 | |
| store local5 local6 | |
| l0006: je local0 #05 ~l0007 | |
| get_parent local6 -> sp | |
| je sp g3e l0007 | |
| inc local4 | |
| store local5 local6 | |
| l0007: jump l0010 | |
| l0008: je local0 #04 ~l0009 | |
| je local6 g5a l0009 | |
| inc local4 | |
| store local5 local6 | |
| l0009: je local0 #05 ~l0010 | |
| jin local6 g5a ~l0010 | |
| inc local4 | |
| store local5 local6 | |
| l0010: je local0 #06 ~l0011 | |
| call_2s r0027 local6 -> sp | |
| je sp #01 ~l0011 | |
| inc local4 | |
| store local5 local6 | |
| l0011: loadw #2a80 local1 -> sp | |
| sub local4 sp -> sp | |
| mul #03e8 sp -> sp | |
| storew #2a80 local1 sp | |
| inc local1 | |
| jump l0001 | |
| l0012: je local4 #01 ~l0013 | |
| ret local5 | |
| l0013: je local0 #06 ~l0014 | |
| jz local4 ~l0014 | |
| loadw #2980 #00 -> sp | |
| ret_popped | |
| l0014: jz g64 ~l0015 | |
| store g65 #00 | |
| l0015: call_1n r0033 | |
| jz g7a ~l0016 | |
| ret #ffff | |
| l0016: je g64 #01 ?~l0028 | |
| and g65 #08 -> sp | |
| jz sp ?l0028 | |
| je local0 #02 #03 #04 l0017 | |
| je local0 #05 l0017 | |
| store g4b #07 | |
| ret #ffff | |
| l0017: store local1 #00 | |
| loadw #27a0 #00 -> local9 | |
| call_1s r0034 -> local2 | |
| jump l0019 | |
| l0018: call_1s r0034 -> local2 | |
| l0019: je local2 #ffff ?l0026 | |
| jl local1 g66 ?~l0026 | |
| add local1 local9 -> sp | |
| jl sp #3f ?~l0026 | |
| store local8 #00 | |
| test_attr local2 #0c l0020 | |
| test_attr local2 #23 l0020 | |
| store local8 #01 | |
| l0020: je local0 #03 #04 ~l0021 | |
| get_parent local2 -> sp | |
| je sp g3e l0021 | |
| store local8 #00 | |
| l0021: call_vs r0488 local2 local8 -> local3 | |
| je local3 #01 ~l0022 | |
| store local8 #01 | |
| jump l0023 | |
| l0022: je local3 #02 ~l0023 | |
| store local8 #00 | |
| l0023: je local8 #01 ~l0024 | |
| inc local1 | |
| add local1 local9 -> sp | |
| storew #27a0 sp local2 | |
| jump l0025 | |
| l0024: store local1 local1 | |
| l0025: jump l0018 | |
| l0026: jl local1 g66 ~l0027 | |
| jl g66 #64 ~l0027 | |
| store g4b #10 | |
| store g61 g66 | |
| loadw #27a0 #00 -> g62 | |
| ret #ffff | |
| l0027: add local1 local9 -> sp | |
| storew #27a0 #00 sp | |
| store g63 local0 | |
| rtrue | |
| l0028: store local1 #00 | |
| l0029: jl local1 g7a ~l0030 | |
| storew #2a00 local1 #00 | |
| inc local1 | |
| jump l0029 | |
| l0030: store local6 #01 | |
| store local1 #00 | |
| l0031: jl local1 g7a ?~l0036 | |
| loadw #2a00 local1 -> sp | |
| jz sp ?~l0035 | |
| push local6 | |
| inc local6 | |
| storew #2a00 local1 sp | |
| store local8 #00 | |
| add local1 #01 -> local2 | |
| l0032: jl local2 g7a ?~l0034 | |
| loadw #2a00 local2 -> sp | |
| jz sp ?~l0033 | |
| loadw #2980 local2 -> sp | |
| loadw #2980 local1 -> sp | |
| call_vs r0035 sp sp -> sp | |
| je sp #01 ~l0033 | |
| store local8 #01 | |
| loadw #2a00 local1 -> sp | |
| storew #2a00 local2 sp | |
| l0033: inc local2 | |
| jump l0032 | |
| l0034: je local8 #01 ~l0035 | |
| sub #01 local6 -> sp | |
| storew #2a00 local1 sp | |
| l0035: inc local1 | |
| jump l0031 | |
| l0036: dec local6 | |
| store g7b local6 | |
| jg local6 #01 ?~l0042 | |
| jz g64 ?~l0042 | |
| store local2 #00 | |
| store local4 #00 | |
| store local1 #00 | |
| l0037: jl local1 g7a ?~l0040 | |
| loadw #2980 local1 -> sp | |
| call_vs r0488 sp #02 -> local3 | |
| je local3 local2 ~l0038 | |
| inc local4 | |
| l0038: jg local3 local2 ~l0039 | |
| store local2 local3 | |
| store local4 #01 | |
| loadw #2980 local1 -> local5 | |
| l0039: inc local1 | |
| jump l0037 | |
| l0040: je local4 #01 ~l0041 | |
| ret local5 | |
| l0041: rfalse | |
| l0042: je local6 #01 ~l0043 | |
| store g57 #01 | |
| l0043: call_1s r0034 -> sp | |
| ret_popped | |
| Routine r0032, 3 locals | |
| je g63 #04 #05 ?~l0006 | |
| store local1 #01 | |
| store local2 #00 | |
| l0001: loadw #27a0 #00 -> sp | |
| jg local1 sp ?l0005 | |
| je g63 #04 ~l0002 | |
| loadw #27a0 local1 -> sp | |
| je sp local0 ~l0003 | |
| l0002: je g63 #05 ~l0004 | |
| loadw #27a0 local1 -> sp | |
| jin sp local0 ~l0004 | |
| l0003: inc local2 | |
| loadw #27a0 local1 -> sp | |
| storew #27a0 local2 sp | |
| l0004: inc local1 | |
| jump l0001 | |
| l0005: storew #27a0 #00 local2 | |
| l0006: je g63 #02 ?~l0014 | |
| je g58 #0f ?~l0014 | |
| store local1 #01 | |
| store local2 #00 | |
| l0007: loadw #27a0 #00 -> sp | |
| jg local1 sp l0009 | |
| get_parent g3e -> sp | |
| loadw #27a0 local1 -> sp | |
| get_parent sp -> sp | |
| je sp sp ~l0008 | |
| inc local2 | |
| l0008: inc local1 | |
| jump l0007 | |
| l0009: je g6d #02 l0010 | |
| jg local2 #00 ?~l0014 | |
| l0010: store local1 #01 | |
| store local2 #00 | |
| l0011: loadw #27a0 #00 -> sp | |
| jg local1 sp ?l0013 | |
| get_parent g3e -> sp | |
| loadw #27a0 local1 -> sp | |
| get_parent sp -> sp | |
| je sp sp ~l0012 | |
| inc local2 | |
| loadw #27a0 local1 -> sp | |
| storew #27a0 local2 sp | |
| l0012: inc local1 | |
| jump l0011 | |
| l0013: storew #27a0 #00 local2 | |
| l0014: loadw #27a0 #00 -> local1 | |
| jz local1 ~l0015 | |
| ret #11 | |
| l0015: rfalse | |
| Routine r0033, 8 locals | |
| and g65 #02 -> sp | |
| jz sp l0001 | |
| add local5 #2d -> local5 | |
| l0001: and g65 #04 -> sp | |
| jz sp l0002 | |
| add local5 #2d -> local5 | |
| l0002: and g65 #10 -> sp | |
| jz sp l0003 | |
| add local5 #2d -> local5 | |
| l0003: and g65 #20 -> sp | |
| jz sp l0004 | |
| add local5 #2d -> local5 | |
| l0004: jz g68 l0005 | |
| add local5 #2d -> local5 | |
| l0005: store local6 #1e | |
| store local7 #14 | |
| je g58 #0f #11 ~l0006 | |
| store local6 #14 | |
| store local7 #1e | |
| l0006: store local3 #00 | |
| l0007: jl local3 g7a ?~l0020 | |
| loadw #2980 local3 -> local2 | |
| get_parent local2 -> local0 | |
| store local1 #00 | |
| and g65 #02 -> sp | |
| jz sp l0008 | |
| je local0 g3e ~l0008 | |
| add local1 #2d -> local1 | |
| l0008: and g65 #04 -> sp | |
| jz sp l0009 | |
| je local0 g3f ~l0009 | |
| add local1 #2d -> local1 | |
| l0009: and g65 #10 -> sp | |
| jz sp l0010 | |
| test_attr local2 #12 ~l0010 | |
| add local1 #2d -> local1 | |
| l0010: and g65 #20 -> sp | |
| jz sp l0011 | |
| test_attr local2 #12 l0011 | |
| add local1 #2d -> local1 | |
| l0011: jz g68 l0012 | |
| je local0 g68 ~l0012 | |
| add local1 #2d -> local1 | |
| l0012: jl local1 local5 ~l0013 | |
| storew #2980 local3 #ffff | |
| jump l0019 | |
| l0013: store local1 #00 | |
| test_attr local2 #0c l0014 | |
| store local1 #32 | |
| l0014: je local0 g3e ~l0015 | |
| add local1 local6 -> local1 | |
| jump l0017 | |
| l0015: je local0 g3f ~l0016 | |
| add local1 local7 -> local1 | |
| jump l0017 | |
| l0016: jz local1 ~l0017 | |
| je local0 #06 l0017 | |
| add local1 #0a -> local1 | |
| l0017: call_vs r0488 local2 #02 -> sp | |
| add local1 sp -> local1 | |
| mul #02 local1 -> local1 | |
| call_2s r0062 local2 -> sp | |
| loadw #2d2d sp -> sp | |
| and g69 sp -> sp | |
| jz sp l0018 | |
| inc local1 | |
| l0018: loadw #2a80 local3 -> sp | |
| add sp local1 -> sp | |
| storew #2a80 local3 sp | |
| l0019: inc local3 | |
| jump l0007 | |
| l0020: store local3 #00 | |
| l0021: jl local3 g7a ?~l0027 | |
| l0022: loadw #2980 local3 -> sp | |
| je sp #ffff ?~l0026 | |
| sub g7a #01 -> sp | |
| je local3 sp ~l0023 | |
| dec g7a | |
| jump l0026 | |
| l0023: store local4 local3 | |
| l0024: jl local4 g7a ~l0025 | |
| add local4 #01 -> sp | |
| loadw #2980 sp -> sp | |
| storew #2980 local4 sp | |
| inc local4 | |
| jump l0024 | |
| l0025: dec g7a | |
| jump l0022 | |
| l0026: inc local3 | |
| jump l0021 | |
| l0027: rtrue | |
| Routine r0034, 4 locals | |
| store local0 #00 | |
| store local2 #ffff | |
| store local3 #00 | |
| l0001: jl local3 g7a ?~l0003 | |
| loadw #2980 local3 -> sp | |
| jl sp #00 l0002 | |
| loadw #2a80 local3 -> local1 | |
| jg local1 local2 ~l0002 | |
| store local2 local1 | |
| store local0 local3 | |
| l0002: inc local3 | |
| jump l0001 | |
| l0003: jl local2 #00 ~l0004 | |
| ret #ffff | |
| l0004: loadw #2980 local0 -> local3 | |
| storew #2980 local0 #ffff | |
| ret local3 | |
| Routine r0035, 9 locals | |
| je local0 local1 rtrue | |
| jz local0 rfalse | |
| jz local1 rfalse | |
| get_parent local0 -> sp | |
| je sp #06 rfalse | |
| get_parent local1 -> sp | |
| je sp #06 rfalse | |
| get_prop local0 #30 -> sp | |
| jz sp ~l0001 | |
| get_prop local1 #30 -> sp | |
| jz sp ?l0002 | |
| l0001: get_prop local1 #30 -> sp | |
| get_prop local0 #30 -> sp | |
| je sp sp ~rfalse | |
| store g3a #1004 | |
| store g3b local0 | |
| store g3c local1 | |
| store local7 g7e | |
| call_vs r0086 local0 #30 -> local6 | |
| store g7e local7 | |
| je local6 #ffff rtrue | |
| je local6 #fffe rfalse | |
| l0002: get_prop_addr local0 #01 -> local2 | |
| get_prop_addr local0 #01 -> gef | |
| jz gef l0003 | |
| get_prop_len gef -> gef | |
| l0003: push gef | |
| div sp #02 -> local4 | |
| get_prop_addr local1 #01 -> local3 | |
| get_prop_addr local1 #01 -> gef | |
| jz gef l0004 | |
| get_prop_len gef -> gef | |
| l0004: push gef | |
| div sp #02 -> local5 | |
| store local6 #00 | |
| l0005: jl local6 local4 ?~l0009 | |
| store local8 #00 | |
| store local7 #00 | |
| l0006: jl local7 local5 ~l0008 | |
| loadw local3 local7 -> sp | |
| loadw local2 local6 -> sp | |
| je sp sp ~l0007 | |
| store local8 #01 | |
| l0007: inc local7 | |
| jump l0006 | |
| l0008: jz local8 rfalse | |
| inc local6 | |
| jump l0005 | |
| l0009: store local7 #00 | |
| l0010: jl local7 local5 ?~l0014 | |
| store local8 #00 | |
| store local6 #00 | |
| l0011: jl local6 local4 ~l0013 | |
| loadw local3 local7 -> sp | |
| loadw local2 local6 -> sp | |
| je sp sp ~l0012 | |
| store local8 #01 | |
| l0012: inc local6 | |
| jump l0011 | |
| l0013: jz local8 rfalse | |
| inc local7 | |
| jump l0010 | |
| l0014: rtrue | |
| Routine r0036, 4 locals | |
| jz local0 ?~l0002 | |
| store local1 g80 | |
| call_2s r0008 local1 -> sp | |
| jz sp ~l0001 | |
| call_2s r0485 local1 -> sp | |
| jz sp ~l0001 | |
| print_addr local1 | |
| l0001: inc local0 | |
| store local3 #01 | |
| l0002: store local2 local0 | |
| l0003: jl local2 g4e ?~l0011 | |
| loadw #2840 local2 -> local1 | |
| je local1 #ffff ~l0004 | |
| jump l0010 | |
| l0004: jz local3 l0005 | |
| print_char ' ' | |
| l0005: jz local1 ~l0006 | |
| print_paddr s031 | |
| jump l0009 | |
| l0006: je local1 #01 ~l0007 | |
| print_paddr s032 | |
| jump l0009 | |
| l0007: jl local1 #2710 l0008 | |
| sub local1 #2710 -> sp | |
| call_2s r0064 sp -> sp | |
| print_addr sp | |
| jump l0009 | |
| l0008: call_2n r0105 local1 | |
| l0009: store local3 #01 | |
| l0010: inc local2 | |
| jump l0003 | |
| l0011: rtrue | |
| Routine r0037, 3 locals | |
| store g84 g83 | |
| jz g74 l0001 | |
| store g75 g74 | |
| ret #12 | |
| l0001: dec g7e | |
| call_1s r0056 -> local1 | |
| store local2 #04 | |
| je local1 g6f ~l0002 | |
| store g71 g6f | |
| store g72 g70 | |
| store local2 #0e | |
| l0002: store local0 g3e | |
| l0003: get_parent local0 -> sp | |
| jz sp l0004 | |
| get_parent local0 -> local0 | |
| jump l0003 | |
| l0004: test_attr local0 #21 ~l0005 | |
| sub g7e #01 -> sp | |
| call_vs r0052 local0 sp -> sp | |
| je sp #01 ~l0005 | |
| store local2 #0d | |
| l0005: jg g4b local2 ~l0006 | |
| ret g4b | |
| l0006: ret local2 | |
| Routine r0038, 3 locals | |
| loadw #27a0 #00 -> local1 | |
| je local1 #3f ~l0001 | |
| store g42 #01 | |
| rtrue | |
| l0001: store local2 #01 | |
| l0002: jg local2 local1 l0003 | |
| loadw #27a0 local2 -> sp | |
| je local0 sp rtrue | |
| inc local2 | |
| jump l0002 | |
| l0003: inc local1 | |
| storew #27a0 local1 local0 | |
| storew #27a0 #00 local1 | |
| rtrue | |
| Routine r0039, 5 locals | |
| loadw #27a0 #00 -> local1 | |
| store local4 #00 | |
| store local2 #01 | |
| l0001: jg local2 local1 ?l0005 | |
| loadw #27a0 local2 -> sp | |
| je local0 sp ?~l0004 | |
| store local3 local2 | |
| l0002: jg local3 local1 l0003 | |
| add local3 #01 -> sp | |
| loadw #27a0 sp -> sp | |
| storew #27a0 local3 sp | |
| inc local3 | |
| jump l0002 | |
| l0003: dec local1 | |
| push local1 | |
| storew #27a0 #00 sp | |
| ret local4 | |
| l0004: inc local2 | |
| jump l0001 | |
| l0005: store local4 #09 | |
| ret local4 | |
| Routine r0040, 4 locals | |
| l0001: loadw #27a0 #00 -> local1 | |
| store local2 #01 | |
| l0002: jg local2 local1 l0004 | |
| loadw #27a0 local2 -> local3 | |
| test_attr local3 local0 l0003 | |
| call_2n r0039 local3 | |
| jump l0001 | |
| l0003: inc local2 | |
| jump l0002 | |
| l0004: rtrue | |
| Routine r0041, 1 local | |
| jg g5d #00 ~l0001 | |
| jl g5d #31 ~l0001 | |
| sub g5d #01 -> sp | |
| test_attr local0 sp rtrue | |
| rfalse | |
| l0001: store g34 local0 | |
| call_1s g5d -> sp | |
| ret_popped | |
| Routine r0042, 5 locals | |
| mul local0 #02 -> sp | |
| sub sp #01 -> local3 | |
| mul local2 #02 -> sp | |
| sub sp #01 -> local4 | |
| push local4 | |
| inc local4 | |
| loadw local1 sp -> sp | |
| push local3 | |
| inc local3 | |
| storew #2b79 sp sp | |
| loadw local1 local4 -> sp | |
| storew #2b79 local3 sp | |
| rtrue | |
| Routine r0043, 4 locals | |
| store local3 #00 | |
| jz g74 l0001 | |
| store g76 #02 | |
| call_1s g74 -> sp | |
| jz sp ~rtrue | |
| l0001: je g3e local0 local1 ~l0002 | |
| call_2s r0483 g3e -> sp | |
| jz sp ~rtrue | |
| l0002: je local2 #05 ~l0004 | |
| je g5a #ffff l0004 | |
| call_2s r0044 g5a -> sp | |
| je sp #01 ~l0003 | |
| call_vn r0047 g5a #00 local2 | |
| l0003: jump l0009 | |
| l0004: jz local0 l0006 | |
| test_attr local0 #1d l0005 | |
| test_attr local0 #0d ~l0006 | |
| l0005: call_vn r0048 local0 local0 local2 | |
| l0006: call_vn r0047 local0 local1 local2 | |
| jz local1 l0008 | |
| test_attr local1 #1d l0007 | |
| test_attr local1 #0d ~l0008 | |
| l0007: call_vn r0048 local1 local1 local2 | |
| l0008: call_vn r0047 local1 #00 local2 | |
| l0009: je #13 local0 local1 ?~l0011 | |
| call_vn r0048 g3e g3e local2 | |
| get_parent g3e -> sp | |
| pull gef | |
| test_attr gef #1d l0010 | |
| test_attr gef #0d ~l0011 | |
| l0010: get_parent g3e -> sp | |
| get_parent g3e -> sp | |
| call_vn r0048 sp sp local2 | |
| l0011: rtrue | |
| Routine r0044, 1 local | |
| test_attr local0 #1d rtrue | |
| test_attr local0 #20 rtrue | |
| test_attr local0 #0d ~l0001 | |
| test_attr local0 #17 rtrue | |
| l0001: rfalse | |
| Routine r0045, 1 local | |
| je g73 #00 #01 l0001 | |
| call_2n r0046 local0 | |
| rtrue | |
| l0001: store g7e g7d | |
| call_2n r0051 local0 | |
| store g79 #01 | |
| rtrue | |
| Routine r0046, 3 locals | |
| store local1 g73 | |
| store local2 g3b | |
| store gef g73 | |
| je gef #03 ~l0003 | |
| get_prop local0 #1a -> sp | |
| je sp #00 #ffff ~l0001 | |
| rtrue | |
| l0001: jz g3b ~l0002 | |
| call_vs r0086 local0 #1a -> g3b | |
| l0002: jump l0011 | |
| l0003: je gef #04 ~l0006 | |
| get_prop local0 #1b -> sp | |
| je sp #00 #ffff ~l0004 | |
| rtrue | |
| l0004: jz g3b ~l0005 | |
| call_vs r0086 local0 #1b -> g3b | |
| l0005: jump l0011 | |
| l0006: je gef #02 ~l0008 | |
| get_prop_addr local0 #2c -> sp | |
| jz sp ~l0007 | |
| rtrue | |
| l0007: call_vn r0084 local0 #2c | |
| jump l0011 | |
| l0008: je gef #06 ~l0010 | |
| je local0 g3b ~l0009 | |
| store g3c #01 | |
| l0009: jump l0011 | |
| l0010: je gef #05 ~l0011 | |
| call_2n g3b local0 | |
| store g3b local2 | |
| l0011: store g73 local1 | |
| rtrue | |
| Routine r0047, 3 locals | |
| jz local0 rtrue | |
| jz g64 ~l0001 | |
| je local0 g3f ~l0001 | |
| jz g73 ~l0001 | |
| je local2 #06 l0001 | |
| call_2n r0047 #06 | |
| l0001: get_child local0 -> sp ~l0002 | |
| l0002: pull local0 | |
| jz local0 l0004 | |
| l0003: call_vn r0048 local0 local1 local2 | |
| get_sibling local0 -> local0 ?l0003 | |
| l0004: rtrue | |
| Routine r0048, 6 locals | |
| je local2 #04 ~l0001 | |
| je local0 g5a ~l0001 | |
| jump l0006 | |
| l0001: je g73 #00 #01 l0002 | |
| call_2n r0046 local0 | |
| jump l0006 | |
| l0002: jg g7d g7f ?l0004 | |
| store g7e g7d | |
| call_1s r0055 -> local3 | |
| je local3 #01 ~l0003 | |
| je g1b local0 ~l0003 | |
| call_vn r0050 local0 #01 | |
| l0003: jl local3 #02 l0004 | |
| jl local3 #80 ~l0004 | |
| loadw #2d45 local3 -> sp | |
| je sp local0 ~l0004 | |
| call_vn r0050 local0 #01 | |
| l0004: store g7e g7d | |
| call_2s r0051 local0 -> sp | |
| jg sp #00 ?~l0006 | |
| jg g6b #00 ~l0006 | |
| je g7d g6b l0006 | |
| store g7e g6b | |
| call_2s r0051 local0 -> sp | |
| jg sp #00 ~l0005 | |
| store g7d g6b | |
| call_1n r0025 | |
| l0005: store g7e g7d | |
| l0006: get_child local0 -> sp ~l0007 | |
| l0007: jz sp l0008 | |
| je local0 local1 l0008 | |
| call_2s r0044 local0 -> sp | |
| je sp #01 ~l0008 | |
| call_vn r0047 local0 local1 local2 | |
| l0008: get_prop_addr local0 #18 -> local4 | |
| jz local4 ?l0012 | |
| loadw local4 #00 -> sp | |
| call_vs r0111 sp g0c -> sp | |
| jg sp #00 ~l0009 | |
| add #02 local2 -> g77 | |
| call_vn r0086 local0 #18 | |
| store g77 #00 | |
| jump l0012 | |
| l0009: get_prop_addr local0 #18 -> gef | |
| jz gef l0010 | |
| get_prop_len gef -> gef | |
| l0010: store local5 gef | |
| store local3 #00 | |
| l0011: mul #02 local3 -> sp | |
| jl sp local5 ~l0012 | |
| loadw local4 local3 -> sp | |
| call_vn r0048 sp #00 local2 | |
| inc local3 | |
| jump l0011 | |
| l0012: rtrue | |
| Routine r0049, 1 local | |
| jl g77 #02 l0001 | |
| sub g77 #02 -> sp | |
| call_vn r0048 local0 #00 sp | |
| l0001: je g77 #01 ~l0002 | |
| call_2s r0097 local0 -> sp | |
| je sp #01 ~l0002 | |
| store g78 #01 | |
| l0002: rtrue | |
| Routine r0050, 3 locals | |
| jz g5d l0001 | |
| call_2s r0041 local0 -> sp | |
| jz sp ~l0001 | |
| rtrue | |
| l0001: jl local1 g7c rtrue | |
| jg local1 g7c ~l0002 | |
| store g7c local1 | |
| store g7a #00 | |
| jump l0004 | |
| l0002: mul #02 g7a -> sp | |
| jl sp #80 ~rtrue | |
| store local2 #00 | |
| l0003: jl local2 g7a ~l0004 | |
| loadw #2980 local2 -> sp | |
| je sp local0 rtrue | |
| inc local2 | |
| jump l0003 | |
| l0004: push g7a | |
| inc g7a | |
| storew #2980 sp local0 | |
| rtrue | |
| Routine r0051, 5 locals | |
| store g6e #00 | |
| jg g7e g7f ~l0002 | |
| jz g64 l0001 | |
| store g6e #70 | |
| l0001: call_vn r0050 local0 #00 | |
| rtrue | |
| l0002: get_prop local0 #30 -> sp | |
| jz sp ?l0009 | |
| store g3a #ffff | |
| store local4 g7e | |
| call_vs r0086 local0 #30 -> local2 | |
| jg local2 #00 ?~l0008 | |
| add local4 local2 -> g7e | |
| l0003: je g3a #1005 ~l0004 | |
| or g6e #04 -> g6e | |
| l0004: and g6e #04 -> sp | |
| jz sp ?l0007 | |
| jz g6c ~l0005 | |
| store local2 #00 | |
| jump l0007 | |
| l0005: jz g64 ~l0006 | |
| store g64 #01 | |
| store g65 #00 | |
| store g66 #00 | |
| l0006: or g65 #08 -> g65 | |
| jz g66 ~l0007 | |
| store g66 #64 | |
| l0007: call_vn r0050 local0 local2 | |
| ret local2 | |
| l0008: jz local2 ~l0009 | |
| jump l0014 | |
| l0009: store g3a #ffff | |
| call_1s r0055 -> local3 | |
| je local3 #01 ~l0010 | |
| je g1b local0 ~l0010 | |
| store local2 #01 | |
| jump l0003 | |
| l0010: jl local3 #02 l0011 | |
| jl local3 #80 ~l0011 | |
| loadw #2d45 local3 -> sp | |
| je sp local0 ~l0011 | |
| store local2 #01 | |
| jump l0003 | |
| l0011: dec g7e | |
| store local4 g7e | |
| call_2s r0490 local0 -> local1 | |
| jl local1 #00 ~l0012 | |
| inc g7e | |
| l0012: jg local1 #00 ~l0013 | |
| store local2 local1 | |
| jump l0003 | |
| l0013: jz local1 l0014 | |
| sub g7e #01 -> sp | |
| call_vs r0052 local0 sp -> sp | |
| jz sp ~l0016 | |
| l0014: jz g64 l0015 | |
| store local2 #00 | |
| store g3a #ffff | |
| jump l0003 | |
| l0015: rfalse | |
| l0016: jl local1 #00 ?~l0019 | |
| store local1 #01 | |
| loadb local3 #06 -> sp | |
| and sp #74 -> g6e | |
| call_1s r0056 -> local3 | |
| l0017: sub g7e #01 -> sp | |
| call_vs r0052 local0 sp -> sp | |
| jz sp l0019 | |
| inc local1 | |
| jz local3 l0018 | |
| loadb local3 #06 -> sp | |
| and sp #74 -> sp | |
| or g6e sp -> g6e | |
| l0018: call_1s r0056 -> local3 | |
| jump l0017 | |
| l0019: store local2 local1 | |
| jump l0003 | |
| Routine r0052, 6 locals | |
| jz local0 rfalse | |
| store local3 g7e | |
| store g7e local1 | |
| call_1s r0057 -> local2 | |
| store g7e local3 | |
| jl g3d #0100 l0002 | |
| call_vs g3d local0 local2 -> local3 | |
| jl local3 #00 l0001 | |
| ret local3 | |
| l0001: sub #00 local3 -> local5 | |
| jump l0003 | |
| l0002: store local5 g3d | |
| l0003: call_vs r0496 local0 local5 -> local3 | |
| call_vs r0497 local0 local5 -> sp | |
| div sp #02 -> sp | |
| sub sp #01 -> local4 | |
| store local5 #00 | |
| l0004: jg local5 local4 l0005 | |
| loadw local3 local5 -> sp | |
| je local2 sp rtrue | |
| inc local5 | |
| jump l0004 | |
| l0005: rfalse | |
| Routine r0053, 6 locals | |
| call_vs r0496 local1 local2 -> local3 | |
| call_vs r0497 local1 local2 -> sp | |
| div sp #02 -> sp | |
| sub sp #01 -> local4 | |
| store local5 #00 | |
| l0001: jg local5 local4 l0002 | |
| loadw local3 local5 -> sp | |
| je local0 sp rtrue | |
| inc local5 | |
| jump l0001 | |
| l0002: rfalse | |
| Routine r0054, 3 locals | |
| store local2 #00 | |
| l0001: jl local2 local1 ~l0002 | |
| loadb local0 local2 -> sp | |
| add #02 local2 -> sp | |
| storeb #2bba sp sp | |
| inc local2 | |
| jump l0001 | |
| l0002: storeb #2bba #01 local1 | |
| call_vn r0020 #2bba #2c33 | |
| loadw #2c33 #01 -> sp | |
| ret_popped | |
| Routine r0055, 3 locals | |
| call_1s r0056 -> local0 | |
| jz local0 rfalse | |
| je local0 "me" "myself" "self" ~l0001 | |
| rtrue | |
| l0001: loadw #2d45 #00 -> local2 | |
| store local1 #01 | |
| jump l0003 | |
| l0002: add local1 #03 -> local1 | |
| l0003: jg local1 local2 l0005 | |
| loadw #2d45 local1 -> sp | |
| je local0 sp ~l0004 | |
| add local1 #02 -> sp | |
| ret_popped | |
| l0004: jump l0002 | |
| l0005: loadb local0 #06 -> sp | |
| and sp #80 -> sp | |
| jz sp rfalse | |
| ret local0 | |
| Routine r0056, 3 locals | |
| loadb #2b79 #01 -> sp | |
| jg g7e sp ~l0001 | |
| inc g7e | |
| rfalse | |
| l0001: mul g7e #02 -> sp | |
| sub sp #01 -> local0 | |
| inc g7e | |
| loadw #2b79 local0 -> local1 | |
| jz local1 ?~l0003 | |
| mul g7e #04 -> sp | |
| sub sp #03 -> local2 | |
| loadb #2b79 local2 -> sp | |
| loadb #2b00 sp -> local0 | |
| je local0 #2c ~l0002 | |
| store local1 "comma," | |
| l0002: je local0 #2e ~l0003 | |
| store local1 "then" | |
| l0003: ret local1 | |
| Routine r0057, 0 locals | |
| loadb #2b79 #01 -> sp | |
| jg g7e sp ~l0001 | |
| inc g7e | |
| ret #ffff | |
| l0001: call_1s r0056 -> sp | |
| ret_popped | |
| Routine r0058, 1 local | |
| mul local0 #04 -> sp | |
| add sp #01 -> sp | |
| loadb #2b79 sp -> sp | |
| add #2b00 sp -> sp | |
| ret_popped | |
| Routine r0059, 1 local | |
| mul local0 #04 -> sp | |
| loadb #2b79 sp -> sp | |
| ret_popped | |
| Routine r0060, 10 locals | |
| store local1 g7e | |
| store g7e local0 | |
| call_1s r0056 -> local2 | |
| store g7e local1 | |
| call_2s r0109 local2 -> local2 | |
| jl local2 #01 l0001 | |
| ret local2 | |
| l0001: mul local0 #04 -> sp | |
| add sp #01 -> local1 | |
| loadb #2b79 local1 -> local2 | |
| add local2 #2b00 -> local4 | |
| sub local1 #01 -> sp | |
| loadb #2b79 sp -> local5 | |
| call_vs r0487 local4 local5 -> local7 | |
| jz local7 l0002 | |
| ret local7 | |
| l0002: jl local5 #04 l0003 | |
| store local6 #03e8 | |
| l0003: je local5 #03 ~l0004 | |
| store local6 #64 | |
| l0004: je local5 #02 ~l0005 | |
| store local6 #0a | |
| l0005: je local5 #01 ~l0006 | |
| store local6 #01 | |
| l0006: store local7 #00 | |
| store local3 #00 | |
| sub local5 #01 -> local5 | |
| store local3 #00 | |
| l0007: jg local3 local5 ?l0019 | |
| loadb local4 local3 -> local9 | |
| je local9 #30 ~l0008 | |
| store local8 #00 | |
| jump l0018 | |
| l0008: je local9 #31 ~l0009 | |
| store local8 #01 | |
| jump l0018 | |
| l0009: je local9 #32 ~l0010 | |
| store local8 #02 | |
| jump l0018 | |
| l0010: je local9 #33 ~l0011 | |
| store local8 #03 | |
| jump l0018 | |
| l0011: je local9 #34 ~l0012 | |
| store local8 #04 | |
| jump l0018 | |
| l0012: je local9 #35 ~l0013 | |
| store local8 #05 | |
| jump l0018 | |
| l0013: je local9 #36 ~l0014 | |
| store local8 #06 | |
| jump l0018 | |
| l0014: je local9 #37 ~l0015 | |
| store local8 #07 | |
| jump l0018 | |
| l0015: je local9 #38 ~l0016 | |
| store local8 #08 | |
| jump l0018 | |
| l0016: je local9 #39 ~l0017 | |
| store local8 #09 | |
| jump l0018 | |
| l0017: ret #fc18 | |
| l0018: mul local6 local8 -> sp | |
| add local7 sp -> local7 | |
| div local6 #0a -> local6 | |
| inc local3 | |
| jump l0007 | |
| l0019: jg local5 #03 ~l0020 | |
| store local7 #2710 | |
| l0020: ret local7 | |
| Routine r0061, 1 local | |
| test_attr local0 #25 ~rtrue | |
| rfalse | |
| Routine r0062, 3 locals | |
| test_attr local0 #09 l0001 | |
| store local1 #06 | |
| l0001: test_attr local0 #24 ~l0002 | |
| store local2 #24 | |
| l0002: test_attr local0 #25 ~l0003 | |
| store local2 #25 | |
| l0003: test_attr local0 #26 ~l0004 | |
| store local2 #26 | |
| l0004: jz local2 ~l0006 | |
| jz local1 ~l0005 | |
| store local2 #24 | |
| jump l0006 | |
| l0005: store local2 #26 | |
| l0006: je local2 #25 ~l0007 | |
| add local1 #01 -> local1 | |
| l0007: je local2 #26 ~l0008 | |
| add local1 #02 -> local1 | |
| l0008: test_attr local0 #27 ~l0009 | |
| add local1 #03 -> local1 | |
| l0009: ret local1 | |
| Routine r0063, 1 local | |
| loadw #00 #04 -> sp | |
| add sp #07 -> sp | |
| sub local0 sp -> sp | |
| div sp #09 -> sp | |
| ret_popped | |
| Routine r0064, 1 local | |
| mul #09 local0 -> sp | |
| loadw #00 #04 -> sp | |
| add sp #07 -> sp | |
| add sp sp -> sp | |
| ret_popped | |
| Routine r0065, 4 locals | |
| loadb local0 #00 -> local3 | |
| store local2 #01 | |
| l0001: jg local2 local3 l0002 | |
| loadb local1 local2 -> sp | |
| storeb local0 local2 sp | |
| inc local2 | |
| jump l0001 | |
| l0002: rtrue | |
| Routine r0066, 3 locals | |
| loadb #2b00 #01 -> local2 | |
| loadb #2b00 #00 -> sp | |
| jg local2 sp ~l0001 | |
| loadb #2b00 #00 -> local2 | |
| l0001: add local2 #02 -> local2 | |
| l0002: jg local2 local0 ~l0003 | |
| sub local2 #01 -> sp | |
| loadb #2b00 sp -> sp | |
| storeb #2b00 local2 sp | |
| dec local2 | |
| jump l0002 | |
| l0003: storeb #2b00 local0 local1 | |
| loadb #2b00 #00 -> sp | |
| loadb #2b00 #01 -> sp | |
| jl sp sp ~l0004 | |
| store gef #2b00 | |
| store gee #01 | |
| loadb gef gee -> ged | |
| inc ged | |
| storeb gef gee ged | |
| l0004: rtrue | |
| Routine r0067, 4 locals | |
| Action routine for: | |
| "nouns" | |
| call_vn r0241 #00 #01 | |
| loadw #2d45 #00 -> sp | |
| div sp #03 -> local2 | |
| je g1b #14 l0001 | |
| inc local2 | |
| l0001: jz local2 ~l0002 | |
| call_vs r0241 #00 #04 -> sp | |
| ret_popped | |
| l0002: store local0 #01 | |
| store local3 #00 | |
| jump l0004 | |
| l0003: add local0 #03 -> local0 | |
| l0004: loadw #2d45 #00 -> sp | |
| jg local0 sp ?l0009 | |
| print "~" | |
| loadw #2d45 local0 -> sp | |
| print_addr sp | |
| print "~ " | |
| add local0 #02 -> sp | |
| loadw #2d45 sp -> local1 | |
| je local1 #ffff ~l0005 | |
| call_vn r0241 #00 #03 | |
| jump l0006 | |
| l0005: call_vn r0241 #00 #02 | |
| call_2n r0105 local1 | |
| l0006: inc local3 | |
| sub local2 #01 -> sp | |
| jl local3 sp ~l0007 | |
| print ", " | |
| l0007: sub local2 #01 -> sp | |
| je local3 sp ~l0008 | |
| print_paddr s039 | |
| l0008: jump l0003 | |
| l0009: je g1b #14 l0010 | |
| print "~" | |
| print_addr "me" | |
| print "~ " | |
| call_vn r0241 #00 #02 | |
| store local2 g1b | |
| store g1b #14 | |
| call_2n r0105 local2 | |
| store g1b local2 | |
| l0010: print_ret "." | |
| Routine r0068, 3 locals | |
| store local2 #01 | |
| jump l0002 | |
| l0001: add local2 #03 -> local2 | |
| l0002: loadw #2d45 #00 -> sp | |
| jg local2 sp l0004 | |
| loadw #2d45 local2 -> sp | |
| je sp local0 ~l0003 | |
| add local2 #02 -> sp | |
| storew #2d45 sp local1 | |
| rtrue | |
| l0003: jump l0001 | |
| l0004: call_2n r0114 #0e | |
| rtrue | |
| Routine r0069, 2 locals | |
| store local1 #01 | |
| jump l0002 | |
| l0001: add local1 #03 -> local1 | |
| l0002: loadw #2d45 #00 -> sp | |
| jg local1 sp l0004 | |
| loadw #2d45 local1 -> sp | |
| je sp local0 ~l0003 | |
| add local1 #02 -> sp | |
| loadw #2d45 sp -> sp | |
| ret_popped | |
| l0003: jump l0001 | |
| l0004: rfalse | |
| Routine r0070, 1 local | |
| call_2n r0072 local0 | |
| rtrue | |
| Routine r0071, 0 locals | |
| je g88 g8b l0001 | |
| call_vn r0068 s046 or "it" g88 | |
| l0001: je g89 g8c l0002 | |
| call_vn r0068 "him" g89 | |
| l0002: je g8a g8d l0003 | |
| call_vn r0068 "her" g8a | |
| l0003: store g8b g88 | |
| store g8c g89 | |
| store g8d g8a | |
| rtrue | |
| Routine r0072, 3 locals | |
| je local0 g1b ~l0001 | |
| rtrue | |
| l0001: call_1n r0071 | |
| call_2s r0062 local0 -> sp | |
| loadw #2d2d sp -> local2 | |
| store local1 #01 | |
| jump l0003 | |
| l0002: add local1 #03 -> local1 | |
| l0003: loadw #2d45 #00 -> sp | |
| jg local1 sp ?l0005 | |
| add local1 #01 -> sp | |
| loadw #2d45 sp -> sp | |
| and local2 sp -> sp | |
| jz sp l0004 | |
| add local1 #02 -> sp | |
| storew #2d45 sp local0 | |
| l0004: jump l0002 | |
| l0005: call_2s r0069 s046 or "it" -> g88 | |
| store g8b g88 | |
| call_2s r0069 "him" -> g89 | |
| store g8c g89 | |
| call_2s r0069 "her" -> g8a | |
| store g8d g8a | |
| rtrue | |
| Routine r0073, 4 locals | |
| loadw #32 #00 -> g0d | |
| loadw #00 #08 -> sp | |
| and sp #01 -> g10 | |
| call_vn r0087 #26 s027 | |
| store g1e #13 | |
| store g1b #14 | |
| sub #01c5 #ff -> g0c | |
| put_prop "(self object)" #2d #14 | |
| call_1s r0452 -> local1 | |
| store g17 g16 | |
| insert_obj g1b g09 | |
| l0001: get_parent g09 -> sp | |
| jz sp l0002 | |
| get_parent g09 -> g09 | |
| jump l0001 | |
| l0002: get_child g1b -> sp ~l0003 | |
| l0003: pull local0 | |
| jz local0 l0005 | |
| l0004: set_attr local0 #15 | |
| clear_attr local0 #0c | |
| get_sibling local0 -> local0 ?l0004 | |
| l0005: je local1 #02 l0006 | |
| call_1n r0112 | |
| l0006: call_1n r0127 | |
| get_parent g1b -> sp | |
| call_2s r0096 sp -> g1d | |
| jz g1d ~l0007 | |
| store g1e g09 | |
| store g09 #13 | |
| l0007: call_2n r0076 #1f | |
| store local0 #01 | |
| l0008: jg local0 #64 l0009 | |
| random local0 -> local1 | |
| inc local0 | |
| jump l0008 | |
| l0009: store g8b g88 | |
| store g8c g89 | |
| store g8d g8a | |
| l0010: jz g1c ?~l0045 | |
| call_1n r0071 | |
| call_2s r0069 s046 or "it" -> g8b | |
| call_2s r0069 "him" -> g8c | |
| call_2s r0069 "her" -> g8d | |
| l0011: je g16 g17 l0013 | |
| je g18 #01 ~l0012 | |
| call_1n r0094 | |
| l0012: store g17 g16 | |
| l0013: storew #2780 #00 #00 | |
| storew #2780 #01 #00 | |
| storew #2780 #02 #00 | |
| storew #2780 #03 #00 | |
| store g40 #00 | |
| call_vn r0494 #15 #48 #2780 | |
| loadw #2780 #00 -> g31 | |
| je g31 #5b #5c ?~l0015 | |
| loadw #2780 #02 -> local0 | |
| loadw #2780 #03 -> sp | |
| storew #2780 #02 sp | |
| storew #2780 #03 local0 | |
| je g31 #5b ~l0014 | |
| store g31 #15 | |
| jump l0015 | |
| l0014: store g31 #16 | |
| l0015: je g31 #51 ~l0016 | |
| loadw #2780 #02 -> sp | |
| je sp g1b ~l0016 | |
| je g3e g1b l0016 | |
| storew #2780 #02 g3e | |
| store g3e g1b | |
| store g31 #53 | |
| l0016: je g31 #5a ?~l0017 | |
| loadw #2780 #02 -> sp | |
| je sp g1b ?l0017 | |
| je g3e g1b ~l0017 | |
| loadw #2780 #02 -> g3e | |
| loadw #2780 #03 -> sp | |
| storew #2780 #02 sp | |
| storew #2780 #03 g1b | |
| store g31 #15 | |
| l0017: je g31 #53 #51 #52 ~l0018 | |
| store g43 g52 | |
| l0018: store g41 #00 | |
| store g49 g48 | |
| store g48 #00 | |
| l0019: store g32 #00 | |
| store g33 #00 | |
| loadw #2780 #01 -> local0 | |
| jl local0 #01 l0020 | |
| loadw #2780 #02 -> g32 | |
| l0020: jl local0 #02 l0021 | |
| loadw #2780 #03 -> g33 | |
| l0021: je g32 #01 ~l0022 | |
| store g34 g52 | |
| jump l0023 | |
| l0022: store g34 g32 | |
| l0023: je g33 #01 ~l0026 | |
| je g32 #01 ~l0024 | |
| store g35 g53 | |
| jump l0025 | |
| l0024: store g35 g52 | |
| l0025: jump l0027 | |
| l0026: store g35 g33 | |
| l0027: je g3e g1b ?l0030 | |
| call_vs r0086 g1b #1d -> local1 | |
| jz local1 ?~l0029 | |
| call_vs r0086 g3e #1d -> local1 | |
| jz local1 ?~l0029 | |
| je g31 #1009 ~l0028 | |
| storew #2780 #03 g3e | |
| store g3e g1b | |
| store g31 #52 | |
| jump l0019 | |
| l0028: call_vs r0082 g3e #1003 -> sp | |
| jz sp ~l0029 | |
| call_vn r0241 #1003 #01 g3e | |
| l0029: jump l0041 | |
| l0030: jz local0 l0032 | |
| je local0 #01 ~l0031 | |
| jz g32 ~l0032 | |
| l0031: je local0 #02 ~l0033 | |
| jz g32 l0033 | |
| jz g33 l0033 | |
| l0032: call_vn2 r0494 geb #004b g31 g34 g35 #00 | |
| jump l0041 | |
| l0033: store g41 #01 | |
| loadw #27a0 #00 -> local1 | |
| jz local1 ~l0034 | |
| call_vn r0241 #1007 #02 | |
| jump l0013 | |
| l0034: jz g42 l0035 | |
| store g42 #00 | |
| call_vn r0241 #1007 #01 | |
| l0035: store local0 g09 | |
| store local2 #01 | |
| l0036: jg local2 local1 ?l0041 | |
| jz g1c l0037 | |
| jump l0041 | |
| l0037: je g09 local0 l0038 | |
| call_vn r0241 #1007 #33 | |
| jump l0041 | |
| l0038: loadw #27a0 local2 -> local3 | |
| call_2n r0072 local3 | |
| call_2n r0107 local3 | |
| print ": " | |
| jz g32 ~l0039 | |
| store g32 local3 | |
| call_vn2 r0494 geb #004b g31 local3 g35 #00 | |
| store g32 #00 | |
| jump l0040 | |
| l0039: store g33 local3 | |
| call_vn2 r0494 geb #004b g31 g34 local3 #00 | |
| store g33 #00 | |
| l0040: inc local2 | |
| jump l0036 | |
| l0041: je g48 #01 ~l0042 | |
| call_1n r0077 | |
| jump l0010 | |
| l0042: jz g40 l0043 | |
| jump l0010 | |
| l0043: jz g1c ~l0044 | |
| call_vn r0494 geb #004a | |
| l0044: jump l0010 | |
| l0045: je g1c #02 l0046 | |
| call_1n r0477 | |
| l0046: jz g1c ~l0047 | |
| jump l0011 | |
| l0047: print "^^ " | |
| set_text_style boldface | |
| print "***" | |
| je g1c #01 ~l0048 | |
| call_vn r0241 #1007 #03 | |
| l0048: je g1c #02 ~l0049 | |
| call_vn r0241 #1007 #04 | |
| l0049: jg g1c #02 ~l0050 | |
| print " " | |
| call_1n r0473 | |
| print " " | |
| l0050: print "***" | |
| set_text_style roman | |
| print "^^^" | |
| call_1n r0142 | |
| call_1n r0092 | |
| l0051: call_vn r0241 #1007 #05 | |
| l0052: print "> " | |
| store gef #00 | |
| store gec #2b00 | |
| storeb gec #01 #00 | |
| call_1n r0099 | |
| read gec #2b79 -> gef | |
| loadw #2b79 #01 -> local0 | |
| je local0 "q" "quit" ~l0053 | |
| quit | |
| l0053: je local0 "restart" ~l0054 | |
| restart | |
| l0054: je local0 "restore" ~l0055 | |
| call_1n r0133 | |
| jump l0051 | |
| l0055: je local0 "fullscore" "full" ~l0056 | |
| jz #0001 ~l0056 | |
| new_line | |
| call_1n r0145 | |
| jump l0051 | |
| l0056: je g1c #02 ~l0057 | |
| je local0 "amusing" ~l0057 | |
| jz #0001 ~l0057 | |
| new_line | |
| call_1n r0472 | |
| jump l0051 | |
| l0057: je local0 "undo" "undo" "undo" ?~l0062 | |
| jz g0e ~l0058 | |
| call_vn r0241 #1007 #06 | |
| jump l0051 | |
| l0058: je g0e #01 ~l0059 | |
| jump l0060 | |
| l0059: restore_undo -> local0 | |
| jz local0 ~l0061 | |
| l0060: call_vn r0241 #1007 #07 | |
| l0061: jump l0051 | |
| l0062: call_vn r0241 #1007 #08 | |
| jump l0052 | |
| Routine r0074, 2 locals | |
| inc g11 | |
| je g12 #ffff ?l0003 | |
| jl g13 #00 l0001 | |
| add g12 g13 -> g12 | |
| jump l0002 | |
| l0001: dec g14 | |
| jz g14 ~l0002 | |
| inc g12 | |
| sub #00 g13 -> g14 | |
| l0002: mod g12 #05a0 -> g12 | |
| l0003: store local0 #00 | |
| l0004: jl local0 g15 ?~l0009 | |
| jz g1c l0005 | |
| rtrue | |
| l0005: loadw #2740 local0 -> local1 | |
| jz local1 ?l0008 | |
| and local1 #8000 -> sp | |
| jz sp l0006 | |
| and local1 #7fff -> sp | |
| call_vn r0086 sp #2b | |
| jump l0008 | |
| l0006: get_prop local1 #28 -> sp | |
| jz sp ~l0007 | |
| call_2n r0089 local1 | |
| call_vn r0086 local1 #2a | |
| jump l0008 | |
| l0007: get_prop local1 #28 -> sp | |
| sub sp #01 -> sp | |
| put_prop local1 #28 sp | |
| l0008: inc local0 | |
| jump l0004 | |
| l0009: jz g1c l0010 | |
| rtrue | |
| l0010: store g73 #02 | |
| store g80 #00 | |
| call_2n r0046 g09 | |
| call_2s r0024 g1b -> sp | |
| call_vn r0043 sp g1b #00 | |
| store g73 #00 | |
| jz g1c l0011 | |
| rtrue | |
| l0011: call_1n r0471 | |
| jz g1c l0012 | |
| rtrue | |
| l0012: call_1n r0095 | |
| jz g1c l0013 | |
| rtrue | |
| l0013: call_1n r0077 | |
| rfalse | |
| Routine r0075, 8 locals | |
| store local4 g31 | |
| store local5 g34 | |
| store local6 g35 | |
| store g31 local0 | |
| store g34 local1 | |
| store g35 local2 | |
| store local3 #00 | |
| jz g40 ~l0001 | |
| call_1s r0080 -> sp | |
| jz sp ~l0002 | |
| l0001: jl g31 #1000 ~l0002 | |
| loadw #36bc g31 -> sp | |
| call_1n sp | |
| store local7 #00 | |
| jump l0003 | |
| l0002: store local7 #01 | |
| l0003: store g31 local4 | |
| store g34 local5 | |
| store g35 local6 | |
| rfalse | |
| Routine r0076, 5 locals | |
| store local3 g32 | |
| store local4 g33 | |
| store g32 local1 | |
| store g33 local2 | |
| call_vn2 r0494 #16 #4b local0 local1 local2 #01 | |
| store g32 local3 | |
| store g33 local4 | |
| rtrue | |
| Routine r0077, 1 local | |
| store local0 #01 | |
| l0001: jin local0 g1b ~l0002 | |
| test_attr local0 #15 l0002 | |
| set_attr local0 #15 | |
| test_attr local0 #1b ~l0002 | |
| add g16 #0004 -> g16 | |
| add g1a #0004 -> g1a | |
| l0002: inc local0 | |
| jg local0 #00c6 l0003 | |
| jump l0001 | |
| l0003: rtrue | |
| Routine r0078, 7 locals | |
| store local5 g3b | |
| store local6 g3c | |
| store g3b local0 | |
| store g3c #00 | |
| store local2 g3e | |
| store local3 g3f | |
| store local4 g73 | |
| store g73 #06 | |
| jz local1 ~l0001 | |
| store g3e g1b | |
| jump l0002 | |
| l0001: store g3e local1 | |
| l0002: call_2s r0024 g3e -> g3f | |
| call_vn r0043 g3f g3e #00 | |
| store g73 local4 | |
| store g3e local2 | |
| store g3f local3 | |
| store g3b local5 | |
| store local5 g3c | |
| store g3c local6 | |
| ret local5 | |
| Routine r0079, 6 locals | |
| store local2 g3b | |
| store local3 g73 | |
| store local4 g3e | |
| store local5 g3f | |
| store g3b local0 | |
| jz local1 ~l0001 | |
| store g3e g1b | |
| jump l0002 | |
| l0001: store g3e local1 | |
| l0002: call_2s r0024 g3e -> g3f | |
| store g73 #05 | |
| call_vn r0043 g3f g3e #00 | |
| store g3b local2 | |
| store g73 local3 | |
| store g3e local4 | |
| store g3f local5 | |
| rtrue | |
| Routine r0080, 0 locals | |
| call_1s r0478 -> sp | |
| jz sp ~rtrue | |
| call_vs r0086 g1b #1d -> sp | |
| jz sp ~rtrue | |
| jz g09 l0001 | |
| call_vs r0086 g09 #04 -> sp | |
| jz sp ~rtrue | |
| l0001: store g73 #03 | |
| store g3b #00 | |
| call_2s r0024 g1b -> sp | |
| call_vn r0043 sp g1b #00 | |
| store g73 #00 | |
| jz g3b ~rtrue | |
| jg g32 #01 ~l0002 | |
| call_vs r0086 g32 #04 -> sp | |
| jz sp ~rtrue | |
| l0002: rfalse | |
| Routine r0081, 0 locals | |
| store g73 #04 | |
| store g3b #00 | |
| call_2s r0024 g1b -> sp | |
| call_vn r0043 sp g1b #00 | |
| store g73 #00 | |
| jz g3b ~rtrue | |
| jz g09 l0001 | |
| call_vs r0086 g09 #05 -> sp | |
| jz sp ~rtrue | |
| l0001: jg g32 #01 ~l0002 | |
| call_vs r0086 g32 #05 -> sp | |
| jz sp ~rtrue | |
| l0002: call_1s r0479 -> sp | |
| ret_popped | |
| Routine r0082, 2 locals | |
| store g37 local1 | |
| call_vs r0086 local0 #06 -> sp | |
| ret_popped | |
| Routine r0083, 1 local | |
| call_vs r0504 local0 -> sp | |
| pull gef | |
| je gef #00 ~l0001 | |
| rfalse | |
| l0001: je gef #02 #01 ~l0002 | |
| rtrue | |
| l0002: je gef #03 ~l0003 | |
| ret #02 | |
| l0003: je gef #04 ~l0004 | |
| ret #03 | |
| l0004: rtrue | |
| Routine r0084, 3 locals | |
| call_vs r0497 local0 local1 -> sp | |
| jg sp #02 ~l0001 | |
| call_vs r0086 local0 local1 -> sp | |
| ret_popped | |
| l0001: call_vs r0493 local0 local1 -> sp | |
| je sp #ffff rfalse | |
| call_vs r0493 local0 local1 -> sp | |
| call_vs r0504 sp -> sp | |
| pull gef | |
| je gef #01 #02 #00 ~l0002 | |
| call_vs r0114 #02 local0 local1 -> sp | |
| ret_popped | |
| l0002: je gef #04 ~l0004 | |
| call_vs r0493 local0 local1 -> sp | |
| print_paddr sp | |
| jz local2 ~l0003 | |
| new_line | |
| l0003: rtrue | |
| l0004: je gef #03 ~l0005 | |
| call_vs r0086 local0 local1 -> sp | |
| ret_popped | |
| l0005: rtrue | |
| Routine r0085, 2 locals | |
| call_vs r0493 local0 local1 -> sp | |
| jl sp #0100 ~l0001 | |
| call_vs r0493 local0 local1 -> sp | |
| ret_popped | |
| l0001: call_vs r0086 local0 local1 -> sp | |
| ret_popped | |
| Routine r0086, 2 locals | |
| je local0 #13 ~l0001 | |
| je local1 #1e #2e #23 l0001 | |
| store local0 g1e | |
| l0001: call_vs r0496 local0 local1 -> sp | |
| jz sp rfalse | |
| call_vs r0494 local0 local1 -> sp | |
| ret_popped | |
| Routine r0087, 2 locals | |
| sub local0 #01 -> sp | |
| loadw #00 #05 -> sp | |
| storew sp sp local1 | |
| rtrue | |
| Routine r0088, 3 locals | |
| store local2 #00 | |
| l0001: jl local2 g15 ~l0002 | |
| loadw #2740 local2 -> sp | |
| je sp local0 rfalse | |
| inc local2 | |
| jump l0001 | |
| l0002: store local2 #00 | |
| l0003: jl local2 g15 ~l0005 | |
| loadw #2740 local2 -> sp | |
| jz sp ~l0004 | |
| jump l0006 | |
| l0004: inc local2 | |
| jump l0003 | |
| l0005: store local2 g15 | |
| inc g15 | |
| mul local2 #02 -> sp | |
| jl sp #40 l0006 | |
| call_2n r0114 #04 | |
| l0006: get_prop_addr local0 #28 -> sp | |
| jz sp ~l0007 | |
| call_vn r0114 #05 local0 | |
| l0007: storew #2740 local2 local0 | |
| put_prop local0 #28 local1 | |
| rtrue | |
| Routine r0089, 2 locals | |
| store local1 #00 | |
| l0001: jl local1 g15 ~l0003 | |
| loadw #2740 local1 -> sp | |
| je sp local0 ~l0002 | |
| jump l0004 | |
| l0002: inc local1 | |
| jump l0001 | |
| l0003: rfalse | |
| l0004: get_prop_addr local0 #28 -> sp | |
| jz sp ~l0005 | |
| call_vn r0114 #05 local0 | |
| l0005: storew #2740 local1 #00 | |
| put_prop local0 #28 #00 | |
| rtrue | |
| Routine r0090, 2 locals | |
| store local1 #00 | |
| l0001: jl local1 g15 ~l0002 | |
| add #8000 local0 -> sp | |
| loadw #2740 local1 -> sp | |
| je sp sp rfalse | |
| inc local1 | |
| jump l0001 | |
| l0002: store local1 #00 | |
| l0003: jl local1 g15 ~l0005 | |
| loadw #2740 local1 -> sp | |
| jz sp ~l0004 | |
| jump l0006 | |
| l0004: inc local1 | |
| jump l0003 | |
| l0005: store local1 g15 | |
| inc g15 | |
| mul local1 #02 -> sp | |
| jl sp #40 l0006 | |
| call_2n r0114 #04 | |
| l0006: add #8000 local0 -> sp | |
| storew #2740 local1 sp | |
| rtrue | |
| Routine r0091, 2 locals | |
| store local1 #00 | |
| l0001: jl local1 g15 ~l0003 | |
| add #8000 local0 -> sp | |
| loadw #2740 local1 -> sp | |
| je sp sp ~l0002 | |
| jump l0004 | |
| l0002: inc local1 | |
| jump l0001 | |
| l0003: rfalse | |
| l0004: storew #2740 local1 #00 | |
| rtrue | |
| Routine r0092, 0 locals | |
| je g12 g12 ~l0001 | |
| store g0a g16 | |
| store g0b g11 | |
| jump l0002 | |
| l0001: div g12 #3c -> g0a | |
| mod g12 #3c -> g0b | |
| l0002: rtrue | |
| Routine r0093, 2 locals | |
| store g12 local0 | |
| store g13 local1 | |
| store g14 #00 | |
| jl local1 #00 ~l0001 | |
| sub #00 local1 -> g14 | |
| l0001: rtrue | |
| Routine r0094, 0 locals | |
| print "^[" | |
| sub g16 g17 -> sp | |
| call_vn r0241 #1007 #32 sp | |
| print ".]^" | |
| rtrue | |
| Routine r0095, 2 locals | |
| store local1 g1d | |
| get_parent g1b -> sp | |
| call_2s r0096 sp -> g1d | |
| jz local1 ~l0001 | |
| je g1d #01 ~l0001 | |
| store g09 g1e | |
| jz local0 ~l0001 | |
| call_2n r0076 #1f | |
| l0001: je local1 #01 ~l0002 | |
| jz g1d ~l0002 | |
| store g1e g09 | |
| store g09 #13 | |
| jz local0 ~l0002 | |
| call_1n r0178 | |
| call_vs r0241 #1007 #09 -> sp | |
| ret_popped | |
| l0002: jz local1 ~l0003 | |
| jz g1d ~l0003 | |
| store g09 #13 | |
| l0003: rtrue | |
| Routine r0096, 2 locals | |
| jz local0 rfalse | |
| test_attr local0 #12 rtrue | |
| get_child local0 -> sp ~l0001 | |
| l0001: pull local1 | |
| jz local1 l0003 | |
| l0002: call_2s r0097 local1 -> sp | |
| je sp #01 rtrue | |
| get_sibling local1 -> local1 ?l0002 | |
| l0003: test_attr local0 #0d ~l0006 | |
| test_attr local0 #17 l0004 | |
| test_attr local0 #20 ~l0005 | |
| l0004: get_parent local0 -> sp | |
| call_2s r0096 sp -> sp | |
| ret_popped | |
| l0005: jump l0008 | |
| l0006: test_attr local0 #10 l0007 | |
| test_attr local0 #20 l0007 | |
| test_attr local0 #1d ~l0008 | |
| l0007: get_parent local0 -> sp | |
| call_2s r0096 sp -> sp | |
| ret_popped | |
| l0008: rfalse | |
| Routine r0097, 3 locals | |
| jz local0 rfalse | |
| test_attr local0 #12 rtrue | |
| test_attr local0 #10 l0001 | |
| call_2s r0044 local0 -> sp | |
| je sp #01 ~l0004 | |
| l0001: get_child local0 -> sp ~l0002 | |
| l0002: pull local0 | |
| jz local0 l0004 | |
| l0003: call_2s r0097 local0 -> sp | |
| je sp #01 rtrue | |
| get_sibling local0 -> local0 ?l0003 | |
| l0004: get_prop_addr local0 #18 -> local2 | |
| get_parent local0 -> sp | |
| jz sp ?l0008 | |
| jz local2 ?l0008 | |
| loadw local2 #00 -> sp | |
| jg sp g0c ~l0005 | |
| store g78 #00 | |
| store g77 #01 | |
| call_vn r0086 local0 #18 | |
| store g77 #00 | |
| je g78 #01 rtrue | |
| jump l0008 | |
| l0005: store local1 #00 | |
| l0006: get_prop_addr local0 #18 -> gef | |
| jz gef l0007 | |
| get_prop_len gef -> gef | |
| l0007: push gef | |
| mul #02 local1 -> sp | |
| jl sp sp ~l0008 | |
| loadw local2 local1 -> sp | |
| call_2s r0097 sp -> sp | |
| je sp #01 rtrue | |
| inc local1 | |
| jump l0006 | |
| l0008: rfalse | |
| Routine r0098, 3 locals | |
| je g3e g1b ~l0001 | |
| store g3e local0 | |
| l0001: clear_attr g1b #20 | |
| clear_attr g1b #0c | |
| store local2 local0 | |
| l0002: get_parent local2 -> sp | |
| jz sp l0004 | |
| test_attr local2 #09 ~l0003 | |
| set_attr local2 #20 | |
| l0003: get_parent local2 -> local2 | |
| jump l0002 | |
| l0004: je g1b #14 ~l0005 | |
| put_prop g1b #2e s028 | |
| l0005: store g1b local0 | |
| je g1b #14 ~l0006 | |
| put_prop g1b #2e #ffff | |
| l0006: set_attr g1b #20 | |
| set_attr g1b #0c | |
| set_attr g1b #09 | |
| set_attr g1b #19 | |
| store local2 g1b | |
| l0007: get_parent local2 -> sp | |
| jz sp l0008 | |
| get_parent local2 -> local2 | |
| jump l0007 | |
| l0008: store g09 local2 | |
| store g1e g09 | |
| call_1n r0127 | |
| get_parent g1b -> sp | |
| call_2s r0096 sp -> g1d | |
| jz g1d ~l0009 | |
| store g09 #13 | |
| l0009: store g21 local1 | |
| rtrue | |
| Routine r0099, 3 locals | |
| split_window #01 | |
| set_window #01 | |
| set_cursor #01 #01 | |
| set_text_style reverse | |
| loadb #00 #21 -> local0 | |
| sub local0 #1a -> local1 | |
| sub local0 #0d -> local2 | |
| store gef local0 | |
| jl gef #01 l0002 | |
| l0001: print_char ' ' | |
| dec gef | |
| jz gef ?~l0001 | |
| l0002: set_cursor #01 #02 | |
| call_2n r0107 g09 | |
| loadb #00 #01 -> sp | |
| and sp #02 -> sp | |
| jz sp ?~l0005 | |
| jg local0 #4c ~l0003 | |
| set_cursor #01 local1 | |
| print_paddr s024 | |
| print_num g0a | |
| set_cursor #01 local2 | |
| print_paddr s025 | |
| print_num g0b | |
| l0003: jg local0 #3f ~l0004 | |
| jg local0 #4c l0004 | |
| set_cursor #01 local2 | |
| print_num g0a | |
| print "/" | |
| print_num g0b | |
| l0004: jump l0006 | |
| l0005: set_cursor #01 local1 | |
| print_paddr s026 | |
| call_vn r0007 g0a g0b | |
| l0006: set_cursor #01 #01 | |
| set_text_style roman | |
| set_window #00 | |
| rtrue | |
| Routine r0100, 7 locals | |
| inc g2b | |
| l0001: store g2c #00 | |
| call_1s local1 -> local3 | |
| store local4 g2e | |
| print "--- " | |
| print_paddr local4 | |
| print " ---^^" | |
| call_vs r0499 local0 #03 -> sp | |
| jz sp l0002 | |
| call_vn r0494 local0 #45 | |
| jump l0003 | |
| l0002: print_paddr local0 | |
| l0003: call_vn r0241 #1007 #34 local3 | |
| print "> " | |
| store gec #2b00 | |
| storeb gec #01 #00 | |
| call_1n r0099 | |
| read gec #2b79 -> gef | |
| loadw #2b79 #01 -> local5 | |
| je local5 "q" "quit" l0004 | |
| loadb #2b79 #01 -> sp | |
| jz sp ~l0006 | |
| l0004: dec g2b | |
| jg g2b #00 rfalse | |
| jz g1c ~l0005 | |
| call_2n r0076 #1f | |
| rtrue | |
| l0005: rfalse | |
| l0006: call_2s r0060 #01 -> local5 | |
| jz local5 ~l0007 | |
| jump l0001 | |
| l0007: jl local5 #01 l0008 | |
| jg local5 local3 ~l0009 | |
| l0008: jump l0003 | |
| l0009: store g2c local5 | |
| call_1s local2 -> local6 | |
| je local6 #02 ~l0010 | |
| jump l0001 | |
| l0010: je local6 #03 rfalse | |
| jump l0003 | |
| Routine r0101, 11 locals | |
| jz g2a ~l0001 | |
| call_vs r0100 local0 local1 local2 -> sp | |
| ret_popped | |
| l0001: inc g2b | |
| store g2c #00 | |
| call_1s local1 -> local3 | |
| store local4 g2e | |
| store local5 g2d | |
| store local6 #07 | |
| l0002: store local9 #00 | |
| erase_window #ffff | |
| add local3 #07 -> local7 | |
| split_window local7 | |
| loadb #00 #21 -> local7 | |
| jz local7 ~l0003 | |
| store local7 #50 | |
| l0003: set_window #01 | |
| set_cursor #01 #01 | |
| set_text_style reverse | |
| store gef local7 | |
| jl gef #01 l0005 | |
| l0004: print_char ' ' | |
| dec gef | |
| jz gef ?~l0004 | |
| l0005: div local7 #02 -> sp | |
| sub sp local5 -> local8 | |
| set_cursor #01 local8 | |
| print_paddr local4 | |
| set_cursor #02 #01 | |
| store gef local7 | |
| jl gef #01 l0007 | |
| l0006: print_char ' ' | |
| dec gef | |
| jz gef ?~l0006 | |
| l0007: set_cursor #02 #02 | |
| print_paddr s019 | |
| sub local7 #0c -> local8 | |
| set_cursor #02 local8 | |
| print_paddr s020 | |
| set_cursor #03 #01 | |
| store gef local7 | |
| jl gef #01 l0009 | |
| l0008: print_char ' ' | |
| dec gef | |
| jz gef ?~l0008 | |
| l0009: set_cursor #03 #02 | |
| print_paddr s023 | |
| sub local7 #11 -> local8 | |
| set_cursor #03 local8 | |
| je g2b #01 ~l0010 | |
| print_paddr s021 | |
| jump l0011 | |
| l0010: print_paddr s022 | |
| l0011: set_text_style roman | |
| set_cursor #05 #02 | |
| loadw #00 #08 -> gef | |
| or #02 gef -> gef | |
| storew #00 #08 gef | |
| call_vs r0499 local0 #04 -> sp | |
| jz sp l0012 | |
| print_paddr local0 | |
| jump l0013 | |
| l0012: call_vn r0494 local0 #45 | |
| l0013: je local6 local9 l0015 | |
| jg local9 #00 ~l0014 | |
| set_cursor local9 #04 | |
| print " " | |
| l0014: set_cursor local6 #04 | |
| print ">" | |
| l0015: store local9 local6 | |
| read_char #01 -> local10 | |
| je local10 #4e #6e #82 ~l0017 | |
| inc local6 | |
| add #07 local3 -> sp | |
| je local6 sp ~l0016 | |
| store local6 #07 | |
| l0016: jump l0013 | |
| l0017: je local10 #50 #70 #81 ~l0019 | |
| dec local6 | |
| je local6 #06 ~l0018 | |
| add #06 local3 -> local6 | |
| l0018: jump l0013 | |
| l0019: je local10 #51 #71 #1b l0020 | |
| je local10 #83 ~l0021 | |
| l0020: jump l0028 | |
| l0021: je local10 #0a #0d #84 ?~l0027 | |
| set_window #00 | |
| loadw #00 #08 -> gef | |
| and #fffd gef -> gef | |
| storew #00 #08 gef | |
| new_line | |
| new_line | |
| new_line | |
| sub local6 #06 -> g2c | |
| call_vn r0494 local1 #45 | |
| erase_window #ffff | |
| split_window #01 | |
| loadb #00 #21 -> local7 | |
| jz local7 ~l0022 | |
| store local7 #50 | |
| l0022: set_window #01 | |
| set_cursor #01 #01 | |
| set_text_style reverse | |
| store gef local7 | |
| jl gef #01 l0024 | |
| l0023: print_char ' ' | |
| dec gef | |
| jz gef ?~l0023 | |
| l0024: div local7 #02 -> sp | |
| sub sp g2d -> local8 | |
| set_cursor #01 local8 | |
| print_paddr g2e | |
| set_text_style roman | |
| set_window #00 | |
| new_line | |
| call_vs r0494 local2 #45 -> local7 | |
| je local7 #02 ~l0025 | |
| jump l0002 | |
| l0025: je local7 #03 ~l0026 | |
| jump l0028 | |
| l0026: call_vn r0241 #1007 #35 | |
| read_char #01 -> local10 | |
| jump l0002 | |
| l0027: jump l0013 | |
| l0028: dec g2b | |
| jg g2b #00 rfalse | |
| loadw #00 #08 -> gef | |
| and #fffd gef -> gef | |
| storew #00 #08 gef | |
| set_cursor #01 #01 | |
| erase_window #ffff | |
| set_window #00 | |
| new_line | |
| new_line | |
| new_line | |
| jz g1c ~l0029 | |
| call_2n r0076 #1f | |
| rtrue | |
| l0029: rtrue | |
| Routine r0102, 6 locals | |
| call_vs r0498 local0 #31 -> sp | |
| jz sp ?l0002 | |
| mul g87 #01 -> sp | |
| add local1 sp -> sp | |
| get_prop_addr local0 #31 -> sp | |
| loadw sp sp -> sp | |
| print_paddr sp | |
| print " " | |
| jz local2 l0001 | |
| rtrue | |
| l0001: call_2n r0103 local0 | |
| rtrue | |
| l0002: call_2s r0062 local0 -> local3 | |
| jz local2 l0004 | |
| jl local3 #03 l0003 | |
| jl local3 #06 l0004 | |
| jl local3 #09 ~l0004 | |
| l0003: add local3 #03 -> local3 | |
| l0004: loadw #2e4b local3 -> local3 | |
| mul local3 #01 -> sp | |
| add g87 sp -> sp | |
| mul #0c sp -> sp | |
| add #2e33 sp -> local4 | |
| add local1 #03 -> sp | |
| loadw local4 sp -> sp | |
| loadw local4 local1 -> sp | |
| je sp sp l0005 | |
| store local5 #01 | |
| l0005: jz g0d ?l0008 | |
| jz local5 ?l0008 | |
| storew #2e63 #00 #a0 | |
| output_stream redirect_enable #2e63 | |
| jz local2 l0006 | |
| call_2n r0108 local2 | |
| jump l0007 | |
| l0006: call_2n r0103 local0 | |
| l0007: output_stream #fffd | |
| add #2e63 #02 -> sp | |
| call_2s r0004 sp -> sp | |
| mul #03 sp -> sp | |
| add local1 sp -> local1 | |
| l0008: loadw local4 local1 -> sp | |
| print_paddr sp | |
| jz local2 l0009 | |
| rtrue | |
| l0009: call_2n r0103 local0 | |
| rtrue | |
| Routine r0103, 1 local | |
| jz local0 ~l0001 | |
| print_paddr s034 | |
| rtrue | |
| l0001: call_vs r0504 local0 -> sp | |
| pull gef | |
| je gef #03 ~l0002 | |
| print "<routine " | |
| print_num local0 | |
| print ">" | |
| rtrue | |
| l0002: je gef #04 ~l0003 | |
| print "<string ~" | |
| print_paddr local0 | |
| print "~>" | |
| rtrue | |
| l0003: je gef #00 ~l0004 | |
| print "<illegal object number " | |
| print_num local0 | |
| print ">" | |
| rtrue | |
| l0004: je local0 g1b ~l0005 | |
| print_paddr s029 | |
| rtrue | |
| l0005: jz g64 l0006 | |
| get_prop_addr local0 #2f -> sp | |
| jz sp l0006 | |
| call_vs r0084 local0 #2f #01 -> sp | |
| jz sp ~rtrue | |
| l0006: get_prop_addr local0 #2e -> sp | |
| jz sp l0007 | |
| call_vs r0084 local0 #2e #01 -> sp | |
| jz sp ~rtrue | |
| l0007: print_obj local0 | |
| rtrue | |
| Routine r0104, 2 locals | |
| store local1 g64 | |
| store g64 #01 | |
| test_attr local0 #19 ~l0001 | |
| store g64 #ffff | |
| call_2n r0103 local0 | |
| rtrue | |
| l0001: call_vs r0498 local0 #25 -> sp | |
| jz sp l0002 | |
| call_vn r0084 local0 #25 #01 | |
| print " " | |
| call_2n r0103 local0 | |
| store g64 local1 | |
| rtrue | |
| l0002: call_vn r0102 local0 #02 | |
| store g64 local1 | |
| rtrue | |
| Routine r0105, 2 locals | |
| store local1 g64 | |
| store g64 #00 | |
| test_attr local0 #19 ~l0001 | |
| store g64 #ffff | |
| call_2n r0103 local0 | |
| store g64 local1 | |
| rtrue | |
| l0001: call_vn r0102 local0 #01 | |
| store g64 local1 | |
| rtrue | |
| Routine r0106, 2 locals | |
| store local1 g64 | |
| store g64 #00 | |
| test_attr local0 #19 ~l0001 | |
| store g64 #ffff | |
| call_2n r0103 local0 | |
| store g64 local1 | |
| rtrue | |
| l0001: call_vn r0102 local0 #00 | |
| store g64 local1 | |
| rtrue | |
| Routine r0107, 2 locals | |
| store local1 g64 | |
| store g64 #ffff | |
| call_2n r0103 local0 | |
| store g64 local1 | |
| rtrue | |
| Routine r0108, 1 local | |
| call_2n r0006 local0 | |
| rtrue | |
| Routine r0109, 3 locals | |
| loadw #2de1 #00 -> local2 | |
| store local1 #01 | |
| jump l0002 | |
| l0001: add local1 #02 -> local1 | |
| l0002: jg local1 local2 l0004 | |
| loadw #2de1 local1 -> sp | |
| je local0 sp ~l0003 | |
| add local1 #01 -> sp | |
| loadw #2de1 sp -> sp | |
| ret_popped | |
| l0003: jump l0001 | |
| l0004: rfalse | |
| Routine r0110, 1 local | |
| loadw local0 #00 -> sp | |
| jz sp ~l0001 | |
| call_2s r0114 #08 -> sp | |
| ret_popped | |
| l0001: loadw local0 #00 -> sp | |
| random sp -> sp | |
| loadw local0 sp -> sp | |
| ret_popped | |
| Routine r0111, 4 locals | |
| je local0 local1 ~l0001 | |
| rfalse | |
| l0001: jl local0 #00 ~l0002 | |
| jl local1 #00 l0002 | |
| rtrue | |
| l0002: jl local0 #00 l0003 | |
| jl local1 #00 ~l0003 | |
| ret #ffff | |
| l0003: and local0 #7fff -> local2 | |
| and local1 #7fff -> local3 | |
| jg local2 local3 ~l0004 | |
| rtrue | |
| l0004: ret #ffff | |
| Routine r0112, 1 local | |
| jz #0000 l0001 | |
| set_text_style boldface | |
| Warning: printing of nonexistent string | |
| print_paddr 0 | |
| set_text_style roman | |
| l0001: jz #40cb l0002 | |
| print_paddr s001 | |
| l0002: print "Release " | |
| loadw #00 #01 -> sp | |
| and sp #03ff -> sp | |
| print_num sp | |
| print " / Serial number " | |
| store local0 #12 | |
| l0003: jl local0 #18 ~l0004 | |
| loadb #00 local0 -> sp | |
| print_char sp | |
| inc local0 | |
| jump l0003 | |
| l0004: print " / Inform v" | |
| loadb #00 #3c -> gef | |
| print_char gef | |
| loadb #00 #3d -> gef | |
| print_char gef | |
| loadb #00 #3e -> gef | |
| print_char gef | |
| loadb #00 #3f -> gef | |
| print_char gef | |
| print " Library " | |
| print_paddr s003 | |
| new_line | |
| rtrue | |
| Routine r0113, 0 locals | |
| Action routine for: | |
| "version" | |
| call_1n r0112 | |
| jg g0d #00 ?~l0001 | |
| print "Standard interpreter " | |
| div g0d #0100 -> sp | |
| print_num sp | |
| print "." | |
| mod g0d #0100 -> sp | |
| print_num sp | |
| print " (" | |
| loadb #00 #1e -> sp | |
| print_num sp | |
| loadb #00 #1f -> sp | |
| print_char sp | |
| print ") / " | |
| jump l0002 | |
| l0001: print "Interpreter " | |
| loadb #00 #1e -> sp | |
| print_num sp | |
| print " Version " | |
| loadb #00 #1f -> sp | |
| print_char sp | |
| print " / " | |
| l0002: print "Library serial number " | |
| print_paddr s002 | |
| print "^" | |
| rtrue | |
| Routine r0114, 3 locals | |
| print "** Library error " | |
| print_num local0 | |
| print " (" | |
| print_num local1 | |
| print "," | |
| print_num local2 | |
| print_ret ") **" | |
| Routine r0115, 0 locals | |
| Action routine for: | |
| "places" | |
| call_1n r0140 | |
| rtrue | |
| Routine r0116, 0 locals | |
| Action routine for: | |
| "objects" | |
| call_1n r0141 | |
| rtrue | |
| Routine r0117, 2 locals | |
| l0001: get_sibling local0 -> local0 ~l0002 | |
| l0002: jz local0 ~l0003 | |
| rfalse | |
| l0003: jz g24 l0004 | |
| get_prop local0 #19 -> sp | |
| je sp g24 l0004 | |
| jump l0001 | |
| l0004: and g23 #0200 -> sp | |
| jz sp l0005 | |
| jz local1 ~l0005 | |
| test_attr local0 #22 l0005 | |
| jump l0001 | |
| l0005: and g23 #0800 -> sp | |
| jz sp l0007 | |
| test_attr local0 #0c l0006 | |
| test_attr local0 #1a ~l0007 | |
| l0006: jump l0001 | |
| l0007: ret local0 | |
| orphan code fragment: | |
| rtrue | |
| Routine r0118, 1 local | |
| and g23 #20 -> sp | |
| jz sp ~rtrue | |
| and g23 #10 -> sp | |
| jz sp rfalse | |
| test_attr local0 #20 rtrue | |
| test_attr local0 #1d rtrue | |
| test_attr local0 #0d ~l0001 | |
| test_attr local0 #17 rtrue | |
| l0001: rfalse | |
| Routine r0119, 2 locals | |
| get_child local0 -> sp ~l0001 | |
| l0001: jz sp l0002 | |
| call_2s r0118 local0 -> sp | |
| jz sp ~rfalse | |
| l0002: get_child local1 -> sp ~l0003 | |
| l0003: jz sp l0004 | |
| call_2s r0118 local1 -> sp | |
| jz sp ~rfalse | |
| l0004: and g23 #84 -> sp | |
| jz sp ?l0008 | |
| test_attr local0 #23 l0005 | |
| test_attr local1 #23 rfalse | |
| l0005: test_attr local1 #23 l0006 | |
| test_attr local0 #23 rfalse | |
| l0006: test_attr local0 #12 l0007 | |
| test_attr local1 #12 rfalse | |
| l0007: test_attr local1 #12 l0008 | |
| test_attr local0 #12 rfalse | |
| l0008: call_vs r0035 local0 local1 -> sp | |
| ret_popped | |
| Routine r0120, 2 locals | |
| l0001: get_child local0 -> sp ~l0002 | |
| l0002: jz sp ?l0008 | |
| get_child local0 -> sp ~l0003 | |
| l0003: get_prop sp #19 -> sp | |
| je sp local1 l0005 | |
| get_child local0 -> sp ~l0004 | |
| l0004: insert_obj sp "outside" | |
| jump l0007 | |
| l0005: get_child local0 -> sp ~l0006 | |
| l0006: insert_obj sp "inside" | |
| l0007: jump l0001 | |
| l0008: get_child "inside" -> sp ~l0009 | |
| l0009: jz sp l0011 | |
| get_child "inside" -> sp ~l0010 | |
| l0010: insert_obj sp local0 | |
| jump l0008 | |
| l0011: get_child "outside" -> sp ~l0012 | |
| l0012: jz sp l0014 | |
| get_child "outside" -> sp ~l0013 | |
| l0013: insert_obj sp local0 | |
| jump l0011 | |
| l0014: rtrue | |
| Routine r0121, 4 locals | |
| l0001: store local1 local0 | |
| jump l0003 | |
| l0002: get_sibling local1 -> local1 ~l0003 | |
| l0003: jz local1 ?l0013 | |
| get_prop local1 #19 -> local2 | |
| jz local2 ?l0012 | |
| get_sibling local1 -> local1 ~l0004 | |
| l0004: jz local1 l0006 | |
| get_prop local1 #19 -> sp | |
| je sp local2 ~l0006 | |
| get_sibling local1 -> local1 ~l0005 | |
| l0005: jump l0004 | |
| l0006: jz local1 rfalse | |
| get_sibling local1 -> local3 ~l0007 | |
| l0007: jump l0009 | |
| l0008: get_sibling local3 -> local3 ~l0009 | |
| l0009: jz local3 ?l0012 | |
| get_prop local3 #19 -> sp | |
| je sp local2 ~l0011 | |
| get_parent local0 -> sp | |
| call_vn r0120 sp local2 | |
| get_parent local0 -> sp | |
| get_child sp -> local0 ~l0010 | |
| l0010: jump l0001 | |
| l0011: jump l0008 | |
| l0012: jump l0002 | |
| l0013: rtrue | |
| Routine r0122, 1 local | |
| jz local0 ~l0001 | |
| rtrue | |
| l0001: store gef local0 | |
| jl gef #01 l0003 | |
| l0002: print_char ' ' | |
| dec gef | |
| jz gef ?~l0002 | |
| l0003: rtrue | |
| Routine r0123, 3 locals | |
| get_parent local0 -> sp | |
| get_child sp -> sp ~l0001 | |
| l0001: je local0 sp ~l0002 | |
| call_2n r0121 local0 | |
| get_parent local0 -> sp | |
| get_child sp -> local0 ~l0002 | |
| l0002: store g23 local1 | |
| store g27 #00 | |
| call_vn r0124 local0 local2 | |
| rtrue | |
| Routine r0124, 15 locals | |
| jg local1 #00 ~l0002 | |
| get_parent local0 -> sp | |
| get_child sp -> sp ~l0001 | |
| l0001: je local0 sp ~l0002 | |
| call_2n r0121 local0 | |
| get_parent local0 -> sp | |
| get_child sp -> local0 ~l0002 | |
| l0002: jz local0 rfalse | |
| and g23 #0200 -> sp | |
| jz sp l0004 | |
| jz local1 ~l0004 | |
| test_attr local0 #22 l0004 | |
| get_sibling local0 -> local0 ~l0003 | |
| l0003: jump l0002 | |
| l0004: and g23 #0800 -> sp | |
| jz sp l0007 | |
| test_attr local0 #0c l0005 | |
| test_attr local0 #1a ~l0007 | |
| l0005: get_sibling local0 -> local0 ~l0006 | |
| l0006: jump l0002 | |
| l0007: jump l0008 | |
| l0008: add #2a00 local2 -> local3 | |
| add #2980 local2 -> local4 | |
| store local5 local0 | |
| store local6 #00 | |
| jump l0010 | |
| l0009: call_vs r0117 local5 local1 -> local5 | |
| inc local6 | |
| l0010: jz local5 l0012 | |
| add local6 local2 -> sp | |
| jl sp #80 ~l0012 | |
| storeb local3 local6 #00 | |
| get_prop local5 #17 -> sp | |
| jz sp l0011 | |
| inc local7 | |
| l0011: jump l0009 | |
| l0012: and g23 #0400 -> sp | |
| jz sp ?l0017 | |
| je local6 #01 ~l0013 | |
| test_attr local0 #27 l0013 | |
| print_paddr s035 | |
| jump l0014 | |
| l0013: print_paddr s036 | |
| l0014: and g23 #01 -> sp | |
| jz sp l0015 | |
| print ":^" | |
| jump l0016 | |
| l0015: print_char ' ' | |
| l0016: sub g23 #0400 -> g23 | |
| l0017: add local2 local6 -> sp | |
| add sp #01 -> local2 | |
| jl local7 #02 ~l0018 | |
| jump l0068 | |
| l0018: store local11 #01 | |
| store local5 local0 | |
| store local7 #00 | |
| jump l0020 | |
| l0019: call_vs r0117 local5 local1 -> local5 | |
| inc local7 | |
| l0020: jl local7 local6 ?~l0026 | |
| loadb local3 local7 -> sp | |
| jz sp ?~l0025 | |
| storeb local3 local7 local11 | |
| storeb local4 local11 #01 | |
| call_vs r0117 local5 local1 -> local9 | |
| add local7 #01 -> local10 | |
| jump l0022 | |
| l0021: call_vs r0117 local9 local1 -> local9 | |
| inc local10 | |
| l0022: jz local9 ?l0024 | |
| jl local10 local6 ?~l0024 | |
| loadb local3 local10 -> sp | |
| jz sp ?~l0023 | |
| get_prop local5 #17 -> sp | |
| jz sp ?l0023 | |
| get_prop local9 #17 -> sp | |
| jz sp ?l0023 | |
| call_vs r0119 local5 local9 -> sp | |
| je sp #01 ~l0023 | |
| loadb local4 local11 -> sp | |
| add sp #01 -> sp | |
| storeb local4 local11 sp | |
| storeb local3 local10 local11 | |
| l0023: jump l0021 | |
| l0024: inc local11 | |
| l0025: jump l0019 | |
| l0026: dec local11 | |
| store local5 #01 | |
| store local6 local0 | |
| store local7 #00 | |
| jump l0028 | |
| l0027: inc local5 | |
| inc local13 | |
| l0028: jg local5 local11 ?l0032 | |
| l0029: loadb local3 local7 -> sp | |
| je sp local5 l0030 | |
| sub #00 local5 -> sp | |
| loadb local3 local7 -> sp | |
| je sp sp l0030 | |
| inc local7 | |
| call_vs r0117 local6 local1 -> local6 | |
| jump l0029 | |
| l0030: loadb local4 local5 -> local10 | |
| get_prop local6 #19 -> sp | |
| je sp #00 g24 l0031 | |
| get_prop local6 #19 -> sp | |
| call_2s r0083 sp -> sp | |
| je sp #02 #03 ~l0031 | |
| get_prop local6 #19 -> sp | |
| je sp local14 ~l0031 | |
| dec local13 | |
| l0031: get_prop local6 #19 -> local14 | |
| jump l0027 | |
| l0032: dec local13 | |
| store local5 #01 | |
| store local6 local0 | |
| store local7 #00 | |
| store local14 #00 | |
| jump l0034 | |
| l0033: inc local5 | |
| dec local13 | |
| l0034: jl local13 #00 ?l0067 | |
| l0035: loadb local3 local7 -> sp | |
| je sp local5 l0036 | |
| sub #00 local5 -> sp | |
| loadb local3 local7 -> sp | |
| je sp sp l0036 | |
| inc local7 | |
| call_vs r0117 local6 local1 -> local6 | |
| jump l0035 | |
| l0036: get_prop local6 #19 -> sp | |
| je sp #00 g24 ?l0056 | |
| get_prop local6 #19 -> sp | |
| je sp local14 ~l0037 | |
| inc local13 | |
| jump l0066 | |
| l0037: call_vs r0117 local6 local1 -> local8 | |
| jz local8 l0038 | |
| get_prop local6 #19 -> sp | |
| get_prop local8 #19 -> sp | |
| je sp sp l0039 | |
| l0038: jump l0056 | |
| l0039: get_prop local6 #19 -> sp | |
| call_2s r0083 sp -> local8 | |
| je local8 #02 #03 ?~l0056 | |
| store local12 local6 | |
| store g26 #01 | |
| store local9 local7 | |
| store local10 local5 | |
| l0040: jl local10 local11 ?~l0044 | |
| get_prop local6 #19 -> sp | |
| get_prop local12 #19 -> sp | |
| je sp sp ?~l0044 | |
| inc local10 | |
| l0041: loadb local3 local9 -> sp | |
| je sp local10 l0042 | |
| sub #00 local10 -> sp | |
| loadb local3 local9 -> sp | |
| je sp sp l0042 | |
| inc local9 | |
| call_vs r0117 local12 local1 -> local12 | |
| jump l0041 | |
| l0042: get_prop local6 #19 -> sp | |
| get_prop local12 #19 -> sp | |
| je sp sp ~l0043 | |
| inc g26 | |
| l0043: jump l0040 | |
| l0044: je g26 #01 ~l0045 | |
| jump l0056 | |
| l0045: and g23 #02 -> sp | |
| jz sp l0046 | |
| add local1 g27 -> sp | |
| mul #02 sp -> sp | |
| call_2n r0122 sp | |
| l0046: je local8 #03 ?~l0050 | |
| store local12 #00 | |
| store local9 #00 | |
| l0047: jl local9 g26 ~l0048 | |
| add local9 local5 -> sp | |
| loadb local4 sp -> sp | |
| add local12 sp -> local12 | |
| inc local9 | |
| jump l0047 | |
| l0048: call_2n r0108 local12 | |
| print " " | |
| get_prop local6 #19 -> sp | |
| print_paddr sp | |
| and g23 #08 -> sp | |
| jz sp l0049 | |
| print " (" | |
| l0049: and g23 #02 -> sp | |
| jz sp l0050 | |
| print ":^" | |
| l0050: store local12 g23 | |
| je local8 #03 l0051 | |
| store g28 #01 | |
| store g3b local6 | |
| add local1 g27 -> g3c | |
| call_vs r0086 local6 #19 -> sp | |
| je sp #01 ~l0051 | |
| jump l0054 | |
| l0051: get_prop local6 #19 -> g24 | |
| store g25 local6 | |
| inc g27 | |
| call_vn r0124 local6 local1 local2 | |
| dec g27 | |
| store g24 #00 | |
| store g25 #00 | |
| je local8 #03 ~l0053 | |
| and local12 #08 -> sp | |
| jz sp l0052 | |
| print ")" | |
| l0052: jump l0054 | |
| l0053: store g28 #02 | |
| store g3b local6 | |
| add local1 g27 -> g3c | |
| call_vn r0086 local6 #19 | |
| l0054: and local12 #01 -> sp | |
| jz sp l0055 | |
| and g23 #01 -> sp | |
| jz sp ~l0055 | |
| new_line | |
| l0055: store g23 local12 | |
| get_prop local6 #19 -> local14 | |
| jump l0064 | |
| l0056: sub #00 local13 -> sp | |
| call_vs r0125 local6 local1 sp -> sp | |
| je sp #01 ~l0057 | |
| jump l0066 | |
| l0057: loadb local4 local5 -> sp | |
| je sp #01 ?~l0061 | |
| and g23 #1000 -> sp | |
| jz sp l0058 | |
| call_2n r0107 local6 | |
| jump l0060 | |
| l0058: and g23 #0100 -> sp | |
| jz sp l0059 | |
| call_2n r0105 local6 | |
| jump l0060 | |
| l0059: call_2n r0104 local6 | |
| l0060: jump l0063 | |
| l0061: and g23 #0100 -> sp | |
| jz sp l0062 | |
| loadb local4 local5 -> sp | |
| call_vn r0102 local6 #01 sp | |
| l0062: loadb local4 local5 -> sp | |
| call_2n r0108 sp | |
| print " " | |
| call_vn r0084 local6 #17 #01 | |
| l0063: call_vn r0126 local6 local1 local2 | |
| l0064: and g23 #08 -> sp | |
| jz sp l0066 | |
| je local13 #01 ~l0065 | |
| print_paddr s039 | |
| l0065: jg local13 #01 ~l0066 | |
| print ", " | |
| l0066: jump l0033 | |
| l0067: rtrue | |
| l0068: store local11 local6 | |
| store local5 #01 | |
| store local6 local0 | |
| jump l0070 | |
| l0069: call_vs r0117 local6 local1 -> local6 | |
| inc local5 | |
| inc local13 | |
| l0070: jg local5 local11 ?l0072 | |
| get_prop local6 #19 -> sp | |
| je sp #00 g24 l0071 | |
| get_prop local6 #19 -> sp | |
| call_2s r0083 sp -> sp | |
| je sp #02 #03 ~l0071 | |
| get_prop local6 #19 -> sp | |
| je sp local14 ~l0071 | |
| dec local13 | |
| l0071: get_prop local6 #19 -> local14 | |
| jump l0069 | |
| l0072: store local5 #01 | |
| store local6 local0 | |
| store local14 #00 | |
| jump l0074 | |
| l0073: call_vs r0117 local6 local1 -> local6 | |
| inc local5 | |
| l0074: jg local5 local13 ?l0095 | |
| get_prop local6 #19 -> sp | |
| je sp #00 g24 ?l0087 | |
| get_prop local6 #19 -> sp | |
| je sp local14 ~l0075 | |
| dec local5 | |
| jump l0094 | |
| l0075: call_vs r0117 local6 local1 -> local7 | |
| jz local7 l0076 | |
| get_prop local6 #19 -> sp | |
| get_prop local7 #19 -> sp | |
| je sp sp l0077 | |
| l0076: jump l0087 | |
| l0077: get_prop local6 #19 -> sp | |
| call_2s r0083 sp -> local7 | |
| je local7 #02 #03 ?~l0087 | |
| and g23 #02 -> sp | |
| jz sp l0078 | |
| add local1 g27 -> sp | |
| mul #02 sp -> sp | |
| call_2n r0122 sp | |
| l0078: je local7 #03 ?~l0081 | |
| store local12 local6 | |
| store local9 #00 | |
| l0079: call_vs r0117 local12 local1 -> local12 | |
| inc local9 | |
| get_prop local6 #19 -> sp | |
| get_prop local12 #19 -> sp | |
| je sp sp ?l0079 | |
| call_2n r0108 local9 | |
| print " " | |
| get_prop local6 #19 -> sp | |
| print_paddr sp | |
| and g23 #08 -> sp | |
| jz sp l0080 | |
| print " (" | |
| l0080: and g23 #02 -> sp | |
| jz sp l0081 | |
| print ":^" | |
| l0081: store local12 g23 | |
| je local7 #03 l0082 | |
| store g28 #01 | |
| store g3b local6 | |
| add local1 g27 -> g3c | |
| call_vs r0086 local6 #19 -> sp | |
| je sp #01 ~l0082 | |
| jump l0085 | |
| l0082: get_prop local6 #19 -> g24 | |
| store g25 local6 | |
| inc g27 | |
| call_vn r0124 local6 local1 local2 | |
| dec g27 | |
| store g24 #00 | |
| store g25 #00 | |
| je local7 #03 ~l0084 | |
| and local12 #08 -> sp | |
| jz sp l0083 | |
| print ")" | |
| l0083: jump l0085 | |
| l0084: store g28 #02 | |
| store g3b local6 | |
| add local1 g27 -> g3c | |
| call_vn r0086 local6 #19 | |
| l0085: and local12 #01 -> sp | |
| jz sp l0086 | |
| and g23 #01 -> sp | |
| jz sp ~l0086 | |
| new_line | |
| l0086: store g23 local12 | |
| get_prop local6 #19 -> local14 | |
| jump l0092 | |
| l0087: sub local5 local13 -> sp | |
| call_vs r0125 local6 local1 sp -> sp | |
| je sp #01 ~l0088 | |
| jump l0094 | |
| l0088: and g23 #1000 -> sp | |
| jz sp l0089 | |
| call_2n r0107 local6 | |
| jump l0091 | |
| l0089: and g23 #0100 -> sp | |
| jz sp l0090 | |
| call_2n r0105 local6 | |
| jump l0091 | |
| l0090: call_2n r0104 local6 | |
| l0091: call_vn r0126 local6 local1 local2 | |
| l0092: and g23 #08 -> sp | |
| jz sp l0094 | |
| sub local13 #01 -> sp | |
| je local5 sp ~l0093 | |
| print_paddr s039 | |
| l0093: sub local13 #01 -> sp | |
| jl local5 sp ~l0094 | |
| print ", " | |
| l0094: jump l0073 | |
| l0095: rtrue | |
| Routine r0125, 4 locals | |
| and g23 #02 -> sp | |
| jz sp l0001 | |
| add local1 g27 -> sp | |
| mul #02 sp -> sp | |
| call_2n r0122 sp | |
| l0001: and g23 #04 -> sp | |
| jz sp ?l0004 | |
| get_prop local0 #16 -> sp | |
| jz sp ?l0004 | |
| store g28 #01 | |
| call_vs r0084 local0 #16 #01 -> local3 | |
| je local3 #01 ?~l0004 | |
| and g23 #08 -> sp | |
| jz sp l0003 | |
| je local2 #ffff ~l0002 | |
| print_paddr s039 | |
| l0002: jl local2 #ffff ~l0003 | |
| print ", " | |
| l0003: and g23 #01 -> sp | |
| jz sp l0004 | |
| new_line | |
| l0004: ret local3 | |
| Routine r0126, 8 locals | |
| and g23 #80 -> sp | |
| jz sp ?l0012 | |
| store local7 #00 | |
| test_attr local0 #12 ~l0001 | |
| test_attr g09 #12 l0001 | |
| add local7 #01 -> local7 | |
| l0001: test_attr local0 #0d ~l0002 | |
| test_attr local0 #17 l0002 | |
| add local7 #02 -> local7 | |
| l0002: test_attr local0 #0d ~l0005 | |
| test_attr local0 #17 l0003 | |
| test_attr local0 #20 ~l0005 | |
| l0003: get_child local0 -> sp ~l0004 | |
| l0004: jz sp ~l0005 | |
| add local7 #04 -> local7 | |
| l0005: je local7 #01 ~l0006 | |
| call_vn r0241 #1006 #01 local0 | |
| l0006: je local7 #02 ~l0007 | |
| call_vn r0241 #1006 #02 local0 | |
| l0007: je local7 #03 ~l0008 | |
| call_vn r0241 #1006 #03 local0 | |
| l0008: je local7 #04 ~l0009 | |
| call_vn r0241 #1006 #04 local0 | |
| l0009: je local7 #05 ~l0010 | |
| call_vn r0241 #1006 #05 local0 | |
| l0010: je local7 #06 ~l0011 | |
| call_vn r0241 #1006 #06 local0 | |
| l0011: je local7 #07 ~l0012 | |
| call_vn r0241 #1006 #07 local0 | |
| l0012: and g23 #04 -> sp | |
| jz sp ?l0030 | |
| get_prop local0 #16 -> sp | |
| jz sp l0014 | |
| store g28 #02 | |
| call_vs r0086 local0 #16 -> sp | |
| jz sp l0014 | |
| and g23 #01 -> sp | |
| jz sp l0013 | |
| new_line | |
| l0013: rtrue | |
| l0014: test_attr local0 #12 ~l0015 | |
| test_attr local0 #23 ~l0015 | |
| call_vn r0241 #1006 #08 | |
| store local4 #01 | |
| jump l0017 | |
| l0015: test_attr local0 #12 ~l0016 | |
| call_vn r0241 #1006 #09 local0 | |
| store local4 #01 | |
| l0016: test_attr local0 #23 ~l0017 | |
| call_vn r0241 #1006 #0a local0 | |
| store local4 #01 | |
| l0017: test_attr local0 #0d ?~l0029 | |
| test_attr local0 #18 ?~l0026 | |
| je local4 #01 ~l0018 | |
| print_paddr s039 | |
| jump l0019 | |
| l0018: call_vn r0241 #1006 #0b local0 | |
| l0019: test_attr local0 #17 ?~l0023 | |
| get_child local0 -> sp ~l0020 | |
| l0020: jz sp ~l0021 | |
| call_vn r0241 #1006 #0d local0 | |
| jump l0022 | |
| l0021: call_vn r0241 #1006 #0c local0 | |
| l0022: jump l0025 | |
| l0023: test_attr local0 #13 ~l0024 | |
| test_attr local0 #14 ~l0024 | |
| call_vn r0241 #1006 #0f local0 | |
| jump l0025 | |
| l0024: call_vn r0241 #1006 #0e local0 | |
| l0025: store local4 #01 | |
| jump l0029 | |
| l0026: get_child local0 -> sp ~l0027 | |
| l0027: jz sp ~l0029 | |
| test_attr local0 #20 ~l0029 | |
| je local4 #01 ~l0028 | |
| call_vn r0241 #1006 #10 local0 | |
| jump l0029 | |
| l0028: call_vn r0241 #1006 #11 local0 | |
| l0029: je local4 #01 ~l0030 | |
| print ")" | |
| l0030: and g23 #0800 -> sp | |
| jz sp ~l0034 | |
| store gef #00 | |
| get_child local0 -> sp ~l0032 | |
| l0031: inc gef | |
| get_sibling sp -> sp ?l0031 | |
| l0032: pull gee | |
| store local5 gef | |
| get_child local0 -> local4 ~l0033 | |
| l0033: jump l0038 | |
| l0034: store local5 #00 | |
| get_child local0 -> sp ~l0035 | |
| l0035: pull local6 | |
| jz local6 l0038 | |
| l0036: test_attr local6 #0c l0037 | |
| test_attr local6 #1a l0037 | |
| inc local5 | |
| store local4 local6 | |
| l0037: get_sibling local6 -> local6 ?l0036 | |
| l0038: and g23 #20 -> sp | |
| jz sp l0040 | |
| jg local5 #00 ~l0040 | |
| and g23 #08 -> sp | |
| jz sp l0039 | |
| call_vn r0241 #1006 #12 local0 | |
| l0039: store local3 #01 | |
| l0040: and g23 #10 -> sp | |
| jz sp ?l0051 | |
| jg local5 #00 ?~l0051 | |
| test_attr local0 #1d ?~l0045 | |
| and g23 #08 -> sp | |
| jz sp ?l0044 | |
| and g23 #40 -> sp | |
| jz sp l0041 | |
| call_vn r0241 #1006 #13 local0 | |
| jump l0042 | |
| l0041: call_vn r0241 #1006 #14 local0 | |
| l0042: test_attr local0 #09 ~l0043 | |
| print_paddr s040 | |
| jump l0044 | |
| l0043: print_paddr s041 | |
| l0044: store local3 #01 | |
| l0045: test_attr local0 #0d ?~l0051 | |
| test_attr local0 #17 l0046 | |
| test_attr local0 #20 ?~l0051 | |
| l0046: and g23 #08 -> sp | |
| jz sp ?l0050 | |
| and g23 #40 -> sp | |
| jz sp l0047 | |
| call_vn r0241 #1006 #15 local0 | |
| jump l0048 | |
| l0047: call_vn r0241 #1006 #16 local0 | |
| l0048: test_attr local0 #09 ~l0049 | |
| print_paddr s040 | |
| jump l0050 | |
| l0049: print_paddr s041 | |
| l0050: store local3 #01 | |
| l0051: je local3 #01 ~l0054 | |
| and g23 #08 -> sp | |
| jz sp l0054 | |
| jg local5 #01 l0052 | |
| test_attr local4 #27 ~l0053 | |
| l0052: print_paddr s038 | |
| jump l0054 | |
| l0053: print_paddr s037 | |
| l0054: and g23 #01 -> sp | |
| jz sp l0055 | |
| new_line | |
| l0055: je local3 #01 ~l0057 | |
| get_child local0 -> local0 ~l0056 | |
| l0056: add local1 #01 -> sp | |
| call_vn r0124 local0 sp local2 | |
| and g23 #40 -> sp | |
| jz sp l0057 | |
| print ")" | |
| l0057: rtrue | |
| Routine r0127, 6 locals | |
| store local0 #01 | |
| l0001: get_prop_addr local0 #27 -> local4 | |
| jz local4 ?l0010 | |
| test_attr local0 #0a ?l0010 | |
| loadw local4 #00 -> sp | |
| call_2s r0083 sp -> sp | |
| je sp #02 ~l0004 | |
| call_vs r0494 local0 #27 -> sp | |
| jz sp l0002 | |
| insert_obj local0 g09 | |
| jump l0003 | |
| l0002: remove_obj local0 | |
| l0003: jump l0010 | |
| l0004: get_prop_addr local0 #27 -> gef | |
| jz gef l0005 | |
| get_prop_len gef -> gef | |
| l0005: store local1 gef | |
| store local2 #00 | |
| l0006: div local1 #02 -> sp | |
| jl local2 sp ~l0009 | |
| loadw local4 local2 -> local3 | |
| je local3 g09 l0007 | |
| jin local3 g09 ~l0008 | |
| l0007: insert_obj local0 g09 | |
| store local5 #01 | |
| l0008: inc local2 | |
| jump l0006 | |
| l0009: jz local5 ~l0010 | |
| remove_obj local0 | |
| l0010: inc local0 | |
| jg local0 #00c6 l0011 | |
| jump l0001 | |
| l0011: rtrue | |
| Routine r0128, 2 locals | |
| insert_obj g1b local0 | |
| l0001: get_parent local0 -> sp | |
| jz sp l0002 | |
| get_parent local0 -> local0 | |
| jump l0001 | |
| l0002: store g09 local0 | |
| store g1e g09 | |
| call_1n r0127 | |
| call_2n r0095 #01 | |
| jz local1 ~l0003 | |
| call_2n r0076 #1f | |
| l0003: je local1 #01 ~l0004 | |
| call_1n r0178 | |
| call_1n r0179 | |
| l0004: je local1 #02 ~l0005 | |
| call_2n r0180 #01 | |
| l0005: rtrue | |
| Routine r0129, 1 local | |
| call_vn r0076 #1b local0 | |
| call_2n r0076 #1f | |
| rtrue | |
| Routine r0130, 1 local | |
| l0001: store gec #2b00 | |
| storeb gec #01 #00 | |
| call_1n r0099 | |
| read gec #2b79 -> gef | |
| loadw #2b79 #01 -> local0 | |
| je local0 "y" "yes" "yes" rtrue | |
| je local0 "n" "no" "no" rfalse | |
| call_vn r0241 #01 #01 | |
| print "> " | |
| jump l0001 | |
| orphan code fragment: | |
| rtrue | |
| Routine r0131, 0 locals | |
| Action routine for: | |
| "die" | |
| call_vn r0241 #01 #02 | |
| call_1s r0130 -> sp | |
| jz sp l0001 | |
| quit | |
| l0001: rtrue | |
| Routine r0132, 0 locals | |
| Action routine for: | |
| "restart" | |
| call_vn r0241 #02 #01 | |
| call_1s r0130 -> sp | |
| jz sp l0001 | |
| restart | |
| call_vn r0241 #02 #02 | |
| l0001: rtrue | |
| Routine r0133, 0 locals | |
| Action routine for: | |
| "restore" | |
| restore -> gef | |
| je gef #02 l0001 | |
| call_vs r0241 #03 #01 -> sp | |
| ret_popped | |
| l0001: call_vn r0241 #03 #02 | |
| rtrue | |
| Routine r0134, 0 locals | |
| Action routine for: | |
| "save" | |
| save -> gef | |
| jz gef ~l0001 | |
| call_vs r0241 #04 #01 -> sp | |
| ret_popped | |
| l0001: call_vn r0241 #04 #02 | |
| rtrue | |
| Routine r0135, 0 locals | |
| Action routine for: | |
| "verify" | |
| verify l0001 | |
| jump l0002 | |
| l0001: call_vs r0241 #05 #01 -> sp | |
| ret_popped | |
| l0002: call_vn r0241 #05 #02 | |
| rtrue | |
| Routine r0136, 0 locals | |
| Action routine for: | |
| "script" | |
| "script on" | |
| loadw #00 #08 -> sp | |
| and sp #01 -> g10 | |
| jz g10 l0001 | |
| call_vs r0241 #06 #01 -> sp | |
| ret_popped | |
| l0001: output_stream scripting_enable | |
| loadw #00 #08 -> sp | |
| and sp #01 -> sp | |
| jz sp ~l0002 | |
| call_vs r0241 #06 #03 -> sp | |
| ret_popped | |
| l0002: call_vn r0241 #06 #02 | |
| call_1n r0113 | |
| store g10 #01 | |
| rtrue | |
| Routine r0137, 0 locals | |
| Action routine for: | |
| "script off" | |
| "noscript" | |
| loadw #00 #08 -> sp | |
| and sp #01 -> g10 | |
| jz g10 ~l0001 | |
| call_vs r0241 #07 #01 -> sp | |
| ret_popped | |
| l0001: call_vn r0241 #07 #02 | |
| output_stream #fffe | |
| loadw #00 #08 -> sp | |
| and sp #01 -> sp | |
| jz sp l0002 | |
| call_vs r0241 #07 #03 -> sp | |
| ret_popped | |
| l0002: store g10 #00 | |
| rtrue | |
| Routine r0138, 0 locals | |
| Action routine for: | |
| "notify on" | |
| store g18 #01 | |
| call_2n r0241 #08 | |
| rtrue | |
| Routine r0139, 0 locals | |
| Action routine for: | |
| "notify off" | |
| store g18 #00 | |
| call_2n r0241 #09 | |
| rtrue | |
| Routine r0140, 3 locals | |
| call_2n r0241 #0a | |
| store local0 #01 | |
| l0001: test_attr local0 #21 ~l0002 | |
| inc local1 | |
| l0002: inc local0 | |
| jg local0 #00c6 l0003 | |
| jump l0001 | |
| l0003: store local0 #01 | |
| l0004: test_attr local0 #21 ?~l0007 | |
| call_2n r0107 local0 | |
| inc local2 | |
| je local2 local1 ~l0005 | |
| print_ret "." | |
| l0005: sub local1 #01 -> sp | |
| je local2 sp ~l0006 | |
| print_paddr s039 | |
| jump l0007 | |
| l0006: print ", " | |
| l0007: inc local0 | |
| jg local0 #00c6 l0008 | |
| jump l0004 | |
| l0008: rtrue | |
| Routine r0141, 3 locals | |
| call_vn r0241 #0b #01 | |
| store local0 #01 | |
| l0001: test_attr local0 #15 ?~l0011 | |
| store local2 #01 | |
| call_2n r0105 local0 | |
| get_parent local0 -> local1 | |
| je local1 g1b ~l0004 | |
| test_attr local0 #23 ~l0002 | |
| call_vn r0241 #0b #03 | |
| jump l0003 | |
| l0002: call_vn r0241 #0b #04 | |
| l0003: jump l0010 | |
| l0004: test_attr local1 #09 ~l0005 | |
| call_vn r0241 #0b #05 | |
| jump l0010 | |
| l0005: test_attr local1 #21 ~l0006 | |
| call_vn r0241 #0b #06 local1 | |
| jump l0010 | |
| l0006: test_attr local1 #0d ~l0007 | |
| call_vn r0241 #0b #08 local1 | |
| jump l0010 | |
| l0007: test_attr local1 #1d ~l0008 | |
| call_vn r0241 #0b #09 local1 | |
| jump l0010 | |
| l0008: test_attr local1 #10 ~l0009 | |
| call_vn r0241 #0b #07 local1 | |
| jump l0010 | |
| l0009: call_vn r0241 #0b #0a | |
| l0010: new_line | |
| l0011: inc local0 | |
| jg local0 #00c6 l0012 | |
| jump l0001 | |
| l0012: jz local2 ~l0013 | |
| call_vn r0241 #0b #02 | |
| l0013: rtrue | |
| Routine r0142, 0 locals | |
| Action routine for: | |
| "score" | |
| call_2n r0241 #0c | |
| call_1n r0489 | |
| rtrue | |
| Routine r0143, 1 local | |
| loadb #2fa9 local0 -> sp | |
| jz sp ~l0001 | |
| storeb #2fa9 local0 #01 | |
| loadb #2fa5 local0 -> sp | |
| add g16 sp -> g16 | |
| l0001: rtrue | |
| Routine r0144, 2 locals | |
| print " " | |
| store local1 local0 | |
| jl local1 #00 ~l0001 | |
| sub #00 local0 -> local1 | |
| mul local1 #0a -> local1 | |
| l0001: jl local1 #0a ~l0002 | |
| print " " | |
| jump l0004 | |
| l0002: jl local1 #64 ~l0003 | |
| print " " | |
| jump l0004 | |
| l0003: jl local1 #03e8 ~l0004 | |
| print " " | |
| l0004: print_num local0 | |
| print " " | |
| rtrue | |
| Routine r0145, 1 local | |
| Action routine for: | |
| "full" | |
| "full score" | |
| call_1n r0142 | |
| jz g16 rfalse | |
| jz #01 ~rfalse | |
| new_line | |
| call_vn r0241 #0d #01 | |
| store local0 #00 | |
| l0001: jl local0 #01 ?~l0003 | |
| loadb #2fa9 local0 -> sp | |
| je sp #01 ~l0002 | |
| loadb #2fa5 local0 -> sp | |
| call_2n r0144 sp | |
| call_2n r0482 local0 | |
| l0002: inc local0 | |
| jump l0001 | |
| l0003: jz g1a l0004 | |
| call_2n r0144 g1a | |
| call_vn r0241 #0d #02 | |
| l0004: jz g19 l0005 | |
| call_2n r0144 g19 | |
| call_vn r0241 #0d #03 | |
| l0005: new_line | |
| call_2n r0144 g16 | |
| call_vn r0241 #0d #04 | |
| rtrue | |
| Routine r0146, 0 locals | |
| Action routine for: | |
| "i wide" | |
| store g29 #1c | |
| call_2n r0076 #0e | |
| rtrue | |
| Routine r0147, 0 locals | |
| Action routine for: | |
| "i tall" | |
| store g29 #17 | |
| call_2n r0076 #0e | |
| rtrue | |
| Routine r0148, 1 local | |
| Action routine for: | |
| "carry inventory" | |
| "i" | |
| get_child g1b -> sp ~l0001 | |
| l0001: jz sp ~l0002 | |
| call_vs r0241 #0e #01 -> sp | |
| ret_popped | |
| l0002: jz g29 ~l0003 | |
| call_1s r0147 -> sp | |
| ret_popped | |
| l0003: call_vn r0241 #0e #02 | |
| and g29 #01 -> sp | |
| jz sp l0004 | |
| print ":^" | |
| jump l0005 | |
| l0004: print " " | |
| l0005: get_child g1b -> sp ~l0006 | |
| l0006: call_vn r0123 sp g29 #01 | |
| and g29 #08 -> sp | |
| jz sp l0007 | |
| print ".^" | |
| l0007: get_child g1b -> sp ~l0008 | |
| l0008: pull local0 | |
| jz local0 l0010 | |
| l0009: call_2n r0072 local0 | |
| get_sibling local0 -> local0 ?l0009 | |
| l0010: call_1n r0081 | |
| rtrue | |
| Routine r0149, 4 locals | |
| store local2 local0 | |
| l0001: jz local2 l0005 | |
| store local3 local1 | |
| l0002: jz local3 l0004 | |
| je local3 local2 ~l0003 | |
| ret local2 | |
| l0003: get_parent local3 -> local3 | |
| jump l0002 | |
| l0004: get_parent local2 -> local2 | |
| jump l0001 | |
| l0005: rfalse | |
| Routine r0150, 2 locals | |
| l0001: jz local1 l0002 | |
| je local0 local1 rtrue | |
| get_parent local1 -> local1 | |
| jump l0001 | |
| l0002: rfalse | |
| Routine r0151, 6 locals | |
| store local1 local0 | |
| l0001: get_parent local1 -> sp | |
| jz sp l0002 | |
| get_parent local1 -> local1 | |
| jump l0001 | |
| l0002: store local2 #01 | |
| l0003: get_prop_addr local2 #18 -> sp | |
| jz sp ?l0008 | |
| get_prop_addr local2 #18 -> local4 | |
| get_prop_addr local2 #18 -> gef | |
| jz gef l0004 | |
| get_prop_len gef -> gef | |
| l0004: push gef | |
| div sp #02 -> local3 | |
| loadw local4 #00 -> sp | |
| call_vs r0499 sp #03 -> sp | |
| jz sp l0005 | |
| jump l0008 | |
| l0005: store local5 #00 | |
| l0006: jl local5 local3 ~l0008 | |
| loadw local4 local5 -> sp | |
| je sp local1 ~l0007 | |
| ret local2 | |
| l0007: inc local5 | |
| jump l0006 | |
| l0008: inc local2 | |
| jg local2 #00c6 l0009 | |
| jump l0003 | |
| l0009: rfalse | |
| Routine r0152, 5 locals | |
| call_2s r0151 local0 -> local4 | |
| jz local4 l0001 | |
| call_2s r0152 local4 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: call_vs r0149 g1b local0 -> local3 | |
| je g1b local3 ?l0004 | |
| get_parent g1b -> local4 | |
| l0002: je local4 local3 l0004 | |
| test_attr local4 #0d ~l0003 | |
| test_attr local4 #17 l0003 | |
| jz local1 ~rtrue | |
| call_vs r0241 #0f #09 local4 -> sp | |
| ret_popped | |
| l0003: get_parent local4 -> local4 | |
| jump l0002 | |
| l0004: je local0 local3 ?l0010 | |
| get_parent local0 -> local4 | |
| l0005: je local4 local3 ?l0010 | |
| jz local2 ?l0008 | |
| test_attr local4 #0d ?l0008 | |
| test_attr local4 #1d ?l0008 | |
| test_attr local4 #09 ~l0006 | |
| jz local1 ~rtrue | |
| call_vs r0241 #0f #06 local4 -> sp | |
| ret_popped | |
| l0006: test_attr local4 #20 ~l0007 | |
| jz local1 ~rtrue | |
| call_vs r0241 #0f #07 local4 -> sp | |
| ret_popped | |
| l0007: jz local1 ~rtrue | |
| call_vs r0241 #0f #08 local0 -> sp | |
| ret_popped | |
| l0008: test_attr local4 #0d ~l0009 | |
| test_attr local4 #17 l0009 | |
| jz local1 ~rtrue | |
| call_vs r0241 #0f #09 local4 -> sp | |
| ret_popped | |
| l0009: get_parent local4 -> local4 | |
| jump l0005 | |
| l0010: rfalse | |
| Routine r0153, 6 locals | |
| je local0 g1b ~l0001 | |
| call_vs r0241 #0f #02 -> sp | |
| ret_popped | |
| l0001: test_attr local0 #09 ~l0002 | |
| call_vs r0241 #0f #03 local0 -> sp | |
| ret_popped | |
| l0002: call_vs r0149 g1b local0 -> local1 | |
| jz local1 ~l0003 | |
| call_2s r0151 local0 -> local3 | |
| jz local3 l0003 | |
| call_vs r0149 g1b local3 -> local1 | |
| l0003: jz local1 ~l0004 | |
| call_vs r0241 #0f #08 local0 -> sp | |
| ret_popped | |
| l0004: je local1 local0 ~l0005 | |
| call_vs r0241 #0f #04 local0 -> sp | |
| ret_popped | |
| l0005: jin local0 g1b ~l0006 | |
| call_vs r0241 #0f #05 local0 -> sp | |
| ret_popped | |
| l0006: call_vs r0152 local0 #00 #01 -> sp | |
| jz sp l0007 | |
| rtrue | |
| l0007: get_parent local0 -> local3 | |
| je local3 local1 ?l0010 | |
| test_attr local3 #0d l0008 | |
| test_attr local3 #1d ~l0010 | |
| l0008: store local2 local3 | |
| store local5 g31 | |
| store g31 #1000 | |
| call_vs r0086 local3 #04 -> sp | |
| jz sp l0009 | |
| store g31 local5 | |
| rtrue | |
| l0009: store g31 local5 | |
| l0010: test_attr local0 #1a ~l0011 | |
| call_vs r0241 #0f #0a local0 -> sp | |
| ret_popped | |
| l0011: test_attr local0 #1c ~l0012 | |
| call_vs r0241 #0f #0b local0 -> sp | |
| ret_popped | |
| l0012: store local5 #00 | |
| get_child g1b -> sp ~l0013 | |
| l0013: pull local4 | |
| jz local4 l0016 | |
| l0014: test_attr local4 #23 l0015 | |
| inc local5 | |
| l0015: get_sibling local4 -> local4 ?l0014 | |
| l0016: call_vs r0085 g1b #2d -> sp | |
| jl local5 sp ?l0025 | |
| jz #00 ?l0024 | |
| get_parent #00 -> sp | |
| je sp g1b l0017 | |
| call_vs r0241 #0f #0c -> sp | |
| ret_popped | |
| l0017: store local4 #00 | |
| get_child g1b -> sp ~l0018 | |
| l0018: pull local5 | |
| jz local5 l0021 | |
| l0019: jz local5 l0020 | |
| test_attr local5 #23 l0020 | |
| test_attr local5 #12 l0020 | |
| store local4 local5 | |
| l0020: get_sibling local5 -> local5 ?l0019 | |
| l0021: jz local4 l0022 | |
| call_vn r0241 #0f #0d local4 | |
| store g36 #01 | |
| call_vn r0076 #13 local4 #00 | |
| store g36 #00 | |
| jin local4 #00 ~rtrue | |
| jump l0023 | |
| l0022: call_vs r0241 #0f #0c -> sp | |
| ret_popped | |
| l0023: jump l0025 | |
| l0024: call_vs r0241 #0f #0c -> sp | |
| ret_popped | |
| l0025: insert_obj local0 g1b | |
| jz local2 l0027 | |
| store local5 g31 | |
| store g31 #1000 | |
| call_vs r0086 local2 #05 -> sp | |
| jz sp l0026 | |
| store g31 local5 | |
| rtrue | |
| l0026: store g31 local5 | |
| l0027: rfalse | |
| Routine r0154, 0 locals | |
| Action routine for: | |
| "carry multi" | |
| "get multi" | |
| "pick up multi" | |
| "pick multi up" | |
| "remove multi" | |
| "peel noun" | |
| "peel off noun" | |
| jz g49 l0001 | |
| jin g34 g1b l0002 | |
| l0001: call_2s r0153 g34 -> sp | |
| jz sp ~rtrue | |
| l0002: call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| store g48 g49 | |
| je g48 #01 rtrue | |
| je g36 #01 rtrue | |
| call_vn r0241 #0f #01 | |
| rtrue | |
| Routine r0155, 1 local | |
| Action routine for: | |
| "carry multiinside from noun" | |
| "carry multiinside off noun" | |
| "get multiinside from noun" | |
| "remove multiinside from noun" | |
| "uninstall noun" | |
| get_parent g34 -> local0 | |
| test_attr local0 #0d ~l0001 | |
| test_attr local0 #17 l0001 | |
| call_vs r0241 #11 #01 g34 -> sp | |
| ret_popped | |
| l0001: je local0 g35 l0002 | |
| call_vs r0241 #11 #02 g34 -> sp | |
| ret_popped | |
| l0002: test_attr local0 #09 ~l0003 | |
| call_vs r0241 #0f #06 local0 -> sp | |
| ret_popped | |
| l0003: call_2s r0153 g34 -> sp | |
| jz sp ~rtrue | |
| store g31 #0f | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| store g31 #11 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vs r0241 #11 #03 g34 -> sp | |
| ret_popped | |
| Routine r0156, 0 locals | |
| Action routine for: | |
| "put down multiheld" | |
| "put multiheld down" | |
| "discard multiheld" | |
| "dump noun" | |
| je g34 g1b ~l0001 | |
| call_vs r0241 #12 #04 -> sp | |
| ret_popped | |
| l0001: get_parent g1b -> sp | |
| jin g34 sp ~l0002 | |
| call_vs r0241 #10 #01 g34 -> sp | |
| ret_popped | |
| l0002: jin g34 g1b l0003 | |
| call_vs r0241 #10 #02 g34 -> sp | |
| ret_popped | |
| l0003: test_attr g34 #23 ~l0004 | |
| call_vn r0241 #10 #03 g34 | |
| call_vn r0076 #29 g34 | |
| test_attr g34 #23 rtrue | |
| l0004: get_parent g1b -> sp | |
| insert_obj g34 sp | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vs r0241 #10 #04 g34 -> sp | |
| ret_popped | |
| Routine r0157, 1 local | |
| Action routine for: | |
| "put multiexcept on / onto noun" | |
| "discard multiexcept on / onto noun" | |
| store g38 #12 | |
| je g35 #10 l0001 | |
| jin g1b g35 ~l0002 | |
| l0001: call_vn r0076 #10 g34 | |
| rtrue | |
| l0002: get_parent g34 -> sp | |
| je sp g1b l0003 | |
| call_vs r0241 #12 #01 g34 -> sp | |
| ret_popped | |
| l0003: call_vs r0149 g34 g35 -> local0 | |
| je local0 g34 ~l0004 | |
| call_vs r0241 #12 #02 g34 -> sp | |
| ret_popped | |
| l0004: call_2s r0152 g35 -> sp | |
| jz sp l0005 | |
| rtrue | |
| l0005: je g35 local0 l0007 | |
| store g31 #1001 | |
| call_vs r0086 g35 #04 -> sp | |
| jz sp l0006 | |
| store g31 #12 | |
| rtrue | |
| l0006: store g31 #12 | |
| l0007: test_attr g35 #1d l0008 | |
| call_vs r0241 #12 #03 g35 -> sp | |
| ret_popped | |
| l0008: je local0 g1b ~l0009 | |
| call_vs r0241 #12 #04 -> sp | |
| ret_popped | |
| l0009: test_attr g34 #23 ~l0010 | |
| call_vn r0241 #12 #05 g34 | |
| call_vn r0076 #29 g34 | |
| test_attr g34 #23 ~l0010 | |
| rtrue | |
| l0010: call_vs r0085 g35 #2d -> sp | |
| store gef #00 | |
| get_child g35 -> sp ~l0012 | |
| l0011: inc gef | |
| get_sibling sp -> sp ?l0011 | |
| l0012: pull gee | |
| push gef | |
| jl sp sp l0013 | |
| call_vs r0241 #12 #06 g35 -> sp | |
| ret_popped | |
| l0013: insert_obj g34 g35 | |
| call_1s r0081 -> sp | |
| je sp #01 ~l0014 | |
| rtrue | |
| l0014: je g35 local0 l0016 | |
| store g31 #1001 | |
| call_vs r0086 g35 #05 -> sp | |
| jz sp l0015 | |
| store g31 #12 | |
| rtrue | |
| l0015: store g31 #12 | |
| l0016: je g36 #01 ~l0017 | |
| rtrue | |
| l0017: je g41 #01 ~l0018 | |
| call_vs r0241 #12 #07 -> sp | |
| ret_popped | |
| l0018: call_vn r0241 #12 #08 g34 | |
| rtrue | |
| Routine r0158, 1 local | |
| Action routine for: | |
| "put multiexcept in / inside / into noun" | |
| "put held under / in noun" | |
| "insert multiexcept in / into noun" | |
| "insert noun in / into / inside" | |
| "insert held under noun" | |
| "discard multiexcept into / down noun" | |
| "discard held under noun" | |
| store g38 #13 | |
| je g35 #10 l0001 | |
| jin g1b g35 ~l0002 | |
| l0001: call_vn r0076 #10 g34 | |
| rtrue | |
| l0002: get_parent g34 -> sp | |
| je sp g1b l0003 | |
| call_vs r0241 #13 #01 g34 -> sp | |
| ret_popped | |
| l0003: call_vs r0149 g34 g35 -> local0 | |
| je local0 g34 ~l0004 | |
| call_vs r0241 #13 #05 g34 -> sp | |
| ret_popped | |
| l0004: call_2s r0152 g35 -> sp | |
| jz sp l0005 | |
| rtrue | |
| l0005: je g35 local0 ?l0007 | |
| store g31 #1001 | |
| call_vs r0086 g35 #04 -> sp | |
| jz sp l0006 | |
| store g31 #13 | |
| rtrue | |
| l0006: store g31 #13 | |
| test_attr g35 #0d ~l0007 | |
| test_attr g35 #17 l0007 | |
| call_vs r0241 #13 #03 g35 -> sp | |
| ret_popped | |
| l0007: test_attr g35 #0d l0008 | |
| call_vs r0241 #13 #02 g35 -> sp | |
| ret_popped | |
| l0008: test_attr g34 #23 ~l0009 | |
| call_vn r0241 #13 #06 g34 | |
| call_vn r0076 #29 g34 | |
| test_attr g34 #23 ~l0009 | |
| rtrue | |
| l0009: call_vs r0085 g35 #2d -> sp | |
| store gef #00 | |
| get_child g35 -> sp ~l0011 | |
| l0010: inc gef | |
| get_sibling sp -> sp ?l0010 | |
| l0011: pull gee | |
| push gef | |
| jl sp sp l0012 | |
| call_vs r0241 #13 #07 g35 -> sp | |
| ret_popped | |
| l0012: insert_obj g34 g35 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g35 local0 l0014 | |
| store g31 #1001 | |
| call_vs r0086 g35 #05 -> sp | |
| jz sp l0013 | |
| store g31 #13 | |
| rtrue | |
| l0013: store g31 #13 | |
| l0014: je g36 #01 rtrue | |
| je g41 #01 ~l0015 | |
| call_vs r0241 #13 #08 g34 -> sp | |
| ret_popped | |
| l0015: call_vn r0241 #13 #09 g34 | |
| rtrue | |
| Routine r0159, 0 locals | |
| Action routine for: | |
| "transfer noun to / on / in noun" | |
| "clear noun to noun" | |
| "dump noun on / in / over / into / onto noun" | |
| jin g34 g1b l0001 | |
| call_2s r0153 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g35 #0d ~l0002 | |
| call_vn r0076 #13 g34 g35 | |
| rtrue | |
| l0002: test_attr g35 #1d ~l0003 | |
| call_vn r0076 #12 g34 g35 | |
| rtrue | |
| l0003: call_vn r0076 #10 g34 | |
| rtrue | |
| Routine r0160, 0 locals | |
| Action routine for: | |
| "empty noun" | |
| "empty out noun" | |
| "empty noun out" | |
| store g35 #10 | |
| call_1n r0161 | |
| rtrue | |
| Routine r0161, 2 locals | |
| Action routine for: | |
| "empty noun to / into / on / onto noun" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #0d l0002 | |
| call_vs r0241 #14 #01 g34 -> sp | |
| ret_popped | |
| l0002: test_attr g34 #17 l0003 | |
| call_vs r0241 #14 #02 g34 -> sp | |
| ret_popped | |
| l0003: je g35 #10 l0005 | |
| test_attr g35 #0d l0004 | |
| call_vs r0241 #14 #01 g35 -> sp | |
| ret_popped | |
| l0004: test_attr g35 #17 l0005 | |
| call_vs r0241 #14 #02 g35 -> sp | |
| ret_popped | |
| l0005: get_child g34 -> local0 ~l0006 | |
| l0006: jz local0 ~l0007 | |
| call_vs r0241 #14 #03 g34 -> sp | |
| ret_popped | |
| l0007: jz local0 l0009 | |
| get_sibling local0 -> local1 ~l0008 | |
| l0008: call_2n r0107 local0 | |
| print ": " | |
| call_vn r0076 #5d local0 g35 | |
| store local0 local1 | |
| jump l0007 | |
| l0009: rtrue | |
| Routine r0162, 0 locals | |
| Action routine for: | |
| "feed held to creature" | |
| "feed creature held" REVERSE | |
| "feed over held to creature" | |
| get_parent g34 -> sp | |
| je sp g1b l0001 | |
| call_vs r0241 #15 #01 g34 -> sp | |
| ret_popped | |
| l0001: je g35 g1b ~l0002 | |
| call_vs r0241 #15 #02 g34 -> sp | |
| ret_popped | |
| l0002: call_vs r0082 g35 #15 -> sp | |
| jz sp ~rfalse | |
| call_vn r0241 #15 #03 g35 | |
| rtrue | |
| Routine r0163, 0 locals | |
| Action routine for: | |
| call_vn r0076 #15 g35 g34 | |
| rtrue | |
| Routine r0164, 0 locals | |
| Action routine for: | |
| "display creature held" REVERSE | |
| "display held to creature" | |
| get_parent g34 -> sp | |
| je sp g1b l0001 | |
| call_vs r0241 #16 #01 g34 -> sp | |
| ret_popped | |
| l0001: je g35 g1b ~l0002 | |
| call_vn r0076 #20 g34 | |
| rtrue | |
| l0002: call_vs r0082 g35 #16 -> sp | |
| jz sp ~rfalse | |
| call_vn r0241 #16 #02 g35 | |
| rtrue | |
| Routine r0165, 0 locals | |
| Action routine for: | |
| call_vn r0076 #16 g35 g34 | |
| rtrue | |
| Routine r0166, 3 locals | |
| Action routine for: | |
| "get in / into / on / onto noun" | |
| "stand on noun" | |
| "go noun" | |
| "go into / in / inside / through noun" | |
| "leave into / in / inside / through noun" | |
| "cross noun" | |
| "lie on top of noun" | |
| "lie on / in / inside noun" | |
| test_attr g34 #0e l0001 | |
| jin g34 "compass" ~l0002 | |
| l0001: call_vn r0076 #1b g34 | |
| rtrue | |
| l0002: jin g1b g34 ~l0003 | |
| call_vs r0241 #17 #01 g34 -> sp | |
| ret_popped | |
| l0003: test_attr g34 #10 l0004 | |
| call_vs r0241 #17 #02 g34 -> sp | |
| ret_popped | |
| l0004: test_attr g34 #0d ~l0005 | |
| test_attr g34 #17 l0005 | |
| call_vs r0241 #17 #03 g34 -> sp | |
| ret_popped | |
| l0005: get_parent g34 -> sp | |
| get_parent g1b -> sp | |
| je sp sp ?l0015 | |
| call_vs r0149 g1b g34 -> local0 | |
| je local0 g1b #00 ~l0006 | |
| call_vs r0241 #17 #04 g34 -> sp | |
| ret_popped | |
| l0006: jin g1b local0 ?l0010 | |
| get_parent g1b -> local1 | |
| get_parent local1 -> sp | |
| je sp local0 ~l0007 | |
| je g34 local0 l0008 | |
| l0007: call_vn r0241 #17 #06 local1 | |
| store local2 g36 | |
| store g36 #01 | |
| l0008: call_2n r0076 #19 | |
| store g36 local2 | |
| jin g1b local1 ~l0009 | |
| rtrue | |
| l0009: jump l0006 | |
| l0010: jin g1b g34 ~l0011 | |
| rtrue | |
| l0011: jin g34 local0 ?l0015 | |
| get_parent g34 -> local1 | |
| l0012: get_parent local1 -> sp | |
| je sp local0 l0013 | |
| get_parent local1 -> local1 | |
| jump l0012 | |
| l0013: call_vn r0241 #17 #07 local1 | |
| store local2 g36 | |
| store g36 #01 | |
| call_vn r0076 #17 local1 | |
| store g36 local2 | |
| jin g1b local1 l0014 | |
| rtrue | |
| l0014: call_vn r0076 #17 g34 | |
| rtrue | |
| l0015: insert_obj g1b g34 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vn r0241 #17 #05 g34 | |
| call_2n r0174 g34 | |
| rtrue | |
| Routine r0167, 0 locals | |
| Action routine for: | |
| "get off noun" | |
| get_parent g1b -> sp | |
| je sp g34 ~l0001 | |
| call_2n r0076 #19 | |
| rtrue | |
| l0001: call_vn r0241 #18 #01 g34 | |
| rtrue | |
| Routine r0168, 1 local | |
| Action routine for: | |
| "get out / off / up" | |
| "stand" | |
| "stand up" | |
| "leave noun" | |
| "exit" | |
| get_parent g1b -> local0 | |
| je local0 g09 l0001 | |
| je g09 #13 ?~l0004 | |
| je local0 g1e ?~l0004 | |
| l0001: get_prop g09 #12 -> sp | |
| jz sp ~l0002 | |
| je g09 #13 ~l0003 | |
| get_prop g1e #12 -> sp | |
| jz sp l0003 | |
| l0002: call_vn r0076 #1b #11 | |
| rtrue | |
| l0003: call_vs r0241 #19 #01 -> sp | |
| ret_popped | |
| l0004: test_attr local0 #0d ~l0005 | |
| test_attr local0 #17 l0005 | |
| call_vs r0241 #19 #02 local0 -> sp | |
| ret_popped | |
| l0005: get_parent local0 -> sp | |
| insert_obj g1b sp | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vn r0241 #19 #03 local0 | |
| call_2n r0180 #01 | |
| rtrue | |
| Routine r0169, 0 locals | |
| Action routine for: | |
| "go" | |
| "leave" | |
| call_2n r0241 #1a | |
| rtrue | |
| Routine r0170, 0 locals | |
| Action routine for: | |
| "cross" | |
| "in" | |
| call_vn r0076 #1b #12 | |
| rtrue | |
| Routine r0171, 7 locals | |
| Action routine for: | |
| "go noun = [parse $3e86]" | |
| "leave noun = [parse $3e86]" | |
| store local6 g09 | |
| store local4 #00 | |
| get_parent g1b -> local0 | |
| je g09 #13 l0001 | |
| je local0 g09 ~l0002 | |
| l0001: je g09 #13 ?~l0007 | |
| je local0 g1e ?l0007 | |
| l0002: store local1 g09 | |
| je g09 #13 ~l0003 | |
| store g09 g1e | |
| l0003: call_vs r0086 local0 #04 -> local2 | |
| je local2 #03 l0004 | |
| store g09 local1 | |
| l0004: je local2 #01 ~l0005 | |
| store local4 local0 | |
| get_parent local0 -> local0 | |
| jump l0007 | |
| l0005: jz local2 ~l0006 | |
| call_vn r0241 #1b #01 local0 | |
| l0006: rtrue | |
| l0007: get_prop g34 #15 -> local5 | |
| call_2s r0083 local5 -> sp | |
| je sp #02 ~l0008 | |
| call_vs r0086 g34 #15 -> local5 | |
| l0008: call_vs r0493 local0 local5 -> local1 | |
| call_2s r0083 local1 -> local2 | |
| je local2 #03 ~l0009 | |
| print_paddr local1 | |
| new_line | |
| rfalse | |
| l0009: je local2 #02 ~l0010 | |
| call_vs r0086 local0 local5 -> local1 | |
| je local1 #01 rtrue | |
| l0010: jz local2 l0011 | |
| jz local1 ~l0013 | |
| l0011: get_prop local0 #26 -> sp | |
| jz sp l0012 | |
| call_vn r0084 local0 #26 | |
| l0012: rfalse | |
| l0013: test_attr local1 #0e ?~l0019 | |
| test_attr local1 #0c ~l0014 | |
| call_vs r0241 #1b #02 -> sp | |
| ret_popped | |
| l0014: test_attr local1 #17 ?l0017 | |
| je g34 #0f ~l0015 | |
| call_vs r0241 #1b #03 local1 -> sp | |
| ret_popped | |
| l0015: je g34 #10 ~l0016 | |
| call_vs r0241 #1b #04 local1 -> sp | |
| ret_popped | |
| l0016: call_vs r0241 #1b #05 local1 -> sp | |
| ret_popped | |
| l0017: call_vs r0086 local1 #13 -> local2 | |
| jz local2 ~l0018 | |
| call_vs r0241 #1b #06 local1 -> sp | |
| ret_popped | |
| l0018: je local2 #01 rtrue | |
| store local1 local2 | |
| l0019: jz local4 ~l0020 | |
| insert_obj g1b local1 | |
| jump l0021 | |
| l0020: insert_obj local4 local1 | |
| l0021: store g09 local1 | |
| call_1n r0127 | |
| call_2s r0096 local1 -> local3 | |
| jz local3 l0022 | |
| store g09 local1 | |
| store g1d #01 | |
| jump l0024 | |
| l0022: je local6 #13 ~l0023 | |
| call_1n r0474 | |
| jz g1c ~rtrue | |
| l0023: store g1e local1 | |
| store g09 #13 | |
| store g1d #00 | |
| l0024: call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_2n r0180 #01 | |
| rtrue | |
| Routine r0172, 3 locals | |
| get_parent g1b -> sp | |
| je local0 sp rfalse | |
| get_child local0 -> sp ~l0001 | |
| l0001: pull local1 | |
| jz local1 l0004 | |
| l0002: test_attr local1 #0c l0003 | |
| test_attr local1 #1a l0003 | |
| store local2 #01 | |
| l0003: get_sibling local1 -> local1 ?l0002 | |
| l0004: jz local2 rfalse | |
| call_vn r0241 #1f #04 local0 | |
| rtrue | |
| Routine r0173, 2 locals | |
| get_parent g1b -> local1 | |
| l0001: jz local1 l0003 | |
| je local1 g1f l0003 | |
| je local1 local0 rfalse | |
| get_parent local1 -> local1 | |
| jz local1 l0002 | |
| test_attr local1 #1d ~rtrue | |
| l0002: jump l0001 | |
| l0003: rtrue | |
| Routine r0174, 9 locals | |
| get_child local0 -> sp ~l0001 | |
| l0001: pull local3 | |
| jz local3 l0003 | |
| l0002: clear_attr local3 #22 | |
| get_sibling local3 -> local3 ?l0002 | |
| l0003: store local4 #00 | |
| get_child local0 -> sp ~l0004 | |
| l0004: pull local3 | |
| jz local3 ?l0019 | |
| l0005: test_attr local3 #0c ?l0018 | |
| call_2s r0173 local3 -> sp | |
| jz sp ?l0018 | |
| call_2n r0072 local3 | |
| test_attr local3 #1a ?l0016 | |
| set_attr local3 #22 | |
| inc local4 | |
| store local5 #1e | |
| store local7 #00 | |
| test_attr local3 #0e l0006 | |
| test_attr local3 #0d ~l0007 | |
| l0006: test_attr local3 #17 ~l0007 | |
| call_vs r0498 local3 #1f -> sp | |
| jz sp l0007 | |
| store local5 #1f | |
| store local7 #01 | |
| jump l0011 | |
| l0007: test_attr local3 #0e l0008 | |
| test_attr local3 #0d ~l0009 | |
| l0008: test_attr local3 #17 l0009 | |
| call_vs r0498 local3 #20 -> sp | |
| jz sp l0009 | |
| store local5 #20 | |
| store local7 #01 | |
| jump l0011 | |
| l0009: test_attr local3 #1e ~l0010 | |
| test_attr local3 #16 ~l0010 | |
| call_vs r0498 local3 #21 -> sp | |
| jz sp l0010 | |
| store local5 #21 | |
| store local7 #01 | |
| jump l0011 | |
| l0010: test_attr local3 #1e ~l0011 | |
| test_attr local3 #16 l0011 | |
| call_vs r0498 local3 #22 -> sp | |
| jz sp l0011 | |
| store local5 #22 | |
| store local7 #01 | |
| l0011: test_attr local3 #15 ~l0012 | |
| get_prop local3 #24 -> sp | |
| je sp #ffff ~l0012 | |
| je local7 #01 ?~l0015 | |
| l0012: get_prop local3 #24 -> sp | |
| je sp #ffff l0013 | |
| call_vs r0086 local3 #24 -> sp | |
| jz sp l0013 | |
| store local8 #01 | |
| clear_attr local3 #22 | |
| dec local4 | |
| jump l0015 | |
| l0013: call_vs r0493 local3 local5 -> local6 | |
| jz local6 ?l0015 | |
| new_line | |
| call_vn r0084 local3 local5 | |
| store local8 #01 | |
| clear_attr local3 #22 | |
| dec local4 | |
| test_attr local3 #1d ~l0015 | |
| get_child local3 -> sp ~l0014 | |
| l0014: jz sp l0015 | |
| call_2n r0172 local3 | |
| l0015: jump l0018 | |
| l0016: test_attr local3 #1d ~l0018 | |
| get_child local3 -> sp ~l0017 | |
| l0017: jz sp l0018 | |
| call_2n r0172 local3 | |
| l0018: get_sibling local3 -> local3 ?l0005 | |
| l0019: jz local4 ~l0020 | |
| rfalse | |
| l0020: jz local1 l0023 | |
| new_line | |
| je local8 #01 ~l0021 | |
| store local1 local2 | |
| l0021: print_paddr local1 | |
| print " " | |
| get_child local0 -> sp ~l0022 | |
| l0022: call_vn r0123 sp #0ad8 | |
| ret local4 | |
| l0023: je local8 #01 ~l0024 | |
| call_vn r0241 #1f #05 local0 | |
| jump l0025 | |
| l0024: call_vn r0241 #1f #06 local0 | |
| l0025: rtrue | |
| Routine r0175, 0 locals | |
| Action routine for: | |
| "brief" | |
| store g20 #01 | |
| Warning: printing of nonexistent string | |
| print_paddr 0 | |
| call_2n r0241 #1c | |
| rtrue | |
| Routine r0176, 0 locals | |
| Action routine for: | |
| "long" | |
| store g20 #02 | |
| Warning: printing of nonexistent string | |
| print_paddr 0 | |
| call_2n r0241 #1d | |
| rtrue | |
| Routine r0177, 0 locals | |
| Action routine for: | |
| "short" | |
| store g20 #03 | |
| Warning: printing of nonexistent string | |
| print_paddr 0 | |
| call_2n r0241 #1e | |
| rtrue | |
| Routine r0178, 1 local | |
| store local0 g09 | |
| je local0 g22 l0002 | |
| get_prop local0 #1e -> sp | |
| jz sp l0001 | |
| call_vn r0084 local0 #1e | |
| l0001: store local0 g09 | |
| call_1n r0475 | |
| store g22 local0 | |
| l0002: rtrue | |
| Routine r0179, 0 locals | |
| test_attr g09 #21 l0001 | |
| set_attr g09 #21 | |
| test_attr g09 #1b ~l0001 | |
| add g16 #05 -> g16 | |
| add g19 #05 -> g19 | |
| l0001: rtrue | |
| Routine r0180, 5 locals | |
| Action routine for: | |
| "l" | |
| get_parent g1b -> sp | |
| jz sp ~l0001 | |
| call_2s r0114 #0a -> sp | |
| ret_popped | |
| l0001: je g09 #13 ~l0002 | |
| store g1f #13 | |
| jump l0006 | |
| l0002: store local1 #01 | |
| get_parent g1b -> g1f | |
| l0003: get_parent g1f -> sp | |
| jz sp l0005 | |
| test_attr g1f #0d ~l0004 | |
| test_attr g1f #17 l0004 | |
| test_attr g1f #20 ~l0005 | |
| l0004: get_parent g1f -> g1f | |
| inc local1 | |
| jump l0003 | |
| l0005: je g1f g09 ~l0006 | |
| call_1n r0178 | |
| je g1f g09 l0006 | |
| jump l0001 | |
| l0006: new_line | |
| set_text_style boldface | |
| jz local1 ~l0007 | |
| call_2n r0107 #13 | |
| jump l0009 | |
| l0007: je g1f g09 l0008 | |
| call_2n r0106 g1f | |
| jump l0009 | |
| l0008: call_2n r0107 g1f | |
| l0009: set_text_style roman | |
| store local3 #01 | |
| get_parent g1b -> local2 | |
| jump l0011 | |
| l0010: inc local3 | |
| get_parent local2 -> local2 | |
| l0011: jl local3 local1 ~l0014 | |
| test_attr local2 #1d ~l0012 | |
| call_vn r0241 #1f #01 local2 | |
| jump l0013 | |
| l0012: call_vn r0241 #1f #02 local2 | |
| l0013: jump l0010 | |
| l0014: je g21 #01 ~l0015 | |
| call_vn r0241 #1f #03 g1b | |
| l0015: new_line | |
| jl g20 #03 ?~l0019 | |
| je g1f g09 ?~l0019 | |
| je local0 #01 ~l0016 | |
| je g20 #02 l0016 | |
| test_attr g09 #21 ?l0019 | |
| l0016: get_prop g09 #24 -> sp | |
| je sp #ffff l0017 | |
| call_vn r0086 g09 #24 | |
| jump l0019 | |
| l0017: get_prop g09 #23 -> sp | |
| jz sp ~l0018 | |
| call_vn r0114 #0b g09 | |
| jump l0019 | |
| l0018: call_vn r0084 g09 #23 | |
| l0019: jz local1 ~l0020 | |
| call_2n r0174 #13 | |
| jump l0028 | |
| l0020: store local2 g1b | |
| store local3 local1 | |
| jump l0022 | |
| l0021: dec local3 | |
| get_parent local2 -> local2 | |
| l0022: jg local3 #00 ~l0023 | |
| set_attr local2 #22 | |
| jump l0021 | |
| l0023: store local3 local1 | |
| l0024: jg local3 #00 ?~l0028 | |
| store local2 g1b | |
| store local4 #00 | |
| l0025: jl local4 local3 ~l0026 | |
| get_parent local2 -> local2 | |
| inc local4 | |
| jump l0025 | |
| l0026: get_prop local2 #32 -> sp | |
| jz sp l0027 | |
| new_line | |
| call_vn r0084 local2 #32 | |
| l0027: call_2n r0174 local2 | |
| dec local3 | |
| jump l0024 | |
| l0028: call_1n r0476 | |
| call_1n r0179 | |
| store g31 #1f | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| rtrue | |
| Routine r0181, 1 local | |
| Action routine for: | |
| "l at noun" | |
| "check noun" | |
| "read noun" | |
| je g09 #13 ~l0001 | |
| call_vs r0241 #20 #01 -> sp | |
| ret_popped | |
| l0001: get_prop g34 #23 -> local0 | |
| jz local0 ?~l0004 | |
| test_attr g34 #0d ~l0002 | |
| call_vn r0076 #22 g34 | |
| rtrue | |
| l0002: test_attr g34 #1e ~l0003 | |
| call_vn r0241 #20 #03 g34 | |
| rfalse | |
| l0003: call_vs r0241 #20 #02 g34 -> sp | |
| ret_popped | |
| l0004: call_vn r0084 g34 #23 | |
| test_attr g34 #1e ~l0005 | |
| call_vn r0241 #20 #03 g34 | |
| l0005: call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| rtrue | |
| Routine r0182, 0 locals | |
| Action routine for: | |
| "l under noun" | |
| je g09 #13 ~l0001 | |
| call_vs r0241 #21 #01 -> sp | |
| ret_popped | |
| l0001: call_vn r0241 #21 #02 | |
| rtrue | |
| Routine r0183, 2 locals | |
| Action routine for: | |
| "l inside / in / into / through noun" | |
| "search noun" | |
| je g09 #13 ~l0001 | |
| call_vs r0241 #22 #01 g34 -> sp | |
| ret_popped | |
| l0001: call_2s r0152 g34 -> sp | |
| jz sp l0002 | |
| rtrue | |
| l0002: get_child g34 -> sp ~l0003 | |
| l0003: pull local0 | |
| jz local0 l0006 | |
| l0004: test_attr local0 #0c l0005 | |
| test_attr local0 #1a l0005 | |
| store local1 #01 | |
| l0005: get_sibling local0 -> local0 ?l0004 | |
| l0006: test_attr g34 #1d ~l0008 | |
| jz local1 ~l0007 | |
| call_vs r0241 #22 #02 g34 -> sp | |
| ret_popped | |
| l0007: call_vs r0241 #22 #03 g34 -> sp | |
| ret_popped | |
| l0008: test_attr g34 #0d l0009 | |
| call_vs r0241 #22 #04 g34 -> sp | |
| ret_popped | |
| l0009: test_attr g34 #20 l0010 | |
| test_attr g34 #17 l0010 | |
| call_vs r0241 #22 #05 g34 -> sp | |
| ret_popped | |
| l0010: call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| store gef #00 | |
| get_child g34 -> sp ~l0012 | |
| l0011: inc gef | |
| get_sibling sp -> sp ?l0011 | |
| l0012: pull gee | |
| store local0 gef | |
| jz local1 ~l0013 | |
| call_vs r0241 #22 #06 g34 -> sp | |
| ret_popped | |
| l0013: call_vn r0241 #22 #07 g34 | |
| rtrue | |
| Routine r0184, 0 locals | |
| Action routine for: | |
| "open noun with held" | |
| "unlock noun with held" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #13 l0002 | |
| call_vs r0241 #23 #01 g34 -> sp | |
| ret_popped | |
| l0002: test_attr g34 #14 l0003 | |
| call_vs r0241 #23 #02 g34 -> sp | |
| ret_popped | |
| l0003: get_prop g34 #14 -> sp | |
| je sp g35 l0004 | |
| call_vs r0241 #23 #03 g35 -> sp | |
| ret_popped | |
| l0004: clear_attr g34 #14 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vn r0241 #23 #04 g34 | |
| rtrue | |
| Routine r0185, 0 locals | |
| Action routine for: | |
| "lock noun with held" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #13 l0002 | |
| call_vs r0241 #24 #01 g34 -> sp | |
| ret_popped | |
| l0002: test_attr g34 #14 ~l0003 | |
| call_vs r0241 #24 #02 g34 -> sp | |
| ret_popped | |
| l0003: test_attr g34 #17 ~l0004 | |
| call_vs r0241 #24 #03 g34 -> sp | |
| ret_popped | |
| l0004: get_prop g34 #14 -> sp | |
| je sp g35 l0005 | |
| call_vs r0241 #24 #04 g35 -> sp | |
| ret_popped | |
| l0005: set_attr g34 #14 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vn r0241 #24 #05 g34 | |
| rtrue | |
| Routine r0186, 0 locals | |
| Action routine for: | |
| "loosen noun on" | |
| "loosen on noun" | |
| "switch noun" | |
| "switch noun on" | |
| "switch on noun" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #1e l0002 | |
| call_vs r0241 #25 #01 g34 -> sp | |
| ret_popped | |
| l0002: test_attr g34 #16 ~l0003 | |
| call_vs r0241 #25 #02 g34 -> sp | |
| ret_popped | |
| l0003: set_attr g34 #16 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vn r0241 #25 #03 g34 | |
| rtrue | |
| Routine r0187, 0 locals | |
| Action routine for: | |
| "close off noun" | |
| "loosen noun off" | |
| "loosen off noun" | |
| "switch noun off" | |
| "switch off noun" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #1e l0002 | |
| call_vs r0241 #26 #01 g34 -> sp | |
| ret_popped | |
| l0002: test_attr g34 #16 l0003 | |
| call_vs r0241 #26 #02 g34 -> sp | |
| ret_popped | |
| l0003: clear_attr g34 #16 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vn r0241 #26 #03 g34 | |
| rtrue | |
| Routine r0188, 0 locals | |
| Action routine for: | |
| "open noun" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #18 l0002 | |
| call_vs r0241 #27 #01 g34 -> sp | |
| ret_popped | |
| l0002: test_attr g34 #14 ~l0003 | |
| call_vs r0241 #27 #02 g34 -> sp | |
| ret_popped | |
| l0003: test_attr g34 #17 ~l0004 | |
| call_vs r0241 #27 #03 g34 -> sp | |
| ret_popped | |
| l0004: set_attr g34 #17 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| test_attr g34 #0d ?~l0006 | |
| test_attr g34 #20 l0006 | |
| get_child g34 -> sp ~l0005 | |
| l0005: jz sp l0006 | |
| call_vs r0150 g34 g1b -> sp | |
| jz sp ~l0006 | |
| call_vs r0241 #27 #04 g34 -> sp | |
| ret_popped | |
| l0006: call_vn r0241 #27 #05 g34 | |
| rtrue | |
| Routine r0189, 0 locals | |
| Action routine for: | |
| "close noun" | |
| "close up noun" | |
| "close noun with noun" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #18 l0002 | |
| call_vs r0241 #28 #01 g34 -> sp | |
| ret_popped | |
| l0002: test_attr g34 #17 l0003 | |
| call_vs r0241 #28 #02 g34 -> sp | |
| ret_popped | |
| l0003: clear_attr g34 #17 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vn r0241 #28 #03 g34 | |
| rtrue | |
| Routine r0190, 0 locals | |
| Action routine for: | |
| "carry off ATTRIBUTE(35)" | |
| "remove held" | |
| "disrobe held" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #23 l0002 | |
| call_vs r0241 #29 #01 g34 -> sp | |
| ret_popped | |
| l0002: clear_attr g34 #23 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vn r0241 #29 #02 g34 | |
| rtrue | |
| Routine r0191, 0 locals | |
| Action routine for: | |
| "don held" | |
| "put on held" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #0b l0002 | |
| call_vs r0241 #2a #01 g34 -> sp | |
| ret_popped | |
| l0002: get_parent g34 -> sp | |
| je sp g1b l0003 | |
| call_vs r0241 #2a #02 g34 -> sp | |
| ret_popped | |
| l0003: test_attr g34 #23 ~l0004 | |
| call_vs r0241 #2a #03 g34 -> sp | |
| ret_popped | |
| l0004: set_attr g34 #23 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vn r0241 #2a #04 g34 | |
| rtrue | |
| Routine r0192, 0 locals | |
| Action routine for: | |
| "eat held" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #0f l0002 | |
| call_vs r0241 #2b #01 g34 -> sp | |
| ret_popped | |
| l0002: remove_obj g34 | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| je g36 #01 rtrue | |
| call_vn r0241 #2b #02 g34 | |
| rtrue | |
| Routine r0193, 0 locals | |
| Action routine for: | |
| "y" | |
| call_2n r0241 #2c | |
| rtrue | |
| Routine r0194, 0 locals | |
| Action routine for: | |
| "no" | |
| call_2n r0241 #2d | |
| rtrue | |
| Routine r0195, 0 locals | |
| Action routine for: | |
| "burn noun" | |
| "burn noun with held" | |
| "melt noun" | |
| call_vn r0241 #2e #01 g34 | |
| rtrue | |
| Routine r0196, 0 locals | |
| Action routine for: | |
| "pray" | |
| call_vn r0241 #2f #01 g34 | |
| rtrue | |
| Routine r0197, 0 locals | |
| Action routine for: | |
| "awake" | |
| "awake up" | |
| call_vn r0241 #30 #01 g34 | |
| rtrue | |
| Routine r0198, 0 locals | |
| Action routine for: | |
| "awake creature" | |
| "awake creature up" | |
| "awake up creature" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: call_vs r0082 g34 #31 -> sp | |
| jz sp ~rfalse | |
| call_vn r0241 #31 #01 g34 | |
| rtrue | |
| Routine r0199, 0 locals | |
| Action routine for: | |
| "think" | |
| call_vn r0241 #33 #01 g34 | |
| rtrue | |
| Routine r0200, 0 locals | |
| Action routine for: | |
| "smell" | |
| "smell noun" | |
| call_vn r0241 #34 #01 g34 | |
| rtrue | |
| Routine r0201, 0 locals | |
| Action routine for: | |
| "hear" | |
| "hear noun" | |
| "hear to noun" | |
| call_vn r0241 #35 #01 g34 | |
| rtrue | |
| Routine r0202, 0 locals | |
| Action routine for: | |
| "taste noun" | |
| call_vn r0241 #36 #01 g34 | |
| rtrue | |
| Routine r0203, 0 locals | |
| Action routine for: | |
| "dig noun" | |
| "dig noun with held" | |
| call_vn r0241 #38 #01 g34 | |
| rtrue | |
| Routine r0204, 0 locals | |
| Action routine for: | |
| "chop noun" | |
| call_vn r0241 #39 #01 g34 | |
| rtrue | |
| Routine r0205, 0 locals | |
| Action routine for: | |
| "hop" | |
| call_vn r0241 #3a #01 g34 | |
| rtrue | |
| Routine r0206, 0 locals | |
| Action routine for: | |
| "hop over noun" | |
| call_vn r0241 #3b #01 g34 | |
| rtrue | |
| Routine r0207, 0 locals | |
| Action routine for: | |
| "attach noun" | |
| "attach noun to noun" | |
| "install noun" | |
| call_vn r0241 #3c #01 g34 | |
| rtrue | |
| Routine r0208, 0 locals | |
| Action routine for: | |
| "drink noun" | |
| call_vn r0241 #3d #01 g34 | |
| rtrue | |
| Routine r0209, 0 locals | |
| Action routine for: | |
| "fill noun" | |
| call_vn r0241 #3e #01 g34 | |
| rtrue | |
| Routine r0210, 0 locals | |
| Action routine for: | |
| "sorry" | |
| call_vn r0241 #3f #01 g34 | |
| rtrue | |
| Routine r0211, 0 locals | |
| Action routine for: | |
| call_vn r0241 #40 #01 g34 | |
| rtrue | |
| Routine r0212, 0 locals | |
| Action routine for: | |
| call_vn r0241 #41 #01 g34 | |
| rtrue | |
| Routine r0213, 0 locals | |
| Action routine for: | |
| "dive" | |
| call_vn r0241 #43 #01 g34 | |
| rtrue | |
| Routine r0214, 0 locals | |
| Action routine for: | |
| "swing noun" | |
| "swing on noun" | |
| call_vn r0241 #44 #01 g34 | |
| rtrue | |
| Routine r0215, 0 locals | |
| Action routine for: | |
| "blow held" | |
| "blow noun" | |
| call_vn r0241 #45 #01 g34 | |
| rtrue | |
| Routine r0216, 0 locals | |
| Action routine for: | |
| "clean noun" | |
| "dial noun" | |
| "phone noun" | |
| "telephone noun" | |
| "execute noun" | |
| call_vn r0241 #46 #01 g34 | |
| rtrue | |
| Routine r0217, 0 locals | |
| Action routine for: | |
| "adjust noun" | |
| call_vn r0241 #47 #01 g34 | |
| rtrue | |
| Routine r0218, 0 locals | |
| Action routine for: | |
| "adjust noun to number" | |
| "adjust noun to special" | |
| call_vn r0241 #48 #01 g34 | |
| rtrue | |
| Routine r0219, 0 locals | |
| Action routine for: | |
| "wave" | |
| call_vn r0241 #49 #01 g34 | |
| rtrue | |
| Routine r0220, 0 locals | |
| Action routine for: | |
| "buy noun" | |
| call_vn r0241 #54 #01 g34 | |
| rtrue | |
| Routine r0221, 0 locals | |
| Action routine for: | |
| "sing" | |
| call_vn r0241 #55 #01 g34 | |
| rtrue | |
| Routine r0222, 0 locals | |
| Action routine for: | |
| "climb noun" | |
| "climb up / over noun" | |
| "print noun" | |
| call_vn r0241 #56 #01 g34 | |
| rtrue | |
| Routine r0223, 0 locals | |
| Action routine for: | |
| "nap" | |
| call_vn r0241 #58 #01 g34 | |
| rtrue | |
| Routine r0224, 0 locals | |
| Action routine for: | |
| "l up topic in noun" | |
| "consult noun about topic" | |
| "consult noun on topic" | |
| "read about topic in noun" | |
| "read topic in noun" | |
| call_vn r0241 #59 #01 g34 | |
| rtrue | |
| Routine r0225, 0 locals | |
| Action routine for: | |
| "feel noun" | |
| je g34 g1b ~l0001 | |
| call_vs r0241 #37 #03 g34 -> sp | |
| ret_popped | |
| l0001: call_2s r0152 g34 -> sp | |
| jz sp l0002 | |
| rtrue | |
| l0002: test_attr g34 #09 ~l0003 | |
| call_vs r0241 #37 #01 g34 -> sp | |
| ret_popped | |
| l0003: call_vn r0241 #37 #02 g34 | |
| rtrue | |
| Routine r0226, 0 locals | |
| Action routine for: | |
| "wave noun" | |
| get_parent g34 -> sp | |
| je sp g1b l0001 | |
| call_vs r0241 #4a #01 g34 -> sp | |
| ret_popped | |
| l0001: call_vn r0241 #4a #02 g34 | |
| rtrue | |
| Routine r0227, 0 locals | |
| Action routine for: | |
| "drag noun" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #1c ~l0002 | |
| call_vs r0241 #4b #01 g34 -> sp | |
| ret_popped | |
| l0002: test_attr g34 #1a ~l0003 | |
| call_vs r0241 #4b #02 g34 -> sp | |
| ret_popped | |
| l0003: test_attr g34 #09 ~l0004 | |
| call_vs r0241 #4b #04 g34 -> sp | |
| ret_popped | |
| l0004: call_vn r0241 #4b #03 g34 | |
| rtrue | |
| Routine r0228, 0 locals | |
| Action routine for: | |
| "clear noun" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #1c ~l0002 | |
| call_vs r0241 #4c #01 g34 -> sp | |
| ret_popped | |
| l0002: test_attr g34 #1a ~l0003 | |
| call_vs r0241 #4c #02 g34 -> sp | |
| ret_popped | |
| l0003: test_attr g34 #09 ~l0004 | |
| call_vs r0241 #4b #04 g34 -> sp | |
| ret_popped | |
| l0004: call_vn r0241 #4c #03 g34 | |
| rtrue | |
| Routine r0229, 0 locals | |
| Action routine for: | |
| "loosen noun" | |
| "loosen noun to number" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #1c ~l0002 | |
| call_vs r0241 #4d #01 g34 -> sp | |
| ret_popped | |
| l0002: test_attr g34 #1a ~l0003 | |
| call_vs r0241 #4d #02 g34 -> sp | |
| ret_popped | |
| l0003: test_attr g34 #09 ~l0004 | |
| call_vs r0241 #4b #04 g34 -> sp | |
| ret_popped | |
| l0004: call_vn r0241 #4d #03 g34 | |
| rtrue | |
| Routine r0230, 0 locals | |
| Action routine for: | |
| "wait" | |
| call_1s r0081 -> sp | |
| je sp #01 rtrue | |
| call_vn r0241 #57 #01 g34 | |
| rtrue | |
| Routine r0231, 0 locals | |
| Action routine for: | |
| call_vn r0241 #4e #01 g34 | |
| rtrue | |
| Routine r0232, 1 local | |
| get_parent g35 -> sp | |
| je sp #06 l0001 | |
| call_vs r0241 #4e #02 g34 -> sp | |
| ret_popped | |
| l0001: je g35 #0f #10 ~l0002 | |
| call_vs r0241 #4e #03 g34 -> sp | |
| ret_popped | |
| l0002: call_1n r0081 | |
| store local0 g34 | |
| insert_obj local0 g1b | |
| call_vn r0076 #1b g35 | |
| je g09 #13 ~l0003 | |
| insert_obj local0 g1e | |
| jump l0004 | |
| l0003: insert_obj local0 g09 | |
| l0004: rtrue | |
| Routine r0233, 0 locals | |
| Action routine for: | |
| "squash noun" | |
| "finish noun" | |
| "type" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #09 ~l0002 | |
| call_vs r0241 #4f #01 g34 -> sp | |
| ret_popped | |
| l0002: call_vn r0241 #4f #02 g34 | |
| rtrue | |
| Routine r0234, 0 locals | |
| Action routine for: | |
| "discard held in / to / at / against / on / onto noun" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: jg g35 #01 ~l0003 | |
| store g31 #1002 | |
| call_vs r0086 g35 #04 -> sp | |
| jz sp l0002 | |
| store g31 #50 | |
| rtrue | |
| l0002: store g31 #50 | |
| l0003: test_attr g35 #09 l0004 | |
| call_vs r0241 #50 #01 -> sp | |
| ret_popped | |
| l0004: call_vs r0082 g35 #50 -> sp | |
| jz sp ~rfalse | |
| call_vn r0241 #50 #02 g34 | |
| rtrue | |
| Routine r0235, 0 locals | |
| Action routine for: | |
| "attack noun" | |
| "attack on noun" | |
| "attack noun with noun" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: test_attr g34 #09 ~l0002 | |
| call_vs r0082 g34 #42 -> sp | |
| jz sp ~rfalse | |
| l0002: call_vn r0241 #42 #01 g34 | |
| rtrue | |
| Routine r0236, 0 locals | |
| Action routine for: | |
| "embrace creature" | |
| call_2s r0152 g34 -> sp | |
| jz sp l0001 | |
| rtrue | |
| l0001: call_vs r0082 g34 #32 -> sp | |
| jz sp ~rfalse | |
| je g34 g1b ~l0002 | |
| call_vs r0241 #37 #03 g34 -> sp | |
| ret_popped | |
| l0002: call_vn r0241 #32 #01 g34 | |
| rtrue | |
| Routine r0237, 0 locals | |
| Action routine for: | |
| "answer topic to creature" | |
| call_vs r0082 g35 #52 -> sp | |
| jz sp ~rfalse | |
| call_vn r0241 #52 #01 g34 | |
| rtrue | |
| Routine r0238, 0 locals | |
| Action routine for: | |
| "tell creature about topic" | |
| je g34 g1b ~l0001 | |
| call_vs r0241 #51 #01 g34 -> sp | |
| ret_popped | |
| l0001: call_vs r0082 g34 #51 -> sp | |
| jz sp ~rfalse | |
| call_vn r0241 #51 #02 g34 | |
| rtrue | |
| Routine r0239, 0 locals | |
| Action routine for: | |
| "ask creature about topic" | |
| call_vs r0082 g34 #53 -> sp | |
| jz sp ~rfalse | |
| call_vn r0241 #53 #01 g34 | |
| rtrue | |
| Routine r0240, 0 locals | |
| Action routine for: | |
| "ask creature for noun" | |
| je g34 g1b ~l0001 | |
| call_2n r0076 #0e | |
| rtrue | |
| l0001: call_vn r0241 #1003 #01 g34 | |
| rtrue | |
| Routine r0241, 4 locals | |
| store local3 ge9 | |
| store ge9 local0 | |
| jz local1 ~l0001 | |
| store local1 #01 | |
| l0001: call_vn r0242 local1 local2 | |
| store ge9 local3 | |
| rtrue | |
| Routine r0242, 3 locals | |
| store local2 g31 | |
| store g2f local0 | |
| store g30 local1 | |
| store g31 ge9 | |
| call_vs r0086 #17 #04 -> sp | |
| jz sp l0001 | |
| store g31 local2 | |
| rfalse | |
| l0001: store g31 local2 | |
| call_vn r0014 local0 local1 | |
| rtrue | |
| Routine r0243, 0 locals | |
| je ge9 #10 ~l0001 | |
| print_paddr s108 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #42 ~l0002 | |
| print_paddr s109 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0244, 0 locals | |
| call_vn r0495 geb #4c | |
| call_vs r0493 geb #4c -> sp | |
| je sp #0c ~l0002 | |
| random #03 -> sp | |
| je sp #01 ~l0002 | |
| je g08 #02 l0001 | |
| je g08 #04 l0001 | |
| je g08 #05 ~l0002 | |
| l0001: call_2n r0076 #5e | |
| l0002: call_vs r0493 geb #4c -> sp | |
| je sp #12 ?~l0005 | |
| call_vn r0492 geb #4c #00 | |
| jl g08 #05 ~l0003 | |
| set_text_style boldface | |
| print_paddr s110 | |
| l0003: je g08 #05 ~l0004 | |
| set_text_style boldface | |
| print_paddr s111 | |
| call_1n r0468 | |
| l0004: add g08 #01 -> sp | |
| call_2n r0467 sp | |
| l0005: call_vs r0493 geb #4c -> sp | |
| je sp #09 ~l0006 | |
| set_text_style boldface | |
| print_paddr s112 | |
| new_line | |
| rtrue | |
| l0006: rfalse | |
| Routine r0245, 0 locals | |
| je g08 #05 rfalse | |
| je ge9 #13 ?~l0001 | |
| je g35 #001c ~l0001 | |
| print_ret "Safely packed away in the car." | |
| l0001: rfalse | |
| Routine r0246, 0 locals | |
| je g08 #05 rfalse | |
| je ge9 #0f #11 ?~l0005 | |
| jin geb "your car" ~l0003 | |
| je geb #0036 l0001 | |
| je geb #0029 ~l0002 | |
| l0001: print_ret "No." | |
| l0002: print_paddr s113 | |
| l0003: test_attr geb #06 l0004 | |
| print_paddr s114 | |
| new_line | |
| rtrue | |
| l0004: rfalse | |
| l0005: je ge9 #54 ?~l0012 | |
| je geb #0036 ~l0006 | |
| test_attr geb #06 l0006 | |
| call_2n r0454 geb | |
| insert_obj geb "your car" | |
| set_attr geb #1c | |
| print_paddr s115 | |
| add g16 #0a -> g16 | |
| rtrue | |
| l0006: je geb #0037 ~l0007 | |
| test_attr geb #06 l0007 | |
| call_2n r0454 geb | |
| rtrue | |
| l0007: test_attr geb #06 ?l0011 | |
| call_vs r0493 geb #004d -> sp | |
| sub g07 sp -> sp | |
| jl sp #00 ~l0008 | |
| print_ret "You cannot afford it!" | |
| l0008: call_vs r0493 geb #004d -> sp | |
| sub g07 sp -> g07 | |
| insert_obj geb g1b | |
| set_attr geb #06 | |
| print_paddr s116 | |
| print_num g07 | |
| print " left on it.^" | |
| je geb #0021 ~l0009 | |
| insert_obj geb "Multi-purpose room" | |
| insert_obj "sign" "Secret Place" | |
| print_paddr s117 | |
| add g16 #05 -> g16 | |
| rtrue | |
| l0009: je geb #003a ~l0010 | |
| inc g06 | |
| l0010: rtrue | |
| l0011: print_ret "You already paid for that!" | |
| l0012: rfalse | |
| Routine r0247, 0 locals | |
| print_paddr s119 | |
| ret #0022 | |
| Routine r0248, 0 locals | |
| print_paddr s120 | |
| ret #002c | |
| Routine r0249, 0 locals | |
| je ge9 #17 ?~l0007 | |
| print_paddr s123 | |
| test_attr "large rations case" #06 l0001 | |
| print_ret "you haven't stocked up on food." | |
| l0001: test_attr "pack of matches" #06 l0002 | |
| print_ret "you didn't buy matches." | |
| l0002: test_attr "6 month supply of vitamins" #06 l0003 | |
| print_paddr s124 | |
| new_line | |
| rtrue | |
| l0003: jin "gas-powered generator" "your car" l0004 | |
| print_paddr s125 | |
| new_line | |
| rtrue | |
| l0004: test_attr "four 45 gallon drums of gas" #06 l0005 | |
| print_paddr s126 | |
| new_line | |
| rtrue | |
| l0005: test_attr "small handwritten note" #11 l0006 | |
| print_paddr s127 | |
| new_line | |
| rtrue | |
| l0006: print_paddr s128 | |
| call_2n r0467 #05 | |
| l0007: rfalse | |
| Routine r0250, 0 locals | |
| print_paddr s129 | |
| print_num g07 | |
| print_ret "." | |
| Routine r0251, 0 locals | |
| print_paddr s130 | |
| jin "sign" geb ~l0001 | |
| print_paddr s131 | |
| l0001: rfalse | |
| Routine r0252, 0 locals | |
| je ge9 #0f ~l0001 | |
| store g1c #01 | |
| print_paddr s133 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0253, 0 locals | |
| je ge9 #52 #53 #5a l0001 | |
| je ge9 #51 ?~l0005 | |
| l0001: test_attr "four 45 gallon drums of gas" #06 ~l0002 | |
| print_paddr s135 | |
| new_line | |
| rtrue | |
| l0002: print_paddr s136 | |
| set_text_style boldface | |
| print "Type YES or NO here ... " | |
| call_1s r0130 -> sp | |
| je sp #01 ~l0004 | |
| call_vn r0076 #54 #0021 | |
| test_attr "four 45 gallon drums of gas" #06 ~l0003 | |
| insert_obj "sign" "Secret Place" | |
| print_paddr s137 | |
| l0003: rtrue | |
| l0004: print_ret "On your way, then, sir ..." | |
| l0005: rfalse | |
| Routine r0254, 0 locals | |
| je ge9 #0f #37 #22 l0001 | |
| je ge9 #20 ~l0002 | |
| l0001: print_paddr s141 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0255, 0 locals | |
| je ge9 #15 #16 ~l0001 | |
| je g35 #0034 ~l0001 | |
| insert_obj geb "Secret Place" | |
| set_attr "soldier" #11 | |
| insert_obj "soldier" "A shopping mall parking lot" | |
| add g16 #0a -> g16 | |
| print_paddr s144 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0256, 0 locals | |
| je ge9 #15 #16 ~l0001 | |
| print_paddr s146 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0257, 0 locals | |
| je ge9 #2b ~l0001 | |
| print_paddr s148 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0258, 0 locals | |
| je ge9 #0f ~l0001 | |
| print_paddr s151 | |
| l0001: rfalse | |
| Routine r0259, 0 locals | |
| je ge9 #0f ~l0002 | |
| je g08 #05 ~l0001 | |
| print_paddr s154 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s155 | |
| l0002: rfalse | |
| Routine r0260, 0 locals | |
| test_attr geb #06 l0001 | |
| print_paddr s156 | |
| new_line | |
| rtrue | |
| l0001: print "Just some matches. " | |
| sub #14 g00 -> sp | |
| print_num sp | |
| print_ret " to be exact. " | |
| Routine r0261, 0 locals | |
| sub #14 g00 -> sp | |
| print_num sp | |
| print " matches" | |
| rtrue | |
| Routine r0262, 0 locals | |
| je ge9 #2e ?~l0004 | |
| jin "burning match" "Secret Place" l0001 | |
| print_paddr s157 | |
| new_line | |
| rtrue | |
| l0001: insert_obj "burning match" g1b | |
| call_vn r0088 #002b #03 | |
| inc g00 | |
| print "You now hold a burning match.^" | |
| je g00 #0a ~l0002 | |
| print_paddr s158 | |
| new_line | |
| rtrue | |
| l0002: je g00 #14 ~l0003 | |
| insert_obj geb "Secret Place" | |
| print_paddr s159 | |
| new_line | |
| rtrue | |
| l0003: rtrue | |
| l0004: rfalse | |
| Routine r0263, 0 locals | |
| print_paddr s160 | |
| get_prop geb #28 -> sp | |
| print_num sp | |
| print_ret " turn(s)." | |
| Routine r0264, 0 locals | |
| get_prop geb #28 -> sp | |
| jz sp ~l0001 | |
| print_paddr s161 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s162 | |
| get_prop geb #28 -> sp | |
| print_num sp | |
| print_ret " turn(s)" | |
| Routine r0265, 0 locals | |
| je ge9 #2e ~l0001 | |
| print_paddr s163 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0266, 0 locals | |
| insert_obj geb "Secret Place" | |
| jin geb g09 l0001 | |
| jin geb g1b ~l0002 | |
| l0001: print_paddr s164 | |
| sub #14 g00 -> sp | |
| print_num sp | |
| print " left." | |
| l0002: rfalse | |
| Routine r0267, 0 locals | |
| test_attr geb #11 ~l0001 | |
| print "bathmat" | |
| rtrue | |
| l0001: rfalse | |
| Routine r0268, 0 locals | |
| je ge9 #22 #20 ~l0002 | |
| test_attr geb #11 l0001 | |
| set_attr geb #11 | |
| print_paddr s166 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s167 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0269, 0 locals | |
| random #0a -> sp | |
| pull gef | |
| je gef #01 ~l0002 | |
| jin "soldier" "A bank" ~l0001 | |
| call_vn2 r0494 #0034 #0052 s170 #00 | |
| l0001: rtrue | |
| l0002: je gef #02 ~l0004 | |
| jin "soldier" "A bank" ~l0003 | |
| call_vn2 r0494 #0034 #0052 s171 #00 | |
| l0003: rtrue | |
| l0004: je gef #03 ~l0006 | |
| jin "soldier" "A bank" ~l0005 | |
| call_vn2 r0494 #0034 #0052 s172 or "set" #01 | |
| l0005: rtrue | |
| l0006: je gef #04 ~l0008 | |
| jin "soldier" "A bank" ~l0007 | |
| call_vn2 r0494 #0034 #0052 s173 #01 | |
| l0007: rtrue | |
| l0008: je gef #05 #06 #07 l0009 | |
| je gef #08 ?~l0013 | |
| l0009: jl g12 #02bc ~l0010 | |
| print_paddr s174 | |
| new_line | |
| rtrue | |
| l0010: jl g12 #02d0 ~l0011 | |
| print_paddr s175 | |
| new_line | |
| rtrue | |
| l0011: jl g12 #030c ~l0012 | |
| print_paddr s176 | |
| new_line | |
| rtrue | |
| l0012: print_paddr s177 | |
| new_line | |
| rtrue | |
| l0013: rfalse | |
| Routine r0270, 0 locals | |
| get_child geb -> sp ~l0001 | |
| l0001: je sp g1b ~rtrue | |
| call_vn r0495 #30 #4e | |
| call_vs r0493 #30 #4e -> sp | |
| pull gef | |
| je gef #01 ~l0002 | |
| print_paddr s180 | |
| new_line | |
| rtrue | |
| l0002: je gef #02 ~l0003 | |
| print_paddr s181 | |
| new_line | |
| rtrue | |
| l0003: je gef #03 ~l0004 | |
| print_paddr s182 | |
| new_line | |
| rtrue | |
| l0004: je gef #04 ~l0005 | |
| print_paddr s183 | |
| new_line | |
| rtrue | |
| l0005: je gef #05 ~l0006 | |
| print_paddr s184 | |
| call_2n r0128 #0031 | |
| call_vn r0492 geb #4e #00 | |
| l0006: rfalse | |
| Routine r0271, 0 locals | |
| je ge9 #17 ?~l0003 | |
| jin "soldier" "A bank" ?~l0002 | |
| call_vs r0493 #0032 #004f -> sp | |
| je sp #01 l0001 | |
| call_vs r0493 #0032 #0050 -> sp | |
| je sp #01 l0001 | |
| call_vs r0493 #0032 #0051 -> sp | |
| je sp #01 ~l0002 | |
| l0001: store g1c #01 | |
| print_paddr s185 | |
| new_line | |
| rtrue | |
| l0002: call_vn r0492 geb #4e #00 | |
| print_paddr s186 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| Routine r0272, 0 locals | |
| jl g12 #02d0 ~l0001 | |
| print_paddr s189 | |
| new_line | |
| rtrue | |
| l0001: jl g12 #030c ~l0002 | |
| print_paddr s190 | |
| new_line | |
| rtrue | |
| l0002: print_paddr s191 | |
| new_line | |
| rtrue | |
| Routine r0273, 1 local | |
| je ge9 #52 #51 ?~l0020 | |
| jg g47 #01 ~l0001 | |
| jump l0018 | |
| l0001: store g7e g46 | |
| call_1s r0056 -> local0 | |
| jz local0 ?l0002 | |
| print_ret "A NUMBER, not a WORD, please." | |
| l0002: jg g44 #012c ~l0003 | |
| print_paddr s192 | |
| rtrue | |
| l0003: call_vs r0493 geb #4f -> sp | |
| je sp #01 l0004 | |
| call_vs r0493 geb #51 -> sp | |
| je sp #01 ~l0006 | |
| l0004: jg g12 #030c l0005 | |
| jl g12 #02d0 ~l0006 | |
| l0005: print_paddr s193 | |
| call_2n r0128 #1b | |
| l0006: call_vs r0493 geb #50 -> sp | |
| je sp #01 ~l0007 | |
| jg g12 #02cf ~l0007 | |
| jl g12 #030c ~l0007 | |
| print_paddr s194 | |
| call_2n r0128 #1b | |
| rtrue | |
| l0007: jl g12 #02d0 ?~l0011 | |
| call_vs r0493 geb #4f -> sp | |
| je sp #01 ~l0008 | |
| jin "soldier" "A bank" ~l0008 | |
| call_1n r0274 | |
| rtrue | |
| l0008: call_vs r0493 geb #4f -> sp | |
| je sp #01 ~l0009 | |
| call_1n r0275 | |
| rtrue | |
| l0009: print "^You have $" | |
| print_num g07 | |
| print_paddr s195 | |
| print_num g44 | |
| print ".^" | |
| jl g07 g44 ~l0010 | |
| print_paddr s196 | |
| new_line | |
| rtrue | |
| l0010: call_vn r0492 geb #4f #01 | |
| jump l0019 | |
| l0011: jg g12 #02cf ?~l0015 | |
| jl g12 #030c ?~l0015 | |
| jin "soldier" "A bank" ~l0012 | |
| call_vs r0493 geb #4f -> sp | |
| je sp #01 ~l0012 | |
| call_1n r0274 | |
| rtrue | |
| l0012: print "^You have $" | |
| print_num g07 | |
| print_paddr s197 | |
| print_num g44 | |
| print ".^" | |
| jl g07 g44 ~l0013 | |
| print_paddr s198 | |
| new_line | |
| rtrue | |
| l0013: call_vn r0492 geb #50 #01 | |
| call_vs r0493 geb #4f -> sp | |
| je sp #01 ~l0014 | |
| print_paddr s199 | |
| add g16 #0a -> g16 | |
| l0014: jump l0019 | |
| l0015: jg g12 #030c ?~l0018 | |
| print "^You have $" | |
| print_num g07 | |
| print_paddr s200 | |
| print_num g44 | |
| print ".^" | |
| jl g07 g44 ~l0016 | |
| print_paddr s201 | |
| new_line | |
| rtrue | |
| l0016: call_vn r0492 geb #51 #01 | |
| call_vs r0493 geb #50 -> sp | |
| je sp #01 ~l0017 | |
| print_paddr s202 | |
| add g16 #0a -> g16 | |
| l0017: jump l0019 | |
| l0018: print_paddr s203 | |
| new_line | |
| rtrue | |
| l0019: sub g07 g44 -> g07 | |
| add g04 g44 -> g04 | |
| call_2n r0076 #5f | |
| print_paddr s204 | |
| call_2n r0128 #2f | |
| rtrue | |
| l0020: rfalse | |
| Routine r0274, 0 locals | |
| store g1c #01 | |
| print_paddr s205 | |
| new_line | |
| rtrue | |
| Routine r0275, 0 locals | |
| print_paddr s206 | |
| call_2n r0128 #1b | |
| rtrue | |
| Routine r0276, 0 locals | |
| print_paddr s208 | |
| jin geb "A shopping mall parking lot" ~l0001 | |
| print_paddr s209 | |
| l0001: rfalse | |
| Routine r0277, 2 locals | |
| jin geb g09 ?~l0002 | |
| random #02 -> sp | |
| je sp #02 ?~l0002 | |
| print "^The soldier bellows: "" | |
| print_paddr local0 | |
| print "^" | |
| call_1s r0130 -> sp | |
| je sp local1 l0001 | |
| store g1c #01 | |
| print_paddr s210 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s211 | |
| new_line | |
| rtrue | |
| l0002: random #04 -> sp | |
| je sp #03 ~l0003 | |
| print_paddr s212 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| Routine r0278, 0 locals | |
| je g08 #05 ~l0001 | |
| print_paddr s214 | |
| new_line | |
| rtrue | |
| l0001: test_attr geb #06 l0002 | |
| print_paddr s215 | |
| new_line | |
| rtrue | |
| l0002: print_ret "It's a gas-powered generator." | |
| Routine r0279, 0 locals | |
| je ge9 #0f ~l0002 | |
| jin geb "your car" ~l0001 | |
| print "You cannot lift that!" | |
| l0001: rtrue | |
| l0002: rfalse | |
| Routine r0280, 0 locals | |
| test_attr geb #06 ~l0001 | |
| print_paddr s216 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s217 | |
| new_line | |
| rtrue | |
| Routine r0281, 0 locals | |
| test_attr "gold coin" #06 l0001 | |
| print_paddr s219 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s220 | |
| new_line | |
| rtrue | |
| Routine r0282, 0 locals | |
| test_attr geb #06 l0001 | |
| print_paddr s221 | |
| new_line | |
| rtrue | |
| l0001: print_ret "A gold 1880 dollar coin." | |
| Routine r0283, 0 locals | |
| je ge9 #15 #16 ?~l0003 | |
| je g35 #39 ~l0001 | |
| print_paddr s222 | |
| new_line | |
| rtrue | |
| l0001: je g35 #32 ~l0002 | |
| add g04 #01f4 -> g04 | |
| l0002: sub g06 #01 -> g06 | |
| insert_obj geb "Secret Place" | |
| print_paddr s223 | |
| call_2n r0128 #1b | |
| rtrue | |
| l0003: rfalse | |
| Routine r0284, 0 locals | |
| random #06 -> sp | |
| je sp #02 ~l0001 | |
| print_paddr s227 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0285, 0 locals | |
| test_attr geb #11 l0001 | |
| print_paddr s228 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s229 | |
| new_line | |
| rtrue | |
| Routine r0286, 0 locals | |
| je ge9 #16 #15 ?~l0003 | |
| je g35 #3d ~l0002 | |
| test_attr geb #11 ~l0001 | |
| print_paddr s230 | |
| new_line | |
| rtrue | |
| l0001: set_attr geb #11 | |
| set_attr "www.starone.com website" #01 | |
| add g16 #05 -> g16 | |
| print_paddr s231 | |
| new_line | |
| rtrue | |
| l0002: print_paddr s232 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| Routine r0287, 0 locals | |
| print_paddr s234 | |
| new_line | |
| rtrue | |
| Routine r0288, 0 locals | |
| print_paddr s236 | |
| call_vn r0076 #22 #0044 | |
| rtrue | |
| Routine r0289, 0 locals | |
| jin "cloud of acrid smoke" geb ~l0001 | |
| print_paddr s237 | |
| call_2n r0128 #0057 | |
| l0001: jin "trio of desperate looters" geb ~l0002 | |
| store g1c #01 | |
| print_paddr s238 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0290, 0 locals | |
| je ge9 #42 ~l0001 | |
| store g1c #01 | |
| print_paddr s243 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #20 #22 ~l0002 | |
| call_1n r0466 | |
| rtrue | |
| l0002: rfalse | |
| Routine r0291, 0 locals | |
| jin "roaring fire" geb ~l0001 | |
| print_paddr s244 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s245 | |
| new_line | |
| rtrue | |
| Routine r0292, 0 locals | |
| je ge9 #1001 ~l0002 | |
| jin "roaring fire" "fireplace" l0001 | |
| insert_obj g34 geb | |
| print_paddr s246 | |
| rtrue | |
| l0001: call_2n r0293 g34 | |
| rtrue | |
| l0002: rfalse | |
| Routine r0293, 1 local | |
| je local0 #0063 ~l0001 | |
| store g1c #01 | |
| print_paddr s247 | |
| new_line | |
| rtrue | |
| l0001: je local0 #0047 ?~l0003 | |
| get_prop "roaring fire" #28 -> sp | |
| add sp #14 -> sp | |
| put_prop "roaring fire" #28 sp | |
| insert_obj "nice-looking log" "pile of wood" | |
| get_prop "roaring fire" #28 -> sp | |
| jg sp #50 ~l0002 | |
| put_prop "roaring fire" #28 #50 | |
| print_paddr s248 | |
| new_line | |
| rtrue | |
| l0002: print_ret "The fire blazes up anew." | |
| l0003: je local0 #0081 ?~l0004 | |
| insert_obj local0 "Secret Place" | |
| insert_obj "roaring fire" "Secret Place" | |
| print_ret "Sploosh! The fire goes out." | |
| l0004: insert_obj local0 "Secret Place" | |
| print_paddr s249 | |
| new_line | |
| rtrue | |
| Routine r0294, 0 locals | |
| je ge9 #0f ~l0002 | |
| jin geb "fireplace" ~l0001 | |
| jin "roaring fire" "fireplace" ~l0001 | |
| print_paddr s252 | |
| l0001: rfalse | |
| l0002: rfalse | |
| Routine r0295, 0 locals | |
| je ge9 #2e ~l0002 | |
| test_attr geb #02 l0001 | |
| print_paddr s254 | |
| new_line | |
| rtrue | |
| l0001: test_attr geb #02 ~l0002 | |
| store g1c #01 | |
| print_paddr s255 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0296, 0 locals | |
| je ge9 #2e ?~l0007 | |
| jin "burning match" g1b l0001 | |
| print_ret "Not without a lit match." | |
| l0001: jin geb "fireplace" ?l0004 | |
| test_attr geb #02 ~l0002 | |
| test_attr g09 #08 l0002 | |
| store g1c #01 | |
| print_paddr s257 | |
| new_line | |
| rtrue | |
| l0002: test_attr geb #02 ~l0003 | |
| insert_obj geb "pile of wood" | |
| print_paddr s258 | |
| l0003: print_ret "Not here." | |
| l0004: test_attr "blanket" #1a ~l0005 | |
| print_paddr s259 | |
| new_line | |
| rtrue | |
| l0005: insert_obj "nice-looking log" "pile of wood" | |
| insert_obj "roaring fire" "fireplace" | |
| call_vn r0088 #0048 #14 | |
| test_attr "fireplace" #11 l0006 | |
| set_attr "fireplace" #11 | |
| add g16 #03 -> g16 | |
| print_paddr s260 | |
| new_line | |
| rtrue | |
| l0006: print_paddr s261 | |
| new_line | |
| rtrue | |
| l0007: rfalse | |
| Routine r0297, 0 locals | |
| jin geb "fireplace" ?~l0004 | |
| jin g1b "Living Room" ?~l0004 | |
| get_prop geb #28 -> sp | |
| pull gef | |
| je gef #0a ~l0001 | |
| print_ret "^The fire wanes a little.^" | |
| l0001: je gef #05 ~l0002 | |
| print_paddr s263 | |
| new_line | |
| rtrue | |
| l0002: je gef #02 ~l0003 | |
| print_paddr s264 | |
| new_line | |
| rtrue | |
| l0003: random #06 -> sp | |
| je sp #03 ~l0004 | |
| print_paddr s265 | |
| new_line | |
| rtrue | |
| l0004: rtrue | |
| Routine r0298, 0 locals | |
| je ge9 #1001 ~l0001 | |
| call_2n r0293 g34 | |
| rtrue | |
| l0001: je ge9 #0f ~l0002 | |
| store g1c #01 | |
| print_paddr s266 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0299, 0 locals | |
| insert_obj "big pile of soot" "fireplace" | |
| insert_obj geb "Secret Place" | |
| jin g1b "Living Room" ~l0001 | |
| print_paddr s267 | |
| new_line | |
| rtrue | |
| l0001: je g09 #40 l0002 | |
| print_paddr s268 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0300, 0 locals | |
| je ge9 #0f ~l0001 | |
| clear_attr geb #11 | |
| clear_attr geb #1a | |
| l0001: rfalse | |
| Routine r0301, 0 locals | |
| test_attr "scary halloween mask" #23 l0001 | |
| print_paddr s278 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s279 | |
| new_line | |
| rtrue | |
| Routine r0302, 0 locals | |
| je ge9 #22 ~l0001 | |
| call_vn r0076 #20 geb | |
| rtrue | |
| l0001: rfalse | |
| Routine r0303, 0 locals | |
| je ge9 #2b ~l0001 | |
| store g1c #01 | |
| print_paddr s284 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #15 #16 ~l0002 | |
| je g35 #0077 ~l0002 | |
| insert_obj g34 "Secret Place" | |
| call_vn r0492 #0077 #0057 #01 | |
| print_paddr s285 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0304, 0 locals | |
| je g09 #54 ~l0001 | |
| ret #08 | |
| l0001: ret #07 | |
| Routine r0305, 0 locals | |
| je g09 #54 ~l0001 | |
| ret #0069 | |
| l0001: ret #54 | |
| Routine r0306, 0 locals | |
| je ge9 #23 ~l0001 | |
| je g09 #0069 ~l0001 | |
| jin "trio of desperate looters" "Living Room" ~l0001 | |
| store g1c #01 | |
| print_paddr s293 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0307, 0 locals | |
| print_paddr s296 | |
| jin "PC-TV Integrator software" "desktop PC" ~l0001 | |
| print "^" | |
| call_1n r0329 | |
| print "^" | |
| l0001: rfalse | |
| Routine r0308, 0 locals | |
| je ge9 #2e ~l0001 | |
| store g1c #01 | |
| print_paddr s298 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0309, 0 locals | |
| print_paddr s301 | |
| jin "tic tac toe" geb ~l0001 | |
| print_paddr s302 | |
| l0001: jin "PC-TV Integrator software" geb ~l0002 | |
| call_1n r0329 | |
| l0002: print "^" | |
| call_vn r0076 #22 #008e | |
| rtrue | |
| Routine r0310, 0 locals | |
| je ge9 #0f ~l0001 | |
| print_paddr s303 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #1001 ~l0003 | |
| test_attr g34 #04 l0002 | |
| insert_obj g34 g1b | |
| print_paddr s304 | |
| new_line | |
| rtrue | |
| l0002: print_paddr s305 | |
| rtrue | |
| l0003: je ge9 #26 ~l0004 | |
| print_paddr s306 | |
| new_line | |
| rtrue | |
| l0004: rfalse | |
| Routine r0311, 1 local | |
| je ge9 #1001 #0f #2e l0001 | |
| je ge9 #22 ~l0002 | |
| l0001: print_paddr s308 | |
| new_line | |
| rtrue | |
| l0002: je ge9 #59 ?~l0016 | |
| jg g47 #01 ~l0003 | |
| jump l0015 | |
| l0003: store g7e g46 | |
| call_1s r0056 -> local0 | |
| store gef local0 | |
| je gef "cracker" ?~l0005 | |
| test_attr "software cracker website: www.cracker.com" #01 l0004 | |
| call_1n r0312 | |
| rtrue | |
| l0004: insert_obj "software cracker website: www.cracker.com" g09 | |
| call_vn r0076 #20 #008c | |
| insert_obj "software cracker website: www.cracker.com" "Secret | |
| Place" | |
| jump l0014 | |
| l0005: je gef "starone" ?~l0008 | |
| test_attr "www.starone.com website" #01 l0006 | |
| call_1n r0312 | |
| rtrue | |
| l0006: insert_obj "www.starone.com website" g09 | |
| call_vn r0076 #20 #005d | |
| test_attr "www.starone.com website" #11 l0007 | |
| set_attr "www.starone.com website" #11 | |
| add g16 #05 -> g16 | |
| l0007: insert_obj "www.starone.com website" "Secret Place" | |
| jump l0014 | |
| l0008: je gef "govtytwok" ?~l0010 | |
| test_attr "www.govtytwok.gov web site" #01 l0009 | |
| call_1n r0312 | |
| rtrue | |
| l0009: insert_obj "www.govtytwok.gov web site" g09 | |
| call_vn r0076 #20 #008d | |
| insert_obj "www.govtytwok.gov web site" "Secret Place" | |
| jump l0014 | |
| l0010: je gef "5tarone" "starune" "slanono" ~l0011 | |
| print_paddr s309 | |
| new_line | |
| rtrue | |
| l0011: je gef "garynorth" s238 or "yourdon" s237 or "yardeni" | |
| l0012 | |
| je gef "y2ktimeb" ~l0013 | |
| l0012: print_paddr s310 | |
| new_line | |
| rtrue | |
| l0013: print_paddr s311 | |
| new_line | |
| rtrue | |
| l0014: rtrue | |
| l0015: print_paddr s312 | |
| new_line | |
| rtrue | |
| l0016: rfalse | |
| Routine r0312, 0 locals | |
| print_paddr s313 | |
| new_line | |
| rtrue | |
| Routine r0313, 0 locals | |
| test_attr geb #11 l0001 | |
| add g16 #05 -> g16 | |
| set_attr geb #11 | |
| l0001: print_paddr s315 | |
| new_line | |
| rtrue | |
| Routine r0314, 0 locals | |
| print_paddr s316 | |
| call_1n r0329 | |
| print "^" | |
| rfalse | |
| Routine r0315, 0 locals | |
| je ge9 #11 #0f ~l0001 | |
| print_ret "Common sense prevents you." | |
| l0001: rfalse | |
| Routine r0316, 0 locals | |
| print_paddr s317 | |
| call_vs r0493 geb #53 -> sp | |
| print_num sp | |
| print_ret "." | |
| Routine r0317, 0 locals | |
| je ge9 #0f ~l0001 | |
| print_ret "Absolutely not." | |
| l0001: je ge9 #26 ~l0002 | |
| print_paddr s318 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0318, 2 locals | |
| je ge9 #52 #53 #5a l0001 | |
| je ge9 #51 ?~l0007 | |
| l0001: store local0 g44 | |
| jg g47 #01 ~l0002 | |
| print_ret "Just one number, please." | |
| l0002: store g7e g46 | |
| call_1s r0056 -> local1 | |
| jz local1 ?l0003 | |
| print_ret "A NUMBER from 1 to 166, please." | |
| l0003: jg local0 #a6 l0004 | |
| jl local0 #01 ~l0005 | |
| l0004: print_ret "A number from 1 to 166, please." | |
| l0005: call_vs r0493 geb #53 -> sp | |
| je local0 sp ~l0006 | |
| print_paddr s319 | |
| new_line | |
| rtrue | |
| l0006: call_vn r0492 geb #53 local0 | |
| print_paddr s320 | |
| call_vs r0493 geb #53 -> sp | |
| print_num sp | |
| print ".^" | |
| call_1n r0329 | |
| print "^" | |
| rtrue | |
| l0007: rfalse | |
| Routine r0319, 0 locals | |
| je ge9 #11 ~l0001 | |
| insert_obj geb "Secret Place" | |
| print_paddr s322 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #0f ~l0002 | |
| print_paddr s323 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0320, 0 locals | |
| je g08 #04 ~l0001 | |
| print_paddr s326 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #4f ?~l0004 | |
| jin "metal bucket" g1b ~l0003 | |
| get_child "metal bucket" -> sp ~l0002 | |
| l0002: jz sp ~l0003 | |
| insert_obj "some gasoline" "metal bucket" | |
| print_paddr s327 | |
| new_line | |
| rtrue | |
| l0003: print_paddr s328 | |
| new_line | |
| rtrue | |
| l0004: rfalse | |
| Routine r0321, 0 locals | |
| je ge9 #0f ~l0001 | |
| print_paddr s330 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #2e ~l0002 | |
| store g1c #01 | |
| print_paddr s331 | |
| new_line | |
| rtrue | |
| l0002: je ge9 #2b ~l0003 | |
| store g1c #01 | |
| print_paddr s332 | |
| new_line | |
| rtrue | |
| l0003: je ge9 #10 ~l0004 | |
| insert_obj geb "Secret Place" | |
| print_paddr s333 | |
| new_line | |
| rtrue | |
| l0004: je ge9 #5d ~l0007 | |
| je g35 #0077 ~l0005 | |
| insert_obj geb "Secret Place" | |
| print_paddr s334 | |
| new_line | |
| rtrue | |
| l0005: je g35 #36 ~l0006 | |
| print_paddr s335 | |
| rtrue | |
| l0006: set_attr g35 #02 | |
| rfalse | |
| l0007: rfalse | |
| Routine r0322, 0 locals | |
| je ge9 #1001 ~l0001 | |
| test_attr g34 #07 l0001 | |
| print_paddr s337 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0323, 0 locals | |
| test_attr geb #11 ~l0001 | |
| print_paddr s339 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0324, 0 locals | |
| test_attr geb #11 ~l0001 | |
| get_parent "metal bucket" -> sp | |
| get_parent "coil of rope" -> sp | |
| je sp sp l0001 | |
| clear_attr geb #11 | |
| print_paddr s340 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0325, 0 locals | |
| je ge9 #3c ?~l0006 | |
| je g35 #64 ~l0003 | |
| test_attr geb #11 l0003 | |
| jin "metal bucket" g1b ~l0001 | |
| jin "coil of rope" g1b l0002 | |
| l0001: print_paddr s341 | |
| new_line | |
| rtrue | |
| l0002: set_attr geb #11 | |
| print_paddr s342 | |
| new_line | |
| rtrue | |
| l0003: je g35 #0079 l0004 | |
| je g35 #0072 ~l0005 | |
| l0004: print_paddr s343 | |
| new_line | |
| rtrue | |
| l0005: print_ret "Not a useful action." | |
| l0006: rfalse | |
| Routine r0326, 0 locals | |
| test_attr geb #23 ~rtrue | |
| je g09 #006f ?l0005 | |
| je g09 #006e ?l0005 | |
| je g09 #0070 ?l0005 | |
| random #0a -> sp | |
| pull gef | |
| je gef #01 #02 #03 l0001 | |
| je gef #04 #05 ~l0002 | |
| l0001: print_paddr s346 | |
| new_line | |
| rtrue | |
| l0002: je gef #06 ~l0003 | |
| store g1c #01 | |
| print_paddr s347 | |
| new_line | |
| rtrue | |
| l0003: je gef #07 #08 #09 l0004 | |
| je gef #0a ~l0005 | |
| l0004: print_paddr s348 | |
| new_line | |
| rtrue | |
| l0005: random #03 -> sp | |
| je sp #01 ~l0006 | |
| print_paddr s349 | |
| new_line | |
| rtrue | |
| l0006: rfalse | |
| Routine r0327, 0 locals | |
| je ge9 #2a ~l0001 | |
| print "You remove your boots and ... " | |
| rfalse | |
| l0001: je ge9 #29 ~l0002 | |
| print_paddr s350 | |
| l0002: rfalse | |
| Routine r0328, 0 locals | |
| je ge9 #25 ~l0001 | |
| set_attr geb #12 | |
| print_paddr s352 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #26 ~l0002 | |
| clear_attr geb #12 | |
| print_ret "The flashlight clicks off." | |
| l0002: rfalse | |
| Routine r0329, 0 locals | |
| print_paddr s353 | |
| jin "PC-TV Integrator software" "desktop PC" l0001 | |
| print_ret " nothing much at the moment." | |
| l0001: call_vs r0493 #0073 #0054 -> sp | |
| pull gef | |
| je gef #01 ~l0002 | |
| print_paddr s354 | |
| new_line | |
| rtrue | |
| l0002: je gef #02 ?~l0017 | |
| call_vs r0493 #5f #53 -> sp | |
| pull gef | |
| je gef #84 ?~l0015 | |
| test_attr "satellite receiver" #11 l0003 | |
| set_attr "satellite receiver" #11 | |
| add g16 #05 -> g16 | |
| l0003: print_paddr s355 | |
| inc g05 | |
| store gef g05 | |
| je gef #01 ~l0004 | |
| print_paddr s356 | |
| new_line | |
| rtrue | |
| l0004: je gef #02 ~l0005 | |
| print_paddr s357 | |
| new_line | |
| rtrue | |
| l0005: je gef #03 ~l0006 | |
| print_paddr s358 | |
| new_line | |
| rtrue | |
| l0006: je gef #04 ~l0007 | |
| print_paddr s359 | |
| new_line | |
| rtrue | |
| l0007: je gef #05 ~l0008 | |
| print_paddr s360 | |
| new_line | |
| rtrue | |
| l0008: je gef #06 ~l0009 | |
| print_paddr s361 | |
| new_line | |
| rtrue | |
| l0009: je gef #07 ~l0010 | |
| print_paddr s362 | |
| new_line | |
| rtrue | |
| l0010: je gef #08 ~l0011 | |
| print_paddr s363 | |
| new_line | |
| rtrue | |
| l0011: je gef #09 ~l0012 | |
| print_paddr s364 | |
| new_line | |
| rtrue | |
| l0012: je gef #0a ~l0013 | |
| print_paddr s365 | |
| new_line | |
| rtrue | |
| l0013: je gef #0b ~l0014 | |
| store g05 #00 | |
| print_paddr s366 | |
| new_line | |
| rtrue | |
| l0014: jump l0016 | |
| l0015: print_paddr s367 | |
| new_line | |
| rtrue | |
| l0016: jump l0030 | |
| l0017: je gef #03 ~l0018 | |
| print_paddr s368 | |
| new_line | |
| rtrue | |
| l0018: je gef #04 ?~l0024 | |
| call_vs r0493 #5f #53 -> sp | |
| pull gef | |
| je gef #01 ~l0019 | |
| print_paddr s369 | |
| new_line | |
| rtrue | |
| l0019: je gef #0c ~l0020 | |
| print_paddr s370 | |
| new_line | |
| rtrue | |
| l0020: je gef #22 ~l0021 | |
| print_paddr s371 | |
| new_line | |
| rtrue | |
| l0021: je gef #64 ~l0022 | |
| print_paddr s372 | |
| new_line | |
| rtrue | |
| l0022: je gef #7e ~l0023 | |
| print_paddr s373 | |
| new_line | |
| rtrue | |
| l0023: print_paddr s374 | |
| new_line | |
| rtrue | |
| jump l0030 | |
| l0024: je gef #05 ~l0025 | |
| print_ret "Just loud static and no picture." | |
| l0025: je gef #06 ~l0026 | |
| print_paddr s375 | |
| new_line | |
| rtrue | |
| l0026: je gef #07 ?~l0030 | |
| call_vs r0493 #5f #53 -> sp | |
| jg sp #14 ?~l0030 | |
| call_vs r0493 #5f #53 -> sp | |
| jl sp #23 ?~l0030 | |
| print_paddr s376 | |
| random #03 -> sp | |
| pull gef | |
| je gef #01 ~l0027 | |
| print_paddr s377 | |
| new_line | |
| rtrue | |
| l0027: je gef #02 ~l0028 | |
| print_paddr s378 | |
| new_line | |
| rtrue | |
| l0028: je gef #03 ~l0029 | |
| print_paddr s379 | |
| new_line | |
| rtrue | |
| l0029: print_ret "Nothing, just static." | |
| l0030: rtrue | |
| Routine r0330, 0 locals | |
| print_paddr s380 | |
| call_vn r0076 #20 #0073 | |
| call_vn r0076 #20 #36 | |
| rtrue | |
| Routine r0331, 0 locals | |
| print_paddr s381 | |
| new_line | |
| rtrue | |
| Routine r0332, 0 locals | |
| je ge9 #42 ~l0001 | |
| print_paddr s383 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #17 ~l0002 | |
| print_paddr s384 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0333, 0 locals | |
| test_attr geb #11 l0001 | |
| print_paddr s389 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s390 | |
| new_line | |
| rtrue | |
| Routine r0334, 0 locals | |
| test_attr geb #11 ?~l0002 | |
| test_attr "pair of skates" #23 l0001 | |
| print_paddr s391 | |
| new_line | |
| rtrue | |
| l0001: print "You skillfully skate south ...^" | |
| ret #006f | |
| l0002: test_attr geb #11 l0004 | |
| test_attr "pair of skates" #23 ~l0003 | |
| print_paddr s392 | |
| new_line | |
| rtrue | |
| l0003: print_paddr s393 | |
| new_line | |
| rtrue | |
| l0004: rfalse | |
| Routine r0335, 0 locals | |
| test_attr "pair of skates" #23 l0001 | |
| print_ret "Not without wearing skates." | |
| l0001: ret #6e | |
| Routine r0336, 0 locals | |
| test_attr "pair of skates" #23 l0001 | |
| print_ret "Not without wearing skates." | |
| l0001: ret #0070 | |
| Routine r0337, 0 locals | |
| je ge9 #12 ?~l0003 | |
| je g35 #0074 l0001 | |
| print_paddr s400 | |
| new_line | |
| rtrue | |
| l0001: call_vs r0493 #0074 #0055 -> sp | |
| je sp #01 ~l0002 | |
| print_ret "Already did that." | |
| l0002: call_vn r0492 #0074 #0055 #01 | |
| add g16 #05 -> g16 | |
| print_paddr s401 | |
| new_line | |
| rtrue | |
| l0003: je ge9 #0f ~l0005 | |
| test_attr geb #11 l0004 | |
| print_paddr s402 | |
| new_line | |
| rtrue | |
| l0004: rfalse | |
| l0005: je ge9 #42 ?~l0008 | |
| test_attr geb #11 ~l0006 | |
| print_paddr s403 | |
| new_line | |
| rtrue | |
| l0006: je g35 #0072 l0007 | |
| print_ret "Futile. Ineffective." | |
| l0007: set_attr geb #11 | |
| add g16 #02 -> g16 | |
| print_paddr s404 | |
| new_line | |
| rtrue | |
| l0008: rfalse | |
| Routine r0338, 0 locals | |
| print_paddr s406 | |
| call_vs r0493 geb #54 -> sp | |
| mul sp #0a -> sp | |
| add #5a sp -> sp | |
| print_num sp | |
| print_paddr s407 | |
| test_attr "screws" #11 ~l0001 | |
| print_paddr s408 | |
| l0001: test_attr "screws" #11 l0002 | |
| print_paddr s409 | |
| l0002: rfalse | |
| Routine r0339, 1 local | |
| je ge9 #4d ~l0002 | |
| test_attr "screws" #11 l0001 | |
| print_paddr s410 | |
| l0001: print_paddr s411 | |
| new_line | |
| rtrue | |
| l0002: je ge9 #4b ?~l0005 | |
| test_attr "screws" #11 l0003 | |
| print_paddr s412 | |
| new_line | |
| rtrue | |
| l0003: call_vs r0493 geb #54 -> sp | |
| je sp #07 ~l0004 | |
| print_paddr s413 | |
| new_line | |
| rtrue | |
| l0004: print_paddr s414 | |
| call_vn r0495 geb #54 | |
| print "^The dish is now facing about " | |
| call_vs r0493 geb #54 -> sp | |
| mul sp #0a -> sp | |
| add #5a sp -> sp | |
| print_num sp | |
| print_paddr s415 | |
| rtrue | |
| l0005: je ge9 #4c ?~l0008 | |
| test_attr "screws" #11 l0006 | |
| print_paddr s416 | |
| new_line | |
| rtrue | |
| l0006: call_vs r0493 geb #54 -> sp | |
| je sp #01 ~l0007 | |
| print_paddr s417 | |
| new_line | |
| rtrue | |
| l0007: print_paddr s418 | |
| call_vs r0493 geb #54 -> local0 | |
| sub local0 #01 -> sp | |
| call_vn r0492 geb #54 sp | |
| print "^The dish is now facing about " | |
| call_vs r0493 geb #54 -> sp | |
| mul sp #0a -> sp | |
| add #5a sp -> sp | |
| print_num sp | |
| print_paddr s419 | |
| rtrue | |
| l0008: rfalse | |
| Routine r0340, 0 locals | |
| je ge9 #4d ?~l0004 | |
| jin "screwdriver" g1b l0001 | |
| print_ret "You need the right tool." | |
| l0001: call_vs r0493 geb #55 -> sp | |
| jz sp ~l0002 | |
| print_paddr s421 | |
| new_line | |
| rtrue | |
| l0002: test_attr geb #11 ~l0003 | |
| clear_attr geb #11 | |
| print_ret "The screws are tightened." | |
| l0003: test_attr geb #11 l0004 | |
| set_attr geb #11 | |
| print_paddr s422 | |
| new_line | |
| rtrue | |
| l0004: rfalse | |
| Routine r0341, 0 locals | |
| print_paddr s423 | |
| call_vn r0076 #20 #007e | |
| rfalse | |
| Routine r0342, 0 locals | |
| print "You scamper up the antenna ..." | |
| ret #0078 | |
| Routine r0343, 0 locals | |
| test_attr geb #11 l0001 | |
| test_attr "satellite receiver" #11 ~l0001 | |
| call_vs r0493 #0080 #0058 -> sp | |
| je sp #01 ~l0001 | |
| jin "roaring fire" "fireplace" ~l0001 | |
| set_attr geb #11 | |
| l0001: test_attr geb #11 ~rtrue | |
| je g09 #6f rtrue | |
| je g09 #6e rtrue | |
| je g09 #70 rtrue | |
| je g09 #6d rtrue | |
| call_vn r0495 #76 #56 | |
| call_vs r0493 #76 #56 -> sp | |
| pull gef | |
| je gef #01 ~l0002 | |
| print_paddr s425 | |
| new_line | |
| rtrue | |
| l0002: je gef #02 ~l0003 | |
| print_paddr s426 | |
| new_line | |
| rtrue | |
| l0003: je gef #03 ~l0005 | |
| test_attr g09 #08 ~l0004 | |
| print_paddr s427 | |
| new_line | |
| rtrue | |
| l0004: print_paddr s428 | |
| new_line | |
| rtrue | |
| l0005: je gef #04 ?~l0013 | |
| test_attr g09 #08 ?~l0009 | |
| test_attr "scary halloween mask" #23 ~l0006 | |
| jin "old broken hockey stick" g1b ~l0006 | |
| print_paddr s429 | |
| add g16 #05 -> g16 | |
| insert_obj "trio of desperate looters" "Living Room" | |
| clear_attr "back door" #17 | |
| set_attr "back door" #14 | |
| put_prop "roaring fire" #28 #3c | |
| rtrue | |
| l0006: test_attr "scary halloween mask" #23 ~l0007 | |
| store g1c #01 | |
| print_paddr s430 | |
| new_line | |
| rtrue | |
| l0007: jin "old broken hockey stick" g1b ~l0008 | |
| store g1c #01 | |
| print_paddr s431 | |
| new_line | |
| rtrue | |
| l0008: store g1c #01 | |
| print_paddr s432 | |
| new_line | |
| rtrue | |
| l0009: jin "old broken hockey stick" g1b ?~l0010 | |
| test_attr "scary halloween mask" #23 ~l0010 | |
| add g16 #05 -> g16 | |
| print_paddr s433 | |
| clear_attr "back door" #17 | |
| set_attr "back door" #14 | |
| insert_obj "trio of desperate looters" "Living Room" | |
| put_prop "roaring fire" #28 #3c | |
| call_2n r0128 #69 | |
| rtrue | |
| l0010: jin "old broken hockey stick" g1b ~l0011 | |
| print_paddr s434 | |
| new_line | |
| rtrue | |
| l0011: test_attr "scary halloween mask" #23 ~l0012 | |
| print_paddr s435 | |
| new_line | |
| rtrue | |
| l0012: store g1c #01 | |
| print_paddr s436 | |
| new_line | |
| rtrue | |
| l0013: je gef #05 ~l0015 | |
| test_attr g09 #08 ~l0014 | |
| print_paddr s437 | |
| new_line | |
| rtrue | |
| l0014: store g1c #01 | |
| print_paddr s438 | |
| new_line | |
| rtrue | |
| l0015: je gef #06 ~l0016 | |
| call_2n r0091 geb | |
| l0016: rfalse | |
| Routine r0344, 0 locals | |
| jin g1b "Living Room" ~l0001 | |
| random #04 -> sp | |
| je sp #02 ~l0001 | |
| print_paddr s440 | |
| new_line | |
| rtrue | |
| l0001: test_attr g09 #08 ?~l0005 | |
| call_vs r0493 geb #57 -> sp | |
| je sp #01 ?~l0005 | |
| jin geb g09 ?l0005 | |
| je g09 #0078 ?l0005 | |
| je g09 #007b ?l0005 | |
| insert_obj "big friendly dog" g09 | |
| random #04 -> sp | |
| pull gef | |
| je gef #01 ~l0002 | |
| print_paddr s441 | |
| new_line | |
| rtrue | |
| l0002: je gef #02 ~l0003 | |
| print_paddr s442 | |
| new_line | |
| rtrue | |
| l0003: je gef #03 ~l0004 | |
| print_paddr s443 | |
| new_line | |
| rtrue | |
| l0004: je gef #04 ~l0005 | |
| print_paddr s444 | |
| new_line | |
| rtrue | |
| l0005: jin geb g09 l0006 | |
| rtrue | |
| l0006: call_vs r0493 geb #57 -> sp | |
| je sp #01 ~l0007 | |
| random #0a -> sp | |
| je sp #01 ~l0007 | |
| print_paddr s445 | |
| new_line | |
| rtrue | |
| l0007: rfalse | |
| Routine r0345, 0 locals | |
| je ge9 #37 ~l0001 | |
| print_paddr s446 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #2e #42 ~l0002 | |
| sub g16 #0a -> g16 | |
| insert_obj "big friendly dog" "Secret Place" | |
| call_vn r0492 #77 #57 #00 | |
| call_2n r0091 #77 | |
| print_paddr s447 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0346, 0 locals | |
| print_paddr s448 | |
| call_vn r0076 #20 #007c | |
| rfalse | |
| Routine r0347, 0 locals | |
| test_attr "treacherous patch of ice" #11 l0001 | |
| store g1c #01 | |
| print_paddr s449 | |
| new_line | |
| rtrue | |
| l0001: ret #007b | |
| Routine r0348, 0 locals | |
| print_paddr s450 | |
| jin "roaring fire" "fireplace" ~l0001 | |
| print_paddr s451 | |
| l0001: print "^" | |
| rfalse | |
| Routine r0349, 0 locals | |
| jin "blanket" geb ~l0001 | |
| print_paddr s452 | |
| rtrue | |
| l0001: jin "roaring fire" "fireplace" l0002 | |
| print "chimney stack" | |
| rtrue | |
| l0002: jin "roaring fire" "fireplace" ~l0003 | |
| print_paddr s453 | |
| rtrue | |
| l0003: rfalse | |
| Routine r0350, 0 locals | |
| je ge9 #1001 ?~l0003 | |
| test_attr "blanket" #1a ~l0001 | |
| print_ret "The blanket is in the way." | |
| l0001: je g34 #4d ~l0002 | |
| print_paddr s454 | |
| new_line | |
| rtrue | |
| l0002: print_paddr s455 | |
| insert_obj g34 "fireplace" | |
| rtrue | |
| l0003: je ge9 #28 ?~l0009 | |
| jz g35 ~l0004 | |
| print_paddr s456 | |
| new_line | |
| rtrue | |
| l0004: je g35 #2d ~l0005 | |
| print_ret "That isn't quite big enough." | |
| l0005: je g35 #4d l0006 | |
| print_ret "That just doesn't work." | |
| l0006: print_paddr s457 | |
| set_attr "blanket" #11 | |
| insert_obj "blanket" "chimney stack" | |
| set_attr "blanket" #1a | |
| jin "trio of desperate looters" "Living Room" ~l0007 | |
| add g16 #05 -> g16 | |
| clear_attr "back door" #14 | |
| set_attr "back door" #17 | |
| insert_obj "trio of desperate looters" "Secret Place" | |
| print_paddr s458 | |
| call_1n r0468 | |
| rtrue | |
| l0007: je g1c #02 rtrue | |
| jin "roaring fire" "fireplace" ~l0008 | |
| print_paddr s459 | |
| insert_obj "cloud of acrid smoke" "Living Room" | |
| call_vn r0088 #007a #14 | |
| rtrue | |
| l0008: rtrue | |
| l0009: rfalse | |
| Routine r0351, 0 locals | |
| insert_obj "roaring fire" "Secret Place" | |
| call_2n r0089 #48 | |
| insert_obj geb "Secret Place" | |
| print_paddr s461 | |
| new_line | |
| rtrue | |
| Routine r0352, 0 locals | |
| je ge9 #3a ~l0001 | |
| store g1c #01 | |
| print_ret "Good going." | |
| l0001: rfalse | |
| Routine r0353, 0 locals | |
| test_attr geb #11 ~l0001 | |
| print_paddr s463 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s464 | |
| new_line | |
| rtrue | |
| Routine r0354, 0 locals | |
| je ge9 #1001 ~l0001 | |
| je g34 #45 ~l0001 | |
| test_attr geb #11 l0001 | |
| set_attr geb #11 | |
| insert_obj "big pile of soot" "Secret Place" | |
| print_paddr s465 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0355, 0 locals | |
| je ge9 #0f ~l0002 | |
| insert_obj geb g1b | |
| test_attr geb #15 l0001 | |
| print_paddr s467 | |
| rtrue | |
| l0001: rfalse | |
| l0002: je ge9 #50 ?~l0009 | |
| je g35 #6a ?~l0005 | |
| call_vs r0493 #77 #57 -> sp | |
| jz sp ~l0003 | |
| insert_obj geb "Secret Place" | |
| print_paddr s468 | |
| new_line | |
| rtrue | |
| l0003: call_vs r0493 #77 #57 -> sp | |
| je sp #01 ~l0005 | |
| test_attr geb #00 l0004 | |
| set_attr geb #00 | |
| add g16 #14 -> g16 | |
| insert_obj "bag of coins" g09 | |
| print_paddr s469 | |
| new_line | |
| rtrue | |
| l0004: print_paddr s470 | |
| new_line | |
| rtrue | |
| l0005: je g35 #77 l0006 | |
| print_paddr s471 | |
| new_line | |
| rtrue | |
| l0006: call_vs r0493 #77 #57 -> sp | |
| jz sp ~l0007 | |
| insert_obj geb g09 | |
| print_paddr s472 | |
| new_line | |
| rtrue | |
| l0007: test_attr geb #11 l0008 | |
| set_attr geb #11 | |
| print_paddr s473 | |
| new_line | |
| rtrue | |
| l0008: insert_obj geb g1b | |
| print_paddr s474 | |
| new_line | |
| rtrue | |
| l0009: rfalse | |
| Routine r0356, 0 locals | |
| print_paddr s475 | |
| test_attr "well" #17 ~l0001 | |
| print_paddr s476 | |
| l0001: test_attr "well" #17 l0002 | |
| test_attr "lid" #11 l0002 | |
| print_paddr s477 | |
| l0002: test_attr "well" #17 l0003 | |
| test_attr "lid" #11 ~l0003 | |
| print_paddr s478 | |
| l0003: rfalse | |
| Routine r0357, 0 locals | |
| je ge9 #27 ~l0003 | |
| test_attr "lid" #11 l0001 | |
| print_paddr s479 | |
| new_line | |
| rtrue | |
| l0001: test_attr "lid" #11 ~l0002 | |
| set_attr "well" #17 | |
| print_paddr s480 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| l0003: je ge9 #28 ~l0005 | |
| test_attr "lid" #11 ~l0004 | |
| clear_attr "well" #17 | |
| print_paddr s481 | |
| new_line | |
| rtrue | |
| l0004: rfalse | |
| l0005: je ge9 #1001 ~l0007 | |
| test_attr geb #17 ~l0006 | |
| insert_obj g34 "Secret Place" | |
| print_paddr s482 | |
| new_line | |
| rtrue | |
| l0006: print_paddr s483 | |
| new_line | |
| rtrue | |
| l0007: rfalse | |
| Routine r0358, 0 locals | |
| je ge9 #4c #4b ?~l0004 | |
| test_attr geb #11 l0001 | |
| print_paddr s485 | |
| new_line | |
| rtrue | |
| l0001: test_attr geb #11 ~l0002 | |
| test_attr "well" #17 l0002 | |
| set_attr "well" #17 | |
| print_paddr s486 | |
| new_line | |
| rtrue | |
| l0002: test_attr geb #11 ~l0003 | |
| test_attr "well" #17 ~l0003 | |
| print_ret "The well is already open!" | |
| l0003: rfalse | |
| l0004: je ge9 #2e ?~l0008 | |
| jin "burning match" g1b l0005 | |
| print_paddr s487 | |
| new_line | |
| rtrue | |
| l0005: test_attr "lid" #11 ~l0006 | |
| print_paddr s488 | |
| new_line | |
| rtrue | |
| l0006: jin "gasoline-soaked patch of ice" "lid" ~l0007 | |
| add g16 #05 -> g16 | |
| set_attr "lid" #11 | |
| insert_obj "gasoline-soaked patch of ice" "Secret Place" | |
| print_paddr s489 | |
| new_line | |
| rtrue | |
| l0007: rfalse | |
| l0008: je ge9 #28 ~l0010 | |
| test_attr "well" #17 ~l0009 | |
| clear_attr "well" #17 | |
| print_paddr s490 | |
| new_line | |
| rtrue | |
| l0009: print "That's not open!" | |
| rtrue | |
| l0010: je ge9 #1001 ~l0012 | |
| je g34 #63 ~l0011 | |
| test_attr "lid" #11 l0011 | |
| insert_obj "some gasoline" "Secret Place" | |
| insert_obj "gasoline-soaked patch of ice" "lid" | |
| print_paddr s491 | |
| rtrue | |
| l0011: rfalse | |
| l0012: je ge9 #27 ~l0013 | |
| print_paddr s492 | |
| new_line | |
| rtrue | |
| l0013: rfalse | |
| Routine r0359, 0 locals | |
| je ge9 #0f ?~l0007 | |
| jin "metal bucket" g1b l0001 | |
| print_ret "You ain't got no bucket." | |
| l0001: get_child "metal bucket" -> sp ~l0002 | |
| l0002: jz sp l0003 | |
| print_ret "That bucket ain't empty." | |
| l0003: jin "some icy water" "metal bucket" ~l0004 | |
| print_paddr s494 | |
| new_line | |
| rtrue | |
| l0004: test_attr "coil of rope" #11 l0005 | |
| print_paddr s495 | |
| new_line | |
| rtrue | |
| l0005: insert_obj "some icy water" "metal bucket" | |
| print_paddr s496 | |
| call_vs r0493 #80 #58 -> sp | |
| jz sp ~l0006 | |
| print_paddr s497 | |
| add g16 #05 -> g16 | |
| call_vn r0492 #80 #58 #01 | |
| l0006: rtrue | |
| l0007: rfalse | |
| Routine r0360, 0 locals | |
| je ge9 #0f ~l0001 | |
| insert_obj geb "well" | |
| l0001: rfalse | |
| Routine r0361, 0 locals | |
| je ge9 #2b ~l0001 | |
| print_paddr s499 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #10 ~l0002 | |
| insert_obj geb "Secret Place" | |
| print_paddr s500 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0362, 0 locals | |
| je ge9 #2e ?~l0003 | |
| jin "burning match" g1b l0001 | |
| print_paddr s502 | |
| new_line | |
| rtrue | |
| l0001: test_attr "lid" #11 ~l0002 | |
| print_paddr s503 | |
| new_line | |
| rtrue | |
| l0002: jin "gasoline-soaked patch of ice" "lid" ~l0003 | |
| add g16 #05 -> g16 | |
| set_attr "lid" #11 | |
| insert_obj "gasoline-soaked patch of ice" "Secret Place" | |
| print_paddr s504 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| Routine r0363, 0 locals | |
| je ge9 #0f ?~l0001 | |
| insert_obj "snowball" g1b | |
| call_vn r0492 #0084 #0059 #14 | |
| call_2n r0090 #0084 | |
| print_ret "You are now carrying a snowball." | |
| l0001: je ge9 #46 ?~l0005 | |
| je g09 #6e l0002 | |
| print_paddr s506 | |
| new_line | |
| rtrue | |
| l0002: jin "snow shovel" g1b l0003 | |
| print_paddr s507 | |
| new_line | |
| rtrue | |
| l0003: test_attr "Pond" #11 ~l0004 | |
| print_paddr s508 | |
| new_line | |
| rtrue | |
| l0004: add g16 #05 -> g16 | |
| set_attr "Pond" #11 | |
| print_paddr s509 | |
| new_line | |
| rtrue | |
| l0005: rfalse | |
| Routine r0364, 0 locals | |
| call_vs r0493 geb #59 -> sp | |
| je sp #05 ~l0001 | |
| print_paddr s511 | |
| new_line | |
| rtrue | |
| l0001: call_vs r0493 geb #59 -> sp | |
| jz sp ?~l0002 | |
| test_attr g09 #08 rtrue | |
| insert_obj "snowball" "Secret Place" | |
| print_ret "^The snowball has melted away.^" | |
| l0002: rfalse | |
| Routine r0365, 0 locals | |
| jg g12 #0168 ~l0001 | |
| jl g12 #0474 ~l0001 | |
| set_attr geb #12 | |
| rtrue | |
| l0001: clear_attr geb #12 | |
| rfalse | |
| Routine r0366, 0 locals | |
| je ge9 #3c ?~l0003 | |
| jin "tic tac toe" "desktop PC" ~l0001 | |
| print_paddr s514 | |
| new_line | |
| rtrue | |
| l0001: jin geb "disk drive" ~l0002 | |
| test_attr geb #11 l0002 | |
| set_attr geb #11 | |
| print_paddr s515 | |
| new_line | |
| rtrue | |
| l0002: print_paddr s516 | |
| new_line | |
| rtrue | |
| l0003: je ge9 #46 ?~l0006 | |
| test_attr geb #11 l0004 | |
| print_ret "Install it first." | |
| l0004: jin "PC-TV Integrator software" "desktop PC" ~l0005 | |
| print_ret "It's already up and running!" | |
| l0005: insert_obj "PC-TV Integrator software" "desktop PC" | |
| add g16 #05 -> g16 | |
| print_paddr s517 | |
| call_vn r0076 #20 #5e | |
| rtrue | |
| l0006: rfalse | |
| Routine r0367, 0 locals | |
| je ge9 #1001 ~l0001 | |
| insert_obj g34 "your desk" | |
| l0001: rfalse | |
| Routine r0368, 0 locals | |
| je ge9 #1001 ~l0001 | |
| insert_obj g34 "Sitting At My Desk" | |
| l0001: rfalse | |
| Routine r0369, 0 locals | |
| je ge9 #46 ?~l0003 | |
| jin g1b "Sitting At My Desk" l0001 | |
| print_ret "You're not near a phone!" | |
| l0001: test_attr "phone" #11 l0002 | |
| set_attr "phone" #11 | |
| add g16 #04 -> g16 | |
| print_paddr s522 | |
| new_line | |
| rtrue | |
| l0002: print_paddr s523 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| Routine r0370, 0 locals | |
| je ge9 #15 #16 ?~l0002 | |
| je g34 #00b6 l0001 | |
| je g35 #00b6 ~l0002 | |
| l0001: insert_obj geb "boss" | |
| set_attr geb #0c | |
| add g16 #01 -> g16 | |
| print_paddr s526 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0371, 0 locals | |
| je g08 #01 ~l0001 | |
| print_paddr s527 | |
| call_vn r0076 #22 #008e | |
| rtrue | |
| l0001: je g08 #02 ~l0002 | |
| print_paddr s528 | |
| call_vn r0076 #22 #008e | |
| rtrue | |
| l0002: je g08 #03 ~l0003 | |
| print_paddr s529 | |
| call_vn r0076 #22 #008e | |
| call_vn r0076 #22 #5c | |
| rtrue | |
| l0003: rfalse | |
| Routine r0372, 0 locals | |
| jin "computer" g1b l0001 | |
| test_attr "flourescent lighting system" #12 l0001 | |
| random #0c -> sp | |
| je sp #06 ~l0001 | |
| print_paddr s530 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0373, 1 local | |
| je ge9 #15 ?~l0003 | |
| jin g1b "East End Of Hallway" ~l0001 | |
| test_attr "janitor" #11 l0001 | |
| je g35 #00a3 ~l0001 | |
| print_paddr s531 | |
| new_line | |
| rtrue | |
| l0001: jin g1b "Service Elevator Lobby" ~l0002 | |
| test_attr "janitor" #11 l0002 | |
| je g35 #00a3 ~l0002 | |
| set_attr "janitor" #11 | |
| l0002: remove_obj "janitor" | |
| store local0 g09 | |
| store g09 #009f | |
| remove_obj "janitor" | |
| store g09 local0 | |
| insert_obj "janitor" "Secret Place" | |
| remove_obj "janitor" | |
| add g16 #05 -> g16 | |
| set_attr "flourescent lighting system" #12 | |
| insert_obj "computer" g1b | |
| call_vn r0088 #00c3 #03 | |
| call_2n r0091 #8b | |
| print_paddr s532 | |
| new_line | |
| rtrue | |
| l0003: je ge9 #0f ?~l0006 | |
| je g08 #05 rfalse | |
| test_attr "flourescent lighting system" #12 ~l0005 | |
| jin geb "Sitting At My Desk" l0004 | |
| jin geb "your desk" ~l0005 | |
| l0004: print_paddr s533 | |
| new_line | |
| rtrue | |
| l0005: insert_obj "computer" g1b | |
| print_paddr s534 | |
| new_line | |
| rtrue | |
| rfalse | |
| l0006: je ge9 #1001 ~l0008 | |
| test_attr g34 #04 l0007 | |
| insert_obj g34 "Sitting At My Desk" | |
| print_paddr s535 | |
| new_line | |
| rtrue | |
| l0007: print_paddr s536 | |
| rtrue | |
| l0008: rfalse | |
| Routine r0374, 0 locals | |
| je ge9 #26 ~l0001 | |
| clear_attr "computer" #12 | |
| print_paddr s537 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #25 ~l0002 | |
| set_attr "computer" #12 | |
| print_paddr s538 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0375, 0 locals | |
| je ge9 #20 #22 ~l0001 | |
| set_attr "software cracker website: www.cracker.com" #11 | |
| set_attr "red disk" #03 | |
| print_paddr s540 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0376, 0 locals | |
| je ge9 #20 #22 ~l0001 | |
| print_paddr s542 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0377, 0 locals | |
| je ge9 #1001 ~l0001 | |
| test_attr g34 #04 l0001 | |
| insert_obj g34 g09 | |
| print_paddr s545 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0378, 0 locals | |
| test_attr "computer" #12 ~l0001 | |
| test_attr "report in progress" #11 l0001 | |
| print_paddr s547 | |
| new_line | |
| rtrue | |
| l0001: test_attr "computer" #12 l0002 | |
| print_ret "The computer is not even on." | |
| l0002: print_paddr s548 | |
| new_line | |
| rtrue | |
| Routine r0379, 0 locals | |
| je ge9 #56 ?~l0004 | |
| test_attr "report in progress" #11 l0001 | |
| print_ret "But you haven't finished it yet." | |
| l0001: test_attr "report in progress" #11 ~l0002 | |
| test_attr "finished report" #11 l0002 | |
| add g16 #03 -> g16 | |
| insert_obj "finished report" "Lobby" | |
| set_attr "finished report" #11 | |
| print_paddr s549 | |
| new_line | |
| rtrue | |
| l0002: test_attr "report in progress" #11 ~l0003 | |
| test_attr "finished report" #11 ~l0003 | |
| print_paddr s550 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| l0004: je ge9 #4f ?~l0009 | |
| test_attr "phone" #11 l0005 | |
| print_paddr s551 | |
| new_line | |
| rtrue | |
| l0005: test_attr "blue disk" #00 l0006 | |
| print_paddr s552 | |
| new_line | |
| rtrue | |
| l0006: jin "printout" g1b l0007 | |
| print_paddr s553 | |
| new_line | |
| rtrue | |
| l0007: test_attr "report in progress" #11 ~l0008 | |
| print_ret "It's already finished." | |
| l0008: test_attr "report in progress" #11 l0009 | |
| set_attr "report in progress" #11 | |
| add g16 #03 -> g16 | |
| print_paddr s554 | |
| new_line | |
| rtrue | |
| l0009: rfalse | |
| Routine r0380, 0 locals | |
| test_attr "computer" #12 l0001 | |
| print_paddr s555 | |
| new_line | |
| rtrue | |
| l0001: test_attr "green disk" #11 l0002 | |
| print_paddr s556 | |
| new_line | |
| rtrue | |
| l0002: jin "printout" "Secret Place" l0003 | |
| print_ret "You've already done that!" | |
| l0003: test_attr "green disk" #11 ~l0004 | |
| jin "printout" "Secret Place" ~l0004 | |
| insert_obj "printout" g1b | |
| add g16 #03 -> g16 | |
| print_paddr s557 | |
| new_line | |
| rtrue | |
| l0004: rfalse | |
| Routine r0381, 0 locals | |
| je ge9 #0f ~l0001 | |
| print_paddr s558 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0382, 0 locals | |
| je ge9 #46 ~l0001 | |
| print_paddr s560 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0383, 0 locals | |
| je ge9 #0f ~l0001 | |
| print_paddr s563 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #22 ~l0002 | |
| get_parent "green disk" -> sp | |
| je sp #93 ~l0002 | |
| add g16 #03 -> g16 | |
| insert_obj "green disk" g1b | |
| print_paddr s564 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0384, 1 local | |
| je ge9 #59 ?~l0012 | |
| jg g47 #01 ~l0001 | |
| jump l0011 | |
| l0001: store g7e g46 | |
| call_1s r0056 -> local0 | |
| je local0 "y2k" "bomb" "bug" l0002 | |
| je local0 "millenniu" ~l0003 | |
| l0002: print_paddr s566 | |
| new_line | |
| rtrue | |
| l0003: store gef local0 | |
| je gef "gary" "north" ~l0004 | |
| print_paddr s567 | |
| new_line | |
| rtrue | |
| l0004: je gef "brain" ~l0005 | |
| print_paddr s568 | |
| new_line | |
| rtrue | |
| l0005: je gef "clinton" ~l0006 | |
| print_paddr s569 | |
| new_line | |
| rtrue | |
| l0006: je gef "power" "grid" "electrici" ~l0007 | |
| print_paddr s570 | |
| new_line | |
| rtrue | |
| l0007: je gef "fractiona" "reserve" "banking" l0008 | |
| je gef "bank" "banks" ~l0009 | |
| l0008: print_paddr s571 | |
| new_line | |
| rtrue | |
| l0009: je gef "random" "quote" ~l0010 | |
| call_2n r0462 g02 | |
| rtrue | |
| l0010: print_ret "^Perhaps that isn't in the book." | |
| l0011: print_paddr s572 | |
| new_line | |
| rtrue | |
| l0012: je ge9 #0f ~l0013 | |
| jin g34 "typing table" ~l0013 | |
| clear_attr g34 #1a | |
| clear_attr "receptionist" #11 | |
| insert_obj g34 g1b | |
| print_paddr s573 | |
| new_line | |
| rtrue | |
| l0013: rfalse | |
| Routine r0385, 0 locals | |
| je ge9 #0f ~l0001 | |
| print_paddr s577 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #1001 ~l0002 | |
| je g34 #8b ~l0002 | |
| print_ret "You wouldn't think of it." | |
| l0002: rfalse | |
| Routine r0386, 0 locals | |
| je ge9 #1001 ?~l0002 | |
| get_child "filing cabinet" -> sp ~l0001 | |
| l0001: insert_obj sp "Secret Place" | |
| print_ret "Nobody will ever see THAT again!" | |
| l0002: rfalse | |
| Routine r0387, 0 locals | |
| je g08 #01 l0001 | |
| je g08 #02 ~l0002 | |
| l0001: print_paddr s579 | |
| new_line | |
| rtrue | |
| l0002: print_paddr s580 | |
| new_line | |
| rtrue | |
| Routine r0388, 0 locals | |
| je g08 #03 ~l0001 | |
| print_paddr s583 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s584 | |
| new_line | |
| rtrue | |
| Routine r0389, 0 locals | |
| je ge9 #20 #22 ~l0001 | |
| set_attr "www.govtytwok.gov web site" #01 | |
| l0001: rfalse | |
| Routine r0390, 0 locals | |
| test_attr geb #11 l0001 | |
| print_paddr s588 | |
| new_line | |
| rtrue | |
| l0001: test_attr geb #11 ~l0002 | |
| print_paddr s589 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0391, 1 local | |
| random #0a -> local0 | |
| test_attr "flourescent lighting system" #12 l0001 | |
| je local0 #01 ~l0001 | |
| print_paddr s590 | |
| new_line | |
| rtrue | |
| l0001: test_attr "flourescent lighting system" #12 ~rtrue | |
| jin "red disk" g1b l0002 | |
| jin "red disk" "disk drive" l0002 | |
| jin "red disk" "Sitting At My Desk" ~rtrue | |
| l0002: jg local0 #03 ?l0004 | |
| jin "red disk" "Secret Place" ?l0004 | |
| je g09 #87 l0003 | |
| je g09 #97 l0003 | |
| je g09 #009e l0003 | |
| je g09 #99 ~l0004 | |
| l0003: insert_obj "red disk" g1b | |
| print_paddr s591 | |
| new_line | |
| rtrue | |
| l0004: je local0 #07 ~l0005 | |
| print_paddr s592 | |
| new_line | |
| rtrue | |
| l0005: je local0 #0a ?~l0007 | |
| test_attr "red disk" #00 ?~l0007 | |
| get_prop "red disk" #28 -> sp | |
| jz sp ?~l0007 | |
| jin "red disk" g1b l0006 | |
| jin "red disk" "Sitting At My Desk" l0006 | |
| jin "red disk" "Standing in my cubicle" ~l0007 | |
| l0006: insert_obj "red disk" "annoying co-worker" | |
| store g1c #01 | |
| print_paddr s593 | |
| new_line | |
| rtrue | |
| l0007: rfalse | |
| Routine r0392, 0 locals | |
| je ge9 #15 #16 #1001 ~l0001 | |
| print_paddr s596 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0393, 0 locals | |
| je g08 #02 ?~l0003 | |
| random #05 -> sp | |
| je sp #03 ?~l0003 | |
| jin "flourescent lighting system" g09 ?~l0003 | |
| random #03 -> sp | |
| pull gef | |
| je gef #01 ~l0001 | |
| print_paddr s600 | |
| new_line | |
| rtrue | |
| l0001: je gef #02 ~l0002 | |
| print_paddr s601 | |
| new_line | |
| rtrue | |
| l0002: je gef #03 ~l0003 | |
| print_paddr s602 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| Routine r0394, 0 locals | |
| je g08 #02 ~l0001 | |
| test_attr "janitor" #11 ~l0001 | |
| remove_obj "janitor" | |
| call_2n r0091 #9f | |
| l0001: rfalse | |
| Routine r0395, 1 local | |
| je g08 #02 ?~l0002 | |
| test_attr geb #14 ?~l0002 | |
| test_attr "janitor" #11 ?l0002 | |
| test_attr "Service Elevator Lobby" #11 l0002 | |
| random #04 -> local0 | |
| je local0 #02 ~l0001 | |
| print_paddr s607 | |
| new_line | |
| rtrue | |
| l0001: je local0 #03 ~l0002 | |
| print_paddr s608 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0396, 0 locals | |
| je ge9 #42 ~l0002 | |
| test_attr geb #14 ~l0001 | |
| test_attr "flourescent lighting system" #12 l0001 | |
| print_paddr s609 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| l0002: je ge9 #21 #22 ~l0003 | |
| test_attr "janitor" #11 l0003 | |
| test_attr geb #17 l0003 | |
| call_vn r0076 #20 #00a3 | |
| rtrue | |
| l0003: rfalse | |
| Routine r0397, 0 locals | |
| test_attr "janitor" #11 l0001 | |
| print_paddr s611 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s612 | |
| new_line | |
| rtrue | |
| Routine r0398, 0 locals | |
| test_attr "Service Elevator Lobby" #12 l0001 | |
| test_attr "janitor" #11 l0001 | |
| print_paddr s616 | |
| l0001: rfalse | |
| Routine r0399, 0 locals | |
| je g09 #9f ~l0001 | |
| test_attr "janitor" #11 l0001 | |
| test_attr "flourescent lighting system" #12 l0001 | |
| print_paddr s618 | |
| new_line | |
| rtrue | |
| l0001: je g09 #a1 ~l0002 | |
| print_paddr s619 | |
| new_line | |
| rtrue | |
| l0002: print_paddr s620 | |
| new_line | |
| rtrue | |
| Routine r0400, 0 locals | |
| je ge9 #10 #50 #13 l0001 | |
| je ge9 #15 ?~l0003 | |
| l0001: je g34 #00a4 ~l0002 | |
| jin "key" "janitor" ~l0002 | |
| call_1n r0453 | |
| rtrue | |
| l0002: print_ret "You're being silly. Cut it out." | |
| l0003: rfalse | |
| Routine r0401, 0 locals | |
| je ge9 #3c ?~l0005 | |
| test_attr "giant plant" #11 ~l0001 | |
| print_paddr s627 | |
| new_line | |
| rtrue | |
| l0001: je g35 #00aa ?~l0004 | |
| jin "thirty foot extension cord" g1b l0002 | |
| jin "thirty foot extension cord" g09 ?~l0004 | |
| l0002: set_attr "giant plant" #11 | |
| test_attr "giant plant" #00 l0003 | |
| set_attr "giant plant" #00 | |
| add g16 #05 -> g16 | |
| l0003: insert_obj "thirty foot extension cord" "West End Of Hallway" | |
| set_attr "thirty foot extension cord" #11 | |
| print_paddr s628 | |
| new_line | |
| rtrue | |
| l0004: print_paddr s629 | |
| new_line | |
| rtrue | |
| l0005: je ge9 #42 ?~l0008 | |
| jin "invitation" "Your Boss's Office" ~l0006 | |
| insert_obj "invitation" "Secret Place" | |
| call_vn r0088 #00b6 #03 | |
| print_paddr s630 | |
| new_line | |
| rtrue | |
| l0006: je g08 #03 ~l0007 | |
| print_paddr s631 | |
| new_line | |
| rtrue | |
| l0007: print_paddr s632 | |
| new_line | |
| rtrue | |
| l0008: je ge9 #1001 ?~l0013 | |
| je g08 #03 ~l0010 | |
| je g34 #92 l0009 | |
| je g35 #92 ~l0010 | |
| l0009: call_1n r0451 | |
| rtrue | |
| l0010: je g34 #00c4 l0011 | |
| je g35 #00c4 ~l0012 | |
| l0011: insert_obj "invitation" "Your Boss's Office" | |
| print_paddr s633 | |
| new_line | |
| rtrue | |
| l0012: print_paddr s634 | |
| new_line | |
| rtrue | |
| l0013: rfalse | |
| Routine r0402, 0 locals | |
| je ge9 #0f ~l0001 | |
| print_ret "Beware the wrath of MailBoy!" | |
| l0001: rfalse | |
| Routine r0403, 0 locals | |
| test_attr "technician" #11 l0001 | |
| print_paddr s637 | |
| new_line | |
| rtrue | |
| l0001: test_attr "technician" #11 ~l0002 | |
| print_paddr s638 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0404, 0 locals | |
| random #03 -> sp | |
| je sp #03 ~l0001 | |
| insert_obj "technician" g09 | |
| print_paddr s639 | |
| je g09 #87 ~l0001 | |
| call_2n r0091 geb | |
| l0001: rfalse | |
| Routine r0405, 0 locals | |
| je ge9 #15 #16 ?~l0003 | |
| je g34 #00b8 l0001 | |
| je g35 #00b8 l0001 | |
| je g34 #00b9 ~l0002 | |
| l0001: test_attr geb #11 l0002 | |
| set_attr geb #11 | |
| call_2n r0090 geb | |
| add g16 #05 -> g16 | |
| print_paddr s640 | |
| new_line | |
| rtrue | |
| l0002: print_paddr s641 | |
| new_line | |
| rtrue | |
| l0003: je ge9 #50 ~l0004 | |
| remove_obj g34 | |
| print_paddr s642 | |
| new_line | |
| rtrue | |
| l0004: je ge9 #32 #42 ~l0005 | |
| call_1n r0456 | |
| l0005: rfalse | |
| Routine r0406, 0 locals | |
| je ge9 #3c #56 #46 l0001 | |
| je ge9 #10 #50 #13 ~l0004 | |
| l0001: je g34 #00b8 ~l0002 | |
| call_1n r0455 | |
| l0002: je g34 g1b ~l0003 | |
| call_1n r0455 | |
| l0003: je g34 #00b9 ~l0004 | |
| call_1n r0455 | |
| l0004: rfalse | |
| Routine r0407, 0 locals | |
| je ge9 #3c ?~l0005 | |
| test_attr "giant plant" #11 ~l0001 | |
| print_paddr s646 | |
| new_line | |
| rtrue | |
| l0001: je g35 #a5 ?~l0004 | |
| jin "thirty foot extension cord" g1b l0002 | |
| jin "thirty foot extension cord" g09 ?~l0004 | |
| l0002: set_attr "giant plant" #11 | |
| test_attr "giant plant" #00 l0003 | |
| set_attr "giant plant" #00 | |
| add g16 #05 -> g16 | |
| l0003: insert_obj "thirty foot extension cord" "West End Of Hallway" | |
| set_attr "thirty foot extension cord" #11 | |
| print_paddr s647 | |
| new_line | |
| rtrue | |
| l0004: print_paddr s648 | |
| new_line | |
| rtrue | |
| l0005: rfalse | |
| Routine r0408, 0 locals | |
| test_attr "giant plant" #11 l0001 | |
| print_paddr s650 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s651 | |
| new_line | |
| rtrue | |
| Routine r0409, 0 locals | |
| test_attr geb #11 ~l0001 | |
| je g09 #9e ~l0001 | |
| print_paddr s652 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0410, 0 locals | |
| je ge9 #3c ~l0001 | |
| print_paddr s653 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #0f ~l0002 | |
| test_attr geb #11 ~l0002 | |
| clear_attr geb #11 | |
| clear_attr "giant plant" #11 | |
| insert_obj geb g1b | |
| print_paddr s654 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0411, 1 local | |
| je ge9 #59 ?~l0011 | |
| jg g47 #01 ~l0001 | |
| jump l0010 | |
| l0001: store g7e g46 | |
| call_1s r0056 -> local0 | |
| store gef local0 | |
| je gef "article" ~l0002 | |
| print_paddr s656 | |
| new_line | |
| rtrue | |
| l0002: je gef "video" ~l0003 | |
| print_paddr s657 | |
| new_line | |
| rtrue | |
| l0003: je gef "cracking" "cracker" "crack" l0004 | |
| je gef s196 or "software" "shareware" ~l0006 | |
| l0004: test_attr "software cracker website: www.cracker.com" #01 l0005 | |
| set_attr "software cracker website: www.cracker.com" #01 | |
| print_paddr s658 | |
| rtrue | |
| l0005: jump l0010 | |
| l0006: je gef "modem" "modems" ~l0007 | |
| print_paddr s659 | |
| new_line | |
| rtrue | |
| l0007: je gef "couples" "married" "marriage" l0008 | |
| je gef "marry" "couple" ~l0009 | |
| l0008: print_paddr s660 | |
| new_line | |
| rtrue | |
| l0009: print_paddr s661 | |
| new_line | |
| rtrue | |
| l0010: print_paddr s662 | |
| new_line | |
| rtrue | |
| l0011: rfalse | |
| Routine r0412, 0 locals | |
| test_attr "receptionist" #11 l0001 | |
| print_paddr s664 | |
| new_line | |
| rtrue | |
| l0001: test_attr "receptionist" #11 ~l0002 | |
| test_attr "typing table" #11 ~l0002 | |
| print_paddr s665 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0413, 0 locals | |
| je ge9 #0f ~l0001 | |
| print_paddr s666 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0414, 0 locals | |
| je ge9 #15 ~l0004 | |
| get_child "filing cabinet" -> sp ~l0001 | |
| l0001: get_child "filing cabinet" -> sp ~l0002 | |
| l0002: je sp sp ~l0003 | |
| insert_obj g34 "Lobby" | |
| print_paddr s667 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| l0004: je ge9 #16 ~l0005 | |
| print_ret "Big whoop." | |
| l0005: je ge9 #50 ~l0006 | |
| insert_obj g34 "Company parking lot" | |
| print_paddr s668 | |
| new_line | |
| rtrue | |
| l0006: je ge9 #32 #42 ~l0007 | |
| call_1n r0456 | |
| l0007: rfalse | |
| Routine r0415, 0 locals | |
| test_attr "typing table" #11 l0001 | |
| print_paddr s669 | |
| new_line | |
| rtrue | |
| l0001: test_attr "typing table" #11 ~l0002 | |
| print_paddr s670 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0416, 0 locals | |
| je ge9 #1001 ?~l0002 | |
| test_attr geb #11 l0001 | |
| je g34 #94 ~l0001 | |
| set_attr geb #11 | |
| add g16 #05 -> g16 | |
| set_attr "receptionist" #11 | |
| insert_obj g34 "typing table" | |
| set_attr "book" #1a | |
| print_paddr s671 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s672 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0417, 0 locals | |
| je g08 #03 ~l0001 | |
| test_attr geb #11 l0001 | |
| print_paddr s674 | |
| new_line | |
| rtrue | |
| l0001: je g08 #03 ~l0002 | |
| test_attr geb #11 ~l0002 | |
| print_paddr s675 | |
| new_line | |
| rtrue | |
| l0002: je g08 #01 l0003 | |
| je g08 #02 ~l0004 | |
| l0003: print_paddr s676 | |
| new_line | |
| rtrue | |
| l0004: rfalse | |
| Routine r0418, 0 locals | |
| je ge9 #1001 ~l0001 | |
| print_paddr s677 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0419, 0 locals | |
| je ge9 #0f #5d ~l0001 | |
| insert_obj geb "Secret Place" | |
| set_attr "laser printer" #11 | |
| print_paddr s679 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0420, 0 locals | |
| je ge9 #20 ?~l0001 | |
| print_paddr s683 | |
| div g12 #3c -> sp | |
| print_num sp | |
| print ":" | |
| mod g12 #3c -> sp | |
| div sp #0a -> sp | |
| print_num sp | |
| mod g12 #0a -> sp | |
| print_num sp | |
| print_ret "." | |
| l0001: print_paddr s684 | |
| new_line | |
| rtrue | |
| Routine r0421, 0 locals | |
| test_attr "boss" #11 l0001 | |
| print_paddr s688 | |
| new_line | |
| rtrue | |
| l0001: test_attr "boss" #11 ~l0002 | |
| print_paddr s689 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0422, 0 locals | |
| jin g1b "Your Boss's Office" l0001 | |
| rtrue | |
| l0001: jin "Y2K Solution Report for Biritzcom" "boss" l0002 | |
| print_paddr s690 | |
| new_line | |
| rtrue | |
| l0002: test_attr "boss" #03 l0003 | |
| store g03 #01 | |
| print_paddr s691 | |
| new_line | |
| rtrue | |
| l0003: test_attr "boss" #00 l0004 | |
| store g03 #02 | |
| print_paddr s692 | |
| new_line | |
| rtrue | |
| l0004: test_attr "boss" #04 l0005 | |
| store g03 #03 | |
| print_paddr s693 | |
| new_line | |
| rtrue | |
| l0005: test_attr "boss" #00 ~l0006 | |
| add g08 #01 -> sp | |
| call_2n r0467 sp | |
| l0006: rfalse | |
| Routine r0423, 0 locals | |
| add g12 #78 -> g12 | |
| insert_obj "Y2K Solution In-A-Box" "your desk" | |
| add g16 #06 -> g16 | |
| call_2n r0090 #b6 | |
| call_2n r0091 #9e | |
| set_attr "door to the boss's office" #17 | |
| insert_obj "mingling crowd of marketing people" "Standing in my | |
| cubicle" | |
| print_paddr s694 | |
| new_line | |
| rtrue | |
| Routine r0424, 0 locals | |
| je ge9 #0f ~l0001 | |
| print_paddr s695 | |
| new_line | |
| rtrue | |
| l0001: je ge9 #53 ~l0002 | |
| print_paddr s696 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0425, 1 local | |
| je ge9 #52 #51 ?~l0009 | |
| jg g47 #01 ~l0001 | |
| jump l0008 | |
| l0001: store g7e g46 | |
| call_1s r0056 -> local0 | |
| store gef local0 | |
| je gef "11" "eleven" ~l0003 | |
| test_attr "boss" #03 l0002 | |
| je g03 #01 ~l0002 | |
| set_attr "boss" #03 | |
| add g16 #01 -> g16 | |
| print_paddr s697 | |
| new_line | |
| rtrue | |
| l0002: jump l0008 | |
| l0003: je gef "2001" ?~l0005 | |
| test_attr "boss" #00 ?l0004 | |
| je g03 #02 ~l0004 | |
| set_attr "boss" #00 | |
| add g16 #01 -> g16 | |
| print_ret "Correct! Just testing you." | |
| l0004: jump l0008 | |
| l0005: je gef "shambles" ?~l0007 | |
| test_attr "boss" #04 ?l0006 | |
| je g03 #03 ?~l0006 | |
| set_attr "boss" #04 | |
| add g16 #01 -> g16 | |
| print_ret "Yes, that's what I thought." | |
| l0006: jump l0008 | |
| l0007: print_paddr s698 | |
| new_line | |
| rtrue | |
| l0008: print_paddr s699 | |
| new_line | |
| rtrue | |
| l0009: rfalse | |
| Routine r0426, 0 locals | |
| test_attr "your letter of resignation" #11 l0001 | |
| print_paddr s701 | |
| new_line | |
| rtrue | |
| l0001: test_attr "your letter of resignation" #11 ~l0002 | |
| print_paddr s702 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0427, 0 locals | |
| random #05 -> sp | |
| je sp #03 ~l0001 | |
| print_paddr s703 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0428, 0 locals | |
| add g12 #78 -> g12 | |
| rfalse | |
| Routine r0429, 0 locals | |
| je ge9 #1001 ~l0001 | |
| test_attr g34 #05 l0001 | |
| print_ret "That won't fit in the box!" | |
| l0001: rfalse | |
| Routine r0430, 0 locals | |
| je ge9 #3c ~l0002 | |
| jin geb "disk drive" ~l0001 | |
| test_attr geb #11 l0001 | |
| set_attr geb #11 | |
| print_paddr s707 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s708 | |
| new_line | |
| rtrue | |
| l0002: je ge9 #46 ~l0004 | |
| test_attr geb #00 l0003 | |
| test_attr geb #11 ~l0003 | |
| set_attr geb #00 | |
| print_paddr s709 | |
| new_line | |
| rtrue | |
| l0003: print_paddr s710 | |
| new_line | |
| rtrue | |
| l0004: rfalse | |
| Routine r0431, 0 locals | |
| je g08 #01 l0001 | |
| je g08 #02 ~l0002 | |
| l0001: print_paddr s712 | |
| call_2n r0128 #87 | |
| rtrue | |
| l0002: test_attr "your letter of resignation" #11 l0003 | |
| print_paddr s713 | |
| call_2n r0128 #87 | |
| rtrue | |
| l0003: test_attr "boss" #11 l0004 | |
| print_paddr s714 | |
| new_line | |
| rtrue | |
| l0004: test_attr "boss" #11 ~l0005 | |
| add g16 #05 -> g16 | |
| call_2n r0467 #04 | |
| rtrue | |
| l0005: rfalse | |
| Routine r0432, 0 locals | |
| je ge9 #3c ~l0002 | |
| jin geb "disk drive" ~l0001 | |
| test_attr geb #11 l0001 | |
| set_attr geb #11 | |
| add g16 #01 -> g16 | |
| print_paddr s716 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s717 | |
| new_line | |
| rtrue | |
| l0002: je ge9 #46 ~l0003 | |
| print_paddr s718 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| Routine r0433, 0 locals | |
| test_attr "black disk" #11 l0001 | |
| print_paddr s719 | |
| new_line | |
| rtrue | |
| l0001: test_attr "black disk" #11 ~l0002 | |
| print_paddr s720 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0434, 0 locals | |
| je ge9 #1001 ?~l0003 | |
| je g34 #00bd l0001 | |
| je g35 #00bd ~l0002 | |
| l0001: set_attr "black disk" #11 | |
| add g16 #03 -> g16 | |
| insert_obj "diskette label" "black disk" | |
| set_attr "diskette label" #1c | |
| set_attr "diskette label" #1a | |
| print_paddr s721 | |
| new_line | |
| rtrue | |
| l0002: print_ret "You cannot put THAT on the disk!" | |
| l0003: je ge9 #3c ?~l0005 | |
| jin geb "disk drive" ~l0004 | |
| print_ret "Appears to be a blank disk!" | |
| l0004: print_ret "The disk isn't in the drive." | |
| l0005: je ge9 #46 ~l0006 | |
| print_ret "Nothing to execute on this disk." | |
| l0006: je ge9 #15 #16 ?~l0009 | |
| jin "diskette label" "black disk" l0007 | |
| print_paddr s722 | |
| new_line | |
| rtrue | |
| l0007: je g34 #9c l0008 | |
| je g35 #9c ~l0009 | |
| l0008: add g16 #03 -> g16 | |
| insert_obj "black disk" "Secret Place" | |
| set_attr "desire you have to not go near marketing people" #17 | |
| insert_obj "mingling crowd of marketing people" "Stairwell" | |
| print_paddr s723 | |
| new_line | |
| rtrue | |
| l0009: rfalse | |
| Routine r0435, 0 locals | |
| print_paddr s725 | |
| jin "diskette label" "black disk" l0001 | |
| print_paddr s726 | |
| l0001: rfalse | |
| Routine r0436, 0 locals | |
| je ge9 #0f ~l0001 | |
| test_attr "black disk" #11 ~l0001 | |
| print_ret "It's stuck on real good." | |
| l0001: rfalse | |
| Routine r0437, 0 locals | |
| je ge9 #48 #4d ~l0001 | |
| print_paddr s728 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0438, 0 locals | |
| test_attr geb #16 l0001 | |
| rtrue | |
| l0001: inc g01 | |
| jg g01 #05 rtrue | |
| je g01 #01 ~l0002 | |
| print_paddr s729 | |
| new_line | |
| rtrue | |
| l0002: je g01 #02 ~l0003 | |
| print_paddr s730 | |
| new_line | |
| rtrue | |
| l0003: je g01 #03 ~l0004 | |
| print_paddr s731 | |
| new_line | |
| rtrue | |
| l0004: je g01 #04 ~l0005 | |
| print_paddr s732 | |
| new_line | |
| rtrue | |
| l0005: je g01 #05 ~l0006 | |
| print_paddr s733 | |
| new_line | |
| rtrue | |
| l0006: rfalse | |
| Routine r0439, 0 locals | |
| je ge9 #3c ~l0002 | |
| jin geb "disk drive" ~l0001 | |
| test_attr geb #11 l0001 | |
| set_attr geb #11 | |
| print_paddr s735 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s736 | |
| new_line | |
| rtrue | |
| l0002: je ge9 #46 ?~l0004 | |
| test_attr "blue disk" #00 l0003 | |
| test_attr "blue disk" #11 ~l0003 | |
| set_attr "blue disk" #00 | |
| add g16 #03 -> g16 | |
| print_paddr s737 | |
| new_line | |
| rtrue | |
| l0003: print_ret "Install once, then execute once." | |
| l0004: rfalse | |
| Routine r0440, 0 locals | |
| je ge9 #3c ~l0002 | |
| jin geb "disk drive" ~l0001 | |
| test_attr geb #11 l0001 | |
| set_attr geb #11 | |
| print_paddr s739 | |
| new_line | |
| rtrue | |
| l0001: print_paddr s740 | |
| new_line | |
| rtrue | |
| l0002: je ge9 #46 ?~l0008 | |
| test_attr geb #11 l0003 | |
| print_ret "Install it first." | |
| l0003: jin "twenty page survival report" "Secret Place" l0004 | |
| print_paddr s741 | |
| new_line | |
| rtrue | |
| l0004: test_attr "laser printer" #17 l0005 | |
| jin "crumpled piece of paper" "Secret Place" l0006 | |
| l0005: print_paddr s742 | |
| new_line | |
| rtrue | |
| l0006: test_attr geb #11 ?~l0007 | |
| test_attr geb #03 ?~l0007 | |
| jin "twenty page survival report" "Secret Place" ~l0007 | |
| insert_obj "twenty page survival report" g1b | |
| add g16 #0a -> g16 | |
| call_2n r0090 #9b | |
| set_attr geb #00 | |
| call_vn r0088 geb #0a | |
| print_paddr s743 | |
| rtrue | |
| l0007: test_attr geb #11 ~l0008 | |
| call_2n r0090 #9b | |
| set_attr geb #00 | |
| call_vn r0088 geb #0a | |
| print_paddr s744 | |
| new_line | |
| rtrue | |
| l0008: rfalse | |
| Routine r0441, 0 locals | |
| je ge9 #46 ~l0001 | |
| je g09 #87 ~l0001 | |
| store g08 g08 | |
| print_paddr s746 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0442, 0 locals | |
| get_prop geb #28 -> sp | |
| je sp #02 ~l0001 | |
| print_paddr s748 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0443, 0 locals | |
| clear_attr geb #12 | |
| clear_attr geb #16 | |
| clear_attr "computer" #1c | |
| call_2n r0090 #a0 | |
| call_2n r0090 #8b | |
| jin geb g09 ~l0001 | |
| print_paddr s749 | |
| new_line | |
| rtrue | |
| l0001: rfalse | |
| Routine r0444, 0 locals | |
| test_attr "computer" #12 ~l0001 | |
| print_paddr s750 | |
| new_line | |
| rtrue | |
| l0001: test_attr "computer" #12 l0002 | |
| print_paddr s751 | |
| new_line | |
| rtrue | |
| l0002: rfalse | |
| Routine r0445, 0 locals | |
| call_1n r0463 | |
| rfalse | |
| Routine r0446, 0 locals | |
| je ge9 #56 ?~l0003 | |
| get_parent "computer" -> sp | |
| je sp #87 l0001 | |
| get_parent "computer" -> sp | |
| je sp #88 l0001 | |
| print_paddr s752 | |
| new_line | |
| rtrue | |
| l0001: test_attr "invitation" #11 l0002 | |
| add g16 #03 -> g16 | |
| insert_obj "invitation" "Sitting At My Desk" | |
| set_attr "your first fax" #1a | |
| set_attr "invitation" #11 | |
| print_paddr s753 | |
| new_line | |
| rtrue | |
| l0002: test_attr "invitation" #11 ~l0003 | |
| print_paddr s754 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| Routine r0447, 0 locals | |
| je ge9 #0f ?~l0004 | |
| test_attr "receptionist" #11 ~l0001 | |
| jin g34 "Lobby" ~l0001 | |
| test_attr "Lobby" #11 l0001 | |
| add g16 #02 -> g16 | |
| insert_obj geb g1b | |
| set_attr "Lobby" #11 | |
| print_paddr s758 | |
| new_line | |
| rtrue | |
| l0001: test_attr "receptionist" #11 l0002 | |
| jin g34 "Lobby" ~l0002 | |
| test_attr "typing table" #11 ~l0002 | |
| print_paddr s759 | |
| new_line | |
| rtrue | |
| l0002: test_attr "receptionist" #11 l0003 | |
| jin g34 "Lobby" ~l0003 | |
| print_paddr s760 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| l0004: je ge9 #15 ?~l0006 | |
| je g34 #b6 l0005 | |
| je g35 #b6 ~l0006 | |
| l0005: set_attr "boss" #11 | |
| add g16 #03 -> g16 | |
| insert_obj "finished report" "boss" | |
| add g08 #01 -> sp | |
| call_2n r0467 sp | |
| rtrue | |
| l0006: rfalse | |
| Routine r0448, 0 locals | |
| je g08 #03 ~l0001 | |
| print_paddr s762 | |
| new_line | |
| rtrue | |
| l0001: je g08 #04 ~l0002 | |
| print_paddr s763 | |
| new_line | |
| rtrue | |
| l0002: je g08 #05 ~l0003 | |
| print_paddr s764 | |
| new_line | |
| rtrue | |
| l0003: rfalse | |
| Routine r0449, 0 locals | |
| jin geb g1b ~l0001 | |
| test_attr "your letter of resignation" #11 ~l0001 | |
| call_2n r0467 #04 | |
| l0001: rtrue | |
| Routine r0450, 0 locals | |
| je ge9 #0f ~l0001 | |
| test_attr "your letter of resignation" #11 ~l0001 | |
| je g08 #03 ~l0001 | |
| print_paddr s765 | |
| call_2n r0467 #04 | |
| rtrue | |
| l0001: rfalse | |
| Routine r0451, 0 locals | |
| test_attr "giant plant" #11 ~l0002 | |
| print_paddr s766 | |
| set_attr "your letter of resignation" #11 | |
| insert_obj "your letter of resignation" "Secret Place" | |
| jin "twenty page survival report" g1b l0001 | |
| print_paddr s767 | |
| new_line | |
| rtrue | |
| l0001: add g16 #05 -> g16 | |
| call_2n r0467 #04 | |
| rtrue | |
| l0002: insert_obj "your letter of resignation" g1b | |
| print_paddr s768 | |
| rtrue | |
| Routine r0452, 0 locals | |
| set_text_style boldface | |
| print_paddr s769 | |
| print_paddr s770 | |
| store g09 #87 | |
| insert_obj "demo fairy (flitting about your head)" g1b | |
| store g08 #01 | |
| insert_obj "blue disk" "your desk" | |
| insert_obj "green disk" "cluttered mess of work-related stuff" | |
| clear_attr "green disk" #11 | |
| clear_attr "blue disk" #11 | |
| insert_obj "wrist watch" g1b | |
| call_vn r0093 #03fc #01 | |
| put_prop "(darkness object)" #23 s771 | |
| rtrue | |
| Routine r0453, 0 locals | |
| jin "key" "janitor" ~l0001 | |
| test_attr "flourescent lighting system" #12 l0001 | |
| insert_obj "key" "East End Of Hallway" | |
| set_attr "Service Elevator Lobby" #11 | |
| add g16 #05 -> g16 | |
| print_paddr s772 | |
| new_line | |
| rtrue | |
| l0001: rtrue | |
| Routine r0454, 1 local | |
| print "^Ok, so that'll be $" | |
| call_vs r0493 local0 #4d -> sp | |
| print_num sp | |
| print " cash." | |
| call_vs r0493 local0 #4d -> sp | |
| jl g04 sp ~l0001 | |
| print_paddr s773 | |
| call_vs r0493 local0 #4d -> sp | |
| print_num sp | |
| print_paddr s774 | |
| rtrue | |
| l0001: call_vs r0493 local0 #4d -> sp | |
| jl g04 sp ?l0003 | |
| call_vs r0493 local0 #4d -> sp | |
| sub g04 sp -> g04 | |
| insert_obj local0 g1b | |
| set_attr local0 #06 | |
| je local0 #37 ~l0002 | |
| print_paddr s775 | |
| new_line | |
| rtrue | |
| l0002: print_paddr s776 | |
| print_num g04 | |
| print_paddr s777 | |
| new_line | |
| rtrue | |
| l0003: rtrue | |
| Routine r0455, 0 locals | |
| test_attr "Y2K Solution In-A-Box" #11 ~l0001 | |
| print_paddr s778 | |
| new_line | |
| rtrue | |
| l0001: jin "technician" g09 l0002 | |
| print_paddr s779 | |
| new_line | |
| rtrue | |
| l0002: jin "Y2K Solution In-A-Box" g09 l0003 | |
| jin "Y2K Solution In-A-Box" g1b l0003 | |
| print_paddr s780 | |
| new_line | |
| rtrue | |
| l0003: jin "orange disk" g09 l0004 | |
| jin "orange disk" g1b l0004 | |
| jin "orange disk" "Y2K Solution In-A-Box" l0004 | |
| print_paddr s781 | |
| new_line | |
| rtrue | |
| l0004: jz #01 l0005 | |
| add g16 #03 -> g16 | |
| insert_obj "Y2K Solution Report for Biritzcom" g1b | |
| insert_obj g1b "Sitting At My Desk" | |
| set_attr "Y2K Solution In-A-Box" #11 | |
| insert_obj "technician" "Mailroom" | |
| call_2n r0091 #a8 | |
| print_paddr s782 | |
| new_line | |
| rtrue | |
| l0005: rtrue | |
| Routine r0456, 0 locals | |
| store g1c #01 | |
| print_paddr s783 | |
| new_line | |
| rtrue | |
| Routine r0457, 0 locals | |
| Action routine for: | |
| "time" | |
| call_vn r0076 #20 #b3 | |
| rtrue | |
| Routine r0458, 0 locals | |
| Action routine for: | |
| "help" | |
| call_vn r0101 s784 #3d30 #3d4b | |
| rtrue | |
| Routine r0459, 0 locals | |
| Action routine for: | |
| "ordering" | |
| print_paddr s785 | |
| new_line | |
| rtrue | |
| Routine r0460, 0 locals | |
| jz g2c ~l0002 | |
| store g2d #0a | |
| store g2e s786 | |
| je g1c #02 ~l0001 | |
| ret #07 | |
| l0001: ret #06 | |
| l0002: je g2c #01 ~l0003 | |
| store g2d #06 | |
| store g2e s787 | |
| l0003: je g2c #02 ~l0004 | |
| store g2d #02 | |
| store g2e s788 | |
| l0004: je g2c #03 ~l0005 | |
| store g2d #0a | |
| store g2e s789 | |
| l0005: je g2c #04 ~l0006 | |
| store g2d #03 | |
| store g2e s790 | |
| l0006: je g2c #05 ~l0007 | |
| store g2d #0b | |
| store g2e s791 | |
| l0007: je g2c #06 ~l0008 | |
| store g2d #10 | |
| store g2e s792 | |
| l0008: je g2c #07 ~l0009 | |
| store g2d #12 | |
| store g2e s793 | |
| l0009: rtrue | |
| Routine r0461, 0 locals | |
| je g2c #01 ~l0001 | |
| print_paddr s794 | |
| l0001: je g2c #02 ~l0002 | |
| print_paddr s795 | |
| l0002: je g2c #03 ~l0003 | |
| print_paddr s796 | |
| l0003: je g2c #04 ~l0004 | |
| print_paddr s797 | |
| l0004: je g2c #05 ~l0005 | |
| print_paddr s798 | |
| l0005: je g2c #06 ~l0006 | |
| print_paddr s799 | |
| l0006: je g2c #07 ~l0007 | |
| print_paddr s800 | |
| l0007: rtrue | |
| Routine r0462, 1 local | |
| store g02 local0 | |
| inc g02 | |
| je g02 #33 ~l0001 | |
| store g02 #01 | |
| set_text_style boldface | |
| print_paddr s801 | |
| new_line | |
| rtrue | |
| l0001: store gef g02 | |
| je gef #01 ~l0002 | |
| print_paddr s802 | |
| new_line | |
| rtrue | |
| l0002: je gef #02 ~l0003 | |
| print_paddr s803 | |
| new_line | |
| rtrue | |
| l0003: je gef #03 ~l0004 | |
| print_paddr s804 | |
| new_line | |
| rtrue | |
| l0004: je gef #04 ~l0005 | |
| print_paddr s805 | |
| new_line | |
| rtrue | |
| l0005: je gef #05 ~l0006 | |
| print_paddr s806 | |
| new_line | |
| rtrue | |
| l0006: je gef #06 ~l0007 | |
| print_paddr s807 | |
| new_line | |
| rtrue | |
| l0007: je gef #07 ~l0008 | |
| print_paddr s808 | |
| new_line | |
| rtrue | |
| l0008: je gef #08 ~l0009 | |
| print_paddr s809 | |
| new_line | |
| rtrue | |
| l0009: je gef #09 ~l0010 | |
| print_paddr s810 | |
| new_line | |
| rtrue | |
| l0010: je gef #0a ~l0011 | |
| print_paddr s811 | |
| new_line | |
| rtrue | |
| l0011: je gef #0b ~l0012 | |
| print_paddr s812 | |
| new_line | |
| rtrue | |
| l0012: je gef #0c ~l0013 | |
| print_paddr s813 | |
| new_line | |
| rtrue | |
| l0013: je gef #0d ~l0014 | |
| print_paddr s814 | |
| new_line | |
| rtrue | |
| l0014: je gef #0e ~l0015 | |
| print_paddr s815 | |
| new_line | |
| rtrue | |
| l0015: je gef #0f ~l0016 | |
| print_paddr s816 | |
| new_line | |
| rtrue | |
| l0016: je gef #10 ~l0017 | |
| print_paddr s817 | |
| new_line | |
| rtrue | |
| l0017: je gef #11 ~l0018 | |
| print_paddr s818 | |
| new_line | |
| rtrue | |
| l0018: je gef #13 ~l0019 | |
| print_paddr s819 | |
| new_line | |
| rtrue | |
| l0019: je gef #14 ~l0020 | |
| print_paddr s820 | |
| new_line | |
| rtrue | |
| l0020: je gef #15 ~l0021 | |
| print_paddr s821 | |
| new_line | |
| rtrue | |
| l0021: je gef #16 ~l0022 | |
| print_paddr s822 | |
| new_line | |
| rtrue | |
| l0022: je gef #17 ~l0023 | |
| print_paddr s823 | |
| new_line | |
| rtrue | |
| l0023: je gef #18 ~l0024 | |
| print_paddr s824 | |
| new_line | |
| rtrue | |
| l0024: je gef #19 ~l0025 | |
| print_paddr s825 | |
| new_line | |
| rtrue | |
| l0025: je gef #1a ~l0026 | |
| print_paddr s826 | |
| new_line | |
| rtrue | |
| l0026: je gef #1b ~l0027 | |
| print_paddr s827 | |
| new_line | |
| rtrue | |
| l0027: je gef #1c ~l0028 | |
| print_paddr s828 | |
| new_line | |
| rtrue | |
| l0028: je gef #1d ~l0029 | |
| print_paddr s829 | |
| new_line | |
| rtrue | |
| l0029: je gef #1e ~l0030 | |
| print_paddr s830 | |
| new_line | |
| rtrue | |
| l0030: je gef #1f ~l0031 | |
| print_paddr s831 | |
| new_line | |
| rtrue | |
| l0031: je gef #20 ~l0032 | |
| print_paddr s832 | |
| new_line | |
| rtrue | |
| l0032: je gef #21 ~l0033 | |
| print_paddr s833 | |
| new_line | |
| rtrue | |
| l0033: je gef #22 ~l0034 | |
| print_paddr s834 | |
| new_line | |
| rtrue | |
| l0034: je gef #23 ~l0035 | |
| print_paddr s835 | |
| new_line | |
| rtrue | |
| l0035: je gef #24 ~l0036 | |
| print_paddr s836 | |
| new_line | |
| rtrue | |
| l0036: je gef #25 ~l0037 | |
| print_paddr s837 | |
| new_line | |
| rtrue | |
| l0037: je gef #26 ~l0038 | |
| print_paddr s838 | |
| new_line | |
| rtrue | |
| l0038: je gef #27 ~l0039 | |
| print_paddr s839 | |
| new_line | |
| rtrue | |
| l0039: je gef #28 ~l0040 | |
| print_paddr s840 | |
| new_line | |
| rtrue | |
| l0040: je gef #29 ~l0041 | |
| print_paddr s841 | |
| new_line | |
| rtrue | |
| l0041: je gef #2a ~l0042 | |
| print_paddr s842 | |
| new_line | |
| rtrue | |
| l0042: je gef #2b ~l0043 | |
| print_paddr s843 | |
| new_line | |
| rtrue | |
| l0043: je gef #2c ~l0044 | |
| print_paddr s844 | |
| new_line | |
| rtrue | |
| l0044: je gef #2d ~l0045 | |
| print_paddr s845 | |
| new_line | |
| rtrue | |
| l0045: je gef #2e ~l0046 | |
| print_paddr s846 | |
| new_line | |
| rtrue | |
| l0046: je gef #2f ~l0047 | |
| print_paddr s847 | |
| new_line | |
| rtrue | |
| l0047: je gef #30 ~l0048 | |
| print_paddr s848 | |
| new_line | |
| rtrue | |
| l0048: je gef #31 ~l0049 | |
| print_paddr s849 | |
| new_line | |
| rtrue | |
| l0049: je gef #32 ~l0050 | |
| print_paddr s850 | |
| new_line | |
| rtrue | |
| l0050: je gef #12 ~l0051 | |
| print_paddr s851 | |
| new_line | |
| rtrue | |
| l0051: je gef #33 ~l0052 | |
| print_paddr s852 | |
| new_line | |
| rtrue | |
| l0052: rtrue | |
| Routine r0463, 0 locals | |
| insert_obj "your first fax" "computer" | |
| set_text_style boldface | |
| print_paddr s853 | |
| new_line | |
| rtrue | |
| Routine r0464, 0 locals | |
| Action routine for: | |
| "snooze" | |
| add g12 #01 -> g12 | |
| call_2n r0076 #57 | |
| add g12 #01 -> g12 | |
| call_2n r0076 #57 | |
| add g12 #01 -> g12 | |
| call_2n r0076 #57 | |
| add g12 #01 -> g12 | |
| call_2n r0076 #57 | |
| add g12 #01 -> g12 | |
| call_2n r0076 #57 | |
| add g12 #01 -> g12 | |
| call_2n r0076 #57 | |
| add g12 #01 -> g12 | |
| call_2n r0076 #57 | |
| add g12 #01 -> g12 | |
| call_2n r0076 #57 | |
| add g12 #01 -> g12 | |
| call_2n r0076 #57 | |
| call_2n r0076 #60 | |
| rtrue | |
| Routine r0465, 0 locals | |
| Action routine for: | |
| "money" | |
| print "^You have ...^ 1) " | |
| print_num g07 | |
| print_paddr s854 | |
| print_num g06 | |
| print " ounces of gold and^ 3) " | |
| print_num g04 | |
| print_ret " dollars in cash." | |
| Routine r0466, 0 locals | |
| jg g12 #0474 l0001 | |
| push #00 | |
| jump l0002 | |
| l0001: push #01 | |
| l0002: jl g12 #0168 l0003 | |
| push #00 | |
| jump l0004 | |
| l0003: push #01 | |
| l0004: or sp sp -> sp | |
| jz sp l0005 | |
| print_ret "It is dark outside." | |
| l0005: store gef g09 | |
| je gef #40 #4b ~l0006 | |
| print_paddr s855 | |
| new_line | |
| rtrue | |
| l0006: je gef #54 ~l0007 | |
| print_paddr s856 | |
| new_line | |
| rtrue | |
| l0007: je gef #4c ~l0008 | |
| print_paddr s857 | |
| new_line | |
| rtrue | |
| l0008: je gef #50 ~l0009 | |
| print_paddr s858 | |
| new_line | |
| rtrue | |
| l0009: je gef #52 ~l0010 | |
| print_paddr s859 | |
| new_line | |
| rtrue | |
| l0010: je gef #58 ~l0011 | |
| print_paddr s860 | |
| new_line | |
| rtrue | |
| l0011: je gef #61 ~l0012 | |
| print_paddr s861 | |
| new_line | |
| rtrue | |
| l0012: rtrue | |
| Routine r0467, 1 local | |
| je local0 #02 ?~l0001 | |
| store g08 #02 | |
| set_attr "computer" #00 | |
| insert_obj "finished report" "Secret Place" | |
| insert_obj "blue disk" "Secret Place" | |
| insert_obj "printout" "Secret Place" | |
| insert_obj "green disk" "Secret Place" | |
| insert_obj "boss" "Your Boss's Office" | |
| insert_obj "diskette label" "Standing in my cubicle" | |
| insert_obj "black disk" "Mailroom" | |
| clear_attr "computer" #03 | |
| call_vn r0093 #021c #01 | |
| call_vn r0088 #c2 #0a | |
| remove_obj "email" | |
| remove_obj "report in progress" | |
| clear_attr "door to the boss's office" #17 | |
| set_attr "door to the boss's office" #14 | |
| call_2n r0090 #9e | |
| call_2n r0090 #9f | |
| insert_obj "World Wide Web browser" "computer" | |
| insert_obj "technician" "Mailroom" | |
| call_2n r0090 #c2 | |
| print_paddr s862 | |
| call_2n r0128 #87 | |
| l0001: je local0 #03 ?~l0002 | |
| call_2n r0091 #b6 | |
| store g08 #03 | |
| add g16 #03 -> g16 | |
| call_vn r0093 #021c #01 | |
| call_2n r0091 #8b | |
| insert_obj "computer" "your desk" | |
| set_attr "flourescent lighting system" #12 | |
| insert_obj "red disk" g1b | |
| insert_obj "World Wide Web browser" "computer" | |
| insert_obj "orange disk" "Secret Place" | |
| insert_obj "black disk" "Secret Place" | |
| insert_obj "diskette label" "Secret Place" | |
| insert_obj "Y2K Solution In-A-Box" "Secret Place" | |
| insert_obj "poster" "Secret Place" | |
| insert_obj "boss" "Secret Place" | |
| insert_obj "boss" "Your Boss's Office" | |
| insert_obj "your letter of resignation" g1b | |
| set_attr "desire you have to not go near marketing people" #17 | |
| set_attr "typing table" #11 | |
| clear_attr "door to the boss's office" #17 | |
| insert_obj "cluttered mess of work-related stuff" "Secret Place" | |
| insert_obj "small handwritten note" g1b | |
| insert_obj "your radio" "your desk" | |
| insert_obj "crowd of busy programmers" "In the marketing | |
| department" | |
| call_2n r0090 #ab | |
| insert_obj "giant plant" "West End Of Hallway" | |
| store gef #8b | |
| store gee #2d | |
| get_prop gef gee -> ged | |
| inc ged | |
| put_prop gef gee ged | |
| clear_attr "door to the boss's office" #18 | |
| insert_obj "report in progress" "Secret Place" | |
| set_attr "door to the boss's office" #14 | |
| set_attr "laser printer" #18 | |
| insert_obj "crumpled piece of paper" "laser printer" | |
| insert_obj "magazine" "your desk" | |
| insert_obj "receptionist" "Secret Place" | |
| insert_obj "laser printer" "your desk" | |
| call_2n r0090 #c6 | |
| insert_obj "thirty foot extension cord" "Mailroom" | |
| print_paddr s863 | |
| call_2n r0128 #87 | |
| l0002: je local0 #04 ?~l0003 | |
| call_2n r0091 #b6 | |
| insert_obj "your letter of resignation" "Secret Place" | |
| insert_obj "twenty page survival report" g1b | |
| call_2n r0091 #c6 | |
| call_2n r0091 #ab | |
| call_2n r0091 #9b | |
| call_2n r0090 #1e | |
| insert_obj "small handwritten note" g1b | |
| store g08 #04 | |
| store g04 #060b | |
| store g07 #0723 | |
| store g06 #00 | |
| call_vn r0093 #0276 #01 | |
| insert_obj "red disk" "Secret Place" | |
| insert_obj "thirty foot extension cord" "Mailroom" | |
| insert_obj "your banking (debit) card" g1b | |
| insert_obj "book" g1b | |
| print_paddr s864 | |
| call_2n r0128 #1b | |
| l0003: je local0 #05 ?~l0005 | |
| insert_obj "gas-powered generator" "Backyard" | |
| set_attr "pack of matches" #06 | |
| set_attr "small handwritten note" #11 | |
| insert_obj "pump mechanism" "Multi-purpose room" | |
| insert_obj "small handwritten note" g1b | |
| set_attr "www.starone.com website" #01 | |
| set_attr "gas-powered generator" #1c | |
| set_attr "gas-powered generator" #1a | |
| test_attr "small rations case" #06 ~l0004 | |
| insert_obj "small rations case" "Multi-purpose room" | |
| l0004: insert_obj "large rations case" "Multi-purpose room" | |
| set_attr "large rations case" #1c | |
| set_attr "small rations case" #1c | |
| insert_obj "World Wide Web browser" "TV room" | |
| insert_obj "6 month supply of vitamins" "Multi-purpose room" | |
| set_attr "6 month supply of vitamins" #1c | |
| insert_obj "disk drive" "TV room" | |
| insert_obj "twenty page survival report" g1b | |
| store g08 #05 | |
| call_2n r0090 #77 | |
| call_2n r0090 #76 | |
| call_vn r0093 #02d0 #01 | |
| insert_obj "pack of matches" g1b | |
| insert_obj "your banking (debit) card" "Secret Place" | |
| insert_obj "book" g1b | |
| print_paddr s865 | |
| call_2n r0128 #40 | |
| rtrue | |
| l0005: rtrue | |
| Routine r0468, 0 locals | |
| store g1c #02 | |
| print_paddr s866 | |
| new_line | |
| rtrue | |
| Routine r0469, 0 locals | |
| Parsing routine for: | |
| "go noun = [parse $3e86]" | |
| "leave noun = [parse $3e86]" | |
| jin g34 "compass" rtrue | |
| rfalse | |
| Routine r0470, 1 local | |
| store g46 g7e | |
| l0001: call_1s r0057 -> local0 | |
| je local0 #ffff l0002 | |
| je local0 "to" ?~l0001 | |
| je g58 #52 ?~l0001 | |
| l0002: dec g7e | |
| sub g7e g46 -> g47 | |
| jz g47 ~l0003 | |
| ret #ffff | |
| l0003: je g58 #53 #52 #51 ?~l0005 | |
| store local0 g7e | |
| store g7e g46 | |
| call_1s r0056 -> g45 | |
| je g45 "the" ~l0004 | |
| jg g47 #01 ~l0004 | |
| call_1s r0056 -> g45 | |
| l0004: store g7e local0 | |
| rtrue | |
| l0005: rfalse | |
| Routine r0471, 0 locals | |
| rfalse | |
| Routine r0472, 0 locals | |
| rfalse | |
| Routine r0473, 0 locals | |
| rfalse | |
| Routine r0474, 0 locals | |
| rfalse | |
| Routine r0475, 0 locals | |
| rfalse | |
| Routine r0476, 0 locals | |
| rfalse | |
| Routine r0477, 0 locals | |
| rfalse | |
| Routine r0478, 0 locals | |
| rfalse | |
| Routine r0479, 0 locals | |
| rfalse | |
| Routine r0480, 0 locals | |
| rfalse | |
| Routine r0481, 0 locals | |
| rfalse | |
| Routine r0482, 1 local | |
| rfalse | |
| Routine r0483, 1 local | |
| rfalse | |
| Routine r0484, 1 local | |
| rfalse | |
| Routine r0485, 1 local | |
| rfalse | |
| Routine r0486, 1 local | |
| rfalse | |
| Routine r0487, 2 locals | |
| rfalse | |
| Routine r0488, 2 locals | |
| rfalse | |
| Routine r0489, 0 locals | |
| print_ret "." | |
| Routine r0490, 1 local | |
| store local0 local0 | |
| ret #ffff | |
| Routine r0491, 5 locals | |
| and local0 #c000 -> sp | |
| jz sp ?l0004 | |
| and local0 #ff -> sp | |
| loadw #22ab sp -> local3 | |
| call_2n r0107 local3 | |
| print "::" | |
| and local0 #8000 -> sp | |
| jz sp ~l0001 | |
| and local0 #3f00 -> sp | |
| div sp #0100 -> local0 | |
| jump l0004 | |
| l0001: and local0 #7f00 -> sp | |
| div sp #0100 -> local0 | |
| get_prop local3 #03 -> local4 | |
| l0002: loadw local4 #00 -> sp | |
| jz sp l0003 | |
| jg local0 #00 ~l0003 | |
| loadb local4 #02 -> sp | |
| add local4 sp -> sp | |
| add sp #03 -> local4 | |
| dec local0 | |
| jump l0002 | |
| l0003: loadw local4 #00 -> sp | |
| and sp #7fff -> local0 | |
| l0004: store local1 #22b9 | |
| loadw local1 #00 -> local2 | |
| jg local0 #00 ~l0005 | |
| jl local0 local2 ~l0005 | |
| loadw local1 local0 -> sp | |
| jz sp ~l0006 | |
| l0005: print "<number " | |
| print_num local0 | |
| print ">" | |
| jump l0007 | |
| l0006: loadw local1 local0 -> sp | |
| print_paddr sp | |
| l0007: rtrue | |
| Routine r0492, 4 locals | |
| call_vs r0496 local0 local1 -> local3 | |
| jz local3 ~l0001 | |
| call_vn r0501 s867 local0 local1 | |
| rtrue | |
| l0001: storew local3 #00 local2 | |
| rtrue | |
| Routine r0493, 3 locals | |
| call_vs r0496 local0 local1 -> local2 | |
| jz local2 ~l0002 | |
| jl local1 #01 l0001 | |
| jl local1 #40 ~l0001 | |
| get_prop local0 local1 -> sp | |
| ret_popped | |
| l0001: call_vn r0501 s868 local0 local1 | |
| rtrue | |
| l0002: loadw local2 #00 -> sp | |
| ret_popped | |
| Routine r0494, 15 locals | |
| jl local0 #01 l0001 | |
| sub #01c5 #ff -> sp | |
| jg local0 sp ?~l0007 | |
| l0001: call_2s r0502 local0 -> sp | |
| pull gef | |
| je gef #02 ?~l0003 | |
| je local1 #45 ?~l0002 | |
| store local11 gea | |
| store gea geb | |
| store geb local0 | |
| store ge9 g31 | |
| call_vs2 local0 local2 local3 local4 local5 local6 local7 -> | |
| local8 | |
| store geb gea | |
| store gea local11 | |
| ret local8 | |
| l0002: jump l0014 | |
| l0003: je gef #03 ?~l0006 | |
| je local1 #46 ~l0004 | |
| print_paddr local0 | |
| rtrue | |
| l0004: je local1 #47 ~l0005 | |
| output_stream redirect_enable local2 | |
| print_paddr local0 | |
| output_stream #fffd | |
| loadw local2 #00 -> sp | |
| ret_popped | |
| l0005: jump l0014 | |
| l0006: jump l0014 | |
| l0007: check_arg_count #03 ?~l0008 | |
| inc local9 | |
| check_arg_count #04 ?~l0008 | |
| inc local9 | |
| check_arg_count #05 ~l0008 | |
| inc local9 | |
| check_arg_count #06 ~l0008 | |
| inc local9 | |
| check_arg_count #07 ~l0008 | |
| inc local9 | |
| check_arg_count #08 ~l0008 | |
| inc local9 | |
| l0008: jl local1 #00 ?l0012 | |
| jl local1 #40 ?~l0012 | |
| get_prop_addr local0 local1 -> local8 | |
| jz local8 ~l0009 | |
| store local13 #02 | |
| jump l0011 | |
| l0009: get_prop_addr local0 local1 -> gef | |
| jz gef l0010 | |
| get_prop_len gef -> gef | |
| l0010: store local13 gef | |
| l0011: jump l0016 | |
| l0012: jl local1 #40 l0013 | |
| jl local1 #45 ~l0013 | |
| jin local0 "Class" ~l0013 | |
| call_vs2 r0506 local0 local1 local2 local3 -> sp | |
| ret_popped | |
| l0013: call_vs r0496 local0 local1 -> local8 | |
| jz local8 ~l0015 | |
| l0014: call_vn r0501 s869 local0 local1 | |
| rtrue | |
| l0015: sub local8 #01 -> sp | |
| loadb #00 sp -> local13 | |
| l0016: mul #02 local14 -> sp | |
| jl sp local13 ?~l0030 | |
| loadw local8 local14 -> sp | |
| je sp #ffff rfalse | |
| loadw local8 local14 -> sp | |
| call_2s r0502 sp -> sp | |
| pull gef | |
| je gef #02 ?~l0027 | |
| store local11 gea | |
| store gea geb | |
| store geb local0 | |
| store local12 ge9 | |
| je local1 #06 ~l0017 | |
| store ge9 g37 | |
| jump l0018 | |
| l0017: store ge9 g31 | |
| l0018: store gef local9 | |
| je gef #00 ~l0019 | |
| loadw local8 local14 -> sp | |
| call_1s sp -> local10 | |
| jump l0025 | |
| l0019: je gef #01 ~l0020 | |
| loadw local8 local14 -> sp | |
| call_2s sp local2 -> local10 | |
| jump l0025 | |
| l0020: je gef #02 ~l0021 | |
| loadw local8 local14 -> sp | |
| call_vs sp local2 local3 -> local10 | |
| jump l0025 | |
| l0021: je gef #03 ~l0022 | |
| loadw local8 local14 -> sp | |
| call_vs sp local2 local3 local4 -> local10 | |
| jump l0025 | |
| l0022: je gef #04 ~l0023 | |
| loadw local8 local14 -> sp | |
| call_vs2 sp local2 local3 local4 local5 -> local10 | |
| jump l0025 | |
| l0023: je gef #05 ~l0024 | |
| loadw local8 local14 -> sp | |
| call_vs2 sp local2 local3 local4 local5 local6 -> local10 | |
| jump l0025 | |
| l0024: je gef #06 ~l0025 | |
| loadw local8 local14 -> sp | |
| call_vs2 sp local2 local3 local4 local5 local6 local7 -> local10 | |
| l0025: store geb gea | |
| store gea local11 | |
| store ge9 local12 | |
| jz local10 l0026 | |
| ret local10 | |
| l0026: jump l0029 | |
| l0027: je gef #03 ~l0028 | |
| loadw local8 local14 -> sp | |
| print_paddr sp | |
| new_line | |
| rtrue | |
| l0028: loadw local8 local14 -> sp | |
| ret_popped | |
| l0029: inc local14 | |
| jump l0016 | |
| l0030: rfalse | |
| Routine r0495, 3 locals | |
| call_vs r0496 local0 local1 -> local2 | |
| jz local2 ~l0001 | |
| call_vn r0501 s870 local0 local1 | |
| rtrue | |
| l0001: store gef local2 | |
| store gee #00 | |
| loadw gef gee -> ged | |
| push ged | |
| inc ged | |
| storew gef gee ged | |
| ret_popped | |
| Routine r0496, 5 locals | |
| jl local1 #40 ~l0001 | |
| jg local1 #00 ~l0001 | |
| get_prop_addr local0 local1 -> sp | |
| ret_popped | |
| l0001: and local1 #8000 -> sp | |
| jz sp ?l0004 | |
| and local1 #ff -> sp | |
| loadw #22ab sp -> local4 | |
| get_prop_addr local4 #03 -> sp | |
| jz sp rfalse | |
| call_vs r0499 local0 local4 -> sp | |
| jz sp rfalse | |
| and local1 #7f00 -> sp | |
| div sp #0100 -> local1 | |
| get_prop local4 #03 -> local2 | |
| l0002: jg local1 #00 ~l0003 | |
| dec local1 | |
| loadb local2 #02 -> sp | |
| add local2 sp -> sp | |
| add sp #03 -> local2 | |
| jump l0002 | |
| l0003: add local2 #03 -> sp | |
| ret_popped | |
| l0004: and local1 #4000 -> sp | |
| jz sp ?l0006 | |
| and local1 #ff -> sp | |
| loadw #22ab sp -> local4 | |
| and local1 #3f00 -> sp | |
| div sp #0100 -> local1 | |
| call_vs r0499 local0 local4 -> sp | |
| jz sp rfalse | |
| loadw #00 #05 -> local2 | |
| je local4 #02 ~l0005 | |
| mul #02 local1 -> sp | |
| add local2 sp -> sp | |
| sub sp #02 -> sp | |
| ret_popped | |
| l0005: mul local4 #0e -> sp | |
| add local2 #7c -> sp | |
| add sp sp -> sp | |
| div sp #02 -> sp | |
| loadw #00 sp -> local2 | |
| loadb #00 local2 -> sp | |
| mul #02 sp -> sp | |
| add local2 sp -> sp | |
| add sp #01 -> sp | |
| call_vs r0505 sp #ffff -> sp | |
| add sp #06 -> local2 | |
| call_vs r0505 local2 local1 -> sp | |
| ret_popped | |
| l0006: get_prop_addr local0 #03 -> sp | |
| jz sp rfalse | |
| jin local0 "Class" ~l0007 | |
| jl local1 #40 rfalse | |
| jl local1 #48 ~rfalse | |
| l0007: je geb local0 ~l0008 | |
| or local1 #8000 -> local3 | |
| l0008: get_prop local0 #03 -> local2 | |
| l0009: loadw local2 #00 -> sp | |
| jz sp ?l0011 | |
| loadw local2 #00 -> sp | |
| je sp local1 local3 ~l0010 | |
| add local2 #03 -> sp | |
| ret_popped | |
| l0010: loadb local2 #02 -> sp | |
| add local2 sp -> sp | |
| add sp #03 -> local2 | |
| jump l0009 | |
| l0011: rfalse | |
| Routine r0497, 3 locals | |
| jl local1 #40 ~l0002 | |
| jg local1 #00 ~l0002 | |
| get_prop_addr local0 local1 -> gef | |
| jz gef l0001 | |
| get_prop_len gef -> gef | |
| l0001: push gef | |
| ret_popped | |
| l0002: call_vs r0496 local0 local1 -> local2 | |
| jz local2 rfalse | |
| sub local2 #01 -> sp | |
| loadb sp #00 -> sp | |
| ret_popped | |
| Routine r0498, 2 locals | |
| jl local0 #01 l0001 | |
| sub #01c5 #ff -> sp | |
| jg local0 sp ?~l0004 | |
| l0001: je local1 #46 #47 #45 ~rfalse | |
| call_2s r0502 local0 -> sp | |
| pull gef | |
| je gef #02 ~l0002 | |
| je local1 #45 rtrue | |
| jump l0003 | |
| l0002: je gef #03 ~l0003 | |
| je local1 #46 #47 rtrue | |
| l0003: rfalse | |
| l0004: jl local1 #40 ~l0005 | |
| get_prop_addr local0 local1 -> sp | |
| jz sp ~rtrue | |
| rfalse | |
| l0005: call_vs r0496 local0 local1 -> sp | |
| jz sp ~rtrue | |
| jl local1 #48 ~l0006 | |
| jin local0 "Class" rtrue | |
| l0006: rfalse | |
| Routine r0499, 5 locals | |
| jl local0 #01 l0001 | |
| sub #01c5 #ff -> sp | |
| jg local0 sp ~l0002 | |
| l0001: je local1 #03 #04 ~rfalse | |
| sub local1 #01 -> sp | |
| call_2s r0502 local0 -> sp | |
| je sp sp rtrue | |
| rfalse | |
| l0002: store gef local1 | |
| je gef #01 ~l0003 | |
| jg local0 #04 ~rtrue | |
| jin local0 "Class" rtrue | |
| rfalse | |
| l0003: je gef #02 ~l0004 | |
| jg local0 #04 ~rfalse | |
| jin local0 "Class" rfalse | |
| rtrue | |
| l0004: je gef #03 #04 ~l0005 | |
| rfalse | |
| l0005: jin local1 "Class" l0006 | |
| call_vn r0501 s871 local1 #ffff | |
| rfalse | |
| l0006: get_prop_addr local0 #02 -> local3 | |
| jz local3 rfalse | |
| get_prop_addr local0 #02 -> gef | |
| jz gef l0007 | |
| get_prop_len gef -> gef | |
| l0007: store local4 gef | |
| store local2 #00 | |
| l0008: div local4 #02 -> sp | |
| jl local2 sp ~l0009 | |
| loadw local3 local2 -> sp | |
| je sp local1 rtrue | |
| inc local2 | |
| jump l0008 | |
| l0009: rfalse | |
| Routine r0500, 9 locals | |
| store local4 #00 | |
| l0001: jl local4 #30 ~l0004 | |
| test_attr local1 local4 ~l0002 | |
| set_attr local0 local4 | |
| jump l0003 | |
| l0002: clear_attr local0 local4 | |
| l0003: inc local4 | |
| jump l0001 | |
| l0004: store local4 #01 | |
| l0005: jl local4 #40 ?~l0010 | |
| get_prop_addr local0 local4 -> local2 | |
| get_prop_addr local1 local4 -> local3 | |
| get_prop_addr local0 local4 -> gef | |
| jz gef l0006 | |
| get_prop_len gef -> gef | |
| l0006: store local7 gef | |
| jz local2 ?l0009 | |
| jz local3 ?l0009 | |
| get_prop_addr local1 local4 -> gef | |
| jz gef l0007 | |
| get_prop_len gef -> gef | |
| l0007: push gef | |
| je local7 sp ~l0009 | |
| store local5 #00 | |
| l0008: jl local5 local7 ~l0009 | |
| loadb local3 local5 -> sp | |
| storeb local2 local5 sp | |
| inc local5 | |
| jump l0008 | |
| l0009: inc local4 | |
| jump l0005 | |
| l0010: get_prop_addr local0 #03 -> sp | |
| jz sp l0011 | |
| get_prop_addr local1 #03 -> sp | |
| jz sp ~l0012 | |
| l0011: rtrue | |
| l0012: get_prop local1 #03 -> local4 | |
| jump l0014 | |
| l0013: add local4 local7 -> sp | |
| add sp #03 -> local4 | |
| l0014: loadw local4 #00 -> sp | |
| jz sp ?l0020 | |
| loadw local4 #00 -> local8 | |
| loadb local4 #02 -> local7 | |
| get_prop local0 #03 -> local5 | |
| jump l0016 | |
| l0015: loadb local5 #02 -> sp | |
| add local5 sp -> sp | |
| add sp #03 -> local5 | |
| l0016: loadw local5 #00 -> sp | |
| jz sp ?l0019 | |
| loadw local5 #00 -> sp | |
| and sp #7fff -> sp | |
| and local8 #7fff -> sp | |
| je sp sp ?~l0018 | |
| loadb local5 #02 -> sp | |
| je local7 sp ~l0018 | |
| store local6 #03 | |
| l0017: add local7 #03 -> sp | |
| jl local6 sp ~l0018 | |
| loadb local4 local6 -> sp | |
| storeb local5 local6 sp | |
| inc local6 | |
| jump l0017 | |
| l0018: jump l0015 | |
| l0019: jump l0013 | |
| l0020: rtrue | |
| Routine r0501, 5 locals | |
| print "^** Run-time error: " | |
| jin local1 "Class" ~l0001 | |
| print "Class " | |
| l0001: print_obj local1 | |
| print " (object number " | |
| print_num local1 | |
| print ") " | |
| jl local2 #00 ~l0002 | |
| print "is not of class " | |
| sub #00 local2 -> sp | |
| call_2n r0107 sp | |
| jump l0004 | |
| l0002: print " has no property " | |
| call_2n r0491 local2 | |
| store local4 #22b9 | |
| loadw local4 #00 -> local3 | |
| jl local2 #00 l0003 | |
| jl local2 local3 l0004 | |
| l0003: print " (and nor has any other object)" | |
| l0004: print " to " | |
| print_paddr local0 | |
| print " **^" | |
| rtrue | |
| Routine r0502, 1 local | |
| jz local0 rfalse | |
| jl local0 #01 l0001 | |
| sub #01c5 #ff -> sp | |
| jg local0 sp ~rtrue | |
| l0001: call_vs r0503 local0 s001 or "hole" -> sp | |
| jl sp #00 l0002 | |
| ret #03 | |
| l0002: call_vs r0503 local0 #13c7 -> sp | |
| jl sp #00 l0003 | |
| ret #02 | |
| l0003: rfalse | |
| Routine r0503, 4 locals | |
| je local0 local1 ~l0001 | |
| rfalse | |
| l0001: jl local0 #00 ~l0002 | |
| jl local1 #00 l0002 | |
| rtrue | |
| l0002: jl local0 #00 l0003 | |
| jl local1 #00 ~l0003 | |
| ret #ffff | |
| l0003: and local0 #7fff -> local2 | |
| and local1 #7fff -> local3 | |
| jg local2 local3 ~l0004 | |
| rtrue | |
| l0004: ret #ffff | |
| Routine r0504, 1 local | |
| call_2s r0502 local0 -> sp | |
| pull gef | |
| je gef #02 ~l0001 | |
| ret #03 | |
| l0001: je gef #03 ~l0002 | |
| ret #04 | |
| l0002: je gef #01 ~l0005 | |
| jin local0 "Class" l0003 | |
| jg local0 #04 l0004 | |
| l0003: rtrue | |
| l0004: ret #02 | |
| l0005: rfalse | |
| Routine r0505, 4 locals | |
| l0001: loadb #00 local0 -> local2 | |
| jz local2 ?l0006 | |
| and local2 #80 -> sp | |
| jz sp l0002 | |
| inc local0 | |
| loadb #00 local0 -> sp | |
| and sp #3f -> local3 | |
| jump l0004 | |
| l0002: and local2 #40 -> sp | |
| jz sp l0003 | |
| store local3 #02 | |
| jump l0004 | |
| l0003: store local3 #01 | |
| l0004: inc local0 | |
| and local2 #3f -> sp | |
| je sp local1 ~l0005 | |
| ret local0 | |
| l0005: add local0 local3 -> local0 | |
| jump l0001 | |
| l0006: jl local1 #00 ~l0007 | |
| add local0 #01 -> sp | |
| ret_popped | |
| l0007: rfalse | |
| Routine r0506, 5 locals | |
| store gef local1 | |
| je gef #40 ?~l0005 | |
| store gef #00 | |
| get_child local0 -> sp ~l0002 | |
| l0001: inc gef | |
| get_sibling sp -> sp ?l0001 | |
| l0002: pull gee | |
| push gef | |
| jg sp #01 ~rfalse | |
| get_child local0 -> local4 ~l0003 | |
| l0003: remove_obj local4 | |
| call_vs r0498 local4 #40 -> sp | |
| jz sp l0004 | |
| call_vn r0494 local4 #40 | |
| l0004: ret local4 | |
| l0005: je gef #41 ?~l0009 | |
| call_vs r0499 local2 local0 -> sp | |
| jz sp ~l0006 | |
| sub #00 local0 -> sp | |
| call_vn r0501 s872 local2 sp | |
| rfalse | |
| l0006: get_child local0 -> sp ~l0007 | |
| l0007: call_vn r0500 local2 sp | |
| call_vs r0498 local2 #40 -> sp | |
| jz sp l0008 | |
| call_vn r0494 local2 #40 | |
| l0008: rfalse | |
| l0009: je gef #42 ?~l0013 | |
| call_vs r0499 local2 local0 -> sp | |
| jz sp ~l0010 | |
| sub #00 local0 -> sp | |
| call_vn r0501 s873 local2 sp | |
| rfalse | |
| l0010: call_vs r0498 local2 #42 -> sp | |
| jz sp l0011 | |
| call_vn r0494 local2 #42 | |
| l0011: get_child local0 -> sp ~l0012 | |
| l0012: call_vn r0500 local2 sp | |
| insert_obj local2 local0 | |
| rfalse | |
| l0013: je gef #43 ~l0016 | |
| store gef #00 | |
| get_child local0 -> sp ~l0015 | |
| l0014: inc gef | |
| get_sibling sp -> sp ?l0014 | |
| l0015: pull gee | |
| push gef | |
| sub sp #01 -> sp | |
| ret_popped | |
| l0016: je gef #44 ?~l0019 | |
| call_vs r0499 local2 local0 -> sp | |
| jz sp ~l0017 | |
| sub #00 local0 -> sp | |
| call_vn r0501 s874 local2 sp | |
| rfalse | |
| l0017: call_vs r0499 local3 local0 -> sp | |
| jz sp ~l0018 | |
| sub #00 local0 -> sp | |
| call_vn r0501 s875 local3 sp | |
| rfalse | |
| l0018: call_vn r0500 local2 local3 | |
| rfalse | |
| l0019: rtrue | |
| [End of code] | |
| [Start of text] | |
| s001: " ^ Uh-Oh! DEMO VERSION ^ | |
| ----- ^^ An Interactive Adventure You Hope Doesn't | |
| Come True ^ (C) 1998 Scott Covert / Future Media ^^Type | |
| HELP for instructions, clues and credits at any time. ^HINTS (as well as WEAK | |
| hints) available in full version only. ^(Note: the serial number assigned below | |
| is not Year 2000 compliant.) ^^" | |
| s002: "970918" | |
| s003: "6/7" | |
| s004: "a" | |
| s005: "---" | |
| s006: "the" | |
| s007: "The " | |
| s008: "the " | |
| s009: "a " | |
| s010: "The " | |
| s011: "the " | |
| s012: "an " | |
| s013: "The " | |
| s014: "the " | |
| s015: "some " | |
| s016: "The " | |
| s017: "the " | |
| s018: "some " | |
| s019: "N = next subject" | |
| s020: "P = previous" | |
| s021: " Q = resume game" | |
| s022: "Q = previous menu" | |
| s023: "RETURN = read subject" | |
| s024: "Score: " | |
| s025: "Moves: " | |
| s026: "Time: " | |
| s027: "You can't go that way." | |
| s028: "your former self" | |
| s029: "yourself" | |
| s030: "Darkness" | |
| s031: "those things" | |
| s032: "that" | |
| s033: " or " | |
| s034: "nothing" | |
| s035: " is" | |
| s036: " are" | |
| s037: "is " | |
| s038: "are " | |
| s039: " and " | |
| s040: "whom " | |
| s041: "which " | |
| s042: "(considering the first sixteen objects only)^" | |
| s043: "^Would you like to RESTART, RESTORE a saved game" | |
| s044: ", give the FULL score for that game" | |
| s045: ", see some suggestions for AMUSING things to do" | |
| s046: "[Your interpreter does not provide ~undo~. Sorry!]" | |
| s047: "~Undo~ failed. [Not all interpreters provide it.]" | |
| s048: "Please give one of the answers above." | |
| s049: "[You can't ~undo~ what hasn't been done!]" | |
| s050: "[Can't ~undo~ twice in succession. Sorry!]" | |
| s051: "~Oops~ can only correct a single word." | |
| s052: "It is pitch dark, and you can't see a thing." | |
| s053: "To repeat a command like ~frog, jump~, just say ~again~, not ~frog, | |
| again~." | |
| s054: "You seem to want to talk to someone, but I can't see whom." | |
| s055: "To talk to someone, try ~someone, hello~ or some such." | |
| s056: "I didn't understand that sentence." | |
| s057: "I only understood you as far as wanting to " | |
| s058: "You seem to have said too little!" | |
| s059: "You can't use multiple objects with that verb." | |
| s060: "You can only use multiple objects once on a line." | |
| s061: "You excepted something not included anyway!" | |
| s062: "You can only do that to something animate." | |
| s063: "That's not something you need to refer to in the course of this game." | |
| s064: "I didn't understand the way that finished." | |
| s065: "Sorry, you can only have one item here. Which exactly?" | |
| s066: "(Since something dramatic has happened, your list of commands has been | |
| cut short.)" | |
| s067: " (closed, empty and providing light)" | |
| s068: "no pronouns are known to the game." | |
| s069: "Are you sure you want to restart? " | |
| s070: "The game file has verified as intact." | |
| s071: "The game file did not verify as intact, and may be corrupt." | |
| s072: "Attempt to begin transcript failed." | |
| s073: "Attempt to end transcript failed." | |
| s074: "You're carrying too many things already." | |
| s075: "You can't put something on top of itself." | |
| s076: "You can't put something inside itself." | |
| s077: " for a while, but don't achieve much." | |
| s078: "You can only get into something freestanding." | |
| s079: "But you aren't in anything at the moment." | |
| s080: "You'll have to say which compass direction to go in." | |
| s081: " is now in its normal ~brief~ printing mode, which gives long | |
| descriptions of places never before visited and short descriptions otherwise." | |
| s082: " is now in its ~verbose~ mode, which always gives long descriptions of | |
| locations (even if you've been there before)." | |
| s083: " is now in its ~superbrief~ mode, which always gives short descriptions | |
| of locations (even if you haven't been there before)." | |
| s084: "Darkness, noun. An absence of light to see by." | |
| s085: "seem to be something you can unlock." | |
| s086: "seem to be something you can lock." | |
| s087: "This dangerous act would achieve little." | |
| s088: "Nothing practical results from your prayer." | |
| s089: "The dreadful truth is, this is not a dream." | |
| s090: "Digging would achieve nothing here." | |
| s091: "You jump on the spot, fruitlessly." | |
| s092: "You would achieve nothing by this." | |
| s093: "There's nothing suitable to drink here." | |
| s094: "But there's no water here to carry." | |
| s095: "Real adventurers do not use such language." | |
| s096: "Violence isn't the answer to this one." | |
| s097: "There's not enough water to swim in." | |
| s098: "There's nothing sensible to swing here." | |
| s099: "That would be less than courteous." | |
| s100: "Is that the best you can think of?" | |
| s101: "You lack the nerve when it comes to the crucial moment." | |
| s102: "I don't think much is to be achieved by that." | |
| s103: "You aren't feeling especially drowsy." | |
| s104: "You discover nothing of interest in " | |
| s105: "[Gluing in inference with pattern code " | |
| s106: "You are in a secret place." | |
| s107: "This is the demo fairy who accompanies you through the trial version of | |
| Uh-Oh! Cute 3 inch tall Elvish-looking blond, magic wand, tiny little wings, | |
| squeaky voice, flits about." | |
| s108: "You cannot get rid of the demo fairy in the trial version. She will be | |
| with you throughout." | |
| s109: "No use trying to harm the impervious demo fairy." | |
| s110: "^^The demo fairy squeaks: "That's all the time you have to experiment | |
| with this phase of the adventure. It's time to see what the next phase holds! | |
| ..."^^" | |
| s111: "^^The demo fairy boinks you on the nose with her tiny wand and squeaks: | |
| "That's all the time you have to experiment this time around. You'll see a | |
| message that says you've won, but really, you haven't. Sorry ... at least you | |
| can get the full version of this game for what Infocom(TM) used to charge for | |
| an Invisiclues(TM) booklet! My master hates shareware nag screens as much as | |
| anybody does, but he's explained to me that making this game took him 50 | |
| consecutive 10-hour days out of his direct marketing career, so ..."" | |
| s112: "^^The demo fairy flitting about your head says: "Just 8 more moves in | |
| this phase, then we move on ..."^" | |
| s113: "Reluctantly, you unpack the crucial provision item from your car." | |
| s114: "^You need to BUY it before you can take it anywhere." | |
| s115: "The salesguy helps you lug the generator out to your car." | |
| s116: "^You've paid for it now. Your debit card has $" | |
| s117: "^The attendant rips down the sign.^" | |
| s118: "You are standing by your car in the parking lot of a mid-sized shopping | |
| mall, getting ready for a potentially long stay in your home. You can go ... ^ | |
| Northwest to a gas station,^ West to a grocery store, ^ Southwest to | |
| a variety store,^ South to a bank, ^ Southeast to a heavy equipment | |
| store,^ East to a coin shop, or ^ Northeast to a pharmacy." | |
| s119: "^As you head into the grocery store, you glance at a huge sign that says | |
| "Don't ask us for batteries, bottled water, candles, or flashlights!"^" | |
| s120: "^As you waltz into the variety store you glance at a sign on the door: | |
| "No matches, candles, water, ice, or magazines left."^" | |
| s121: "Load up your car with provisions, then you can go." | |
| s122: "It's your car. Load it up with provisions according to your survival | |
| report's instructions. Then, and only then, you'll be ready for Phase 5 of your | |
| quest." | |
| s123: "You get into the car, and it dawns on you that " | |
| s124: "you'd better stock up on vitamins; who knows how your eating situation | |
| is going to be." | |
| s125: "you aren't prepared for a power grid failure." | |
| s126: "you've got no fuel for your generator!" | |
| s127: "you should find out what's written on your note before you leave." | |
| s128: "you're finally ready to go home! And you do ..." | |
| s129: "Your bank card. To spell out your complete financial situation, type the | |
| MONEY command. Redeemable for goods and services anywhere in the mall ... well, | |
| almost anywhere. Currently contains a credit of $" | |
| s130: "You are standing in a gas station, being careful not to become a hood | |
| ornament as vehicles veer around you. Even with the exorbitant prices, | |
| everybody is loading up their vehicles and empty containers with gas, due to | |
| the September 9th breakdowns in the oil rigs and pipelines.^^" | |
| s131: "There is a sign taped to the station attendant's booth.^" | |
| s132: "The sign, written in jumbo black marker on some scrap boxboard, reads: | |
| Get natural gas now wile you stil can fer $150 fer a 45 gallon drum. Pay in | |
| advance. We deliver." | |
| s133: "The attendant, a little edgy over recent events, protests your vandalism | |
| by taking out a rifle and shooting you. He knows the police are too busy to | |
| attend to every little homicide these days." | |
| s134: "Black stringy hair, early 30's, blue denim coveralls with name patch: | |
| "Joe."" | |
| s135: "The attendant mumbles: "Errr ... you already bought the last 4 drums, | |
| sir (even if you, the player, are female, he calls you "sir". He's just that | |
| dense.) It'll be delivered to your home."" | |
| s136: "The station attendant says: "Errr ... you be wantin' all four o' dese | |
| drums o' gas?" " | |
| s137: "Joe assures you that the drums will be delivered to your home, but | |
| forgets to ask your address, so you write it down for him. A truck comes and | |
| takes the drums of gas out of public view, and the attendant pulls the sign | |
| down." | |
| s138: "A set of 4 huge drums full of gas with individual dispenser pump | |
| mechanisms on top." | |
| s139: "You are in a grocery store, surrounded by wealth in its most basic form | |
| - food. Aisles and aisles of it. There are also decorative plants, greeting | |
| cards, pots and pans, kitchen utensils, light bulbs, and so on. ^^Of course, | |
| certain specific objects catch your keen, survival-oriented eye ..." | |
| s140: "Right now you need long term provisions, not these perishable items." | |
| s141: "Right now you need long term provisions, not these perishable items." | |
| s142: "Many of the magazines are outdated, left there to fill space, as several | |
| publishers have "temporarily" suspended publishing. A few disaster magazines | |
| contain information that only an idiot wouldn't know. The new issue of New | |
| Militia is here - very popular these days - as well as some issues of New | |
| Bride." | |
| s143: "A magazine full of stuff about living just like an army guy, only sort | |
| of outside the law in an exciting, tribal, survivalist kind of way." | |
| s144: "^He seems irresistibly attracted to the notion of reading this magazine. | |
| So he grabs it from you and walks purposefully out into the parking lot, and | |
| proceeds to read it, leaning against his car.^" | |
| s145: "A magazine full of pictures of wedding gowns and china patterns and | |
| cutlery and rings and pretty people and a whole lot of hooey." | |
| s146: "He/she/it is not amused, and throws it back at you." | |
| s147: "6 bottles of vitamins, each containing 60 tablets. Price: $60." | |
| s148: "I'll ration your vitamins to you in reasonable amounts when the time | |
| comes." | |
| s149: "a" | |
| s150: "This case is marked: "One month's worth of rations (dried milk powder, | |
| dehydrated vegetables, pasta, canned meat, [etc.].) ... $100."" | |
| s151: "^For the sake of simplicity, we'll just assume you move the case around | |
| by rolling it, using a shopping cart, or whatever.^" | |
| s152: "a" | |
| s153: "This case is marked: "Six month's worth of rations (dried milk powder, | |
| dehydrated vegetables, pasta, canned meat, [etc.].) ... $450."" | |
| s154: "Nope. Leave that there. It's only use now is keeping you alive. You can | |
| have some food when you're hungry." | |
| s155: "^For the sake of simplicity, we'll just assume you move the case around | |
| by rolling it, using a shopping cart, or whatever.^" | |
| s156: "A pack of matches which will cost you $2." | |
| s157: "You've already lit a match! When it's burned out you can light another | |
| one." | |
| s158: "^^ *** What are you, a pyromaniac or something? ***^" | |
| s159: "Your pack of matches is all used up." | |
| s160: "It is a long-burning space-age match, now lit. It will go out in " | |
| s161: "a burning match which is busy fizzling out as you watch it" | |
| s162: "a burning match which will be fully consumed in " | |
| s163: "Quit wasting time beating a dead horse. You have work to do!" | |
| s164: "^The match fizzles out. You have " | |
| s165: "This store is a sign of the times, an unfocussed mish-mosh of pets, | |
| cheap dented soup cans, cigarettes, electronics, sports supplies, clothing, and | |
| really cheap food." | |
| s166: "Upon closer examination, you realize that it's just a simple rubber | |
| bathmat with suction cups (boy, is your face red.)" | |
| s167: "It's a rubber shower mat with suction cups on one side, which decrease | |
| the likelihood of falling in the shower. Price: $8." | |
| s168: "This is stuff that won't help you succeed in this game, but thanks for | |
| looking. It looks as though most edible or otherwise useful items have been | |
| purchased by panicky citizens." | |
| s169: "Posters announcing emergency financial regulations adorn this small | |
| branch of the Bank Of Littleton. A crowded lineup of tense, impatient people | |
| can be entered." | |
| s170: "Are you attempting to hoard cash and undermine the economy, sir?"" | |
| s171: "Are you attempting to hoard food and let small children starve, sir?"" | |
| s172: "Are you doing your part to help our society survive, sir?"" | |
| s173: "Have you turned in any gold you own to the authorities, sir?"" | |
| s174: "^A bank teller sighs loudly: "I can't wait until twelve o'clock so I can | |
| get out of here for an hour!"" | |
| s175: "The regular bank tellers are gradually leaving for lunch, replaced by | |
| trainees." | |
| s176: "The tellers-in-training, without the guidance of their superiors, are a | |
| little slow and flustered compared to the veteran tellers who are out to | |
| lunch." | |
| s177: "The regular bank tellers are back from lunch." | |
| s178: "the" | |
| s179: "It's a lineup of tense, irritable and edgy people waiting to be served | |
| by a teller. The automated teller system is broken down and most just want to | |
| withdraw their government-imposed daily maximum withdrawal limit." | |
| s180: "^The lineup moves along slowly ...^" | |
| s181: "^The lineup continues to move along slowly ...^" | |
| s182: "^You'll be at an actual teller in no time ...^" | |
| s183: "^Just one more guy in front of you ...^" | |
| s184: "^Finally, it's your turn at the counter ...^" | |
| s185: "The soldier sees you enter the lineup, exceeding your once-per-day | |
| personal bank service limit. You are led away in handcuffs." | |
| s186: "You enter the lineup, which moves along at a snail's pace." | |
| s187: "Standing at a bank teller's counter. If you wanted to, you could go | |
| north back to the parking lot. To withdraw money use the TELLER, X command | |
| where X is the number of dollars you wish to withdraw." | |
| s188: "the" | |
| s189: "A veteran bank teller who can't wait to go out for lunch with her | |
| friends." | |
| s190: "A harried trainee who can't wait for the veterans to get back from | |
| lunch." | |
| s191: "A veteran bank teller, satisfied by a good lunch and a hefty bonus for | |
| promising not to quit." | |
| s192: "The teller assures you she is highly amused by your wacky request. | |
| Didn't you read the posters?" | |
| s193: "The teller recognizes you and kicks you out of the bank, wondering why a | |
| soldier didn't prevent this." | |
| s194: "The overworked trainee is busy and flustered, but not so much that he | |
| doesn't recognize you. He demands that you leave.^" | |
| s195: " in your account. You have asked to withdraw $" | |
| s196: "You don't have enough on your debit card (in other words, in your bank | |
| account) to get that much cash!" | |
| s197: " in your account. You have asked to withdraw $" | |
| s198: "You don't have enough on your debit card (in other words, in your bank | |
| account) to get that much cash!" | |
| s199: "^You deserve some bonus points for cheating the (unconstitutional) | |
| system!^" | |
| s200: " in your account. You have asked to withdraw $" | |
| s201: "You don't have enough on your debit card (in other words, in your bank | |
| account) to get that much cash!" | |
| s202: "^You deserve some bonus points for cheating the (unconstitutional) | |
| system!^" | |
| s203: "Just type TELLER, (NUMBER) where NUMBER is a legally permissible number | |
| of dollars you wish to withdraw from your bank account." | |
| s204: "^With your transaction completed, the teller shoos you out of the lineup | |
| and "welcomes" her next customer.^" | |
| s205: "The teller calls the soldier over to let him know that you are trying to | |
| break the rules. This seems to make the soldier very happy, as he leads you | |
| away to a place where you cannot prepare for, and survive, the times to come | |
| ..." | |
| s206: "^The teller recognizes you from before and chastises you for trying to | |
| break the rules. You exit in shame ...^" | |
| s207: "The posters convey the following information: ^1) Daily maximum cash | |
| withdrawal limit: $300. ^2) All personal holdings of gold, silver, and platinum | |
| bullion and non-rare coins can be sold for cash to a teller. ^3) Only one | |
| counter visit allowed per day. ^4) The FDIC guarantees all bank accounts under | |
| $100,000 so there's nothing to worry about!" | |
| s208: "This soldier, dressed in camouflage (in case the mall has some trees | |
| that need to be hidden in) and armed with a rifle and tear gas, is on duty at | |
| this mall defending the Critical Infrastructures of America (so you ought to be | |
| thankful). A purple diamond with white lettering ... C.I.P. ... adorns his | |
| helmet." | |
| s209: "^He is currently leaning against his car, taking a long break from his | |
| duties to read the magazine you gave him." | |
| s210: "^^"That was the wrong answer, sir! You'll have to come with me!" ^^And | |
| off you go, led by the soldier to an unspecified bad place, and your adventure | |
| grinds to a halt. You'll never be able to survive now ...^" | |
| s211: "^The soldier nods briskly, satisfied." | |
| s212: "^The soldier darts his head around, frowning and looking for bad things, | |
| according to his superiors' most recent definition of what sorts of things are | |
| bad." | |
| s213: "One can barely put one foot in front of another in here without tripping | |
| over a riding mower, diesel generator or some other bulky and expensive piece | |
| of machinery." | |
| s214: "^You have set up your generator right next to your front step, cemented | |
| in place and obscured, to make it less detectable and stealable. A cord runs | |
| from it and through a small, insulated hole in the wall, into the TV room." | |
| s215: "A burly salesman comes over, preceded by his huge, fake, down-home | |
| smile. "You can't get a better machine, I'll tell you what. This baby'll run | |
| your home on one gallon of gas a day. Only $2000. Cash only, please."" | |
| s216: "A tarnished old brass lamp. Tiny, almost worn off lettering on the | |
| underside says "Great Underground Empire historical society."" | |
| s217: "The salesman comes rushing over and exclaims: "Ahhhh! A genuine antique! | |
| Priceless really, but my manager just seems to be so CRAZY lately! He told me | |
| we have to part with it for only $20."" | |
| s218: "The geezer who owns and operates this shop might well be as old as some | |
| of the antique coins he sells. Anything of value is, of course, under | |
| burglar-proof glass. The government's foolish attempts to stop people from | |
| cashing out have, of course, failed. Coin and metal dealers have very little | |
| left for sale." | |
| s219: "Just an old geezer trying to make a living." | |
| s220: "Just an old geezer packing things up and getting ready to head for the | |
| hills." | |
| s221: "The geezer crows "It's a seller's market these days, and that's a fact. | |
| As soon as I sell this 1880 gold liberty dollar, I'm a-gonna retire for good. | |
| Mmm-hmm. $1500, no haggling."" | |
| s222: ""Sorry, no refunds. Let me be while I tidy up and close shop."" | |
| s223: "The teller grabs the coin from you with an almost audible "Yoink", | |
| consults with a manager, then presents you with $500 in cash and sends you on | |
| your way ..." | |
| s224: "Seems like just about everything ever written by Tom Robbins, Robert | |
| Anton Wilson, William Gibson, and Kurt Vonnegut, haphazardly packed in decaying | |
| plastic bags. Would keep you enlightened and entertained no matter how long you | |
| have to spend sequestered in your rural hideout." | |
| s225: "This is a standard pharmacy crammed full of analgesics, stimulants, | |
| depressants, lotions, powders, deodorants, soaps, diapers, vitamins, and so | |
| on." | |
| s226: "Predictably, she stands in the raised-platform-behind-the-counter area | |
| of the store. A few customers come and go, probably getting a few months' worth | |
| of drugs in advance, just in case." | |
| s227: "^The pharmacist accepts a prescription from a customer and uses her keen | |
| training to decipher some doctor-written scratchings that would be | |
| unintelligible to the average person.^" | |
| s228: "This is a note to yourself when you were reading something or talking to | |
| somebody or something. ARGGGHHH!!! You can't make out your own handwriting! | |
| Whatever will you do?" | |
| s229: "This is the note that the pharmacist said contained something like | |
| "www", then Ytarone" or "starune" or "slalono" or something, then "com". Sounds | |
| like a website, if you could figure out what that domain name is supposed to | |
| be." | |
| s230: ""I've already helped you all I can with that," says the pharmacist. | |
| "Come back when you need some patented man-made chemicals."^" | |
| s231: "The pharmacist takes a long look at the note, ever confident in her | |
| ability to decipher even the worst chicken scratch, then says "I don't think | |
| I've heard of this one before ... looks like www ... ummmm ... geez, this must | |
| be Dr. Hancock's writing ... 5tarone? ... starune? ... slanono? ... com ... | |
| hmmph ... never heard of this one before ... probably one of those new | |
| antihistamines." She hands the note back to you." | |
| s232: "He/she/it appears perplexed by the seemingly random scrawl." | |
| s233: "There's some soap, aspirin, light bulbs and cooking accessories back at | |
| your house. Leave this stuff alone; it's window dressing." | |
| s234: "There's some soap, aspirin, light bulbs and cooking accessories back at | |
| your house. Leave this stuff alone; you won't need it." | |
| s235: "the" | |
| s236: "You are in the main living room of your reclusive home. A full-size | |
| fireplace is on the east wall, beside which sits a pile of logs. The main | |
| entranceway lies due south of the west end of this room, and the dining room is | |
| southeast (due south of the east end of the room).^^" | |
| s237: "^You involuntarily run out of the smoke-filled room, into the basement | |
| where there is breathable air.^" | |
| s238: "^^The trio of villains burst upon you; you meet an untimely demise." | |
| s239: "Absolutely no entering of the fireplace. You're alone out here and | |
| certainly don't want anything stupid to happen." | |
| s240: "Just a closet." | |
| s241: "It's the face of an old rotten-fleshed man, scarred, bloody and looking | |
| like pure sick nightmare evil." | |
| s242: "It's a clear window, made of glass." | |
| s243: "The glass breaks, shattering your hopes for maintaining a heated home." | |
| s244: "A fireplace containing a fire. There is a nicknack mantle on top." | |
| s245: "A fireplace. You burn stuff in it, which provides heat. The resultant | |
| smoke goes up the chimney, so you don't get a house full of smoke. There is a | |
| nicknack mantle on top." | |
| s246: "It nestles in the grime of the fireplace.^" | |
| s247: "Woosh! Fire tears up the walls and choking smoke overwhelms you. The | |
| bucket itself catches on fire, and so do you." | |
| s248: "^The fireplace is now filled to capacity and should burn for more than | |
| an hour.^" | |
| s249: "It becomes destroyed in the fire, one way or another." | |
| s250: "a" | |
| s251: "This is a quantity of sooty ashes left over from the burnt out fire." | |
| s252: "Youch! Not the smartest thing you've ever attempted!" | |
| s253: "A pile of wood (chopped up trees) sitting in a pile beside the | |
| fireplace." | |
| s254: "Better think twice about setting your house on fire, Bud." | |
| s255: "Good move! More specifically, WHOOOOSH!!! First to go are your eyebrows, | |
| followed quickly by your entire body." | |
| s256: "A small sticker on the log says "Suitable for adventurers age 10 and up. | |
| For use only in fireplace."" | |
| s257: "6 foot flames roar up from the log. The home that was to be your shelter | |
| amidst the chaos burns to the ground, and you have nowhere safe to go." | |
| s258: "^The gas soaked log goes up in massive flames. Dark grey smoke billows | |
| thickly straight up into the calm, freezing sky.^" | |
| s259: "You can't start a fire with that blanket covering the chimney - it would | |
| fill the room with smoke." | |
| s260: "You have proven your ability to make fires for warmth and cooking, a | |
| valuable survival skill." | |
| s261: "You have started a proper fire in the fireplace." | |
| s262: "It is a roaring blaze." | |
| s263: "^The fire becomes less roaring, and more purring.^" | |
| s264: "^The "fire" is, at this point, not much more than a few stray flames and | |
| glowing embers.^" | |
| s265: "^A small chunk of soot falls from the log and into the grime of the | |
| hearth.^" | |
| s266: "Try as you might, you are for some reason unable to carry the fire | |
| around. A valuable lesson is learned, though, as you are badly burned. | |
| Gradually, fluid loss, infection, and the stench of your own burned flesh | |
| overwhelm you as the world falls apart outside ..." | |
| s267: "The roaring fire goes out, leaving in its place an inert pile of dusty | |
| soot." | |
| s268: "^It occurs to you the fire has probably gone out by now.^" | |
| s269: "A mantle above the fireplace. Perhaps 4 feet wide and 1 foot "long", | |
| made for holding nick-nacks." | |
| s270: "the" | |
| s271: "This is the main hallway of your quaint hideaway. To the south is the | |
| master bedroom, and to the north is a smaller bedroom. To the east is the | |
| living room. A bathroom is west." | |
| s272: "The bathroom is available for your imaginary protagonist's sanitary | |
| requirements, but is not really a part of this game." | |
| s273: "the" | |
| s274: "This small bedroom has a window facing north. The main hall is to the | |
| south." | |
| s275: "the" | |
| s276: "The master bedroom has a window facing west. The main hall is to the | |
| north." | |
| s277: "A standard issue blanket, big enough for a king size bed." | |
| s278: "A mirror in which you see your bad self." | |
| s279: "A mirror in which you see a horribly frightening monster - then realize | |
| it's just you wearing that mask." | |
| s280: "A king size bed." | |
| s281: "the" | |
| s282: "This is your kitchen. A large window looks out to the south. The dining | |
| room is just east of here, and the entranceway to your humble abode is to the | |
| west. The kitchen is spartan, containing a (now useless) phone, refrigerator, | |
| oven, and cooking necesseties." | |
| s283: "A raw steak you are thawing for supper (with apologies to vegetarians | |
| playing this game.)" | |
| s284: "Wow, raw steak ... how bloody awful. Within a week the bacteria have | |
| overwhelmed you ..." | |
| s285: "The doggie grabs the steak, careful not to take your fingers along with | |
| it, and swallows it." | |
| s286: "the" | |
| s287: "This is the dining room. A large window looks out to the east, down the | |
| road where you can see 6 other houses stretching out over the quarter mile of | |
| your sparsely populated neighborhood. A table and chairs have been left behind | |
| by the previous owner (wonder where he is now?) The kitchen is west of here, | |
| and the living_room is northwest." | |
| s288: "This isn't needed to solve the game." | |
| s289: "the" | |
| s290: "This is the entranceway to your home. The living room lies north, and | |
| stretching downstairs to the east is your basement." | |
| s291: "the" | |
| s292: "It's the back door to your house." | |
| s293: "The villains hear you turning the key in the lock, and come to the door | |
| to murder you." | |
| s294: "Nothing special about it. Try not to let it corrode, rust, melt or get | |
| bent." | |
| s295: "This is the lower level of your home. All ceilings on this level are | |
| about 2 feet above ground level, so during the day, some light gets in through | |
| the windows. To the west is a small recreation room and to the east lies a | |
| multi-purpose pantry / laundry room / storage area." | |
| s296: "This is your "television room". A cable from the satellite dish comes | |
| through the ceiling and into the back of your satellite receiver, which is | |
| attached to a VCR, which is in turn plugged into your computer. Everything is | |
| plugged into a power cord which comes in through a hole in the wall from the | |
| generator outside." | |
| s297: "This old tv gave up the ghost a couple of days ago. It's useless now. | |
| How will you watch TV without a tv? How will you receive communication from the | |
| outside world?! How can you avoid going stir-crazy if you're stuck here for 6 | |
| months?!?!?!" | |
| s298: "Good, let out your frustrations even if it means burning your house to | |
| the ground." | |
| s299: "the" | |
| s300: "That specific thing does not need to be referred to during game play." | |
| s301: "It's your desktop PC (personal computer). It's linked into your VCR and | |
| satellite dish, has World Wide Web access, and is year 2000 compliant ... | |
| that's what the saleslady said, anyway.^^" | |
| s302: "The age-old favorite, Tic Tac Toe, is installed in your computer.^" | |
| s303: "No use lugging this thing all over the place. It's definitely not | |
| portable, and it's tied into your satellite receiver and VCR." | |
| s304: "That doesn't fit in the computer's disk drive." | |
| s305: "All you can do in that vein is INSERT DISK IN DRIVE." | |
| s306: "For simplicity's sake, let's leave that on." | |
| s307: "It's a web browser. Once you have discovered a web site, type CONSULT | |
| INTERNET ABOUT <SITE> (without the 'www', 'com', etc.) For example, if you | |
| discovered www.ufo.com, you would type CONSULT BROWSER ABOUT UFO.)" | |
| s308: "All you can do is type CONSULT BROWSER ABOUT <SITE> without the www and | |
| com, org or net." | |
| s309: "Close, but not quite the name of the actual site I think you're looking | |
| for. Think harder." | |
| s310: "You'll have to quit playing this game and use an actual web browser to | |
| visit that site." | |
| s311: "No sites by that name to visit here. Maybe in real life, but not here." | |
| s312: "Type BROWSER, <SITE>, where <SITE> is one word representing a web site, | |
| with no "www", "com", etc." | |
| s313: "Technically, you don't know about that site yet. You need to do | |
| something in the game first." | |
| s314: "the" | |
| s315: "You are surfing the StarOne satellite services web site. Apparently, | |
| several skilled computer programmers and technicians abandoned their employers | |
| (ring a bell?) to work with StarOne to assure StarOne programming 24 hours a | |
| day on channel 132 effective December 20 1999. ^^A general report on the | |
| industy states that Global Positioning Satellite failures (August 1999), lack | |
| of consumer confidence, and individual channels' financial problems dealing | |
| with Y2K has rocked the satellite entertainment business. Orionsat's | |
| GPS-related failure slashed revenue for many specialty channels. ^^A list of | |
| possible small dish orientations is given ... ^ 100 degrees ... OrionSat ... | |
| failed August 1999. ^ 110 degrees ... StarOne ... channel 132 WILL survive! ^ | |
| 120 degrees ... PrimeSat ... predict off-air 01/01/2000. ^ 130 degrees ... | |
| StarSat ... status unknown. ^ 150 degrees ... raw network feeds ... status | |
| unknown. ^ 160 degrees ... TwinSat ... stubborn; time will tell. ^^That's | |
| about the gist of it." | |
| s316: "This is software which allows you to watch and capture incoming cable or | |
| satellite signals on a computer. It occupies one window on your computer | |
| monitor; you can still surf the web while the PC-TV software is running.^^" | |
| s317: "This receiver get channels 1 - 166 (use command RECEIVER, <Channel>) of | |
| whatever satellite it is focussed on at any given time. It is currently set to | |
| channel " | |
| s318: "For the sake of simplicity, let's leave that on." | |
| s319: "Already on that channel, you incorrigible tease!" | |
| s320: "You turn the channel setting on the satellite receiver to " | |
| s321: "It's the classic game of X's and O's (Tic Tac Toe), upgraded for the new | |
| millennium and graciously given away by Microsoft. It occupies one hundred | |
| megabytes of your hard drive." | |
| s322: "You have uninstalled Tic Tac Toe from your computer, freeing up 80 | |
| megabytes (20 megabytes of garbage remain behind: useless .dll's clogging up | |
| your system directory; unintelligible lines in your registry, etc. That's | |
| life.)" | |
| s323: "If software can be installed, then it can be uninstalled." | |
| s324: "This room is, by necessity, a mess. It's where you do your laundry, | |
| store your food, and keep everything that doesn't fit anywhere else in your | |
| house, even a small indoor garden with special lighting. There are four 45 | |
| gallon drums here, full of gasoline. One of them has a short hose on top, with | |
| a squeezable pump mechanism on its end." | |
| s325: "It's a short hose, ending in a hand-held squeezable trigger-type thing." | |
| s326: "You can't do anything with those (except buy them) until they've been | |
| delivered to your house." | |
| s327: "You squirt some gas into the bucket." | |
| s328: "Being without an appropriate empty container, you succeed only in | |
| squirting some gasoline on the floor, where it evaporates." | |
| s329: "It's a quantity of gasoline, also known as oil, petrol, or gas. Very | |
| flammable and combustible." | |
| s330: "You can't take that as such. You can only get some in your bucket by | |
| squeezing the pump mechanism." | |
| s331: "^^ WHOOOOSH!!!^^The gasoline goes up in a big fireball. Maybe | |
| you should never burn that in concentrated liquid form." | |
| s332: "Yummy, nutritious, gasoline. Hey, wait a minute ... you remember that | |
| gasoline is not an "edible oil product". Suddenly, you don't think you feel so | |
| good." | |
| s333: "The gas soaks the object and the rest spreads all over the place, | |
| evaporating." | |
| s334: "He jumps nimbly out of the way, none too happy with your behaviour." | |
| s335: "For the sake of simplicity I've already assumed that you're refilling | |
| the generator when needed." | |
| s336: "A metal bucket with a half-circle pivoting metal rod for a handle, just | |
| like you'd expect." | |
| s337: "No use trying to put THAT in the bucket." | |
| s338: "No survivalist would be without some rope; hence, this simple 30 foot | |
| length of ultra-strong rope." | |
| s339: "coil of rope (tied to the bucket)" | |
| s340: "^For obvious reasons, the rope is no longer tied to the bucket.^" | |
| s341: "You have to be holding the rope and the bucket to do that." | |
| s342: "Done. (To reverse this action, drop either the rope or the bucket. To | |
| drop them and keep them tied up, type DROP ROPE AND BUCKET.)" | |
| s343: "A reasonable concept, but I must tell you it wouldn't help." | |
| s344: "A screwdriver." | |
| s345: "A pair of skates left behind by the previous owner of your house." | |
| s346: "It sure is awkward walking around on a pair of skates!" | |
| s347: "You trip on the skates and break an ankle! Needless to say, you cannot | |
| survive in this state for long." | |
| s348: "Woah! Sheesh, you almost tripped and broke your neck walking around in | |
| the skates." | |
| s349: "^Using your limited childhood skating experience, you remain balanced on | |
| the slick ice. This is fun!" | |
| s350: "You put your boots back on, but first ... " | |
| s351: "A flashlight which you can turn on and off. Let's not even worry about | |
| batteries for the purposes of this game." | |
| s352: "The flashlight snaps to life, emitting a powerful beam of light." | |
| s353: "^On the computer monitor you see ... " | |
| s354: "a very noisy, faint signal with the word "OrionSat" overtop of a test | |
| pattern." | |
| s355: "crystal clear picture and sound. A logo in the bottom right of the | |
| screen says StarOne.^^" | |
| s356: "An announcer informs you that Channel 132 is up and running due to the | |
| massive efforts of "runaway" genius programmers who left awful corporate Y2K | |
| repair jobs to keep a means of communication open to the millions of people who | |
| have small DBS frequency satellite dishes." | |
| s357: "An announcer tells the story of an individual in rural New York | |
| defending his home from looters by wearing a scary costume and waving a | |
| baseball bat around." | |
| s358: "You see some taped footage from Los Angeles, which has apparently gone | |
| without power since 10:35 pm New Year's Eve (their time); they wasted no time | |
| starting riots and setting things on fire." | |
| s359: "You're watching an aerial view of Cleveland at 10 pm Jan 1st, 2000 - | |
| pitch black, with a few flickering flames here and there." | |
| s360: "Channel 132 is carrying a very informal round table discussion | |
| consisting mainly of technicians and programmers. They're reviewing the | |
| minute-by-minute information coming to them, reviewing the plights of those who | |
| have experienced hoarding-related shortages over the last couple of months, and | |
| now live without power. In the studio background you can see crates of food, | |
| water, gas and other essentials ..." | |
| s361: "Ross Perot is communicating through his own satellite uplink at his | |
| survival compound in Texas. There is a lot of "I told you so" (justifiable) and | |
| criticism of politicians, plus Mr. Perot's predictions of what government will | |
| do next." | |
| s362: "A couple of astute individuals summarize a comparison of references to | |
| the Year 2000 Problem versus references to Bill Clinton's genitals in | |
| newspapers and TV, first half of 1998 (a ratio of 10:1, it turns out), with the | |
| possibly implication that we live in a society of oblivious dolts." | |
| s363: "You see some video footage of major banks, insurance companies and | |
| hospitals producing literally tons of database backups on paper in the last | |
| days of 1999." | |
| s364: "A reporter tells the story of Baltimore's water supply being poisoned | |
| with massive amounts of chlorine due to an unanticipated embedded chip failure | |
| which has left a valve permanentl open. Untold thousands of people flood the | |
| emergency rooms of hospitals where electricity is sporadic and doctors are | |
| having nervous breakdowns." | |
| s365: "An embedded chip expert offers his educated estimates of global | |
| breakdowns, based on early evidence: only about one in 10,000 embedded chips | |
| have shown immediate signs of malfunction. There are 50,000,000,000 embedded | |
| chips in the world. That means 5,000,000 breakdowns now, and more to come | |
| later. If 1% cause at least one death, that's 50,000+ deaths. The expert's | |
| estimate of mid-to-large-size business casualties just two working days into | |
| the new year: 5000+. From these, consumer confidence will take a nosedive, | |
| unemployment will grow further, and the dominoe effect will be in full force." | |
| s366: "(The same programming sequence begins again, with a promise to bring | |
| more news as soon as possible from the volunteer network keeping channel 132 | |
| on-air.)" | |
| s367: "what was once a channel of some kind, but is now a fluttering, | |
| sound-less byproduct of Y2K meltdowns." | |
| s368: "A clear, serene black screen with a faint high pitched whine." | |
| s369: "A programming guide for the StarSat broadcasting system. Channels 12, | |
| 34, 100 and 126 appear to still be broadcasting." | |
| s370: "The Pottery Channel, still up for God knows what reason." | |
| s371: "The Text Adventurer's Channel, a premium viewing option for highly | |
| intelligent people (but of no use to you in this game)." | |
| s372: "The Soccer Channel, which you couldn't bear to watch even if it was your | |
| last form of outside contact." | |
| s373: "MTV, you think - or else a random barrage of noise and rapidly flashing | |
| images caused by some Y2K breakdown. Could be either one." | |
| s374: "A test pattern and an ear-splitting whine. StarSat has never been the | |
| same since August's GPS breakdowns." | |
| s375: "Nothing. Total static and a relaxing hiss." | |
| s376: "A news program focussing on some of the early effects of Y2K. It appears | |
| as though " | |
| s377: "the reporters are upset that there isn't more immediate devastation for | |
| them to report on. The effects of Y2K turn out to be not so entertaining as | |
| earthquakes and ice storms ... at least, so far." | |
| s378: "several banks and insurance companies have had large, obvious failures | |
| in the early going." | |
| s379: "countless thousands of people are stranded (in airports or otherwise) | |
| due to massive failures in the FAA's systems." | |
| s380: "Your backyard has a view to forest and frozen swamp to the south, and 5 | |
| other houses down the lane. To the east your lawn continues around the side of | |
| your house. Under your steps is a curious hole in the concrete.^^" | |
| s381: "You can't go that way, on account of this game is getting too big as it | |
| is." | |
| s382: "This hole leads into the area under your back steps through a gap in the | |
| concrete." | |
| s383: "Your efforts to enlarge the hole with violence are wasted." | |
| s384: "The hole is too narrow for you to enter, period." | |
| s385: "This bag of a dozen coins may date back 3 or more generations of owners | |
| of this house. (What would an adventure game be without a lost treasure?) | |
| They're all pre-1933 gold and silver coins. They're probably worth $12,000 or | |
| more. And if inflation goes through the roof, they'll be worth a lot more ..." | |
| s386: "A plain old snow shovel. To shovel something, type SHOVEL (THING)." | |
| s387: "This trail goes north to your house and continues south down a slight | |
| incline through some trees." | |
| s388: "It is futile to plod through the snowy fields and forest in that | |
| direction." | |
| s389: "This snow-covered pond continues in both wide and narrow trails to the | |
| south, and is spotted with clumps of bush and bullrushes." | |
| s390: "A trail has been plowed through the snow to the south. Hockey rink | |
| quality ice shines in the sun, split into trails by high bullrushes and thorny | |
| bushes." | |
| s391: "You slip and slide on the ice and get nowhere." | |
| s392: "Pretty hard skating on ice with 6 inches of snow on it." | |
| s393: "You slip around on the perfectly smooth ice under the snow and get | |
| nowhere." | |
| s394: "A vast icy swamp, with relatively clear ice trails leading in all | |
| directions interspersed with snow drifts and bullrushes." | |
| s395: "Near an embankment, on top of which is a railroad track leading north | |
| and south." | |
| s396: "Travelling north or south on the railroad track is, alas, not a part of | |
| this adventure." | |
| s397: "Travelling north or south on the railroad track is, alas, not a part of | |
| this adventure." | |
| s398: "Your path is blocked by bullrushes and snow and the size limitations of | |
| text adventure games." | |
| s399: "An old bottle of anti-freeze, possibly useable, with instructions: | |
| "Using the TwipCo Magic AntiFreeze: just type PUT ANTIFREEZE ON OBJECT."" | |
| s400: "The anti-freeze squirts out of the can, serving no apparent purpose." | |
| s401: "Some of the ice and rust melts away from the screws, making them | |
| apparently more accessible and less stubborn." | |
| s402: "The bottom two inches of the bottle are frozen into the ice." | |
| s403: "Leave the bottle of anti-freeze alone. It's been through enough." | |
| s404: "A good couple of well-placed thwacks with the stick dislodges the bottle | |
| from the ice." | |
| s405: "An old hockey stick with the blade broken off, now nothing more than a | |
| stick." | |
| s406: "A satellite dish is attached to the south wall of your house. The | |
| equipment is generic and is currently focussed, according to a built-in | |
| compass, at about " | |
| s407: " degrees "clockwise" from due east. The screws which keep the dish | |
| firmly oriented on a single point in the sky are " | |
| s408: "loose enough to allow the dish itself to be pulled west or pushed | |
| east.^" | |
| s409: "firmly tightened and frozen in place.^" | |
| s410: "The dish cannot be moved while the frozen screws hold its orientation | |
| solid.^" | |
| s411: "Use PULL DISH to turn it further west, and PUSH DISH to turn it further | |
| east." | |
| s412: "The dish's orientation is unalterable at present due to frozen, fastened | |
| screws." | |
| s413: "You can't pull it any further west." | |
| s414: "^You pull the dish a little further west." | |
| s415: " degrees clockwise from due east.^" | |
| s416: "The dish's orientation is unalterable at present due to frozen, fastened | |
| screws." | |
| s417: "You can't push it any further east." | |
| s418: "^You push the dish a little further east." | |
| s419: " degrees clockwise from due east.^" | |
| s420: "Some screws where the dish pivots, which, when tightened (and especially | |
| when frozen), keep the satellite dish's orientation firmly fixed on one point | |
| in the sky." | |
| s421: "The screws are ice-covered, frozen in place and even a little rusty." | |
| s422: "The screws are loosened just enough to allow you to push and pull the | |
| dish to change its orientation." | |
| s423: "A narrow patch of property hugging the east wall of your house. An | |
| old-fashioned TV-antenna climbs the wall here, and your backyard is west of | |
| here.^^" | |
| s424: "They probably didn't prepare adequately for the power outage, food | |
| shortages etc., but are probably motivated more by the romanticism of outlaw | |
| behavior than actual hunger or nicotine deprivation at this early date." | |
| s425: "^You hear the hooting and hollering and whooping of idiots in the | |
| distance. Are they coming this way?^" | |
| s426: "^The hooting and hollering noises are getting closer, the familiar | |
| nightmare sound of grade school bullies and college dormitory | |
| alcoholics-in-the-making. This might be a good time to save your game.^" | |
| s427: "^The looters are not 30 feet away now; two bear down on you, while the | |
| other one smashes a beer bottle on your front step, enters the house and begins | |
| looking around.^" | |
| s428: "The gang of noisy hooligans are obviously just outside your house now." | |
| s429: "The trio of scum are a little disturbed by the realistic halloween mask, | |
| and as you instinctually ward them off with the hockey stick, they run into | |
| your house and lock the door behind them. Through the window in your back door | |
| you see them enter the living room. You survived that round." | |
| s430: "The villains seem at first disturbed by your terrorizing visage, but | |
| soon realize you are defenseless and wearing a halloween mask. Being lawless | |
| and without conscience, they overcome and kill you for the sheer hell of it." | |
| s431: "You instinctively wave the stick menacingly at the rampaging idiots, but | |
| they can plainly see the look of terror on your face, so decide to overwhelm | |
| and kill you, then live in your house." | |
| s432: "^The looters grab you, and in a rousing demonstration of the Diffusion | |
| Of Responsibility phenomenon (otherwise known as Mob Mentality), kill you, | |
| quite satisfied with their discovery of so much free heat, food and water.^" | |
| s433: "^As they burst into your home, the looters seem taken aback by your | |
| horrid visage; fending them off with the hockey stick, you manage to escape the | |
| house. Meanwhile, the trio occupies your house and locks the door. At least you | |
| survived.^" | |
| s434: "You wave the stick at the trio in instinctual self-defense, but it fends | |
| them off for only a couple of seconds." | |
| s435: "You look pretty scary with that mask on, but the outlaws are spooked | |
| only for a few seconds, then begin to approach you ..." | |
| s436: "The gang of ruffians bust into your home. "Hey look, a fireplace! Logs!" | |
| shouts one from upstairs. Another one, downstairs, gleefully shouts out his | |
| discovery of your food supply. The remaining outlaw, unfortunately, approaches | |
| you in a prejudicial manner. He is 6 and a half feet tall and weighs 280 | |
| pounds. He kills you easily." | |
| s437: "^Obviously, going back into your house would be suicidal. How can you | |
| force the criminals out of your home?^" | |
| s438: "^You meet an untimely demise at the hands of the villains. I'll spare | |
| you the details, except to say that your faith in human goodness is sacrificed | |
| along with your life. The largest villain, being 6 and a half feet tall and | |
| weighing in at 280 pounds, kills you easily for the sheer hell of it.^" | |
| s439: "At the slightest hint of attention, the oversized puppy leaps all over | |
| you and smears you with drool and slobber. A tag dangling from a loose collar | |
| bears the word "Daemon."" | |
| s440: "^You see a dog frolicking in the snow outside." | |
| s441: "^The dog follows you, sniffing the ground and snow." | |
| s442: "^The dog bounds happily after you." | |
| s443: "^Puppy dog is right behind you ..." | |
| s444: "^The dog seems eager for adventure." | |
| s445: "^The dog seems rather fond of you." | |
| s446: "Puppy dog nuzzles you affectionately." | |
| s447: "The dog yelps and runs away, his tail between his legs." | |
| s448: "You can scamper down the antenna to the lawn, or possibly go west to the | |
| other side of the roof." | |
| s449: "Your feet shoot out from underneath you and you fly off the roof, | |
| landing on your head." | |
| s450: "The chimney stack's opening is within your reach. " | |
| s451: "Smoke puffs out of it and dissipates in the crisp, clear, calm northern | |
| winter sky." | |
| s452: "chimney stack covered with a blanket" | |
| s453: "chimney with smoke billowing out of it" | |
| s454: "It won't go down the chimney (its woolen surface clings to the rough | |
| inner brickwork). Note: to close off the chimney, type COVER CHIMNEY WITH | |
| OBJECT. Putting anything IN or ON the chimney is equivalent to throwing it in | |
| the stack." | |
| s455: "It plunges down the chimney stack ...^" | |
| s456: "To close off the stack, try COVER CHIMNEY WITH OBJECT. (If you put/drop | |
| anything ON or IN the chimney, it will plunge down.)" | |
| s457: "The blanket covers the chimney with plenty of excess material draping | |
| down over the sides.^" | |
| s458: "^Within a couple of minutes, you hear a cough inside the house, then | |
| another. Then some shouting. Ultimately, the looters, choking on the smoke | |
| trapped in your house, come crashing idiotically through your back door. They | |
| eat some snow, cough some more, then trudge back east down the lane to | |
| terrorize someone less resourceful than you. You wait a few minutes as you | |
| watch them go away. Your heart's still racing, but you've proven your ability | |
| to defend yourself and your home.^" | |
| s459: "^The blanket immediately puffs up a little from the heat and smoke of | |
| the fire, but very little gets through." | |
| s460: "A stinging, choking, nasty, billowing, suffocating, life-threatening | |
| cloud of trapped smoke." | |
| s461: "The cloud of smoke has finally dissipated from your living room. The | |
| fire has extinguished itself, having been choked of oxygen." | |
| s462: "This is the west side of your roof. You're so focussed on not sliding | |
| off that you really can't look around too much." | |
| s463: "^^There is a patch of ice all along the ridge of the roof, dusted with | |
| soot." | |
| s464: "^^There is an ice slick stretching west along the roof." | |
| s465: "The soot spreads over the ice and sticks to it, making it less | |
| treacherous." | |
| s466: "A good tennis ball, maybe a little cold. Probably been in the mouths of | |
| half a dozen dogs at least." | |
| s467: "You gingerly take the snow-encrusted ball out of the eavestrough | |
| (gutter), being careful not to plunge to your death.^" | |
| s468: "^The ball goes sailing into the hole under your back steps. Any dogs | |
| which may or not be present do not seem very interested in pursuing it." | |
| s469: "Puppy bounds into the narrow hole and roots around for the ball, | |
| growling. He returns, covered in grime, ball in mouth, and his leg snagged | |
| around an old plastic bag of some kind." | |
| s470: "The dog is already tired of that messy game." | |
| s471: "It simply bounces here and there and comes to a stop." | |
| s472: "The puppy dog watches the ball sail over his head, disinterested." | |
| s473: "(The dog is happy to play ball with you; wonder if that's helpful?)" | |
| s474: "Puppy dog bounds after the ball, tongue lolling out, and brings it back | |
| to you." | |
| s475: "There is a well here, old-fashioned and probably 30 or 40 feet deep.^" | |
| s476: "The lid has been shoved aside a bit, and in the depths of the well you | |
| can see plenty of water, with slushy ice bobbing around on its surface.^ " | |
| s477: "^The lid is closed, sealed onto the well with ample amounts of solid | |
| ice.^" | |
| s478: "^The lid is closed, yet remains free of icy encrustations.^" | |
| s479: "^The lid is frozen in place by a lot of ice.^" | |
| s480: "^At least you're getting a ... (gasp) ... good workout ... (heave) ...^" | |
| s481: "^This thing is (wheeze) ... heavy ... (groan) ...^" | |
| s482: "^Well, you did a nice job getting rid of that!^" | |
| s483: "Right now the well is closed; you could at most put something on the | |
| lid." | |
| s484: "This is the 4 inch thick concrete well cover. Extremely heavy and | |
| large." | |
| s485: "The lid is virtually welded in place by the ice that seals it to the | |
| well itself. Impossible to budge." | |
| s486: "Heave! Pant! ... Gasp! Strain! The well's lid is now pushed aside enough | |
| to reveal the dark abyss of the well." | |
| s487: "You haven't even got a lit match on your person." | |
| s488: "No need to go through that again." | |
| s489: "^The gas on the lid burns, and the ice which once cemented the lid to | |
| the well now drips away ...^" | |
| s490: "The lid slides back to cover the well, amidst much gasping and heaving." | |
| s491: "The ice on top of the well's cover becomes drenched in gasoline.^" | |
| s492: "You PUSH or PULL the lid. You OPEN or CLOSE the well itself." | |
| s493: "It's some water, at least 10 feet below you." | |
| s494: "You've already got a bucket full of ice water." | |
| s495: "You can't reach down far enough with your hands to scoop water into the | |
| bucket!" | |
| s496: "You lower the bucket down with the rope, then bring it back up full of | |
| ice water." | |
| s497: "^^You have proven your ability to have limitless water, a crucial | |
| survival skill.^" | |
| s498: "Just some water." | |
| s499: "Yummy, freezing, delicious, tooth-agonizing ice water. Let's have some | |
| more!" | |
| s500: "The water just sort of spreads all over the place and goes away." | |
| s501: "The ice covering the well's lid is soaked in gasoline. You're the one | |
| responsible. Don't bother acting surprised. I've had to deal with your kind | |
| before." | |
| s502: "You haven't even got a lit match on you." | |
| s503: "No need to go through that again." | |
| s504: "The gas on the lid burns, and the ice which once cemented the lid to the | |
| well now drips away ..." | |
| s505: "This is the snow lying around on account of the time of year and | |
| climate." | |
| s506: "No use moving the snow around in this area." | |
| s507: "Wouldn't you need the proper tool to shovel snow?" | |
| s508: "You've already taken care of that." | |
| s509: "You shovel a path through the snow in a few directions, especially | |
| south." | |
| s510: "It's a snowball." | |
| s511: "This snowball is getting sort of irritatingly cold to carry around." | |
| s512: "the" | |
| s513: "This white disk has a label on it: PC-TV Entertainment Integrator. It | |
| came with the whiz-bang new video card you just bought and installed a couple | |
| of days ago." | |
| s514: "You start the setup program, but it aborts with the message: "Not enough | |
| hard drive space available."" | |
| s515: "The PC-TV Integrator software is now installed in your computer! It runs | |
| some diagnostics, installs some drivers, and seems to be OK." | |
| s516: "Either you've already done that or the disk isn't in the drive." | |
| s517: "The PC TV Integrator program flashes onto your screen ... " | |
| s518: "You are sitting at your desk in the very cramped cubicle where you work. | |
| To the east there is some standing room." | |
| s519: "This is the desk you are sitting right in front of. For the purposes of | |
| this game, it is drawerless, unmoveable and harbors no secrets." | |
| s520: "a" | |
| s521: "This printout contains selected important information from your email | |
| ... ^^ 1) Dalen Manticott's phone number - 555-8976. He says he has some | |
| important info about the report you're working on. ^ 2) Some notes about the | |
| basic necessities of life in case of prolonged social breakdown. ^ 3) A note | |
| from a co-worker travelling abroad reminding you to include Year 2000 | |
| compliancy test results for all the office computers in the report. ^ 4) | |
| Advice about what recommendations for immediate action you should include in | |
| the report, from a friend of yours in Tuscaloosa." | |
| s522: "You have a revealing conversation with Dalen Manticott who tells you | |
| he's dealt with your boss before and if you add cute little panda graphics to | |
| the cover page, it will please him. So you promptly add some clipart of pandas | |
| to the report. There, that's taken care of." | |
| s523: "You already phoned him. Nothing else to discuss." | |
| s524: "the" | |
| s525: "This solution report offers excruciating detail on what needs to be done | |
| in Biritzcom in terms of replacing and upgrading hardware and software, what | |
| information needs to be demanded from suppliers, and so on." | |
| s526: "The boss accepts the report and thanks you." | |
| s527: "It's a 386 20 MHz laptop which you have not convinced your boss is | |
| obsolete. You can INSERT disks in the drive, INSTALL and EXECUTE software, | |
| FINISH up the REPORT you're doing for the boss, read your EMAIL, and turn it on | |
| and off.^^" | |
| s528: "Your computer has been upgraded and is now year 2000 compliant. | |
| Otherwise pretty much the same laptop. The tech guy ruined your email software, | |
| which nobody has time to fix right now. You now have World Wide Web access and | |
| a new cellular fax modem card the techie installed.^^" | |
| s529: "It's your workplace laptop computer. It contains a cellular fax modem | |
| and World Wide Web access. Within itself it is fully year 2000 compliant. How | |
| well it will communicate with networks, other computers and the Internet in | |
| 2000 is open to speculation.^^" | |
| s530: "^A mental image of your glowing computer beckons to you in the darkness. | |
| Maybe during an emergency like this ..." | |
| s531: "You'll have to get closer to him." | |
| s532: "You stand on your tip toes and pass it up into the gap, being careful | |
| not to plunge into the abyss-like elevator shaft which stretches out below the | |
| cab. The janitor eagerly accepts the computer and uses its light to illuminate | |
| and fiddle with something in a panel inside the elevator. It glides down even | |
| with ground level! He jumps out, opens the control box, turns the emergency | |
| lights on for this floor, gives you your computer back, winks, and vamooses for | |
| his break, which is long overdue." | |
| s533: "Trying to take your computer from your desk would result in swift and | |
| severe punishment from Corporate America. In other words, the security guard | |
| would see you." | |
| s534: "In a situation like this, I guess it's OK for you to walk around with | |
| your computer. As long as the security guard isn't looking." | |
| s535: "That doesn't fit in the computer's disk drive, so you drop it on the | |
| desk (silly goose, you)!" | |
| s536: "All you can do in that vein is INSERT DISK IN DRIVE." | |
| s537: "The computer is off and so is the glowing monitor." | |
| s538: "The computer comes to life and so does the glowing monitor." | |
| s539: "The www.cracker.com web site." | |
| s540: "You find the secret registration code for the survival report generator! | |
| You make an inviolable mental note to mail a check to Ground Zero in order to | |
| remain on firm moral ground. Never ever would you use shareware or commercial | |
| software without paying for it (right?) The next time you try executing that | |
| survival report generator, you'll be ready." | |
| s541: "The U.S. government's Year 2000 information web site." | |
| s542: "This web site gives you the following snippets of information: ^^The | |
| I.R.S. is in trouble. ^Medicare is doomed. ^Social Security is in a shambles. | |
| ^Farmers are panicky. ^The public is many things - terrified, ambivalent, | |
| suspicious, paranoid, etc. ^Public Utility managers are in a tizzy. ^^Of | |
| course, these aren't the exact words used ..." | |
| s543: "a" | |
| s544: "It's the 3.5 inch floppy disk drive you put disks into." | |
| s545: "That doesn't fit in the computer's disk drive, so you drop it (silly | |
| goose, you)!" | |
| s546: "the" | |
| s547: "This is the report you need to FINISH for your boss. You need to know | |
| which graphics which will please your boss, get Y2K compliancy test results for | |
| this office's computers, and recommendations for immediate action. Once you | |
| have all of that, you'll be ready to PRINT the report, give it to your boss and | |
| go home." | |
| s548: "The report on the computer screen is now finished and ready to print." | |
| s549: "You hear the whining noise of a laser printer back in the lobby ..." | |
| s550: "You already printed it out. What's the problem ... won't the | |
| receptionist let you have it?" | |
| s551: "You need to get some information about what graphics to include in the | |
| report first ..." | |
| s552: "Hmmm ... you don't have the results of the Y2K testing on the office's | |
| computers, so you can't finish it." | |
| s553: "You'll need some info in your hands about what recommendations to put in | |
| the report." | |
| s554: "You quickly finish the report, including the nice panda graphics, the | |
| Y2K testing results, and the recommendations from your friend in Tuscaloosa. | |
| Time to PRINT it and get out of here." | |
| s555: "Sorry, the computer isn't turned on." | |
| s556: "You start to read through your email but there are hundreds of them. | |
| Almost all of it is spam (junk email). If only there were something to be done | |
| about this. After all, today's email might contain something important | |
| (anything's possible.)" | |
| s557: "Now that the spam filter has been installed you find that there are only | |
| about a half dozen important messages to be sifted through. An ancient dot | |
| matrix printer buried somewhere under the mess on your desk (and which you will | |
| not need to refer to in the course of this adventure) spits out a PRINTOUT | |
| summarizing the good stuff. You grab it." | |
| s558: "You cannot remove the email program or any individual email message from | |
| your computer." | |
| s559: "You can PHONE somebody if you have their number. If it rings, answer | |
| it." | |
| s560: "Try a command like this: DIAL 123-4567 or PHONE (PERSON)." | |
| s561: "This is the letter of resignation you typed up last night." | |
| s562: "This is a strewn pile of memos, notes, scribbles and faxes related to | |
| the various projects you are currently working on for your employer, Biritzcom, | |
| and its clients. Most are related to Year-2000 pre-awareness assessment | |
| planning analysis. Since it's already early 1998, most of them can't possibly | |
| come in on time or on budget. Anyway, you'll be thinking about your own | |
| personal survival when the time comes." | |
| s563: "You'll not be needing the cluttered mess during the course of this | |
| little adventure. You might search it, though (if you haven't already)." | |
| s564: "You find a green disk (and instinctively grab it)!" | |
| s565: "This is a 2 inch thick book about survival, stock markets, the loss of | |
| the gold standard, greed, corruption, human short-sightedness, denial, | |
| politics, television, the 3-section theory of the human brain, cycles of | |
| civilization, the perils of the fractional reserve banking system and so on. | |
| You can CONSULT this book ABOUT specific topics or if you get bored, CONSULT | |
| BOOK ABOUT RANDOM." | |
| s566: "Here it is in a nutshell ... ^ 1) In the old days computer programmers | |
| used two digits instead of four to represent the year. ^ 2) That was OK for | |
| two reasons: a) almost all humans are incapable of caring about any long-term | |
| implications of their actions, and b) they needed to save the 2 extra digits | |
| that would have been needed to store the entire year, because computer memory | |
| was awfully expensive back then. ^ 3) Since then we have spent about 40 years | |
| solidifying the problem. We have engrained the 2-digit year field into billions | |
| of lines of code in hundreds of different languages and dozens of different | |
| types of machines around the world, billions of microchips embedded in | |
| everything from offshore oil rigs to cars, and so on. All of these things have | |
| been developed? and added onto the system, involving millions of man-years of | |
| effort. ^ 4) People would rather hear about Michael Jackson and Princess | |
| Diana and alien abductions. Plus the government does not want a panic. ^ 5) | |
| Even as of early 1998 when major newspapers and magazines are publicly | |
| declaring that we are in serious trouble, not many people care or believe it. ^ | |
| 6) In Douglas Adams' terms, there is an SEP field around the Y2K problem - a | |
| 'Somebody Else's Problem' field. Most people are not technicians or programmers | |
| employed in the information technology field, so the entire issue is not their | |
| problem. ^ 7) Far in advance of January 1 1999, several million important | |
| things that keep our society more or less functioning will have to be running | |
| smoothly and deal properly with dates beyond Dec. 31 1999. The way these | |
| systems are connected together must be intact also. That's the hardest part, | |
| and it ironically cannot be tested until midnight January 1 2000. ^ 8) If all | |
| major corporations fix their software, it's still in vain if the power grid | |
| goes down. If there is a bank run or the stock market crashes due to | |
| preliminary panic, we'll be in no shape to even give it our best shot. Think of | |
| what even a brief U.P.S. strike does to business in America. Think of that | |
| multiplied a thousandfold or more across all public and private industries and | |
| utilities ... globally. Not to mention that a lot of software will actually | |
| start screwing up January 1st 1999, a year which to many programs means 'End Of | |
| File' or 'Delete File Now'. ^ 9) So we're more or less in trouble. The | |
| problem is too big. There are not enough programmers and equipment | |
| manufacturers to solve it in the time remaining. And the software industry has? | |
| never been known for getting projects done on time. ^^(This is just the book | |
| author's opinion of course.)" | |
| s567: "^He helped a lot of people learn the truth by maintaining a nonprofit | |
| web site, updated with new information almost daily at www.garynorth.com." | |
| s568: "^The first brains on this planet were lizard brains. They are incapable | |
| of emotion as we think of it. Lizards spend a great deal of time sitting still | |
| thinking about nothing, and only eat, kill, or defend their territory as | |
| needed. The mammalian (limbic) brain is sort of wrapped around the lizard brain | |
| in mammals, including humans. It's capable of true emotion, maternal instinct, | |
| and greater memory. The neocortex, fully present only in humans, wraps around | |
| the previous two chunks of grey matter. It is capable of putting men on the | |
| moon, writing symphonies and so forth. The end result is humanity - dominated | |
| at its center by eating, sex, territoriality, and raw survival. When those are | |
| satisfied we can be ever so cuddly and sweet. We can also use the neocortex to | |
| fulfill our lizard- like attack urges, hence nuclear weapons, or even use it | |
| for 'cuddly' reasons, hence the scientifically precise cuteness of stuffed | |
| animals and Disney characters. In short, humans are a bundle of sometimes | |
| conflicting lizard, mammal and supercomputer urges." | |
| s569: "^He acted like a true politician throughout. His libido, combined with | |
| the public's desire for scandal, did wonders to keep his mind, and the public | |
| mind, off of the Y2K problem, making the problem even worse. No leadership = no | |
| solution." | |
| s570: "^If a significant portion of the world loses its electricity, we're in | |
| trouble. The reason that almost a million Quebecers 'only' had to wait a couple | |
| of weeks to have their power restored during Ice Storm '98, is twofold: a) | |
| surrounding regions were ABLE to help out, physically, emotionally and | |
| financially, because they themselves were not hit by the storm, and b) the | |
| repair work was purely physical and did not involve replacing anything on the | |
| level of software or embedded chips." | |
| s571: "^Today's banks are under constant threat of collapsing from a 'run on | |
| the banks.' They operate a confidence game based on the fervent hope that a mad | |
| rush of depositors will NOT come into the bank all at once and demand large | |
| amounts of cash. They hope this will not happen because their actual cash | |
| reserves are puny compared to the sum total of their depositors' accounts. And | |
| that is so because banks are allowed to lend out from 6 to 30 times as much | |
| money as they have. It's a house of cards which will, sooner or later, | |
| collapse, as it has in the past." | |
| s572: "CONSULT the book ABOUT a ONE word topic." | |
| s573: "You remove the book from underneath the table leg and once again it | |
| rattles and bangs as the secretary types. She is once again certain you are a | |
| mean person. But you have taught her a valuable lesson, proven as she takes a | |
| dictionary she never uses (and which you won't need to refer to in this | |
| adventure) and puts it under the short leg to keep the table steady. Hmmph." | |
| s574: "Your filing cabinet is open, and full of hopelessly disorganized | |
| debris." | |
| s575: "Your filing cabinet is closed." | |
| s576: "One thing you've never understood is how anybody uses a filing cabinet | |
| to increase their efficiency. Whenever YOU put anything in YOUR filing cabinet, | |
| neither you nor anybody else are likely to see it again. Which is why you | |
| mostly leave all your important stuff lying in a mess on top of your desk." | |
| s577: "That's company property. Plus it's bulky and awkward." | |
| s578: "A bunch of disorganized stuff serving no purpose. I'm telling you, once | |
| something gets in here, there's no seeing it again." | |
| s579: "You are standing up in your cramped cubicle. To the east is a hallway. | |
| Peering over your flimsy cubicle walls to the north you see - ugh - the area | |
| where the marketing people 'work.'" | |
| s580: "You are standing in your cubicle. The former marketing area to the north | |
| is now crammed full of programmers feverishly fixing software. A hallway lies | |
| east." | |
| s581: "No, you don't want to go that way." | |
| s582: "Recently, the marketing department has gone way overboard promising | |
| clients things that engineers like you cannot possibly deliver. You are in no | |
| mood to go near any marketers right this minute." | |
| s583: "You are in what used to be the marketing department, but is now a coding | |
| factory, full of programmers." | |
| s584: "You are standing in the marketers' area. They are not boxed up in | |
| cubicles, as you are. This is where they usually lounge in their cubicles, talk | |
| to one another, work on fancy graphics and slogans which do not compel | |
| potential customers to immediate action, congratulate one another, and drink | |
| exotic coffee. You can go south back to your cubicle or southeast to the | |
| hallway." | |
| s585: "a" | |
| s586: "This is a poster produced by the federal government of the United | |
| States. On it are assurances of how far along various sectors of government are | |
| in being ready for the year 2000 ... ^^ Federal Aviation Administration ... | |
| 11% ^ Internal Revenue Service ... 25% ^ Social Security Administration | |
| ... 37% ^ Great Underground Empire Exploration Department ... 67% ^ | |
| Agriculture ... 42% ^^Glancing at these numbers, you know they don't mean much | |
| in themselves, but government needs to issue numbers and civilians like reading | |
| them. ^^Below the numbers are printed the web site for the federal government's | |
| year 2000 research, www.govtytwok.gov, and a brief statement to the effect that | |
| the actual first year of the new millennium is 2001, (nobody really cares, | |
| because 2000 is a nice big pretty round number and comes a year earlier.)" | |
| s587: "an" | |
| s588: "He taunts you about your seemingly apocalyptic views." | |
| s589: "He seems put off by you now, maybe even a little intimidated." | |
| s590: "^You hear the annoying guy stumbling around in the dark, fruitlessly | |
| looking for somebody to annoy." | |
| s591: "The annoying guy looks over you and your computer, and makes a grab for | |
| the red disk. Just in time you snatch it back from him. What a pest!" | |
| s592: "^Your annoying coworker makes lame Twilight Zone music noises in your | |
| face and laughs. (What an idiot.)" | |
| s593: "^Your annoying coworker makes a grab for your red disk! Oh no, he's | |
| grabbed it from you! He runs off to (God no!) the marketing department and soon | |
| the programmers are in hysterics at your expense. The boss comes running out of | |
| his office to see what is going on, and sees the red disk being waved around. | |
| He snatches it from your annoying coworker and demands to know who has been | |
| using this software on company computers (and on company time). ^^All fingers | |
| point at you ... ^^You are quickly fired, and in your anger and distraction, | |
| get in a fatal car accident on the way home." | |
| s594: "a" | |
| s595: "This is a crowd of marketers gathered round the guy who went to the Y2K | |
| Solutions conference today, talking about how they could exploit the Millennium | |
| Bug, though they obviously don't understand it." | |
| s596: "The sweating programmers, stomachs knotted with tension, brows furrowed, | |
| bloodstreams laced with coffee and painkillers, would like to be left alone." | |
| s597: "a" | |
| s598: "This is a crowd of programmers hunched over their workstations, making | |
| millions of lines of software year 2000 compliant for Biritzcom and its | |
| clients." | |
| s599: "You are standing in the hallway. To the west is your cramped cubicle. | |
| South of here is the lobby where the (dreaded) receptionist sits, and to the | |
| north lies your boss's office." | |
| s600: "^In his office, you can overhear your boss fretting over the future of | |
| the company." | |
| s601: "^In his office, you can overhear your boss trying to busy himself on the | |
| phone, hoping that it will result in tangible progress." | |
| s602: "^In his office, you can overhear your boss pathetically reminiscing over | |
| the good old days before newfangled computers." | |
| s603: "You are standing in the hallway which continues west. South of here is | |
| the service elevator lobby, a place for janitors and caretakers, not Biritzcom | |
| employees. The stairwell which exits the building is to the north. A mailroom | |
| lies to the east." | |
| s604: "It's a double door to the elevator lobby. You could slip a pizza through | |
| the cracks between, over and under the doors. It has a keyhole." | |
| s605: "the" | |
| s606: "The double doors leading into the service elevator lobby are open." | |
| s607: "^You hear a feeble cry for help apparently coming from inside the | |
| elevator lobby. By the accent, it sounds like the janitor." | |
| s608: "^You hear a low whimpering noise from somewhere in the hallway area." | |
| s609: "^Your knocking makes the janitor's whimpering sound a little more | |
| hopeful." | |
| s610: "the" | |
| s611: "This is the service elevator lobby. The elevator doors to? the south are | |
| jammed open apparently due to the power outage, and the elevator car itself is | |
| 5 feet above the floor level, so there is only about 1 foot of space visible | |
| into the elevator. A hapless janitor is currently on his hands and knees, | |
| despondent in the darkness of the elevator. He looks at you imploringly." | |
| s612: "This is the service elevator lobby. There is some kind of control box on | |
| the wall. The elevator doors are shut." | |
| s613: "a" | |
| s614: "The control box is open, and unfortunately your software engineering | |
| training has left you ignorant of the nature of the fuses and breakers and | |
| switches it contains." | |
| s615: "There is some kind of control box on the wall, which is closed." | |
| s616: "^The janitor winces at your ignorance as he watches you fidget with the | |
| control box. He makes a humble gesture towards himself.^" | |
| s617: "the" | |
| s618: "Through the double door you can just see the janitor stuck way up in a | |
| distressed elevator, his keys jangling as he trembles in the dark." | |
| s619: "He's a janitor. Mop, bucket, plunger, blue pants and shirt, and a wad of | |
| keys the size of a melon." | |
| s620: "He's not in the immediate vicinity." | |
| s621: "a" | |
| s622: "A small silver key." | |
| s623: "It's the door to your boss's office." | |
| s624: "the" | |
| s625: "The door to your boss's office, which opens inward, is closed. A few | |
| photons of natural light seep through the crack under the door and mingle with | |
| the dismal lighting in the hallway." | |
| s626: "The door leading into your boss's office (which opens inwards) is open." | |
| s627: "The extension cord is all tied up at the moment." | |
| s628: "You firmly tie the extension cord around the knob of your boss's door | |
| (which opens inwards), then pull it tight and tie it snugly around the huge, | |
| heavy ceramic plant dish just inside the lobby doorway." | |
| s629: "Tieing the boss's door's knob to something ... hmmmm ..." | |
| s630: "Your boss gets up to walk over to the door. There is a rustle of paper, | |
| followed by the sound of him sauntering back over to his desk." | |
| s631: "Your frustrated boss screams ... "If it's important, slide it under the | |
| door. Otherwise, just go away!"" | |
| s632: "Your boss can be heard getting up and coming over to the door. He almost | |
| answers the knock, but thinks better of it, deciding he would rather fret. He | |
| walks away to his desk once more." | |
| s633: "The invitation slides under the door." | |
| s634: "A slight breeze blows it back out, as if to say that there is no reason | |
| to slide that under the door." | |
| s635: "This is the company mailroom. The only exit is west, into the hallway." | |
| s636: "The mailroom comes equipped with all sorts of stuff (a photocopier, | |
| pens, pencils, staplers, rulers, a postal weighing machine, etc.) that the | |
| mailboy doesn't want you to touch. And just because he isn't here right now, | |
| don't think he won't know." | |
| s637: "He's the number one techie guy at Biritzcom. A real savant. He's busy | |
| cleaning and repairing one of the photocopiers right now, but is equally at | |
| home with computers. ^^An ID card pinned to his smudged shirt says 'Ed.' You've | |
| spoken casually with him in recent months about your Y2K repair efforts." | |
| s638: "Ed now seems more interested in the Y2K solution efforts for Biritzcom | |
| than fixing the photocopier." | |
| s639: "Ed approaches you, expressing his eagerness to help you install that Y2K | |
| Solution In-A-Box thing." | |
| s640: "^Oooooh! That's done it! Ed is obviously thrilled and excited about the | |
| possibility of using this cutting-edge software! Plus he knows the amount of | |
| devastation corporate America is about to face and he would like to see | |
| Biritzcom survive through it.^" | |
| s641: "You're being redundant to the point of silliness." | |
| s642: "He deftly grabs it and throws it out the window where it plunges over | |
| the cliff conveniently situated to the south of the Biritzcom building." | |
| s643: "You are in the lobby and reception area of Biritzcom. The hallway is | |
| north of here." | |
| s644: "a" | |
| s645: "This is one of those 6 foot tall thick plasticy/waxy-looking office | |
| lobby plants, in a heavy 2 foot diameter, 1 foot tall ceramic pot. It sits just | |
| inside the lobby doorway south of your boss's office." | |
| s646: "The extension cord is all tied up at the moment." | |
| s647: "You firmly tie the extension cord around the knob of your boss's door | |
| (which opens inwards), then pull it tight and tie it snugly around the huge, | |
| heavy ceramic plant dish just inside the lobby doorway." | |
| s648: "Tieing the plant to something ... hmmmm ..." | |
| s649: "a" | |
| s650: "It's a thirty foot long extension cord with no distinguishing | |
| characteristics." | |
| s651: "The 30 foot extension cord is tied around the knob of your boss's door | |
| and the giant plant bowl." | |
| s652: "^The extension cord spans the hallway, tieing the boss's office door to | |
| the giant plant." | |
| s653: "Use the format TIE OBJECT1 TO OBJECT2. That's the only use you'll get | |
| out of the extension cord's inate ability to be tied around things." | |
| s654: "You untie the extension cord from the door and the plant bowl, roll it | |
| up, and sling it over your shoulder." | |
| s655: "The magazine contains articles about software cracking, website video, | |
| married couples who discovered each other on the Internet, the fight against | |
| government control of web site content, and the new 256KBps modems." | |
| s656: "Use a single word that best describes the article you want to read." | |
| s657: "You read an article about putting video on a web site. Very informative. | |
| You'll have to get around to it some day when you're not busy." | |
| s658: "You learn that the www.cracker.com website contains illicit registration | |
| codes for all manner of shareware and commercial software.^" | |
| s659: "You read a very informative article about the new modems, which really | |
| don't offer enough of an increase in bandwidth to write home to mother about. | |
| Speaking of which, when was the last time you called her? Hmmm?" | |
| s660: "Glancing at some of the photos of the happily married Netizens, you wish | |
| you hadn't." | |
| s661: "That doesn't appear to be in the magazine. Maybe you should examine it | |
| again." | |
| s662: "CONSULT the magazine ABOUT a ONE word topic." | |
| s663: "the" | |
| s664: "She's the receptionist for Biritzcom. Her overall lack of friendly | |
| demeanour is not enhanced by her salary level. The two of you had a fight | |
| concerning some missing yogurt years ago, and aren't the best of friends. Not | |
| only that, but she's using an old-fashioned typewriter (which is Year 2000 | |
| compliant, at least) on a rickety table which has one leg 2 inches shorter than | |
| the rest." | |
| s665: "Right now she's more friendly to you than usual since you put that book | |
| under the short table leg." | |
| s666: "The receptionist squirms out of your grasp and threatens you with a | |
| harassment suit." | |
| s667: "The receptionist looks it over and throws it on the floor, tosses you a | |
| vicious fake smile and keeps typing and answering phones and stapling things | |
| and so on." | |
| s668: "She deftly grabs it and throws it out the window where it plunges over | |
| the cliff conveniently situated to the south of the Biritzcom building." | |
| s669: "This rickety old typing table has one leg 2 inches shorter than the | |
| others, which allows it to bang around annoyingly as the secretary types." | |
| s670: "This rickety table has one short leg propped up by what appears to be | |
| some kind of book." | |
| s671: "The book fits under the short leg and stops the table from banging | |
| around so much. The receptionist seems more receptive to you now! She even | |
| gives you a weak half-smile." | |
| s672: "That's not a helpful thing to do." | |
| s673: "a" | |
| s674: "The laser jet has been moved to your desk, now that the receptionist has | |
| been fired. A message blinks on the LCD display: 'PAPER JAM.'" | |
| s675: "This is a smooth functioning laser printer." | |
| s676: "This is a laser printer which you shouldn't try to touch or steal or | |
| anything." | |
| s677: "For Pete's sake, this is an expensive and delicate piece of machinery. | |
| Cut that out!" | |
| s678: "It's just a smeary blank piece of crumpled paper with nothing useful on | |
| it." | |
| s679: "You extricate the mangled paper from the printer and throw it away ..." | |
| s680: "a" | |
| s681: "This is the typewriter the receptionist is banging away on." | |
| s682: "You are in the stairwell. You can go down to the parking lot or | |
| southwest into the hallway." | |
| s683: "According to your watch, it is now " | |
| s684: "Your wrist watch serves only to inform you of the time." | |
| s685: "You are in your boss's office. He sits behind his desk, looking at you | |
| expectantly. The room is adorned with certificates and awards from dubious | |
| associations to which Biritzcom has made donations. There are some plants, an | |
| expensive oak cabinet full of unread books, a leather sofa worth more than your | |
| annual salary - the usual stuff." | |
| s686: "This is "game scenery", in other words you don't need to examine or use | |
| it to solve this game. Good try, though. It IS a good idea to search and | |
| examine everything, especially when you get stuck." | |
| s687: "the" | |
| s688: "Your boss is waiting for you to finish your report and give it to him. | |
| Until then you're stuck here." | |
| s689: "Now that he knows what problems Biritzcom and its clients have, your | |
| boss is waiting for you to give him a solution report and answer some of his | |
| questions ... then you can go home." | |
| s690: "^Got that solution report for me yet? I need to know exactly what we | |
| need to do about our hardware and software, immediately!" | |
| s691: "^How far along is the FAA's compliancy efforts - just roughly, as a | |
| percentage?" | |
| s692: "^What year does the new millennium officially begin?" | |
| s693: "^What sort of shape is the Social Security Administration in at this | |
| point?" | |
| s694: "^The boss comes crashing out of his office with a full head of steam. He | |
| wants YOU to attend the Y2K solutions seminar! ^^But just then a marketing guy | |
| strolls by and explains in his smooth marketing voice why HE should go. So the | |
| boss sends the marketing guy instead.^^^^Two hours pass, and the marketing guy | |
| returns from the seminar, pretty much as oblivious to Y2K as he ever was, drops | |
| something off on your desk, and returns to work, whistling some Disney tune or | |
| other, and a crowd of people gather around to the north of your cubicle to chat | |
| about the conference.^^The boss, you notice, has left his door open." | |
| s695: "The boss squirms out of your grasp and playfully tickles you in a | |
| non-threatening manner." | |
| s696: "Your boss says he doesn't have a clue about that." | |
| s697: "Thanks. A depressing figure but I needed the truth." | |
| s698: "You're just making that up and you know it." | |
| s699: "Answer your boss's questions as follows: BOSS, (ANSWER)." | |
| s700: "the" | |
| s701: "Your boss is eager for all his employees to work their butts off." | |
| s702: "Your boss is totally distraught over your desire to resign." | |
| s703: "Your boss approaches you and begs you to stay on board, be a team | |
| player, pull together, stay the course, win one for the Gipper, save his ass, | |
| etc." | |
| s704: "the" | |
| s705: "This is a colorful box depicting a cheerful couple of businesspeople who | |
| have solved their Year 2000 problems, or at least think they have, using the | |
| Y2K Solution-In-A-Box software. Some of the wording, even on the outside of the | |
| box, is a little alien and technical to you. Maybe you should have Ed look at | |
| this." | |
| s706: "This orange disk has a label on it: Year 2000 Problem Solver." | |
| s707: "The Year 2000 Problem Solver is now installed in the computer!" | |
| s708: "Either you've already done that or the disk isn't in the drive." | |
| s709: "There is a grinding of hard drives as the Y2K Problem Solver scans your | |
| entire office's local area network computing system. A lot of problems are | |
| found. You could have guessed as much. But the amazing thing is, all the | |
| information is being organized onscreen in an understandable way. But it is now | |
| asking you to type in a lot of information that only somebody with a lot of | |
| technical knowledge would have. Your execution of the Solution Package is | |
| incomplete." | |
| s710: "General rule: Install once, then execute once. In this case, maybe | |
| somebody else install and execute." | |
| s711: "You are in the cramped company parking lot." | |
| s712: "^The boss comes running up to you and orders you to get back to work. | |
| Humbly, you obey. You have not fulfilled your obligations for the day.^^" | |
| s713: "You can't just leave without letting your boss know you're resigning. So | |
| off you trod, back into the offices of Biritzcom ..." | |
| s714: "Your boss whines and pleads with you to stay, physically preventing you | |
| from getting in your car and driving off." | |
| s715: "This green disk has a label on it: Spam Filter. There? are standard | |
| INSTALLation instructions." | |
| s716: "The spam filter is now installed in the computer." | |
| s717: "Either you've already done that or the disk isn't in the drive." | |
| s718: "Your spam problems were automatically taken care of simply by installing | |
| the spam filter. No need to execute this one." | |
| s719: "This black disk has no label on it." | |
| s720: "The black disk has a label on it." | |
| s721: "The label fits perfectly on the disk." | |
| s722: "Nobody seems interested in the blank disk." | |
| s723: "^One of the more snide marketing guys grabs it and reads the label. A | |
| slow horror grips his face muscles and he squeaks 'No! Get it away from us!' | |
| ^^Pretty soon the entire crowd has read the heinous disk? label and runs | |
| trembling to the stairwell for a smoke, leaving the marketing area empty!" | |
| s724: "a" | |
| s725: "This is a disk label. It says Common Sense Marketing Basics: How to fire | |
| half your marketing department and start using low-budget methods that really | |
| work." | |
| s726: " It is self adhesive and so far, unused." | |
| s727: "It's a small battery-powered radio that only gets one station." | |
| s728: "The volume and station on this simple computer game radio are not | |
| alterable." | |
| s729: "^^Your radio blares: "The international situation is desperate as usual. | |
| The Pacific Rim depression continues to claim lives and businesses, while the | |
| aftershock continues to worsen for us in North America."" | |
| s730: "^^Your radio blares: "The president today announced a new cash | |
| withdrawal limit of $300 per individual, acting on a request by the Federal | |
| Reserve."" | |
| s731: "^^Your radio blares: "An angry coalition of military dictators demanded | |
| a fix to the Year 2000 problem. They stated that if the Millennium Bomb shuts | |
| down their vehicles and weaponry, it could become difficult or impossible to | |
| keep killing people beyond January 1 2000."" | |
| s732: "^^Your radio blares: "New anti-hoarding laws were introduced today by | |
| the Presidential Committee For Critical Infrastructure Protection, which stated | |
| that some necessities are becoming scarce due to production and shipping | |
| breakdowns in agriculture, railroads and food distribution giants. The | |
| committee assures us that this is a temporary measure and that full production | |
| of all necessities will be restored soon."" | |
| s733: "^^Your radio blares: "That's ATKX news. We'll return to the music after | |
| a short test of our new broadcasting system."^^There is a short beep followed | |
| by silence ..." | |
| s734: "This blue disk has a label on it: Year 2000 Compliancy Tester. There are | |
| standard INSTALLation and EXECUTE instructions too." | |
| s735: "The Year 2000 Compliancy Tester is now installed in the computer!" | |
| s736: "Either you've already done that or the disk isn't in the drive." | |
| s737: "The Y2K compliancy testing software scans your office's local area | |
| network protocols, and all computers in your office, for Year 2000 date change | |
| compliancy. Most fail spectacularly. The data is added to the report you are | |
| working on which resides in your computer." | |
| s738: "This red disk has a label on it: Survival Report Maker (Lite). There are | |
| installation and execution instructions and a phone number for Ground Zero." | |
| s739: "The shareware version of the disaster survival report generator is now | |
| installed in the computer!" | |
| s740: "Either you've already done that or the disk isn't in the drive." | |
| s741: "We've already been through this ..." | |
| s742: "You'll need a smoothly functioning laser printer for that red disk to be | |
| of any use." | |
| s743: "You run the software, deviously using the registration code you found at | |
| www.cracker.com. A survival report spits out of your laser printer and you grab | |
| it.^^" | |
| s744: "You run the software and type in some information it asks you for - your | |
| finances, health, home, etc. The software makes a couple of small, vague | |
| recommendations, then says that if you want a complete Disaster Survival | |
| report, you'll have to phone Ground Zero and pay the registration fee of $5 for | |
| the registration code. You notice that you have to have the disk at hand when | |
| running the software, since it is accessed every few seconds. ^^An annoying | |
| coworker peers over your shoulder at what you are doing and snickers: "Dr. | |
| Doom, that's you."" | |
| s745: "Any time you're ready to call Ground Zero to register their shareware, | |
| just PHONE them." | |
| s746: "You get an order-taker on the phone. Then you scramble in your wallet | |
| for a credit card that has at least $5 credit left on it. Close call, but you | |
| found one. Then they tell you their software is not able to process credit | |
| cards? that expire in the year 2000 - which yours does. ^^Oh well." | |
| s747: "the" | |
| s748: "^The lighting flickers for a second. Odd." | |
| s749: "^The lights fizzle for a few seconds, then go out ... all over the | |
| entire Biritzcom building!^^Thanks to poor design, the interior of the building | |
| is not sufficiently provided with natural sunlight. There are a few squeals, a | |
| few groans of dismay, and you see the security guard and a few employees go | |
| streaming to the exits. Got a light?" | |
| s750: "This is the first fax that's come in over your new cellular modem card. | |
| Much too messy to read onscreen. Print it." | |
| s751: "The laptop computer is not even on." | |
| s752: "Can't print something if the computer isn't on your desk." | |
| s753: "The dot matrix printer buried somewhere under the mess on your desk | |
| spews the fax onto your desk. It appears to be an invitation to a Y2K solutions | |
| seminar across town that runs continuous sessions all day." | |
| s754: "You already printed it out. Hope you didn't lose it or something. Oh, | |
| well." | |
| s755: "This is an invitation to a Y2K seminar which runs consecutively all day | |
| today. "Just the thing to get a dispirited or confused company in the right | |
| frame of mind" it says." | |
| s756: "the" | |
| s757: "This is the printout of the finished report which you need to hand | |
| deliver to your boss." | |
| s758: "The (relatively) friendly secretary takes it from the laser printer | |
| (which you don't need to refer to in the course of this game), staples it | |
| together and hands it to you." | |
| s759: "The unfriendly secretary is in no mood to let you have it, after what | |
| you've done. In fact now you'll never be able to have it. Might as well start | |
| over." | |
| s760: "The unfriendly secretary is in no mood to let you have it." | |
| s761: "a" | |
| s762: "This is a printout of the survival report generated by the red shareware | |
| disk from Ground Zero. You'll need it for the 4th and 5th days of this | |
| adventure." | |
| s763: "Here are the relevant contents of the survival report for your day at | |
| the mall ... ^^1) Stock up for a length of time after which all of your | |
| absolute necessities would run out simultaneously. There is no use having 6 | |
| months worth of food, for example, if you only have 3 months worth of water. | |
| ^2) The absolute necessities of disaster preparation include non-perishable | |
| food, vitamins, water (remember, there is a well on the front lawn of your | |
| house), and heat, and most people would be uncomfortable living without | |
| electricity for any length of time. ^3) If you want to be electrically | |
| independent, you should have a generator and gasoline. ^4) Buy some gold IF you | |
| have extra money and expect any sort of financial disaster in the near future." | |
| s764: "For this phase of your adventure, the survival report contains relevant | |
| information about: ^ 1) Hunting local fauna. ^ 2) Finding edible flora. ^ | |
| 3) Defending one's home and staying warm. ^ 4) Food preparation. | |
| ^^Essentially, you should a) have access to water whenever you need it; b) get | |
| a friend if possible; c) be able to defend your home; d) maintain some kind of | |
| contact with the outside world; e) have plenty of food; f) be able to make fire | |
| for heat and cooking. " | |
| s765: "^Good. You've accomplished all you wanted to for today. Off you trot to | |
| the parking lot, get in your car and zoom out to phase 4 of your quest ..." | |
| s766: "^The boss shuffles over to the door and picks up your letter of | |
| resignation. After a few seconds, he attempts to open the door but cannot, and | |
| a howl of indignation and fear escapes his throat. Pulling and banging | |
| desperately on the door, you finally hear him collapse to the floor, giggling | |
| maniacally.^^Oh well, he's got his problems, you've got yours.^" | |
| s767: "^... now that you've resigned, all you need to do is get your hands on a | |
| survival report and you'll be ready for the next phase of your adventure ..." | |
| s768: "The boss walks over the door. You hear him grab the resignation, then | |
| growl softly under his breath. He bursts out of the room and thrusts the | |
| resignation into your hands, saying in a solemn voice: "You can't quit. Not | |
| now. I can't accept it." Then he walks back into his office and slams the door | |
| locked behind him.^^Hmmm ... that didn't go so well ..." | |
| s769: "^^^ ******************** ^ | |
| * Phase One * ^ | |
| ******************** ^^It is a very strange time and place you find yourself | |
| in.^^Earth. North America. Early 1998." | |
| s770: "^^From readily available information, and the pronounced fears of a few | |
| politicians and information technology leaders, it is obvious to you that | |
| things are about to fall apart. Yet the world at large seems blissfully | |
| ignorant. Most citizens pay little attention to history and are unfamiliar with | |
| how unusually blessed latter-20th-century North Americans have been. ^^Peace. | |
| Prosperity. We live for entertainment, money, and immediate gratification. | |
| ^^Most people seem unwilling to believe that the geniuses who've given us all | |
| the technology we take for granted could possibly have painted us all into a | |
| corner with the Year 2000 century change problem, also known as the "Millennium | |
| Bomb" or "Y2K". ^^On the other hand, a small but rapidly growing percentage of | |
| people - mostly information workers with above-average intelligence - are | |
| already predicting the breakdown of banks, stock markets, aviation, public | |
| utilities, ... maybe even society itself. ^^You are an employee of Biritzcom. | |
| It is early 1998. Since this is the demo version, there is a demo fairy | |
| flitting about your head, limiting your experimentation to 20 moves for each of | |
| Uh-Oh!'s 5 phases. ^^(To order the full version, use the ORDERING command.) ^^I | |
| suggest you examine your computer ... ^^ * * * * * | |
| * * * * * *^^" | |
| s771: "^The darkness reminds you of your dependence on electricity, which you | |
| hope you can rely on for years to come.^" | |
| s772: "^The janitor cries out 'Ah! Si, si! Key!' and you can hear him rustling | |
| with his giant wad of keys. You hear a clang on the elevator lobby floor and a | |
| silver key bounces under the door and into the hallway at your feet!^" | |
| s773: "^Hold on a minute ... you don't have $" | |
| s774: " cash on you! The salesman points to the exit and says "The bank's just | |
| a few steps away, pal."^" | |
| s775: "^The salesman giggles, then tries to disguise it as a cough.^" | |
| s776: "^Transaction complete. You now have $" | |
| s777: " remaining in cash on your person.^" | |
| s778: "We've already been down this road." | |
| s779: "Ed is not here to help you ... (yet?)" | |
| s780: "The Solution Package box is not here." | |
| s781: "The orange disk is not here. Ed'll need to have that if you want him to | |
| help you." | |
| s782: "^Ed works his magic with the Y2K Solution In-A-Box package and in | |
| minutes a full report is completed. He clicks the print button and you hear a | |
| familiar whine in the lobby. Lucky the receptionist is powdering her nose at | |
| the moment so you grab the report before she can stop you, then nip back to | |
| your desk. ^^Anyway, now that Ed's got that out of his system, he rambles back | |
| into the mailroom to do some more work on that photocopier. I guess you could | |
| say ...^" | |
| s783: "The police are brought in. You go to jail. Eventually electricity | |
| becomes a rarity, large regions of North America experience famine, | |
| broadcasters stop broadcasting, people lose fortunes and start killing one | |
| another, and the world splits into tribal factions where the only things that | |
| matter are food, warmth and loyalty. You rot in your cell." | |
| s784: "There is information provided on the following:^^ Instructions for | |
| playing ^ Clues ^ Why I made this game ^ Credits ^ Where to get | |
| more info about Y2K ^ If you enjoy this game ...^" | |
| s785: "^^^ ******************** ^^ | |
| To Order The Full Version of UH-OH! ... ^^Send $10 American or Canadian | |
| check, cash or money order to: ^^Scott Covert ^R.R. #8 / 1956 O'Brien Road | |
| ^Peterborough, Ontario ^Canada K9J 6X9 ^^Keep visiting | |
| http://www.successinformation.com/game.htm - you may be able to order through a | |
| secure web page with your credit card. ^^Include your email address and you | |
| will receive the full game BY E-MAIL before the disk arrives in your mailbox. | |
| ^^Email scott@successinformation.com with any questions regarding bug reports, | |
| purchasing, playing, or negotiating the copyright of Uh-Oh! ^^ | |
| ******************** ^^" | |
| s786: "Clues And Information" | |
| s787: "Instructions" | |
| s788: "Clues" | |
| s789: "Why I Made This Game" | |
| s790: "Credits" | |
| s791: "More Information On Y2K" | |
| s792: "If You Enjoyed Playing Uh-Oh ..." | |
| s793: "Now That You've Solved The Game ..." | |
| s794: "^First of all, to get a context-specific hint at any point during the | |
| game, just use the HINT command. ^^Never played a text adventure game before? | |
| Keep reading ... ^^When prompted, you simply type what you want to do. Here are | |
| some common commands and their abbreviations ... ^ 1) l or look - look at | |
| your immediate surroundings ^ 2) i or inv - list what you are carrying | |
| (inventory) ^ 3) s, se, sw, w, n, nw, ne, e - move in a compass direction ^ | |
| 4) get (object) and drop (object) are two things you will do often ^ 5) you | |
| can examine and search things, smell them, and listen to them ^ 6) you can | |
| slide things under other things and put things on or in other things ^ 7) | |
| commands created specifically for this game include install, uninstall, | |
| execute, finish, print, snooze, time, phone, and money (the first 4 relate to | |
| computers) ^ 8) to get a weak context-sensitive hint at any time, type WEAK ^ | |
| 9) really stuck? Get a strong context-sensitive hint at any time with HINT ^ | |
| 10) if something is clothing, you can wear it and remove it ^ 11) some | |
| objects can be tied to other objects or used to cover other objects ^ 12) | |
| sometimes, reading something is different than examining it ^ 13) there are | |
| several objects in this game that you will only know how to use by virtue of | |
| having EXAMINEd them. So examine everything you find ^ 14) you can turn | |
| certain things, buy certain things, open and close certain things, and turn | |
| certain things on and off ^^I have tried to keep the grammer flexible, so that | |
| when you know what you want to do, you can do it. For example, if you wanted to | |
| slip a memo pad under the crack in a door, any of the following would work ... | |
| ^^ insert pad through door ^ slide memo pad in crack ^ put memo | |
| under door ^^ IMPORTANT: How to talk to people you meet ... ^ | |
| --------------------------------------------- ^^To tell somebody to do | |
| something, type CREATURE, VERB NOUN ^^Examples ... ^ teacher, erase board ^ | |
| pirate, drop treasure ^ ed, jump (some commands are one word only, with | |
| no noun) ^^The CREATURE, WORD format is how you answer another person's | |
| question: ^ teacher, pi ^^ IMPORTANT: How to use reference objects ^ | |
| --------------------------------------- ^^For things like web browsers, books, | |
| magazines, etc., you can look up specific information with the CONSULT OBJECT | |
| ABOUT TOPIC format. Examples ... ^^ consult book about einsteinium ^ | |
| consult web browser about marketing ^ consult magazine about depression ^" | |
| s795: "^To get a clue at any point during the game, use the single word command | |
| HINT for a giveaway clue or WEAK for a less direct clue. You will be given a | |
| contest-sensitive clue that will tell you something you need to do next. ^^The | |
| hint will be give you pretty specific advice about exactly what to do next, so | |
| please make an honest effort to examine everything and try to figure things out | |
| for yourself first.^^" | |
| s796: "^1) During the mid 1980's, I must have played over a dozen Infocom(TM) | |
| games. I solved only two of them. Maybe that makes me stupid, but I suspect | |
| there are a lot of people out there just like me. I wanted to create a SOLVABLE | |
| adventure, with built-in clues, no illogical or 'guess the verb' puzzles, and | |
| without asking you to pay extra money for clues. ^^At www.the-spoiler.com I | |
| have read several adventure game solutions, and can honestly say "I never would | |
| have thought of that" or I thought I tried a correct solution, but the wording | |
| got in the way. That's what "Uh-Oh!" tries to avoid. ^^2) I believe that | |
| anybody in a position to understand the Year 2000 problem, and raise awareness | |
| in some way, should do so. This is my effort to do so, hopefully in a way that | |
| will be fun for people. ^^3) I like to create things. It's a compulsion. I | |
| never suspected I would be able to make an Infocom(TM)-type text adventure | |
| game. This is great fun for me, especially since I used to spend hundreds of | |
| hours playing games just like this one (only better, of course).^^" | |
| s797: "^I would like to thank Infocom, the direct marketing industry, Robotron, | |
| Millennium, The X-Files, Seinfeld, Felix Ibay, Jonathan Mizel, Tom Robbins, | |
| Robert Anton Wilson, Kurt Vonnegut Jr., William Gibson, the inventors of | |
| FloVent and Doak Oil, Graham Nelson, beef stew with dumplings, toast with | |
| creamed honey, Rage Against The Machine, Devo, Uh-Oh's beta-testers, and ... of | |
| course ... dogs ... for making life bearable and making this game possible.^^" | |
| s798: "^^ WHERE TO GET MORE INFO ABOUT Y2K ^ | |
| (Which Isn't Really A Game At All) ^^www.garynorth.com is a | |
| full-service clearinghouse of hundreds of articles relevant to the Year 2000 | |
| Problem, hand chosen by Dr. Gary North and updated almost daily with new links. | |
| It includes discussion forums. If a few hours spent there doesn't convince you | |
| that we are facing huge problem, then you cannot be convinced, and should | |
| simply proceed with life as usual, and God bless you. ^^Other resources include | |
| www.year2000.com, www.year2000.co.nz and dozens of other web sites, plus Ed | |
| Yourdon's book, Time Bomb 2000, available in a bookstore near you or from | |
| www.amazon.com. ^^Ed Yardeni (no relation to Ed Yourdon, I assure you), has a | |
| fantastic website at www.yardeni.com, including a full 100K book on a single | |
| page. ^^Put simply, these people are far more experienced, intelligent, and | |
| persuasive than I am. And if you can't be bothered visiting their web sites, I | |
| urge you to pay attention to the growing media coverage of the Y2K problem. | |
| ^^Major public figures, top-level bankers, congressmen, senators, corporate | |
| leaders and information industry executives (in other words, people whose | |
| normal job it is to put on a happy face and assure us all is right with the | |
| world) are coming right out and saying "This is a serious problem for | |
| everyone."^^" | |
| s799: " ^^Are you enjoying playing Uh-Oh? ^^You are? Good! ^^Here's the deal. | |
| We (most of you reading this anyhow) live in a capitalist democracy. While it's | |
| certainly not laissez-faire capitalism, it has produced more wealth in the last | |
| 100 years than humanity created in the 6000 years prior. ^^What is wealth? | |
| Despite pollution, pesticides, oil spills and ozone depletion, we are living | |
| longer and healther lives than ever before in history. That is wealth. In | |
| comparison to the 19th century and before, our food and water are remarkably | |
| clean and free of disease. That (not gold coins in your sock drawer or numbers | |
| in a bank's computer) is wealth. An extremely poor person today stands a much | |
| better chance of surviving an attack of appendicitis than a king did 200 years | |
| ago. Think about that - that's wealth. Are there extremely poor people in our | |
| society? Yes, and to me it seems inevitable that there be a bell curve of | |
| wealth distribution in any society - it has more to do with human nature than | |
| capitalism. ^^Wealth is also the ability to do amazing things ... instantly | |
| contact somebody 12,000 miles away, fly between North America and Europe in 5 | |
| hours, play computer games, and put people on the moon. ^^Without a capitalist | |
| economic system, none of this is possible. We can all expect to be paid in | |
| return for the value and entertainment we provide to others. ^^So if you have | |
| been playing Uh-Oh, and enjoying it, and maybe even learned a thing or two from | |
| it which could be VERY important to your near-term comfort, then please, if you | |
| haven't already done so ... ^^Send $10 (American or Canadian currency) cash, | |
| money order or check to ... ^^Scott Covert ^R.R. 8 / 1956 O'Brien Road | |
| ^Peterborough, Ontario ^Canada K9J 6X9 ^^Want to phone me? It's (705) 742 | |
| 9458. ^^My email is scott@successinformation.com. ^^" | |
| s800: "Congratulations! Looks like you solved all the nasty challenges I was | |
| able to think up for you. I hope that, during that process, you were given | |
| pause to reflect on the REALITY of the Y2K problem. ^^You must have enjoyed | |
| Uh-Oh! to get this far, so this is a final appeal to anybody who, for whatever | |
| reason, has the full version but has not paid for it, to do the right thing and | |
| send your $10 American or Canadian currency cash, check or money order to ... | |
| ^^Scott Covert ^R.R. #8 / 1956 O'Brien Road ^Peterborough, Ontario ^Canada K9J | |
| 6X9 ^^To pay online with your credit card: | |
| http://www.successinformation.com/game.htm. ^^Email | |
| scott@successinformation.com or call (705) 742-9458 for suggestions to improve | |
| this game, suggestions for new games, bug reports, joint venture offers, etc. | |
| ^^If you have any great ideas for a new game, and good writing skills, feel | |
| free to contact me about becoming partners. ^^And please, make every effort to | |
| have a nice day." | |
| s801: "You've already flipped through the whole book! (You can go through it | |
| again if you want to.)" | |
| s802: "^^(Rick Cowles talks about his experiences at Distributech '98, an | |
| electric industry exhibition): ^^"As I boarded my flight back home Wednesday | |
| evening, I was thoroughly exhausted and utterly depressed. ^^Very few of the | |
| suppliers I spoke with appeared to know anything about Year 2000 issues. | |
| ^^Several of the Geographic Information Systems (GIS) vendors I spoke with | |
| freely acknowledged that their systems relied on the Global Positioning System | |
| (GPS) for location information. But not one was aware of the GPS systems | |
| problems that start in August of 1999 (ref: | |
| http://tycho.usno.navy.mil/gps_week.html), or the Y2K compliance status of the | |
| GIS equipment they were hawking. ^^When I took the podium at the Expert | |
| Laboratory on Y2K issues, an industry guy in the back of the room interrupted | |
| me in the middle of my presentation and said, 'Hey Rick, this whole Y2K thing | |
| is just a big bunch of hype.' ^^Until today, I have been somewhat reluctant to | |
| make a prediction on the chances of major electrical system failures in the | |
| days and weeks following 01 January 2000. Not anymore. ^^Based on what I | |
| learned at DistribuTECH '98, I am convinced there is a 100% chance that a major | |
| portion of the domestic electrical infrastructure will be lost." ^^ - Rick | |
| Cowles, long-time electric industry observer ^ 609-299-4634 ^ | |
| http://www.euy2k.com ^ January 23 1998" | |
| s803: "Dear Mr. President: ^^The Year 2000 problem ("Y2K") is worldwide. I | |
| learn from Lanny Davis that his client, the Mars Company, estimates the cost of | |
| becoming Y2K date compliant at $100 million to $200 million. Mars is only a | |
| candy company. ^^[There is] the question of whether there is enough time to get | |
| the job done and, if not, what sort of triage we may need. I am particularly | |
| concerned about the IRS and Social Security in this respect. ^^What happens to | |
| the economy if the problem is not resolved by mid-1999? Are corporations and | |
| consumers not likely to withhold spending decisions and possibly even withdraw | |
| funds from banks if they fear the economy is facing chaos? ^^The computer has | |
| been a blessing; if we don't act quickly, however, it could become the curse of | |
| the age. ^^Respectfully, ^^Senator Daniel Patrick Moynihan" | |
| s804: ""If programmers lose their jobs in 1999 because of bank runs, will they | |
| stay on the job in large cities to work on the various repairs? I don't think | |
| they will. This is the Catch-22 of a society that has entrusted its very | |
| survival to fractional reserve banks and computers."^^ - Dr. Gary North" | |
| s805: ""Unless it (the Department of Trade) gets suppliers to address the issue | |
| immediately, telecoms and equipment could stop functioning on 1 January [2000]. | |
| This could mean that we won't be able to make any calls outside the UK." ^^ | |
| - Martin Hart, Chairman of Britain's Telecommunications Managers Association, | |
| quoted from COMPUTERWEEKLY NEWS (July 17 '97)" | |
| s806: ""The domino effect is one gigantic 'etc.' It will be easy to test the | |
| domino theory if there is a run by Japanese housewives on the unliquid Japanese | |
| banks in 1999. These banks will start selling the U.S. government debt that | |
| they hold in the hundreds of billions of dollars worth. Interest rates in the | |
| U.S. will soar. The dollar will fall. Meanwhile, the run will spread to other | |
| nations. Banking is the obvious domino. Here's another: shipping. What happens | |
| to cities if gasoline is unavailable to truckers? If the computers that control | |
| train schedules break down? If rail freight cars cannot be located by defective | |
| computers? Think about your supermarket's shelves."^^ - Dr. Gary North, | |
| 1997" | |
| s807: ""The Social Security Administration needs to get a grip on its efforts | |
| to be ready to handle computer system problems that could arise when the clock | |
| strikes midnight on January 1, 2000. While the SSA leads the pack compared to | |
| other federal agencies and during the last month said it was enhancing its | |
| efforts to meet the deadline, the only measurement that will matter when the | |
| date rolls over is whether or not all systems are "go." It's a pass or fail | |
| test. And millions of Americans could be impacted by SSA's performance." ^^ | |
| - Senator Chuck Grassley of Iowa (R) 12/18/1997" | |
| s808: ""The stock market is part of a system: the securities industry. It is | |
| also part of other systems: banking, government, and telecommunications. If any | |
| of these systems fails, the securities industry simply disappears. Sayonara. | |
| (Given the capitalization and solvency problems of Japan's banking system, I | |
| think 'sayonara' is the appropriate word.) ^^The securities industry is not | |
| Year 2000-compliant. Of course, neither is banking, government, or | |
| telecommunications ... Systems are systems. They are interdependent. ^^The | |
| securities industry's rating services such as Moody's, Dun & Bradstreet, and | |
| Standard & Poor's, have not yet used y2k compliance or y2k repair costs as | |
| categories in estimating the future performance of a company. This may seem | |
| peculiar at first, but think about it. If they all go together when they go, | |
| then why single out any company? Why call attention to the problem of one | |
| company if everyone is equally at risk?" ^^ - Dr. Gary North, 1997" | |
| s809: ""I wear a second hat, beyond that of PC Magazine columnist. I run a | |
| consulting practice... No part of [it] has been more complex or more | |
| frustrating than the "Y2K Problem." ^^Shortcuts in programming over the past 40 | |
| years mean that much of the software underpinnings of Corporate America--and | |
| what I increasingly think of as the Corporate World--is built atop systems | |
| that, come January 1, 2000, will not be able to handle dates properly. ^^I | |
| would like to tell you that our hard work--and the efforts of hundreds of | |
| Y2K-focused consulting firms around the world--has pretty much worked, and that | |
| long before we hit the Y2K wall less than two years from now, the problems will | |
| be pretty much solved. ^^I would like to tell you that--but it would be a lie. | |
| ^^Many, many firms, including some surprisingly large ones, have continued to | |
| drag their feet on fixing Y2K-related computing infrastructure problems and now | |
| won't possibly be ready to avoid disastrous problems come that cold January | |
| morning. ^^Companies with Y2K problems now often cannot find people to work on | |
| those problems. Not just enough people, but any people. ^^I believe Y2K will be | |
| the single biggest business crisis many of us will face in our lifetimes. | |
| ^^I've avoided writing a Y2K Fears column until now because I find it unseemly | |
| to be associated with the sky-is-falling types. I've been confident that | |
| American business, indeed global business, would address this problem early, | |
| aggressively, effectively. ^^I was wrong. They didn't. We didn't." ^^ - Jim | |
| Seymour, PC Magazine, February 10, 1998 (The Hidden Side(s) of Y2K)" | |
| s810: ""The Gartner Group predicts that more than 50 million embedded system | |
| devices will exhibit year 2000 date anomalies. The problem is determining which | |
| 50 million devices out of an estimated 25 billion devices that will be in | |
| existence by the year 2000 and which of these devices are critical." ^^ - | |
| Roleigh Martin, 1997" | |
| s811: ""Sometimes I cringe when people bring up "the market" as a solution to a | |
| flaw in technology ... The market doesn't solve the problems: I do. The market | |
| just determines what I'm paid for doing it. When you are staring at a blank | |
| sheet of paper, or a blank computer screen, turning your thoughts to the market | |
| doesn't help ..." ^^ - J. Orlin Grabbe" | |
| s812: "^^"IBM admitted last week that 40 of its Series 3083 mainframes used at | |
| 20 Air Route Traffic Control Centres, handling long-distance flights to, from | |
| and across America, cannot be made millennium compliant in time. ^^Air traffic | |
| controllers at an emergency meeting of the International Federation of Airline | |
| Controllers last week simulated the date change. ^^Their screens went blank." | |
| ^^ - Computer Weekly website, January 1998" | |
| s813: "^"Governor George Pataki declared "a moratorium on all new technology | |
| initiatives which impact an agency's ability to achieve date compliance". The | |
| decree covers all functions carried out by the State, which include health, | |
| police, social services, education, transport, employment and taxation. ^^The | |
| State government would not comment on the study's findings. ^^Corporation | |
| 2000's predictions for New York in 2000: ^^ * Electricity supply only 50% | |
| available 1-10 January ^ * Hospitals emergency-only for four weeks ^ * | |
| Schools closed for four weeks ^ * Stock market and banks closed for eight | |
| days ^ * Telecoms - 50% availability 1-10 January ^ * Post - 10 days | |
| disruption ^ * Transport (air/rail/bus) - 30 days disruption" ^^ - from | |
| the www.computerweekly.co.uk website, January 1998 " | |
| s814: "^"John McIsaac, the CEO of Market Partners Inc. in West Chester, Pa., | |
| was approached by executives of a midsize regional bank with $20 billion in | |
| assets that had not started its program to fix its computer coding.^^McIsaac | |
| may take the assignment, but he's not optimistic. "No matter how much money | |
| they put on the table, we may find there is nothing anyone can do to help | |
| them," he says. "They were too slow to start, and now it may be too late."" ^^ | |
| - from the BusinessWeek website, January 1998" | |
| s815: "^"IF 99.9% QUALITY IS GOOD ENOUGH, THEN... ^- There will be five | |
| airplane crashes every day. ^- Two million documents will be lost by the IRS | |
| this year. ^- 81,000 faulty rolls of 35mm film will be loaded this year. ^- | |
| 22,000 checks will be deducted from the wrong bank accounts in the next 60 | |
| minutes. ^- 1212 phone calls will be misplaced every minute. ^- 12 babies will | |
| be given to the wrong parents each day. ^- 18,322 pieces of mail will be | |
| mishandled in the next hour." ^^ - posting at www.garynorth.com" | |
| s816: "^"My estimate: 100% (of banks) won't make it. For the banking system to | |
| work, most of them on earth must make it. If there is any thought that most of | |
| them won't make it, all of them will experience bank runs. Bank runs that shut | |
| them all down before most of them can make it. ^^The bigger they are, the more | |
| complex their computer systems, and the older their systems are. They are | |
| burdened with a mountain of legacy code and embedded chips. ^^What [the major | |
| media] ignore[s] is the obvious: the Japanese banks. These are the capital | |
| monsters that hold U.S. securities and fund U.S. consumers' purchases. These | |
| banks have barely begun the fix. The largest U.S. banks are pipsqueaks compared | |
| to the Japanese banks. The fact is, the biggest banks on earth are going to | |
| miss the deadline. ^^The U.S. media speak as if the U.S. were the whole world. | |
| ^^All of these happy-face, 'big guys will make it' stories also assume that the | |
| power grid will stay up -- a matter of great faith." ^^ - Gary North, 1998" | |
| s817: "^"This month the (Australian) Federal Government moved to address | |
| growing alarm by appointing Maurice Newman, the chairman of the Australian | |
| Stock Exchange, to head its year 2000 taskforce. ^^"When you actually get into | |
| it, this is life and death in many cases," Newman says. "This issue has the | |
| potential to cause significant disruptions and dislocations, even economic | |
| recession." ^^Damian Chown, the chief executive of Australian Business | |
| Foresight, says small and medium-sized businesses remain frighteningly unaware. | |
| ^^It is possible some businesses are significantly underestimating their costs. | |
| In June 1996 Telstra said its bug budget would be $100 million; in September it | |
| revised this to $500 million." ^^ - Sally Jackson in The Australian Online | |
| website, Dec. 31 1997 " | |
| s818: "^^"A lot of current Y2K repair work is a waste of time. Why? Because the | |
| fixes will not function with the rest of the world. For example, the I.R.S. has | |
| decided to refuse any incoming information that does not contain a 4 digit year | |
| field. Companies who have developed certain "windowing" or "bridging" | |
| solutions, and who are in contact with the IRS (and who isn't?) will have to | |
| start over again. ^^Millions of man hours have already been wasted on projects | |
| that will end up being scrapped in a last minute attempt to install new | |
| equipment and software from scratch according to ever-changing specifications. | |
| ^^Young, apolitical information technology workers will go insane with | |
| frustration at what they will consider to be nothing more than corporate | |
| bungling, lack of communication, and politics - the hallmarks of selfish old | |
| men who own everything and understand nothing." ^^ - Scott Covert, January | |
| 1998 " | |
| s819: "^"UK telephone calls to Africa, the Middle East and the Far East face | |
| disruption in 2000 unless carriers act immediately to ensure their systems are | |
| millennium compliant. According to a survey by British Telecom, only 11% of its | |
| interconnect partners in Africa and the Middle East have set up millennium | |
| projects and are on their way towards achieving compliance. And just 23% of the | |
| telecommunication giant's carriers in Asia-Pacific said they had year 2000 | |
| programs under way." ^^ - found on the Web, January 1998" | |
| s820: "^"When Chase Manhattan Corp. did an inventory of its computers recently, | |
| it got a big surprise. ^^Vital functions at the New York-based banking giant | |
| were running on computers that no one - not even their information technology | |
| department - knew existed. Banks of servers, computers that manage office tasks | |
| such as printing and sharing files, went unnoticed for years. ^^'There were | |
| circa-1988 PCs out there that people (use every day) but forget that they | |
| exist,' said Ian Macfadyen, the bank's senior vice president. ^^If a company of | |
| Chase Manhattan's stature can't keep track of its computers, who knows how many | |
| other companies out there are PC-inventory challenged? " ^^ - Investor's | |
| Business Daily website, Jan 6 1998 " | |
| s821: "^"A set of crucial computers in the nation's air traffic control system | |
| should not be used beyond December 1999, according to IBM, which built the | |
| computers. ^^But the official in charge of that system at the Federal Aviation | |
| Administration said on Monday that "it would be an extraordinary feat" to | |
| replace about 40 mainframe computers by then. ^^The FAA has 250 separate | |
| computer systems, most of which will require fixes but the 3083 is the only one | |
| that IBM says can't be debugged before 2000. ^^[The 3083s] are used to receive | |
| data from radar scattered across thousands of square miles and integrate the | |
| images into a mosaic. Then [they] divide that picture into sectors, the | |
| subdivisions that controllers use, and pass the data on to other computers that | |
| drive the screens at the controllers' work stations. The 3083's also receive | |
| signals from each plane stating its identity, type of equipment, altitude and | |
| destination and helps tag each radar blip with the appropriate data. ^^Through | |
| the `80s and `90s, the FAA has canceled or missed deadlines on a string of big | |
| software projects." ^^ - found on the Web, early 1998" | |
| s822: ""What was once terrible seems to have become fun," observes the cultural | |
| critic Mike Davis. Our world will end, if it does, not with a bang or a whimper | |
| but with the violin shrieks from Psycho, played for laughs." ^^ - Howard | |
| Beale, Suck (www.suck.com), Jan 20 1998" | |
| s823: ""While software professionals and systems analysts are well-equipped to | |
| understand the reasons why the software could fail, and the possible | |
| consequences of those failures, they prefer to deny it. I wasn't aware of this | |
| until I watched Peter de Jager's year-2000 presentation at our recent Summit 97 | |
| conference, which ended with a question to the audience: "How many of you | |
| really believe these problems will occur?" They couldn't disagree with any of | |
| the technical points that de Jager raised, just as you probably won't find | |
| anything fundamentally wrong with my arguments here. But [they] don't want to | |
| believe things could be this bad. "Surely," people will argue, "companies will | |
| find a way to solve this problem." Given our track record for normal software | |
| projects over the past 30 years, this argument borders on hysterical optimism. | |
| More likely, it's cognitive dissonance: If the facts disagree with the | |
| conclusions you were hoping for, then ignore the facts." ^^ - Ed Yourdon, | |
| ed@yourdon.com, www.yourdon.com, mid-1997" | |
| s824: "After years inattention to the year 2000 problem and the impact the | |
| millennium crisis may have on its 9,000-plus products, Microsoft has announced | |
| plans to put a year 2000 resource center on the World Wide Web. ^^The | |
| announcement marked Microsoft's first admission that it has "been slow in | |
| responding to this issue," said Jason Matusow, Microsoft's year 2000 strategy | |
| manager. ^^Microsoft's inaction on the problem "has been a mistake," Matusow | |
| said. In the past, Microsoft told customers that all its products were year | |
| 2000-compliant. Those statements were not only inaccurate, they "put a lot of | |
| pressure on IT managers who were trying to put together budgets for desktop | |
| conversions," Moore said. ^^ - found on the Web, early 1998" | |
| s825: "The global, simultaneous, and widespread scope of potential Year 2000 | |
| (Y2K) failures will add entirely new dimensions to the understanding of how | |
| interdependent our modern society is. ^^I spent fifteen years as a programmer | |
| for a rich variety of financial, educational, and consulting organizations in | |
| Boston and have spent the past two and one half years completely immersed in | |
| the Y2K problem. ^^Knowing what I know about the software maintenance process | |
| in large organizations, I have to bluntly state that rather than continue to | |
| delude ourselves that somehow we're going to have an "Immaculate Reception" in | |
| the last seconds of the game, we---as responsible members of a global | |
| society---must quickly begin to speak of how to do triage on our major societal | |
| organizations and systems. ^^Anyone with even a rudimentary understanding of | |
| economics and social studies recognizes that the web of our daily lives is | |
| supported by a highly complex web of activities that handle our: - | |
| communications - energy - transportation - financial transactions - food | |
| production & distribution - internal security (police, judiciary, fire) - | |
| external security (military) - government (national, state, and local). All of | |
| these activities are highly interdependant and highly computerized. ^^ - | |
| (c) 1997, David Eddy" | |
| s826: ""Because of the lean manufacturing system used throughout U.S. industry | |
| today, there's a good chance that GM doesn't have an inventory of widgets; ABC | |
| is supposed to deliver the appropriate number of new widgets to the GM plant | |
| every day. To ABC's surprise, its computers fail on January 1, 2000, and its | |
| widget production line shuts down. A week later, GM's production line grinds to | |
| a halt until it can find a replacement widget manufacturer. Meanwhile, GM's | |
| factory workers are furloughed without pay." ^^ - Ed Yourdon, | |
| ed@yourdon.com, www.yourdon.com, mid-1997" | |
| s827: ""It's not that thetime for awareness is over; it's that the people who | |
| have so far done nothing, in defiance of all the evidence, have deliberately | |
| chosen to do nothing. There is nothing you can say to them at this point in | |
| time that will convince them to change their course. ^^A case in point: Robin | |
| Guenier, who was the director of Taskforce 2000 in the U.K., finally convinced | |
| the Labour government that this problem is real and pressing. A week later, his | |
| contract with the government was terminated. ^^The lesson? Shooting the | |
| messenger is still an acceptable practice. And consider this comment in The | |
| Economist, October 4,1997: "The Scaremongers have served a purpose, though: | |
| because the world has taken fright, it is working to avert a disaster." ^^It | |
| must have pained them greatly to admit that the "scaremongers" are right and | |
| have served a useful purpose. After all, last year they shrugged off Y2K as | |
| nothing but hype and exaggeration." ^^ - Peter de Jager, article on | |
| Datamation site, Dec.1997" | |
| s828: ""Officials at the Social Security Administration (SSA) are quoted as | |
| saying that if the SSA has a 1% error rate in its retirement checks and other | |
| benefits, it will lead to somewhere between 43 and 50 million phone calls, | |
| starting the day after the checks are mailed. If the problem isn't resolved | |
| right away, then those people are likely to call back the next day, and the day | |
| after that, and the organization is likely to be in a state of paralysis." ^^ | |
| - Ed Yourdon, ed@yourdon.com, www.yourdon.com, mid-1997" | |
| s829: "The decision by the Office of Management and Budget to move up | |
| dramatically the deadline -- from November to March 1999 -- when agencies must | |
| have rewritten and installed Year 2000-compliant systems was born of necessity. | |
| One month is not enough time to work the bugs out of a new system. But the | |
| reality is that many agencies were challenged by the November deadline. And for | |
| a good number of them, the new March deadline is an impossible dream. ^^Who's | |
| fooling whom? Many agencies already know that there is simply not enough money | |
| and not enough time to get all agency systems up and running by 2000. It is | |
| time to do away with the report cards, false deadlines and unrealistic | |
| expectations. [and] prepare some disaster-recovery plans for those agencies | |
| that simply run out of time. ^^ - Federal Computer Week, January 5 1998" | |
| s830: ""The governments of this world collect taxes on the basis of fear, which | |
| the bureaucrats call 'voluntary compliance' in the United States. This | |
| compliance is based on one fact: the public believes that non-payers will be | |
| discovered, prosecuted, and convicted. ^^In 2000, no one will believe this of | |
| any tax collecting agency that is computerized. ^^When the computers shut down | |
| or become unreliable, the tax collectors' ability to collect the money will be | |
| drastically hampered. Businesses will be failing all over the world. Tax | |
| payments will slow. Governments' deficits will grow. ^^Central banks cannot | |
| print money fast enough to make up for a breakdown in checking. There will be | |
| mass deflation. ^^In short, the end of big government is in sight. Voluntary | |
| compliance will end." ^^ - Dr. Gary North, 1997" | |
| s831: ""The chance of the planet agreeing on a standard for century-date | |
| compliance at this point is zero. We've had electricity for a century -- Seen | |
| the global electrical outlet standard lately? No, because there isn't one. ^^I | |
| for one suggest that we focus our limited time and energies on what we can do | |
| -- mitigate the most mission-critical life-threatening exposures, make | |
| contingency plans, and clean up the mess later. Lives are at risk." ^^ - | |
| Leon Kappelman, note to year2000-discuss@year2000.com ^ - 19 January 1998 " | |
| s832: "Nearly 75% of the UK's companies think they can fix their corporate | |
| millennium problem for less than @LL100,000, and 50% think they can do it for | |
| less than @LL10,000. These are among the findings of a survey of 1,000 | |
| organisations. ^^Many users questioned said they can fix their desktop systems | |
| for @LL10-per-user, even though Gartner Group has put the cost at between | |
| @LL100 and @LL500. ^^"People believe they can achieve millennium compliance | |
| simply, for little money, and that it will be easy to find the people to do it, | |
| none of which is true," said Rob Wirszycz. "There's widespread recognition of | |
| the issue, but the response is, 'it's not my problem'.". ^^ Other findings | |
| include: ^^* 34% believe it will be easy to get staff skilled in year 2000 | |
| work, ^* 36% have no contingency plans, ^* 29% have not commissioned a risk | |
| assessment of the year 2000 impact on their business, ^* 16% believe they have | |
| already achieved full compliance of business-critical systems, ^* and 55% of | |
| those totally dependent on midrange platforms do not believe there is any work | |
| to do. ^^ - excerpt found on www.garynorth.com, early 1998 " | |
| s833: "Prof. Howard Rubin has estimated that the U.S. shortage is 700,000 | |
| programmers. Rubin is considered one of the best informed experts in the y2k | |
| field. ^^Where do we locate an extra 700,000 skilled programmers? We don't. | |
| ^^Experienced programmers do not want to move back to a large city, live in a | |
| hotel room, sit in a cubicle, and do the most boring work in the profession: | |
| repair code. They did that 30 years ago. They created the problem. Why should | |
| they bother to solve it? Golfing is more fun. ^^Meanwhile, large corporate | |
| firms whose survival is at stake do not like to hire older people who do not | |
| like to sit in cubicles. What is the incentive of some program director to | |
| change his entire management style? Just about zero. Behemoth organizations do | |
| not change. They die, but they do not change. ^^No article ever quotes any | |
| recruiter who says, "The discrepancy between the number of programmers needed | |
| and the supply available is just too great. The goal cannot possibly be met." | |
| ^^ - 1998-01-23, Gary North " | |
| s834: "Patients in hospitals and clinics across Eastern Europe and the | |
| developing world will be injured or killed when their outdated medical | |
| technology malfunctions in 2000. ^^Much of this equipment contains embedded, | |
| date-sensitive chips and was sent to the poorest parts of the world as health | |
| aid. ^^If an automatic infusion pump shuts down when an embedded chip fails, it | |
| could either cut off the supply of a drug or discharge the entire contents into | |
| the patient's bloodstream. Either way, the results could be fatal, particularly | |
| to infants. ^^Much of the equipment was out-of-date stock donated by companies | |
| on the understanding that they had no responsibility for their use. ^^ - | |
| found on the Web, early 1998" | |
| s835: ""Two surveys conducted in early 1997 among public utility companies | |
| found between 32% and 45% had not yet begun a Year 2000 analysis and repair | |
| program and one survey found of those working on the Y2k problem, 37% were | |
| behind schedule. Four power utilities discovered that embedded electronic | |
| systems, critical or significant for producing power, failed when they | |
| simulated the Year 2000. Some of the companies in the utilities and related | |
| industries, who feel they have solved their Y2k problems, have failed | |
| expert-hired Year 2000 compliance inspections. ^^The Electric Power Research | |
| Institute says: "Despite the industry's best attempts, there will probably | |
| still be problems that will not be resolved necessitating some degree of | |
| emergency/disaster planning." ^^The 10/2/1997 issue of ComputerWeekly News | |
| reported on the magnitude of the problem. Anthony Parish, director-general of | |
| the federation of Electronic Industries said: "For every 1,000 embedded chips | |
| you look at, you'll find two or three that need correction. But those two or | |
| three are the ones that can close a blast furnace at the cost of @LL1m a day or | |
| stop power distribution." ^^Most of you have probably never felt the need to | |
| "go political" in the past. But the Y2k problem, face it, is a | |
| technician-created problem, and consequently technicians have to communicate | |
| this problem to the rest of society." ^^ - Roleigh Martin, M.A." | |
| s836: ""The World Information Technology and Services Alliance (WITSA), the | |
| global public policy body comprised of 25 national information technology (IT) | |
| industry representative bodies, believes that governments and international | |
| organizations worldwide must immediately address the very serious threat posed | |
| to both individual nations and the global economy by computer processing | |
| problems resulting from the advent of the Year 2000. The Year 2000 computer | |
| problem is the single biggest challenge facing the IT industry since the first | |
| computer became operational 51 years ago." ^^ - CSSA website, late 1997" | |
| s837: ""General Motors Corp. has rooted the potentially destructive "millennium | |
| bug" out of nearly half its computers and plans to complete the job by the end | |
| of 1998, a top GM executive said Tuesday. Ralph J. Szygenda, vice-president and | |
| chief information officer, said that will give the automaker another year to | |
| test the company's 7,000 computer systems. "The year 2000 problem is serious | |
| and costly and won't go away. This is not going to be quick, and it's not going | |
| to be easy," said Szygenda. He said GM will work with auto suppliers and the | |
| Automotive Industry Action Group, an auto industry technology-sharing | |
| organization, to make sure suppliers resolve the 2000 bug." ^^ - Joel J. | |
| Smith / The Detroit News web site, August 27, 1997" | |
| s838: ""^The government admits that many agencies will not meet the deadline. | |
| ^^At the Health Care Financing Administration, the problem is making sure that | |
| the Medicare contractors hired to operate the agency's medical payments | |
| systems, which are scattered nationwide, are Year 2000-compliant, said HCFA | |
| chief information officer Gary Christoph. In the last fiscal year, HCFA | |
| processed $210 billion worth of medical bills. ^^"How do we ensure that the | |
| systems are going to work end to end, that the claims will make it all the way | |
| from the doctor's office to the hospital through all those leased lines and | |
| telephone switches into the front end of the contractor?" he asked. "At any | |
| stage along the way there could be an interruption because somebody has not | |
| taken care of their Year 2000 problem." ^^"History shows that in any major | |
| software maintenance or software development project, testing is something | |
| that's generally underestimated," said Joel Willemssen, director for | |
| information resources management at the General Accounting Office. "The amount | |
| of effort that it takes to test and resolve the problems that result from | |
| testing is enormous. Clearly, the harder part of Y2K compliance is yet to | |
| come"." ^^ - Nicole Lewis, Federal Computer Week website, 01/19/1998" | |
| s839: "With no central leadership, a collective effort of unprecedented scale | |
| is taking hold throughout the business world. Major companies are sharing | |
| valuable internal information. Even bitter competitors are cooperating. "There | |
| is a rallying cry," says Mike Parfett, an AT&T vice president. ^^Companies are | |
| doing this to save their computer systems from catastrophic failure in the year | |
| 2000. Anyone slow to join the effort risks getting locked out of the solution. | |
| ^^"It's a camaraderie that I've never seen in this industry," Ms. Nance says. | |
| ^^Chubb Corp. dropped plans for a 1997 advertising campaign boasting of its | |
| head start in addressing the problem. Now, instead of trying to tarnish its | |
| competitors, Chubb is inviting them to share methodologies. Says John Jung, a | |
| systems vice president at Chubb: "Unless we all get it fixed, we all go down | |
| together." ^^ - Thomas Petzinger Jr., 1996" | |
| s840: "Maybe you're not worried about Y2K because ... ^Your job has nothing to | |
| do with computers. ^You're waiting for someone to convince you the problem is | |
| real. ^It's not your job to worry about this. ^Your management has not asked | |
| you to work on it yet. ^Somebody else is taking care of it. ^You're sure your | |
| vendor has taken care of this. ^Bill Gates will solve it. ^You have no Cobol | |
| programmers. ^I'll worry about it ... soon. ^What date problem? ^You don't want | |
| to. ^You're a disgruntled employee. ^Computers have no impact on your life. | |
| ^Someone smarter than you will come up with an automated solution. ^Government | |
| will do "something". ^You don't have the budget. ^You're too busy writing new | |
| applications (also non-compliant.) ^You're planning to sell your company next | |
| year. ^You can't believe 2 missing digits can cause that much trouble. ^You | |
| believe a crisis will be good for your company. ^You think the problem is | |
| exaggerated. ^You've got lots of time, it's only 1998. ^It's not a | |
| problem....it's a 'challenge'. ^You're afraid to deliver the news to your | |
| management. ^You don't have a CIO in your company. ^You only work here. ^You're | |
| waiting for everyone else to go first. ^Your believe this is all a plot by | |
| consultants to get rich." | |
| s841: "Your bank has only a little cash in it. Whatever you've deposited has | |
| been loaned out. You have been promised that you can draw out all of your money | |
| at any time. ^^Sometime between now and June, 2000 -- probably in July, 1999 -- | |
| this assumption will die, all over the world. When depositors see that their | |
| money may disappear in the scrambling of the banks' computers, they will go | |
| down and demand payment in cash. On that day, the mother of all bank runs will | |
| begin. It will spread to every bank on earth. ^^That day will be written up in | |
| history textbooks for the next thousand years, minimum. It will mark the end of | |
| an experiment in central banking that began in 1694 with the founding of the | |
| Bank of England. ^^The run may not start in the United States. It could well | |
| start in Japan. ^^But is the banking system really this vulnerable? Yes. Will | |
| anyone in authority admit this? Are you kidding? Do most people believe there's | |
| a problem? Not in 1997. Maybe they won't in 1998. In 1999, it will be widely | |
| believed. ^^The widespread belief that the banks could go down will bring them | |
| down. ^^What can the world's central banks do to stem the panic? First, they | |
| can get their governments to limit cash withdrawals by law. Then they can print | |
| paper money. If they do either or both, this will end men's faith in the | |
| banking system. ^^Governments will not be able to pay money out or take money | |
| in. Banks are the heart of the tax and payments system, and fractional reserve | |
| banking as a system will not survive the year 2000. ^^Of course, this sounds | |
| crackpotty today. So does the idea that not putting [" or \" in a century slot | |
| could shut down a computer. ^^Think about it. How will you get paid in the year | |
| 2000? I am making my personal plans on this assumption: I won't be paid. ^^ | |
| - Gary North, 1997 " | |
| s842: "Embedded Chip Inventory Checklist ^(Potential weak points in tens of | |
| billions of embedded chips throughout the world) ^^ Building/Facilities: ^ | |
| Lighting systems (incl. Backup lighting) ^ Backup generators ^ Heating, air | |
| conditioning & ventilating systems ^ Climate monitoring systems (incl. ^ | |
| Thermostats) ^ Elevators, escalators, and lifts ^ Building management systems ^ | |
| Lighting systems ^ Refrigeration systems ^ Sprinkler/fountain systems ^ | |
| Switching systems ^ Water and sewage systems ^ WATER PUMPS ^ Vending machines | |
| ^^ Medical Equipment: ^ Monitoring devices ^ Automatic MEDICATION | |
| dispensing equipment ^ Pacemakers ^^ Security/Fire: ^ Security systems | |
| (incl. Burglar alarms) ^ Safes and vaults ^ Door locks ^ Fire control systems | |
| (incl. alarms, sprinkler systems) ^^ Transportation/Parking: ^ Vehicle | |
| preventative maintenance chips ^ Gate systems ^ Variable message signs ^ | |
| Traffic lights ^ Traffic monitoring devices ^^ Administration: ^ Fax | |
| machines ^ Phone systems (PBX, voicemail, switching) ^ Mailroom equipment | |
| (Incl. Postage meters) ^ VCRs ^ Timeclocks ^^ Manufacturing/Process | |
| Control: ^ Energy control systems ^ Power grid systems ^ Power plants/stations | |
| ^ Switching systems ^ UNDERSEA OIL RIGS" | |
| s843: "Trains are often controlled by computers located a thousand miles away. | |
| Where's one train right now in relation to any other train on that track? The | |
| computer knows. ^^Is this any way to run a railroad? It is . . . until January | |
| 1, 2000 [when] the system goes. ^^Maybe 20% of power is generated by coal. | |
| Maybe more in some systems. Where's the coal? ^^Wheat. Corn. Chemicals. Think | |
| about it. ^^Think of a giant switch that every train must cross before going on | |
| to its destination. Then imagine what it would be like if the switch refused to | |
| work on schedule. The United States has such a switch. It's called Chicago. | |
| ^^Can't you do the switching manually? No. The manual switches are gone. Even | |
| if you could, where would you find the switchmen? In retirement homes. In | |
| graves. ^^ - Gary North, 1997" | |
| s844: "As a sign of how seriously banks are taking the Year 2000 problem, Bank | |
| of America will pay as much as $80 million in bonuses to employees who work on | |
| its conversion efforts. ^^About $30 million of that is for "retention awards" | |
| to keep 600 employees with critical technical and testing skills who are needed | |
| to convert the computer systems of the country's third-largest bank. ^^Tower | |
| Group of Newton, Mass., estimates that the banking industry will spend $7.2 | |
| billion on Year 2000 conversions. The average bank responding to a survey by | |
| NationsBanc Montgomery Securities has 68 million lines of computer code that | |
| need to be converted. ^^A survey by Gartner Group of Stamford, Conn., found | |
| that at least 50 percent of large U.S. banks are halfway through the computer | |
| reprogramming phase. By contrast, only about 5 percent of large foreign banks | |
| are at the same stage. ^^The problem, said [Bank Of America Executive Vide | |
| President Cheryl] Kane, is that @'e percent correct is not going to cut it." | |
| Fixes must be 100 percent successful. ^^Wells Fargo & Co. expects to have 400 | |
| people working on its Year 2000 effort. ^^ - Peter Sinton, December 31, | |
| 1997 San Francisco Chronicle " | |
| s845: "They tell us that desktop computers won't be affected. They tell us | |
| wrong. ^^There are about 250 million PC's out there. If they run on DOS, they | |
| aren't 2000-compliant. If they run on Windows 3x, they aren't 2000-compliant. | |
| If they have not had their BIOS chips replaced, they aren't compliant. If they | |
| are running any piece of software that is not compliant, they aren't compliant. | |
| ^^How many physicians are running DOS-based systems to feed Medicare with | |
| patient information? Today, they send this computerized information to the U.S. | |
| government's 70 private Medicare contractors, all of whom have been told that | |
| they will be fired as soon as the new Medicare computers are up and running. | |
| ("But before you go, get our software 2000-compliant." As Dave Barry says, I am | |
| not making this up.) ^^ - Gary North, 1997" | |
| s846: "At the completion of week 1023, the Global Positioning Satellite system | |
| week number will roll over to 0 on midnight of the evening of August 21 1999 / | |
| morning of August 22 1999. It is the responsibility of the user to account for | |
| the previous 1024 weeks. Depending upon the manufacturer of your GPS receiver | |
| ... some may display inaccurate date information, some may also calculate | |
| incorrect navigation solutions." | |
| s847: "[People] who are dreading the "millennium bug" in the year 2000 may have | |
| to step up their worrying by a year. ^^The custom of 1970s software programmers | |
| who entered 999999, equivalent to the date September 9, 1999, will cause | |
| problems when that date occurs, the Financial Times said Tuesday. ^^The | |
| programmers used that coding to indicate the end of a project or set of | |
| records. The numerals 000000 were used for the first file and 999999 | |
| represented the software version of a full stop. Those who wrote the programs | |
| never thought their software still would be in use in 1999. ^^ - CNN Web | |
| Site, June 17 1997" | |
| s848: "Rub elbows with a few cognoscenti and it's impossible to come away from | |
| a Y2K discussion without sharing a sense of dread. ^^Last month in Rancho | |
| Mirage, Calif., the Information Technology Association of America convened | |
| experts of all stripes -- users, vendors, consultants, bureaucrats -- to | |
| discuss issues facing the IT community. One entire track was devoted to the | |
| century date change. ^^Irene Dec, a VP of Prudential Life Insurance Company, | |
| observed that no IT project has ever come close to the complexity or importance | |
| of resolving the Y2K anomaly. She cast a justifiable pall on the proceedings | |
| [by saying]: Fully one-third of IT shops will fail to convert all their | |
| applications to Y2K compliance. ^^What this means is that the disastrous | |
| stories you've been hearing will come true, at least in some applications. This | |
| is no longer a point of discussion; it's now a matter of triage. ^^There is no | |
| ROI in the Y2K arena; success simply means you get to stay in business. ^^ | |
| - Sam Albert, December 12 1997" | |
| s849: "Government will be placed on a starvation diet by the Millennium Bug. | |
| While they will no doubt issue executive orders, declare martial law, and all | |
| the other things governments do in a crisis, they will be hampered by one | |
| crucial fact: bankrupt banks. If governments can't write checks, they cannot | |
| maintain their sovereignty. They are creatures of the banks as surely as the | |
| banks are creatures of the government. The symbiotic relationship of | |
| government-licensed banks and debt-addicted governments is about to end. Both | |
| institutions are today completely dependent on reliable computers. ^^Every | |
| government will deny this up until 1999. ^^If the government can't send monthly | |
| checks to granny for two months in a row, the moral claims of the welfare state | |
| die. ^^The West's politicians haven't a clue as to what is coming. Like | |
| Dilbert's boss, they don't worry about the details of programming. (Much as I | |
| enjoy reading "Dilbert," that cartoon strip faces a major problem: It won't be | |
| funny after 1999.) ^^ - Gary North, 1997" | |
| s850: " Uh-Oh!"^^ - Scott Covert"" | |
| s851: "Until the June 2, 1997, issue of NEWSWEEK, the mainstream media had not | |
| paid much attention to the enormous threat to civilization posed by the | |
| Millennium Bug. There had been articles here and there, but nothing so dramatic | |
| as this one. ^^In the week it was published, May 26, the Dow Jones Industrial | |
| Average reached a new record high. ^^This tells us something important: The | |
| world is in a state of denial. The y2k problem is the most important problem | |
| that has ever faced Western civilization, yet it is not taken seriously. ^^ | |
| - Gary North, 1997" | |
| s852: "Brooks' Law: Adding more programmers to a late software project makes it | |
| even later.^" | |
| s853: "^You can hear your computer beeping. (You know it like a mother knows | |
| its baby's voice.) It must be that new cellular fax modem in your computer, | |
| receiving its first fax!" | |
| s854: " dollars left on your debit card,^ 2) " | |
| s855: "Through the window to the north you see a neighboring farm and your | |
| front lawn." | |
| s856: "Through the small window in your back door you see the downward-sloping | |
| property behind your house, and your driveway and garage to the west." | |
| s857: "Through the western double window you can see snow-covered trees and | |
| fields." | |
| s858: "You see the sloping property behind your new home, and a trail which the | |
| real estate broker told you leads to a natural skating rink this time of year." | |
| s859: "Through the eastern double window you see your next door neighbor's | |
| house, and some other houses thinly spread over the crest of a hill to the | |
| southeast." | |
| s860: "By climbing onto a sofa you can see your driveway, then some trees, as | |
| you look west at ground level." | |
| s861: "Snow heaps over half the window; through the rest you can only see the | |
| wall of another house." | |
| s862: "^^(In the full version, Phase One is worth 30 points. You get to phase | |
| two after finishing the report and nabbing it from the nasty receptionist, then | |
| giving it to your boss.) ^^ ******************** ^ | |
| * Phase Two * ^ | |
| ******************** ^^Thankfully, you arrive at work the next morning to find | |
| out that the boss was a little shaken up by that report. ^^The technician has | |
| upgraded your laptop and several other computers in the office. Getting | |
| everything to actually work as a system is another matter. Your email program | |
| is no longer in your computer. Neither is the report. Instead it contains a new | |
| cellular fax modem and world wide web access. ^^You are sitting at your desk. | |
| ^^An announcement blares over the PA system: "There will be a test of the | |
| building's lighting systems in about 10 minutes as part of our year 2000 | |
| compliancy assessment project. Nothing to worry about." ^^ * | |
| * * * * * * * * * *^^" | |
| s863: "^^(In the full version, Phase Two is worth 40 points. You get to phase | |
| three after getting Biritzcom's lights back on, having some fun at the | |
| marketing department's expense, and impressing your boss.) ^^ | |
| ******************** ^ * Phase Three | |
| * ^ ******************** ^^And so it goes for | |
| another year. ^^On the positive side, the receptionst was fired and much of the | |
| marketing department has been eliminated; a mini coding factory now occupies | |
| the marketing cubicles area. ^^Predictions of a meltdown on January 1, 1999, | |
| were commonplace by late November 1998. Businesses and governments everywhere | |
| made a mad scramble to save themselves from breaking down beyond repair, but | |
| for many, it was too late. ^^A late 1998 stock market crash was caused by panic | |
| about a possible January 1st 1999 meltdown and compounded by a bank run in | |
| September 1998. Depositors across the country attempted to withdraw 10% of | |
| their accounts in cash, fearing massive bank collapses. ^^ * | |
| * * * * * * * * * * ^^It is early July 1999, 9 am. on a | |
| Wednesday. You have a red shareware disk you got out of a "Doom And Gloom" | |
| magazine in your pocket. An Internet magazine sits on your desk, courtesy of | |
| your employer. ^^You have made up your mind. This is your last day at work. The | |
| disaster doesn't happen January 1 2000, like people once thought. The disaster | |
| is now, and it's getting worse. Give the boss your resignation, then get out of | |
| here. ^^ * * * * * * * * * * *^^" | |
| s864: "^^(In the full version, Phase Three is worth 20 points. With great | |
| efficiency, you may be able to solve it in this demo version. Anyway, now onto | |
| Phase Four ...) ^^ ******************** ^ | |
| * Phase Four * ^ | |
| ******************** ^^Good riddance and farewell to Biritzcom. ^^It is time to | |
| prepare for the worst, and hope for the best. ^^You can use the MONEY and | |
| SNOOZE (wait 10 minutes) commands during this phase of your adventure. ^^Day 4 | |
| begins at a shopping mall at 10:30 am. Use the survival report as a guide to | |
| loading your car with the provisions that you believe will last you roughly 6 | |
| months. That's about how much you figure you can afford to manage, all things | |
| considered. ^^It is late November, 1999. ^" | |
| s865: "^^(In the full version, the shopping mall adventure is worth 40 points, | |
| and involves defrauding the bank, distracting a soldier and stocking up on food | |
| and other necessities.) ^^ ******************** ^ | |
| * Phase Five * ^ | |
| ******************** ^^It is noon, Tuesday January 4 2000. The power went out | |
| Saturday at 3 am. A day later, your phone was dead. ^^The nation faces 12% | |
| unemployment. People are being hired as "programmers" even when their only | |
| experience is programming a Commodore 64 or making text adventure games, but | |
| sadly, millions are unqualified for any computer-related work, and are | |
| unemployable. ^^Nobody trusts anything or anybody anymore. The last two months | |
| of 1999 saw some pretty intense hoarding behavior, and it got really ugly | |
| whenever anything crucial became scarce. ^^Small banks are dying, as is the | |
| airline industry. Power industry execs appear on TV, visibly shaken, spewing | |
| reassurances. Massive emergency preparations continue. The federal government | |
| is in such a mess that it would be doing well to organize a ham sandwich, yet | |
| it's still steadfastly trying to organize a critical infrastructure of banking, | |
| transportation and electricity that won't collapse. ^^You are in your rural | |
| home. It's cold in here at the moment. ^^ | |
| ********************^^" | |
| s866: " ^^ ******************** ^^ | |
| To Order The Full Version of UH-OH! ... ^^Send $10 American or Canadian | |
| check, cash or money order to: ^^Scott Covert ^R.R. #8 / 1956 O'Brien Road | |
| ^Peterborough, Ontario ^Canada K9J 6X9 ^^Keep visiting | |
| http://www.successinformation.com/game.htm - you may be able to order through a | |
| secure web page with your credit card. ^^Include your email address and you | |
| will receive the full game BY E-MAIL before the disk arrives in your mailbox. | |
| ^^Email scott@successinformation.com with any questions regarding bug reports, | |
| purchasing, playing, or negotiating the copyright of Uh-Oh! ^^The full version | |
| comes with a complete built-in HINTS system. ^^" | |
| s867: "write to" | |
| s868: "read" | |
| s869: "send message" | |
| s870: "increment" | |
| s871: "apply 'ofclass' for" | |
| s872: "recreate" | |
| s873: "destroy" | |
| s874: "copy" | |
| s875: "copy" | |
| s876: "<unknown attribute>" | |
| s877: "name" | |
| s878: "create" | |
| s879: "recreate" | |
| s880: "destroy" | |
| s881: "remaining" | |
| s882: "copy" | |
| s883: "call" | |
| s884: "print" | |
| s885: "print_to_array" | |
| s886: "compliant" | |
| s887: "found" | |
| s888: "gassoaked" | |
| s889: "noncompliant" | |
| s890: "software" | |
| s891: "small" | |
| s892: "paidfor" | |
| s893: "liquid" | |
| s894: "outside" | |
| s895: "animate" | |
| s896: "absent" | |
| s897: "clothing" | |
| s898: "concealed" | |
| s899: "container" | |
| s900: "door" | |
| s901: "edible" | |
| s902: "enterable" | |
| s903: "general" | |
| s904: "light" | |
| s905: "lockable" | |
| s906: "locked" | |
| s907: "moved" | |
| s908: "on" | |
| s909: "open" | |
| s910: "openable" | |
| s911: "proper" | |
| s912: "scenery" | |
| s913: "scored" | |
| s914: "static" | |
| s915: "supporter" | |
| s916: "switchable" | |
| s917: "talkable" | |
| s918: "transparent" | |
| s919: "visited" | |
| s920: "workflag" | |
| s921: "worn" | |
| s922: "male" | |
| s923: "female" | |
| s924: "neuter" | |
| s925: "pluralname" | |
| s926: "before" | |
| s927: "after" | |
| s928: "life" | |
| s929: "n_to" | |
| s930: "s_to" | |
| s931: "e_to" | |
| s932: "w_to" | |
| s933: "ne_to" | |
| s934: "se_to" | |
| s935: "nw_to" | |
| s936: "sw_to" | |
| s937: "u_to" | |
| s938: "d_to" | |
| s939: "in_to" | |
| s940: "out_to" | |
| s941: "door_to" | |
| s942: "with_key" | |
| s943: "door_dir" | |
| s944: "invent" | |
| s945: "plural" | |
| s946: "add_to_scope" | |
| s947: "list_together" | |
| s948: "react_before" | |
| s949: "react_after" | |
| s950: "grammar" | |
| s951: "orders" | |
| s952: "initial" | |
| s953: "when_open" | |
| s954: "when_closed" | |
| s955: "when_on" | |
| s956: "when_off" | |
| s957: "description" | |
| s958: "describe" | |
| s959: "article" | |
| s960: "cant_go" | |
| s961: "found_in" | |
| s962: "time_left" | |
| s963: "number" | |
| s964: "time_out" | |
| s965: "daemon" | |
| s966: "each_turn" | |
| s967: "capacity" | |
| s968: "short_name" | |
| s969: "short_name_indef" | |
| s970: "parse_name" | |
| s971: "articles" | |
| s972: "inside_description" | |
| s973: "play" | |
| s974: "Pronouns" | |
| s975: "Quit" | |
| s976: "Restart" | |
| s977: "Restore" | |
| s978: "Save" | |
| s979: "Verify" | |
| s980: "ScriptOn" | |
| s981: "ScriptOff" | |
| s982: "NotifyOn" | |
| s983: "NotifyOff" | |
| s984: "Places" | |
| s985: "Objects" | |
| s986: "Score" | |
| s987: "FullScore" | |
| s988: "Inv" | |
| s989: "Take" | |
| s990: "Drop" | |
| s991: "Remove" | |
| s992: "PutOn" | |
| s993: "Insert" | |
| s994: "EmptyT" | |
| s995: "Give" | |
| s996: "Show" | |
| s997: "Enter" | |
| s998: "GetOff" | |
| s999: "Exit" | |
| s1000: "VagueGo" | |
| s1001: "Go" | |
| s1002: "LMode1" | |
| s1003: "LMode2" | |
| s1004: "LMode3" | |
| s1005: "Look" | |
| s1006: "Examine" | |
| s1007: "LookUnder" | |
| s1008: "Search" | |
| s1009: "Unlock" | |
| s1010: "Lock" | |
| s1011: "SwitchOn" | |
| s1012: "SwitchOff" | |
| s1013: "Open" | |
| s1014: "Close" | |
| s1015: "Disrobe" | |
| s1016: "Wear" | |
| s1017: "Eat" | |
| s1018: "Yes" | |
| s1019: "No" | |
| s1020: "Burn" | |
| s1021: "Pray" | |
| s1022: "Wake" | |
| s1023: "WakeOther" | |
| s1024: "Kiss" | |
| s1025: "Think" | |
| s1026: "Smell" | |
| s1027: "Listen" | |
| s1028: "Taste" | |
| s1029: "Touch" | |
| s1030: "Dig" | |
| s1031: "Cut" | |
| s1032: "Jump" | |
| s1033: "JumpOver" | |
| s1034: "Tie" | |
| s1035: "Drink" | |
| s1036: "Fill" | |
| s1037: "Sorry" | |
| s1038: "Strong" | |
| s1039: "Mild" | |
| s1040: "Attack" | |
| s1041: "Swim" | |
| s1042: "Swing" | |
| s1043: "Blow" | |
| s1044: "Rub" | |
| s1045: "Set" | |
| s1046: "SetTo" | |
| s1047: "WaveHands" | |
| s1048: "Wave" | |
| s1049: "Pull" | |
| s1050: "Push" | |
| s1051: "Turn" | |
| s1052: "PushDir" | |
| s1053: "Squeeze" | |
| s1054: "ThrowAt" | |
| s1055: "Tell" | |
| s1056: "Answer" | |
| s1057: "Ask" | |
| s1058: "Buy" | |
| s1059: "Sing" | |
| s1060: "Climb" | |
| s1061: "Wait" | |
| s1062: "Sleep" | |
| s1063: "Consult" | |
| s1064: "parse_input" | |
| s1065: "AskFor" | |
| s1066: "GiveR" | |
| s1067: "ShowR" | |
| s1068: "begin_action" | |
| s1069: "end_turn_sequence" | |
| s1070: "Transfer" | |
| s1071: "limit" | |
| s1072: "ordering" | |
| s1073: "cost" | |
| s1074: "bother" | |
| s1075: "ticker" | |
| s1076: "beforelunch" | |
| s1077: "duringlunch" | |
| s1078: "afterlunch" | |
| s1079: "money" | |
| s1080: "follow" | |
| s1081: "channel" | |
| s1082: "orientation" | |
| s1083: "turnable" | |
| s1084: "idiot" | |
| s1085: "gotten" | |
| s1086: "meltcount" | |
| s1087: "time" | |
| s1088: "Version" | |
| s1089: "Empty" | |
| s1090: "InvTall" | |
| s1091: "InvWide" | |
| s1092: "GoIn" | |
| s1093: "Clues" | |
| s1094: "Snooze" | |
| [End of text] | |
| [End of file] |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment