;COMPARISON OF PS:PEOPLE.ZAP.1 AND PS:PEOPLE.ZAP.3 ;OPTIONS ARE /1 **** FILE PS:PEOPLE.ZAP.1, 1-4 (27) ZERO? TICKETS-PUNCHED? /?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-4 (27) ZERO? TICKETS-PUNCHED? /?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-6 (88) ?ELS5: IN? CONDUCTOR,HERE \FALSE **** FILE PS:PEOPLE.ZAP.3, 1-6 (88) ?ELS4: IN? CONDUCTOR,HERE \FALSE *************** **** FILE PS:PEOPLE.ZAP.1, 1-16 (296) EQUAL? PRSA,V?GOODBYE,V?HELLO \?ELS9 **** FILE PS:PEOPLE.ZAP.3, 1-16 (296) EQUAL? PRSA,V?GOODBYE,V?HELLO \?ELS6 *************** **** FILE PS:PEOPLE.ZAP.1, 1-18 (350) JUMP ?CND4 ?ELS9: EQUAL? PRSA,V?SEARCH,V?EXAMINE \?CND4 **** FILE PS:PEOPLE.ZAP.3, 1-18 (350) JUMP ?CND3 ?ELS6: EQUAL? PRSA,V?SEARCH,V?EXAMINE \?CND3 *************** **** FILE PS:PEOPLE.ZAP.1, 1-22 (445) ?CND4: ?CND1: ZERO? NOW-LURCHING /?CND14 EQUAL? TOLD-LURCHING,MOVES /?CND14 EQUAL? PRSA,V?RESTORE,V?SAVE /?THN19 **** FILE PS:PEOPLE.ZAP.3, 1-22 (445) ?CND3: ?CND1: ZERO? NOW-LURCHING /?CND8 EQUAL? TOLD-LURCHING,MOVES /?CND8 EQUAL? PRSA,V?RESTORE,V?SAVE /?THN10 *************** **** FILE PS:PEOPLE.ZAP.1, 1-27 (583) ZERO? STACK \?CND14 ?THN19: ZERO? TRAIN-MOVING /?CND14 **** FILE PS:PEOPLE.ZAP.3, 1-27 (581) ZERO? STACK \?CND8 ?THN10: ZERO? TRAIN-MOVING /?CND8 *************** **** FILE PS:PEOPLE.ZAP.1, 1-32 (712) ?CND14: CALL EXIT-VERB? >L ZERO? L /?CND23 **** FILE PS:PEOPLE.ZAP.3, 1-32 (708) ?CND8: CALL EXIT-VERB? >L ZERO? L /?CND14 *************** **** FILE PS:PEOPLE.ZAP.1, 1-35 (787) ZERO? L /?CND23 **** FILE PS:PEOPLE.ZAP.3, 1-35 (782) ZERO? L /?CND14 *************** **** FILE PS:PEOPLE.ZAP.1, 1-38 (888) ?CND23: CALL SPEAKING-VERB? ZERO? STACK /?ELS32 **** FILE PS:PEOPLE.ZAP.3, 1-38 (883) ?CND14: CALL SPEAKING-VERB? ZERO? STACK /?ELS20 *************** **** FILE PS:PEOPLE.ZAP.1, 1-41 (958) ZERO? STACK /?ELS32 **** FILE PS:PEOPLE.ZAP.3, 1-41 (953) ZERO? STACK /?ELS20 *************** **** FILE PS:PEOPLE.ZAP.1, 1-44 (1064) ?ELS32: CALL PREVENTS-YOU? ZERO? STACK /?ELS38 **** FILE PS:PEOPLE.ZAP.3, 1-44 (1059) ?ELS20: CALL PREVENTS-YOU? ZERO? STACK /?ELS24 *************** **** FILE PS:PEOPLE.ZAP.1, 1-50 (1208) ?ELS38: ZERO? PLAYER-SEATED \?ELS44 **** FILE PS:PEOPLE.ZAP.3, 1-50 (1203) ?ELS24: ZERO? PLAYER-SEATED \?ELS29 *************** **** FILE PS:PEOPLE.ZAP.1, 1-52 (1274) ?ELS44: EQUAL? PRSO,FALSE-VALUE,ROOMS \?ELS48 **** FILE PS:PEOPLE.ZAP.3, 1-52 (1269) ?ELS29: EQUAL? PRSO,FALSE-VALUE,ROOMS \?ELS31 *************** **** FILE PS:PEOPLE.ZAP.1, 1-61 (1549) ?ELS48: CALL SPEAKING-VERB? **** FILE PS:PEOPLE.ZAP.3, 1-61 (1544) ?ELS31: CALL SPEAKING-VERB? *************** **** FILE PS:PEOPLE.ZAP.1, 1-66 (1689) ZERO? P-WALK-DIR /?ELS63 **** FILE PS:PEOPLE.ZAP.3, 1-66 (1684) ZERO? P-WALK-DIR /?ELS40 *************** **** FILE PS:PEOPLE.ZAP.1, 1-69 (1750) ?ELS63: EQUAL? PRSA,V?WALK-TO \?ELS66 **** FILE PS:PEOPLE.ZAP.3, 1-69 (1745) ?ELS40: EQUAL? PRSA,V?WALK-TO \?ELS41 *************** **** FILE PS:PEOPLE.ZAP.1, 1-72 (1823) ?ELS66: CALL HELD?,PRSO **** FILE PS:PEOPLE.ZAP.3, 1-72 (1818) ?ELS41: CALL HELD?,PRSO *************** **** FILE PS:PEOPLE.ZAP.1, 1-79 (1987) EQUAL? PRSA,V?EXAMINE \?ELS74 **** FILE PS:PEOPLE.ZAP.3, 1-79 (1982) EQUAL? PRSA,V?EXAMINE \?ELS45 *************** **** FILE PS:PEOPLE.ZAP.1, 1-81 (2056) ?ELS74: CALL HELD?,PRSO,PLAYER-SEATED ZERO? STACK \?ELS78 **** FILE PS:PEOPLE.ZAP.3, 1-81 (2051) ?ELS45: CALL HELD?,PRSO,PLAYER-SEATED ZERO? STACK \?ELS47 *************** **** FILE PS:PEOPLE.ZAP.1, 1-85 (2151) ?ELS78: ZERO? PRSI /FALSE **** FILE PS:PEOPLE.ZAP.3, 1-85 (2146) ?ELS47: ZERO? PRSI /FALSE *************** **** FILE PS:PEOPLE.ZAP.1, 1-97 (2388) ZERO? PLAYER-SEATED /?ELS5 EQUAL? PRSA,V?SIT \?ELS11 **** FILE PS:PEOPLE.ZAP.3, 1-97 (2383) ZERO? PLAYER-SEATED /?ELS4 EQUAL? PRSA,V?SIT \?ELS8 *************** **** FILE PS:PEOPLE.ZAP.1, 1-101 (2512) ?ELS11: SET 'PLAYER-SEATED,FALSE-VALUE **** FILE PS:PEOPLE.ZAP.3, 1-101 (2506) ?ELS8: SET 'PLAYER-SEATED,FALSE-VALUE *************** **** FILE PS:PEOPLE.ZAP.1, 1-103 (2569) IN? BRIEFCASE,PLAYER \?CND18 FSET? BRIEFCASE,OPENBIT \?CND18 **** FILE PS:PEOPLE.ZAP.3, 1-103 (2562) IN? BRIEFCASE,PLAYER \?CND13 FSET? BRIEFCASE,OPENBIT \?CND13 *************** **** FILE PS:PEOPLE.ZAP.1, 1-108 (2744) ?CND18: PRINTI "stand up first.)" **** FILE PS:PEOPLE.ZAP.3, 1-108 (2737) ?CND13: PRINTI "stand up first.)" *************** **** FILE PS:PEOPLE.ZAP.1, 1-111 (2797) ?ELS5: ZERO? PLAYER-HIDING /FALSE **** FILE PS:PEOPLE.ZAP.3, 1-111 (2790) ?ELS4: ZERO? PLAYER-HIDING /FALSE *************** **** FILE PS:PEOPLE.ZAP.1, 1-113 (2857) EQUAL? PRSA,V?HIDE-BEHIND \?ELS34 **** FILE PS:PEOPLE.ZAP.3, 1-113 (2850) EQUAL? PRSA,V?HIDE-BEHIND \?ELS24 *************** **** FILE PS:PEOPLE.ZAP.1, 1-115 (2929) ?ELS34: PRINTR "(You can't do that while you're hiding.)" **** FILE PS:PEOPLE.ZAP.3, 1-115 (2922) ?ELS24: PRINTR "(You can't do that while you're hiding.)" *************** **** FILE PS:PEOPLE.ZAP.1, 1-125 (3128) EQUAL? ARG,M-WINNER \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-125 (3121) EQUAL? ARG,M-WINNER \?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-128 (3197) ?ELS5: CALL PASS-OBJECT?,MCGUFFIN ZERO? STACK /?ELS7 **** FILE PS:PEOPLE.ZAP.3, 1-128 (3190) ?ELS4: CALL PASS-OBJECT?,MCGUFFIN ZERO? STACK /?ELS5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-132 (3294) ?ELS7: EQUAL? PRSA,V?GIVE \?ELS13 **** FILE PS:PEOPLE.ZAP.3, 1-132 (3287) ?ELS5: EQUAL? PRSA,V?GIVE \?ELS7 *************** **** FILE PS:PEOPLE.ZAP.1, 1-134 (3345) ZERO? OBJ \?THN10 ?ELS13: EQUAL? PRSA,V?SHOW \?ELS9 **** FILE PS:PEOPLE.ZAP.3, 1-134 (3337) ZERO? 1 \?THN6 ?ELS7: EQUAL? PRSA,V?SHOW \?ELS8 *************** **** FILE PS:PEOPLE.ZAP.1, 1-137 (3416) ZERO? OBJ /?ELS9 ?THN10: EQUAL? OBJ,TICKET \FALSE **** FILE PS:PEOPLE.ZAP.3, 1-137 (3404) ZERO? 1 /?ELS8 ?THN6: EQUAL? OBJ,TICKET \FALSE *************** **** FILE PS:PEOPLE.ZAP.1, 1-142 (3561) ZERO? STACK \?ELS26 **** FILE PS:PEOPLE.ZAP.3, 1-142 (3546) ZERO? STACK \?ELS17 *************** **** FILE PS:PEOPLE.ZAP.1, 1-145 (3639) ZERO? STACK \?ELS26 **** FILE PS:PEOPLE.ZAP.3, 1-145 (3624) ZERO? STACK \?ELS17 *************** **** FILE PS:PEOPLE.ZAP.1, 1-150 (3749) ?ELS26: FSET? PLAYER,LOCKED /?ELS32 **** FILE PS:PEOPLE.ZAP.3, 1-150 (3734) ?ELS17: FSET? PLAYER,LOCKED /?ELS21 *************** **** FILE PS:PEOPLE.ZAP.1, 1-152 (3808) JUMP ?CND24 ?ELS32: FCLEAR PLAYER,LOCKED **** FILE PS:PEOPLE.ZAP.3, 1-152 (3793) JUMP ?CND16 ?ELS21: FCLEAR PLAYER,LOCKED *************** **** FILE PS:PEOPLE.ZAP.1, 1-156 (3895) ?CND24: MOVE TICKET,PLAYER **** FILE PS:PEOPLE.ZAP.3, 1-156 (3880) ?CND16: MOVE TICKET,PLAYER *************** **** FILE PS:PEOPLE.ZAP.1, 1-159 (3982) ?ELS9: CALL PERSON-F,CONDUCTOR,ARG **** FILE PS:PEOPLE.ZAP.3, 1-159 (3967) ?ELS8: CALL PERSON-F,CONDUCTOR,ARG *************** **** FILE PS:PEOPLE.ZAP.1, 1-170 (4180) EQUAL? ARG,M-WINNER \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-170 (4165) EQUAL? ARG,M-WINNER \?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-173 (4253) ?ELS5: EQUAL? PRSA,V?PASS \?ELS7 **** FILE PS:PEOPLE.ZAP.3, 1-173 (4238) ?ELS4: EQUAL? PRSA,V?PASS \?ELS5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-177 (4358) ?ELS7: EQUAL? PRSA,V?GIVE \?ELS18 **** FILE PS:PEOPLE.ZAP.3, 1-177 (4343) ?ELS5: EQUAL? PRSA,V?GIVE \?ELS11 *************** **** FILE PS:PEOPLE.ZAP.1, 1-179 (4409) ZERO? OBJ \?THN15 ?ELS18: EQUAL? PRSA,V?SHOW \?ELS14 **** FILE PS:PEOPLE.ZAP.3, 1-179 (4394) ZERO? 1 \?THN10 ?ELS11: EQUAL? PRSA,V?SHOW \?ELS12 *************** **** FILE PS:PEOPLE.ZAP.1, 1-182 (4481) ZERO? OBJ /?ELS14 ?THN15: EQUAL? OBJ,PASSPORT \?ELS25 **** FILE PS:PEOPLE.ZAP.3, 1-182 (4464) ZERO? 1 /?ELS12 ?THN10: EQUAL? OBJ,PASSPORT \?ELS17 *************** **** FILE PS:PEOPLE.ZAP.1, 1-185 (4574) FSET? PASSPORT,LOCKED \?CND26 **** FILE PS:PEOPLE.ZAP.3, 1-185 (4555) FSET? PASSPORT,LOCKED \?CND18 *************** **** FILE PS:PEOPLE.ZAP.1, 1-190 (4712) ?CND26: PRINTI " gives it back to you." **** FILE PS:PEOPLE.ZAP.3, 1-190 (4693) ?CND18: PRINTI " gives it back to you." *************** **** FILE PS:PEOPLE.ZAP.1, 1-200 (4999) ?ELS25: EQUAL? OBJ,BRIEFCASE \?ELS41 **** FILE PS:PEOPLE.ZAP.3, 1-200 (4980) ?ELS17: EQUAL? OBJ,BRIEFCASE \?ELS29 *************** **** FILE PS:PEOPLE.ZAP.1, 1-202 (5073) ZERO? BRIEFCASE-PASSED /?ELS44 **** FILE PS:PEOPLE.ZAP.3, 1-202 (5054) ZERO? BRIEFCASE-PASSED /?ELS31 *************** **** FILE PS:PEOPLE.ZAP.1, 1-204 (5140) ?ELS44: FSET? BRIEFCASE,OPENBIT /?ELS49 **** FILE PS:PEOPLE.ZAP.3, 1-204 (5121) ?ELS31: FSET? BRIEFCASE,OPENBIT /?ELS34 *************** **** FILE PS:PEOPLE.ZAP.1, 1-206 (5236) ?ELS49: IN? MCGUFFIN,BRIEFCASE \?ELS53 **** FILE PS:PEOPLE.ZAP.3, 1-206 (5217) ?ELS34: IN? MCGUFFIN,BRIEFCASE \?ELS37 *************** **** FILE PS:PEOPLE.ZAP.1, 1-213 (5383) ?ELS53: SET 'BRIEFCASE-PASSED,TRUE-VALUE **** FILE PS:PEOPLE.ZAP.3, 1-213 (5364) ?ELS37: SET 'BRIEFCASE-PASSED,TRUE-VALUE *************** **** FILE PS:PEOPLE.ZAP.1, 1-215 (5480) ?ELS41: EQUAL? OBJ,MCGUFFIN \FALSE **** FILE PS:PEOPLE.ZAP.3, 1-215 (5461) ?ELS29: EQUAL? OBJ,MCGUFFIN \FALSE *************** **** FILE PS:PEOPLE.ZAP.1, 1-223 (5660) ?ELS14: CALL PERSON-F,CUSTOMS-AGENT,ARG **** FILE PS:PEOPLE.ZAP.3, 1-223 (5641) ?ELS12: CALL PERSON-F,CUSTOMS-AGENT,ARG *************** **** FILE PS:PEOPLE.ZAP.1, 1-234 (5838) EQUAL? ARG,M-WINNER \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-234 (5819) EQUAL? ARG,M-WINNER \?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-239 (5942) ?ELS5: EQUAL? PRSA,V?GOODBYE,V?THANKS \?ELS14 **** FILE PS:PEOPLE.ZAP.3, 1-239 (5923) ?ELS4: EQUAL? PRSA,V?GOODBYE,V?THANKS \?ELS9 *************** **** FILE PS:PEOPLE.ZAP.1, 1-242 (6051) ?ELS14: CALL PERSON-F,WAITER,ARG **** FILE PS:PEOPLE.ZAP.3, 1-242 (6031) ?ELS9: CALL PERSON-F,WAITER,ARG *************** **** FILE PS:PEOPLE.ZAP.1, 1-247 (6119) EQUAL? PRSI,PLAYER \?ELS5 EQUAL? PRSA,V?BRING,V?GIVE \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-247 (6098) EQUAL? PRSI,PLAYER \?ELS4 EQUAL? PRSA,V?BRING,V?GIVE \?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-253 (6262) ?ELS5: EQUAL? PRSO,PLAYER \FALSE **** FILE PS:PEOPLE.ZAP.3, 1-253 (6241) ?ELS4: EQUAL? PRSO,PLAYER \FALSE *************** **** FILE PS:PEOPLE.ZAP.1, 1-268 (6534) EQUAL? ARG,M-WINNER \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-268 (6513) EQUAL? ARG,M-WINNER \?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-271 (6598) ?ELS5: EQUAL? PRSA,V?EXAMINE \?ELS7 **** FILE PS:PEOPLE.ZAP.3, 1-271 (6577) ?ELS4: EQUAL? PRSA,V?EXAMINE \?ELS5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-273 (6681) IN? HAT-COOK,COOK \?ELS14 **** FILE PS:PEOPLE.ZAP.3, 1-273 (6660) IN? HAT-COOK,COOK \?ELS11 *************** **** FILE PS:PEOPLE.ZAP.1, 1-275 (6723) JUMP ?CND10 ?ELS14: PUSH STR?20 ?CND10: PRINT STACK **** FILE PS:PEOPLE.ZAP.3, 1-275 (6702) JUMP ?CND8 ?ELS11: PUSH STR?20 ?CND8: PRINT STACK *************** **** FILE PS:PEOPLE.ZAP.1, 1-282 (6926) ?ELS7: CALL PERSON-F,COOK,ARG **** FILE PS:PEOPLE.ZAP.3, 1-282 (6903) ?ELS5: CALL PERSON-F,COOK,ARG *************** **** FILE PS:PEOPLE.ZAP.1, 1-290 (7076) ZERO? STACK \?ELS12 **** FILE PS:PEOPLE.ZAP.3, 1-290 (7053) ZERO? STACK \?ELS9 *************** **** FILE PS:PEOPLE.ZAP.1, 1-293 (7165) ?ELS12: FSET HAT-COOK,TAKEBIT **** FILE PS:PEOPLE.ZAP.3, 1-293 (7141) ?ELS9: FSET HAT-COOK,TAKEBIT *************** **** FILE PS:PEOPLE.ZAP.1, 1-312 (7448) EQUAL? ARG,M-WINNER \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-312 (7423) EQUAL? ARG,M-WINNER \?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-315 (7513) ?ELS5: EQUAL? PRSA,V?ASK-ABOUT \?ELS7 IN? CLERK,TICKET-AREA \?ELS7 **** FILE PS:PEOPLE.ZAP.3, 1-315 (7488) ?ELS4: EQUAL? PRSA,V?ASK-ABOUT \?ELS5 IN? CLERK,TICKET-AREA \?ELS5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-318 (7610) ZERO? STACK /?ELS7 **** FILE PS:PEOPLE.ZAP.3, 1-318 (7585) ZERO? STACK /?ELS5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-320 (7654) ZERO? N /?ELS7 **** FILE PS:PEOPLE.ZAP.3, 1-320 (7629) ZERO? N /?ELS5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-325 (7750) ?ELS7: CALL PERSON-F,CLERK,ARG **** FILE PS:PEOPLE.ZAP.3, 1-325 (7725) ?ELS5: CALL PERSON-F,CLERK,ARG *************** **** FILE PS:PEOPLE.ZAP.1, 1-336 (7913) EQUAL? ARG,M-WINNER \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-336 (7888) EQUAL? ARG,M-WINNER \?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-339 (7977) ?ELS5: EQUAL? PRSA,V?SHOOT,V?PUSH,V?MUNG /?THN10 **** FILE PS:PEOPLE.ZAP.3, 1-339 (7952) ?ELS4: EQUAL? PRSA,V?SHOOT,V?PUSH,V?MUNG /?THN5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-341 (8075) ?THN10: SET 'SUPPRESS-I-BOND,TRUE-VALUE **** FILE PS:PEOPLE.ZAP.3, 1-341 (8049) ?THN5: SET 'SUPPRESS-I-BOND,TRUE-VALUE *************** **** FILE PS:PEOPLE.ZAP.1, 1-343 (8129) LESS? 33,STACK /?ELS16 EQUAL? PRSA,V?SHOOT \?ELS19 **** FILE PS:PEOPLE.ZAP.3, 1-343 (8102) LESS? 33,STACK /?ELS11 EQUAL? PRSA,V?SHOOT \?ELS13 *************** **** FILE PS:PEOPLE.ZAP.1, 1-346 (8217) JUMP ?CND17 ?ELS19: PRINTI "You go for him, but he dodges. " ?CND17: CALL START-SENTENCE,BOND **** FILE PS:PEOPLE.ZAP.3, 1-346 (8190) JUMP ?CND12 ?ELS13: PRINTI "You go for him, but he dodges. " ?CND12: CALL START-SENTENCE,BOND *************** **** FILE PS:PEOPLE.ZAP.1, 1-351 (8352) LESS? 50,STACK /?ELS32 **** FILE PS:PEOPLE.ZAP.3, 1-351 (8325) LESS? 50,STACK /?ELS23 *************** **** FILE PS:PEOPLE.ZAP.1, 1-353 (8408) ?ELS32: PRINTR "considering his next move." ?ELS16: RANDOM 100 LESS? 50,STACK /?ELS40 **** FILE PS:PEOPLE.ZAP.3, 1-353 (8381) ?ELS23: PRINTR "considering his next move." ?ELS11: RANDOM 100 LESS? 50,STACK /?ELS28 *************** **** FILE PS:PEOPLE.ZAP.1, 1-358 (8542) EQUAL? PRSA,V?SHOOT \?ELS43 **** FILE PS:PEOPLE.ZAP.3, 1-358 (8515) EQUAL? PRSA,V?SHOOT \?ELS30 *************** **** FILE PS:PEOPLE.ZAP.1, 1-360 (8633) JUMP ?CND41 ?ELS43: PRINTI "You lunge at him and almost miss, but he loses footing and " ?CND41: PRINTR "falls off the roof of the train!" ?ELS40: CALL START-SENTENCE,BOND **** FILE PS:PEOPLE.ZAP.3, 1-360 (8606) JUMP ?CND29 ?ELS30: PRINTI "You lunge at him and almost miss, but he loses footing and " ?CND29: PRINTR "falls off the roof of the train!" ?ELS28: CALL START-SENTENCE,BOND *************** **** FILE PS:PEOPLE.ZAP.1, 1-445 (10122) EQUAL? ARG,M-WINNER \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-445 (10095) EQUAL? ARG,M-WINNER \?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-448 (10187) ?ELS5: CALL PASS-OBJECT?,MCGUFFIN ZERO? STACK /?ELS7 **** FILE PS:PEOPLE.ZAP.3, 1-448 (10160) ?ELS4: CALL PASS-OBJECT?,MCGUFFIN ZERO? STACK /?ELS5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-452 (10280) ?ELS7: EQUAL? PRSA,V?GIVE \?ELS13 **** FILE PS:PEOPLE.ZAP.3, 1-452 (10253) ?ELS5: EQUAL? PRSA,V?GIVE \?ELS7 *************** **** FILE PS:PEOPLE.ZAP.1, 1-454 (10331) ZERO? OBJ \?THN10 ?ELS13: EQUAL? PRSA,V?SHOW \?ELS9 **** FILE PS:PEOPLE.ZAP.3, 1-454 (10303) ZERO? 1 \?THN6 ?ELS7: EQUAL? PRSA,V?SHOW \?ELS8 *************** **** FILE PS:PEOPLE.ZAP.1, 1-457 (10402) ZERO? OBJ /?ELS9 ?THN10: EQUAL? OBJ,PASSPORT \FALSE **** FILE PS:PEOPLE.ZAP.3, 1-457 (10370) ZERO? 1 /?ELS8 ?THN6: EQUAL? OBJ,PASSPORT \FALSE *************** **** FILE PS:PEOPLE.ZAP.1, 1-465 (10635) ?ELS9: CALL PERSON-F,GUARD,ARG **** FILE PS:PEOPLE.ZAP.3, 1-465 (10600) ?ELS8: CALL PERSON-F,GUARD,ARG *************** **** FILE PS:PEOPLE.ZAP.1, 1-476 (10810) EQUAL? ARG,M-WINNER \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-476 (10775) EQUAL? ARG,M-WINNER \?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-481 (10916) ?ELS5: CALL PERSON-F,WAITRESS,ARG **** FILE PS:PEOPLE.ZAP.3, 1-481 (10881) ?ELS4: CALL PERSON-F,WAITRESS,ARG *************** **** FILE PS:PEOPLE.ZAP.1, 1-494 (11143) EQUAL? ARG,M-WINNER \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-494 (11108) EQUAL? ARG,M-WINNER \?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-497 (11210) ?ELS5: CALL PASS-OBJECT?,MCGUFFIN ZERO? STACK /?ELS7 **** FILE PS:PEOPLE.ZAP.3, 1-497 (11175) ?ELS4: CALL PASS-OBJECT?,MCGUFFIN ZERO? STACK /?ELS5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-501 (11305) ?ELS7: CALL PERSON-F,OFFICER,ARG **** FILE PS:PEOPLE.ZAP.3, 1-501 (11270) ?ELS5: CALL PERSON-F,OFFICER,ARG *************** **** FILE PS:PEOPLE.ZAP.1, 1-606 (12975) ?PRG4: ADD 1,CNT **** FILE PS:PEOPLE.ZAP.3, 1-606 (12940) ?PRG3: ADD 1,CNT *************** **** FILE PS:PEOPLE.ZAP.1, 1-609 (13029) IGRTR? 'CNT,N \?PRG4 **** FILE PS:PEOPLE.ZAP.3, 1-609 (12994) IGRTR? 'CNT,N \?PRG3 *************** **** FILE PS:PEOPLE.ZAP.1, 1-621 (13287) ?CND1: EQUAL? ARG,M-WINNER \?ELS10 **** FILE PS:PEOPLE.ZAP.3, 1-621 (13252) ?CND1: EQUAL? ARG,M-WINNER \?ELS7 *************** **** FILE PS:PEOPLE.ZAP.1, 1-625 (13393) ZERO? X /?ELS17 **** FILE PS:PEOPLE.ZAP.3, 1-625 (13357) ZERO? X /?ELS12 *************** **** FILE PS:PEOPLE.ZAP.1, 1-628 (13446) ?ELS17: EQUAL? PER,CONDUCTOR,GUARD,WAITER /?THN30 **** FILE PS:PEOPLE.ZAP.3, 1-628 (13410) ?ELS12: EQUAL? PER,CONDUCTOR,GUARD,WAITER /?THN18 *************** **** FILE PS:PEOPLE.ZAP.1, 1-630 (13510) LESS? 50,STACK /?ELS29 ?THN30: CALL PRODUCE-GIBBERISH **** FILE PS:PEOPLE.ZAP.3, 1-630 (13474) LESS? 50,STACK /?ELS19 ?THN18: CALL PRODUCE-GIBBERISH *************** **** FILE PS:PEOPLE.ZAP.1, 1-633 (13576) ?ELS29: RANDOM 100 LESS? 50,STACK /?ELS33 **** FILE PS:PEOPLE.ZAP.3, 1-633 (13540) ?ELS19: RANDOM 100 LESS? 50,STACK /?ELS20 *************** **** FILE PS:PEOPLE.ZAP.1, 1-637 (13700) ?ELS33: PRINTI """Mrzni Amerikan? Globfrp " **** FILE PS:PEOPLE.ZAP.3, 1-637 (13664) ?ELS20: PRINTI """Mrzni Amerikan? Globfrp " *************** **** FILE PS:PEOPLE.ZAP.1, 1-641 (13801) ?ELS10: EQUAL? PRSA,V?ALARM \?ELS41 **** FILE PS:PEOPLE.ZAP.3, 1-641 (13765) ?ELS7: EQUAL? PRSA,V?ALARM \?ELS25 *************** **** FILE PS:PEOPLE.ZAP.1, 1-646 (13959) ?ELS41: EQUAL? PRSA,V?GIVE \?ELS50 **** FILE PS:PEOPLE.ZAP.3, 1-646 (13922) ?ELS25: EQUAL? PRSA,V?GIVE \?ELS32 *************** **** FILE PS:PEOPLE.ZAP.1, 1-653 (14114) EQUAL? PRSO,DOLLARS \?ELS64 **** FILE PS:PEOPLE.ZAP.3, 1-653 (14077) EQUAL? PRSO,DOLLARS \?ELS40 *************** **** FILE PS:PEOPLE.ZAP.1, 1-655 (14162) ZERO? N \?THN61 ?ELS64: ZERO? P-DOLLAR-FLAG /?ELS60 EQUAL? PRSO,INTNUM \?ELS60 **** FILE PS:PEOPLE.ZAP.3, 1-655 (14125) ZERO? 1 \?THN39 ?ELS40: ZERO? P-DOLLAR-FLAG /?ELS41 EQUAL? PRSO,INTNUM \?ELS41 *************** **** FILE PS:PEOPLE.ZAP.1, 1-659 (14264) ZERO? N /?ELS60 ?THN61: ADD N,Z >X **** FILE PS:PEOPLE.ZAP.3, 1-659 (14227) ZERO? 1 /?ELS41 ?THN39: ADD N,Z >X *************** **** FILE PS:PEOPLE.ZAP.1, 1-663 (14360) JUMP ?CND58 ?ELS60: EQUAL? PRSO,MCGUFFIN \?CND69 **** FILE PS:PEOPLE.ZAP.3, 1-663 (14323) JUMP ?CND38 ?ELS41: EQUAL? PRSO,MCGUFFIN \?CND43 *************** **** FILE PS:PEOPLE.ZAP.1, 1-666 (14434) ?CND69: MOVE PRSO,PER ?CND58: CALL START-SENTENCE,PER **** FILE PS:PEOPLE.ZAP.3, 1-666 (14397) ?CND43: MOVE PRSO,PER ?CND38: CALL START-SENTENCE,PER *************** **** FILE PS:PEOPLE.ZAP.1, 1-670 (14542) GRTR? Y,STACK \?ELS78 **** FILE PS:PEOPLE.ZAP.3, 1-670 (14505) GRTR? Y,STACK \?ELS50 *************** **** FILE PS:PEOPLE.ZAP.1, 1-672 (14586) ?ELS78: GRTR? Y,X \?ELS82 ZERO? Z \?ELS87 **** FILE PS:PEOPLE.ZAP.3, 1-672 (14549) ?ELS50: GRTR? Y,X \?ELS53 ZERO? Z \?ELS57 *************** **** FILE PS:PEOPLE.ZAP.1, 1-675 (14653) ?ELS87: PRINTR "longer." ?ELS82: PRINTR "broadly." ?ELS50: EQUAL? PRSA,V?LISTEN \?ELS99 **** FILE PS:PEOPLE.ZAP.3, 1-675 (14616) ?ELS57: PRINTR "longer." ?ELS53: PRINTR "broadly." ?ELS32: EQUAL? PRSA,V?LISTEN \?ELS64 *************** **** FILE PS:PEOPLE.ZAP.1, 1-682 (14820) ?ELS99: EQUAL? PRSA,V?SEARCH-FOR,V?SEARCH \?ELS106 **** FILE PS:PEOPLE.ZAP.3, 1-682 (14783) ?ELS64: EQUAL? PRSA,V?SEARCH-FOR,V?SEARCH \?ELS69 *************** **** FILE PS:PEOPLE.ZAP.1, 1-687 (14974) ?ELS106: EQUAL? PRSA,V?SHOW \?ELS110 **** FILE PS:PEOPLE.ZAP.3, 1-687 (14936) ?ELS69: EQUAL? PRSA,V?SHOW \?ELS72 *************** **** FILE PS:PEOPLE.ZAP.1, 1-698 (15251) ?ELS110: ZERO? PRSI /?ELS125 **** FILE PS:PEOPLE.ZAP.3, 1-698 (15211) ?ELS72: ZERO? PRSI /?ELS81 *************** **** FILE PS:PEOPLE.ZAP.1, 1-700 (15297) ZERO? OBJ /?ELS125 EQUAL? PRSA,V?CONFRONT,V?ASK-ABOUT \?ELS125 EQUAL? PRSO,PER /?THN122 ?ELS125: ZERO? PRSO /?ELS121 IN? PRSO,GLOBAL-OBJECTS \?ELS121 **** FILE PS:PEOPLE.ZAP.3, 1-700 (15255) EQUAL? PRSA,V?CONFRONT,V?ASK-ABOUT \?ELS81 EQUAL? PRSO,PER /?THN80 ?ELS81: ZERO? PRSO /?ELS82 IN? PRSO,GLOBAL-OBJECTS \?ELS82 *************** **** FILE PS:PEOPLE.ZAP.1, 1-706 (15472) ZERO? OBJ /?ELS121 EQUAL? PRSA,V?WHAT,V?FIND \?ELS121 ?THN122: CALL GRAB-ATTENTION,PER **** FILE PS:PEOPLE.ZAP.3, 1-705 (15404) EQUAL? PRSA,V?WHAT,V?FIND \?ELS82 ?THN80: CALL GRAB-ATTENTION,PER *************** **** FILE PS:PEOPLE.ZAP.1, 1-711 (15603) ZERO? ON-TRAIN \?ELS135 **** FILE PS:PEOPLE.ZAP.3, 1-709 (15512) ZERO? ON-TRAIN \?ELS89 *************** **** FILE PS:PEOPLE.ZAP.1, 1-713 (15658) ZERO? STACK /?ELS135 EQUAL? PER,CONDUCTOR,GUARD \?ELS135 **** FILE PS:PEOPLE.ZAP.3, 1-711 (15566) ZERO? STACK /?ELS89 EQUAL? PER,CONDUCTOR,GUARD \?ELS89 *************** **** FILE PS:PEOPLE.ZAP.1, 1-717 (15786) ?ELS135: CALL DONT-KNOW,PER,OBJ **** FILE PS:PEOPLE.ZAP.3, 1-715 (15692) ?ELS89: CALL DONT-KNOW,PER,OBJ *************** **** FILE PS:PEOPLE.ZAP.1, 1-719 (15829) ?ELS121: CALL COMMON-OTHER,PER **** FILE PS:PEOPLE.ZAP.3, 1-717 (15734) ?ELS82: CALL COMMON-OTHER,PER *************** **** FILE PS:PEOPLE.ZAP.1, 1-729 (15972) EQUAL? PRSA,V?WALK-TO \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-727 (15876) EQUAL? PRSA,V?WALK-TO \?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-732 (16038) ?ELS5: EQUAL? PRSA,V?THANKS \?ELS12 **** FILE PS:PEOPLE.ZAP.3, 1-730 (15942) ?ELS4: EQUAL? PRSA,V?THANKS \?ELS8 *************** **** FILE PS:PEOPLE.ZAP.1, 1-734 (16086) ?ELS12: EQUAL? PRSA,V?TAKE /?THN17 EQUAL? PRSA,V?SEND-TO,V?SEND,V?BRING \?ELS16 ?THN17: IN? PRSO,PLAYER \FALSE **** FILE PS:PEOPLE.ZAP.3, 1-732 (15989) ?ELS8: EQUAL? PRSA,V?TAKE /?THN11 EQUAL? PRSA,V?SEND-TO,V?SEND,V?BRING \?ELS12 ?THN11: IN? PRSO,PLAYER \FALSE *************** **** FILE PS:PEOPLE.ZAP.1, 1-741 (16285) ?ELS16: EQUAL? PRSA,V?EXAMINE \?ELS25 **** FILE PS:PEOPLE.ZAP.3, 1-739 (16187) ?ELS12: EQUAL? PRSA,V?EXAMINE \?ELS17 *************** **** FILE PS:PEOPLE.ZAP.1, 1-746 (16408) ?ELS25: EQUAL? PRSA,V?GIVE \?ELS27 EQUAL? PRSI,PLAYER \?ELS27 **** FILE PS:PEOPLE.ZAP.3, 1-744 (16310) ?ELS17: EQUAL? PRSA,V?GIVE \?ELS18 EQUAL? PRSI,PLAYER \?ELS18 *************** **** FILE PS:PEOPLE.ZAP.1, 1-752 (16557) ?ELS27: EQUAL? PRSA,V?SGIVE \?ELS31 EQUAL? PRSO,PLAYER \?ELS31 **** FILE PS:PEOPLE.ZAP.3, 1-750 (16459) ?ELS18: EQUAL? PRSA,V?SGIVE \?ELS20 EQUAL? PRSO,PLAYER \?ELS20 *************** **** FILE PS:PEOPLE.ZAP.1, 1-758 (16707) ?ELS31: EQUAL? PRSA,V?GOODBYE,V?HELLO \?ELS35 ZERO? PRSO /?THN41 **** FILE PS:PEOPLE.ZAP.3, 1-756 (16609) ?ELS20: EQUAL? PRSA,V?GOODBYE,V?HELLO \?ELS22 ZERO? PRSO /?THN26 *************** **** FILE PS:PEOPLE.ZAP.1, 1-761 (16800) ?THN41: SET 'L-WINNER,WINNER **** FILE PS:PEOPLE.ZAP.3, 1-759 (16702) ?THN26: SET 'L-WINNER,WINNER *************** **** FILE PS:PEOPLE.ZAP.1, 1-765 (16884) ?ELS35: EQUAL? PRSA,V?INVENTORY \?ELS44 **** FILE PS:PEOPLE.ZAP.3, 1-763 (16786) ?ELS22: EQUAL? PRSA,V?INVENTORY \?ELS28 *************** **** FILE PS:PEOPLE.ZAP.1, 1-770 (17030) ?ELS44: EQUAL? PRSA,V?TELL-ABOUT \?ELS51 **** FILE PS:PEOPLE.ZAP.3, 1-768 (16932) ?ELS28: EQUAL? PRSA,V?TELL-ABOUT \?ELS33 *************** **** FILE PS:PEOPLE.ZAP.1, 1-776 (17189) ?ELS51: EQUAL? PRSA,V?WAIT-FOR \?ELS58 EQUAL? PRSO,ROOMS,PLAYER \?ELS58 **** FILE PS:PEOPLE.ZAP.3, 1-774 (17091) ?ELS33: EQUAL? PRSA,V?WAIT-FOR \?ELS39 EQUAL? PRSO,ROOMS,PLAYER \?ELS39 *************** **** FILE PS:PEOPLE.ZAP.1, 1-782 (17344) ?ELS58: EQUAL? PRSA,V?TALK-ABOUT,V?WHAT \FALSE **** FILE PS:PEOPLE.ZAP.3, 1-780 (17246) ?ELS39: EQUAL? PRSA,V?TALK-ABOUT,V?WHAT \FALSE *************** **** FILE PS:PEOPLE.ZAP.1, 1-790 (17522) IN? PER,GLOBAL-OBJECTS \?ELS3 **** FILE PS:PEOPLE.ZAP.3, 1-788 (17424) IN? PER,GLOBAL-OBJECTS \?ELS2 *************** **** FILE PS:PEOPLE.ZAP.1, 1-794 (17624) ?ELS3: SET 'LPER,PER **** FILE PS:PEOPLE.ZAP.3, 1-792 (17526) ?ELS2: SET 'LPER,PER *************** **** FILE PS:PEOPLE.ZAP.1, 1-796 (17679) EQUAL? PRSA,V?EXAMINE \?ELS12 **** FILE PS:PEOPLE.ZAP.3, 1-794 (17581) EQUAL? PRSA,V?EXAMINE \?ELS7 *************** **** FILE PS:PEOPLE.ZAP.1, 1-798 (17733) ZERO? X /?ELS15 **** FILE PS:PEOPLE.ZAP.3, 1-796 (17634) ZERO? X /?ELS9 *************** **** FILE PS:PEOPLE.ZAP.1, 1-801 (17769) JUMP ?CND13 ?ELS15: CALL ZMEMQ,LPER,EXTRA-TABLE >X ZERO? X /?CND13 **** FILE PS:PEOPLE.ZAP.3, 1-799 (17669) JUMP ?CND8 ?ELS9: CALL ZMEMQ,LPER,EXTRA-TABLE >X ZERO? X /?CND8 *************** **** FILE PS:PEOPLE.ZAP.1, 1-805 (17869) LESS? 0,N /?CND20 **** FILE PS:PEOPLE.ZAP.3, 1-803 (17766) LESS? 0,N /?CND13 *************** **** FILE PS:PEOPLE.ZAP.1, 1-809 (17943) ?CND20: ADD N,X >N **** FILE PS:PEOPLE.ZAP.3, 1-807 (17840) ?CND13: ADD N,X >N *************** **** FILE PS:PEOPLE.ZAP.1, 1-822 (18230) ?CND13: IN? LPER,HERE \?CND25 **** FILE PS:PEOPLE.ZAP.3, 1-820 (18127) ?CND8: IN? LPER,HERE \?CND17 *************** **** FILE PS:PEOPLE.ZAP.1, 1-824 (18285) ZERO? STACK /?CND25 **** FILE PS:PEOPLE.ZAP.3, 1-822 (18181) ZERO? STACK /?CND17 *************** **** FILE PS:PEOPLE.ZAP.1, 1-826 (18327) ?CND25: RETURN X ?ELS12: EQUAL? PRSI,LPER \?ELS32 IN? PRSO,PLAYER \?ELS32 EQUAL? PRSA,V?GIVE \?ELS32 **** FILE PS:PEOPLE.ZAP.3, 1-824 (18223) ?CND17: RETURN X ?ELS7: EQUAL? PRSI,LPER \?ELS21 IN? PRSO,PLAYER \?ELS21 EQUAL? PRSA,V?GIVE \?ELS21 *************** **** FILE PS:PEOPLE.ZAP.1, 1-833 (18486) ?ELS32: EQUAL? PRSO,PER \FALSE **** FILE PS:PEOPLE.ZAP.3, 1-831 (18381) ?ELS21: EQUAL? PRSO,PER \FALSE *************** **** FILE PS:PEOPLE.ZAP.1, 1-850 (18767) ZERO? STACK /?ELS3 **** FILE PS:PEOPLE.ZAP.3, 1-848 (18662) ZERO? STACK /?ELS2 *************** **** FILE PS:PEOPLE.ZAP.1, 1-853 (18836) ?ELS3: CALL ZMEMQ,HERE,STATION-ROOMS ZERO? STACK /?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-851 (18731) ?ELS2: CALL ZMEMQ,HERE,STATION-ROOMS ZERO? STACK /?ELS3 *************** **** FILE PS:PEOPLE.ZAP.1, 1-857 (18942) ?ELS5: CALL ZMEMQ,OBJ,COUPLE-TABLE ZERO? STACK /?ELS7 **** FILE PS:PEOPLE.ZAP.3, 1-855 (18837) ?ELS3: CALL ZMEMQ,OBJ,COUPLE-TABLE ZERO? STACK /?ELS4 *************** **** FILE PS:PEOPLE.ZAP.1, 1-861 (19045) ?ELS7: CALL PICK-ONE,TOURIST-ACTS >STR ?CND1: EQUAL? STR,2 \?ELS12 EQUAL? OBJ,BAD-SPY /?THN16 **** FILE PS:PEOPLE.ZAP.3, 1-859 (18940) ?ELS4: CALL PICK-ONE,TOURIST-ACTS >STR ?CND1: EQUAL? STR,2 \?ELS6 EQUAL? OBJ,BAD-SPY /?THN8 *************** **** FILE PS:PEOPLE.ZAP.1, 1-865 (19178) ZERO? STACK /?ELS15 ?THN16: SET 'STR,3 **** FILE PS:PEOPLE.ZAP.3, 1-863 (19071) ZERO? STACK /?ELS9 ?THN8: SET 'STR,3 *************** **** FILE PS:PEOPLE.ZAP.1, 1-868 (19233) ?ELS15: CALL ZMEMQ,HERE,CAR-ROOMS-VESTIB ZERO? STACK /?CND10 **** FILE PS:PEOPLE.ZAP.3, 1-866 (19124) ?ELS9: CALL ZMEMQ,HERE,CAR-ROOMS-VESTIB ZERO? STACK /?CND5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-872 (19323) ?ELS12: EQUAL? STR,5 \?ELS21 **** FILE PS:PEOPLE.ZAP.3, 1-870 (19212) ?ELS6: EQUAL? STR,5 \?ELS11 *************** **** FILE PS:PEOPLE.ZAP.1, 1-874 (19386) ZERO? STACK \?CND22 **** FILE PS:PEOPLE.ZAP.3, 1-872 (19274) ZERO? STACK \?CND12 *************** **** FILE PS:PEOPLE.ZAP.1, 1-876 (19421) ?CND22: CALL CALL-FOR-PROP,CIGARETTE,OBJ ZERO? STACK \?CND10 **** FILE PS:PEOPLE.ZAP.3, 1-874 (19309) ?CND12: CALL CALL-FOR-PROP,CIGARETTE,OBJ ZERO? STACK \?CND5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-880 (19511) ?ELS21: EQUAL? STR,6,7 \?ELS29 **** FILE PS:PEOPLE.ZAP.3, 1-878 (19398) ?ELS11: EQUAL? STR,6,7 \?ELS16 *************** **** FILE PS:PEOPLE.ZAP.1, 1-882 (19578) ZERO? STACK \?CND10 **** FILE PS:PEOPLE.ZAP.3, 1-880 (19465) ZERO? STACK \?CND5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-885 (19626) ?ELS29: EQUAL? STR,11,31 \?CND10 **** FILE PS:PEOPLE.ZAP.3, 1-883 (19512) ?ELS16: EQUAL? STR,11,31 \?CND5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-887 (19693) ZERO? STACK \?CND10 **** FILE PS:PEOPLE.ZAP.3, 1-885 (19578) ZERO? STACK \?CND5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-889 (19729) ?CND10: RETURN STR **** FILE PS:PEOPLE.ZAP.3, 1-887 (19613) ?CND5: RETURN STR *************** **** FILE PS:PEOPLE.ZAP.1, 1-914 (20172) FSET? OBJ,SEENBIT \?ELS5 **** FILE PS:PEOPLE.ZAP.3, 1-912 (20055) FSET? OBJ,SEENBIT \?ELS3 *************** **** FILE PS:PEOPLE.ZAP.1, 1-918 (20253) ?ELS5: PRINTI "There's " **** FILE PS:PEOPLE.ZAP.3, 1-916 (20136) ?ELS3: PRINTI "There's " *************** **** FILE PS:PEOPLE.ZAP.1, 1-922 (20346) ZERO? STR \?ELS16 **** FILE PS:PEOPLE.ZAP.3, 1-920 (20229) ZERO? STR \?ELS11 *************** **** FILE PS:PEOPLE.ZAP.1, 1-925 (20415) JUMP ?CND14 ?ELS16: FSET? OBJ,TOUCHBIT \?CND14 **** FILE PS:PEOPLE.ZAP.3, 1-923 (20298) JUMP ?CND10 ?ELS11: FSET? OBJ,TOUCHBIT \?CND10 *************** **** FILE PS:PEOPLE.ZAP.1, 1-928 (20483) ?CND14: IN? BRIEFCASE,OBJ \?CND21 **** FILE PS:PEOPLE.ZAP.3, 1-926 (20366) ?CND10: IN? BRIEFCASE,OBJ \?CND15 *************** **** FILE PS:PEOPLE.ZAP.1, 1-932 (20578) ?CND21: EQUAL? STR,PEEKING-CODE /?ELS28 **** FILE PS:PEOPLE.ZAP.3, 1-930 (20461) ?CND15: EQUAL? STR,PEEKING-CODE /?ELS20 *************** **** FILE PS:PEOPLE.ZAP.1, 1-935 (20655) JUMP ?CND26 ?ELS28: LOC OBJ **** FILE PS:PEOPLE.ZAP.3, 1-933 (20538) JUMP ?CND19 ?ELS20: LOC OBJ *************** **** FILE PS:PEOPLE.ZAP.1, 1-938 (20709) ZERO? RM /?ELS32 **** FILE PS:PEOPLE.ZAP.3, 1-936 (20592) ZERO? RM /?ELS23 *************** **** FILE PS:PEOPLE.ZAP.1, 1-940 (20740) EQUAL? STACK,DEXIT \?CND33 GET RM,DEXITOBJ >DR ?CND33: ZERO? DR /?ELS38 FSET? DR,LOCKED \?ELS38 **** FILE PS:PEOPLE.ZAP.3, 1-938 (20623) EQUAL? STACK,DEXIT \?CND24 CALL GET-DOOR-OBJ,RM >DR ?CND24: ZERO? DR /?ELS27 FSET? DR,LOCKED \?ELS27 *************** **** FILE PS:PEOPLE.ZAP.1, 1-946 (20878) JUMP ?CND26 ?ELS38: PRINTI "peeking into" **** FILE PS:PEOPLE.ZAP.3, 1-944 (20766) JUMP ?CND19 ?ELS27: PRINTI "peeking into" *************** **** FILE PS:PEOPLE.ZAP.1, 1-950 (20958) JUMP ?CND26 ?ELS32: PRINTI "looking around" ?CND26: FSET OBJ,TOUCHBIT **** FILE PS:PEOPLE.ZAP.3, 1-948 (20846) JUMP ?CND19 ?ELS23: PRINTI "looking around" ?CND19: FSET OBJ,TOUCHBIT *************** **** FILE PS:PEOPLE.ZAP.1, 1-955 (21080) ZERO? GOBJ /?CND51 **** FILE PS:PEOPLE.ZAP.3, 1-953 (20968) ZERO? GOBJ /?CND35 *************** **** FILE PS:PEOPLE.ZAP.1, 1-957 (21141) EQUAL? OBJ,GOBJ /?CND51 **** FILE PS:PEOPLE.ZAP.3, 1-955 (21029) EQUAL? OBJ,GOBJ /?CND35 *************** **** FILE PS:PEOPLE.ZAP.1, 1-960 (21208) ?CND51: PRINTR "." **** FILE PS:PEOPLE.ZAP.3, 1-958 (21096) ?CND35: PRINTR "." *************** **** FILE PS:PEOPLE.ZAP.1, 1-972 (21463) EQUAL? PRSA,V?$WHERE \?ELS9 **** FILE PS:PEOPLE.ZAP.3, 1-970 (21351) EQUAL? PRSA,V?$WHERE \?ELS6 *************** **** FILE PS:PEOPLE.ZAP.1, 1-976 (21561) ?ELS9: EQUAL? PRSA,V?EXAMINE \?ELS11 **** FILE PS:PEOPLE.ZAP.3, 1-974 (21449) ?ELS6: EQUAL? PRSA,V?EXAMINE \?ELS7 *************** **** FILE PS:PEOPLE.ZAP.1, 1-978 (21626) ZERO? L /?ELS11 **** FILE PS:PEOPLE.ZAP.3, 1-976 (21513) ZERO? L /?ELS7 *************** **** FILE PS:PEOPLE.ZAP.1, 1-980 (21671) ZERO? L /?ELS11 **** FILE PS:PEOPLE.ZAP.3, 1-978 (21557) ZERO? L /?ELS7 *************** **** FILE PS:PEOPLE.ZAP.1, 1-985 (21764) ?ELS11: EQUAL? PRSA,V?TELL-ABOUT,V?TELL,V?REPLY /?THN23 EQUAL? PRSA,V?HELLO,V?ASK-FOR,V?ASK-ABOUT \?ELS20 ?THN23: ZERO? PRSO /?ELS20 FSET? PRSO,PERSONBIT \?ELS20 IN? PRSO,GLOBAL-OBJECTS /?ELS20 **** FILE PS:PEOPLE.ZAP.3, 1-983 (21649) ?ELS7: EQUAL? PRSA,V?TELL-ABOUT,V?TELL,V?REPLY /?THN14 EQUAL? PRSA,V?HELLO,V?ASK-FOR,V?ASK-ABOUT \?ELS13 ?THN14: ZERO? PRSO /?ELS13 FSET? PRSO,PERSONBIT \?ELS13 IN? PRSO,GLOBAL-OBJECTS /?ELS13 *************** **** FILE PS:PEOPLE.ZAP.1, 1-993 (22024) ?ELS20: EQUAL? PRSA,V?TELL-ABOUT,V?ASK-ABOUT \?ELS29 ZERO? PRSI /?ELS29 **** FILE PS:PEOPLE.ZAP.3, 1-991 (21908) ?ELS13: EQUAL? PRSA,V?TELL-ABOUT,V?ASK-ABOUT \?ELS18 ZERO? PRSI /?ELS18 *************** **** FILE PS:PEOPLE.ZAP.1, 1-996 (22126) ZERO? L /?ELS29 IN? PRSI,GLOBAL-OBJECTS \?ELS29 **** FILE PS:PEOPLE.ZAP.3, 1-994 (22010) ZERO? L /?ELS18 IN? PRSI,GLOBAL-OBJECTS \?ELS18 *************** **** FILE PS:PEOPLE.ZAP.1, 1-1001 (22242) ?ELS29: SET 'P-CONT,FALSE-VALUE EQUAL? PRSA,V?TELL-ABOUT,V?ASK-ABOUT /?THN37 ZERO? NOW-PRSI \?ELS36 ?THN37: CALL NOT-HERE-PERSON,PRSO **** FILE PS:PEOPLE.ZAP.3, 1-999 (22126) ?ELS18: SET 'P-CONT,FALSE-VALUE EQUAL? PRSA,V?TELL-ABOUT,V?ASK-ABOUT /?THN21 ZERO? NOW-PRSI \?ELS22 ?THN21: CALL NOT-HERE-PERSON,PRSO *************** **** FILE PS:PEOPLE.ZAP.1, 1-1006 (22391) ?ELS36: ZERO? PRSI /?ELS40 **** FILE PS:PEOPLE.ZAP.3, 1-1004 (22275) ?ELS22: ZERO? PRSI /?ELS23 *************** **** FILE PS:PEOPLE.ZAP.1, 1-1009 (22456) ?ELS40: CALL NOT-HERE-PERSON,WINNER **** FILE PS:PEOPLE.ZAP.3, 1-1007 (22340) ?ELS23: CALL NOT-HERE-PERSON,WINNER *************** **** FILE PS:PEOPLE.ZAP.1, 1-1021 (22699) ZERO? STACK /?ELS8 **** FILE PS:PEOPLE.ZAP.3, 1-1019 (22583) ZERO? STACK /?ELS6 *************** **** FILE PS:PEOPLE.ZAP.1, 1-1024 (22773) ZERO? STACK /?CND11 **** FILE PS:PEOPLE.ZAP.3, 1-1022 (22657) ZERO? STACK /?CND9 *************** **** FILE PS:PEOPLE.ZAP.1, 1-1026 (22819) ?CND11: PRINTI "." JUMP ?CND6 ?ELS8: PRINTI " isn't here!" ?CND6: PRINTR ")" **** FILE PS:PEOPLE.ZAP.3, 1-1024 (22702) ?CND9: PRINTI "." JUMP ?CND5 ?ELS6: PRINTI " isn't here!" ?CND5: PRINTR ")" *************** **** FILE PS:PEOPLE.ZAP.1, 1-1041 (23072) ?PRG4: FSET? OBJ,PERSONBIT \?ELS8 FSET? OBJ,INVISIBLE /?ELS8 ZERO? NOT1 /?THN11 EQUAL? OBJ,NOT1 /?ELS8 ?THN11: ZERO? NOT2 /?THN13 EQUAL? OBJ,NOT2 /?ELS8 ?THN13: INC 'CNT JUMP ?CND6 ?ELS8: FSET? OBJ,CONTBIT \?CND6 **** FILE PS:PEOPLE.ZAP.3, 1-1039 (22954) ?PRG3: FSET? OBJ,PERSONBIT \?ELS6 FSET? OBJ,INVISIBLE /?ELS6 ZERO? NOT1 /?THN7 EQUAL? OBJ,NOT1 /?ELS6 ?THN7: ZERO? NOT2 /?THN8 EQUAL? OBJ,NOT2 /?ELS6 ?THN8: INC 'CNT JUMP ?CND5 ?ELS6: FSET? OBJ,CONTBIT \?CND5 *************** **** FILE PS:PEOPLE.ZAP.1, 1-1052 (23352) ?CND6: NEXT? OBJ >OBJ /?KLU20 ?KLU20: ZERO? OBJ \?PRG4 **** FILE PS:PEOPLE.ZAP.3, 1-1050 (23230) ?CND5: NEXT? OBJ >OBJ /?KLU13 ?KLU13: ZERO? OBJ \?PRG3 *************** **** FILE PS:PEOPLE.ZAP.1, 1-1059 (23500) LESS? 50,STACK /?ELS3 **** FILE PS:PEOPLE.ZAP.3, 1-1057 (23378) LESS? 50,STACK /?ELS2 *************** **** FILE PS:PEOPLE.ZAP.1, 1-1062 (23548) ?ELS3: SET 'N,2 **** FILE PS:PEOPLE.ZAP.3, 1-1060 (23426) ?ELS2: SET 'N,2 *************** **** FILE PS:PEOPLE.ZAP.1, 1-1067 (23648) ?PRG6: INC 'SUPER-COUNTER **** FILE PS:PEOPLE.ZAP.3, 1-1065 (23526) ?PRG3: INC 'SUPER-COUNTER *************** **** FILE PS:PEOPLE.ZAP.1, 1-1069 (23702) ?PRG8: INC 'GIBBERISH-COUNTER **** FILE PS:PEOPLE.ZAP.3, 1-1067 (23580) ?PRG5: INC 'GIBBERISH-COUNTER *************** **** FILE PS:PEOPLE.ZAP.1, 1-1072 (23777) EQUAL? GIBBERISH-COUNTER,5 \?PRG8 EQUAL? SUPER-COUNTER,N \?PRG6 **** FILE PS:PEOPLE.ZAP.3, 1-1070 (23655) EQUAL? GIBBERISH-COUNTER,5 \?PRG5 EQUAL? SUPER-COUNTER,N \?PRG3 *************** **** FILE PS:PEOPLE.ZAP.1, 1-1075 (23858) LESS? 50,STACK /?ELS20 **** FILE PS:PEOPLE.ZAP.3, 1-1073 (23736) LESS? 50,STACK /?ELS14 *************** **** FILE PS:PEOPLE.ZAP.1, 1-1077 (23898) ?ELS20: PRINTI "?""" **** FILE PS:PEOPLE.ZAP.3, 1-1075 (23776) ?ELS14: PRINTI "?""" ***************