historicalsource/checkpoint
1
0
Fork 0
mirror of https://github.com/historicalsource/checkpoint synced 2024-04-26 22:19:24 +03:00
Code Issues Releases Wiki Activity
checkpoint/things.cmp
historicalsource 8ae301e53b Final Revision
2019-04-13 22:12:44 -04:00

1392 lines
38 KiB
Plaintext
Raw Permalink Blame History

;COMPARISON OF PS:<SWG>THINGS.ZAP.1 AND PS:<SWG>THINGS.ZAP.3
;OPTIONS ARE /1
**** FILE PS:<SWG>THINGS.ZAP.1, 1-8 (125)
EQUAL? PRSO,NOT-HERE-OBJECT \?ELS3
EQUAL? PRSI,NOT-HERE-OBJECT \?ELS3
**** FILE PS:<SWG>THINGS.ZAP.3, 1-8 (125)
EQUAL? PRSO,NOT-HERE-OBJECT \?ELS2
EQUAL? PRSI,NOT-HERE-OBJECT \?ELS2
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-13 (257)
?ELS3: EQUAL? PRSO,NOT-HERE-OBJECT \?ELS11
**** FILE PS:<SWG>THINGS.ZAP.3, 1-13 (257)
?ELS2: EQUAL? PRSO,NOT-HERE-OBJECT \?ELS8
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-16 (332)
?ELS11: SET 'TBL,P-PRSI
**** FILE PS:<SWG>THINGS.ZAP.3, 1-16 (331)
?ELS8: SET 'TBL,P-PRSI
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-18 (382)
?CND1: EQUAL? PRSA,V?SEARCH-FOR,V?ASK-FOR,V?ASK-ABOUT \?CND14
FSET? PRSO,PERSONBIT \?CND14
IN? PRSO,GLOBAL-OBJECTS \?CND14
**** FILE PS:<SWG>THINGS.ZAP.3, 1-18 (380)
?CND1: EQUAL? PRSA,V?SEARCH-FOR,V?ASK-FOR,V?ASK-ABOUT \?CND9
FSET? PRSO,PERSONBIT \?CND9
IN? PRSO,GLOBAL-OBJECTS \?CND9
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-23 (549)
?CND14: ZERO? PRSO? /?ELS27
**** FILE PS:<SWG>THINGS.ZAP.3, 1-23 (544)
?CND9: ZERO? PRSO? /?ELS16
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-25 (596)
ZERO? STACK \?THN24
?ELS27: ZERO? PRSO? \?CND21
**** FILE PS:<SWG>THINGS.ZAP.3, 1-25 (590)
ZERO? STACK \?THN15
?ELS16: ZERO? PRSO? \?CND14
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-28 (665)
ZERO? STACK /?CND21
?THN24: CALL FIND-NOT-HERE,TBL,PRSO? >OBJ
**** FILE PS:<SWG>THINGS.ZAP.3, 1-28 (659)
ZERO? STACK /?CND14
?THN15: CALL FIND-NOT-HERE,TBL,PRSO? >OBJ
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-31 (749)
EQUAL? OBJ,NOT-HERE-OBJECT /?CND30
**** FILE PS:<SWG>THINGS.ZAP.3, 1-31 (743)
EQUAL? OBJ,NOT-HERE-OBJECT /?CND19
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-33 (797)
?CND30:
?CND21: PRINTI "(You can't see any"
**** FILE PS:<SWG>THINGS.ZAP.3, 1-33 (791)
?CND19:
?CND14: PRINTI "(You can't see any"
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-44 (967)
?CND1: ZERO? W \?CND4
**** FILE PS:<SWG>THINGS.ZAP.3, 1-44 (961)
?CND1: ZERO? W \?CND3
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-46 (1006)
?CND4: CALL SPEAKING-VERB?,V
**** FILE PS:<SWG>THINGS.ZAP.3, 1-46 (1000)
?CND3: CALL SPEAKING-VERB?,V
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-63 (1505)
?CND1: ZERO? W \?CND4
**** FILE PS:<SWG>THINGS.ZAP.3, 1-63 (1499)
?CND1: ZERO? W \?CND3
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-65 (1544)
?CND4: EQUAL? V,V?$WHERE,V?ASK-ABOUT,V?ASK-FOR /TRUE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-65 (1538)
?CND3: EQUAL? V,V?$WHERE,V?ASK-ABOUT,V?ASK-FOR /TRUE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-76 (1810)
EQUAL? PRSA,V?FOLLOW /?THN12
**** FILE PS:<SWG>THINGS.ZAP.3, 1-76 (1804)
EQUAL? PRSA,V?FOLLOW /?THN7
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-79 (1882)
?THN12: FSET? OBJ,SEENBIT /TRUE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-79 (1875)
?THN7: FSET? OBJ,SEENBIT /TRUE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-94 (2175)
?PRG12: DLESS? 'LEN,0 \?ELS16
JUMP ?REP13
?ELS16: GET TBL,CNT
**** FILE PS:<SWG>THINGS.ZAP.3, 1-94 (2167)
?PRG9: DLESS? 'LEN,0 \?ELS12
JUMP ?REP10
?ELS12: GET TBL,CNT
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-99 (2270)
?CND14: INC 'CNT
JUMP ?PRG12
?REP13: PRINTI "]"
**** FILE PS:<SWG>THINGS.ZAP.3, 1-99 (2261)
?CND11: INC 'CNT
JUMP ?PRG9
?REP10: PRINTI "]"
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-103 (2330)
?CND1: GRTR? M-F,1 \?CND23
**** FILE PS:<SWG>THINGS.ZAP.3, 1-103 (2320)
?CND1: GRTR? M-F,1 \?CND17
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-105 (2371)
?PRG26: IGRTR? 'CNT,M-F \?CND28
JUMP ?REP27
?CND28: GET TBL,CNT >OBJ
**** FILE PS:<SWG>THINGS.ZAP.3, 1-105 (2361)
?PRG19: IGRTR? 'CNT,M-F \?CND21
JUMP ?REP20
?CND21: GET TBL,CNT >OBJ
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-109 (2464)
ZERO? STACK /?PRG26
IGRTR? 'LOCAL,1 \?ELS36
JUMP ?REP27
?ELS36: SET 'P-MOBY-FOUND,OBJ
JUMP ?PRG26
?REP27: EQUAL? LOCAL,1 \?CND23
**** FILE PS:<SWG>THINGS.ZAP.3, 1-109 (2454)
ZERO? STACK /?PRG19
IGRTR? 'LOCAL,1 \?ELS26
JUMP ?REP20
?ELS26: SET 'P-MOBY-FOUND,OBJ
JUMP ?PRG19
?REP20: EQUAL? LOCAL,1 \?CND17
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-116 (2616)
?CND23: EQUAL? 1,M-F \?ELS46
ZERO? DEBUG /?CND47
**** FILE PS:<SWG>THINGS.ZAP.3, 1-116 (2606)
?CND17: EQUAL? 1,M-F \?ELS32
ZERO? DEBUG /?CND33
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-122 (2732)
?CND47: CALL REMOTE-VERB?
ZERO? STACK \?CND53
EQUAL? PRSA,V?$CALL /?CND53
**** FILE PS:<SWG>THINGS.ZAP.3, 1-122 (2722)
?CND33: CALL REMOTE-VERB?
ZERO? STACK \?CND37
EQUAL? PRSA,V?$CALL /?CND37
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-126 (2840)
ZERO? STACK \?CND53
**** FILE PS:<SWG>THINGS.ZAP.3, 1-126 (2830)
ZERO? STACK \?CND37
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-129 (2911)
?CND53: ZERO? PRSO? /?ELS60
**** FILE PS:<SWG>THINGS.ZAP.3, 1-129 (2901)
?CND37: ZERO? PRSO? /?ELS41
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-133 (3003)
?ELS60: SET 'PRSI,P-MOBY-FOUND
**** FILE PS:<SWG>THINGS.ZAP.3, 1-133 (2993)
?ELS41: SET 'PRSI,P-MOBY-FOUND
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-136 (3073)
?ELS46: LESS? 1,M-F \?ELS65
**** FILE PS:<SWG>THINGS.ZAP.3, 1-136 (3063)
?ELS32: LESS? 1,M-F \?ELS42
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-138 (3119)
FSET? OBJ,PERSONBIT \?ELS65
**** FILE PS:<SWG>THINGS.ZAP.3, 1-138 (3109)
FSET? OBJ,PERSONBIT \?ELS42
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-141 (3188)
?PRG68: GET TBL,CNT >OBJ
**** FILE PS:<SWG>THINGS.ZAP.3, 1-141 (3178)
?PRG44: GET TBL,CNT >OBJ
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-143 (3234)
ZERO? STACK \?CND70
**** FILE PS:<SWG>THINGS.ZAP.3, 1-143 (3224)
ZERO? STACK \?CND46
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-146 (3296)
GRTR? CNT,LEN /?CND70
JUMP ?PRG68
?CND70: IGRTR? 'CNT,LEN \?PRG68
**** FILE PS:<SWG>THINGS.ZAP.3, 1-146 (3286)
GRTR? CNT,LEN /?CND46
JUMP ?PRG44
?CND46: IGRTR? 'CNT,LEN \?PRG44
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-150 (3392)
ZERO? LEN \?ELS81
**** FILE PS:<SWG>THINGS.ZAP.3, 1-150 (3382)
ZERO? LEN \?ELS53
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-152 (3437)
?ELS81: EQUAL? LEN,1 /?CND79
**** FILE PS:<SWG>THINGS.ZAP.3, 1-152 (3427)
?ELS53: EQUAL? LEN,1 /?CND52
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-154 (3496)
EQUAL? TBL,P-PRSO \?ELS88
**** FILE PS:<SWG>THINGS.ZAP.3, 1-154 (3486)
EQUAL? TBL,P-PRSO \?ELS58
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-156 (3537)
JUMP ?CND84
?ELS88: PUSH P-NC2
?CND84: SET 'P-ACLAUSE,STACK
**** FILE PS:<SWG>THINGS.ZAP.3, 1-156 (3527)
JUMP ?CND55
?ELS58: PUSH P-NC2
?CND55: SET 'P-ACLAUSE,STACK
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-164 (3714)
?CND79: ZERO? DEBUG /?CND91
**** FILE PS:<SWG>THINGS.ZAP.3, 1-164 (3704)
?CND52: ZERO? DEBUG /?CND59
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-169 (3800)
?CND91: ZERO? PRSO? /?ELS99
**** FILE PS:<SWG>THINGS.ZAP.3, 1-169 (3790)
?CND59: ZERO? PRSO? /?ELS64
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-173 (3883)
?ELS99: SET 'PRSI,OBJ
**** FILE PS:<SWG>THINGS.ZAP.3, 1-173 (3873)
?ELS64: SET 'PRSI,OBJ
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-176 (3944)
?ELS65: LESS? 1,M-F \?ELS104
**** FILE PS:<SWG>THINGS.ZAP.3, 1-176 (3934)
?ELS42: LESS? 1,M-F \?ELS65
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-180 (4034)
ZERO? OBJ /?ELS104
ZERO? DEBUG /?CND107
**** FILE PS:<SWG>THINGS.ZAP.3, 1-180 (4023)
ZERO? OBJ /?ELS65
ZERO? DEBUG /?CND67
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-186 (4134)
?CND107: EQUAL? OBJ,NOT-HERE-OBJECT /TRUE
ZERO? PRSO? /?ELS117
**** FILE PS:<SWG>THINGS.ZAP.3, 1-186 (4121)
?CND67: EQUAL? OBJ,NOT-HERE-OBJECT /TRUE
ZERO? PRSO? /?ELS73
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-191 (4254)
?ELS117: SET 'PRSI,OBJ
**** FILE PS:<SWG>THINGS.ZAP.3, 1-191 (4239)
?ELS73: SET 'PRSI,OBJ
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-194 (4316)
?ELS104: ZERO? PRSO? \?ELS126
IN? PRSO,HERE \?ELS126
EQUAL? PRSA,V?TELL-ABOUT,V?ASK-FOR,V?ASK-ABOUT /?THN131
?ELS126: ZERO? PRSO? /?ELS128
**** FILE PS:<SWG>THINGS.ZAP.3, 1-194 (4300)
?ELS65: ZERO? PRSO? \?ELS75
IN? PRSO,HERE \?ELS75
EQUAL? PRSA,V?TELL-ABOUT,V?ASK-FOR,V?ASK-ABOUT /?THN74
?ELS75: ZERO? PRSO? /?ELS76
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-199 (4483)
ZERO? STACK /?ELS128
EQUAL? PRSA,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT /?THN131
?ELS128: EQUAL? WINNER,PLAYER /?ELS122
EQUAL? PRSA,V?SGIVE /?THN131
EQUAL? PRSA,V?GIVE,V?WHAT,V?FIND \?ELS122
?THN131: EQUAL? PRSA,V?ASK-FOR,V?ASK-ABOUT \?ELS135
**** FILE PS:<SWG>THINGS.ZAP.3, 1-199 (4461)
ZERO? STACK /?ELS76
EQUAL? PRSA,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT /?THN74
?ELS76: EQUAL? WINNER,PLAYER /?ELS77
EQUAL? PRSA,V?SGIVE /?THN74
EQUAL? PRSA,V?GIVE,V?WHAT,V?FIND \?ELS77
?THN74: EQUAL? PRSA,V?ASK-FOR,V?ASK-ABOUT \?ELS81
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-206 (4762)
JUMP ?CND133
?ELS135: CALL QCONTEXT-GOOD?
ZERO? STACK /?ELS137
**** FILE PS:<SWG>THINGS.ZAP.3, 1-206 (4732)
JUMP ?CND80
?ELS81: CALL QCONTEXT-GOOD?
ZERO? STACK /?ELS82
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-210 (4861)
JUMP ?CND133
?ELS137: EQUAL? WINNER,PLAYER /?ELS139
**** FILE PS:<SWG>THINGS.ZAP.3, 1-210 (4828)
JUMP ?CND80
?ELS82: EQUAL? WINNER,PLAYER /?ELS83
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-213 (4945)
JUMP ?CND133
?ELS139: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >OBJ
ZERO? OBJ /?ELS141
**** FILE PS:<SWG>THINGS.ZAP.3, 1-213 (4909)
JUMP ?CND80
?ELS83: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >OBJ
ZERO? OBJ /?ELS84
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-217 (5059)
JUMP ?CND133
?ELS141: PRINTI "Someone"
?CND133: PRINTI " says, "
**** FILE PS:<SWG>THINGS.ZAP.3, 1-217 (5020)
JUMP ?CND80
?ELS84: PRINTI "Someone"
?CND80: PRINTI " says, "
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-222 (5162)
?ELS122: ZERO? PRSO? \?ELS154
**** FILE PS:<SWG>THINGS.ZAP.3, 1-222 (5120)
?ELS77: ZERO? PRSO? \?ELS92
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-226 (5267)
?ELS154: RETURN NOT-HERE-OBJECT
**** FILE PS:<SWG>THINGS.ZAP.3, 1-226 (5223)
?ELS92: RETURN NOT-HERE-OBJECT
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-230 (5334)
ZERO? P-OFLAG \?THN6
**** FILE PS:<SWG>THINGS.ZAP.3, 1-230 (5289)
ZERO? P-OFLAG \?THN4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-232 (5381)
?THN6: ZERO? P-XADJ /?CND8
**** FILE PS:<SWG>THINGS.ZAP.3, 1-232 (5336)
?THN4: ZERO? P-XADJ /?CND6
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-235 (5438)
?CND8: ZERO? P-XNAM /FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-235 (5393)
?CND6: ZERO? P-XNAM /FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-239 (5504)
?ELS5: EQUAL? PRSO,NOT-HERE-OBJECT \?ELS23
**** FILE PS:<SWG>THINGS.ZAP.3, 1-239 (5459)
?ELS5: EQUAL? PRSO,NOT-HERE-OBJECT \?ELS16
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-244 (5648)
?ELS23: GET P-ITBL,P-NC2 >?TMP1
**** FILE PS:<SWG>THINGS.ZAP.3, 1-244 (5603)
?ELS16: GET P-ITBL,P-NC2 >?TMP1
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-251 (5786)
EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-251 (5741)
EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-255 (5927)
ZERO? TICKET-VIA /?CND8
**** FILE PS:<SWG>THINGS.ZAP.3, 1-255 (5882)
ZERO? TICKET-VIA /?CND7
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-258 (5990)
?CND8: PRINTR "."
?ELS5: EQUAL? PRSA,V?GIVE \?ELS21
**** FILE PS:<SWG>THINGS.ZAP.3, 1-258 (5945)
?CND7: PRINTR "."
?ELS4: EQUAL? PRSA,V?GIVE \?ELS14
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-261 (6060)
EQUAL? OBJ,CONDUCTOR,GUARD /?THN18
?ELS21: EQUAL? PRSA,V?SHOW \?ELS17
**** FILE PS:<SWG>THINGS.ZAP.3, 1-261 (6015)
PUSH 1
EQUAL? STACK,CONDUCTOR,GUARD /?THN13
?ELS14: EQUAL? PRSA,V?SHOW \?ELS15
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-264 (6149)
EQUAL? OBJ,CONDUCTOR,GUARD \?ELS17
?THN18: ZERO? ON-TRAIN \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-265 (6115)
PUSH 1
EQUAL? STACK,CONDUCTOR,GUARD \?ELS15
?THN13: ZERO? ON-TRAIN \FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-270 (6325)
?ELS17: EQUAL? PRSA,V?BUY-TICKET,V?BUY \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-272 (6302)
?ELS15: EQUAL? PRSA,V?BUY-TICKET,V?BUY \FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-272 (6400)
EQUAL? HERE,TICKET-AREA /?ELS37
**** FILE PS:<SWG>THINGS.ZAP.3, 1-274 (6377)
EQUAL? HERE,TICKET-AREA /?ELS26
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-275 (6459)
?ELS37: EQUAL? PRSA,V?BUY /?THN40
ZERO? PRSI \?CND35
?THN40: SET 'P-WON,FALSE-VALUE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-277 (6436)
?ELS26: EQUAL? PRSA,V?BUY /?THN27
ZERO? PRSI \?CND25
?THN27: SET 'P-WON,FALSE-VALUE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-279 (6600)
?CND35: GETP PRSI,P?NORTH >COST
GRTR? COST,0 \?THN47
FSET? PRSI,PERSONBIT \?ELS46
?THN47: PRINTI "You can't buy a ticket to"
**** FILE PS:<SWG>THINGS.ZAP.3, 1-281 (6577)
?CND25: GETP PRSI,P?NORTH >COST
GRTR? COST,0 \?THN32
FSET? PRSI,PERSONBIT \?ELS33
?THN32: PRINTI "You can't buy a ticket to"
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-285 (6763)
?ELS46: GRTR? COST,POCKET-CHANGE \?CND44
**** FILE PS:<SWG>THINGS.ZAP.3, 1-287 (6740)
?ELS33: GRTR? COST,POCKET-CHANGE \?CND31
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-287 (6845)
?CND44: SUB POCKET-CHANGE,COST >POCKET-CHANGE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-289 (6822)
?CND31: SUB POCKET-CHANGE,COST >POCKET-CHANGE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-290 (6952)
ZERO? STACK \?ELS57
EQUAL? SCENERY-OBJ,STATION-KNUT /?ELS57
**** FILE PS:<SWG>THINGS.ZAP.3, 1-292 (6929)
ZERO? STACK \?ELS40
EQUAL? SCENERY-OBJ,STATION-KNUT /?ELS40
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-293 (7047)
JUMP ?CND55
?ELS57: SET 'TICKET-VIA,FALSE-VALUE
?CND55: MOVE TICKET,PLAYER
**** FILE PS:<SWG>THINGS.ZAP.3, 1-295 (7024)
JUMP ?CND39
?ELS40: SET 'TICKET-VIA,FALSE-VALUE
?CND39: MOVE TICKET,PLAYER
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-309 (7350)
EQUAL? PRSA,V?ANALYZE \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-311 (7327)
EQUAL? PRSA,V?ANALYZE \?ELS4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-312 (7425)
?ELS5: EQUAL? PRSA,V?SHOW \?ELS7
IN? PEN,PRSO \?ELS12
**** FILE PS:<SWG>THINGS.ZAP.3, 1-314 (7402)
?ELS4: EQUAL? PRSA,V?SHOW \?ELS5
IN? PEN,PRSO \?ELS9
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-320 (7609)
?ELS12: EQUAL? PRSO,WAITRESS,GUARD,CONDUCTOR \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-322 (7585)
?ELS9: EQUAL? PRSO,WAITRESS,GUARD,CONDUCTOR \FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-325 (7784)
EQUAL? HERE,CAFE \?ELS23
**** FILE PS:<SWG>THINGS.ZAP.3, 1-327 (7759)
EQUAL? HERE,CAFE \?ELS18
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-329 (7868)
?ELS23: ZERO? ON-TRAIN \?ELS27
**** FILE PS:<SWG>THINGS.ZAP.3, 1-331 (7843)
?ELS18: ZERO? ON-TRAIN \?ELS21
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-331 (7929)
?ELS27: LESS? CAR-HERE,DINER-CAR \?ELS31
**** FILE PS:<SWG>THINGS.ZAP.3, 1-333 (7904)
?ELS21: LESS? CAR-HERE,DINER-CAR \?ELS24
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-333 (7995)
?ELS31: GRTR? CAR-HERE,DINER-CAR \?ELS35
**** FILE PS:<SWG>THINGS.ZAP.3, 1-335 (7970)
?ELS24: GRTR? CAR-HERE,DINER-CAR \?ELS27
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-335 (8057)
?ELS35: PRINTR "to a booth."
?ELS7: EQUAL? PRSA,V?USE,V?SIGN \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-337 (8032)
?ELS27: PRINTR "to a booth."
?ELS5: EQUAL? PRSA,V?USE,V?SIGN \FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-338 (8143)
IN? P,HERE /?THN49
**** FILE PS:<SWG>THINGS.ZAP.3, 1-340 (8118)
PUSH 1
IN? STACK,HERE /?THN36
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-340 (8179)
IN? P,HERE \FALSE
?THN49: EQUAL? PRSI,PEN /?THN56
**** FILE PS:<SWG>THINGS.ZAP.3, 1-343 (8167)
PUSH 1
IN? STACK,HERE \FALSE
?THN36: EQUAL? PRSI,PEN /?THN41
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-343 (8242)
EQUAL? STACK,P,PLAYER \?ELS55
?THN56: CALL START-SENTENCE,P
IN? PEN,P \?CND60
**** FILE PS:<SWG>THINGS.ZAP.3, 1-347 (8243)
EQUAL? STACK,P,PLAYER \?ELS42
?THN41: CALL START-SENTENCE,P
IN? PEN,P \?CND45
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-350 (8422)
?CND60: MOVE CHECK,P
**** FILE PS:<SWG>THINGS.ZAP.3, 1-354 (8423)
?CND45: MOVE CHECK,P
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-356 (8594)
?ELS55: CALL START-SENTENCE,P
**** FILE PS:<SWG>THINGS.ZAP.3, 1-360 (8595)
?ELS42: CALL START-SENTENCE,P
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-361 (8701)
EQUAL? PRSA,V?AIM \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-365 (8702)
EQUAL? PRSA,V?AIM \?ELS4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-364 (8784)
?ELS5: EQUAL? PRSA,V?EXAMINE \?ELS14
**** FILE PS:<SWG>THINGS.ZAP.3, 1-368 (8785)
?ELS4: EQUAL? PRSA,V?EXAMINE \?ELS11
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-366 (8850)
IN? FILM,CAMERA \?ELS21
ZERO? CAMERA-COCKED \?ELS21
**** FILE PS:<SWG>THINGS.ZAP.3, 1-370 (8851)
IN? FILM,CAMERA \?ELS16
ZERO? CAMERA-COCKED \?ELS16
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-369 (8955)
?ELS21: CALL NOTHING-SPECIAL
**** FILE PS:<SWG>THINGS.ZAP.3, 1-373 (8956)
?ELS16: CALL NOTHING-SPECIAL
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-371 (8995)
?ELS14: EQUAL? PRSA,V?LOOK-THROUGH \?ELS29
**** FILE PS:<SWG>THINGS.ZAP.3, 1-375 (8996)
?ELS11: EQUAL? PRSA,V?LOOK-THROUGH \?ELS20
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-373 (9077)
?ELS29: EQUAL? PRSA,V?OPEN \?ELS33
**** FILE PS:<SWG>THINGS.ZAP.3, 1-377 (9078)
?ELS20: EQUAL? PRSA,V?OPEN \?ELS23
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-377 (9185)
?ELS33: EQUAL? PRSA,V?SHOOT \?ELS41
**** FILE PS:<SWG>THINGS.ZAP.3, 1-381 (9186)
?ELS23: EQUAL? PRSA,V?SHOOT \?ELS28
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-381 (9292)
?ELS41: EQUAL? PRSA,V?WIND \FALSE
FSET? CAMERA,OPENBIT /?THN52
IN? FILM,CAMERA \?THN52
ZERO? CAMERA-COCKED \?THN52
GRTR? PICTURE-NUMBER,3 \?ELS51
?THN52: CALL YOU-CANT
**** FILE PS:<SWG>THINGS.ZAP.3, 1-385 (9293)
?ELS28: EQUAL? PRSA,V?WIND \FALSE
FSET? CAMERA,OPENBIT /?THN35
IN? FILM,CAMERA \?THN35
ZERO? CAMERA-COCKED \?THN35
GRTR? PICTURE-NUMBER,3 \?ELS36
?THN35: CALL YOU-CANT
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-388 (9479)
?ELS51: INC 'PICTURE-NUMBER
**** FILE PS:<SWG>THINGS.ZAP.3, 1-392 (9480)
?ELS36: INC 'PICTURE-NUMBER
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-394 (9577)
EQUAL? PRSA,V?WIND \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-398 (9578)
EQUAL? PRSA,V?WIND \?ELS4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-397 (9641)
?ELS5: EQUAL? PRSA,V?READ,V?EXAMINE \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-401 (9642)
?ELS4: EQUAL? PRSA,V?READ,V?EXAMINE \FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-402 (9763)
EQUAL? PRSA,V?LOOK-THROUGH \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-406 (9764)
EQUAL? PRSA,V?LOOK-THROUGH \?ELS4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-404 (9837)
?ELS5: EQUAL? PRSA,V?EXAMINE,V?READ \?ELS9
EQUAL? PRSI,GLASS \?ELS9
EQUAL? PRSO,FILM \?ELS16
**** FILE PS:<SWG>THINGS.ZAP.3, 1-408 (9838)
?ELS4: EQUAL? PRSA,V?EXAMINE,V?READ \?ELS7
EQUAL? PRSI,GLASS \?ELS7
EQUAL? PRSO,FILM \?ELS12
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-408 (10025)
ZERO? PICTURE-NUMBER \?CND19
**** FILE PS:<SWG>THINGS.ZAP.3, 1-412 (10026)
ZERO? PICTURE-NUMBER \?CND15
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-410 (10097)
?CND19: CRLF
**** FILE PS:<SWG>THINGS.ZAP.3, 1-414 (10098)
?CND15: CRLF
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-412 (10125)
?PRG24: PRINTI "Picture "
**** FILE PS:<SWG>THINGS.ZAP.3, 1-416 (10126)
?PRG19: PRINTI "Picture "
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-416 (10203)
ZERO? X \?ELS30
**** FILE PS:<SWG>THINGS.ZAP.3, 1-420 (10204)
ZERO? X \?ELS24
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-418 (10243)
JUMP ?CND28
?ELS30: EQUAL? -1,X \?ELS34
**** FILE PS:<SWG>THINGS.ZAP.3, 1-422 (10244)
JUMP ?CND23
?ELS24: EQUAL? -1,X \?ELS27
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-421 (10305)
JUMP ?CND28
?ELS34: PRINTI "a picture of "
EQUAL? X,GLOBAL-OBJECTS \?ELS43
**** FILE PS:<SWG>THINGS.ZAP.3, 1-425 (10306)
JUMP ?CND23
?ELS27: PRINTI "a picture of "
EQUAL? X,GLOBAL-OBJECTS \?ELS33
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-425 (10426)
JUMP ?CND28
?ELS43: FSET? X,WINDOWBIT \?ELS47
**** FILE PS:<SWG>THINGS.ZAP.3, 1-429 (10427)
JUMP ?CND23
?ELS33: FSET? X,WINDOWBIT \?ELS36
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-428 (10496)
JUMP ?CND28
?ELS47: ZERO? X /?ELS51
**** FILE PS:<SWG>THINGS.ZAP.3, 1-432 (10497)
JUMP ?CND23
?ELS36: ZERO? X /?ELS39
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-432 (10564)
JUMP ?CND28
?ELS51: PRINTI "nothing."
?CND28: CRLF
IGRTR? 'CNT,4 \?PRG24
**** FILE PS:<SWG>THINGS.ZAP.3, 1-436 (10565)
JUMP ?CND23
?ELS39: PRINTI "nothing."
?CND23: CRLF
IGRTR? 'CNT,4 \?PRG19
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-437 (10653)
?ELS16: FSET? PRSO,READBIT \?ELS63
**** FILE PS:<SWG>THINGS.ZAP.3, 1-441 (10654)
?ELS12: FSET? PRSO,READBIT \?ELS46
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-439 (10711)
ZERO? X /?ELS63
**** FILE PS:<SWG>THINGS.ZAP.3, 1-443 (10712)
ZERO? X /?ELS46
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-443 (10756)
?ELS63: EQUAL? PRSO,GLASS \?ELS69
**** FILE PS:<SWG>THINGS.ZAP.3, 1-447 (10757)
?ELS46: EQUAL? PRSO,GLASS \?ELS50
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-446 (10816)
?ELS69: EQUAL? PRSO,PLAYER,MIRROR \?ELS71
**** FILE PS:<SWG>THINGS.ZAP.3, 1-450 (10817)
?ELS50: EQUAL? PRSO,PLAYER,MIRROR \?ELS51
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-448 (10927)
?ELS71: PRINTI "You see"
**** FILE PS:<SWG>THINGS.ZAP.3, 1-452 (10928)
?ELS51: PRINTI "You see"
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-451 (11003)
?ELS9: EQUAL? PRSA,V?EXAMINE,V?READ \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-455 (11004)
?ELS7: EQUAL? PRSA,V?EXAMINE,V?READ \FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-459 (11159)
EQUAL? PRSA,V?EAT \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-463 (11160)
EQUAL? PRSA,V?EAT \?ELS4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-462 (11225)
?ELS5: EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS9
ZERO? LIST-RUBBED /?ELS14
**** FILE PS:<SWG>THINGS.ZAP.3, 1-466 (11226)
?ELS4: EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \?ELS7
ZERO? LIST-RUBBED /?ELS11
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-468 (11377)
?ELS14: EQUAL? P-ADVERB,W?CAREFULLY \?ELS19
**** FILE PS:<SWG>THINGS.ZAP.3, 1-472 (11378)
?ELS11: EQUAL? P-ADVERB,W?CAREFULLY \?ELS14
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-472 (11520)
?ELS19: PRINTI "There doesn't seem to be anything written on the "
**** FILE PS:<SWG>THINGS.ZAP.3, 1-476 (11521)
?ELS14: PRINTI "There doesn't seem to be anything written on the "
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-475 (11619)
?ELS9: EQUAL? PRSA,V?RUB \?ELS27
ZERO? PRSI \?ELS32
**** FILE PS:<SWG>THINGS.ZAP.3, 1-479 (11620)
?ELS7: EQUAL? PRSA,V?RUB \?ELS19
ZERO? PRSI \?ELS23
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-480 (11759)
?ELS32: EQUAL? PRSI,PEN \?ELS36
**** FILE PS:<SWG>THINGS.ZAP.3, 1-484 (11760)
?ELS23: EQUAL? PRSI,PEN \?ELS26
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-487 (11915)
?ELS36: PRINTI "Nothing "
ZERO? LIST-RUBBED /?CND43
**** FILE PS:<SWG>THINGS.ZAP.3, 1-491 (11916)
?ELS26: PRINTI "Nothing "
ZERO? LIST-RUBBED /?CND31
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-490 (11986)
?CND43: PRINTR "appears."
?ELS27: EQUAL? PRSA,V?RUN-OVER \?ELS52
EQUAL? PRSO,PEN \?ELS52
**** FILE PS:<SWG>THINGS.ZAP.3, 1-494 (11987)
?CND31: PRINTR "appears."
?ELS19: EQUAL? PRSA,V?RUN-OVER \?ELS37
EQUAL? PRSO,PEN \?ELS37
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-498 (12190)
?ELS52: EQUAL? PRSA,V?HOLD-UP \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-502 (12191)
?ELS37: EQUAL? PRSA,V?HOLD-UP \FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-522 (12671)
EQUAL? RARG,M-OBJDESC \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-526 (12672)
EQUAL? RARG,M-OBJDESC \?ELS4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-524 (12761)
FSET? BRIEFCASE,SURFACEBIT \?ELS12
**** FILE PS:<SWG>THINGS.ZAP.3, 1-528 (12762)
FSET? BRIEFCASE,SURFACEBIT \?ELS10
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-526 (12817)
?ELS12: PRINTR "open."
?ELS5: EQUAL? PRSA,V?EXAMINE \?ELS20
**** FILE PS:<SWG>THINGS.ZAP.3, 1-530 (12818)
?ELS10: PRINTR "open."
?ELS4: EQUAL? PRSA,V?EXAMINE \?ELS15
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-529 (12941)
EQUAL? P-ADVERB,W?CAREFULLY \?CND23
**** FILE PS:<SWG>THINGS.ZAP.3, 1-533 (12942)
EQUAL? P-ADVERB,W?CAREFULLY \?CND18
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-531 (12999)
?CND23: CRLF
**** FILE PS:<SWG>THINGS.ZAP.3, 1-535 (13000)
?CND18: CRLF
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-533 (13023)
?ELS20: CALL REMOTE-VERB?
**** FILE PS:<SWG>THINGS.ZAP.3, 1-537 (13024)
?ELS15: CALL REMOTE-VERB?
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-535 (13071)
EQUAL? PRSA,V?MOVE,V?TAKE \?ELS29
EQUAL? PRSO,BRIEFCASE \?ELS29
**** FILE PS:<SWG>THINGS.ZAP.3, 1-539 (13072)
EQUAL? PRSA,V?MOVE,V?TAKE \?ELS21
EQUAL? PRSO,BRIEFCASE \?ELS21
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-538 (13169)
?ELS29: LOC BRIEFCASE
FSET? STACK,PERSONBIT \?ELS33
**** FILE PS:<SWG>THINGS.ZAP.3, 1-542 (13170)
?ELS21: LOC BRIEFCASE
FSET? STACK,PERSONBIT \?ELS23
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-542 (13274)
?ELS33: EQUAL? PRSA,V?OPEN \?ELS37
FSET? BRIEFCASE-LATCH,OPENBIT /?ELS42
**** FILE PS:<SWG>THINGS.ZAP.3, 1-546 (13275)
?ELS23: EQUAL? PRSA,V?OPEN \?ELS25
FSET? BRIEFCASE-LATCH,OPENBIT /?ELS29
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-546 (13416)
?ELS42: ZERO? LATCH-TURNED \?ELS46
FSET? BRIEFCASE,SURFACEBIT \?ELS46
**** FILE PS:<SWG>THINGS.ZAP.3, 1-550 (13417)
?ELS29: ZERO? LATCH-TURNED \?ELS32
FSET? BRIEFCASE,SURFACEBIT \?ELS32
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-550 (13515)
?ELS46: IN? BRIEFCASE,PLAYER \?ELS50
ZERO? PLAYER-SEATED \?ELS50
**** FILE PS:<SWG>THINGS.ZAP.3, 1-554 (13516)
?ELS32: IN? BRIEFCASE,PLAYER \?ELS34
ZERO? PLAYER-SEATED \?ELS34
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-553 (13615)
ZERO? STACK /?ELS50
**** FILE PS:<SWG>THINGS.ZAP.3, 1-557 (13616)
ZERO? STACK /?ELS34
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-555 (13754)
?ELS50: FSET BRIEFCASE,OPENBIT
**** FILE PS:<SWG>THINGS.ZAP.3, 1-559 (13755)
?ELS34: FSET BRIEFCASE,OPENBIT
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-558 (13840)
?ELS37: EQUAL? PRSA,V?CLOSE \?ELS58
**** FILE PS:<SWG>THINGS.ZAP.3, 1-562 (13841)
?ELS25: EQUAL? PRSA,V?CLOSE \?ELS38
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-562 (13959)
?ELS58: EQUAL? PRSA,V?SHAKE \?ELS60
**** FILE PS:<SWG>THINGS.ZAP.3, 1-566 (13960)
?ELS38: EQUAL? PRSA,V?SHAKE \?ELS39
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-566 (14077)
?ELS60: EQUAL? PRSA,V?MOVE,V?TAKE \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-570 (14078)
?ELS39: EQUAL? PRSA,V?MOVE,V?TAKE \FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-568 (14150)
FSET? BRIEFCASE,OPENBIT \?ELS76
ZERO? PLAYER-SEATED \?ELS76
**** FILE PS:<SWG>THINGS.ZAP.3, 1-572 (14151)
FSET? BRIEFCASE,OPENBIT \?ELS51
ZERO? PLAYER-SEATED \?ELS51
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-572 (14258)
?ELS76: FSET? BRIEFCASE,SURFACEBIT \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-576 (14259)
?ELS51: FSET? BRIEFCASE,SURFACEBIT \FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-578 (14372)
ZERO? YOU? /?ELS3
**** FILE PS:<SWG>THINGS.ZAP.3, 1-582 (14373)
ZERO? YOU? /?ELS2
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-581 (14484)
?ELS3: PRINTI "Too late, you notice that the compartment is filled with p"
**** FILE PS:<SWG>THINGS.ZAP.3, 1-585 (14485)
?ELS2: PRINTI "Too late, you notice that the compartment is filled with p"
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-583 (14615)
ZERO? YOU? /?CND13
**** FILE PS:<SWG>THINGS.ZAP.3, 1-587 (14616)
ZERO? YOU? /?CND9
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-585 (14705)
?CND13: PRINTI ". Holding your breath will not help: this cunning creation of the chemical warfare chaps is absorbed through the skin. Well, ""only the good die young."""
**** FILE PS:<SWG>THINGS.ZAP.3, 1-589 (14705)
?CND9: PRINTI ". Holding your breath will not help: this cunning creation of the chemical warfare chaps is absorbed through the skin. Well, ""only the good die young."""
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-594 (14964)
ZERO? STACK \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-598 (14963)
ZERO? STACK \?ELS4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-597 (15027)
?ELS5: EQUAL? PRSA,V?EXAMINE \?ELS7
**** FILE PS:<SWG>THINGS.ZAP.3, 1-601 (15026)
?ELS4: EQUAL? PRSA,V?EXAMINE \?ELS5
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-599 (15156)
ZERO? LATCH-TURNED \?ELS12
**** FILE PS:<SWG>THINGS.ZAP.3, 1-603 (15155)
ZERO? LATCH-TURNED \?ELS9
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-601 (15207)
JUMP ?CND10
?ELS12: PRINTI "toward "
?CND10: PRINTI "the handle of the briefcase. The latch is "
FSET? BRIEFCASE-LATCH,OPENBIT /?ELS23
**** FILE PS:<SWG>THINGS.ZAP.3, 1-605 (15205)
JUMP ?CND8
?ELS9: PRINTI "toward "
?CND8: PRINTI "the handle of the briefcase. The latch is "
FSET? BRIEFCASE-LATCH,OPENBIT /?ELS17
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-606 (15367)
JUMP ?CND21
?ELS23: PRINTI "open."
?CND21: EQUAL? P-ADVERB,W?CAREFULLY \?CND30
**** FILE PS:<SWG>THINGS.ZAP.3, 1-610 (15362)
JUMP ?CND16
?ELS17: PRINTI "open."
?CND16: EQUAL? P-ADVERB,W?CAREFULLY \?CND22
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-610 (15470)
?CND30: CRLF
**** FILE PS:<SWG>THINGS.ZAP.3, 1-614 (15465)
?CND22: CRLF
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-612 (15494)
?ELS7: CALL REMOTE-VERB?
**** FILE PS:<SWG>THINGS.ZAP.3, 1-616 (15489)
?ELS5: CALL REMOTE-VERB?
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-615 (15557)
FSET? STACK,PERSONBIT \?ELS36
**** FILE PS:<SWG>THINGS.ZAP.3, 1-619 (15552)
FSET? STACK,PERSONBIT \?ELS25
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-618 (15639)
?ELS36: EQUAL? PRSA,V?AIM,V?TURN \?ELS40
EQUAL? PRSO,BRIEFCASE-LATCH \?ELS40
ZERO? LATCH-TURNED \?PRD43
PUSH 1
JUMP ?PRD44
?PRD43: PUSH 0
?PRD44: SET 'LATCH-TURNED,STACK
PRINTR "A mechanical click comes from within the briefcase."
?ELS40: EQUAL? PRSA,V?CLOSE \?ELS48
FSET? BRIEFCASE,OPENBIT \?ELS53
**** FILE PS:<SWG>THINGS.ZAP.3, 1-622 (15634)
?ELS25: EQUAL? PRSA,V?AIM,V?TURN \?ELS27
EQUAL? PRSO,BRIEFCASE-LATCH \?ELS27
ZERO? LATCH-TURNED \?PRD29
SET 'LATCH-TURNED,1
JUMP ?PRD30
?PRD29: SET 'LATCH-TURNED,0
?PRD30: PRINTR "A mechanical click comes from within the briefcase."
?ELS27: EQUAL? PRSA,V?CLOSE \?ELS33
FSET? BRIEFCASE,OPENBIT \?ELS37
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-630 (15998)
?ELS53: FSET? BRIEFCASE-LATCH,OPENBIT /?ELS55
**** FILE PS:<SWG>THINGS.ZAP.3, 1-633 (15993)
?ELS37: FSET? BRIEFCASE-LATCH,OPENBIT /?ELS38
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-633 (16091)
?ELS55: CALL OKAY,BRIEFCASE-LATCH,STR?7
**** FILE PS:<SWG>THINGS.ZAP.3, 1-636 (16086)
?ELS38: CALL OKAY,BRIEFCASE-LATCH,STR?7
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-635 (16142)
?ELS48: EQUAL? PRSA,V?RUB,V?SLIDE,V?MOVE /?THN62
**** FILE PS:<SWG>THINGS.ZAP.3, 1-638 (16137)
?ELS33: EQUAL? PRSA,V?RUB,V?SLIDE,V?MOVE /?THN40
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-637 (16235)
?THN62: EQUAL? PRSO,BRIEFCASE-LATCH \FALSE
FSET? BRIEFCASE-LATCH,OPENBIT /?ELS68
**** FILE PS:<SWG>THINGS.ZAP.3, 1-640 (16230)
?THN40: EQUAL? PRSO,BRIEFCASE-LATCH \FALSE
FSET? BRIEFCASE-LATCH,OPENBIT /?ELS45
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-641 (16389)
ZERO? LATCH-TURNED \?CND71
**** FILE PS:<SWG>THINGS.ZAP.3, 1-644 (16384)
ZERO? LATCH-TURNED \?CND48
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-643 (16494)
?CND71: CRLF
**** FILE PS:<SWG>THINGS.ZAP.3, 1-646 (16489)
?CND48: CRLF
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-645 (16518)
?ELS68: PRINTR "The latch is already open."
**** FILE PS:<SWG>THINGS.ZAP.3, 1-648 (16513)
?ELS45: PRINTR "The latch is already open."
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-680 (17447)
EQUAL? 0,THING /?PRG1
**** FILE PS:<SWG>THINGS.ZAP.3, 1-683 (17442)
ZERO? THING /?PRG1
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-689 (17632)
?CND1: FIRST? OBJ \?CND6
**** FILE PS:<SWG>THINGS.ZAP.3, 1-692 (17624)
?CND1: FIRST? OBJ \?CND5
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-691 (17684)
?CND6: GET TBL,0 >MAX
ZERO? DEBUG \?THN12
ZERO? STR \?ELS11
?THN12: PRINTI "Opened."
**** FILE PS:<SWG>THINGS.ZAP.3, 1-694 (17676)
?CND5: GET TBL,0 >MAX
ZERO? DEBUG \?THN8
ZERO? STR \?ELS9
?THN8: PRINTI "Opened."
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-696 (17783)
JUMP ?CND9
?ELS11: EQUAL? STR,1 /?CND9
**** FILE PS:<SWG>THINGS.ZAP.3, 1-699 (17772)
JUMP ?CND7
?ELS9: EQUAL? STR,1 /?CND7
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-700 (17845)
?CND9: FCLEAR OBJ,SURFACEBIT
?PRG20: IGRTR? 'OFFS,MAX \?ELS24
JUMP ?REP21
?ELS24: GET TBL,OFFS >THING
ZERO? THING /?PRG20
**** FILE PS:<SWG>THINGS.ZAP.3, 1-703 (17833)
?CND7: FCLEAR OBJ,SURFACEBIT
?PRG15: IGRTR? 'OFFS,MAX \?ELS18
JUMP ?REP16
?ELS18: GET TBL,OFFS >THING
ZERO? THING /?PRG15
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-708 (18029)
JUMP ?PRG20
?REP21: EQUAL? STR,1 /TRUE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-711 (18017)
JUMP ?PRG15
?REP16: EQUAL? STR,1 /TRUE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-724 (18357)
ZERO? DEBUG \?THN9
ZERO? STR \?ELS8
?THN9: PRINTI "Closed."
**** FILE PS:<SWG>THINGS.ZAP.3, 1-727 (18345)
ZERO? DEBUG \?THN6
ZERO? STR \?ELS7
?THN6: PRINTI "Closed."
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-728 (18430)
JUMP ?CND6
?ELS8: EQUAL? STR,1 /?CND6
**** FILE PS:<SWG>THINGS.ZAP.3, 1-731 (18418)
JUMP ?CND5
?ELS7: EQUAL? STR,1 /?CND5
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-732 (18491)
?CND6: FIRST? OBJ >F \TRUE
?PRG20: ZERO? F /TRUE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-735 (18479)
?CND5: FIRST? OBJ >F \TRUE
?PRG15: ZERO? F /TRUE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-735 (18553)
NEXT? N >F /?KLU35
?KLU35: MOVE N,LIMBO-FWD
?PRG30: INC 'OFFS
**** FILE PS:<SWG>THINGS.ZAP.3, 1-738 (18541)
NEXT? N >F /?KLU24
?KLU24: MOVE N,LIMBO-FWD
?PRG20: INC 'OFFS
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-739 (18634)
ZERO? STACK \?PRG30
**** FILE PS:<SWG>THINGS.ZAP.3, 1-742 (18622)
ZERO? STACK \?PRG20
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-741 (18673)
JUMP ?PRG20
**** FILE PS:<SWG>THINGS.ZAP.3, 1-744 (18661)
JUMP ?PRG15
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-748 (18801)
?CND1: FIRST? OBJ >F /?KLU22
?KLU22:
?PRG4: ZERO? F \?ELS8
JUMP ?REP5
?ELS8: SET 'N,F
NEXT? N >F /?KLU23
?KLU23: MOVE N,THERE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-751 (18789)
?CND1: FIRST? OBJ >F /?KLU14
?KLU14:
?PRG3: ZERO? F \?ELS6
JUMP ?REP4
?ELS6: SET 'N,F
NEXT? N >F /?KLU15
?KLU15: MOVE N,THERE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-756 (18961)
JUMP ?PRG4
?REP5: FIRST? OBJ >F /?KLU24
?KLU24: ZERO? SLIDE /FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-759 (18949)
JUMP ?PRG3
?REP4: FIRST? OBJ >F /?KLU16
?KLU16: ZERO? SLIDE /FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-768 (19148)
EQUAL? PRSA,V?BUY \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-771 (19136)
EQUAL? PRSA,V?BUY \?ELS4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-770 (19201)
GRTR? POCKET-CHANGE,0 /?CND11
**** FILE PS:<SWG>THINGS.ZAP.3, 1-773 (19189)
GRTR? POCKET-CHANGE,0 /?CND9
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-772 (19269)
?CND11: SET 'P-DOLLAR-FLAG,TRUE-VALUE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-775 (19256)
?CND9: SET 'P-DOLLAR-FLAG,TRUE-VALUE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-776 (19374)
?ELS5: EQUAL? PRSA,V?LAMP-ON,V?SMOKE \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-779 (19360)
?ELS4: EQUAL? PRSA,V?LAMP-ON,V?SMOKE \FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-787 (19632)
IN? OBJ,HERE \?ELS5
EQUAL? PRSA,V?FIND /?THN8
EQUAL? PRSA,V?SEARCH-FOR \?ELS5
EQUAL? PRSI,OBJ \?ELS5
?THN8: FCLEAR OBJ,NDESCBIT
**** FILE PS:<SWG>THINGS.ZAP.3, 1-790 (19618)
IN? OBJ,HERE \?ELS4
EQUAL? PRSA,V?FIND /?THN5
EQUAL? PRSA,V?SEARCH-FOR \?ELS4
EQUAL? PRSI,OBJ \?ELS4
?THN5: FCLEAR OBJ,NDESCBIT
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-798 (19909)
?ELS5: CALL SNEAKY-TAKE?,OBJ
**** FILE PS:<SWG>THINGS.ZAP.3, 1-801 (19895)
?ELS4: CALL SNEAKY-TAKE?,OBJ
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-806 (20059)
EQUAL? PRSA,V?FIND \?ELS9
**** FILE PS:<SWG>THINGS.ZAP.3, 1-809 (20045)
EQUAL? PRSA,V?FIND \?ELS5
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-808 (20103)
ZERO? OBJ \?THN6
?ELS9: EQUAL? PRSA,V?SEARCH-FOR \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-811 (20089)
ZERO? 1 \?THN4
?ELS5: EQUAL? PRSA,V?SEARCH-FOR \?ELS6
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-811 (20178)
ZERO? OBJ /?ELS5
?THN6: LOC OBJ
**** FILE PS:<SWG>THINGS.ZAP.3, 1-814 (20162)
ZERO? 1 /?ELS6
?THN4: LOC OBJ
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-818 (20363)
?ELS5: EQUAL? PRSA,V?TAKE \?ELS22
**** FILE PS:<SWG>THINGS.ZAP.3, 1-821 (20345)
?ELS6: EQUAL? PRSA,V?TAKE \?ELS15
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-822 (20480)
?ELS22: EQUAL? PRSA,V?BRUSH,V?TAKE-WITH \FALSE
EQUAL? PRSI,SPY-LIST /?THN32
**** FILE PS:<SWG>THINGS.ZAP.3, 1-825 (20462)
?ELS15: EQUAL? PRSA,V?BRUSH,V?TAKE-WITH \FALSE
EQUAL? PRSI,SPY-LIST /?THN22
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-826 (20608)
?THN32: MOVE PRSO,SPY-LIST
**** FILE PS:<SWG>THINGS.ZAP.3, 1-829 (20590)
?THN22: MOVE PRSO,SPY-LIST
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-838 (20804)
EQUAL? PRSA,V?EXAMINE \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-841 (20786)
EQUAL? PRSA,V?EXAMINE \?ELS4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-843 (20928)
?ELS5: FSET? OBJ,NDESCBIT \?ELS14
IN? PER,HERE \?ELS14
**** FILE PS:<SWG>THINGS.ZAP.3, 1-846 (20910)
?ELS4: FSET? OBJ,NDESCBIT \?ELS11
IN? PER,HERE \?ELS11
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-846 (21005)
ZERO? STACK \?ELS14
**** FILE PS:<SWG>THINGS.ZAP.3, 1-849 (20987)
ZERO? STACK \?ELS11
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-853 (21150)
?ELS14: FSET? OBJ,TRYTAKEBIT \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-856 (21132)
?ELS11: FSET? OBJ,TRYTAKEBIT \FALSE
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-864 (21321)
EQUAL? PRSO,OBJ \?ELS5
**** FILE PS:<SWG>THINGS.ZAP.3, 1-867 (21303)
EQUAL? PRSO,OBJ \?ELS4
***************
**** FILE PS:<SWG>THINGS.ZAP.1, 1-868 (21422)
?ELS5: EQUAL? PRSI,OBJ \FALSE
**** FILE PS:<SWG>THINGS.ZAP.3, 1-871 (21404)
?ELS4: EQUAL? PRSI,OBJ \FALSE
***************
Reference in a new issue View git blame Copy permalink