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

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-5 (55)
	EQUAL?	PRSA,V?TAKE \?ELS7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-5 (55)
	EQUAL?	PRSA,V?TAKE \?ELS5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-7 (105)
?ELS7:	EQUAL?	PRSA,V?FIND \?ELS11
	ZERO?	ON-TRAIN /?ELS16
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-7 (105)
?ELS5:	EQUAL?	PRSA,V?FIND \?ELS8
	ZERO?	ON-TRAIN /?ELS12
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-11 (190)
?ELS16:	ZERO?	IN-STATION /?ELS19
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-11 (189)
?ELS12:	ZERO?	IN-STATION /?ELS13
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-16 (313)
?ELS19:	EQUAL?	HERE,BESIDE-TRACKS \?ELS24
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-16 (312)
?ELS13:	EQUAL?	HERE,BESIDE-TRACKS \?ELS16
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-19 (382)
?ELS24:	PRINTR	"Maybe one will stop here soon."
?ELS11:	EQUAL?	PRSA,V?CLIMB-ON /?THN31
	EQUAL?	PRSA,V?WALK-TO,V?THROUGH,V?BOARD \?ELS30
?THN31:	ZERO?	ON-TRAIN /?ELS35
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-19 (381)
?ELS16:	PRINTR	"Maybe one will stop here soon."
?ELS8:	EQUAL?	PRSA,V?CLIMB-ON /?THN19
	EQUAL?	PRSA,V?WALK-TO,V?THROUGH,V?BOARD \?ELS20
?THN19:	ZERO?	ON-TRAIN /?ELS22
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-25 (577)
?ELS35:	EQUAL?	HERE,BESIDE-TRACKS \?ELS38
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-25 (575)
?ELS22:	EQUAL?	HERE,BESIDE-TRACKS \?ELS23
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-32 (710)
?ELS38:	CALL	ON-PLATFORM?,HERE
	ZERO?	STACK \?CND33
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-32 (708)
?ELS23:	CALL	ON-PLATFORM?,HERE
	ZERO?	STACK \?CND21
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-35 (805)
?CND33:	CALL	ON-PLATFORM?,HERE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-35 (803)
?CND21:	CALL	ON-PLATFORM?,HERE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-43 (947)
?ELS30:	EQUAL?	PRSA,V?LEAVE,V?TAKE-OFF,V?DISEMBARK \?ELS55
	ZERO?	ON-TRAIN \?CND56
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-43 (945)
?ELS20:	EQUAL?	PRSA,V?LEAVE,V?TAKE-OFF,V?DISEMBARK \?ELS33
	ZERO?	ON-TRAIN \?CND34
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-47 (1056)
?CND56:	ZERO?	CUSTOMS-SWEEP \?ELS61
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-47 (1054)
?CND34:	ZERO?	CUSTOMS-SWEEP \?ELS37
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-49 (1119)
	ZERO?	STACK /?ELS61
	EQUAL?	CAR-HERE,1 /?ELS61
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-49 (1117)
	ZERO?	STACK /?ELS37
	EQUAL?	CAR-HERE,1 /?ELS37
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-52 (1194)
	EQUAL?	HERE,L /?CND64
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-52 (1192)
	EQUAL?	HERE,L /?CND39
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-54 (1245)
?CND64:	EQUAL?	HERE,L \?CND59
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-54 (1243)
?CND39:	EQUAL?	HERE,L \?CND36
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-56 (1299)
	JUMP	?CND59
?ELS61:	CALL	V-REAR,CAR-HERE >L
	EQUAL?	HERE,L /?CND59
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-56 (1297)
	JUMP	?CND36
?ELS37:	CALL	V-REAR,CAR-HERE >L
	EQUAL?	HERE,L /?CND36
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-60 (1397)
?CND59:	EQUAL?	HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \TRUE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-60 (1395)
?CND36:	EQUAL?	HERE,VESTIBULE-REAR,VESTIBULE-REAR-DINER \TRUE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-63 (1491)
?ELS55:	CALL	REMOTE-VERB?
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-63 (1489)
?ELS33:	CALL	REMOTE-VERB?
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-65 (1539)
	ZERO?	ON-TRAIN \?ELS81
	ZERO?	IN-STATION \?ELS81
	EQUAL?	HERE,BESIDE-TRACKS /?ELS81
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-65 (1537)
	ZERO?	ON-TRAIN \?ELS48
	ZERO?	IN-STATION \?ELS48
	EQUAL?	HERE,BESIDE-TRACKS /?ELS48
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-70 (1659)
?ELS81:	EQUAL?	PRSA,V?STOP \?ELS85
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-70 (1657)
?ELS48:	EQUAL?	PRSA,V?STOP \?ELS50
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-75 (1790)
?ELS85:	EQUAL?	PRSA,V?EXAMINE \?ELS92
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-75 (1788)
?ELS50:	EQUAL?	PRSA,V?EXAMINE \?ELS55
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-77 (1872)
	ZERO?	ON-TRAIN \?CND95
	EQUAL?	HERE,PLATFORM-A /?THN100
	EQUAL?	HERE,BESIDE-TRACKS \?CND95
	EQUAL?	CAR-HERE,1 \?CND95
?THN100:	PRINTI	" The engine is hissing and occasionally venting hot gases."
?CND95:	CRLF	
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-77 (1870)
	ZERO?	ON-TRAIN \?CND58
	EQUAL?	HERE,PLATFORM-A /?THN60
	EQUAL?	HERE,BESIDE-TRACKS \?CND58
	EQUAL?	CAR-HERE,1 \?CND58
?THN60:	PRINTI	" The engine is hissing and occasionally venting hot gases."
?CND58:	CRLF	
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-84 (2097)
?ELS92:	EQUAL?	PRSA,V?LISTEN \FALSE
	ZERO?	ON-TRAIN /?ELS110
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-84 (2093)
?ELS55:	EQUAL?	PRSA,V?LISTEN \FALSE
	ZERO?	ON-TRAIN /?ELS67
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-88 (2233)
	ZERO?	STACK /?ELS118
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-88 (2228)
	ZERO?	STACK /?ELS73
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-90 (2271)
	JUMP	?CND114
?ELS118:	ZERO?	TRAIN-MOVING /?ELS120
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-90 (2265)
	JUMP	?CND70
?ELS73:	ZERO?	TRAIN-MOVING /?ELS74
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-93 (2339)
	JUMP	?CND114
?ELS120:	PUSH	STR?197
?CND114:	PRINT	STACK
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-93 (2330)
	JUMP	?CND70
?ELS74:	PUSH	STR?197
?CND70:	PRINT	STACK
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-98 (2416)
?ELS110:	CALL	ON-PLATFORM?,HERE
	ZERO?	STACK \?THN126
	EQUAL?	HERE,BESIDE-TRACKS \?ELS125
?THN126:	PRINTR	"It's hissing quietly."
?ELS125:	CALL	NOT-HERE,TRAIN
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-98 (2404)
?ELS67:	CALL	ON-PLATFORM?,HERE
	ZERO?	STACK \?THN75
	EQUAL?	HERE,BESIDE-TRACKS \?ELS76
?THN75:	PRINTR	"It's hissing quietly."
?ELS76:	CALL	NOT-HERE,TRAIN
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-109 (2661)
	EQUAL?	CAR-HERE,DINER-CAR \?ELS10
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-109 (2644)
	EQUAL?	CAR-HERE,DINER-CAR \?ELS8
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-112 (2722)
?ELS10:	ZERO?	DINER-TOUCHED /FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-112 (2704)
?ELS8:	ZERO?	DINER-TOUCHED /FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-128 (2999)
	ZERO?	SCENERY-OBJ /?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-128 (2980)
	ZERO?	SCENERY-OBJ /?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-131 (3072)
?ELS5:	CALL	NOT-HERE,OBJ
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-131 (3053)
?ELS4:	CALL	NOT-HERE,OBJ
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-136 (3133)
	ZERO?	HARD? /?ELS3
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-136 (3114)
	ZERO?	HARD? /?ELS2
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-139 (3200)
?ELS3:	SET	'PRESENT-TIME,200
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-139 (3181)
?ELS2:	SET	'PRESENT-TIME,200
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-145 (3392)
	ZERO?	HARD? \?CND7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-145 (3373)
	ZERO?	HARD? \?CND3
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-147 (3447)
?CND7:	SET	'SCENERY-OBJ,PLAIN
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-147 (3428)
?CND3:	SET	'SCENERY-OBJ,PLAIN
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-155 (3660)
	RETURN	NOW-LURCHING
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-155 (3641)
	RTRUE	
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-160 (3736)
?PRG4:	GET	TBL,CNT
	ZERO?	STACK \?ELS8
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-160 (3704)
?PRG3:	GET	TBL,CNT
	ZERO?	STACK \?ELS6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-165 (3820)
