1 OPEN "nom.txt" FOR OUTPUT AS #1
2 OPEN "elem6.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 "tp.txt" FOR OUTPUT AS #8
9 REM OPEN "m5.txt" FOR OUTPUT AS #9
10 REM OPEN "d5.txt" FOR OUTPUT AS #10
12 OPEN "g8.txt" FOR OUTPUT AS #11
20 IF EOF(2) THEN 50
30 INPUT #2, nom$, eq, tp, q8, e8, p8, n8, i8, g8, va8, 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 #8, tp
38 REM PRINT #9, m5
39 REM PRINT #10, d5
40 PRINT #11, g8
48 GOTO 20
50 CLOSE #2: END