mirror of
https://github.com/historicalsource/checkpoint
synced 2024-04-25 21:49:25 +03:00
823 lines
23 KiB
Plaintext
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
|
|
***************
|
|
|