?ELS8:	INC	'CNT
	JUMP	?PRG4
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-165 (3788)
?ELS6:	INC	'CNT
	JUMP	?PRG3
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-176 (4071)
	EQUAL?	SCENERY-OBJ,TUNNEL \?CND5
	EQUAL?	HERE,ROOF \?CND5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-176 (4039)
	EQUAL?	SCENERY-OBJ,TUNNEL \?CND3
	EQUAL?	HERE,ROOF \?CND3
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-179 (4148)
?CND5:	CALL	FLUSH-ROOM?,ROOF,TRUE-VALUE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-179 (4116)
?CND3:	CALL	FLUSH-ROOM?,ROOF,TRUE-VALUE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-181 (4223)
	ZERO?	STACK /?ELS14
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-181 (4191)
	ZERO?	STACK /?ELS9
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-185 (4322)
	EQUAL?	SCENERY-OBJ,STATION-FRBZ,STATION-GOLA \?CND18
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-185 (4289)
	EQUAL?	SCENERY-OBJ,STATION-FRBZ,STATION-GOLA \?CND11
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-189 (4441)
?CND18:	ADD	N,M >N
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-189 (4408)
?CND11:	ADD	N,M >N
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-194 (4540)
?ELS14:	CALL	QUEUE,I-TRAIN-SCENERY,N
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-194 (4507)
?ELS9:	CALL	QUEUE,I-TRAIN-SCENERY,N
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-199 (4681)
	ZERO?	HARD? /?THN33
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-199 (4647)
	ZERO?	HARD? /?THN18
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-202 (4740)
?THN33:	CALL	STOP-CORD-F,TRUE-VALUE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-202 (4706)
?THN18:	CALL	STOP-CORD-F,TRUE-VALUE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-225 (5622)
	EQUAL?	PRSA,V?TELL-ABOUT,V?ANALYZE /?THN6
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-225 (5588)
	EQUAL?	PRSA,V?TELL-ABOUT,V?ANALYZE /?THN4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-227 (5711)
?THN6:	SET	'P-WON,FALSE-VALUE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-227 (5677)
?THN4:	SET	'P-WON,FALSE-VALUE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-237 (5902)
	ZERO?	DEBUG /?ELS14
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-237 (5868)
	ZERO?	DEBUG /?ELS11
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-239 (5952)
	JUMP	?CND12
?ELS14:	CALL	PRINT-TT,TRAIN-TABLE-A
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-239 (5918)
	JUMP	?CND10
?ELS11:	CALL	PRINT-TT,TRAIN-TABLE-A
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-242 (6033)
?CND12:	PRINTR	"]"
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-242 (5999)
?CND10:	PRINTR	"]"
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-252 (6174)
?PRG6:	GET	TBL,N >OBJ
	ZERO?	OBJ \?CND8
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-252 (6140)
?PRG5:	GET	TBL,N >OBJ
	ZERO?	OBJ \?CND7
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-256 (6233)
?CND8:	ADD	TIM,OBJ >TIM
	ZERO?	DEBUG /?CND11
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-256 (6199)
?CND7:	ADD	TIM,OBJ >TIM
	ZERO?	DEBUG /?CND9
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-260 (6304)
?CND11:	INC	'N
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-260 (6269)
?CND9:	INC	'N
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-262 (6337)
	ZERO?	DEBUG /?CND15
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-262 (6301)
	ZERO?	DEBUG /?CND11
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-264 (6372)
?CND15:	CALL	ZMEMQ,OBJ,STATIONS
	ZERO?	STACK /?CND19
	ZERO?	DEBUG \?CND22
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-264 (6336)
?CND11:	CALL	ZMEMQ,OBJ,STATIONS
	ZERO?	STACK /?CND13
	ZERO?	DEBUG \?CND15
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-271 (6510)
?CND22:	GETP	OBJ,P?SIZE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-271 (6474)
?CND15:	GETP	OBJ,P?SIZE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-273 (6556)
?CND19:	ZERO?	DEBUG /?CND27
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-273 (6520)
?CND13:	ZERO?	DEBUG /?CND19
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-275 (6593)
?CND27:	INC	'N
	JUMP	?PRG6
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-275 (6557)
?CND19:	INC	'N
	JUMP	?PRG5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-292 (7000)
	EQUAL?	SCENERY-OBJ,STATION-WIEN \?ELS3
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-292 (6964)
	EQUAL?	SCENERY-OBJ,STATION-WIEN \?ELS2
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-297 (7176)
?ELS3:	EQUAL?	SCENERY-OBJ,STATION-GRNZ \?ELS7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-297 (7140)
?ELS2:	EQUAL?	SCENERY-OBJ,STATION-GRNZ \?ELS5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-305 (7415)
	ZERO?	STACK /?CND8
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-305 (7379)
	ZERO?	STACK /?CND6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-308 (7479)
	EQUAL?	STACK,P?NORTH /?CND8
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-308 (7443)
	EQUAL?	STACK,P?NORTH /?CND6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-312 (7578)
?CND8:	FCLEAR	CONDUCTOR,TOUCHBIT
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-312 (7542)
?CND6:	FCLEAR	CONDUCTOR,TOUCHBIT
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-322 (7859)
?ELS7:	FSET	PLAQUE,INVISIBLE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-322 (7823)
?ELS5:	FSET	PLAQUE,INVISIBLE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-326 (7994)
?CND1:	EQUAL?	PRSA,V?WAIT-UNTIL,V?WAIT-FOR /?CND17
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-326 (7958)
?CND1:	EQUAL?	PRSA,V?WAIT-UNTIL,V?WAIT-FOR /?CND11
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-328 (8054)
?CND17:	ZERO?	ON-TRAIN /?ELS22
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-328 (8018)
?CND11:	ZERO?	ON-TRAIN /?ELS14
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-335 (8264)
	JUMP	?CND20
?ELS22:	CALL	ZMEMQ,HERE,STATION-ROOMS
	ZERO?	STACK /?CND20
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-335 (8228)
	JUMP	?CND13
?ELS14:	CALL	ZMEMQ,HERE,STATION-ROOMS
	ZERO?	STACK /?CND13
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-340 (8453)
	ZERO?	STACK /?CND30
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-340 (8417)
	ZERO?	STACK /?CND20
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-344 (8601)
	ZERO?	GT /?ELS37
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-344 (8565)
	ZERO?	GT /?ELS25
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-346 (8632)
	JUMP	?CND35
?ELS37:	PRINTD	STATION-NAME
?CND35:	PRINTI	","" then lowers a short flight of metal stairs and gets off."
?CND30:	CRLF	
?CND20:	CALL	ARRIVE-AT-STATION-BAD-SPY
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-346 (8596)
	JUMP	?CND24
?ELS25:	PRINTD	STATION-NAME
?CND24:	PRINTI	","" then lowers a short flight of metal stairs and gets off."
?CND20:	CRLF	
?CND13:	CALL	ARRIVE-AT-STATION-BAD-SPY
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-355 (8847)
	ZERO?	N /?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-355 (8811)
	ZERO?	N /?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-358 (8902)
?ELS5:	SUB	CHARACTER-MAX,1 >N
?PRG8:	CALL	CLEAR-TRAIN-PERSON,N
	DLESS?	'N,THIN-MAN-C \?PRG8
	RTRUE	
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-358 (8866)
?ELS4:	SUB	CHARACTER-MAX,1 >N
?PRG5:	CALL	CLEAR-TRAIN-PERSON,N
	DLESS?	'N,THIN-MAN-C \?PRG5
	PUSH	1
	RSTACK	
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-368 (9104)
	EQUAL?	P,BAD-SPY /?THN6
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-369 (9078)
	EQUAL?	P,BAD-SPY /?THN4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-370 (9148)
	ZERO?	STACK \?THN6
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-371 (9122)
	ZERO?	STACK \?THN4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-373 (9222)
?THN6:	GET	GOAL-TABLES,N
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-374 (9196)
?THN4:	GET	GOAL-TABLES,N
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-378 (9355)
	ZERO?	STACK \?CND8
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-379 (9329)
	ZERO?	STACK \?CND6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-380 (9407)
	ZERO?	STACK \?CND8
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-381 (9381)
	ZERO?	STACK \?CND6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-382 (9446)
?CND8:	PUT	CHAR-LOCS,N,L
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-383 (9420)
?CND6:	PUT	CHAR-LOCS,N,L
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-393 (9674)
	ZERO?	MP? /?ELS3
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-394 (9648)
	ZERO?	MP? /?ELS2
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-396 (9737)
?ELS3:	MOVE	CONDUCTOR,X
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-397 (9711)
?ELS2:	MOVE	CONDUCTOR,X
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-416 (10235)
	EQUAL?	L,HERE /?CND8
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-417 (10209)
	EQUAL?	L,HERE /?CND6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-421 (10352)
?CND8:	PRINTI	" "
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-422 (10326)
?CND6:	PRINTI	" "
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-433 (10558)
	EQUAL?	SCENERY-OBJ,STATION-GRNZ \?CND7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-434 (10532)
	EQUAL?	SCENERY-OBJ,STATION-GRNZ \?CND5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-435 (10610)
?CND7:	CALL	QUEUE,I-DEPART,N
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-436 (10584)
?CND5:	CALL	QUEUE,I-DEPART,N
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-445 (10866)
	ZERO?	ON-TRAIN /?ELS3
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-446 (10840)
	ZERO?	ON-TRAIN /?ELS2
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-469 (11556)
	EQUAL?	STATION-NAME,STATION-GRNZ \?CND5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-470 (11530)
	EQUAL?	STATION-NAME,STATION-GRNZ \?CND3
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-473 (11691)
	ZERO?	HARD? /?THN11
	FSET?	MCGUFFIN,NDESCBIT /?CND5
