'*************************************************************************
'
'   Rechnernamen und Netzlaufwerke finden f�r PowerBASIC 3.0/3.2
'
'    (nur ein kleines Demo)
'
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           FidoNet :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'*************************************************************************

CLS

PRINT ">"; NetWorkstationName$;"<"

PRINT Netlist$(0)
PRINT Netlist$(1)


FUNCTION NetWorkstationName$ public
        DIM NetBuffer16 AS LOCAL STRING * 16
        ! push ds
        ! mov  ax, &h5E00
        ! lea  dx, NetBuffer16$
        ! int  &h21
        ! pop  ds
        NetWorkstationName$ = NetBuffer16$
END FUNCTION

FUNCTION NetList$(BYVAL Number%) public
        DIM NetBuffer16  AS LOCAL STRING * 16
        DIM NetBuffer128 AS LOCAL STRING * 128
        ! push ds
        ! push bp
        ! mov  ax, &h5F02
        ! mov  bx, Number%
        ! lea  di, NetBuffer128
        ! push ds
        ! pop  es
        ! lea  si, NetBuffer16
        ! int  &h21
        ! pop  bp
        ! pop  ds
        PRINT NetBuffer16; "<"
        PRINT NetBuffer128; "<"
END FUNCTION