;COMPARISON OF PS:THINGS.ZAP.1 AND PS:THINGS.ZAP.3 ;OPTIONS ARE /1 **** FILE PS:THINGS.ZAP.1, 1-8 (125) EQUAL? PRSO,NOT-HERE-OBJECT \?ELS3 EQUAL? PRSI,NOT-HERE-OBJECT \?ELS3 **** FILE PS:THINGS.ZAP.3, 1-8 (125) EQUAL? PRSO,NOT-HERE-OBJECT \?ELS2 EQUAL? PRSI,NOT-HERE-OBJECT \?ELS2 *************** **** FILE PS:THINGS.ZAP.1, 1-13 (257) ?ELS3: EQUAL? PRSO,NOT-HERE-OBJECT \?ELS11 **** FILE PS:THINGS.ZAP.3, 1-13 (257) ?ELS2: EQUAL? PRSO,NOT-HERE-OBJECT \?ELS8 *************** **** FILE PS:THINGS.ZAP.1, 1-16 (332) ?ELS11: SET 'TBL,P-PRSI **** FILE PS:THINGS.ZAP.3, 1-16 (331) ?ELS8: SET 'TBL,P-PRSI *************** **** FILE PS:THINGS.ZAP.1, 1-18 (382) ?CND1: EQUAL? PRSA,V?SEARCH-FOR,V?ASK-FOR,V?ASK-ABOUT \?CND14 FSET? PRSO,PERSONBIT \?CND14 IN? PRSO,GLOBAL-OBJECTS \?CND14 **** FILE PS:THINGS.ZAP.3, 1-18 (380) ?CND1: EQUAL? PRSA,V?SEARCH-FOR,V?ASK-FOR,V?ASK-ABOUT \?CND9 FSET? PRSO,PERSONBIT \?CND9 IN? PRSO,GLOBAL-OBJECTS \?CND9 *************** **** FILE PS:THINGS.ZAP.1, 1-23 (549) ?CND14: ZERO? PRSO? /?ELS27 **** FILE PS:THINGS.ZAP.3, 1-23 (544) ?CND9: ZERO? PRSO? /?ELS16 *************** **** FILE PS:THINGS.ZAP.1, 1-25 (596) ZERO? STACK \?THN24 ?ELS27: ZERO? PRSO? \?CND21 **** FILE PS:THINGS.ZAP.3, 1-25 (590) ZERO? STACK \?THN15 ?ELS16: ZERO? PRSO? \?CND14 *************** **** FILE PS:THINGS.ZAP.1, 1-28 (665) ZERO? STACK /?CND21 ?THN24: CALL FIND-NOT-HERE,TBL,PRSO? >OBJ **** FILE PS:THINGS.ZAP.3, 1-28 (659) ZERO? STACK /?CND14 ?THN15: CALL FIND-NOT-HERE,TBL,PRSO? >OBJ *************** **** FILE PS:THINGS.ZAP.1, 1-31 (749) EQUAL? OBJ,NOT-HERE-OBJECT /?CND30 **** FILE PS:THINGS.ZAP.3, 1-31 (743) EQUAL? OBJ,NOT-HERE-OBJECT /?CND19 *************** **** FILE PS:THINGS.ZAP.1, 1-33 (797) ?CND30: ?CND21: PRINTI "(You can't see any" **** FILE PS:THINGS.ZAP.3, 1-33 (791) ?CND19: ?CND14: PRINTI "(You can't see any" *************** **** FILE PS:THINGS.ZAP.1, 1-44 (967) ?CND1: ZERO? W \?CND4 **** FILE PS:THINGS.ZAP.3, 1-44 (961) ?CND1: ZERO? W \?CND3 *************** **** FILE PS:THINGS.ZAP.1, 1-46 (1006) ?CND4: CALL SPEAKING-VERB?,V **** FILE PS:THINGS.ZAP.3, 1-46 (1000) ?CND3: CALL SPEAKING-VERB?,V *************** **** FILE PS:THINGS.ZAP.1, 1-63 (1505) ?CND1: ZERO? W \?CND4 **** FILE PS:THINGS.ZAP.3, 1-63 (1499) ?CND1: ZERO? W \?CND3 *************** **** FILE PS:THINGS.ZAP.1, 1-65 (1544) ?CND4: EQUAL? V,V?$WHERE,V?ASK-ABOUT,V?ASK-FOR /TRUE **** FILE PS:THINGS.ZAP.3, 1-65 (1538) ?CND3: EQUAL? V,V?$WHERE,V?ASK-ABOUT,V?ASK-FOR /TRUE *************** **** FILE PS:THINGS.ZAP.1, 1-76 (1810) EQUAL? PRSA,V?FOLLOW /?THN12 **** FILE PS:THINGS.ZAP.3, 1-76 (1804) EQUAL? PRSA,V?FOLLOW /?THN7 *************** **** FILE PS:THINGS.ZAP.1, 1-79 (1882) ?THN12: FSET? OBJ,SEENBIT /TRUE **** FILE PS:THINGS.ZAP.3, 1-79 (1875) ?THN7: FSET? OBJ,SEENBIT /TRUE *************** **** FILE PS:THINGS.ZAP.1, 1-94 (2175) ?PRG12: DLESS? 'LEN,0 \?ELS16 JUMP ?REP13 ?ELS16: GET TBL,CNT **** FILE PS:THINGS.ZAP.3, 1-94 (2167) ?PRG9: DLESS? 'LEN,0 \?ELS12 JUMP ?REP10 ?ELS12: GET TBL,CNT *************** **** FILE PS:THINGS.ZAP.1, 1-99 (2270) ?CND14: INC 'CNT JUMP ?PRG12 ?REP13: PRINTI "]" **** FILE PS:THINGS.ZAP.3, 1-99 (2261) ?CND11: INC 'CNT JUMP ?PRG9 ?REP10: PRINTI "]" *************** **** FILE PS:THINGS.ZAP.1, 1-103 (2330) ?CND1: GRTR? M-F,1 \?CND23 **** FILE PS:THINGS.ZAP.3, 1-103 (2320) ?CND1: GRTR? M-F,1 \?CND17 *************** **** FILE PS:THINGS.ZAP.1, 1-105 (2371) ?PRG26: IGRTR? 'CNT,M-F \?CND28 JUMP ?REP27 ?CND28: GET TBL,CNT >OBJ **** FILE PS:THINGS.ZAP.3, 1-105 (2361) ?PRG19: IGRTR? 'CNT,M-F \?CND21 JUMP ?REP20 ?CND21: GET TBL,CNT >OBJ *************** **** FILE PS:THINGS.ZAP.1, 1-109 (2464) ZERO? STACK /?PRG26 IGRTR? 'LOCAL,1 \?ELS36 JUMP ?REP27 ?ELS36: SET 'P-MOBY-FOUND,OBJ JUMP ?PRG26 ?REP27: EQUAL? LOCAL,1 \?CND23 **** FILE PS:THINGS.ZAP.3, 1-109 (2454) ZERO? STACK /?PRG19 IGRTR? 'LOCAL,1 \?ELS26 JUMP ?REP20 ?ELS26: SET 'P-MOBY-FOUND,OBJ JUMP ?PRG19 ?REP20: EQUAL? LOCAL,1 \?CND17 *************** **** FILE PS:THINGS.ZAP.1, 1-116 (2616) ?CND23: EQUAL? 1,M-F \?ELS46 ZERO? DEBUG /?CND47 **** FILE PS:THINGS.ZAP.3, 1-116 (2606) ?CND17: EQUAL? 1,M-F \?ELS32 ZERO? DEBUG /?CND33 *************** **** FILE PS:THINGS.ZAP.1, 1-122 (2732) ?CND47: CALL REMOTE-VERB? ZERO? STACK \?CND53 EQUAL? PRSA,V?$CALL /?CND53 **** FILE PS:THINGS.ZAP.3, 1-122 (2722) ?CND33: CALL REMOTE-VERB? ZERO? STACK \?CND37 EQUAL? PRSA,V?$CALL /?CND37 *************** **** FILE PS:THINGS.ZAP.1, 1-126 (2840) ZERO? STACK \?CND53 **** FILE PS:THINGS.ZAP.3, 1-126 (2830) ZERO? STACK \?CND37 *************** **** FILE PS:THINGS.ZAP.1, 1-129 (2911) ?CND53: ZERO? PRSO? /?ELS60 **** FILE PS:THINGS.ZAP.3, 1-129 (2901) ?CND37: ZERO? PRSO? /?ELS41 *************** **** FILE PS:THINGS.ZAP.1, 1-133 (3003) ?ELS60: SET 'PRSI,P-MOBY-FOUND **** FILE PS:THINGS.ZAP.3, 1-133 (2993) ?ELS41: SET 'PRSI,P-MOBY-FOUND *************** **** FILE PS:THINGS.ZAP.1, 1-136 (3073) ?ELS46: LESS? 1,M-F \?ELS65 **** FILE PS:THINGS.ZAP.3, 1-136 (3063) ?ELS32: LESS? 1,M-F \?ELS42 *************** **** FILE PS:THINGS.ZAP.1, 1-138 (3119) FSET? OBJ,PERSONBIT \?ELS65 **** FILE PS:THINGS.ZAP.3, 1-138 (3109) FSET? OBJ,PERSONBIT \?ELS42 *************** **** FILE PS:THINGS.ZAP.1, 1-141 (3188) ?PRG68: GET TBL,CNT >OBJ **** FILE PS:THINGS.ZAP.3, 1-141 (3178) ?PRG44: GET TBL,CNT >OBJ *************** **** FILE PS:THINGS.ZAP.1, 1-143 (3234) ZERO? STACK \?CND70 **** FILE PS:THINGS.ZAP.3, 1-143 (3224) ZERO? STACK \?CND46 *************** **** FILE PS:THINGS.ZAP.1, 1-146 (3296) GRTR? CNT,LEN /?CND70 JUMP ?PRG68 ?CND70: IGRTR? 'CNT,LEN \?PRG68 **** FILE PS:THINGS.ZAP.3, 1-146 (3286) GRTR? CNT,LEN /?CND46 JUMP ?PRG44 ?CND46: IGRTR? 'CNT,LEN \?PRG44 *************** **** FILE PS:THINGS.ZAP.1, 1-150 (3392) ZERO? LEN \?ELS81 **** FILE PS:THINGS.ZAP.3, 1-150 (3382) ZERO? LEN \?ELS53 *************** **** FILE PS:THINGS.ZAP.1, 1-152 (3437) ?ELS81: EQUAL? LEN,1 /?CND79 **** FILE PS:THINGS.ZAP.3, 1-152 (3427) ?ELS53: EQUAL? LEN,1 /?CND52 *************** **** FILE PS:THINGS.ZAP.1, 1-154 (3496) EQUAL? TBL,P-PRSO \?ELS88 **** FILE PS:THINGS.ZAP.3, 1-154 (3486) EQUAL? TBL,P-PRSO \?ELS58 *************** **** FILE PS:THINGS.ZAP.1, 1-156 (3537) JUMP ?CND84 ?ELS88: PUSH P-NC2 ?CND84: SET 'P-ACLAUSE,STACK **** FILE PS:THINGS.ZAP.3, 1-156 (3527) JUMP ?CND55 ?ELS58: PUSH P-NC2 ?CND55: SET 'P-ACLAUSE,STACK *************** **** FILE PS:THINGS.ZAP.1, 1-164 (3714) ?CND79: ZERO? DEBUG /?CND91 **** FILE PS:THINGS.ZAP.3, 1-164 (3704) ?CND52: ZERO? DEBUG /?CND59 *************** **** FILE PS:THINGS.ZAP.1, 1-169 (3800) ?CND91: ZERO? PRSO? /?ELS99 **** FILE PS:THINGS.ZAP.3, 1-169 (3790) ?CND59: ZERO? PRSO? /?ELS64 *************** **** FILE PS:THINGS.ZAP.1, 1-173 (3883) ?ELS99: SET 'PRSI,OBJ **** FILE PS:THINGS.ZAP.3, 1-173 (3873) ?ELS64: SET 'PRSI,OBJ *************** **** FILE PS:THINGS.ZAP.1, 1-176 (3944) ?ELS65: LESS? 1,M-F \?ELS104 **** FILE PS:THINGS.ZAP.3, 1-176 (3934) ?ELS42: LESS? 1,M-F \?ELS65 *************** **** FILE PS:THINGS.ZAP.1, 1-180 (4034) ZERO? OBJ /?ELS104 ZERO? DEBUG /?CND107 **** FILE PS:THINGS.ZAP.3, 1-180 (4023) ZERO? OBJ /?ELS65 ZERO? DEBUG /?CND67 *************** **** FILE PS:THINGS.ZAP.1, 1-186 (4134) ?CND107: EQUAL? OBJ,NOT-HERE-OBJECT /TRUE ZERO? PRSO? /?ELS117 **** FILE PS:THINGS.ZAP.3, 1-186 (4121) ?CND67: EQUAL? OBJ,NOT-HERE-OBJECT /TRUE ZERO? PRSO? /?ELS73 *************** **** FILE PS:THINGS.ZAP.1, 1-191 (4254) ?ELS117: SET 'PRSI,OBJ **** FILE PS:THINGS.ZAP.3, 1-191 (4239) ?ELS73: SET 'PRSI,OBJ *************** **** FILE PS:THINGS.ZAP.1, 1-194 (4316) ?ELS104: ZERO? PRSO? \?ELS126 IN? PRSO,HERE \?ELS126 EQUAL? PRSA,V?TELL-ABOUT,V?ASK-FOR,V?ASK-ABOUT /?THN131 ?ELS126: ZERO? PRSO? /?ELS128 **** FILE PS:THINGS.ZAP.3, 1-194 (4300) ?ELS65: ZERO? PRSO? \?ELS75 IN? PRSO,HERE \?ELS75 EQUAL? PRSA,V?TELL-ABOUT,V?ASK-FOR,V?ASK-ABOUT /?THN74 ?ELS75: ZERO? PRSO? /?ELS76 *************** **** FILE PS:THINGS.ZAP.1, 1-199 (4483) ZERO? STACK /?ELS128 EQUAL? PRSA,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT /?THN131 ?ELS128: EQUAL? WINNER,PLAYER /?ELS122 EQUAL? PRSA,V?SGIVE /?THN131 EQUAL? PRSA,V?GIVE,V?WHAT,V?FIND \?ELS122 ?THN131: EQUAL? PRSA,V?ASK-FOR,V?ASK-ABOUT \?ELS135 **** FILE PS:THINGS.ZAP.3, 1-199 (4461) ZERO? STACK /?ELS76 EQUAL? PRSA,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT /?THN74 ?ELS76: EQUAL? WINNER,PLAYER /?ELS77 EQUAL? PRSA,V?SGIVE /?THN74 EQUAL? PRSA,V?GIVE,V?WHAT,V?FIND \?ELS77 ?THN74: EQUAL? PRSA,V?ASK-FOR,V?ASK-ABOUT \?ELS81 *************** **** FILE PS:THINGS.ZAP.1, 1-206 (4762) JUMP ?CND133 ?ELS135: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS137 **** FILE PS:THINGS.ZAP.3, 1-206 (4732) JUMP ?CND80 ?ELS81: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS82 *************** **** FILE PS:THINGS.ZAP.1, 1-210 (4861) JUMP ?CND133 ?ELS137: EQUAL? WINNER,PLAYER /?ELS139 **** FILE PS:THINGS.ZAP.3, 1-210 (4828) JUMP ?CND80 ?ELS82: EQUAL? WINNER,PLAYER /?ELS83 *************** **** FILE PS:THINGS.ZAP.1, 1-213 (4945) JUMP ?CND133 ?ELS139: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >OBJ ZERO? OBJ /?ELS141 **** FILE PS:THINGS.ZAP.3, 1-213 (4909) JUMP ?CND80 ?ELS83: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >OBJ ZERO? OBJ /?ELS84 *************** **** FILE PS:THINGS.ZAP.1, 1-217 (5059) JUMP ?CND133 ?ELS141: PRINTI "Someone" ?CND133: PRINTI " says, " **** FILE PS:THINGS.ZAP.3, 1-217 (5020) JUMP ?CND80 ?ELS84: PRINTI "Someone" ?CND80: PRINTI " says, " *************** **** FILE PS:THINGS.ZAP.1, 1-222 (5162) ?ELS122: ZERO? PRSO? \?ELS154 **** FILE PS:THINGS.ZAP.3, 1-222 (5120) ?ELS77: ZERO? PRSO? \?ELS92 *************** **** FILE PS:THINGS.ZAP.1, 1-226 (5267) ?ELS154: RETURN NOT-HERE-OBJECT **** FILE PS:THINGS.ZAP.3, 1-226 (5223) ?ELS92: RETURN NOT-HERE-OBJECT *************** **** FILE PS:THINGS.ZAP.1, 1-230 (5334) ZERO? P-OFLAG \?THN6 **** FILE PS:THINGS.ZAP.3, 1-230 (5289) ZERO? P-OFLAG \?THN4 *************** **** FILE PS:THINGS.ZAP.1, 1-232 (5381) ?THN6: ZERO? P-XADJ /?CND8 **** FILE PS:THINGS.ZAP.3, 1-232 (5336) ?THN4: ZERO? P-XADJ /?CND6 *************** **** FILE PS:THINGS.ZAP.1, 1-235 (5438) ?CND8: ZERO? P-XNAM /FALSE **** FILE PS:THINGS.ZAP.3, 1-235 (5393) ?CND6: ZERO? P-XNAM /FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-239 (5504) ?ELS5: EQUAL? PRSO,NOT-HERE-OBJECT \?ELS23 **** FILE PS:THINGS.ZAP.3, 1-239 (5459) ?ELS5: EQUAL? PRSO,NOT-HERE-OBJECT \?ELS16 *************** **** FILE PS:THINGS.ZAP.1, 1-244 (5648) ?ELS23: GET P-ITBL,P-NC2 >?TMP1 **** FILE PS:THINGS.ZAP.3, 1-244 (5603) ?ELS16: GET P-ITBL,P-NC2 >?TMP1 *************** **** FILE PS:THINGS.ZAP.1, 1-251 (5786) EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-251 (5741) EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS4 *************** **** FILE PS:THINGS.ZAP.1, 1-255 (5927) ZERO? TICKET-VIA /?CND8 **** FILE PS:THINGS.ZAP.3, 1-255 (5882) ZERO? TICKET-VIA /?CND7 *************** **** FILE PS:THINGS.ZAP.1, 1-258 (5990) ?CND8: PRINTR "." ?ELS5: EQUAL? PRSA,V?GIVE \?ELS21 **** FILE PS:THINGS.ZAP.3, 1-258 (5945) ?CND7: PRINTR "." ?ELS4: EQUAL? PRSA,V?GIVE \?ELS14 *************** **** FILE PS:THINGS.ZAP.1, 1-261 (6060) EQUAL? OBJ,CONDUCTOR,GUARD /?THN18 ?ELS21: EQUAL? PRSA,V?SHOW \?ELS17 **** FILE PS:THINGS.ZAP.3, 1-261 (6015) PUSH 1 EQUAL? STACK,CONDUCTOR,GUARD /?THN13 ?ELS14: EQUAL? PRSA,V?SHOW \?ELS15 *************** **** FILE PS:THINGS.ZAP.1, 1-264 (6149) EQUAL? OBJ,CONDUCTOR,GUARD \?ELS17 ?THN18: ZERO? ON-TRAIN \FALSE **** FILE PS:THINGS.ZAP.3, 1-265 (6115) PUSH 1 EQUAL? STACK,CONDUCTOR,GUARD \?ELS15 ?THN13: ZERO? ON-TRAIN \FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-270 (6325) ?ELS17: EQUAL? PRSA,V?BUY-TICKET,V?BUY \FALSE **** FILE PS:THINGS.ZAP.3, 1-272 (6302) ?ELS15: EQUAL? PRSA,V?BUY-TICKET,V?BUY \FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-272 (6400) EQUAL? HERE,TICKET-AREA /?ELS37 **** FILE PS:THINGS.ZAP.3, 1-274 (6377) EQUAL? HERE,TICKET-AREA /?ELS26 *************** **** FILE PS:THINGS.ZAP.1, 1-275 (6459) ?ELS37: EQUAL? PRSA,V?BUY /?THN40 ZERO? PRSI \?CND35 ?THN40: SET 'P-WON,FALSE-VALUE **** FILE PS:THINGS.ZAP.3, 1-277 (6436) ?ELS26: EQUAL? PRSA,V?BUY /?THN27 ZERO? PRSI \?CND25 ?THN27: SET 'P-WON,FALSE-VALUE *************** **** FILE PS:THINGS.ZAP.1, 1-279 (6600) ?CND35: GETP PRSI,P?NORTH >COST GRTR? COST,0 \?THN47 FSET? PRSI,PERSONBIT \?ELS46 ?THN47: PRINTI "You can't buy a ticket to" **** FILE PS:THINGS.ZAP.3, 1-281 (6577) ?CND25: GETP PRSI,P?NORTH >COST GRTR? COST,0 \?THN32 FSET? PRSI,PERSONBIT \?ELS33 ?THN32: PRINTI "You can't buy a ticket to" *************** **** FILE PS:THINGS.ZAP.1, 1-285 (6763) ?ELS46: GRTR? COST,POCKET-CHANGE \?CND44 **** FILE PS:THINGS.ZAP.3, 1-287 (6740) ?ELS33: GRTR? COST,POCKET-CHANGE \?CND31 *************** **** FILE PS:THINGS.ZAP.1, 1-287 (6845) ?CND44: SUB POCKET-CHANGE,COST >POCKET-CHANGE **** FILE PS:THINGS.ZAP.3, 1-289 (6822) ?CND31: SUB POCKET-CHANGE,COST >POCKET-CHANGE *************** **** FILE PS:THINGS.ZAP.1, 1-290 (6952) ZERO? STACK \?ELS57 EQUAL? SCENERY-OBJ,STATION-KNUT /?ELS57 **** FILE PS:THINGS.ZAP.3, 1-292 (6929) ZERO? STACK \?ELS40 EQUAL? SCENERY-OBJ,STATION-KNUT /?ELS40 *************** **** FILE PS:THINGS.ZAP.1, 1-293 (7047) JUMP ?CND55 ?ELS57: SET 'TICKET-VIA,FALSE-VALUE ?CND55: MOVE TICKET,PLAYER **** FILE PS:THINGS.ZAP.3, 1-295 (7024) JUMP ?CND39 ?ELS40: SET 'TICKET-VIA,FALSE-VALUE ?CND39: MOVE TICKET,PLAYER *************** **** FILE PS:THINGS.ZAP.1, 1-309 (7350) EQUAL? PRSA,V?ANALYZE \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-311 (7327) EQUAL? PRSA,V?ANALYZE \?ELS4 *************** **** FILE PS:THINGS.ZAP.1, 1-312 (7425) ?ELS5: EQUAL? PRSA,V?SHOW \?ELS7 IN? PEN,PRSO \?ELS12 **** FILE PS:THINGS.ZAP.3, 1-314 (7402) ?ELS4: EQUAL? PRSA,V?SHOW \?ELS5 IN? PEN,PRSO \?ELS9 *************** **** FILE PS:THINGS.ZAP.1, 1-320 (7609) ?ELS12: EQUAL? PRSO,WAITRESS,GUARD,CONDUCTOR \FALSE **** FILE PS:THINGS.ZAP.3, 1-322 (7585) ?ELS9: EQUAL? PRSO,WAITRESS,GUARD,CONDUCTOR \FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-325 (7784) EQUAL? HERE,CAFE \?ELS23 **** FILE PS:THINGS.ZAP.3, 1-327 (7759) EQUAL? HERE,CAFE \?ELS18 *************** **** FILE PS:THINGS.ZAP.1, 1-329 (7868) ?ELS23: ZERO? ON-TRAIN \?ELS27 **** FILE PS:THINGS.ZAP.3, 1-331 (7843) ?ELS18: ZERO? ON-TRAIN \?ELS21 *************** **** FILE PS:THINGS.ZAP.1, 1-331 (7929) ?ELS27: LESS? CAR-HERE,DINER-CAR \?ELS31 **** FILE PS:THINGS.ZAP.3, 1-333 (7904) ?ELS21: LESS? CAR-HERE,DINER-CAR \?ELS24 *************** **** FILE PS:THINGS.ZAP.1, 1-333 (7995) ?ELS31: GRTR? CAR-HERE,DINER-CAR \?ELS35 **** FILE PS:THINGS.ZAP.3, 1-335 (7970) ?ELS24: GRTR? CAR-HERE,DINER-CAR \?ELS27 *************** **** FILE PS:THINGS.ZAP.1, 1-335 (8057) ?ELS35: PRINTR "to a booth." ?ELS7: EQUAL? PRSA,V?USE,V?SIGN \FALSE **** FILE PS:THINGS.ZAP.3, 1-337 (8032) ?ELS27: PRINTR "to a booth." ?ELS5: EQUAL? PRSA,V?USE,V?SIGN \FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-338 (8143) IN? P,HERE /?THN49 **** FILE PS:THINGS.ZAP.3, 1-340 (8118) PUSH 1 IN? STACK,HERE /?THN36 *************** **** FILE PS:THINGS.ZAP.1, 1-340 (8179) IN? P,HERE \FALSE ?THN49: EQUAL? PRSI,PEN /?THN56 **** FILE PS:THINGS.ZAP.3, 1-343 (8167) PUSH 1 IN? STACK,HERE \FALSE ?THN36: EQUAL? PRSI,PEN /?THN41 *************** **** FILE PS:THINGS.ZAP.1, 1-343 (8242) EQUAL? STACK,P,PLAYER \?ELS55 ?THN56: CALL START-SENTENCE,P IN? PEN,P \?CND60 **** FILE PS:THINGS.ZAP.3, 1-347 (8243) EQUAL? STACK,P,PLAYER \?ELS42 ?THN41: CALL START-SENTENCE,P IN? PEN,P \?CND45 *************** **** FILE PS:THINGS.ZAP.1, 1-350 (8422) ?CND60: MOVE CHECK,P **** FILE PS:THINGS.ZAP.3, 1-354 (8423) ?CND45: MOVE CHECK,P *************** **** FILE PS:THINGS.ZAP.1, 1-356 (8594) ?ELS55: CALL START-SENTENCE,P **** FILE PS:THINGS.ZAP.3, 1-360 (8595) ?ELS42: CALL START-SENTENCE,P *************** **** FILE PS:THINGS.ZAP.1, 1-361 (8701) EQUAL? PRSA,V?AIM \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-365 (8702) EQUAL? PRSA,V?AIM \?ELS4 *************** **** FILE PS:THINGS.ZAP.1, 1-364 (8784) ?ELS5: EQUAL? PRSA,V?EXAMINE \?ELS14 **** FILE PS:THINGS.ZAP.3, 1-368 (8785) ?ELS4: EQUAL? PRSA,V?EXAMINE \?ELS11 *************** **** FILE PS:THINGS.ZAP.1, 1-366 (8850) IN? FILM,CAMERA \?ELS21 ZERO? CAMERA-COCKED \?ELS21 **** FILE PS:THINGS.ZAP.3, 1-370 (8851) IN? FILM,CAMERA \?ELS16 ZERO? CAMERA-COCKED \?ELS16 *************** **** FILE PS:THINGS.ZAP.1, 1-369 (8955) ?ELS21: CALL NOTHING-SPECIAL **** FILE PS:THINGS.ZAP.3, 1-373 (8956) ?ELS16: CALL NOTHING-SPECIAL *************** **** FILE PS:THINGS.ZAP.1, 1-371 (8995) ?ELS14: EQUAL? PRSA,V?LOOK-THROUGH \?ELS29 **** FILE PS:THINGS.ZAP.3, 1-375 (8996) ?ELS11: EQUAL? PRSA,V?LOOK-THROUGH \?ELS20 *************** **** FILE PS:THINGS.ZAP.1, 1-373 (9077) ?ELS29: EQUAL? PRSA,V?OPEN \?ELS33 **** FILE PS:THINGS.ZAP.3, 1-377 (9078) ?ELS20: EQUAL? PRSA,V?OPEN \?ELS23 *************** **** FILE PS:THINGS.ZAP.1, 1-377 (9185) ?ELS33: EQUAL? PRSA,V?SHOOT \?ELS41 **** FILE PS:THINGS.ZAP.3, 1-381 (9186) ?ELS23: EQUAL? PRSA,V?SHOOT \?ELS28 *************** **** FILE PS:THINGS.ZAP.1, 1-381 (9292) ?ELS41: EQUAL? PRSA,V?WIND \FALSE FSET? CAMERA,OPENBIT /?THN52 IN? FILM,CAMERA \?THN52 ZERO? CAMERA-COCKED \?THN52 GRTR? PICTURE-NUMBER,3 \?ELS51 ?THN52: CALL YOU-CANT **** FILE PS:THINGS.ZAP.3, 1-385 (9293) ?ELS28: EQUAL? PRSA,V?WIND \FALSE FSET? CAMERA,OPENBIT /?THN35 IN? FILM,CAMERA \?THN35 ZERO? CAMERA-COCKED \?THN35 GRTR? PICTURE-NUMBER,3 \?ELS36 ?THN35: CALL YOU-CANT *************** **** FILE PS:THINGS.ZAP.1, 1-388 (9479) ?ELS51: INC 'PICTURE-NUMBER **** FILE PS:THINGS.ZAP.3, 1-392 (9480) ?ELS36: INC 'PICTURE-NUMBER *************** **** FILE PS:THINGS.ZAP.1, 1-394 (9577) EQUAL? PRSA,V?WIND \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-398 (9578) EQUAL? PRSA,V?WIND \?ELS4 *************** **** FILE PS:THINGS.ZAP.1, 1-397 (9641) ?ELS5: EQUAL? PRSA,V?READ,V?EXAMINE \FALSE **** FILE PS:THINGS.ZAP.3, 1-401 (9642) ?ELS4: EQUAL? PRSA,V?READ,V?EXAMINE \FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-402 (9763) EQUAL? PRSA,V?LOOK-THROUGH \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-406 (9764) EQUAL? PRSA,V?LOOK-THROUGH \?ELS4 *************** **** FILE PS:THINGS.ZAP.1, 1-404 (9837) ?ELS5: EQUAL? PRSA,V?EXAMINE,V?READ \?ELS9 EQUAL? PRSI,GLASS \?ELS9 EQUAL? PRSO,FILM \?ELS16 **** FILE PS:THINGS.ZAP.3, 1-408 (9838) ?ELS4: EQUAL? PRSA,V?EXAMINE,V?READ \?ELS7 EQUAL? PRSI,GLASS \?ELS7 EQUAL? PRSO,FILM \?ELS12 *************** **** FILE PS:THINGS.ZAP.1, 1-408 (10025) ZERO? PICTURE-NUMBER \?CND19 **** FILE PS:THINGS.ZAP.3, 1-412 (10026) ZERO? PICTURE-NUMBER \?CND15 *************** **** FILE PS:THINGS.ZAP.1, 1-410 (10097) ?CND19: CRLF **** FILE PS:THINGS.ZAP.3, 1-414 (10098) ?CND15: CRLF *************** **** FILE PS:THINGS.ZAP.1, 1-412 (10125) ?PRG24: PRINTI "Picture " **** FILE PS:THINGS.ZAP.3, 1-416 (10126) ?PRG19: PRINTI "Picture " *************** **** FILE PS:THINGS.ZAP.1, 1-416 (10203) ZERO? X \?ELS30 **** FILE PS:THINGS.ZAP.3, 1-420 (10204) ZERO? X \?ELS24 *************** **** FILE PS:THINGS.ZAP.1, 1-418 (10243) JUMP ?CND28 ?ELS30: EQUAL? -1,X \?ELS34 **** FILE PS:THINGS.ZAP.3, 1-422 (10244) JUMP ?CND23 ?ELS24: EQUAL? -1,X \?ELS27 *************** **** FILE PS:THINGS.ZAP.1, 1-421 (10305) JUMP ?CND28 ?ELS34: PRINTI "a picture of " EQUAL? X,GLOBAL-OBJECTS \?ELS43 **** FILE PS:THINGS.ZAP.3, 1-425 (10306) JUMP ?CND23 ?ELS27: PRINTI "a picture of " EQUAL? X,GLOBAL-OBJECTS \?ELS33 *************** **** FILE PS:THINGS.ZAP.1, 1-425 (10426) JUMP ?CND28 ?ELS43: FSET? X,WINDOWBIT \?ELS47 **** FILE PS:THINGS.ZAP.3, 1-429 (10427) JUMP ?CND23 ?ELS33: FSET? X,WINDOWBIT \?ELS36 *************** **** FILE PS:THINGS.ZAP.1, 1-428 (10496) JUMP ?CND28 ?ELS47: ZERO? X /?ELS51 **** FILE PS:THINGS.ZAP.3, 1-432 (10497) JUMP ?CND23 ?ELS36: ZERO? X /?ELS39 *************** **** FILE PS:THINGS.ZAP.1, 1-432 (10564) JUMP ?CND28 ?ELS51: PRINTI "nothing." ?CND28: CRLF IGRTR? 'CNT,4 \?PRG24 **** FILE PS:THINGS.ZAP.3, 1-436 (10565) JUMP ?CND23 ?ELS39: PRINTI "nothing." ?CND23: CRLF IGRTR? 'CNT,4 \?PRG19 *************** **** FILE PS:THINGS.ZAP.1, 1-437 (10653) ?ELS16: FSET? PRSO,READBIT \?ELS63 **** FILE PS:THINGS.ZAP.3, 1-441 (10654) ?ELS12: FSET? PRSO,READBIT \?ELS46 *************** **** FILE PS:THINGS.ZAP.1, 1-439 (10711) ZERO? X /?ELS63 **** FILE PS:THINGS.ZAP.3, 1-443 (10712) ZERO? X /?ELS46 *************** **** FILE PS:THINGS.ZAP.1, 1-443 (10756) ?ELS63: EQUAL? PRSO,GLASS \?ELS69 **** FILE PS:THINGS.ZAP.3, 1-447 (10757) ?ELS46: EQUAL? PRSO,GLASS \?ELS50 *************** **** FILE PS:THINGS.ZAP.1, 1-446 (10816) ?ELS69: EQUAL? PRSO,PLAYER,MIRROR \?ELS71 **** FILE PS:THINGS.ZAP.3, 1-450 (10817) ?ELS50: EQUAL? PRSO,PLAYER,MIRROR \?ELS51 *************** **** FILE PS:THINGS.ZAP.1, 1-448 (10927) ?ELS71: PRINTI "You see" **** FILE PS:THINGS.ZAP.3, 1-452 (10928) ?ELS51: PRINTI "You see" *************** **** FILE PS:THINGS.ZAP.1, 1-451 (11003) ?ELS9: EQUAL? PRSA,V?EXAMINE,V?READ \FALSE **** FILE PS:THINGS.ZAP.3, 1-455 (11004) ?ELS7: EQUAL? PRSA,V?EXAMINE,V?READ \FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-459 (11159) EQUAL? PRSA,V?EAT \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-463 (11160) EQUAL? PRSA,V?EAT \?ELS4 *************** **** FILE PS:THINGS.ZAP.1, 1-462 (11225) ?ELS5: EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS9 ZERO? LIST-RUBBED /?ELS14 **** FILE PS:THINGS.ZAP.3, 1-466 (11226) ?ELS4: EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS7 ZERO? LIST-RUBBED /?ELS11 *************** **** FILE PS:THINGS.ZAP.1, 1-468 (11377) ?ELS14: EQUAL? P-ADVERB,W?CAREFULLY \?ELS19 **** FILE PS:THINGS.ZAP.3, 1-472 (11378) ?ELS11: EQUAL? P-ADVERB,W?CAREFULLY \?ELS14 *************** **** FILE PS:THINGS.ZAP.1, 1-472 (11520) ?ELS19: PRINTI "There doesn't seem to be anything written on the " **** FILE PS:THINGS.ZAP.3, 1-476 (11521) ?ELS14: PRINTI "There doesn't seem to be anything written on the " *************** **** FILE PS:THINGS.ZAP.1, 1-475 (11619) ?ELS9: EQUAL? PRSA,V?RUB \?ELS27 ZERO? PRSI \?ELS32 **** FILE PS:THINGS.ZAP.3, 1-479 (11620) ?ELS7: EQUAL? PRSA,V?RUB \?ELS19 ZERO? PRSI \?ELS23 *************** **** FILE PS:THINGS.ZAP.1, 1-480 (11759) ?ELS32: EQUAL? PRSI,PEN \?ELS36 **** FILE PS:THINGS.ZAP.3, 1-484 (11760) ?ELS23: EQUAL? PRSI,PEN \?ELS26 *************** **** FILE PS:THINGS.ZAP.1, 1-487 (11915) ?ELS36: PRINTI "Nothing " ZERO? LIST-RUBBED /?CND43 **** FILE PS:THINGS.ZAP.3, 1-491 (11916) ?ELS26: PRINTI "Nothing " ZERO? LIST-RUBBED /?CND31 *************** **** FILE PS:THINGS.ZAP.1, 1-490 (11986) ?CND43: PRINTR "appears." ?ELS27: EQUAL? PRSA,V?RUN-OVER \?ELS52 EQUAL? PRSO,PEN \?ELS52 **** FILE PS:THINGS.ZAP.3, 1-494 (11987) ?CND31: PRINTR "appears." ?ELS19: EQUAL? PRSA,V?RUN-OVER \?ELS37 EQUAL? PRSO,PEN \?ELS37 *************** **** FILE PS:THINGS.ZAP.1, 1-498 (12190) ?ELS52: EQUAL? PRSA,V?HOLD-UP \FALSE **** FILE PS:THINGS.ZAP.3, 1-502 (12191) ?ELS37: EQUAL? PRSA,V?HOLD-UP \FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-522 (12671) EQUAL? RARG,M-OBJDESC \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-526 (12672) EQUAL? RARG,M-OBJDESC \?ELS4 *************** **** FILE PS:THINGS.ZAP.1, 1-524 (12761) FSET? BRIEFCASE,SURFACEBIT \?ELS12 **** FILE PS:THINGS.ZAP.3, 1-528 (12762) FSET? BRIEFCASE,SURFACEBIT \?ELS10 *************** **** FILE PS:THINGS.ZAP.1, 1-526 (12817) ?ELS12: PRINTR "open." ?ELS5: EQUAL? PRSA,V?EXAMINE \?ELS20 **** FILE PS:THINGS.ZAP.3, 1-530 (12818) ?ELS10: PRINTR "open." ?ELS4: EQUAL? PRSA,V?EXAMINE \?ELS15 *************** **** FILE PS:THINGS.ZAP.1, 1-529 (12941) EQUAL? P-ADVERB,W?CAREFULLY \?CND23 **** FILE PS:THINGS.ZAP.3, 1-533 (12942) EQUAL? P-ADVERB,W?CAREFULLY \?CND18 *************** **** FILE PS:THINGS.ZAP.1, 1-531 (12999) ?CND23: CRLF **** FILE PS:THINGS.ZAP.3, 1-535 (13000) ?CND18: CRLF *************** **** FILE PS:THINGS.ZAP.1, 1-533 (13023) ?ELS20: CALL REMOTE-VERB? **** FILE PS:THINGS.ZAP.3, 1-537 (13024) ?ELS15: CALL REMOTE-VERB? *************** **** FILE PS:THINGS.ZAP.1, 1-535 (13071) EQUAL? PRSA,V?MOVE,V?TAKE \?ELS29 EQUAL? PRSO,BRIEFCASE \?ELS29 **** FILE PS:THINGS.ZAP.3, 1-539 (13072) EQUAL? PRSA,V?MOVE,V?TAKE \?ELS21 EQUAL? PRSO,BRIEFCASE \?ELS21 *************** **** FILE PS:THINGS.ZAP.1, 1-538 (13169) ?ELS29: LOC BRIEFCASE FSET? STACK,PERSONBIT \?ELS33 **** FILE PS:THINGS.ZAP.3, 1-542 (13170) ?ELS21: LOC BRIEFCASE FSET? STACK,PERSONBIT \?ELS23 *************** **** FILE PS:THINGS.ZAP.1, 1-542 (13274) ?ELS33: EQUAL? PRSA,V?OPEN \?ELS37 FSET? BRIEFCASE-LATCH,OPENBIT /?ELS42 **** FILE PS:THINGS.ZAP.3, 1-546 (13275) ?ELS23: EQUAL? PRSA,V?OPEN \?ELS25 FSET? BRIEFCASE-LATCH,OPENBIT /?ELS29 *************** **** FILE PS:THINGS.ZAP.1, 1-546 (13416) ?ELS42: ZERO? LATCH-TURNED \?ELS46 FSET? BRIEFCASE,SURFACEBIT \?ELS46 **** FILE PS:THINGS.ZAP.3, 1-550 (13417) ?ELS29: ZERO? LATCH-TURNED \?ELS32 FSET? BRIEFCASE,SURFACEBIT \?ELS32 *************** **** FILE PS:THINGS.ZAP.1, 1-550 (13515) ?ELS46: IN? BRIEFCASE,PLAYER \?ELS50 ZERO? PLAYER-SEATED \?ELS50 **** FILE PS:THINGS.ZAP.3, 1-554 (13516) ?ELS32: IN? BRIEFCASE,PLAYER \?ELS34 ZERO? PLAYER-SEATED \?ELS34 *************** **** FILE PS:THINGS.ZAP.1, 1-553 (13615) ZERO? STACK /?ELS50 **** FILE PS:THINGS.ZAP.3, 1-557 (13616) ZERO? STACK /?ELS34 *************** **** FILE PS:THINGS.ZAP.1, 1-555 (13754) ?ELS50: FSET BRIEFCASE,OPENBIT **** FILE PS:THINGS.ZAP.3, 1-559 (13755) ?ELS34: FSET BRIEFCASE,OPENBIT *************** **** FILE PS:THINGS.ZAP.1, 1-558 (13840) ?ELS37: EQUAL? PRSA,V?CLOSE \?ELS58 **** FILE PS:THINGS.ZAP.3, 1-562 (13841) ?ELS25: EQUAL? PRSA,V?CLOSE \?ELS38 *************** **** FILE PS:THINGS.ZAP.1, 1-562 (13959) ?ELS58: EQUAL? PRSA,V?SHAKE \?ELS60 **** FILE PS:THINGS.ZAP.3, 1-566 (13960) ?ELS38: EQUAL? PRSA,V?SHAKE \?ELS39 *************** **** FILE PS:THINGS.ZAP.1, 1-566 (14077) ?ELS60: EQUAL? PRSA,V?MOVE,V?TAKE \FALSE **** FILE PS:THINGS.ZAP.3, 1-570 (14078) ?ELS39: EQUAL? PRSA,V?MOVE,V?TAKE \FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-568 (14150) FSET? BRIEFCASE,OPENBIT \?ELS76 ZERO? PLAYER-SEATED \?ELS76 **** FILE PS:THINGS.ZAP.3, 1-572 (14151) FSET? BRIEFCASE,OPENBIT \?ELS51 ZERO? PLAYER-SEATED \?ELS51 *************** **** FILE PS:THINGS.ZAP.1, 1-572 (14258) ?ELS76: FSET? BRIEFCASE,SURFACEBIT \FALSE **** FILE PS:THINGS.ZAP.3, 1-576 (14259) ?ELS51: FSET? BRIEFCASE,SURFACEBIT \FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-578 (14372) ZERO? YOU? /?ELS3 **** FILE PS:THINGS.ZAP.3, 1-582 (14373) ZERO? YOU? /?ELS2 *************** **** FILE PS:THINGS.ZAP.1, 1-581 (14484) ?ELS3: PRINTI "Too late, you notice that the compartment is filled with p" **** FILE PS:THINGS.ZAP.3, 1-585 (14485) ?ELS2: PRINTI "Too late, you notice that the compartment is filled with p" *************** **** FILE PS:THINGS.ZAP.1, 1-583 (14615) ZERO? YOU? /?CND13 **** FILE PS:THINGS.ZAP.3, 1-587 (14616) ZERO? YOU? /?CND9 *************** **** FILE PS:THINGS.ZAP.1, 1-585 (14705) ?CND13: PRINTI ". Holding your breath will not help: this cunning creation of the chemical warfare chaps is absorbed through the skin. Well, ""only the good die young.""" **** FILE PS:THINGS.ZAP.3, 1-589 (14705) ?CND9: PRINTI ". Holding your breath will not help: this cunning creation of the chemical warfare chaps is absorbed through the skin. Well, ""only the good die young.""" *************** **** FILE PS:THINGS.ZAP.1, 1-594 (14964) ZERO? STACK \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-598 (14963) ZERO? STACK \?ELS4 *************** **** FILE PS:THINGS.ZAP.1, 1-597 (15027) ?ELS5: EQUAL? PRSA,V?EXAMINE \?ELS7 **** FILE PS:THINGS.ZAP.3, 1-601 (15026) ?ELS4: EQUAL? PRSA,V?EXAMINE \?ELS5 *************** **** FILE PS:THINGS.ZAP.1, 1-599 (15156) ZERO? LATCH-TURNED \?ELS12 **** FILE PS:THINGS.ZAP.3, 1-603 (15155) ZERO? LATCH-TURNED \?ELS9 *************** **** FILE PS:THINGS.ZAP.1, 1-601 (15207) JUMP ?CND10 ?ELS12: PRINTI "toward " ?CND10: PRINTI "the handle of the briefcase. The latch is " FSET? BRIEFCASE-LATCH,OPENBIT /?ELS23 **** FILE PS:THINGS.ZAP.3, 1-605 (15205) JUMP ?CND8 ?ELS9: PRINTI "toward " ?CND8: PRINTI "the handle of the briefcase. The latch is " FSET? BRIEFCASE-LATCH,OPENBIT /?ELS17 *************** **** FILE PS:THINGS.ZAP.1, 1-606 (15367) JUMP ?CND21 ?ELS23: PRINTI "open." ?CND21: EQUAL? P-ADVERB,W?CAREFULLY \?CND30 **** FILE PS:THINGS.ZAP.3, 1-610 (15362) JUMP ?CND16 ?ELS17: PRINTI "open." ?CND16: EQUAL? P-ADVERB,W?CAREFULLY \?CND22 *************** **** FILE PS:THINGS.ZAP.1, 1-610 (15470) ?CND30: CRLF **** FILE PS:THINGS.ZAP.3, 1-614 (15465) ?CND22: CRLF *************** **** FILE PS:THINGS.ZAP.1, 1-612 (15494) ?ELS7: CALL REMOTE-VERB? **** FILE PS:THINGS.ZAP.3, 1-616 (15489) ?ELS5: CALL REMOTE-VERB? *************** **** FILE PS:THINGS.ZAP.1, 1-615 (15557) FSET? STACK,PERSONBIT \?ELS36 **** FILE PS:THINGS.ZAP.3, 1-619 (15552) FSET? STACK,PERSONBIT \?ELS25 *************** **** FILE PS:THINGS.ZAP.1, 1-618 (15639) ?ELS36: EQUAL? PRSA,V?AIM,V?TURN \?ELS40 EQUAL? PRSO,BRIEFCASE-LATCH \?ELS40 ZERO? LATCH-TURNED \?PRD43 PUSH 1 JUMP ?PRD44 ?PRD43: PUSH 0 ?PRD44: SET 'LATCH-TURNED,STACK PRINTR "A mechanical click comes from within the briefcase." ?ELS40: EQUAL? PRSA,V?CLOSE \?ELS48 FSET? BRIEFCASE,OPENBIT \?ELS53 **** FILE PS:THINGS.ZAP.3, 1-622 (15634) ?ELS25: EQUAL? PRSA,V?AIM,V?TURN \?ELS27 EQUAL? PRSO,BRIEFCASE-LATCH \?ELS27 ZERO? LATCH-TURNED \?PRD29 SET 'LATCH-TURNED,1 JUMP ?PRD30 ?PRD29: SET 'LATCH-TURNED,0 ?PRD30: PRINTR "A mechanical click comes from within the briefcase." ?ELS27: EQUAL? PRSA,V?CLOSE \?ELS33 FSET? BRIEFCASE,OPENBIT \?ELS37 *************** **** FILE PS:THINGS.ZAP.1, 1-630 (15998) ?ELS53: FSET? BRIEFCASE-LATCH,OPENBIT /?ELS55 **** FILE PS:THINGS.ZAP.3, 1-633 (15993) ?ELS37: FSET? BRIEFCASE-LATCH,OPENBIT /?ELS38 *************** **** FILE PS:THINGS.ZAP.1, 1-633 (16091) ?ELS55: CALL OKAY,BRIEFCASE-LATCH,STR?7 **** FILE PS:THINGS.ZAP.3, 1-636 (16086) ?ELS38: CALL OKAY,BRIEFCASE-LATCH,STR?7 *************** **** FILE PS:THINGS.ZAP.1, 1-635 (16142) ?ELS48: EQUAL? PRSA,V?RUB,V?SLIDE,V?MOVE /?THN62 **** FILE PS:THINGS.ZAP.3, 1-638 (16137) ?ELS33: EQUAL? PRSA,V?RUB,V?SLIDE,V?MOVE /?THN40 *************** **** FILE PS:THINGS.ZAP.1, 1-637 (16235) ?THN62: EQUAL? PRSO,BRIEFCASE-LATCH \FALSE FSET? BRIEFCASE-LATCH,OPENBIT /?ELS68 **** FILE PS:THINGS.ZAP.3, 1-640 (16230) ?THN40: EQUAL? PRSO,BRIEFCASE-LATCH \FALSE FSET? BRIEFCASE-LATCH,OPENBIT /?ELS45 *************** **** FILE PS:THINGS.ZAP.1, 1-641 (16389) ZERO? LATCH-TURNED \?CND71 **** FILE PS:THINGS.ZAP.3, 1-644 (16384) ZERO? LATCH-TURNED \?CND48 *************** **** FILE PS:THINGS.ZAP.1, 1-643 (16494) ?CND71: CRLF **** FILE PS:THINGS.ZAP.3, 1-646 (16489) ?CND48: CRLF *************** **** FILE PS:THINGS.ZAP.1, 1-645 (16518) ?ELS68: PRINTR "The latch is already open." **** FILE PS:THINGS.ZAP.3, 1-648 (16513) ?ELS45: PRINTR "The latch is already open." *************** **** FILE PS:THINGS.ZAP.1, 1-680 (17447) EQUAL? 0,THING /?PRG1 **** FILE PS:THINGS.ZAP.3, 1-683 (17442) ZERO? THING /?PRG1 *************** **** FILE PS:THINGS.ZAP.1, 1-689 (17632) ?CND1: FIRST? OBJ \?CND6 **** FILE PS:THINGS.ZAP.3, 1-692 (17624) ?CND1: FIRST? OBJ \?CND5 *************** **** FILE PS:THINGS.ZAP.1, 1-691 (17684) ?CND6: GET TBL,0 >MAX ZERO? DEBUG \?THN12 ZERO? STR \?ELS11 ?THN12: PRINTI "Opened." **** FILE PS:THINGS.ZAP.3, 1-694 (17676) ?CND5: GET TBL,0 >MAX ZERO? DEBUG \?THN8 ZERO? STR \?ELS9 ?THN8: PRINTI "Opened." *************** **** FILE PS:THINGS.ZAP.1, 1-696 (17783) JUMP ?CND9 ?ELS11: EQUAL? STR,1 /?CND9 **** FILE PS:THINGS.ZAP.3, 1-699 (17772) JUMP ?CND7 ?ELS9: EQUAL? STR,1 /?CND7 *************** **** FILE PS:THINGS.ZAP.1, 1-700 (17845) ?CND9: FCLEAR OBJ,SURFACEBIT ?PRG20: IGRTR? 'OFFS,MAX \?ELS24 JUMP ?REP21 ?ELS24: GET TBL,OFFS >THING ZERO? THING /?PRG20 **** FILE PS:THINGS.ZAP.3, 1-703 (17833) ?CND7: FCLEAR OBJ,SURFACEBIT ?PRG15: IGRTR? 'OFFS,MAX \?ELS18 JUMP ?REP16 ?ELS18: GET TBL,OFFS >THING ZERO? THING /?PRG15 *************** **** FILE PS:THINGS.ZAP.1, 1-708 (18029) JUMP ?PRG20 ?REP21: EQUAL? STR,1 /TRUE **** FILE PS:THINGS.ZAP.3, 1-711 (18017) JUMP ?PRG15 ?REP16: EQUAL? STR,1 /TRUE *************** **** FILE PS:THINGS.ZAP.1, 1-724 (18357) ZERO? DEBUG \?THN9 ZERO? STR \?ELS8 ?THN9: PRINTI "Closed." **** FILE PS:THINGS.ZAP.3, 1-727 (18345) ZERO? DEBUG \?THN6 ZERO? STR \?ELS7 ?THN6: PRINTI "Closed." *************** **** FILE PS:THINGS.ZAP.1, 1-728 (18430) JUMP ?CND6 ?ELS8: EQUAL? STR,1 /?CND6 **** FILE PS:THINGS.ZAP.3, 1-731 (18418) JUMP ?CND5 ?ELS7: EQUAL? STR,1 /?CND5 *************** **** FILE PS:THINGS.ZAP.1, 1-732 (18491) ?CND6: FIRST? OBJ >F \TRUE ?PRG20: ZERO? F /TRUE **** FILE PS:THINGS.ZAP.3, 1-735 (18479) ?CND5: FIRST? OBJ >F \TRUE ?PRG15: ZERO? F /TRUE *************** **** FILE PS:THINGS.ZAP.1, 1-735 (18553) NEXT? N >F /?KLU35 ?KLU35: MOVE N,LIMBO-FWD ?PRG30: INC 'OFFS **** FILE PS:THINGS.ZAP.3, 1-738 (18541) NEXT? N >F /?KLU24 ?KLU24: MOVE N,LIMBO-FWD ?PRG20: INC 'OFFS *************** **** FILE PS:THINGS.ZAP.1, 1-739 (18634) ZERO? STACK \?PRG30 **** FILE PS:THINGS.ZAP.3, 1-742 (18622) ZERO? STACK \?PRG20 *************** **** FILE PS:THINGS.ZAP.1, 1-741 (18673) JUMP ?PRG20 **** FILE PS:THINGS.ZAP.3, 1-744 (18661) JUMP ?PRG15 *************** **** FILE PS:THINGS.ZAP.1, 1-748 (18801) ?CND1: FIRST? OBJ >F /?KLU22 ?KLU22: ?PRG4: ZERO? F \?ELS8 JUMP ?REP5 ?ELS8: SET 'N,F NEXT? N >F /?KLU23 ?KLU23: MOVE N,THERE **** FILE PS:THINGS.ZAP.3, 1-751 (18789) ?CND1: FIRST? OBJ >F /?KLU14 ?KLU14: ?PRG3: ZERO? F \?ELS6 JUMP ?REP4 ?ELS6: SET 'N,F NEXT? N >F /?KLU15 ?KLU15: MOVE N,THERE *************** **** FILE PS:THINGS.ZAP.1, 1-756 (18961) JUMP ?PRG4 ?REP5: FIRST? OBJ >F /?KLU24 ?KLU24: ZERO? SLIDE /FALSE **** FILE PS:THINGS.ZAP.3, 1-759 (18949) JUMP ?PRG3 ?REP4: FIRST? OBJ >F /?KLU16 ?KLU16: ZERO? SLIDE /FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-768 (19148) EQUAL? PRSA,V?BUY \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-771 (19136) EQUAL? PRSA,V?BUY \?ELS4 *************** **** FILE PS:THINGS.ZAP.1, 1-770 (19201) GRTR? POCKET-CHANGE,0 /?CND11 **** FILE PS:THINGS.ZAP.3, 1-773 (19189) GRTR? POCKET-CHANGE,0 /?CND9 *************** **** FILE PS:THINGS.ZAP.1, 1-772 (19269) ?CND11: SET 'P-DOLLAR-FLAG,TRUE-VALUE **** FILE PS:THINGS.ZAP.3, 1-775 (19256) ?CND9: SET 'P-DOLLAR-FLAG,TRUE-VALUE *************** **** FILE PS:THINGS.ZAP.1, 1-776 (19374) ?ELS5: EQUAL? PRSA,V?LAMP-ON,V?SMOKE \FALSE **** FILE PS:THINGS.ZAP.3, 1-779 (19360) ?ELS4: EQUAL? PRSA,V?LAMP-ON,V?SMOKE \FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-787 (19632) IN? OBJ,HERE \?ELS5 EQUAL? PRSA,V?FIND /?THN8 EQUAL? PRSA,V?SEARCH-FOR \?ELS5 EQUAL? PRSI,OBJ \?ELS5 ?THN8: FCLEAR OBJ,NDESCBIT **** FILE PS:THINGS.ZAP.3, 1-790 (19618) IN? OBJ,HERE \?ELS4 EQUAL? PRSA,V?FIND /?THN5 EQUAL? PRSA,V?SEARCH-FOR \?ELS4 EQUAL? PRSI,OBJ \?ELS4 ?THN5: FCLEAR OBJ,NDESCBIT *************** **** FILE PS:THINGS.ZAP.1, 1-798 (19909) ?ELS5: CALL SNEAKY-TAKE?,OBJ **** FILE PS:THINGS.ZAP.3, 1-801 (19895) ?ELS4: CALL SNEAKY-TAKE?,OBJ *************** **** FILE PS:THINGS.ZAP.1, 1-806 (20059) EQUAL? PRSA,V?FIND \?ELS9 **** FILE PS:THINGS.ZAP.3, 1-809 (20045) EQUAL? PRSA,V?FIND \?ELS5 *************** **** FILE PS:THINGS.ZAP.1, 1-808 (20103) ZERO? OBJ \?THN6 ?ELS9: EQUAL? PRSA,V?SEARCH-FOR \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-811 (20089) ZERO? 1 \?THN4 ?ELS5: EQUAL? PRSA,V?SEARCH-FOR \?ELS6 *************** **** FILE PS:THINGS.ZAP.1, 1-811 (20178) ZERO? OBJ /?ELS5 ?THN6: LOC OBJ **** FILE PS:THINGS.ZAP.3, 1-814 (20162) ZERO? 1 /?ELS6 ?THN4: LOC OBJ *************** **** FILE PS:THINGS.ZAP.1, 1-818 (20363) ?ELS5: EQUAL? PRSA,V?TAKE \?ELS22 **** FILE PS:THINGS.ZAP.3, 1-821 (20345) ?ELS6: EQUAL? PRSA,V?TAKE \?ELS15 *************** **** FILE PS:THINGS.ZAP.1, 1-822 (20480) ?ELS22: EQUAL? PRSA,V?BRUSH,V?TAKE-WITH \FALSE EQUAL? PRSI,SPY-LIST /?THN32 **** FILE PS:THINGS.ZAP.3, 1-825 (20462) ?ELS15: EQUAL? PRSA,V?BRUSH,V?TAKE-WITH \FALSE EQUAL? PRSI,SPY-LIST /?THN22 *************** **** FILE PS:THINGS.ZAP.1, 1-826 (20608) ?THN32: MOVE PRSO,SPY-LIST **** FILE PS:THINGS.ZAP.3, 1-829 (20590) ?THN22: MOVE PRSO,SPY-LIST *************** **** FILE PS:THINGS.ZAP.1, 1-838 (20804) EQUAL? PRSA,V?EXAMINE \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-841 (20786) EQUAL? PRSA,V?EXAMINE \?ELS4 *************** **** FILE PS:THINGS.ZAP.1, 1-843 (20928) ?ELS5: FSET? OBJ,NDESCBIT \?ELS14 IN? PER,HERE \?ELS14 **** FILE PS:THINGS.ZAP.3, 1-846 (20910) ?ELS4: FSET? OBJ,NDESCBIT \?ELS11 IN? PER,HERE \?ELS11 *************** **** FILE PS:THINGS.ZAP.1, 1-846 (21005) ZERO? STACK \?ELS14 **** FILE PS:THINGS.ZAP.3, 1-849 (20987) ZERO? STACK \?ELS11 *************** **** FILE PS:THINGS.ZAP.1, 1-853 (21150) ?ELS14: FSET? OBJ,TRYTAKEBIT \FALSE **** FILE PS:THINGS.ZAP.3, 1-856 (21132) ?ELS11: FSET? OBJ,TRYTAKEBIT \FALSE *************** **** FILE PS:THINGS.ZAP.1, 1-864 (21321) EQUAL? PRSO,OBJ \?ELS5 **** FILE PS:THINGS.ZAP.3, 1-867 (21303) EQUAL? PRSO,OBJ \?ELS4 *************** **** FILE PS:THINGS.ZAP.1, 1-868 (21422) ?ELS5: EQUAL? PRSI,OBJ \FALSE **** FILE PS:THINGS.ZAP.3, 1-871 (21404) ?ELS4: EQUAL? PRSI,OBJ \FALSE ***************