Bonjour

j'ai un probleme avec le mode graphique :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
program graphique ;
 
Uses graph ;
 
Var pilote, mode : integer ;
 
BEGIN
     pilote := detect ;
     InitGraph (pilote, mode, 'C:\turbo\bgi') ;
     OutText ('TEST') ;
     readln ;
     Closegraph ;
END.
L'ecran passe au noir tres rapidement et reviens tous aussi rapidement sous TP, je n'ai aucunes erreurs !

Ou est le probleme ?

Merci