RosettaCodeData/Task/File-size/Liberty-BASIC/file-size.liberty

10 lines
212 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
'input.txt in current directory
OPEN DefaultDir$ + "/input.txt" FOR input AS #m
PRINT "File size: "; lof(#m)
CLOSE #m
'input.txt in root
OPEN "c:/input.txt" FOR input AS #m
PRINT "File size: "; lof(#m)
CLOSE #m