===============================================================
 "SERRA PELADA" - ZX-SPECTRUM TEXT ADVENTURE GAME IN PORTUGUESE
 "SERRA PELADA" - ADVENTURE TEXTO EM PORTUGUES PARA ZX-SPECTRUM
===============================================================
 VERSAO ORIGINAL (MSX):  RENATO DEGIOVANI
 CONVERSAO ZX-SPECTRUM:  EINAR SAUKAS
===============================================================



70ae:  PREP(1)  = 'O', 'NA', 'NO', 'E', 'DA', 'DO', 'UM', 'UMA', 'AO', 'SOBRE'



70d7:  VERB(1)  = 'NORTE'
70dd:  VERB(2)  = 'SUL'
70e1:  VERB(3)  = 'LESTE'
70e7:  VERB(4)  = 'OESTE'
70ed:  VERB(5)  = 'GRAVE'
70f3:  VERB(6)  = 'RECUPERE'
70fc:  VERB(7)  = 'ENTRE'
7102:  VERB(8)  = 'SUBA'
7107:  VERB(9)  = 'SAIA'
710c:  VERB(10) = 'DESA'
7112:  VERB(11) = 'HORAS'
7118:  VERB(12) = 'QUANTO', 'QUANTOS', 'QT'
712a:  VERB(13) = 'TEMOS', 'TENHO'
7136:  VERB(14) = 'RECOMECE', 'REINICIE'
7148:  VERB(15) = 'H', 'HA'
714e:  VERB(16) = 'GARIMPE', 'CAVE'
715b:  VERB(17) = 'DIA'
715f:  VERB(18) = 'QUEM'
7164:  VERB(19) = 'CORRA'
716a:  VERB(20) = 'PEGUE', 'CARREGUE', 'SEGURE'
7180:  VERB(21) = 'COLOQUE', 'PONHA'
718e:  VERB(22) = 'TROQUE'
7195:  VERB(23) = 'COMPRE'
719c:  VERB(24) = 'ROUBE'
71a2:  VERB(25) = 'PERGUNTE', '?'
71ad:  VERB(26) = 'QUEBRE', 'DESTRUA'
71bc:  VERB(27) = 'SOLTE', 'LARGUE', 'DEIXE'
71cf:  VERB(28) = 'EXAMINE', 'OLHE', 'VERIFIQUE'
71e6:  VERB(29) = 'PROCURE', 'ACHE'
71f3:  VERB(30) = 'D', 'OFEREA'
71fe:  VERB(31) = 'FAA', 'CRIE', 'CONSTRUA'
7211:  VERB(32) = 'CUMPRIMENTE'
721d:  VERB(33) = 'CONSERTE', 'REPARE'
722d:  VERB(34) = 'VENDA'
7233:  VERB(35) = 'ACENDA', 'LIGUE', 'RISQUE'
7247:  VERB(36) = 'APAGUE', 'DESLIGUE'
7257:  VERB(37) = 'ABRA'
725c:  VERB(38) = 'FECHE'
7262:  VERB(39) = 'DEPOSITE'
726b:  VERB(40) = 'RETIRE'
7272:  VERB(41) = 'SUBORNE'
727a:  VERB(42) = 'MAPA'
727f:  VERB(43) = 'INSTRUES', 'INSTRUCOES'
7295:  VERB(44) = 'VERBOS'
729c:  VERB(45) = 'PEA', 'PECA'



72a7:  OBJ(1)   = "um local"
72b0:  OBJ(2)   = "um lampio"
72bb:  OBJ(3)   = "uma sacola"
72c6:  OBJ(4)   = "um relgio"
72d1:  OBJ(5)   = "uma carteira"
72de:  OBJ(6)   = "dinheiro"
72e7:  OBJ(7)   = "o mdico"
72f0:  OBJ(8)   = "o chefe dos garimpeiros"
7308:  OBJ(9)   = "o velho MATHIAS"
7318:  OBJ(10)  = "o guarda"
7321:  OBJ(11)  = "o ALEMO"
732a:  OBJ(12)  = "a telefonista"
7338:  OBJ(13)  = "o delegado"
7343:  OBJ(14)  = "o "bca de traira""
7356:  OBJ(15)  = "um garimpeiro"
7364:  OBJ(16)  = "o dono do armazm"
7376:  OBJ(17)  = "o gerente"
7380:  OBJ(18)  = "a "DVIDA EXTERNA""
7393:  OBJ(19)  = "ouro"
7398:  OBJ(20)  = "querosene"
73a2:  OBJ(21)  = "fsforos"
73ab:  OBJ(22)  = "o Joo DENTE DE OURO"
73c0:  OBJ(23)  = "um gato"
73c8:  OBJ(24)  = "um pacote"
73d2:  OBJ(25)  = "um cofre"
73db:  OBJ(26)  = "a conta na CAIXA"
73ec:  OBJ(27)  = "uma picareta"
73f9:  OBJ(28)  = "uma p"
7400:  OBJ(29)  = "uma peneira"
740c:  OBJ(30)  = "uma batia"
7417:  OBJ(31)  = "um caminho"
7423:  OBJ(32)  = "uma escada"
742e:  OBJ(33)  = "uma corda"
7438:  OBJ(34)  = "um telefone"
7444:  OBJ(35)  = "um martelo"
744f:  OBJ(36)  = "um pneu"
7457:  OBJ(37)  = "dinamite"
7460:  OBJ(38)  = "uma chave de fenda"
7473:  OBJ(39)  = "um macaco"
747d:  OBJ(40)  = "um cano"
7485:  OBJ(41)  = "uma faca"
748e:  OBJ(42)  = "gasolina"
7497:  OBJ(43)  = "uma garrafa"
74a3:  OBJ(44)  = "um balde"
74ac:  OBJ(45)  = "um copo"
74b4:  OBJ(46)  = "um revlver"
74c0:  OBJ(47)  = "pregos"
74c7:  OBJ(48)  = "um caixote"
74d2:  OBJ(49)  = "taboas"
74d9:  OBJ(50)  = "balas"
74df:  OBJ(51)  = " "
74e1:  OBJ(52)  = " "
74e3:  OBJ(53)  = "o saldo"



74ec:  POS(1)   = MSG(3); " FELICI-     DADE."
74fc:  POS(2)   = MSG(3); " PEDRA       AZUL."
750a:  POS(3)   = MSG(3); "LOLA MON-    TEZ."
751a:  POS(4)   = MSG(3); " QUEBRA      DEDO."
7529:  POS(5)   = MSG(3); " SELVA DE    PEDRA."
753b:  POS(6)   = MSG(3); "do Z DA     BIGORNA."
754e:  POS(7)   = MSG(3); "CALAFRIO."
7559:  POS(8)   = MSG(3); "AMIZADE."
7563:  POS(9)   = MSG(3); "MARTELADA."
756f:  POS(10)  = MSG(3); "SANTA HE-    LENA."
7580:  POS(11)  = MSG(4); "FELICIDADE."
758d:  POS(12)  = MSG(4); "PEDRA AZUL."
759a:  POS(13)  = MSG(4); "LOLA MONTEZ."
75a8:  POS(14)  = MSG(4); "QUEBRA DEDO."
75b6:  POS(15)  = MSG(4); "SELVA DE PEDRA."
75c7:  POS(16)  = MSG(4); "do Z DA BIGORNA."
75da:  POS(17)  = MSG(4); "CALAFRIO."
75e5:  POS(18)  = MSG(4); "AMIZADE."
75ef:  POS(19)  = MSG(4); "MARTELADA."
75fb:  POS(20)  = MSG(4); "SANTA HELENA."
760a:  POS(21)  = MSG(1); "no lado leste da pon-    te."
7625:  POS(22)  = MSG(1); "no lado oeste da pon-    te."
7640:  POS(23)  = MSG(1); "na estrada velha do      garimpo. H um caminho parado no a-    costamento."
7686:  POS(24)  = MSG(1); "dentro do caminho."
769b:  POS(25)  = MSG(1); MSG(5); "a cadeia."
76a7:  POS(26)  = MSG(1); "na cadeia."
76b3:  POS(27)  = MSG(1); MSG(5); "o posto te    lefnico."
76ca:  POS(28)  = MSG(1); "no posto telefnico."
76e0:  POS(29)  = MSG(1); "dentro da cabine."
76f3:  POS(30)  = MSG(1); "no aeroporto do garim    po."
770e:  POS(31)  = MSG(1); "num matagal."
771c:  POS(32)  = MSG(1); "na pista do aeroporto."
7734:  POS(33)  = MSG(1); "no hangar."
7740:  POS(34)  = MSG(1); MSG(5); "o armazm     SO JOO."
7756:  POS(35)  = MSG(1); "dentro do armazm."
776a:  POS(36)  = MSG(1); "na praa central de      SERRA PELADA."
778d:  POS(37)  = MSG(1); MSG(5); "o bar do      ALEMO."
77a0:  POS(38)  = MSG(1); "no bar do ALEMO."
77b3:  POS(39)  = MSG(1); "no beco das margari-     das."
77ce:  POS(40)  = MSG(1); "perto do acampamento     dos mineiros. H um velho barraco       aqui perto."
7812:  POS(41)  = MSG(1); "no barraco."
781f:  POS(42)  = MSG(1); "no acampamento dos mi    neiros."
783e:  POS(43)  = MSG(1); "no poo artesiano do     garimpo."
785d:  POS(44)  = MSG(1); "num cruzamento."
786e:  POS(45)  = MSG(1); "na estrada nova do ga    rimpo."
788c:  POS(46)  = MSG(1); MSG(5); "o ambula-     trio."
789f:  POS(47)  = MSG(1); "no ambulatrio."
78b0:  POS(48)  = MSG(1); "num ferro velho."
78c2:  POS(49)  = MSG(1); MSG(5); "a caixa e-    conmica."
78d9:  POS(50)  = MSG(1); "na caixa econmica."



78ef: 1c 01 00    CMD(1)   =  VERB(28)  OBJ(1)            =>  'EXAMINE'  'LOCAL'  
78f2: 03             EXIT LIST_POS                  

78f4: 0d 00 00    CMD(2)   =  VERB(13)                    =>  'TEMOS'    
78f7: 04             EXIT LIST_PLAYER               

78f9: 0e 00 00    CMD(3)   =  VERB(14)                    =>  'RECOMECE'    
78fc: 20             EXIT RESTART_GAME              

78fe: 09 00 00    CMD(4)   =  VERB(9)                     =>  'SAIA'    
7901: 10 18 d2       IF AT POS(24) GOTO _A          
7904: 10 1a d2       IF AT POS(26) GOTO _A          
7907: 10 1c d2       IF AT POS(28) GOTO _A          
790a: 10 1d d2       IF AT POS(29) GOTO _A          
790d: 10 26 d2       IF AT POS(38) GOTO _A          
7910: 10 29 d2       IF AT POS(41) GOTO _A          
7913: 10 32 d2       IF AT POS(50) GOTO _A          
7916: 10 2f d2       IF AT POS(47) GOTO _A          
7919: 10 23 d2       IF AT POS(35) GOTO _A          
791c: 01 23          PRINT MSG(35)                  ; "De onde?"
791e: 02             EXIT                           
791f: e6             _A:                            
7920: 08 01          REG(1)--                       ; REG(1) = POSICAO ATUAL DO JOGADOR
7922: 21             EXIT DESC                      

7924: 07 00 00    CMD(5)   =  VERB(7)                     =>  'ENTRE'    
7927: 10 17 d2       IF AT POS(23) GOTO _A          
792a: 10 19 d2       IF AT POS(25) GOTO _A          
792d: 10 1b dd       IF AT POS(27) GOTO _L          
7930: 10 1c d2       IF AT POS(28) GOTO _A          
7933: 10 25 d6       IF AT POS(37) GOTO _E          
7936: 10 28 d2       IF AT POS(40) GOTO _A          
7939: 10 31 de       IF AT POS(49) GOTO _M          
793c: 10 22 d3       IF AT POS(34) GOTO _B          
793f: 10 2e d2       IF AT POS(46) GOTO _A          
7942: 01 22          PRINT MSG(34)                  ; "Em que lugar?"
7944: 02             EXIT                           
7945: e6             _A:                            
7946: 07 01          REG(1)++                       ; REG(1) = POSICAO ATUAL DO JOGADOR
7948: e8             _C:                            
7949: 21             EXIT DESC                      
794a: e7             _B:                            
794b: 07 01          REG(1)++                       ; REG(1) = POSICAO ATUAL DO JOGADOR
794d: 0f 10 d4       IF OBJ(16) IS_NEARBY GOTO _C   ; OBJ(16) = 'DONO'
7950: 08 01          REG(1)--                       ; REG(1) = POSICAO ATUAL DO JOGADOR
7952: 0c 74 00 d5    IF REG(116)=0 GOTO _D          ; POS de OBJ(16) = 'DONO'
7956: 01 44          PRINT MSG(68)                  ; "O armazm est fechado para almo- o."
7958: 02             EXIT                           
7959: e9             _D:                            
795a: 01 45          PRINT MSG(69)                  ; "A polcia interditou o armazm devido ao assassinato do dono. Ainda procuram o responsvel."
795c: 02             EXIT                           
795d: ea             _E:                            
795e: 07 01          REG(1)++                       ; REG(1) = POSICAO ATUAL DO JOGADOR
7960: 0f 11 d7       IF OBJ(17) IS_NEARBY GOTO _F   ; OBJ(17) = 'GERENTE'
7963: 21             EXIT DESC                      
7964: eb             _F:                            
7965: 0f 07 d8       IF OBJ(7) IS_NEARBY GOTO _G    ; OBJ(7) = 'MEDICO'
7968: 21             EXIT DESC                      
7969: ec             _G:                            
796a: 0c 1f 01 d9    IF REG(31)=1 GOTO _H           ; REG(31) = CONTADOR DE CONTROLE DA CONVERSA DO GERENTE COM MEDICO NO BAR
796e: 07 1f          REG(31)++                      ; REG(31) = CONTADOR DE CONTROLE DA CONVERSA DO GERENTE COM MEDICO NO BAR
7970: 21             EXIT DESC                      
7971: ed             _H:                            
7972: 07 1f          REG(31)++                      ; REG(31) = CONTADOR DE CONTROLE DA CONVERSA DO GERENTE COM MEDICO NO BAR
7974: 01 72          PRINT MSG(114)                 ; "Shhh!! Eu ouvi o gerente da CAIXA dizendo ao doutor que o cofre s  aberto s 14h e permanece assim por apenas 10 minutos."
7976: 02             EXIT                           
7977: ee             _I:                            
7978: 0e 0c 0b db    IF REG(12)<11 GOTO _J          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
797c: 0d 0c 11 db    IF REG(12)>17 GOTO _J          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
7980: 23 d2          GOTO _A                        
7982: ef             _J:                            
7983: 01 73          PRINT MSG(115)                 ; "O horrio de funcionamento  das 11h s 17h."
7985: 02             EXIT
7986: f1             _L:                            
7987: 0c 22 00 d2    IF REG(34)=0 GOTO _A           ; REG(34) = EXPLOSAO NO POSTO TELEFONICO?
798b: f0             _K:                            
798c: 01 80          PRINT MSG(128)                 ; "Impossvel. Uma exploso "
798e: 29 6f          PRINT CHRS(111)                ; "o"
7990: 01 81          PRINT MSG(129)                 ; " des- truiu completamente."
7992: 02             EXIT                           
7993: f2             _M:                            
7994: 0c 23 00 da    IF REG(35)=0 GOTO _I           ; REG(35) = EXPLOSAO NA CAIXA ECONOMICA?
7998: 01 80          PRINT MSG(128)                 ; "Impossvel. Uma exploso "
799a: 29 61          PRINT CHRS(97)                 ; "a"
799c: 01 81          PRINT MSG(129)                 ; " des- truiu completamente."
799e: 02             EXIT                           

79a0: 0c 06 00    CMD(6)   =  VERB(12)  OBJ(6)            =>  'QUANTO'  'DINHEIRO'  
79a3: 16 16          EXEC FUNC(22)                  
79a5: 01 19          PRINT MSG(25)                  ; "Ns temos Cz$ "
79a7: 1c 0f          PRINT REG(15)                  ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
79a9: 01 1a          PRINT MSG(26)                  ; ".000,00 "
79ab: 02             EXIT                           

79ad: 11 00 00    CMD(7)   =  VERB(17)                    =>  'DIA'    
79b0: 01 1f          PRINT MSG(31)                  ; "Hoje  dia "
79b2: 1c 0d          PRINT REG(13)                  ; REG(13) = CONTADOR DE DIAS
79b4: 29 2e          PRINT CHRS(46)                 ; "."
79b6: 02             EXIT                           

79b8: 14 06 00    CMD(8)   =  VERB(20)  OBJ(6)            =>  'PEGUE'  'DINHEIRO'  
79bb: 0f 06 d2       IF OBJ(6) IS_NEARBY GOTO _A    ; OBJ(6) = 'DINHEIRO'
79be: 11 06 d2       IF HAVE OBJ(6) GOTO _A         ; OBJ(6) = 'DINHEIRO'
79c1: 01 37          PRINT MSG(55)                  ; "Por favor diga-me onde tem."
79c3: 02             EXIT                           
79c4: e6             _A:                            
79c5: 16 06          EXEC FUNC(6)                   ; Tratamento default para VERB(20) = 'PEGUE'

79c8: 14 06 05    CMD(9)   =  VERB(20)  OBJ(6)   OBJ(5)   =>  'PEGUE'  'DINHEIRO'  'CARTEIRA'
79cb: 11 05 d2       IF HAVE OBJ(5) GOTO _A         ; OBJ(5) = 'CARTEIRA'
79ce: 2a 10 05       EXIT MSG(16)+OBJ(5)            ; "Ns no temos " + "uma carteira"
79d1: e6             _A:                            
79d2: 0c 14 01 d3    IF REG(20)=1 GOTO _B           ; REG(20) = CARTEIRA VAZIA?
79d6: 09 14 01       REG(20):=1                     ; REG(20) = CARTEIRA VAZIA?
79d9: 15 34          BREAK OBJ(52)                  ; OBJ(52) = '^'
79db: 13 06          GET OBJ(6)                     ; OBJ(6) = 'DINHEIRO'
79dd: 1b             EXIT OK                        
79de: e7             _B:                            
79df: 01 38          PRINT MSG(56)                  ; MSG(7); "vazia."
79e1: 02             EXIT                           

79e3: 15 06 05    CMD(10)  =  VERB(21)  OBJ(6)   OBJ(5)   =>  'COLOQUE'  'DINHEIRO'  'CARTEIRA'
79e6: 11 06 d2       IF HAVE OBJ(6) GOTO _A         ; OBJ(6) = 'DINHEIRO'
79e9: 2a 10 06       EXIT MSG(16)+OBJ(6)            ; "Ns no temos " + "dinheiro"
79ec: e6             _A:                            
79ed: 11 05 d3       IF HAVE OBJ(5) GOTO _B         ; OBJ(5) = 'CARTEIRA'
79f0: 2a 10 05       EXIT MSG(16)+OBJ(5)            ; "Ns no temos " + "uma carteira"
79f3: e7             _B:                            
79f4: 15 06          BREAK OBJ(6)                   ; OBJ(6) = 'DINHEIRO'
79f6: 13 34          GET OBJ(52)                    ; OBJ(52) = '^'
79f8: 09 14 00       REG(20):=0                     ; REG(20) = CARTEIRA VAZIA?
79fb: 1b             EXIT OK                        

79fd: 0b 00 00    CMD(11)  =  VERB(11)                    =>  'HORAS'    
7a00: 11 04 d2       IF HAVE OBJ(4) GOTO _A         ; OBJ(4) = 'RELOGIO'
7a03: 2a 10 04       EXIT MSG(16)+OBJ(4)            ; "Ns no temos " + "um relgio"
7a06: e6             _A:                            
7a07: 01 39          PRINT MSG(57)                  ; "So "
7a09: 1c 0c          PRINT REG(12)                  ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
7a0b: 29 3a          PRINT CHRS(58)                 ; ":"
7a0d: 1c 0b          PRINT REG(11)                  ; REG(11) = MOSTRADOR DE MINUTOS DO RELOGIO
7a0f: 29 20          PRINT CHRS(32)                 ; " "
7a11: 29 68          PRINT CHRS(104)                ; "h"
7a13: 29 2e          PRINT CHRS(46)                 ; "."
7a15: 02             EXIT                           

7a17: 15 14 02    CMD(12)  =  VERB(21)  OBJ(20)  OBJ(2)   =>  'COLOQUE'  'QUEROSENE'  'LAMPIAO'
7a1a: 11 02 d2       IF HAVE OBJ(2) GOTO _A         ; OBJ(2) = 'LAMPIAO'
7a1d: 2a 10 02       EXIT MSG(16)+OBJ(2)            ; "Ns no temos " + "um lampio"
7a20: e6             _A:                            
7a21: 11 14 d3       IF HAVE OBJ(20) GOTO _B        ; OBJ(20) = 'QUEROSENE'
7a24: 2a 10 14       EXIT MSG(16)+OBJ(20)           ; "Ns no temos " + "querosene"
7a27: e7             _B:                            
7a28: 15 14          BREAK OBJ(20)                  ; OBJ(20) = 'QUEROSENE'
7a2a: 0c 17 01 d5    IF REG(23)=1 GOTO _D           ; REG(23) = EXPLOSAO NO AEROPORTO?
7a2e: 09 78 23       REG(120):=35                   ; POS de OBJ(20) = 'QUEROSENE'
7a31: e9             _D:                            
7a32: 0c 16 00 d4    IF REG(22)=0 GOTO _C           ; REG(22) = QUANTIDADE DE QUEROSENE NO LAMPIAO
7a36: 01 3f          PRINT MSG(63)                  ; "Ih! derramou um pouquinho."
7a38: 09 16 0a       REG(22):=10                    ; REG(22) = QUANTIDADE DE QUEROSENE NO LAMPIAO
7a3b: 02             EXIT                           
7a3c: e8             _C:                            
7a3d: 09 16 0a       REG(22):=10                    ; REG(22) = QUANTIDADE DE QUEROSENE NO LAMPIAO
7a40: 1b             EXIT OK                        

7a42: 23 02 00    CMD(13)  =  VERB(35)  OBJ(2)            =>  'ACENDA'  'LAMPIAO'  
7a45: 11 02 d2       IF HAVE OBJ(2) GOTO _A         ; OBJ(2) = 'LAMPIAO'
7a48: 2a 10 02       EXIT MSG(16)+OBJ(2)            ; "Ns no temos " + "um lampio"
7a4b: e6             _A:                            
7a4c: 16 18          EXEC FUNC(24)                  
7a4e: 0c 16 00 d4    IF REG(22)=0 GOTO _C           ; REG(22) = QUANTIDADE DE QUEROSENE NO LAMPIAO
7a52: 09 0a 01       REG(10):=1                     ; REG(10) = LAMPIAO ACESO?
7a55: 25 00 00       FLAG(0):=0                     ; FLAG(0) = JOGADOR NA ESCURIDAO?
7a58: 0c 19 00 d3    IF REG(25)=0 GOTO _B           ; REG(25) = CONTADOR AUXILIAR
7a5c: 02             EXIT                           
7a5d: e7             _B:                            
7a5e: 1b             EXIT OK                        
7a5f: e8             _C:                            
7a60: 01 43          PRINT MSG(67)                  ; "Ele no quer acender."
7a62: 02             EXIT                           

7a64: 24 02 00    CMD(14)  =  VERB(36)  OBJ(2)            =>  'APAGUE'  'LAMPIAO'  
7a67: 11 02 d2       IF HAVE OBJ(2) GOTO _A         ; OBJ(2) = 'LAMPIAO'
7a6a: 2a 10 02       EXIT MSG(16)+OBJ(2)            ; "Ns no temos " + "um lampio"
7a6d: e6             _A:                            
7a6e: 09 0a 00       REG(10):=0                     ; REG(10) = LAMPIAO ACESO?
7a71: 1b             EXIT OK                        

7a73: 12 00 00    CMD(15)  =  VERB(18)                    =>  'QUEM'    
7a76: 09 19 00       REG(25):=0                     ; REG(25) = CONTADOR AUXILIAR
7a79: 01 50          PRINT MSG(80)                  ; "Por aqui eu estou vendo: "
7a7b: 0f 07 db       IF OBJ(7) IS_NEARBY GOTO _J    ; OBJ(7) = 'MEDICO'
7a7e: e6             _A:                            
7a7f: 0f 08 dc       IF OBJ(8) IS_NEARBY GOTO _K    ; OBJ(8) = 'CHEFE'
7a82: e7             _B:                            
7a83: 0f 09 dd       IF OBJ(9) IS_NEARBY GOTO _L    ; OBJ(9) = 'VELHO'
7a86: e8             _C:                            
7a87: 0f 0a de       IF OBJ(10) IS_NEARBY GOTO _M   ; OBJ(10) = 'GUARDA'
7a8a: e9             _D:                            
7a8b: 0f 0b df       IF OBJ(11) IS_NEARBY GOTO _N   ; OBJ(11) = 'ALEMAO'
7a8e: ea             _E:                            
7a8f: 0f 0c e0       IF OBJ(12) IS_NEARBY GOTO _O   ; OBJ(12) = 'TELEFONISTA'
7a92: eb             _F:                            
7a93: 0f 0d e1       IF OBJ(13) IS_NEARBY GOTO _P   ; OBJ(13) = 'DELEGADO'
7a96: ec             _G:                            
7a97: 0f 0f e2       IF OBJ(15) IS_NEARBY GOTO _Q   ; OBJ(15) = 'GARIMPEIRO'
7a9a: ed             _H:                            
7a9b: 0f 10 e3       IF OBJ(16) IS_NEARBY GOTO _R   ; OBJ(16) = 'DONO'
7a9e: ee             _I:                            
7a9f: 0f 11 e4       IF OBJ(17) IS_NEARBY GOTO _S   ; OBJ(17) = 'GERENTE'
7aa2: 0d 19 00 e5    IF REG(25)>0 GOTO _T           ; REG(25) = CONTADOR AUXILIAR
7aa6: 01 51          PRINT MSG(81)                  ; "ningum importante."
7aa8: 02             EXIT                           
7aa9: ef             _J:                            
7aaa: 06 07          PRINT OBJ(7)                   ; "o mdico"
7aac: 07 19          REG(25)++                      ; REG(25) = CONTADOR AUXILIAR
7aae: 01 4f          PRINT MSG(79)                  ; " "; TAB 0; " "
7ab0: 23 d2          GOTO _A                        
7ab2: f0             _K:                            
7ab3: 06 08          PRINT OBJ(8)                   ; "o chefe dos garimpeiros"
7ab5: 07 19          REG(25)++                      ; REG(25) = CONTADOR AUXILIAR
7ab7: 01 4f          PRINT MSG(79)                  ; " "; TAB 0; " "
7ab9: 23 d3          GOTO _B                        
7abb: f1             _L:                            
7abc: 06 09          PRINT OBJ(9)                   ; "o velho MATHIAS"
7abe: 07 19          REG(25)++                      ; REG(25) = CONTADOR AUXILIAR
7ac0: 01 4f          PRINT MSG(79)                  ; " "; TAB 0; " "
7ac2: 23 d4          GOTO _C                        
7ac4: f2             _M:                            
7ac5: 06 0a          PRINT OBJ(10)                  ; "o guarda"
7ac7: 07 19          REG(25)++                      ; REG(25) = CONTADOR AUXILIAR
7ac9: 01 4f          PRINT MSG(79)                  ; " "; TAB 0; " "
7acb: 23 d5          GOTO _D                        
7acd: f3             _N:                            
7ace: 06 0b          PRINT OBJ(11)                  ; "o ALEMO"
7ad0: 07 19          REG(25)++                      ; REG(25) = CONTADOR AUXILIAR
7ad2: 01 4f          PRINT MSG(79)                  ; " "; TAB 0; " "
7ad4: 23 d6          GOTO _E                        
7ad6: f4             _O:                            
7ad7: 06 0c          PRINT OBJ(12)                  ; "a telefonista"
7ad9: 07 19          REG(25)++                      ; REG(25) = CONTADOR AUXILIAR
7adb: 01 4f          PRINT MSG(79)                  ; " "; TAB 0; " "
7add: 23 d7          GOTO _F                        
7adf: f5             _P:                            
7ae0: 06 0d          PRINT OBJ(13)                  ; "o delegado"
7ae2: 07 19          REG(25)++                      ; REG(25) = CONTADOR AUXILIAR
7ae4: 01 4f          PRINT MSG(79)                  ; " "; TAB 0; " "
7ae6: 23 d8          GOTO _G                        
7ae8: f6             _Q:                            
7ae9: 06 0f          PRINT OBJ(15)                  ; "um garimpeiro"
7aeb: 07 19          REG(25)++                      ; REG(25) = CONTADOR AUXILIAR
7aed: 01 4f          PRINT MSG(79)                  ; " "; TAB 0; " "
7aef: 23 d9          GOTO _H                        
7af1: f7             _R:                            
7af2: 06 10          PRINT OBJ(16)                  ; "o dono do armazm"
7af4: 07 19          REG(25)++                      ; REG(25) = CONTADOR AUXILIAR
7af6: 01 4f          PRINT MSG(79)                  ; " "; TAB 0; " "
7af8: 23 da          GOTO _I
7afa: f8             _S:                            
7afb: 06 11          PRINT OBJ(17)                  ; "o gerente"
7afd: f9             _T:                            
7afe: 02             EXIT                           

