Lire :
- Code: Tout sélectionner
CLS
xb%=XBIOS(2)
'
FILESELECT "\*.NEO","",nom$
OPEN "i",#1,nom$
imageneo$=SPACE$(32000)
imageneo%=V:imageneo$
SEEK #1,2
c$=SPACE$(32)
c%=V:c$
BGET #1,c%,32
SEEK #1,128
BGET #1,imageneo%,32000
CLOSE
~XBIOS(6,L:c%)
BMOVE imageneo%,xb%,32000
~INP(2)
Ecrire :
- Code: Tout sélectionner
DIM col%(32)
DIM coul%(128)
'
'
FOR i%=0 TO 31
col%(i%)=PEEK(XBIOS(2)-32+i%)
NEXT i%
FOR i%=0 TO 15
SETCOLOR i%,col%(i%*2)*256+col%(i%*2+1)
NEXT i%
FOR i%=0 TO 127
coul%(i%)=0
NEXT i%
FOR i%=4 TO 35
coul%(i%)=col%(i%-4)
NEXT i%
FOR i%=36 TO 47
coul%(i%)=32
NEXT i%
coul%(44)=46
FOR i%=0 TO 127
POKE XBIOS(2)-128+i%,coul%(i%)
NEXT i%
FILESELECT "\*.NEO","",nom$
BSAVE nom$,XBIOS(2)-128,32128
