12 lines
239 B
Text
12 lines
239 B
Text
|
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
|