12 lines
277 B
Text
12 lines
277 B
Text
$INCLUDE "rapidq.inc"
|
|
|
|
DIM file AS QFileStream
|
|
|
|
FUNCTION fileSize(name$) AS Integer
|
|
file.Open(name$, fmOpenRead)
|
|
Result = file.Size
|
|
file.Close
|
|
END FUNCTION
|
|
|
|
PRINT "Size of input.txt is "; fileSize("input.txt")
|
|
PRINT "Size of \input.txt is "; fileSize("\input.txt")
|