'ParamStr(x) Function fr PowerBASIC („hnlich wie Turbo-Pascal)
'Roland Arendes @ 2:2432/605.21
'berarbeiter und optimiert von Thomas Gohel@2:2410/330.1

PRINT ">"; ParamStr$(1); "<"

FUNCTION ParamStr (Count%) AS STRING
        Woerter% = TALLY(COMMAND$," ") + 1
        x% = INSTR(COMMAND$," ")
        IF x% = 0 THEN x% = LEN(COMMAND$)
        IF Count% = 1 THEN
            ParamStr$ = MID$(COMMAND$, 1, x%)
        ELSEIF Count% > Woerter% THEN
        ELSEIF Count% < 1 THEN
        ELSE
            FOR i% = 1 TO Count% - 1
                DO
                    INCR Xpos%
                    Char$ = MID$(COMMAND$, Xpos%, 1)
                LOOP UNTIL Char$ = " " OR XPos% = LEN(COMMAND$)
            NEXT i%
            YPos% = XPos%
            DO
               INCR Ypos%
               Char$ = MID$(COMMAND$, Ypos%, 1)
            LOOP UNTIL Char$ =" " OR YPos% = LEN(COMMAND$)
            z% = Ypos% - Xpos% + 1
            ParamStr$ = LTRIM$(RTRIM$(MID$(COMMAND$, Xpos%, z%)))
        END IF
END FUNCTION