10 DIM A$(40,3)
20 FILE#1:"DTA1:PRLPER.BA"\FOR I=1 TO 40\INPUT#1:A$(I),H\NEXT I
30 CLOSE#1\Z1=40\FILEV#2:"DTA1:PRLPER.BA"\PRINT#2:Z1
40 FOR I=1 TO 40\PRINT#2:A$(I)\NEXT I\CLOSE#2
50 END