historicalsource/checkpoint
1
0
Fork 0
mirror of https://github.com/historicalsource/checkpoint synced 2024-05-20 09:48:21 +03:00
Code Issues Releases Wiki Activity
checkpoint/train.cmp
historicalsource 8ae301e53b Final Revision
2019-04-13 22:12:44 -04:00

2272 lines
62 KiB
Plaintext
Raw Blame History

;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
***************
Reference in a new issue View git blame Copy permalink