Index du Forum
IDENTIFICATION SERVEUR : 51.77.218.217 - CLIENT : 3.233.215.231

 FAQFAQ   RechercherRechercher   Liste des MembresListe des Membres   Groupes d'utilisateursGroupes d'utilisateurs   S'enregistrerS'enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

La bête du Gévaudan ?
Aller à la page Précédente  1, 2
 
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> PROTECTION MALEFIQUE
Voir le sujet précédent :: Voir le sujet suivant  
Auteur Message
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Mar 18 Oct 2011, 22:29    Sujet du message: Répondre en citant

Code:

THE BEAUTIFUL 18-SEC LOAD ROUTINE



KBD EQU $C000
KBDSTROBE EQU $C010
SPKR EQU $C030
TXTCLR EQU $C050
TXTSET EQU $C051
RDBANK2 EQU $C080
WAIT EQU $FCA8
COUT EQU $FDED

         TYP   BIN
         ORG   $001700
         MX    %11

L1700    LDA   $B7EC      Track
         STA   $02
         LDA   $B7ED      Sector
         TAX
         LDA   L17EA,X      Interleaving
         STA   $03
         TAX
         LDA   $0200,X      ** WHY ?
         STA   $AE46

         LDA   $FC
         STA   $D2
         LDA   $B7F0      RAM pointer
         STA   $00
         LDA   $B7F1
         STA   $01

* Handle Track

         LDY   #$12
L1725    LDA   $C0EC
         BPL   L1725
         CMP   #$E4      *
         NOP
         BNE   L1725
L172F    LDA   $C0EC
         BPL   L172F
         ROL
         STA   $04
L1737    LDA   $C0EC
         BPL   L1737
         AND   $04
         CMP   $02      Right track?
         BEQ   L1747
L1742    DEY
         BNE   L1725
         SEC
         RTS

* Now handle sector

L1747    AND   $00
L1749    LDA   $C0EC
         BPL   L1749
         ROL
         STA   $04
L1751    LDA   $C0EC
         BPL   L1751
         AND   $04
         CMP   $03      Right sector?
         BNE   L1742
         CMP   $03

L175E    LDA   $C0EC
         BPL   L175E
         STA   $04      Checksum 1 - see below

         BIT   $AE46
         BPL   L1770

         LDA   $C0EC
         STA   L1B65+1      ** WHY ?
L1770    ASL   $FA
         LDA   $C0EC
         STA   L1B60+1      ** WHY ?

L1778    LDA   $C0EC
         BPL   L1778
         STA   $05      Checksum 2 - see below

         LDY   #$00
L1781    LDA   $C0EC      Read a nibble
         BPL   L1781
         TAX
         LDA   $BA00,X      Decode it
         STA   ($00),Y      Save it
         CMP   #$FF
         INY
         BNE   L1781

L1791    LDX   $C0EC      Read a nibble
         BPL   L1791
         LDA   $BA00,X      Decode it
         PHA         - push
         ASL   $D2      From $FC
         BCS   L17E5
L179E    INY
         BPL   L1791
         TSX         - pull
         TXA
         CLC
         ADC   #$2A      - add $2A
         STA   $07      - index 1
         CLC
         ADC   #$56      - add $56
         STA   $08      - index 2
         TAX
         LDY   #$00
L17B0    LDA   ($00),Y      Get nibble
         LSR   $0100,X
         ROL
         LSR   $0100,X
         ROL
         STA   ($00),Y      Save nibble
         DEX
         CPX   $07
         BNE   L17C3
         LDX   $08
L17C3    INY
         BNE   L17B0      Loop
         TYA         Y=A=00
L17C7    EOR   ($00),Y
         INY
         BNE   L17C7      Calc checksum

         PHA         Save checksum value

         LSR         And compare it
         ORA   #$AA      With the values read above
         CMP   $04
         BNE   L17E1
         PLA
         ORA   #$AA
         CMP   $05
         BNE   L17E2
         CLC

L17DC    LDX   $08
         TXS         Move stack pointer
         DEY         Y = $FF now
         RTS

L17E1    PLA         Error on checksum 1
L17E2    SEC         Error on checksum 2
         BCS   L17DC

L17E5    LDA   $C0EC
         BCS   L179E

* Interleaving

L17EA    HEX   060C0F0003070A0D100104080B0E11020509

         DB    $A0
         DB    $A0
         DB    $00
         DB    $00

L1800    DB    $00
         DB    $93
         DB    $94
         DB    $81
         DB    $90
L1805    DB    $00
         DB    $0D
         DB    $1A
         DB    $23
         DB    $1A
         DB    $F6
         DB    $19
         DB    $07
         DB    $1A
L180E    DB    $A7
         DB    $FB
         DB    $FD
         DB    $C0
         DB    $DC
L1813    DB    $A0
         DB    $C5
         DB    $C5
         DB    $C1
         DB    $C3
L1818    DB    $00
L1819    DB    $00
L181A    DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L181F    DB    $00
L1820    DB    $A0
L1821    DB    $00
L1822    DB    $00
L1823    DB    $00
         LDX   #$03
         LDA   #$00
         STA   $FD
L182A    STA   L1820,X
         DEX
         BPL   L182A
L1830    LDA   #$FF
         JSR   COUT
         LDA   #$88
         JSR   COUT
         LDA   #$A0
         JSR   COUT
