Category : BASIC Source Code
Archive   : QBNW-20.ZIP
Filename : SET_STAT.SUB

'--------------------------------------------------------------------------'
' '
' If you are a queue server, you may use this to set that '
' queue's status. '
' '
' Assign QID$ an id (use the routine Queue.ID), then put '
' some text in the variable STATUS$. '
' '
'--------------------------------------------------------------------------'
'
sub Set.Status(QID$, Status%, status$) static
defint a-z
redim inary%(7),outary%(7)
'
charge$ = string$(4, 0)
Request$ = " " + chr$(&h77) + QID$ + charge$ + status$
mid$(Request$,1,2) = mki$(len(Request$))
Reply$ = space$(10)
'
inary%(0) = &HE300
inary%(5) = SADD(Request$)
inary%(6) = SADD(Reply$)
'
call int86(&H21,varptr(inary%(0)),varptr(outary%(0)))
status% = (outary%(0) and &hff)
end sub