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