!Sample program to demonstrate the use of NOTIFY.SBR
!Courtesy: Stoner & Wilson, CSE
! 300 S. Jefferson, Suite 304
! Springfield, Mo. 65806
! (417) 865-2798
map1 trmnam,s,6
map1 msg,s,80
input "Enter terminal name :";trmnam
input line "Msg:";msg
if len(trmnam) = 0 &
xcall notify,msg &
else &
xcall notify,trmnam,msg
end
! Note: NOTIFY.SBR does not support the switches which are included
! with the .LIT version. To clear the status line, you need to
! send a message of 80 spaces or set up a basic routine as follows:
!
! print tab(-1,54);space(80) -- AMUS Staff