Tabla de contenido
Publicidad
200
RETURN
Observe que en algunas zonas del programa las instrucciones están muy apretadas y no dejan
hueco para introducir otras nuevas. Reorganicemos el programa renumerando las líneas. Escriba:
RENUM
LIST
El listado es ahora:
10
REM guia de telefonos
20
DIM
NOMBRE$(100)
30
DIM
TEL$(100)
40
PRINT
"1. Introd. datos"
50
PRINT
"2. Listado"
60
PRINT
"3. Busqueda"
70
PRINT
"4. Grabar datos"
80
PRINT
"5. Cargar datos"
90
"Elija una opcion (1-5)
INPUT
100
ON el GOSUB
110
GOTO
40
120
x=1
FOR
130
CLS
140
PRINT"Pulse [RETURN] para terminar"
150
INPUT;" Nombre
160
IF
NOMBRE$(x)=""
170
INPUT;" Telefono
180
NEXT
190
PRINT
"Fin de la entrada de datos"
200
RETURN
210
FOR
x=1
220
IF
NOMBRE$(x)=""
230
PRINT
NOMBRE$(x);"
240
NEXT
250
PRINT
"Fin de la lista"
260
RETURN
270
INPUT
"Buscar
280
FOR
x=1
290
IF
INSTR(NOMBRE$(x),BUSCA$)=0
300
PRINT
NOMBRE$(x);"
310
END
320
NEXT
330
PRINT"No lo encuentro"
340
RETURN
¡Mucho más limpio! Pero sigamos con el programa. Ahora queremos que cada vez que
introduzcamos un dato nuevo (nombre y número), el ordenador lo coloque al final de la lista
actual, en el primer lugar que encuentre vacío. En esta ocasión vamos a utilizar la instrucción
LEN para determinar la longitud de una cadena literal. Especificaremos lo siguiente:
Si (IF) la longitud de NOMBRES(x) es mayor que 0, es decir, si ya hay un dato en ese elemento
de la lista, entonces (THEN) ir a la línea 180 (que provoca el salto al siguiente elemento de la
lista):
135 IF LEN(NOMBRE$(x))>0 THEN 180
120,210,270
100
TO
";NOMBRE$(x)
THEN
190
";TEL$(x)
TO
100
THEN
250
";TEL$(x)
";BUSCA$
TO
100
";TEL$(x)
Manual de Amstrad CPC 6128 (revisión 2008) - Página 103
";el
THEN
320
Publicidad
Tabla de contenido
