1 OPEN "nombre.txt" FOR OUTPUT AS #1
2 OPEN "elem4.txt" FOR INPUT AS #2
3 OPEN "peri.txt" FOR OUTPUT AS #3
4 OPEN "nodo.txt" FOR OUTPUT AS #4
5 OPEN "inclina.txt" FOR OUTPUT AS #5
6 OPEN "campo_q.txt" FOR OUTPUT AS #6
7 OPEN "campo_e.txt" FOR OUTPUT AS #7
8 OPEN "a¤o.txt" FOR OUTPUT AS #8
9 OPEN "mes.txt" FOR OUTPUT AS #9
10 OPEN "dia.txt" FOR OUTPUT AS #10
12 OPEN "magnitud.txt" FOR OUTPUT AS #11
13 OPEN "tp.txt" FOR OUTPUT AS #12
20 IF EOF(2) THEN 50
30 INPUT #2, nom$, tp$, q8, e8, p8, n8, i8, a8, period$, mpc$
31 PRINT #1, nom$
32 PRINT #3, p8
33 PRINT #4, n8
34 PRINT #5, i8
35 PRINT #6, q8
36 PRINT #7, e8
37 PRINT #12, tp$
38 PRINT #9, m5
39 PRINT #10, d5
40 REM PRINT #11, g8
48 GOTO 20
50 CLOSE #2: END