5 CLS
10 PRINT "SADEYA/INFORTECNICA"
20 PRINT "SELECCION DE COMETAS POR ELEMENTOS MAXIMOS Y MINIMOS"
30 PRINT
40 PRINT "DEBE FIGURAR EN EL ARCHIVO ELEM5.TXT UNA BASE DE DATOS CON EL FORMULARIO:"
50 PRINT "NOMBRE, ORDEN, q, e, peri, nodo, i, fuente, mag, mag2 (los tres datos finales son arbitrarios)"
55 PRINT "PARA IDENTIFICAR COMETAS ANTERIORES AL 2000 ADJUNTAR BASE COMETLIST.TXT EN ELEM5.TXT"
60 GOTO 61000

60000 OPEN "elem6.txt" FOR OUTPUT AS #1
60010 OPEN "elem5.txt" FOR INPUT AS #2
60120 IF EOF(2) THEN 60250
60125 REM
60130 INPUT #2, NOM$, ord$, amd5, q8, E8, p8, n8, i8, fuen$, g8, mg$
60185 IF q8 > qmi AND q8 < qma THEN 60188
60186 GOTO 60215
60188 IF p8 > pmi AND p8 < pma AND n8 > nmi AND n8 < nma AND i8 > iMI AND i8 < iMA AND E8 > emi AND E8 < ema THEN 60190
60189 GOTO 60215
60190 PRINT #1, NOM$; ","; ord$; ","; amd5; ","; q8; ","; E8; ","; p8; ","; n8; ","; i8; ","; fuen$; ","; g8; ","; mg$
60215 REM
60240 GOTO 60120
60250 CLOSE #2: END



61000 PRINT "SELECCION DE COMETAS POR ELEMENTOS, LOS RESULTADOS FIGURARAN EN ELEM6.TXT"
61040 INPUT "q MAX, q MIN"; qma, qmi
61070 INPUT "PERI MAX, PERI MIN"; pma, pmi
61080 INPUT "NODO MAX, NODO MIN"; nma, nmi
61090 INPUT "i MAX, i MIN"; iMA, iMI
61100 INPUT "e MAX, e MIN"; ema, emi
61200 GOTO 60000