7b00: 1c 18 00    CMD(16)  =  VERB(28)  OBJ(24)           =>  'EXAMINE'  'PACOTE'  
7b03: 11 18 d2       IF HAVE OBJ(24) GOTO _A        ; OBJ(24) = 'PACOTE'
7b06: 2a 10 18       EXIT MSG(16)+OBJ(24)           ; "Ns no temos " + "um pacote"
7b09: e6             _A:                            
7b0a: 01 65          PRINT MSG(101)                 ; " o lanche do guarda."
7b0c: 02             EXIT                           

7b0e: 1c 19 00    CMD(17)  =  VERB(28)  OBJ(25)           =>  'EXAMINE'  'COFRE'  
7b11: 0f 19 d2       IF OBJ(25) IS_NEARBY GOTO _A   ; OBJ(25) = 'COFRE'
7b14: 2a 18 19       EXIT MSG(24)+OBJ(25)           ; "Aqui no tem " + "um cofre"
7b17: e6             _A:                            
7b18: 0c 0c 0e d4    IF REG(12)=14 GOTO _C          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
7b1c: e7             _B:                            
7b1d: 01 66          PRINT MSG(102)                 ; MSG(6); "fechado."
7b1f: 02             EXIT                           
7b20: e8             _C:                            
7b21: 0d 0b 09 d3    IF REG(11)>9 GOTO _B           ; REG(11) = MOSTRADOR DE MINUTOS DO RELOGIO
7b25: 0f 13 d5       IF OBJ(19) IS_NEARBY GOTO _D   ; OBJ(19) = 'OURO'
7b28: 01 42          PRINT MSG(66)                  ; MSG(6); "vazio."
7b2a: 02             EXIT                           
7b2b: e9             _D:                            
7b2c: 01 67          PRINT MSG(103)                 ; "Puxa! quanto ouro..."
7b2e: 02             EXIT                           

7b30: 1c 13 00    CMD(18)  =  VERB(28)  OBJ(19)           =>  'EXAMINE'  'OURO'  
7b33: 11 13 d2       IF HAVE OBJ(19) GOTO _A        ; OBJ(19) = 'OURO'
7b36: 0f 13 d2       IF OBJ(19) IS_NEARBY GOTO _A   ; OBJ(19) = 'OURO'
7b39: 2a 12 13       EXIT MSG(18)+OBJ(19)           ; "Eu no vejo " + "ouro"
7b3c: e6             _A:                            
7b3d: 01 68          PRINT MSG(104)                 ; "So "
7b3f: 1c 13          PRINT REG(19)                  ; REG(19) = QUANTIDADE DE OURO
7b41: 01 2b          PRINT MSG(43)                  ; "0g de ouro."
7b43: 02             EXIT                           

7b45: 27 06 00    CMD(19)  =  VERB(39)  OBJ(6)            =>  'DEPOSITE'  'DINHEIRO'  
7b48: 11 06 d7       IF HAVE OBJ(6) GOTO _F         ; OBJ(6) = 'DINHEIRO'
7b4b: 11 05 d3       IF HAVE OBJ(5) GOTO _B         ; OBJ(5) = 'CARTEIRA'
7b4e: e6             _A:                            
7b4f: 01 1c          PRINT MSG(28)                  ; "Ns no temos um nico tosto."
7b51: 02             EXIT                           
7b52: e7             _B:                            
7b53: 0c 14 01 d2    IF REG(20)=1 GOTO _A           ; REG(20) = CARTEIRA VAZIA?
7b57: eb             _F:                            
7b58: 10 32 d4       IF AT POS(50) GOTO _C          
7b5b: 01 6a          PRINT MSG(106)                 ; "Ns no estamos na NOSSA CAIXA."
7b5d: 02             EXIT                           
7b5e: e8             _C:                            
7b5f: 09 19 00       REG(25):=0                     ; REG(25) = CONTADOR AUXILIAR
7b62: e9             _D:                            
7b63: 0c 0f 00 d6    IF REG(15)=0 GOTO _E           ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
7b67: 07 19          REG(25)++                      ; REG(25) = CONTADOR AUXILIAR
7b69: 08 0f          REG(15)--                      ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
7b6b: 23 d5          GOTO _D                        
7b6d: ea             _E:                            
7b6e: 16 1b          EXEC FUNC(27)                  
7b70: 01 6b          PRINT MSG(107)                 ; "O saldo foi para Cz$ "
7b72: 16 1a          EXEC FUNC(26)                  
7b74: 09 14 01       REG(20):=1                     ; REG(20) = CARTEIRA VAZIA?
7b77: 11 06 d8       IF HAVE OBJ(6) GOTO _G         ; OBJ(6) = 'DINHEIRO'
7b7a: 02             EXIT                           
7b7b: ec             _G:                            
7b7c: 15 06          BREAK OBJ(6)                   ; OBJ(6) = 'DINHEIRO'
7b7e: 13 34          GET OBJ(52)                    ; OBJ(52) = '^'
7b80: 02             EXIT                           

7b82: 28 06 00    CMD(20)  =  VERB(40)  OBJ(6)            =>  'RETIRE'  'DINHEIRO'  
7b85: 10 32 d2       IF AT POS(50) GOTO _A          
7b88: 01 6a          PRINT MSG(106)                 ; "Ns no estamos na NOSSA CAIXA."
7b8a: 02             EXIT
7b8b: e6             _A:                            
7b8c: 11 06 d3       IF HAVE OBJ(6) GOTO _B         ; OBJ(6) = 'DINHEIRO'
7b8f: 11 05 d3       IF HAVE OBJ(5) GOTO _B         ; OBJ(5) = 'CARTEIRA'
7b92: 15 34          BREAK OBJ(52)                  ; OBJ(52) = '^'
7b94: 13 06          GET OBJ(6)                     ; OBJ(6) = 'DINHEIRO'
7b96: 09 0f 00       REG(15):=0                     ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
7b99: e7             _B:                            
7b9a: 09 19 0a       REG(25):=10                    ; REG(25) = CONTADOR AUXILIAR
7b9d: e8             _C:                            
7b9e: 0c 19 00 d7    IF REG(25)=0 GOTO _F           ; REG(25) = CONTADOR AUXILIAR
7ba2: 0c 1c 00 d5    IF REG(28)=0 GOTO _D           ; REG(28) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$     ??.000,00
7ba6: 08 19          REG(25)--                      ; REG(25) = CONTADOR AUXILIAR
7ba8: 08 1c          REG(28)--                      ; REG(28) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$     ??.000,00
7baa: 07 0f          REG(15)++                      ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
7bac: 23 d4          GOTO _C                        
7bae: e9             _D:                            
7baf: 0c 1d 00 d6    IF REG(29)=0 GOTO _E           ; REG(29) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$   ??00.000,00
7bb3: 09 1c 64       REG(28):=100                   ; REG(28) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$     ??.000,00
7bb6: 08 1d          REG(29)--                      ; REG(29) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$   ??00.000,00
7bb8: 23 d4          GOTO _C                        
7bba: ea             _E:                            
7bbb: 0c 1e 00 d7    IF REG(30)=0 GOTO _F           ; REG(30) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$ ??0000.000,00
7bbf: 09 1c 64       REG(28):=100                   ; REG(28) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$     ??.000,00
7bc2: 09 1d 63       REG(29):=99                    ; REG(29) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$   ??00.000,00
7bc5: 08 1e          REG(30)--                      ; REG(30) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$ ??0000.000,00
7bc7: 23 d4          GOTO _C                        
7bc9: eb             _F:                            
7bca: 01 6b          PRINT MSG(107)                 ; "O saldo foi para Cz$ "
7bcc: 16 1a          EXEC FUNC(26)                  
7bce: 11 05 d8       IF HAVE OBJ(5) GOTO _G         ; OBJ(5) = 'CARTEIRA'
7bd1: 02             EXIT                           
7bd2: ec             _G:                            
7bd3: 09 14 00       REG(20):=0                     ; REG(20) = CARTEIRA VAZIA?
7bd6: 02             EXIT                           

7bd8: 0c 13 00    CMD(21)  =  VERB(12)  OBJ(19)           =>  'QUANTO'  'OURO'  
7bdb: 11 13 d2       IF HAVE OBJ(19) GOTO _A        ; OBJ(19) = 'OURO'
7bde: 2a 10 13       EXIT MSG(16)+OBJ(19)           ; "Ns no temos " + "ouro"
7be1: e6             _A:                            
7be2: 01 6c          PRINT MSG(108)                 ; "Ns temos "
7be4: 1c 13          PRINT REG(19)                  ; REG(19) = QUANTIDADE DE OURO
7be6: 01 2b          PRINT MSG(43)                  ; "0g de ouro."
7be8: 02             EXIT                           

7bea: 28 06 1a    CMD(22)  =  VERB(40)  OBJ(6)   OBJ(26)  =>  'RETIRE'  'DINHEIRO'  'CONTA'
7bed: 2c 14          EXEC CMD(20)                   

7bf0: 27 06 1a    CMD(23)  =  VERB(39)  OBJ(6)   OBJ(26)  =>  'DEPOSITE'  'DINHEIRO'  'CONTA'
7bf3: 2c 13          EXEC CMD(19)                   

7bf6: 10 01 00    CMD(24)  =  VERB(16)  OBJ(1)            =>  'GARIMPE'  'LOCAL'  
7bf9: 0e 01 15 d2    IF REG(1)<21 GOTO _A           ; REG(1) = POSICAO ATUAL DO JOGADOR
7bfd: 01 74          PRINT MSG(116)                 ; "Aqui ???"
7bff: 02             EXIT                           
7c00: e6             _A:                            
7c01: 11 1b d3       IF HAVE OBJ(27) GOTO _B        ; OBJ(27) = 'PICARETA'
7c04: 2a 10 1b       EXIT MSG(16)+OBJ(27)           ; "Ns no temos " + "uma picareta"
7c07: e7             _B:                            
7c08: 11 1e d4       IF HAVE OBJ(30) GOTO _C        ; OBJ(30) = 'BATEIA'
7c0b: 2a 10 1e       EXIT MSG(16)+OBJ(30)           ; "Ns no temos " + "uma batia"
7c0e: e8             _C:                            
7c0f: 24 08          PAUSE 8                        
7c11: 10 13 d9       IF AT POS(19) GOTO _H          
7c14: ee             _I:                            
7c15: 09 19 00       REG(25):=0                     ; REG(25) = CONTADOR AUXILIAR
7c18: 0b 19 3c       REG(25)+=RND(60)               ; REG(25) = CONTADOR AUXILIAR
7c1b: 0d 19 32 d5    IF REG(25)>50 GOTO _D          ; REG(25) = CONTADOR AUXILIAR
7c1f: ef             _J:                            
7c20: 01 75          PRINT MSG(117)                 ; "Nada."
7c22: 02             EXIT                           
7c23: e9             _D:                            
7c24: 09 19 01       REG(25):=1                     ; REG(25) = CONTADOR AUXILIAR
7c27: 0b 19 03       REG(25)+=RND(3)                ; REG(25) = CONTADOR AUXILIAR
7c2a: 01 76          PRINT MSG(118)                 ; "Grande sorte... Eu achei "
7c2c: 1c 19          PRINT REG(25)                  ; REG(25) = CONTADOR AUXILIAR
7c2e: 01 2b          PRINT MSG(43)                  ; "0g de ouro."
7c30: 11 13 d7       IF HAVE OBJ(19) GOTO _F        ; OBJ(19) = 'OURO'
7c33: 15 33          BREAK OBJ(51)                  ; OBJ(51) = '^'
7c35: 13 13          GET OBJ(19)                    ; OBJ(19) = 'OURO'
7c37: eb             _F:                            
7c38: 0c 19 00 d8    IF REG(25)=0 GOTO _G           ; REG(25) = CONTADOR AUXILIAR
7c3c: 08 19          REG(25)--                      ; REG(25) = CONTADOR AUXILIAR
7c3e: 07 13          REG(19)++                      ; REG(19) = QUANTIDADE DE OURO
7c40: 0d 13 64 dc    IF REG(19)>100 GOTO _K         ; REG(19) = QUANTIDADE DE OURO
7c44: 23 d7          GOTO _F                        
7c46: ec             _G:                            
7c47: 02             EXIT                           
7c48: ed             _H:                            
7c49: 0e 0c 12 da    IF REG(12)<18 GOTO _I          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
7c4d: 0d 0c 04 da    IF REG(12)>4 GOTO _I           ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
7c51: 0b 19 5a       REG(25)+=RND(90)               ; REG(25) = CONTADOR AUXILIAR
7c54: 0e 19 50 db    IF REG(25)<80 GOTO _J          ; REG(25) = CONTADOR AUXILIAR
7c58: 01 77          PRINT MSG(119)                 ; "Acchhheeeeiiiii........"
7c5a: 14 12          CREATE OBJ(18)                 ; OBJ(18) = 'DIVIDA'
7c5c: 09 72 83       REG(114):=131                  ; POS de OBJ(14) = 'BOCA'
7c5f: 02             EXIT                           
7c60: f0             _K:                            
7c61: 16 1f          EXEC FUNC(31)                  

7c64: 10 00 00    CMD(25)  =  VERB(16)                    =>  'GARIMPE'    
7c67: 2c 18          EXEC CMD(24)                   

7c6a: 23 15 00    CMD(26)  =  VERB(35)  OBJ(21)           =>  'ACENDA'  'FSFOROS'  
7c6d: 11 15 d2       IF HAVE OBJ(21) GOTO _A        ; OBJ(21) = 'FSFOROS'
7c70: 2a 10 15       EXIT MSG(16)+OBJ(21)           ; "Ns no temos " + "fsforos"
7c73: e6             _A:                            
7c74: 0c 1a 01 d3    IF REG(26)=1 GOTO _B           ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
7c78: 08 1a          REG(26)--                      ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
7c7a: 1b             EXIT OK                        
7c7b: e7             _B:                            
7c7c: 01 5d          PRINT MSG(93)                  ; "Gastei o ltimo palito. "
7c7e: 08 1a          REG(26)--                      ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
7c80: 15 15          BREAK OBJ(21)                  ; OBJ(21) = 'FSFOROS'
7c82: 0c 17 01 d4    IF REG(23)=1 GOTO _C           ; REG(23) = EXPLOSAO NO AEROPORTO?
7c86: 09 79 23       REG(121):=35                   ; POS de OBJ(21) = 'FSFOROS'
7c89: 09 1a 1e       REG(26):=30                    ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
7c8c: e8             _C:                            
7c8d: 02             EXIT                           

7c8f: 23 25 00    CMD(27)  =  VERB(35)  OBJ(37)           =>  'ACENDA'  'DINAMITE'  
7c92: 11 25 d2       IF HAVE OBJ(37) GOTO _A        ; OBJ(37) = 'DINAMITE'
7c95: 0f 25 d2       IF OBJ(37) IS_NEARBY GOTO _A   ; OBJ(37) = 'DINAMITE'
7c98: 2a 10 25       EXIT MSG(16)+OBJ(37)           ; "Ns no temos " + "dinamite"
7c9b: e6             _A:                            
7c9c: 16 18          EXEC FUNC(24)                  
7c9e: 0c 19 00 d3    IF REG(25)=0 GOTO _B           ; REG(25) = CONTADOR AUXILIAR
7ca2: 02             EXIT                           
7ca3: e7             _B:                            
7ca4: 09 05 05       REG(5):=5                      ; REG(5) = CONTADOR DECRESCENTE DE COMANDOS
7ca7: 1b             EXIT OK                        

7ca9: 0a 00 00    CMD(28)  =  VERB(10)                    =>  'DESA'    
7cac: 0e 01 0b d2    IF REG(1)<11 GOTO _A           ; REG(1) = POSICAO ATUAL DO JOGADOR
7cb0: 01 23          PRINT MSG(35)                  ; "De onde?"
7cb2: 02             EXIT                           
7cb3: e6             _A:                            
7cb4: 0f 20 d4       IF OBJ(32) IS_NEARBY GOTO _C   ; OBJ(32) = 'ESCADA'
7cb7: 11 20 d3       IF HAVE OBJ(32) GOTO _B        ; OBJ(32) = 'ESCADA'
7cba: 2a 84 20       EXIT MSG(132)+OBJ(32)          ; "Vamos precisar de " + "uma escada"
7cbd: e7             _B:                            
7cbe: 12 20          DROP OBJ(32)                   ; OBJ(32) = 'ESCADA'
7cc0: e8             _C:                            
7cc1: 0a 01 0a       REG(1)+=10                     ; REG(1) = POSICAO ATUAL DO JOGADOR
7cc4: 14 20          CREATE OBJ(32)                 ; OBJ(32) = 'ESCADA'
7cc6: 21             EXIT DESC                      

7cc8: 08 00 00    CMD(29)  =  VERB(8)                     =>  'SUBA'    
7ccb: 0d 01 14 d2    IF REG(1)>20 GOTO _A           ; REG(1) = POSICAO ATUAL DO JOGADOR
7ccf: 0d 01 0a d3    IF REG(1)>10 GOTO _B           ; REG(1) = POSICAO ATUAL DO JOGADOR
7cd3: e6             _A:                            
7cd4: 01 22          PRINT MSG(34)                  ; "Em que lugar?"
7cd6: 02             EXIT                           
7cd7: e7             _B:                            
7cd8: 0f 20 d5       IF OBJ(32) IS_NEARBY GOTO _D   ; OBJ(32) = 'ESCADA'
7cdb: 11 20 d4       IF HAVE OBJ(32) GOTO _C        ; OBJ(32) = 'ESCADA'
7cde: 2a 84 20       EXIT MSG(132)+OBJ(32)          ; "Vamos precisar de " + "uma escada"
7ce1: e8             _C:                            
7ce2: 12 20          DROP OBJ(32)                   ; OBJ(32) = 'ESCADA'
7ce4: e9             _D:                            
7ce5: 0a 01 80       REG(1)+=128                    ; REG(1) = POSICAO ATUAL DO JOGADOR
7ce8: 0a 01 76       REG(1)+=118                    ; REG(1) = POSICAO ATUAL DO JOGADOR
7ceb: 14 20          CREATE OBJ(32)                 ; OBJ(32) = 'ESCADA'
7ced: 21             EXIT DESC                      

7cef: 16 13 00    CMD(30)  =  VERB(22)  OBJ(19)           =>  'TROQUE'  'OURO'  
7cf2: 11 13 d2       IF HAVE OBJ(19) GOTO _A        ; OBJ(19) = 'OURO'
7cf5: 2a 10 13       EXIT MSG(16)+OBJ(19)           ; "Ns no temos " + "ouro"
7cf8: e6             _A:                            
7cf9: 10 32 d3       IF AT POS(50) GOTO _B          
7cfc: 01 87          PRINT MSG(135)                 ; "Aqui ningum tem grana suficiente pra bancar esta troca."
7cfe: 02             EXIT                           
7cff: e7             _B:                            
7d00: 15 13          BREAK OBJ(19)                  ; OBJ(19) = 'OURO'
7d02: 13 33          GET OBJ(51)                    ; OBJ(51) = '^'
7d04: 11 05 d4       IF HAVE OBJ(5) GOTO _C         ; OBJ(5) = 'CARTEIRA'
7d07: 11 06 d4       IF HAVE OBJ(6) GOTO _C         ; OBJ(6) = 'DINHEIRO'
7d0a: 15 34          BREAK OBJ(52)                  ; OBJ(52) = '^'
7d0c: 13 06          GET OBJ(6)                     ; OBJ(6) = 'DINHEIRO'
7d0e: e8             _C:                            
7d0f: 0d 0f 7d d5    IF REG(15)>125 GOTO _D         ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
7d13: 0a 0f 03       REG(15)+=3                     ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
7d16: 08 13          REG(19)--                      ; REG(19) = QUANTIDADE DE OURO
7d18: 0d 13 00 d4    IF REG(19)>0 GOTO _C           ; REG(19) = QUANTIDADE DE OURO
7d1c: 1b             EXIT OK                        
7d1d: e9             _D:
7d1e: 16 1f          EXEC FUNC(31)                  

7d21: 27 13 00    CMD(31)  =  VERB(39)  OBJ(19)           =>  'DEPOSITE'  'OURO'  
7d24: 11 13 d2       IF HAVE OBJ(19) GOTO _A        ; OBJ(19) = 'OURO'
7d27: 2a 10 13       EXIT MSG(16)+OBJ(19)           ; "Ns no temos " + "ouro"
7d2a: e6             _A:                            
7d2b: 10 32 d3       IF AT POS(50) GOTO _B          
7d2e: 01 6a          PRINT MSG(106)                 ; "Ns no estamos na NOSSA CAIXA."
7d30: 02             EXIT                           
7d31: e7             _B:                            
7d32: 15 13          BREAK OBJ(19)                  ; OBJ(19) = 'OURO'
7d34: 13 33          GET OBJ(51)                    ; OBJ(51) = '^'
7d36: 09 19 00       REG(25):=0                     ; REG(25) = CONTADOR AUXILIAR
7d39: e8             _C:                            
7d3a: 0c 13 00 d5    IF REG(19)=0 GOTO _D           ; REG(19) = QUANTIDADE DE OURO
7d3e: 0a 19 03       REG(25)+=3                     ; REG(25) = CONTADOR AUXILIAR
7d41: 08 13          REG(19)--                      ; REG(19) = QUANTIDADE DE OURO
7d43: 23 d4          GOTO _C                        
7d45: e9             _D:                            
7d46: 16 1b          EXEC FUNC(27)                  
7d48: 01 6b          PRINT MSG(107)                 ; "O saldo foi para Cz$ "
7d4a: 16 1a          EXEC FUNC(26)                  
7d4c: 02             EXIT                           

7d4e: 27 13 1a    CMD(32)  =  VERB(39)  OBJ(19)  OBJ(26)  =>  'DEPOSITE'  'OURO'  'CONTA'
7d51: 2c 1f          EXEC CMD(31)                   

7d54: 29 0d 00    CMD(33)  =  VERB(41)  OBJ(13)           =>  'SUBORNE'  'DELEGADO'  
7d57: 0f 0d d2       IF OBJ(13) IS_NEARBY GOTO _A   ; OBJ(13) = 'DELEGADO'
7d5a: 2a 12 0d       EXIT MSG(18)+OBJ(13)           ; "Eu no vejo " + "o delegado"
7d5d: e6             _A:                            
7d5e: 11 13 d5       IF HAVE OBJ(19) GOTO _D        ; OBJ(19) = 'OURO'
7d61: 0d 1e 00 d3    IF REG(30)>0 GOTO _B           ; REG(30) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$ ??0000.000,00
7d65: 01 1d          PRINT MSG(29)                  ; "A grana no vai dar."
7d67: 02             EXIT                           
7d68: e7             _B:                            
7d69: 08 1e          REG(30)--                      ; REG(30) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$ ??0000.000,00
7d6b: e8             _C:                            
7d6c: 15 0d          BREAK OBJ(13)                  ; OBJ(13) = 'DELEGADO'
7d6e: 09 1b 00       REG(27):=0                     ; REG(27) = SITUACAO DO DELEGADO
7d71: 01 6e          PRINT MSG(110)                 ; ""Muito obrigado.""
7d73: 02             EXIT                           
7d74: e9             _D:                            
7d75: 09 13 00       REG(19):=0                     ; REG(19) = QUANTIDADE DE OURO
7d78: 15 13          BREAK OBJ(19)                  ; OBJ(19) = 'OURO'
7d7a: 13 33          GET OBJ(51)                    ; OBJ(51) = '^'
7d7c: 23 d4          GOTO _C                        

