Sauver un écran au format PI1

par Jb Jeu 11 Avr - 8:15

Sauver un écran au format PI1

' ------------------------ Dessin à sauvegarder
BOX 10,10,50,100
DEFFILL 3
PBOX 20,110,300,195
'
' ------------------------ Variable pour recevoir l'écran
pi1$=STRING$(32066,0)
pi1%=V:pi1$
'
' ------------------------ Lecture des 16 couleurs
BMOVE &HFF8240,pi1%+2,32
'
' ------------------------ Lecture de l'écran
HIDEM
BMOVE XBIOS(2),pi1%+34,32000
SHOWM
'
' ------------------------ Chemin pour sauvegarde de la PI1
FILESELECT "*.pi1","",nom$
IF LEN(nom$)>3
IF MID$(nom$,LEN(nom$)-2,3)<>"PI1" OR MID$(nom$,LEN(nom$)-2,3)<>"pi1"
nom$=nom$+".PI1 "
ENDIF
ELSE
nom$=nom$+".PI1"
ENDIF
'
' ------------------------ Création du fichier
OPEN "O",#2,nom$
CLOSE
'
' ------------------------ Sauvegarde de la PI1
BSAVE nom$,vide%,32066

Téléchargeable ici: [Vous devez être inscrit et connecté pour voir ce lien]