?THN11:	CALL	MOVE-GOOD-SPY
?CND5:	CALL	INT,I-TRAIN-SCENERY
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-474 (11665)
	ZERO?	HARD? /?THN6
	FSET?	MCGUFFIN,NDESCBIT /?CND3
?THN6:	CALL	MOVE-GOOD-SPY
?CND3:	CALL	INT,I-TRAIN-SCENERY
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-480 (11857)
?ELS3:	FCLEAR	COMPARTMENT-1,TOUCHBIT
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-481 (11829)
?ELS2:	FCLEAR	COMPARTMENT-1,TOUCHBIT
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-496 (12288)
	ZERO?	STACK /?ELS21
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-497 (12260)
	ZERO?	STACK /?ELS13
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-500 (12391)
	JUMP	?CND19
?ELS21:	PRINTI	"hear the noise as the train"
?CND19:	CALL	CUE-NEXT-TRAIN
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-501 (12363)
	JUMP	?CND12
?ELS13:	PRINTI	"hear the noise as the train"
?CND12:	CALL	CUE-NEXT-TRAIN
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-516 (12806)
	LESS?	X,1 \?CND8
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-517 (12778)
	LESS?	X,1 \?CND6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-518 (12836)
?CND8:	CALL	QUEUE,I-TRAIN-SCENERY,X
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-519 (12808)
?CND6:	CALL	QUEUE,I-TRAIN-SCENERY,X
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-546 (13555)
	FIRST?	RM >F /?KLU37
?KLU37:	
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-547 (13527)
	FIRST?	RM >F /?KLU21
?KLU21:	
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-549 (13610)
	NEXT?	F >N /?KLU38
?KLU38:	FSET?	F,TAKEBIT \?ELS11
	ZERO?	TELL? /?CND12
	EQUAL?	RM,HERE \?CND12
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-550 (13582)
	NEXT?	F >N /?CND3
?CND3:	FSET?	F,TAKEBIT \?ELS6
	ZERO?	TELL? /?CND7
	EQUAL?	RM,HERE \?CND7
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-558 (13795)
?CND12:	FCLEAR	F,TAKEBIT
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-559 (13762)
?CND7:	FCLEAR	F,TAKEBIT
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-560 (13845)
	JUMP	?CND9
?ELS11:	FSET?	F,PERSONBIT \?ELS20
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-561 (13811)
	JUMP	?CND5
?ELS6:	FSET?	F,PERSONBIT \?ELS12
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-563 (13923)
	ZERO?	X /?CND21
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-564 (13888)
	ZERO?	X /?CND13
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-567 (14011)
?CND21:	FCLEAR	F,SEENBIT
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-568 (13976)
?CND13:	FCLEAR	F,SEENBIT
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-569 (14057)
	EQUAL?	F,WAITRESS \?ELS26
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-570 (14022)
	EQUAL?	F,WAITRESS \?ELS16
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-571 (14105)
	JUMP	?CND24
?ELS26:	PUTP	F,P?LDESC,0
?CND24:	ZERO?	NEW-DINER? /?CND9
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-572 (14070)
	JUMP	?CND15
?ELS16:	PUTP	F,P?LDESC,0
?CND15:	ZERO?	NEW-DINER? /?CND5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-575 (14204)
	JUMP	?CND9
?ELS20:	FSET?	F,SURFACEBIT /?THN35
	FSET?	F,CONTBIT \?CND9
?THN35:	CALL	FLUSH-ROOM?,F,FALSE-VALUE,NEW-DINER?
?CND9:	SET	'F,N
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-576 (14169)
	JUMP	?CND5
?ELS12:	FSET?	F,SURFACEBIT /?THN19
	FSET?	F,CONTBIT \?CND5
?THN19:	CALL	FLUSH-ROOM?,F,FALSE-VALUE,NEW-DINER?
?CND5:	SET	'F,N
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-590 (14519)
	ZERO?	TRAIN-MOVING /?ELS7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-591 (14484)
	ZERO?	TRAIN-MOVING /?ELS5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-599 (14684)
?ELS7:	PRINTI	"The train is stopped "
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-600 (14649)
?ELS5:	PRINTI	"The train is stopped "
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-617 (15006)
	EQUAL?	RARG,M-ENTER \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-618 (14971)
	EQUAL?	RARG,M-ENTER \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-620 (15071)
?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-621 (15036)
?ELS4:	EQUAL?	RARG,M-LOOK \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-629 (15402)
	EQUAL?	RARG,M-LOOK \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-630 (15367)
	EQUAL?	RARG,M-LOOK \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-638 (15634)
?ELS5:	EQUAL?	RARG,M-ENTER \?ELS7
	EQUAL?	EGO,BAD-SPY \?CND8
	IN?	BLOOD-SPOT,HERE \?CND8
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-639 (15599)
?ELS4:	EQUAL?	RARG,M-ENTER \?ELS5
	EQUAL?	EGO,BAD-SPY \?CND6
	IN?	BLOOD-SPOT,HERE \?CND6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-642 (15755)
?CND8:	EQUAL?	HERE,GAS-CAR-RM \?CND13
	EQUAL?	CAR-HERE,GAS-CAR \?CND13
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-643 (15720)
?CND6:	EQUAL?	HERE,GAS-CAR-RM \?CND9
	EQUAL?	CAR-HERE,GAS-CAR \?CND9
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-645 (15856)
?CND13:	CALL	CALL-FOR-EXTRA,HERE,CAR-HERE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-646 (15819)
?CND9:	CALL	CALL-FOR-EXTRA,HERE,CAR-HERE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-647 (15909)
?ELS7:	ZERO?	RARG \FALSE
	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?ELS25
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-648 (15871)
?ELS5:	ZERO?	RARG \FALSE
	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?ELS14
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-651 (16027)
?ELS25:	EQUAL?	PRSA,V?SEARCH \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-652 (15989)
?ELS14:	EQUAL?	PRSA,V?SEARCH \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-665 (16364)
?CND1:	ZERO?	WHERE /?CND7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-666 (16326)
?CND1:	ZERO?	WHERE /?CND5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-668 (16452)
	ZERO?	STACK /?ELS13
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-669 (16414)
	ZERO?	STACK /?ELS8
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-673 (16545)
?ELS13:	ZERO?	ON-TRAIN /?CND11
	FSET?	L,SEENBIT \?CND11
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-674 (16506)
?ELS8:	ZERO?	ON-TRAIN /?CND7
	FSET?	L,SEENBIT \?CND7
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-679 (16673)
?CND11:	FSET	L,SEENBIT
?CND7:	CALL	PICK-ONE,EXTRA-TABLE >P
	EQUAL?	P,EXCLUDE /?CND30
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-680 (16631)
?CND7:	FSET	L,SEENBIT
?CND5:	CALL	PICK-ONE,EXTRA-TABLE >P
	EQUAL?	P,EXCLUDE /?CND19
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-683 (16788)
	ZERO?	STACK /?CND30
	ZERO?	DEBUG /?CND35
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-684 (16745)
	ZERO?	STACK /?CND19
	ZERO?	DEBUG /?CND22
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-688 (16862)
?CND35:	RETURN	P
?CND30:	GET	EXTRA-TABLE,0 >N
?PRG41:	GET	EXTRA-TABLE,N >P
	EQUAL?	P,EXCLUDE /?ELS45
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-689 (16819)
?CND22:	RETURN	P
?CND19:	GET	EXTRA-TABLE,0 >N
?PRG26:	GET	EXTRA-TABLE,N >P
	EQUAL?	P,EXCLUDE /?ELS29
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-693 (16994)
	ZERO?	STACK /?ELS45
	ZERO?	DEBUG /?CND48
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-694 (16951)
	ZERO?	STACK /?ELS29
	ZERO?	DEBUG /?CND31
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-697 (17057)
?CND48:	RETURN	P
?ELS45:	DLESS?	'N,1 \?PRG41
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-698 (17014)
?CND31:	RETURN	P
?ELS29:	DLESS?	'N,1 \?PRG26
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-715 (17410)
	FSET?	STACK,SEENBIT \?CND10
	ZERO?	STA /?ELS15
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-716 (17367)
	FSET?	STACK,SEENBIT \?CND6
	ZERO?	STA /?ELS9
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-718 (17484)
?ELS15:	ZERO?	STA \?CND10
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-719 (17439)
?ELS9:	ZERO?	STA \?CND6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-720 (17535)
?CND10:	ZERO?	L /TRUE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-721 (17488)
?CND6:	ZERO?	L /TRUE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-726 (17657)
	ZERO?	X /?CND26
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-727 (17609)
	ZERO?	X /?CND15
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-730 (17745)
?CND26:	ZERO?	CAR /TRUE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-731 (17697)
?CND15:	ZERO?	CAR /TRUE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-746 (18271)
	ZERO?	TRAIN-MOVING /?ELS7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-747 (18223)
	ZERO?	TRAIN-MOVING /?ELS6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-749 (18370)