7d7f: 2a 00 00    CMD(34)  =  VERB(42)                    =>  'MAPA'    
7d82: 10 01 d2       IF AT POS(1) GOTO _A           
7d85: 10 02 d2       IF AT POS(2) GOTO _A           
7d88: 10 03 d2       IF AT POS(3) GOTO _A           
7d8b: 10 0b d2       IF AT POS(11) GOTO _A          
7d8e: 10 0c d2       IF AT POS(12) GOTO _A          
7d91: 10 0d d2       IF AT POS(13) GOTO _A          
7d94: 10 04 d3       IF AT POS(4) GOTO _B           
7d97: 10 05 d3       IF AT POS(5) GOTO _B           
7d9a: 10 06 d3       IF AT POS(6) GOTO _B           
7d9d: 10 0e d3       IF AT POS(14) GOTO _B          
7da0: 10 0f d3       IF AT POS(15) GOTO _B          
7da3: 10 10 d3       IF AT POS(16) GOTO _B          
7da6: 10 07 d4       IF AT POS(7) GOTO _C           
7da9: 10 11 d4       IF AT POS(17) GOTO _C          
7dac: 10 08 d4       IF AT POS(8) GOTO _C           
7daf: 10 12 d4       IF AT POS(18) GOTO _C          
7db2: 10 2d d4       IF AT POS(45) GOTO _C          
7db5: 10 2e d4       IF AT POS(46) GOTO _C          
7db8: 10 2f d4       IF AT POS(47) GOTO _C          
7dbb: 10 09 d5       IF AT POS(9) GOTO _D           
7dbe: 10 13 d5       IF AT POS(19) GOTO _D          
7dc1: 10 0a d5       IF AT POS(10) GOTO _D          
7dc4: 10 14 d5       IF AT POS(20) GOTO _D          
7dc7: 10 15 d6       IF AT POS(21) GOTO _E          
7dca: 10 16 d6       IF AT POS(22) GOTO _E
7dcd: 10 17 d6       IF AT POS(23) GOTO _E          
7dd0: 10 18 d6       IF AT POS(24) GOTO _E          
7dd3: 10 19 d6       IF AT POS(25) GOTO _E          
7dd6: 10 1a d6       IF AT POS(26) GOTO _E          
7dd9: 10 1b d7       IF AT POS(27) GOTO _F          
7ddc: 10 1c d7       IF AT POS(28) GOTO _F          
7ddf: 10 1d d7       IF AT POS(29) GOTO _F          
7de2: 10 1e d7       IF AT POS(30) GOTO _F          
7de5: 10 1f d7       IF AT POS(31) GOTO _F          
7de8: 10 20 d7       IF AT POS(32) GOTO _F          
7deb: 10 21 d7       IF AT POS(33) GOTO _F          
7dee: 10 22 d7       IF AT POS(34) GOTO _F          
7df1: 10 23 d7       IF AT POS(35) GOTO _F          
7df4: 10 24 d7       IF AT POS(36) GOTO _F          
7df7: 10 25 d7       IF AT POS(37) GOTO _F          
7dfa: 10 26 d7       IF AT POS(38) GOTO _F          
7dfd: 10 27 d8       IF AT POS(39) GOTO _G          
7e00: 10 28 d8       IF AT POS(40) GOTO _G          
7e03: 10 29 d8       IF AT POS(41) GOTO _G          
7e06: 10 2a d8       IF AT POS(42) GOTO _G          
7e09: 10 2b d8       IF AT POS(43) GOTO _G          
7e0c: 10 2c d8       IF AT POS(44) GOTO _G          
7e0f: 10 30 d8       IF AT POS(48) GOTO _G          
7e12: 10 31 d8       IF AT POS(49) GOTO _G          
7e15: 10 32 d8       IF AT POS(50) GOTO _G          
7e18: 01 0f          PRINT MSG(15)                  ; "Isto no  possvel."
7e1a: 02             EXIT                           
7e1b: e6             _A:                            
7e1c: 01 8b          PRINT MSG(139)                 ; "SERRA PELADA: regio norte ???????????????????????????????????? ?fundo... ??fundo... ??fundo... ? ? ?? ?? ? ???????????????????????????????????? ?Barranco ??Barranco ??Barranco ? ? ?? ?? ? ?FELICIDADE??PEDRA AZUL?? LOLA ? ? ?? ?? MONTEZ ? ???????????????????????????????????? N ?? O + L ?? S"
7e1e: 02             EXIT                           
7e1f: e7             _B:                            
7e20: 01 8c          PRINT MSG(140)                 ; "SERRA PELADA: regio norte ???????????????????????? ?fundo... ??fundo... ??????? N ? ?? ??????? O + L ???????????????????????? ?? S ?Barranco ??Barranco ? ?? ? QUEBRA ?? SELVA DE ? ?? ? DEDO ?? PEDRA ? ?? ???????????????????????? ?? ?? ??????????????????????? ?? ?Barranco ?fundo... ? ????????? ? ? ?????????Z BIGORNA? ? ???????????????????????"
7e22: 02             EXIT                           
7e23: e8             _C:                            
7e24: 01 8d          PRINT MSG(141)                 ; "SERRA PELADA: regio leste ?????????? ?Ambula- ? N ?? ?? ?trio ?O + L????????????????????? ? ? S ?Barranco ?fundo... ? ???????????????? ? ? ? ???????CALAFRIO ? ? ? ??? ? ? ? ???????????? ????????????????????? ???????????? ????????????????????? ?Estrada ??? ?Barranco ?fundo... ? ?Nova ??? ??? ? ? ? ??? ??? AMIZADE ? ? ?????????? ???????????????????????"
7e26: 02             EXIT                           
7e27: e9             _D:
7e28: 01 8e          PRINT MSG(142)                 ; "SERRA PELADA: regio sul ???????????????????????????????? ????????????Barranco ?fundo... ? ??????????? ???? ? ? ?Barranco ? ????MARTELADA? ? ? ???? ? ? ? ? SANTA ???? ????????????????????? ? HELENA ? ????????? ??????????? ????????? ?fundo... ?????????????? N ? ?????????????? O + L ??????????? S"
7e2a: 02             EXIT                           
7e2b: ea             _E:                            
7e2c: 01 8f          PRINT MSG(143)                 ; "SERRA PELADA: regio sul ????????????????? N ?Cadeia ? ? O + L ? ? ? S ? ? ? ?????? ????????????????? ?????? ??????????? ????????????????? ?Estrada ? ?Ponte ?Ponte ? ? velha??? ? ? ? ??? ? ? ??????????? ????????????????? ?Caminho ? ???????????"
7e2e: 02             EXIT                           
7e2f: eb             _F:                            
7e30: 01 90          PRINT MSG(144)                 ; "SERRA PELADA: regio oeste ???????? ????????????????????????? ?Mata- ? ???Aeroporto??Armazm? ? ? gal? ??? ?? ? ? ???????? ??????????????????????????? ?????????????????????? ??????????? ?Pista ???? ?????Praa ? ? ???? ????? Central? ? ? ??????????? ? ? ????????? ?Posto ? ??????????? ???????? ?Telefn. ??????????????? ?Hangar? ????????????Bar do ? ? ? ? ?Cabine ?? Alemo? ? ???????? ?????????????????????????"
7e32: 02             EXIT                           
7e33: ec             _G:                            
7e34: 01 91          PRINT MSG(145)                 ; "SERRA PELADA: regio central ????????????? ?????????? ?Caixa ? ???Ferro ? N ?Econm.? ??? Velho? O + L ????????????? ?????????? S ????????????? ??????????????Cruzamento ??????????? ?????????????? ??????????? ????????????? ????????????????? ?Barra? ???????? ?co ? ???????? ????????????????? ?? ???????????????????????????????????? ?Beco das ????Acampam. ??Poo ? ?Margaridas????mineiros ??Artesiano? ???????????? ??????????????????????"
7e36: 02             EXIT                           

7e38: 29 0e 00    CMD(35)  =  VERB(41)  OBJ(14)           =>  'SUBORNE'  'BOCA'  
7e3b: 0f 0e d2       IF OBJ(14) IS_NEARBY GOTO _A   ; OBJ(14) = 'BOCA'
7e3e: 2a 12 0e       EXIT MSG(18)+OBJ(14)           ; "Eu no vejo " + "o "bca de traira""
7e41: e6             _A:                            
7e42: 11 13 d3       IF HAVE OBJ(19) GOTO _B        ; OBJ(19) = 'OURO'
7e45: 01 b6          PRINT MSG(182)                 ; "Vamos precisar de muito ouro para isto. Pelo menos um quilo."
7e47: 02             EXIT                           
7e48: e7             _B:                            
7e49: 0d 13 64 d4    IF REG(19)>100 GOTO _C         ; REG(19) = QUANTIDADE DE OURO
7e4d: 01 b7          PRINT MSG(183)                 ; "O que temos no vai dar."
7e4f: 02             EXIT                           
7e50: e8             _C:                            
7e51: 0a 13 9c       REG(19)+=156                   ; REG(19) = QUANTIDADE DE OURO
7e54: 09 20 01       REG(32):=1                     ; REG(32) = SITUACAO DO BOCA DE TRAIRA
7e57: 1b             EXIT OK                        

7e59: 2c 00 00    CMD(36)  =  VERB(44)                    =>  'VERBOS'    
7e5c: 01 ba          PRINT MSG(186)                 ; " NORTE GARIMPE FAA SUL DIA CUMPRIMENTE LESTE QUEM CONSERTE OESTE CORRA VENDA GRAVE PEGUE ACENDA RECUPERE COLOQUE APAGUE ENTRE TROQUE ABRA SUBA COMPRE FECHE SAIA ROUBE DEPOSITE DESA PERGUNTE RETIRE HORAS QUEBRE SUBORNE QUANTO SOLTE MAPA TEMOS EXAMINE INSTRUES RECOMECE PROCURE VERBOS H D"
7e5e: 02             EXIT                           

7e60: 2b 00 00    CMD(37)  =  VERB(43)                    =>  'INSTRUES'    
7e63: 01 bf          PRINT MSG(191)                 ; AT 3,2; " ************************ **** **** **** SERRA PELADA **** **** **** ************************ Renato Degiovani- 1987 Serra Pelada , sem dvida nenhu- ma, o garimpo mais famoso do Brasil e esta aventura reproduz uma autn- tica "corrida ao ouro". Conhea antes um pouco da hist- ria deste garimpo. "
7e65: 2d             WAIT KEY                       
7e66: 01 c0          PRINT MSG(192)                 ; AT 3,2; " JOO DENTE DE OURO, um famoso ga- rimpeiro, certo dia encontrou, num dos barrancos de Serra Pelada, uma pepita gigante pesando algo em torno de 70 quilos. O garimpo foi ento agitado por uma onda de festejos e, s 3 horas da manh do quarto dia de comemora- es, debaixo de um terrvel tempo- ral, JOO DENTE DE OURO sumiu. Uns dizem que ele foi morto quan- do tentava sair de Serra Pelada por uma estrada de terra. Outros afirmam que ele morreu num desabamento pro- vocado pelas chuvas. "
7e68: 2d             WAIT KEY
7e69: 01 c1          PRINT MSG(193)                 ; AT 3,2; " De certo s h um fato: a grande pepita,que foi logo apelidada de D- VIDA EXTERNA devido ao seu tamanho, no saiu do garimpo e est  espera de que algum a ache novamente. O garimpo, porm,  um local mui- to perigoso para os incautos e para os espertinhos. L no existe ordem, apenas a lei do garimpo. Se voc pretende obter algum su- cesso, ento haja naturalmente e pro cure acumular alguma riqueza. Traba- lhe duro que sua recompensa aparece- r. No deixe o ouro se transformar na sua perdio. "
7e6b: 2d             WAIT KEY                       
7e6c: 01 bb          PRINT MSG(187)                 ; AT 3,2; "O JOGO: O SERRA PELADA possui um sistema de reconhecimento de frases que dis- pensa a digitao das palavras por inteiro. Por exemplo: EX, EXA e EXAM cor- respondem  palavra EXAMINE. Tal sistema funciona a partir de um buffer onde as palavras esto agrupadas de acordo com a sua impor- tncia no jogo, ou seja, o sistema utilizar a primeira palavra que sa- tisfaa o que foi digitado pelo jo- gador. "
7e6e: 2d             WAIT KEY                       
7e6f: 01 bc          PRINT MSG(188)                 ; AT 3,2; " Quanto mais letras forem forneci- das, mais acertadamente o sistema se manifestar. A acentuao ortogrfica  opcio- nal para facilitar a digitao. Os comandos mais comuns so: EXAMINE LOCAL - lista os objetos que esto no mesmo local que o jogador. HORAS - informa as horas. DIA - informa o dia atual."
7e71: 2d             WAIT KEY                       
7e72: 01 bd          PRINT MSG(189)                 ; AT 3,2; "TEMOS - lista os objetos que esto com o jogador. GRAVE - salva a partida em fita. RECUPERE - recupera a partida da fita. Aps uma referncia a um objeto, este pode ser substitudo pelo pro- nome correspondente. Por exemplo: PEGUE A PICARETA EXAMINE-A COLOQUE-A NA SACOLA"
7e74: 2d             WAIT KEY                       
7e75: 01 be          PRINT MSG(190)                 ; AT 3,2; " Os objetos que naturalmente per- tencem a um lugar no so listados pelo comando EXAMINE LOCAL. Para se ter certeza que um objeto no est no local, use o comando PROCURE objeto. Em Serra Pelada, o garimpo  fei- to em barrancos e cada um recebe uma denominao, de acordo com a perso- nalidade de seu dono. Os barrancos possuem duas reas prprias para o garimpo: a parte in- ferior e a parte superior. Assim, ser necessrio subir e descer para acessar estes locais."
7e77: 2d             WAIT KEY                       
7e78: 01 c2          PRINT MSG(194)                 ; AT 3,2; " Para garimpar deve-se usar o co- mando GARIMPE NO LOCAL.  claro que sero necessrios alguns objetos pa- ra que tal ao se realize. Voc pode adquirir esses objetos no nico armazm de Serra Pelada. Os preos, porm, so altssimos. De fato, em Serra Pelada todo o comrcio  feito usando-se como me- dida apenas dois preos. Isto  de- corrente do abastecimento de merca- dorias, que  feito por avio, e que acaba sendo muito caro. Mas a compra no  a nica forma de se obter um objeto. Voc poder "
7e7a: 2d             WAIT KEY                       
7e7b: 01 c3          PRINT MSG(195)                 ; AT 3,2; "eventualmente tentar a troca, ou... Todo ouro que voc conseguir deve ser vendido  CAIXA, que possui uma agncia no garimpo especialmente pa- ra isto. Voc j possui uma conta corrente l e poder DEPOSITAR ou RETIRAR dinheiro dela. No  aconselhvel andar pelo ga- rimpo com muito dinheiro no bolso ou com uma quantidade significativa de ouro. Isto pode despertar a cobia de um tipo todo especial de garim- peiro. E por falar nisto, muito cuidado com o BCA DE TRARA, o mais cruel e"
7e7d: 2d             WAIT KEY                       
7e7e: 01 c4          PRINT MSG(196)                 ; AT 3,2; "sanguinrio meliante de Serra Pela- da. Cuidado tambm  noite, pois em Serra Pelada a iluminao  muito precria. As pessoas mais conhecidas da ci- dade so: o mdico, o chefe dos mi- neiros, o velho Mathias, o guarda da CAIXA, o Alemo do bar, a telefonis- ta, o delegado, o Bca de Trara, o mineiro, o dono do armazm, o geren- te da CAIXA e o Joo Dente de Ouro.  aconselhvel manter relaes amigveis com este pessoal pois eles podem fornecer informaes preciosas"
7e80: 2d             WAIT KEY                       
7e81: 01 c5          PRINT MSG(197)                 ; AT 3,2; "sobre a vida em Serra Pelada. Para obter uma informao use o verbo perguntar. Por exemplo: PERGUNTE AO GERENTE SOBRE O JOO As respostas e os dilogos apare- cero sempre entre aspas. Para saber quantos cruzados voc tem use o comando QUANTO DINHEIRO,ou QUANTO OURO para saber a quantidade de ouro. O comando direto MAPA fornece um mapa detalhado da regio onde o jo- gador se encontra. "
7e83: 2d             WAIT KEY                       
7e84: 01 c6          PRINT MSG(198)                 ; AT 3,2; " SERRA PELADA  MAIS UM PRODUTO GENUINAMENTE NACIONAL CRIADO E PRODUZIDO POR RENATO DEGIOVANI PARA COMPUTADORES DA LINHA MSX ____________________________________ Esta adaptao "semi-oficial" para a linha ZX-Spectrum (TK90X e TK95) foi criada e produzida por Einar Saukas, com autorizao prvia do autor. "
7e86: 2d             WAIT KEY                       
7e87: 27             CLS                            
7e88: 21             EXIT DESC                      

7e8a: 2d 35 00    CMD(38)  =  VERB(45)  OBJ(53)           =>  'PEA'  'SALDO'  
7e8d: 10 32 d2       IF AT POS(50) GOTO _A          
7e90: 01 0f          PRINT MSG(15)                  ; "Isto no  possvel."
7e92: 02             EXIT                           
7e93: e6             _A:                            
7e94: 01 69          PRINT MSG(105)                 ; "Nossa conta tem um saldo de: Cz$ "
7e96: 16 1a          EXEC FUNC(26)                  
7e98: 02             EXIT                           



7e9b:  MSG(1)   = "Ns estamos "
7ea8:  MSG(2)   = "Sinto muito mas "
7eb9:  MSG(3)   = MSG(1); "no barranco "
7ec7:  MSG(4)   = MSG(1); "no fundo do barranco     "
7ede:  MSG(5)   = "na frente d"
7eea:  MSG(6)   = "Ele est "
7ef4:  MSG(7)   = "Ela est "
7efe:  MSG(8)   = "Por aqui no h "
7f0f:  MSG(9)   = "Msg def 9"
7f19:  MSG(10)  = "Bem vindo ao garimpo de SERRA PE-    LADA, o lugar onde a fortuna ronda      os mais ousados.                                                                   Hoje  dia 7 e voc deve achar a     famosa pepita de ouro "DVIDA EXTER-    NA" para tornar-se milionrio, ou en    to continuar pobre.                                                               A temporada de garimpo termina s    12 horas do dia 15, quando ento to-    dos os garimpeiros so retirados dos    barrancos e a rea interditada.                                                    Boa sorte e que seus sonhos se       tornem realidade..."
80b0:  MSG(11)  = "Achei o que voc queria."
80c9:  MSG(12)  = CLS; "A noite est muito escura. Eu no    consigo enxergar quase nada."
8109:  MSG(13)  = "Perdo, no entendi."
811e:  MSG(14)  = " impossvel ir nesta direo."
813d:  MSG(15)  = "Isto no  possvel."
8152:  MSG(16)  = "Ns no temos "
8161:  MSG(17)  = "Ns j temos "
816f:  MSG(18)  = "Eu no vejo "
817c:  MSG(19)  = " apenas "
8186:  MSG(20)  = MSG(2); "no d para carre    gar mais nada."
81a8:  MSG(21)  = "A sacola est completamente cheia."
81cb:  MSG(22)  = MSG(2); "a sacola est ras    gada e no d para colocar nada den-    tro dela."
820d:  MSG(23)  = "Ih! a sacola rasgou..."
8224:  MSG(24)  = "Aqui no tem "
8232:  MSG(25)  = "Ns temos Cz$ "
8241:  MSG(26)  = ".000,00 "
824a:  MSG(27)  = "O dono do armazm disse que aqui     no se trocam mercadorias. Se quiser    mos levar alguma coisa teremos que      comprar."
82bc:  MSG(28)  = "Ns no temos um nico tosto."
82db:  MSG(29)  = "A grana no vai dar."
82f0:  MSG(30)  = "Oooopaaa!!!                                                                      melhor pensar muito bem antes      de pegar alguma coisa neste lugar.      Tem uns seguranas aqui que parecem     dispostos a tudo."
8376:  MSG(31)  = "Hoje  dia "
8382:  MSG(32)  = "Quanto tempo voc acha que ele       ficaria dando sopa no cho? No deu     outra, companheiro, algum levou tu-    dinho."
83f1:  MSG(33)  = "Ele pagou uma ninharia. Que cara     po duro..."
841e:  MSG(34)  = "Em que lugar?"
842c:  MSG(35)  = "De onde?"
8435:  MSG(36)  = CLS; "Voc foi processado por "
844f:  MSG(37)  = " crimes "; TAB 0; "  das mais diversas naturezas (pensou     que ningum iria descobrir?).                                                      Como castigo o juiz confiscou to-    dos os seus bens.  uma pena..."
84dc:  MSG(38)  = " "; TAB 0; " "; TAB 0; "     Joga novamente?"
84ef:  MSG(39)  = " "; TAB 0; " "; TAB 0; "     Porm..."
84fb:  MSG(40)  = CLS; "Bem, o prazo terminou e SERRA PE-    LADA foi fechada."
8530:  MSG(41)  = " "; TAB 0; " "; TAB 0; "     No conseguimos a "DVIDA EXTERNA"   mas em compensao ns arrecadamos:                                                Cz$ "
857f:  MSG(42)  = "em dinheiro "
858c:  MSG(43)  = "0g de ouro."
8598:  MSG(44)  = " "; TAB 0; " "; TAB 0; "     Iates, manses, viagens, autom-     veis de luxo, festas, avies, belas     mulheres, uisque importado, (no es-    quea os amigos) etc, etc, etc...                                                  Pura sorte ter achado a "DVIDA      EXTERNA". Alm disso ns ainda arre-    cadamos:                                                                             Cz$ "
867b:  MSG(45)  = "."
867d:  MSG(46)  = " melhor no fazer isso pois cer-    tamente seremos roubados."
86b9:  MSG(47)  = MSG(6); "bem na sua frente."
86cd:  MSG(48)  = MSG(6); "aqui mesmo."
86da:  MSG(49)  = MSG(6); "atendendo um paciente."
86f2:  MSG(50)  = MSG(6); "no balco."
86fe:  MSG(51)  = MSG(6); "nos vigiando."
870d:  MSG(52)  = MSG(7); "fazendo as unhas."
8720:  MSG(53)  = "Apenas traas..."
8731:  MSG(54)  = "H algum dinheiro nela."
8749:  MSG(55)  = "Por favor diga-me onde tem."
8765:  MSG(56)  = MSG(7); "vazia."
876d:  MSG(57)  = "So "
8772:  MSG(58)  = MSG(8); "ningum vendendo     mercadorias."
8791:  MSG(59)  = "Tais brincando!                                                                 Voc no viu o tamanho do "homem""
87c4:  MSG(60)  = MSG(8); "ningum interes-     sado em comprar."
87e7:  MSG(61)  = "Isso  um roubo!!!"
87fa:  MSG(62)  = "Assim iremos logo  falncia."
8818:  MSG(63)  = "Ih! derramou um pouquinho."
8833:  MSG(64)  = "Ele contm "
883f:  MSG(65)  = "00 ml de querosene e "; TAB 0; "   est "
885b:  MSG(66)  = MSG(6); "vazio."
8863:  MSG(67)  = "Ele no quer acender."
8879:  MSG(68)  = "O armazm est fechado para almo-    o."
889f:  MSG(69)  = "A polcia interditou o armazm       devido ao assassinato do dono. Ainda    procuram o responsvel."
88fb:  MSG(70)  = "aceso."
8902:  MSG(71)  = "apagado."
890b:  MSG(72)  = MSG(7); "rasgada."
8915:  MSG(73)  = "Na sacola tem:"
8924:  MSG(74)  = MSG(7); "vazia."
892c:  MSG(75)  = " "; TAB 0; " "; TAB 0; "     Ei, j est anoitecendo."
8948:  MSG(76)  = " "; TAB 0; " "; TAB 0; "     "Boa noite DELEGADO""
8960:  MSG(77)  = " "; TAB 0; " "; TAB 0; "     "Boa tarde DELEGADO""
8978:  MSG(78)  = " "; TAB 0; " "; TAB 0; "     "Bom dia DELEGADO""
898e:  MSG(79)  = " "; TAB 0; "        "
8991:  MSG(80)  = "Por aqui eu estou vendo:                                                           "
89ac:  MSG(81)  = "ningum importante."
89c0:  MSG(82)  = ""Eu no sei nada sobre isso.""
89de:  MSG(83)  = ""A nica dvida que eu conheo      a dos meus clientes.""
8a15:  MSG(84)  = ""Eu vi a pepita com o Joo. Puxa,    como ela era grande.""
8a4d:  MSG(85)  = ""Eu s queria pr as minhas mos     numa pedra daquelas.""
8a84:  MSG(86)  = ""Eu no o conheci.""
8a98:  MSG(87)  = ""Ele era muito gozador. O seu ga-    to chamava-se ALICATE.""
8ad2:  MSG(88)  = ""O Joo era um sujeito muito cal-    mo. Eu ainda no entendo o seu desa-    parecimento.""
8b27:  MSG(89)  = ""Estamos investigando, mas at       agora a nica pista  o seu caminho    TALHADEIRA.""
8b78:  MSG(90)  = " o ALICATE."
8b85:  MSG(91)  = "Resta"
8b8b:  MSG(92)  = " palito"
8b93:  MSG(93)  = "Gastei o ltimo palito.                                                         "
8bac:  MSG(94)  = "Isso  algum tipo de brincadeira?"
8bce:  MSG(95)  = " "; TAB 0; " "; TAB 0; "     Ih!!! o gato escapou."
8be7:  MSG(96)  = "Ainda bem que o delegado morreu      pois assim ningum lembrar dos seus    crimes."
8c34:  MSG(97)  = "Voc no se envergonha de ter ma-    tado o delegado ???"
8c6a:  MSG(98)  = "C entre ns: subornar o delegado    foi providencial heim ?"
8ca4:  MSG(99)  = "O dono do armazm nos expulsou de    forma violenta. Acho que j estamos     manjados."
8cf4:  MSG(100) = "Tudo bem, mas eu achei melhor dar    o fora logo."
8d23:  MSG(101) = " o lanche do guarda."
8d39:  MSG(102) = MSG(6); "fechado."
8d43:  MSG(103) = "Puxa! quanto ouro..."
8d58:  MSG(104) = "So "
8d5d:  MSG(105) = "Nossa conta tem um saldo de:                                                       Cz$ "
8d7f:  MSG(106) = "Ns no estamos na NOSSA CAIXA."
8d9f:  MSG(107) = "O saldo foi para Cz$ "
8db5:  MSG(108) = "Ns temos "
8dc0:  MSG(109) = ""Obrigado, mas eu no necessito      disso.""
8de8:  MSG(110) = ""Muito obrigado.""
8dfa:  MSG(111) = ""Tentando me subornar ???                                                       Voc pode ir para a cadeia.""
8e31:  MSG(112) = ""Dizem que ele 'fica cego' por       Cz$ 10.000.000,00""
8e63:  MSG(113) = ""Dizem que ele tem negcios com o    BCA DE TRARA.""
8e96:  MSG(114) = "Shhh!! Eu ouvi o gerente da CAIXA    dizendo ao doutor que o cofre s       aberto s 14h e permanece assim por     apenas 10 minutos."
8f12:  MSG(115) = "O horrio de funcionamento  das     11h s 17h."
8f3f:  MSG(116) = "Aqui ???"
8f48:  MSG(117) = "Nada."
8f4e:  MSG(118) = "Grande sorte...                                                                 Eu achei "
8f69:  MSG(119) = "Acchhheeeeiiiii........"
8f81:  MSG(120) = "Ficou maluco ?"
8f90:  MSG(121) = CLS; "M notcia...                                                                   O Delegado acaba de ser morto pe-    lo Bca de Trara."
8fd5:  MSG(122) = CLS; "Pega ladro...                                                                  Ns fomos assaltados pelo famoso     BCA DE TRARA, o maior larpio das     redondezas."
9037:  MSG(123) = CLS; "Grande heri...                                                                 O Delegado engavetou nosso amigo     Bca."
9070:  MSG(124) = CLS; "Catapimba...                                                                    Houve uma grande exploso e ns      estvamos bem no meio dela. Choveu      garimpeiro por toda parte."
90dd:  MSG(125) = " "; TAB 0; " "; TAB 0; "     Puxa! que exploso..."
90f6:  MSG(126) = " "; TAB 0; " "; TAB 0; "     Houve uma tremenda confuso l na    cadeia e o Bca conseguiu escapar.      Salve-se quem puder..."
9155:  MSG(127) = " "; TAB 0; " "; TAB 0; "     Algum apagou a dinamite. Que co-    ragem."
9181:  MSG(128) = "Impossvel.  Uma exploso "
919b:  MSG(129) = " des-   truiu completamente."
91b6:  MSG(130) = "No vai dar. O aeroporto est to-    do destrudo."
91e6:  MSG(131) = "A exploso provocou um desabamen-    to que impede a nossa passagem nessa    direo."
9236:  MSG(132) = "Vamos precisar de "
9249:  MSG(133) = "No ficou excelente mas vai ser-     vir."
926f:  MSG(134) = "Aqui j existe "
927f:  MSG(135) = "Aqui ningum tem grana suficiente    pra bancar esta troca."
92b8:  MSG(136) = ""Todo mundo caladinho. Isto  um     assalto.""
92e3:  MSG(137) = CLS; "Deu pra sentir, no ?"
92fb:  MSG(138) = "No estou vendo "
930c:  MSG(139) = "SERRA PELADA: regio norte                                                   ????????????????????????????????????    ?fundo...  ??fundo...  ??fundo...  ?    ?          ??          ??          ?    ????????????????????????????????????    ?Barranco  ??Barranco  ??Barranco  ?    ?          ??          ??          ?    ?FELICIDADE??PEDRA AZUL?? LOLA     ?    ?          ??          ?? MONTEZ   ?    ????????????????????????????????????       N                         ??          O + L                       ??            S"
9430:  MSG(140) = "SERRA PELADA: regio norte           ????????????????????????                ?fundo...  ??fundo...  ???????   N      ?          ??          ??????? O + L    ????????????????????????    ??   S      ?Barranco  ??Barranco  ?    ??          ? QUEBRA   ?? SELVA DE ?    ??          ? DEDO     ?? PEDRA    ?    ??          ????????????????????????    ??              ??      ???????????????????????         ??      ?Barranco  ?fundo...  ?         ?????????          ?          ?         ?????????Z BIGORNA?          ?                 ???????????????????????"
958a:  MSG(141) = "SERRA PELADA: regio leste           ??????????                              ?Ambula- ?  N      ??        ??         ?trio   ?O + L?????????????????????    ?        ?  S  ?Barranco ?fundo... ?    ????????????????         ?         ?    ?        ???????CALAFRIO ?         ?    ?        ???   ?         ?         ?    ????????????   ?????????????????????    ????????????   ?????????????????????    ?Estrada ???   ?Barranco ?fundo... ?    ?Nova    ??? ???         ?         ?    ?        ??? ??? AMIZADE ?         ?    ??????????   ???????????????????????"
96ed:  MSG(142) = "SERRA PELADA: regio sul                                                         ????????????????????????????????        ????????????Barranco ?fundo... ?    ??????????? ????         ?         ?    ?Barranco ? ????MARTELADA?         ?    ?         ???? ?         ?         ?    ? SANTA   ???? ?????????????????????    ? HELENA  ?           ?????????         ???????????           ?????????         ?fundo... ??????????????         N      ?         ??????????????       O + L    ???????????                      S"
9815:  MSG(143) = "SERRA PELADA: regio sul                                                     ?????????????????     N                 ?Cadeia  ?      ?   O + L               ?        ?      ?     S                 ?        ?      ?             ??????    ?????????????????             ??????           ??????????? ?????????????????           ?Estrada  ? ?Ponte  ?Ponte  ?           ?    velha???       ?       ?           ?         ???       ?       ?           ??????????? ?????????????????           ?Caminho ?                             ???????????"
990a:  MSG(144) = "SERRA PELADA: regio oeste           ????????   ?????????????????????????    ?Mata- ? ???Aeroporto??Armazm?    ?    ?   gal? ???         ??       ?    ?    ???????? ???????????????????????????    ??????????????????????   ???????????    ?Pista  ????         ?????Praa    ?    ?       ????         ?????  Central?    ?       ?  ???????????   ?         ?    ?????????  ?Posto    ?   ???????????    ????????   ?Telefn. ???????????????    ?Hangar?   ????????????Bar do ?    ?    ?      ?   ?Cabine   ?? Alemo?    ?    ????????   ?????????????????????????"
9aa5:  MSG(145) = "SERRA PELADA: regio central         ????????????? ??????????                ?Caixa  ?   ???Ferro   ?       N        ?Econm.?   ???   Velho?     O + L      ????????????? ??????????       S                     ?????????????              ??????????????Cruzamento ???????????    ??????????????           ???????????                 ?????????????                      ?????????????????                       ?Barra?         ????????                ?co   ?         ????????                ?????????????????     ??        ????????????????????????????????????    ?Beco das  ????Acampam. ??Poo     ?    ?Margaridas????mineiros ??Artesiano?    ????????????  ??????????????????????"
9c58:  MSG(146) = "Ela no se encontra neste local."
9c79:  MSG(147) = "Ele no est por aqui."
9c90:  MSG(148) = ""Ele  um charme, no ?""
9caa:  MSG(149) = ""Eu no sei nada, no vi nada e      no falo nada.""
9cda:  MSG(150) = ""Aquela mmia no serve para nada.   Eu s sei que ele era amigo do Joo     DENTE DE OURO.""
9d31:  MSG(151) = ""Ele  um tremendo chato.""
9d4c:  MSG(152) = ""Dizem que foi assassinado e jo-     gado num poo artesiano, mas eu acho    que ele fugiu de Serra Pelada levan-    do muito ouro.""
9dc7:  MSG(153) = ""Ele  um beberro. Vive bbado e    serve o pior almoo de Serra Pelada.""
9e0f:  MSG(154) = ""Ele no  de muita conversa, mas    gosta de uma boa fofoca.""
9e4b:  MSG(155) = ""Aquele bandido vai pagar muito      caro pelos seus crimes.""
9e84:  MSG(156) = ""Aquele aogueiro...""
9e9a:  MSG(157) = ""O Doutor  um homem bom. Ele me     ajudou muito quando eu fiquei doen-     te.""
9ee4:  MSG(158) = ""No posso dizer nada sobre ele,     pois mal o conheo.""
9f1a:  MSG(159) = "" um bom amigo. Ele vem sempre      aqui almoar.""
9f49:  MSG(160) = ""Eu no sei nada sobre ele.""
9f66:  MSG(161) = "Isto  algum tipo de brincadeira?"
9f88:  MSG(162) = ""Ele  meu amigo h muito tempo.""
9faa:  MSG(163) = ""Ele j foi scio do Joo num dos    barrancos. Acho que era o MARTELADA.""
9ff2:  MSG(164) = "" um bom fregus.""
a006:  MSG(165) = ""Ele  um excelente patro.""
a023:  MSG(166) = ""Foi meu paciente. J faz algum      tempo que no o vejo.""
a05a:  MSG(167) = "" o maior trambiqueiro de Serra     Pelada.""
a084:  MSG(168) = ""Aquele canalha...""
a098:  MSG(169) = ""O que sei  que ele andou dando     uns calotes no ALEMO.""
a0d1:  MSG(170) = ""Cuidado com ele.""
a0e4:  MSG(171) = "" um excelente companheiro.""
a102:  MSG(172) = ""Ele  o dono do maior ponto de      fofocas de Serra Pelada.""
a13c:  MSG(173) = ""Ela  uma fofoqueira que sabe da    vida de todo mundo.""
a173:  MSG(174) = ""Ela  uma grande mulher, honesta    e trabalhadeira.""
a1a7:  MSG(175) = "" um corrupto...""
a1ba:  MSG(176) = ""O homem no libera emprstimo de    modo algum. Como se o cofre da CAIXA    no estivesse abarrotado de grana.""
a225:  MSG(177) = ""Se este bandido aparecer no ga-     rimpo eu o mato.""
a258:  MSG(178) = "" o maior bandido de Serra Pela-    da.""
a27f:  MSG(179) = " "; TAB 0; " "; TAB 0; "     O BCA escapou da cadeia..."
a29e:  MSG(180) = "O nosso amigo BCA est nos con-     vidando para um bate-papo amigvel."
a2e3:  MSG(181) = "Estamos no esconderijo do BCA DE    TRARA. Ele pergunta o que queremos."
a32a:  MSG(182) = "Vamos precisar de muito ouro para    isto. Pelo menos um quilo."
a367:  MSG(183) = "O que temos no vai dar."
a380:  MSG(184) = " "; TAB 0; " "; TAB 0; "     O BCA manda avisar que quer mais    ouro."
a3ab:  MSG(185) = CLS; "Para ter instrues mais detalha-    das do jogo digite INSTRUES.                                                     Os verbos do jogo podem ser lis-     tados com o comando VERBOS."
a42a:  MSG(186) = "                                     NORTE       GARIMPE     FAA            SUL         DIA         CUMPRIMENTE     LESTE       QUEM        CONSERTE        OESTE       CORRA       VENDA           GRAVE       PEGUE       ACENDA          RECUPERE    COLOQUE     APAGUE          ENTRE       TROQUE      ABRA            SUBA        COMPRE      FECHE           SAIA        ROUBE       DEPOSITE        DESA       PERGUNTE    RETIRE          HORAS       QUEBRE      SUBORNE         QUANTO      SOLTE       MAPA            TEMOS       EXAMINE     INSTRUES      RECOMECE    PROCURE     VERBOS          H          D"
a54f:  MSG(187) = AT 3,2; "O JOGO:                                                                            O SERRA PELADA possui um sistema     de reconhecimento de frases que dis-    pensa a digitao das palavras por      inteiro.                                                                           Por exemplo: EX, EXA e EXAM cor-     respondem  palavra EXAMINE.                                                       Tal sistema funciona a partir de     um buffer onde as palavras esto        agrupadas de acordo com a sua impor-    tncia no jogo, ou seja, o sistema      utilizar a primeira palavra que sa-    tisfaa o que foi digitado pelo jo-     gador.                                                                      "
a6e8:  MSG(188) = AT 3,2; "   Quanto mais letras forem forneci-    das, mais acertadamente o sistema se    manifestar.                                                                       A acentuao ortogrfica  opcio-    nal para facilitar a digitao.                                                    Os comandos mais comuns so:                                                                                         EXAMINE LOCAL - lista os objetos que                    esto no mesmo local                    que o jogador.                                                  HORAS         - informa as horas.                                               DIA           - informa o dia atual."
a81f:  MSG(189) = AT 3,2; "TEMOS         - lista os objetos que                    esto com o jogador.                                            GRAVE         - salva a partida em                      fita.                                                           RECUPERE      - recupera a partida                      da fita.                                                                                                   Aps uma referncia a um objeto,     este pode ser substitudo pelo pro-     nome correspondente.                                                               Por exemplo:  PEGUE A PICARETA                        EXAMINE-A                               COLOQUE-A NA SACOLA"
a935:  MSG(190) = AT 3,2; "   Os objetos que naturalmente per-     tencem a um lugar no so listados      pelo comando EXAMINE LOCAL.                                                        Para se ter certeza que um objeto    no est no local, use o comando        PROCURE objeto.                                                                    Em Serra Pelada, o garimpo  fei-    to em barrancos e cada um recebe uma    denominao, de acordo com a perso-     nalidade de seu dono.                                                              Os barrancos possuem duas reas      prprias para o garimpo: a parte in-    ferior e a parte superior. Assim,       ser necessrio subir e descer para     acessar estes locais."
ab10:  MSG(191) = AT 3,2; "      ************************             ****                      ****       ****        SERRA PELADA        ****       ****                      ****             ************************                                                                                                                                                                                        Renato Degiovani- 1987                                               Serra Pelada , sem dvida nenhu-    ma, o garimpo mais famoso do Brasil     e esta aventura reproduz uma autn-     tica "corrida ao ouro".                                                            Conhea antes um pouco da hist-     ria deste garimpo.                  "
ac43:  MSG(192) = AT 3,2; "   JOO DENTE DE OURO, um famoso ga-    rimpeiro, certo dia encontrou, num      dos barrancos de Serra Pelada,  uma     pepita gigante pesando algo em torno    de 70 quilos.                                                                      O garimpo foi ento agitado por      uma onda de festejos e, s 3 horas      da manh do quarto dia de comemora-     es, debaixo de um terrvel tempo-     ral, JOO DENTE DE OURO sumiu.                                                     Uns dizem que ele foi morto quan-    do tentava sair de Serra Pelada por     uma estrada de terra. Outros afirmam    que ele morreu num desabamento pro-     vocado pelas chuvas.                                                        "
ae32:  MSG(193) = AT 3,2; "   De certo s h um fato: a grande     pepita,que foi logo apelidada de D-    VIDA EXTERNA devido ao seu tamanho,     no saiu do garimpo e est  espera     de que algum a ache novamente.                                                    O garimpo, porm,  um local mui-    to perigoso para os incautos e para     os espertinhos. L no existe ordem,    apenas a lei do garimpo.                                                           Se voc pretende obter algum su-     cesso, ento haja naturalmente e pro    cure acumular alguma riqueza. Traba-    lhe duro que sua recompensa aparece-    r. No deixe o ouro se transformar     na sua perdio.                                                            "
b030:  MSG(194) = AT 3,2; "   Para garimpar deve-se usar o co-     mando GARIMPE NO LOCAL.  claro que     sero necessrios alguns objetos pa-    ra que tal ao se realize.                                                        Voc pode adquirir esses objetos     no nico armazm de Serra Pelada. Os    preos, porm, so altssimos.                                                     De fato, em Serra Pelada todo o      comrcio  feito usando-se como me-     dida apenas dois preos. Isto  de-     corrente do abastecimento de merca-     dorias, que  feito por avio, e que    acaba sendo muito caro.                                                            Mas a compra no  a nica forma     de se obter um objeto. Voc poder  "
b22e:  MSG(195) = AT 3,2; "eventualmente tentar a troca, ou...                                                Todo ouro que voc conseguir deve    ser vendido  CAIXA, que possui uma     agncia no garimpo especialmente pa-    ra isto. Voc j possui uma conta       corrente l e poder DEPOSITAR ou       RETIRAR dinheiro dela.                                                             No  aconselhvel andar pelo ga-    rimpo com muito dinheiro no bolso ou    com uma quantidade significativa de     ouro. Isto pode despertar a cobia      de um tipo todo especial de garim-      peiro.                                                                             E por falar nisto, muito cuidado     com o BCA DE TRARA, o mais cruel e"
b41b:  MSG(196) = AT 3,2; "sanguinrio meliante de Serra Pela-     da.                                                                                Cuidado tambm  noite, pois em      Serra Pelada a iluminao  muito       precria.                                                                          As pessoas mais conhecidas da ci-    dade so: o mdico, o chefe dos mi-     neiros, o velho Mathias, o guarda da    CAIXA, o Alemo do bar, a telefonis-    ta, o delegado, o Bca de Trara, o     mineiro, o dono do armazm, o geren-    te da CAIXA e o Joo Dente de Ouro.                                                 aconselhvel manter relaes       amigveis com este pessoal pois eles    podem fornecer informaes preciosas"
b5fa:  MSG(197) = AT 3,2; "sobre a vida em Serra Pelada.                                                      Para obter uma informao use o      verbo perguntar. Por exemplo:                                                   PERGUNTE AO GERENTE SOBRE O JOO                                                   As respostas e os dilogos apare-    cero sempre entre aspas.                                                          Para saber quantos cruzados voc     tem use o comando QUANTO DINHEIRO,ou    QUANTO OURO para saber a quantidade     de ouro.                                                                           O comando direto MAPA fornece um     mapa detalhado da regio onde o jo-     gador se encontra.                  "
b783:  MSG(198) = AT 3,2; "                                                                                                                                                                                                                                                                                                                                   SERRA PELADA  MAIS UM PRODUTO          GENUINAMENTE NACIONAL CRIADO E          PRODUZIDO POR RENATO DEGIOVANI          PARA COMPUTADORES DA LINHA MSX       ____________________________________    Esta adaptao "semi-oficial" para a    linha ZX-Spectrum (TK90X e TK95) foi    criada e produzida por Einar Saukas,    com autorizao prvia do autor.                                            "



