11 lines
264 B
Text
11 lines
264 B
Text
file% = OPENIN(@dir$+"input.txt")
|
|
IF file% THEN
|
|
PRINT "File size = " ; EXT#file%
|
|
CLOSE #file%
|
|
ENDIF
|
|
|
|
file% = OPENIN("\input.txt")
|
|
IF file% THEN
|
|
PRINT "File size = " ; EXT#file%
|
|
CLOSE #file%
|
|
ENDIF
|