home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / sharew / accs / show_ram / show_ram.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1987-04-22  |  2.2 KB  |  41 lines
  1.  
  2. {$A+,S2,D-}
  3. PROGRAM Show_Free_RAM;
  4.  
  5. CONST XPos = 559;
  6.  
  7.       {$I GEMCONST.I}
  8.  
  9. TYPE {$I GEMTYPE.I}
  10.  
  11. VAR Menu_Id, Appl, YPos : INTEGER;
  12.     Our_Name            : Str255;
  13.     Zeile               : STRING;
  14.     Speicher            : LONG_INTEGER;
  15.  
  16. {$I GEMSUBS.I}
  17.  
  18. FUNCTION GetRez : INTEGER;
  19.   XBIOS (4);
  20.  
  21. FUNCTION MAlloc (Wieviel : LONG_INTEGER) : LONG_INTEGER;
  22.   GEMDOS ($48);
  23.  
  24. PROCEDURE Event_Loop;
  25. VAR Dummy, MausX, MausY, MausStatus, Flag : INTEGER;
  26.     Msg    : Message_Buffer;
  27.     Zeigen : BOOLEAN;
  28. BEGIN
  29.    Zeigen := TRUE;                          { Bei Systemstart schon an }
  30.    Flag := E_Message|E_Timer;
  31.  
  32.    WHILE True DO BEGIN                      { Eine Endlosschleife }
  33.  
  34.       Dummy := Get_Event (Flag, 0,0,0, 100,
  35.                           FALSE, 0,0,0,0, FALSE, 0,0,0,0,
  36.                           msg, Dummy,Dummy,
  37.                           Dummy,Dummy,Dummy,
  38.                           Dummy);
  39.  
  40.       { Eine Ereignismeldung kommt sowohl bei jedem Anwählen des
  41.         AccePRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPRPR