struct IntuitionBase *IntuitionBase;
struct IntuiMessage RetryMsg = {
   {
   0,0,NT_MESSAGE,0,0,
   0,sizeof(struct IntuiMessage),
   };

main()
{
struct Screen *AScreen;
struct Window *Window;
struct MsgPort *mport;

   IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library",0L);
   RetryMsg.Class = RAWKEY;
   RetryMsg.Code = 0x34;
   RetryMsg.Qualifier = IEQUALIFIER_LCOMMAND;
   mport = CreatePort(0L,0L);
   FOREVER
      {
      Forbid();
      AScreen = IntuitionBase->ActiveScreen;
      if (AScreen->Flags & WBENCHSCREEN)
         {
         for (Window = AScreen->FirstWindow; Window; Window = Window->NextWindow)
            if (!strcmp(Window->Title,"System Request"))
               {
               RetryMsg.ExecMessage.mn_ReplyPort = mport;
               RetryMsg.IAddress = (struct Window *) RetryMsg.IDCMPWindow = Window;
               PutMsg(Window->UserPort,&RetryMsg);
               break;
               }
         if (!AScreen->Title)
            {
            AScreen->Flags &= ~WBENCHSCREEN;
            AScreen->Flags |= CUSTOMSCREEN;
            }
         }
      Permit();
      Delay(70L);
      }
}