10 PRINT "SADEYA/INFORTECNICA"
20 PRINT "SELECCIONADOR DE VALORES MAXIMOS Y MINIMOS DE LA VARIABLE X, EN LISTADOS DE EFEMERIDES"
30 PRINT
40 PRINT "CON EL PROGRAMA TEXPAD SELECCIONAR EL BLOQUE DE LA VARIABLE QUE CONDICIONA LAS EFEMERIDES"
50 PRINT "POR EJEMPLO LA VARIABLE DELTA (DISTANCIA A LA TIERRA)"
60 PRINT "COPIAR BLOQUE DE LA VARIABLE, AŅADIR UNA COMA AL FINAL DE CADA LINEA MEDIANTE -REMPLAZAR "
70 PRINT "ESPACIO VACIO POR COMA-. UNA VEZ MODIFICADO EL BLOQUE DE LA VARIABLE COPIARLO AL INICIO"
80 PRINT "DE FORMA QUE QUEDE UN LISTADO: VARIABLE SELECCIONADA, EFEMERIDES"
85 PRINT
90 PRINT "GUARDAR EL ARCHIVO ARREGLADO CON EL NOMBRE EFEM5.TXT EN EL DIRECTORIO JUNTO A ESTE PROGRAMA"
100 INPUT "SI HA REALIZADO LOS PASOS INDICADOS MARCAR 1"; NN
110 IF NN = 1 THEN 600
120 END
600 INPUT "VALOR MINIMO DE LA VARIABLE"; limmen
610 INPUT "VALOR MAXIMO DE LA VARIABLE"; limmay
60000 OPEN "efem6.txt" FOR OUTPUT AS #1
60010 OPEN "efem5.txt" FOR INPUT AS #2
60120 IF EOF(2) THEN 60250
60130 INPUT #2, var, text$
60185 IF var > limmen AND var < limmay THEN 60190
60186 GOTO 60120
60190 PRINT #1, text$
60240 GOTO 60120
60250 CLOSE #2: END