Category : BASIC Source Code
Archive   : NETB.ZIP
Filename : NETB.BAS

':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: :::
'::: PROGRAM: NETB.BAS :::
'::: AUTHOR: Mike Shaffer :::
'::: DATE: Mar 12, 1991 :::
'::: VERSION: 2.0 :::
'::: PURPOSE: Tests the NETB.SUB subroutine :::
'::: REVISIONS: :::
'::: :::
'::: :::
'::: :::
'::: NOTES: This program assumes you're using PDQ from :::
'::: Crescent Software. If not (shame on you!) :::
'::: than you can modify the interrupt call to :::
'::: use INT86 as provided with QuickBASIC, and :::
'::: take out the reference to PDQDECL.BAS :::
'::: :::
'::: Compile using: :::
'::: :::
'::: BC getn/o/s; :::
'::: LINK /NOD/NOE getn,,,pdq[386].lib :::
'::: :::
'::: or similar... :::
'::: :::
'::: :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'
'$include: 'pdqdecl.bas'


call netb(a%,b%,c%,d%)
If a% then
print "NetBIOS is active."
print b%" network names available."
print c%" network commands available."
print d%" network sessions available."
else
print "NetBIOS is NOT active on this station."
end if
'
end


'$include: 'netb.sub'