L183F    LDA   #$88
         JSR   COUT
         JSR   L1A88
         LDA   KBD
         BPL   L1830
         BIT   KBDSTROBE
         LDY   #$04
L1851    CMP   L1800,Y
         BEQ   L185B
         DEY
         BNE   L1851
         BEQ   L186E
L185B    TYA
         ASL
         TAY
         LDA   L1805,Y
         STA   L186B+2
         DEY
         LDA   L1805,Y
         STA   L186B+1
L186B    JMP   $0000

L186E    CMP   #$88
         BNE   L187E
         LDX   $FD
         BEQ   L1830
         DEC   $FD
         JSR   COUT
         JMP   L1830

L187E    CMP   #$A7
         BNE   L189B
         LDX   $FD
         BEQ   L1830
         DEX
         LDA   $0200,X
         CMP   #$A0
         BNE   L1891
         JMP   L1830

L1891    LDA   #$A7
         JSR   COUT
         LDA   #$A0
         JMP   L18DB

L189B    CMP   #$A0
         BNE   L18B5
         LDX   $FD
         BEQ   L1830
         DEX
         LDA   $0200,X
         CMP   #$A0
         BNE   L18AD
         BPL   L1830
L18AD    LDA   #$A0
         JSR   COUT
         JMP   L18DB

L18B5    CMP   #$8D
         BNE   L18BC
         JMP   L18EC

L18BC    CMP   #$C0
         BCS   L18C3
         JMP   L1830

L18C3    JSR   COUT
         LDY   #$05
L18C8    CMP   L180E,Y
         BEQ   L18D2
         DEY
         BNE   L18C8
         BEQ   L18D5
L18D2    LDA   L1813,Y
L18D5    AND   #$DF
         CMP   #$DB
         BPL   L18E9
L18DB    LDX   $FD
         STA   $0200,X
         CPX   #$1E
         BPL   L18E9
         INC   $FD
         JMP   L1830
L18E9    JMP   L183F

L18EC    LDX   $FD
         BNE   L18F6
         JSR   L19E1
         JMP   L1830

L18F6    DEX
         LDA   $0200,X
         CMP   #$A0
         BEQ   L18F6
         LDA   #$00
         INX
         STA   $0200,X
         LDA   #$00
         STA   L1915+1
L1909    LDA   #$00
         LDX   #$04
L190D    STA   L181A,X
         DEX
         BPL   L190D
         LDY   #$FF
L1915    LDA   $0200
         BEQ   L192B
         CMP   #$A0
         BEQ   L192B
         INY
         CPY   #$05
         BCS   L1926
         STA   L181A,Y
L1926    INC   L1915+1
         BNE   L1915
L192B    STA   $D0
         INC   L1915+1
         LDA   L1820
         BEQ   L194D
         CMP   #$7C
         BCS   L194D
         LDA   L1821
         BEQ   L196D
         CMP   #$A9
         BCS   L196D
         CMP   #$9E
         BCS   L196D
         LDA   #$00
         STA   L1821
         BEQ   L19A0
L194D    LDX   #$7F
         LDA   #$1A
         STA   $D1
         LDA   #$00
         STA   $D3
         LDA   #$18
         STA   $D2
         LDA   #$A5
         STA   $D4
         JSR   L19B7
         STA   L1820
         BEQ   L19A0
         LDA   $D0
L1969    BNE   L1909
         BEQ   L19A0
L196D    LDX   #$B3
         LDA   #$1A
         STA   $D1
         LDA   #$7E
         STA   $D3
         LDA   #$18
         STA   $D2
         LDA   #$A7
         STA   $D4
         JSR   L19B7
         BNE   L1989
         STA   L1821
         BEQ   L19A0
L1989    LDX   L1821
         BEQ   L1999
         CMP   #$A9
         BCC   L1999
         LDA   #$00
         STA   L1821
         BEQ   L19A0
L1999    STA   L1821
         LDA   $D0
         BNE   L1969
L19A0    LDX   L1820
         LDA   L1EBC,X
         STA   L1822
         LDX   L1821
         LDA   L1F3B,X
         STA   L1823
         JMP   L1C7C

         BRK   $00
L19B7    LDA   #$01
         STA   L181F
L19BC    LDY   #$04
         SEC
L19BF    LDA   ($D1),Y
         SBC   ($D3),Y
         BNE   L19CC
         DEY
         BPL   L19BF
         LDA   L181F
         RTS

L19CC    INC   L181F
         CLC
         LDA   $D3
         ADC   #$05
         STA   $D3
         LDA   $D4
         ADC   #$00
         STA   $D4
         DEX
         BNE   L19BC
         TXA
         RTS

L19E1    LDX   L1819
         BMI   L19ED
         BIT   TXTSET
         LDX   #$F0
         BNE   L19F2
L19ED    BIT   TXTCLR
         LDX   #$01
L19F2    STX   L1819
         RTS

         LDA   L1B1E
         EOR   #$C9
         STA   L1B1E
         JSR   L1AF2
         JSR   L1CC6
         JMP   L1830

         JSR   $0387
         JMP   L1830

         LDX   L1818
         BEQ   L1A14
         DEX
         DEX
