C code:

---

#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <stdlib.h>

#include <intuition/intuition.h>
#include <intuition/screens.h>

#include <proto/dos.h>
#include <proto/intuition.h>

struct IntuitionBase *IntuitionBase = NULL;

int main(int argc, char *argv[])
{
	struct Screen *scr;
	short sapens[] = {~0};

    IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",0L);
    if(IntuitionBase)
    {

	  scr = OpenScreenTags(NULL,
  		  SA_ShowTitle, 0,
  		  SA_Depth, 8,
  		  SA_DisplayID, 0x29804,  // = 640x512, 8bit, native
  		  SA_Pens, sapens,
  		  SA_Quiet, 1,
  		  SA_Type, CUSTOMSCREEN,
  		  SA_SharePens, 1,
  		  TAG_DONE);

      if(scr)
      {

  	  	Delay(50);

  	  	printf("Total: %d Free: %dn", (int) scr->ViewPort.ColorMap->Count, (int) scr->ViewPort.ColorMap->PalExtra->pe_NFree);

	    CloseScreen(scr);
      }
      else printf("Konnte Screen nicht öffnen!n");

      CloseLibrary(IntuitionBase);
    }
    else printf("Konnte Intuition-Lib nicht öffnen!n");

	return 0;
}

---