development/compilers/freepascal/rtl/os2/tests/helloos2.pas

   1 program HelloOS2;
   2
   3 var A,B: ^word;
   4
   5 begin
   6     WriteLn ('Hello World.');
   7     case os_mode of
   8      osDOS: WriteLn ('Running under DOS.');
   9      osDPMI: WriteLn ('Running under DPMI (RSX extender).');
  10      else WriteLn ('Running under OS/2.');
  11     end;
  12     WriteLn ('Free memory: ', MemAvail);
  13     WriteLn ('Largest block: ', MaxAvail);
  14     WriteLn ('Heap start: ',longint(heaporg));
  15     WriteLn ('Heap end: ',longint(heapend));
  16     WriteLn ('Memory allocation.');
  17     GetMem (A, 1000);
  18     GetMem (B, 2000);
  19     A^ := 2;
  20     B^ := 10;
  21     WriteLn ('Free memory: ', MemAvail);
  22     WriteLn ('Largest block: ', MaxAvail);
  23     FreeMem (A, 1000);
  24     FreeMem (B, 2000);
  25 end.