L1A14    INX
         STX   L1818
         LDA   L1AB4+2
         EOR   #$50
         STA   L1AB4+2
         JMP   L1830

         INC   $AB06
         LDA   $AB06
         CMP   #$06
         BNE   L1A5E
         LDA   #$00
         STA   $AB06
         INC   $AB07
         LDA   $AB07
         CMP   #$0A
         BNE   L1A5E
         LDA   $AB08
         BEQ   L1A56
         DEC   $AB07
         LDA   $AB07
         CMP   #$0A
         BNE   L1A5E
         LDA   $AB08
         BEQ   L1A56
         DEC   $AB07
         JMP   L1A5E

L1A56    INC   $AB08
         LDA   #$00
         STA   $AB07
L1A5E    JSR   L1AF2
         JSR   L1C7C
         JSR   L1C7C
         JSR   L1C7C
         JSR   L1C7C
         JMP   L1830

L1A70    BIT   KBDSTROBE
L1A73    LDA   KBD
         BPL   L1A73
         STA   L1820
         BIT   KBDSTROBE
         RTS

         JSR   L1A70
         JMP   L1B78

         LDA   $60
         RTS

L1A88    INC   $4E
         BNE   L1AF1
         LDA   #$F5
         STA   $4E
         INC   $4F
         BNE   L1AEE
         DEC   $FE
         LDA   #$02
         STA   $EE
         LDY   $FF
         CPY   #$0A
         BEQ   L1AA4
         DEC   $FF
         BNE   L1AA6
L1AA4    INC   $FF
L1AA6    JSR   L1B1E
         LDA   $FE
         BPL   L1AF1
         LDY   #$80
L1AAF    LDA   #$05
         JSR   WAIT
L1AB4    BIT   SPKR
         DEY
         BNE   L1AAF
         LDA   #$3C
         STA   $FE
         DEC   $AB05
         BPL   L1AF2
         LDA   #$09
         STA   $AB05
         BIT   $AB1B
         BNE   L1AD0
         BIT   RDBANK2
L1AD0    DEC   $AB06
         BPL   L1AF2
         LDA   #$05
         STA   $AB06
         DEC   $AB07
         BPL   L1AF2
         DEC   $AB08
         BMI   L1AEB
         LDA   #$09
         STA   $AB07
         BPL   L1AF2
L1AEB    JMP   $AB72
L1AEE    JMP   ($40FE)
L1AF1    RTS

L1AF2    LDA   #$04
         STA   $EE
         LDY   $AB05
         JSR   L1B1E
         DEC   $EE
         LDY   $AB06
         JSR   L1B1E
         DEC   $EE
         LDY   $FF
         JSR   L1B1E
         DEC   $EE
         LDY   $AB07
         JSR   L1B1E
         DEC   $EE
         LDY   $AB08
         JSR   L1B1E
         JMP   L1AF1

L1B1E    LDA   #$1C
         STA   $ED
         LDA   #$F0
         STA   $EC
         CPY   #$00
         BEQ   L1B36
L1B2A    CLC
         ADC   #$07
         BCC   L1B31
         INC   $ED
L1B31    DEY
         BNE   L1B2A
         STA   $EC
L1B36    LDY   #$06
         LDX   #$00
         STY   $D0
L1B3C    LDY   $D0
         LDA   L1DFC,Y
         STA   $27
         LDA   #$00
         STA   $26
         LDA   ($EC,X)
         LDY   $EE
         STA   ($26),Y
         INC   $EC
         BNE   L1B53
         INC   $ED
L1B53    DEC   $D0
         BPL   L1B3C
L1B57    RTS

         LDA   #$6C
         DEC   $40
         LDY   #$6C
         INC   $40
L1B60    LDX   #$15
         STX   L1BE7+1
L1B65    LDX   #$00
         STX   L1BFE+1
         BEQ   L1BA1
         LDX   #$11
         STX   L1BE7+1
         LDX   #$00
         STX   L1BFA+1
         BEQ   L1BA1
L1B78    LDX   #$66
         STX   $402E
         LDX   #$6E
         STX   $402F
         BNE   L1B57
         LDX   #$00
         STX   L1BFA+1
         CLV
         LDX   #$00
         STX   L1BE7+1
         LDX   #$27
         STX   $1B
         LDX   #$C6
         STX   L1C0C
         LDX   #$FF
         STX   L1C10+1
         BVC   L1BB0
         BVC   L1BB0
L1BA1    CLV
         LDX   #$00
         STX   $1B
         LDX   #$E6
         STX   L1C0C
         LDX   #$28
         STX   L1C10+1
L1BB0    LDA   #$41
         STA   $1A
         LDA   #$24
         STA   $27
         LDX   #$00
         STX   $19
         STX   $26
         STX   $D2
         INX
         STX   $04
         LDY   #$00
         BIT   $ADD2
         BNE   L1BCB
         PLA
L1BCB    LDA   ($19),Y
         BNE   L1BE7
         INC   $19
         BNE   L1BD5
         INC   $1A
L1BD5    LDA   ($19),Y
         STA   $D2
         INC   $19
         BNE   L1BDF
         INC   $1A
L1BDF    LDA   ($19),Y
         STA   $D1
L1BE3    DEC   $D2
         LDA   $D1
L1BE7    BVC   L1C02
         STA   $D3
         AND   #$80
         STA   $D4
         LDY   #$08
L1BF1    ROL   $D3
         ROR
         DEY
         BNE   L1BF1
         ROL   $D4
         ROR
