🚀 go-pugleaf

This is goto-free and I think equally clear:>>>------------------------------------------------------------------------------
  HEV    hev1, hev2, hev3;     /* Event semaphores */
  HMTX   hmtx;                 /* Mutex semaphore  */ 
  void  *ptr;              
  if DosCreateEventSem(0, &hev1, 0, FALSE) then do;	
   if DosCreateEventSem(0, &hev2, 0, FALSE) then do;
    if DosCreateEventSem(0, &hev3, 0, FALSE) then do;
     if DosCreateMutexSem(0, &hmtx, 0, FALSE) then do;
      ptr = malloc(SOME_SIZE)
      if ptr<>NULL then do;
         /* Do some stuff here */
         return TRUE; /* We did okay */ end;
      DosCloseMutexSem(hmtx);  end;
     DosCloseEventSem(hev3);  end;
    DosCloseEventSem(hev2);  end; 
   DosCloseEventSem(hev1);  end;
  return FALSE;


And I would assert my code is (1) a lot more PL/1-like and 
(2) a lot easier to understand.