( Simple BusyRequester Example
( To Try this, open RPL Window and enter the following command
( "busyreq.rpl" LOAD BusyTest
( ------------------------------------------------------------

VARIABLE BusyHnd

: BusyTest

    "Doing Nothing ..." BUSY_OPEN BusyHnd !
    1000 0 DO 

        BusyHnd @ 	( fetch handle
	0 		( new title 
	I 10 / 		( value 0 ... 100
	BUSY_UPDATE 

	BusyHnd @ 	( fetch handle
	BUSY_CANCEL 	( check if cancelled
        IF 
            LEAVE
        ENDIF
    LOOP
    BusyHnd @ BUSY_CLOSE
;