checkpoint/global.cmp
historicalsource 8ae301e53b Final Revision
2019-04-13 22:12:44 -04:00

823 lines
23 KiB
Plaintext

;COMPARISON OF PS:<SWG>GLOBAL.ZAP.1 AND PS:<SWG>GLOBAL.ZAP.3
;OPTIONS ARE /1
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-4 (37)
EQUAL? PRSI,OBJ2 \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-4 (37)
EQUAL? PRSI,OBJ2 \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-7 (102)
?ELS5: EQUAL? PRSO,OBJ2 \?ELS7
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-7 (102)
?ELS4: EQUAL? PRSO,OBJ2 \?ELS5
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-10 (173)
?ELS7: CALL V-FOO
ZERO? STACK /FALSE
RTRUE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-10 (173)
?ELS5: CALL V-FOO
ZERO? STACK \TRUE
RFALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-22 (326)
EQUAL? PRSI,IT \?THN10
EQUAL? PRSA,V?TELL-ABOUT /?THN10
EQUAL? PRSA,V?SEARCH-FOR,V?ASK-FOR,V?ASK-ABOUT /?THN14
?THN10: EQUAL? PRSO,IT \FALSE
EQUAL? PRSA,V?WHAT /?THN14
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-22 (326)
EQUAL? PRSI,IT \?ELS5
EQUAL? PRSA,V?TELL-ABOUT /?THN4
EQUAL? PRSA,V?SEARCH-FOR,V?ASK-FOR,V?ASK-ABOUT /?THN4
?ELS5: EQUAL? PRSO,IT \FALSE
EQUAL? PRSA,V?WHAT /?THN4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-28 (569)
?THN14: CALL PRODUCE-GIBBERISH
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-28 (564)
?THN4: CALL PRODUCE-GIBBERISH
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-33 (636)
EQUAL? PRSA,V?PUT \?ELS5
EQUAL? PRSI,FLOOR \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-33 (630)
EQUAL? PRSA,V?PUT \?ELS4
EQUAL? PRSI,FLOOR \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-37 (726)
?ELS5: EQUAL? PRSA,V?LOOK-ON,V?SEARCH,V?EXAMINE \?ELS9
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-37 (720)
?ELS4: EQUAL? PRSA,V?LOOK-ON,V?SEARCH,V?EXAMINE \?ELS6
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-39 (825)
ZERO? OBJ /?ELS14
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-39 (819)
ZERO? OBJ /?ELS10
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-45 (965)
?ELS14: PRINTR "You don't find anything new there."
?ELS9: EQUAL? PRSA,V?TAKE,V?BRUSH \FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-45 (959)
?ELS10: PRINTR "You don't find anything new there."
?ELS6: EQUAL? PRSA,V?TAKE,V?BRUSH \FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-53 (1160)
EQUAL? PRSA,V?COUNT \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-53 (1154)
EQUAL? PRSA,V?COUNT \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-56 (1240)
?ELS5: ZERO? P-DOLLAR-FLAG /?ELS10
ZERO? P-AMOUNT \?CND8
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-56 (1234)
?ELS4: ZERO? P-DOLLAR-FLAG /?ELS6
ZERO? P-AMOUNT \?CND5
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-59 (1318)
JUMP ?CND8
?ELS10: SET 'P-DOLLAR-FLAG,TRUE-VALUE
ZERO? P-NUMBER \?CND8
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-59 (1311)
JUMP ?CND5
?ELS6: SET 'P-DOLLAR-FLAG,TRUE-VALUE
ZERO? P-NUMBER \?CND5
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-63 (1412)
?CND8: CALL DO-INSTEAD-OF,INTNUM,DOLLARS
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-63 (1404)
?CND5: CALL DO-INSTEAD-OF,INTNUM,DOLLARS
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-70 (1538)
ZERO? STACK /?ELS11
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-70 (1530)
ZERO? STACK /?ELS8
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-73 (1595)
?ELS11: EQUAL? PRSA,V?ASK-FOR,V?TAKE /FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-73 (1586)
?ELS8: EQUAL? PRSA,V?ASK-FOR,V?TAKE /FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-80 (1764)
EQUAL? WINNER,PLAYER /?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-80 (1754)
EQUAL? WINNER,PLAYER /?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-83 (1835)
?ELS5: EQUAL? PRSA,V?ASK-ABOUT \FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-83 (1825)
?ELS4: EQUAL? PRSA,V?ASK-ABOUT \FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-90 (1979)
EQUAL? PRSA,V?LOOK-UP,V?LOOK-DOWN /?THN6
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-90 (1969)
EQUAL? PRSA,V?LOOK-UP,V?LOOK-DOWN /?THN4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-92 (2077)
?THN6: ZERO? ON-TRAIN /FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-92 (2067)
?THN4: ZERO? ON-TRAIN /FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-94 (2142)
ZERO? STACK /?ELS14
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-94 (2132)
ZERO? STACK /?ELS10
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-97 (2195)
?ELS14: CALL NEXT-ROOM,HERE,P?OUT >RM
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-97 (2185)
?ELS10: CALL NEXT-ROOM,HERE,P?OUT >RM
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-104 (2339)
EQUAL? PRSA,V?WALK-TO \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-104 (2329)
EQUAL? PRSA,V?WALK-TO \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-107 (2417)
?ELS5: EQUAL? PRSA,V?KNOCK \?ELS7
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-107 (2407)
?ELS4: EQUAL? PRSA,V?KNOCK \?ELS5
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-109 (2510)
?ELS7: EQUAL? PRSA,V?TIE-TO,V?PUT-IN,V?PUT \?ELS11
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-109 (2500)
?ELS5: EQUAL? PRSA,V?TIE-TO,V?PUT-IN,V?PUT \?ELS8
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-112 (2593)
?ELS11: EQUAL? PRSA,V?EXAMINE,V?SEARCH \FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-112 (2582)
?ELS8: EQUAL? PRSA,V?EXAMINE,V?SEARCH \FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-114 (2663)
ZERO? STACK /?ELS16
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-114 (2651)
ZERO? STACK /?ELS11
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-116 (2698)
JUMP ?CND14
?ELS16: GETP HERE,P?SIZE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-116 (2686)
JUMP ?CND10
?ELS11: GETP HERE,P?SIZE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-119 (2757)
?CND14: EQUAL? P-ADVERB,W?CAREFULLY \?CND19
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-119 (2745)
?CND10: EQUAL? P-ADVERB,W?CAREFULLY \?CND12
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-121 (2819)
?CND19: PRINTI "(It's better to examine or search one thing at a time. It would take a long time to search a whole room or area thoroughly. A "
EQUAL? P-ADVERB,W?CAREFULLY \?ELS26
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-121 (2807)
?CND12: PRINTI "(It's better to examine or search one thing at a time. It would take a long time to search a whole room or area thoroughly. A "
EQUAL? P-ADVERB,W?CAREFULLY \?ELS17
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-124 (3021)
JUMP ?CND24
?ELS26: PRINTI "brief"
?CND24: PRINTI " search would take "
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-124 (3009)
JUMP ?CND16
?ELS17: PRINTI "brief"
?CND16: PRINTI " search would take "
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-130 (3206)
ZERO? STACK /?ELS39
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-130 (3194)
ZERO? STACK /?ELS27
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-133 (3280)
ZERO? VAL /?ELS46
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-133 (3268)
ZERO? VAL /?ELS32
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-135 (3317)
EQUAL? P-ADVERB,W?CAREFULLY \?ELS54
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-135 (3305)
EQUAL? P-ADVERB,W?CAREFULLY \?ELS38
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-137 (3369)
JUMP ?CND50
?ELS54: PUSH STR?99
?CND50: PRINT STACK
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-137 (3357)
JUMP ?CND35
?ELS38: PUSH STR?99
?CND35: PRINT STACK
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-141 (3470)
?ELS46: PRINTR "You didn't finish looking over the place."
?ELS39: SET 'P-WON,FALSE-VALUE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-141 (3458)
?ELS32: PRINTR "You didn't finish looking over the place."
?ELS27: SET 'P-WON,FALSE-VALUE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-147 (3598)
EQUAL? PRSA,V?EXAMINE \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-147 (3586)
EQUAL? PRSA,V?EXAMINE \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-149 (3680)
?ELS5: EQUAL? PRSA,V?WALK-TO \?ELS9
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-149 (3668)
?ELS4: EQUAL? PRSA,V?WALK-TO \?ELS7
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-151 (3749)
?ELS9: EQUAL? PRSA,V?SMELL \FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-151 (3737)
?ELS7: EQUAL? PRSA,V?SMELL \FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-153 (3805)
ZERO? STACK /?ELS18
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-153 (3793)
ZERO? STACK /?ELS14
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-155 (3866)
?ELS18: CALL FRESH-AIR?,HERE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-155 (3854)
?ELS14: CALL FRESH-AIR?,HERE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-168 (4098)
EQUAL? PRSA,V?PUT-IN \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-168 (4086)
EQUAL? PRSA,V?PUT-IN \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-172 (4186)
?ELS5: EQUAL? PRSA,V?FLUSH-DOWN,V?FLUSH \FALSE
ZERO? IN-STATION /?ELS17
ZERO? ON-TRAIN /?ELS17
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-172 (4174)
?ELS4: EQUAL? PRSA,V?FLUSH-DOWN,V?FLUSH \FALSE
ZERO? IN-STATION /?ELS13
ZERO? ON-TRAIN /?ELS13
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-179 (4445)
?ELS17: EQUAL? PRSA,V?FLUSH-DOWN \?CND24
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-179 (4433)
?ELS13: EQUAL? PRSA,V?FLUSH-DOWN \?CND17
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-184 (4573)
?CND24: FIRST? TOILET \?CND30
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-184 (4561)
?CND17: FIRST? TOILET \?CND21
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-187 (4669)
?CND30: PRINTR "Whhoooossshhhhh!"
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-187 (4657)
?CND21: PRINTR "Whhoooossshhhhh!"
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-191 (4752)
FIRST? WHAT >X /?KLU29
?KLU29:
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-191 (4740)
FIRST? WHAT >X /?KLU20
?KLU20:
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-194 (4809)
NEXT? X >N /?KLU30
?KLU30: ZERO? N \?CND6
ZERO? TOLD? /?CND6
ZERO? TELL? /?CND6
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-194 (4797)
NEXT? X >N /?KLU21
?KLU21: ZERO? N \?CND5
ZERO? TOLD? /?CND5
ZERO? TELL? /?CND5
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-199 (4912)
?CND6: SET 'TOLD?,TRUE-VALUE
ZERO? TELL? /?CND13
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-199 (4900)
?CND5: SET 'TOLD?,TRUE-VALUE
ZERO? TELL? /?CND10
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-202 (4980)
ZERO? N /?ELS21
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-202 (4968)
ZERO? N /?ELS15
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-204 (5011)
JUMP ?CND13
?ELS21: PRINTI ". "
?CND13: MOVE X,THIEF
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-204 (4999)
JUMP ?CND10
?ELS15: PRINTI ". "
?CND10: MOVE X,THIEF
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-213 (5131)
EQUAL? PRSA,V?CLOSE,V?OPEN \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-213 (5119)
EQUAL? PRSA,V?CLOSE,V?OPEN \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-216 (5193)
?ELS5: EQUAL? PRSA,V?LAMP-ON \FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-216 (5181)
?ELS4: EQUAL? PRSA,V?LAMP-ON \FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-221 (5398)
EQUAL? PRSA,V?CUT \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-221 (5386)
EQUAL? PRSA,V?CUT \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-234 (5824)
?ELS5: EQUAL? PRSA,V?EXAMINE \?ELS14
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-234 (5812)
?ELS4: EQUAL? PRSA,V?EXAMINE \?ELS11
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-236 (6011)
?ELS14: EQUAL? PRSA,V?TAKE /?THN19
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-236 (5999)
?ELS11: EQUAL? PRSA,V?TAKE /?THN14
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-238 (6092)
?THN19: PRINTR "As you pull on the towel, a fresh portion appears from a slot, and the used portion starts to disappear into the dispenser."
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-238 (6080)
?THN14: PRINTR "As you pull on the towel, a fresh portion appears from a slot, and the used portion starts to disappear into the dispenser."
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-242 (6267)
EQUAL? PRSA,V?EXAMINE \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-242 (6255)
EQUAL? PRSA,V?EXAMINE \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-244 (6440)
?ELS5: EQUAL? PRSA,V?TAKE,V?USE /?THN10
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-244 (6428)
?ELS4: EQUAL? PRSA,V?TAKE,V?USE /?THN7
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-246 (6526)
?THN10: PRINTR "There's not enough left!"
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-246 (6513)
?THN7: PRINTR "There's not enough left!"
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-256 (6698)
EQUAL? PRSA,V?TAKE /?THN6
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-256 (6684)
EQUAL? PRSA,V?TAKE /?THN4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-258 (6771)
?THN6: PRINTR "Whatever you have in mind, it'll never work!"
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-258 (6757)
?THN4: PRINTR "Whatever you have in mind, it'll never work!"
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-262 (6855)
EQUAL? PRSA,V?MUNG \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-262 (6841)
EQUAL? PRSA,V?MUNG \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-264 (6923)
?ELS5: EQUAL? PRSA,V?EXAMINE,V?LOOK-INSIDE \FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-264 (6909)
?ELS4: EQUAL? PRSA,V?EXAMINE,V?LOOK-INSIDE \FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-270 (7149)
ZERO? STACK /?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-270 (7135)
ZERO? STACK /?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-273 (7195)
?ELS5: EQUAL? PRSA,V?LOOK-THROUGH,V?LOOK-INSIDE \?ELS7
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-273 (7181)
?ELS4: EQUAL? PRSA,V?LOOK-THROUGH,V?LOOK-INSIDE \?ELS5
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-275 (7279)
EQUAL? WINNER,PLAYER \?ELS10
GRTR? POCKET-CHANGE,0 \?ELS10
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-275 (7265)
EQUAL? WINNER,PLAYER \?ELS7
GRTR? POCKET-CHANGE,0 \?ELS7
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-278 (7373)
ZERO? X /?ELS15
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-278 (7357)
ZERO? X /?ELS10
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-280 (7418)
?ELS15: PRINTR "You have some money in your pocket."
?ELS10: ZERO? X \TRUE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-280 (7402)
?ELS10: PRINTR "You have some money in your pocket."
?ELS7: ZERO? X \TRUE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-283 (7528)
?ELS7: EQUAL? PRSA,V?EMPTY \?ELS28
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-283 (7511)
?ELS5: EQUAL? PRSA,V?EMPTY \?ELS18
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-289 (7671)
?ELS28: EQUAL? PRSA,V?CLOSE,V?OPEN \?ELS37
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-289 (7654)
?ELS18: EQUAL? PRSA,V?CLOSE,V?OPEN \?ELS25
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-291 (7753)
?ELS37: EQUAL? PRSA,V?PUT-IN \FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-291 (7736)
?ELS25: EQUAL? PRSA,V?PUT-IN \FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-293 (7818)
EQUAL? PRSO,GLOBAL-MONEY /?THN49
EQUAL? PRSO,INTNUM \?ELS48
ZERO? P-DOLLAR-FLAG /?ELS48
?THN49: PRINTR "It's already there."
?ELS48: IN? CUSTOMS-AGENT,HERE \FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-293 (7801)
EQUAL? PRSO,GLOBAL-MONEY /?THN33
EQUAL? PRSO,INTNUM \?ELS34
ZERO? P-DOLLAR-FLAG /?ELS34
?THN33: PRINTR "It's already there."
?ELS34: IN? CUSTOMS-AGENT,HERE \FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-307 (8165)
EQUAL? PRSA,V?FIND \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-307 (8148)
EQUAL? PRSA,V?FIND \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-309 (8224)
?ELS5: CALL REMOTE-VERB?
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-309 (8207)
?ELS4: CALL REMOTE-VERB?
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-311 (8271)
EQUAL? PRSA,V?PUT-IN,V?PUT \?ELS11
EQUAL? PRSO,GLOBAL-MONEY \?ELS11
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-311 (8254)
EQUAL? PRSA,V?PUT-IN,V?PUT \?ELS8
EQUAL? PRSO,GLOBAL-MONEY \?ELS8
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-315 (8374)
?ELS11: GRTR? POCKET-CHANGE,0 \?ELS15
EQUAL? PRSA,V?EXAMINE,V?COUNT \?ELS20
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-315 (8355)
?ELS8: GRTR? POCKET-CHANGE,0 \?ELS10
EQUAL? PRSA,V?EXAMINE,V?COUNT \?ELS14
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-321 (8543)
?ELS20: EQUAL? PRSA,V?GIVE \?ELS26
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-321 (8523)
?ELS14: EQUAL? PRSA,V?GIVE \?ELS19
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-324 (8656)
?ELS26: EQUAL? PRSA,V?TAKE \?ELS30
ZERO? PRSI /?ELS30
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-324 (8636)
?ELS19: EQUAL? PRSA,V?TAKE \?ELS22
ZERO? PRSI /?ELS22
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-329 (8788)
?ELS30: CALL TELL-FLASHING-CASH
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-329 (8768)
?ELS22: CALL TELL-FLASHING-CASH
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-331 (8831)
?ELS15: CALL NOT-HERE,GLOBAL-MONEY
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-331 (8811)
?ELS10: CALL NOT-HERE,GLOBAL-MONEY
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-344 (9016)
EQUAL? PRSA,V?BUY,V?ASK-FOR \?ELS5
EQUAL? P-ADJ,W?FIRST \?ELS10
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-344 (8996)
EQUAL? PRSA,V?BUY,V?ASK-FOR \?ELS4
EQUAL? P-ADJ,W?FIRST \?ELS8
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-348 (9125)
?ELS10: CALL DO-INSTEAD-OF,FOOD-2,ITEMS
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-348 (9104)
?ELS8: CALL DO-INSTEAD-OF,FOOD-2,ITEMS
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-350 (9175)
?ELS5: EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-350 (9153)
?ELS4: EQUAL? PRSA,V?READ,V?EXAMINE,V?ANALYZE \FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-358 (9306)
EQUAL? PRSA,V?SMELL,V?BUY,V?ASK-FOR \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-358 (9284)
EQUAL? PRSA,V?SMELL,V?BUY,V?ASK-FOR \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-361 (9398)
?ELS5: CALL REMOTE-VERB?
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-361 (9376)
?ELS4: CALL REMOTE-VERB?
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-378 (9657)
EQUAL? PRSA,V?DRINK,V?SMELL,V?EAT \?ELS5
EQUAL? PRSA,V?SMELL /?THN11
IN? PRSO,GLOBAL-OBJECTS /?ELS10
?THN11: PRINTR "It's pungent but not very flavorful."
?ELS10: PRINTR "That wouldn't be very polite."
?ELS5: EQUAL? PRSA,V?PUT-IN,V?PUT,V?POUR \?ELS20
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-378 (9635)
EQUAL? PRSA,V?DRINK,V?SMELL,V?EAT \?ELS4
EQUAL? PRSA,V?SMELL /?THN8
IN? PRSO,GLOBAL-OBJECTS /?ELS9
?THN8: PRINTR "It's pungent but not very flavorful."
?ELS9: PRINTR "That wouldn't be very polite."
?ELS4: EQUAL? PRSA,V?PUT-IN,V?PUT,V?POUR \?ELS14
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-385 (9957)
?ELS20: EQUAL? PRSA,V?BUY,V?ASK-FOR \FALSE
ZERO? ON-TRAIN /?ELS27
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-385 (9931)
?ELS14: EQUAL? PRSA,V?BUY,V?ASK-FOR \FALSE
ZERO? ON-TRAIN /?ELS19
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-388 (10044)
JUMP ?CND25
?ELS27: SET 'PER,WAITRESS
?CND25: ZERO? DRINK? /?ELS33
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-388 (10018)
JUMP ?CND18
?ELS19: SET 'PER,WAITRESS
?CND18: ZERO? DRINK? /?ELS21
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-392 (10135)
JUMP ?CND31
?ELS33: SET 'OBJ,FOOD
?CND31: ZERO? DRINK? /?ELS39
FSET? WINE-RED,TOUCHBIT /?THN44
FSET? WINE-WHITE,TOUCHBIT \?CND37
?THN44: PRINTR "You've bought enough drink already."
?ELS39: FSET? FOOD,TOUCHBIT \?CND37
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-392 (10109)
JUMP ?CND20
?ELS21: SET 'OBJ,FOOD
?CND20: ZERO? DRINK? /?ELS23
FSET? WINE-RED,TOUCHBIT /?THN25
FSET? WINE-WHITE,TOUCHBIT \?CND22
?THN25: PRINTR "You've bought enough drink already."
?ELS23: FSET? FOOD,TOUCHBIT \?CND22
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-400 (10409)
?CND37: ZERO? POCKET-CHANGE \?ELS56
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-400 (10383)
?CND22: ZERO? POCKET-CHANGE \?ELS35
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-402 (10486)
?ELS56: IN? PER,HERE /?ELS60
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-402 (10460)
?ELS35: IN? PER,HERE /?ELS38
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-406 (10583)
?ELS60: DEC 'POCKET-CHANGE
EQUAL? OBJ,WINE-RED,WINE-WHITE \?CND65
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-406 (10557)
?ELS38: DEC 'POCKET-CHANGE
EQUAL? OBJ,WINE-RED,WINE-WHITE \?CND41
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-412 (10728)
?CND65: CALL TABLE?,HERE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-412 (10702)
?CND41: CALL TABLE?,HERE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-414 (10768)
ZERO? ?ORTMP /?ORP71
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-414 (10742)
ZERO? ?ORTMP /?ORP45
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-416 (10805)
JUMP ?THN68
?ORP71: PUSH HERE
?THN68: MOVE OBJ,STACK
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-416 (10779)
JUMP ?THN43
?ORP45: PUSH HERE
?THN43: MOVE OBJ,STACK
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-434 (11164)
EQUAL? PRSA,V?EMPTY,V?THROW-THROUGH,V?THROW-AT \?ELS5
IN? WINE-RED,CUP \?CND6
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-434 (11138)
EQUAL? PRSA,V?EMPTY,V?THROW-THROUGH,V?THROW-AT \?ELS4
IN? WINE-RED,CUP \?CND5
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-437 (11277)
?CND6: IN? WINE-WHITE,CUP \?CND9
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-437 (11251)
?CND5: IN? WINE-WHITE,CUP \?CND7
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-439 (11344)
?CND9: CALL ROB,CUP,HERE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-439 (11318)
?CND7: CALL ROB,CUP,HERE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-442 (11416)
?ELS5: EQUAL? PRSA,V?PUT-IN \FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-442 (11390)
?ELS4: EQUAL? PRSA,V?PUT-IN \FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-451 (11617)
EQUAL? PRSA,V?PUT \?ELS9
EQUAL? PRSI,TOWEL-WAITER,NAPKIN,SCARF \?ELS9
EQUAL? PRSO,WINE-RED \?ELS9
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-451 (11591)
EQUAL? PRSA,V?PUT \?ELS5
EQUAL? PRSI,TOWEL-WAITER,NAPKIN,SCARF \?ELS5
EQUAL? PRSO,WINE-RED \?ELS5
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-455 (11737)
ZERO? OBJ \?THN6
?ELS9: EQUAL? PRSA,V?PUT-IN \?ELS5
EQUAL? PRSO,TOWEL-WAITER,NAPKIN,SCARF \?ELS5
EQUAL? PRSI,WINE-RED \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-455 (11711)
ZERO? 1 \?THN4
?ELS5: EQUAL? PRSA,V?PUT-IN \?ELS6
EQUAL? PRSO,TOWEL-WAITER,NAPKIN,SCARF \?ELS6
EQUAL? PRSI,WINE-RED \?ELS6
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-460 (11885)
ZERO? OBJ /?ELS5
?THN6: LOC OBJ
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-460 (11857)
ZERO? 1 /?ELS6
?THN4: LOC OBJ
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-471 (12108)
?ELS5: CALL FOOD-F,TRUE-VALUE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-471 (12078)
?ELS6: CALL FOOD-F,TRUE-VALUE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-476 (12176)
ZERO? ON-TRAIN /?ELS3
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-476 (12146)
ZERO? ON-TRAIN /?ELS2
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-479 (12231)
?ELS3: SET 'PER,WAITRESS
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-479 (12201)
?ELS2: SET 'PER,WAITRESS
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-490 (12547)
EQUAL? RM,CAFE \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-490 (12517)
EQUAL? RM,CAFE \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-492 (12593)
?ELS5: EQUAL? RM,BOOTH-1 \?ELS7
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-492 (12563)
?ELS4: EQUAL? RM,BOOTH-1 \?ELS5
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-494 (12643)
?ELS7: EQUAL? RM,BOOTH-2 \?ELS9
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-494 (12613)
?ELS5: EQUAL? RM,BOOTH-2 \?ELS6
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-496 (12693)
?ELS9: EQUAL? RM,BOOTH-3 \FALSE
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-496 (12663)
?ELS6: EQUAL? RM,BOOTH-3 \FALSE
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-506 (12993)
EQUAL? PRSA,V?LEARN,V?ANALYZE \?ELS5
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-506 (12963)
EQUAL? PRSA,V?LEARN,V?ANALYZE \?ELS4
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-508 (13201)
?ELS5: EQUAL? PRSA,V?MAKE \FALSE
ZERO? PRSI /?ELS12
FSET? PRSI,PERSONBIT \?ELS12
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-508 (13171)
?ELS4: EQUAL? PRSA,V?MAKE \FALSE
ZERO? PRSI /?ELS9
FSET? PRSI,PERSONBIT \?ELS9
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-512 (13301)
JUMP ?CND10
?ELS12: CALL QCONTEXT-GOOD?
ZERO? STACK /?ELS16
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-512 (13269)
JUMP ?CND8
?ELS9: CALL QCONTEXT-GOOD?
ZERO? STACK /?ELS11
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-516 (13384)
JUMP ?CND10
?ELS16: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
ZERO? P \?CND10
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-516 (13350)
JUMP ?CND8
?ELS11: CALL FIND-FLAG,HERE,PERSONBIT,WINNER >P
ZERO? P \?CND8
***************
**** FILE PS:<SWG>GLOBAL.ZAP.1, 1-520 (13517)
?CND10: CALL START-SENTENCE,P
**** FILE PS:<SWG>GLOBAL.ZAP.3, 1-520 (13481)
?CND8: CALL START-SENTENCE,P
***************