mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-18 12:02:31 +02:00
25 lines
667 B
ObjectPascal
25 lines
667 B
ObjectPascal
program helloos2;
|
|
|
|
var a,b:^word;
|
|
|
|
begin
|
|
writeln('Hallo Wereld.');
|
|
if os_mode=osDOS then
|
|
writeln('We draaien onder DOS.')
|
|
else
|
|
writeln('We draaien onder OS/2.');
|
|
writeln('Vrij geheugen: ',memavail);
|
|
writeln('Grootste blok: ',maxavail);
|
|
writeln('Heapstart: ',longint(heaporg));
|
|
writeln('Heapend: ',longint(heapend));
|
|
writeln('Geheugen aan het bezetten.');
|
|
getmem(a,1000);
|
|
getmem(b,2000);
|
|
a^:=2;
|
|
b^:=10;
|
|
writeln('Vrij geheugen: ',memavail);
|
|
writeln('Grootste blok: ',maxavail);
|
|
freemem(a,1000);
|
|
freemem(b,2000);
|
|
end.
|