?ELS7:	PRINTR	"."
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-750 (18322)
?ELS6:	PRINTR	"."
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-753 (18426)
	EQUAL?	HERE,HALL-1,COMPARTMENT-1 \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-754 (18378)
	EQUAL?	HERE,HALL-1,COMPARTMENT-1 \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-755 (18491)
?ELS5:	EQUAL?	HERE,HALL-2,COMPARTMENT-2 \?ELS7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-756 (18443)
?ELS4:	EQUAL?	HERE,HALL-2,COMPARTMENT-2 \?ELS5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-757 (18562)
?ELS7:	EQUAL?	HERE,HALL-3,COMPARTMENT-3 \?ELS9
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-758 (18514)
?ELS5:	EQUAL?	HERE,HALL-3,COMPARTMENT-3 \?ELS6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-759 (18633)
?ELS9:	EQUAL?	HERE,HALL-4,COMPARTMENT-4 \?ELS11
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-760 (18585)
?ELS6:	EQUAL?	HERE,HALL-4,COMPARTMENT-4 \?ELS7
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-761 (18705)
?ELS11:	EQUAL?	HERE,HALL-5,COMPARTMENT-5 \?ELS13
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-762 (18656)
?ELS7:	EQUAL?	HERE,HALL-5,COMPARTMENT-5 \?ELS8
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-763 (18778)
?ELS13:	CALL	REMOTE-VERB?
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-764 (18727)
?ELS8:	CALL	REMOTE-VERB?
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-778 (19099)
	ZERO?	STACK /?ELS3
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-779 (19047)
	ZERO?	STACK /?ELS2
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-781 (19147)
?ELS3:	FCLEAR	DR,LOCKED
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-782 (19095)
?ELS2:	FCLEAR	DR,LOCKED
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-786 (19211)
	EQUAL?	RARG,M-ENTER \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-787 (19159)
	EQUAL?	RARG,M-ENTER \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-789 (19278)
?ELS5:	CALL	HALL-F,RARG
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-790 (19226)
?ELS4:	CALL	HALL-F,RARG
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-794 (19340)
	EQUAL?	RARG,M-LOOK \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-795 (19288)
	EQUAL?	RARG,M-LOOK \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-802 (19583)
?ELS5:	EQUAL?	RARG,M-ENTER \FALSE
	EQUAL?	HERE,HALL-1,HALL-5 \?ELS14
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-803 (19531)
?ELS4:	EQUAL?	RARG,M-ENTER \FALSE
	EQUAL?	HERE,HALL-1,HALL-5 \?ELS11
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-810 (19831)
?ELS14:	EQUAL?	HERE,HALL-1-DINER,HALL-5-DINER \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-811 (19779)
?ELS11:	EQUAL?	HERE,HALL-1-DINER,HALL-5-DINER \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-834 (20304)
	EQUAL?	RARG,M-LOOK \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-835 (20252)
	EQUAL?	RARG,M-LOOK \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-836 (20377)
	ZERO?	REAR? /?ELS12
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-837 (20325)
	ZERO?	REAR? /?ELS10
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-838 (20414)
	JUMP	?CND8
?ELS12:	PUSH	STR?229
?CND8:	PRINT	STACK
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-839 (20362)
	JUMP	?CND7
?ELS10:	PUSH	STR?229
?CND7:	PRINT	STACK
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-842 (20530)
	ZERO?	REAR? /?CND16
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-843 (20478)
	ZERO?	REAR? /?CND11
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-844 (20642)
?CND16:	CALL	CORD-SWINGS?
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-845 (20590)
?CND11:	CALL	CORD-SWINGS?
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-847 (20720)
	ZERO?	REAR? /?CND22
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-848 (20668)
	ZERO?	REAR? /?CND15
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-850 (20822)
?CND22:	ZERO?	TRAIN-MOVING /TRUE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-851 (20770)
?CND15:	ZERO?	TRAIN-MOVING /TRUE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-852 (20927)
?ELS5:	ZERO?	RARG \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-853 (20875)
?ELS4:	ZERO?	RARG \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-870 (21379)
	ZERO?	ON-TRAIN \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-871 (21327)
	ZERO?	ON-TRAIN \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-872 (21422)
?ELS5:	EQUAL?	CAR-HERE,DINER-CAR \?ELS7
	EQUAL?	P-ADJ,W?R,W?S /?THN13
	EQUAL?	P-ADJ,W?REAR,W?SOUTH \?ELS12
?THN13:	RETURN	REST-ROOM-REAR-DINER
?ELS12:	EQUAL?	P-ADJ,W?F,W?N /?THN17
	EQUAL?	P-ADJ,W?FORWARD,W?FRONT,W?NORTH \?ELS16
?THN17:	RETURN	REST-ROOM-FWD-DINER
?ELS16:	CALL	FORWARD-PART?,HERE
	ZERO?	STACK /?ELS20
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-873 (21370)
?ELS4:	EQUAL?	CAR-HERE,DINER-CAR \?ELS5
	EQUAL?	P-ADJ,W?R,W?S /?THN9
	EQUAL?	P-ADJ,W?REAR,W?SOUTH \?ELS10
?THN9:	RETURN	REST-ROOM-REAR-DINER
?ELS10:	EQUAL?	P-ADJ,W?F,W?N /?THN11
	EQUAL?	P-ADJ,W?FORWARD,W?FRONT,W?NORTH \?ELS12
?THN11:	RETURN	REST-ROOM-FWD-DINER
?ELS12:	CALL	FORWARD-PART?,HERE
	ZERO?	STACK /?ELS13
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-882 (21776)
?ELS20:	RETURN	REST-ROOM-REAR-DINER
?ELS7:	EQUAL?	P-ADJ,W?R,W?S /?THN30
	EQUAL?	P-ADJ,W?REAR,W?SOUTH \?ELS29
?THN30:	RETURN	REST-ROOM-REAR
?ELS29:	EQUAL?	P-ADJ,W?F,W?N /?THN34
	EQUAL?	P-ADJ,W?FORWARD,W?FRONT,W?NORTH \?ELS33
?THN34:	RETURN	REST-ROOM-FWD
?ELS33:	CALL	FORWARD-PART?,HERE
	ZERO?	STACK /?ELS37
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-883 (21722)
?ELS13:	RETURN	REST-ROOM-REAR-DINER
?ELS5:	EQUAL?	P-ADJ,W?R,W?S /?THN17
	EQUAL?	P-ADJ,W?REAR,W?SOUTH \?ELS18
?THN17:	RETURN	REST-ROOM-REAR
?ELS18:	EQUAL?	P-ADJ,W?F,W?N /?THN19
	EQUAL?	P-ADJ,W?FORWARD,W?FRONT,W?NORTH \?ELS20
?THN19:	RETURN	REST-ROOM-FWD
?ELS20:	CALL	FORWARD-PART?,HERE
	ZERO?	STACK /?ELS21
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-892 (22114)
?ELS37:	RETURN	REST-ROOM-REAR
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-893 (22060)
?ELS21:	PUSH	REST-ROOM-REAR
	RSTACK	
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-896 (22176)
	EQUAL?	HERE,HALL-1-DINER,BOOTH-1 \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-898 (22130)
	EQUAL?	HERE,HALL-1-DINER,BOOTH-1 \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-898 (22235)
?ELS5:	EQUAL?	HERE,HALL-2-DINER,BOOTH-2 \?ELS7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-900 (22189)
?ELS4:	EQUAL?	HERE,HALL-2-DINER,BOOTH-2 \?ELS5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-900 (22300)
?ELS7:	EQUAL?	HERE,HALL-3-DINER,BOOTH-3 \?ELS9
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-902 (22254)
?ELS5:	EQUAL?	HERE,HALL-3-DINER,BOOTH-3 \?ELS6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-902 (22365)
?ELS9:	CALL	REMOTE-VERB?
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-904 (22319)
?ELS6:	CALL	REMOTE-VERB?
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-911 (22542)
	EQUAL?	RARG,M-LOOK \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-913 (22496)
	EQUAL?	RARG,M-LOOK \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-914 (22610)
?ELS5:	EQUAL?	RARG,M-END \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-916 (22564)
?ELS4:	EQUAL?	RARG,M-END \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-937 (23209)
	EQUAL?	RARG,M-LOOK \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-939 (23163)
	EQUAL?	RARG,M-LOOK \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-940 (23277)
?ELS5:	EQUAL?	RARG,M-END \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-942 (23231)
?ELS4:	EQUAL?	RARG,M-END \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-949 (23521)
	EQUAL?	RM,PANTRY \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-951 (23475)
	EQUAL?	RM,PANTRY \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-952 (23602)
?ELS5:	EQUAL?	RM,GALLEY \?CND3
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-954 (23556)
?ELS4:	EQUAL?	RM,GALLEY \?CND3
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-958 (23832)
	EQUAL?	RARG,M-ENTER \?ELS5
	ZERO?	DEBUG /?CND6
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-960 (23786)
	EQUAL?	RARG,M-ENTER \?ELS4
	ZERO?	DEBUG /?CND5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-962 (23923)