b8bf:             FUNC(1)                       ->  INICIALIZA O JOGO
b8bf: 01 0a          PRINT MSG(10)                  ; "Bem vindo ao garimpo de SERRA PE- LADA, o lugar onde a fortuna ronda os mais ousados. Hoje  dia 7 e voc deve achar a famosa pepita de ouro "DVIDA EXTER- NA" para tornar-se milionrio, ou en to continuar pobre. A temporada de garimpo termina s 12 horas do dia 15, quando ento to- dos os garimpeiros so retirados dos barrancos e a rea interditada. Boa sorte e que seus sonhos se tornem realidade..."
b8c1: 09 01 24       REG(1):=36                     ; REG(1) = POSICAO ATUAL DO JOGADOR
b8c4: 09 08 05       REG(8):=5                      ; REG(8) = CONTADOR DE OBJETOS CARREGADOS PELO JOGADOR
b8c7: 09 0f 11       REG(15):=17                    ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
b8ca: 09 0e 06       REG(14):=6                     ; REG(14) = FATOR DE AJUSTE DA VELOCIDADE DO RELOGIO
b8cd: 09 0d 07       REG(13):=7                     ; REG(13) = CONTADOR DE DIAS
b8d0: 09 0c 08       REG(12):=8                     ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
b8d3: 09 0b 1e       REG(11):=30                    ; REG(11) = MOSTRADOR DE MINUTOS DO RELOGIO
b8d6: 09 1a 1e       REG(26):=30                    ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
b8d9: 09 1c 05       REG(28):=5                     ; REG(28) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$     ??.000,00
b8dc: 2d             WAIT KEY                       
b8dd: 01 b9          PRINT MSG(185)                 ; CLS; "Para ter instrues mais detalha- das do jogo digite INSTRUES. Os verbos do jogo podem ser lis- tados com o comando VERBOS."
b8df: 02             EXIT                           

b8e1:             FUNC(2)                       ->  EXECUTADO QUANDO REG(5) DECREMENTADO PARA ZERO
b8e1: 11 25 d2       IF HAVE OBJ(37) GOTO _A        ; OBJ(37) = 'DINAMITE'
b8e4: 0f 25 d2       IF OBJ(37) IS_NEARBY GOTO _A   ; OBJ(37) = 'DINAMITE'
b8e7: 0c 89 0b d4    IF REG(137)=11 GOTO _C         ; POS de OBJ(37) = 'DINAMITE'
b8eb: 0c 89 1e d7    IF REG(137)=30 GOTO _F         ; POS de OBJ(37) = 'DINAMITE'
b8ef: 0c 89 1c d8    IF REG(137)=28 GOTO _G         ; POS de OBJ(37) = 'DINAMITE'
b8f3: 0c 89 1d d8    IF REG(137)=29 GOTO _G         ; POS de OBJ(37) = 'DINAMITE'
b8f7: 0c 89 1a d9    IF REG(137)=26 GOTO _H         ; POS de OBJ(37) = 'DINAMITE'
b8fb: 0c 89 26 db    IF REG(137)=38 GOTO _J         ; POS de OBJ(37) = 'DINAMITE'
b8ff: 0c 89 23 db    IF REG(137)=35 GOTO _J         ; POS de OBJ(37) = 'DINAMITE'
b903: 0c 89 32 dc    IF REG(137)=50 GOTO _K         ; POS de OBJ(37) = 'DINAMITE'
b907: 0c 89 2f db    IF REG(137)=47 GOTO _J         ; POS de OBJ(37) = 'DINAMITE'
b90b: 0c 89 2a db    IF REG(137)=42 GOTO _J         ; POS de OBJ(37) = 'DINAMITE'
b90f: ea             _E:                            
b910: 01 7d          PRINT MSG(125)                 ; " "; TAB 0; " "; TAB 0; " Puxa! que exploso..."
b912: e9             _D:                            
b913: 15 25          BREAK OBJ(37)                  ; OBJ(37) = 'DINAMITE'
b915: 0c 17 01 d3    IF REG(23)=1 GOTO _B           ; REG(23) = EXPLOSAO NO AEROPORTO?
b919: 09 89 23       REG(137):=35                   ; POS de OBJ(37) = 'DINAMITE'
b91c: e7             _B:                            
b91d: 02             EXIT
b91e: e6             _A:                            
b91f: 25 00 00       FLAG(0):=0                     ; FLAG(0) = JOGADOR NA ESCURIDAO?
b922: 01 7c          PRINT MSG(124)                 ; CLS; "Catapimba... Houve uma grande exploso e ns estvamos bem no meio dela. Choveu garimpeiro por toda parte."
b924: 01 26          PRINT MSG(38)                  ; " "; TAB 0; " "; TAB 0; " Joga novamente?"
b926: 1f             EXIT QUIT_GAME                 
b927: e8             _C:                            
b928: 09 21 01       REG(33):=1                     ; REG(33) = EXPLOSAO NO FUNDO DO BARRANCO FELICIDADE?
b92b: 23 d6          GOTO _E                        
b92d: eb             _F:                            
b92e: 09 17 01       REG(23):=1                     ; REG(23) = EXPLOSAO NO AEROPORTO?
b931: 23 d6          GOTO _E                        
b933: ec             _G:                            
b934: 09 22 01       REG(34):=1                     ; REG(34) = EXPLOSAO NO POSTO TELEFONICO?
b937: 23 d6          GOTO _E                        
b939: ed             _H:                            
b93a: 0c 72 1a da    IF REG(114)=26 GOTO _I         ; POS de OBJ(14) = 'BOCA'
b93e: 23 d6          GOTO _E                        
b940: ee             _I:                            
b941: 09 72 1f       REG(114):=31                   ; POS de OBJ(14) = 'BOCA'
b944: 01 7e          PRINT MSG(126)                 ; " "; TAB 0; " "; TAB 0; " Houve uma tremenda confuso l na cadeia e o Bca conseguiu escapar. Salve-se quem puder..."
b946: 23 d5          GOTO _D                        
b948: ef             _J:                            
b949: 01 7f          PRINT MSG(127)                 ; " "; TAB 0; " "; TAB 0; " Algum apagou a dinamite. Que co- ragem."
b94b: 23 d5          GOTO _D                        
b94d: f0             _K:
b94e: 09 23 01       REG(35):=1                     ; REG(35) = EXPLOSAO NA CAIXA ECONOMICA?
b951: 23 d6          GOTO _E                        

b954:             FUNC(3)                       ->  EXECUTADO A CADA 8 PASSOS CONSECUTIVOS NO ESCURO
b954: 02             EXIT                           

b956:             FUNC(4)                       ->  EXECUTADO VARIAS VEZES POR SEGUNDO
b956: 0e 0c 05 d9    IF REG(12)<5 GOTO _H           ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
b95a: 0e 0c 14 d7    IF REG(12)<20 GOTO _F          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
b95e: ed             _H:                            
b95f: 10 1f d2       IF AT POS(31) GOTO _A          
b962: 10 20 d2       IF AT POS(32) GOTO _A
b965: 10 27 d2       IF AT POS(39) GOTO _A          
b968: 10 29 d2       IF AT POS(41) GOTO _A          
b96b: 10 2b d2       IF AT POS(43) GOTO _A          
b96e: 0d 01 18 d7    IF REG(1)>24 GOTO _F           ; REG(1) = POSICAO ATUAL DO JOGADOR
b972: e6             _A:                            
b973: 11 02 d4       IF HAVE OBJ(2) GOTO _C         ; OBJ(2) = 'LAMPIAO'
b976: 0f 02 d4       IF OBJ(2) IS_NEARBY GOTO _C    ; OBJ(2) = 'LAMPIAO'
b979: e7             _B:                            
b97a: 09 09 01       REG(9):=1                      ; REG(9) = JOGADOR EM LOCAL ESCURO?
b97d: 0d 15 00 d8    IF REG(21)>0 GOTO _G           ; REG(21) = CONTROLE DE ESCURIDAO
b981: 01 0c          PRINT MSG(12)                  ; CLS; "A noite est muito escura. Eu no consigo enxergar quase nada."
b983: 09 15 01       REG(21):=1                     ; REG(21) = CONTROLE DE ESCURIDAO
b986: 23 d8          GOTO _G                        
b988: e8             _C:                            
b989: 0c 0a 00 d3    IF REG(10)=0 GOTO _B           ; REG(10) = LAMPIAO ACESO?
b98d: 0c 0b 05 d5    IF REG(11)=5 GOTO _D           ; REG(11) = MOSTRADOR DE MINUTOS DO RELOGIO
b991: 09 15 01       REG(21):=1                     ; REG(21) = CONTROLE DE ESCURIDAO
b994: 23 d8          GOTO _G                        
b996: e9             _D:                            
b997: 0d 15 01 d8    IF REG(21)>1 GOTO _G           ; REG(21) = CONTROLE DE ESCURIDAO
b99b: 09 15 02       REG(21):=2                     ; REG(21) = CONTROLE DE ESCURIDAO
b99e: 08 16          REG(22)--                      ; REG(22) = QUANTIDADE DE QUEROSENE NO LAMPIAO
b9a0: 0d 16 00 d8    IF REG(22)>0 GOTO _G           ; REG(22) = QUANTIDADE DE QUEROSENE NO LAMPIAO
b9a4: 09 0a 00       REG(10):=0                     ; REG(10) = LAMPIAO ACESO?
b9a7: 23 d8          GOTO _G                        
b9a9: eb             _F:                            
b9aa: 09 09 00       REG(9):=0                      ; REG(9) = JOGADOR EM LOCAL ESCURO?
b9ad: 25 00 00       FLAG(0):=0                     ; FLAG(0) = JOGADOR NA ESCURIDAO?
b9b0: 09 15 00       REG(21):=0                     ; REG(21) = CONTROLE DE ESCURIDAO
b9b3: 09 06 00       REG(6):=0                      ; REG(6) = CONTADOR DE COMANDOS NO ESCURO
b9b6: ec             _G:                            
b9b7: 0c 0d 0f d6    IF REG(13)=15 GOTO _E          ; REG(13) = CONTADOR DE DIAS
b9bb: ee             _I:                            
b9bc: 1e             EXIT FROM_FUNC4                
b9bd: ea             _E:                            
b9be: 0e 0c 0c da    IF REG(12)<12 GOTO _I          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
b9c2: 16 17          EXEC FUNC(23)

b9c5:             FUNC(5)                       ->  EXECUTADO ANTES DE CADA NOVO COMANDO
b9c5: 0c 0c 13 d2    IF REG(12)=19 GOTO _A          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
b9c9: e7             _B:                            
b9ca: 0f 0d d8       IF OBJ(13) IS_NEARBY GOTO _G   ; OBJ(13) = 'DELEGADO'
b9cd: 0c 71 00 d9    IF REG(113)=0 GOTO _H          ; POS de OBJ(13) = 'DELEGADO'
b9d1: 09 18 00       REG(24):=0                     ; REG(24) = DELEGADO NO LOCAL?
b9d4: 07 71          REG(113)++                     ; POS de OBJ(13) = 'DELEGADO'
b9d6: 0e 71 97 d9    IF REG(113)<151 GOTO _H        ; POS de OBJ(13) = 'DELEGADO'
b9da: 09 71 65       REG(113):=101                  ; POS de OBJ(13) = 'DELEGADO'
b9dd: ed             _H:                            
b9de: 0c 0c 0b da    IF REG(12)=11 GOTO _I          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
b9e2: 0c 0c 0c db    IF REG(12)=12 GOTO _J          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
b9e6: 0c 0c 0d dc    IF REG(12)=13 GOTO _K          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
b9ea: 0c 0c 0e dd    IF REG(12)=14 GOTO _L          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
b9ee: f2             _M:                            
b9ef: 0c 0b 15 df    IF REG(11)=21 GOTO _N          ; REG(11) = MOSTRADOR DE MINUTOS DO RELOGIO
b9f3: f4             _O:                            
b9f4: 11 17 d4       IF HAVE OBJ(23) GOTO _C        ; OBJ(23) = 'GATO'
b9f7: 0f 17 e1       IF OBJ(23) IS_NEARBY GOTO _P   ; OBJ(23) = 'GATO'
b9fa: 07 7b          REG(123)++                     ; POS de OBJ(23) = 'GATO'
b9fc: 0e 7b 22 e1    IF REG(123)<34 GOTO _P         ; POS de OBJ(23) = 'GATO'
ba00: 09 7b 13       REG(123):=19                   ; POS de OBJ(23) = 'GATO'
ba03: f5             _P:                            
ba04: 16 19          EXEC FUNC(25)                  
ba06: 0f 0d e3       IF OBJ(13) IS_NEARBY GOTO _R   ; OBJ(13) = 'DELEGADO'
ba09: f6             _Q:                            
ba0a: 16 1c          EXEC FUNC(28)                  
ba0c: 1d             EXIT FROM_FUNC5                
ba0d: f7             _R:                            
ba0e: 0f 0e e4       IF OBJ(14) IS_NEARBY GOTO _S   ; OBJ(14) = 'BOCA'
ba11: 23 e2          GOTO _Q                        
ba13: f8             _S:                            
ba14: 0b 19 3c       REG(25)+=RND(60)               ; REG(25) = CONTADOR AUXILIAR
ba17: 0e 19 32 e5    IF REG(25)<50 GOTO _T          ; REG(25) = CONTADOR AUXILIAR
ba1b: 01 79          PRINT MSG(121)                 ; CLS; "M notcia... O Delegado acaba de ser morto pe- lo Bca de Trara."
ba1d: 15 0d          BREAK OBJ(13)                  ; OBJ(13) = 'DELEGADO'
ba1f: 09 1b 01       REG(27):=1                     ; REG(27) = SITUACAO DO DELEGADO
ba22: 1d             EXIT FROM_FUNC5                
ba23: f9             _T:                            
ba24: 01 7b          PRINT MSG(123)                 ; CLS; "Grande heri... O Delegado engavetou nosso amigo Bca."
ba26: 09 71 7e       REG(113):=126                  ; POS de OBJ(13) = 'DELEGADO'
ba29: 09 72 7e       REG(114):=126                  ; POS de OBJ(14) = 'BOCA'
ba2c: 09 28 0a       REG(40):=10                    ; REG(40) = CONTADOR DE FUGA DA CADEIA
ba2f: 0b 28 14       REG(40)+=RND(20)               ; REG(40) = CONTADOR DE FUGA DA CADEIA
ba32: 1d             EXIT FROM_FUNC5                
ba33: e8             _C:                            
ba34: 0e 0b 28 e1    IF REG(11)<40 GOTO _P          ; REG(11) = MOSTRADOR DE MINUTOS DO RELOGIO
ba38: 12 17          DROP OBJ(23)                   ; OBJ(23) = 'GATO'
ba3a: 01 5f          PRINT MSG(95)                  ; " "; TAB 0; " "; TAB 0; " Ih!!! o gato escapou."
ba3c: 23 e1          GOTO _P                        
ba3e: e6             _A:                            
ba3f: 0e 0b 32 d3    IF REG(11)<50 GOTO _B          ; REG(11) = MOSTRADOR DE MINUTOS DO RELOGIO
ba43: 01 4b          PRINT MSG(75)                  ; " "; TAB 0; " "; TAB 0; " Ei, j est anoitecendo."
ba45: 23 d3          GOTO _B                        
ba47: ec             _G:                            
ba48: 0c 18 01 d9    IF REG(24)=1 GOTO _H           ; REG(24) = DELEGADO NO LOCAL?
ba4c: 0e 0c 0c d5    IF REG(12)<12 GOTO _D          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
ba50: 0e 0c 13 d6    IF REG(12)<19 GOTO _E          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
ba54: 01 4c          PRINT MSG(76)                  ; " "; TAB 0; " "; TAB 0; " "Boa noite DELEGADO""
ba56: 23 d7          GOTO _F                        
ba58: e9             _D:                            
ba59: 01 4d          PRINT MSG(77)                  ; " "; TAB 0; " "; TAB 0; " "Boa tarde DELEGADO""
ba5b: 23 d7          GOTO _F                        
ba5d: ea             _E:                            
ba5e: 01 4e          PRINT MSG(78)                  ; " "; TAB 0; " "; TAB 0; " "Bom dia DELEGADO""
ba60: eb             _F:                            
ba61: 09 18 01       REG(24):=1                     ; REG(24) = DELEGADO NO LOCAL?
ba64: 23 d9          GOTO _H                        
ba66: ee             _I:                            
ba67: 09 6b 8a       REG(107):=138                  ; POS de OBJ(7) = 'MEDICO'
ba6a: 09 70 8a       REG(112):=138                  ; POS de OBJ(12) = 'TELEFONISTA'
ba6d: 09 75 8a       REG(117):=138                  ; POS de OBJ(17) = 'GERENTE'
ba70: 23 de          GOTO _M
ba72: ef             _J:                            
ba73: 09 6b 93       REG(107):=147                  ; POS de OBJ(7) = 'MEDICO'
ba76: 09 70 80       REG(112):=128                  ; POS de OBJ(12) = 'TELEFONISTA'
ba79: 09 75 96       REG(117):=150                  ; POS de OBJ(17) = 'GERENTE'
ba7c: 09 74 8a       REG(116):=138                  ; POS de OBJ(16) = 'DONO'
ba7f: 09 6c 8a       REG(108):=138                  ; POS de OBJ(8) = 'CHEFE'
ba82: 23 de          GOTO _M                        
ba84: f0             _K:                            
ba85: 09 6c 8e       REG(108):=142                  ; POS de OBJ(8) = 'CHEFE'
ba88: 09 74 87       REG(116):=135                  ; POS de OBJ(16) = 'DONO'
ba8b: 09 6d 8a       REG(109):=138                  ; POS de OBJ(9) = 'VELHO'
ba8e: 09 6e 8a       REG(110):=138                  ; POS de OBJ(10) = 'GUARDA'
ba91: 23 de          GOTO _M                        
ba93: f1             _L:                            
ba94: 09 6d 94       REG(109):=148                  ; POS de OBJ(9) = 'VELHO'
ba97: 09 6e 96       REG(110):=150                  ; POS de OBJ(10) = 'GUARDA'
ba9a: 23 de          GOTO _M                        
ba9c: f3             _N:                            
ba9d: 07 73          REG(115)++                     ; POS de OBJ(15) = 'GARIMPEIRO'
ba9f: 0e 73 79 e0    IF REG(115)<121 GOTO _O        ; POS de OBJ(15) = 'GARIMPEIRO'
baa3: 09 73 65       REG(115):=101                  ; POS de OBJ(15) = 'GARIMPEIRO'
baa6: 23 e0          GOTO _O                        