L1BFA    BVC   L1C02
         AND   #$7F
L1BFE    BVC   L1C02
         EOR   #$7F
L1C02    LDY   $1B
         STA   ($26),Y
         INX
         INX
         CPX   #$C0
         BCC   L1C16
L1C0C    INC   $1B
         LDY   $1B
L1C10    CPY   #$28
         BEQ   L1C2C
         LDX   $04
L1C16    LDA   L1D3C,X
         STA   $26
         LDA   L1DFC,X
         STA   $27
         LDY   $D2
         BNE   L1BE3
         INC   $19
         BNE   L1BCB
         INC   $1A
         BNE   L1BCB
L1C2C    LDA   L1C0C
         EOR   #$20
         STA   L1C0C
         LDA   L1C10+1
         EOR   #$D7
         STA   L1C10+1
         DEC   $04
         BPL   L1C0C
         LDX   #$19
         STX   L1BE7+1
         LDX   #$06
         STX   L1BFA+1
         LDX   #$02
         STX   L1BFE+1
         JSR   L1AF2
         JMP   L1CC6

         DEC   $AB06
         LDA   $AB06
         BPL   L1C67
         DEC   $AB07
         BMI   L1C6A
L1C62    LDA   #$05
         STA   $AB06
L1C67    JMP   L1AF2

L1C6A    LDA   $AB08
         BNE   L1C72
         JMP   $0800

L1C72    DEC   $AB08
         LDA   #$09
         STA   $AB07
         BNE   L1C62
L1C7C    INC   $AB01
         LDA   $AB01
         CMP   #$0A
         BEQ   L1C88
         BNE   L1CC6
L1C88    INC   $AB02
         LDA   #$00
         STA   $AB01
         LDA   $AB02
         CMP   #$0A
         BEQ   L1C9F
         LDA   $AB0C
         BNE   L1CC6
         INC   $B9
         RTS

L1C9F    INC   $AB03
         LDA   #$00
         STA   $AB02
         LDA   $AB03
         CMP   #$0A
         BEQ   L1CB0
         BNE   L1CC6
L1CB0    INC   $AB04
         LDA   #$00
         STA   $AB03
         LDA   $AB04
         CMP   #$0A
         BEQ   L1CC1
         BNE   L1CC6
L1CC1    LDA   #$00
         STA   $AB04
L1CC6    LDA   #$24
         STA   $EE
         LDY   $AB04
         JSR   L1B1E
         LDA   #$25
         STA   $EE
         LDY   $AB03
         JSR   L1B1E
         LDA   #$26
         STA   $EE
         LDY   $AB02
         JSR   L1B1E
         LDA   #$27
         STA   $EE
         LDY   $AB01
         JSR   L1B1E
         RTS

         DB    $00
         DB    $0E
         DB    $11
         DB    $11
         DB    $11
         DB    $11
         DB    $11
         DB    $0E
         DB    $0E
         DB    $04
         DB    $04
         DB    $04
         DB    $04
         DB    $06
         DB    $04
         DB    $1F
         DB    $01
         DB    $01
         DB    $0E
         DB    $10
         DB    $11
         DB    $0E
         DB    $0E
         DB    $11
         DB    $10
         DB    $0E
         DB    $10
         DB    $11
         DB    $0E
         DB    $08
         DB    $08
         DB    $1F
         DB    $09
         DB    $09
         DB    $01
         DB    $01
         DB    $0E
         DB    $11
         DB    $10
         DB    $10
         DB    $0F
         DB    $01
         DB    $1F
         DB    $0E
         DB    $11
         DB    $11
         DB    $0F
         DB    $01
         DB    $11
         DB    $0E
         DB    $02
         DB    $02
         DB    $04
         DB    $08
         DB    $10
         DB    $10
         DB    $1F
         DB    $0E
         DB    $11
         DB    $11
         DB    $0E
         DB    $11
         DB    $11
         DB    $0E
         DB    $0E
         DB    $11
         DB    $10
         DB    $1E
         DB    $11
         DB    $11
         DB    $0E
         DB    $00
         DB    $04
         DB    $00
         DB    $00
         DB    $04
         DB    $00

* HGR table

L1D3C    HEX   00000000000000008080808080808080
         HEX   00000000000000008080808080808080
         HEX   00000000000000008080808080808080
         HEX   00000000000000008080808080808080
         HEX   2828282828282828A8A8A8A8A8A8A8A8
         HEX   2828282828282828A8A8A8A8A8A8A8A8
         HEX   2828282828282828A8A8A8A8A8A8A8A8
         HEX   2828282828282828A8A8A8A8A8A8A8A8
         HEX   5050505050505050D0D0D0D0D0D0D0D0
         HEX   5050505050505050D0D0D0D0D0D0D0D0
         HEX   5050505050505050D0D0D0D0D0D0D0D0
         HEX   5050505050505050D0D0D0D0D0D0D0D0

L1DFC    HEX   2024282C3034383C2024282C3034383C
         HEX   2125292D3135393D2125292D3135393D
         HEX   22262A2E32363A3E22262A2E32363A3E
         HEX   23272B2F33373B3F23272B2F33373B3F
         HEX   2024282C3034383C2024282C3034383C
         HEX   2125292D3135393D2125292D3135393D
         HEX   22262A2E32363A3E22262A2E32363A3E
         HEX   23272B2F33373B3F23272B2F33373B3F
         HEX   2024282C3034383C2024282C3034383C
         HEX   2125292D3135393D2125292D3135393D
         HEX   22262A2E32363A3E22262A2E32363A3E
         HEX   23272B2F33373B3F23272B2F33373B3F