?CND6:	IN?	WAITER,HERE \?ELS16
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-964 (23877)
?CND5:	IN?	WAITER,HERE \?ELS12
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-965 (23990)
?ELS16:	CALL	ESTABLISH-GOAL,WAITER,HERE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-967 (23944)
?ELS12:	CALL	ESTABLISH-GOAL,WAITER,HERE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-967 (24041)
?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-969 (23995)
?ELS4:	EQUAL?	RARG,M-LOOK \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-987 (24562)
	FSET?	FROY,TOUCHBIT /?ELS10
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-989 (24516)
	FSET?	FROY,TOUCHBIT /?ELS8
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-991 (24717)
?ELS10:	PRINTR	"Hmmm... The writing seems to have vanished."
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-993 (24670)
?ELS8:	PRINTR	"Hmmm... The writing seems to have vanished."
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1010 (25123)
	EQUAL?	CAR-HERE,DINER-CAR \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1012 (25075)
	EQUAL?	CAR-HERE,DINER-CAR \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1012 (25180)
?ELS5:	RETURN	HALL-1
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1014 (25132)
?ELS4:	RETURN	HALL-1
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1016 (25234)
	ZERO?	ON-TRAIN \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1018 (25186)
	ZERO?	ON-TRAIN \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1018 (25278)
?ELS5:	EQUAL?	CAR-HERE,DINER-CAR \?ELS7
	EQUAL?	P-ADJ,W?R,W?REAR \?ELS12
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1020 (25230)
?ELS4:	EQUAL?	CAR-HERE,DINER-CAR \?ELS5
	EQUAL?	P-ADJ,W?R,W?REAR \?ELS9
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1021 (25375)
?ELS12:	EQUAL?	P-ADJ,W?F,W?FORWARD \?ELS14
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1023 (25326)
?ELS9:	EQUAL?	P-ADJ,W?F,W?FORWARD \?ELS10
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1023 (25441)
?ELS14:	RETURN	HALL-3-DINER
?ELS7:	EQUAL?	P-ADJ,W?R,W?REAR \?ELS23
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1025 (25391)
?ELS10:	RETURN	HALL-3-DINER
?ELS5:	EQUAL?	P-ADJ,W?R,W?REAR \?ELS14
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1026 (25526)
?ELS23:	EQUAL?	P-ADJ,W?F,W?FORWARD \?ELS25
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1028 (25476)
?ELS14:	EQUAL?	P-ADJ,W?F,W?FORWARD \?ELS15
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1028 (25586)
?ELS25:	RETURN	HALL-3
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1030 (25536)
?ELS15:	PUSH	HALL-3
	RSTACK	
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1032 (25641)
	EQUAL?	CAR-HERE,DINER-CAR \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1035 (25599)
	EQUAL?	CAR-HERE,DINER-CAR \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1034 (25698)
?ELS5:	RETURN	HALL-5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1037 (25656)
?ELS4:	RETURN	HALL-5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1043 (25818)
	EQUAL?	PRSA,V?LOOK-THROUGH /?THN6
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1046 (25776)
	EQUAL?	PRSA,V?LOOK-THROUGH /?THN4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1045 (25909)
?THN6:	PRINTR	"The plastic panel is so scratched and grimy that you can barely see the display of cigarette packs inside."
?ELS5:	EQUAL?	PRSA,V?MUNG \?ELS11
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1048 (25867)
?THN4:	PRINTR	"The plastic panel is so scratched and grimy that you can barely see the display of cigarette packs inside."
?ELS5:	EQUAL?	PRSA,V?MUNG \?ELS8
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1048 (26122)
?ELS11:	EQUAL?	PRSA,V?SLAP,V?ATTACK \?ELS15
	FSET?	MACHINE,MUNGBIT /?ELS15
	FSET?	CIGARETTE,TOUCHBIT /?ELS15
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1051 (26079)
?ELS8:	EQUAL?	PRSA,V?SLAP,V?ATTACK \?ELS11
	FSET?	MACHINE,MUNGBIT /?ELS11
	FSET?	CIGARETTE,TOUCHBIT /?ELS11
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1052 (26253)
	FSET?	P,PERSONBIT \?CND18
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1055 (26209)
	FSET?	P,PERSONBIT \?CND13
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1054 (26298)
	EQUAL?	5,STACK \?CND18
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1057 (26254)
	EQUAL?	5,STACK \?CND13
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1057 (26362)
?CND18:	FSET	CIGARETTE,TOUCHBIT
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1060 (26318)
?CND13:	FSET	CIGARETTE,TOUCHBIT
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1062 (26536)
?ELS15:	EQUAL?	PRSA,V?SLAP,V?ATTACK /?THN27
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1065 (26492)
?ELS11:	EQUAL?	PRSA,V?SLAP,V?ATTACK /?THN18
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1067 (26706)
?THN27:	EQUAL?	PRSA,V?PUT-IN \?CND31
	ZERO?	HARD? /?CND34
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1070 (26662)
?THN18:	EQUAL?	PRSA,V?PUT-IN \?CND21
	ZERO?	HARD? /?CND23
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1070 (26789)
?CND34:	SUB	POCKET-CHANGE,P-AMOUNT >POCKET-CHANGE
?CND31:	RANDOM	100
	LESS?	80,STACK /?ELS40
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1073 (26745)
?CND23:	SUB	POCKET-CHANGE,P-AMOUNT >POCKET-CHANGE
?CND21:	RANDOM	100
	LESS?	80,STACK /?ELS26
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1074 (26920)
	JUMP	?CND38
?ELS40:	PRINTI	"""Whizz, burr, click!"""
?CND38:	PRINTR	" Nothing else happens."
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1077 (26876)
	JUMP	?CND25
?ELS26:	PRINTI	"""Whizz, burr, click!"""
?CND25:	PRINTR	" Nothing else happens."
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1080 (27040)
	ZERO?	IN-STATION /?ELS5
	GRTR?	CAR-HERE,PLATFORM-MAX \?ELS11
	ZERO?	CUSTOMS-SWEEP \?ELS11
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1083 (26996)
	ZERO?	IN-STATION /?ELS4
	GRTR?	CAR-HERE,PLATFORM-MAX \?ELS8
	ZERO?	CUSTOMS-SWEEP \?ELS8
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1086 (27218)
?ELS11:	ZERO?	CUSTOMS-SWEEP /?ELS17
	EQUAL?	CAR-HERE,1 \?ELS17
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1089 (27172)
?ELS8:	ZERO?	CUSTOMS-SWEEP /?ELS12
	EQUAL?	CAR-HERE,1 \?ELS12
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1092 (27378)
?ELS17:	FSET?	PEN,TOUCHBIT /?CND24
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1095 (27331)
?ELS12:	FSET?	PEN,TOUCHBIT /?CND16
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1095 (27451)
?CND24:	ZERO?	CUSTOMS-SWEEP /?CND27
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1098 (27404)
?CND16:	ZERO?	CUSTOMS-SWEEP /?CND18
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1098 (27545)
?CND27:	SET	'ON-TRAIN,FALSE-VALUE
	GRTR?	CAR-HERE,PLATFORM-MAX \?ELS35
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1101 (27498)
?CND18:	SET	'ON-TRAIN,FALSE-VALUE
	GRTR?	CAR-HERE,PLATFORM-MAX \?ELS23
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1102 (27661)
?ELS35:	GET	STATION-ROOMS,CAR-HERE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1105 (27614)
?ELS23:	GET	STATION-ROOMS,CAR-HERE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1104 (27707)
?ELS5:	ZERO?	TRAIN-MOVING \?ELS39
	ZERO?	PULLED-STOP-CORD /?CND40
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1107 (27660)
?ELS4:	ZERO?	TRAIN-MOVING \?ELS24
	ZERO?	PULLED-STOP-CORD /?CND25
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1107 (27796)
?CND40:	SET	'ON-TRAIN,FALSE-VALUE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1110 (27749)
?CND25:	SET	'ON-TRAIN,FALSE-VALUE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1109 (27854)
?ELS39:	PRINTI	"The train is moving pretty quickly. If you want to jump, say so."
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1112 (27807)
?ELS24:	PRINTI	"The train is moving pretty quickly. If you want to jump, say so."
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1115 (27982)
	IN?	CONDUCTOR,HERE \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1118 (27935)
	IN?	CONDUCTOR,HERE \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1120 (28089)
