10 REM XDOS:TYPE
20 FORI=1TO10
30 IFAR$(I)=""GOTO100
40 OPEN1,8,2,AR$(I)
50 IFAR$(2)<>""THENPRINTAR$(I):PRINT
60 IFST<>0THENPRINT"?ERROR":GOTO90
70 GET#1,A$:IF64ANDSTGOTO90
80 PRINTA$;:GOTO70
90 CLOSE1:PRINT:NEXT
100 CLOSE1:END