... VDU 23,22,800;800;8,16,8,8 PRINT filename$ H%=OPENIN(filename$)
FILE_ATTRIBUTE_NORMAL = &80 GENERIC_READ = &80000000 OPEN_EXISTING = 3 SYS "CreateFile","Text1.txt",GENERIC_READ,0,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0 TO f% WHILE NOT EOF#f% INPUT#f%,q$ PRINT q$ ENDWHILE CLOSE #f% REM Test whether it's closed properly f%=OPENIN"Text1.txt" WHILE NOT EOF#f% INPUT#f%,q$ PRINT q$ ENDWHILE CLOSE #f%