?ELS5:	EQUAL?	SCENERY-OBJ,TUNNEL \?ELS9
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1123 (28042)
?ELS4:	EQUAL?	SCENERY-OBJ,TUNNEL \?ELS7
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1124 (28212)
?ELS9:	ZERO?	TRAIN-MOVING \?ELS13
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1127 (28165)
?ELS7:	ZERO?	TRAIN-MOVING \?ELS10
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1127 (28317)
	ZERO?	IN-STATION /?ELS18
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1130 (28270)
	ZERO?	IN-STATION /?ELS14
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1130 (28379)
?ELS18:	PRINTI	"Far in the distance you can see that the tracks enter a tunnel."
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1133 (28332)
?ELS14:	PRINTI	"Far in the distance you can see that the tracks enter a tunnel."
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1135 (28536)
?ELS13:	LOC	BOND
	EQUAL?	STACK,ROOF,OTHER-ROOF /?ELS25
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1138 (28489)
?ELS10:	LOC	BOND
	EQUAL?	STACK,ROOF,OTHER-ROOF /?ELS17
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1138 (28606)
	LESS?	40,STACK /?ELS25
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1141 (28559)
	LESS?	40,STACK /?ELS17
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1144 (28971)
?ELS25:	PRINTI	"You scramble up the first couple of rungs of the ladder, but the fierce wind and the bucking train seem to conspire to shake you loose. As you reach for the final rung, "
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1147 (28924)
?ELS17:	PRINTI	"You scramble up the first couple of rungs of the ladder, but the fierce wind and the bucking train seem to conspire to shake you loose. As you reach for the final rung, "
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1146 (29170)
	EQUAL?	STACK,ROOF,OTHER-ROOF \?CND34
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1149 (29123)
	EQUAL?	STACK,ROOF,OTHER-ROOF \?CND23
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1150 (29305)
?CND34:	PRINTI	"the train lurches around a turn. You lose your grip and plummet back down to the vestibule floor."
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1153 (29258)
?CND23:	PRINTI	"the train lurches around a turn. You lose your grip and plummet back down to the vestibule floor."
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1156 (29466)
	EQUAL?	RARG,M-BEG \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1159 (29419)
	EQUAL?	RARG,M-BEG \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1160 (29550)
?ELS5:	EQUAL?	RARG,M-LOOK \?ELS13
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1163 (29503)
?ELS4:	EQUAL?	RARG,M-LOOK \?ELS9
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1162 (29795)
?ELS13:	EQUAL?	PRSA,V?EXAMINE,V?ANALYZE \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1165 (29747)
?ELS9:	EQUAL?	PRSA,V?EXAMINE,V?ANALYZE \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1169 (29932)
	IN?	BOND,HERE \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1172 (29883)
	IN?	BOND,HERE \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1174 (30029)
?ELS5:	EQUAL?	CAR-HERE,DINER-CAR \?ELS9
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1177 (29980)
?ELS4:	EQUAL?	CAR-HERE,DINER-CAR \?ELS7
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1176 (30100)
?ELS9:	RETURN	VESTIBULE-REAR
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1179 (30051)
?ELS7:	RETURN	VESTIBULE-REAR
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1180 (30152)
	EQUAL?	PRSA,V?CLIMB-ON,V?BOARD \?ELS5
	EQUAL?	HERE,ROOF \?ELS8
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1183 (30103)
	EQUAL?	PRSA,V?CLIMB-ON,V?BOARD \?ELS4
	EQUAL?	HERE,ROOF \?ELS6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1184 (30249)
?ELS8:	CALL	DO-WALK,P?UP
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1187 (30200)
?ELS6:	CALL	DO-WALK,P?UP
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1186 (30284)
?ELS5:	EQUAL?	PRSA,V?CLIMB-DOWN \?ELS12
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1189 (30235)
?ELS4:	EQUAL?	PRSA,V?CLIMB-DOWN \?ELS7
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1189 (30356)
?ELS12:	EQUAL?	PRSA,V?CLIMB-UP \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1192 (30306)
?ELS7:	EQUAL?	PRSA,V?CLIMB-UP \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1210 (30756)
	EQUAL?	PRSA,V?OPEN \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1213 (30705)
	EQUAL?	PRSA,V?OPEN \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1213 (30812)
	FSET?	DR,OPENBIT /?ELS12
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1216 (30761)
	FSET?	DR,OPENBIT /?ELS10
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1218 (30938)
?ELS12:	PRINTR	" is already open."
?ELS5:	EQUAL?	PRSA,V?CLOSE \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1221 (30887)
?ELS10:	PRINTR	" is already open."
?ELS4:	EQUAL?	PRSA,V?CLOSE \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1222 (31037)
	FSET?	DR,OPENBIT \?ELS27
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1225 (30986)
	FSET?	DR,OPENBIT \?ELS21
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1225 (31116)
?ELS27:	PRINTR	" is already shut."
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1228 (31065)
?ELS21:	PRINTR	" is already shut."
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1245 (31518)
	ZERO?	ARG \?THN6
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1248 (31467)
	ZERO?	ARG \?THN4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1248 (31596)
?THN6:	ZERO?	TRAIN-MOVING \?CND10
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1251 (31545)
?THN4:	ZERO?	TRAIN-MOVING \?CND7
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1250 (31719)
?CND10:	SET	'TRAIN-MOVING,FALSE-VALUE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1253 (31667)
?CND7:	SET	'TRAIN-MOVING,FALSE-VALUE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1261 (32078)
	LESS?	BOND-CTR,3 \?CND17
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1264 (32025)
	LESS?	BOND-CTR,3 \?CND13
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1264 (32145)
?CND17:	ZERO?	ARG \?ELS22
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1267 (32092)
?CND13:	ZERO?	ARG \?ELS16
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1266 (32198)
	ZERO?	STACK /?ELS22
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1269 (32145)
	ZERO?	STACK /?ELS16
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1268 (32264)
	JUMP	?CND20
?ELS22:	FCLEAR	CONDUCTOR,TOUCHBIT
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1271 (32211)
	JUMP	?CND15
?ELS16:	FCLEAR	CONDUCTOR,TOUCHBIT
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1271 (32341)
?CND20:	ZERO?	ARG \?ELS29
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1274 (32288)
?CND15:	ZERO?	ARG \?ELS19
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1273 (32389)
	ZERO?	STACK /?ELS29
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1276 (32336)
	ZERO?	STACK /?ELS19
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1275 (32448)
	JUMP	?CND27
?ELS29:	FCLEAR	COOK,TOUCHBIT
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1278 (32395)
	JUMP	?CND18
?ELS19:	FCLEAR	COOK,TOUCHBIT
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1279 (32552)
?CND27:	ZERO?	ARG \?ELS36
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1282 (32499)
?CND18:	ZERO?	ARG \?ELS22
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1281 (32602)
	ZERO?	STACK /?ELS36
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1284 (32549)
	ZERO?	STACK /?ELS22
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1283 (32663)
	JUMP	?CND34
?ELS36:	FCLEAR	WAITER,TOUCHBIT
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1286 (32610)
	JUMP	?CND21
?ELS22:	FCLEAR	WAITER,TOUCHBIT
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1286 (32734)
?CND34:	ZERO?	ARG \TRUE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1289 (32681)
?CND21:	ZERO?	ARG \TRUE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1315 (33389)
	EQUAL?	HERE,HALL-1,COMPARTMENT-1 \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1318 (33336)
	EQUAL?	HERE,HALL-1,COMPARTMENT-1 \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1317 (33447)
?ELS5:	EQUAL?	HERE,HALL-2,COMPARTMENT-2 \?ELS7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1320 (33394)
?ELS4:	EQUAL?	HERE,HALL-2,COMPARTMENT-2 \?ELS5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1319 (33511)
?ELS7:	EQUAL?	HERE,HALL-3,COMPARTMENT-3 \?ELS9
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1322 (33458)
?ELS5:	EQUAL?	HERE,HALL-3,COMPARTMENT-3 \?ELS6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1321 (33575)
?ELS9:	EQUAL?	HERE,HALL-4,COMPARTMENT-4 \?ELS11
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1324 (33522)
?ELS6:	EQUAL?	HERE,HALL-4,COMPARTMENT-4 \?ELS7
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1323 (33640)
?ELS11:	EQUAL?	HERE,HALL-5,COMPARTMENT-5 \?ELS13
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1326 (33586)
?ELS7:	EQUAL?	HERE,HALL-5,COMPARTMENT-5 \?ELS8
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1325 (33706)
?ELS13:	CALL	MORE-SPECIFIC
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1328 (33650)
?ELS8:	CALL	MORE-SPECIFIC
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1335 (33849)
	EQUAL?	PRSA,V?PUT-UNDER \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1338 (33792)
	EQUAL?	PRSA,V?PUT-UNDER \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1339 (33940)
?ELS5:	EQUAL?	PRSA,V?LOOK-UNDER \FALSE
	FIRST?	U >F /?KLU16
?KLU16:	ZERO?	F /?CND8
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1342 (33883)
?ELS4:	EQUAL?	PRSA,V?LOOK-UNDER \FALSE
	FIRST?	U >F /?KLU10
