diff --git a/programs/detect.asm b/programs/detect.asm
index 4e4f52d..df773de 100644
--- a/programs/detect.asm
+++ b/programs/detect.asm
@@ -6,54 +6,29 @@ smart
 org 0h
 
 include ..\include\pci.h
+include ..\include\mem.h
 
 start:
+header exe <,1,0,,,offset imports,,>
+
+realstart:
 call getpciinfos
-mov pciversion,bx
-mov nbbus,cl
-mov pcitype,al
+mov [pciversion],bx
+mov [nbbus],cl
+mov [pcitype],al
 
-mov si,offset msg
-mov ah,13
-int 47h
-mov ah,6
-int 47h
-
-mov si,offset pcivers
-mov ah,13
-int 47h
 xor edx,edx
-mov dx,bx
-xchg dl,dh
-mov cx,8
-mov ah,0Ah
-int 47h
-mov si,offset poin
-mov ah,13
-int 47h
-shr dx,8
-mov ah,0Ah
-int 47h
-mov si,offset pcivers2
-mov ah,13
-int 47h
-mov ah,6
-int 47h
-
-mov si,offset nbbuses
-mov ah,13
-int 47h
-xor edx,edx
-mov dl,nbbus
+mov dl,[nbbus]
 inc dl
-mov ah,08
-int 47h
-mov ah,06
-int 47h
+push edx
+mov dx,[pciversion]
+push edx
+mov dx,[pciversion]
+shr dx,8
+push edx
+push offset msg
+call [print]
 
-mov si,offset typesof
-mov ah,13
-int 47h
 mov di,offset types
 mov bx,7
 mov al,pcitype
@@ -61,89 +36,50 @@ vote:
 bt ax,bx
 jnc nowas
 shl bx,1
-mov si,[di+bx]
-mov ah,13
-int 47h
-mov si,offset spac
-mov ah,13
-int 47h
+push word ptr [di+bx]
+call [print]
 shr bx,1
 nowas:
 dec bx
 jns vote
-mov ah,6
-int 47h
+push offset return
+call [print]
 
 xor ax,ax
 xor cx,cx
-mov di,offset infos
+mov si,offset infos
 search:
+mov di,si
 call Getallfunctionsinfos
 jc stopthis
-
-mov bp,cx
-push cx di
-mov si,offset msg1
-mov ah,13
-int 47h
-mov cx,16
-xor edx,edx
-mov dx,[di+pci.device]
-mov ah,0Ah
-int 47h
-mov si,offset msg2
-mov ah,13
-int 47h
-mov dx,[di+pci.vendor]
-mov ah,0Ah
-int 47h
-mov si,offset msg4
-mov ah,13
-int 47h
-xor dx,dx
-mov dl,al
-mov cx,8
-mov ah,0Ah
-int 47h
-mov ah,07
-mov dl,'.'
-int 47h
-mov dx,bp
-xor dh,dh
-mov cx,8
-mov ah,0Ah
-int 47h
-mov ah,07
-mov dl,'.'
-int 47h
-mov dx,bp
-shr dx,8
-mov cx,8
-mov ah,0Ah
-int 47h
-mov ah,05h
-int 47h
-mov si,offset msg3
-mov ah,13
-int 47h
-mov cl,[di+pci.class]
-mov ch,[di+pci.subclass]
-mov di,offset temp
-call getpciclass
-mov si,di
-mov ah,13
-int 47h
-mov si,offset poin
-mov ah,13
-int 47h
-mov di,offset temp
+mov dh,[si+pci.subclass]
+mov dl,[si+pci.class]
+;sousclasse
+mov di,offset subclasse
 call getpcisubclass
-mov si,di
-mov ah,13
-int 47h
-mov ah,06
-int 47h
-pop di cx
+push di
+;classe
+mov di,offset classe
+call getpciclass
+push di
+;fonction
+mov dl,ch
+push edx
+;device
+mov dl,cl
+push edx
+;bus
+mov dl,al
+push edx
+;device
+mov dx,[si+pci.device]
+push edx
+;vendeur
+mov dx,[si+pci.vendor]
+push edx
+
+push offset msg2
+call [print]
 
 inc ch
 cmp ch,7
@@ -157,31 +93,24 @@ xor cl,cl
 inc al
 cmp al,16
 jbe search
-db 0CBh
+retf
 
-msg3 db ' Classe :',0
-msg1 db 'Peripherique :',0
-msg2 db ' Constructeur :',0 
-msg4 db ' iD :',0
-msg db 'COS2000 hardware detecteur V1.6',0
-pcivers  db 'BIOS PCI version ',0
-pcivers2 db ' a ete detecte !',0
-nbbuses db 'Nombre de bus : ',0
-typesof db 'Caracterisques PCI: ',0
-poin db '.',0
-virg db ', ',0
-spac db ' ',0
-temp db 128 dup (0)
+msg db "COS2000 hardware detecteur V1.6\lBIOS PCI version %hB.%hB a ete detecte !\lNombre de bus : %u\lCaracterisques PCI: ",0
+msg2 db "Peripherique :%hW Constructeur :%hW Id :%hB.%hB.%hB Classe :%0.%0\l",0
+return db "\l",0
+classe db 128 dup (0)
+subclasse db 128 dup (0)
 
 types 	dw	config1
 	dw	config2
-	dw    	poin
-	dw    	poin
+	dw    	null
+	dw    	null
 	dw	config3
 	dw	config4	
-	dw    	poin
-	dw	poin
-  
+	dw    	null
+	dw	null
+	
+null       db 'indefini',0
 config1    db 'Config Mechanism 1',0
 config2    db 'Config Mechanism 2',0
 config3    db 'Special Cycle Mechanism 1',0
