ALARM: asynchonous calls(H)

• initialize a

  delayed subroutine call

  to a SUBROUTINE named either of "F2", or "F3", or ... "F9"
  • ALARM(wait_seconds, Fn) ! 2 ≤ Fn ≤ 9
  wait_seconds is any integer number ≥ 1. See also ⇒ how to suspend execution for a given time
• if Fn is running and Fm is called, then
  • Fn is suspended if m > n

    and

    n ≤ 5
  • Fm is queued in all other cases
• subroutines "F2" to "F9" can also be called by the tool buttons "F2" to "F9". These buttons appear on the tool bar as soon as a SUBROUTINE "F2" to "F9" statement is found by HicEst.
• a click to a tool button "F2" to "F9" or hitting the "F2" to "F9" keyboard button will call subroutine "F2" to "F9" immediately, suspending the running program. Program execution is resumed on END of subroutine "F2" to "F9"
• • ALARM( -2) !

    turn off any pending ALARMs

• • ALARM( -1) !

    clear stack

    of all pending SUBROUTINEs and FUNCTIONs
  This can be useful in Callback procedures
• • ALARM( 0 ) ! turn off all currently pending ALARMs, SUBROUTINEs, and FUNCTIONs
• • ALARM( 1 ) !

    wait for event

    at this statement
  In RUN mode this lets HicEst wait at this statement for any keyboard or mouse event
• • ALARM(999) !

    quit HicEst

    immediately
• This is an example:

    call F4 !  starts periodic calls to F4
   END
  
  
  SUBROUTINE F4 ! this is the tooltip text for tool F4.
     ! asynchronous subroutine, prints every 5 seconds the time to row 1
     WRITE(Row=1, Column=20, PoinT=14, Format="Utime is HH:mm:SS.sss") 0
     ALARM( 5, 4) ! this will call F4 in 5 seconds
   END
  
  
  SUBROUTINE F9 ! stop all alarms
     ALARM(-2)  ! turn off all pending ALARMs 
   END
  

• Here are some more examples:
  • • ALARM(1E100, n) !

      delay indefinitely

      a pending call to Fn

  •    ALARM(3,2)  ! if nothing happens call F2 within 3 seconds
       ALARM(1)    ! wait here for any alarm, keyboard, or mouse event
       ALARM(-2)   ! if HicEst made it as far as here: cancel any alarms
     END
    
    SUBROUTINE F2 ! quit HicEst immediately
       ! call this procedure by
       !   script: ALARM(delay, 2)
       !   mousing the F2 toolbar button 
       !   keyboard F2 key
       ! you will be asked if anything is to be saved:
       ALARM(999) ! quit
     END

How your donation will be used, and how to get a HicEst key code in return ©2000-2010 Georg Petrich, HicEst Instant Prototype Computing. All rights reserved. Impressum