2 OPEN "tp.txt" FOR INPUT AS #2
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
20 IF EOF(2) THEN 50
30 INPUT #2, a5, m5, d5
37 PRINT #8, a5
38 PRINT #9, m5
39 PRINT #10, d5
48 GOTO 20
50 CLOSE #2: END