paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-22 00:03:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* translated to English

Browse Source
This commit is contained in:
Tomas Hajny 2000-06-22 17:13:11 +00:00
parent 022512a61d
commit e926a64732
1 changed files with 21 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
rtl/os2/tests/helloos2.pas
View File

@ -1,24 +1,25 @@
program helloos2;
program HelloOS2;
var a,b:^word;
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);
WriteLn ('Hello World.');
case os_mode of
osDOS: WriteLn ('Running under DOS.');
osDPMI: WriteLn ('Running under DPMI (RSX extender).');
else WriteLn ('Running under OS/2.');
end;
WriteLn ('Free memory: ', MemAvail);
WriteLn ('Largest block: ', MaxAvail);
WriteLn ('Heap start: ',longint(heaporg));
WriteLn ('Heap end: ',longint(heapend));
WriteLn ('Memory allocation.');
GetMem (A, 1000);
GetMem (B, 2000);
A^ := 2;
B^ := 10;
WriteLn ('Free memory: ', MemAvail);
WriteLn ('Largest block: ', MaxAvail);
FreeMem (A, 1000);
FreeMem (B, 2000);
end.