10 OPEN "DRESS" FOR INPUT AS#2
20 FOR X=1 TO 5
30    INPUT #2,S$,C$,P:PRINT S$,C$,P
50 NEXT X:CLOSE #2