L1EBC    HEX   00010203040506010203040506230506
         HEX   07070707080808080909090A0B0C0D0D
         HEX   0E0E0F19111213141414151516171809
         HEX   1A1B1A1C1D1E1E1F2020071A21211D09
         HEX   222224252627101029292A2B2C2D2E2F
         HEX   30313233333435353636373839103A3B
         HEX   2308090F12131416181A1B1E20211D24
         HEX   102A2C3437103C3C3D3E0722222200

L1F3B    HEX   00010101020202020303030404050606
         HEX   060707090A0A0B0C0C090D0E0E0E0F10
         HEX   10111213141516171718191A1B1C1D1E
         HEX   1F202122220924252627272728292A2B
         HEX   2B2C2C2C2C2D2D2D2E2F303132333435
         HEX   363636373839393A3B3C3C3C3D3E3F40
         HEX   4141424243444569472C4A444B3D054C
         HEX   4C4D4E4E4F4F4F4F3B505152535317

         DB    $47
         DB    $06
         DB    $55
         DB    $56
         DB    $56
         DB    $57
         DB    $57
         DB    $58
         DB    $59
         DB    $59
         DB    $5A
         DB    $5A
         DB    $5B
         DB    $5B
         DB    $5B
         DB    $53
         DB    $43
         DB    $32
         DB    $18
         DB    $5C
         DB    $5D
         DB    $5E
         DB    $4D
         DB    $5F
         DB    $5F
         DB    $60
         DB    $61
         DB    $62
         DB    $63
         DB    $64
         DB    $65
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00

L1FEF    LDX   #$0F
L1FF1    SEC
         LDA   $F114,X
         SBC   $BA,X
         BNE   L1FFC
         DEX
         BNE   L1FF1
L1FFC    STX   $AB0C
         RTS
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Mar 18 Oct 2011, 22:31    Sujet du message: Répondre en citant

Code:

