historicalsource/checkpoint
1
0
Fork 0
mirror of https://github.com/historicalsource/checkpoint synced 2024-04-29 15:39:27 +03:00
Code Issues Releases Wiki Activity
checkpoint/people.cmp
historicalsource 8ae301e53b Final Revision
2019-04-13 22:12:44 -04:00

1333 lines
36 KiB
Plaintext
Raw Blame History

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