home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / pp_demo / mfree.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-10-23  |  1.1 KB  |  55 lines
  1. PROGRAM FreierSpeicher;
  2. {$X+}
  3. (* Das Programm kann als Programm oder als Accessory gestartet
  4.     werden, die einzige Funktion, die es hat, ist den freien 
  5.     Speicherplatz anzuzeigen *)
  6.     
  7.     USES GEM, TOS;
  8.     
  9.     VAR     ap_id, vdi_handle, menu_id : INTEGER;    
  10.  
  11. PROCEDURE event_loop;
  12.     VAR     mg_buff : ARRAY_8;
  13. BEGIN
  14.     REPEAT
  15.         EVNT_MESAG(mg_buff);
  16.     UNTIL (mg_buff[0]=AC_OPEN); 
  17.     (* wartet bis Accessory-Menüeintrag angeklickt wurde *)    
  18. END;
  19.  
  20. PROCEDURE Show_box;
  21.     VAR     frei : LONGINT;
  22.             infostring, freistr : STRING;
  23.             button : INTEGER;
  24.             memptr : POINTER;
  25. BEGIN
  26.     memptr:=MALLOC(-1);
  27.     frei:=LONGINT(memptr);
  28.     str(frei,freistr);
  29.     Infostring:='[1][Freier Speicher: |'+freistr+' Bytes][ OK ]';
  30.     form_alert(1,infostring)
  31. END;
  32.  
  33. BEGIN
  34.     ap_id:=appl_init;
  35.     if ap_id>=0 then
  36.     begin
  37.         IF appflag THEN
  38.         begin
  39.             Show_box;
  40.             appl_exit;
  41.         end
  42.         ELSE
  43.         BEGIN
  44.           menu_id := MENU_REGISTER( ap_id, '  Freier Speicher');
  45.             WHILE menu_id>=0 DO
  46.             BEGIN
  47.               event_loop;
  48.                 Show_box;
  49.             END;
  50.         END;
  51.     END;
  52.     if not(appflag) then
  53.         WHILE TRUE DO
  54.             event_loop;
  55. END.