baa9:             FUNC(6)                       ->  Tratamento default para VERB(20) = 'PEGUE'
baa9: 26 01          OBJ(EVID):=PARAM(1)            
baab: 11 00 d2       IF HAVE OBJ(EVID) GOTO _A      
baae: 0f 00 d4       IF OBJ(EVID) IS_NEARBY GOTO _C 
bab1: 2a 12 00       EXIT MSG(18)+OBJ(EVID)         ; "Eu no vejo "
bab4: e6             _A:                            
bab5: 2a 11 00       EXIT MSG(17)+OBJ(EVID)         ; "Ns j temos "
bab8: e8             _C:                            
bab9: 10 32 d6       IF AT POS(50) GOTO _E          
babc: 10 23 d8       IF AT POS(35) GOTO _G          
babf: 10 1a d5       IF AT POS(26) GOTO _D          
bac2: 10 30 d5       IF AT POS(48) GOTO _D          
bac5: 10 26 da       IF AT POS(38) GOTO _I          
bac8: 10 2f db       IF AT POS(47) GOTO _J
bacb: eb             _F:                            
bacc: 00             NOP                            
bacd: 13 00          GET OBJ(EVID)                  
bacf: 1b             EXIT OK                        
bad0: e9             _D:                            
bad1: 01 1e          PRINT MSG(30)                  ; "Oooopaaa!!!  melhor pensar muito bem antes de pegar alguma coisa neste lugar. Tem uns seguranas aqui que parecem dispostos a tudo."
bad3: 02             EXIT                           
bad4: ea             _E:                            
bad5: 0f 0a d5       IF OBJ(10) IS_NEARBY GOTO _D   ; OBJ(10) = 'GUARDA'
bad8: 23 d7          GOTO _F                        
bada: ec             _G:                            
badb: 0f 10 d5       IF OBJ(16) IS_NEARBY GOTO _D   ; OBJ(16) = 'DONO'
bade: 23 d7          GOTO _F                        
bae0: ed             _H:                            
bae1: 0f 09 d5       IF OBJ(9) IS_NEARBY GOTO _D    ; OBJ(9) = 'VELHO'
bae4: 23 d7          GOTO _F                        
bae6: ee             _I:                            
bae7: 0f 0b dc       IF OBJ(11) IS_NEARBY GOTO _K   ; OBJ(11) = 'ALEMAO'
baea: 23 d7          GOTO _F                        
baec: ef             _J:                            
baed: 0f 07 d5       IF OBJ(7) IS_NEARBY GOTO _D    ; OBJ(7) = 'MEDICO'
baf0: 23 d7          GOTO _F                        
baf2: f0             _K:                            
baf3: 01 3b          PRINT MSG(59)                  ; "Tais brincando! Voc no viu o tamanho do "homem""
baf5: 02             EXIT                           

baf7:             FUNC(7)                       ->  Tratamento default para VERB(21) = 'COLOQUE'
baf7: 26 02          OBJ(EVID):=PARAM(2)            
baf9: 28 03 d2       IF OBJ(EVID)=OBJ(3) GOTO _A    ; OBJ(3) = 'SACOLA'
bafc: 01 0f          PRINT MSG(15)                  ; "Isto no  possvel."
bafe: 02             EXIT                           
baff: e6             _A:                            
bb00: 26 01          OBJ(EVID):=PARAM(1)            
bb02: 0f 00 d3       IF OBJ(EVID) IS_NEARBY GOTO _B 
bb05: 11 00 d3       IF HAVE OBJ(EVID) GOTO _B      
bb08: 2a 12 00       EXIT MSG(18)+OBJ(EVID)         ; "Eu no vejo "
bb0b: e7             _B:
bb0c: 11 03 d4       IF HAVE OBJ(3) GOTO _C         ; OBJ(3) = 'SACOLA'
bb0f: 2a 10 03       EXIT MSG(16)+OBJ(3)            ; "Ns no temos " + "uma sacola"
bb12: e8             _C:                            
bb13: 28 05 d8       IF OBJ(EVID)=OBJ(5) GOTO _G    ; OBJ(5) = 'CARTEIRA'
bb16: 28 06 d8       IF OBJ(EVID)=OBJ(6) GOTO _G    ; OBJ(6) = 'DINHEIRO'
bb19: 28 13 d8       IF OBJ(EVID)=OBJ(19) GOTO _G   ; OBJ(19) = 'OURO'
bb1c: 28 17 d9       IF OBJ(EVID)=OBJ(23) GOTO _H   ; OBJ(23) = 'GATO'
bb1f: 0e 10 09 d5    IF REG(16)<9 GOTO _D           ; REG(16) = CONTADOR DE USO DA SACOLA
bb23: 01 16          PRINT MSG(22)                  ; MSG(2); "a sacola est ras gada e no d para colocar nada den- tro dela."
bb25: 02             EXIT                           
bb26: e9             _D:                            
bb27: 0f 00 d6       IF OBJ(EVID) IS_NEARBY GOTO _E 
bb2a: 12 00          DROP OBJ(EVID)                 
bb2c: ea             _E:                            
bb2d: 19 00          PUT OBJ(EVID) INTO_CONTAINER   
bb2f: 07 10          REG(16)++                      ; REG(16) = CONTADOR DE USO DA SACOLA
bb31: 0c 10 09 d7    IF REG(16)=9 GOTO _F           ; REG(16) = CONTADOR DE USO DA SACOLA
bb35: 1b             EXIT OK                        
bb36: eb             _F:                            
bb37: 01 17          PRINT MSG(23)                  ; "Ih! a sacola rasgou..."
bb39: 1a             DROP ALL_FROM_CONTAINER        
bb3a: 02             EXIT                           
bb3b: ec             _G:                            
bb3c: 01 2e          PRINT MSG(46)                  ; " melhor no fazer isso pois cer- tamente seremos roubados."
bb3e: 02             EXIT                           
bb3f: ed             _H:                            
bb40: 01 5e          PRINT MSG(94)                  ; "Isso  algum tipo de brincadeira?"
bb42: 02             EXIT                           

bb44:             FUNC(8)                       ->  Tratamento default para VERB(22) = 'TROQUE'
bb44: 26 01          OBJ(EVID):=PARAM(1)            
bb46: 11 00 d3       IF HAVE OBJ(EVID) GOTO _B      
bb49: 2a 10 00       EXIT MSG(16)+OBJ(EVID)         ; "Ns no temos "
bb4c: e7             _B:                            
bb4d: 26 02          OBJ(EVID):=PARAM(2)            
bb4f: 11 00 d5       IF HAVE OBJ(EVID) GOTO _D      
bb52: 0f 00 d4       IF OBJ(EVID) IS_NEARBY GOTO _C
bb55: 2a 18 00       EXIT MSG(24)+OBJ(EVID)         ; "Aqui no tem "
bb58: e8             _C:                            
bb59: 10 23 d6       IF AT POS(35) GOTO _E          
bb5c: 10 32 d7       IF AT POS(50) GOTO _F          
bb5f: 10 1a d7       IF AT POS(26) GOTO _F          
bb62: 10 30 d7       IF AT POS(48) GOTO _F          
bb65: 26 01          OBJ(EVID):=PARAM(1)            
bb67: 12 00          DROP OBJ(EVID)                 
bb69: 26 02          OBJ(EVID):=PARAM(2)            
bb6b: 13 00          GET OBJ(EVID)                  
bb6d: 1b             EXIT OK                        
bb6e: e9             _D:                            
bb6f: 2a 11 00       EXIT MSG(17)+OBJ(EVID)         ; "Ns j temos "
bb72: ea             _E:                            
bb73: 01 1b          PRINT MSG(27)                  ; "O dono do armazm disse que aqui no se trocam mercadorias. Se quiser mos levar alguma coisa teremos que comprar."
bb75: 16 16          EXEC FUNC(22)                  
bb77: 02             EXIT                           
bb78: eb             _F:                            
bb79: 01 0f          PRINT MSG(15)                  ; "Isto no  possvel."
bb7b: 02             EXIT                           

bb7d:             FUNC(9)                       ->  Tratamento default para VERB(23) = 'COMPRE'
bb7d: 16 16          EXEC FUNC(22)                  
bb7f: 26 01          OBJ(EVID):=PARAM(1)            
bb81: 0f 00 d4       IF OBJ(EVID) IS_NEARBY GOTO _C 
bb84: 11 00 d3       IF HAVE OBJ(EVID) GOTO _B      
bb87: 01 18          PRINT MSG(24)                  ; "Aqui no tem "
bb89: e6             _A:                            
bb8a: 06 00          PRINT OBJ(EVID)                
bb8c: 29 2e          PRINT CHRS(46)                 ; "."
bb8e: 02             EXIT                           
bb8f: e7             _B:                            
bb90: 01 11          PRINT MSG(17)                  ; "Ns j temos "
bb92: 23 d2          GOTO _A                        
bb94: e8             _C:                            
bb95: 0c 08 07 e0    IF REG(8)=7 GOTO _O            ; REG(8) = CONTADOR DE OBJETOS CARREGADOS PELO JOGADOR
bb99: 10 23 d7       IF AT POS(35) GOTO _F
bb9c: 10 30 d9       IF AT POS(48) GOTO _H          
bb9f: 10 26 da       IF AT POS(38) GOTO _I          
bba2: 10 2f db       IF AT POS(47) GOTO _J          
bba5: 23 d8          GOTO _G                        
bba7: f4             _O:                            
bba8: 01 14          PRINT MSG(20)                  ; MSG(2); "no d para carre gar mais nada."
bbaa: 02             EXIT                           
bbab: eb             _F:                            
bbac: 0f 10 dc       IF OBJ(16) IS_NEARBY GOTO _K   ; OBJ(16) = 'DONO'
bbaf: ec             _G:                            
bbb0: 01 3a          PRINT MSG(58)                  ; MSG(8); "ningum vendendo mercadorias."
bbb2: 02             EXIT                           
bbb3: ed             _H:                            
bbb4: 0f 09 dc       IF OBJ(9) IS_NEARBY GOTO _K    ; OBJ(9) = 'VELHO'
bbb7: 23 d8          GOTO _G                        
bbb9: ee             _I:                            
bbba: 0f 0b dc       IF OBJ(11) IS_NEARBY GOTO _K   ; OBJ(11) = 'ALEMAO'
bbbd: 23 d8          GOTO _G                        
bbbf: ef             _J:                            
bbc0: 0f 07 dc       IF OBJ(7) IS_NEARBY GOTO _K    ; OBJ(7) = 'MEDICO'
bbc3: 23 d8          GOTO _G                        
bbc5: f0             _K:                            
bbc6: 28 02 df       IF OBJ(EVID)=OBJ(2) GOTO _N    ; OBJ(2) = 'LAMPIAO'
bbc9: 28 04 df       IF OBJ(EVID)=OBJ(4) GOTO _N    ; OBJ(4) = 'RELOGIO'
bbcc: 28 1b df       IF OBJ(EVID)=OBJ(27) GOTO _N   ; OBJ(27) = 'PICARETA'
bbcf: 28 1e df       IF OBJ(EVID)=OBJ(30) GOTO _N   ; OBJ(30) = 'BATEIA'
bbd2: 28 25 df       IF OBJ(EVID)=OBJ(37) GOTO _N   ; OBJ(37) = 'DINAMITE'
bbd5: 0e 0f 03 dd    IF REG(15)<3 GOTO _L           ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
bbd9: 0a 0f 7d       REG(15)+=125                   ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
bbdc: 23 de          GOTO _M                        
bbde: f3             _N:                            
bbdf: 0d 0f 06 d5    IF REG(15)>6 GOTO _D           ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
bbe3: f1             _L:                            
bbe4: 01 1d          PRINT MSG(29)                  ; "A grana no vai dar."
bbe6: 02             EXIT                           
bbe7: e9             _D:                            
bbe8: 0a 0f 79       REG(15)+=121                   ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
bbeb: f2             _M:                            
bbec: 0a 0f 80       REG(15)+=128                   ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
bbef: 13 00          GET OBJ(EVID)                  
bbf1: 0c 0f 00 d6    IF REG(15)=0 GOTO _E           ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
bbf5: 1b             EXIT OK                        
bbf6: ea             _E:                            
bbf7: 09 14 01       REG(20):=1                     ; REG(20) = CARTEIRA VAZIA?
bbfa: 1b             EXIT OK                        

bbfc:             FUNC(10)                      ->  Tratamento default para VERB(24) = 'ROUBE'
bbfc: 26 01          OBJ(EVID):=PARAM(1)            
bbfe: 11 00 d2       IF HAVE OBJ(EVID) GOTO _A      
bc01: 0f 00 d3       IF OBJ(EVID) IS_NEARBY GOTO _B 
bc04: 2a 18 00       EXIT MSG(24)+OBJ(EVID)         ; "Aqui no tem "
bc07: e6             _A:                            
bc08: 2a 11 00       EXIT MSG(17)+OBJ(EVID)         ; "Ns j temos "
bc0b: e7             _B:                            
bc0c: 10 23 d6       IF AT POS(35) GOTO _E          
bc0f: 10 32 d8       IF AT POS(50) GOTO _G          
bc12: 28 13 d9       IF OBJ(EVID)=OBJ(19) GOTO _H   ; OBJ(19) = 'OURO'
bc15: 28 06 db       IF OBJ(EVID)=OBJ(6) GOTO _J    ; OBJ(6) = 'DINHEIRO'
bc18: e8             _C:                            
bc19: 13 00          GET OBJ(EVID)                  
bc1b: 0d 11 00 d5    IF REG(17)>0 GOTO _D           ; REG(17) = CONTADOR DE CRIMES
bc1f: 07 11          REG(17)++                      ; REG(17) = CONTADOR DE CRIMES
bc21: e9             _D:                            
bc22: 07 11          REG(17)++                      ; REG(17) = CONTADOR DE CRIMES
bc24: 1b             EXIT OK                        
bc25: ea             _E:                            
bc26: 0e 11 08 d4    IF REG(17)<8 GOTO _C           ; REG(17) = CONTADOR DE CRIMES
bc2a: 0f 10 d7       IF OBJ(16) IS_NEARBY GOTO _F   ; OBJ(16) = 'DONO'
bc2d: 23 d4          GOTO _C                        
bc2f: eb             _F:                            
bc30: 01 63          PRINT MSG(99)                  ; "O dono do armazm nos expulsou de forma violenta. Acho que j estamos manjados."
bc32: 08 01          REG(1)--                       ; REG(1) = POSICAO ATUAL DO JOGADOR
bc34: 02             EXIT                           
bc35: ee             _I:
bc36: 01 78          PRINT MSG(120)                 ; "Ficou maluco ?"
bc38: 02             EXIT                           
bc39: ef             _J:                            
bc3a: 15 34          BREAK OBJ(52)                  ; OBJ(52) = '^'
bc3c: 23 d4          GOTO _C                        
bc3e: ec             _G:                            
bc3f: 28 13 da       IF OBJ(EVID)=OBJ(19) GOTO _I   ; OBJ(19) = 'OURO'
bc42: 13 00          GET OBJ(EVID)                  
bc44: 0a 11 02       REG(17)+=2                     ; REG(17) = CONTADOR DE CRIMES
bc47: 08 01          REG(1)--                       ; REG(1) = POSICAO ATUAL DO JOGADOR
bc49: 01 64          PRINT MSG(100)                 ; "Tudo bem, mas eu achei melhor dar o fora logo."
bc4b: 02             EXIT                           
bc4c: ed             _H:                            
bc4d: 15 33          BREAK OBJ(51)                  ; OBJ(51) = '^'
bc4f: 23 d4          GOTO _C                        

bc52:             FUNC(11)                      ->  Tratamento default para VERB(25) = 'PERGUNTE'
bc52: 26 01          OBJ(EVID):=PARAM(1)            
bc54: 28 07 d4       IF OBJ(EVID)=OBJ(7) GOTO _C    ; OBJ(7) = 'MEDICO'
bc57: 28 08 d7       IF OBJ(EVID)=OBJ(8) GOTO _F    ; OBJ(8) = 'CHEFE'
bc5a: 28 09 d9       IF OBJ(EVID)=OBJ(9) GOTO _H    ; OBJ(9) = 'VELHO'
bc5d: 28 0a db       IF OBJ(EVID)=OBJ(10) GOTO _J   ; OBJ(10) = 'GUARDA'
bc60: 28 0b dd       IF OBJ(EVID)=OBJ(11) GOTO _L   ; OBJ(11) = 'ALEMAO'
bc63: 28 0c d2       IF OBJ(EVID)=OBJ(12) GOTO _A   ; OBJ(12) = 'TELEFONISTA'
bc66: 28 0d df       IF OBJ(EVID)=OBJ(13) GOTO _N   ; OBJ(13) = 'DELEGADO'
bc69: 28 10 e1       IF OBJ(EVID)=OBJ(16) GOTO _P   ; OBJ(16) = 'DONO'
bc6c: 28 0f e3       IF OBJ(EVID)=OBJ(15) GOTO _R   ; OBJ(15) = 'GARIMPEIRO'
bc6f: 28 11 e5       IF OBJ(EVID)=OBJ(17) GOTO _T   ; OBJ(17) = 'GERENTE'
bc72: 01 0d          PRINT MSG(13)                  ; "Perdo, no entendi."
bc74: 02             EXIT                           
bc75: e6             _A:                            
bc76: 0f 0c d3       IF OBJ(12) IS_NEARBY GOTO _B   ; OBJ(12) = 'TELEFONISTA'
bc79: 01 92          PRINT MSG(146)                 ; "Ela no se encontra neste local."
bc7b: 02             EXIT                           
bc7c: e7             _B:                            
bc7d: 16 20          EXEC FUNC(32)                  
bc7f: e8             _C:
bc80: 0f 07 d6       IF OBJ(7) IS_NEARBY GOTO _E    ; OBJ(7) = 'MEDICO'
bc83: e9             _D:                            
bc84: 01 93          PRINT MSG(147)                 ; "Ele no est por aqui."
bc86: 02             EXIT                           
bc87: ea             _E:                            
bc88: 16 21          EXEC FUNC(33)                  
bc8a: eb             _F:                            
bc8b: 0f 08 d8       IF OBJ(8) IS_NEARBY GOTO _G    ; OBJ(8) = 'CHEFE'
bc8e: 23 d5          GOTO _D                        
bc90: ec             _G:                            
bc91: 16 22          EXEC FUNC(34)                  
bc93: ed             _H:                            
bc94: 0f 09 da       IF OBJ(9) IS_NEARBY GOTO _I    ; OBJ(9) = 'VELHO'
bc97: 23 d5          GOTO _D                        
bc99: ee             _I:                            
bc9a: 16 23          EXEC FUNC(35)                  
bc9c: ef             _J:                            
bc9d: 0f 0a dc       IF OBJ(10) IS_NEARBY GOTO _K   ; OBJ(10) = 'GUARDA'
bca0: 23 d5          GOTO _D                        
bca2: f0             _K:                            
bca3: 16 24          EXEC FUNC(36)                  
bca5: f1             _L:                            
bca6: 0f 0b de       IF OBJ(11) IS_NEARBY GOTO _M   ; OBJ(11) = 'ALEMAO'
bca9: 23 d5          GOTO _D                        
bcab: f2             _M:                            
bcac: 16 25          EXEC FUNC(37)                  
bcae: f3             _N:                            
bcaf: 0f 0d e0       IF OBJ(13) IS_NEARBY GOTO _O   ; OBJ(13) = 'DELEGADO'
bcb2: 23 d5          GOTO _D                        
bcb4: f4             _O:                            
bcb5: 16 26          EXEC FUNC(38)                  
bcb7: f5             _P:                            
bcb8: 0f 10 e2       IF OBJ(16) IS_NEARBY GOTO _Q   ; OBJ(16) = 'DONO'
bcbb: 23 d5          GOTO _D                        
bcbd: f6             _Q:                            
bcbe: 16 27          EXEC FUNC(39)                  
bcc0: f7             _R:
bcc1: 0f 0f e4       IF OBJ(15) IS_NEARBY GOTO _S   ; OBJ(15) = 'GARIMPEIRO'
bcc4: 23 d5          GOTO _D                        
bcc6: f8             _S:                            
bcc7: 16 28          EXEC FUNC(40)                  
bcc9: f9             _T:                            
bcca: 0f 11 e4       IF OBJ(17) IS_NEARBY GOTO _S   ; OBJ(17) = 'GERENTE'
bccd: 23 d5          GOTO _D                        

bcd0:             FUNC(12)                      ->  Tratamento default para VERB(26) = 'QUEBRE'
bcd0: 26 01          OBJ(EVID):=PARAM(1)            
bcd2: 11 00 d2       IF HAVE OBJ(EVID) GOTO _A      
bcd5: 0f 00 d2       IF OBJ(EVID) IS_NEARBY GOTO _A 
bcd8: 01 12          PRINT MSG(18)                  ; "Eu no vejo "
bcda: 06 00          PRINT OBJ(EVID)                
bcdc: 29 2e          PRINT CHRS(46)                 ; "."
bcde: 02             EXIT                           
bcdf: e6             _A:                            
bce0: 15 00          BREAK OBJ(EVID)                
bce2: 28 30 d3       IF OBJ(EVID)=OBJ(48) GOTO _B   ; OBJ(48) = 'CAIXOTE'
bce5: 1b             EXIT OK                        
bce6: e7             _B:                            
bce7: 14 31          CREATE OBJ(49)                 ; OBJ(49) = 'TABOAS'
bce9: 1b             EXIT OK                        

bceb:             FUNC(13)                      ->  Tratamento default para VERB(27) = 'SOLTE'
bceb: 26 01          OBJ(EVID):=PARAM(1)            
bced: 11 00 d2       IF HAVE OBJ(EVID) GOTO _A      
bcf0: 01 10          PRINT MSG(16)                  ; "Ns no temos "
bcf2: 06 00          PRINT OBJ(EVID)                
bcf4: 29 2e          PRINT CHRS(46)                 ; "."
bcf6: 02             EXIT                           
bcf7: e6             _A:                            
bcf8: 12 00          DROP OBJ(EVID)                 
bcfa: 28 06 d3       IF OBJ(EVID)=OBJ(6) GOTO _B    ; OBJ(6) = 'DINHEIRO'
bcfd: 28 13 d4       IF OBJ(EVID)=OBJ(19) GOTO _C   ; OBJ(19) = 'OURO'
bd00: 1b             EXIT OK                        
bd01: e7             _B:
bd02: 15 06          BREAK OBJ(6)                   ; OBJ(6) = 'DINHEIRO'
bd04: 13 34          GET OBJ(52)                    ; OBJ(52) = '^'
bd06: 09 0f 00       REG(15):=0                     ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
bd09: 23 d5          GOTO _D                        
bd0b: e8             _C:                            
bd0c: 15 13          BREAK OBJ(19)                  ; OBJ(19) = 'OURO'
bd0e: 13 33          GET OBJ(51)                    ; OBJ(51) = '^'
bd10: 09 13 00       REG(19):=0                     ; REG(19) = QUANTIDADE DE OURO
bd13: e9             _D:                            
bd14: 01 20          PRINT MSG(32)                  ; "Quanto tempo voc acha que ele ficaria dando sopa no cho? No deu outra, companheiro, algum levou tu- dinho."
bd16: 02             EXIT                           

