;COMPARISON OF PS:MACROS.ZAP.1 AND PS:MACROS.ZAP.3 ;OPTIONS ARE /1 **** FILE PS:MACROS.ZAP.1, 1-8 (112) ?CND1: EQUAL? OBJ,POCKET \?CND6 **** FILE PS:MACROS.ZAP.3, 1-8 (112) ?CND1: EQUAL? OBJ,POCKET \?CND5 *************** **** FILE PS:MACROS.ZAP.1, 1-11 (177) ?CND6: EQUAL? OBJ,TICKET \?CND11 **** FILE PS:MACROS.ZAP.3, 1-11 (177) ?CND5: EQUAL? OBJ,TICKET \?CND9 *************** **** FILE PS:MACROS.ZAP.1, 1-14 (243) ?CND11: EQUAL? OBJ,PASSPORT \?CND16 **** FILE PS:MACROS.ZAP.3, 1-14 (242) ?CND9: EQUAL? OBJ,PASSPORT \?CND13 *************** **** FILE PS:MACROS.ZAP.1, 1-17 (314) ?CND16: FSET? OBJ,NARTICLEBIT /?CND21 FSET? OBJ,SEENBIT /?THN27 FSET? OBJ,PERSONBIT /?ELS26 ?THN27: PRINTI "The " JUMP ?CND21 ?ELS26: FSET? OBJ,VOWELBIT \?ELS32 **** FILE PS:MACROS.ZAP.3, 1-17 (312) ?CND13: FSET? OBJ,NARTICLEBIT /?CND17 FSET? OBJ,SEENBIT /?THN20 FSET? OBJ,PERSONBIT /?ELS21 ?THN20: PRINTI "The " JUMP ?CND17 ?ELS21: FSET? OBJ,VOWELBIT \?ELS24 *************** **** FILE PS:MACROS.ZAP.1, 1-24 (499) JUMP ?CND21 ?ELS32: PRINTI "A " ?CND21: FSET? OBJ,PERSONBIT \?CND39 **** FILE PS:MACROS.ZAP.3, 1-24 (497) JUMP ?CND17 ?ELS24: PRINTI "A " ?CND17: FSET? OBJ,PERSONBIT \?CND29 *************** **** FILE PS:MACROS.ZAP.1, 1-28 (590) ?CND39: PRINTD OBJ **** FILE PS:MACROS.ZAP.3, 1-28 (588) ?CND29: PRINTD OBJ *************** **** FILE PS:MACROS.ZAP.1, 1-41 (825) EQUAL? O,TURN \?ELS5 LESS? 1,P-NUMBER \?ELS5 **** FILE PS:MACROS.ZAP.3, 1-41 (823) EQUAL? O,TURN \?ELS4 LESS? 1,P-NUMBER \?ELS4 *************** **** FILE PS:MACROS.ZAP.1, 1-47 (934) ?ELS5: CALL THE?,O **** FILE PS:MACROS.ZAP.3, 1-47 (932) ?ELS4: CALL THE?,O *************** **** FILE PS:MACROS.ZAP.1, 1-55 (1040) FSET? OBJ,SEENBIT /?THN7 FSET? OBJ,PERSONBIT /?ELS6 ?THN7: PRINTI " the" **** FILE PS:MACROS.ZAP.3, 1-55 (1038) FSET? OBJ,SEENBIT /?THN4 FSET? OBJ,PERSONBIT /?ELS5 ?THN4: PRINTI " the" *************** **** FILE PS:MACROS.ZAP.1, 1-59 (1131) ?ELS6: FSET? OBJ,VOWELBIT \?ELS12 **** FILE PS:MACROS.ZAP.3, 1-59 (1129) ?ELS5: FSET? OBJ,VOWELBIT \?ELS8 *************** **** FILE PS:MACROS.ZAP.1, 1-62 (1194) ?ELS12: PRINTI " a" **** FILE PS:MACROS.ZAP.3, 1-62 (1191) ?ELS8: PRINTI " a" *************** **** FILE PS:MACROS.ZAP.1, 1-69 (1300) EQUAL? O,INTNUM \?ELS3 ZERO? P-DOLLAR-FLAG /?ELS3 **** FILE PS:MACROS.ZAP.3, 1-69 (1296) EQUAL? O,INTNUM \?ELS2 ZERO? P-DOLLAR-FLAG /?ELS2 *************** **** FILE PS:MACROS.ZAP.1, 1-73 (1380) ?ELS3: FSET? O,NARTICLEBIT \?ELS9 **** FILE PS:MACROS.ZAP.3, 1-73 (1376) ?ELS2: FSET? O,NARTICLEBIT \?ELS7 *************** **** FILE PS:MACROS.ZAP.1, 1-75 (1428) ?ELS9: FSET? O,VOWELBIT \?ELS13 **** FILE PS:MACROS.ZAP.3, 1-75 (1424) ?ELS7: FSET? O,VOWELBIT \?ELS8 *************** **** FILE PS:MACROS.ZAP.1, 1-78 (1489) ?ELS13: PRINTI "a " **** FILE PS:MACROS.ZAP.3, 1-78 (1484) ?ELS8: PRINTI "a " *************** **** FILE PS:MACROS.ZAP.1, 1-84 (1576) FSET? OBJ,PERSONBIT /?ELS3 ZERO? CAP /?ELS6 **** FILE PS:MACROS.ZAP.3, 1-84 (1570) FSET? OBJ,PERSONBIT /?ELS2 ZERO? CAP /?ELS4 *************** **** FILE PS:MACROS.ZAP.1, 1-88 (1651) ?ELS6: PRINTI "it" **** FILE PS:MACROS.ZAP.3, 1-88 (1645) ?ELS4: PRINTI "it" *************** **** FILE PS:MACROS.ZAP.1, 1-90 (1684) ?ELS3: EQUAL? OBJ,PLAYER \?ELS15 ZERO? CAP /?ELS18 **** FILE PS:MACROS.ZAP.3, 1-90 (1678) ?ELS2: EQUAL? OBJ,PLAYER \?ELS9 ZERO? CAP /?ELS11 *************** **** FILE PS:MACROS.ZAP.1, 1-94 (1766) ?ELS18: PRINTI "you" **** FILE PS:MACROS.ZAP.3, 1-94 (1759) ?ELS11: PRINTI "you" *************** **** FILE PS:MACROS.ZAP.1, 1-96 (1801) ?ELS15: FSET? OBJ,FEMALE \?ELS27 ZERO? CAP /?ELS30 **** FILE PS:MACROS.ZAP.3, 1-96 (1794) ?ELS9: FSET? OBJ,FEMALE \?ELS16 ZERO? CAP /?ELS18 *************** **** FILE PS:MACROS.ZAP.1, 1-100 (1883) ?ELS30: PRINTI "she" **** FILE PS:MACROS.ZAP.3, 1-100 (1875) ?ELS18: PRINTI "she" *************** **** FILE PS:MACROS.ZAP.1, 1-102 (1918) ?ELS27: CALL ZMEMQ,OBJ,COUPLE-TABLE ZERO? STACK /?ELS39 ZERO? CAP /?ELS42 **** FILE PS:MACROS.ZAP.3, 1-102 (1910) ?ELS16: CALL ZMEMQ,OBJ,COUPLE-TABLE ZERO? STACK /?ELS23 ZERO? CAP /?ELS25 *************** **** FILE PS:MACROS.ZAP.1, 1-107 (2026) ?ELS42: PRINTI "they" **** FILE PS:MACROS.ZAP.3, 1-107 (2018) ?ELS25: PRINTI "they" *************** **** FILE PS:MACROS.ZAP.1, 1-109 (2062) ?ELS39: ZERO? CAP /?ELS54 **** FILE PS:MACROS.ZAP.3, 1-109 (2054) ?ELS23: ZERO? CAP /?ELS31 *************** **** FILE PS:MACROS.ZAP.1, 1-112 (2116) ?ELS54: PRINTI "he" **** FILE PS:MACROS.ZAP.3, 1-112 (2108) ?ELS31: PRINTI "he" *************** **** FILE PS:MACROS.ZAP.1, 1-115 (2175) EQUAL? VERB,STR?1 \?ELS72 EQUAL? OBJ,PLAYER /?THN78 **** FILE PS:MACROS.ZAP.3, 1-115 (2167) EQUAL? VERB,STR?1 \?ELS43 EQUAL? OBJ,PLAYER /?THN47 *************** **** FILE PS:MACROS.ZAP.1, 1-118 (2261) ZERO? STACK /?ELS77 ?THN78: PRINTI "are" **** FILE PS:MACROS.ZAP.3, 1-118 (2253) ZERO? STACK /?ELS48 ?THN47: PRINTI "are" *************** **** FILE PS:MACROS.ZAP.1, 1-121 (2314) ?ELS77: PRINTI "is" **** FILE PS:MACROS.ZAP.3, 1-121 (2306) ?ELS48: PRINTI "is" *************** **** FILE PS:MACROS.ZAP.1, 1-123 (2344) ?ELS72: PRINT VERB EQUAL? OBJ,PLAYER /FALSE **** FILE PS:MACROS.ZAP.3, 1-123 (2336) ?ELS43: PRINT VERB EQUAL? OBJ,PLAYER /?PRD57 *************** **** FILE PS:MACROS.ZAP.1, 1-126 (2421) ZERO? STACK \FALSE EQUAL? VERB,STR?2,STR?3 \?CND97 **** FILE PS:MACROS.ZAP.3, 1-126 (2414) ZERO? STACK \?PRD57 EQUAL? VERB,STR?2,STR?3 \?CND60 *************** **** FILE PS:MACROS.ZAP.1, 1-129 (2489) ?CND97: PRINTI "s" **** FILE PS:MACROS.ZAP.3, 1-129 (2483) ?CND60: PRINTI "s" *************** **** FILE PS:MACROS.ZAP.1, 1-133 (2522) **** FILE PS:MACROS.ZAP.3, 1-131 (2512) ?PRD57: PUSH 0 RSTACK *************** **** FILE PS:MACROS.ZAP.1, 1-134 (2563) FSET? OBJ,PERSONBIT /?ELS3 ZERO? CAP /?ELS6 **** FILE PS:MACROS.ZAP.3, 1-136 (2583) FSET? OBJ,PERSONBIT /?ELS2 ZERO? CAP /?ELS4 *************** **** FILE PS:MACROS.ZAP.1, 1-137 (2625) JUMP ?CND4 ?ELS6: PRINTI "it" ?CND4: ZERO? POSSESS? /TRUE **** FILE PS:MACROS.ZAP.3, 1-139 (2645) JUMP ?CND3 ?ELS4: PRINTI "it" ?CND3: ZERO? POSSESS? /TRUE *************** **** FILE PS:MACROS.ZAP.1, 1-142 (2709) ?ELS3: EQUAL? OBJ,PLAYER \?ELS21 ZERO? CAP /?ELS24 **** FILE PS:MACROS.ZAP.3, 1-144 (2729) ?ELS2: EQUAL? OBJ,PLAYER \?ELS13 ZERO? CAP /?ELS15 *************** **** FILE PS:MACROS.ZAP.1, 1-145 (2778) JUMP ?CND22 ?ELS24: PRINTI "you" ?CND22: ZERO? POSSESS? /TRUE **** FILE PS:MACROS.ZAP.3, 1-147 (2798) JUMP ?CND14 ?ELS15: PRINTI "you" ?CND14: ZERO? POSSESS? /TRUE *************** **** FILE PS:MACROS.ZAP.1, 1-150 (2866) ?ELS21: CALL ZMEMQ,OBJ,COUPLE-TABLE ZERO? STACK /?ELS39 ZERO? POSSESS? /?ELS42 ZERO? CAP /?ELS46 **** FILE PS:MACROS.ZAP.3, 1-152 (2886) ?ELS13: CALL ZMEMQ,OBJ,COUPLE-TABLE ZERO? STACK /?ELS24 ZERO? POSSESS? /?ELS26 ZERO? CAP /?ELS28 *************** **** FILE PS:MACROS.ZAP.1, 1-156 (2996) ?ELS46: PRINTI "their" **** FILE PS:MACROS.ZAP.3, 1-158 (3016) ?ELS28: PRINTI "their" *************** **** FILE PS:MACROS.ZAP.1, 1-158 (3029) ?ELS42: ZERO? CAP /?ELS58 **** FILE PS:MACROS.ZAP.3, 1-160 (3049) ?ELS26: ZERO? CAP /?ELS34 *************** **** FILE PS:MACROS.ZAP.1, 1-161 (3081) ?ELS58: PRINTI "them" **** FILE PS:MACROS.ZAP.3, 1-163 (3101) ?ELS34: PRINTI "them" *************** **** FILE PS:MACROS.ZAP.1, 1-163 (3113) ?ELS39: FSET? OBJ,FEMALE \?ELS67 ZERO? CAP /?ELS70 **** FILE PS:MACROS.ZAP.3, 1-165 (3133) ?ELS24: FSET? OBJ,FEMALE \?ELS39 ZERO? CAP /?ELS41 *************** **** FILE PS:MACROS.ZAP.1, 1-167 (3191) ?ELS70: PRINTI "her" **** FILE PS:MACROS.ZAP.3, 1-169 (3211) ?ELS41: PRINTI "her" *************** **** FILE PS:MACROS.ZAP.1, 1-169 (3222) ?ELS67: ZERO? POSSESS? /?ELS79 ZERO? CAP /?ELS83 **** FILE PS:MACROS.ZAP.3, 1-171 (3242) ?ELS39: ZERO? POSSESS? /?ELS46 ZERO? CAP /?ELS48 *************** **** FILE PS:MACROS.ZAP.1, 1-173 (3298) ?ELS83: PRINTI "his" **** FILE PS:MACROS.ZAP.3, 1-175 (3318) ?ELS48: PRINTI "his" *************** **** FILE PS:MACROS.ZAP.1, 1-175 (3329) ?ELS79: ZERO? CAP /?ELS95 **** FILE PS:MACROS.ZAP.3, 1-177 (3349) ?ELS46: ZERO? CAP /?ELS54 *************** **** FILE PS:MACROS.ZAP.1, 1-178 (3380) ?ELS95: PRINTI "him" **** FILE PS:MACROS.ZAP.3, 1-180 (3400) ?ELS54: PRINTI "him" *************** **** FILE PS:MACROS.ZAP.1, 1-189 (3567) ZERO? THIS /?ELS3 ZERO? CNT \?ELS3 **** FILE PS:MACROS.ZAP.3, 1-191 (3587) ZERO? THIS /?ELS2 ZERO? CNT \?ELS2 *************** **** FILE PS:MACROS.ZAP.1, 1-193 (3635) ?ELS3: SUB L,CNT **** FILE PS:MACROS.ZAP.3, 1-195 (3655) ?ELS2: SUB L,CNT *************** **** FILE PS:MACROS.ZAP.1, 1-200 (3765) EQUAL? CNT,L \?CND8 **** FILE PS:MACROS.ZAP.3, 1-202 (3785) EQUAL? CNT,L \?CND4 *************** **** FILE PS:MACROS.ZAP.1, 1-202 (3800) ?CND8: PUT FROB,0,CNT **** FILE PS:MACROS.ZAP.3, 1-204 (3820) ?CND4: PUT FROB,0,CNT ***************