;COMPARISON OF PS:<SWG>PLACES.ZAP.1 AND PS:<SWG>PLACES.ZAP.3
;OPTIONS ARE    /1

**** FILE PS:<SWG>PLACES.ZAP.1, 1-21 (330)
	FIRST?	RM >O /?KLU14
?KLU14:	GETP	WINNER,P?CAR >CAR
**** FILE PS:<SWG>PLACES.ZAP.3, 1-21 (330)
	FIRST?	RM >O /?KLU8
?KLU8:	GETP	WINNER,P?CAR >CAR
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-25 (444)
	FSET?	O,FLAG \?ELS7
	EQUAL?	O,EXCLUDED /?ELS7
	ZERO?	STA? \?THN10
**** FILE PS:<SWG>PLACES.ZAP.3, 1-25 (442)
	FSET?	O,FLAG \?ELS5
	EQUAL?	O,EXCLUDED /?ELS5
	ZERO?	STA? \?THN6
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-29 (529)
	EQUAL?	STACK,CAR \?ELS7
?THN10:	RETURN	O
?ELS7:	NEXT?	O >O /?KLU15
?KLU15:	JUMP	?PRG1
**** FILE PS:<SWG>PLACES.ZAP.3, 1-29 (526)
	EQUAL?	STACK,CAR \?ELS5
?THN6:	RETURN	O
?ELS5:	NEXT?	O >O /?PRG1
	JUMP	?PRG1
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-36 (661)
	FIRST?	RM >O /?KLU12
?KLU12:	
**** FILE PS:<SWG>PLACES.ZAP.3, 1-36 (649)
	FIRST?	RM >O /?KLU7
?KLU7:	
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-39 (717)
	FSET?	O,FLAG \?ELS7
**** FILE PS:<SWG>PLACES.ZAP.3, 1-39 (703)
	FSET?	O,FLAG \?ELS5
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-41 (754)
	EQUAL?	STACK,CAR \?ELS7
**** FILE PS:<SWG>PLACES.ZAP.3, 1-41 (740)
	EQUAL?	STACK,CAR \?ELS5
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-43 (791)
?ELS7:	NEXT?	O >O /?KLU13
?KLU13:	JUMP	?PRG1
**** FILE PS:<SWG>PLACES.ZAP.3, 1-43 (777)
?ELS5:	NEXT?	O >O /?PRG1
	JUMP	?PRG1
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-50 (933)
	PTSIZE	TBL
	DIV	STACK,2
	SUB	STACK,1 >SIZE
?PRG6:	GET	TBL,CNT >O
	FSET?	O,FLAG \?ELS10
**** FILE PS:<SWG>PLACES.ZAP.3, 1-50 (911)
	CALL	RMGL-SIZE,TBL >SIZE
?PRG5:	CALL	GET-OBJ,TBL,CNT >O
	FSET?	O,FLAG \?ELS8
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-56 (1037)
?ELS10:	IGRTR?	'CNT,SIZE \?PRG6
**** FILE PS:<SWG>PLACES.ZAP.3, 1-54 (1003)
?ELS8:	IGRTR?	'CNT,SIZE \?PRG5
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-61 (1138)
	FIRST?	HERE >O /?KLU14
?KLU14:	GETP	WINNER,P?CAR >CAR
**** FILE PS:<SWG>PLACES.ZAP.3, 1-59 (1103)
	FIRST?	HERE >O /?KLU8
?KLU8:	GETP	WINNER,P?CAR >CAR
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-65 (1256)
	FSET?	O,FLAG \?ELS7
	EQUAL?	O,NOT1,NOT2 /?ELS7
	ZERO?	STA? \?THN10
**** FILE PS:<SWG>PLACES.ZAP.3, 1-63 (1219)
	FSET?	O,FLAG \?ELS5
	EQUAL?	O,NOT1,NOT2 /?ELS5
	ZERO?	STA? \?THN6
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-69 (1342)
	EQUAL?	STACK,CAR \?ELS7
?THN10:	RETURN	O
?ELS7:	NEXT?	O >O /?KLU15
?KLU15:	JUMP	?PRG1
**** FILE PS:<SWG>PLACES.ZAP.3, 1-67 (1304)
	EQUAL?	STACK,CAR \?ELS5
?THN6:	RETURN	O
?ELS5:	NEXT?	O >O /?PRG1
	JUMP	?PRG1
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-76 (1494)
	FIRST?	HERE >O /?KLU14
?KLU14:	GETP	WINNER,P?CAR >CAR
**** FILE PS:<SWG>PLACES.ZAP.3, 1-74 (1447)
	FIRST?	HERE >O /?KLU8
?KLU8:	GETP	WINNER,P?CAR >CAR
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-80 (1612)
	FSET?	O,FLAG \?ELS7
	FSET?	O,NFLAG /?ELS7
	EQUAL?	O,NOT2 /?ELS7
	ZERO?	STA? \?THN10
**** FILE PS:<SWG>PLACES.ZAP.3, 1-78 (1563)
	FSET?	O,FLAG \?ELS5
	FSET?	O,NFLAG /?ELS5
	EQUAL?	O,NOT2 /?ELS5
	ZERO?	STA? \?THN6
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-85 (1716)
	EQUAL?	STACK,CAR \?ELS7
?THN10:	RETURN	O
?ELS7:	NEXT?	O >O /?KLU15
?KLU15:	JUMP	?PRG1
**** FILE PS:<SWG>PLACES.ZAP.3, 1-83 (1666)
	EQUAL?	STACK,CAR \?ELS5
?THN6:	RETURN	O
?ELS5:	NEXT?	O >O /?PRG1
	JUMP	?PRG1
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-95 (1898)
	EQUAL?	PTS,UEXIT \?ELS10
**** FILE PS:<SWG>PLACES.ZAP.3, 1-93 (1839)
	EQUAL?	PTS,UEXIT \?ELS8
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-98 (1950)
?ELS10:	EQUAL?	PTS,NEXIT /FALSE
	EQUAL?	PTS,FEXIT \?ELS14
**** FILE PS:<SWG>PLACES.ZAP.3, 1-96 (1890)
?ELS8:	EQUAL?	PTS,NEXIT /FALSE
	EQUAL?	PTS,FEXIT \?ELS10
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-103 (2051)
?ELS14:	EQUAL?	PTS,CEXIT \?ELS16
**** FILE PS:<SWG>PLACES.ZAP.3, 1-101 (1990)
?ELS10:	EQUAL?	PTS,CEXIT \?ELS11
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-109 (2165)
?ELS16:	EQUAL?	PTS,DEXIT \FALSE
**** FILE PS:<SWG>PLACES.ZAP.3, 1-107 (2104)
?ELS11:	EQUAL?	PTS,DEXIT \FALSE
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-132 (2559)
	EQUAL?	L,DEXIT \?PRG1
	GET	TBL,DEXITOBJ >O
	FSET?	O,OPENBIT \?PRG1
**** FILE PS:<SWG>PLACES.ZAP.3, 1-130 (2498)
	EQUAL?	L,DEXIT \?CND6
	CALL	GET-DOOR-OBJ,TBL >O
	FSET?	O,OPENBIT \?CND6
***************

**** FILE PS:<SWG>PLACES.ZAP.1, 1-139 (2713)
**** FILE PS:<SWG>PLACES.ZAP.3, 1-136 (2655)
?CND6:	JUMP	?PRG1
***************