Subversion Repositories Kolibri OS

Rev

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);