


Moderador: Sir Cilve Sinclair
Código: Seleccionar todo
9715 DIM p1(12,3) AS UBYTE => {{1,1,6,11},{1,1,9,4},{1,1,13,6},{1,2,8,13},{1,2,12,8},{1,3,8,14},{1,3,11,6},{1,4,5,5},{1,4,12,14},{1,5,4,5},{1,6,12,18},{1,7,4,10},{1,7,8,16}}
Código: Seleccionar todo
9007 FOR n=0 TO 12
9008 IF p1(n,0)=x AND p1(n,1)=y THEN PRINT INK 4;AT p1(n,2),p1(n,3);"\e\f"; INK 2;AT p1(n,2)+1,p1(n,3);"\g\h": END IF
9009 NEXT n
JBGV escribió:Hola Boriel, MUCHAS GRACIAS, en efecto, FUNCIONA como me dices.
El caso es que usaba Gosub para ir de un lado a otro, tengo que seguir actualizándome.
Consultaré ahora el nuevo foro, este mensaje aqui es sólo para darte las gracias.
Código: Seleccionar todo
principio:
PRINT "Hola ";
GOTO principio
na_th_an escribió:Yo tengo tres cosas empezadas, a ver si saco rato
A JBGV le recomendaría que abandonase los números de linea. No sirven para nada más que para embarullarlo todo. Si tu programa necesita moverse con GOTOs, usa etiquetas:Código: Seleccionar todo
principio:
PRINT "Hola ";
GOTO principio
oblo escribió:Hola a todos
Estoy empezando a descubrir esta herramienta y me está dejando muy buen sabor de boca por lo que he visto hasta el momento (muchas gracias a Boriel por esto)![]()
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados