 |
BCX Console Demonstration Program S77.bas
|
DIM
FileSize
DIM
Junk
IF
COMMAND$
=
""
THEN
PRINT
"Usage: S77 filename"
END
END
IF
DIM
Buffer$ *
LOF
(
COMMAND$
)
+
1
FileSize =
LoadFile(
COMMAND$
, Buffer$)
COLOR
3
, 0
: PRINT
"LoadFile loaded"
, FileSize, " bytes into Buffer$"
COLOR
7
, 0
: INPUT
"Press Enter to display contents of Buffer$"
, Junk
CLS
PRINT
Buffer$
FREE
Buffer$
FUNCTION
LoadFile(
Fname$, Buffer$)
AS
DWORD
' ------------------------------------------------------
' Assumes Fname$ is a valid FileName to an existing file
' Assumes Buffer$ is large enough to hold entire file
' -------------------------------------------------------
DIM
Read AS
DWORD
DIM
H AS
HANDLE
DIM
Fsize
Fsize =
LOF
(
Fname$)
H =
CreateFile(
Fname$, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0
, 0
)
IF
H THEN
ReadFile(
H, Buffer$, Fsize, &
Read, NULL)
CloseHandle(
H)
END
IF
FUNCTION
=
Read
END
FUNCTION