@@ -194,12 +123,12 @@ infos db 256 dup (0)
 
 ;fonction 0-7  bus 0-255   device 0-31
 
-;renvoie en es:di de classe cl
+;renvoie en es:di de classe dl
 getpciclass:
-push ax cx si di ds es
+push ax cx dx si di ds es
 push es
 push di
-mov di,cx
+mov di,dx
 and di,0FFh
 shl di,1
 mov di,[offset classes+di]
@@ -217,27 +146,27 @@ pop ds
 pop di
 pop es
 rep movsb
-pop es ds di si cx ax 
+pop es ds di si dx cx ax
 ret
 
-;renvoie en es:di la sous-classe de ch et de classe cl
+;renvoie en es:di la sous-classe de dh et de classe dl
 getpcisubclass:
-push ax cx si di ds es
+push ax cx dx si di ds es
 push es
 push di
-mov di,cx
+mov di,dx
 and di,0FFh
 shl di,1
 mov di,[offset classesd+di]
-xchg ch,cl
-xor ch,ch
-cmp cx,80h
+xchg dh,dl
+xor dh,dh
+cmp dx,80h
 jne suiteac
 mov di,offset divers
 jmp found
 suiteac:
-shl cx,1
-add di,cx
+shl dx,1
+add di,dx
 mov di,[di]
 found:
 mov cx,0FFh
@@ -254,7 +183,7 @@ pop ds
 pop di
 pop es
 rep movsb
-pop es ds di si cx ax 
+pop es ds di si dx cx ax
 ret
 divers db 'divers',0
 
@@ -538,5 +467,10 @@ pci_type2_detect:
                  jne     endofdetectiontype2
 endofdetectiontype2:
                     ret
+                    
+imports:
+        db "VIDEO.LIB::print",0
+print   dd 0
+        dw 0
 
 end start
diff --git a/programs/memoire.asm b/programs/memoire.asm
index b95a9b1..b9d1890 100644
--- a/programs/memoire.asm
+++ b/programs/memoire.asm
@@ -9,81 +9,73 @@ include ..\include\mem.h
 include ..\include\divers.h
 
 start:
-mov si,offset msg
-mov ah,13
-int 47h
-mov ah,6
-int 47h
-mov si,offset menu
-mov ah,13
-int 47h
-mov ah,6
-int 47h
+header exe <,1,0,,,offset imports,,>
+
+realstart:
+push offset msg
+call [print]
+
 xor cx,cx
 listmcb:
 mov ah,4
 int 49h
 jc fino
 inc cx
-mov ah,18h
-int 47h
-push gs
-pop ds
-mov bh,0
-mov si,MB.Names
-mov ah,14h
-int 47h
-mov bh,15
-xor edx,edx
-mov dx,ds:[MB.Sizes]
-shl edx,4
-mov ah,0Fh
-int 47h
-mov bh,24
-cmp ds:[MB.IsResident],true
-push cs
-pop ds
-jne notresident
-mov si,offset resident
-mov ah,14h
-int 47h
-jmp suitelistmcb
-notresident:
-mov si,offset nonresident
-mov ah,14h
-int 47h
-suitelistmcb:
-mov bh,30
-cmp gs:[MB.Reference],0
-je next
-cmp gs:[MB.Reference],1000h
-jb next
-mov ax,gs:[MB.Reference]
-dec ax
-dec ax
-mov ds,ax
-mov si,MB.Names
-mov ah,14h
-int 47h
-next:
-mov bh,46
-xor edx,edx
+
+;placement mémoire
 mov dx,gs
 inc dx
 inc dx
-push cx
-mov cx,16
-mov ah,11h
-int 47h
-pop cx
-mov ah,6h
-int 47h
+push edx
+
+;parent
+cmp gs:[MB.Reference],0
+je next
+mov dx,gs:[MB.Reference]
+dec dx
+dec dx
+push dx
+push offset MB.Names
+jmp suitemn
+next:
+push cs
+push offset none
+suitemn:
+
+;Resident
+cmp gs:[MB.IsResident],true
+jne notresident
+push offset resident
+jmp suitelistmcb
+notresident:
+push offset nonresident
+suitelistmcb:
+
+;taille memoire
+xor edx,edx
+mov dx,gs:[MB.Sizes]
+shl edx,4
+push 6
+push edx
+
+;nom
+push gs
+push offset MB.Names
+
+push offset line
+call [print]
+
 jmp listmcb
 fino:
 db 0CBh
-resident db 'oui',0
-nonresident db 'non',0
-msg db 'Memory manager V1.5',0
-menu db 'Nom          | Taille | Res | Parent        | Mem',0
-
+resident       db "oui",0
+nonresident    db "non",0
+line           db "%0P\h15%w\h24%0\h30%0P\h46%hW\l",0
+msg            db "Memory manager V1.5\lNom            Taille   Res   Parent          Mem\l",0
+none           db ".",0
+imports:
+        db "VIDEO.LIB::print",0
+print   dd 0
+        dw 0
+        
 end start
diff --git a/programs/souris.asm b/programs/souris.asm
index 0550e34..cd02e54 100644
--- a/programs/souris.asm
+++ b/programs/souris.asm
@@ -5,13 +5,23 @@ smart
 
 org 0h
 
+include ..\include\mem.h
+
 start:
-mov si,offset message
-mov ah,13
-int 47h
+header exe <,1,0,,,offset imports,,>
+
+realstart:
 mov ah,2
 int 74h
-db 0CBh
+push offset message
+call [print]
+retf
 
 message db 'Activation de la souris',0
+
+imports:
+        db "VIDEO.LIB::print",0
+print   dd 0
+        dw 0
+
 end start