Listing 4: Ein Programmgerüst für das AHI-Handling.

struct Library    *AHIBase;
struct MsgPort    *AHImp;
struct AHIRequest *AHIio;

if((AHImp = IExec->CreateMsgPort()))
{
 if((AHIio = (struct AHIRequest *) IExec->Create
	ÂIORequest(AHImp,sizeof(struct AHIRequest))))
 {
  AHIio->ahir_Version = 4;
	if(!(IExec->OpenDevice(AHINAME, 0,(struct IORequest *) AHIio,NULL)))
	 {
	  AHIBase = (struct Library *) AHIio
		Â>ahir_Std.io_Device;
		...
		IExec->CloseDevice((struct IORequest *)AHIio);
	 }
	 IExec->DeleteIORequest((struct IORequest *)AHIio);
  }
  IExec->DeleteMsgPort(AHImp);
}