Rev 6613 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 6613 | Rev 6647 | ||
---|---|---|---|
Line 78... | Line 78... | ||
78 | 78 | ||
79 | PROCEDURE GetArg*(n: INTEGER; VAR s: ARRAY OF CHAR); |
79 | PROCEDURE GetArg*(n: INTEGER; VAR s: ARRAY OF CHAR); |
80 | VAR i, j, len: INTEGER; c: CHAR; |
80 | VAR i, j, len: INTEGER; c: CHAR; |
81 | BEGIN |
81 | BEGIN |
82 | j := 0; |
82 | j := 0; |
83 | IF n < argc + 1 THEN |
83 | IF n < argc THEN |
84 | len := LEN(s) - 1; |
84 | len := LEN(s) - 1; |
85 | i := Params[n, 0]; |
85 | i := Params[n, 0]; |
86 | WHILE (j < len) & (i <= Params[n, 1]) DO |
86 | WHILE (j < len) & (i <= Params[n, 1]) DO |
87 | c := GetChar(i); |
87 | c := GetChar(i); |