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