?KLU10:	ZERO?	F /?CND6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1343 (34046)
?CND8:	CALL	PERFORM,V?LOOK-INSIDE,U
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1346 (33989)
?CND6:	CALL	PERFORM,V?LOOK-INSIDE,U
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1359 (34341)
	FIRST?	PRSO \?ELS10
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1362 (34284)
	FIRST?	PRSO \?ELS8
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1363 (34433)
?ELS10:	PRINTR	"There's nothing under the seat."
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1366 (34375)
?ELS8:	PRINTR	"There's nothing under the seat."
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1387 (34756)
	ZERO?	ON-TRAIN /?ELS5
	ZERO?	IN-STATION /?ELS11
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1390 (34697)
	ZERO?	ON-TRAIN /?ELS4
	ZERO?	IN-STATION /?ELS8
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1391 (34846)
?ELS11:	ZERO?	TRAIN-MOVING \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1394 (34786)
?ELS8:	ZERO?	TRAIN-MOVING \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1393 (34904)
?ELS5:	EQUAL?	HERE,BESIDE-TRACKS \?ELS16
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1396 (34843)
?ELS4:	EQUAL?	HERE,BESIDE-TRACKS \?ELS10
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1396 (35002)
	EQUAL?	CAR-HERE,DINER-CAR \?ELS27
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1399 (34941)
	EQUAL?	CAR-HERE,DINER-CAR \?ELS18
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1399 (35078)
?ELS27:	GET	CAR-ROOMS-COMPS,X
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1402 (35017)
?ELS18:	GET	CAR-ROOMS-COMPS,X
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1401 (35119)
?ELS16:	ZERO?	IN-STATION /FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1404 (35058)
?ELS10:	ZERO?	IN-STATION /FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1408 (35306)
	EQUAL?	Y,DINER-CAR \?ELS45
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1411 (35245)
	EQUAL?	Y,DINER-CAR \?ELS29
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1411 (35375)
?ELS45:	GET	CAR-ROOMS-COMPS,X
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1414 (35314)
?ELS29:	GET	CAR-ROOMS-COMPS,X
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1416 (35441)
	EQUAL?	PRSA,V?READ,V?EXAMINE \?ELS5
	IN?	FROY,HERE \?ELS10
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1419 (35380)
	EQUAL?	PRSA,V?READ,V?EXAMINE \?ELS4
	IN?	FROY,HERE \?ELS8
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1420 (35537)
?ELS10:	CALL	NOTHING-SPECIAL
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1423 (35475)
?ELS8:	CALL	NOTHING-SPECIAL
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1422 (35577)
?ELS5:	EQUAL?	PRSA,V?OPEN \?ELS14
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1425 (35514)
?ELS4:	EQUAL?	PRSA,V?OPEN \?ELS9
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1424 (35632)
	EQUAL?	HERE,GAS-CAR-RM \?CND15
	EQUAL?	CAR-HERE,GAS-CAR \?CND15
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1427 (35568)
	EQUAL?	HERE,GAS-CAR-RM \?CND10
	EQUAL?	CAR-HERE,GAS-CAR \?CND10
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1428 (35756)
?CND15:	PRINTR	"The window opens only a bit, but it is enough to ventilate the room."
?ELS14:	EQUAL?	PRSA,V?CLOSE \?ELS23
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1431 (35692)
?CND10:	PRINTR	"The window opens only a bit, but it is enough to ventilate the room."
?ELS9:	EQUAL?	PRSA,V?CLOSE \?ELS15
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1432 (35919)
?ELS23:	EQUAL?	PRSA,V?THROUGH \?ELS27
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1435 (35854)
?ELS15:	EQUAL?	PRSA,V?THROUGH \?ELS18
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1435 (36023)
?ELS27:	EQUAL?	PRSA,V?LOOK-OUTSIDE,V?LOOK-THROUGH,V?LOOK-INSIDE \FALSE
	ZERO?	ON-TRAIN /?ELS41
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1438 (35958)
?ELS18:	EQUAL?	PRSA,V?LOOK-OUTSIDE,V?LOOK-THROUGH,V?LOOK-INSIDE \FALSE
	ZERO?	ON-TRAIN /?ELS29
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1438 (36155)
	ZERO?	IN-STATION /?ELS49
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1441 (36090)
	ZERO?	IN-STATION /?ELS34
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1442 (36281)
?ELS49:	CALL	MOTION-PREFIX
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1445 (36216)
?ELS34:	CALL	MOTION-PREFIX
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1446 (36369)
?ELS41:	CALL	WINDOW-ROOM,HERE,PRSO >RM
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1449 (36304)
?ELS29:	CALL	WINDOW-ROOM,HERE,PRSO >RM
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1474 (36798)
	ZERO?	ROOF? /?ELS3
	IN?	BOND,HERE \?ELS3
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1477 (36733)
	ZERO?	ROOF? /?ELS2
	IN?	BOND,HERE \?ELS2
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1477 (36855)
	LESS?	50,STACK /?ELS3
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1480 (36790)
	LESS?	50,STACK /?ELS2
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1482 (36953)
?ELS3:	ZERO?	CUSTOMS-SWEEP /?CND1
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1485 (36888)
?ELS2:	ZERO?	CUSTOMS-SWEEP /?CND1
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1488 (37129)
	ZERO?	NCAR \?ELS16
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1491 (37064)
	ZERO?	NCAR \?ELS11
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1492 (37205)
?ELS16:	GRTR?	NCAR,CAR-MAX \?CND14
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1495 (37140)
?ELS11:	GRTR?	NCAR,CAR-MAX \?CND10
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1496 (37301)
?CND14:	CALL	NEXT-CAR-SWITCHEROO,CAR-HERE,NCAR
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1499 (37236)
?CND10:	CALL	NEXT-CAR-SWITCHEROO,CAR-HERE,NCAR
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1498 (37377)
	ZERO?	ROOF? /?ELS27
	IN?	BOND,HERE \?CND29
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1501 (37312)
	ZERO?	ROOF? /?ELS20
	IN?	BOND,HERE \?CND21
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1506 (37549)
?CND29:	RETURN	ROOF
?ELS27:	EQUAL?	NCAR,DINER-CAR \?ELS35
	EQUAL?	WHICH,1 \?ELS40
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1509 (37484)
?CND21:	RETURN	ROOF
?ELS20:	EQUAL?	NCAR,DINER-CAR \?ELS25
	EQUAL?	WHICH,1 \?ELS29
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1510 (37663)
?ELS40:	RETURN	VESTIBULE-REAR-DINER
?ELS35:	EQUAL?	WHICH,1 \?ELS49
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1513 (37598)
?ELS29:	RETURN	VESTIBULE-REAR-DINER
?ELS25:	EQUAL?	WHICH,1 \?ELS33
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1513 (37755)
?ELS49:	RETURN	VESTIBULE-REAR
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1516 (37690)
?ELS33:	RETURN	VESTIBULE-REAR
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1526 (38054)
	EQUAL?	CAR,DINER-CAR /?CND6
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1529 (37989)
	EQUAL?	CAR,DINER-CAR /?CND5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1528 (38114)
?CND6:	EQUAL?	CAR-HERE,DINER-CAR /?CND9
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1531 (38049)
?CND5:	EQUAL?	CAR-HERE,DINER-CAR /?CND7
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1530 (38181)
?CND9:	EQUAL?	HERE,ROOF /?CND12
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1533 (38116)
?CND7:	EQUAL?	HERE,ROOF /?CND9
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1532 (38236)
?CND12:	GET	CAR-ROOMS,0 >CNT
?PRG15:	GET	CAR-ROOMS,CNT >RM
	EQUAL?	CAR,DINER-CAR /?CND17
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1535 (38170)
?CND9:	GET	CAR-ROOMS,0 >CNT
?PRG11:	GET	CAR-ROOMS,CNT >RM
	EQUAL?	CAR,DINER-CAR /?CND13
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1536 (38356)
?CND17:	EQUAL?	CAR-HERE,DINER-CAR /?CND20
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1539 (38289)
?CND13:	EQUAL?	CAR-HERE,DINER-CAR /?CND15
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1538 (38423)
?CND20:	CALL	CORRIDOR-LOOK,RM,CAR
	ZERO?	STACK \?CND23
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1541 (38356)
?CND15:	CALL	CORRIDOR-LOOK,RM,CAR
	ZERO?	STACK \?CND17
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1541 (38500)
?CND23:	DLESS?	'CNT,1 \?PRG15
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1544 (38433)
?CND17:	DLESS?	'CNT,1 \?PRG11
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1547 (38607)
	FIRST?	RM >F /?KLU28
?KLU28:	
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1550 (38540)
	FIRST?	RM >F /?KLU16
?KLU16:	
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1550 (38662)
	NEXT?	F >N /?KLU29
?KLU29:	EQUAL?	F,PLAYER,PAPER-FIXTURE \?ELS11
	JUMP	?CND9
?ELS11:	EQUAL?	F,TOWEL-FIXTURE-BROKEN,TOWEL-LOOP-BROKEN /?THN14
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1553 (38595)
	NEXT?	F >N /?CND3
?CND3:	EQUAL?	F,PLAYER,PAPER-FIXTURE \?ELS6
	JUMP	?CND5
?ELS6:	EQUAL?	F,TOWEL-FIXTURE-BROKEN,TOWEL-LOOP-BROKEN /?THN7
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1555 (38823)
	ZERO?	STACK /?ELS13
?THN14:	PUTP	F,P?CAR,CAR
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1558 (38751)
	ZERO?	STACK /?ELS8
?THN7:	PUTP	F,P?CAR,CAR
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1559 (38908)
	ZERO?	C /?CND9
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1562 (38834)
	ZERO?	C /?CND5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1561 (38955)
	ZERO?	X /?CND19
	IN?	F,HERE /?CND19
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1564 (38881)
	ZERO?	X /?CND11
	IN?	F,HERE /?CND11
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1564 (39017)
	ZERO?	STACK \?CND19
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1567 (38943)
	ZERO?	STACK \?CND11
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1571 (39167)
?CND19:	CALL	FIX-GOAL,F
	JUMP	?CND9
