Category : Recently Uploaded Files
Archive   : RBCOM345.ZIP
Filename : EXAMPLES.MAC

; RBcomm macro examples
;
; by Ralf Brown

;---------------------------------------------------------------
; beep every half hour
; continues until another macro file is loaded or some other binding
; issues a CANCEL_DELAYED ALL
;
F2 EVERY 1800 1800
BEEP

;---------------------------------------------------------------
; display a running clock in the DESQview notification window
; continues until another macro file is loaded or some other binding
; issues a CANCEL_DELAYED ALL
;
F3 MULTI
MESSAGEBOX "%t on %d" ; var expansion is new capability added in v3.33
DELAYED 1
CALL F3
END

;---------------------------------------------------------------
; display a time-limited message without DESQview message-box
; note: should be on top-most row to avoid a mess if screen scrolls during
; wait interval
;
F4 MULTI
MESSAGE 0 50 "^ATimed test message (%t)"
DELAYED 3
MESSAGE 0 50 " " ; same length as orig message
END


;---------------------------------------------------------------
; repeatedly try to elicit a response from the remote system
; abort after ten minutes of no response
;
F5 MULTI
DELAYED 600
ABORT_UNTIL ; give up after ten minutes
UNTIL SUCCESS
{
TEXT "\r"
WAITFOR 2 "login:"
}
CANCEL_DELAYED LAST ; no more need for the timed abort
END

;---------------------------------------------------------------
; Set up a fancy alarm for announcing the completion of a file
; transfer (or TYPE) or successful connection with a remote system.
;
; If the "Alarm" pseudokey is not bound, it is equivalent to
; Alarm BEEP
;
Alarm REPEAT 2
{
SOUND 500 1 ; quickly rising tone
SOUND 600 1
SOUND 700 1
SOUND 800 1
SOUND 900 1
SOUND 1000 1
SOUND 0 3 ; pause briefly between repetitions
}

;---------------------------------------------------------------
; allow sample fancy alarm to be invoked at will
;
F6 ALARM

;---------------------------------------------------------------
; notify user of any incoming calls (only for DESQview and Hayes-comp modems)
;
OnLoad WHEN 0 "RING^M"
NOTIFY "Phone is ringing"

;---------------------------------------------------------------
; add the standard bindings which have not been overridden
#include "rbcomm"