bd18:             FUNC(14)                      ->  Tratamento default para VERB(28) = 'EXAMINE'
bd18: 26 01          OBJ(EVID):=PARAM(1)            
bd1a: 28 1a e0       IF OBJ(EVID)=OBJ(26) GOTO _O   ; OBJ(26) = 'CONTA'
bd1d: 11 00 d3       IF HAVE OBJ(EVID) GOTO _B      
bd20: 0f 00 d3       IF OBJ(EVID) IS_NEARBY GOTO _B 
bd23: 01 12          PRINT MSG(18)                  ; "Eu no vejo "
bd25: e6             _A:                            
bd26: 06 00          PRINT OBJ(EVID)                
bd28: 29 2e          PRINT CHRS(46)                 ; "."
bd2a: 02             EXIT                           
bd2b: e7             _B:                            
bd2c: 28 05 d4       IF OBJ(EVID)=OBJ(5) GOTO _C    ; OBJ(5) = 'CARTEIRA'
bd2f: 28 02 d6       IF OBJ(EVID)=OBJ(2) GOTO _E    ; OBJ(2) = 'LAMPIAO'
bd32: 28 03 d9       IF OBJ(EVID)=OBJ(3) GOTO _H    ; OBJ(3) = 'SACOLA'
bd35: 28 17 dc       IF OBJ(EVID)=OBJ(23) GOTO _K   ; OBJ(23) = 'GATO'
bd38: 28 15 dd       IF OBJ(EVID)=OBJ(21) GOTO _L   ; OBJ(21) = 'FSFOROS'
bd3b: 01 13          PRINT MSG(19)                  ; " apenas "
bd3d: 23 d2          GOTO _A                        
bd3f: e8             _C:                            
bd40: 0c 14 01 d5    IF REG(20)=1 GOTO _D           ; REG(20) = CARTEIRA VAZIA?
bd44: 01 36          PRINT MSG(54)                  ; "H algum dinheiro nela."
bd46: 02             EXIT                           
bd47: e9             _D:                            
bd48: 01 35          PRINT MSG(53)                  ; "Apenas traas..."
bd4a: 02             EXIT
bd4b: ea             _E:                            
bd4c: 0c 16 00 d8    IF REG(22)=0 GOTO _G           ; REG(22) = QUANTIDADE DE QUEROSENE NO LAMPIAO
bd50: 01 40          PRINT MSG(64)                  ; "Ele contm "
bd52: 1c 16          PRINT REG(22)                  ; REG(22) = QUANTIDADE DE QUEROSENE NO LAMPIAO
bd54: 01 41          PRINT MSG(65)                  ; "00 ml de querosene e "; TAB 0; " est "
bd56: 0c 0a 00 d7    IF REG(10)=0 GOTO _F           ; REG(10) = LAMPIAO ACESO?
bd5a: 01 46          PRINT MSG(70)                  ; "aceso."
bd5c: 02             EXIT                           
bd5d: eb             _F:                            
bd5e: 01 47          PRINT MSG(71)                  ; "apagado."
bd60: 02             EXIT                           
bd61: ec             _G:                            
bd62: 01 42          PRINT MSG(66)                  ; MSG(6); "vazio."
bd64: 02             EXIT                           
bd65: ed             _H:                            
bd66: 0e 10 09 da    IF REG(16)<9 GOTO _I           ; REG(16) = CONTADOR DE USO DA SACOLA
bd6a: 01 48          PRINT MSG(72)                  ; MSG(7); "rasgada."
bd6c: 02             EXIT                           
bd6d: ee             _I:                            
bd6e: 0c 07 00 db    IF REG(7)=0 GOTO _J            ; REG(7) = CONTADOR DE OBJETOS DENTRO DA SACOLA
bd72: 01 49          PRINT MSG(73)                  ; "Na sacola tem:"
bd74: 05             EXIT LIST_CONTAINER            
bd75: ef             _J:                            
bd76: 01 4a          PRINT MSG(74)                  ; MSG(7); "vazia."
bd78: 02             EXIT                           
bd79: f0             _K:                            
bd7a: 01 5a          PRINT MSG(90)                  ; " o ALICATE."
bd7c: 02             EXIT                           
bd7d: f1             _L:                            
bd7e: 01 5b          PRINT MSG(91)                  ; "Resta"
bd80: 0c 1a 01 de    IF REG(26)=1 GOTO _M           ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
bd84: 29 6d          PRINT CHRS(109)                ; "m"
bd86: f2             _M:                            
bd87: 29 20          PRINT CHRS(32)                 ; " "
bd89: 1c 1a          PRINT REG(26)                  ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
bd8b: 01 5c          PRINT MSG(92)                  ; " palito"
bd8d: 0c 1a 01 df    IF REG(26)=1 GOTO _N           ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
bd91: 29 73          PRINT CHRS(115)                ; "s"
bd93: f3             _N:                            
bd94: 29 2e          PRINT CHRS(46)                 ; "."
bd96: 02             EXIT                           
bd97: f4             _O:                            
bd98: 10 32 e1       IF AT POS(50) GOTO _P          
bd9b: 01 0f          PRINT MSG(15)                  ; "Isto no  possvel."
bd9d: 02             EXIT                           
bd9e: f5             _P:                            
bd9f: 01 69          PRINT MSG(105)                 ; "Nossa conta tem um saldo de: Cz$ "
bda1: 16 1a          EXEC FUNC(26)                  
bda3: 02             EXIT                           

bda5:             FUNC(15)                      ->  Tratamento default para VERB(29) = 'PROCURE'
bda5: 26 01          OBJ(EVID):=PARAM(1)            
bda7: 0f 00 d4       IF OBJ(EVID) IS_NEARBY GOTO _C 
bdaa: 11 00 d2       IF HAVE OBJ(EVID) GOTO _A      
bdad: 01 12          PRINT MSG(18)                  ; "Eu no vejo "
bdaf: 23 d3          GOTO _B                        
bdb1: e6             _A:                            
bdb2: 01 11          PRINT MSG(17)                  ; "Ns j temos "
bdb4: e7             _B:                            
bdb5: 06 00          PRINT OBJ(EVID)                
bdb7: 29 2e          PRINT CHRS(46)                 ; "."
bdb9: 02             EXIT                           
bdba: e8             _C:                            
bdbb: 28 07 d7       IF OBJ(EVID)=OBJ(7) GOTO _F    ; OBJ(7) = 'MEDICO'
bdbe: 28 08 d5       IF OBJ(EVID)=OBJ(8) GOTO _D    ; OBJ(8) = 'CHEFE'
bdc1: 28 09 d5       IF OBJ(EVID)=OBJ(9) GOTO _D    ; OBJ(9) = 'VELHO'
bdc4: 28 0a d9       IF OBJ(EVID)=OBJ(10) GOTO _H   ; OBJ(10) = 'GUARDA'
bdc7: 28 0b d8       IF OBJ(EVID)=OBJ(11) GOTO _G   ; OBJ(11) = 'ALEMAO'
bdca: 28 0c da       IF OBJ(EVID)=OBJ(12) GOTO _I   ; OBJ(12) = 'TELEFONISTA'
bdcd: 28 0d d5       IF OBJ(EVID)=OBJ(13) GOTO _D   ; OBJ(13) = 'DELEGADO'
bdd0: 28 0e d5       IF OBJ(EVID)=OBJ(14) GOTO _D   ; OBJ(14) = 'BOCA'
bdd3: 28 0f d6       IF OBJ(EVID)=OBJ(15) GOTO _E   ; OBJ(15) = 'GARIMPEIRO'
bdd6: 28 10 d8       IF OBJ(EVID)=OBJ(16) GOTO _G   ; OBJ(16) = 'DONO'
bdd9: 28 11 d6       IF OBJ(EVID)=OBJ(17) GOTO _E   ; OBJ(17) = 'GERENTE'
bddc: 01 0b          PRINT MSG(11)                  ; "Achei o que voc queria."
bdde: 02             EXIT                           
bddf: e9             _D:                            
bde0: 01 2f          PRINT MSG(47)                  ; MSG(6); "bem na sua frente."
bde2: 02             EXIT                           
bde3: ea             _E:                            
bde4: 01 30          PRINT MSG(48)                  ; MSG(6); "aqui mesmo."
bde6: 02             EXIT                           
bde7: eb             _F:                            
bde8: 01 31          PRINT MSG(49)                  ; MSG(6); "atendendo um paciente."
bdea: 02             EXIT                           
bdeb: ec             _G:                            
bdec: 01 32          PRINT MSG(50)                  ; MSG(6); "no balco."
bdee: 02             EXIT                           
bdef: ed             _H:                            
bdf0: 01 33          PRINT MSG(51)                  ; MSG(6); "nos vigiando."
bdf2: 02             EXIT                           
bdf3: ee             _I:                            
bdf4: 01 34          PRINT MSG(52)                  ; MSG(7); "fazendo as unhas."
bdf6: 02             EXIT                           

bdf8:             FUNC(16)                      ->  Tratamento default para VERB(30) = 'D'
bdf8: 26 02          OBJ(EVID):=PARAM(2)            
bdfa: 28 0d d2       IF OBJ(EVID)=OBJ(13) GOTO _A   ; OBJ(13) = 'DELEGADO'
bdfd: 26 01          OBJ(EVID):=PARAM(1)            
bdff: 28 0d d9       IF OBJ(EVID)=OBJ(13) GOTO _H   ; OBJ(13) = 'DELEGADO'
be02: 01 0f          PRINT MSG(15)                  ; "Isto no  possvel."
be04: 02             EXIT                           
be05: e6             _A:                            
be06: 0f 0d d3       IF OBJ(13) IS_NEARBY GOTO _B   ; OBJ(13) = 'DELEGADO'
be09: 2a 12 0d       EXIT MSG(18)+OBJ(13)           ; "Eu no vejo " + "o delegado"
be0c: e7             _B:                            
be0d: 26 01          OBJ(EVID):=PARAM(1)            
be0f: ef             _J:                            
be10: 28 06 d7       IF OBJ(EVID)=OBJ(6) GOTO _F    ; OBJ(6) = 'DINHEIRO'
be13: 11 00 d4       IF HAVE OBJ(EVID) GOTO _C      
be16: 2a 10 00       EXIT MSG(16)+OBJ(EVID)         ; "Ns no temos "
be19: e8             _C:                            
be1a: 28 13 d5       IF OBJ(EVID)=OBJ(19) GOTO _D   ; OBJ(19) = 'OURO'
be1d: 01 6d          PRINT MSG(109)                 ; ""Obrigado, mas eu no necessito disso.""
be1f: 02             EXIT                           
be20: e9             _D:                            
be21: 09 13 00       REG(19):=0                     ; REG(19) = QUANTIDADE DE OURO
be24: 15 13          BREAK OBJ(19)                  ; OBJ(19) = 'OURO'
be26: 13 33          GET OBJ(51)                    ; OBJ(51) = '^'
be28: ea             _E:                            
be29: 15 0d          BREAK OBJ(13)                  ; OBJ(13) = 'DELEGADO'
be2b: 09 1b 00       REG(27):=0                     ; REG(27) = SITUACAO DO DELEGADO
be2e: 01 6e          PRINT MSG(110)                 ; ""Muito obrigado.""
be30: 02             EXIT                           
be31: eb             _F:                            
be32: 0c 1e 00 d8    IF REG(30)=0 GOTO _G           ; REG(30) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$ ??0000.000,00
be36: 08 1e          REG(30)--                      ; REG(30) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$ ??0000.000,00
be38: 23 d6          GOTO _E                        
be3a: ec             _G:                            
be3b: 01 6f          PRINT MSG(111)                 ; ""Tentando me subornar ??? Voc pode ir para a cadeia.""
be3d: 02             EXIT                           
be3e: ed             _H:                            
be3f: 0f 0d da       IF OBJ(13) IS_NEARBY GOTO _I   ; OBJ(13) = 'DELEGADO'
be42: 2a 12 0d       EXIT MSG(18)+OBJ(13)           ; "Eu no vejo " + "o delegado"
be45: ee             _I:                            
be46: 26 02          OBJ(EVID):=PARAM(2)            
be48: 23 db          GOTO _J                        

be4b:             FUNC(17)                      ->  Tratamento default para VERB(31) = 'FAA'
be4b: 26 01          OBJ(EVID):=PARAM(1)            
be4d: 11 00 d8       IF HAVE OBJ(EVID) GOTO _G      
be50: 0f 00 d9       IF OBJ(EVID) IS_NEARBY GOTO _H 
be53: 28 20 d2       IF OBJ(EVID)=OBJ(32) GOTO _A   ; OBJ(32) = 'ESCADA'
be56: 01 0f          PRINT MSG(15)                  ; "Isto no  possvel."
be58: 02             EXIT                           
be59: e6             _A:                            
be5a: 11 31 d4       IF HAVE OBJ(49) GOTO _C        ; OBJ(49) = 'TABOAS'
be5d: 01 84          PRINT MSG(132)                 ; "Vamos precisar de "
be5f: 06 31          PRINT OBJ(49)                  ; "taboas"
be61: 11 2f d3       IF HAVE OBJ(47) GOTO _B        ; OBJ(47) = 'PREGOS'
be64: 29 20          PRINT CHRS(32)                 ; " "
be66: 29 65          PRINT CHRS(101)                ; "e"
be68: 29 20          PRINT CHRS(32)                 ; " "
be6a: ea             _E:                            
be6b: 06 2f          PRINT OBJ(47)                  ; "pregos"
be6d: e7             _B:                            
be6e: 29 2e          PRINT CHRS(46)                 ; "."
be70: 02             EXIT                           
be71: e8             _C:                            
be72: 11 2f d5       IF HAVE OBJ(47) GOTO _D        ; OBJ(47) = 'PREGOS'
be75: 01 84          PRINT MSG(132)                 ; "Vamos precisar de "
be77: 23 d6          GOTO _E                        
be79: e9             _D:                            
be7a: 11 23 d7       IF HAVE OBJ(35) GOTO _F        ; OBJ(35) = 'MARTELO'
be7d: 2a 10 23       EXIT MSG(16)+OBJ(35)           ; "Ns no temos " + "um martelo"
be80: eb             _F:                            
be81: 15 31          BREAK OBJ(49)                  ; OBJ(49) = 'TABOAS'
be83: 15 2f          BREAK OBJ(47)                  ; OBJ(47) = 'PREGOS'
be85: 14 20          CREATE OBJ(32)                 ; OBJ(32) = 'ESCADA'
be87: 01 85          PRINT MSG(133)                 ; "No ficou excelente mas vai ser- vir."
be89: 0c 17 01 da    IF REG(23)=1 GOTO _I           ; REG(23) = EXPLOSAO NO AEROPORTO?
be8d: 09 93 23       REG(147):=35                   ; POS de OBJ(47) = 'PREGOS'
be90: ee             _I:                            
be91: 02             EXIT                           
be92: ec             _G:                            
be93: 2a 11 00       EXIT MSG(17)+OBJ(EVID)         ; "Ns j temos "
be96: ed             _H:                            
be97: 2a 86 00       EXIT MSG(134)+OBJ(EVID)        ; "Aqui j existe "

be9b:             FUNC(18)                      ->  Tratamento default para VERB(32) = 'CUMPRIMENTE'
be9b: 26 01          OBJ(EVID):=PARAM(1)            
be9d: 28 07 d2       IF OBJ(EVID)=OBJ(7) GOTO _A    ; OBJ(7) = 'MEDICO'
bea0: 28 08 d2       IF OBJ(EVID)=OBJ(8) GOTO _A    ; OBJ(8) = 'CHEFE'
bea3: 28 09 d2       IF OBJ(EVID)=OBJ(9) GOTO _A    ; OBJ(9) = 'VELHO'
bea6: 28 0a d2       IF OBJ(EVID)=OBJ(10) GOTO _A   ; OBJ(10) = 'GUARDA'
bea9: 28 0b d2       IF OBJ(EVID)=OBJ(11) GOTO _A   ; OBJ(11) = 'ALEMAO'
beac: 28 0c d2       IF OBJ(EVID)=OBJ(12) GOTO _A   ; OBJ(12) = 'TELEFONISTA'
beaf: 28 0d d2       IF OBJ(EVID)=OBJ(13) GOTO _A   ; OBJ(13) = 'DELEGADO'
beb2: 28 0e d2       IF OBJ(EVID)=OBJ(14) GOTO _A   ; OBJ(14) = 'BOCA'
beb5: 28 0f d2       IF OBJ(EVID)=OBJ(15) GOTO _A   ; OBJ(15) = 'GARIMPEIRO'
beb8: 28 10 d2       IF OBJ(EVID)=OBJ(16) GOTO _A   ; OBJ(16) = 'DONO'
bebb: 28 11 d2       IF OBJ(EVID)=OBJ(17) GOTO _A   ; OBJ(17) = 'GERENTE'
bebe: 01 78          PRINT MSG(120)                 ; "Ficou maluco ?"
bec0: 02             EXIT                           
bec1: e6             _A:                            
bec2: 0f 00 d3       IF OBJ(EVID) IS_NEARBY GOTO _B 
bec5: 2a 8a 00       EXIT MSG(138)+OBJ(EVID)        ; "No estou vendo "
bec8: e7             _B:                            
bec9: 1b             EXIT OK                        

becb:             FUNC(19)                      ->  Tratamento default para VERB(33) = 'CONSERTE'
becb: 01 0f          PRINT MSG(15)                  ; "Isto no  possvel."
becd: 02             EXIT                           

becf:             FUNC(20)                      ->  Tratamento default para VERB(34) = 'VENDA'
becf: 26 01          OBJ(EVID):=PARAM(1)            
bed1: 11 00 d2       IF HAVE OBJ(EVID) GOTO _A      
bed4: 01 10          PRINT MSG(16)                  ; "Ns no temos "
bed6: 06 00          PRINT OBJ(EVID)                
bed8: 29 2e          PRINT CHRS(46)                 ; "."
beda: e6             _A:                            
bedb: 10 30 d4       IF AT POS(48) GOTO _C          
bede: 10 2f d9       IF AT POS(47) GOTO _H          
bee1: e7             _B:                            
bee2: 01 3c          PRINT MSG(60)                  ; MSG(8); "ningum interes- sado em comprar."
bee4: 02             EXIT                           
bee5: e8             _C:                            
bee6: 0f 09 d5       IF OBJ(9) IS_NEARBY GOTO _D    ; OBJ(9) = 'VELHO'
bee9: 23 d3          GOTO _B                        
beeb: e9             _D:                            
beec: 12 00          DROP OBJ(EVID)                 
beee: 11 05 d6       IF HAVE OBJ(5) GOTO _E         ; OBJ(5) = 'CARTEIRA'
bef1: 11 06 d6       IF HAVE OBJ(6) GOTO _E         ; OBJ(6) = 'DINHEIRO'
bef4: 15 34          BREAK OBJ(52)                  ; OBJ(52) = '^'
bef6: 13 06          GET OBJ(6)                     ; OBJ(6) = 'DINHEIRO'
bef8: ea             _E:                            
bef9: 07 0f          REG(15)++                      ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
befb: 0b 0f 02       REG(15)+=RND(2)                ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
befe: 0d 0b 28 d7    IF REG(11)>40 GOTO _F          ; REG(11) = MOSTRADOR DE MINUTOS DO RELOGIO
bf02: 0d 0b 14 d8    IF REG(11)>20 GOTO _G          ; REG(11) = MOSTRADOR DE MINUTOS DO RELOGIO
bf06: 01 21          PRINT MSG(33)                  ; "Ele pagou uma ninharia. Que cara po duro..."
bf08: 02             EXIT                           
bf09: eb             _F:                            
bf0a: 01 3d          PRINT MSG(61)                  ; "Isso  um roubo!!!"
bf0c: 02             EXIT                           
bf0d: ec             _G:                            
bf0e: 01 3e          PRINT MSG(62)                  ; "Assim iremos logo  falncia."
bf10: 02             EXIT                           
bf11: ed             _H:                            
bf12: 0f 07 d5       IF OBJ(7) IS_NEARBY GOTO _D    ; OBJ(7) = 'MEDICO'
bf15: 23 d3          GOTO _B                        

bf18:             FUNC(21)
bf18: 10 26 d2       IF AT POS(38) GOTO _A          
bf1b: 10 1c d2       IF AT POS(28) GOTO _A          
bf1e: 10 2f d2       IF AT POS(47) GOTO _A          
bf21: 10 2a d2       IF AT POS(42) GOTO _A          
bf24: 10 23 d2       IF AT POS(35) GOTO _A          
bf27: 10 30 d2       IF AT POS(48) GOTO _A          
bf2a: 01 0f          PRINT MSG(15)                  ; "Isto no  possvel."
bf2c: 02             EXIT                           
bf2d: e6             _A:                            
bf2e: 22             RETURN                         

bf30:             FUNC(22)
bf30: 11 06 d4       IF HAVE OBJ(6) GOTO _C         ; OBJ(6) = 'DINHEIRO'
bf33: 11 05 d3       IF HAVE OBJ(5) GOTO _B         ; OBJ(5) = 'CARTEIRA'
bf36: e6             _A:                            
bf37: 01 1c          PRINT MSG(28)                  ; "Ns no temos um nico tosto."
bf39: 02             EXIT                           
bf3a: e7             _B:                            
bf3b: 0c 0f 00 d2    IF REG(15)=0 GOTO _A           ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
bf3f: e8             _C:                            
bf40: 22             RETURN                         

bf42:             FUNC(23)
bf42: 25 00 00       FLAG(0):=0                     ; FLAG(0) = JOGADOR NA ESCURIDAO?
bf45: 01 28          PRINT MSG(40)                  ; CLS; "Bem, o prazo terminou e SERRA PE- LADA foi fechada."
bf47: 11 06 d2       IF HAVE OBJ(6) GOTO _A         ; OBJ(6) = 'DINHEIRO'
bf4a: 11 05 db       IF HAVE OBJ(5) GOTO _J         ; OBJ(5) = 'CARTEIRA'
bf4d: e7             _B:                            
bf4e: 11 12 d5       IF HAVE OBJ(18) GOTO _D        ; OBJ(18) = 'DIVIDA'
bf51: 01 29          PRINT MSG(41)                  ; " "; TAB 0; " "; TAB 0; " No conseguimos a "DVIDA EXTERNA" mas em compensao ns arrecadamos: Cz$ "
bf53: 16 1a          EXEC FUNC(26)                  
bf55: 01 2a          PRINT MSG(42)                  ; "em dinheiro "
bf57: 11 13 d4       IF HAVE OBJ(19) GOTO _C        ; OBJ(19) = 'OURO'
bf5a: 23 d6          GOTO _E                        
bf5c: e8             _C:                            
bf5d: 29 65          PRINT CHRS(101)                ; "e"
bf5f: 01 4f          PRINT MSG(79)                  ; " "; TAB 0; " "
bf61: 29 20          PRINT CHRS(32)                 ; " "
bf63: 1c 13          PRINT REG(19)                  ; REG(19) = QUANTIDADE DE OURO
bf65: 01 2b          PRINT MSG(43)                  ; "0g de ouro."
bf67: 23 d6          GOTO _E                        
bf69: e9             _D:                            
bf6a: 01 2c          PRINT MSG(44)                  ; " "; TAB 0; " "; TAB 0; " Iates, manses, viagens, autom- veis de luxo, festas, avies, belas mulheres, uisque importado, (no es- quea os amigos) etc, etc, etc... Pura sorte ter achado a "DVIDA EXTERNA". Alm disso ns ainda arre- cadamos: Cz$ "
bf6c: 23 d2          GOTO _A                        
bf6e: ea             _E:                            
bf6f: 0c 71 00 d8    IF REG(113)=0 GOTO _G          ; POS de OBJ(13) = 'DELEGADO'
bf73: 0c 11 00 d7    IF REG(17)=0 GOTO _F           ; REG(17) = CONTADOR DE CRIMES
bf77: 01 27          PRINT MSG(39)                  ; " "; TAB 0; " "; TAB 0; " Porm..."
bf79: 24 0c          PAUSE 12                       
bf7b: 01 24          PRINT MSG(36)                  ; CLS; "Voc foi processado por "
bf7d: 1c 11          PRINT REG(17)                  ; REG(17) = CONTADOR DE CRIMES
bf7f: 01 25          PRINT MSG(37)                  ; " crimes "; TAB 0; " das mais diversas naturezas (pensou que ningum iria descobrir?). Como castigo o juiz confiscou to- dos os seus bens.  uma pena..."
bf81: eb             _F:
bf82: 01 26          PRINT MSG(38)                  ; " "; TAB 0; " "; TAB 0; " Joga novamente?"
bf84: 1f             EXIT QUIT_GAME                 
bf85: ec             _G:                            
bf86: 24 0c          PAUSE 12                       
bf88: 0c 1b 00 d9    IF REG(27)=0 GOTO _H           ; REG(27) = SITUACAO DO DELEGADO
bf8c: 0c 1b 01 da    IF REG(27)=1 GOTO _I           ; REG(27) = SITUACAO DO DELEGADO
bf90: 01 61          PRINT MSG(97)                  ; "Voc no se envergonha de ter ma- tado o delegado ???"
bf92: 23 d7          GOTO _F                        
bf94: ed             _H:                            
bf95: 01 62          PRINT MSG(98)                  ; "C entre ns: subornar o delegado foi providencial heim ?"
bf97: 23 d7          GOTO _F                        
bf99: ee             _I:                            
bf9a: 01 60          PRINT MSG(96)                  ; "Ainda bem que o delegado morreu pois assim ningum lembrar dos seus crimes."
bf9c: 23 d7          GOTO _F                        
bf9e: ef             _J:                            
bf9f: 0c 14 01 d3    IF REG(20)=1 GOTO _B           ; REG(20) = CARTEIRA VAZIA?
bfa3: e6             _A:                            
bfa4: 09 19 00       REG(25):=0                     ; REG(25) = CONTADOR AUXILIAR
bfa7: f0             _K:                            
bfa8: 0c 0f 00 dd    IF REG(15)=0 GOTO _L           ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
bfac: 07 19          REG(25)++                      ; REG(25) = CONTADOR AUXILIAR
bfae: 08 0f          REG(15)--                      ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
bfb0: 23 dc          GOTO _K                        
bfb2: f1             _L:                            
bfb3: 16 1b          EXEC FUNC(27)                  
bfb5: 23 d3          GOTO _B                        

bfb8:             FUNC(24)
bfb8: 11 15 d5       IF HAVE OBJ(21) GOTO _D        ; OBJ(21) = 'FSFOROS'
bfbb: 2a 10 15       EXIT MSG(16)+OBJ(21)           ; "Ns no temos " + "fsforos"
bfbe: e9             _D:                            
bfbf: 09 19 01       REG(25):=1                     ; REG(25) = CONTADOR AUXILIAR
bfc2: 0b 19 07       REG(25)+=RND(7)                ; REG(25) = CONTADOR AUXILIAR
bfc5: e6             _A:                            
bfc6: 0c 1a 01 d3    IF REG(26)=1 GOTO _B           ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
bfca: 08 1a          REG(26)--                      ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
bfcc: 08 19          REG(25)--                      ; REG(25) = CONTADOR AUXILIAR
bfce: 0d 19 00 d2    IF REG(25)>0 GOTO _A           ; REG(25) = CONTADOR AUXILIAR
bfd2: 22             RETURN                         
bfd3: e7             _B:                            
bfd4: 01 5d          PRINT MSG(93)                  ; "Gastei o ltimo palito. "
bfd6: 08 1a          REG(26)--                      ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
bfd8: 15 15          BREAK OBJ(21)                  ; OBJ(21) = 'FSFOROS'
bfda: 0c 17 01 d4    IF REG(23)=1 GOTO _C           ; REG(23) = EXPLOSAO NO AEROPORTO?
bfde: 09 79 23       REG(121):=35                   ; POS de OBJ(21) = 'FSFOROS'
bfe1: 09 1a 1e       REG(26):=30                    ; REG(26) = QUANTIDADE DE PALITOS DE FOSFORO
bfe4: e8             _C:                            
bfe5: 09 19 01       REG(25):=1                     ; REG(25) = CONTADOR AUXILIAR
bfe8: 22             RETURN                         

