'AccuTerm script to prevent closing a session while it is still connected
Sub CustomExit()
     Dim n As Integer
     Dim s As Session
     n=0
     For Each s In Sessions
                  n=n+Abs(s.Connected)
       Next
     If n > 0 Then Beep Else AccuTerm.Terminate
End Sub

Sub CustomClose()
     If ActiveSession.Connected Then Beep Else ActiveSession.Close
End Sub