100 PROGRAM "Type.bas"
110 INPUT PROMPT "File name: ":F$
120 WHEN EXCEPTION USE IOERROR
130   OPEN #1:F$
140   COPY FROM #1 TO #0
150   CLOSE #1
160 END WHEN
170 HANDLER IOERROR
180   PRINT EXSTRING$(EXTYPE)
190   CLOSE #1
200 END HANDLER