$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 WORD(BYVAL X AS STRING,XN AS INTEGER) AS STRING '/*------------------------------------------------------------------*/ $CODE SEG "MLIB1" '/*------------------------------------------------------------------*/ FUNCTION WORDPOS(BYVAL X AS STRING, BYVAL SW AS STRING) PUBLIC AS INTEGER WNBR = WORDS(X) FOR CNT = 1 TO WNBR T$ = WORD(X,CNT) IF T$ = SW THEN XL = CNT NEXT CNT FUNCTION = XL END FUNCTION '/*------------------------------------------------------------------*/ ' $INCLUDE "C:\CODE\MLIB\MLIB.INC" ' T$ = "APPLES TASTE GOOD IN THE SUMMER" ' PRINT T$ ' PRINT WORDPOS(T$,"GOO") ' Y$ = GETKEY '/*------------------------------------------------------------------*/