home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / utils / real3d32.dms / in.adf / RPL.LZH / RPL / busyreq.rpl < prev    next >
Encoding:
Text File  |  1995-04-18  |  516 b   |  27 lines
  1.  
  2. ( Simple BusyRequester Example
  3. ( To Try this, open RPL Window and enter the following command
  4. ( "busyreq.rpl" LOAD BusyTest
  5. ( ------------------------------------------------------------
  6.  
  7. VARIABLE BusyHnd
  8.  
  9. : BusyTest
  10.  
  11.     "Doing Nothing ..." BUSY_OPEN BusyHnd !
  12.     1000 0 DO 
  13.  
  14.         BusyHnd @     ( fetch handle
  15.     0         ( new title 
  16.     I 10 /         ( value 0 ... 100
  17.     BUSY_UPDATE 
  18.  
  19.     BusyHnd @     ( fetch handle
  20.     BUSY_CANCEL     ( check if cancelled
  21.         IF 
  22.             LEAVE
  23.         ENDIF
  24.     LOOP
  25.     BusyHnd @ BUSY_CLOSE
  26. ;
  27.