$CPU 8086          ' make compatible with XT systems
$LIB ALL OFF       ' turn off all PowerBASIC libraries
$ERROR ALL OFF     ' turn off all PowerBASIC error checking
$OPTIMIZE SIZE     ' optimize for smaller code
$COMPILE UNIT      ' compile to a UNIT (.PBU)
'$COMPILE EXE       ' compile to a UNIT (.PBU)

DEFINT A-Z         ' Required for all numeric functions, forces PB to not
                   ' include floating point in UNIT (makes it smaller)
'/*------------------------------------------------------------------*/
DECLARE FUNCTION WORDS(BYVAL X AS STRING) AS INTEGER
DECLARE FUNCTION WORDINDEX(BYVAL X AS STRING, BYVAL NBR AS INTEGER) AS INTEGER
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB1"
'/*------------------------------------------------------------------*/
    FUNCTION SUBWORD(BYVAL X AS STRING, BYVAL N AS INTEGER, BYVAL L AS INTEGER) PUBLIC AS STRING
      XRET$ = ""
      NWRDS = WORDS(X)
      IF N > 0 AND N <= NWRDS THEN
        SX = WORDINDEX(X,N)
        IF L = 0 THEN LX = LEN(X)+2
        IF L > 0 THEN LX = WORDINDEX(X,N+L)
        XRET$ = MID$(X,SX,LX-SX-1)
      END IF
      FUNCTION = RTRIM$(XRET$)
    END FUNCTION
'/*------------------------------------------------------------------*/