10 SUB "INCAT"(F$,T$)
20 DIM B$[96],T$[1]
30 ON ERROR GOTO 60
40 CAT F$ @ B$=BUF$('L')
50 T$=B$[12,12] @ GOTO 70
60 OFF ERROR @ T$='0'
70 END