' This program demonstrates the mibset function
' This function may be used to set variables
' in the Sarian's internal MIB.
' Use the command "at\mibs" to see what the variable names are.
' A set of MIB string variables are provided for use by Basic
' scripts, called bas.0.userstringN where N is 1...5
'
const nl = "\r\n"
on error goto ErrorLabel

print nl

a = mibset("bas.0.userstring5", "mystring")

print "mibset returned ", a, nl
if a = TRUE then
    print "TRUE", nl
else
    print "FALSE", nl
endif

stop

ErrorLabel:
print "An Error occured: ", error$, "\r\n"