bfea:             FUNC(25)
bfea: 0c 0c 0e d3    IF REG(12)=14 GOTO _B          ; REG(12) = MOSTRADOR DE HORAS DO RELOGIO
bfee: ea             _E:                            
bfef: 0c 77 32 d2    IF REG(119)=50 GOTO _A         ; POS de OBJ(19) = 'OURO'
bff3: 22             RETURN                         
bff4: e6             _A:                            
bff5: 15 13          BREAK OBJ(19)                  ; OBJ(19) = 'OURO'
bff7: 09 13 00       REG(19):=0                     ; REG(19) = QUANTIDADE DE OURO
bffa: 22             RETURN                         
bffb: e7             _B:                            
bffc: 0d 0b 09 d6    IF REG(11)>9 GOTO _E           ; REG(11) = MOSTRADOR DE MINUTOS DO RELOGIO
c000: 0d 77 00 d5    IF REG(119)>0 GOTO _D          ; POS de OBJ(19) = 'OURO'
c004: 09 77 32       REG(119):=50                   ; POS de OBJ(19) = 'OURO'
c007: 09 13 39       REG(19):=57                    ; REG(19) = QUANTIDADE DE OURO
c00a: 0b 13 21       REG(19)+=RND(33)               ; REG(19) = QUANTIDADE DE OURO
c00d: e9             _D:                            
c00e: 22             RETURN                         

c010:             FUNC(26)
c010: 0c 1e 00 d5    IF REG(30)=0 GOTO _D           ; REG(30) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$ ??0000.000,00
c014: 1c 1e          PRINT REG(30)                  ; REG(30) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$ ??0000.000,00
c016: e6             _A:                            
c017: 0d 1d 09 d3    IF REG(29)>9 GOTO _B           ; REG(29) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$   ??00.000,00
c01b: 29 30          PRINT CHRS(48)                 ; "0"
c01d: e7             _B:                            
c01e: 1c 1d          PRINT REG(29)                  ; REG(29) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$   ??00.000,00
c020: 0d 1c 09 d4    IF REG(28)>9 GOTO _C           ; REG(28) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$     ??.000,00
c024: 29 30          PRINT CHRS(48)                 ; "0"
c026: e8             _C:                            
c027: 1c 1c          PRINT REG(28)                  ; REG(28) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$     ??.000,00
c029: 01 1a          PRINT MSG(26)                  ; ".000,00 "
c02b: 22             RETURN                         
c02c: e9             _D:                            
c02d: 0d 1d 00 d3    IF REG(29)>0 GOTO _B           ; REG(29) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$   ??00.000,00
c031: 23 d4          GOTO _C                        

c034:             FUNC(27)
c034: e6             _A:                            
c035: 0c 19 00 d5    IF REG(25)=0 GOTO _D           ; REG(25) = CONTADOR AUXILIAR
c039: 08 19          REG(25)--                      ; REG(25) = CONTADOR AUXILIAR
c03b: 07 1c          REG(28)++                      ; REG(28) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$     ??.000,00
c03d: 0e 1c 64 d2    IF REG(28)<100 GOTO _A         ; REG(28) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$     ??.000,00
c041: 09 1c 00       REG(28):=0                     ; REG(28) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$     ??.000,00
c044: 07 1d          REG(29)++                      ; REG(29) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$   ??00.000,00
c046: 0e 1d 64 d2    IF REG(29)<100 GOTO _A         ; REG(29) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$   ??00.000,00
c04a: 09 1d 00       REG(29):=0                     ; REG(29) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$   ??00.000,00
c04d: 07 1e          REG(30)++                      ; REG(30) = QUANTIDADE DE DINHEIRO NA CONTA BANCARIA EM Cz$ ??0000.000,00
c04f: 23 d2          GOTO _A                        
c051: e9             _D:                            
c052: 22             RETURN                         

c054:             FUNC(28)
c054: 0c 01 1f d2    IF REG(1)=31 GOTO _A           ; REG(1) = POSICAO ATUAL DO JOGADOR
c058: 0c 72 1a d2    IF REG(114)=26 GOTO _A         ; POS de OBJ(14) = 'BOCA'
c05c: 0c 72 00 d2    IF REG(114)=0 GOTO _A          ; POS de OBJ(14) = 'BOCA'
c060: 0d 28 00 da    IF REG(40)>0 GOTO _I           ; REG(40) = CONTADOR DE FUGA DA CADEIA
c064: 0f 13 d5       IF OBJ(19) IS_NEARBY GOTO _D   ; OBJ(19) = 'OURO'
c067: 0c 0b 25 d3    IF REG(11)=37 GOTO _B          ; REG(11) = MOSTRADOR DE MINUTOS DO RELOGIO
c06b: e6             _A:                            
c06c: 22             RETURN                         
c06d: e7             _B:
c06e: 07 72          REG(114)++                     ; POS de OBJ(14) = 'BOCA'
c070: 07 72          REG(114)++                     ; POS de OBJ(14) = 'BOCA'
c072: 0c 72 97 d4    IF REG(114)=151 GOTO _C        ; POS de OBJ(14) = 'BOCA'
c076: 22             RETURN                         
c077: e8             _C:                            
c078: 09 72 65       REG(114):=101                  ; POS de OBJ(14) = 'BOCA'
c07b: 22             RETURN                         
c07c: e9             _D:                            
c07d: 0c 20 00 d6    IF REG(32)=0 GOTO _E           ; REG(32) = SITUACAO DO BOCA DE TRAIRA
c081: 09 19 00       REG(25):=0                     ; REG(25) = CONTADOR AUXILIAR
c084: 0b 19 14       REG(25)+=RND(20)               ; REG(25) = CONTADOR AUXILIAR
c087: 0e 19 0a d2    IF REG(25)<10 GOTO _A          ; REG(25) = CONTADOR AUXILIAR
c08b: 09 20 00       REG(32):=0                     ; REG(32) = SITUACAO DO BOCA DE TRAIRA
c08e: 01 b8          PRINT MSG(184)                 ; " "; TAB 0; " "; TAB 0; " O BCA manda avisar que quer mais ouro."
c090: 22             RETURN                         
c091: ea             _E:                            
c092: 11 13 d7       IF HAVE OBJ(19) GOTO _F        ; OBJ(19) = 'OURO'
c095: 11 06 d9       IF HAVE OBJ(6) GOTO _H         ; OBJ(6) = 'DINHEIRO'
c098: 22             RETURN                         
c099: eb             _F:                            
c09a: 15 13          BREAK OBJ(19)                  ; OBJ(19) = 'OURO'
c09c: 09 13 00       REG(19):=0                     ; REG(19) = QUANTIDADE DE OURO
c09f: 11 06 d9       IF HAVE OBJ(6) GOTO _H         ; OBJ(6) = 'DINHEIRO'
c0a2: ec             _G:                            
c0a3: 01 7a          PRINT MSG(122)                 ; CLS; "Pega ladro... Ns fomos assaltados pelo famoso BCA DE TRARA, o maior larpio das redondezas."
c0a5: 22             RETURN                         
c0a6: ed             _H:                            
c0a7: 15 06          BREAK OBJ(6)                   ; OBJ(6) = 'DINHEIRO'
c0a9: 09 0f 00       REG(15):=0                     ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
c0ac: 23 d8          GOTO _G                        
c0ae: ee             _I:                            
c0af: 08 28          REG(40)--                      ; REG(40) = CONTADOR DE FUGA DA CADEIA
c0b1: 0d 28 00 d2    IF REG(40)>0 GOTO _A           ; REG(40) = CONTADOR DE FUGA DA CADEIA
c0b5: 01 b3          PRINT MSG(179)                 ; " "; TAB 0; " "; TAB 0; " O BCA escapou da cadeia..."
c0b7: 09 72 7d       REG(114):=125                  ; POS de OBJ(14) = 'BOCA'
c0ba: 22             RETURN                         

c0bc:             FUNC(29)                      ->  MOVIMENTO: POS(27)->N
c0bc: 0c 17 00 d2    IF REG(23)=0 GOTO _A           ; REG(23) = EXPLOSAO NO AEROPORTO?
c0c0: 01 82          PRINT MSG(130)                 ; "No vai dar. O aeroporto est to- do destrudo."
c0c2: 02             EXIT                           
c0c3: e6             _A:                            
c0c4: 09 01 1e       REG(1):=30                     ; REG(1) = POSICAO ATUAL DO JOGADOR
c0c7: 21             EXIT DESC                      

c0c9:             FUNC(30)                      ->  MOVIMENTO: POS(11)->L, POS(12)->O
c0c9: 0c 21 00 d2    IF REG(33)=0 GOTO _A           ; REG(33) = EXPLOSAO NO FUNDO DO BARRANCO FELICIDADE?
c0cd: 01 83          PRINT MSG(131)                 ; "A exploso provocou um desabamen- to que impede a nossa passagem nessa direo."
c0cf: 02             EXIT                           
c0d0: e6             _A:                            
c0d1: 10 0b d3       IF AT POS(11) GOTO _B          
c0d4: 08 01          REG(1)--                       ; REG(1) = POSICAO ATUAL DO JOGADOR
c0d6: 21             EXIT DESC                      
c0d7: e7             _B:                            
c0d8: 07 01          REG(1)++                       ; REG(1) = POSICAO ATUAL DO JOGADOR
c0da: 21             EXIT DESC                      

c0dc:             FUNC(31)
c0dc: 09 19 00       REG(25):=0                     ; REG(25) = CONTADOR AUXILIAR
c0df: 09 13 00       REG(19):=0                     ; REG(19) = QUANTIDADE DE OURO
c0e2: 09 0f 00       REG(15):=0                     ; REG(15) = QUANTIDADE DE DINHEIRO COM O JOGADOR EM Cz$ ??.000,00
c0e5: 15 13          BREAK OBJ(19)                  ; OBJ(19) = 'OURO'
c0e7: 15 06          BREAK OBJ(6)                   ; OBJ(6) = 'DINHEIRO'
c0e9: 13 33          GET OBJ(51)                    ; OBJ(51) = '^'
c0eb: 13 34          GET OBJ(52)                    ; OBJ(52) = '^'
c0ed: 09 14 01       REG(20):=1                     ; REG(20) = CARTEIRA VAZIA?
c0f0: 01 88          PRINT MSG(136)                 ; ""Todo mundo caladinho. Isto  um assalto.""
c0f2: 24 05          PAUSE 5                        
c0f4: 01 89          PRINT MSG(137)                 ; CLS; "Deu pra sentir, no ?"
c0f6: 02             EXIT                           

c0f8:             FUNC(32)
c0f8: 26 02          OBJ(EVID):=PARAM(2)            
c0fa: 28 12 d2       IF OBJ(EVID)=OBJ(18) GOTO _A   ; OBJ(18) = 'DIVIDA'
c0fd: 28 07 d3       IF OBJ(EVID)=OBJ(7) GOTO _B    ; OBJ(7) = 'MEDICO'
c100: 28 0d d5       IF OBJ(EVID)=OBJ(13) GOTO _D   ; OBJ(13) = 'DELEGADO'
c103: 28 08 d6       IF OBJ(EVID)=OBJ(8) GOTO _E    ; OBJ(8) = 'CHEFE'
c106: 28 0a d6       IF OBJ(EVID)=OBJ(10) GOTO _E   ; OBJ(10) = 'GUARDA'
c109: 28 10 d6       IF OBJ(EVID)=OBJ(16) GOTO _E   ; OBJ(16) = 'DONO'
c10c: 28 16 d7       IF OBJ(EVID)=OBJ(22) GOTO _F   ; OBJ(22) = 'JOAO'
c10f: 28 0b d8       IF OBJ(EVID)=OBJ(11) GOTO _G   ; OBJ(11) = 'ALEMAO'
c112: 28 11 d9       IF OBJ(EVID)=OBJ(17) GOTO _H   ; OBJ(17) = 'GERENTE'
c115: 28 0c da       IF OBJ(EVID)=OBJ(12) GOTO _I   ; OBJ(12) = 'TELEFONISTA'
c118: 28 0f db       IF OBJ(EVID)=OBJ(15) GOTO _J   ; OBJ(15) = 'GARIMPEIRO'
c11b: 28 0e d2       IF OBJ(EVID)=OBJ(14) GOTO _A   ; OBJ(14) = 'BOCA'
c11e: 01 52          PRINT MSG(82)                  ; ""Eu no sei nada sobre isso.""
c120: 02             EXIT                           
c121: e6             _A:                            
c122: 01 95          PRINT MSG(149)                 ; ""Eu no sei nada, no vi nada e no falo nada.""
c124: 02             EXIT                           
c125: e7             _B:                            
c126: 01 94          PRINT MSG(148)                 ; ""Ele  um charme, no ?""
c128: 02             EXIT                           
c129: e9             _D:                            
c12a: 01 70          PRINT MSG(112)                 ; ""Dizem que ele 'fica cego' por Cz$ 10.000.000,00""
c12c: 02             EXIT                           
c12d: ea             _E:                            
c12e: 01 97          PRINT MSG(151)                 ; ""Ele  um tremendo chato.""
c130: 02             EXIT                           
c131: eb             _F:                            
c132: 01 98          PRINT MSG(152)                 ; ""Dizem que foi assassinado e jo- gado num poo artesiano, mas eu acho que ele fugiu de Serra Pelada levan- do muito ouro.""
c134: 02             EXIT                           
c135: ec             _G:                            
c136: 01 99          PRINT MSG(153)                 ; ""Ele  um beberro. Vive bbado e serve o pior almoo de Serra Pelada.""
c138: 02             EXIT                           
c139: ed             _H:                            
c13a: 01 9a          PRINT MSG(154)                 ; ""Ele no  de muita conversa, mas gosta de uma boa fofoca.""
c13c: 02             EXIT                           
c13d: ee             _I:                            
c13e: 01 a1          PRINT MSG(161)                 ; "Isto  algum tipo de brincadeira?"
c140: 02             EXIT
c141: ef             _J:                            
c142: 01 a0          PRINT MSG(160)                 ; ""Eu no sei nada sobre ele.""
c144: 02             EXIT                           

c146:             FUNC(33)
c146: 26 02          OBJ(EVID):=PARAM(2)            
c148: 28 16 d2       IF OBJ(EVID)=OBJ(22) GOTO _A   ; OBJ(22) = 'JOAO'
c14b: 28 07 d3       IF OBJ(EVID)=OBJ(7) GOTO _B    ; OBJ(7) = 'MEDICO'
c14e: 28 08 d4       IF OBJ(EVID)=OBJ(8) GOTO _C    ; OBJ(8) = 'CHEFE'
c151: 28 09 d5       IF OBJ(EVID)=OBJ(9) GOTO _D    ; OBJ(9) = 'VELHO'
c154: 28 0a d6       IF OBJ(EVID)=OBJ(10) GOTO _E   ; OBJ(10) = 'GUARDA'
c157: 28 0b d7       IF OBJ(EVID)=OBJ(11) GOTO _F   ; OBJ(11) = 'ALEMAO'
c15a: 28 0c d8       IF OBJ(EVID)=OBJ(12) GOTO _G   ; OBJ(12) = 'TELEFONISTA'
c15d: 28 0d d9       IF OBJ(EVID)=OBJ(13) GOTO _H   ; OBJ(13) = 'DELEGADO'
c160: 28 0f d4       IF OBJ(EVID)=OBJ(15) GOTO _C   ; OBJ(15) = 'GARIMPEIRO'
c163: 28 11 d9       IF OBJ(EVID)=OBJ(17) GOTO _H   ; OBJ(17) = 'GERENTE'
c166: 28 10 d6       IF OBJ(EVID)=OBJ(16) GOTO _E   ; OBJ(16) = 'DONO'
c169: 28 0e da       IF OBJ(EVID)=OBJ(14) GOTO _I   ; OBJ(14) = 'BOCA'
c16c: 01 52          PRINT MSG(82)                  ; ""Eu no sei nada sobre isso.""
c16e: 02             EXIT                           
c16f: e6             _A:                            
c170: 01 58          PRINT MSG(88)                  ; ""O Joo era um sujeito muito cal- mo. Eu ainda no entendo o seu desa- parecimento.""
c172: 02             EXIT                           
c173: e7             _B:                            
c174: 01 a1          PRINT MSG(161)                 ; "Isto  algum tipo de brincadeira?"
c176: 02             EXIT                           
c177: e8             _C:                            
c178: 01 a0          PRINT MSG(160)                 ; ""Eu no sei nada sobre ele.""
c17a: 02             EXIT                           
c17b: e9             _D:                            
c17c: 01 a6          PRINT MSG(166)                 ; ""Foi meu paciente. J faz algum tempo que no o vejo.""
c17e: 02             EXIT                           
c17f: ea             _E:                            
c180: 01 9e          PRINT MSG(158)                 ; ""No posso dizer nada sobre ele, pois mal o conheo.""
c182: 02             EXIT                           
c183: eb             _F:                            
c184: 01 a2          PRINT MSG(162)                 ; ""Ele  meu amigo h muito tempo.""
c186: 02             EXIT                           
c187: ec             _G:                            
c188: 01 ad          PRINT MSG(173)                 ; ""Ela  uma fofoqueira que sabe da vida de todo mundo.""
c18a: 02             EXIT                           
c18b: ed             _H:                            
c18c: 01 ab          PRINT MSG(171)                 ; "" um excelente companheiro.""
c18e: 02             EXIT                           
c18f: ee             _I:                            
c190: 01 95          PRINT MSG(149)                 ; ""Eu no sei nada, no vi nada e no falo nada.""
c192: 02             EXIT                           

c194:             FUNC(34)
c194: 26 02          OBJ(EVID):=PARAM(2)            
c196: 28 12 d2       IF OBJ(EVID)=OBJ(18) GOTO _A   ; OBJ(18) = 'DIVIDA'
c199: 28 07 d3       IF OBJ(EVID)=OBJ(7) GOTO _B    ; OBJ(7) = 'MEDICO'
c19c: 28 08 d4       IF OBJ(EVID)=OBJ(8) GOTO _C    ; OBJ(8) = 'CHEFE'
c19f: 28 09 d5       IF OBJ(EVID)=OBJ(9) GOTO _D    ; OBJ(9) = 'VELHO'
c1a2: 28 0a d6       IF OBJ(EVID)=OBJ(10) GOTO _E   ; OBJ(10) = 'GUARDA'
c1a5: 28 0b d7       IF OBJ(EVID)=OBJ(11) GOTO _F   ; OBJ(11) = 'ALEMAO'
c1a8: 28 0c d8       IF OBJ(EVID)=OBJ(12) GOTO _G   ; OBJ(12) = 'TELEFONISTA'
c1ab: 28 0d d9       IF OBJ(EVID)=OBJ(13) GOTO _H   ; OBJ(13) = 'DELEGADO'
c1ae: 28 0f da       IF OBJ(EVID)=OBJ(15) GOTO _I   ; OBJ(15) = 'GARIMPEIRO'
c1b1: 28 11 d6       IF OBJ(EVID)=OBJ(17) GOTO _E   ; OBJ(17) = 'GERENTE'
c1b4: 28 10 d7       IF OBJ(EVID)=OBJ(16) GOTO _F   ; OBJ(16) = 'DONO'
c1b7: 28 0e db       IF OBJ(EVID)=OBJ(14) GOTO _J   ; OBJ(14) = 'BOCA'
c1ba: 28 16 da       IF OBJ(EVID)=OBJ(22) GOTO _I   ; OBJ(22) = 'JOAO'
c1bd: 01 52          PRINT MSG(82)                  ; ""Eu no sei nada sobre isso.""
c1bf: 02             EXIT                           
c1c0: e6             _A:                            
c1c1: 01 55          PRINT MSG(85)                  ; ""Eu s queria pr as minhas mos numa pedra daquelas.""
c1c3: 02             EXIT                           
c1c4: e7             _B:                            
c1c5: 01 9c          PRINT MSG(156)                 ; ""Aquele aogueiro...""
c1c7: 02             EXIT                           
c1c8: e8             _C:                            
c1c9: 01 a1          PRINT MSG(161)                 ; "Isto  algum tipo de brincadeira?"
c1cb: 02             EXIT
c1cc: e9             _D:                            
c1cd: 01 a7          PRINT MSG(167)                 ; "" o maior trambiqueiro de Serra Pelada.""
c1cf: 02             EXIT                           
c1d0: ea             _E:                            
c1d1: 01 9e          PRINT MSG(158)                 ; ""No posso dizer nada sobre ele, pois mal o conheo.""
c1d3: 02             EXIT                           
c1d4: eb             _F:                            
c1d5: 01 a0          PRINT MSG(160)                 ; ""Eu no sei nada sobre ele.""
c1d7: 02             EXIT                           
c1d8: ec             _G:                            
c1d9: 01 ad          PRINT MSG(173)                 ; ""Ela  uma fofoqueira que sabe da vida de todo mundo.""
c1db: 02             EXIT                           
c1dc: ed             _H:                            
c1dd: 01 95          PRINT MSG(149)                 ; ""Eu no sei nada, no vi nada e no falo nada.""
c1df: 02             EXIT                           
c1e0: ee             _I:                            
c1e1: 01 ab          PRINT MSG(171)                 ; "" um excelente companheiro.""
c1e3: 02             EXIT                           
c1e4: ef             _J:                            
c1e5: 01 b1          PRINT MSG(177)                 ; ""Se este bandido aparecer no ga- rimpo eu o mato.""
c1e7: 02             EXIT                           

c1e9:             FUNC(35)
c1e9: 26 02          OBJ(EVID):=PARAM(2)            
c1eb: 28 12 d2       IF OBJ(EVID)=OBJ(18) GOTO _A   ; OBJ(18) = 'DIVIDA'
c1ee: 28 07 d3       IF OBJ(EVID)=OBJ(7) GOTO _B    ; OBJ(7) = 'MEDICO'
c1f1: 28 08 d4       IF OBJ(EVID)=OBJ(8) GOTO _C    ; OBJ(8) = 'CHEFE'
c1f4: 28 09 d5       IF OBJ(EVID)=OBJ(9) GOTO _D    ; OBJ(9) = 'VELHO'
c1f7: 28 0a d6       IF OBJ(EVID)=OBJ(10) GOTO _E   ; OBJ(10) = 'GUARDA'
c1fa: 28 0b d7       IF OBJ(EVID)=OBJ(11) GOTO _F   ; OBJ(11) = 'ALEMAO'
c1fd: 28 0c d8       IF OBJ(EVID)=OBJ(12) GOTO _G   ; OBJ(12) = 'TELEFONISTA'
c200: 28 0d d9       IF OBJ(EVID)=OBJ(13) GOTO _H   ; OBJ(13) = 'DELEGADO'
c203: 28 0f d7       IF OBJ(EVID)=OBJ(15) GOTO _F   ; OBJ(15) = 'GARIMPEIRO'
c206: 28 11 d6       IF OBJ(EVID)=OBJ(17) GOTO _E   ; OBJ(17) = 'GERENTE'
c209: 28 10 d6       IF OBJ(EVID)=OBJ(16) GOTO _E   ; OBJ(16) = 'DONO'
c20c: 28 0e da       IF OBJ(EVID)=OBJ(14) GOTO _I   ; OBJ(14) = 'BOCA'
c20f: 28 16 d7       IF OBJ(EVID)=OBJ(22) GOTO _F   ; OBJ(22) = 'JOAO'
c212: 01 52          PRINT MSG(82)                  ; ""Eu no sei nada sobre isso.""
c214: 02             EXIT                           
c215: e6             _A:                            
c216: 01 54          PRINT MSG(84)                  ; ""Eu vi a pepita com o Joo. Puxa, como ela era grande.""
c218: 02             EXIT                           
c219: e7             _B:                            
c21a: 01 9d          PRINT MSG(157)                 ; ""O Doutor  um homem bom. Ele me ajudou muito quando eu fiquei doen- te.""
c21c: 02             EXIT                           
c21d: e8             _C:                            
c21e: 01 a2          PRINT MSG(162)                 ; ""Ele  meu amigo h muito tempo.""
c220: 02             EXIT                           
c221: e9             _D:                            
c222: 01 a1          PRINT MSG(161)                 ; "Isto  algum tipo de brincadeira?"
c224: 02             EXIT                           
c225: ea             _E:                            
c226: 01 a0          PRINT MSG(160)                 ; ""Eu no sei nada sobre ele.""
c228: 02             EXIT                           
c229: eb             _F:                            
c22a: 01 9e          PRINT MSG(158)                 ; ""No posso dizer nada sobre ele, pois mal o conheo.""
c22c: 02             EXIT                           
c22d: ec             _G:                            
c22e: 01 ad          PRINT MSG(173)                 ; ""Ela  uma fofoqueira que sabe da vida de todo mundo.""
c230: 02             EXIT                           
c231: ed             _H:                            
c232: 01 af          PRINT MSG(175)                 ; "" um corrupto...""
c234: 02             EXIT                           
c235: ee             _I:                            
c236: 01 95          PRINT MSG(149)                 ; ""Eu no sei nada, no vi nada e no falo nada.""
c238: 02             EXIT                           

c23a:             FUNC(36)
c23a: 26 02          OBJ(EVID):=PARAM(2)            
c23c: 28 0d d2       IF OBJ(EVID)=OBJ(13) GOTO _A   ; OBJ(13) = 'DELEGADO'
c23f: 28 07 d3       IF OBJ(EVID)=OBJ(7) GOTO _B    ; OBJ(7) = 'MEDICO'
c242: 28 08 d4       IF OBJ(EVID)=OBJ(8) GOTO _C    ; OBJ(8) = 'CHEFE'
c245: 28 09 d4       IF OBJ(EVID)=OBJ(9) GOTO _C    ; OBJ(9) = 'VELHO'
c248: 28 0a d5       IF OBJ(EVID)=OBJ(10) GOTO _D   ; OBJ(10) = 'GUARDA'
c24b: 28 0b d4       IF OBJ(EVID)=OBJ(11) GOTO _C   ; OBJ(11) = 'ALEMAO'
c24e: 28 0c d6       IF OBJ(EVID)=OBJ(12) GOTO _E   ; OBJ(12) = 'TELEFONISTA'
c251: 28 0d d3       IF OBJ(EVID)=OBJ(13) GOTO _B   ; OBJ(13) = 'DELEGADO'
c254: 28 0f d3       IF OBJ(EVID)=OBJ(15) GOTO _B   ; OBJ(15) = 'GARIMPEIRO'
c257: 28 11 d7       IF OBJ(EVID)=OBJ(17) GOTO _F   ; OBJ(17) = 'GERENTE'
c25a: 28 10 d3       IF OBJ(EVID)=OBJ(16) GOTO _B   ; OBJ(16) = 'DONO'
c25d: 28 0e d8       IF OBJ(EVID)=OBJ(14) GOTO _G   ; OBJ(14) = 'BOCA'
c260: 28 16 d4       IF OBJ(EVID)=OBJ(22) GOTO _C   ; OBJ(22) = 'JOAO'
c263: 01 52          PRINT MSG(82)                  ; ""Eu no sei nada sobre isso.""
c265: 02             EXIT                           
c266: e6             _A:                            
c267: 01 71          PRINT MSG(113)                 ; ""Dizem que ele tem negcios com o BCA DE TRARA.""
c269: 02             EXIT                           
c26a: e7             _B:                            
c26b: 01 9e          PRINT MSG(158)                 ; ""No posso dizer nada sobre ele, pois mal o conheo.""
c26d: 02             EXIT                           
c26e: e8             _C:                            
c26f: 01 a0          PRINT MSG(160)                 ; ""Eu no sei nada sobre ele.""
c271: 02             EXIT                           
c272: e9             _D:                            
c273: 01 a1          PRINT MSG(161)                 ; "Isto  algum tipo de brincadeira?"
c275: 02             EXIT                           
c276: ea             _E:                            
c277: 01 ad          PRINT MSG(173)                 ; ""Ela  uma fofoqueira que sabe da vida de todo mundo.""
c279: 02             EXIT                           
c27a: eb             _F:                            
c27b: 01 a5          PRINT MSG(165)                 ; ""Ele  um excelente patro.""
c27d: 02             EXIT                           
c27e: ec             _G:                            
c27f: 01 b2          PRINT MSG(178)                 ; "" o maior bandido de Serra Pela- da.""
c281: 02             EXIT                           

