diff --git a/DISPLAY.S b/DISPLAY.S
index cb0c0bc..19c74ab 100644
--- a/DISPLAY.S
+++ b/DISPLAY.S
@@ -24,25 +24,21 @@ SOURCE    EQU $4000
           JMP DEBUT
 
 CALC      TXA            ; CALCUL ADRESSE LIGNE (X) HIRES
-          AND #$C0
+          ASL
+          TAY
+          AND #$F0
+          BPL C1
+          ORA #$05
+C1        BCC C2
+          ORA #$0A
+C2        ASL
+          ASL
           STA MEM
-          LSR
-          LSR
-          ORA MEM
-          STA MEM
-          TXA
-          STA MEM+1
-          ASL
-          ASL
-          ASL
-          ROL MEM+1
-          ASL
-          ROL MEM+1
-          ASL
-          ROR MEM
-          LDA MEM+1
-          AND #$1F
-          ORA #$20
+          TYA
+          AND #$0E
+          ADC #$10
+          ASL MEM
+          ROL
           STA MEM+1
           RTS
 
@@ -57,9 +53,9 @@ S1        STY SRCY
           STA COMPTS
           RTS
 
-SAVEDST   LDY DESTY
-          LDX DESTX
+SAVEDST   LDX DESTX
           JSR CALC
+          LDY DESTY
           LDA BUFFDST
           LSR            ; DERNIER DECALLAGE POUR 7EMEBIT
           STA (MEM),Y
diff --git a/Images/VBMP.po b/Images/VBMP.po
index 589f1d0..2492138 100644
Binary files a/Images/VBMP.po and b/Images/VBMP.po differ
diff --git a/Samples/IMAGE.BMP b/Samples/IMAGE.BMP
new file mode 100644
index 0000000..4b18289
Binary files /dev/null and b/Samples/IMAGE.BMP differ