mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2025-09-21 22:53:51 +02:00
Freeman
9888dd9095
Extended I/O procedures (CoreLite-like) removed, initial Read/ReadLn procedures added to System unit.
15 lines
221 B
ObjectPascal
15 lines
221 B
ObjectPascal
program LoadFileApp;
|
|
|
|
uses
|
|
KolibriOS, CRT;
|
|
|
|
var
|
|
FileSize: LongWord;
|
|
Buffer: Pointer;
|
|
|
|
begin
|
|
InitConsole('Load File');
|
|
Buffer := LoadFile('/sys/example.asm', FileSize);
|
|
con_write_string(Buffer, FileSize);
|
|
end.
|