blob: 82fdc4bf996870ab84763ea521e1ba201f592dfd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
program HelloOS2;
var A,B: ^word;
begin
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.
|
