Muy buenas,
Me gustaría saber cómo hacer para que en BASIC me cargue unos gráficos en Screen2 de forma automática, aunque imagino que primero el ordenador los tendrá que dibujar una vez, aunque sea de forma oculta, y luego ya los podrá mostrar de manera instantánea.
He visto también en el blog de Konamito una rutina permitida para el concurso de BASIC y no he visto un ejemplo práctico en el que alguien la utilice, por lo que no me queda muy clara cómo utilizarla.
10 DEFFNUB(N) = (((N AND &HFF00)6) AND 255) 20 DEFFNLB(N) = (N AND 255) 30 SCREEN 1 40 RO=&HC000 50 VD=&H1800 60 NB=&H300 70 AD=&HBFF0 80 GOSUB 100 90 END 100 POKE AD,1:POKE AD+1,FNLB(NB):POKE AD+2,FNUB(NB) 110 POKE AD+3,17:POKE AD+4,FNLB(VD):POKE AD+5,FNUB(VD) 120 POKE AD+6,33:POKE AD+7,FNLB(RO):POKE AD+8,FNUB(RO) 130 POKE AD+9,195:POKE AD+10,92:POKE AD+11,0 140 DEFUSR=AD:AD=USR(0):RETURN
Gracias :face:
Login or register to post comments