;COMPARISON OF PS:VERBS.ZAP.1 AND PS:VERBS.ZAP.3 ;OPTIONS ARE /1 **** FILE PS:VERBS.ZAP.1, 1-28 (358) ZERO? PRSO /?ELS5 EQUAL? PRSO,INTNUM \?ELS11 EQUAL? P-NUMBER,105 \?ELS11 **** FILE PS:VERBS.ZAP.3, 1-28 (358) ZERO? PRSO /?ELS4 EQUAL? PRSO,INTNUM \?ELS8 EQUAL? P-NUMBER,105 \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-34 (470) ?ELS11: CALL DONT-UNDERSTAND **** FILE PS:VERBS.ZAP.3, 1-34 (468) ?ELS8: CALL DONT-UNDERSTAND *************** **** FILE PS:VERBS.ZAP.1, 1-36 (510) ?ELS5: PRINTI "Verifying disk..." **** FILE PS:VERBS.ZAP.3, 1-36 (507) ?ELS4: PRINTI "Verifying disk..." *************** **** FILE PS:VERBS.ZAP.1, 1-38 (553) VERIFY \?ELS26 **** FILE PS:VERBS.ZAP.3, 1-38 (550) VERIFY \?ELS17 *************** **** FILE PS:VERBS.ZAP.1, 1-40 (603) ?ELS26: PRINTR "Oh, oh! The disk seems to have a defect. Try verifying again. (If you've already done that, the disk surely has a defect.)" **** FILE PS:VERBS.ZAP.3, 1-40 (600) ?ELS17: PRINTI "Oh, oh! The disk seems to have a defect. Try verifying again. (If you've already done that, the disk surely has a defect.)" CRLF PUSH 1 RSTACK *************** **** FILE PS:VERBS.ZAP.1, 1-54 (950) ZERO? L-PRSO /?CND14 **** FILE PS:VERBS.ZAP.3, 1-57 (974) ZERO? L-PRSO /?CND13 *************** **** FILE PS:VERBS.ZAP.1, 1-58 (1025) EQUAL? NOT-HERE-OBJECT,L-PRSO \?CND14 **** FILE PS:VERBS.ZAP.3, 1-61 (1049) EQUAL? NOT-HERE-OBJECT,L-PRSO \?CND13 *************** **** FILE PS:VERBS.ZAP.1, 1-62 (1126) ?CND14: PRINTI " PRSI=" **** FILE PS:VERBS.ZAP.3, 1-65 (1150) ?CND13: PRINTI " PRSI=" *************** **** FILE PS:VERBS.ZAP.1, 1-64 (1167) ZERO? L-PRSI /?CND30 **** FILE PS:VERBS.ZAP.3, 1-67 (1191) ZERO? L-PRSI /?CND27 *************** **** FILE PS:VERBS.ZAP.1, 1-68 (1242) EQUAL? NOT-HERE-OBJECT,L-PRSI \?CND30 **** FILE PS:VERBS.ZAP.3, 1-71 (1266) EQUAL? NOT-HERE-OBJECT,L-PRSI \?CND27 *************** **** FILE PS:VERBS.ZAP.1, 1-72 (1343) ?CND30: CRLF **** FILE PS:VERBS.ZAP.3, 1-75 (1367) ?CND27: CRLF *************** **** FILE PS:VERBS.ZAP.1, 1-82 (1502) ZERO? PICKPOCKET /?CND8 **** FILE PS:VERBS.ZAP.3, 1-85 (1526) ZERO? PICKPOCKET /?CND6 *************** **** FILE PS:VERBS.ZAP.1, 1-86 (1585) ?CND8: PRINTI ". **** FILE PS:VERBS.ZAP.3, 1-89 (1609) ?CND6: PRINTI ". *************** **** FILE PS:VERBS.ZAP.1, 1-97 (1767) PUSH 1 **** FILE PS:VERBS.ZAP.3, 1-100 (1791) SET 'CUSTOMS-SWEEP,1 *************** **** FILE PS:VERBS.ZAP.1, 1-99 (1789) ?PRD1: PUSH 0 ?PRD2: SET 'CUSTOMS-SWEEP,STACK ZERO? CUSTOMS-SWEEP /?ELS7 ZERO? IN-STATION /?ELS11 **** FILE PS:VERBS.ZAP.3, 1-102 (1827) ?PRD1: SET 'CUSTOMS-SWEEP,0 ?PRD2: ZERO? CUSTOMS-SWEEP /?ELS6 ZERO? IN-STATION /?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-108 (2047) JUMP ?CND9 ?ELS11: SET 'SCENERY-OBJ,STATION-GRNZ **** FILE PS:VERBS.ZAP.3, 1-110 (2071) JUMP ?CND7 ?ELS8: SET 'SCENERY-OBJ,STATION-GRNZ *************** **** FILE PS:VERBS.ZAP.1, 1-111 (2121) ?CND9: PRINTR "[here]" ?ELS7: FSET PLAQUE,INVISIBLE **** FILE PS:VERBS.ZAP.3, 1-113 (2144) ?CND7: PRINTR "[here]" ?ELS6: FSET PLAQUE,INVISIBLE *************** **** FILE PS:VERBS.ZAP.1, 1-119 (2286) ZERO? PRSO /?ELS5 EQUAL? PRSI,INTNUM \?ELS5 FSET? PRSO,P-NUMBER \?CND8 **** FILE PS:VERBS.ZAP.3, 1-121 (2309) ZERO? PRSO /?ELS4 EQUAL? PRSI,INTNUM \?ELS4 FSET? PRSO,P-NUMBER \?CND6 *************** **** FILE PS:VERBS.ZAP.1, 1-123 (2383) ?CND8: FCLEAR PRSO,P-NUMBER ZERO? F /?ELS15 **** FILE PS:VERBS.ZAP.3, 1-125 (2406) ?CND6: FCLEAR PRSO,P-NUMBER ZERO? F /?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-126 (2443) ?ELS15: PRINTR "#FALSE ()" ?ELS5: PRINTR "OOPS!" **** FILE PS:VERBS.ZAP.3, 1-128 (2466) ?ELS11: PRINTR "#FALSE ()" ?ELS4: PRINTR "OOPS!" *************** **** FILE PS:VERBS.ZAP.1, 1-131 (2519) ZERO? PRSO /?ELS5 EQUAL? PRSI,INTNUM \?ELS5 FSET? PRSO,P-NUMBER \?CND8 **** FILE PS:VERBS.ZAP.3, 1-133 (2542) ZERO? PRSO /?ELS4 EQUAL? PRSI,INTNUM \?ELS4 FSET? PRSO,P-NUMBER \?CND6 *************** **** FILE PS:VERBS.ZAP.1, 1-135 (2616) ?CND8: FSET PRSO,P-NUMBER ZERO? F /?ELS15 **** FILE PS:VERBS.ZAP.3, 1-137 (2639) ?CND6: FSET PRSO,P-NUMBER ZERO? F /?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-138 (2674) ?ELS15: PRINTR "#FALSE ()" ?ELS5: PRINTR "OOPS!" **** FILE PS:VERBS.ZAP.3, 1-140 (2697) ?ELS11: PRINTR "#FALSE ()" ?ELS4: PRINTR "OOPS!" *************** **** FILE PS:VERBS.ZAP.1, 1-143 (2747) ZERO? PRSO /?ELS5 EQUAL? PRSI,INTNUM \?ELS5 FSET? PRSO,P-NUMBER \?ELS12 **** FILE PS:VERBS.ZAP.3, 1-145 (2770) ZERO? PRSO /?ELS4 EQUAL? PRSI,INTNUM \?ELS4 FSET? PRSO,P-NUMBER \?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-147 (2838) ?ELS12: PRINTR "#FALSE ()" ?ELS5: PRINTR "OOPS!" **** FILE PS:VERBS.ZAP.3, 1-149 (2860) ?ELS9: PRINTR "#FALSE ()" ?ELS4: PRINTR "OOPS!" *************** **** FILE PS:VERBS.ZAP.1, 1-156 (3036) EQUAL? CNT,EXTRA-C \?ELS8 ZERO? S \?ELS8 **** FILE PS:VERBS.ZAP.3, 1-158 (3057) EQUAL? CNT,EXTRA-C \?ELS6 ZERO? S \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-165 (3193) ZERO? STACK \?CND15 **** FILE PS:VERBS.ZAP.3, 1-167 (3214) ZERO? STACK \?CND12 *************** **** FILE PS:VERBS.ZAP.1, 1-167 (3238) ?CND15: CRLF **** FILE PS:VERBS.ZAP.3, 1-169 (3259) ?CND12: CRLF *************** **** FILE PS:VERBS.ZAP.1, 1-169 (3266) ?ELS8: LOC C **** FILE PS:VERBS.ZAP.3, 1-171 (3287) ?ELS6: LOC C *************** **** FILE PS:VERBS.ZAP.1, 1-176 (3376) ZERO? STACK /?CND26 **** FILE PS:VERBS.ZAP.3, 1-178 (3397) ZERO? STACK /?CND20 *************** **** FILE PS:VERBS.ZAP.1, 1-181 (3455) ?CND26: GET O,GOAL-F >L EQUAL? S,L /?CND31 **** FILE PS:VERBS.ZAP.3, 1-183 (3476) ?CND20: GET O,GOAL-F >L EQUAL? S,L /?CND24 *************** **** FILE PS:VERBS.ZAP.1, 1-186 (3549) ZERO? STACK /?CND31 **** FILE PS:VERBS.ZAP.3, 1-188 (3570) ZERO? STACK /?CND24 *************** **** FILE PS:VERBS.ZAP.1, 1-191 (3628) ?CND31: GET O,GOAL-I >L ZERO? L /?CND41 **** FILE PS:VERBS.ZAP.3, 1-193 (3649) ?CND24: GET O,GOAL-I >L ZERO? L /?CND32 *************** **** FILE PS:VERBS.ZAP.1, 1-194 (3697) ZERO? L \?ELS46 **** FILE PS:VERBS.ZAP.3, 1-196 (3718) ZERO? L \?ELS35 *************** **** FILE PS:VERBS.ZAP.1, 1-196 (3731) JUMP ?CND41 ?ELS46: PRINTI "/I:" **** FILE PS:VERBS.ZAP.3, 1-198 (3752) JUMP ?CND32 ?ELS35: PRINTI "/I:" *************** **** FILE PS:VERBS.ZAP.1, 1-200 (3800) ZERO? STACK /?CND44 **** FILE PS:VERBS.ZAP.3, 1-202 (3821) ZERO? STACK /?CND34 *************** **** FILE PS:VERBS.ZAP.1, 1-205 (3879) ?CND44: ?CND41: GET O,GOAL-FUNCTION EQUAL? I-WALK-TRAIN,STACK \?CND58 **** FILE PS:VERBS.ZAP.3, 1-207 (3900) ?CND34: ?CND32: GET O,GOAL-FUNCTION EQUAL? I-WALK-TRAIN,STACK \?CND44 *************** **** FILE PS:VERBS.ZAP.1, 1-215 (4067) ?CND58: GET O,GOAL-ENABLE ZERO? STACK \?CND63 **** FILE PS:VERBS.ZAP.3, 1-217 (4088) ?CND44: GET O,GOAL-ENABLE ZERO? STACK \?CND48 *************** **** FILE PS:VERBS.ZAP.1, 1-218 (4139) ?CND63: CRLF **** FILE PS:VERBS.ZAP.3, 1-220 (4160) ?CND48: CRLF *************** **** FILE PS:VERBS.ZAP.1, 1-224 (4236) ZERO? CNT /?ELS3 **** FILE PS:VERBS.ZAP.3, 1-226 (4257) ZERO? CNT /?ELS2 *************** **** FILE PS:VERBS.ZAP.1, 1-227 (4293) ?ELS3: CALL ZMEMZ,PRSO,TRAIN-TABLE-B >CNT ZERO? CNT /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-229 (4314) ?ELS2: CALL ZMEMZ,PRSO,TRAIN-TABLE-B >CNT ZERO? CNT /?ELS3 *************** **** FILE PS:VERBS.ZAP.1, 1-231 (4393) ?ELS5: PRINTR "[Not in timetable!]" **** FILE PS:VERBS.ZAP.3, 1-233 (4414) ?ELS3: PRINTR "[Not in timetable!]" *************** **** FILE PS:VERBS.ZAP.1, 1-242 (4616) ZERO? PRSI /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-244 (4637) ZERO? PRSI /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-245 (4662) ?ELS5: ZERO? PRSO /?ELS8 **** FILE PS:VERBS.ZAP.3, 1-247 (4683) ?ELS4: ZERO? PRSO /?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-248 (4722) ?ELS8: ?PRG12: GET CHARACTER-TABLE,CNT >O ZERO? O /?CND14 **** FILE PS:VERBS.ZAP.3, 1-250 (4743) ?ELS5: ?PRG6: GET CHARACTER-TABLE,CNT >O ZERO? O /?CND8 *************** **** FILE PS:VERBS.ZAP.1, 1-252 (4806) ?CND14: IGRTR? 'CNT,CHARACTER-MAX \?PRG12 **** FILE PS:VERBS.ZAP.3, 1-254 (4825) ?CND8: IGRTR? 'CNT,CHARACTER-MAX \?PRG6 *************** **** FILE PS:VERBS.ZAP.1, 1-254 (4874) ?PRG20: GET EXTRA-TABLE,CNT >O ZERO? O /?CND22 **** FILE PS:VERBS.ZAP.3, 1-256 (4891) ?PRG12: GET EXTRA-TABLE,CNT >O ZERO? O /?CND14 *************** **** FILE PS:VERBS.ZAP.1, 1-257 (4945) ?CND22: DLESS? 'CNT,1 \?PRG20 RTRUE **** FILE PS:VERBS.ZAP.3, 1-259 (4962) ?CND14: DLESS? 'CNT,1 \?PRG12 PUSH 1 RSTACK *************** **** FILE PS:VERBS.ZAP.1, 1-265 (5052) ZERO? L /?ELS7 **** FILE PS:VERBS.ZAP.3, 1-268 (5079) ZERO? L /?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-268 (5098) ZERO? STACK /?CND11 **** FILE PS:VERBS.ZAP.3, 1-271 (5125) ZERO? STACK /?CND9 *************** **** FILE PS:VERBS.ZAP.1, 1-273 (5182) ?CND11: CALL PRINTT,L **** FILE PS:VERBS.ZAP.3, 1-276 (5208) ?CND9: CALL PRINTT,L *************** **** FILE PS:VERBS.ZAP.1, 1-275 (5236) ZERO? STACK /?ELS20 **** FILE PS:VERBS.ZAP.3, 1-278 (5261) ZERO? STACK /?ELS16 *************** **** FILE PS:VERBS.ZAP.1, 1-277 (5278) JUMP ?CND18 ?ELS20: CALL ON-PLATFORM?,L ZERO? STACK /?CND18 **** FILE PS:VERBS.ZAP.3, 1-280 (5303) JUMP ?CND15 ?ELS16: CALL ON-PLATFORM?,L ZERO? STACK /?CND15 *************** **** FILE PS:VERBS.ZAP.1, 1-284 (5400) ?CND18: PRINTR "." ?ELS7: PRINTR "nowhere." **** FILE PS:VERBS.ZAP.3, 1-287 (5425) ?CND15: PRINTR "." ?ELS6: PRINTR "nowhere." *************** **** FILE PS:VERBS.ZAP.1, 1-289 (5467) ZERO? PRSO /?ELS5 ZERO? IDEBUG \?PRD7 PUSH 1 JUMP ?PRD8 ?PRD7: PUSH 0 ?PRD8: SET 'IDEBUG,STACK PRINTI "[" **** FILE PS:VERBS.ZAP.3, 1-292 (5492) ZERO? PRSO /?ELS4 ZERO? IDEBUG \?PRD5 SET 'IDEBUG,1 JUMP ?PRD6 ?PRD5: SET 'IDEBUG,0 ?PRD6: PRINTI "[" *************** **** FILE PS:VERBS.ZAP.1, 1-298 (5614) ?ELS5: ZERO? DEBUG \?PRD13 PUSH 1 JUMP ?PRD14 ?PRD13: PUSH 0 ?PRD14: SET 'DEBUG,STACK ZERO? DEBUG /?ELS12 **** FILE PS:VERBS.ZAP.3, 1-300 (5633) ?ELS4: ZERO? DEBUG \?PRD9 SET 'DEBUG,1 JUMP ?PRD10 ?PRD9: SET 'DEBUG,0 ?PRD10: ZERO? DEBUG /?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-305 (5762) ?ELS12: PRINTR "No bugs left, eh?" **** FILE PS:VERBS.ZAP.3, 1-306 (5772) ?ELS11: PRINTR "No bugs left, eh?" *************** **** FILE PS:VERBS.ZAP.1, 1-343 (6440) ?CND1: EQUAL? WINNER,PLAYER \?CND6 GRTR? POCKET-CHANGE,0 /?THN11 FIRST? POCKET \?CND6 ?THN11: CALL THIS-IS-IT,POCKET ZERO? X /?ELS15 **** FILE PS:VERBS.ZAP.3, 1-344 (6450) ?CND1: EQUAL? WINNER,PLAYER \?CND5 GRTR? POCKET-CHANGE,0 /?THN7 FIRST? POCKET \?CND5 ?THN7: CALL THIS-IS-IT,POCKET ZERO? X /?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-349 (6596) JUMP ?CND13 ?ELS15: PRINTI " But" ?CND13: PRINTI " there's something in " **** FILE PS:VERBS.ZAP.3, 1-350 (6604) JUMP ?CND9 ?ELS10: PRINTI " But" ?CND9: PRINTI " there's something in " *************** **** FILE PS:VERBS.ZAP.1, 1-354 (6703) ?CND6: CRLF **** FILE PS:VERBS.ZAP.3, 1-355 (6709) ?CND5: CRLF *************** **** FILE PS:VERBS.ZAP.1, 1-365 (6940) ZERO? STACK /?ELS15 **** FILE PS:VERBS.ZAP.3, 1-366 (6946) ZERO? STACK /?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-368 (6979) ?ELS15: PRINTR "Okay." **** FILE PS:VERBS.ZAP.3, 1-369 (6985) ?ELS11: PRINTR "Okay." *************** **** FILE PS:VERBS.ZAP.1, 1-384 (7326) ZERO? STACK \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-385 (7332) ZERO? STACK \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-387 (7394) ?ELS5: PRINTI "Okay.)" **** FILE PS:VERBS.ZAP.3, 1-388 (7400) ?ELS4: PRINTI "Okay.)" *************** **** FILE PS:VERBS.ZAP.1, 1-389 (7426) ?CND3: SAVE \?ELS14 **** FILE PS:VERBS.ZAP.3, 1-390 (7432) ?CND3: SAVE \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-395 (7534) ?ELS14: SET 'CLOCK-WAIT,TRUE-VALUE **** FILE PS:VERBS.ZAP.3, 1-396 (7540) ?ELS10: SET 'CLOCK-WAIT,TRUE-VALUE *************** **** FILE PS:VERBS.ZAP.1, 1-402 (7625) RESTORE \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-403 (7631) RESTORE \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-407 (7697) ?ELS5: PRINT FAILED **** FILE PS:VERBS.ZAP.3, 1-408 (7703) ?ELS4: PRINT FAILED *************** **** FILE PS:VERBS.ZAP.1, 1-414 (7783) ZERO? SUPER-BRIEF \FALSE **** FILE PS:VERBS.ZAP.3, 1-415 (7789) ZERO? SUPER-BRIEF \?PRD6 *************** **** FILE PS:VERBS.ZAP.1, 1-419 (7848) **** FILE PS:VERBS.ZAP.3, 1-418 (7850) ?PRD6: PUSH 0 RSTACK *************** **** FILE PS:VERBS.ZAP.1, 1-432 (8151) ?PRG7: IGRTR? 'CNT,23 \?ELS11 **** FILE PS:VERBS.ZAP.3, 1-435 (8182) ?PRG7: IGRTR? 'CNT,23 \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-434 (8195) ?ELS11: GETB 0,CNT **** FILE PS:VERBS.ZAP.3, 1-437 (8226) ?ELS10: GETB 0,CNT *************** **** FILE PS:VERBS.ZAP.1, 1-438 (8264) EQUAL? VARIATION,1,2 \?ELS18 **** FILE PS:VERBS.ZAP.3, 1-441 (8295) EQUAL? VARIATION,1,2 \?ELS14 *************** **** FILE PS:VERBS.ZAP.1, 1-440 (8315) JUMP ?CND16 ?ELS18: PRINTI "Spy" ?CND16: PRINTI "'s viewpoint, " **** FILE PS:VERBS.ZAP.3, 1-443 (8346) JUMP ?CND13 ?ELS14: PRINTI "Spy" ?CND13: PRINTI "'s viewpoint, " *************** **** FILE PS:VERBS.ZAP.1, 1-444 (8402) ZERO? STACK \?ELS29 **** FILE PS:VERBS.ZAP.3, 1-447 (8433) ZERO? STACK \?ELS22 *************** **** FILE PS:VERBS.ZAP.1, 1-446 (8440) JUMP ?CND27 ?ELS29: PRINTI "short" ?CND27: PRINTR " variation" **** FILE PS:VERBS.ZAP.3, 1-449 (8471) JUMP ?CND21 ?ELS22: PRINTI "short" ?CND21: PRINTR " variation" *************** **** FILE PS:VERBS.ZAP.1, 1-456 (8639) ZERO? STACK \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-459 (8670) ZERO? STACK \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-458 (8673) ?ELS5: ZERO? WORD /?CND3 **** FILE PS:VERBS.ZAP.3, 1-461 (8704) ?ELS4: ZERO? WORD /?CND3 *************** **** FILE PS:VERBS.ZAP.1, 1-460 (8736) EQUAL? VAL,ACT?YES \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-463 (8767) EQUAL? VAL,ACT?YES \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-463 (8800) ?ELS10: EQUAL? VAL,ACT?NO /?THN13 EQUAL? WORD,W?N \?CND3 ?THN13: SET 'VAL,FALSE-VALUE **** FILE PS:VERBS.ZAP.3, 1-466 (8830) ?ELS7: EQUAL? VAL,ACT?NO /?THN8 EQUAL? WORD,W?N \?CND6 ?THN8: SET 'VAL,FALSE-VALUE *************** **** FILE PS:VERBS.ZAP.1, 1-467 (8903) **** FILE PS:VERBS.ZAP.3, 1-470 (8930) ?CND6: *************** **** FILE PS:VERBS.ZAP.1, 1-474 (9055) ZERO? STR /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-478 (9091) ZERO? STR /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-477 (9099) ?ELS5: CALL VERB-PRINT ?CND3: EQUAL? STR,STR?129 \?ELS15 **** FILE PS:VERBS.ZAP.3, 1-481 (9135) ?ELS4: CALL VERB-PRINT ?CND3: EQUAL? STR,STR?129 \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-480 (9189) ?ELS15: ZERO? STR1 /?ELS19 **** FILE PS:VERBS.ZAP.3, 1-484 (9225) ?ELS10: ZERO? STR1 /?ELS13 *************** **** FILE PS:VERBS.ZAP.1, 1-482 (9238) ZERO? WHILE /?ELS25 **** FILE PS:VERBS.ZAP.3, 1-486 (9274) ZERO? WHILE /?ELS17 *************** **** FILE PS:VERBS.ZAP.1, 1-485 (9304) JUMP ?CND23 ?ELS25: PRINTI " it" ?CND23: PRINTI " is " **** FILE PS:VERBS.ZAP.3, 1-489 (9340) JUMP ?CND16 ?ELS17: PRINTI " it" ?CND16: PRINTI " is " *************** **** FILE PS:VERBS.ZAP.1, 1-490 (9389) ?ELS19: CALL PRINTT,PRSO **** FILE PS:VERBS.ZAP.3, 1-494 (9425) ?ELS13: CALL PRINTT,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-500 (9580) ?CND1: ZERO? LEVEL \?ELS8 FSET? OBJ,TOUCHBIT /?ELS14 **** FILE PS:VERBS.ZAP.3, 1-504 (9616) ?CND1: ZERO? LEVEL \?ELS5 FSET? OBJ,TOUCHBIT /?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-503 (9660) ZERO? STR \?THN11 ?ELS14: GETP OBJ,P?LDESC >STR ZERO? STR /?ELS8 ?THN11: PRINT STR **** FILE PS:VERBS.ZAP.3, 1-507 (9695) ZERO? STR \?THN6 ?ELS7: GETP OBJ,P?LDESC >STR ZERO? STR /?ELS5 ?THN6: PRINT STR *************** **** FILE PS:VERBS.ZAP.1, 1-508 (9757) JUMP ?CND6 ?ELS8: ZERO? LEVEL \?ELS18 **** FILE PS:VERBS.ZAP.3, 1-512 (9789) JUMP ?CND4 ?ELS5: ZERO? LEVEL \?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-514 (9862) JUMP ?CND6 ?ELS18: CALL PRINTA,OBJ FSET? OBJ,WORNBIT \?CND6 **** FILE PS:VERBS.ZAP.3, 1-518 (9894) JUMP ?CND4 ?ELS11: CALL PRINTA,OBJ FSET? OBJ,WORNBIT \?CND4 *************** **** FILE PS:VERBS.ZAP.1, 1-518 (9952) ?CND6: CALL SEE-INSIDE?,OBJ **** FILE PS:VERBS.ZAP.3, 1-522 (9984) ?CND4: CALL SEE-INSIDE?,OBJ *************** **** FILE PS:VERBS.ZAP.1, 1-523 (10064) FSET? OBJ,SURFACEBIT \?CND39 **** FILE PS:VERBS.ZAP.3, 1-527 (10096) FSET? OBJ,SURFACEBIT \?CND27 *************** **** FILE PS:VERBS.ZAP.1, 1-525 (10121) ?CND39: PRINTI ")" **** FILE PS:VERBS.ZAP.3, 1-529 (10153) ?CND27: PRINTI ")" *************** **** FILE PS:VERBS.ZAP.1, 1-530 (10185) FIRST? HERE \FALSE ZERO? V? /?ORP14 **** FILE PS:VERBS.ZAP.3, 1-534 (10217) FIRST? HERE \?PRD6 ZERO? V? /?ORP10 *************** **** FILE PS:VERBS.ZAP.1, 1-533 (10235) JUMP ?THN11 ?ORP14: PUSH VERBOSE ?THN11: POP 'V? **** FILE PS:VERBS.ZAP.3, 1-537 (10267) JUMP ?THN8 ?ORP10: PUSH VERBOSE ?THN8: POP 'V? *************** **** FILE PS:VERBS.ZAP.1, 1-540 (10331) **** FILE PS:VERBS.ZAP.3, 1-542 (10357) ?PRD6: PUSH 0 RSTACK *************** **** FILE PS:VERBS.ZAP.1, 1-541 (10371) ZERO? LOOK? /?ORP4 **** FILE PS:VERBS.ZAP.3, 1-547 (10426) ZERO? LOOK? /?ORP3 *************** **** FILE PS:VERBS.ZAP.1, 1-544 (10418) ?ORP4: PUSH VERBOSE **** FILE PS:VERBS.ZAP.3, 1-550 (10473) ?ORP3: PUSH VERBOSE *************** **** FILE PS:VERBS.ZAP.1, 1-546 (10455) FSET? HERE,TOUCHBIT /?CND5 **** FILE PS:VERBS.ZAP.3, 1-552 (10510) FSET? HERE,TOUCHBIT /?CND4 *************** **** FILE PS:VERBS.ZAP.1, 1-548 (10505) ?CND5: IN? HERE,ROOMS \?CND8 **** FILE PS:VERBS.ZAP.3, 1-554 (10560) ?CND4: IN? HERE,ROOMS \?CND6 *************** **** FILE PS:VERBS.ZAP.1, 1-553 (10583) ?CND8: ZERO? PLAYER-NOT-FACING /?CND13 ZERO? LOOK? \?THN18 EQUAL? PLAYER-NOT-FACING,PLAYER-NOT-FACING-OLD /?CND13 ?THN18: PRINTI "(You're facing to " **** FILE PS:VERBS.ZAP.3, 1-559 (10638) ?CND6: ZERO? PLAYER-NOT-FACING /?CND10 ZERO? LOOK? \?THN12 EQUAL? PLAYER-NOT-FACING,PLAYER-NOT-FACING-OLD /?CND10 ?THN12: PRINTI "(You're facing to " *************** **** FILE PS:VERBS.ZAP.1, 1-559 (10795) ZERO? LOOK? /?CND22 **** FILE PS:VERBS.ZAP.3, 1-565 (10850) ZERO? LOOK? /?CND16 *************** **** FILE PS:VERBS.ZAP.1, 1-561 (10874) ?CND22: PRINTI ".)" **** FILE PS:VERBS.ZAP.3, 1-567 (10929) ?CND16: PRINTI ".)" *************** **** FILE PS:VERBS.ZAP.1, 1-563 (10903) ?CND13: ZERO? V? /?CND30 **** FILE PS:VERBS.ZAP.3, 1-569 (10958) ?CND10: ZERO? V? /?CND22 *************** **** FILE PS:VERBS.ZAP.1, 1-565 (10945) FSET? L,VEHBIT \?CND34 **** FILE PS:VERBS.ZAP.3, 1-571 (11000) FSET? L,VEHBIT \?CND24 *************** **** FILE PS:VERBS.ZAP.1, 1-567 (10990) FSET? L,SURFACEBIT \?ELS41 **** FILE PS:VERBS.ZAP.3, 1-573 (11045) FSET? L,SURFACEBIT \?ELS29 *************** **** FILE PS:VERBS.ZAP.1, 1-569 (11040) JUMP ?CND39 ?ELS41: PRINTI "standing i" ?CND39: PRINTI "n" **** FILE PS:VERBS.ZAP.3, 1-575 (11095) JUMP ?CND28 ?ELS29: PRINTI "standing i" ?CND28: PRINTI "n" *************** **** FILE PS:VERBS.ZAP.1, 1-575 (11141) ?CND34: ZERO? V? /?ELS52 **** FILE PS:VERBS.ZAP.3, 1-581 (11196) ?CND24: ZERO? V? /?ELS37 *************** **** FILE PS:VERBS.ZAP.1, 1-578 (11208) ZERO? STACK /?ELS52 JUMP ?CND50 ?ELS52: ZERO? V? /?ELS56 **** FILE PS:VERBS.ZAP.3, 1-584 (11263) ZERO? STACK /?ELS37 JUMP ?CND36 ?ELS37: ZERO? V? /?ELS39 *************** **** FILE PS:VERBS.ZAP.1, 1-582 (11295) ZERO? STR /?ELS56 **** FILE PS:VERBS.ZAP.3, 1-588 (11350) ZERO? STR /?ELS39 *************** **** FILE PS:VERBS.ZAP.1, 1-585 (11335) JUMP ?CND50 ?ELS56: ZERO? V? /?ELS62 **** FILE PS:VERBS.ZAP.3, 1-591 (11390) JUMP ?CND36 ?ELS39: ZERO? V? /?ELS43 *************** **** FILE PS:VERBS.ZAP.1, 1-588 (11400) ZERO? STR /?ELS62 **** FILE PS:VERBS.ZAP.3, 1-594 (11455) ZERO? STR /?ELS43 *************** **** FILE PS:VERBS.ZAP.1, 1-591 (11440) JUMP ?CND50 ?ELS62: GETP HERE,P?ACTION **** FILE PS:VERBS.ZAP.3, 1-597 (11495) JUMP ?CND36 ?ELS43: GETP HERE,P?ACTION *************** **** FILE PS:VERBS.ZAP.1, 1-594 (11503) ?CND50: EQUAL? HERE,L /?CND30 **** FILE PS:VERBS.ZAP.3, 1-600 (11558) ?CND36: EQUAL? HERE,L /?CND22 *************** **** FILE PS:VERBS.ZAP.1, 1-597 (11572) ?CND30: GETP HERE,P?CORRIDOR ZERO? STACK /?CND72 ZERO? LOOK? /?CND75 **** FILE PS:VERBS.ZAP.3, 1-603 (11627) ?CND22: GETP HERE,P?CORRIDOR ZERO? STACK /?CND49 ZERO? LOOK? /?CND51 *************** **** FILE PS:VERBS.ZAP.1, 1-601 (11677) ?CND75: CALL CORRIDOR-LOOK **** FILE PS:VERBS.ZAP.3, 1-607 (11732) ?CND51: CALL CORRIDOR-LOOK *************** **** FILE PS:VERBS.ZAP.1, 1-603 (11737) ?CND72: FSET HERE,SEENBIT **** FILE PS:VERBS.ZAP.3, 1-609 (11792) ?CND49: FSET HERE,SEENBIT *************** **** FILE PS:VERBS.ZAP.1, 1-605 (11785) EQUAL? HERE,VESTIBULE-REAR \?ELS81 **** FILE PS:VERBS.ZAP.3, 1-611 (11840) EQUAL? HERE,VESTIBULE-REAR \?ELS54 *************** **** FILE PS:VERBS.ZAP.1, 1-608 (11868) ?ELS81: EQUAL? HERE,VESTIBULE-FWD \?ELS83 **** FILE PS:VERBS.ZAP.3, 1-614 (11923) ?ELS54: EQUAL? HERE,VESTIBULE-FWD \?ELS55 *************** **** FILE PS:VERBS.ZAP.1, 1-611 (11956) ?ELS83: EQUAL? HERE,VESTIBULE-REAR-DINER \?ELS85 **** FILE PS:VERBS.ZAP.3, 1-617 (12011) ?ELS55: EQUAL? HERE,VESTIBULE-REAR-DINER \?ELS56 *************** **** FILE PS:VERBS.ZAP.1, 1-614 (12046) ?ELS85: EQUAL? HERE,VESTIBULE-FWD-DINER \TRUE **** FILE PS:VERBS.ZAP.3, 1-620 (12101) ?ELS56: EQUAL? HERE,VESTIBULE-FWD-DINER \TRUE *************** **** FILE PS:VERBS.ZAP.1, 1-622 (12217) ZERO? STACK \?THN8 EQUAL? HERE,BESIDE-TRACKS \?ELS7 EQUAL? CAR-HERE,DINER-CAR /?ELS7 ?THN8: CALL ZMEMQ,L,CAR-ROOMS **** FILE PS:VERBS.ZAP.3, 1-628 (12272) ZERO? STACK \?THN5 EQUAL? HERE,BESIDE-TRACKS \?ELS6 EQUAL? CAR-HERE,DINER-CAR /?ELS6 ?THN5: CALL ZMEMQ,L,CAR-ROOMS *************** **** FILE PS:VERBS.ZAP.1, 1-628 (12369) ?ELS7: CALL ZMEMQ,HERE,CAR-ROOMS-DINER ZERO? STACK \?THN16 EQUAL? HERE,BESIDE-TRACKS \?ELS15 EQUAL? CAR-HERE,DINER-CAR \?ELS15 ?THN16: CALL ZMEMQ,L,CAR-ROOMS-DINER **** FILE PS:VERBS.ZAP.3, 1-634 (12424) ?ELS6: CALL ZMEMQ,HERE,CAR-ROOMS-DINER ZERO? STACK \?THN10 EQUAL? HERE,BESIDE-TRACKS \?ELS11 EQUAL? CAR-HERE,DINER-CAR \?ELS11 ?THN10: CALL ZMEMQ,L,CAR-ROOMS-DINER *************** **** FILE PS:VERBS.ZAP.1, 1-635 (12571) ?ELS15: CALL ZMEMQ,HERE,STATION-ROOMS ZERO? STACK /?ELS23 **** FILE PS:VERBS.ZAP.3, 1-641 (12626) ?ELS11: CALL ZMEMQ,HERE,STATION-ROOMS ZERO? STACK /?ELS15 *************** **** FILE PS:VERBS.ZAP.1, 1-640 (12710) EQUAL? HERE,PLATFORM-A \?ELS32 **** FILE PS:VERBS.ZAP.3, 1-646 (12765) EQUAL? HERE,PLATFORM-A \?ELS21 *************** **** FILE PS:VERBS.ZAP.1, 1-643 (12781) ?ELS32: EQUAL? L,PLATFORM-A /TRUE **** FILE PS:VERBS.ZAP.3, 1-649 (12836) ?ELS21: EQUAL? L,PLATFORM-A /TRUE *************** **** FILE PS:VERBS.ZAP.1, 1-645 (12826) ?ELS23: EQUAL? HERE,ROOF \?ELS40 **** FILE PS:VERBS.ZAP.3, 1-651 (12881) ?ELS15: EQUAL? HERE,ROOF \?ELS26 *************** **** FILE PS:VERBS.ZAP.1, 1-648 (12892) ?ELS40: PRINTR "[Foo! Where is HERE?]" **** FILE PS:VERBS.ZAP.3, 1-654 (12947) ?ELS26: PRINTR "[Foo! Where is HERE?]" *************** **** FILE PS:VERBS.ZAP.1, 1-652 (12996) EQUAL? DIR,P?NORTH,P?EAST /?THN4 **** FILE PS:VERBS.ZAP.3, 1-658 (13051) EQUAL? DIR,P?NORTH,P?EAST /?THN2 *************** **** FILE PS:VERBS.ZAP.1, 1-654 (13066) ?THN4: RETURN DIR **** FILE PS:VERBS.ZAP.3, 1-660 (13121) ?THN2: RETURN DIR *************** **** FILE PS:VERBS.ZAP.1, 1-658 (13147) ?PRG6: ZERO? VAL /?ELS10 **** FILE PS:VERBS.ZAP.3, 1-664 (13202) ?PRG4: ZERO? VAL /?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-660 (13186) ?ELS10: NEXTP RM,P >P **** FILE PS:VERBS.ZAP.3, 1-666 (13240) ?ELS7: NEXTP RM,P >P *************** **** FILE PS:VERBS.ZAP.1, 1-662 (13226) EQUAL? P,P?NORTH,P?EAST /?ELS15 EQUAL? P,P?SOUTH,P?WEST /?ELS15 JUMP ?PRG6 ?ELS15: LESS? P,LOW-DIRECTION /?PRG6 **** FILE PS:VERBS.ZAP.3, 1-668 (13279) EQUAL? P,P?NORTH,P?EAST /?ELS9 EQUAL? P,P?SOUTH,P?WEST /?ELS9 JUMP ?PRG4 ?ELS9: LESS? P,LOW-DIRECTION /?PRG4 *************** **** FILE PS:VERBS.ZAP.1, 1-668 (13379) EQUAL? L,DIRL /?CND20 JUMP ?PRG6 ?CND20: DEC 'L ?PRG23: GETB TBL,L >?TMP1 **** FILE PS:VERBS.ZAP.3, 1-674 (13429) EQUAL? L,DIRL /?CND12 JUMP ?PRG4 ?CND12: DEC 'L ?PRG14: GETB TBL,L >?TMP1 *************** **** FILE PS:VERBS.ZAP.1, 1-673 (13475) EQUAL? ?TMP1,STACK /?ELS27 JUMP ?PRG6 ?ELS27: DLESS? 'L,0 \?PRG23 **** FILE PS:VERBS.ZAP.3, 1-679 (13525) EQUAL? ?TMP1,STACK /?ELS17 JUMP ?PRG4 ?ELS17: DLESS? 'L,0 \?PRG14 *************** **** FILE PS:VERBS.ZAP.1, 1-677 (13559) JUMP ?PRG6 **** FILE PS:VERBS.ZAP.3, 1-683 (13609) JUMP ?PRG4 *************** **** FILE PS:VERBS.ZAP.1, 1-681 (13609) EQUAL? OBJ,PLAYER \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-687 (13659) EQUAL? OBJ,PLAYER \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-684 (13672) ?ELS5: FSET? OBJ,PERSONBIT \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-690 (13722) ?ELS4: FSET? OBJ,PERSONBIT \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-688 (13766) ?ELS9: IN? OBJ,ROOMS /FALSE FSET? OBJ,SURFACEBIT \?ELS18 GRTR? LEVEL,0 \?ELS23 **** FILE PS:VERBS.ZAP.3, 1-694 (13816) ?ELS7: IN? OBJ,ROOMS /FALSE FSET? OBJ,SURFACEBIT \?ELS14 GRTR? LEVEL,0 \?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-693 (13883) ?ELS23: PRINTI "Sitting on" **** FILE PS:VERBS.ZAP.3, 1-699 (13933) ?ELS18: PRINTI "Sitting on" *************** **** FILE PS:VERBS.ZAP.1, 1-697 (13955) ?ELS18: GRTR? LEVEL,0 \?ELS36 **** FILE PS:VERBS.ZAP.3, 1-703 (14005) ?ELS14: GRTR? LEVEL,0 \?ELS26 *************** **** FILE PS:VERBS.ZAP.1, 1-700 (14022) JUMP ?CND34 ?ELS36: CALL START-SENTENCE,OBJ ?CND34: PRINTI " contains " **** FILE PS:VERBS.ZAP.3, 1-706 (14072) JUMP ?CND25 ?ELS26: CALL START-SENTENCE,OBJ ?CND25: PRINTI " contains " *************** **** FILE PS:VERBS.ZAP.1, 1-729 (14496) FSET? WINNER,MUNGBIT \?CND6 **** FILE PS:VERBS.ZAP.3, 1-735 (14546) FSET? WINNER,MUNGBIT \?CND4 *************** **** FILE PS:VERBS.ZAP.1, 1-732 (14561) ?CND6: MOVE WINNER,RM **** FILE PS:VERBS.ZAP.3, 1-738 (14611) ?CND4: MOVE WINNER,RM *************** **** FILE PS:VERBS.ZAP.1, 1-739 (14720) ZERO? V? /?CND12 **** FILE PS:VERBS.ZAP.3, 1-745 (14770) ZERO? V? /?CND8 *************** **** FILE PS:VERBS.ZAP.1, 1-741 (14759) ?CND12: GETP HERE,P?ACTION **** FILE PS:VERBS.ZAP.3, 1-747 (14808) ?CND8: GETP HERE,P?ACTION *************** **** FILE PS:VERBS.ZAP.1, 1-759 (15009) ?PRG4: LOC OBJ >L **** FILE PS:VERBS.ZAP.3, 1-765 (15057) ?PRG3: LOC OBJ >L *************** **** FILE PS:VERBS.ZAP.1, 1-762 (15067) EQUAL? CONT,PLAYER \?ELS12 EQUAL? OBJ,GLOBAL-MONEY \?ELS15 **** FILE PS:VERBS.ZAP.3, 1-768 (15115) EQUAL? CONT,PLAYER \?ELS8 EQUAL? OBJ,GLOBAL-MONEY \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-766 (15170) ?ELS15: EQUAL? OBJ,DOLLARS \?ELS22 ZERO? P-DOLLAR-FLAG /?ELS25 **** FILE PS:VERBS.ZAP.3, 1-772 (15217) ?ELS10: EQUAL? OBJ,DOLLARS \?ELS13 ZERO? P-DOLLAR-FLAG /?ELS15 *************** **** FILE PS:VERBS.ZAP.1, 1-770 (15283) ?ELS25: ZERO? P-NUMBER \?ELS33 **** FILE PS:VERBS.ZAP.3, 1-776 (15330) ?ELS15: ZERO? P-NUMBER \?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-773 (15355) ?ELS33: LESS? POCKET-CHANGE,P-NUMBER \TRUE **** FILE PS:VERBS.ZAP.3, 1-779 (15402) ?ELS18: LESS? POCKET-CHANGE,P-NUMBER \TRUE *************** **** FILE PS:VERBS.ZAP.1, 1-775 (15409) ?ELS22: EQUAL? OBJ,INTNUM \?ELS47 **** FILE PS:VERBS.ZAP.3, 1-781 (15456) ?ELS13: EQUAL? OBJ,INTNUM \?ELS23 *************** **** FILE PS:VERBS.ZAP.1, 1-779 (15520) ?ELS47: SET 'OBJ,L JUMP ?PRG4 ?ELS12: EQUAL? L,ROOMS,GLOBAL-OBJECTS /FALSE **** FILE PS:VERBS.ZAP.3, 1-785 (15567) ?ELS23: SET 'OBJ,L JUMP ?PRG3 ?ELS8: EQUAL? L,ROOMS,GLOBAL-OBJECTS /FALSE *************** **** FILE PS:VERBS.ZAP.1, 1-783 (15612) JUMP ?PRG4 **** FILE PS:VERBS.ZAP.3, 1-789 (15658) JUMP ?PRG3 *************** **** FILE PS:VERBS.ZAP.1, 1-787 (15644) FSET? PRSO,PERSONBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-793 (15690) FSET? PRSO,PERSONBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-792 (15752) ?ELS5: CALL NOT-HOLDING?,PRSO **** FILE PS:VERBS.ZAP.3, 1-798 (15798) ?ELS4: CALL NOT-HOLDING?,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-794 (15804) IN? PRSO,WINNER /?ELS11 **** FILE PS:VERBS.ZAP.3, 1-800 (15850) IN? PRSO,WINNER /?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-796 (15841) FSET? STACK,OPENBIT /?ELS11 **** FILE PS:VERBS.ZAP.3, 1-802 (15886) FSET? STACK,OPENBIT /?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-800 (15923) ?ELS11: MOVE PRSO,HERE **** FILE PS:VERBS.ZAP.3, 1-806 (15967) ?ELS8: MOVE PRSO,HERE *************** **** FILE PS:VERBS.ZAP.1, 1-809 (16079) FSET? L,PERSONBIT /?THN4 **** FILE PS:VERBS.ZAP.3, 1-815 (16122) FSET? L,PERSONBIT /?THN2 *************** **** FILE PS:VERBS.ZAP.1, 1-813 (16172) ?THN4: FSET? PRSO,TAKEBIT /?ELS10 **** FILE PS:VERBS.ZAP.3, 1-819 (16215) ?THN2: FSET? PRSO,TAKEBIT /?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-815 (16224) ZERO? STACK \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-821 (16266) ZERO? STACK \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-823 (16405) ZERO? STACK \?ELS21 **** FILE PS:VERBS.ZAP.3, 1-829 (16446) ZERO? STACK \?ELS13 *************** **** FILE PS:VERBS.ZAP.1, 1-825 (16446) JUMP ?CND19 ?ELS21: PRINTI "hopeful" ?CND19: PRINTI "ly." **** FILE PS:VERBS.ZAP.3, 1-831 (16487) JUMP ?CND12 ?ELS13: PRINTI "hopeful" ?CND12: PRINTI "ly." *************** **** FILE PS:VERBS.ZAP.1, 1-830 (16526) ?ELS10: FSET PRSO,TAKEBIT ?CND1: EQUAL? PRSO,GLOBAL-MONEY \?ELS36 **** FILE PS:VERBS.ZAP.3, 1-836 (16567) ?ELS6: FSET PRSO,TAKEBIT ?CND1: EQUAL? PRSO,GLOBAL-MONEY \?ELS23 *************** **** FILE PS:VERBS.ZAP.1, 1-833 (16631) ?ELS36: FSET? PRSO,TAKEBIT /?ELS40 **** FILE PS:VERBS.ZAP.3, 1-839 (16671) ?ELS23: FSET? PRSO,TAKEBIT /?ELS25 *************** **** FILE PS:VERBS.ZAP.1, 1-837 (16719) ?ELS40: EQUAL? NOW-LURCHING,MOVES \?ELS46 ZERO? TRAIN-MOVING /?ELS46 **** FILE PS:VERBS.ZAP.3, 1-843 (16759) ?ELS25: EQUAL? NOW-LURCHING,MOVES \?ELS28 ZERO? TRAIN-MOVING /?ELS28 *************** **** FILE PS:VERBS.ZAP.1, 1-845 (16926) ?ELS46: CALL CCOUNT,WINNER >CNT GRTR? CNT,FUMBLE-NUMBER \?ELS56 **** FILE PS:VERBS.ZAP.3, 1-851 (16966) ?ELS28: CALL CCOUNT,WINNER >CNT GRTR? CNT,FUMBLE-NUMBER \?ELS34 *************** **** FILE PS:VERBS.ZAP.1, 1-849 (17035) LESS? ?TMP1,STACK /?ELS56 FIRST? WINNER >OBJ /?KLU78 ?KLU78: CALL TOO-BAD-BUT,OBJ **** FILE PS:VERBS.ZAP.3, 1-855 (17075) LESS? ?TMP1,STACK /?ELS34 FIRST? WINNER >OBJ /?KLU49 ?KLU49: CALL TOO-BAD-BUT,OBJ *************** **** FILE PS:VERBS.ZAP.1, 1-866 (17436) ?ELS56: EQUAL? PRSO,FILM \?CND67 EQUAL? L,CAMERA \?CND67 ZERO? CAMERA-COCKED /?CND67 **** FILE PS:VERBS.ZAP.3, 1-872 (17476) ?ELS34: EQUAL? PRSO,FILM \?CND42 EQUAL? L,CAMERA \?CND42 ZERO? CAMERA-COCKED /?CND42 *************** **** FILE PS:VERBS.ZAP.1, 1-871 (17604) ?CND67: SET 'ITAKE-LOC,FALSE-VALUE FSET? L,PERSONBIT \?CND72 ZERO? VB \?CND72 **** FILE PS:VERBS.ZAP.3, 1-877 (17644) ?CND42: SET 'ITAKE-LOC,FALSE-VALUE FSET? L,PERSONBIT \?CND45 ZERO? VB \?CND45 *************** **** FILE PS:VERBS.ZAP.1, 1-875 (17706) ?CND72: CALL MOVE-FROM,PRSO,WINNER **** FILE PS:VERBS.ZAP.3, 1-881 (17746) ?CND45: CALL MOVE-FROM,PRSO,WINNER *************** **** FILE PS:VERBS.ZAP.1, 1-896 (18103) ?PRG4: FSET? X,WORNBIT /?CND6 **** FILE PS:VERBS.ZAP.3, 1-902 (18143) ?PRG3: FSET? X,WORNBIT /?CND5 *************** **** FILE PS:VERBS.ZAP.1, 1-898 (18145) ?CND6: NEXT? X >X /?PRG4 **** FILE PS:VERBS.ZAP.3, 1-904 (18185) ?CND5: NEXT? X >X /?PRG3 *************** **** FILE PS:VERBS.ZAP.1, 1-905 (18258) FSET? DR,OPENBIT \?ELS7 **** FILE PS:VERBS.ZAP.3, 1-911 (18298) FSET? DR,OPENBIT \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-908 (18310) ?ELS7: PUSH STR?7 **** FILE PS:VERBS.ZAP.3, 1-914 (18350) ?ELS6: PUSH STR?7 *************** **** FILE PS:VERBS.ZAP.1, 1-910 (18349) FSET? DR,LOCKED \?CND10 **** FILE PS:VERBS.ZAP.3, 1-916 (18389) FSET? DR,LOCKED \?CND7 *************** **** FILE PS:VERBS.ZAP.1, 1-912 (18398) ?CND10: PRINTR "." **** FILE PS:VERBS.ZAP.3, 1-918 (18437) ?CND7: PRINTR "." *************** **** FILE PS:VERBS.ZAP.1, 1-919 (18548) EQUAL? WINNER,OBJ,STACK \?CND4 **** FILE PS:VERBS.ZAP.3, 1-925 (18586) EQUAL? WINNER,OBJ,STACK \?CND3 *************** **** FILE PS:VERBS.ZAP.1, 1-921 (18604) ?CND4: ?PRG10: ZERO? Y \?ELS14 JUMP ?CND7 ?ELS14: EQUAL? Y,WINNER,POCKET \?ELS16 JUMP ?CND12 ?ELS16: FSET? Y,INVISIBLE \?ELS24 ZERO? DEBUG /?ELS24 **** FILE PS:VERBS.ZAP.3, 1-927 (18642) ?CND3: ?PRG6: ZERO? Y \?ELS9 JUMP ?CND5 ?ELS9: EQUAL? Y,WINNER,POCKET \?ELS10 JUMP ?CND8 ?ELS10: FSET? Y,INVISIBLE \?THN12 ZERO? DEBUG /?CND8 *************** **** FILE PS:VERBS.ZAP.1, 1-929 (18786) ?ELS24: FSET? Y,TOUCHBIT /?CND12 **** FILE PS:VERBS.ZAP.3, 1-935 (18819) ZERO? 1 /?CND8 ?THN12: FSET? Y,TOUCHBIT /?CND8 *************** **** FILE PS:VERBS.ZAP.1, 1-931 (18842) ZERO? STR /?CND12 **** FILE PS:VERBS.ZAP.3, 1-938 (18891) ZERO? STR /?CND8 *************** **** FILE PS:VERBS.ZAP.1, 1-933 (18881) ZERO? STACK \?CND12 FSET? Y,NDESCBIT \?THN30 ZERO? DEBUG /?CND27 **** FILE PS:VERBS.ZAP.3, 1-940 (18929) ZERO? STACK \?CND8 FSET? Y,NDESCBIT \?THN18 ZERO? DEBUG /?CND17 *************** **** FILE PS:VERBS.ZAP.1, 1-937 (18975) ?THN30: SET '1ST?,FALSE-VALUE **** FILE PS:VERBS.ZAP.3, 1-944 (19022) ZERO? 1 /?CND17 ?THN18: SET '1ST?,FALSE-VALUE *************** **** FILE PS:VERBS.ZAP.1, 1-939 (19021) ZERO? STR /?CND27 **** FILE PS:VERBS.ZAP.3, 1-947 (19086) ZERO? STR /?CND17 *************** **** FILE PS:VERBS.ZAP.1, 1-945 (19126) ?CND27: CALL SEE-INSIDE?,Y ZERO? STACK /?CND12 **** FILE PS:VERBS.ZAP.3, 1-953 (19191) ?CND17: CALL SEE-INSIDE?,Y ZERO? STACK /?CND8 *************** **** FILE PS:VERBS.ZAP.1, 1-949 (19207) ZERO? STACK \?CND12 FIRST? Y \?CND12 **** FILE PS:VERBS.ZAP.3, 1-957 (19271) ZERO? STACK \?CND8 FIRST? Y \?CND8 *************** **** FILE PS:VERBS.ZAP.1, 1-952 (19273) ZERO? STACK /?CND42 **** FILE PS:VERBS.ZAP.3, 1-960 (19335) ZERO? STACK /?CND27 *************** **** FILE PS:VERBS.ZAP.1, 1-954 (19317) ?CND42: ?CND12: FSET? Y,INVISIBLE /?CND50 FSET? Y,NDESCBIT /?CND50 **** FILE PS:VERBS.ZAP.3, 1-962 (19379) ?CND27: ?CND8: FSET? Y,INVISIBLE /?CND32 FSET? Y,NDESCBIT /?CND32 *************** **** FILE PS:VERBS.ZAP.1, 1-958 (19403) ?CND50: NEXT? Y >Y /?KLU123 ?KLU123: JUMP ?PRG10 ?CND7: FIRST? OBJ >Y /?KLU124 ?KLU124: ?PRG55: ZERO? Y \?ELS59 **** FILE PS:VERBS.ZAP.3, 1-966 (19464) ?CND32: NEXT? Y >Y /?KLU79 ?KLU79: JUMP ?PRG6 ?CND5: FIRST? OBJ >Y /?KLU80 ?KLU80: ?PRG35: ZERO? Y \?ELS38 *************** **** FILE PS:VERBS.ZAP.1, 1-964 (19534) ?ELS59: EQUAL? Y,PLAYER,POCKET \?ELS61 JUMP ?CND57 ?ELS61: FSET? Y,INVISIBLE \?ELS69 ZERO? DEBUG /?ELS69 **** FILE PS:VERBS.ZAP.3, 1-972 (19590) ?ELS38: EQUAL? Y,PLAYER,POCKET \?ELS39 JUMP ?CND37 ?ELS39: FSET? Y,INVISIBLE \?THN41 ZERO? DEBUG /?CND37 *************** **** FILE PS:VERBS.ZAP.1, 1-969 (19669) ?ELS69: ZERO? INV? \?THN72 FSET? Y,TOUCHBIT /?THN72 **** FILE PS:VERBS.ZAP.3, 1-977 (19725) ZERO? 1 /?CND37 ?THN41: ZERO? INV? \?THN45 FSET? Y,TOUCHBIT /?THN45 *************** **** FILE PS:VERBS.ZAP.1, 1-972 (19741) ZERO? STACK \?CND57 ?THN72: FSET? Y,NDESCBIT \?THN77 ZERO? DEBUG /?ELS76 **** FILE PS:VERBS.ZAP.3, 1-981 (19815) ZERO? STACK \?CND37 ?THN45: FSET? Y,NDESCBIT \?THN48 ZERO? DEBUG /?ELS49 *************** **** FILE PS:VERBS.ZAP.1, 1-976 (19842) ?THN77: SET 'VAL,TRUE-VALUE ZERO? 1ST? /?ELS85 **** FILE PS:VERBS.ZAP.3, 1-985 (19916) ZERO? 1 /?ELS49 ?THN48: SET 'VAL,TRUE-VALUE ZERO? 1ST? /?ELS54 *************** **** FILE PS:VERBS.ZAP.1, 1-980 (19946) ZERO? STR /?CND87 LESS? LEVEL,0 \?CND87 **** FILE PS:VERBS.ZAP.3, 1-990 (20038) ZERO? STR /?CND55 LESS? LEVEL,0 \?CND55 *************** **** FILE PS:VERBS.ZAP.1, 1-983 (20005) ?CND87: INC 'LEVEL JUMP ?CND83 ?ELS85: IN? OBJ,ROOMS /?CND83 EQUAL? Y,LAST \?CND83 **** FILE PS:VERBS.ZAP.3, 1-993 (20097) ?CND55: INC 'LEVEL JUMP ?CND53 ?ELS54: IN? OBJ,ROOMS /?CND53 EQUAL? Y,LAST \?CND53 *************** **** FILE PS:VERBS.ZAP.1, 1-988 (20110) ?CND83: CALL DESCRIBE-OBJECT,Y,LEVEL EQUAL? Y,LAST \?ELS102 EQUAL? STR,TRUE-VALUE /?THN106 LESS? 0,LEVEL \?CND57 FSET? OBJ,NDESCBIT \?CND57 ?THN106: PRINTI "." **** FILE PS:VERBS.ZAP.3, 1-998 (20202) ?CND53: CALL DESCRIBE-OBJECT,Y,LEVEL EQUAL? Y,LAST \?ELS65 EQUAL? STR,TRUE-VALUE /?THN67 LESS? 0,LEVEL \?CND37 FSET? OBJ,NDESCBIT \?CND37 ?THN67: PRINTI "." *************** **** FILE PS:VERBS.ZAP.1, 1-995 (20288) JUMP ?CND57 ?ELS102: IN? OBJ,ROOMS /?CND74 **** FILE PS:VERBS.ZAP.3, 1-1005 (20377) JUMP ?CND37 ?ELS65: IN? OBJ,ROOMS /?CND47 *************** **** FILE PS:VERBS.ZAP.1, 1-998 (20348) JUMP ?CND74 ?ELS76: FIRST? Y \?CND57 **** FILE PS:VERBS.ZAP.3, 1-1008 (20436) JUMP ?CND47 ?ELS49: FIRST? Y \?CND37 *************** **** FILE PS:VERBS.ZAP.1, 1-1001 (20409) ZERO? STACK /?CND57 **** FILE PS:VERBS.ZAP.3, 1-1011 (20497) ZERO? STACK /?CND37 *************** **** FILE PS:VERBS.ZAP.1, 1-1003 (20460) ZERO? STACK /?CND74 **** FILE PS:VERBS.ZAP.3, 1-1013 (20548) ZERO? STACK /?CND47 *************** **** FILE PS:VERBS.ZAP.1, 1-1005 (20504) ?CND74: ?CND57: NEXT? Y >Y /?KLU125 ?KLU125: JUMP ?PRG55 **** FILE PS:VERBS.ZAP.3, 1-1015 (20592) ?CND47: ?CND37: NEXT? Y >Y /?KLU81 ?KLU81: JUMP ?PRG35 *************** **** FILE PS:VERBS.ZAP.1, 1-1012 (20631) ?PRG6: NEXT? F >N /?KLU26 ?KLU26: ZERO? 1ST? /?ELS10 **** FILE PS:VERBS.ZAP.3, 1-1022 (20717) ?PRG5: NEXT? F >N /?KLU19 ?KLU19: ZERO? 1ST? /?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-1015 (20710) JUMP ?CND8 ?ELS10: PRINTI ", " ZERO? N \?CND8 **** FILE PS:VERBS.ZAP.3, 1-1025 (20795) JUMP ?CND7 ?ELS8: PRINTI ", " ZERO? N \?CND7 *************** **** FILE PS:VERBS.ZAP.1, 1-1019 (20777) ?CND8: CALL PRINTA,F **** FILE PS:VERBS.ZAP.3, 1-1029 (20861) ?CND7: CALL PRINTA,F *************** **** FILE PS:VERBS.ZAP.1, 1-1022 (20830) ZERO? F \?PRG6 **** FILE PS:VERBS.ZAP.3, 1-1032 (20914) ZERO? F \?PRG5 *************** **** FILE PS:VERBS.ZAP.1, 1-1028 (20902) IN? P,ROOMS \?ELS5 EQUAL? P,HERE \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-1038 (20986) IN? P,ROOMS \?ELS4 EQUAL? P,HERE \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-1032 (20993) ?ELS10: CALL NEXT-ROOM,HERE,P?IN >?TMP1 **** FILE PS:VERBS.ZAP.3, 1-1042 (21076) ?ELS8: CALL NEXT-ROOM,HERE,P?IN >?TMP1 *************** **** FILE PS:VERBS.ZAP.1, 1-1039 (21190) ?ELS5: EQUAL? P,PSEUDO-OBJECT /FALSE **** FILE PS:VERBS.ZAP.3, 1-1049 (21272) ?ELS4: EQUAL? P,PSEUDO-OBJECT /FALSE *************** **** FILE PS:VERBS.ZAP.1, 1-1045 (21367) ZERO? STACK /?ELS27 IN? P,GLOBAL-OBJECTS \?ELS27 **** FILE PS:VERBS.ZAP.3, 1-1055 (21449) ZERO? STACK /?ELS18 IN? P,GLOBAL-OBJECTS \?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-1053 (21544) ?ELS27: CALL NOT-HERE,P **** FILE PS:VERBS.ZAP.3, 1-1063 (21626) ?ELS18: CALL NOT-HERE,P *************** **** FILE PS:VERBS.ZAP.1, 1-1083 (22070) EQUAL? WINNER,PLAYER \?ELS3 **** FILE PS:VERBS.ZAP.3, 1-1093 (22152) EQUAL? WINNER,PLAYER \?ELS2 *************** **** FILE PS:VERBS.ZAP.1, 1-1086 (22157) ?ELS3: CALL PRODUCE-GIBBERISH **** FILE PS:VERBS.ZAP.3, 1-1096 (22239) ?ELS2: CALL PRODUCE-GIBBERISH *************** **** FILE PS:VERBS.ZAP.1, 1-1089 (22219) ZERO? OBJ /?CND11 **** FILE PS:VERBS.ZAP.3, 1-1099 (22301) ZERO? OBJ /?CND7 *************** **** FILE PS:VERBS.ZAP.1, 1-1092 (22270) ZERO? STR /?CND17 **** FILE PS:VERBS.ZAP.3, 1-1102 (22351) ZERO? STR /?CND11 *************** **** FILE PS:VERBS.ZAP.1, 1-1095 (22322) ?CND17: EQUAL? STR,STR?133 \?ELS25 **** FILE PS:VERBS.ZAP.3, 1-1105 (22403) ?CND11: EQUAL? STR,STR?133 \?ELS16 *************** **** FILE PS:VERBS.ZAP.1, 1-1097 (22375) JUMP ?CND11 ?ELS25: EQUAL? STR,STR?134 \?ELS27 **** FILE PS:VERBS.ZAP.3, 1-1107 (22456) JUMP ?CND7 ?ELS16: EQUAL? STR,STR?134 \?ELS17 *************** **** FILE PS:VERBS.ZAP.1, 1-1100 (22444) JUMP ?CND11 ?ELS27: EQUAL? STR,STR?6 \?ELS29 **** FILE PS:VERBS.ZAP.3, 1-1110 (22524) JUMP ?CND7 ?ELS17: EQUAL? STR,STR?6 \?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-1103 (22511) JUMP ?CND11 ?ELS29: EQUAL? STR,STR?7 \?ELS31 **** FILE PS:VERBS.ZAP.3, 1-1113 (22590) JUMP ?CND7 ?ELS18: EQUAL? STR,STR?7 \?ELS19 *************** **** FILE PS:VERBS.ZAP.1, 1-1106 (22580) JUMP ?CND11 ?ELS31: EQUAL? STR,STR?135 \?ELS33 **** FILE PS:VERBS.ZAP.3, 1-1116 (22658) JUMP ?CND7 ?ELS19: EQUAL? STR,STR?135 \?ELS20 *************** **** FILE PS:VERBS.ZAP.1, 1-1109 (22648) JUMP ?CND11 ?ELS33: EQUAL? STR,STR?136 \?CND11 **** FILE PS:VERBS.ZAP.3, 1-1119 (22725) JUMP ?CND7 ?ELS20: EQUAL? STR,STR?136 \?CND7 *************** **** FILE PS:VERBS.ZAP.1, 1-1112 (22718) ?CND11: ZERO? STR \?THN39 **** FILE PS:VERBS.ZAP.3, 1-1122 (22793) ?CND7: ZERO? STR \?THN23 *************** **** FILE PS:VERBS.ZAP.1, 1-1114 (22763) ?THN39: PRINTR "." **** FILE PS:VERBS.ZAP.3, 1-1124 (22837) ?THN23: PRINTR "." *************** **** FILE PS:VERBS.ZAP.1, 1-1155 (23431) EQUAL? OBJ,PSEUDO-OBJECT \?ELS12 **** FILE PS:VERBS.ZAP.3, 1-1165 (23505) EQUAL? OBJ,PSEUDO-OBJECT \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-1158 (23512) ?ELS12: ZERO? L /FALSE **** FILE PS:VERBS.ZAP.3, 1-1168 (23585) ?ELS7: ZERO? L /FALSE *************** **** FILE PS:VERBS.ZAP.1, 1-1160 (23568) EQUAL? L,LOCAL-GLOBALS \?ELS25 **** FILE PS:VERBS.ZAP.3, 1-1170 (23640) EQUAL? L,LOCAL-GLOBALS \?ELS14 *************** **** FILE PS:VERBS.ZAP.1, 1-1163 (23648) ?ELS25: CALL META-LOC,OBJ **** FILE PS:VERBS.ZAP.3, 1-1173 (23720) ?ELS14: CALL META-LOC,OBJ *************** **** FILE PS:VERBS.ZAP.1, 1-1166 (23731) FSET? L,OPENBIT /?THN36 **** FILE PS:VERBS.ZAP.3, 1-1176 (23803) FSET? L,OPENBIT /?THN19 *************** **** FILE PS:VERBS.ZAP.1, 1-1168 (23784) ?THN36: CALL ACCESSIBLE?,L **** FILE PS:VERBS.ZAP.3, 1-1178 (23856) ?THN19: CALL ACCESSIBLE?,L *************** **** FILE PS:VERBS.ZAP.1, 1-1176 (23912) EQUAL? L,LOCAL-GLOBALS,GLOBAL-OBJECTS \?ELS7 **** FILE PS:VERBS.ZAP.3, 1-1186 (23984) EQUAL? L,LOCAL-GLOBALS,GLOBAL-OBJECTS \?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-1178 (23970) ?ELS7: IN? OBJ,ROOMS \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-1188 (24042) ?ELS5: IN? OBJ,ROOMS \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-1180 (24012) ?ELS9: ZERO? INV /?CND12 **** FILE PS:VERBS.ZAP.3, 1-1190 (24084) ?ELS6: ZERO? INV /?CND7 *************** **** FILE PS:VERBS.ZAP.1, 1-1182 (24067) ?CND12: SET 'OBJ,L **** FILE PS:VERBS.ZAP.3, 1-1192 (24138) ?CND7: SET 'OBJ,L *************** **** FILE PS:VERBS.ZAP.1, 1-1189 (24173) ?PRG4: EQUAL? OBJ,PLAYER \?ELS8 FSET? CONT,WORNBIT \?ELS8 **** FILE PS:VERBS.ZAP.3, 1-1199 (24243) ?PRG3: EQUAL? OBJ,PLAYER \?ELS6 FSET? CONT,WORNBIT \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-1192 (24244) JUMP ?CND6 ?ELS8: EQUAL? OBJ,PLAYER \?ELS12 **** FILE PS:VERBS.ZAP.3, 1-1202 (24314) JUMP ?CND5 ?ELS6: EQUAL? OBJ,PLAYER \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-1195 (24302) FSET? STACK,WORNBIT \?ELS12 **** FILE PS:VERBS.ZAP.3, 1-1205 (24371) FSET? STACK,WORNBIT \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-1197 (24342) JUMP ?CND6 ?ELS12: CALL WEIGHT,CONT **** FILE PS:VERBS.ZAP.3, 1-1207 (24410) JUMP ?CND5 ?ELS8: CALL WEIGHT,CONT *************** **** FILE PS:VERBS.ZAP.1, 1-1200 (24400) ?CND6: NEXT? CONT >CONT /?PRG4 **** FILE PS:VERBS.ZAP.3, 1-1210 (24467) ?CND5: NEXT? CONT >CONT /?PRG3 *************** **** FILE PS:VERBS.ZAP.1, 1-1215 (24654) ?CND1: EQUAL? NOT-HERE-OBJECT,L-PRSO \?CND6 EQUAL? PRSA,V?BUY /?THN14 EQUAL? PRSA,V?WALK-TO,V?WAIT-UNTIL,V?WAIT-FOR /?THN12 ?THN14: CALL VISIBLE?,L-PRSO-NOT-HERE ZERO? STACK /?ELS11 ?THN12: SET 'L-PRSO,L-PRSO-NOT-HERE JUMP ?CND6 ?ELS11: PRINTR "You can't see that here." ?CND6: EQUAL? NOT-HERE-OBJECT,L-PRSI \?CND20 EQUAL? PRSA,V?BUY /?THN28 EQUAL? PRSA,V?WALK-TO,V?WAIT-UNTIL,V?WAIT-FOR /?THN26 ?THN28: CALL VISIBLE?,L-PRSI-NOT-HERE ZERO? STACK /?ELS25 ?THN26: SET 'L-PRSI,L-PRSI-NOT-HERE JUMP ?CND20 ?ELS25: PRINTR "You can't see that here." ?CND20: EQUAL? L-PRSA,V?WALK \?CND34 **** FILE PS:VERBS.ZAP.3, 1-1225 (24721) ?CND1: EQUAL? NOT-HERE-OBJECT,L-PRSO \?CND5 EQUAL? PRSA,V?BUY /?THN8 EQUAL? PRSA,V?WALK-TO,V?WAIT-UNTIL,V?WAIT-FOR /?THN8 CALL VISIBLE?,L-PRSO-NOT-HERE ZERO? STACK /?ELS10 ?THN8: SET 'L-PRSO,L-PRSO-NOT-HERE JUMP ?CND5 ?ELS10: PRINTR "You can't see that here." ?CND5: EQUAL? NOT-HERE-OBJECT,L-PRSI \?CND13 EQUAL? PRSA,V?BUY /?THN16 EQUAL? PRSA,V?WALK-TO,V?WAIT-UNTIL,V?WAIT-FOR /?THN16 CALL VISIBLE?,L-PRSI-NOT-HERE ZERO? STACK /?ELS18 ?THN16: SET 'L-PRSI,L-PRSI-NOT-HERE JUMP ?CND13 ?ELS18: PRINTR "You can't see that here." ?CND13: EQUAL? L-PRSA,V?WALK \?CND21 *************** **** FILE PS:VERBS.ZAP.1, 1-1235 (25314) ?CND34: ZERO? L-PRSO /?ELS39 **** FILE PS:VERBS.ZAP.3, 1-1245 (25364) ?CND21: ZERO? L-PRSO /?ELS24 *************** **** FILE PS:VERBS.ZAP.1, 1-1237 (25367) ZERO? STACK \?ELS39 **** FILE PS:VERBS.ZAP.3, 1-1247 (25417) ZERO? STACK \?ELS24 *************** **** FILE PS:VERBS.ZAP.1, 1-1239 (25407) JUMP ?CND37 ?ELS39: ZERO? L-PRSI /?CND37 **** FILE PS:VERBS.ZAP.3, 1-1249 (25457) JUMP ?CND23 ?ELS24: ZERO? L-PRSI /?CND23 *************** **** FILE PS:VERBS.ZAP.1, 1-1242 (25474) ZERO? STACK \?CND37 **** FILE PS:VERBS.ZAP.3, 1-1252 (25524) ZERO? STACK \?CND23 *************** **** FILE PS:VERBS.ZAP.1, 1-1244 (25514) ?CND37: ZERO? OBJ /?ELS50 EQUAL? L-PRSA,V?WAIT-FOR,V?WAIT-UNTIL /?ELS50 EQUAL? L-PRSA,V?WALK-TO,V?BUY /?ELS50 EQUAL? OBJ,ROOMS /?ELS50 **** FILE PS:VERBS.ZAP.3, 1-1254 (25564) ?CND23: ZERO? OBJ /?ELS31 EQUAL? L-PRSA,V?WAIT-FOR,V?WAIT-UNTIL /?ELS31 EQUAL? L-PRSA,V?WALK-TO,V?BUY /?ELS31 EQUAL? OBJ,ROOMS /?ELS31 *************** **** FILE PS:VERBS.ZAP.1, 1-1249 (25681) ZERO? N /?ELS57 **** FILE PS:VERBS.ZAP.3, 1-1259 (25731) ZERO? N /?ELS36 *************** **** FILE PS:VERBS.ZAP.1, 1-1255 (25766) ?ELS57: CALL PRINTT,OBJ **** FILE PS:VERBS.ZAP.3, 1-1265 (25816) ?ELS36: CALL PRINTT,OBJ *************** **** FILE PS:VERBS.ZAP.1, 1-1259 (25832) ?ELS50: SET 'WINNER,L-WINNER **** FILE PS:VERBS.ZAP.3, 1-1269 (25882) ?ELS31: SET 'WINNER,L-WINNER *************** **** FILE PS:VERBS.ZAP.1, 1-1295 (26251) FSET? PRSO,PERSONBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1305 (26301) FSET? PRSO,PERSONBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1297 (26297) ?ELS5: FSET? PRSO,DOORBIT \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-1307 (26347) ?ELS4: FSET? PRSO,DOORBIT \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-1300 (26364) ?ELS9: PRINTR "It looks normal." **** FILE PS:VERBS.ZAP.3, 1-1310 (26414) ?ELS7: PRINTR "It looks normal." *************** **** FILE PS:VERBS.ZAP.1, 1-1314 (26623) FSET? PRSO,PERSONBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1324 (26673) FSET? PRSO,PERSONBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1317 (26695) ?ELS5: CALL YOU-CANT **** FILE PS:VERBS.ZAP.3, 1-1327 (26745) ?ELS4: CALL YOU-CANT *************** **** FILE PS:VERBS.ZAP.1, 1-1334 (26970) ?CND1: FSET? PRSO,PERSONBIT \?THN9 ZERO? PRSI /?ELS8 ?THN9: PRINTI "What a brilliant spy! ""Quick! Arrest that " **** FILE PS:VERBS.ZAP.3, 1-1344 (27020) ?CND1: FSET? PRSO,PERSONBIT \?THN6 ZERO? PRSI /?ELS7 ?THN6: PRINTI "What a brilliant spy! ""Quick! Arrest that " *************** **** FILE PS:VERBS.ZAP.1, 1-1338 (27101) ZERO? PRSI /?CND15 **** FILE PS:VERBS.ZAP.3, 1-1348 (27151) ZERO? PRSI /?CND11 *************** **** FILE PS:VERBS.ZAP.1, 1-1341 (27153) ?CND15: PRINTI " before " **** FILE PS:VERBS.ZAP.3, 1-1351 (27203) ?CND11: PRINTI " before " *************** **** FILE PS:VERBS.ZAP.1, 1-1344 (27237) ?ELS8: PRINTR "For what? You have no evidence of a crime yet." **** FILE PS:VERBS.ZAP.3, 1-1354 (27287) ?ELS7: PRINTR "For what? You have no evidence of a crime yet." *************** **** FILE PS:VERBS.ZAP.1, 1-1359 (27478) ZERO? P-CONT /?ELS5 FSET? PRSO,PERSONBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1369 (27528) ZERO? P-CONT /?ELS4 FSET? PRSO,PERSONBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1365 (27619) RETURN QCONTEXT-ROOM ?ELS5: CALL V-ASK-ABOUT **** FILE PS:VERBS.ZAP.3, 1-1375 (27669) RTRUE ?ELS4: CALL V-ASK-ABOUT *************** **** FILE PS:VERBS.ZAP.1, 1-1381 (27885) EQUAL? PRSO,PLAYER /?THN6 **** FILE PS:VERBS.ZAP.3, 1-1391 (27921) EQUAL? PRSO,PLAYER /?THN4 *************** **** FILE PS:VERBS.ZAP.1, 1-1383 (27943) ?THN6: CALL WONT-HELP-TO-TALK-TO,PRSO **** FILE PS:VERBS.ZAP.3, 1-1393 (27979) ?THN4: CALL WONT-HELP-TO-TALK-TO,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-1385 (27993) ?ELS5: EQUAL? PRSA,V?ASK \?ELS11 **** FILE PS:VERBS.ZAP.3, 1-1395 (28029) ?ELS5: EQUAL? PRSA,V?ASK \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-1388 (28062) ?ELS11: CALL START-SENTENCE,PRSO **** FILE PS:VERBS.ZAP.3, 1-1398 (28097) ?ELS8: CALL START-SENTENCE,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-1391 (28142) ZERO? STACK \?CND16 **** FILE PS:VERBS.ZAP.3, 1-1401 (28176) ZERO? STACK \?CND11 *************** **** FILE PS:VERBS.ZAP.1, 1-1393 (28178) ?CND16: PRINTR "n't seem to know about that." **** FILE PS:VERBS.ZAP.3, 1-1403 (28212) ?CND11: PRINTR "n't seem to know about that." *************** **** FILE PS:VERBS.ZAP.1, 1-1398 (28284) ZERO? STACK /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1408 (28318) ZERO? STACK /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1401 (28355) ?ELS5: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P **** FILE PS:VERBS.ZAP.3, 1-1411 (28389) ?ELS4: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P *************** **** FILE PS:VERBS.ZAP.1, 1-1423 (28677) FSET? PRSO,PERSONBIT \?ELS5 EQUAL? PRSO,PLAYER /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1433 (28711) FSET? PRSO,PERSONBIT \?ELS4 EQUAL? PRSO,PLAYER /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1427 (28770) ?ELS5: CALL HAR-HAR **** FILE PS:VERBS.ZAP.3, 1-1437 (28804) ?ELS4: CALL HAR-HAR *************** **** FILE PS:VERBS.ZAP.1, 1-1433 (28858) ZERO? STACK /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1443 (28892) ZERO? STACK /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1436 (28927) ?ELS5: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P **** FILE PS:VERBS.ZAP.3, 1-1446 (28961) ?ELS4: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P *************** **** FILE PS:VERBS.ZAP.1, 1-1500 (29900) EQUAL? HERE,CAFE /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1510 (29934) EQUAL? HERE,CAFE /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1504 (29989) ?ELS5: IN? PRSO,ROOMS /?ELS9 **** FILE PS:VERBS.ZAP.3, 1-1514 (30023) ?ELS4: IN? PRSO,ROOMS /?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-1506 (30045) ZERO? COST /?ELS9 FSET? PRSO,PERSONBIT /?ELS9 GRTR? COST,0 \?ELS9 GRTR? COST,POCKET-CHANGE \?ELS16 **** FILE PS:VERBS.ZAP.3, 1-1516 (30079) ZERO? COST /?ELS7 FSET? PRSO,PERSONBIT /?ELS7 GRTR? COST,0 \?ELS7 GRTR? COST,POCKET-CHANGE \?ELS12 *************** **** FILE PS:VERBS.ZAP.1, 1-1511 (30192) ?ELS16: SUB POCKET-CHANGE,COST >POCKET-CHANGE **** FILE PS:VERBS.ZAP.3, 1-1521 (30226) ?ELS12: SUB POCKET-CHANGE,COST >POCKET-CHANGE *************** **** FILE PS:VERBS.ZAP.1, 1-1522 (30440) ?ELS9: EQUAL? COST,-1 \?ELS31 **** FILE PS:VERBS.ZAP.3, 1-1532 (30474) ?ELS7: EQUAL? COST,-1 \?ELS22 *************** **** FILE PS:VERBS.ZAP.1, 1-1526 (30536) ?ELS31: CALL HE-SHE-IT,PRSO,TRUE-VALUE,STR?1 **** FILE PS:VERBS.ZAP.3, 1-1536 (30570) ?ELS22: CALL HE-SHE-IT,PRSO,TRUE-VALUE,STR?1 *************** **** FILE PS:VERBS.ZAP.1, 1-1532 (30657) FSET? PER,PERSONBIT \?THN4 **** FILE PS:VERBS.ZAP.3, 1-1542 (30691) FSET? PER,PERSONBIT \?THN2 *************** **** FILE PS:VERBS.ZAP.1, 1-1534 (30713) ?THN4: CALL WONT-HELP-TO-TALK-TO,PER **** FILE PS:VERBS.ZAP.3, 1-1544 (30747) ?THN2: CALL WONT-HELP-TO-TALK-TO,PER *************** **** FILE PS:VERBS.ZAP.1, 1-1538 (30812) ZERO? C /?ELS10 **** FILE PS:VERBS.ZAP.3, 1-1548 (30846) ZERO? C /?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-1540 (30852) ZERO? STACK /?CND11 **** FILE PS:VERBS.ZAP.3, 1-1550 (30885) ZERO? STACK /?CND8 *************** **** FILE PS:VERBS.ZAP.1, 1-1542 (30896) ?CND11: CALL META-LOC,PER EQUAL? STACK,HERE \?ELS18 **** FILE PS:VERBS.ZAP.3, 1-1552 (30928) ?CND8: CALL META-LOC,PER EQUAL? STACK,HERE \?ELS13 *************** **** FILE PS:VERBS.ZAP.1, 1-1546 (31003) ZERO? STACK /?ELS25 **** FILE PS:VERBS.ZAP.3, 1-1556 (31034) ZERO? STACK /?ELS19 *************** **** FILE PS:VERBS.ZAP.1, 1-1549 (31069) ZERO? MOT /?ELS30 **** FILE PS:VERBS.ZAP.3, 1-1559 (31100) ZERO? MOT /?ELS23 *************** **** FILE PS:VERBS.ZAP.1, 1-1551 (31129) ?ELS30: PRINTR " is listening." ?ELS25: PRINTR " ignores you." ?ELS18: CALL CORRIDOR-LOOK,PER ZERO? STACK /?ELS43 **** FILE PS:VERBS.ZAP.3, 1-1561 (31160) ?ELS23: PRINTR " is listening." ?ELS19: PRINTR " ignores you." ?ELS13: CALL CORRIDOR-LOOK,PER ZERO? STACK /?ELS30 *************** **** FILE PS:VERBS.ZAP.1, 1-1559 (31345) ?ELS43: CALL NOT-HERE,PER **** FILE PS:VERBS.ZAP.3, 1-1569 (31376) ?ELS30: CALL NOT-HERE,PER *************** **** FILE PS:VERBS.ZAP.1, 1-1561 (31382) ?ELS10: SET 'CLOCK-WAIT,TRUE-VALUE **** FILE PS:VERBS.ZAP.3, 1-1571 (31413) ?ELS7: SET 'CLOCK-WAIT,TRUE-VALUE *************** **** FILE PS:VERBS.ZAP.1, 1-1567 (31476) ZERO? PRSI /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1577 (31506) ZERO? PRSI /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1570 (31538) ?ELS5: FSET? PRSO,PERSONBIT \?ELS14 IN? PRSO,HERE \?ELS14 FSET? PRSO,NDESCBIT /?ELS14 **** FILE PS:VERBS.ZAP.3, 1-1580 (31568) ?ELS4: FSET? PRSO,PERSONBIT \?ELS9 IN? PRSO,HERE \?ELS9 FSET? PRSO,NDESCBIT /?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-1575 (31655) ?ELS14: EQUAL? PRSO,PLAYER \?ELS18 **** FILE PS:VERBS.ZAP.3, 1-1585 (31682) ?ELS9: EQUAL? PRSO,PLAYER \?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-1578 (31716) ?ELS18: ZERO? PRSI \FALSE **** FILE PS:VERBS.ZAP.3, 1-1588 (31742) ?ELS11: ZERO? PRSI \FALSE *************** **** FILE PS:VERBS.ZAP.1, 1-1584 (31844) ZERO? PER /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1594 (31870) ZERO? PER /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1586 (31894) ZERO? PER /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1596 (31920) ZERO? PER /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1588 (31933) EQUAL? STACK,HERE /?THN8 **** FILE PS:VERBS.ZAP.3, 1-1598 (31959) EQUAL? STACK,HERE /?THN5 *************** **** FILE PS:VERBS.ZAP.1, 1-1590 (31985) ZERO? STACK /?ELS5 ?THN8: CALL PERFORM,V?$CALL,PRSO **** FILE PS:VERBS.ZAP.3, 1-1600 (32011) ZERO? STACK /?ELS4 ?THN5: CALL PERFORM,V?$CALL,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-1593 (32049) ?ELS5: EQUAL? -1,P-NUMBER /?ELS11 **** FILE PS:VERBS.ZAP.3, 1-1603 (32075) ?ELS4: EQUAL? -1,P-NUMBER /?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-1595 (32136) ?ELS11: FSET? PRSO,PERSONBIT /?ELS15 **** FILE PS:VERBS.ZAP.3, 1-1605 (32161) ?ELS7: FSET? PRSO,PERSONBIT /?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-1598 (32224) ?ELS15: CALL META-LOC,PRSO EQUAL? STACK,HERE \?ELS19 FSET? PRSO,NDESCBIT /?ELS19 **** FILE PS:VERBS.ZAP.3, 1-1608 (32248) ?ELS10: CALL META-LOC,PRSO EQUAL? STACK,HERE \?ELS13 FSET? PRSO,NDESCBIT /?ELS13 *************** **** FILE PS:VERBS.ZAP.1, 1-1603 (32336) ?ELS19: PRINTI "There's no sense in phoning " **** FILE PS:VERBS.ZAP.3, 1-1613 (32360) ?ELS13: PRINTI "There's no sense in phoning " *************** **** FILE PS:VERBS.ZAP.1, 1-1609 (32436) IN? PRSO,ROOMS /?THN6 **** FILE PS:VERBS.ZAP.3, 1-1619 (32460) IN? PRSO,ROOMS /?THN4 *************** **** FILE PS:VERBS.ZAP.1, 1-1611 (32488) ?THN6: CALL V-THROUGH **** FILE PS:VERBS.ZAP.3, 1-1621 (32512) ?THN4: CALL V-THROUGH *************** **** FILE PS:VERBS.ZAP.1, 1-1639 (32976) ZERO? STACK /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1649 (33000) ZERO? STACK /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1642 (33025) ?ELS5: ZERO? OBJ \?ELS7 **** FILE PS:VERBS.ZAP.3, 1-1652 (33049) ?ELS4: ZERO? OBJ \?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-1645 (33084) ?ELS7: CALL HAR-HAR **** FILE PS:VERBS.ZAP.3, 1-1655 (33108) ?ELS5: CALL HAR-HAR *************** **** FILE PS:VERBS.ZAP.1, 1-1655 (33197) FSET? PRSO,CONTBIT /?ELS5 FSET? PRSO,DOORBIT /?ELS5 FSET? PRSO,WINDOWBIT /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1665 (33221) FSET? PRSO,CONTBIT /?ELS4 FSET? PRSO,DOORBIT /?ELS4 FSET? PRSO,WINDOWBIT /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1660 (33309) ?ELS5: FSET? PRSO,DOORBIT /?THN10 FSET? PRSO,WINDOWBIT \?ELS9 ?THN10: FSET? PRSO,OPENBIT \?ELS16 FSET? PRSO,MUNGBIT \?ELS21 **** FILE PS:VERBS.ZAP.3, 1-1670 (33333) ?ELS4: FSET? PRSO,DOORBIT /?THN6 FSET? PRSO,WINDOWBIT \?ELS7 ?THN6: FSET? PRSO,OPENBIT \?ELS11 FSET? PRSO,MUNGBIT \?ELS15 *************** **** FILE PS:VERBS.ZAP.1, 1-1665 (33493) ?ELS21: FSET? PRSO,LOCKED \?CND26 **** FILE PS:VERBS.ZAP.3, 1-1675 (33515) ?ELS15: FSET? PRSO,LOCKED \?CND18 *************** **** FILE PS:VERBS.ZAP.1, 1-1667 (33561) ZERO? STACK /?CND26 **** FILE PS:VERBS.ZAP.3, 1-1677 (33583) ZERO? STACK /?CND18 *************** **** FILE PS:VERBS.ZAP.1, 1-1673 (33668) ?CND26: CALL OKAY,PRSO,STR?7 **** FILE PS:VERBS.ZAP.3, 1-1683 (33690) ?CND18: CALL OKAY,PRSO,STR?7 *************** **** FILE PS:VERBS.ZAP.1, 1-1675 (33708) ?ELS16: CALL ALREADY,PRSO,STR?7 **** FILE PS:VERBS.ZAP.3, 1-1685 (33730) ?ELS11: CALL ALREADY,PRSO,STR?7 *************** **** FILE PS:VERBS.ZAP.1, 1-1677 (33751) ?ELS9: FSET? PRSO,SURFACEBIT /?ELS39 **** FILE PS:VERBS.ZAP.3, 1-1687 (33773) ?ELS7: FSET? PRSO,SURFACEBIT /?ELS25 *************** **** FILE PS:VERBS.ZAP.1, 1-1679 (33812) ZERO? STACK /?ELS39 FSET? PRSO,OPENBIT \?ELS46 **** FILE PS:VERBS.ZAP.3, 1-1689 (33834) ZERO? STACK /?ELS25 FSET? PRSO,OPENBIT \?ELS30 *************** **** FILE PS:VERBS.ZAP.1, 1-1683 (33896) ?ELS46: CALL ALREADY,PRSO,STR?7 **** FILE PS:VERBS.ZAP.3, 1-1693 (33918) ?ELS30: CALL ALREADY,PRSO,STR?7 *************** **** FILE PS:VERBS.ZAP.1, 1-1685 (33939) ?ELS39: CALL YOU-CANT **** FILE PS:VERBS.ZAP.3, 1-1695 (33961) ?ELS25: CALL YOU-CANT *************** **** FILE PS:VERBS.ZAP.1, 1-1700 (34110) EQUAL? PRSO,PLAYER \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1710 (34132) EQUAL? PRSO,PLAYER \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1703 (34169) ?ELS5: FSET? PRSO,PERSONBIT /?ELS7 **** FILE PS:VERBS.ZAP.3, 1-1713 (34191) ?ELS4: FSET? PRSO,PERSONBIT /?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-1707 (34279) ?ELS7: CALL START-SENTENCE,PRSO **** FILE PS:VERBS.ZAP.3, 1-1717 (34301) ?ELS5: CALL START-SENTENCE,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-1723 (34475) FSET? PRSO,DOORBIT \?ELS5 ZERO? PRSI \?ELS5 FSET? PRSO,OPENBIT \?ELS12 **** FILE PS:VERBS.ZAP.3, 1-1733 (34497) FSET? PRSO,DOORBIT \?ELS4 ZERO? PRSI \?ELS4 FSET? PRSO,OPENBIT \?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-1727 (34609) ?ELS12: PRINTR "Why don't you just open it instead?" ?ELS5: FSET? PRSO,PERSONBIT /?ELS20 **** FILE PS:VERBS.ZAP.3, 1-1737 (34630) ?ELS9: PRINTR "Why don't you just open it instead?" ?ELS4: FSET? PRSO,PERSONBIT /?ELS14 *************** **** FILE PS:VERBS.ZAP.1, 1-1730 (34785) ?ELS20: ZERO? PRSI \?ELS24 **** FILE PS:VERBS.ZAP.3, 1-1740 (34805) ?ELS14: ZERO? PRSI \?ELS17 *************** **** FILE PS:VERBS.ZAP.1, 1-1734 (34908) ?ELS24: FSET? PRSI,WEAPONBIT /?ELS28 **** FILE PS:VERBS.ZAP.3, 1-1744 (34928) ?ELS17: FSET? PRSI,WEAPONBIT /?ELS20 *************** **** FILE PS:VERBS.ZAP.1, 1-1740 (35043) ?ELS28: CALL YOU-CANT **** FILE PS:VERBS.ZAP.3, 1-1750 (35063) ?ELS20: CALL YOU-CANT *************** **** FILE PS:VERBS.ZAP.1, 1-1750 (35149) ZERO? PRSO /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1760 (35169) ZERO? PRSO /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1753 (35195) ?ELS5: PRINTR "You're wide awake and in good health." **** FILE PS:VERBS.ZAP.3, 1-1763 (35215) ?ELS4: PRINTR "You're wide awake and in good health." *************** **** FILE PS:VERBS.ZAP.1, 1-1782 (35591) EQUAL? HERE,ROOF \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1792 (35611) EQUAL? HERE,ROOF \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1784 (35634) ?ELS5: RETURN STR?157 **** FILE PS:VERBS.ZAP.3, 1-1794 (35654) ?ELS4: RETURN STR?157 *************** **** FILE PS:VERBS.ZAP.1, 1-1814 (36039) IN? PRSO,ROOMS \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1824 (36059) IN? PRSO,ROOMS \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1817 (36102) ?ELS5: FSET? PRSO,DOORBIT \?ELS7 FSET? PRSO,OPENBIT \?ELS7 **** FILE PS:VERBS.ZAP.3, 1-1827 (36122) ?ELS4: FSET? PRSO,DOORBIT \?ELS5 FSET? PRSO,OPENBIT \?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-1820 (36195) ZERO? RM /?ELS14 **** FILE PS:VERBS.ZAP.3, 1-1830 (36215) ZERO? RM /?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-1822 (36229) ZERO? STACK /?ELS14 **** FILE PS:VERBS.ZAP.3, 1-1832 (36249) ZERO? STACK /?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-1825 (36273) ?ELS14: PRINTI "Sorry, but the """ **** FILE PS:VERBS.ZAP.3, 1-1835 (36293) ?ELS10: PRINTI "Sorry, but the """ *************** **** FILE PS:VERBS.ZAP.1, 1-1828 (36361) ?ELS7: ZERO? OBJ \?ELS22 FSET? PRSO,TAKEBIT /?ELS22 **** FILE PS:VERBS.ZAP.3, 1-1838 (36381) ?ELS5: ZERO? OBJ \?ELS14 FSET? PRSO,TAKEBIT /?ELS14 *************** **** FILE PS:VERBS.ZAP.1, 1-1834 (36532) ?ELS22: ZERO? OBJ /?ELS28 **** FILE PS:VERBS.ZAP.3, 1-1844 (36552) ?ELS14: ZERO? OBJ /?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-1836 (36589) ?ELS28: IN? PRSO,WINNER \?ELS33 **** FILE PS:VERBS.ZAP.3, 1-1846 (36609) ?ELS18: IN? PRSO,WINNER \?ELS21 *************** **** FILE PS:VERBS.ZAP.1, 1-1838 (36672) ?ELS33: CALL HAR-HAR **** FILE PS:VERBS.ZAP.3, 1-1848 (36692) ?ELS21: CALL HAR-HAR *************** **** FILE PS:VERBS.ZAP.1, 1-1847 (36831) ZERO? VAL \?ELS12 **** FILE PS:VERBS.ZAP.3, 1-1857 (36851) ZERO? VAL \?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-1851 (36931) ?ELS12: EQUAL? VAL,M-FATAL /TRUE **** FILE PS:VERBS.ZAP.3, 1-1861 (36950) ?ELS9: EQUAL? VAL,M-FATAL /TRUE *************** **** FILE PS:VERBS.ZAP.1, 1-1856 (37003) EQUAL? PRSO,INTDIR \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1866 (37021) EQUAL? PRSO,INTDIR \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1859 (37133) ?ELS5: IN? PRSO,GLOBAL-OBJECTS \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-1869 (37151) ?ELS4: IN? PRSO,GLOBAL-OBJECTS \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-1861 (37198) ZERO? STACK \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-1871 (37216) ZERO? STACK \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-1864 (37249) ?ELS9: CALL META-LOC,PRSO EQUAL? STACK,HERE,LOCAL-GLOBALS /?ELS13 **** FILE PS:VERBS.ZAP.3, 1-1874 (37267) ?ELS7: CALL META-LOC,PRSO EQUAL? STACK,HERE,LOCAL-GLOBALS /?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-1868 (37360) ?ELS13: GETP PRSO,P?TEXT >TXT ZERO? TXT /?ELS15 **** FILE PS:VERBS.ZAP.3, 1-1878 (37377) ?ELS9: GETP PRSO,P?TEXT >TXT ZERO? TXT /?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-1873 (37440) ?ELS15: FSET? PRSO,CONTBIT \?ELS19 **** FILE PS:VERBS.ZAP.3, 1-1883 (37456) ?ELS10: FSET? PRSO,CONTBIT \?ELS14 *************** **** FILE PS:VERBS.ZAP.1, 1-1876 (37507) ?ELS19: FSET? PRSO,DOORBIT \?ELS23 **** FILE PS:VERBS.ZAP.3, 1-1886 (37523) ?ELS14: FSET? PRSO,DOORBIT \?ELS15 *************** **** FILE PS:VERBS.ZAP.1, 1-1879 (37576) ?ELS23: CALL NOTHING-SPECIAL **** FILE PS:VERBS.ZAP.3, 1-1889 (37592) ?ELS15: CALL NOTHING-SPECIAL *************** **** FILE PS:VERBS.ZAP.1, 1-1900 (37896) ZERO? PLAYER-NOT-FACING \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1910 (37912) ZERO? PLAYER-NOT-FACING \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1902 (37942) ?ELS5: PRINTI "not " **** FILE PS:VERBS.ZAP.3, 1-1912 (37958) ?ELS4: PRINTI "not " *************** **** FILE PS:VERBS.ZAP.1, 1-1909 (38038) ZERO? P-WALK-DIR \?ELS3 **** FILE PS:VERBS.ZAP.3, 1-1919 (38054) ZERO? P-WALK-DIR \?ELS2 *************** **** FILE PS:VERBS.ZAP.1, 1-1914 (38168) ?ELS3: CALL COMPASS-EQV,HERE,PRSO >P **** FILE PS:VERBS.ZAP.3, 1-1924 (38184) ?ELS2: CALL COMPASS-EQV,HERE,PRSO >P *************** **** FILE PS:VERBS.ZAP.1, 1-1944 (38763) IN? PRSO,ROOMS \?ELS8 EQUAL? PRSO,HERE \?ELS13 **** FILE PS:VERBS.ZAP.3, 1-1954 (38779) IN? PRSO,ROOMS \?ELS6 EQUAL? PRSO,HERE \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-1948 (38854) ?ELS13: FSET? PRSO,TOUCHBIT \?ELS15 **** FILE PS:VERBS.ZAP.3, 1-1958 (38870) ?ELS10: FSET? PRSO,TOUCHBIT \?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-1950 (38939) ?ELS15: PRINTR "You'll have to figure that out." ?ELS8: GETP PRSO,P?CHARACTER >CHR **** FILE PS:VERBS.ZAP.3, 1-1960 (38955) ?ELS11: PRINTR "You'll have to figure that out." ?ELS6: GETP PRSO,P?CHARACTER >CHR *************** **** FILE PS:VERBS.ZAP.1, 1-1955 (39094) EQUAL? ?TMP1,STACK \?ELS28 FSET? PRSO,NDESCBIT /?ELS28 **** FILE PS:VERBS.ZAP.3, 1-1965 (39110) EQUAL? ?TMP1,STACK \?ELS20 FSET? PRSO,NDESCBIT /?ELS20 *************** **** FILE PS:VERBS.ZAP.1, 1-1959 (39178) ?ELS28: CALL WHO-KNOWS?,PRSO **** FILE PS:VERBS.ZAP.3, 1-1969 (39194) ?ELS20: CALL WHO-KNOWS?,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-1973 (39388) EQUAL? PRSO,PLAYER \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-1983 (39404) EQUAL? PRSO,PLAYER \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-1975 (39447) FSET? L,SURFACEBIT \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-1985 (39463) FSET? L,SURFACEBIT \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-1977 (39490) JUMP ?CND8 ?ELS10: PRINTI "in" ?CND8: CALL PRINTT,L **** FILE PS:VERBS.ZAP.3, 1-1987 (39505) JUMP ?CND7 ?ELS8: PRINTI "in" ?CND7: CALL PRINTT,L *************** **** FILE PS:VERBS.ZAP.1, 1-1981 (39559) ?ELS5: CALL HELD?,PRSO ZERO? STACK /?ELS20 **** FILE PS:VERBS.ZAP.3, 1-1991 (39573) ?ELS4: CALL HELD?,PRSO ZERO? STACK /?ELS15 *************** **** FILE PS:VERBS.ZAP.1, 1-1984 (39629) ?ELS20: EQUAL? L,LOCAL-GLOBALS \?ELS28 **** FILE PS:VERBS.ZAP.3, 1-1994 (39643) ?ELS15: EQUAL? L,LOCAL-GLOBALS \?ELS19 *************** **** FILE PS:VERBS.ZAP.1, 1-1986 (39697) ZERO? STACK \?THN25 ?ELS28: CALL META-LOC,PRSO EQUAL? STACK,HERE \?ELS30 **** FILE PS:VERBS.ZAP.3, 1-1996 (39711) ZERO? STACK \?THN18 ?ELS19: CALL META-LOC,PRSO EQUAL? STACK,HERE \?ELS20 *************** **** FILE PS:VERBS.ZAP.1, 1-1990 (39796) ZERO? STACK \?THN25 ?ELS30: EQUAL? PRSO,PSEUDO-OBJECT \?ELS24 ?THN25: PRINTR "It's right here." ?ELS24: FSET? PRSO,TOUCHBIT /?ELS34 FSET? PRSO,SEENBIT /?ELS34 **** FILE PS:VERBS.ZAP.3, 1-2000 (39810) ZERO? STACK \?THN18 ?ELS20: EQUAL? PRSO,PSEUDO-OBJECT \?ELS21 ?THN18: PRINTR "It's right here." ?ELS21: FSET? PRSO,TOUCHBIT /?ELS24 FSET? PRSO,SEENBIT /?ELS24 *************** **** FILE PS:VERBS.ZAP.1, 1-1998 (40024) ?ELS34: EQUAL? L,GLOBAL-OBJECTS,LOCAL-GLOBALS /?THN41 EQUAL? L,UNDER-SEAT-1,UNDER-SEAT-2,UNDER-SEAT-3 /?THN41 EQUAL? L,UNDER-SEAT-4,UNDER-SEAT-5 \?ELS40 ?THN41: PRINTR "It's around somewhere." ?ELS40: CALL META-LOC,PRSO **** FILE PS:VERBS.ZAP.3, 1-2008 (40038) ?ELS24: EQUAL? L,GLOBAL-OBJECTS,LOCAL-GLOBALS /?THN28 EQUAL? L,UNDER-SEAT-1,UNDER-SEAT-2,UNDER-SEAT-3 /?THN28 EQUAL? L,UNDER-SEAT-4,UNDER-SEAT-5 \?ELS29 ?THN28: PRINTR "It's around somewhere." ?ELS29: CALL META-LOC,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-2004 (40274) ZERO? STACK /?ELS46 **** FILE PS:VERBS.ZAP.3, 1-2014 (40288) ZERO? STACK /?ELS32 *************** **** FILE PS:VERBS.ZAP.1, 1-2006 (40332) ?ELS46: FSET? L,PERSONBIT \?ELS50 **** FILE PS:VERBS.ZAP.3, 1-2016 (40346) ?ELS32: FSET? L,PERSONBIT \?ELS35 *************** **** FILE PS:VERBS.ZAP.1, 1-2009 (40420) ?ELS50: FSET? L,SURFACEBIT \?ELS54 **** FILE PS:VERBS.ZAP.3, 1-2019 (40434) ?ELS35: FSET? L,SURFACEBIT \?ELS38 *************** **** FILE PS:VERBS.ZAP.1, 1-2013 (40513) ?ELS54: FSET? L,CONTBIT /?THN59 IN? L,ROOMS \?ELS58 ?THN59: PRINTI "It's probably in" **** FILE PS:VERBS.ZAP.3, 1-2023 (40527) ?ELS38: FSET? L,CONTBIT /?THN41 IN? L,ROOMS \?ELS42 ?THN41: PRINTI "It's probably in" *************** **** FILE PS:VERBS.ZAP.1, 1-2018 (40632) ?ELS58: PRINTR "It's nowhere in particular." **** FILE PS:VERBS.ZAP.3, 1-2028 (40646) ?ELS42: PRINTR "It's nowhere in particular." *************** **** FILE PS:VERBS.ZAP.1, 1-2041 (40930) EQUAL? PRSO,PLAYER \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2051 (40944) EQUAL? PRSO,PLAYER \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2044 (40990) ?ELS5: GETP PRSO,P?CHARACTER >CN ZERO? CN \?ELS7 **** FILE PS:VERBS.ZAP.3, 1-2054 (41004) ?ELS4: GETP PRSO,P?CHARACTER >CN ZERO? CN \?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-2049 (41128) ?ELS7: GET CHARACTER-TABLE,CN >CHR **** FILE PS:VERBS.ZAP.3, 1-2059 (41142) ?ELS5: GET CHARACTER-TABLE,CN >CHR *************** **** FILE PS:VERBS.ZAP.1, 1-2051 (41187) EQUAL? HERE,L \?ELS11 **** FILE PS:VERBS.ZAP.3, 1-2061 (41201) EQUAL? HERE,L \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-2055 (41282) ?ELS11: ZERO? L \?ELS15 **** FILE PS:VERBS.ZAP.3, 1-2065 (41295) ?ELS8: ZERO? L \?ELS12 *************** **** FILE PS:VERBS.ZAP.1, 1-2058 (41368) ?ELS15: CALL PERFORM,V?WALK-TO,CHR **** FILE PS:VERBS.ZAP.3, 1-2068 (41380) ?ELS12: CALL PERFORM,V?WALK-TO,CHR *************** **** FILE PS:VERBS.ZAP.1, 1-2077 (41604) FSET? PRSO,PERSONBIT /?THN6 **** FILE PS:VERBS.ZAP.3, 1-2087 (41616) FSET? PRSO,PERSONBIT /?THN4 *************** **** FILE PS:VERBS.ZAP.1, 1-2079 (41668) ?THN6: CALL MORE-SPECIFIC **** FILE PS:VERBS.ZAP.3, 1-2089 (41680) ?THN4: CALL MORE-SPECIFIC *************** **** FILE PS:VERBS.ZAP.1, 1-2081 (41705) ?ELS5: ZERO? P-DOLLAR-FLAG /?ELS9 EQUAL? PRSO,INTNUM \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-2091 (41717) ?ELS5: ZERO? P-DOLLAR-FLAG /?ELS6 EQUAL? PRSO,INTNUM \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-2085 (41843) ?ELS9: CALL HELD?,PRSO **** FILE PS:VERBS.ZAP.3, 1-2095 (41855) ?ELS6: CALL HELD?,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-2096 (42079) ZERO? PRSI \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2106 (42091) ZERO? PRSI \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2099 (42125) ?ELS5: FSET? PRSI,PERSONBIT /?ELS7 **** FILE PS:VERBS.ZAP.3, 1-2109 (42137) ?ELS4: FSET? PRSI,PERSONBIT /?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-2105 (42255) ?ELS7: EQUAL? PRSI,PLAYER \?ELS11 **** FILE PS:VERBS.ZAP.3, 1-2115 (42267) ?ELS5: EQUAL? PRSI,PLAYER \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-2108 (42326) ?ELS11: MOVE PRSO,PRSI **** FILE PS:VERBS.ZAP.3, 1-2118 (42337) ?ELS8: MOVE PRSO,PRSI *************** **** FILE PS:VERBS.ZAP.1, 1-2144 (42809) ZERO? PRSO /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2154 (42819) ZERO? PRSO /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2147 (42860) ?ELS5: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS8 **** FILE PS:VERBS.ZAP.3, 1-2157 (42870) ?ELS4: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-2151 (42947) ?ELS8: EQUAL? WINNER,PLAYER \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-2161 (42957) ?ELS5: EQUAL? WINNER,PLAYER \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-2153 (43026) ZERO? P /?ELS10 FSET? P,INVISIBLE /?ELS10 **** FILE PS:VERBS.ZAP.3, 1-2163 (43035) ZERO? P /?ELS6 FSET? P,INVISIBLE /?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-2162 (43172) ?ELS10: CALL NOT-CLEAR-WHOM **** FILE PS:VERBS.ZAP.3, 1-2172 (43179) ?ELS6: CALL NOT-CLEAR-WHOM *************** **** FILE PS:VERBS.ZAP.1, 1-2167 (43239) FSET? PRSO,PERSONBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2177 (43245) FSET? PRSO,PERSONBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2170 (43321) ?ELS5: ZERO? PRSO /?ELS9 **** FILE PS:VERBS.ZAP.3, 1-2180 (43327) ?ELS4: ZERO? PRSO /?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-2172 (43375) ZERO? HELL /?ELS17 **** FILE PS:VERBS.ZAP.3, 1-2182 (43381) ZERO? HELL /?ELS13 *************** **** FILE PS:VERBS.ZAP.1, 1-2174 (43411) JUMP ?CND13 ?ELS17: PUSH STR?163 ?CND13: PRINT STACK **** FILE PS:VERBS.ZAP.3, 1-2184 (43417) JUMP ?CND10 ?ELS13: PUSH STR?163 ?CND10: PRINT STACK *************** **** FILE PS:VERBS.ZAP.1, 1-2180 (43518) ?ELS9: CALL NOT-CLEAR-WHOM **** FILE PS:VERBS.ZAP.3, 1-2190 (43524) ?ELS7: CALL NOT-CLEAR-WHOM *************** **** FILE PS:VERBS.ZAP.1, 1-2185 (43576) ZERO? PRSO \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2195 (43582) ZERO? PRSO \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2188 (43623) ?ELS5: CALL MORE-SPECIFIC **** FILE PS:VERBS.ZAP.3, 1-2198 (43629) ?ELS4: CALL MORE-SPECIFIC *************** **** FILE PS:VERBS.ZAP.1, 1-2206 (44068) ZERO? STACK /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2216 (44074) ZERO? STACK /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2208 (44145) ?ELS5: PRINTI "There's no room to hide behind" **** FILE PS:VERBS.ZAP.3, 1-2218 (44151) ?ELS4: PRINTI "There's no room to hide behind" *************** **** FILE PS:VERBS.ZAP.1, 1-2219 (44299) ZERO? PRSO \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2229 (44305) ZERO? PRSO \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2223 (44380) ?ELS5: ZERO? PRSI \?ELS9 FSET? PRSO,WEAPONBIT \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-2233 (44386) ?ELS4: ZERO? PRSI \?ELS7 FSET? PRSO,WEAPONBIT \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-2228 (44499) ?ELS9: FSET? PRSO,PERSONBIT /?ELS15 **** FILE PS:VERBS.ZAP.3, 1-2238 (44505) ?ELS7: FSET? PRSO,PERSONBIT /?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-2231 (44561) ?ELS15: IN? PRSO,GLOBAL-OBJECTS \?ELS17 **** FILE PS:VERBS.ZAP.3, 1-2241 (44567) ?ELS11: IN? PRSO,GLOBAL-OBJECTS \?ELS12 *************** **** FILE PS:VERBS.ZAP.1, 1-2233 (44640) ?ELS17: PRINTR "You think it over. It's not worth the hassle." **** FILE PS:VERBS.ZAP.3, 1-2243 (44646) ?ELS12: PRINTR "You think it over. It's not worth the hassle." *************** **** FILE PS:VERBS.ZAP.1, 1-2237 (44724) FSET? PRSO,PERSONBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2247 (44730) FSET? PRSO,PERSONBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2240 (44786) ?ELS5: PRINTR "What a (ahem!) strange idea!" **** FILE PS:VERBS.ZAP.3, 1-2250 (44792) ?ELS4: PRINTR "What a (ahem!) strange idea!" *************** **** FILE PS:VERBS.ZAP.1, 1-2244 (44855) FSET? PRSO,DOORBIT /?THN6 **** FILE PS:VERBS.ZAP.3, 1-2254 (44861) FSET? PRSO,DOORBIT /?THN4 *************** **** FILE PS:VERBS.ZAP.1, 1-2246 (44913) ?THN6: CALL DOOR-ROOM,HERE,PRSO **** FILE PS:VERBS.ZAP.3, 1-2256 (44919) ?THN4: CALL DOOR-ROOM,HERE,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-2248 (44973) ZERO? P /?ELS12 **** FILE PS:VERBS.ZAP.3, 1-2258 (44979) ZERO? P /?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-2253 (45072) ?ELS12: PRINTR "There's no answer." **** FILE PS:VERBS.ZAP.3, 1-2263 (45077) ?ELS9: PRINTR "There's no answer." *************** **** FILE PS:VERBS.ZAP.1, 1-2260 (45195) ZERO? PLAYER-SEATED /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2270 (45199) ZERO? PLAYER-SEATED /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2263 (45299) ?ELS5: CALL ALREADY,PLAYER,STR?165 **** FILE PS:VERBS.ZAP.3, 1-2273 (45303) ?ELS4: CALL ALREADY,PLAYER,STR?165 *************** **** FILE PS:VERBS.ZAP.1, 1-2268 (45365) ZERO? PRSO /?ELS5 EQUAL? PRSO,INTDIR /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2278 (45369) ZERO? PRSO /?ELS4 EQUAL? PRSO,INTDIR /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2272 (45450) ?ELS5: GETPT HERE,P?DOWN ZERO? STACK /?ELS9 **** FILE PS:VERBS.ZAP.3, 1-2282 (45454) ?ELS4: GETPT HERE,P?DOWN ZERO? STACK /?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-2277 (45579) ?ELS9: CALL V-SKIP **** FILE PS:VERBS.ZAP.3, 1-2287 (45583) ?ELS6: CALL V-SKIP *************** **** FILE PS:VERBS.ZAP.1, 1-2283 (45642) FSET? STACK,VEHBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2293 (45646) FSET? STACK,VEHBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2285 (45729) ?ELS5: CALL PICK-ONE,WHEEEEE **** FILE PS:VERBS.ZAP.3, 1-2295 (45733) ?ELS4: CALL PICK-ONE,WHEEEEE *************** **** FILE PS:VERBS.ZAP.1, 1-2297 (45858) ZERO? PRSO /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2307 (45862) ZERO? PRSO /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2299 (45891) EQUAL? STACK,PRSO /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2309 (45895) EQUAL? STACK,PRSO /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2305 (45994) ?ELS5: ZERO? ON-TRAIN /?ELS13 EQUAL? PRSO,TRAIN \?ELS13 **** FILE PS:VERBS.ZAP.3, 1-2315 (45998) ?ELS4: ZERO? ON-TRAIN /?ELS10 EQUAL? PRSO,TRAIN \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-2309 (46103) ?ELS13: CALL DO-WALK,P?OUT **** FILE PS:VERBS.ZAP.3, 1-2319 (46107) ?ELS10: CALL DO-WALK,P?OUT *************** **** FILE PS:VERBS.ZAP.1, 1-2314 (46162) FSET? PRSO,PERSONBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2324 (46166) FSET? PRSO,PERSONBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2317 (46233) ?ELS5: CALL TOO-BAD-BUT,PRSO **** FILE PS:VERBS.ZAP.3, 1-2327 (46237) ?ELS4: CALL TOO-BAD-BUT,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-2322 (46311) FSET? PRSO,DOORBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2332 (46315) FSET? PRSO,DOORBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2324 (46373) ZERO? STACK \?THN8 **** FILE PS:VERBS.ZAP.3, 1-2334 (46377) ZERO? STACK \?THN5 *************** **** FILE PS:VERBS.ZAP.1, 1-2326 (46427) ZERO? STACK /?ELS5 ?THN8: FSET? PRSO,OPENBIT \?ELS14 **** FILE PS:VERBS.ZAP.3, 1-2336 (46431) ZERO? STACK /?ELS4 ?THN5: FSET? PRSO,OPENBIT \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-2330 (46523) ?ELS14: CALL OKAY,PRSO,STR?135 **** FILE PS:VERBS.ZAP.3, 1-2340 (46527) ?ELS10: CALL OKAY,PRSO,STR?135 *************** **** FILE PS:VERBS.ZAP.1, 1-2332 (46565) ?ELS5: CALL YOU-CANT **** FILE PS:VERBS.ZAP.3, 1-2342 (46569) ?ELS4: CALL YOU-CANT *************** **** FILE PS:VERBS.ZAP.1, 1-2345 (46749) FSET? PRSO,DOORBIT \?ELS5 FSET? PRSO,OPENBIT /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2355 (46753) FSET? PRSO,DOORBIT \?ELS4 FSET? PRSO,OPENBIT /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2350 (46868) ?ELS5: PRINTI "There's nothing behind" **** FILE PS:VERBS.ZAP.3, 1-2360 (46872) ?ELS4: PRINTI "There's nothing behind" *************** **** FILE PS:VERBS.ZAP.1, 1-2356 (46965) EQUAL? PRSO,ROOMS \?ELS5 EQUAL? P-ADVERB,W?CAREFULLY \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-2366 (46969) EQUAL? PRSO,ROOMS \?ELS4 EQUAL? P-ADVERB,W?CAREFULLY \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-2360 (47069) ?ELS10: PRINTI "A quick look reveals nothing interesting " **** FILE PS:VERBS.ZAP.3, 1-2370 (47072) ?ELS8: PRINTI "A quick look reveals nothing interesting " *************** **** FILE PS:VERBS.ZAP.1, 1-2364 (47175) ?ELS5: CALL HAR-HAR **** FILE PS:VERBS.ZAP.3, 1-2374 (47177) ?ELS4: CALL HAR-HAR *************** **** FILE PS:VERBS.ZAP.1, 1-2375 (47329) EQUAL? DIR,P?OUT \?ELS6 **** FILE PS:VERBS.ZAP.3, 1-2385 (47331) EQUAL? DIR,P?OUT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2377 (47394) ZERO? RM /?CND4 **** FILE PS:VERBS.ZAP.3, 1-2387 (47396) ZERO? RM /?CND3 *************** **** FILE PS:VERBS.ZAP.1, 1-2384 (47505) ?ELS6: CALL FIND-FLAG-LG,HERE,CONTBIT >RM ZERO? RM \?THN17 **** FILE PS:VERBS.ZAP.3, 1-2394 (47507) ?ELS4: CALL FIND-FLAG-LG,HERE,CONTBIT >RM ZERO? RM \?THN10 *************** **** FILE PS:VERBS.ZAP.1, 1-2387 (47606) ZERO? RM \?THN17 **** FILE PS:VERBS.ZAP.3, 1-2397 (47608) ZERO? RM \?THN10 *************** **** FILE PS:VERBS.ZAP.1, 1-2389 (47662) ZERO? RM /?CND4 ?THN17: PRINT I-ASSUME **** FILE PS:VERBS.ZAP.3, 1-2399 (47664) ZERO? RM /?CND3 ?THN10: PRINT I-ASSUME *************** **** FILE PS:VERBS.ZAP.1, 1-2396 (47780) ?CND4: ?CND1: EQUAL? PRSO,GLOBAL-HERE \?ELS25 **** FILE PS:VERBS.ZAP.3, 1-2406 (47782) ?CND3: ?CND1: EQUAL? PRSO,GLOBAL-HERE \?ELS17 *************** **** FILE PS:VERBS.ZAP.1, 1-2400 (47860) ?ELS25: IN? PRSO,ROOMS \?ELS27 **** FILE PS:VERBS.ZAP.3, 1-2410 (47862) ?ELS17: IN? PRSO,ROOMS \?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-2403 (47924) ?ELS27: FSET? PRSO,CONTBIT \?ELS29 **** FILE PS:VERBS.ZAP.3, 1-2413 (47926) ?ELS18: FSET? PRSO,CONTBIT \?ELS19 *************** **** FILE PS:VERBS.ZAP.1, 1-2405 (47995) ZERO? STACK /?ELS34 FIRST? PRSO \?ELS39 **** FILE PS:VERBS.ZAP.3, 1-2415 (47997) ZERO? STACK /?ELS23 FIRST? PRSO \?ELS27 *************** **** FILE PS:VERBS.ZAP.1, 1-2409 (48082) ?ELS39: CALL TOO-BAD-BUT,PRSO,STR?158 **** FILE PS:VERBS.ZAP.3, 1-2419 (48084) ?ELS27: CALL TOO-BAD-BUT,PRSO,STR?158 *************** **** FILE PS:VERBS.ZAP.1, 1-2411 (48131) ?ELS34: CALL TOO-BAD-BUT,PRSO,STR?7 **** FILE PS:VERBS.ZAP.3, 1-2421 (48133) ?ELS23: CALL TOO-BAD-BUT,PRSO,STR?7 *************** **** FILE PS:VERBS.ZAP.1, 1-2413 (48178) ?ELS29: FSET? PRSO,SURFACEBIT \?ELS47 FIRST? PRSO \?ELS57 **** FILE PS:VERBS.ZAP.3, 1-2423 (48180) ?ELS19: FSET? PRSO,SURFACEBIT \?ELS29 FIRST? PRSO \?ELS36 *************** **** FILE PS:VERBS.ZAP.1, 1-2417 (48282) ?ELS57: PRINTI "There's nothing on" **** FILE PS:VERBS.ZAP.3, 1-2427 (48284) ?ELS36: PRINTI "There's nothing on" *************** **** FILE PS:VERBS.ZAP.1, 1-2419 (48338) PRINTR "." ?ELS47: CALL V-LOOK-THROUGH,TRUE-VALUE **** FILE PS:VERBS.ZAP.3, 1-2429 (48340) PRINTI "." CRLF PUSH 1 RSTACK ?ELS29: CALL V-LOOK-THROUGH,TRUE-VALUE *************** **** FILE PS:VERBS.ZAP.1, 1-2422 (48411) EQUAL? DIR,P?IN \?ELS67 **** FILE PS:VERBS.ZAP.3, 1-2435 (48440) EQUAL? DIR,P?IN \?ELS41 *************** **** FILE PS:VERBS.ZAP.1, 1-2425 (48471) ?ELS67: CALL YOU-CANT,STR?172 **** FILE PS:VERBS.ZAP.3, 1-2438 (48500) ?ELS41: CALL YOU-CANT,STR?172 *************** **** FILE PS:VERBS.ZAP.1, 1-2430 (48552) FSET? PRSO,DOORBIT \?ELS5 FSET? PRSO,OPENBIT /?THN11 FSET? PRSO,TRANSBIT \?ELS10 ?THN11: CALL DOOR-ROOM,HERE,PRSO >RM ZERO? RM /?ELS17 **** FILE PS:VERBS.ZAP.3, 1-2443 (48581) FSET? PRSO,DOORBIT \?ELS4 FSET? PRSO,OPENBIT /?THN8 FSET? PRSO,TRANSBIT \?ELS9 ?THN8: CALL DOOR-ROOM,HERE,PRSO >RM ZERO? RM /?ELS13 *************** **** FILE PS:VERBS.ZAP.1, 1-2437 (48726) ?ELS17: PRINTI "You can't tell what's beyond" **** FILE PS:VERBS.ZAP.3, 1-2450 (48752) ?ELS13: PRINTI "You can't tell what's beyond" *************** **** FILE PS:VERBS.ZAP.1, 1-2440 (48805) ?ELS10: CALL THIS-IS-IT,PRSO **** FILE PS:VERBS.ZAP.3, 1-2453 (48831) ?ELS9: CALL THIS-IS-IT,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-2443 (48875) ?ELS5: FSET? PRSO,WINDOWBIT \?ELS25 **** FILE PS:VERBS.ZAP.3, 1-2456 (48900) ?ELS4: FSET? PRSO,WINDOWBIT \?ELS16 *************** **** FILE PS:VERBS.ZAP.1, 1-2447 (48984) ?ELS25: FSET? PRSO,PERSONBIT \?ELS34 **** FILE PS:VERBS.ZAP.3, 1-2460 (49009) ?ELS16: FSET? PRSO,PERSONBIT \?ELS22 *************** **** FILE PS:VERBS.ZAP.1, 1-2449 (49073) ?ELS34: ZERO? INSIDE \FALSE **** FILE PS:VERBS.ZAP.3, 1-2462 (49098) ?ELS22: ZERO? INSIDE \FALSE *************** **** FILE PS:VERBS.ZAP.1, 1-2464 (49373) ZERO? STACK /?ELS10 **** FILE PS:VERBS.ZAP.3, 1-2477 (49398) ZERO? STACK /?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-2466 (49415) JUMP ?CND8 ?ELS10: GETP RM,P?LDESC >TXT ZERO? TXT /?CND8 **** FILE PS:VERBS.ZAP.3, 1-2479 (49439) JUMP ?CND7 ?ELS8: GETP RM,P?LDESC >TXT ZERO? TXT /?CND7 *************** **** FILE PS:VERBS.ZAP.1, 1-2472 (49517) ?CND8: CALL CORRIDOR-LOOK ZERO? STACK /?CND15 **** FILE PS:VERBS.ZAP.3, 1-2485 (49540) ?CND7: CALL CORRIDOR-LOOK ZERO? STACK /?CND12 *************** **** FILE PS:VERBS.ZAP.1, 1-2475 (49586) ?CND15: ZERO? X \?CND18 **** FILE PS:VERBS.ZAP.3, 1-2488 (49609) ?CND12: ZERO? X \?CND14 *************** **** FILE PS:VERBS.ZAP.1, 1-2478 (49666) ?CND18: SET 'HERE,OLD-HERE RETURN HERE **** FILE PS:VERBS.ZAP.3, 1-2491 (49689) ?CND14: SET 'HERE,OLD-HERE RTRUE *************** **** FILE PS:VERBS.ZAP.1, 1-2485 (49782) ZERO? P \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2498 (49800) ZERO? P \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2489 (49862) ?ELS5: LESS? P,LOW-DIRECTION /?PRG1 **** FILE PS:VERBS.ZAP.3, 1-2502 (49880) ?ELS4: LESS? P,LOW-DIRECTION /?PRG1 *************** **** FILE PS:VERBS.ZAP.1, 1-2492 (49935) EQUAL? L,UEXIT \?ELS12 **** FILE PS:VERBS.ZAP.3, 1-2505 (49953) EQUAL? L,UEXIT \?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-2495 (50003) ?ELS12: EQUAL? L,DEXIT \?ELS16 **** FILE PS:VERBS.ZAP.3, 1-2508 (50020) ?ELS9: EQUAL? L,DEXIT \?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-2497 (50051) EQUAL? STACK,THERE \?ELS16 **** FILE PS:VERBS.ZAP.3, 1-2510 (50067) EQUAL? STACK,THERE \?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-2501 (50173) ?ELS16: EQUAL? L,CEXIT \?PRG1 **** FILE PS:VERBS.ZAP.3, 1-2514 (50189) ?ELS11: EQUAL? L,CEXIT \?PRG1 *************** **** FILE PS:VERBS.ZAP.1, 1-2513 (50389) FSET? PRSO,SURFACEBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2526 (50405) FSET? PRSO,SURFACEBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2516 (50451) ?ELS5: PRINTI "There's no good surface on" **** FILE PS:VERBS.ZAP.3, 1-2529 (50467) ?ELS4: PRINTI "There's no good surface on" *************** **** FILE PS:VERBS.ZAP.1, 1-2528 (50636) ZERO? STACK /?ELS5 FSET? PRSO,WORNBIT \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-2541 (50652) ZERO? STACK /?ELS4 FSET? PRSO,WORNBIT \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-2531 (50716) ?ELS10: PRINTR "You're holding it!" ?ELS5: FSET? PRSO,PERSONBIT \?ELS18 **** FILE PS:VERBS.ZAP.3, 1-2544 (50731) ?ELS8: PRINTR "You're holding it!" ?ELS4: FSET? PRSO,PERSONBIT \?ELS13 *************** **** FILE PS:VERBS.ZAP.1, 1-2536 (50860) ?ELS18: LOC PRSO EQUAL? STACK,HERE,LOCAL-GLOBALS \?ELS22 **** FILE PS:VERBS.ZAP.3, 1-2549 (50874) ?ELS13: LOC PRSO EQUAL? STACK,HERE,LOCAL-GLOBALS \?ELS16 *************** **** FILE PS:VERBS.ZAP.1, 1-2539 (50963) ?ELS22: PRINTR "That's not a bit useful." **** FILE PS:VERBS.ZAP.3, 1-2552 (50977) ?ELS16: PRINTR "That's not a bit useful." *************** **** FILE PS:VERBS.ZAP.1, 1-2543 (51032) ZERO? PRSI /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2556 (51046) ZERO? PRSI /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2547 (51132) ?ELS5: EQUAL? PRSO,ROOMS \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-2560 (51146) ?ELS4: EQUAL? PRSO,ROOMS \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-2549 (51187) ZERO? STACK /?ELS15 **** FILE PS:VERBS.ZAP.3, 1-2562 (51200) ZERO? STACK /?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-2552 (51250) GRTR? HR,6 \?ELS18 LESS? HR,18 \?ELS18 **** FILE PS:VERBS.ZAP.3, 1-2565 (51263) GRTR? HR,6 \?ELS13 LESS? HR,18 \?ELS13 *************** **** FILE PS:VERBS.ZAP.1, 1-2555 (51312) JUMP ?CND16 ?ELS18: PRINTI "The moon" ?CND16: PRINTR " is shining with all its might." ?ELS15: CALL ZMEMQ,HERE,STATION-ROOMS ZERO? STACK /?ELS30 **** FILE PS:VERBS.ZAP.3, 1-2568 (51325) JUMP ?CND12 ?ELS13: PRINTI "The moon" ?CND12: PRINTR " is shining with all its might." ?ELS11: CALL ZMEMQ,HERE,STATION-ROOMS ZERO? STACK /?ELS21 *************** **** FILE PS:VERBS.ZAP.1, 1-2561 (51489) ZERO? STACK /?ELS33 **** FILE PS:VERBS.ZAP.3, 1-2574 (51502) ZERO? STACK /?ELS23 *************** **** FILE PS:VERBS.ZAP.1, 1-2563 (51543) JUMP ?CND31 ?ELS33: PRINTI "The ceiling" ?CND31: PRINTR " is constructed on a grand scale, with crossed beams and numerous chandeliers." ?ELS30: PRINTR "The ceiling has seen better years, but a little soot removal would do wonders." ?ELS10: IN? TIMETABLE,WINNER \?ELS47 **** FILE PS:VERBS.ZAP.3, 1-2576 (51556) JUMP ?CND22 ?ELS23: PRINTI "The ceiling" ?CND22: PRINTR " is constructed on a grand scale, with crossed beams and numerous chandeliers." ?ELS21: PRINTR "The ceiling has seen better years, but a little soot removal would do wonders." ?ELS7: IN? TIMETABLE,WINNER \?ELS32 *************** **** FILE PS:VERBS.ZAP.1, 1-2570 (51868) ?ELS47: PRINTI "Huh? Without the " **** FILE PS:VERBS.ZAP.3, 1-2583 (51880) ?ELS32: PRINTI "Huh? Without the " *************** **** FILE PS:VERBS.ZAP.1, 1-2586 (52154) FSET? PRSO,TAKEBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2599 (52166) FSET? PRSO,TAKEBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2590 (52248) ?ELS5: CALL YOU-CANT **** FILE PS:VERBS.ZAP.3, 1-2603 (52260) ?ELS4: CALL YOU-CANT *************** **** FILE PS:VERBS.ZAP.1, 1-2606 (52529) FSET? PRSO,CONTBIT /?ELS5 FSET? PRSO,DOORBIT /?ELS5 FSET? PRSO,WINDOWBIT /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2619 (52541) FSET? PRSO,CONTBIT /?ELS4 FSET? PRSO,DOORBIT /?ELS4 FSET? PRSO,WINDOWBIT /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2611 (52641) ?ELS5: FSET? PRSO,DOORBIT /?THN10 FSET? PRSO,WINDOWBIT /?THN10 **** FILE PS:VERBS.ZAP.3, 1-2624 (52653) ?ELS4: FSET? PRSO,DOORBIT /?THN6 FSET? PRSO,WINDOWBIT /?THN6 *************** **** FILE PS:VERBS.ZAP.1, 1-2614 (52730) ZERO? STACK /?ELS9 ?THN10: FSET? PRSO,LOCKED \?CND12 **** FILE PS:VERBS.ZAP.3, 1-2627 (52740) ZERO? STACK /?ELS7 ?THN6: FSET? PRSO,LOCKED \?CND8 *************** **** FILE PS:VERBS.ZAP.1, 1-2617 (52820) ZERO? STACK \?ELS19 **** FILE PS:VERBS.ZAP.3, 1-2630 (52828) ZERO? STACK \?ELS12 *************** **** FILE PS:VERBS.ZAP.1, 1-2619 (52875) ZERO? STACK \?ELS19 **** FILE PS:VERBS.ZAP.3, 1-2632 (52883) ZERO? STACK \?ELS12 *************** **** FILE PS:VERBS.ZAP.1, 1-2622 (52938) ?ELS19: FCLEAR PRSO,LOCKED **** FILE PS:VERBS.ZAP.3, 1-2635 (52946) ?ELS12: FCLEAR PRSO,LOCKED *************** **** FILE PS:VERBS.ZAP.1, 1-2627 (53036) ?CND12: FSET? PRSO,OPENBIT \?ELS30 **** FILE PS:VERBS.ZAP.3, 1-2640 (53044) ?CND8: FSET? PRSO,OPENBIT \?ELS19 *************** **** FILE PS:VERBS.ZAP.1, 1-2630 (53108) ?ELS30: FSET? PRSO,MUNGBIT \?ELS32 **** FILE PS:VERBS.ZAP.3, 1-2643 (53115) ?ELS19: FSET? PRSO,MUNGBIT \?ELS20 *************** **** FILE PS:VERBS.ZAP.1, 1-2632 (53195) ?ELS32: FSET PRSO,OPENBIT FSET? PRSO,DOORBIT /?THN42 FSET? PRSO,WINDOWBIT /?THN42 FIRST? PRSO \?THN42 FSET? PRSO,TRANSBIT \?ELS41 ?THN42: CALL OKAY,PRSO,STR?6 **** FILE PS:VERBS.ZAP.3, 1-2645 (53202) ?ELS20: FSET PRSO,OPENBIT FSET? PRSO,DOORBIT /?THN26 FSET? PRSO,WINDOWBIT /?THN26 FIRST? PRSO \?THN26 FSET? PRSO,TRANSBIT \?ELS27 ?THN26: CALL OKAY,PRSO,STR?6 *************** **** FILE PS:VERBS.ZAP.1, 1-2639 (53374) ?ELS41: FIRST? PRSO >F \?ELS45 NEXT? F /?ELS45 **** FILE PS:VERBS.ZAP.3, 1-2652 (53381) ?ELS27: FIRST? PRSO >F \?ELS28 NEXT? F /?ELS28 *************** **** FILE PS:VERBS.ZAP.1, 1-2642 (53446) ZERO? STR /?ELS45 **** FILE PS:VERBS.ZAP.3, 1-2655 (53453) ZERO? STR /?ELS28 *************** **** FILE PS:VERBS.ZAP.1, 1-2650 (53555) ?ELS45: PRINTI "You open" **** FILE PS:VERBS.ZAP.3, 1-2663 (53562) ?ELS28: PRINTI "You open" *************** **** FILE PS:VERBS.ZAP.1, 1-2654 (53649) PRINTR "." ?ELS9: CALL YOU-CANT **** FILE PS:VERBS.ZAP.3, 1-2667 (53656) PRINTI "." CRLF PUSH 1 *************** **** FILE PS:VERBS.ZAP.1, 1-2659 (53698) **** FILE PS:VERBS.ZAP.3, 1-2671 (53696) ?ELS7: CALL YOU-CANT RSTACK *************** **** FILE PS:VERBS.ZAP.1, 1-2676 (53918) ZERO? PRSI /?ELS5 EQUAL? PRSI,CAMERA /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2692 (53952) ZERO? PRSI /?ELS4 EQUAL? PRSI,CAMERA /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2680 (53990) ?ELS5: FSET? CAMERA,OPENBIT \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-2696 (54024) ?ELS4: FSET? CAMERA,OPENBIT \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-2683 (54067) ?ELS9: ZERO? LENS-CRACKED /?ELS11 **** FILE PS:VERBS.ZAP.3, 1-2699 (54101) ?ELS6: ZERO? LENS-CRACKED /?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-2685 (54134) ?ELS11: LOC FILM EQUAL? STACK,CAMERA \?THN17 **** FILE PS:VERBS.ZAP.3, 1-2701 (54167) ?ELS7: LOC FILM EQUAL? STACK,CAMERA \?THN10 *************** **** FILE PS:VERBS.ZAP.1, 1-2688 (54211) ?THN17: PRINTR "You push the button, but it won't move." **** FILE PS:VERBS.ZAP.3, 1-2704 (54243) ?THN10: PRINTR "You push the button, but it won't move." *************** **** FILE PS:VERBS.ZAP.1, 1-2708 (54795) EQUAL? PRSI,PRSO \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2724 (54827) EQUAL? PRSI,PRSO \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2711 (54857) ?ELS5: EQUAL? PRSO,PICTURE-GLOBAL /?ELS7 **** FILE PS:VERBS.ZAP.3, 1-2727 (54889) ?ELS4: EQUAL? PRSO,PICTURE-GLOBAL /?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-2714 (54932) ?ELS7: CALL NOT-HOLDING?,CAMERA **** FILE PS:VERBS.ZAP.3, 1-2730 (54964) ?ELS5: CALL NOT-HOLDING?,CAMERA *************** **** FILE PS:VERBS.ZAP.1, 1-2743 (55358) FSET? PRSO,TAKEBIT /?ELS7 **** FILE PS:VERBS.ZAP.3, 1-2759 (55390) FSET? PRSO,TAKEBIT /?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-2746 (55420) ?ELS7: IN? PRSO,GLOBAL-OBJECTS \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-2762 (55452) ?ELS5: IN? PRSO,GLOBAL-OBJECTS \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-2749 (55490) ?ELS9: EQUAL? PRSI,GLOBAL-HERE,FLOOR /FALSE **** FILE PS:VERBS.ZAP.3, 1-2765 (55522) ?ELS6: EQUAL? PRSI,GLOBAL-HERE,FLOOR /FALSE *************** **** FILE PS:VERBS.ZAP.1, 1-2756 (55623) EQUAL? PRSI,WINE-WHITE,WINE-RED \?ELS5 IN? PRSI,CUP \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2772 (55655) EQUAL? PRSI,WINE-WHITE,WINE-RED \?ELS4 IN? PRSI,CUP \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2760 (55711) ?ELS5: FSET? PRSI,CONTBIT /?ELS9 **** FILE PS:VERBS.ZAP.3, 1-2776 (55743) ?ELS4: FSET? PRSI,CONTBIT /?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-2764 (55831) ?ELS9: FSET? PRSI,OPENBIT /?ELS13 **** FILE PS:VERBS.ZAP.3, 1-2780 (55863) ?ELS6: FSET? PRSI,OPENBIT /?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-2767 (55906) ?ELS13: CALL PRE-PUT **** FILE PS:VERBS.ZAP.3, 1-2783 (55937) ?ELS9: CALL PRE-PUT *************** **** FILE PS:VERBS.ZAP.1, 1-2777 (56008) EQUAL? PRSI,PLAYER \?ELS3 **** FILE PS:VERBS.ZAP.3, 1-2793 (56038) EQUAL? PRSI,PLAYER \?ELS2 *************** **** FILE PS:VERBS.ZAP.1, 1-2780 (56072) ?ELS3: FSET? PRSI,OPENBIT /?CND1 **** FILE PS:VERBS.ZAP.3, 1-2796 (56102) ?ELS2: FSET? PRSI,OPENBIT /?CND1 *************** **** FILE PS:VERBS.ZAP.1, 1-2783 (56164) FSET? PRSI,DOORBIT /?THN11 FSET? PRSI,CONTBIT \?ELS10 ?THN11: CALL TOO-BAD-BUT,PRSI,STR?7 **** FILE PS:VERBS.ZAP.3, 1-2799 (56194) FSET? PRSI,DOORBIT /?THN6 FSET? PRSI,CONTBIT \?ELS7 ?THN6: CALL TOO-BAD-BUT,PRSI,STR?7 *************** **** FILE PS:VERBS.ZAP.1, 1-2787 (56268) ?ELS10: FSET? PRSI,SURFACEBIT /?ELS14 **** FILE PS:VERBS.ZAP.3, 1-2803 (56295) ?ELS7: FSET? PRSI,SURFACEBIT /?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-2791 (56377) ?ELS14: PRINTI "You can't open" **** FILE PS:VERBS.ZAP.3, 1-2807 (56402) ?ELS8: PRINTI "You can't open" *************** **** FILE PS:VERBS.ZAP.1, 1-2794 (56442) ?CND1: ZERO? PRSI \?ELS25 **** FILE PS:VERBS.ZAP.3, 1-2810 (56466) ?CND1: ZERO? PRSI \?ELS16 *************** **** FILE PS:VERBS.ZAP.1, 1-2797 (56495) ?ELS25: EQUAL? PRSI,PRSO \?ELS27 **** FILE PS:VERBS.ZAP.3, 1-2813 (56519) ?ELS16: EQUAL? PRSI,PRSO \?ELS17 *************** **** FILE PS:VERBS.ZAP.1, 1-2800 (56554) ?ELS27: IN? PRSO,PRSI \?ELS29 **** FILE PS:VERBS.ZAP.3, 1-2816 (56578) ?ELS17: IN? PRSO,PRSI \?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-2803 (56633) FSET? PRSI,SURFACEBIT \?ELS36 **** FILE PS:VERBS.ZAP.3, 1-2819 (56657) FSET? PRSI,SURFACEBIT \?ELS24 *************** **** FILE PS:VERBS.ZAP.1, 1-2805 (56680) JUMP ?CND32 ?ELS36: PUSH STR?176 ?CND32: PRINT STACK **** FILE PS:VERBS.ZAP.3, 1-2821 (56704) JUMP ?CND21 ?ELS24: PUSH STR?176 ?CND21: PRINT STACK *************** **** FILE PS:VERBS.ZAP.1, 1-2810 (56769) ?ELS29: FSET? PRSI,SURFACEBIT /?ELS40 FSET? PRSI,OPENBIT /?ELS40 **** FILE PS:VERBS.ZAP.3, 1-2826 (56793) ?ELS18: FSET? PRSI,SURFACEBIT /?ELS25 FSET? PRSI,OPENBIT /?ELS25 *************** **** FILE PS:VERBS.ZAP.1, 1-2814 (56877) ?ELS40: CALL WEIGHT,PRSI >?TMP1 **** FILE PS:VERBS.ZAP.3, 1-2830 (56901) ?ELS25: CALL WEIGHT,PRSI >?TMP1 *************** **** FILE PS:VERBS.ZAP.1, 1-2820 (57021) GRTR? ?TMP1,STACK \?ELS44 **** FILE PS:VERBS.ZAP.3, 1-2836 (57045) GRTR? ?TMP1,STACK \?ELS27 *************** **** FILE PS:VERBS.ZAP.1, 1-2822 (57077) ?ELS44: CALL HELD?,PRSO ZERO? STACK \?ELS48 **** FILE PS:VERBS.ZAP.3, 1-2838 (57101) ?ELS27: CALL HELD?,PRSO ZERO? STACK \?ELS30 *************** **** FILE PS:VERBS.ZAP.1, 1-2826 (57157) ?ELS48: MOVE PRSO,PRSI **** FILE PS:VERBS.ZAP.3, 1-2842 (57181) ?ELS30: MOVE PRSO,PRSI *************** **** FILE PS:VERBS.ZAP.1, 1-2828 (57202) EQUAL? PRSI,TOILET \?CND53 **** FILE PS:VERBS.ZAP.3, 1-2844 (57226) EQUAL? PRSI,TOILET \?CND32 *************** **** FILE PS:VERBS.ZAP.1, 1-2830 (57251) ?CND53: PRINTR "Okay." **** FILE PS:VERBS.ZAP.3, 1-2846 (57275) ?CND32: PRINTR "Okay." *************** **** FILE PS:VERBS.ZAP.1, 1-2843 (57419) ZERO? LIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2859 (57443) ZERO? LIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2846 (57463) ?ELS5: IN? PRSO,GLOBAL-OBJECTS \?ELS7 **** FILE PS:VERBS.ZAP.3, 1-2862 (57487) ?ELS4: IN? PRSO,GLOBAL-OBJECTS \?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-2849 (57533) ?ELS7: ZERO? PRSI /?ELS9 FSET? PRSI,TRANSBIT /?ELS9 EQUAL? -1,P-NUMBER \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-2865 (57557) ?ELS5: ZERO? PRSI /?ELS6 FSET? PRSI,TRANSBIT /?ELS6 EQUAL? -1,P-NUMBER \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-2855 (57707) ?ELS9: EQUAL? P-ADVERB,W?CAREFULLY \FALSE **** FILE PS:VERBS.ZAP.3, 1-2871 (57731) ?ELS6: EQUAL? P-ADVERB,W?CAREFULLY \FALSE *************** **** FILE PS:VERBS.ZAP.1, 1-2857 (57773) ZERO? VAL \?ELS20 **** FILE PS:VERBS.ZAP.3, 1-2873 (57797) ZERO? VAL \?ELS14 *************** **** FILE PS:VERBS.ZAP.1, 1-2861 (57868) ?ELS20: EQUAL? VAL,M-FATAL /TRUE **** FILE PS:VERBS.ZAP.3, 1-2877 (57892) ?ELS14: EQUAL? VAL,M-FATAL /TRUE *************** **** FILE PS:VERBS.ZAP.1, 1-2866 (57931) FSET? PRSO,READBIT /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2882 (57955) FSET? PRSO,READBIT /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2869 (57985) ?ELS5: GETP PRSO,P?TEXT **** FILE PS:VERBS.ZAP.3, 1-2885 (58009) ?ELS4: GETP PRSO,P?TEXT *************** **** FILE PS:VERBS.ZAP.1, 1-2876 (58063) FSET? PRSO,WEARBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2892 (58087) FSET? PRSO,WEARBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2879 (58131) ?ELS5: CALL PERFORM,V?TAKE,PRSO **** FILE PS:VERBS.ZAP.3, 1-2895 (58155) ?ELS4: CALL PERFORM,V?TAKE,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-2909 (58478) ZERO? STACK /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-2925 (58502) ZERO? STACK /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-2912 (58539) ?ELS5: SET 'P,GOOD-SPY IN? P,HERE /?THN8 **** FILE PS:VERBS.ZAP.3, 1-2928 (58563) ?ELS4: SET 'P,GOOD-SPY PUSH 1 IN? STACK,HERE /?THN5 *************** **** FILE PS:VERBS.ZAP.1, 1-2915 (58625) ZERO? P /?ELS7 ?THN8: PRINT I-ASSUME **** FILE PS:VERBS.ZAP.3, 1-2932 (58662) ZERO? P /?ELS6 ?THN5: PRINT I-ASSUME *************** **** FILE PS:VERBS.ZAP.1, 1-2923 (58751) ?ELS7: SET 'QUOTE-FLAG,FALSE-VALUE **** FILE PS:VERBS.ZAP.3, 1-2940 (58788) ?ELS6: SET 'QUOTE-FLAG,FALSE-VALUE *************** **** FILE PS:VERBS.ZAP.1, 1-2946 (59116) FSET? PRSO,PERSONBIT \?ELS5 FIRST? PRSO >OBJ \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-2963 (59153) FSET? PRSO,PERSONBIT \?ELS4 FIRST? PRSO >OBJ \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-2952 (59247) ?ELS10: PRINTR "You don't find anything interesting." ?ELS5: FSET? PRSO,CONTBIT \?ELS18 FSET? PRSO,OPENBIT /?ELS23 **** FILE PS:VERBS.ZAP.3, 1-2969 (59283) ?ELS8: PRINTR "You don't find anything interesting." ?ELS4: FSET? PRSO,CONTBIT \?ELS13 FSET? PRSO,OPENBIT /?ELS17 *************** **** FILE PS:VERBS.ZAP.1, 1-2957 (59405) ?ELS23: CALL PERFORM,V?LOOK-INSIDE,PRSO **** FILE PS:VERBS.ZAP.3, 1-2974 (59440) ?ELS17: CALL PERFORM,V?LOOK-INSIDE,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-2959 (59455) ?ELS18: IN? BLOOD-SPOT,PRSO \?ELS27 FSET? BLOOD-SPOT,NDESCBIT \?ELS27 **** FILE PS:VERBS.ZAP.3, 1-2976 (59490) ?ELS13: IN? BLOOD-SPOT,PRSO \?ELS18 FSET? BLOOD-SPOT,NDESCBIT \?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-2966 (59614) ?ELS27: PRINTR "You find nothing unusual." **** FILE PS:VERBS.ZAP.3, 1-2983 (59649) ?ELS18: PRINTR "You find nothing unusual." *************** **** FILE PS:VERBS.ZAP.1, 1-2978 (59814) FSET? PRSO,PERSONBIT \?ELS5 IN? PRSI,PRSO \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-2995 (59849) FSET? PRSO,PERSONBIT \?ELS4 IN? PRSI,PRSO \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-2985 (59955) ?ELS10: CALL START-SENTENCE,PRSO **** FILE PS:VERBS.ZAP.3, 1-3002 (59989) ?ELS8: CALL START-SENTENCE,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-2988 (60035) ZERO? STACK \?CND17 **** FILE PS:VERBS.ZAP.3, 1-3005 (60068) ZERO? STACK \?CND13 *************** **** FILE PS:VERBS.ZAP.1, 1-2990 (60071) ?CND17: PRINTI "n't have" IN? PRSI,GLOBAL-OBJECTS \?ELS28 **** FILE PS:VERBS.ZAP.3, 1-3007 (60104) ?CND13: PRINTI "n't have" IN? PRSI,GLOBAL-OBJECTS \?ELS22 *************** **** FILE PS:VERBS.ZAP.1, 1-2995 (60177) ?ELS28: ZERO? PRSI \?ELS32 **** FILE PS:VERBS.ZAP.3, 1-3012 (60210) ?ELS22: ZERO? PRSI \?ELS25 *************** **** FILE PS:VERBS.ZAP.1, 1-2997 (60223) ?ELS32: CALL PRINTT,PRSI **** FILE PS:VERBS.ZAP.3, 1-3014 (60256) ?ELS25: CALL PRINTT,PRSI *************** **** FILE PS:VERBS.ZAP.1, 1-3000 (60321) PRINTR " person." ?ELS5: FSET? PRSO,CONTBIT \?ELS40 FSET? PRSO,OPENBIT /?ELS40 **** FILE PS:VERBS.ZAP.3, 1-3017 (60354) PRINTI " person." CRLF PUSH 1 RSTACK ?ELS4: FSET? PRSO,CONTBIT \?ELS30 FSET? PRSO,OPENBIT /?ELS30 *************** **** FILE PS:VERBS.ZAP.1, 1-3006 (60474) ?ELS40: IN? PRSI,PRSO \?ELS46 **** FILE PS:VERBS.ZAP.3, 1-3026 (60534) ?ELS30: IN? PRSI,PRSO \?ELS34 *************** **** FILE PS:VERBS.ZAP.1, 1-3010 (60599) ?ELS46: ZERO? PRSI \?ELS52 **** FILE PS:VERBS.ZAP.3, 1-3030 (60659) ?ELS34: ZERO? PRSI \?ELS39 *************** **** FILE PS:VERBS.ZAP.1, 1-3013 (60653) ?ELS52: PRINTI "You don't find" **** FILE PS:VERBS.ZAP.3, 1-3033 (60713) ?ELS39: PRINTI "You don't find" *************** **** FILE PS:VERBS.ZAP.1, 1-3040 (61003) FSET? PRSO,PERSONBIT \?ELS7 **** FILE PS:VERBS.ZAP.3, 1-3060 (61063) FSET? PRSO,PERSONBIT \?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-3045 (61129) ?ELS7: SET 'CLOCK-WAIT,TRUE-VALUE **** FILE PS:VERBS.ZAP.3, 1-3065 (61189) ?ELS5: SET 'CLOCK-WAIT,TRUE-VALUE *************** **** FILE PS:VERBS.ZAP.1, 1-3055 (61278) FSET? PRSO,TAKEBIT /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3075 (61338) FSET? PRSO,TAKEBIT /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3057 (61362) ?ELS5: FSET? PRSO,OPENBIT /?ELS9 FIRST? PRSO \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-3077 (61422) ?ELS4: FSET? PRSO,OPENBIT /?ELS7 FIRST? PRSO \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-3062 (61502) ?ELS9: FSET? PRSO,OPENBIT \?ELS15 FIRST? PRSO \?ELS15 ?PRG18: FIRST? PRSO >X \?REP19 **** FILE PS:VERBS.ZAP.3, 1-3082 (61562) ?ELS7: FSET? PRSO,OPENBIT \?ELS11 FIRST? PRSO \?ELS11 ?PRG13: FIRST? PRSO >X \?REP14 *************** **** FILE PS:VERBS.ZAP.1, 1-3066 (61605) JUMP ?PRG18 ?REP19: PRINTR "All of the objects spill onto the ground." ?ELS15: PRINTI "There's nothing in" **** FILE PS:VERBS.ZAP.3, 1-3086 (61665) JUMP ?PRG13 ?REP14: PRINTR "All of the objects spill onto the ground." ?ELS11: PRINTI "There's nothing in" *************** **** FILE PS:VERBS.ZAP.1, 1-3075 (61791) IN? CAMERA,WINNER \?ELS6 **** FILE PS:VERBS.ZAP.3, 1-3095 (61851) IN? CAMERA,WINNER \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3077 (61837) JUMP ?CND4 ?ELS6: IN? GUN,WINNER \?CND4 **** FILE PS:VERBS.ZAP.3, 1-3097 (61897) JUMP ?CND3 ?ELS4: IN? GUN,WINNER \?CND3 *************** **** FILE PS:VERBS.ZAP.1, 1-3080 (61896) ?CND4: ZERO? PRSI /FALSE **** FILE PS:VERBS.ZAP.3, 1-3100 (61956) ?CND3: ZERO? PRSI /FALSE *************** **** FILE PS:VERBS.ZAP.1, 1-3090 (62044) ZERO? STACK \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3110 (62104) ZERO? STACK \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3092 (62115) ?ELS5: CALL IKILL,STR?179 **** FILE PS:VERBS.ZAP.3, 1-3112 (62175) ?ELS4: CALL IKILL,STR?179 *************** **** FILE PS:VERBS.ZAP.1, 1-3107 (62283) EQUAL? PRSO,PLAYER \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3127 (62343) EQUAL? PRSO,PLAYER \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3111 (62376) ZERO? STACK /?ELS8 **** FILE PS:VERBS.ZAP.3, 1-3131 (62436) ZERO? STACK /?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-3114 (62436) ?ELS8: CALL PERFORM,V?FIND,PRSI **** FILE PS:VERBS.ZAP.3, 1-3134 (62496) ?ELS6: CALL PERFORM,V?FIND,PRSI *************** **** FILE PS:VERBS.ZAP.1, 1-3116 (62478) ?ELS5: FSET? PRSO,PERSONBIT /?ELS12 **** FILE PS:VERBS.ZAP.3, 1-3136 (62538) ?ELS4: FSET? PRSO,PERSONBIT /?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-3120 (62584) ?ELS12: CALL START-SENTENCE,PRSO **** FILE PS:VERBS.ZAP.3, 1-3140 (62643) ?ELS7: CALL START-SENTENCE,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-3127 (62696) ZERO? PRSI /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3147 (62754) ZERO? PRSI /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3131 (62784) ?ELS5: CALL HELD?,PRSO ZERO? STACK \?ELS8 **** FILE PS:VERBS.ZAP.3, 1-3151 (62842) ?ELS4: CALL HELD?,PRSO ZERO? STACK \?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-3134 (62840) FSET? STACK,PERSONBIT \?ELS11 **** FILE PS:VERBS.ZAP.3, 1-3154 (62898) FSET? STACK,PERSONBIT \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-3137 (62908) ?ELS11: CALL PERFORM,V?ASK-CONTEXT-FOR,PRSO **** FILE PS:VERBS.ZAP.3, 1-3157 (62965) ?ELS7: CALL PERFORM,V?ASK-CONTEXT-FOR,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-3139 (62962) ?ELS8: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS15 **** FILE PS:VERBS.ZAP.3, 1-3159 (63018) ?ELS5: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-3143 (63057) ?ELS15: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P ZERO? P /?ELS17 **** FILE PS:VERBS.ZAP.3, 1-3163 (63112) ?ELS8: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P ZERO? P /?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-3152 (63234) ?ELS17: PRINT I-ASSUME **** FILE PS:VERBS.ZAP.3, 1-3172 (63287) ?ELS9: PRINT I-ASSUME *************** **** FILE PS:VERBS.ZAP.1, 1-3174 (63526) FSET? PRSO,VEHBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3194 (63578) FSET? PRSO,VEHBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3181 (63728) ?ELS5: PRINTR "That won't help your mission!" **** FILE PS:VERBS.ZAP.3, 1-3201 (63780) ?ELS4: PRINTR "That won't help your mission!" *************** **** FILE PS:VERBS.ZAP.1, 1-3192 (63891) ?CND1: ZERO? PRSI /?ELS8 **** FILE PS:VERBS.ZAP.3, 1-3212 (63943) ?CND1: ZERO? PRSI /?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-3195 (63962) ?ELS8: EQUAL? PRSO,PLAYER \?ELS12 **** FILE PS:VERBS.ZAP.3, 1-3215 (64014) ?ELS6: EQUAL? PRSO,PLAYER \?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-3197 (64066) ?ELS12: FSET? PRSO,PERSONBIT \?ELS16 FSET? PRSO,MUNGBIT \?ELS21 **** FILE PS:VERBS.ZAP.3, 1-3217 (64117) ?ELS8: FSET? PRSO,PERSONBIT \?ELS11 FSET? PRSO,MUNGBIT \?ELS15 *************** **** FILE PS:VERBS.ZAP.1, 1-3203 (64279) ?ELS21: CALL FACE-RED,STR?181 **** FILE PS:VERBS.ZAP.3, 1-3223 (64329) ?ELS15: CALL FACE-RED,STR?181 *************** **** FILE PS:VERBS.ZAP.1, 1-3205 (64320) ?ELS16: PRINTR "If you were a real spy, you could break boards with the edge of your hand!" **** FILE PS:VERBS.ZAP.3, 1-3225 (64370) ?ELS11: PRINTR "If you were a real spy, you could break boards with the edge of your hand!" *************** **** FILE PS:VERBS.ZAP.1, 1-3226 (64712) FSET? PRSO,PERSONBIT \?ELS5 IN? PRSO,GLOBAL-OBJECTS /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3246 (64762) FSET? PRSO,PERSONBIT \?ELS4 IN? PRSO,GLOBAL-OBJECTS /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3230 (64834) ?ELS5: CALL HAR-HAR **** FILE PS:VERBS.ZAP.3, 1-3250 (64884) ?ELS4: CALL HAR-HAR *************** **** FILE PS:VERBS.ZAP.1, 1-3240 (64932) FSET? PRSO,PERSONBIT \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-3260 (64982) FSET? PRSO,PERSONBIT \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-3243 (65000) ?ELS10: CALL PERFORM,V?LAMP-OFF,PRSO **** FILE PS:VERBS.ZAP.3, 1-3263 (65049) ?ELS7: CALL PERFORM,V?LAMP-OFF,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-3249 (65094) ZERO? PRSO /?ELS7 **** FILE PS:VERBS.ZAP.3, 1-3269 (65142) ZERO? PRSO /?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-3253 (65160) ?ELS7: CALL GROUND-DESC **** FILE PS:VERBS.ZAP.3, 1-3273 (65208) ?ELS6: CALL GROUND-DESC *************** **** FILE PS:VERBS.ZAP.1, 1-3262 (65323) ?CND1: ZERO? P-DOLLAR-FLAG /?ELS14 EQUAL? PRSO,INTNUM /?ELS14 ?ELS14: EQUAL? PRSO,DOLLARS,GLOBAL-MONEY \?ELS8 ZERO? PRSI \?ELS8 LESS? 0,POCKET-CHANGE \?ELS8 **** FILE PS:VERBS.ZAP.3, 1-3282 (65371) ?CND1: ZERO? P-DOLLAR-FLAG /?ELS8 EQUAL? PRSO,INTNUM /?THN7 ?ELS8: EQUAL? PRSO,DOLLARS,GLOBAL-MONEY \?ELS6 ?THN7: ZERO? PRSI \?ELS6 LESS? 0,POCKET-CHANGE \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-3269 (65524) ?ELS8: EQUAL? PRSO,FOOD-GLOBAL \?ELS16 EQUAL? HERE,GALLEY,CAFE \?ELS16 **** FILE PS:VERBS.ZAP.3, 1-3289 (65575) ?ELS6: EQUAL? PRSO,FOOD-GLOBAL \?ELS10 EQUAL? HERE,GALLEY,CAFE \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-3273 (65624) ?ELS16: EQUAL? PRSO,PICTURE-GLOBAL \?ELS20 **** FILE PS:VERBS.ZAP.3, 1-3293 (65675) ?ELS10: EQUAL? PRSO,PICTURE-GLOBAL \?ELS12 *************** **** FILE PS:VERBS.ZAP.1, 1-3276 (65699) ?ELS20: EQUAL? PRSO,TRAIN /FALSE IN? PRSO,GLOBAL-OBJECTS \?ELS24 **** FILE PS:VERBS.ZAP.3, 1-3296 (65750) ?ELS12: EQUAL? PRSO,TRAIN /FALSE IN? PRSO,GLOBAL-OBJECTS \?ELS14 *************** **** FILE PS:VERBS.ZAP.1, 1-3280 (65798) ?ELS24: EQUAL? L,WINNER \?ELS26 **** FILE PS:VERBS.ZAP.3, 1-3300 (65849) ?ELS14: EQUAL? L,WINNER \?ELS15 *************** **** FILE PS:VERBS.ZAP.1, 1-3282 (65863) ?ELS26: IN? WINNER,PRSO \?ELS30 **** FILE PS:VERBS.ZAP.3, 1-3302 (65914) ?ELS15: IN? WINNER,PRSO \?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-3284 (65929) ?ELS30: ZERO? L /?ELS34 FSET? L,CONTBIT \?ELS34 FSET? L,OPENBIT /?ELS34 **** FILE PS:VERBS.ZAP.3, 1-3304 (65980) ?ELS18: ZERO? L /?ELS21 FSET? L,CONTBIT \?ELS21 FSET? L,OPENBIT /?ELS21 *************** **** FILE PS:VERBS.ZAP.1, 1-3289 (66042) ?ELS34: ZERO? PRSI /?ELS38 EQUAL? PRSI,POCKET,L \?ELS44 **** FILE PS:VERBS.ZAP.3, 1-3309 (66093) ?ELS21: ZERO? PRSI /?ELS23 EQUAL? PRSI,POCKET,L \?ELS27 *************** **** FILE PS:VERBS.ZAP.1, 1-3293 (66135) ?ELS44: FSET? PRSI,SURFACEBIT /?ELS46 FSET? PRSI,OPENBIT /?ELS46 FSET? PRSI,PERSONBIT /?ELS46 **** FILE PS:VERBS.ZAP.3, 1-3313 (66186) ?ELS27: FSET? PRSI,SURFACEBIT /?ELS28 FSET? PRSI,OPENBIT /?ELS28 FSET? PRSI,PERSONBIT /?ELS28 *************** **** FILE PS:VERBS.ZAP.1, 1-3298 (66273) ?ELS46: EQUAL? PRSI,L /FALSE FSET? PRSI,PERSONBIT /?ELS55 **** FILE PS:VERBS.ZAP.3, 1-3318 (66324) ?ELS28: EQUAL? PRSI,L /FALSE FSET? PRSI,PERSONBIT /?ELS34 *************** **** FILE PS:VERBS.ZAP.1, 1-3302 (66398) ?ELS55: CALL HE-SHE-IT,PRSI,TRUE-VALUE **** FILE PS:VERBS.ZAP.3, 1-3322 (66449) ?ELS34: CALL HE-SHE-IT,PRSI,TRUE-VALUE *************** **** FILE PS:VERBS.ZAP.1, 1-3305 (66484) ZERO? STACK \?CND62 **** FILE PS:VERBS.ZAP.3, 1-3325 (66535) ZERO? STACK \?CND39 *************** **** FILE PS:VERBS.ZAP.1, 1-3307 (66520) ?CND62: PRINTI "n't have " **** FILE PS:VERBS.ZAP.3, 1-3327 (66571) ?CND39: PRINTI "n't have " *************** **** FILE PS:VERBS.ZAP.1, 1-3310 (66584) ?ELS38: CALL PRE-TAKE-WITH **** FILE PS:VERBS.ZAP.3, 1-3330 (66635) ?ELS23: CALL PRE-TAKE-WITH *************** **** FILE PS:VERBS.ZAP.1, 1-3316 (66674) EQUAL? PRSO,FOOD-GLOBAL \?ELS7 EQUAL? HERE,GALLEY,CAFE \?ELS7 **** FILE PS:VERBS.ZAP.3, 1-3336 (66725) EQUAL? PRSO,FOOD-GLOBAL \?ELS5 EQUAL? HERE,GALLEY,CAFE \?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-3320 (66766) ?ELS7: EQUAL? HERE,CAFE \?ELS11 IN? PRSO,ROOMS /?ELS11 FSET? PRSO,PERSONBIT /?ELS11 **** FILE PS:VERBS.ZAP.3, 1-3340 (66817) ?ELS5: EQUAL? HERE,CAFE \?ELS7 IN? PRSO,ROOMS /?ELS7 FSET? PRSO,PERSONBIT /?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-3324 (66875) GRTR? STACK,0 \?ELS11 **** FILE PS:VERBS.ZAP.3, 1-3344 (66923) GRTR? STACK,0 \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-3327 (66982) ?ELS11: CALL META-LOC,PRSO EQUAL? STACK,GLOBAL-OBJECTS \?ELS17 **** FILE PS:VERBS.ZAP.3, 1-3347 (67029) ?ELS7: CALL META-LOC,PRSO EQUAL? STACK,GLOBAL-OBJECTS \?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-3334 (67148) ?ELS17: IN? PRSO,WINNER \?ELS26 **** FILE PS:VERBS.ZAP.3, 1-3354 (67194) ?ELS11: IN? PRSO,WINNER \?ELS17 *************** **** FILE PS:VERBS.ZAP.1, 1-3337 (67221) ?ELS26: LOC PRSO FSET? STACK,CONTBIT \?ELS28 **** FILE PS:VERBS.ZAP.3, 1-3357 (67267) ?ELS17: LOC PRSO FSET? STACK,CONTBIT \?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-3340 (67280) FSET? STACK,OPENBIT /?ELS28 **** FILE PS:VERBS.ZAP.3, 1-3360 (67326) FSET? STACK,OPENBIT /?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-3343 (67344) ?ELS28: LOC WINNER **** FILE PS:VERBS.ZAP.3, 1-3363 (67390) ?ELS18: LOC WINNER *************** **** FILE PS:VERBS.ZAP.1, 1-3358 (67611) FSET? PRSO,WORNBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3378 (67657) FSET? PRSO,WORNBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3363 (67735) ?ELS5: PRINTR "You aren't wearing that!" **** FILE PS:VERBS.ZAP.3, 1-3383 (67781) ?ELS4: PRINTR "You aren't wearing that!" *************** **** FILE PS:VERBS.ZAP.1, 1-3381 (67996) EQUAL? STACK,WINNER \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3401 (68042) EQUAL? STACK,WINNER \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3385 (68105) ?ELS5: LOC PRSO EQUAL? STACK,POCKET \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-3405 (68151) ?ELS4: LOC PRSO EQUAL? STACK,POCKET \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-3392 (68267) ?ELS9: EQUAL? PRSO,GLOBAL-HERE,HERE,ROOMS \?ELS13 **** FILE PS:VERBS.ZAP.3, 1-3412 (68313) ?ELS7: EQUAL? PRSO,GLOBAL-HERE,HERE,ROOMS \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-3395 (68348) ?ELS13: LOC WINNER EQUAL? STACK,PRSO /?ELS15 **** FILE PS:VERBS.ZAP.3, 1-3415 (68394) ?ELS10: LOC WINNER EQUAL? STACK,PRSO /?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-3402 (68472) ?ELS15: CALL OWN-FEET **** FILE PS:VERBS.ZAP.3, 1-3422 (68518) ?ELS11: CALL OWN-FEET *************** **** FILE PS:VERBS.ZAP.1, 1-3416 (68678) EQUAL? PRSO,PLAYER \?ELS5 EQUAL? WINNER,PLAYER /?ELS10 **** FILE PS:VERBS.ZAP.3, 1-3436 (68724) EQUAL? PRSO,PLAYER \?ELS4 EQUAL? WINNER,PLAYER /?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-3423 (68829) ?ELS10: ZERO? QCONTEXT /?ELS12 **** FILE PS:VERBS.ZAP.3, 1-3443 (68874) ?ELS8: ZERO? QCONTEXT /?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-3425 (68889) ZERO? P-CONT /?ELS18 **** FILE PS:VERBS.ZAP.3, 1-3445 (68932) ZERO? P-CONT /?ELS13 *************** **** FILE PS:VERBS.ZAP.1, 1-3428 (68956) RETURN WINNER ?ELS18: PRINTR "Okay, you're not talking to anyone else." ?ELS12: CALL WONT-HELP-TO-TALK-TO,PLAYER **** FILE PS:VERBS.ZAP.3, 1-3448 (68999) RTRUE ?ELS13: PRINTR "Okay, you're not talking to anyone else." ?ELS9: CALL WONT-HELP-TO-TALK-TO,PLAYER *************** **** FILE PS:VERBS.ZAP.1, 1-3434 (69140) ?ELS5: FSET? PRSO,PERSONBIT \?ELS29 **** FILE PS:VERBS.ZAP.3, 1-3454 (69175) ?ELS4: FSET? PRSO,PERSONBIT \?ELS18 *************** **** FILE PS:VERBS.ZAP.1, 1-3438 (69245) ZERO? P-CONT /?ELS34 **** FILE PS:VERBS.ZAP.3, 1-3458 (69280) ZERO? P-CONT /?ELS22 *************** **** FILE PS:VERBS.ZAP.1, 1-3442 (69339) RETURN WINNER ?ELS34: CALL START-SENTENCE,PRSO **** FILE PS:VERBS.ZAP.3, 1-3462 (69374) RTRUE ?ELS22: CALL START-SENTENCE,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-3445 (69415) ?ELS29: CALL YOU-CANT,STR?185 **** FILE PS:VERBS.ZAP.3, 1-3465 (69443) ?ELS18: CALL YOU-CANT,STR?185 *************** **** FILE PS:VERBS.ZAP.1, 1-3463 (69691) ZERO? STACK /?ELS5 EQUAL? PRSO,PLAYER \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3483 (69719) ZERO? STACK /?ELS4 EQUAL? PRSO,PLAYER \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3467 (69790) ?ELS5: EQUAL? PRSO,PLAYER \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-3487 (69818) ?ELS4: EQUAL? PRSO,PLAYER \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-3469 (69866) ZERO? P /?ELS9 FSET? P,INVISIBLE /?ELS9 **** FILE PS:VERBS.ZAP.3, 1-3489 (69894) ZERO? P /?ELS6 FSET? P,INVISIBLE /?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-3478 (70024) ?ELS9: CALL PRE-ASK-ABOUT **** FILE PS:VERBS.ZAP.3, 1-3498 (70052) ?ELS6: CALL PRE-ASK-ABOUT *************** **** FILE PS:VERBS.ZAP.1, 1-3484 (70108) ZERO? STACK /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3504 (70136) ZERO? STACK /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3489 (70179) ?ELS5: EQUAL? PRSO,PLAYER \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-3509 (70207) ?ELS4: EQUAL? PRSO,PLAYER \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-3492 (70244) ?ELS9: CALL PERFORM,V?ASK-ABOUT,PRSO,PRSI **** FILE PS:VERBS.ZAP.3, 1-3512 (70272) ?ELS7: CALL PERFORM,V?ASK-ABOUT,PRSO,PRSI *************** **** FILE PS:VERBS.ZAP.1, 1-3497 (70326) EQUAL? WINNER,PLAYER /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3517 (70354) EQUAL? WINNER,PLAYER /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3500 (70405) ?ELS5: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS7 **** FILE PS:VERBS.ZAP.3, 1-3520 (70433) ?ELS4: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-3504 (70504) ?ELS7: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P **** FILE PS:VERBS.ZAP.3, 1-3524 (70532) ?ELS5: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P *************** **** FILE PS:VERBS.ZAP.1, 1-3522 (70777) ZERO? PRSO /?ELS9 FSET? PRSO,PERSONBIT /?THN6 ?ELS9: SET 'P,QCONTEXT ZERO? P /?ELS11 **** FILE PS:VERBS.ZAP.3, 1-3542 (70805) ZERO? PRSO /?ELS5 FSET? PRSO,PERSONBIT /?THN4 ?ELS5: SET 'P,QCONTEXT *************** **** FILE PS:VERBS.ZAP.1, 1-3527 (70883) ZERO? STACK \?THN6 ?ELS11: CALL QCONTEXT-GOOD? ZERO? STACK \?THN6 **** FILE PS:VERBS.ZAP.3, 1-3546 (70893) ZERO? STACK \?THN4 CALL QCONTEXT-GOOD? ZERO? STACK \?THN4 *************** **** FILE PS:VERBS.ZAP.1, 1-3531 (70996) ZERO? P /?ELS5 ?THN6: CALL START-SENTENCE,P **** FILE PS:VERBS.ZAP.3, 1-3550 (70999) ZERO? P /?ELS7 ?THN4: CALL START-SENTENCE,P *************** **** FILE PS:VERBS.ZAP.1, 1-3534 (71081) ?ELS5: PRINTR "You're more than welcome." **** FILE PS:VERBS.ZAP.3, 1-3553 (71084) ?ELS7: PRINTR "You're more than welcome." *************** **** FILE PS:VERBS.ZAP.1, 1-3546 (71255) EQUAL? PRSI,PLAYER \?ELS6 **** FILE PS:VERBS.ZAP.3, 1-3565 (71258) EQUAL? PRSI,PLAYER \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3548 (71303) JUMP ?CND4 ?ELS6: CALL START-SENTENCE,PRSI FSET? PRSI,PERSONBIT \?ELS17 **** FILE PS:VERBS.ZAP.3, 1-3567 (71306) JUMP ?CND3 ?ELS4: CALL START-SENTENCE,PRSI FSET? PRSI,PERSONBIT \?ELS12 *************** **** FILE PS:VERBS.ZAP.1, 1-3552 (71395) JUMP ?CND13 ?ELS17: PUSH STR?187 ?CND13: PRINT STACK ?CND4: PRINTI " as" **** FILE PS:VERBS.ZAP.3, 1-3571 (71398) JUMP ?CND9 ?ELS12: PUSH STR?187 ?CND9: PRINT STACK ?CND3: PRINTI " as" *************** **** FILE PS:VERBS.ZAP.1, 1-3561 (71543) FSET? PRSO,PERSONBIT /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3580 (71544) FSET? PRSO,PERSONBIT /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3563 (71622) ?ELS5: CALL V-THROW **** FILE PS:VERBS.ZAP.3, 1-3582 (71623) ?ELS4: CALL V-THROW *************** **** FILE PS:VERBS.ZAP.1, 1-3579 (71855) FSET? PRSO,PERSONBIT \?THN6 **** FILE PS:VERBS.ZAP.3, 1-3598 (71856) FSET? PRSO,PERSONBIT \?THN4 *************** **** FILE PS:VERBS.ZAP.1, 1-3581 (71913) ?THN6: PRINTR "That won't do any good." **** FILE PS:VERBS.ZAP.3, 1-3600 (71914) ?THN4: PRINTR "That won't do any good." *************** **** FILE PS:VERBS.ZAP.1, 1-3603 (72250) LESS? HR,10 \?CND8 **** FILE PS:VERBS.ZAP.3, 1-3622 (72251) LESS? HR,10 \?CND7 *************** **** FILE PS:VERBS.ZAP.1, 1-3605 (72284) ?CND8: PRINTN HR **** FILE PS:VERBS.ZAP.3, 1-3624 (72285) ?CND7: PRINTN HR *************** **** FILE PS:VERBS.ZAP.1, 1-3610 (72331) FSET? PRSO,DOORBIT \?ELS5 FSET? PRSO,OPENBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3629 (72332) FSET? PRSO,DOORBIT \?ELS4 FSET? PRSO,OPENBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3614 (72424) ?ELS5: PRINTR "What do you want that to do?" **** FILE PS:VERBS.ZAP.3, 1-3633 (72425) ?ELS4: PRINTR "What do you want that to do?" *************** **** FILE PS:VERBS.ZAP.1, 1-3618 (72497) ZERO? PLAYER-NOT-FACING \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3637 (72498) ZERO? PLAYER-NOT-FACING \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3620 (72581) ?ELS5: SET 'P-WALK-DIR,PLAYER-NOT-FACING **** FILE PS:VERBS.ZAP.3, 1-3639 (72582) ?ELS4: SET 'P-WALK-DIR,PLAYER-NOT-FACING *************** **** FILE PS:VERBS.ZAP.1, 1-3626 (72696) FSET? PRSO,PERSONBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3645 (72697) FSET? PRSO,PERSONBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3628 (72777) ?ELS5: CALL YOU-CANT,STR?188 **** FILE PS:VERBS.ZAP.3, 1-3647 (72778) ?ELS4: CALL YOU-CANT,STR?188 *************** **** FILE PS:VERBS.ZAP.1, 1-3633 (72840) FSET? PRSO,ONBIT \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3652 (72841) FSET? PRSO,ONBIT \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3636 (72904) ?ELS5: FSET? PRSO,PERSONBIT \?ELS7 **** FILE PS:VERBS.ZAP.3, 1-3655 (72905) ?ELS4: FSET? PRSO,PERSONBIT \?ELS5 *************** **** FILE PS:VERBS.ZAP.1, 1-3639 (72965) ?ELS7: CALL YOU-CANT,STR?189 **** FILE PS:VERBS.ZAP.3, 1-3658 (72966) ?ELS5: CALL YOU-CANT,STR?189 *************** **** FILE PS:VERBS.ZAP.1, 1-3646 (73089) ZERO? STACK \?ELS12 **** FILE PS:VERBS.ZAP.3, 1-3665 (73090) ZERO? STACK \?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-3648 (73144) ZERO? STACK \?ELS12 **** FILE PS:VERBS.ZAP.3, 1-3667 (73144) ZERO? STACK \?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-3652 (73236) ?ELS12: FSET? PRSO,OPENBIT \?ELS18 **** FILE PS:VERBS.ZAP.3, 1-3671 (73235) ?ELS9: FSET? PRSO,OPENBIT \?ELS13 *************** **** FILE PS:VERBS.ZAP.1, 1-3655 (73321) ?ELS18: FSET? PRSO,LOCKED /?ELS20 **** FILE PS:VERBS.ZAP.3, 1-3674 (73319) ?ELS13: FSET? PRSO,LOCKED /?ELS14 *************** **** FILE PS:VERBS.ZAP.1, 1-3658 (73394) ?ELS20: FCLEAR PRSO,LOCKED **** FILE PS:VERBS.ZAP.3, 1-3677 (73392) ?ELS14: FCLEAR PRSO,LOCKED *************** **** FILE PS:VERBS.ZAP.1, 1-3691 (73932) FSET? WHO,PERSONBIT \?ELS7 **** FILE PS:VERBS.ZAP.3, 1-3710 (73930) FSET? WHO,PERSONBIT \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-3694 (73989) ?ELS7: PUSH STR?191 **** FILE PS:VERBS.ZAP.3, 1-3713 (73987) ?ELS6: PUSH STR?191 *************** **** FILE PS:VERBS.ZAP.1, 1-3707 (74257) ZERO? INT \?CND6 **** FILE PS:VERBS.ZAP.3, 1-3726 (74255) ZERO? INT \?CND5 *************** **** FILE PS:VERBS.ZAP.1, 1-3710 (74310) ?CND6: ?PRG11: DLESS? 'NUM,0 \?ELS15 JUMP ?REP12 ?ELS15: CALL CLOCKER >VAL ZERO? VAL /?ELS17 EQUAL? VAL,M-FATAL /?THN21 EQUAL? HR,HERE /?ELS20 ?THN21: SET 'RESULT,M-FATAL JUMP ?REP12 ?ELS20: ZERO? WHO /?ELS24 **** FILE PS:VERBS.ZAP.3, 1-3729 (74308) ?CND5: ?PRG9: DLESS? 'NUM,0 \?ELS12 JUMP ?REP10 ?ELS12: CALL CLOCKER >VAL ZERO? VAL /?ELS13 EQUAL? VAL,M-FATAL /?THN15 EQUAL? HR,HERE /?ELS16 ?THN15: SET 'RESULT,M-FATAL JUMP ?REP10 ?ELS16: ZERO? WHO /?ELS17 *************** **** FILE PS:VERBS.ZAP.1, 1-3721 (74555) EQUAL? HERE,STACK /?THN27 EQUAL? SCENERY-OBJ,WHO /?THN27 EQUAL? WHO,TRAIN \?ELS24 ZERO? IN-STATION /?ELS24 ?THN27: CALL HAS-ARRIVED,WHO JUMP ?REP12 ?ELS24: ZERO? NUM \?ELS32 JUMP ?REP12 ?ELS32: INC 'WHO-WAIT ZERO? INT /?ELS37 **** FILE PS:VERBS.ZAP.3, 1-3740 (74552) EQUAL? HERE,STACK /?THN18 EQUAL? SCENERY-OBJ,WHO /?THN18 EQUAL? WHO,TRAIN \?ELS17 ZERO? IN-STATION /?ELS17 ?THN18: CALL HAS-ARRIVED,WHO JUMP ?REP10 ?ELS17: ZERO? NUM \?ELS21 JUMP ?REP10 ?ELS21: INC 'WHO-WAIT ZERO? INT /?ELS23 *************** **** FILE PS:VERBS.ZAP.1, 1-3732 (74854) JUMP ?CND35 ?ELS37: PRINTI "Do you want to keep waiting?" ?CND35: CALL YES? ZERO? STACK \?ELS47 JUMP ?REP12 ?ELS47: CALL STATUS-LINE JUMP ?PRG11 ?ELS17: ZERO? WHO /?ELS51 IN? WHO,HERE \?ELS51 **** FILE PS:VERBS.ZAP.3, 1-3751 (74851) JUMP ?CND22 ?ELS23: PRINTI "Do you want to keep waiting?" ?CND22: CALL YES? ZERO? STACK \?ELS29 JUMP ?REP10 ?ELS29: CALL STATUS-LINE JUMP ?PRG9 ?ELS13: ZERO? WHO /?ELS30 IN? WHO,HERE \?ELS30 *************** **** FILE PS:VERBS.ZAP.1, 1-3742 (75083) JUMP ?REP12 ?ELS51: ZERO? WHO /?ELS55 IGRTR? 'WHO-WAIT,30 \?ELS55 **** FILE PS:VERBS.ZAP.3, 1-3761 (75079) JUMP ?REP10 ?ELS30: ZERO? WHO /?ELS32 IGRTR? 'WHO-WAIT,30 \?ELS32 *************** **** FILE PS:VERBS.ZAP.1, 1-3748 (75255) ZERO? STACK \?CND60 JUMP ?REP12 ?CND60: SET 'WHO-WAIT,0 **** FILE PS:VERBS.ZAP.3, 1-3767 (75251) ZERO? STACK \?CND36 JUMP ?REP10 ?CND36: SET 'WHO-WAIT,0 *************** **** FILE PS:VERBS.ZAP.1, 1-3752 (75335) JUMP ?PRG11 ?ELS55: CALL STATUS-LINE JUMP ?PRG11 ?REP12: SET 'CLOCK-WAIT,TRUE-VALUE ZERO? INT \?CND65 **** FILE PS:VERBS.ZAP.3, 1-3771 (75331) JUMP ?PRG9 ?ELS32: CALL STATUS-LINE JUMP ?PRG9 ?REP10: SET 'CLOCK-WAIT,TRUE-VALUE ZERO? INT \?CND38 *************** **** FILE PS:VERBS.ZAP.1, 1-3759 (75475) ?CND65: RETURN RESULT **** FILE PS:VERBS.ZAP.3, 1-3778 (75469) ?CND38: RETURN RESULT *************** **** FILE PS:VERBS.ZAP.1, 1-3767 (75622) EQUAL? M-FATAL,STACK \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3786 (75616) EQUAL? M-FATAL,STACK \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3769 (75663) ?ELS5: SUB MOVES,TIM **** FILE PS:VERBS.ZAP.3, 1-3788 (75657) ?ELS4: SUB MOVES,TIM *************** **** FILE PS:VERBS.ZAP.1, 1-3775 (75747) EQUAL? -1,P-NUMBER /?ELS5 EQUAL? PRSO,INTNUM,TURN,ROOMS \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-3794 (75741) EQUAL? -1,P-NUMBER /?ELS4 EQUAL? PRSO,INTNUM,TURN,ROOMS \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-3779 (75847) ?ELS5: EQUAL? PRSO,GLOBAL-HERE,TURN,ROOMS \?ELS14 **** FILE PS:VERBS.ZAP.3, 1-3798 (75841) ?ELS4: EQUAL? PRSO,GLOBAL-HERE,TURN,ROOMS \?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-3782 (75921) ?ELS14: EQUAL? PRSO,PLAYER \?ELS16 **** FILE PS:VERBS.ZAP.3, 1-3801 (75914) ?ELS9: EQUAL? PRSO,PLAYER \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-3785 (75997) ?ELS16: GETP PRSO,P?CHARACTER >WHO ZERO? WHO /?ELS18 **** FILE PS:VERBS.ZAP.3, 1-3804 (75989) ?ELS10: GETP PRSO,P?CHARACTER >WHO ZERO? WHO /?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-3789 (76104) EQUAL? STACK,HERE \?ELS23 **** FILE PS:VERBS.ZAP.3, 1-3808 (76096) EQUAL? STACK,HERE \?ELS15 *************** **** FILE PS:VERBS.ZAP.1, 1-3792 (76169) ?ELS23: CALL V-WAIT,10000,WHO **** FILE PS:VERBS.ZAP.3, 1-3811 (76161) ?ELS15: CALL V-WAIT,10000,WHO *************** **** FILE PS:VERBS.ZAP.1, 1-3794 (76210) ?ELS18: CALL ZMEMZ,PRSO,TRAIN-TABLE ZERO? STACK /?ELS27 EQUAL? PRSO,SCENERY-OBJ \?ELS32 **** FILE PS:VERBS.ZAP.3, 1-3813 (76202) ?ELS11: CALL ZMEMZ,PRSO,TRAIN-TABLE ZERO? STACK /?ELS16 EQUAL? PRSO,SCENERY-OBJ \?ELS20 *************** **** FILE PS:VERBS.ZAP.1, 1-3799 (76341) ?ELS32: CALL V-WAIT,10000,PRSO **** FILE PS:VERBS.ZAP.3, 1-3818 (76333) ?ELS20: CALL V-WAIT,10000,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-3801 (76383) ?ELS27: EQUAL? PRSO,TRAIN \?ELS36 ZERO? ON-TRAIN /?ELS41 **** FILE PS:VERBS.ZAP.3, 1-3820 (76375) ?ELS16: EQUAL? PRSO,TRAIN \?ELS21 ZERO? ON-TRAIN /?ELS25 *************** **** FILE PS:VERBS.ZAP.1, 1-3805 (76468) ?ELS41: ZERO? IN-STATION /?ELS44 **** FILE PS:VERBS.ZAP.3, 1-3824 (76460) ?ELS25: ZERO? IN-STATION /?ELS26 *************** **** FILE PS:VERBS.ZAP.1, 1-3808 (76540) ?ELS44: CALL V-WAIT,10000,PRSO **** FILE PS:VERBS.ZAP.3, 1-3827 (76532) ?ELS26: CALL V-WAIT,10000,PRSO *************** **** FILE PS:VERBS.ZAP.1, 1-3810 (76582) ?ELS36: PRINTR "Not a good idea. You might wait forever." **** FILE PS:VERBS.ZAP.3, 1-3829 (76574) ?ELS21: PRINTR "Not a good idea. You might wait forever." *************** **** FILE PS:VERBS.ZAP.1, 1-3814 (76667) EQUAL? -1,P-NUMBER /?ELS5 EQUAL? PRSO,TURN,INTNUM \?ELS5 GRTR? P-NUMBER,MOVES \?ELS12 **** FILE PS:VERBS.ZAP.3, 1-3833 (76659) EQUAL? -1,P-NUMBER /?ELS4 EQUAL? PRSO,TURN,INTNUM \?ELS4 GRTR? P-NUMBER,MOVES \?ELS9 *************** **** FILE PS:VERBS.ZAP.1, 1-3820 (76810) ?ELS12: PRINTR "It's already past that time." ?ELS5: CALL YOU-CANT,STR?192 **** FILE PS:VERBS.ZAP.3, 1-3839 (76801) ?ELS9: PRINTR "It's already past that time." ?ELS4: CALL YOU-CANT,STR?192 *************** **** FILE PS:VERBS.ZAP.1, 1-3828 (76964) ?CND1: FSET? PRSO,PERSONBIT \?ELS8 **** FILE PS:VERBS.ZAP.3, 1-3847 (76954) ?CND1: FSET? PRSO,PERSONBIT \?ELS6 *************** **** FILE PS:VERBS.ZAP.1, 1-3831 (77087) ?ELS8: CALL TOO-BAD-BUT,PRSO,STR?193 **** FILE PS:VERBS.ZAP.3, 1-3850 (77077) ?ELS6: CALL TOO-BAD-BUT,PRSO,STR?193 *************** **** FILE PS:VERBS.ZAP.1, 1-3851 (77491) ZERO? PT /?ELS10 **** FILE PS:VERBS.ZAP.3, 1-3870 (77481) ZERO? PT /?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-3853 (77527) EQUAL? PTS,UEXIT \?ELS15 GET PT,REXIT >RM **** FILE PS:VERBS.ZAP.3, 1-3872 (77516) EQUAL? PTS,UEXIT \?ELS12 CALL GET-REXIT-ROOM,PT >RM *************** **** FILE PS:VERBS.ZAP.1, 1-3859 (77629) ?ELS15: EQUAL? PTS,NEXIT \?ELS20 **** FILE PS:VERBS.ZAP.3, 1-3878 (77628) ?ELS12: EQUAL? PTS,NEXIT \?ELS15 *************** **** FILE PS:VERBS.ZAP.1, 1-3864 (77714) ?ELS20: EQUAL? PTS,FEXIT \?ELS26 **** FILE PS:VERBS.ZAP.3, 1-3883 (77713) ?ELS15: EQUAL? PTS,FEXIT \?ELS20 *************** **** FILE PS:VERBS.ZAP.1, 1-3867 (77783) ZERO? RM /?ELS31 **** FILE PS:VERBS.ZAP.3, 1-3886 (77782) ZERO? RM /?ELS24 *************** **** FILE PS:VERBS.ZAP.1, 1-3872 (77858) ?ELS31: RETURN 2 ?ELS26: EQUAL? PTS,CEXIT \?ELS40 **** FILE PS:VERBS.ZAP.3, 1-3891 (77857) ?ELS24: RETURN 2 ?ELS20: EQUAL? PTS,CEXIT \?ELS29 *************** **** FILE PS:VERBS.ZAP.1, 1-3876 (77944) ZERO? STACK /?ELS45 **** FILE PS:VERBS.ZAP.3, 1-3895 (77943) ZERO? STACK /?ELS33 *************** **** FILE PS:VERBS.ZAP.1, 1-3882 (78040) ?ELS45: GET PT,CEXITSTR >STR ZERO? STR /?ELS50 **** FILE PS:VERBS.ZAP.3, 1-3901 (78039) ?ELS33: GET PT,CEXITSTR >STR ZERO? STR /?ELS36 *************** **** FILE PS:VERBS.ZAP.1, 1-3887 (78121) ?ELS50: CALL YOU-CANT,STR?129 **** FILE PS:VERBS.ZAP.3, 1-3906 (78120) ?ELS36: CALL YOU-CANT,STR?129 *************** **** FILE PS:VERBS.ZAP.1, 1-3889 (78163) ?ELS40: EQUAL? PTS,DEXIT \FALSE **** FILE PS:VERBS.ZAP.3, 1-3908 (78162) ?ELS29: EQUAL? PTS,DEXIT \FALSE *************** **** FILE PS:VERBS.ZAP.1, 1-3891 (78222) ZERO? STACK /?ELS65 **** FILE PS:VERBS.ZAP.3, 1-3910 (78221) ZERO? STACK /?ELS47 *************** **** FILE PS:VERBS.ZAP.1, 1-3897 (78318) ?ELS65: RETURN 2 ?ELS10: EQUAL? PRSO,P?IN,P?OUT \?ELS74 **** FILE PS:VERBS.ZAP.3, 1-3916 (78317) ?ELS47: RETURN 2 ?ELS8: EQUAL? PRSO,P?IN,P?OUT \?ELS52 *************** **** FILE PS:VERBS.ZAP.1, 1-3901 (78407) ?ELS74: CALL YOU-CANT,STR?129 **** FILE PS:VERBS.ZAP.3, 1-3920 (78405) ?ELS52: CALL YOU-CANT,STR?129 *************** **** FILE PS:VERBS.ZAP.1, 1-3906 (78489) GET PT,DEXITOBJ >OBJ GET PT,REXIT >STR ZERO? CUSTOMS-SWEEP /?ELS3 FSET? PASSPORT,LOCKED \?ELS3 ZERO? ON-TRAIN /?ELS3 **** FILE PS:VERBS.ZAP.3, 1-3925 (78487) CALL GET-DOOR-OBJ,PT >OBJ CALL GET-REXIT-ROOM,PT >STR ZERO? CUSTOMS-SWEEP /?ELS2 FSET? PASSPORT,LOCKED \?ELS2 ZERO? ON-TRAIN /?ELS2 *************** **** FILE PS:VERBS.ZAP.1, 1-3912 (78650) ZERO? STACK \?ELS3 **** FILE PS:VERBS.ZAP.3, 1-3931 (78663) ZERO? STACK \?ELS2 *************** **** FILE PS:VERBS.ZAP.1, 1-3914 (78705) ZERO? STACK \?ELS3 **** FILE PS:VERBS.ZAP.3, 1-3933 (78718) ZERO? STACK \?ELS2 *************** **** FILE PS:VERBS.ZAP.1, 1-3918 (78803) ?ELS3: FSET? OBJ,OPENBIT /TRUE ?CND1: EQUAL? STR,GAS-CAR-RM \?ELS12 EQUAL? CAR-HERE,GAS-CAR \?ELS15 **** FILE PS:VERBS.ZAP.3, 1-3937 (78816) ?ELS2: FSET? OBJ,OPENBIT /TRUE ?CND1: EQUAL? STR,GAS-CAR-RM \?ELS8 EQUAL? CAR-HERE,GAS-CAR \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-3922 (78925) JUMP ?CND10 ?ELS15: FCLEAR OBJ,LOCKED JUMP ?CND10 ?ELS12: CALL ZMEMQ,STR,CAR-ROOMS-REST ZERO? STACK /?ELS19 **** FILE PS:VERBS.ZAP.3, 1-3941 (78937) JUMP ?CND7 ?ELS10: FCLEAR OBJ,LOCKED JUMP ?CND7 ?ELS8: CALL ZMEMQ,STR,CAR-ROOMS-REST ZERO? STACK /?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-3928 (79071) ZERO? STACK /?ELS19 **** FILE PS:VERBS.ZAP.3, 1-3947 (79080) ZERO? STACK /?ELS11 *************** **** FILE PS:VERBS.ZAP.1, 1-3930 (79111) JUMP ?CND10 ?ELS19: FCLEAR OBJ,LOCKED ?CND10: FSET? OBJ,LOCKED /?ELS28 **** FILE PS:VERBS.ZAP.3, 1-3949 (79120) JUMP ?CND7 ?ELS11: FCLEAR OBJ,LOCKED ?CND7: FSET? OBJ,LOCKED /?ELS16 *************** **** FILE PS:VERBS.ZAP.1, 1-3936 (79258) ?ELS28: LOC WINNER **** FILE PS:VERBS.ZAP.3, 1-3955 (79265) ?ELS16: LOC WINNER *************** **** FILE PS:VERBS.ZAP.1, 1-3938 (79312) ZERO? STACK \?THN33 **** FILE PS:VERBS.ZAP.3, 1-3957 (79319) ZERO? STACK \?THN19 *************** **** FILE PS:VERBS.ZAP.1, 1-3941 (79382) ZERO? STACK /?ELS32 ?THN33: FCLEAR OBJ,LOCKED **** FILE PS:VERBS.ZAP.3, 1-3960 (79389) ZERO? STACK /?ELS20 ?THN19: FCLEAR OBJ,LOCKED *************** **** FILE PS:VERBS.ZAP.1, 1-3946 (79514) ?ELS32: GET PT,DEXITSTR >STR ZERO? STR /?ELS38 **** FILE PS:VERBS.ZAP.3, 1-3965 (79521) ?ELS20: GET PT,DEXITSTR >STR ZERO? STR /?ELS23 *************** **** FILE PS:VERBS.ZAP.1, 1-3951 (79594) ?ELS38: CALL TOO-BAD-BUT,OBJ,STR?135 **** FILE PS:VERBS.ZAP.3, 1-3970 (79601) ?ELS23: CALL TOO-BAD-BUT,OBJ,STR?135 *************** **** FILE PS:VERBS.ZAP.1, 1-3981 (80155) EQUAL? HERE,STACK \?ELS10 EQUAL? L,HERE /?THN13 EQUAL? L,LOCAL-GLOBALS \?ELS10 **** FILE PS:VERBS.ZAP.3, 1-4000 (80162) EQUAL? HERE,STACK \?ELS7 EQUAL? L,HERE /?THN8 EQUAL? L,LOCAL-GLOBALS \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-3985 (80265) ZERO? STACK /?ELS10 ?THN13: CALL HE-SHE-IT,WINNER,TRUE-VALUE EQUAL? WINNER,PLAYER \?ELS19 **** FILE PS:VERBS.ZAP.3, 1-4004 (80269) ZERO? STACK /?ELS7 ?THN8: CALL HE-SHE-IT,WINNER,TRUE-VALUE EQUAL? WINNER,PLAYER \?ELS12 *************** **** FILE PS:VERBS.ZAP.1, 1-3989 (80375) JUMP ?CND17 ?ELS19: PRINTI " does" ?CND17: PRINTR "n't need to walk around within a place." ?ELS10: EQUAL? L,LOCAL-GLOBALS \?ELS29 EQUAL? PRSO,SCENERY-OBJ \?ELS34 **** FILE PS:VERBS.ZAP.3, 1-4008 (80377) JUMP ?CND11 ?ELS12: PRINTI " does" ?CND11: PRINTR "n't need to walk around within a place." ?ELS7: EQUAL? L,LOCAL-GLOBALS \?ELS19 EQUAL? PRSO,SCENERY-OBJ \?ELS23 *************** **** FILE PS:VERBS.ZAP.1, 1-3996 (80587) ?ELS34: CALL MORE-SPECIFIC **** FILE PS:VERBS.ZAP.3, 1-4015 (80588) ?ELS23: CALL MORE-SPECIFIC *************** **** FILE PS:VERBS.ZAP.1, 1-3998 (80625) ?ELS29: EQUAL? PRSO,INTDIR \?ELS38 **** FILE PS:VERBS.ZAP.3, 1-4017 (80626) ?ELS19: EQUAL? PRSO,INTDIR \?ELS24 *************** **** FILE PS:VERBS.ZAP.1, 1-4001 (80692) ?ELS38: CALL ZMEMQ,O,STATIONS ZERO? STACK /?ELS40 EQUAL? O,STATION-NAME \?ELS45 **** FILE PS:VERBS.ZAP.3, 1-4020 (80693) ?ELS24: CALL ZMEMQ,O,STATIONS ZERO? STACK /?ELS25 EQUAL? O,STATION-NAME \?ELS29 *************** **** FILE PS:VERBS.ZAP.1, 1-4007 (80831) ?ELS45: CALL ZMEMQ,O,TRAIN-TABLE ZERO? STACK /?ELS49 **** FILE PS:VERBS.ZAP.3, 1-4026 (80832) ?ELS29: CALL ZMEMQ,O,TRAIN-TABLE ZERO? STACK /?ELS32 *************** **** FILE PS:VERBS.ZAP.1, 1-4010 (80947) ?ELS49: PRINTI "You'll have to take a " ZERO? IN-STATION \?CND56 **** FILE PS:VERBS.ZAP.3, 1-4029 (80948) ?ELS32: PRINTI "You'll have to take a " ZERO? IN-STATION \?CND37 *************** **** FILE PS:VERBS.ZAP.1, 1-4013 (81037) ?CND56: PRINTR "train." ?ELS40: FSET? O,PERSONBIT \?ELS68 FSET? O,NDESCBIT /?THN65 ?ELS68: IN? L,ROOMS /?ELS64 FSET? O,TOUCHBIT /?ELS64 ?THN65: CALL WHO-KNOWS?,O **** FILE PS:VERBS.ZAP.3, 1-4032 (81038) ?CND37: PRINTR "train." ?ELS25: FSET? O,PERSONBIT \?ELS44 FSET? O,NDESCBIT /?THN43 ?ELS44: IN? L,ROOMS /?ELS45 FSET? O,TOUCHBIT /?ELS45 ?THN43: CALL WHO-KNOWS?,O *************** **** FILE PS:VERBS.ZAP.1, 1-4020 (81216) ?ELS64: EQUAL? L,ROOF \?ELS72 EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \?ELS72 **** FILE PS:VERBS.ZAP.3, 1-4039 (81217) ?ELS45: EQUAL? L,ROOF \?ELS47 EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \?ELS47 *************** **** FILE PS:VERBS.ZAP.1, 1-4024 (81334) ?ELS72: CALL FAR-AWAY?,L ZERO? STACK /?ELS76 **** FILE PS:VERBS.ZAP.3, 1-4043 (81335) ?ELS47: CALL FAR-AWAY?,L ZERO? STACK /?ELS49 *************** **** FILE PS:VERBS.ZAP.1, 1-4030 (81497) EQUAL? L,GLOBAL-OBJECTS /?CND79 **** FILE PS:VERBS.ZAP.3, 1-4049 (81498) EQUAL? L,GLOBAL-OBJECTS /?CND52 *************** **** FILE PS:VERBS.ZAP.1, 1-4032 (81566) ?CND79: PRINTR ".)" ?ELS76: CALL ESTABLISH-GOAL,PLAYER,L **** FILE PS:VERBS.ZAP.3, 1-4051 (81567) ?CND52: PRINTR ".)" ?ELS49: CALL ESTABLISH-GOAL,PLAYER,L *************** **** FILE PS:VERBS.ZAP.1, 1-4036 (81677) ?PRG88: CALL FOLLOW-GOAL,PLAYER ZERO? STACK /?PRG88 **** FILE PS:VERBS.ZAP.3, 1-4055 (81678) ?PRG58: CALL FOLLOW-GOAL,PLAYER ZERO? STACK /?PRG58 *************** **** FILE PS:VERBS.ZAP.1, 1-4059 (82074) FSET? PRSO,WEARBIT /?ELS5 **** FILE PS:VERBS.ZAP.3, 1-4078 (82075) FSET? PRSO,WEARBIT /?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-4063 (82160) ?ELS5: FSET? PRSO,WORNBIT \?ELS9 **** FILE PS:VERBS.ZAP.3, 1-4082 (82161) ?ELS4: FSET? PRSO,WORNBIT \?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-4067 (82260) ?ELS9: MOVE PRSO,PLAYER **** FILE PS:VERBS.ZAP.3, 1-4086 (82261) ?ELS7: MOVE PRSO,PLAYER *************** **** FILE PS:VERBS.ZAP.1, 1-4075 (82390) EQUAL? PRSO,PLAYER \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-4094 (82391) EQUAL? PRSO,PLAYER \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-4077 (82460) ?ELS5: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS13 **** FILE PS:VERBS.ZAP.3, 1-4096 (82461) ?ELS4: CALL QCONTEXT-GOOD? ZERO? STACK /?ELS8 *************** **** FILE PS:VERBS.ZAP.1, 1-4080 (82528) FSET? P,PERSONBIT /?THN10 ?ELS13: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P **** FILE PS:VERBS.ZAP.3, 1-4099 (82528) PUSH 1 FSET? STACK,PERSONBIT /?THN7 ?ELS8: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P *************** **** FILE PS:VERBS.ZAP.1, 1-4083 (82622) ?THN10: PRINT I-ASSUME **** FILE PS:VERBS.ZAP.3, 1-4103 (82633) ?THN7: PRINT I-ASSUME *************** **** FILE PS:VERBS.ZAP.1, 1-4090 (82744) ?ELS9: FSET? PRSO,PERSONBIT \?ELS17 **** FILE PS:VERBS.ZAP.3, 1-4110 (82754) ?ELS9: FSET? PRSO,PERSONBIT \?ELS12 *************** **** FILE PS:VERBS.ZAP.1, 1-4095 (82831) ?ELS17: CALL WONT-HELP-TO-TALK-TO,PLAYER **** FILE PS:VERBS.ZAP.3, 1-4115 (82841) ?ELS12: CALL WONT-HELP-TO-TALK-TO,PLAYER *************** **** FILE PS:VERBS.ZAP.1, 1-4116 (83066) ZERO? STACK /?ELS5 EQUAL? WINNER,PLAYER \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-4136 (83076) ZERO? STACK /?ELS4 EQUAL? WINNER,PLAYER \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-4120 (83163) ZERO? NO? /?ELS10 **** FILE PS:VERBS.ZAP.3, 1-4140 (83173) ZERO? NO? /?ELS7 *************** **** FILE PS:VERBS.ZAP.1, 1-4123 (83212) ?ELS10: CALL PERFORM,V?YES **** FILE PS:VERBS.ZAP.3, 1-4143 (83221) ?ELS7: CALL PERFORM,V?YES *************** **** FILE PS:VERBS.ZAP.1, 1-4125 (83249) ?ELS5: CALL ARENT-TALKING **** FILE PS:VERBS.ZAP.3, 1-4145 (83257) ?ELS4: CALL ARENT-TALKING *************** **** FILE PS:VERBS.ZAP.1, 1-4143 (83553) ?PRG7: PRINTI ">" **** FILE PS:VERBS.ZAP.3, 1-4163 (83561) ?PRG5: PRINTI ">" *************** **** FILE PS:VERBS.ZAP.1, 1-4146 (83623) ZERO? VAL /?CND11 **** FILE PS:VERBS.ZAP.3, 1-4166 (83631) ZERO? VAL /?CND9 *************** **** FILE PS:VERBS.ZAP.1, 1-4148 (83679) EQUAL? VAL,ACT?RESTART \?ELS16 **** FILE PS:VERBS.ZAP.3, 1-4168 (83686) EQUAL? VAL,ACT?RESTART \?ELS12 *************** **** FILE PS:VERBS.ZAP.1, 1-4151 (83748) JUMP ?CND11 ?ELS16: EQUAL? VAL,ACT?RESTORE \?ELS18 **** FILE PS:VERBS.ZAP.3, 1-4171 (83755) JUMP ?CND9 ?ELS12: EQUAL? VAL,ACT?RESTORE \?ELS13 *************** **** FILE PS:VERBS.ZAP.1, 1-4156 (83864) JUMP ?CND11 ?ELS18: EQUAL? VAL,ACT?QUIT \?CND11 **** FILE PS:VERBS.ZAP.3, 1-4176 (83870) JUMP ?CND9 ?ELS13: EQUAL? VAL,ACT?QUIT \?CND9 *************** **** FILE PS:VERBS.ZAP.1, 1-4159 (83923) ?CND11: PRINTI "(Type RESTORE, RESTART, or QUIT.) " JUMP ?PRG7 **** FILE PS:VERBS.ZAP.3, 1-4179 (83927) ?CND9: PRINTI "(Type RESTORE, RESTART, or QUIT.) " JUMP ?PRG5 *************** **** FILE PS:VERBS.ZAP.1, 1-4172 (84202) EQUAL? PRSA,V?WALK \?ELS5 **** FILE PS:VERBS.ZAP.3, 1-4192 (84205) EQUAL? PRSA,V?WALK \?ELS4 *************** **** FILE PS:VERBS.ZAP.1, 1-4174 (84244) ?ELS5: EQUAL? PRSA,V?THROUGH,V?FOLLOW,V?WALK-TO \FALSE **** FILE PS:VERBS.ZAP.3, 1-4194 (84247) ?ELS4: EQUAL? PRSA,V?THROUGH,V?FOLLOW,V?WALK-TO \FALSE *************** **** FILE PS:VERBS.ZAP.1, 1-4177 (84347) EQUAL? PRSA,V?WALK-TO \?ELS14 **** FILE PS:VERBS.ZAP.3, 1-4197 (84350) EQUAL? PRSA,V?WALK-TO \?ELS10 *************** **** FILE PS:VERBS.ZAP.1, 1-4180 (84426) ?ELS14: CALL DIR-FROM,HERE,P **** FILE PS:VERBS.ZAP.3, 1-4200 (84429) ?ELS10: CALL DIR-FROM,HERE,P ***************