5 'FILE-EXIST
10 A=(PEEK&H18D1+PEEK&H18D2*256)+2:BASE=PEEK(A)+PEEK(A+1)*256
20 INPUT"FILE=";A$:MODE110(BASE)SF A$
30 IFPEEK&H17A7<>0 THEN PRINT"File not found." ELSE PRINT A$;" is found."
40 A$=INPUT$(1):GOTO20
