'
FILESELECT "\*.PI9","",pic$
IF NOT EXIST(pic$)
  EDIT
ENDIF
'
ON ERROR GOSUB fin                                ! Si erreur, fini.
ON BREAK GOSUB fin                                ! Si Break, fini.
'
RESERVE 50000                                     ! R‚serve m‚moire.
super%=GEMDOS(32,L:0)                             ! Mode Superviseur.
resol&=XBIOS(88,W:-1)                             ! Sauve la r‚solution.
sauve_ecr%=XBIOS(2)                               ! Sauve l'‚cran.
buffer%=MALLOC(77824)                             ! R‚serve une zone m‚moire
image%=buffer%+1024
moniteur%=XBIOS(89)                               ! Type de moniteur.
key|=BYTE{&H484}                                  ! Bloque le clic clavier.
IF moniteur%=2                                    ! Moniteur VGA
  ~XBIOS(5,L:image%,L:image%,W:3,W:&X100110011)   ! VGA: 320x240 256c.
ELSE
  ~XBIOS(5,L:image%,L:image%,W:3,W:&X11)          ! TV:  320x200 256c.
ENDIF
OUT 4,18                                          ! Bloque la souris.
CLS                                               ! Efface l'‚cran.
BLOAD pic$,buffer%
BMOVE buffer%,&HFFFF9800,1024
'
~INP(2)
'
@fin                                              ! Fini.
' *--- Fin du programme ---*
PROCEDURE fin
  OUT 4,8                                           ! R‚active la souris.
  ~XBIOS(5,L:sauve_ecr%,L:sauve_ecr%,3,resol&)      ! Anciens r‚sol. / ‚crans.
  ~MFREE(buffer%)                                   ! LibŠre la m‚moire.
  BYTE{&H484}=key|                                  ! Restaure le clavier.
  ~GEMDOS(32,L:super%)                              ! Mode utilisateur.
  END
RETURN