!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