Hola!
Sobre el tema de la conversión a sc5, no he hecho el programa por el
examen, pero vamos que la conversion es una tonteria. Simplemente con un
programita en basic se puede hacer sin problemas.
Pues si lo haces, déjalo caer por aquí!! ;)
Pos ahi esta:
10 OPEN "nombre.pal" AS #1 LEN=1
20 FIELD #1,1 AS C$
30 SCREEN 5:SETPAGE 0,0
50 FOR I=0 TO 31
60 GET #1
70 VPOKE &H7680+I,ASC(C$)
80 NEXT I
90 COLOR=RESTORE
100 CLOSE #1
110 OPEN "nombre.raw" AS #1 LEN=1
120 FIELD #1,1 AS C$
130 GET #1:CO=ASC(C$):GET #1:CO=CO+256*ASC(C$)
140 GET #1:FI=ASC(C$):GET #1:FI=FI+256*ASC(C$)
150 CO=CO-1:FI=FI-1
160 FOR I=0 TO FI
170 FOR J=0 TO CO
180 GET #1
190 VPOKE I*128+J,ASC(C$)
200 NEXT J
210 NEXT I
220 CLOSE #1
230 BSAVE "nombre.sc5",0,&H7FFF,S
Donde nombre.pal es el fichero de paleta, nombre.raw es el fichero
generado por el programa bmpraw y nombre.sc5 es el destino.
Cuando estuve probandolo me di cuenta que era muy lento, por lo que
modifique el programa del otro dia (viraw) y ahora el contenido del
fichero .raw se copia a las 4 paginas de VRAM, por lo que solo habria que
ejecutar primero este programa desde el DOS y luego irse al BASIC y
ejecutar esto:
10 OPEN "nombre.pal" AS #1 LEN=1
20 FIELD #1,1 AS C$
30 SCREEN 5:SETPAGE 3,3
50 FOR I=0 TO 31
60 GET #1
70 VPOKE &H7680+I,ASC(C$)
80 NEXT I
90 CLOSE #1
100 BSAVE "nombre.sc5",0,&H7FFF,S
Pos eso es todo.
Roberto Vargas Caballero
[This message contained attachments]