c283:             FUNC(37)
c283: 26 02          OBJ(EVID):=PARAM(2)            
c285: 28 16 d2       IF OBJ(EVID)=OBJ(22) GOTO _A   ; OBJ(22) = 'JOAO'
c288: 28 07 d3       IF OBJ(EVID)=OBJ(7) GOTO _B    ; OBJ(7) = 'MEDICO'
c28b: 28 08 d4       IF OBJ(EVID)=OBJ(8) GOTO _C    ; OBJ(8) = 'CHEFE'
c28e: 28 09 d5       IF OBJ(EVID)=OBJ(9) GOTO _D    ; OBJ(9) = 'VELHO'
c291: 28 0b d6       IF OBJ(EVID)=OBJ(11) GOTO _E   ; OBJ(11) = 'ALEMAO'
c294: 28 0c d7       IF OBJ(EVID)=OBJ(12) GOTO _F   ; OBJ(12) = 'TELEFONISTA'
c297: 28 0d d8       IF OBJ(EVID)=OBJ(13) GOTO _G   ; OBJ(13) = 'DELEGADO'
c29a: 28 0f d9       IF OBJ(EVID)=OBJ(15) GOTO _H   ; OBJ(15) = 'GARIMPEIRO'
c29d: 28 11 d4       IF OBJ(EVID)=OBJ(17) GOTO _C   ; OBJ(17) = 'GERENTE'
c2a0: 28 10 da       IF OBJ(EVID)=OBJ(16) GOTO _I   ; OBJ(16) = 'DONO'
c2a3: 28 0e db       IF OBJ(EVID)=OBJ(14) GOTO _J   ; OBJ(14) = 'BOCA'
c2a6: 01 52          PRINT MSG(82)                  ; ""Eu no sei nada sobre isso.""
c2a8: 02             EXIT                           
c2a9: e6             _A:                            
c2aa: 01 57          PRINT MSG(87)                  ; ""Ele era muito gozador. O seu ga- to chamava-se ALICATE.""
c2ac: 02             EXIT                           
c2ad: e7             _B:                            
c2ae: 01 9f          PRINT MSG(159)                 ; "" um bom amigo. Ele vem sempre aqui almoar.""
c2b0: 02             EXIT                           
c2b1: e8             _C:                            
c2b2: 01 9e          PRINT MSG(158)                 ; ""No posso dizer nada sobre ele, pois mal o conheo.""
c2b4: 02             EXIT                           
c2b5: e9             _D:                            
c2b6: 01 a8          PRINT MSG(168)                 ; ""Aquele canalha...""
c2b8: 02             EXIT                           
c2b9: ea             _E:                            
c2ba: 01 a1          PRINT MSG(161)                 ; "Isto  algum tipo de brincadeira?"
c2bc: 02             EXIT                           
c2bd: eb             _F:                            
c2be: 01 ad          PRINT MSG(173)                 ; ""Ela  uma fofoqueira que sabe da vida de todo mundo.""
c2c0: 02             EXIT                           
c2c1: ec             _G:                            
c2c2: 01 a0          PRINT MSG(160)                 ; ""Eu no sei nada sobre ele.""
c2c4: 02             EXIT                           
c2c5: ed             _H:                            
c2c6: 01 a4          PRINT MSG(164)                 ; "" um bom fregus.""
c2c8: 02             EXIT                           
c2c9: ee             _I:                            
c2ca: 01 ab          PRINT MSG(171)                 ; "" um excelente companheiro.""
c2cc: 02             EXIT
c2cd: ef             _J:                            
c2ce: 01 95          PRINT MSG(149)                 ; ""Eu no sei nada, no vi nada e no falo nada.""
c2d0: 02             EXIT                           

c2d2:             FUNC(38)
c2d2: 26 02          OBJ(EVID):=PARAM(2)            
c2d4: 28 16 d2       IF OBJ(EVID)=OBJ(22) GOTO _A   ; OBJ(22) = 'JOAO'
c2d7: 28 0e d3       IF OBJ(EVID)=OBJ(14) GOTO _B   ; OBJ(14) = 'BOCA'
c2da: 28 07 d4       IF OBJ(EVID)=OBJ(7) GOTO _C    ; OBJ(7) = 'MEDICO'
c2dd: 28 08 d5       IF OBJ(EVID)=OBJ(8) GOTO _D    ; OBJ(8) = 'CHEFE'
c2e0: 28 09 d6       IF OBJ(EVID)=OBJ(9) GOTO _E    ; OBJ(9) = 'VELHO'
c2e3: 28 0a d7       IF OBJ(EVID)=OBJ(10) GOTO _F   ; OBJ(10) = 'GUARDA'
c2e6: 28 0b d8       IF OBJ(EVID)=OBJ(11) GOTO _G   ; OBJ(11) = 'ALEMAO'
c2e9: 28 0c d9       IF OBJ(EVID)=OBJ(12) GOTO _H   ; OBJ(12) = 'TELEFONISTA'
c2ec: 28 0d da       IF OBJ(EVID)=OBJ(13) GOTO _I   ; OBJ(13) = 'DELEGADO'
c2ef: 28 0f d4       IF OBJ(EVID)=OBJ(15) GOTO _C   ; OBJ(15) = 'GARIMPEIRO'
c2f2: 28 11 d4       IF OBJ(EVID)=OBJ(17) GOTO _C   ; OBJ(17) = 'GERENTE'
c2f5: 28 10 db       IF OBJ(EVID)=OBJ(16) GOTO _J   ; OBJ(16) = 'DONO'
c2f8: 01 52          PRINT MSG(82)                  ; ""Eu no sei nada sobre isso.""
c2fa: 02             EXIT                           
c2fb: e6             _A:                            
c2fc: 01 59          PRINT MSG(89)                  ; ""Estamos investigando, mas at agora a nica pista  o seu caminho TALHADEIRA.""
c2fe: 02             EXIT                           
c2ff: e7             _B:                            
c300: 01 9b          PRINT MSG(155)                 ; ""Aquele bandido vai pagar muito caro pelos seus crimes.""
c302: 02             EXIT                           
c303: e8             _C:                            
c304: 01 9e          PRINT MSG(158)                 ; ""No posso dizer nada sobre ele, pois mal o conheo.""
c306: 02             EXIT                           
c307: e9             _D:                            
c308: 01 a3          PRINT MSG(163)                 ; ""Ele j foi scio do Joo num dos barrancos. Acho que era o MARTELADA.""
c30a: 02             EXIT                           
c30b: ea             _E:                            
c30c: 01 a9          PRINT MSG(169)                 ; ""O que sei  que ele andou dando uns calotes no ALEMO.""
c30e: 02             EXIT                           
c30f: eb             _F:                            
c310: 01 ab          PRINT MSG(171)                 ; "" um excelente companheiro.""
c312: 02             EXIT                           
c313: ec             _G:                            
c314: 01 ac          PRINT MSG(172)                 ; ""Ele  o dono do maior ponto de fofocas de Serra Pelada.""
c316: 02             EXIT                           
c317: ed             _H:                            
c318: 01 ad          PRINT MSG(173)                 ; ""Ela  uma fofoqueira que sabe da vida de todo mundo.""
c31a: 02             EXIT                           
c31b: ee             _I:                            
c31c: 01 a1          PRINT MSG(161)                 ; "Isto  algum tipo de brincadeira?"
c31e: 02             EXIT                           
c31f: ef             _J:                            
c320: 01 a2          PRINT MSG(162)                 ; ""Ele  meu amigo h muito tempo.""
c322: 02             EXIT                           

c324:             FUNC(39)
c324: 26 02          OBJ(EVID):=PARAM(2)            
c326: 28 07 d2       IF OBJ(EVID)=OBJ(7) GOTO _A    ; OBJ(7) = 'MEDICO'
c329: 28 08 d3       IF OBJ(EVID)=OBJ(8) GOTO _B    ; OBJ(8) = 'CHEFE'
c32c: 28 09 d4       IF OBJ(EVID)=OBJ(9) GOTO _C    ; OBJ(9) = 'VELHO'
c32f: 28 0a d2       IF OBJ(EVID)=OBJ(10) GOTO _A   ; OBJ(10) = 'GUARDA'
c332: 28 0b d5       IF OBJ(EVID)=OBJ(11) GOTO _D   ; OBJ(11) = 'ALEMAO'
c335: 28 0c d6       IF OBJ(EVID)=OBJ(12) GOTO _E   ; OBJ(12) = 'TELEFONISTA'
c338: 28 0d d2       IF OBJ(EVID)=OBJ(13) GOTO _A   ; OBJ(13) = 'DELEGADO'
c33b: 28 0f d5       IF OBJ(EVID)=OBJ(15) GOTO _D   ; OBJ(15) = 'GARIMPEIRO'
c33e: 28 11 d7       IF OBJ(EVID)=OBJ(17) GOTO _F   ; OBJ(17) = 'GERENTE'
c341: 28 10 d8       IF OBJ(EVID)=OBJ(16) GOTO _G   ; OBJ(16) = 'DONO'
c344: 28 0e d2       IF OBJ(EVID)=OBJ(14) GOTO _A   ; OBJ(14) = 'BOCA'
c347: 28 16 d2       IF OBJ(EVID)=OBJ(22) GOTO _A   ; OBJ(22) = 'JOAO'
c34a: 01 52          PRINT MSG(82)                  ; ""Eu no sei nada sobre isso.""
c34c: 02             EXIT                           
c34d: e6             _A:                            
c34e: 01 9e          PRINT MSG(158)                 ; ""No posso dizer nada sobre ele, pois mal o conheo.""
c350: 02             EXIT                           
c351: e7             _B:                            
c352: 01 a4          PRINT MSG(164)                 ; "" um bom fregus.""
c354: 02             EXIT                           
c355: e8             _C:
c356: 01 aa          PRINT MSG(170)                 ; ""Cuidado com ele.""
c358: 02             EXIT                           
c359: e9             _D:                            
c35a: 01 a4          PRINT MSG(164)                 ; "" um bom fregus.""
c35c: 02             EXIT                           
c35d: ea             _E:                            
c35e: 01 ad          PRINT MSG(173)                 ; ""Ela  uma fofoqueira que sabe da vida de todo mundo.""
c360: 02             EXIT                           
c361: eb             _F:                            
c362: 01 b0          PRINT MSG(176)                 ; ""O homem no libera emprstimo de modo algum. Como se o cofre da CAIXA no estivesse abarrotado de grana.""
c364: 02             EXIT                           
c365: ec             _G:                            
c366: 01 a1          PRINT MSG(161)                 ; "Isto  algum tipo de brincadeira?"
c368: 02             EXIT                           

c36a:             FUNC(40)
c36a: 28 0f d2       IF OBJ(EVID)=OBJ(15) GOTO _A   ; OBJ(15) = 'GARIMPEIRO'
c36d: 16 29          EXEC FUNC(41)                  
c36f: e6             _A:                            
c370: 26 02          OBJ(EVID):=PARAM(2)            
c372: 28 07 d3       IF OBJ(EVID)=OBJ(7) GOTO _B    ; OBJ(7) = 'MEDICO'
c375: 28 08 d4       IF OBJ(EVID)=OBJ(8) GOTO _C    ; OBJ(8) = 'CHEFE'
c378: 28 09 d3       IF OBJ(EVID)=OBJ(9) GOTO _B    ; OBJ(9) = 'VELHO'
c37b: 28 0a d3       IF OBJ(EVID)=OBJ(10) GOTO _B   ; OBJ(10) = 'GUARDA'
c37e: 28 0b d5       IF OBJ(EVID)=OBJ(11) GOTO _D   ; OBJ(11) = 'ALEMAO'
c381: 28 0c d6       IF OBJ(EVID)=OBJ(12) GOTO _E   ; OBJ(12) = 'TELEFONISTA'
c384: 28 0d d7       IF OBJ(EVID)=OBJ(13) GOTO _F   ; OBJ(13) = 'DELEGADO'
c387: 28 0f d8       IF OBJ(EVID)=OBJ(15) GOTO _G   ; OBJ(15) = 'GARIMPEIRO'
c38a: 28 11 d5       IF OBJ(EVID)=OBJ(17) GOTO _D   ; OBJ(17) = 'GERENTE'
c38d: 28 10 d3       IF OBJ(EVID)=OBJ(16) GOTO _B   ; OBJ(16) = 'DONO'
c390: 28 0e d7       IF OBJ(EVID)=OBJ(14) GOTO _F   ; OBJ(14) = 'BOCA'
c393: 28 16 d5       IF OBJ(EVID)=OBJ(22) GOTO _D   ; OBJ(22) = 'JOAO'
c396: 01 52          PRINT MSG(82)                  ; ""Eu no sei nada sobre isso.""
c398: 02             EXIT                           
c399: e7             _B:                            
c39a: 01 a0          PRINT MSG(160)                 ; ""Eu no sei nada sobre ele.""
c39c: 02             EXIT
c39d: e8             _C:                            
c39e: 01 a5          PRINT MSG(165)                 ; ""Ele  um excelente patro.""
c3a0: 02             EXIT                           
c3a1: e9             _D:                            
c3a2: 01 9e          PRINT MSG(158)                 ; ""No posso dizer nada sobre ele, pois mal o conheo.""
c3a4: 02             EXIT                           
c3a5: ea             _E:                            
c3a6: 01 ad          PRINT MSG(173)                 ; ""Ela  uma fofoqueira que sabe da vida de todo mundo.""
c3a8: 02             EXIT                           
c3a9: eb             _F:                            
c3aa: 01 95          PRINT MSG(149)                 ; ""Eu no sei nada, no vi nada e no falo nada.""
c3ac: 02             EXIT                           
c3ad: ec             _G:                            
c3ae: 01 a1          PRINT MSG(161)                 ; "Isto  algum tipo de brincadeira?"
c3b0: 02             EXIT                           

c3b2:             FUNC(41)
c3b2: 26 02          OBJ(EVID):=PARAM(2)            
c3b4: 28 12 d2       IF OBJ(EVID)=OBJ(18) GOTO _A   ; OBJ(18) = 'DIVIDA'
c3b7: 28 07 d3       IF OBJ(EVID)=OBJ(7) GOTO _B    ; OBJ(7) = 'MEDICO'
c3ba: 28 08 d4       IF OBJ(EVID)=OBJ(8) GOTO _C    ; OBJ(8) = 'CHEFE'
c3bd: 28 09 d3       IF OBJ(EVID)=OBJ(9) GOTO _B    ; OBJ(9) = 'VELHO'
c3c0: 28 0a d5       IF OBJ(EVID)=OBJ(10) GOTO _D   ; OBJ(10) = 'GUARDA'
c3c3: 28 0b d6       IF OBJ(EVID)=OBJ(11) GOTO _E   ; OBJ(11) = 'ALEMAO'
c3c6: 28 0c d7       IF OBJ(EVID)=OBJ(12) GOTO _F   ; OBJ(12) = 'TELEFONISTA'
c3c9: 28 0d d6       IF OBJ(EVID)=OBJ(13) GOTO _E   ; OBJ(13) = 'DELEGADO'
c3cc: 28 0f d3       IF OBJ(EVID)=OBJ(15) GOTO _B   ; OBJ(15) = 'GARIMPEIRO'
c3cf: 28 11 d8       IF OBJ(EVID)=OBJ(17) GOTO _G   ; OBJ(17) = 'GERENTE'
c3d2: 28 10 d6       IF OBJ(EVID)=OBJ(16) GOTO _E   ; OBJ(16) = 'DONO'
c3d5: 28 0e d9       IF OBJ(EVID)=OBJ(14) GOTO _H   ; OBJ(14) = 'BOCA'
c3d8: 28 16 d6       IF OBJ(EVID)=OBJ(22) GOTO _E   ; OBJ(22) = 'JOAO'
c3db: 01 52          PRINT MSG(82)                  ; ""Eu no sei nada sobre isso.""
c3dd: 02             EXIT                           
c3de: e6             _A:                            
c3df: 01 53          PRINT MSG(83)                  ; ""A nica dvida que eu conheo  a dos meus clientes.""
c3e1: 02             EXIT                           
c3e2: e7             _B:
c3e3: 01 a0          PRINT MSG(160)                 ; ""Eu no sei nada sobre ele.""
c3e5: 02             EXIT                           
c3e6: e8             _C:                            
c3e7: 01 a2          PRINT MSG(162)                 ; ""Ele  meu amigo h muito tempo.""
c3e9: 02             EXIT                           
c3ea: e9             _D:                            
c3eb: 01 ab          PRINT MSG(171)                 ; "" um excelente companheiro.""
c3ed: 02             EXIT                           
c3ee: ea             _E:                            
c3ef: 01 9e          PRINT MSG(158)                 ; ""No posso dizer nada sobre ele, pois mal o conheo.""
c3f1: 02             EXIT                           
c3f2: eb             _F:                            
c3f3: 01 ae          PRINT MSG(174)                 ; ""Ela  uma grande mulher, honesta e trabalhadeira.""
c3f5: 02             EXIT                           
c3f6: ec             _G:                            
c3f7: 01 a1          PRINT MSG(161)                 ; "Isto  algum tipo de brincadeira?"
c3f9: 02             EXIT                           
c3fa: ed             _H:                            
c3fb: 01 b2          PRINT MSG(178)                 ; "" o maior bandido de Serra Pela- da.""
c3fd: 02             EXIT                           

c3ff:             FUNC(42)                      ->  MOVIMENTO: POS(32)->N
c3ff: 09 01 1f       REG(1):=31                     ; REG(1) = POSICAO ATUAL DO JOGADOR
c402: 0d 72 00 d2    IF REG(114)>0 GOTO _A          ; POS de OBJ(14) = 'BOCA'
c406: 21             EXIT DESC                      
c407: e6             _A:                            
c408: 09 72 83       REG(114):=131                  ; POS de OBJ(14) = 'BOCA'
c40b: 0c 20 00 d3    IF REG(32)=0 GOTO _B           ; REG(32) = SITUACAO DO BOCA DE TRAIRA
c40f: 01 b4          PRINT MSG(180)                 ; "O nosso amigo BCA est nos con- vidando para um bate-papo amigvel."
c411: 02             EXIT                           
c412: e7             _B:                            
c413: 01 b5          PRINT MSG(181)                 ; "Estamos no esconderijo do BCA DE TRARA. Ele pergunta o que queremos."
c415: 02             EXIT                           



c418:  POS(1)   =  {                            L->POS(2)                }
c41c:  POS(2)   =  {                            L->POS(3),   O->POS(1)   }
c420:  POS(3)   =  {               S->POS(49),  L->POS(4),   O->POS(2)   }
c424:  POS(4)   =  {               S->POS(6),   L->POS(5),   O->POS(3)   }
c428:  POS(5)   =  {               S->POS(6),                O->POS(4)   }
c42c:  POS(6)   =  {  N->POS(5),   S->POS(7),                O->POS(4)   }
c430:  POS(7)   =  {  N->POS(6),   S->POS(8),                O->POS(45)  }
c434:  POS(8)   =  {  N->POS(7),   S->POS(9),                O->POS(10)  }
c438:  POS(9)   =  {  N->POS(8),                             O->POS(10)  }
c43c:  POS(10)  =  {  N->POS(8),                L->POS(9),   O->POS(21)  }
c440:  POS(11)  =  {                            L->FUNC(30)              }
c444:  POS(12)  =  {                            L->POS(13),  O->FUNC(30) }
c448:  POS(13)  =  {                            L->POS(14),  O->POS(12)  }
c44c:  POS(14)  =  {                            L->POS(15),  O->POS(13)  }
c450:  POS(15)  =  {                            L->POS(16),  O->POS(14)  }
c454:  POS(16)  =  {  N->POS(15),  S->POS(17)                            }
c458:  POS(17)  =  {  N->POS(16),  S->POS(18)                            }
c45c:  POS(18)  =  {  N->POS(17),  S->POS(19)                            }
c460:  POS(19)  =  {  N->POS(18),  S->POS(20)                            }
c464:  POS(20)  =  {                            L->POS(19)               }
c468:  POS(21)  =  {  N->POS(10),                            O->POS(22)  }
c46c:  POS(22)  =  {                            L->POS(21),  O->POS(23)  }
c470:  POS(23)  =  {  N->POS(25),               L->POS(22)               }
c474:  POS(24)  =  {                                                     }
c478:  POS(25)  =  {  N->POS(27),  S->POS(23)                            }
c47c:  POS(26)  =  {                                                     }
c480:  POS(27)  =  {  N->FUNC(29), S->POS(25),  L->POS(36)               }
c484:  POS(28)  =  {                                                     }
c488:  POS(29)  =  {                                                     }
c48c:  POS(30)  =  {                            L->POS(27),  O->POS(32)  }
c490:  POS(31)  =  {                                         O->POS(32)  }
c494:  POS(32)  =  {  N->FUNC(42), S->POS(33),  L->POS(30)               }
c498:  POS(33)  =  {  N->POS(32)                                         }
c49c:  POS(34)  =  {               S->POS(36)                            }
c4a0:  POS(35)  =  {                                                     }
c4a4:  POS(36)  =  {  N->POS(34),  S->POS(37),  L->POS(44),  O->POS(27)  }
c4a8:  POS(37)  =  {  N->POS(36),  S->POS(39)                            }
c4ac:  POS(38)  =  {                                                     }
c4b0:  POS(39)  =  {  N->POS(37),               L->POS(40)               }
c4b4:  POS(40)  =  {  N->POS(44),  S->POS(42),  L->POS(43)               }
c4b8:  POS(41)  =  {               S->POS(39)                            }
c4bc:  POS(42)  =  {  N->POS(40)                                         }
c4c0:  POS(43)  =  {  N->POS(40)                                         }
c4c4:  POS(44)  =  {  N->POS(48),  S->POS(40),  L->POS(45),  O->POS(36)  }
c4c8:  POS(45)  =  {  N->POS(46),               L->POS(7),   O->POS(44)  }
c4cc:  POS(46)  =  {               S->POS(45)                            }
c4d0:  POS(47)  =  {                                                     }
c4d4:  POS(48)  =  {               S->POS(44),               O->POS(49)  }
c4d8:  POS(49)  =  {  N->POS(3),                L->POS(48)               }
c4dc:  POS(50)  =  {                                                     }



c4e1:  OBJ(1)   = 'LOCAL'                               ->  default {                                                         }
c4e9:  OBJ(2)   = 'LAMPIO', 'LAMPIAO'     em POS(35)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE,           QUEBRE }
c4fb:  OBJ(3)   = 'SACOLA'                 com PLAYER   ->  default { PEGUE,          TROQUE, COMPRE, ROUBE                   }
c504:  OBJ(4)   = 'RELGIO', 'RELOGIO'     com PLAYER   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE,           QUEBRE }
c516:  OBJ(5)   = 'CARTEIRA'               com PLAYER   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE                   }
c521:  OBJ(6)   = 'DINHEIRO'                            ->  default { PEGUE, COLOQUE,                 ROUBE                   }
c52c:  OBJ(7)   = 'MDICO', 'MEDICO'       em POS(147)  ->  default {                                        PERGUNTE         }
c53c:  OBJ(8)   = 'CHEFE'                  em POS(142)  ->  default {                                        PERGUNTE         }
c544:  OBJ(9)   = 'VELHO'                  em POS(148)  ->  default {                                        PERGUNTE         }
c54c:  OBJ(10)  = 'GUARDA'                 em POS(150)  ->  default {                                        PERGUNTE         }
c555:  OBJ(11)  = 'ALEMO', 'ALEMAO'       em POS(138)  ->  default {                                        PERGUNTE         }
c565:  OBJ(12)  = 'TELEFONISTA'            em POS(128)  ->  default {                                        PERGUNTE         }
c573:  OBJ(13)  = 'DELEGADO'               em POS(126)  ->  default {                                        PERGUNTE         }
c57e:  OBJ(14)  = 'BCA', 'BOCA'           em POS(131)  ->  default {                                        PERGUNTE         }
c58a:  OBJ(15)  = 'GARIMPEIRO'             em POS(114)  ->  default {                                        PERGUNTE         }
c597:  OBJ(16)  = 'DONO'                   em POS(135)  ->  default {                                        PERGUNTE         }
c59e:  OBJ(17)  = 'GERENTE'                em POS(150)  ->  default {                                        PERGUNTE         }
c5a8:  OBJ(18)  = 'DVIDA', 'DIVIDA'                    ->  default { PEGUE, COLOQUE,                 ROUBE                   }
c5b8:  OBJ(19)  = 'OURO'                                ->  default { PEGUE, COLOQUE, TROQUE,         ROUBE                   }
c5bf:  OBJ(20)  = 'QUEROSENE'              em POS(35)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE                   }
c5cb:  OBJ(21)  = 'FSFORO', 'FSFOROS'    em POS(38)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE                   }
c5de:  OBJ(22)  = 'JOO', 'JOAO'                        ->  default {                                                         }
c5ea:  OBJ(23)  = 'GATO'                   em POS(24)   ->  default { PEGUE, COLOQUE                                          }
c5f1:  OBJ(24)  = 'PACOTE'                 em POS(50)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE                   }
c5fa:  OBJ(25)  = 'COFRE'                  em POS(50)   ->  default {                                                         }
c602:  OBJ(26)  = 'CONTA'                               ->  default {                                                         }
c60a:  OBJ(27)  = 'PICARETA'               em POS(35)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE,           QUEBRE }
c615:  OBJ(28)  = 'P', 'PA'               em POS(35)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE,           QUEBRE }
c61d:  OBJ(29)  = 'PENEIRA'                em POS(35)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE,           QUEBRE }
c627:  OBJ(30)  = 'BATIA', 'BATEIA'       em POS(35)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE,           QUEBRE }
c637:  OBJ(31)  = 'CAMINHO'                            ->  default {                                                         }
c642:  OBJ(32)  = 'ESCADA'                              ->  default { PEGUE,          TROQUE, COMPRE, ROUBE,           QUEBRE }
c64b:  OBJ(33)  = 'CORDA'                  em POS(22)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE                   }
c653:  OBJ(34)  = 'TELEFONE', 'FONE'       em POS(29)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE,           QUEBRE }
c663:  OBJ(35)  = 'MARTELO'                em POS(33)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE                   }
c66d:  OBJ(36)  = 'PNEU'                   em POS(24)   ->  default { PEGUE,          TROQUE, COMPRE, ROUBE                   }
c674:  OBJ(37)  = 'DINAMITE'               em POS(35)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE                   }
c67f:  OBJ(38)  = 'CHAVE'                  em POS(48)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE                   }
c687:  OBJ(39)  = 'MACACO'                 em POS(23)   ->  default { PEGUE,          TROQUE, COMPRE, ROUBE                   }
c690:  OBJ(40)  = 'CANO'                   em POS(39)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE                   }
c697:  OBJ(41)  = 'FACA'                   em POS(35)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE                   }
c69e:  OBJ(42)  = 'GASOLINA'                            ->  default {                                                         }
c6a9:  OBJ(43)  = 'GARRAFA'                em POS(38)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE,           QUEBRE }
c6b3:  OBJ(44)  = 'BALDE'                  em POS(43)   ->  default { PEGUE,          TROQUE, COMPRE, ROUBE                   }
c6bb:  OBJ(45)  = 'COPO'                   em POS(38)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE,           QUEBRE }
c6c2:  OBJ(46)  = 'REVLVER', 'REVOLVER'                ->  default {                                                         }
c6d6:  OBJ(47)  = 'PREGOS'                 em POS(35)   ->  default { PEGUE, COLOQUE, TROQUE, COMPRE, ROUBE                   }
c6df:  OBJ(48)  = 'CAIXOTE'                em POS(39)   ->  default { PEGUE,          TROQUE, COMPRE, ROUBE,           QUEBRE }
c6e9:  OBJ(49)  = 'TABOAS'                              ->  default { PEGUE,          TROQUE, COMPRE, ROUBE,           QUEBRE }
c6f2:  OBJ(50)  = 'BALAS'                               ->  default {                                                         }
c6fa:  OBJ(51)  = '^'                      com PLAYER   ->  default {                                                         }
c6fe:  OBJ(52)  = '^'                      com PLAYER   ->  default {                                                         }
c702:  OBJ(53)  = 'SALDO'                               ->  default {                                                         }



===============================================================
