Charge et affiche une image DEGAS :
- Code: Tout sélectionner
DO
FILESELECT "*.pi1","",img$
EXIT IF img$<>""
LOOP
OPEN "i",#1,img$
c$=SPACE$(32)
SEEK #1,2
BGET #1,VARPTR(c$),32
SEEK #1,34
BGET #1,XBIOS(2),32000
CLOSE #1
VOID XBIOS(6,L:VARPTR(c$))
~INP(2)
Sauve l'écran en DEGAS :
- Code: Tout sélectionner
v$=CHR$(0)
vide$=SPACE$(32066)
FOR i=1 TO 40
MID$(vide$,i,1)=v$
NEXT i
FOR i=32000 TO 32066
MID$(vide$,i,1)=v$
NEXT i
~FSEL_INPUT(path$,nom2$,bout%)
IF bout%=1
IF LEN(nom2$)>3
nom3$=MID$(nom2$,LEN(nom2$)-2,3)
IF nom3$<>"PI1" AND nom3$<>"pi1"
nom2$=nom2$+".PI1 "
ENDIF
ELSE
nom2$=nom2$+".PI1"
ENDIF
nom$=MID$(path$,1,LEN(path$)-4)
nom$=nom$+nom2$
OPEN "R",#2,nom$,32066
FIELD #2,32066 AS vide$
PUT #2,1
CLOSE
OPEN "A",#1,nom$
SEEK #1,2
c$=""
FOR i%=0 TO 31
c$=c$+CHR$(PEEK(&HFFFF8240+i%))
NEXT i%
BPUT #1,VARPTR(c$),32
SEEK #1,34
HIDEM
BPUT #1,XBIOS(2),32000
CLOSE
SHOWM
ENDIF