10F%=OPENIN"GESSDAT" 20VDU2 30REPEAT:INPUT#F%,A$,B$,C$:PRINTA$,B$ 'C$ 40FORL%=1TO10:INPUT#F%,A$:PRINTA$;" " ;:NEXT:PRINT 50UNTILEOF#F% 60CLOSE#F% 70VDU3