;COMPARISON OF PS:MAIN.ZAP.1 AND PS:MAIN.ZAP.3 ;OPTIONS ARE /1 **** FILE PS:MAIN.ZAP.1, 1-36 (832) EQUAL? N,W?SPY,W?S \?ELS11 **** FILE PS:MAIN.ZAP.3, 1-36 (832) EQUAL? N,W?SPY,W?S \?ELS10 *************** **** FILE PS:MAIN.ZAP.1, 1-39 (893) ?ELS11: SET 'VARIATION,1 **** FILE PS:MAIN.ZAP.3, 1-39 (893) ?ELS10: SET 'VARIATION,1 *************** **** FILE PS:MAIN.ZAP.1, 1-44 (1074) EQUAL? N,W?L,W?LONG \?CND23 **** FILE PS:MAIN.ZAP.3, 1-44 (1074) EQUAL? N,W?L,W?LONG \?CND18 *************** **** FILE PS:MAIN.ZAP.1, 1-47 (1145) ?CND23: CALL TAKE-YOUR-PLACES **** FILE PS:MAIN.ZAP.3, 1-47 (1145) ?CND18: CALL TAKE-YOUR-PLACES *************** **** FILE PS:MAIN.ZAP.1, 1-51 (1227) EQUAL? EGO,BAD-SPY \?ELS28 **** FILE PS:MAIN.ZAP.3, 1-51 (1227) EQUAL? EGO,BAD-SPY \?ELS21 *************** **** FILE PS:MAIN.ZAP.1, 1-66 (2493) JUMP ?CND26 ?ELS28: PRINTI "With your business deal behind you, you want only to get out of this bleak corner of Eastern Europe. The frontier is now only a few hours away, and from there it's not far to Vienna, and civilization.... **** FILE PS:MAIN.ZAP.3, 1-66 (2493) JUMP ?CND20 ?ELS21: PRINTI "With your business deal behind you, you want only to get out of this bleak corner of Eastern Europe. The frontier is now only a few hours away, and from there it's not far to Vienna, and civilization.... *************** **** FILE PS:MAIN.ZAP.1, 1-74 (3456) ZERO? HARD? /?ELS37 **** FILE PS:MAIN.ZAP.3, 1-74 (3456) ZERO? HARD? /?ELS27 *************** **** FILE PS:MAIN.ZAP.1, 1-83 (3701) JUMP ?CND35 ?ELS37: PRINTI "deliver a " **** FILE PS:MAIN.ZAP.3, 1-83 (3701) JUMP ?CND26 ?ELS27: PRINTI "deliver a " *************** **** FILE PS:MAIN.ZAP.1, 1-86 (3762) ?CND35: PRINTI " to our special agent in Gola. An enemy agent spotted me on the train, and I only barely managed to escape."" He groans softly, examining his wound. **** FILE PS:MAIN.ZAP.3, 1-86 (3762) ?CND26: PRINTI " to our special agent in Gola. An enemy agent spotted me on the train, and I only barely managed to escape."" He groans softly, examining his wound. *************** **** FILE PS:MAIN.ZAP.1, 1-89 (4249) ZERO? HARD? /?ELS49 **** FILE PS:MAIN.ZAP.3, 1-89 (4249) ZERO? HARD? /?ELS35 *************** **** FILE PS:MAIN.ZAP.1, 1-91 (4293) JUMP ?CND47 ?ELS49: PRINTD STATION-GOLA ?CND47: PRINTI " is " **** FILE PS:MAIN.ZAP.3, 1-91 (4293) JUMP ?CND34 ?ELS35: PRINTD STATION-GOLA ?CND34: PRINTI " is " *************** **** FILE PS:MAIN.ZAP.1, 1-96 (4417) ZERO? HARD? \?CND57 **** FILE PS:MAIN.ZAP.3, 1-96 (4417) ZERO? HARD? \?CND40 *************** **** FILE PS:MAIN.ZAP.1, 1-99 (4495) EQUAL? PASSWORD,CAMERA,HANKY,SCARF \?CND62 **** FILE PS:MAIN.ZAP.3, 1-99 (4495) EQUAL? PASSWORD,CAMERA,HANKY,SCARF \?CND44 *************** **** FILE PS:MAIN.ZAP.1, 1-101 (4553) ?CND62: PRINTI " '" **** FILE PS:MAIN.ZAP.3, 1-101 (4553) ?CND44: PRINTI " '" *************** **** FILE PS:MAIN.ZAP.1, 1-104 (4606) ?CND57: PRINTI "...."" Then he stops and listens. Before you can say anything, he checks the corridor and races out. **** FILE PS:MAIN.ZAP.3, 1-104 (4606) ?CND40: PRINTI "...."" Then he stops and listens. Before you can say anything, he checks the corridor and races out. *************** **** FILE PS:MAIN.ZAP.1, 1-109 (4767) ?CND26: CALL V-VERSION **** FILE PS:MAIN.ZAP.3, 1-109 (4767) ?CND20: CALL V-VERSION *************** **** FILE PS:MAIN.ZAP.1, 1-122 (5009) ?PRG6: GET P-LEXV,L >N **** FILE PS:MAIN.ZAP.3, 1-122 (5009) ?PRG5: GET P-LEXV,L >N *************** **** FILE PS:MAIN.ZAP.1, 1-124 (5059) ZERO? STACK \?CND8 JUMP ?REP7 ?CND8: ADD L,P-LEXELEN >L JUMP ?PRG6 ?REP7: EQUAL? N,WD1,WD2 /?THN14 EQUAL? N,WD3,WD4 \?CND11 ?THN14: RETURN N ?CND11: CALL WT?,N,PS?VERB,P1?VERB >N EQUAL? N,ACT?QUIT \?ELS18 **** FILE PS:MAIN.ZAP.3, 1-124 (5059) ZERO? STACK \?CND7 JUMP ?REP6 ?CND7: ADD L,P-LEXELEN >L JUMP ?PRG5 ?REP6: EQUAL? N,WD1,WD2 /?THN10 EQUAL? N,WD3,WD4 \?CND9 ?THN10: RETURN N ?CND9: CALL WT?,N,PS?VERB,P1?VERB >N EQUAL? N,ACT?QUIT \?ELS13 *************** **** FILE PS:MAIN.ZAP.1, 1-137 (5321) ?ELS18: EQUAL? N,ACT?RESTART \?ELS22 **** FILE PS:MAIN.ZAP.3, 1-137 (5319) ?ELS13: EQUAL? N,ACT?RESTART \?ELS16 *************** **** FILE PS:MAIN.ZAP.1, 1-142 (5405) ?ELS22: EQUAL? N,ACT?$VERIFY \?ELS26 **** FILE PS:MAIN.ZAP.3, 1-142 (5403) ?ELS16: EQUAL? N,ACT?$VERIFY \?ELS19 *************** **** FILE PS:MAIN.ZAP.1, 1-145 (5472) ?ELS26: EQUAL? N,ACT?RELEASE \?ELS28 **** FILE PS:MAIN.ZAP.3, 1-145 (5470) ?ELS19: EQUAL? N,ACT?RELEASE \?ELS20 *************** **** FILE PS:MAIN.ZAP.1, 1-148 (5539) ?ELS28: EQUAL? N,ACT?RESTORE \?CND16 **** FILE PS:MAIN.ZAP.3, 1-148 (5537) ?ELS20: EQUAL? N,ACT?RESTORE \?CND12 *************** **** FILE PS:MAIN.ZAP.1, 1-154 (5649) ?CND16: CALL PLEASE-TYPE-OR,WD1,WD2 **** FILE PS:MAIN.ZAP.3, 1-154 (5647) ?CND12: CALL PLEASE-TYPE-OR,WD1,WD2 *************** **** FILE PS:MAIN.ZAP.1, 1-171 (5918) GRTR? N,L \?ELS5 **** FILE PS:MAIN.ZAP.3, 1-171 (5916) GRTR? N,L \?ELS4 *************** **** FILE PS:MAIN.ZAP.1, 1-173 (5948) ?ELS5: RETURN N **** FILE PS:MAIN.ZAP.3, 1-173 (5946) ?ELS4: RETURN N *************** **** FILE PS:MAIN.ZAP.1, 1-186 (6332) EQUAL? VARIATION,1,2 \?ELS3 **** FILE PS:MAIN.ZAP.3, 1-186 (6330) EQUAL? VARIATION,1,2 \?ELS2 *************** **** FILE PS:MAIN.ZAP.1, 1-197 (6623) ?ELS3: EQUAL? VARIATION,3,4 \?CND1 **** FILE PS:MAIN.ZAP.3, 1-197 (6621) ?ELS2: EQUAL? VARIATION,3,4 \?CND1 *************** **** FILE PS:MAIN.ZAP.1, 1-207 (6873) ?PRG6: IGRTR? 'N,L \?ELS10 JUMP ?REP7 ?ELS10: GET BRIEFCASE-TBL,N >P ZERO? P /?PRG6 **** FILE PS:MAIN.ZAP.3, 1-207 (6871) ?PRG4: IGRTR? 'N,L \?ELS7 JUMP ?REP5 ?ELS7: GET BRIEFCASE-TBL,N >P ZERO? P /?PRG4 *************** **** FILE PS:MAIN.ZAP.1, 1-212 (6982) JUMP ?PRG6 ?REP7: PUTP BAD-SPY,P?ACTION,TRAVELER-F **** FILE PS:MAIN.ZAP.3, 1-212 (6978) JUMP ?PRG4 ?REP5: PUTP BAD-SPY,P?ACTION,TRAVELER-F *************** **** FILE PS:MAIN.ZAP.1, 1-230 (7487) ZERO? HARD? /?CND13 **** FILE PS:MAIN.ZAP.3, 1-230 (7483) ZERO? HARD? /?CND9 *************** **** FILE PS:MAIN.ZAP.1, 1-236 (7657) EQUAL? PICKPOCKET,BAD-SPY \?CND13 **** FILE PS:MAIN.ZAP.3, 1-236 (7652) EQUAL? PICKPOCKET,BAD-SPY \?CND9 *************** **** FILE PS:MAIN.ZAP.1, 1-239 (7737) ?CND13: CALL SET-PASSES **** FILE PS:MAIN.ZAP.3, 1-239 (7731) ?CND9: CALL SET-PASSES *************** **** FILE PS:MAIN.ZAP.1, 1-266 (8263) ?CND3: ZERO? NEW? \?ELS8 EQUAL? L,COMPARTMENT-START \?ELS8 EQUAL? N,CAR-START \?ELS8 **** FILE PS:MAIN.ZAP.3, 1-266 (8256) ?CND3: ZERO? NEW? \?ELS6 EQUAL? L,COMPARTMENT-START \?ELS6 EQUAL? N,CAR-START \?ELS6 *************** **** FILE PS:MAIN.ZAP.1, 1-270 (8362) JUMP ?CND6 ?ELS8: CALL ZMEMQ,L,CAR-ROOMS-REST ZERO? STACK /?CND6 **** FILE PS:MAIN.ZAP.3, 1-270 (8355) JUMP ?CND5 ?ELS6: CALL ZMEMQ,L,CAR-ROOMS-REST ZERO? STACK /?CND5 *************** **** FILE PS:MAIN.ZAP.1, 1-274 (8462) ZERO? STACK \?THN16 **** FILE PS:MAIN.ZAP.3, 1-274 (8455) ZERO? STACK \?THN10 *************** **** FILE PS:MAIN.ZAP.1, 1-276 (8505) ZERO? STACK /?ELS15 ?THN16: GETPT L,P?OUT GET STACK,REXIT >L JUMP ?CND6 ?ELS15: EQUAL? N,CAR-HERE \?ELS19 **** FILE PS:MAIN.ZAP.3, 1-276 (8498) ZERO? STACK /?ELS11 ?THN10: GETPT L,P?OUT CALL GET-REXIT-ROOM,STACK >L JUMP ?CND5 ?ELS11: EQUAL? N,CAR-HERE \?ELS12 *************** **** FILE PS:MAIN.ZAP.1, 1-283 (8669) JUMP ?CND6 ?ELS19: CALL FIND-FLAG-LG,L,DOORBIT **** FILE PS:MAIN.ZAP.3, 1-283 (8672) JUMP ?CND5 ?ELS12: CALL FIND-FLAG-LG,L,DOORBIT *************** **** FILE PS:MAIN.ZAP.1, 1-286 (8741) ?CND6: CALL TAKE-YOUR-PLACE-TEST,OBJ,STA-ONLY? ZERO? STACK /?CND22 EQUAL? N,CAR-HERE \?ELS27 **** FILE PS:MAIN.ZAP.3, 1-286 (8744) ?CND5: CALL TAKE-YOUR-PLACE-TEST,OBJ,STA-ONLY? ZERO? STACK /?CND13 EQUAL? N,CAR-HERE \?ELS16 *************** **** FILE PS:MAIN.ZAP.1, 1-290 (8852) JUMP ?CND25 ?ELS27: GETP L,P?CAR >X ZERO? X /?CND25 **** FILE PS:MAIN.ZAP.3, 1-290 (8855) JUMP ?CND15 ?ELS16: GETP L,P?CAR >X ZERO? X /?CND15 *************** **** FILE PS:MAIN.ZAP.1, 1-294 (8922) ?CND25: PUTP OBJ,P?CAR,N ?CND22: ZERO? NEW? /?CND30 **** FILE PS:MAIN.ZAP.3, 1-294 (8925) ?CND15: PUTP OBJ,P?CAR,N ?CND13: ZERO? NEW? /?CND18 *************** **** FILE PS:MAIN.ZAP.1, 1-297 (9008) ZERO? X /?CND34 **** FILE PS:MAIN.ZAP.3, 1-297 (9011) ZERO? X /?CND20 *************** **** FILE PS:MAIN.ZAP.1, 1-301 (9096) ?CND34: EQUAL? OBJ,BAD-SPY /?CND30 **** FILE PS:MAIN.ZAP.3, 1-301 (9099) ?CND20: EQUAL? OBJ,BAD-SPY /?CND18 *************** **** FILE PS:MAIN.ZAP.1, 1-305 (9196) ?CND30: DLESS? 'P,1 \?PRG1 **** FILE PS:MAIN.ZAP.3, 1-305 (9199) ?CND18: DLESS? 'P,1 \?PRG1 *************** **** FILE PS:MAIN.ZAP.1, 1-315 (9422) ZERO? STA-ONLY? /?ELS10 **** FILE PS:MAIN.ZAP.3, 1-315 (9425) ZERO? STA-ONLY? /?ELS7 *************** **** FILE PS:MAIN.ZAP.1, 1-317 (9459) ?ELS10: ZERO? X /TRUE **** FILE PS:MAIN.ZAP.3, 1-317 (9461) ?ELS7: ZERO? X /TRUE *************** **** FILE PS:MAIN.ZAP.1, 1-322 (9518) EQUAL? L,GAS-CAR-RM \?ELS3 **** FILE PS:MAIN.ZAP.3, 1-322 (9519) EQUAL? L,GAS-CAR-RM \?ELS2 *************** **** FILE PS:MAIN.ZAP.1, 1-324 (9572) ?ELS3: EQUAL? N,CAR-HERE /?CND1 **** FILE PS:MAIN.ZAP.3, 1-324 (9573) ?ELS2: EQUAL? N,CAR-HERE /?CND1 *************** **** FILE PS:MAIN.ZAP.1, 1-353 (10089) ZERO? FIRST /?ELS6 **** FILE PS:MAIN.ZAP.3, 1-353 (10090) ZERO? FIRST /?ELS4 *************** **** FILE PS:MAIN.ZAP.1, 1-359 (10182) JUMP ?CND4 ?ELS6: PRINTI "Location:" **** FILE PS:MAIN.ZAP.3, 1-359 (10183) JUMP ?CND3 ?ELS4: PRINTI "Location:" *************** **** FILE PS:MAIN.ZAP.1, 1-363 (10252) ?CND4: BUFOUT TRUE-VALUE **** FILE PS:MAIN.ZAP.3, 1-363 (10253) ?CND3: BUFOUT TRUE-VALUE *************** **** FILE PS:MAIN.ZAP.1, 1-393 (10779) EQUAL? LAST-PLAYER-LOC,HERE \?THN13 EQUAL? PLAYER-NOT-FACING-OLD,PLAYER-NOT-FACING /?CND10 ?THN13: SET 'LAST-PLAYER-LOC,HERE **** FILE PS:MAIN.ZAP.3, 1-393 (10780) EQUAL? LAST-PLAYER-LOC,HERE \?THN7 EQUAL? PLAYER-NOT-FACING-OLD,PLAYER-NOT-FACING /?CND6 ?THN7: SET 'LAST-PLAYER-LOC,HERE *************** **** FILE PS:MAIN.ZAP.1, 1-399 (10997) ZERO? PLAYER-NOT-FACING /?CND17 **** FILE PS:MAIN.ZAP.3, 1-399 (10995) ZERO? PLAYER-NOT-FACING /?CND11 *************** **** FILE PS:MAIN.ZAP.1, 1-403 (11107) ?CND17: DIROUT D-NORMAL **** FILE PS:MAIN.ZAP.3, 1-403 (11105) ?CND11: DIROUT D-NORMAL *************** **** FILE PS:MAIN.ZAP.1, 1-407 (11183) ZERO? PLAYER-NOT-FACING /?CND24 **** FILE PS:MAIN.ZAP.3, 1-407 (11181) ZERO? PLAYER-NOT-FACING /?CND17 *************** **** FILE PS:MAIN.ZAP.1, 1-410 (11257) ?CND24: SUB 51,LEN **** FILE PS:MAIN.ZAP.3, 1-410 (11255) ?CND17: SUB 51,LEN *************** **** FILE PS:MAIN.ZAP.1, 1-412 (11303) ?CND10: CURSET 1,68 **** FILE PS:MAIN.ZAP.3, 1-412 (11301) ?CND6: CURSET 1,68 ***************