THE GAME IS WRITTEN IN BASIC
Line 14 is weird...


 10  GOTO 290
 12  PRINT "Commande: ";: CALL 6180: PRINT :E1 =  PEEK (6176):E2 =  PEEK (6177):S1 =  PEEK (6178):S2 =  PEEK (6179): RETURN
 14  GOTO 438059 IF  PEEK (47093) OR  PEEK (16386) <  > CD THEN  PRINT : PRINT "Erreur de face ou de disquette, inserez la disquette CIL et pressez une touche": PRINT : CALL 6783: GOTO 78
 16  IF (P < 77 AND P > 68 AND ( NOT  PEEK (43789) OR ( PEEK (43823) <  > P AND  PEEK (43823) <  > 200))) OR P > 108 THEN 590
 17 I =  PEEK (16432 + P): POKE 30563,48 + I: POKE 30562,D(I): CALL  - 19004: IF  PEEK (44612) THEN B = 44501
 18  CALL 7073: CALL 6637
 20  FOR I = 1 TO N3: IF  PEEK (43840 + I) = P THEN  POKE 233,8:TD =  PEEK (43904 + I): ROT=  PEEK (16575 + TD): HCOLOR=  PEEK (16591 + TD): DRAW TD AT  PEEK (16607 + TD), PEEK (16623 + TD)
 22  NEXT : ROT= 0: POKE 233,85
 23  CALL 23418
 24  FOR I = 1 TO N2: IF  PEEK (43808 + I) = P THEN  HCOLOR= 7: DRAW I + N2 AT X(I),Y(I): HCOLOR= 4: XDRAW I AT X(I),Y(I)
 26  NEXT : IF  PEEK (44612) THEN B = 44501
 28 X =  PEEK (37):Y =  PEEK (36): HTAB 1: VTAB 4: PRINT "========================================": VTAB 1: CALL  - 868: VTAB 1: PRINT "Directions possibles: ";: IF  PEEK (B + 1) THEN  PRINT "N ";
 30  IF  PEEK (B + 2) THEN  PRINT "S ";
 32  IF  PEEK (B + 3) THEN  PRINT "E ";
 34  IF  PEEK (B + 4) THEN  PRINT "O ";
 36  IF  PEEK (B + 5) THEN  PRINT "H ";
 38  IF  PEEK (B + 6) THEN  PRINT "B ";
 40  VTAB 2: HTAB 1: CALL  - 868: PRINT : CALL  - 868: VTAB 2: HTAB 1: PRINT "Objets visibles: ";: FOR I = 1 TO N2: IF  PEEK (43808 + I) <  > P THEN 46
 42  IF  PEEK (36) +  LEN (O$(I)) > 39 THEN  PRINT
 44  PRINT O$(I);" ";
 46  NEXT : POKE 37,X - 1: POKE 36,Y: CALL  - 912: IF  PEEK (43845) = P OR  PEEK (43848) = P OR  PEEK (43850) = P OR  PEEK (43798) = P THEN TE = 8
 48  IF TE <  > 8 THEN  CALL 768: GOSUB 12
 50  IF  PEEK (43792) THEN 58
 52  POKE 43793, PEEK (43793) - 1: IF  PEEK (43793) < 10 AND  PEEK (43793) > 4 THEN  PRINT "Vous commencez @ avoir faim"
 54  IF  NOT  PEEK (43793) THEN  PRINT "Vous {tes mort de faim!": GOTO 260
 56  IF  PEEK (43793) < 5 THEN  PRINT "Vous mourez de faim"
 58 TE = 0: GOTO 400
 60  IF S1 > 19 OR S1 < 7 THEN 62
 61  ON S1 - 6 GOTO 82,106,96,118,202,222,128,142,154,192,164,174,172
 62  IF (S1 = 35 AND S2 = 28) OR S1 = 1 THEN TE = 1: GOTO 76
 64  IF (S1 = 35 AND S2 = 29) OR S1 = 2 THEN TE = 2: GOTO 76
 66  IF (S1 = 35 AND S2 = 30) OR S1 = 3 THEN TE = 3: GOTO 76
 68  IF (S1 = 35 AND S2 = 31) OR S1 = 4 THEN TE = 4: GOTO 76
 70  IF (S1 = 35 AND S2 = 32) OR S1 = 5 THEN TE = 5: GOTO 76
 72  IF (S1 = 35 AND S2 = 33) OR S1 = 6 THEN TE = 6: GOTO 76
 74  GOTO 244
 76  IF  NOT  PEEK (B + TE) THEN  PRINT "Vous ne pouvez pas aller dans cette     direction": GOTO 48
 77 P =  PEEK (B + TE):B = 43967 + 6 * (P - 1)
 78  POKE 43776,P:TA = 0
 79  POKE 30295,171: POKE 30301,57
 80  POKE 251,255: GOTO 14
 82  IF  NOT S2 THEN 242
 84  IF  PEEK (43787) > 11 THEN  PRINT "Vous }tes trop charg{": GOTO 48
 86  IF S2 > 23 THEN 800
 88  IF  PEEK (43808 + S2) = P THEN  PRINT D$: POKE 43787, PEEK (43787) + 1: POKE 43808 + S2,200: GOTO 18
 90  IF  PEEK (43808 + S2) = 200 THEN  PRINT "Vous l'avez d{j@": GOTO 48
 92  PRINT "Je ne vois pas cela ici": GOTO 48
 96  IF  NOT S2 THEN 242
 98  IF S2 < 24 AND  PEEK (43808 + S2) = 200 THEN  PRINT D$: POKE 43787, PEEK (43787) - 1: POKE 43808 + S2,P: GOTO 20
 100  PRINT "Vous n'avez pas cela": GOTO 48
 106  IF  NOT S2 OR S2 > 23 THEN 600
 108  IF  PEEK (43808 + S2) = 200 AND DO$(S2) <  > "" THEN  PRINT DO$(S2): GOTO 48
 110  IF  PEEK (43808 + S2) = 200 THEN 114
 112  PRINT "Vous n'avez pas de ";O$(S2): GOTO 48
 114  PRINT "Il n'y a rien de sp{cial": GOTO 48
 118  CALL 6630: PRINT : INVERSE : PRINT "INVENTAIRE": NORMAL : PRINT : PRINT "Vous avez en votre possession:": PRINT
 120  IF  NOT  PEEK (43787) THEN  PRINT "  - Aucun objet": PRINT : GOTO 48
 122  FOR I = 1 TO N2: IF  PEEK (43808 + I) = 200 THEN  PRINT "  - ";O$(I)
 124  NEXT : PRINT : GOTO 48
 128  IF E2 <  > 30 THEN 248
 132  IF  PEEK (43823) <  > 200 THEN 146
 134  IF  PEEK (43789) THEN  PRINT "Elle est d{ja allum{e": GOTO 48
 136  IF P = 34 THEN 790
 138  GOTO 246
 142  IF E2 <  > 30 THEN 248
 146  IF  PEEK (43823) <  > 200 THEN  PRINT "Vous n'avez pas de torche": GOTO 48
 148  IF  NOT  PEEK (43789) THEN  PRINT "Elle est d{ja {teinte": GOTO 48
 150  PRINT D$: POKE 43789,0: GOTO 48
 154 TE = 1 +  INT ( RND (1) * 6): IF  NOT  PEEK (B + TE) THEN 154
 156  REM  IGSTAB
 158 P =  PEEK (B + TE):B = 43967 + 6 * (P - 1)
 160  GOTO 78
 164  IF  NOT S2 THEN 242
 166  IF S2 <  > 4 THEN  PRINT "Ce ne doit pas {tre tr{s bon @ manger": GOTO 48
 168  IF  PEEK (43812) <  > 200 AND  PEEK (43812) <  > 4 THEN  PRINT "Vous n'avez pas de pain": GOTO 48
 169  IF  PEEK (43792) THEN  PRINT "Vous avez d{j@ mang{ un morceau de pain": GOTO 48
 170  PRINT D$;", vous n'aviez pas mang{ depuis la veille; cela fait du bien": POKE 43812,0: POKE 43792,1: GOTO 18
 172  PRINT D$: CALL  - 3086: PRINT "Un somme fait du bien, mais le temps    passe": FOR I = 1 TO 6: CALL 7253: NEXT : FOR I = 1 TO 1000: NEXT : GOTO 18
 174  IF  NOT S2 THEN 242
 176  IF S2 = 10 THEN 184
 177  IF E2 = 115 THEN  PRINT "Vous n'avez pas de vin": GOTO 48
 178  IF S2 <  > 24 THEN  PRINT "Cela ne doit pas {tre tr{s bon @ boire": GOTO 48
 180  IF  PEEK (43831) <  > 200 OR ( NOT  PEEK (43791) AND  NOT  PEEK (43799)) THEN  PRINT "Vous n'avez pas cela": GOTO 48
 181  IF  PEEK (43799) THEN  POKE 43793,25: PRINT "Vous buvez tout le lait": GOTO 200
 182  PRINT "Vous buvez toute l'eau": GOTO 200
 184  IF  PEEK (43818) <  > 200 THEN  PRINT "Vous n'avez pas de philtre": GOTO 48
 186  IF  PEEK (43790) THEN  PRINT "Vous l'avez d{j@ bu": GOTO 48
 188  PRINT D$;", vous buvez le philtre";: FOR I = 1 TO 8: PRINT ".";: FOR J = 1 TO 200: NEXT : NEXT
 190  PRINT : PRINT "Vous vous sentez devenir de glace": POKE 43790,1: POKE 43818,0: POKE 43841,1: POKE 43842,1: GOTO 20
 192  IF S2 <  > 23 AND (S2 <  > 1 OR  PEEK (43809) <  > 200) THEN  PRINT "Je ne sais pas faire cela ": GOTO 48
 194  IF S2 = 1 THEN  PRINT "Conservez votre argent!": GOTO 48
 196  IF  PEEK (43831) <  > 200 THEN  PRINT "Vous n'avez pas de broc": GOTO 48
 198  IF  NOT  PEEK (43791) AND  NOT  PEEK (43799) THEN  PRINT "Votre broc est d{j@ vide": GOTO 48
 199  PRINT "Vous videz votre broc"
 200  POKE 43791,0: POKE 43799,0: GOTO 48
 202  IF E2 <  > 43 THEN 246
 204  CALL 6630: PRINT : INVERSE : PRINT "SAUVEGARDE DU JEU": NORMAL : PRINT
 206  IF CD = 2 THEN  PRINT V$: CALL 6783: PRINT
 208  PRINT "Sous quel num{ro (1 @ 4) voulez-vous    sauver le jeu ('return' annule la       proc{dure) ";: GOSUB 270
 210  POKE 43785,CD: CALL  - 18985
 212  IF  PEEK (47093) THEN 218
 214  IF CD = 2 THEN  PRINT : PRINT V$: CALL 6783: PRINT
 216  GOTO 48
 218  IF  PEEK (47093) = 16 THEN  PRINT "Disquette prot{g{e en {criture,": PRINT "sauvegarde non effectu{e": GOTO 48
 220  PRINT "Erreur d'{criture, sauvegarde non": PRINT "effectu{e": POKE 1150,0: GOTO 48
 222  IF E2 <  > 43 THEN 246
 224  CALL 6630: PRINT : INVERSE : PRINT "RAPPEL DU JEU": NORMAL : PRINT
 226  IF CD = 2 THEN  PRINT V$: CALL 6783: PRINT
 228  PRINT "Sous quel num{ro (1 @ 4) avez-vous      sauv{ le jeu ('return' annule la        proc{dure) ";: GOSUB 270
 230  CALL  - 18947
 232  IF ( PEEK (43786) + 1) / 4 <  > NS - 176 THEN 241
 234  IF  PEEK (47093) THEN 241
 236 CD =  PEEK (43785):P =  PEEK (43776):B = 43967 + 6 * (P - 1)
 238  IF CD = 2 THEN  PRINT : PRINT V$: CALL 6783: PRINT
 240 TA = 0: GOTO 78
 241  PRINT "Erreur irr{parable, pressez une touche  pour relancer le jeu": CALL 6783: GOTO 266
 242  PRINT "Je comprends, mais soyez plus pr{cis": GOTO 48
 243  PRINT "Je comprends, mais ce n'est pas utile": GOTO 48
 244  IF (S1 = 34 AND E2 = 42) OR E1 = 92 THEN 283
 246  IF S1 AND S2 THEN  PRINT "Je comprends mais ce n'est pas possible actuellement": GOTO 48
 247  CALL 8175
 248  IF S1 THEN  PRINT "Je ne comprends pas tout ce que vous    demandez": GOTO 48
 250  IF 2 * ( INT (P / 2)) = P THEN  PRINT "Je suis d{sol{, mais je ne comprends pas";: GOTO 48
 251  PRINT "J'ai beau chercher, je ne comprends pas ce que vous me demandez": GOTO 48
 252  DATA "Bourse","Elle est pleine d'{cus",235,124,"V}tement","C'est une houppelande",257,57,"Couteau","",100,100,"Pain","",70,100,"Flute","",100,100,"Soie","C'est un rouleau de soie d'orient",60,71,"Chien","",128,90,"","",1,1
 254  DATA "Cailloux","Ce sont des silex tranchants",100,100,"Philtre","C'est une potion incolore",100,100,"Roseau","Il est creux",100,100,"Corde","c'est une longue corde de chanvre",60,100,"Fl{au","C'est un fl{au @ bl{",175,121,"Cl{"
 256  DATA "C'est un passe-partout",210,90,"Torche","",80,50,"Baton","",100,100,"Pelle","",100,70,"Papyrus","C'est une plante {trange",100,140,"Marcotte","C'est une racine curieuse",100,100,"Mandragore","C'est la plante des pendus",100,130
 258  DATA "Elod{e","C'est une plante d'eau",100,125,"Fronde","",100,130,"Broc","",235,92,"Veuillez retourner la disquette de      l'autre cot{ et presser une touche","D'accord"
 260  PRINT : TEXT
 262  PRINT "Voulez-vous rejouer <o/n>";: CALL 6768:NS =  PEEK (6176): IF NS = 238 OR NS = 206 THEN  TEXT : HOME : VTAB 12: PRINT "Ins{rez la disquette @ charger et       presser une touche": CALL 6783: PR# 6
 264  IF NS <  > 207 AND NS <  > 239 THEN  POKE 36,0: GOTO 262
 266  IF CD = 2 THEN  HOME : PRINT V$: CALL 6783: PR# 6
 268  PR# 6
 270  CALL 6768:NS =  PEEK (6176): IF NS = 141 THEN  PRINT : POP : GOTO 48
 272  IF NS = 166 OR NS = 161 THEN NS = 177
 274  IF NS = 251 OR NS = 192 THEN NS = 178
 276  IF NS = 162 OR NS = 163 THEN NS = 179
 278  IF NS = 167 OR NS = 164 THEN NS = 180
 280  IF NS < 177 OR NS > 180 THEN  PRINT : PRINT "Veuillez taper 1, 2, 3, 4 ou 'RETURN'": CALL  - 998: CALL  - 998: HTAB 11: GOTO 270
 282  PRINT NS - 176: POKE 43786,(4 * (NS - 176)) - 1: RETURN
 283  IF P = 60 OR P = 63 THEN  PRINT "Plouf!": GOTO 48
 284  IF P = 79 THEN  PRINT "A votre premi}re visite il convient     d'offrir un cadeau": GOTO 48
 285  IF P > 68 AND P < 77 THEN  PRINT "Toujours plus bas tel est ma devise": GOTO 48
 287  IF  PEEK (43790) AND  PEEK (43826) = 100 THEN  PRINT "Vous }tes vous regard{ depuis que vous  avez bu le philtre ?": GOTO 48
 288  PRINT "Je ne peux pas vous aider ici": GOTO 48: REM  IGSTAB
 290  TEXT : HOME : VTAB 2: HTAB 7: PRINT "MARVEJOLS   20 Octobre 1765": VTAB 5: PRINT "Depuis  plusieurs mois, par les nuits depleine lune, la B}te hante les montagnes            et les for}ts."
 291  ONERR  GOTO 10
 292  VTAB 9: PRINT "Malgr{ de nombreuses battues, elle reste  insaisissable et semble  dot{e d'une   intelligence lui permettant de d{jouer            tous les pi}ges."
 294  VTAB 14: PRINT "Cette nuit  encore, la B}te, mais est-ce bien une b}te, a {t{ vue rodant autour  du village, terrorisant les habitants."
 296  VTAB 18: PRINT " Prise en chasse par un groupe d'hommes  en armes,  elle leur a encore {chapp{. Cette fois  cependant elle  semble avoir {t{ bl}ss{e puisque des traces de sang   ont {t{ retrouv{es  sur son passage.": GOSUB 310
 298  VTAB 4: PRINT " C'est une brulure intense dans le bras     qui vous tire d'un sommeil lourd               et agit{ ce matin."
 300  VTAB 8: PRINT "   Vous d{couvrez alors une blessure         r{cente qui ne peut avoir {t{      occasionn{e que par une balle de fusil."
 302  VTAB 12: PRINT " Plus tard, en apprenant les {v}nements   de la nuit, l'effroyable v{rit{ vous              apparait enfin:": VTAB 16: PRINT " la B}te du G{vaudan est un  LOUP-GAROU        et VOUS }tes ce loup-garou."
 304  VTAB 19: PRINT "  Il vous reste douze heures avant la        prochaine nuit de pleine lune;         vous DEVEZ trouver une solution.": GOSUB 310:S1 = 0:E1 = 0:S2 = 0:E2 = 0:P = 1:B = 43967:N2 = 23:N3 = 30:CD = 1: POKE 31,40
 306  DIM O$(23),DO$(23),X(23),Y(23),D(10): FOR I = 1 TO N2: READ O$(I),DO$(I),X(I),Y(I): NEXT : READ V$,D$: FOR I = 0 TO 9: READ D(I): NEXT
 307  CALL 19001
 308  HOME : POKE 34,4: VTAB 22: GOTO 78
 310  VTAB 24: PRINT "(Pressez une touche pour continuer)";: CALL 6783: HOME : RETURN
 320  DATA  50,48,51,55,52,48,48,48,48,52

...TO BE CONTINUED...
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
jvernet



Inscrit le: 18 Aoû 2007
Messages: 722

MessagePosté le: Mer 04 Jan 2012, 11:52    Sujet du message: Répondre en citant

toinet a écrit:

Code:

...TO BE CONTINUED...


Ben alors, pas encore fini ??

Cool
_________________
,, et 
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> PROTECTION MALEFIQUE Toutes les heures sont au format GMT + 1 Heure
Aller à la page Précédente  1, 2
Page 2 sur 2

 
Sauter vers:  
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum


Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com