1 OPEN "nom.txt" FOR OUTPUT AS #1
2 OPEN "elem3.txt" FOR INPUT AS #2
3 OPEN "p8.txt" FOR OUTPUT AS #3
4 OPEN "n8.txt" FOR OUTPUT AS #4
5 OPEN "i8.txt" FOR OUTPUT AS #5
6 OPEN "q8.txt" FOR OUTPUT AS #6
7 OPEN "e8.txt" FOR OUTPUT AS #7
8 OPEN "a5.txt" FOR OUTPUT AS #8
9 OPEN "m5.txt" FOR OUTPUT AS #9
10 OPEN "d5.txt" FOR OUTPUT AS #10
12 OPEN "k8.txt" FOR OUTPUT AS #11
13 OPEN "tp.txt" FOR OUTPUT AS #12
14 OPEN "y5.txt" FOR OUTPUT AS #13
15 OPEN "s8.txt" FOR OUTPUT AS #14
16 OPEN "g8$.txt" FOR OUTPUT AS #15
20 IF EOF(2) THEN 50
30 INPUT #2, mpc$, nom$, tp$, q8, e8, p8, n8, i8, a8, period$, mpc$, b8, g8, gg8, hh8
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 #15, g8$
40 REM PRINT #11, g8
48 GOTO 20
50 CLOSE #2: END