10 READ a$:PRINT a$;" ";
20 RESTORE 50
30 FOR t=1 TO 500:NEXT:GOTO 10
40 DATA restaure los datos para leerlos una vez
50 DATA y otra
run
Orden. Hace que el 'puntero' de datos 'apunte' hacia el principio de la línea de DATA especificada
por el parámetro opcional <número de línea>. Si se omite el parámetro, el puntero señala la
primera línea de DATA del programa.
En la parte 2 del capítulo 'Cuando usted guste ... ' daremos más información a este respecto.
Palabras clave asociadas: DATA, READ.
RESUME
Sintaxis: RESUME [<número de línea>]
Ejemplo:
10 ON ERROR GOTO 60
20 FOR x=10 TO 0 STEP -1:PRINT 1/x:NEXT
30 END
40 PRINT "llegamos hasta aqui despues del error"
50 END
60 PRINT "error numero";ERR;"en la línea";ERL
70 RESUME 40
run
Orden. Reanuda la ejecución normal del programa una vez detectado un error y procesado por
una orden ON ERROR GOTO. Si se omite el <número de línea>, el programa continúa en la
misma línea en la que se produjo el error. Suprima el <número de línea> en el ejemplo anterior
y ejecute nuevamente el programa:
70 RESUME
run
Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, RESUME NEXT.
RESUME NEXT
Sintaxis: RESUME NEXT
Ejemplo:
10 ON ERROR GOTO 90
20 PRINT "Pulse siempre [RETURN]"
30 INPUT "1";a
40 INPUT "2";a
50 inpot "3";a REM error de sintaxis
60 INPUT "4";a
70 INPUT "5";a
80 END
90 PRINT "error numero";ERR;"en la línea";ERL
100 RESUME NEXT
run
Manual de Amstrad CPC 6128 (revisión 2008) - Página 162