REQ {Reqtitle$,Reqtext$,Reqbuttons$}  RTBASE .l ?Reqtags+4,&Reqtitle$ ; Preserve Parameters .l ?Reqtext,&Reqtext$ .l ?Reqbuttons,&Reqbuttons$ .l ?Reqbase,RTBASE .l a4-a6,-(a7) ; Preserve registers #1,d0 ; Type of requestor 1=EZRequestA .l a0,a0 ~.l Reqbase,a6 ; Base address of the Reqtools library y -30(a6) ; Call AllocRequest for memory block ~.l d0,Reqmem ; store Pointer to requestor memory block H Reqfinn ; Exit if no memory available z.l Reqtags(pc),a0 ; Pointer to custom tags ~.l Reqtext,a1 ; Pointer to requestor text ~.l Reqbuttons,a2 ; Pointer to buttons string ~.l d0,a3 ; Pointer to requestor memory block .l a4,a4 ~.l Reqbase,a6 y -66(a6) ; Call EZRequestA! ~.l d0,Reqresult ; Store result ~.l Reqmem,a1 ; Release requestor memory ~.l Reqbase,a6 y -36(a6) ; Call FreeRequest to free memory blockReqfinn .l (a7)+,a4-a6 ; Restore registers  .l(?Reqresult) ; Return result Reqtext: &.l 1 Reqbuttons: &.l 1 Reqbase: &.l 1 Reqmem: &.l 1 Reqresult: &.l 1 Reqtags: %.l $8000 0014,$0000 0000,$8000 000B,"_",$8000 0003,$0000 0002,$0000 0000 ; Title Pointer Underscore Centre Screen Tag End