# $language = "VBScript"
# $interface = "1.0"

' Get SecureNetTerm's Rows/Columns properties and use with the host's
' resize command to make sure the host is in agreement with our settings.

Sub Main
  lines = snt.Rows
  cols = snt.Columns
  snt.Send "resize -s " & lines & " " & cols & Chr(13)
End Sub