$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 SPEED ' 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) '/*------------------------------------------------------------------*/ $CODE SEG "MLIB1" '/*------------------------------------------------------------------*/ FUNCTION RINSTR(BYVAL SP,BYVAL S$,BYVAL F$) PUBLIC AS INTEGER IF SP = 0 THEN SP = LEN(S$) IF SP < LEN(S$) THEN S$ = LEFT$(S$,SP) S$ = UCASE$(S$) FL = LEN(F$) IF FL < 1 THEN FUNCTION = 0 EXIT FUNCTION END IF SP = SP - FL +1 WHILE SP > 0 T$ = MID$(S$,SP,FL) IF T$ = F$ THEN FUNCTION = SP EXIT FUNCTION END IF DECR SP WEND IF SP < 1 THEN FUNCTION = 0 END FUNCTION '/*------------------------------------------------------------------*/ ' $INCLUDE "C:\CODE\MLIB\MLIB.INC" '/* 1234567890123456789012345678901234567 ' T$ = "HELLO WORLD OUT THERE TODAY OUT THERE" ' TP = RINSTR(28,T$,"OUT") ' SAY 25,50,STR$(TP),31 ' Y$ = GETKEY