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