?ELS13:	FSET?	F,SURFACEBIT /?THN26
	FSET?	F,CONTBIT \?CND9
?THN26:	CALL	ROOM-TO-OTHER,CAR,F
?CND9:	SET	'F,N
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1574 (39093)
?CND11:	CALL	FIX-GOAL,F
	JUMP	?CND5
?ELS8:	FSET?	F,SURFACEBIT /?THN14
	FSET?	F,CONTBIT \?CND5
?THN14:	CALL	ROOM-TO-OTHER,CAR,F
?CND5:	SET	'F,N
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1585 (39482)
	EQUAL?	RM,GAS-CAR-RM \?ELS6
	EQUAL?	CAR-HERE,GAS-CAR \?ELS9
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1588 (39407)
	EQUAL?	RM,GAS-CAR-RM \?ELS4
	EQUAL?	CAR-HERE,GAS-CAR \?ELS6
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1588 (39561)
	JUMP	?CND4
?ELS9:	FCLEAR	F,LOCKED
	JUMP	?CND4
?ELS6:	CALL	ZMEMQ,RM,CAR-ROOMS-REST
	ZERO?	STACK /?CND4
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1591 (39486)
	JUMP	?CND3
?ELS6:	FCLEAR	F,LOCKED
	JUMP	?CND3
?ELS4:	CALL	ZMEMQ,RM,CAR-ROOMS-REST
	ZERO?	STACK /?CND3
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1594 (39698)
	ZERO?	STACK /?ELS16
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1597 (39623)
	ZERO?	STACK /?ELS9
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1596 (39736)
	JUMP	?CND4
?ELS16:	FCLEAR	F,LOCKED
?CND4:	GETP	RM,P?CAR >ORM
	FIRST?	ORM >F /?KLU42
?KLU42:	
?PRG19:	ZERO?	F /TRUE
	NEXT?	F >N /?KLU43
?KLU43:	EQUAL?	F,TOWEL-FIXTURE-BROKEN,TOWEL-LOOP-BROKEN /?THN30
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1599 (39660)
	JUMP	?CND3
?ELS9:	FCLEAR	F,LOCKED
?CND3:	GETP	RM,P?CAR >ORM
	FIRST?	ORM >F /?KLU23
?KLU23:	
?PRG10:	ZERO?	F /TRUE
	NEXT?	F >N /?CND12
?CND12:	EQUAL?	F,TOWEL-FIXTURE-BROKEN,TOWEL-LOOP-BROKEN /?THN15
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1605 (39959)
	ZERO?	STACK /?ELS29
?THN30:	GETP	F,P?CAR
	EQUAL?	CAR-HERE,STACK \?CND27
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1608 (39882)
	ZERO?	STACK /?ELS16
?THN15:	GETP	F,P?CAR
	EQUAL?	CAR-HERE,STACK \?CND14
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1610 (40071)
	ZERO?	C /?CND27
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1613 (39994)
	ZERO?	C /?CND14
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1612 (40107)
	JUMP	?CND27
?ELS29:	FSET?	F,SURFACEBIT /?THN40
	FSET?	F,CONTBIT \?CND27
?THN40:	GETP	F,P?CAR
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1615 (40030)
	JUMP	?CND14
?ELS16:	FSET?	F,SURFACEBIT /?THN21
	FSET?	F,CONTBIT \?CND14
?THN21:	GETP	F,P?CAR
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1617 (40232)
?CND27:	SET	'F,N
	JUMP	?PRG19
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1620 (40155)
?CND14:	SET	'F,N
	JUMP	?PRG10
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1636 (40557)
	EQUAL?	RARG,M-ENTER \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1639 (40480)
	EQUAL?	RARG,M-ENTER \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1643 (40733)
?ELS5:	EQUAL?	RARG,M-LOOK \?ELS14
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1646 (40656)
?ELS4:	EQUAL?	RARG,M-LOOK \?ELS10
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1645 (40804)
	EQUAL?	CAR-HERE,1 \?ELS19
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1648 (40727)
	EQUAL?	CAR-HERE,1 \?ELS14
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1647 (40861)
	JUMP	?CND17
?ELS19:	EQUAL?	CAR-HERE,CAR-MAX \?CND17
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1650 (40784)
	JUMP	?CND13
?ELS14:	EQUAL?	CAR-HERE,CAR-MAX \?CND13
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1650 (40944)
?CND17:	PRINTI	"the train."
	EQUAL?	SCENERY-OBJ,MEADOW \?CND28
	ZERO?	PULLED-STOP-CORD \?CND28
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1653 (40867)
?CND13:	PRINTI	"the train."
	EQUAL?	SCENERY-OBJ,MEADOW \?CND22
	ZERO?	PULLED-STOP-CORD \?CND22
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1654 (41161)
?CND28:	CRLF	
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1657 (41084)
?CND22:	CRLF	
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1656 (41185)
?ELS14:	ZERO?	RARG \FALSE
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1659 (41108)
?ELS10:	ZERO?	RARG \FALSE
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1659 (41278)
	ZERO?	ON-TRAIN /?ELS44
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1662 (41201)
	ZERO?	ON-TRAIN /?ELS31
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1662 (41341)
?ELS44:	CALL	HAR-HAR
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1665 (41264)
?ELS31:	CALL	HAR-HAR
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1678 (41561)
	LESS?	NCAR,PLATFORM-MIN /?THN4
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1681 (41484)
	LESS?	NCAR,PLATFORM-MIN /?THN2
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1680 (41627)
?THN4:	PRINTI	"This is the end of the train."
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1683 (41550)
?THN2:	PRINTI	"This is the end of the train."
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1685 (41760)
	EQUAL?	WHICH,1 \?ELS12
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1688 (41683)
	EQUAL?	WHICH,1 \?ELS9
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1687 (41801)
	JUMP	?CND10
?ELS12:	PRINTI	"fore"
?CND10:	PRINTI	"ward to the "
	EQUAL?	NCAR,PLATFORM-MIN \?ELS23
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1690 (41723)
	JUMP	?CND8
?ELS9:	PRINTI	"fore"
?CND8:	PRINTI	"ward to the "
	EQUAL?	NCAR,PLATFORM-MIN \?ELS17
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1692 (41934)
	JUMP	?CND21
?ELS23:	EQUAL?	NCAR,PLATFORM-MAX \?ELS27
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1695 (41853)
	JUMP	?CND16
?ELS17:	EQUAL?	NCAR,PLATFORM-MAX \?ELS20
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1695 (42018)
	JUMP	?CND21
?ELS27:	PRINTI	"next car"
?CND21:	PRINTI	"."
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1698 (41937)
	JUMP	?CND16
?ELS20:	PRINTI	"next car"
?CND16:	PRINTI	"."
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1724 (42918)
	EQUAL?	CAR,DINER-CAR \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1727 (42837)
	EQUAL?	CAR,DINER-CAR \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1726 (42973)
?ELS5:	EQUAL?	CAR,CAR-HERE \?ELS7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1729 (42892)
?ELS4:	EQUAL?	CAR,CAR-HERE \?ELS5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1728 (43027)
?ELS7:	RETURN	OTHER-LIMBO-FWD
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1731 (42946)
?ELS5:	RETURN	OTHER-LIMBO-FWD
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1732 (43082)
	EQUAL?	CAR,DINER-CAR \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1735 (43001)
	EQUAL?	CAR,DINER-CAR \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1734 (43138)
?ELS5:	EQUAL?	CAR,CAR-HERE \?ELS7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1737 (43057)
?ELS4:	EQUAL?	CAR,CAR-HERE \?ELS5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1736 (43193)
?ELS7:	RETURN	OTHER-LIMBO-REAR
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1739 (43112)
?ELS5:	RETURN	OTHER-LIMBO-REAR
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1740 (43248)
	EQUAL?	CAR,DINER-CAR \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1743 (43167)
	EQUAL?	CAR,DINER-CAR \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1742 (43307)
?ELS5:	EQUAL?	CAR,CAR-HERE \?ELS7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1745 (43226)
?ELS4:	EQUAL?	CAR,CAR-HERE \?ELS5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1744 (43365)
?ELS7:	RETURN	OTHER-VESTIBULE-FWD
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1747 (43284)
?ELS5:	RETURN	OTHER-VESTIBULE-FWD
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1748 (43424)
	EQUAL?	CAR,DINER-CAR \?ELS5
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1751 (43343)
	EQUAL?	CAR,DINER-CAR \?ELS4
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1750 (43484)
?ELS5:	EQUAL?	CAR,CAR-HERE \?ELS7
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1753 (43403)
?ELS4:	EQUAL?	CAR,CAR-HERE \?ELS5
***************

**** FILE PS:<SWG>TRAIN.ZAP.1, 1-1752 (43543)
?ELS7:	RETURN	OTHER-VESTIBULE-REAR
**** FILE PS:<SWG>TRAIN.ZAP.3, 1-1755 (43462)
?ELS5:	RETURN	OTHER-VESTIBULE-REAR
***************