;COMPARISON OF PS:GOAL.ZAP.1 AND PS:GOAL.ZAP.3 ;OPTIONS ARE /1 **** FILE PS:GOAL.ZAP.1, 1-8 (119) ZERO? ON-TRAIN /?CND6 ZERO? IN-STATION /?THN13 EQUAL? DIR,P?DOWN /?CND6 ?THN13: SET 'TBL,NAUTICAL-DIR-STRINGS ?CND6: ?PRG15: GET TBL,CNT >X ZERO? X \?ELS19 **** FILE PS:GOAL.ZAP.3, 1-8 (119) ZERO? ON-TRAIN /?CND5 ZERO? IN-STATION /?THN8 EQUAL? DIR,P?DOWN /?CND5 ?THN8: SET 'TBL,NAUTICAL-DIR-STRINGS ?CND5: ?PRG10: GET TBL,CNT >X ZERO? X \?ELS13 *************** **** FILE PS:GOAL.ZAP.1, 1-17 (319) ?ELS19: EQUAL? X,DIR \?CND17 EQUAL? DIR,P?UP,P?DOWN /?CND24 **** FILE PS:GOAL.ZAP.3, 1-17 (317) ?ELS13: EQUAL? X,DIR \?CND12 EQUAL? DIR,P?UP,P?DOWN /?CND17 *************** **** FILE PS:GOAL.ZAP.1, 1-20 (398) ?CND24: ZERO? ON-TRAIN /?ELS31 ZERO? IN-STATION /?ELS31 EQUAL? DIR,P?DOWN \?ELS31 **** FILE PS:GOAL.ZAP.3, 1-20 (396) ?CND17: ZERO? ON-TRAIN /?ELS22 ZERO? IN-STATION /?ELS22 EQUAL? DIR,P?DOWN \?ELS22 *************** **** FILE PS:GOAL.ZAP.1, 1-25 (520) ?ELS31: ADD CNT,1 **** FILE PS:GOAL.ZAP.3, 1-25 (518) ?ELS22: ADD CNT,1 *************** **** FILE PS:GOAL.ZAP.1, 1-29 (578) ?CND17: ADD CNT,2 >CNT JUMP ?PRG15 **** FILE PS:GOAL.ZAP.3, 1-29 (576) ?CND12: ADD CNT,2 >CNT JUMP ?PRG10 *************** **** FILE PS:GOAL.ZAP.1, 1-38 (731) ZERO? STACK \?ELS10 **** FILE PS:GOAL.ZAP.3, 1-38 (729) ZERO? STACK \?ELS7 *************** **** FILE PS:GOAL.ZAP.1, 1-42 (804) ?ELS10: SUB CNT,2 **** FILE PS:GOAL.ZAP.3, 1-42 (801) ?ELS7: SUB CNT,2 *************** **** FILE PS:GOAL.ZAP.1, 1-45 (862) **** FILE PS:GOAL.ZAP.3, 1-45 (858) ?CND6: *************** **** FILE PS:GOAL.ZAP.1, 1-50 (923) EQUAL? LN,1 \?ELS5 **** FILE PS:GOAL.ZAP.3, 1-51 (928) EQUAL? LN,1 \?ELS4 *************** **** FILE PS:GOAL.ZAP.1, 1-52 (964) ?ELS5: EQUAL? LN,2 \?ELS7 **** FILE PS:GOAL.ZAP.3, 1-53 (969) ?ELS4: EQUAL? LN,2 \?ELS5 *************** **** FILE PS:GOAL.ZAP.1, 1-54 (1011) ?ELS7: EQUAL? LN,3 \?ELS9 **** FILE PS:GOAL.ZAP.3, 1-55 (1016) ?ELS5: EQUAL? LN,3 \?ELS6 *************** **** FILE PS:GOAL.ZAP.1, 1-56 (1058) ?ELS9: EQUAL? LN,4 \?ELS11 **** FILE PS:GOAL.ZAP.3, 1-57 (1063) ?ELS6: EQUAL? LN,4 \?ELS7 *************** **** FILE PS:GOAL.ZAP.1, 1-58 (1106) ?ELS11: EQUAL? LN,5 \FALSE **** FILE PS:GOAL.ZAP.3, 1-59 (1110) ?ELS7: EQUAL? LN,5 \FALSE *************** **** FILE PS:GOAL.ZAP.1, 1-67 (1302) EQUAL? HERE,STACK \?ELS3 **** FILE PS:GOAL.ZAP.3, 1-68 (1305) EQUAL? HERE,STACK \?ELS2 *************** **** FILE PS:GOAL.ZAP.1, 1-70 (1366) ?ELS3: GET GT,GOAL-ENABLE **** FILE PS:GOAL.ZAP.3, 1-71 (1369) ?ELS2: GET GT,GOAL-ENABLE *************** **** FILE PS:GOAL.ZAP.1, 1-73 (1445) EQUAL? HERE,X /?CND6 ZERO? X \?CND9 **** FILE PS:GOAL.ZAP.3, 1-74 (1448) EQUAL? HERE,X /?CND4 ZERO? X \?CND6 *************** **** FILE PS:GOAL.ZAP.1, 1-80 (1564) ?CND9: CALL ZMEMQ,HERE,CAR-ROOMS-REST ZERO? STACK /?CND14 **** FILE PS:GOAL.ZAP.3, 1-81 (1567) ?CND6: CALL ZMEMQ,HERE,CAR-ROOMS-REST ZERO? STACK /?CND10 *************** **** FILE PS:GOAL.ZAP.1, 1-84 (1680) ?CND14: CALL MOVE-PERSON,PERSON,X **** FILE PS:GOAL.ZAP.3, 1-85 (1683) ?CND10: CALL MOVE-PERSON,PERSON,X *************** **** FILE PS:GOAL.ZAP.1, 1-86 (1725) ?CND6: GET GT,GOAL-I >IGOAL **** FILE PS:GOAL.ZAP.3, 1-87 (1728) ?CND4: GET GT,GOAL-I >IGOAL *************** **** FILE PS:GOAL.ZAP.1, 1-88 (1787) ZERO? GOAL \?CND17 **** FILE PS:GOAL.ZAP.3, 1-89 (1790) ZERO? GOAL \?CND12 *************** **** FILE PS:GOAL.ZAP.1, 1-91 (1855) ?CND17: ZERO? GOAL /FALSE EQUAL? HERE,GOAL \?CND20 ZERO? IGOAL /?ELS27 **** FILE PS:GOAL.ZAP.3, 1-92 (1858) ?CND12: ZERO? GOAL /FALSE EQUAL? HERE,GOAL \?CND14 ZERO? IGOAL /?ELS18 *************** **** FILE PS:GOAL.ZAP.1, 1-96 (1977) ZERO? FLG \?CND29 **** FILE PS:GOAL.ZAP.3, 1-97 (1980) ZERO? FLG \?CND19 *************** **** FILE PS:GOAL.ZAP.1, 1-102 (2078) ?CND29: CALL MOVE-PERSON,PERSON,FLG >FLG **** FILE PS:GOAL.ZAP.3, 1-103 (2081) ?CND19: CALL MOVE-PERSON,PERSON,FLG >FLG *************** **** FILE PS:GOAL.ZAP.1, 1-106 (2184) ?ELS27: GET GT,GOAL-F >FLG EQUAL? HERE,FLG /?ELS35 ZERO? FLG \?CND36 **** FILE PS:GOAL.ZAP.3, 1-107 (2187) ?ELS18: GET GT,GOAL-F >FLG EQUAL? HERE,FLG /?ELS23 ZERO? FLG \?CND24 *************** **** FILE PS:GOAL.ZAP.1, 1-114 (2339) ?CND36: EQUAL? PERSON,CONDUCTOR,CUSTOMS-AGENT /?CND41 **** FILE PS:GOAL.ZAP.3, 1-115 (2342) ?CND24: EQUAL? PERSON,CONDUCTOR,CUSTOMS-AGENT /?CND28 *************** **** FILE PS:GOAL.ZAP.1, 1-117 (2443) ?CND41: CALL ZMEMQ,FLG,CAR-ROOMS-REST ZERO? STACK /?CND44 EQUAL? PERSON,PLAYER /?ELS49 **** FILE PS:GOAL.ZAP.3, 1-118 (2446) ?CND28: CALL ZMEMQ,FLG,CAR-ROOMS-REST ZERO? STACK /?CND30 EQUAL? PERSON,PLAYER /?ELS33 *************** **** FILE PS:GOAL.ZAP.1, 1-122 (2582) ZERO? STACK /?ELS49 **** FILE PS:GOAL.ZAP.3, 1-123 (2585) ZERO? STACK /?ELS33 *************** **** FILE PS:GOAL.ZAP.1, 1-125 (2641) ?ELS49: CALL FIND-FLAG-LG,FLG,DOORBIT **** FILE PS:GOAL.ZAP.3, 1-126 (2644) ?ELS33: CALL FIND-FLAG-LG,FLG,DOORBIT *************** **** FILE PS:GOAL.ZAP.1, 1-127 (2700) ?CND44: CALL MOVE-PERSON,PERSON,FLG >FLG **** FILE PS:GOAL.ZAP.3, 1-128 (2703) ?CND30: CALL MOVE-PERSON,PERSON,FLG >FLG *************** **** FILE PS:GOAL.ZAP.1, 1-129 (2755) ?ELS35: CALL GOAL-REACHED,PERSON **** FILE PS:GOAL.ZAP.3, 1-130 (2758) ?ELS23: CALL GOAL-REACHED,PERSON *************** **** FILE PS:GOAL.ZAP.1, 1-131 (2799) ?CND20: CALL FOLLOW-GOAL-NEXT,HERE,GOAL,PERSON >FLG EQUAL? HERE,FLG \?CND56 **** FILE PS:GOAL.ZAP.3, 1-132 (2802) ?CND14: CALL FOLLOW-GOAL-NEXT,HERE,GOAL,PERSON >FLG EQUAL? HERE,FLG \?CND35 *************** **** FILE PS:GOAL.ZAP.1, 1-135 (2943) ?CND56: CALL MOVE-PERSON,PERSON,FLG **** FILE PS:GOAL.ZAP.3, 1-136 (2946) ?CND35: CALL MOVE-PERSON,PERSON,FLG *************** **** FILE PS:GOAL.ZAP.1, 1-145 (3163) EQUAL? HERE,LOC /?CND6 **** FILE PS:GOAL.ZAP.3, 1-146 (3166) EQUAL? HERE,LOC /?CND4 *************** **** FILE PS:GOAL.ZAP.1, 1-147 (3204) ?CND6: GETP GOAL,P?STATION >LOC EQUAL? GOAL,LOC /?CND9 **** FILE PS:GOAL.ZAP.3, 1-148 (3207) ?CND4: GETP GOAL,P?STATION >LOC EQUAL? GOAL,LOC /?CND6 *************** **** FILE PS:GOAL.ZAP.1, 1-150 (3278) ?CND9: CALL FOLLOW-GOAL-NEXT,HERE,GOAL,PERSON >LOC EQUAL? LOC,HERE \?CND12 **** FILE PS:GOAL.ZAP.3, 1-151 (3281) ?CND6: CALL FOLLOW-GOAL-NEXT,HERE,GOAL,PERSON >LOC EQUAL? LOC,HERE \?CND8 *************** **** FILE PS:GOAL.ZAP.1, 1-154 (3421) ?CND12: CALL DIR-FROM,HERE,LOC **** FILE PS:GOAL.ZAP.3, 1-155 (3423) ?CND8: CALL DIR-FROM,HERE,LOC *************** **** FILE PS:GOAL.ZAP.1, 1-163 (3636) ZERO? LINE \?ELS6 **** FILE PS:GOAL.ZAP.3, 1-164 (3637) ZERO? LINE \?ELS4 *************** **** FILE PS:GOAL.ZAP.1, 1-171 (3764) ?ELS6: GETP HERE,P?LINE **** FILE PS:GOAL.ZAP.3, 1-172 (3765) ?ELS4: GETP HERE,P?LINE *************** **** FILE PS:GOAL.ZAP.1, 1-173 (3811) EQUAL? LINE,STACK /?CND4 **** FILE PS:GOAL.ZAP.3, 1-174 (3812) EQUAL? LINE,STACK /?CND3 *************** **** FILE PS:GOAL.ZAP.1, 1-183 (3979) ?CND4: ?PRG13: GET LINE,CNT >RM EQUAL? RM,HERE \?ELS17 ZERO? GOAL-FLAG /?ELS20 **** FILE PS:GOAL.ZAP.3, 1-184 (3980) ?CND3: ?PRG10: GET LINE,CNT >RM EQUAL? RM,HERE \?ELS13 ZERO? GOAL-FLAG /?ELS15 *************** **** FILE PS:GOAL.ZAP.1, 1-190 (4112) ?ELS20: ADD CNT,3 **** FILE PS:GOAL.ZAP.3, 1-191 (4113) ?ELS15: ADD CNT,3 *************** **** FILE PS:GOAL.ZAP.1, 1-193 (4166) ?ELS17: EQUAL? RM,GOAL \?CND15 **** FILE PS:GOAL.ZAP.3, 1-194 (4167) ?ELS13: EQUAL? RM,GOAL \?CND12 *************** **** FILE PS:GOAL.ZAP.1, 1-195 (4226) ?CND15: ADD CNT,3 >CNT JUMP ?PRG13 **** FILE PS:GOAL.ZAP.3, 1-196 (4227) ?CND12: ADD CNT,3 >CNT JUMP ?PRG10 *************** **** FILE PS:GOAL.ZAP.1, 1-200 (4326) EQUAL? HERE,ROOF \?ELS3 **** FILE PS:GOAL.ZAP.3, 1-201 (4327) EQUAL? HERE,ROOF \?ELS2 *************** **** FILE PS:GOAL.ZAP.1, 1-202 (4385) LESS? CAR,CAR-HERE \?ELS8 **** FILE PS:GOAL.ZAP.3, 1-203 (4386) LESS? CAR,CAR-HERE \?ELS5 *************** **** FILE PS:GOAL.ZAP.1, 1-204 (4430) ?ELS8: RETURN P?SOUTH ?ELS3: EQUAL? HERE,VESTIBULE-FWD,VESTIBULE-FWD-DINER \?ELS12 **** FILE PS:GOAL.ZAP.3, 1-205 (4431) ?ELS5: RETURN P?SOUTH ?ELS2: EQUAL? HERE,VESTIBULE-FWD,VESTIBULE-FWD-DINER \?ELS6 *************** **** FILE PS:GOAL.ZAP.1, 1-207 (4532) EQUAL? CAR,STACK \?ELS15 **** FILE PS:GOAL.ZAP.3, 1-208 (4532) EQUAL? CAR,STACK \?ELS8 *************** **** FILE PS:GOAL.ZAP.1, 1-209 (4577) EQUAL? THERE,STACK \?ELS15 **** FILE PS:GOAL.ZAP.3, 1-210 (4576) EQUAL? THERE,STACK \?ELS8 *************** **** FILE PS:GOAL.ZAP.1, 1-211 (4623) ?ELS15: RETURN FALSE-VALUE ?ELS12: EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \?CND1 **** FILE PS:GOAL.ZAP.3, 1-212 (4621) ?ELS8: RETURN FALSE-VALUE ?ELS6: EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \?CND1 *************** **** FILE PS:GOAL.ZAP.1, 1-214 (4732) EQUAL? CAR,STACK \?ELS24 **** FILE PS:GOAL.ZAP.3, 1-215 (4728) EQUAL? CAR,STACK \?ELS12 *************** **** FILE PS:GOAL.ZAP.1, 1-216 (4776) EQUAL? THERE,STACK \?ELS24 **** FILE PS:GOAL.ZAP.3, 1-217 (4772) EQUAL? THERE,STACK \?ELS12 *************** **** FILE PS:GOAL.ZAP.1, 1-218 (4822) ?ELS24: RETURN FALSE-VALUE **** FILE PS:GOAL.ZAP.3, 1-219 (4818) ?ELS12: RETURN FALSE-VALUE *************** **** FILE PS:GOAL.ZAP.1, 1-223 (4955) ?PRG29: GET COR,CNT >RM EQUAL? RM,HERE \?ELS33 **** FILE PS:GOAL.ZAP.3, 1-224 (4951) ?PRG14: GET COR,CNT >RM EQUAL? RM,HERE \?ELS17 *************** **** FILE PS:GOAL.ZAP.1, 1-226 (5019) JUMP ?REP30 ?ELS33: EQUAL? RM,THERE \?CND31 JUMP ?REP30 ?CND31: INC 'CNT JUMP ?PRG29 ?REP30: GET COR,PAST **** FILE PS:GOAL.ZAP.3, 1-227 (5015) JUMP ?REP15 ?ELS17: EQUAL? RM,THERE \?CND16 JUMP ?REP15 ?CND16: INC 'CNT JUMP ?PRG14 ?REP15: GET COR,PAST *************** **** FILE PS:GOAL.ZAP.1, 1-236 (5169) EQUAL? NUM,1 \?ELS5 **** FILE PS:GOAL.ZAP.3, 1-237 (5165) EQUAL? NUM,1 \?ELS4 *************** **** FILE PS:GOAL.ZAP.1, 1-238 (5206) ?ELS5: EQUAL? NUM,2 \?ELS7 **** FILE PS:GOAL.ZAP.3, 1-239 (5202) ?ELS4: EQUAL? NUM,2 \?ELS5 *************** **** FILE PS:GOAL.ZAP.1, 1-240 (5249) ?ELS7: RETURN COR-4 **** FILE PS:GOAL.ZAP.3, 1-241 (5245) ?ELS5: RETURN COR-4 *************** **** FILE PS:GOAL.ZAP.1, 1-256 (5572) LESS? C,0 \?ELS15 **** FILE PS:GOAL.ZAP.3, 1-257 (5568) LESS? C,0 \?ELS11 *************** **** FILE PS:GOAL.ZAP.1, 1-259 (5644) ?ELS15: ?PRG18: SUB C,4 >Z LESS? Z,0 /?ELS22 **** FILE PS:GOAL.ZAP.3, 1-260 (5640) ?ELS11: ?PRG12: SUB C,4 >Z LESS? Z,0 /?ELS15 *************** **** FILE PS:GOAL.ZAP.1, 1-263 (5711) JUMP ?CND20 ?ELS22: SUB C,2 >Z LESS? Z,0 /?ELS24 **** FILE PS:GOAL.ZAP.3, 1-264 (5707) JUMP ?CND14 ?ELS15: SUB C,2 >Z LESS? Z,0 /?ELS16 *************** **** FILE PS:GOAL.ZAP.1, 1-267 (5782) JUMP ?CND20 ?ELS24: SUB C,1 >Z LESS? Z,0 /?REP19 **** FILE PS:GOAL.ZAP.3, 1-268 (5778) JUMP ?CND14 ?ELS16: SUB C,1 >Z LESS? Z,0 /?REP13 *************** **** FILE PS:GOAL.ZAP.1, 1-271 (5853) ?CND20: CALL CORRIDOR-CHECK,COR,ITM,CAR >VAL ZERO? FOUND \?CND29 **** FILE PS:GOAL.ZAP.3, 1-272 (5849) ?CND14: CALL CORRIDOR-CHECK,COR,ITM,CAR >VAL ZERO? FOUND \?CND18 *************** **** FILE PS:GOAL.ZAP.1, 1-274 (5938) ?CND29: SET 'C,Z JUMP ?PRG18 ?REP19: RETURN FOUND **** FILE PS:GOAL.ZAP.3, 1-275 (5934) ?CND18: SET 'C,Z JUMP ?PRG12 ?REP13: RETURN FOUND *************** **** FILE PS:GOAL.ZAP.1, 1-280 (6079) ZERO? COR /?ORP4 **** FILE PS:GOAL.ZAP.3, 1-281 (6075) ZERO? COR /?ORP3 *************** **** FILE PS:GOAL.ZAP.1, 1-283 (6122) ?ORP4: PUSH COR-1 **** FILE PS:GOAL.ZAP.3, 1-284 (6118) ?ORP3: PUSH COR-1 *************** **** FILE PS:GOAL.ZAP.1, 1-285 (6169) ?PRG5: ZERO? COR /?ELS9 **** FILE PS:GOAL.ZAP.3, 1-286 (6165) ?PRG4: ZERO? COR /?ELS7 *************** **** FILE PS:GOAL.ZAP.1, 1-287 (6212) ZERO? RM \?CND7 **** FILE PS:GOAL.ZAP.3, 1-288 (6208) ZERO? RM \?CND8 *************** **** FILE PS:GOAL.ZAP.1, 1-290 (6261) ?ELS9: EQUAL? HERE,ROOF \?ELS14 **** FILE PS:GOAL.ZAP.3, 1-291 (6257) ?CND8: JUMP ?CND6 ?ELS7: EQUAL? HERE,ROOF \?ELS10 *************** **** FILE PS:GOAL.ZAP.1, 1-292 (6315) ZERO? NCAR \?ELS17 **** FILE PS:GOAL.ZAP.3, 1-294 (6330) ZERO? NCAR \?ELS12 *************** **** FILE PS:GOAL.ZAP.1, 1-294 (6359) ZERO? NCAR \?CND7 **** FILE PS:GOAL.ZAP.3, 1-296 (6374) ZERO? NCAR \?CND11 *************** **** FILE PS:GOAL.ZAP.1, 1-296 (6393) ZERO? COR /?ORP24 **** FILE PS:GOAL.ZAP.3, 1-298 (6409) ZERO? COR /?ORP17 *************** **** FILE PS:GOAL.ZAP.1, 1-298 (6424) JUMP ?THN21 ?ORP24: PUSH COR-1 ?THN21: GET STACK,PAST >DIR **** FILE PS:GOAL.ZAP.3, 1-300 (6440) JUMP ?THN15 ?ORP17: PUSH COR-1 ?THN15: GET STACK,PAST >DIR *************** **** FILE PS:GOAL.ZAP.1, 1-302 (6510) JUMP ?CND7 ?ELS17: ZERO? PAST \?ELS26 **** FILE PS:GOAL.ZAP.3, 1-304 (6526) JUMP ?CND11 ?ELS12: ZERO? PAST \?ELS18 *************** **** FILE PS:GOAL.ZAP.1, 1-305 (6563) ZERO? NCAR \?CND7 **** FILE PS:GOAL.ZAP.3, 1-307 (6580) ZERO? NCAR \?CND11 *************** **** FILE PS:GOAL.ZAP.1, 1-307 (6597) ZERO? COR /?ORP33 **** FILE PS:GOAL.ZAP.3, 1-309 (6615) ZERO? COR /?ORP23 *************** **** FILE PS:GOAL.ZAP.1, 1-309 (6628) JUMP ?THN30 ?ORP33: PUSH COR-1 ?THN30: GET STACK,PAST >DIR **** FILE PS:GOAL.ZAP.3, 1-311 (6646) JUMP ?THN21 ?ORP23: PUSH COR-1 ?THN21: GET STACK,PAST >DIR *************** **** FILE PS:GOAL.ZAP.1, 1-313 (6714) JUMP ?CND7 ?ELS26: INC 'NCAR GRTR? NCAR,CAR-MAX \?CND7 **** FILE PS:GOAL.ZAP.3, 1-315 (6732) JUMP ?CND11 ?ELS18: INC 'NCAR GRTR? NCAR,CAR-MAX \?CND24 *************** **** FILE PS:GOAL.ZAP.1, 1-318 (6805) ?ELS14: ZERO? RM /?ELS40 **** FILE PS:GOAL.ZAP.3, 1-320 (6825) ?CND24: ?CND11: JUMP ?CND6 ?ELS10: ZERO? RM /?ELS26 *************** **** FILE PS:GOAL.ZAP.1, 1-321 (6862) ?ELS40: EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \?ELS42 **** FILE PS:GOAL.ZAP.3, 1-325 (6912) ?ELS26: EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \?ELS27 *************** **** FILE PS:GOAL.ZAP.1, 1-323 (6941) ZERO? COR /?ORP46 **** FILE PS:GOAL.ZAP.3, 1-327 (6991) ZERO? COR /?ORP30 *************** **** FILE PS:GOAL.ZAP.1, 1-325 (6972) JUMP ?THN43 ?ORP46: PUSH COR-1 ?THN43: GET STACK,PAST >DIR **** FILE PS:GOAL.ZAP.3, 1-329 (7022) JUMP ?THN28 ?ORP30: PUSH COR-1 ?THN28: GET STACK,PAST >DIR *************** **** FILE PS:GOAL.ZAP.1, 1-330 (7080) JUMP ?CND7 ?ELS42: EQUAL? HERE,VESTIBULE-FWD,VESTIBULE-FWD-DINER \?CND7 **** FILE PS:GOAL.ZAP.3, 1-334 (7130) JUMP ?CND6 ?ELS27: EQUAL? HERE,VESTIBULE-FWD,VESTIBULE-FWD-DINER \?CND6 *************** **** FILE PS:GOAL.ZAP.1, 1-334 (7201) ?CND7: EQUAL? RM,HERE \?ELS51 **** FILE PS:GOAL.ZAP.3, 1-338 (7251) ?CND6: EQUAL? RM,HERE \?ELS33 *************** **** FILE PS:GOAL.ZAP.1, 1-336 (7246) ZERO? COR /?ORP57 **** FILE PS:GOAL.ZAP.3, 1-340 (7296) ZERO? COR /?ORP37 *************** **** FILE PS:GOAL.ZAP.1, 1-338 (7277) JUMP ?THN54 ?ORP57: PUSH COR-1 ?THN54: GET STACK,PAST >DIR JUMP ?CND49 ?ELS51: SET 'OBJ,RM EQUAL? ITM,OBJ /?THN60 FIRST? RM >OBJ \?CND49 ?THN60: ?PRG62: ZERO? ITM /?ELS66 EQUAL? OBJ,ITM \?CND64 ZERO? COR /?ELS72 **** FILE PS:GOAL.ZAP.3, 1-342 (7327) JUMP ?THN35 ?ORP37: PUSH COR-1 ?THN35: GET STACK,PAST >DIR JUMP ?CND32 ?ELS33: SET 'OBJ,RM PUSH 1 EQUAL? ITM,STACK /?THN38 FIRST? RM >OBJ \?CND32 ?THN38: ?PRG40: ZERO? ITM /?ELS43 EQUAL? OBJ,ITM \?CND44 ZERO? COR /?ELS47 *************** **** FILE PS:GOAL.ZAP.1, 1-350 (7529) JUMP ?REP63 ?ELS72: EQUAL? NCAR,CAR \?CND64 **** FILE PS:GOAL.ZAP.3, 1-355 (7590) JUMP ?REP41 ?ELS47: EQUAL? NCAR,CAR \?CND46 *************** **** FILE PS:GOAL.ZAP.1, 1-353 (7600) JUMP ?REP63 ?ELS66: ZERO? COR-ALL-DIRS \?THN79 EQUAL? DIR,PLAYER-NOT-FACING /?CND64 ?THN79: EQUAL? OBJ,BRIEFCASE /?THN81 **** FILE PS:GOAL.ZAP.3, 1-358 (7661) JUMP ?REP41 ?CND46: ?CND44: JUMP ?CND42 ?ELS43: ZERO? COR-ALL-DIRS \?THN50 EQUAL? DIR,PLAYER-NOT-FACING /?CND42 ?THN50: EQUAL? OBJ,BRIEFCASE /?THN51 *************** **** FILE PS:GOAL.ZAP.1, 1-358 (7750) ZERO? STACK /?CND64 ?THN81: ZERO? COR \?THN83 **** FILE PS:GOAL.ZAP.3, 1-365 (7842) ZERO? STACK /?CND42 ?THN51: ZERO? COR \?THN52 *************** **** FILE PS:GOAL.ZAP.1, 1-361 (7816) EQUAL? NCAR,STACK \?CND64 ?THN83: FSET? OBJ,NDESCBIT /?CND64 ZERO? COR-GRAB-FLAG \?THN85 **** FILE PS:GOAL.ZAP.3, 1-368 (7908) EQUAL? NCAR,STACK \?CND42 ?THN52: FSET? OBJ,NDESCBIT /?CND42 ZERO? COR-GRAB-FLAG \?THN53 *************** **** FILE PS:GOAL.ZAP.1, 1-365 (7932) ZERO? STACK \?CND64 ?THN85: ZERO? COR-GRAB-FLAG /?ELS89 **** FILE PS:GOAL.ZAP.3, 1-372 (8024) ZERO? STACK \?CND42 ?THN53: ZERO? COR-GRAB-FLAG /?ELS56 *************** **** FILE PS:GOAL.ZAP.1, 1-368 (8020) ZERO? X /?CND90 **** FILE PS:GOAL.ZAP.3, 1-375 (8112) ZERO? X /?CND57 *************** **** FILE PS:GOAL.ZAP.1, 1-374 (8146) ?CND90: ZERO? Y \?CND87 **** FILE PS:GOAL.ZAP.3, 1-381 (8238) ?CND57: ZERO? Y \?CND55 *************** **** FILE PS:GOAL.ZAP.1, 1-376 (8182) JUMP ?CND87 ?ELS89: CALL COR-ADD-PER,OBJ,DIR ZERO? STACK /?ELS101 JUMP ?CND64 ?ELS101: CALL START-SENTENCE,OBJ **** FILE PS:GOAL.ZAP.3, 1-383 (8274) JUMP ?CND55 ?ELS56: CALL COR-ADD-PER,OBJ,DIR ZERO? STACK /?ELS65 JUMP ?CND42 ?ELS65: CALL START-SENTENCE,OBJ *************** **** FILE PS:GOAL.ZAP.1, 1-385 (8366) ?CND87: ?CND64: NEXT? OBJ >OBJ /?KLU114 ?KLU114: ZERO? OBJ \?PRG62 ?REP63: ZERO? FOUND /?CND49 **** FILE PS:GOAL.ZAP.3, 1-392 (8456) ?CND55: ?CND42: NEXT? OBJ >OBJ /?KLU74 ?KLU74: ZERO? OBJ \?PRG40 ?REP41: ZERO? FOUND /?CND72 *************** **** FILE PS:GOAL.ZAP.1, 1-390 (8481) ?CND49: INC 'CNT JUMP ?PRG5 **** FILE PS:GOAL.ZAP.3, 1-397 (8569) ?CND72: ?CND32: INC 'CNT JUMP ?PRG4 *************** **** FILE PS:GOAL.ZAP.1, 1-399 (8635) ?PRG4: GET T,L ZERO? STACK \?ELS8 **** FILE PS:GOAL.ZAP.3, 1-407 (8733) ?PRG3: GET T,L ZERO? STACK \?ELS6 *************** **** FILE PS:GOAL.ZAP.1, 1-403 (8695) ?ELS8: DLESS? 'L,1 \?PRG4 **** FILE PS:GOAL.ZAP.3, 1-411 (8793) ?ELS6: DLESS? 'L,1 \?PRG3 *************** **** FILE PS:GOAL.ZAP.1, 1-418 (8955) ZERO? FIRST /?ELS10 **** FILE PS:GOAL.ZAP.3, 1-426 (9053) ZERO? FIRST /?ELS8 *************** **** FILE PS:GOAL.ZAP.1, 1-422 (9039) ?ELS10: EQUAL? L,1 /?THN19 **** FILE PS:GOAL.ZAP.3, 1-430 (9136) ?ELS8: EQUAL? L,1 /?THN12 *************** **** FILE PS:GOAL.ZAP.1, 1-425 (9091) ZERO? STACK \?ELS18 ?THN19: PRINTI " and" JUMP ?CND16 ?ELS18: PRINTI "," ?CND16: CALL PRINTT,P **** FILE PS:GOAL.ZAP.3, 1-433 (9187) ZERO? STACK \?ELS13 ?THN12: PRINTI " and" JUMP ?CND11 ?ELS13: PRINTI "," ?CND11: CALL PRINTT,P *************** **** FILE PS:GOAL.ZAP.1, 1-431 (9220) ZERO? NUM \?ELS34 **** FILE PS:GOAL.ZAP.3, 1-439 (9316) ZERO? NUM \?ELS23 *************** **** FILE PS:GOAL.ZAP.1, 1-433 (9253) ?ELS34: EQUAL? NUM,1 \?ELS36 **** FILE PS:GOAL.ZAP.3, 1-441 (9349) ?ELS23: EQUAL? NUM,1 \?ELS24 *************** **** FILE PS:GOAL.ZAP.1, 1-435 (9298) JUMP ?CND32 ?ELS36: PRINTI " are" ?CND32: PRINTI " off to " **** FILE PS:GOAL.ZAP.3, 1-443 (9394) JUMP ?CND22 ?ELS24: PRINTI " are" ?CND22: PRINTI " off to " *************** **** FILE PS:GOAL.ZAP.1, 1-455 (9734) LOC PERSON >L **** FILE PS:GOAL.ZAP.3, 1-463 (9830) LOC PERSON SET 'L,STACK SET '?TMP1,1 *************** **** FILE PS:GOAL.ZAP.1, 1-457 (9769) EQUAL? L,F /FALSE **** FILE PS:GOAL.ZAP.3, 1-467 (9892) EQUAL? ?TMP1,F /FALSE *************** **** FILE PS:GOAL.ZAP.1, 1-496 (10583) ?CND1: ZERO? WALK-TRAIN \?CND4 EQUAL? PERSON,CONDUCTOR,CUSTOMS-AGENT /?CND4 **** FILE PS:GOAL.ZAP.3, 1-506 (10710) ?CND1: ZERO? WALK-TRAIN \?CND3 EQUAL? PERSON,CONDUCTOR,CUSTOMS-AGENT /?CND3 *************** **** FILE PS:GOAL.ZAP.1, 1-500 (10712) ?CND4: LOC PERSON **** FILE PS:GOAL.ZAP.3, 1-510 (10839) ?CND3: LOC PERSON *************** **** FILE PS:GOAL.ZAP.1, 1-508 (10879) EQUAL? CAR,CARH /?ELS3 **** FILE PS:GOAL.ZAP.3, 1-518 (11006) EQUAL? CAR,CARH /?ELS2 *************** **** FILE PS:GOAL.ZAP.1, 1-512 (10988) LESS? CAR,CARH \?ELS6 **** FILE PS:GOAL.ZAP.3, 1-522 (11115) LESS? CAR,CARH \?ELS4 *************** **** FILE PS:GOAL.ZAP.1, 1-515 (11049) ?ELS6: CALL L-REAR,CARH >GOAL **** FILE PS:GOAL.ZAP.3, 1-525 (11176) ?ELS4: CALL L-REAR,CARH >GOAL *************** **** FILE PS:GOAL.ZAP.1, 1-517 (11093) ?ELS3: GET GT,GOAL-OFUNCTION **** FILE PS:GOAL.ZAP.3, 1-527 (11220) ?ELS2: GET GT,GOAL-OFUNCTION *************** **** FILE PS:GOAL.ZAP.1, 1-558 (12070) ZERO? STACK \?THN6 **** FILE PS:GOAL.ZAP.3, 1-568 (12197) ZERO? STACK \?THN4 *************** **** FILE PS:GOAL.ZAP.1, 1-561 (12138) ?THN6: CALL PRINTT,RM **** FILE PS:GOAL.ZAP.3, 1-571 (12265) ?THN4: CALL PRINTT,RM *************** **** FILE PS:GOAL.ZAP.1, 1-576 (12491) EQUAL? OL,VESTIBULE-FWD,OTHER-VESTIBULE-FWD,VESTIBULE-FWD-DINER \?ELS6 EQUAL? WHERE,LIMBO-FWD,OTHER-LIMBO-FWD,LIMBO-FWD-DINER \?CND4 **** FILE PS:GOAL.ZAP.3, 1-586 (12618) EQUAL? OL,VESTIBULE-FWD,OTHER-VESTIBULE-FWD,VESTIBULE-FWD-DINER \?ELS3 EQUAL? WHERE,LIMBO-FWD,OTHER-LIMBO-FWD,LIMBO-FWD-DINER \?CND2 *************** **** FILE PS:GOAL.ZAP.1, 1-580 (12667) JUMP ?CND4 ?ELS6: EQUAL? OL,VESTIBULE-REAR,OTHER-VESTIBULE-REAR,VESTIBULE-REAR-DINER \?CND4 EQUAL? WHERE,LIMBO-REAR,OTHER-LIMBO-REAR,LIMBO-REAR-DINER \?CND4 **** FILE PS:GOAL.ZAP.3, 1-590 (12794) JUMP ?CND2 ?ELS3: EQUAL? OL,VESTIBULE-REAR,OTHER-VESTIBULE-REAR,VESTIBULE-REAR-DINER \?CND2 EQUAL? WHERE,LIMBO-REAR,OTHER-LIMBO-REAR,LIMBO-REAR-DINER \?CND2 *************** **** FILE PS:GOAL.ZAP.1, 1-585 (12867) ?CND4: ZERO? DIR /?CND15 **** FILE PS:GOAL.ZAP.3, 1-595 (12994) ?CND2: ZERO? DIR /?CND9 *************** **** FILE PS:GOAL.ZAP.1, 1-587 (12911) ZERO? X /?CND15 **** FILE PS:GOAL.ZAP.3, 1-597 (13037) ZERO? X /?CND9 *************** **** FILE PS:GOAL.ZAP.1, 1-589 (12940) EQUAL? STACK,DEXIT \?CND15 GET X,DEXITOBJ >DOOR **** FILE PS:GOAL.ZAP.3, 1-599 (13065) EQUAL? STACK,DEXIT \?CND9 CALL GET-DOOR-OBJ,X >DOOR *************** **** FILE PS:GOAL.ZAP.1, 1-592 (13023) ZERO? STACK /?CND15 **** FILE PS:GOAL.ZAP.3, 1-602 (13152) ZERO? STACK /?CND9 *************** **** FILE PS:GOAL.ZAP.1, 1-594 (13069) ?CND15: EQUAL? PERSON,PLAYER \?ELS25 **** FILE PS:GOAL.ZAP.3, 1-604 (13197) ?CND9: EQUAL? PERSON,PLAYER \?ELS15 *************** **** FILE PS:GOAL.ZAP.1, 1-596 (13139) ZERO? OL /?CND26 **** FILE PS:GOAL.ZAP.3, 1-606 (13266) ZERO? OL /?CND16 *************** **** FILE PS:GOAL.ZAP.1, 1-599 (13242) ?CND26: ZERO? DOOR /?CND23 **** FILE PS:GOAL.ZAP.3, 1-609 (13369) ?CND16: ZERO? DOOR /?CND14 *************** **** FILE PS:GOAL.ZAP.1, 1-601 (13295) ZERO? STACK \?CND23 **** FILE PS:GOAL.ZAP.3, 1-611 (13422) ZERO? STACK \?CND14 *************** **** FILE PS:GOAL.ZAP.1, 1-604 (13336) ?ELS25: FSET? PERSON,NDESCBIT \?ELS37 JUMP ?CND23 ?ELS37: EQUAL? OL,HERE \?ELS39 **** FILE PS:GOAL.ZAP.3, 1-614 (13463) ?ELS15: FSET? PERSON,NDESCBIT \?ELS23 JUMP ?CND14 ?ELS23: EQUAL? OL,HERE \?ELS24 *************** **** FILE PS:GOAL.ZAP.1, 1-609 (13483) EQUAL? PERSON,CONDUCTOR \?CND40 ZERO? TOUCH-CAP? /?CND40 **** FILE PS:GOAL.ZAP.3, 1-619 (13610) EQUAL? PERSON,CONDUCTOR \?CND25 ZERO? TOUCH-CAP? /?CND25 *************** **** FILE PS:GOAL.ZAP.1, 1-613 (13618) ?CND40: ZERO? DOOR /?CND47 **** FILE PS:GOAL.ZAP.3, 1-623 (13745) ?CND25: ZERO? DOOR /?CND30 *************** **** FILE PS:GOAL.ZAP.1, 1-617 (13699) ?CND47: EQUAL? DIR,P?OUT /?THN56 **** FILE PS:GOAL.ZAP.3, 1-627 (13826) ?CND30: EQUAL? DIR,P?OUT /?THN35 *************** **** FILE PS:GOAL.ZAP.1, 1-619 (13767) ZERO? STACK \?THN56 **** FILE PS:GOAL.ZAP.3, 1-629 (13894) ZERO? STACK \?THN35 *************** **** FILE PS:GOAL.ZAP.1, 1-621 (13824) ZERO? STACK /?ELS55 ?THN56: PRINTI " leaves." **** FILE PS:GOAL.ZAP.3, 1-631 (13951) ZERO? STACK /?ELS36 ?THN35: PRINTI " leaves." *************** **** FILE PS:GOAL.ZAP.1, 1-624 (13881) JUMP ?CND23 ?ELS55: CALL ENTERS?,DIR,OWHERE ZERO? STACK /?ELS61 **** FILE PS:GOAL.ZAP.3, 1-634 (14008) JUMP ?CND14 ?ELS36: CALL ENTERS?,DIR,OWHERE ZERO? STACK /?ELS39 *************** **** FILE PS:GOAL.ZAP.1, 1-629 (14002) ZERO? DOOR /?CND66 FSET? DOOR,LOCKED \?CND66 **** FILE PS:GOAL.ZAP.3, 1-639 (14129) ZERO? DOOR /?CND43 FSET? DOOR,LOCKED \?CND43 *************** **** FILE PS:GOAL.ZAP.1, 1-632 (14081) ?CND66: PRINTI "." **** FILE PS:GOAL.ZAP.3, 1-642 (14208) ?CND43: PRINTI "." *************** **** FILE PS:GOAL.ZAP.1, 1-634 (14109) JUMP ?CND23 ?ELS61: EQUAL? CAR,CAR-MAX \?ELS76 EQUAL? OL,VESTIBULE-REAR \?ELS76 EQUAL? WHERE,LIMBO-REAR \?ELS76 **** FILE PS:GOAL.ZAP.3, 1-644 (14236) JUMP ?CND14 ?ELS39: EQUAL? CAR,CAR-MAX \?ELS50 EQUAL? OL,VESTIBULE-REAR \?ELS50 EQUAL? WHERE,LIMBO-REAR \?ELS50 *************** **** FILE PS:GOAL.ZAP.1, 1-642 (14337) JUMP ?CND23 ?ELS76: EQUAL? PERSON,PLAYER \?ELS85 **** FILE PS:GOAL.ZAP.3, 1-652 (14464) JUMP ?CND14 ?ELS50: EQUAL? PERSON,PLAYER \?ELS55 *************** **** FILE PS:GOAL.ZAP.1, 1-645 (14407) JUMP ?CND83 ?ELS85: PRINTI " heads " ?CND83: EQUAL? DIR,P?UP,P?DOWN /?CND92 **** FILE PS:GOAL.ZAP.3, 1-655 (14534) JUMP ?CND54 ?ELS55: PRINTI " heads " ?CND54: EQUAL? DIR,P?UP,P?DOWN /?CND60 *************** **** FILE PS:GOAL.ZAP.1, 1-649 (14506) ?CND92: CALL DIR-PRINT,DIR ZERO? DOOR /?CND97 FSET? DOOR,LOCKED \?CND97 **** FILE PS:GOAL.ZAP.3, 1-659 (14633) ?CND60: CALL DIR-PRINT,DIR ZERO? DOOR /?CND64 FSET? DOOR,LOCKED \?CND64 *************** **** FILE PS:GOAL.ZAP.1, 1-653 (14613) ?CND97: PRINTI "." **** FILE PS:GOAL.ZAP.3, 1-663 (14740) ?CND64: PRINTI "." *************** **** FILE PS:GOAL.ZAP.1, 1-655 (14641) JUMP ?CND23 ?ELS39: EQUAL? OWHERE,HERE \?ELS107 ZERO? GT /?THN111 **** FILE PS:GOAL.ZAP.3, 1-665 (14768) JUMP ?CND14 ?ELS24: EQUAL? OWHERE,HERE \?ELS71 ZERO? GT /?THN73 *************** **** FILE PS:GOAL.ZAP.1, 1-659 (14728) EQUAL? HERE,STACK /?CND23 ?THN111: ZERO? TICKETS-PUNCHED? /?ELS119 ZERO? CUSTOMS-SWEEP /?THN116 ?ELS119: EQUAL? PERSON,CONDUCTOR /?CND23 ?THN116: SET 'VAL,TRUE-VALUE **** FILE PS:GOAL.ZAP.3, 1-669 (14853) EQUAL? HERE,STACK /?CND14 ?THN73: ZERO? TICKETS-PUNCHED? /?ELS77 ZERO? CUSTOMS-SWEEP /?THN76 ?ELS77: EQUAL? PERSON,CONDUCTOR /?CND14 ?THN76: SET 'VAL,TRUE-VALUE *************** **** FILE PS:GOAL.ZAP.1, 1-665 (14941) ZERO? DOOR /?CND120 **** FILE PS:GOAL.ZAP.3, 1-675 (15061) ZERO? DOOR /?CND79 *************** **** FILE PS:GOAL.ZAP.1, 1-669 (15016) ?CND120: PRINTI " walks " EQUAL? PRSA,V?WALK \?ELS130 EQUAL? OL,LAST-PLAYER-LOC \?ELS130 **** FILE PS:GOAL.ZAP.3, 1-679 (15135) ?CND79: PRINTI " walks " EQUAL? PRSA,V?WALK \?ELS86 EQUAL? OL,LAST-PLAYER-LOC \?ELS86 *************** **** FILE PS:GOAL.ZAP.1, 1-673 (15136) JUMP ?CND128 ?ELS130: PRINTI "past you" EQUAL? DIR,P?IN,P?OUT /?CND128 **** FILE PS:GOAL.ZAP.3, 1-683 (15252) JUMP ?CND85 ?ELS86: PRINTI "past you" EQUAL? DIR,P?IN,P?OUT /?CND85 *************** **** FILE PS:GOAL.ZAP.1, 1-679 (15272) ?CND128: PRINTI "." **** FILE PS:GOAL.ZAP.3, 1-689 (15385) ?CND85: PRINTI "." *************** **** FILE PS:GOAL.ZAP.1, 1-681 (15301) JUMP ?CND23 ?ELS107: GETP HERE,P?CORRIDOR >COR ZERO? COR /?CND23 **** FILE PS:GOAL.ZAP.3, 1-691 (15413) JUMP ?CND14 ?ELS71: GETP HERE,P?CORRIDOR >COR ZERO? COR /?CND14 *************** **** FILE PS:GOAL.ZAP.1, 1-685 (15409) EQUAL? PCOR,FALSE-VALUE,PLAYER-NOT-FACING /?ELS150 **** FILE PS:GOAL.ZAP.3, 1-695 (15520) EQUAL? PCOR,FALSE-VALUE,PLAYER-NOT-FACING /?ELS100 *************** **** FILE PS:GOAL.ZAP.1, 1-687 (15495) EQUAL? STACK,FALSE-VALUE,PLAYER-NOT-FACING \?ELS153 **** FILE PS:GOAL.ZAP.3, 1-697 (15606) EQUAL? STACK,FALSE-VALUE,PLAYER-NOT-FACING \?ELS102 *************** **** FILE PS:GOAL.ZAP.1, 1-690 (15611) ZERO? STACK \?CND154 **** FILE PS:GOAL.ZAP.3, 1-700 (15722) ZERO? STACK \?CND103 *************** **** FILE PS:GOAL.ZAP.1, 1-692 (15647) ?CND154: PRINTI " off to " **** FILE PS:GOAL.ZAP.3, 1-702 (15758) ?CND103: PRINTI " off to " *************** **** FILE PS:GOAL.ZAP.1, 1-695 (15710) ZERO? DOOR /?CND163 **** FILE PS:GOAL.ZAP.3, 1-705 (15821) ZERO? DOOR /?CND111 *************** **** FILE PS:GOAL.ZAP.1, 1-699 (15785) ?CND163: CALL ENTERS?,DIR,OWHERE ZERO? STACK /?ELS171 **** FILE PS:GOAL.ZAP.3, 1-709 (15896) ?CND111: CALL ENTERS?,DIR,OWHERE ZERO? STACK /?ELS116 *************** **** FILE PS:GOAL.ZAP.1, 1-703 (15894) JUMP ?CND169 ?ELS171: PRINTI " disappears " EQUAL? DIR,P?UP,P?DOWN /?CND180 **** FILE PS:GOAL.ZAP.3, 1-713 (16005) JUMP ?CND115 ?ELS116: PRINTI " disappears " EQUAL? DIR,P?UP,P?DOWN /?CND122 *************** **** FILE PS:GOAL.ZAP.1, 1-707 (15990) ?CND180: CALL DIR-PRINT,DIR ?CND169: ZERO? DOOR /?CND185 FSET? DOOR,LOCKED \?CND185 **** FILE PS:GOAL.ZAP.3, 1-717 (16101) ?CND122: CALL DIR-PRINT,DIR ?CND115: ZERO? DOOR /?CND126 FSET? DOOR,LOCKED \?CND126 *************** **** FILE PS:GOAL.ZAP.1, 1-711 (16108) ?CND185: PRINTI "." **** FILE PS:GOAL.ZAP.3, 1-721 (16219) ?CND126: PRINTI "." *************** **** FILE PS:GOAL.ZAP.1, 1-713 (16137) JUMP ?CND148 ?ELS153: SET 'VAL,TRUE-VALUE **** FILE PS:GOAL.ZAP.3, 1-723 (16248) JUMP ?CND99 ?ELS102: SET 'VAL,TRUE-VALUE *************** **** FILE PS:GOAL.ZAP.1, 1-719 (16289) EQUAL? PCOR,DIR \?ELS202 **** FILE PS:GOAL.ZAP.3, 1-729 (16399) EQUAL? PCOR,DIR \?ELS138 *************** **** FILE PS:GOAL.ZAP.1, 1-721 (16341) JUMP ?CND200 ?ELS202: CALL OPP-DIR,DIR EQUAL? PCOR,STACK \?ELS206 **** FILE PS:GOAL.ZAP.3, 1-731 (16451) JUMP ?CND137 ?ELS138: CALL OPP-DIR,DIR EQUAL? PCOR,STACK \?ELS141 *************** **** FILE PS:GOAL.ZAP.1, 1-725 (16434) JUMP ?CND200 ?ELS206: EQUAL? DIR,P?UP,P?DOWN /?CND211 **** FILE PS:GOAL.ZAP.3, 1-735 (16544) JUMP ?CND137 ?ELS141: EQUAL? DIR,P?UP,P?DOWN /?CND144 *************** **** FILE PS:GOAL.ZAP.1, 1-728 (16510) ?CND211: CALL DIR-PRINT,DIR ?CND200: PRINTI "." **** FILE PS:GOAL.ZAP.3, 1-738 (16620) ?CND144: CALL DIR-PRINT,DIR ?CND137: PRINTI "." *************** **** FILE PS:GOAL.ZAP.1, 1-731 (16568) JUMP ?CND148 ?ELS150: CALL CORRIDOR-LOOK,OWHERE,NCAR >PCOR EQUAL? PCOR,FALSE-VALUE,PLAYER-NOT-FACING /?CND23 **** FILE PS:GOAL.ZAP.3, 1-741 (16678) JUMP ?CND99 ?ELS100: CALL CORRIDOR-LOOK,OWHERE,NCAR >PCOR EQUAL? PCOR,FALSE-VALUE,PLAYER-NOT-FACING /?CND14 *************** **** FILE PS:GOAL.ZAP.1, 1-738 (16762) IN? BRIEFCASE,PERSON \?CND224 FSET? BRIEFCASE,SEENBIT /?CND224 **** FILE PS:GOAL.ZAP.3, 1-748 (16871) IN? BRIEFCASE,PERSON \?CND155 FSET? BRIEFCASE,SEENBIT /?CND155 *************** **** FILE PS:GOAL.ZAP.1, 1-744 (16913) ?CND224: PRINTI " appears" **** FILE PS:GOAL.ZAP.3, 1-754 (17022) ?CND155: PRINTI " appears" *************** **** FILE PS:GOAL.ZAP.1, 1-746 (16972) EQUAL? DIR,P?IN /?CND233 **** FILE PS:GOAL.ZAP.3, 1-756 (17081) EQUAL? DIR,P?IN /?CND162 *************** **** FILE PS:GOAL.ZAP.1, 1-749 (17045) ?CND233: PRINTI "." **** FILE PS:GOAL.ZAP.3, 1-759 (17154) ?CND162: PRINTI "." *************** **** FILE PS:GOAL.ZAP.1, 1-751 (17074) ?CND148: ?CND23: ZERO? PERSON \?ELS242 **** FILE PS:GOAL.ZAP.3, 1-761 (17183) ?CND99: ?CND14: ZERO? PERSON \?ELS169 *************** **** FILE PS:GOAL.ZAP.1, 1-755 (17147) JUMP ?CND240 ?ELS242: MOVE PERSON,WHERE ?CND240: EQUAL? PERSON,PLAYER /?CND247 EQUAL? PERSON,BAD-SPY \?ELS252 ZERO? BAD-SPY-DONE-PEEKING \?ELS252 **** FILE PS:GOAL.ZAP.3, 1-765 (17255) JUMP ?CND168 ?ELS169: MOVE PERSON,WHERE ?CND168: EQUAL? PERSON,PLAYER /?CND172 EQUAL? PERSON,BAD-SPY \?ELS175 ZERO? BAD-SPY-DONE-PEEKING \?ELS175 *************** **** FILE PS:GOAL.ZAP.1, 1-761 (17336) JUMP ?CND247 ?ELS252: EQUAL? PERSON,CONDUCTOR,CUSTOMS-AGENT /?CND247 **** FILE PS:GOAL.ZAP.3, 1-771 (17444) JUMP ?CND172 ?ELS175: EQUAL? PERSON,CONDUCTOR,CUSTOMS-AGENT /?CND172 *************** **** FILE PS:GOAL.ZAP.1, 1-764 (17433) ?CND247: ZERO? GT /?CND257 **** FILE PS:GOAL.ZAP.3, 1-774 (17541) ?CND172: ZERO? GT /?CND178 *************** **** FILE PS:GOAL.ZAP.1, 1-766 (17477) EQUAL? STACK,WHERE \?ELS263 **** FILE PS:GOAL.ZAP.3, 1-776 (17585) EQUAL? STACK,WHERE \?ELS181 *************** **** FILE PS:GOAL.ZAP.1, 1-768 (17539) ZERO? VAL \?CND261 **** FILE PS:GOAL.ZAP.3, 1-778 (17647) ZERO? VAL \?CND180 *************** **** FILE PS:GOAL.ZAP.1, 1-770 (17583) EQUAL? I-WALK-TRAIN,STACK /?CND261 EQUAL? HERE,WHERE \?CND261 FSET? PERSON,NDESCBIT /?CND261 **** FILE PS:GOAL.ZAP.3, 1-780 (17691) EQUAL? I-WALK-TRAIN,STACK /?CND180 EQUAL? HERE,WHERE \?CND180 FSET? PERSON,NDESCBIT /?CND180 *************** **** FILE PS:GOAL.ZAP.1, 1-777 (17773) JUMP ?CND261 ?ELS263: SET 'GOAL-PERSON,PERSON **** FILE PS:GOAL.ZAP.3, 1-787 (17881) JUMP ?CND180 ?ELS181: SET 'GOAL-PERSON,PERSON *************** **** FILE PS:GOAL.ZAP.1, 1-781 (17889) ?CND261: ?CND257: ZERO? DEBUG /?CND273 **** FILE PS:GOAL.ZAP.3, 1-791 (17997) ?CND180: ?CND178: ZERO? DEBUG /?CND187 *************** **** FILE PS:GOAL.ZAP.1, 1-790 (18080) ZERO? STACK /?CND279 **** FILE PS:GOAL.ZAP.3, 1-800 (18188) ZERO? STACK /?CND191 *************** **** FILE PS:GOAL.ZAP.1, 1-795 (18164) ?CND279: PRINTI ".]" **** FILE PS:GOAL.ZAP.3, 1-805 (18272) ?CND191: PRINTI ".]" *************** **** FILE PS:GOAL.ZAP.1, 1-798 (18207) ?CND273: RETURN VAL **** FILE PS:GOAL.ZAP.3, 1-808 (18315) ?CND187: RETURN VAL *************** **** FILE PS:GOAL.ZAP.1, 1-802 (18271) EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \?ELS3 EQUAL? THERE,ROOF \?ELS3 **** FILE PS:GOAL.ZAP.3, 1-812 (18379) EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \?ELS2 EQUAL? THERE,ROOF \?ELS2 *************** **** FILE PS:GOAL.ZAP.1, 1-805 (18369) ?ELS3: EQUAL? HERE,PLATFORM-A \?ELS7 EQUAL? THERE,PLATFORM-B \?ELS7 **** FILE PS:GOAL.ZAP.3, 1-815 (18477) ?ELS2: EQUAL? HERE,PLATFORM-A \?ELS4 EQUAL? THERE,PLATFORM-B \?ELS4 *************** **** FILE PS:GOAL.ZAP.1, 1-808 (18457) ?ELS7: EQUAL? HERE,PLATFORM-B \?ELS11 EQUAL? THERE,PLATFORM-A \?ELS11 **** FILE PS:GOAL.ZAP.3, 1-818 (18565) ?ELS4: EQUAL? HERE,PLATFORM-B \?ELS6 EQUAL? THERE,PLATFORM-A \?ELS6 *************** **** FILE PS:GOAL.ZAP.1, 1-811 (18547) ?ELS11: EQUAL? THERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER,OTHER-VESTIBULE-REAR \?ELS15 EQUAL? HERE,ROOF,OTHER-ROOF \?ELS15 **** FILE PS:GOAL.ZAP.3, 1-821 (18653) ?ELS6: EQUAL? THERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER,OTHER-VESTIBULE-REAR \?ELS8 EQUAL? HERE,ROOF,OTHER-ROOF \?ELS8 *************** **** FILE PS:GOAL.ZAP.1, 1-814 (18688) ?ELS15: EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER,OTHER-VESTIBULE-REAR \?ELS19 **** FILE PS:GOAL.ZAP.3, 1-824 (18791) ?ELS8: EQUAL? HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER,OTHER-VESTIBULE-REAR \?ELS10 *************** **** FILE PS:GOAL.ZAP.1, 1-816 (18800) ZERO? STACK /?ELS19 **** FILE PS:GOAL.ZAP.3, 1-826 (18902) ZERO? STACK /?ELS10 *************** **** FILE PS:GOAL.ZAP.1, 1-818 (18838) ?ELS19: EQUAL? THERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER,OTHER-VESTIBULE-REAR \?ELS23 **** FILE PS:GOAL.ZAP.3, 1-828 (18940) ?ELS10: EQUAL? THERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER,OTHER-VESTIBULE-REAR \?ELS12 *************** **** FILE PS:GOAL.ZAP.1, 1-820 (18950) ZERO? STACK /?ELS23 **** FILE PS:GOAL.ZAP.3, 1-830 (19052) ZERO? STACK /?ELS12 *************** **** FILE PS:GOAL.ZAP.1, 1-822 (18986) ?ELS23: EQUAL? HERE,VESTIBULE-FWD,OTHER-VESTIBULE-FWD \?ELS31 EQUAL? THERE,LIMBO-FWD,OTHER-LIMBO-FWD /?THN28 ?ELS31: EQUAL? HERE,VESTIBULE-FWD-DINER \?ELS27 EQUAL? THERE,LIMBO-FWD-DINER \?ELS27 ?THN28: RETURN P?NORTH ?ELS27: EQUAL? HERE,VESTIBULE-REAR,OTHER-VESTIBULE-REAR \?ELS39 EQUAL? THERE,LIMBO-REAR,OTHER-LIMBO-REAR /?THN36 ?ELS39: EQUAL? HERE,VESTIBULE-REAR-DINER \?CND1 **** FILE PS:GOAL.ZAP.3, 1-832 (19088) ?ELS12: EQUAL? HERE,VESTIBULE-FWD,OTHER-VESTIBULE-FWD \?ELS15 EQUAL? THERE,LIMBO-FWD,OTHER-LIMBO-FWD /?THN14 ?ELS15: EQUAL? HERE,VESTIBULE-FWD-DINER \?ELS16 EQUAL? THERE,LIMBO-FWD-DINER \?ELS16 ?THN14: RETURN P?NORTH ?ELS16: EQUAL? HERE,VESTIBULE-REAR,OTHER-VESTIBULE-REAR \?ELS19 EQUAL? THERE,LIMBO-REAR,OTHER-LIMBO-REAR /?THN18 ?ELS19: EQUAL? HERE,VESTIBULE-REAR-DINER \?CND1 *************** **** FILE PS:GOAL.ZAP.1, 1-831 (19414) ?THN36: RETURN P?SOUTH **** FILE PS:GOAL.ZAP.3, 1-841 (19516) ?THN18: RETURN P?SOUTH *************** **** FILE PS:GOAL.ZAP.1, 1-833 (19481) ZERO? STACK /?ELS44 **** FILE PS:GOAL.ZAP.3, 1-843 (19583) ZERO? STACK /?ELS23 *************** **** FILE PS:GOAL.ZAP.1, 1-835 (19517) ?ELS44: CALL DIR-FROM-TEST,HERE,THERE,P?OUT ZERO? STACK /?CND42 **** FILE PS:GOAL.ZAP.3, 1-845 (19619) ?ELS23: CALL DIR-FROM-TEST,HERE,THERE,P?OUT ZERO? STACK /?CND22 *************** **** FILE PS:GOAL.ZAP.1, 1-838 (19599) ?CND42: ?PRG47: NEXTP HERE,P >P LESS? P,LOW-DIRECTION \?ELS51 **** FILE PS:GOAL.ZAP.3, 1-848 (19701) ?CND22: ?PRG25: NEXTP HERE,P >P LESS? P,LOW-DIRECTION \?ELS28 *************** **** FILE PS:GOAL.ZAP.1, 1-842 (19677) ?ELS51: CALL DIR-FROM-TEST,HERE,THERE,P >D ZERO? D /?PRG47 LESS? D,LOW-DIRECTION \?ELS56 ZERO? V \?ELS56 **** FILE PS:GOAL.ZAP.3, 1-852 (19779) ?ELS28: CALL DIR-FROM-TEST,HERE,THERE,P >D ZERO? D /?PRG25 LESS? D,LOW-DIRECTION \?ELS31 ZERO? V \?ELS31 *************** **** FILE PS:GOAL.ZAP.1, 1-847 (19800) JUMP ?PRG47 ?ELS56: RETURN P **** FILE PS:GOAL.ZAP.3, 1-857 (19902) JUMP ?CND30 ?ELS31: RETURN P ?CND30: JUMP ?PRG25 *************** **** FILE PS:GOAL.ZAP.1, 1-862 (20065) ?PRG1: IGRTR? 'CNT,CHARACTER-MAX \?ELS5 **** FILE PS:GOAL.ZAP.3, 1-873 (20188) ?PRG1: IGRTR? 'CNT,CHARACTER-MAX \?ELS4 *************** **** FILE PS:GOAL.ZAP.1, 1-864 (20119) ?ELS5: GET GOAL-TABLES,CNT >GT **** FILE PS:GOAL.ZAP.3, 1-875 (20242) ?ELS4: GET GOAL-TABLES,CNT >GT *************** **** FILE PS:GOAL.ZAP.1, 1-879 (20410) EQUAL? ARG,G-ENROUTE \?ELS5 **** FILE PS:GOAL.ZAP.3, 1-890 (20533) EQUAL? ARG,G-ENROUTE \?ELS4 *************** **** FILE PS:GOAL.ZAP.1, 1-881 (20497) ZERO? VAL /?ELS10 EQUAL? NOW-LURCHING,MOVES /?THN13 **** FILE PS:GOAL.ZAP.3, 1-892 (20620) ZERO? VAL /?ELS8 EQUAL? NOW-LURCHING,MOVES /?THN9 *************** **** FILE PS:GOAL.ZAP.1, 1-884 (20566) LESS? 50,STACK /?ELS10 ?THN13: GETP VAL,P?LDESC ZERO? STACK \?CND15 **** FILE PS:GOAL.ZAP.3, 1-895 (20687) LESS? 50,STACK /?ELS8 ?THN9: GETP VAL,P?LDESC ZERO? STACK \?CND11 *************** **** FILE PS:GOAL.ZAP.1, 1-890 (20707) ?CND15: CALL DIR-FROM,HERE,LAST-PLAYER-LOC ZERO? STACK \?CND18 **** FILE PS:GOAL.ZAP.3, 1-901 (20826) ?CND11: CALL DIR-FROM,HERE,LAST-PLAYER-LOC ZERO? STACK \?CND13 *************** **** FILE PS:GOAL.ZAP.1, 1-893 (20781) ?CND18: EQUAL? NOW-LURCHING,MOVES \?ELS23 EQUAL? VAL,PICKPOCKET \?CND24 **** FILE PS:GOAL.ZAP.3, 1-904 (20900) ?CND13: EQUAL? NOW-LURCHING,MOVES \?ELS16 EQUAL? VAL,PICKPOCKET \?CND17 *************** **** FILE PS:GOAL.ZAP.1, 1-896 (20879) ?CND24: PRINTI "As the train lurches," **** FILE PS:GOAL.ZAP.3, 1-907 (20998) ?CND17: PRINTI "As the train lurches," *************** **** FILE PS:GOAL.ZAP.1, 1-899 (20964) JUMP ?CND21 ?ELS23: CALL START-SENTENCE,VAL **** FILE PS:GOAL.ZAP.3, 1-910 (21083) JUMP ?CND15 ?ELS16: CALL START-SENTENCE,VAL *************** **** FILE PS:GOAL.ZAP.1, 1-902 (21040) ?CND21: PRINTR " at this point." ?ELS10: PRINTI "(" **** FILE PS:GOAL.ZAP.3, 1-913 (21159) ?CND15: PRINTR " at this point." ?ELS8: PRINTI "(" *************** **** FILE PS:GOAL.ZAP.1, 1-910 (21181) ?ELS5: EQUAL? ARG,G-REACHED /TRUE **** FILE PS:GOAL.ZAP.3, 1-921 (21299) ?ELS4: EQUAL? ARG,G-REACHED /TRUE *************** **** FILE PS:GOAL.ZAP.1, 1-916 (21279) LESS? 2,STACK \?ELS3 **** FILE PS:GOAL.ZAP.3, 1-927 (21397) LESS? 2,STACK \?ELS2 *************** **** FILE PS:GOAL.ZAP.1, 1-919 (21338) ?ELS3: FIRST? POCKET >X /?CND1 **** FILE PS:GOAL.ZAP.3, 1-930 (21456) ?ELS2: FIRST? POCKET >X /?CND1 *************** **** FILE PS:GOAL.ZAP.1, 1-922 (21403) ?CND1: NEXT? X >Y \?CND12 **** FILE PS:GOAL.ZAP.3, 1-933 (21521) ?CND1: NEXT? X >Y \?CND7 *************** **** FILE PS:GOAL.ZAP.1, 1-924 (21441) ?CND12: EQUAL? X,BRIEFCASE /FALSE **** FILE PS:GOAL.ZAP.3, 1-935 (21558) ?CND7: EQUAL? X,BRIEFCASE /FALSE *************** **** FILE PS:GOAL.ZAP.1, 1-935 (21670) EQUAL? GARG,G-REACHED \?CND7 EQUAL? L,VESTIBULE-REAR,VESTIBULE-REAR-DINER,OTHER-VESTIBULE-REAR \?ELS12 **** FILE PS:GOAL.ZAP.3, 1-946 (21786) EQUAL? GARG,G-REACHED \?CND5 EQUAL? L,VESTIBULE-REAR,VESTIBULE-REAR-DINER,OTHER-VESTIBULE-REAR \?ELS8 *************** **** FILE PS:GOAL.ZAP.1, 1-938 (21805) GRTR? P,PLATFORM-MAX \?CND13 **** FILE PS:GOAL.ZAP.3, 1-949 (21920) GRTR? P,PLATFORM-MAX \?CND9 *************** **** FILE PS:GOAL.ZAP.1, 1-940 (21858) ?CND13: GET STATION-ROOMS,P **** FILE PS:GOAL.ZAP.3, 1-951 (21972) ?CND9: GET STATION-ROOMS,P *************** **** FILE PS:GOAL.ZAP.1, 1-945 (22012) EQUAL? STACK,I-TRAVELER-FINDS-CONTACT \?ELS18 **** FILE PS:GOAL.ZAP.3, 1-956 (22125) EQUAL? STACK,I-TRAVELER-FINDS-CONTACT \?ELS12 *************** **** FILE PS:GOAL.ZAP.1, 1-948 (22153) JUMP ?CND10 ?ELS18: CALL ESTABLISH-GOAL,GOAL-PERSON,PLATFORM-B JUMP ?CND10 ?ELS12: EQUAL? L,PLATFORM-B \?ELS22 **** FILE PS:GOAL.ZAP.3, 1-959 (22266) JUMP ?CND7 ?ELS12: CALL ESTABLISH-GOAL,GOAL-PERSON,PLATFORM-B JUMP ?CND7 ?ELS8: EQUAL? L,PLATFORM-B \?ELS13 *************** **** FILE PS:GOAL.ZAP.1, 1-953 (22298) ZERO? STACK /?CND23 **** FILE PS:GOAL.ZAP.3, 1-964 (22408) ZERO? STACK /?CND14 *************** **** FILE PS:GOAL.ZAP.1, 1-959 (22470) IN? BRIEFCASE,GOAL-PERSON \?CND28 **** FILE PS:GOAL.ZAP.3, 1-970 (22580) IN? BRIEFCASE,GOAL-PERSON \?CND18 *************** **** FILE PS:GOAL.ZAP.1, 1-961 (22536) ?CND28: PRINTI "to" **** FILE PS:GOAL.ZAP.3, 1-972 (22646) ?CND18: PRINTI "to" *************** **** FILE PS:GOAL.ZAP.1, 1-965 (22606) ?CND23: CALL ESTABLISH-GOAL,GOAL-PERSON,PLATFORM-A JUMP ?CND7 ?ELS22: EQUAL? L,PLATFORM-A \?ELS36 **** FILE PS:GOAL.ZAP.3, 1-976 (22716) ?CND14: CALL ESTABLISH-GOAL,GOAL-PERSON,PLATFORM-A JUMP ?CND5 ?ELS13: EQUAL? L,PLATFORM-A \?ELS24 *************** **** FILE PS:GOAL.ZAP.1, 1-972 (22827) EQUAL? EGO,BAD-SPY \?CND37 EQUAL? P,BAD-SPY-C \?CND37 **** FILE PS:GOAL.ZAP.3, 1-983 (22937) EQUAL? EGO,BAD-SPY \?CND25 EQUAL? P,BAD-SPY-C \?CND25 *************** **** FILE PS:GOAL.ZAP.1, 1-976 (22966) ?CND37: GET CHAR-LOCS,P >?TMP1 **** FILE PS:GOAL.ZAP.3, 1-987 (23076) ?CND25: GET CHAR-LOCS,P >?TMP1 *************** **** FILE PS:GOAL.ZAP.1, 1-979 (23068) JUMP ?CND7 ?ELS36: PRINTI "[!! LEAVE-TRAIN GOAL? (" **** FILE PS:GOAL.ZAP.3, 1-990 (23178) JUMP ?CND5 ?ELS24: PRINTI "[!! LEAVE-TRAIN GOAL? (" *************** **** FILE PS:GOAL.ZAP.1, 1-987 (23212) ?CND10: ?CND7: ZERO? IDEBUG /?CND46 **** FILE PS:GOAL.ZAP.3, 1-998 (23322) ?CND7: ?CND5: ZERO? IDEBUG /?CND30 *************** **** FILE PS:GOAL.ZAP.1, 1-993 (23298) ?CND46: RETURN VAL **** FILE PS:GOAL.ZAP.3, 1-1004 (23407) ?CND30: RETURN VAL *************** **** FILE PS:GOAL.ZAP.1, 1-1005 (23593) EQUAL? GARG,G-ENROUTE \?ELS9 **** FILE PS:GOAL.ZAP.3, 1-1016 (23702) EQUAL? GARG,G-ENROUTE \?ELS6 *************** **** FILE PS:GOAL.ZAP.1, 1-1007 (23666) JUMP ?CND7 ?ELS9: EQUAL? GARG,G-REACHED \?CND7 **** FILE PS:GOAL.ZAP.3, 1-1018 (23775) JUMP ?CND5 ?ELS6: EQUAL? GARG,G-REACHED \?CND5 *************** **** FILE PS:GOAL.ZAP.1, 1-1010 (23747) EQUAL? L,LIMBO-FWD,LIMBO-FWD-DINER,OTHER-LIMBO-FWD \?ELS14 **** FILE PS:GOAL.ZAP.3, 1-1021 (23856) EQUAL? L,LIMBO-FWD,LIMBO-FWD-DINER,OTHER-LIMBO-FWD \?ELS9 *************** **** FILE PS:GOAL.ZAP.1, 1-1016 (23930) EQUAL? CAR,CARH \?ELS17 EQUAL? CARH,DINER-CAR,CAR-HERE /?CND18 **** FILE PS:GOAL.ZAP.3, 1-1027 (24038) EQUAL? CAR,CARH \?ELS11 EQUAL? CARH,DINER-CAR,CAR-HERE /?CND12 *************** **** FILE PS:GOAL.ZAP.1, 1-1019 (24021) ?CND18: CALL ESTABLISH-GOAL,GOAL-PERSON,GOAL,2 JUMP ?CND12 ?ELS17: CALL L-FWD,CARH **** FILE PS:GOAL.ZAP.3, 1-1030 (24129) ?CND12: CALL ESTABLISH-GOAL,GOAL-PERSON,GOAL,2 JUMP ?CND8 ?ELS11: CALL L-FWD,CARH *************** **** FILE PS:GOAL.ZAP.1, 1-1023 (24150) JUMP ?CND12 ?ELS14: EQUAL? L,LIMBO-REAR,LIMBO-REAR-DINER,OTHER-LIMBO-REAR \?ELS24 **** FILE PS:GOAL.ZAP.3, 1-1034 (24257) JUMP ?CND8 ?ELS9: EQUAL? L,LIMBO-REAR,LIMBO-REAR-DINER,OTHER-LIMBO-REAR \?ELS14 *************** **** FILE PS:GOAL.ZAP.1, 1-1030 (24356) EQUAL? CAR,CARH \?ELS27 EQUAL? CARH,DINER-CAR,CAR-HERE /?CND28 **** FILE PS:GOAL.ZAP.3, 1-1041 (24461) EQUAL? CAR,CARH \?ELS16 EQUAL? CARH,DINER-CAR,CAR-HERE /?CND17 *************** **** FILE PS:GOAL.ZAP.1, 1-1033 (24447) ?CND28: CALL ESTABLISH-GOAL,GOAL-PERSON,GOAL,2 JUMP ?CND12 ?ELS27: CALL L-REAR,CARH **** FILE PS:GOAL.ZAP.3, 1-1044 (24552) ?CND17: CALL ESTABLISH-GOAL,GOAL-PERSON,GOAL,2 JUMP ?CND8 ?ELS16: CALL L-REAR,CARH *************** **** FILE PS:GOAL.ZAP.1, 1-1037 (24577) JUMP ?CND12 ?ELS24: PRINTI "[!! WALK-TRAIN GOAL? (" **** FILE PS:GOAL.ZAP.3, 1-1048 (24681) JUMP ?CND8 ?ELS14: PRINTI "[!! WALK-TRAIN GOAL? (" *************** **** FILE PS:GOAL.ZAP.1, 1-1045 (24721) ?CND12: ?CND7: ZERO? IDEBUG /?CND37 **** FILE PS:GOAL.ZAP.3, 1-1056 (24824) ?CND8: ?CND5: ZERO? IDEBUG /?CND21 *************** **** FILE PS:GOAL.ZAP.1, 1-1051 (24807) ?CND37: RETURN VAL **** FILE PS:GOAL.ZAP.3, 1-1062 (24909) ?CND21: RETURN VAL *************** **** FILE PS:GOAL.ZAP.1, 1-1055 (24864) FIRST? OBJ >F /?KLU15 ?KLU15: **** FILE PS:GOAL.ZAP.3, 1-1066 (24966) FIRST? OBJ >F /?KLU9 ?KLU9: *************** **** FILE PS:GOAL.ZAP.1, 1-1058 (24920) NEXT? F >N /?KLU16 ?KLU16: GETP F,P?CAR ZERO? STACK /?CND9 **** FILE PS:GOAL.ZAP.3, 1-1069 (25020) NEXT? F >N /?CND3 ?CND3: GETP F,P?CAR ZERO? STACK /?CND5 *************** **** FILE PS:GOAL.ZAP.1, 1-1062 (25003) FIRST? F \?CND9 **** FILE PS:GOAL.ZAP.3, 1-1073 (25101) FIRST? F \?CND5 *************** **** FILE PS:GOAL.ZAP.1, 1-1064 (25046) ?CND9: SET 'F,N **** FILE PS:GOAL.ZAP.3, 1-1075 (25144) ?CND5: SET 'F,N *************** **** FILE PS:GOAL.ZAP.1, 1-1074 (25253) ZERO? GARG \?ELS11 EQUAL? CLERK,EXTRA /?ELS11 ZERO? ON-TRAIN \?CND14 **** FILE PS:GOAL.ZAP.3, 1-1085 (25351) ZERO? GARG \?ELS8 EQUAL? CLERK,EXTRA /?ELS8 ZERO? ON-TRAIN \?CND10 *************** **** FILE PS:GOAL.ZAP.1, 1-1083 (25421) ?CND14: RANDOM 2 **** FILE PS:GOAL.ZAP.3, 1-1094 (25517) ?CND10: RANDOM 2 *************** **** FILE PS:GOAL.ZAP.1, 1-1087 (25494) LESS? NCAR,1 \?ELS25 **** FILE PS:GOAL.ZAP.3, 1-1098 (25590) LESS? NCAR,1 \?ELS17 *************** **** FILE PS:GOAL.ZAP.1, 1-1089 (25531) JUMP ?CND23 ?ELS25: GRTR? NCAR,CAR-MAX \?CND23 **** FILE PS:GOAL.ZAP.3, 1-1100 (25627) JUMP ?CND16 ?ELS17: GRTR? NCAR,CAR-MAX \?CND16 *************** **** FILE PS:GOAL.ZAP.1, 1-1092 (25601) ?CND23: EQUAL? NCAR,DINER-CAR \?ELS30 **** FILE PS:GOAL.ZAP.3, 1-1103 (25697) ?CND16: EQUAL? NCAR,DINER-CAR \?ELS20 *************** **** FILE PS:GOAL.ZAP.1, 1-1094 (25679) JUMP ?CND28 ?ELS30: CALL PICK-ONE,CAR-ROOMS-COMPS >DEST ?CND28: ZERO? DEBUG /?CND33 **** FILE PS:GOAL.ZAP.3, 1-1105 (25775) JUMP ?CND19 ?ELS20: CALL PICK-ONE,CAR-ROOMS-COMPS >DEST ?CND19: ZERO? DEBUG /?CND21 *************** **** FILE PS:GOAL.ZAP.1, 1-1110 (25968) ?CND33: EQUAL? NCAR,GAS-CAR \?CND39 EQUAL? DEST,GAS-CAR-RM \?CND39 **** FILE PS:GOAL.ZAP.3, 1-1121 (26064) ?CND21: EQUAL? NCAR,GAS-CAR \?CND25 EQUAL? DEST,GAS-CAR-RM \?CND25 *************** **** FILE PS:GOAL.ZAP.1, 1-1113 (26064) ?CND39: GET GOAL-TABLES,EXTRA-C **** FILE PS:GOAL.ZAP.3, 1-1124 (26160) ?CND25: GET GOAL-TABLES,EXTRA-C *************** **** FILE PS:GOAL.ZAP.1, 1-1120 (26230) ?ELS11: EQUAL? GARG,G-ENROUTE \?ELS54 EQUAL? L,HERE \?CND55 **** FILE PS:GOAL.ZAP.3, 1-1131 (26326) ?ELS8: EQUAL? GARG,G-ENROUTE \?ELS33 EQUAL? L,HERE \?CND34 *************** **** FILE PS:GOAL.ZAP.1, 1-1126 (26376) ?CND55: CALL VISIBLE?,LAST-EXTRA-LOC >VLEL ZERO? VL /?ELS68 ZERO? VLEL \?ELS68 **** FILE PS:GOAL.ZAP.3, 1-1137 (26471) ?CND34: CALL VISIBLE?,LAST-EXTRA-LOC >VLEL ZERO? VL /?ELS43 ZERO? VLEL \?ELS43 *************** **** FILE PS:GOAL.ZAP.1, 1-1133 (26550) ?ELS68: ZERO? VL \?ELS80 ZERO? VLEL /?ELS80 **** FILE PS:GOAL.ZAP.3, 1-1144 (26645) ?ELS43: ZERO? VL \?ELS51 ZERO? VLEL /?ELS51 *************** **** FILE PS:GOAL.ZAP.1, 1-1139 (26687) ?ELS80: SET 'LAST-EXTRA-LOC,L **** FILE PS:GOAL.ZAP.3, 1-1150 (26782) ?ELS51: SET 'LAST-EXTRA-LOC,L *************** **** FILE PS:GOAL.ZAP.1, 1-1144 (26772) ?ELS54: EQUAL? GARG,G-REACHED \?CND52 **** FILE PS:GOAL.ZAP.3, 1-1155 (26867) ?ELS33: EQUAL? GARG,G-REACHED \?CND32 *************** **** FILE PS:GOAL.ZAP.1, 1-1149 (26922) ?CND52: EQUAL? CAR-HERE,DINER-CAR \?ELS103 **** FILE PS:GOAL.ZAP.3, 1-1160 (27017) ?CND32: EQUAL? CAR-HERE,DINER-CAR \?ELS65 *************** **** FILE PS:GOAL.ZAP.1, 1-1151 (27005) JUMP ?CND101 ?ELS103: CALL PICK-ONE,CAR-ROOMS-COMPS >DEST ?CND101: CALL CALL-FOR-EXTRA,DEST,CAR-HERE,EXTRA >EXTRA ZERO? EXTRA /?ELS108 **** FILE PS:GOAL.ZAP.3, 1-1162 (27099) JUMP ?CND64 ?ELS65: CALL PICK-ONE,CAR-ROOMS-COMPS >DEST ?CND64: CALL CALL-FOR-EXTRA,DEST,CAR-HERE,EXTRA >EXTRA ZERO? EXTRA /?ELS67 *************** **** FILE PS:GOAL.ZAP.1, 1-1160 (27291) JUMP ?CND106 ?ELS108: CALL QUEUE,I-EXTRA,5 **** FILE PS:GOAL.ZAP.3, 1-1171 (27381) JUMP ?CND66 ?ELS67: CALL QUEUE,I-EXTRA,5 *************** **** FILE PS:GOAL.ZAP.1, 1-1163 (27353) ?CND106: ZERO? IDEBUG /?CND112 **** FILE PS:GOAL.ZAP.3, 1-1174 (27441) ?CND66: ZERO? IDEBUG /?CND68 *************** **** FILE PS:GOAL.ZAP.1, 1-1167 (27418) ?CND112: RETURN VL **** FILE PS:GOAL.ZAP.3, 1-1178 (27504) ?CND68: RETURN VL *************** **** FILE PS:GOAL.ZAP.1, 1-1172 (27490) ZERO? TICKETS-PUNCHED? /?ELS3 **** FILE PS:GOAL.ZAP.3, 1-1183 (27575) ZERO? TICKETS-PUNCHED? /?ELS2 *************** **** FILE PS:GOAL.ZAP.1, 1-1174 (27551) ?ELS3: ZERO? ON-TRAIN /FALSE **** FILE PS:GOAL.ZAP.3, 1-1185 (27636) ?ELS2: ZERO? ON-TRAIN /FALSE *************** **** FILE PS:GOAL.ZAP.1, 1-1179 (27658) ZERO? X \?THN13 **** FILE PS:GOAL.ZAP.3, 1-1190 (27743) ZERO? X \?THN7 *************** **** FILE PS:GOAL.ZAP.1, 1-1181 (27695) ZERO? X /?CND10 ?THN13: GET X,REXIT >X ?CND10: ZERO? X /FALSE **** FILE PS:GOAL.ZAP.3, 1-1192 (27779) ZERO? X /?CND6 ?THN7: CALL GET-REXIT-ROOM,X >X ?CND6: ZERO? X /FALSE *************** **** FILE PS:GOAL.ZAP.1, 1-1192 (27910) ZERO? GARG \?ELS11 **** FILE PS:GOAL.ZAP.3, 1-1203 (28001) ZERO? GARG \?ELS8 *************** **** FILE PS:GOAL.ZAP.1, 1-1198 (28048) ?ELS11: EQUAL? GARG,G-REACHED \?ELS19 EQUAL? L,PLATFORM-A \?ELS24 **** FILE PS:GOAL.ZAP.3, 1-1209 (28138) ?ELS8: EQUAL? GARG,G-REACHED \?ELS13 EQUAL? L,PLATFORM-A \?ELS17 *************** **** FILE PS:GOAL.ZAP.1, 1-1204 (28224) ZERO? STACK /?ELS29 **** FILE PS:GOAL.ZAP.3, 1-1215 (28313) ZERO? STACK /?ELS21 *************** **** FILE PS:GOAL.ZAP.1, 1-1210 (28350) ?ELS29: ZERO? IDEBUG /FALSE **** FILE PS:GOAL.ZAP.3, 1-1221 (28439) ?ELS21: ZERO? IDEBUG /FALSE *************** **** FILE PS:GOAL.ZAP.1, 1-1214 (28413) ?ELS24: EQUAL? L,VESTIBULE-FWD,OTHER-VESTIBULE-FWD \?ELS47 **** FILE PS:GOAL.ZAP.3, 1-1225 (28502) ?ELS17: EQUAL? L,VESTIBULE-FWD,OTHER-VESTIBULE-FWD \?ELS32 *************** **** FILE PS:GOAL.ZAP.1, 1-1217 (28574) ZERO? IDEBUG /?CND48 **** FILE PS:GOAL.ZAP.3, 1-1228 (28663) ZERO? IDEBUG /?CND33 *************** **** FILE PS:GOAL.ZAP.1, 1-1222 (28640) ?CND48: RETURN X ?ELS47: EQUAL? L,VESTIBULE-REAR,OTHER-VESTIBULE-REAR \?ELS55 **** FILE PS:GOAL.ZAP.3, 1-1233 (28729) ?CND33: RETURN X ?ELS32: EQUAL? L,VESTIBULE-REAR,OTHER-VESTIBULE-REAR \?ELS37 *************** **** FILE PS:GOAL.ZAP.1, 1-1228 (28882) ZERO? IDEBUG /?CND56 **** FILE PS:GOAL.ZAP.3, 1-1239 (28971) ZERO? IDEBUG /?CND38 *************** **** FILE PS:GOAL.ZAP.1, 1-1233 (28948) ?CND56: RETURN X ?ELS55: ZERO? IDEBUG /FALSE **** FILE PS:GOAL.ZAP.3, 1-1244 (29037) ?CND38: RETURN X ?ELS37: ZERO? IDEBUG /FALSE *************** **** FILE PS:GOAL.ZAP.1, 1-1238 (29029) ?ELS19: EQUAL? GARG,G-ENROUTE \FALSE **** FILE PS:GOAL.ZAP.3, 1-1249 (29118) ?ELS13: EQUAL? GARG,G-ENROUTE \FALSE *************** **** FILE PS:GOAL.ZAP.1, 1-1240 (29090) ZERO? STACK /?CND72 **** FILE PS:GOAL.ZAP.3, 1-1251 (29179) ZERO? STACK /?CND47 *************** **** FILE PS:GOAL.ZAP.1, 1-1244 (29207) ZERO? DEBUG \?THN78 EQUAL? X,FALSE-VALUE,PLAYER-NOT-FACING /?CND72 ?THN78: ZERO? DEBUG /?CND80 **** FILE PS:GOAL.ZAP.3, 1-1255 (29296) ZERO? DEBUG \?THN50 EQUAL? X,FALSE-VALUE,PLAYER-NOT-FACING /?CND47 ?THN50: ZERO? DEBUG /?CND52 *************** **** FILE PS:GOAL.ZAP.1, 1-1248 (29320) ?CND80: CALL THIS-IS-IT,TICKET **** FILE PS:GOAL.ZAP.3, 1-1259 (29409) ?CND52: CALL THIS-IS-IT,TICKET *************** **** FILE PS:GOAL.ZAP.1, 1-1250 (29384) IN? CONDUCTOR,HERE /?CND88 ZERO? X /?CND88 **** FILE PS:GOAL.ZAP.3, 1-1261 (29473) IN? CONDUCTOR,HERE /?CND58 ZERO? X /?CND58 *************** **** FILE PS:GOAL.ZAP.1, 1-1257 (29539) ?CND88: PRINTI " stops " IN? CONDUCTOR,HERE \?CND99 **** FILE PS:GOAL.ZAP.3, 1-1268 (29628) ?CND58: PRINTI " stops " IN? CONDUCTOR,HERE \?CND67 *************** **** FILE PS:GOAL.ZAP.1, 1-1260 (29611) ?CND99: PRINTI "to " ZERO? CUSTOMS-SWEEP /?ELS108 **** FILE PS:GOAL.ZAP.3, 1-1271 (29700) ?CND67: PRINTI "to " ZERO? CUSTOMS-SWEEP /?ELS74 *************** **** FILE PS:GOAL.ZAP.1, 1-1263 (29710) JUMP ?CND106 ?ELS108: PRINTI "punch tickets." ?CND106: ZERO? X \?CND116 **** FILE PS:GOAL.ZAP.3, 1-1274 (29798) JUMP ?CND73 ?ELS74: PRINTI "punch tickets." ?CND73: ZERO? X \?CND79 *************** **** FILE PS:GOAL.ZAP.1, 1-1267 (29799) ?CND116: CRLF ?CND72: ZERO? IDEBUG /FALSE **** FILE PS:GOAL.ZAP.3, 1-1278 (29883) ?CND79: CRLF ?CND47: ZERO? IDEBUG /FALSE *************** **** FILE PS:GOAL.ZAP.1, 1-1284 (30116) EQUAL? L,STACK \?ELS3 EQUAL? CAR,CAR-HERE \?ELS3 ZERO? CUSTOMS-SWEEP \?THN6 FSET? PLAYER,LOCKED \?ELS3 ?THN6: RETURN PLAYER ?ELS3: EQUAL? L,GAS-CAR-RM \?CND1 **** FILE PS:GOAL.ZAP.3, 1-1295 (30199) EQUAL? L,STACK \?ELS2 EQUAL? CAR,CAR-HERE \?ELS2 ZERO? CUSTOMS-SWEEP \?THN3 FSET? PLAYER,LOCKED \?ELS2 ?THN3: RETURN PLAYER ?ELS2: EQUAL? L,GAS-CAR-RM \?CND1 *************** **** FILE PS:GOAL.ZAP.1, 1-1291 (30312) ZERO? CUSTOMS-SWEEP \?THN12 **** FILE PS:GOAL.ZAP.3, 1-1302 (30395) ZERO? CUSTOMS-SWEEP \?THN6 *************** **** FILE PS:GOAL.ZAP.1, 1-1293 (30374) ?THN12: SET 'CONDUCTOR-KNOWS,BRIEFCASE **** FILE PS:GOAL.ZAP.3, 1-1304 (30456) ?THN6: SET 'CONDUCTOR-KNOWS,BRIEFCASE *************** **** FILE PS:GOAL.ZAP.1, 1-1295 (30424) ?CND1: FIRST? L >O /?KLU29 ?KLU29: ?PRG14: ZERO? O \?ELS18 **** FILE PS:GOAL.ZAP.3, 1-1306 (30505) ?CND1: FIRST? L >O /?KLU18 ?KLU18: ?PRG8: ZERO? O \?ELS11 *************** **** FILE PS:GOAL.ZAP.1, 1-1299 (30500) ?ELS18: FSET? O,PERSONBIT \?CND16 FSET? O,LOCKED \?CND16 **** FILE PS:GOAL.ZAP.3, 1-1310 (30580) ?ELS11: FSET? O,PERSONBIT \?CND10 FSET? O,LOCKED \?CND10 *************** **** FILE PS:GOAL.ZAP.1, 1-1302 (30575) EQUAL? CAR,STACK \?CND16 ZERO? VAL \?CND23 **** FILE PS:GOAL.ZAP.3, 1-1313 (30655) EQUAL? CAR,STACK \?CND10 ZERO? VAL \?CND14 *************** **** FILE PS:GOAL.ZAP.1, 1-1305 (30635) ?CND23: CALL IN-MOTION?,O ZERO? STACK /?CND16 **** FILE PS:GOAL.ZAP.3, 1-1316 (30715) ?CND14: CALL IN-MOTION?,O ZERO? STACK /?CND10 *************** **** FILE PS:GOAL.ZAP.1, 1-1310 (30765) ?CND16: NEXT? O >O /?KLU30 ?KLU30: JUMP ?PRG14 **** FILE PS:GOAL.ZAP.3, 1-1321 (30845) ?CND10: NEXT? O >O /?KLU19 ?KLU19: JUMP ?PRG8 *************** **** FILE PS:GOAL.ZAP.1, 1-1324 (31073) ZERO? IDEBUG /?CND19 **** FILE PS:GOAL.ZAP.3, 1-1335 (31152) ZERO? IDEBUG /?CND15 *************** **** FILE PS:GOAL.ZAP.1, 1-1327 (31120) ?CND19: RETURN 2 **** FILE PS:GOAL.ZAP.3, 1-1338 (31199) ?CND15: RETURN 2 *************** **** FILE PS:GOAL.ZAP.1, 1-1333 (31217) ?CND1: ZERO? GARG /?CND7 **** FILE PS:GOAL.ZAP.3, 1-1344 (31296) ?CND1: ZERO? GARG /?CND5 *************** **** FILE PS:GOAL.ZAP.1, 1-1338 (31299) ?CND7: EQUAL? HERE,ROOF \?ELS19 ZERO? SUPPRESS-I-BOND \?ELS22 **** FILE PS:GOAL.ZAP.3, 1-1349 (31378) ?CND5: EQUAL? HERE,ROOF \?ELS12 ZERO? SUPPRESS-I-BOND \?ELS14 *************** **** FILE PS:GOAL.ZAP.1, 1-1346 (31481) JUMP ?CND17 ?ELS22: SET 'SUPPRESS-I-BOND,FALSE-VALUE JUMP ?CND17 ?ELS19: INC 'BOND-CTR EQUAL? 1,BOND-CTR \?ELS31 **** FILE PS:GOAL.ZAP.3, 1-1357 (31560) JUMP ?CND11 ?ELS14: SET 'SUPPRESS-I-BOND,FALSE-VALUE JUMP ?CND11 ?ELS12: INC 'BOND-CTR EQUAL? 1,BOND-CTR \?ELS18 *************** **** FILE PS:GOAL.ZAP.1, 1-1353 (31668) JUMP ?CND17 ?ELS31: EQUAL? 2,BOND-CTR \?ELS33 **** FILE PS:GOAL.ZAP.3, 1-1364 (31747) JUMP ?CND11 ?ELS18: EQUAL? 2,BOND-CTR \?ELS19 *************** **** FILE PS:GOAL.ZAP.1, 1-1359 (31818) EQUAL? CAR,CAR-HERE /?CND29 **** FILE PS:GOAL.ZAP.3, 1-1370 (31897) EQUAL? CAR,CAR-HERE /?CND17 *************** **** FILE PS:GOAL.ZAP.1, 1-1361 (31871) JUMP ?CND29 ?ELS33: EQUAL? 3,BOND-CTR \?ELS38 **** FILE PS:GOAL.ZAP.3, 1-1372 (31950) JUMP ?CND17 ?ELS19: EQUAL? 3,BOND-CTR \?ELS22 *************** **** FILE PS:GOAL.ZAP.1, 1-1365 (31961) ZERO? STACK \?PRD42 PUSH 1 JUMP ?PRD43 ?PRD42: PUSH 0 ?PRD43: SET 'VAL,STACK ZERO? VAL /?CND29 **** FILE PS:GOAL.ZAP.3, 1-1376 (32040) ZERO? STACK \?PRD24 SET 'VAL,1 JUMP ?PRD25 ?PRD24: SET 'VAL,0 ?PRD25: ZERO? VAL /?CND17 *************** **** FILE PS:GOAL.ZAP.1, 1-1373 (32141) JUMP ?CND29 ?ELS38: EQUAL? 4,BOND-CTR \?ELS47 **** FILE PS:GOAL.ZAP.3, 1-1383 (32211) JUMP ?CND17 ?ELS22: EQUAL? 4,BOND-CTR \?ELS29 *************** **** FILE PS:GOAL.ZAP.1, 1-1378 (32262) ZERO? VAL /?CND29 **** FILE PS:GOAL.ZAP.3, 1-1388 (32332) ZERO? VAL /?CND17 *************** **** FILE PS:GOAL.ZAP.1, 1-1383 (32428) JUMP ?CND29 ?ELS47: EQUAL? 5,BOND-CTR \?CND17 **** FILE PS:GOAL.ZAP.3, 1-1393 (32498) JUMP ?CND17 ?ELS29: EQUAL? 5,BOND-CTR \?CND11 *************** **** FILE PS:GOAL.ZAP.1, 1-1386 (32503) ?CND29: ?CND17: ZERO? IDEBUG /?CND55 **** FILE PS:GOAL.ZAP.3, 1-1396 (32573) ?CND17: ?CND11: ZERO? IDEBUG /?CND35 *************** **** FILE PS:GOAL.ZAP.1, 1-1392 (32590) ?CND55: RETURN VAL **** FILE PS:GOAL.ZAP.3, 1-1402 (32660) ?CND35: RETURN VAL *************** **** FILE PS:GOAL.ZAP.1, 1-1432 (33094) GRTR? ATT,0 /?CND6 **** FILE PS:GOAL.ZAP.3, 1-1442 (33164) GRTR? ATT,0 /?CND5 *************** **** FILE PS:GOAL.ZAP.1, 1-1434 (33128) ?CND6: DEC 'ATT **** FILE PS:GOAL.ZAP.3, 1-1444 (33198) ?CND5: DEC 'ATT *************** **** FILE PS:GOAL.ZAP.1, 1-1436 (33176) ZERO? PER \?ELS11 **** FILE PS:GOAL.ZAP.3, 1-1446 (33246) ZERO? PER \?ELS8 *************** **** FILE PS:GOAL.ZAP.1, 1-1439 (33233) JUMP ?CND9 ?ELS11: ZERO? ATT \?ELS15 **** FILE PS:GOAL.ZAP.3, 1-1449 (33302) JUMP ?CND7 ?ELS8: ZERO? ATT \?ELS11 *************** **** FILE PS:GOAL.ZAP.1, 1-1442 (33295) EQUAL? PER,BAD-SPY \?ELS18 ZERO? BAD-SPY-DONE-PEEKING \?ELS18 **** FILE PS:GOAL.ZAP.3, 1-1452 (33363) EQUAL? PER,BAD-SPY \?ELS13 ZERO? BAD-SPY-DONE-PEEKING \?ELS13 *************** **** FILE PS:GOAL.ZAP.1, 1-1445 (33393) JUMP ?CND16 ?ELS18: EQUAL? PER,CONDUCTOR \?ELS22 **** FILE PS:GOAL.ZAP.3, 1-1455 (33461) JUMP ?CND12 ?ELS13: EQUAL? PER,CONDUCTOR \?ELS15 *************** **** FILE PS:GOAL.ZAP.1, 1-1448 (33467) JUMP ?CND16 ?ELS22: PUTP PER,P?LDESC,14 ?CND16: EQUAL? PER,CONDUCTOR \?THN28 **** FILE PS:GOAL.ZAP.3, 1-1458 (33535) JUMP ?CND12 ?ELS15: PUTP PER,P?LDESC,14 ?CND12: EQUAL? PER,CONDUCTOR \?THN17 *************** **** FILE PS:GOAL.ZAP.1, 1-1452 (33571) ZERO? STACK \?CND9 ?THN28: PUT GT,GOAL-ENABLE,TRUE-VALUE JUMP ?CND9 ?ELS15: EQUAL? ATT,1 \?CND9 IN? PER,HERE \?CND9 **** FILE PS:GOAL.ZAP.3, 1-1462 (33639) ZERO? STACK \?CND7 ?THN17: PUT GT,GOAL-ENABLE,TRUE-VALUE JUMP ?CND7 ?ELS11: EQUAL? ATT,1 \?CND7 IN? PER,HERE \?CND7 *************** **** FILE PS:GOAL.ZAP.1, 1-1459 (33759) ZERO? STACK /?CND9 **** FILE PS:GOAL.ZAP.3, 1-1469 (33827) ZERO? STACK /?CND7 *************** **** FILE PS:GOAL.ZAP.1, 1-1461 (33802) ?CND9: PUT GT,ATTENTION,ATT **** FILE PS:GOAL.ZAP.3, 1-1471 (33870) ?CND7: PUT GT,ATTENTION,ATT *************** **** FILE PS:GOAL.ZAP.1, 1-1472 (34049) ZERO? STACK /?CND4 ZERO? LEN /?ELS9 **** FILE PS:GOAL.ZAP.3, 1-1482 (34117) ZERO? STACK /?CND3 ZERO? LEN /?ELS6 *************** **** FILE PS:GOAL.ZAP.1, 1-1475 (34104) JUMP ?CND7 ?ELS9: GET GT,ATTENTION-SPAN >ATT ?CND7: PUT GT,ATTENTION,ATT ZERO? ATT \?ELS15 EQUAL? PERSON,CONDUCTOR \?THN19 **** FILE PS:GOAL.ZAP.3, 1-1485 (34172) JUMP ?CND5 ?ELS6: GET GT,ATTENTION-SPAN >ATT ?CND5: PUT GT,ATTENTION,ATT ZERO? ATT \?ELS8 EQUAL? PERSON,CONDUCTOR \?THN10 *************** **** FILE PS:GOAL.ZAP.1, 1-1482 (34279) ?THN19: PUT GT,GOAL-ENABLE,TRUE-VALUE **** FILE PS:GOAL.ZAP.3, 1-1492 (34346) ?THN10: PUT GT,GOAL-ENABLE,TRUE-VALUE *************** **** FILE PS:GOAL.ZAP.1, 1-1484 (34328) ?ELS15: GET GT,GOAL-ENABLE ZERO? STACK /?CND4 **** FILE PS:GOAL.ZAP.3, 1-1494 (34395) ?ELS8: GET GT,GOAL-ENABLE ZERO? STACK /?CND3 *************** **** FILE PS:GOAL.ZAP.1, 1-1487 (34410) ?CND4: CALL SAID-TO,PERSON **** FILE PS:GOAL.ZAP.3, 1-1497 (34476) ?CND3: CALL SAID-TO,PERSON *************** **** FILE PS:GOAL.ZAP.1, 1-1496 (34605) ZERO? X \?THN9 **** FILE PS:GOAL.ZAP.3, 1-1506 (34671) ZERO? X \?THN5 *************** **** FILE PS:GOAL.ZAP.1, 1-1498 (34641) ZERO? X /?CND6 ?THN9: GET X,REXIT >L1 ?CND6: CALL STOP-CONDUCTOR? >PER ZERO? PER /?ELS15 **** FILE PS:GOAL.ZAP.3, 1-1508 (34707) ZERO? X /?CND4 ?THN5: CALL GET-REXIT-ROOM,X >L1 ?CND4: CALL STOP-CONDUCTOR? >PER ZERO? PER /?ELS10 *************** **** FILE PS:GOAL.ZAP.1, 1-1505 (34832) EQUAL? PER,PLAYER \?ELS20 **** FILE PS:GOAL.ZAP.3, 1-1515 (34908) EQUAL? PER,PLAYER \?ELS15 *************** **** FILE PS:GOAL.ZAP.1, 1-1507 (34876) EQUAL? HERE,STACK \?ELS25 **** FILE PS:GOAL.ZAP.3, 1-1517 (34952) EQUAL? HERE,STACK \?ELS17 *************** **** FILE PS:GOAL.ZAP.1, 1-1509 (34936) JUMP ?CND23 ?ELS25: CALL FIND-FLAG-LG,HERE,DOORBIT >X ZERO? X /?CND30 FSET? X,LOCKED \?CND30 ZERO? TICKET-KNOCK /?ELS37 **** FILE PS:GOAL.ZAP.3, 1-1519 (35012) JUMP ?CND16 ?ELS17: CALL FIND-FLAG-LG,HERE,DOORBIT >X ZERO? X /?CND20 FSET? X,LOCKED \?CND20 ZERO? TICKET-KNOCK /?ELS24 *************** **** FILE PS:GOAL.ZAP.1, 1-1515 (35083) JUMP ?CND30 ?ELS37: SET 'TICKET-KNOCK,TRUE-VALUE **** FILE PS:GOAL.ZAP.3, 1-1525 (35159) JUMP ?CND20 ?ELS24: SET 'TICKET-KNOCK,TRUE-VALUE *************** **** FILE PS:GOAL.ZAP.1, 1-1518 (35176) ?CND30: SET 'TICKET-KNOCK,FALSE-VALUE **** FILE PS:GOAL.ZAP.3, 1-1528 (35252) ?CND20: SET 'TICKET-KNOCK,FALSE-VALUE *************** **** FILE PS:GOAL.ZAP.1, 1-1524 (35323) ?CND23: EQUAL? PRSA,V?SAY,V?TELL \?ELS47 JUMP ?CND45 ?ELS47: GET GESTURE-TABLE,0 LESS? TICKET-COUNT,STACK \?ELS49 **** FILE PS:GOAL.ZAP.3, 1-1534 (35399) ?CND16: EQUAL? PRSA,V?SAY,V?TELL \?ELS30 JUMP ?CND29 ?ELS30: GET GESTURE-TABLE,0 LESS? TICKET-COUNT,STACK \?ELS31 *************** **** FILE PS:GOAL.ZAP.1, 1-1529 (35463) JUMP ?CND45 ?ELS49: CALL ARREST-PLAYER **** FILE PS:GOAL.ZAP.3, 1-1539 (35539) JUMP ?CND29 ?ELS31: CALL ARREST-PLAYER *************** **** FILE PS:GOAL.ZAP.1, 1-1532 (35555) ?CND45: PRINTI " makes a gesture" LESS? 1,TICKET-COUNT \?CND56 **** FILE PS:GOAL.ZAP.3, 1-1542 (35631) ?CND29: PRINTI " makes a gesture" LESS? 1,TICKET-COUNT \?CND36 *************** **** FILE PS:GOAL.ZAP.1, 1-1536 (35668) ?CND56: SET 'VAL,TRUE-VALUE ZERO? CUSTOMS-SWEEP /?ELS63 GRTR? 5,TICKET-COUNT \?ELS67 **** FILE PS:GOAL.ZAP.3, 1-1546 (35744) ?CND36: SET 'VAL,TRUE-VALUE ZERO? CUSTOMS-SWEEP /?ELS41 GRTR? 5,TICKET-COUNT \?ELS43 *************** **** FILE PS:GOAL.ZAP.1, 1-1540 (35785) JUMP ?CND65 ?ELS67: PRINTI ", demanding that you" ?CND65: PRINTI " leave the train." **** FILE PS:GOAL.ZAP.3, 1-1550 (35861) JUMP ?CND42 ?ELS43: PRINTI ", demanding that you" ?CND42: PRINTI " leave the train." *************** **** FILE PS:GOAL.ZAP.1, 1-1544 (35882) JUMP ?CND61 ?ELS63: EQUAL? PER,PLAYER \?CND61 GRTR? 5,TICKET-COUNT \?ELS80 **** FILE PS:GOAL.ZAP.3, 1-1554 (35958) JUMP ?CND40 ?ELS41: EQUAL? PER,PLAYER \?CND40 GRTR? 5,TICKET-COUNT \?ELS52 *************** **** FILE PS:GOAL.ZAP.1, 1-1548 (35987) JUMP ?CND78 ?ELS80: PRINTI ", demanding " ?CND78: CALL THIS-IS-IT,TICKET **** FILE PS:GOAL.ZAP.3, 1-1558 (36063) JUMP ?CND51 ?ELS52: PRINTI ", demanding " ?CND51: CALL THIS-IS-IT,TICKET *************** **** FILE PS:GOAL.ZAP.1, 1-1554 (36101) ?CND61: CALL ARREST-MCGUFFIN? EQUAL? EGO,BAD-SPY \?CND94 **** FILE PS:GOAL.ZAP.3, 1-1564 (36177) ?CND40: CALL ARREST-MCGUFFIN? EQUAL? EGO,BAD-SPY \?CND62 *************** **** FILE PS:GOAL.ZAP.1, 1-1557 (36189) ?CND94: RETURN VAL ?ELS20: FCLEAR PER,LOCKED **** FILE PS:GOAL.ZAP.3, 1-1567 (36265) ?CND62: RETURN VAL ?ELS15: FCLEAR PER,LOCKED *************** **** FILE PS:GOAL.ZAP.1, 1-1562 (36307) ZERO? STACK /?CND99 **** FILE PS:GOAL.ZAP.3, 1-1572 (36383) ZERO? STACK /?CND64 *************** **** FILE PS:GOAL.ZAP.1, 1-1565 (36387) ?CND99: CALL VISIBLE?,PER >X EQUAL? X,FALSE-VALUE,PLAYER-NOT-FACING \?THN107 ZERO? DEBUG /FALSE **** FILE PS:GOAL.ZAP.3, 1-1575 (36463) ?CND64: CALL VISIBLE?,PER >X EQUAL? X,FALSE-VALUE,PLAYER-NOT-FACING \?THN69 ZERO? DEBUG /?PRD68 *************** **** FILE PS:GOAL.ZAP.1, 1-1569 (36501) ?THN107: CALL START-SENTENCE,CONDUCTOR ZERO? CUSTOMS-SWEEP /?ELS117 **** FILE PS:GOAL.ZAP.3, 1-1579 (36577) ZERO? 1 /?PRD68 ?THN69: CALL START-SENTENCE,CONDUCTOR ZERO? CUSTOMS-SWEEP /?ELS77 *************** **** FILE PS:GOAL.ZAP.1, 1-1574 (36639) JUMP ?CND115 ?ELS117: EQUAL? EGO,BAD-SPY \?CND123 EQUAL? PER,BAD-SPY \?CND123 **** FILE PS:GOAL.ZAP.3, 1-1585 (36731) JUMP ?CND76 ?ELS77: EQUAL? EGO,BAD-SPY \?CND80 EQUAL? PER,BAD-SPY \?CND80 *************** **** FILE PS:GOAL.ZAP.1, 1-1579 (36765) ?CND123: PRINTI " punches" **** FILE PS:GOAL.ZAP.3, 1-1590 (36853) ?CND80: PRINTI " punches" *************** **** FILE PS:GOAL.ZAP.1, 1-1582 (36833) ?CND115: ZERO? X \?CND130 **** FILE PS:GOAL.ZAP.3, 1-1593 (36920) ?CND76: ZERO? X \?CND85 *************** **** FILE PS:GOAL.ZAP.1, 1-1584 (36873) ?CND130: CRLF **** FILE PS:GOAL.ZAP.3, 1-1595 (36958) ?CND85: CRLF *************** **** FILE PS:GOAL.ZAP.1, 1-1586 (36898) ?ELS15: GET GOAL-TABLES,CONDUCTOR-C **** FILE PS:GOAL.ZAP.3, 1-1597 (36982) ?PRD68: PUSH 0 RSTACK ?ELS10: GET GOAL-TABLES,CONDUCTOR-C *************** **** FILE PS:GOAL.ZAP.1, 1-1589 (36999) ZERO? X /?CND137 **** FILE PS:GOAL.ZAP.3, 1-1602 (37109) ZERO? X /?CND89 *************** **** FILE PS:GOAL.ZAP.1, 1-1591 (37057) ZERO? STACK \?THN143 ZERO? L1 /?ELS142 **** FILE PS:GOAL.ZAP.3, 1-1604 (37166) ZERO? STACK \?THN92 ZERO? L1 /?ELS93 *************** **** FILE PS:GOAL.ZAP.1, 1-1594 (37140) ZERO? STACK /?ELS142 ?THN143: SET 'TOUCH-CAP?,TRUE-VALUE JUMP ?CND137 ?ELS142: SET 'TOUCH-CAP?,FALSE-VALUE ?CND137: GETP L,P?STATION **** FILE PS:GOAL.ZAP.3, 1-1607 (37247) ZERO? STACK /?ELS93 ?THN92: SET 'TOUCH-CAP?,TRUE-VALUE JUMP ?CND89 ?ELS93: SET 'TOUCH-CAP?,FALSE-VALUE ?CND89: GETP L,P?STATION *************** **** FILE PS:GOAL.ZAP.1, 1-1609 (37464) EQUAL? X,PLAYER /?THN9 **** FILE PS:GOAL.ZAP.3, 1-1622 (37566) EQUAL? X,PLAYER /?THN6 *************** **** FILE PS:GOAL.ZAP.1, 1-1615 (37603) ?THN9: MOVE OBJ,LIMBO-FWD **** FILE PS:GOAL.ZAP.3, 1-1628 (37705) ?THN6: MOVE OBJ,LIMBO-FWD *************** **** FILE PS:GOAL.ZAP.1, 1-1635 (38122) ZERO? PER \?CND11 **** FILE PS:GOAL.ZAP.3, 1-1648 (38224) ZERO? PER \?CND7 *************** **** FILE PS:GOAL.ZAP.1, 1-1637 (38163) ?CND11: CALL START-SENTENCE,PER **** FILE PS:GOAL.ZAP.3, 1-1650 (38264) ?CND7: CALL START-SENTENCE,PER ***************