PGM
             DCLF       FILE(DDSGRAPHD)
             CHGVAR     VAR(&FLD005) VALUE('Vous pouvez tester cette +
                          zones avec les touches "supr" et "ins", +
                          si vous avez un controlleur graphique !')
             CHGVAR  &FLD006 28021994
             CHGVAR  &FLD007 0940228
 IMAGE:      SNDRCVF
             IF &IN03 RETURN
             GOTO IMAGE
             ENDPGM