Subversion Repositories Kolibri OS

Rev

Rev 7983 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7983 Rev 8097
Line 1... Line 1...
1 
(*
 1 
(*
2 
    BSD 2-Clause License
 2 
    BSD 2-Clause License
Line 3... Line 3...
3 
 
 3 
 
4 
    Copyright (c) 2019, Anton Krotov
 4 
    Copyright (c) 2019-2020, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 52... Line 52...
52 
        RETURN cond
 52 
        RETURN cond
53 
    END ChangeCond;
 53 
    END ChangeCond;
Line 54... Line 54...
54 
 
 54 
 
55 
 
 55 
 
56 
BEGIN
 56 
BEGIN
57 
    p := WINAPI.GetCommandLine();
 57 
    p := WINAPI.GetCommandLineA();
58 
    cond := 0;
 58 
    cond := 0;
59 
    count := 0;
 59 
    count := 0;
60 
    WHILE (count < MAX_PARAM) & (cond # 6) DO
 60 
    WHILE (count < MAX_PARAM) & (cond # 6) DO