;COMPARISON OF PS:GLOBAL.ZAP.1 AND PS:GLOBAL.ZAP.3 ;OPTIONS ARE /1 **** FILE PS:GLOBAL.ZAP.1, 1-4 (37) EQUAL? PRSI,OBJ2 \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-4 (37) EQUAL? PRSI,OBJ2 \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-7 (102) ?ELS5: EQUAL? PRSO,OBJ2 \?ELS7 **** FILE PS:GLOBAL.ZAP.3, 1-7 (102) ?ELS4: EQUAL? PRSO,OBJ2 \?ELS5 *************** **** FILE PS:GLOBAL.ZAP.1, 1-10 (173) ?ELS7: CALL V-FOO ZERO? STACK /FALSE RTRUE **** FILE PS:GLOBAL.ZAP.3, 1-10 (173) ?ELS5: CALL V-FOO ZERO? STACK \TRUE RFALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-22 (326) EQUAL? PRSI,IT \?THN10 EQUAL? PRSA,V?TELL-ABOUT /?THN10 EQUAL? PRSA,V?SEARCH-FOR,V?ASK-FOR,V?ASK-ABOUT /?THN14 ?THN10: EQUAL? PRSO,IT \FALSE EQUAL? PRSA,V?WHAT /?THN14 **** FILE PS:GLOBAL.ZAP.3, 1-22 (326) EQUAL? PRSI,IT \?ELS5 EQUAL? PRSA,V?TELL-ABOUT /?THN4 EQUAL? PRSA,V?SEARCH-FOR,V?ASK-FOR,V?ASK-ABOUT /?THN4 ?ELS5: EQUAL? PRSO,IT \FALSE EQUAL? PRSA,V?WHAT /?THN4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-28 (569) ?THN14: CALL PRODUCE-GIBBERISH **** FILE PS:GLOBAL.ZAP.3, 1-28 (564) ?THN4: CALL PRODUCE-GIBBERISH *************** **** FILE PS:GLOBAL.ZAP.1, 1-33 (636) EQUAL? PRSA,V?PUT \?ELS5 EQUAL? PRSI,FLOOR \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-33 (630) EQUAL? PRSA,V?PUT \?ELS4 EQUAL? PRSI,FLOOR \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-37 (726) ?ELS5: EQUAL? PRSA,V?LOOK-ON,V?SEARCH,V?EXAMINE \?ELS9 **** FILE PS:GLOBAL.ZAP.3, 1-37 (720) ?ELS4: EQUAL? PRSA,V?LOOK-ON,V?SEARCH,V?EXAMINE \?ELS6 *************** **** FILE PS:GLOBAL.ZAP.1, 1-39 (825) ZERO? OBJ /?ELS14 **** FILE PS:GLOBAL.ZAP.3, 1-39 (819) ZERO? OBJ /?ELS10 *************** **** FILE PS:GLOBAL.ZAP.1, 1-45 (965) ?ELS14: PRINTR "You don't find anything new there." ?ELS9: EQUAL? PRSA,V?TAKE,V?BRUSH \FALSE **** FILE PS:GLOBAL.ZAP.3, 1-45 (959) ?ELS10: PRINTR "You don't find anything new there." ?ELS6: EQUAL? PRSA,V?TAKE,V?BRUSH \FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-53 (1160) EQUAL? PRSA,V?COUNT \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-53 (1154) EQUAL? PRSA,V?COUNT \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-56 (1240) ?ELS5: ZERO? P-DOLLAR-FLAG /?ELS10 ZERO? P-AMOUNT \?CND8 **** FILE PS:GLOBAL.ZAP.3, 1-56 (1234) ?ELS4: ZERO? P-DOLLAR-FLAG /?ELS6 ZERO? P-AMOUNT \?CND5 *************** **** FILE PS:GLOBAL.ZAP.1, 1-59 (1318) JUMP ?CND8 ?ELS10: SET 'P-DOLLAR-FLAG,TRUE-VALUE ZERO? P-NUMBER \?CND8 **** FILE PS:GLOBAL.ZAP.3, 1-59 (1311) JUMP ?CND5 ?ELS6: SET 'P-DOLLAR-FLAG,TRUE-VALUE ZERO? P-NUMBER \?CND5 *************** **** FILE PS:GLOBAL.ZAP.1, 1-63 (1412) ?CND8: CALL DO-INSTEAD-OF,INTNUM,DOLLARS **** FILE PS:GLOBAL.ZAP.3, 1-63 (1404) ?CND5: CALL DO-INSTEAD-OF,INTNUM,DOLLARS *************** **** FILE PS:GLOBAL.ZAP.1, 1-70 (1538) ZERO? STACK /?ELS11 **** FILE PS:GLOBAL.ZAP.3, 1-70 (1530) ZERO? STACK /?ELS8 *************** **** FILE PS:GLOBAL.ZAP.1, 1-73 (1595) ?ELS11: EQUAL? PRSA,V?ASK-FOR,V?TAKE /FALSE **** FILE PS:GLOBAL.ZAP.3, 1-73 (1586) ?ELS8: EQUAL? PRSA,V?ASK-FOR,V?TAKE /FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-80 (1764) EQUAL? WINNER,PLAYER /?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-80 (1754) EQUAL? WINNER,PLAYER /?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-83 (1835) ?ELS5: EQUAL? PRSA,V?ASK-ABOUT \FALSE **** FILE PS:GLOBAL.ZAP.3, 1-83 (1825) ?ELS4: EQUAL? PRSA,V?ASK-ABOUT \FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-90 (1979) EQUAL? PRSA,V?LOOK-UP,V?LOOK-DOWN /?THN6 **** FILE PS:GLOBAL.ZAP.3, 1-90 (1969) EQUAL? PRSA,V?LOOK-UP,V?LOOK-DOWN /?THN4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-92 (2077) ?THN6: ZERO? ON-TRAIN /FALSE **** FILE PS:GLOBAL.ZAP.3, 1-92 (2067) ?THN4: ZERO? ON-TRAIN /FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-94 (2142) ZERO? STACK /?ELS14 **** FILE PS:GLOBAL.ZAP.3, 1-94 (2132) ZERO? STACK /?ELS10 *************** **** FILE PS:GLOBAL.ZAP.1, 1-97 (2195) ?ELS14: CALL NEXT-ROOM,HERE,P?OUT >RM **** FILE PS:GLOBAL.ZAP.3, 1-97 (2185) ?ELS10: CALL NEXT-ROOM,HERE,P?OUT >RM *************** **** FILE PS:GLOBAL.ZAP.1, 1-104 (2339) EQUAL? PRSA,V?WALK-TO \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-104 (2329) EQUAL? PRSA,V?WALK-TO \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-107 (2417) ?ELS5: EQUAL? PRSA,V?KNOCK \?ELS7 **** FILE PS:GLOBAL.ZAP.3, 1-107 (2407) ?ELS4: EQUAL? PRSA,V?KNOCK \?ELS5 *************** **** FILE PS:GLOBAL.ZAP.1, 1-109 (2510) ?ELS7: EQUAL? PRSA,V?TIE-TO,V?PUT-IN,V?PUT \?ELS11 **** FILE PS:GLOBAL.ZAP.3, 1-109 (2500) ?ELS5: EQUAL? PRSA,V?TIE-TO,V?PUT-IN,V?PUT \?ELS8 *************** **** FILE PS:GLOBAL.ZAP.1, 1-112 (2593) ?ELS11: EQUAL? PRSA,V?EXAMINE,V?SEARCH \FALSE **** FILE PS:GLOBAL.ZAP.3, 1-112 (2582) ?ELS8: EQUAL? PRSA,V?EXAMINE,V?SEARCH \FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-114 (2663) ZERO? STACK /?ELS16 **** FILE PS:GLOBAL.ZAP.3, 1-114 (2651) ZERO? STACK /?ELS11 *************** **** FILE PS:GLOBAL.ZAP.1, 1-116 (2698) JUMP ?CND14 ?ELS16: GETP HERE,P?SIZE **** FILE PS:GLOBAL.ZAP.3, 1-116 (2686) JUMP ?CND10 ?ELS11: GETP HERE,P?SIZE *************** **** FILE PS:GLOBAL.ZAP.1, 1-119 (2757) ?CND14: EQUAL? P-ADVERB,W?CAREFULLY \?CND19 **** FILE PS:GLOBAL.ZAP.3, 1-119 (2745) ?CND10: EQUAL? P-ADVERB,W?CAREFULLY \?CND12 *************** **** FILE PS:GLOBAL.ZAP.1, 1-121 (2819) ?CND19: PRINTI "(It's better to examine or search one thing at a time. It would take a long time to search a whole room or area thoroughly. A " EQUAL? P-ADVERB,W?CAREFULLY \?ELS26 **** FILE PS:GLOBAL.ZAP.3, 1-121 (2807) ?CND12: PRINTI "(It's better to examine or search one thing at a time. It would take a long time to search a whole room or area thoroughly. A " EQUAL? P-ADVERB,W?CAREFULLY \?ELS17 *************** **** FILE PS:GLOBAL.ZAP.1, 1-124 (3021) JUMP ?CND24 ?ELS26: PRINTI "brief" ?CND24: PRINTI " search would take " **** FILE PS:GLOBAL.ZAP.3, 1-124 (3009) JUMP ?CND16 ?ELS17: PRINTI "brief" ?CND16: PRINTI " search would take " *************** **** FILE PS:GLOBAL.ZAP.1, 1-130 (3206) ZERO? STACK /?ELS39 **** FILE PS:GLOBAL.ZAP.3, 1-130 (3194) ZERO? STACK /?ELS27 *************** **** FILE PS:GLOBAL.ZAP.1, 1-133 (3280) ZERO? VAL /?ELS46 **** FILE PS:GLOBAL.ZAP.3, 1-133 (3268) ZERO? VAL /?ELS32 *************** **** FILE PS:GLOBAL.ZAP.1, 1-135 (3317) EQUAL? P-ADVERB,W?CAREFULLY \?ELS54 **** FILE PS:GLOBAL.ZAP.3, 1-135 (3305) EQUAL? P-ADVERB,W?CAREFULLY \?ELS38 *************** **** FILE PS:GLOBAL.ZAP.1, 1-137 (3369) JUMP ?CND50 ?ELS54: PUSH STR?99 ?CND50: PRINT STACK **** FILE PS:GLOBAL.ZAP.3, 1-137 (3357) JUMP ?CND35 ?ELS38: PUSH STR?99 ?CND35: PRINT STACK *************** **** FILE PS:GLOBAL.ZAP.1, 1-141 (3470) ?ELS46: PRINTR "You didn't finish looking over the place." ?ELS39: SET 'P-WON,FALSE-VALUE **** FILE PS:GLOBAL.ZAP.3, 1-141 (3458) ?ELS32: PRINTR "You didn't finish looking over the place." ?ELS27: SET 'P-WON,FALSE-VALUE *************** **** FILE PS:GLOBAL.ZAP.1, 1-147 (3598) EQUAL? PRSA,V?EXAMINE \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-147 (3586) EQUAL? PRSA,V?EXAMINE \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-149 (3680) ?ELS5: EQUAL? PRSA,V?WALK-TO \?ELS9 **** FILE PS:GLOBAL.ZAP.3, 1-149 (3668) ?ELS4: EQUAL? PRSA,V?WALK-TO \?ELS7 *************** **** FILE PS:GLOBAL.ZAP.1, 1-151 (3749) ?ELS9: EQUAL? PRSA,V?SMELL \FALSE **** FILE PS:GLOBAL.ZAP.3, 1-151 (3737) ?ELS7: EQUAL? PRSA,V?SMELL \FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-153 (3805) ZERO? STACK /?ELS18 **** FILE PS:GLOBAL.ZAP.3, 1-153 (3793) ZERO? STACK /?ELS14 *************** **** FILE PS:GLOBAL.ZAP.1, 1-155 (3866) ?ELS18: CALL FRESH-AIR?,HERE **** FILE PS:GLOBAL.ZAP.3, 1-155 (3854) ?ELS14: CALL FRESH-AIR?,HERE *************** **** FILE PS:GLOBAL.ZAP.1, 1-168 (4098) EQUAL? PRSA,V?PUT-IN \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-168 (4086) EQUAL? PRSA,V?PUT-IN \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-172 (4186) ?ELS5: EQUAL? PRSA,V?FLUSH-DOWN,V?FLUSH \FALSE ZERO? IN-STATION /?ELS17 ZERO? ON-TRAIN /?ELS17 **** FILE PS:GLOBAL.ZAP.3, 1-172 (4174) ?ELS4: EQUAL? PRSA,V?FLUSH-DOWN,V?FLUSH \FALSE ZERO? IN-STATION /?ELS13 ZERO? ON-TRAIN /?ELS13 *************** **** FILE PS:GLOBAL.ZAP.1, 1-179 (4445) ?ELS17: EQUAL? PRSA,V?FLUSH-DOWN \?CND24 **** FILE PS:GLOBAL.ZAP.3, 1-179 (4433) ?ELS13: EQUAL? PRSA,V?FLUSH-DOWN \?CND17 *************** **** FILE PS:GLOBAL.ZAP.1, 1-184 (4573) ?CND24: FIRST? TOILET \?CND30 **** FILE PS:GLOBAL.ZAP.3, 1-184 (4561) ?CND17: FIRST? TOILET \?CND21 *************** **** FILE PS:GLOBAL.ZAP.1, 1-187 (4669) ?CND30: PRINTR "Whhoooossshhhhh!" **** FILE PS:GLOBAL.ZAP.3, 1-187 (4657) ?CND21: PRINTR "Whhoooossshhhhh!" *************** **** FILE PS:GLOBAL.ZAP.1, 1-191 (4752) FIRST? WHAT >X /?KLU29 ?KLU29: **** FILE PS:GLOBAL.ZAP.3, 1-191 (4740) FIRST? WHAT >X /?KLU20 ?KLU20: *************** **** FILE PS:GLOBAL.ZAP.1, 1-194 (4809) NEXT? X >N /?KLU30 ?KLU30: ZERO? N \?CND6 ZERO? TOLD? /?CND6 ZERO? TELL? /?CND6 **** FILE PS:GLOBAL.ZAP.3, 1-194 (4797) NEXT? X >N /?KLU21 ?KLU21: ZERO? N \?CND5 ZERO? TOLD? /?CND5 ZERO? TELL? /?CND5 *************** **** FILE PS:GLOBAL.ZAP.1, 1-199 (4912) ?CND6: SET 'TOLD?,TRUE-VALUE ZERO? TELL? /?CND13 **** FILE PS:GLOBAL.ZAP.3, 1-199 (4900) ?CND5: SET 'TOLD?,TRUE-VALUE ZERO? TELL? /?CND10 *************** **** FILE PS:GLOBAL.ZAP.1, 1-202 (4980) ZERO? N /?ELS21 **** FILE PS:GLOBAL.ZAP.3, 1-202 (4968) ZERO? N /?ELS15 *************** **** FILE PS:GLOBAL.ZAP.1, 1-204 (5011) JUMP ?CND13 ?ELS21: PRINTI ". " ?CND13: MOVE X,THIEF **** FILE PS:GLOBAL.ZAP.3, 1-204 (4999) JUMP ?CND10 ?ELS15: PRINTI ". " ?CND10: MOVE X,THIEF *************** **** FILE PS:GLOBAL.ZAP.1, 1-213 (5131) EQUAL? PRSA,V?CLOSE,V?OPEN \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-213 (5119) EQUAL? PRSA,V?CLOSE,V?OPEN \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-216 (5193) ?ELS5: EQUAL? PRSA,V?LAMP-ON \FALSE **** FILE PS:GLOBAL.ZAP.3, 1-216 (5181) ?ELS4: EQUAL? PRSA,V?LAMP-ON \FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-221 (5398) EQUAL? PRSA,V?CUT \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-221 (5386) EQUAL? PRSA,V?CUT \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-234 (5824) ?ELS5: EQUAL? PRSA,V?EXAMINE \?ELS14 **** FILE PS:GLOBAL.ZAP.3, 1-234 (5812) ?ELS4: EQUAL? PRSA,V?EXAMINE \?ELS11 *************** **** FILE PS:GLOBAL.ZAP.1, 1-236 (6011) ?ELS14: EQUAL? PRSA,V?TAKE /?THN19 **** FILE PS:GLOBAL.ZAP.3, 1-236 (5999) ?ELS11: EQUAL? PRSA,V?TAKE /?THN14 *************** **** FILE PS:GLOBAL.ZAP.1, 1-238 (6092) ?THN19: PRINTR "As you pull on the towel, a fresh portion appears from a slot, and the used portion starts to disappear into the dispenser." **** FILE PS:GLOBAL.ZAP.3, 1-238 (6080) ?THN14: PRINTR "As you pull on the towel, a fresh portion appears from a slot, and the used portion starts to disappear into the dispenser." *************** **** FILE PS:GLOBAL.ZAP.1, 1-242 (6267) EQUAL? PRSA,V?EXAMINE \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-242 (6255) EQUAL? PRSA,V?EXAMINE \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-244 (6440) ?ELS5: EQUAL? PRSA,V?TAKE,V?USE /?THN10 **** FILE PS:GLOBAL.ZAP.3, 1-244 (6428) ?ELS4: EQUAL? PRSA,V?TAKE,V?USE /?THN7 *************** **** FILE PS:GLOBAL.ZAP.1, 1-246 (6526) ?THN10: PRINTR "There's not enough left!" **** FILE PS:GLOBAL.ZAP.3, 1-246 (6513) ?THN7: PRINTR "There's not enough left!" *************** **** FILE PS:GLOBAL.ZAP.1, 1-256 (6698) EQUAL? PRSA,V?TAKE /?THN6 **** FILE PS:GLOBAL.ZAP.3, 1-256 (6684) EQUAL? PRSA,V?TAKE /?THN4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-258 (6771) ?THN6: PRINTR "Whatever you have in mind, it'll never work!" **** FILE PS:GLOBAL.ZAP.3, 1-258 (6757) ?THN4: PRINTR "Whatever you have in mind, it'll never work!" *************** **** FILE PS:GLOBAL.ZAP.1, 1-262 (6855) EQUAL? PRSA,V?MUNG \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-262 (6841) EQUAL? PRSA,V?MUNG \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-264 (6923) ?ELS5: EQUAL? PRSA,V?EXAMINE,V?LOOK-INSIDE \FALSE **** FILE PS:GLOBAL.ZAP.3, 1-264 (6909) ?ELS4: EQUAL? PRSA,V?EXAMINE,V?LOOK-INSIDE \FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-270 (7149) ZERO? STACK /?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-270 (7135) ZERO? STACK /?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-273 (7195) ?ELS5: EQUAL? PRSA,V?LOOK-THROUGH,V?LOOK-INSIDE \?ELS7 **** FILE PS:GLOBAL.ZAP.3, 1-273 (7181) ?ELS4: EQUAL? PRSA,V?LOOK-THROUGH,V?LOOK-INSIDE \?ELS5 *************** **** FILE PS:GLOBAL.ZAP.1, 1-275 (7279) EQUAL? WINNER,PLAYER \?ELS10 GRTR? POCKET-CHANGE,0 \?ELS10 **** FILE PS:GLOBAL.ZAP.3, 1-275 (7265) EQUAL? WINNER,PLAYER \?ELS7 GRTR? POCKET-CHANGE,0 \?ELS7 *************** **** FILE PS:GLOBAL.ZAP.1, 1-278 (7373) ZERO? X /?ELS15 **** FILE PS:GLOBAL.ZAP.3, 1-278 (7357) ZERO? X /?ELS10 *************** **** FILE PS:GLOBAL.ZAP.1, 1-280 (7418) ?ELS15: PRINTR "You have some money in your pocket." ?ELS10: ZERO? X \TRUE **** FILE PS:GLOBAL.ZAP.3, 1-280 (7402) ?ELS10: PRINTR "You have some money in your pocket." ?ELS7: ZERO? X \TRUE *************** **** FILE PS:GLOBAL.ZAP.1, 1-283 (7528) ?ELS7: EQUAL? PRSA,V?EMPTY \?ELS28 **** FILE PS:GLOBAL.ZAP.3, 1-283 (7511) ?ELS5: EQUAL? PRSA,V?EMPTY \?ELS18 *************** **** FILE PS:GLOBAL.ZAP.1, 1-289 (7671) ?ELS28: EQUAL? PRSA,V?CLOSE,V?OPEN \?ELS37 **** FILE PS:GLOBAL.ZAP.3, 1-289 (7654) ?ELS18: EQUAL? PRSA,V?CLOSE,V?OPEN \?ELS25 *************** **** FILE PS:GLOBAL.ZAP.1, 1-291 (7753) ?ELS37: EQUAL? PRSA,V?PUT-IN \FALSE **** FILE PS:GLOBAL.ZAP.3, 1-291 (7736) ?ELS25: EQUAL? PRSA,V?PUT-IN \FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-293 (7818) EQUAL? PRSO,GLOBAL-MONEY /?THN49 EQUAL? PRSO,INTNUM \?ELS48 ZERO? P-DOLLAR-FLAG /?ELS48 ?THN49: PRINTR "It's already there." ?ELS48: IN? CUSTOMS-AGENT,HERE \FALSE **** FILE PS:GLOBAL.ZAP.3, 1-293 (7801) EQUAL? PRSO,GLOBAL-MONEY /?THN33 EQUAL? PRSO,INTNUM \?ELS34 ZERO? P-DOLLAR-FLAG /?ELS34 ?THN33: PRINTR "It's already there." ?ELS34: IN? CUSTOMS-AGENT,HERE \FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-307 (8165) EQUAL? PRSA,V?FIND \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-307 (8148) EQUAL? PRSA,V?FIND \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-309 (8224) ?ELS5: CALL REMOTE-VERB? **** FILE PS:GLOBAL.ZAP.3, 1-309 (8207) ?ELS4: CALL REMOTE-VERB? *************** **** FILE PS:GLOBAL.ZAP.1, 1-311 (8271) EQUAL? PRSA,V?PUT-IN,V?PUT \?ELS11 EQUAL? PRSO,GLOBAL-MONEY \?ELS11 **** FILE PS:GLOBAL.ZAP.3, 1-311 (8254) EQUAL? PRSA,V?PUT-IN,V?PUT \?ELS8 EQUAL? PRSO,GLOBAL-MONEY \?ELS8 *************** **** FILE PS:GLOBAL.ZAP.1, 1-315 (8374) ?ELS11: GRTR? POCKET-CHANGE,0 \?ELS15 EQUAL? PRSA,V?EXAMINE,V?COUNT \?ELS20 **** FILE PS:GLOBAL.ZAP.3, 1-315 (8355) ?ELS8: GRTR? POCKET-CHANGE,0 \?ELS10 EQUAL? PRSA,V?EXAMINE,V?COUNT \?ELS14 *************** **** FILE PS:GLOBAL.ZAP.1, 1-321 (8543) ?ELS20: EQUAL? PRSA,V?GIVE \?ELS26 **** FILE PS:GLOBAL.ZAP.3, 1-321 (8523) ?ELS14: EQUAL? PRSA,V?GIVE \?ELS19 *************** **** FILE PS:GLOBAL.ZAP.1, 1-324 (8656) ?ELS26: EQUAL? PRSA,V?TAKE \?ELS30 ZERO? PRSI /?ELS30 **** FILE PS:GLOBAL.ZAP.3, 1-324 (8636) ?ELS19: EQUAL? PRSA,V?TAKE \?ELS22 ZERO? PRSI /?ELS22 *************** **** FILE PS:GLOBAL.ZAP.1, 1-329 (8788) ?ELS30: CALL TELL-FLASHING-CASH **** FILE PS:GLOBAL.ZAP.3, 1-329 (8768) ?ELS22: CALL TELL-FLASHING-CASH *************** **** FILE PS:GLOBAL.ZAP.1, 1-331 (8831) ?ELS15: CALL NOT-HERE,GLOBAL-MONEY **** FILE PS:GLOBAL.ZAP.3, 1-331 (8811) ?ELS10: CALL NOT-HERE,GLOBAL-MONEY *************** **** FILE PS:GLOBAL.ZAP.1, 1-344 (9016) EQUAL? PRSA,V?BUY,V?ASK-FOR \?ELS5 EQUAL? P-ADJ,W?FIRST \?ELS10 **** FILE PS:GLOBAL.ZAP.3, 1-344 (8996) EQUAL? PRSA,V?BUY,V?ASK-FOR \?ELS4 EQUAL? P-ADJ,W?FIRST \?ELS8 *************** **** FILE PS:GLOBAL.ZAP.1, 1-348 (9125) ?ELS10: CALL DO-INSTEAD-OF,FOOD-2,ITEMS **** FILE PS:GLOBAL.ZAP.3, 1-348 (9104) ?ELS8: CALL DO-INSTEAD-OF,FOOD-2,ITEMS *************** **** FILE PS:GLOBAL.ZAP.1, 1-350 (9175) ?ELS5: EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE **** FILE PS:GLOBAL.ZAP.3, 1-350 (9153) ?ELS4: EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-358 (9306) EQUAL? PRSA,V?SMELL,V?BUY,V?ASK-FOR \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-358 (9284) EQUAL? PRSA,V?SMELL,V?BUY,V?ASK-FOR \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-361 (9398) ?ELS5: CALL REMOTE-VERB? **** FILE PS:GLOBAL.ZAP.3, 1-361 (9376) ?ELS4: CALL REMOTE-VERB? *************** **** FILE PS:GLOBAL.ZAP.1, 1-378 (9657) EQUAL? PRSA,V?DRINK,V?SMELL,V?EAT \?ELS5 EQUAL? PRSA,V?SMELL /?THN11 IN? PRSO,GLOBAL-OBJECTS /?ELS10 ?THN11: PRINTR "It's pungent but not very flavorful." ?ELS10: PRINTR "That wouldn't be very polite." ?ELS5: EQUAL? PRSA,V?PUT-IN,V?PUT,V?POUR \?ELS20 **** FILE PS:GLOBAL.ZAP.3, 1-378 (9635) EQUAL? PRSA,V?DRINK,V?SMELL,V?EAT \?ELS4 EQUAL? PRSA,V?SMELL /?THN8 IN? PRSO,GLOBAL-OBJECTS /?ELS9 ?THN8: PRINTR "It's pungent but not very flavorful." ?ELS9: PRINTR "That wouldn't be very polite." ?ELS4: EQUAL? PRSA,V?PUT-IN,V?PUT,V?POUR \?ELS14 *************** **** FILE PS:GLOBAL.ZAP.1, 1-385 (9957) ?ELS20: EQUAL? PRSA,V?BUY,V?ASK-FOR \FALSE ZERO? ON-TRAIN /?ELS27 **** FILE PS:GLOBAL.ZAP.3, 1-385 (9931) ?ELS14: EQUAL? PRSA,V?BUY,V?ASK-FOR \FALSE ZERO? ON-TRAIN /?ELS19 *************** **** FILE PS:GLOBAL.ZAP.1, 1-388 (10044) JUMP ?CND25 ?ELS27: SET 'PER,WAITRESS ?CND25: ZERO? DRINK? /?ELS33 **** FILE PS:GLOBAL.ZAP.3, 1-388 (10018) JUMP ?CND18 ?ELS19: SET 'PER,WAITRESS ?CND18: ZERO? DRINK? /?ELS21 *************** **** FILE PS:GLOBAL.ZAP.1, 1-392 (10135) JUMP ?CND31 ?ELS33: SET 'OBJ,FOOD ?CND31: ZERO? DRINK? /?ELS39 FSET? WINE-RED,TOUCHBIT /?THN44 FSET? WINE-WHITE,TOUCHBIT \?CND37 ?THN44: PRINTR "You've bought enough drink already." ?ELS39: FSET? FOOD,TOUCHBIT \?CND37 **** FILE PS:GLOBAL.ZAP.3, 1-392 (10109) JUMP ?CND20 ?ELS21: SET 'OBJ,FOOD ?CND20: ZERO? DRINK? /?ELS23 FSET? WINE-RED,TOUCHBIT /?THN25 FSET? WINE-WHITE,TOUCHBIT \?CND22 ?THN25: PRINTR "You've bought enough drink already." ?ELS23: FSET? FOOD,TOUCHBIT \?CND22 *************** **** FILE PS:GLOBAL.ZAP.1, 1-400 (10409) ?CND37: ZERO? POCKET-CHANGE \?ELS56 **** FILE PS:GLOBAL.ZAP.3, 1-400 (10383) ?CND22: ZERO? POCKET-CHANGE \?ELS35 *************** **** FILE PS:GLOBAL.ZAP.1, 1-402 (10486) ?ELS56: IN? PER,HERE /?ELS60 **** FILE PS:GLOBAL.ZAP.3, 1-402 (10460) ?ELS35: IN? PER,HERE /?ELS38 *************** **** FILE PS:GLOBAL.ZAP.1, 1-406 (10583) ?ELS60: DEC 'POCKET-CHANGE EQUAL? OBJ,WINE-RED,WINE-WHITE \?CND65 **** FILE PS:GLOBAL.ZAP.3, 1-406 (10557) ?ELS38: DEC 'POCKET-CHANGE EQUAL? OBJ,WINE-RED,WINE-WHITE \?CND41 *************** **** FILE PS:GLOBAL.ZAP.1, 1-412 (10728) ?CND65: CALL TABLE?,HERE **** FILE PS:GLOBAL.ZAP.3, 1-412 (10702) ?CND41: CALL TABLE?,HERE *************** **** FILE PS:GLOBAL.ZAP.1, 1-414 (10768) ZERO? ?ORTMP /?ORP71 **** FILE PS:GLOBAL.ZAP.3, 1-414 (10742) ZERO? ?ORTMP /?ORP45 *************** **** FILE PS:GLOBAL.ZAP.1, 1-416 (10805) JUMP ?THN68 ?ORP71: PUSH HERE ?THN68: MOVE OBJ,STACK **** FILE PS:GLOBAL.ZAP.3, 1-416 (10779) JUMP ?THN43 ?ORP45: PUSH HERE ?THN43: MOVE OBJ,STACK *************** **** FILE PS:GLOBAL.ZAP.1, 1-434 (11164) EQUAL? PRSA,V?EMPTY,V?THROW-THROUGH,V?THROW-AT \?ELS5 IN? WINE-RED,CUP \?CND6 **** FILE PS:GLOBAL.ZAP.3, 1-434 (11138) EQUAL? PRSA,V?EMPTY,V?THROW-THROUGH,V?THROW-AT \?ELS4 IN? WINE-RED,CUP \?CND5 *************** **** FILE PS:GLOBAL.ZAP.1, 1-437 (11277) ?CND6: IN? WINE-WHITE,CUP \?CND9 **** FILE PS:GLOBAL.ZAP.3, 1-437 (11251) ?CND5: IN? WINE-WHITE,CUP \?CND7 *************** **** FILE PS:GLOBAL.ZAP.1, 1-439 (11344) ?CND9: CALL ROB,CUP,HERE **** FILE PS:GLOBAL.ZAP.3, 1-439 (11318) ?CND7: CALL ROB,CUP,HERE *************** **** FILE PS:GLOBAL.ZAP.1, 1-442 (11416) ?ELS5: EQUAL? PRSA,V?PUT-IN \FALSE **** FILE PS:GLOBAL.ZAP.3, 1-442 (11390) ?ELS4: EQUAL? PRSA,V?PUT-IN \FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-451 (11617) EQUAL? PRSA,V?PUT \?ELS9 EQUAL? PRSI,TOWEL-WAITER,NAPKIN,SCARF \?ELS9 EQUAL? PRSO,WINE-RED \?ELS9 **** FILE PS:GLOBAL.ZAP.3, 1-451 (11591) EQUAL? PRSA,V?PUT \?ELS5 EQUAL? PRSI,TOWEL-WAITER,NAPKIN,SCARF \?ELS5 EQUAL? PRSO,WINE-RED \?ELS5 *************** **** FILE PS:GLOBAL.ZAP.1, 1-455 (11737) ZERO? OBJ \?THN6 ?ELS9: EQUAL? PRSA,V?PUT-IN \?ELS5 EQUAL? PRSO,TOWEL-WAITER,NAPKIN,SCARF \?ELS5 EQUAL? PRSI,WINE-RED \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-455 (11711) ZERO? 1 \?THN4 ?ELS5: EQUAL? PRSA,V?PUT-IN \?ELS6 EQUAL? PRSO,TOWEL-WAITER,NAPKIN,SCARF \?ELS6 EQUAL? PRSI,WINE-RED \?ELS6 *************** **** FILE PS:GLOBAL.ZAP.1, 1-460 (11885) ZERO? OBJ /?ELS5 ?THN6: LOC OBJ **** FILE PS:GLOBAL.ZAP.3, 1-460 (11857) ZERO? 1 /?ELS6 ?THN4: LOC OBJ *************** **** FILE PS:GLOBAL.ZAP.1, 1-471 (12108) ?ELS5: CALL FOOD-F,TRUE-VALUE **** FILE PS:GLOBAL.ZAP.3, 1-471 (12078) ?ELS6: CALL FOOD-F,TRUE-VALUE *************** **** FILE PS:GLOBAL.ZAP.1, 1-476 (12176) ZERO? ON-TRAIN /?ELS3 **** FILE PS:GLOBAL.ZAP.3, 1-476 (12146) ZERO? ON-TRAIN /?ELS2 *************** **** FILE PS:GLOBAL.ZAP.1, 1-479 (12231) ?ELS3: SET 'PER,WAITRESS **** FILE PS:GLOBAL.ZAP.3, 1-479 (12201) ?ELS2: SET 'PER,WAITRESS *************** **** FILE PS:GLOBAL.ZAP.1, 1-490 (12547) EQUAL? RM,CAFE \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-490 (12517) EQUAL? RM,CAFE \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-492 (12593) ?ELS5: EQUAL? RM,BOOTH-1 \?ELS7 **** FILE PS:GLOBAL.ZAP.3, 1-492 (12563) ?ELS4: EQUAL? RM,BOOTH-1 \?ELS5 *************** **** FILE PS:GLOBAL.ZAP.1, 1-494 (12643) ?ELS7: EQUAL? RM,BOOTH-2 \?ELS9 **** FILE PS:GLOBAL.ZAP.3, 1-494 (12613) ?ELS5: EQUAL? RM,BOOTH-2 \?ELS6 *************** **** FILE PS:GLOBAL.ZAP.1, 1-496 (12693) ?ELS9: EQUAL? RM,BOOTH-3 \FALSE **** FILE PS:GLOBAL.ZAP.3, 1-496 (12663) ?ELS6: EQUAL? RM,BOOTH-3 \FALSE *************** **** FILE PS:GLOBAL.ZAP.1, 1-506 (12993) EQUAL? PRSA,V?LEARN,V?ANALYZE \?ELS5 **** FILE PS:GLOBAL.ZAP.3, 1-506 (12963) EQUAL? PRSA,V?LEARN,V?ANALYZE \?ELS4 *************** **** FILE PS:GLOBAL.ZAP.1, 1-508 (13201) ?ELS5: EQUAL? PRSA,V?MAKE \FALSE ZERO? PRSI /?ELS12 FSET? PRSI,PERSONBIT \?ELS12 **** FILE PS:GLOBAL.ZAP.3, 1-508 (13171) ?ELS4: EQUAL? PRSA,V?MAKE \FALSE ZERO? PRSI /?ELS9 FSET? PRSI,PERSONBIT \?ELS9 *************** **** FILE PS:GLOBAL.ZAP.1, 1-512 (13301) JUMP ?CND10 ?ELS12: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS16 **** FILE PS:GLOBAL.ZAP.3, 1-512 (13269) JUMP ?CND8 ?ELS9: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS11 *************** **** FILE PS:GLOBAL.ZAP.1, 1-516 (13384) JUMP ?CND10 ?ELS16: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P ZERO? P \?CND10 **** FILE PS:GLOBAL.ZAP.3, 1-516 (13350) JUMP ?CND8 ?ELS11: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P ZERO? P \?CND8 *************** **** FILE PS:GLOBAL.ZAP.1, 1-520 (13517) ?CND10: CALL START-SENTENCE,P **** FILE PS:GLOBAL.ZAP.3, 1-520 (13481) ?CND8: CALL START-SENTENCE,P ***************