AMSTRAD CPC 6128 Manual Del Usario página 109

520 #9,NOMBRE$(x),TEL$(x)
INPUT
530
NEXT
540 CLOSEIN
550 PRINT"Fin de la carga de los datos"
560 RETURN
Nota del revisor (2008): La línea 390 hace que el programa se interrumpa cuando se busca un
dato (y eso puede suponer que se pierdan los datos introducidos). Posiblemente sería más
razonable llevar una variable "encontrado" para controlar si ha aparecido algún dato o no, y
mostrar un mensaje final adecuado:
355 encontrado
390 encontrado
410 IF encontrado
= 0
= 1
= 0 THEN PRINT
Manual de Amstrad CPC 6128 (revisión 2008) - Página 108
"No lo encuentro"