Subversion Repositories Kolibri OS

Rev

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

Rev 8859 Rev 9646
Line 537... Line 537...
537 
        END
 537 
        END
538 
    END;
 538 
    END;
Line 539... Line 539...
539 
 
 539 
 
540 
    maxreal := 1.9;
 540 
    maxreal := 1.9;
541 
    PACK(maxreal, 1023);
 541 
    PACK(maxreal, 1023);
542 
    Console := API._import;
 542 
    Console := TRUE;
543 
    IF Console THEN
 543 
    IF Console THEN
544 
        con_init(-1, -1, -1, -1, SYSTEM.SADR("Oberon-07 for KolibriOS"))
 544 
        con_init(-1, -1, -1, -1, SYSTEM.SADR("Oberon-07 for KolibriOS"))
545 
    END;
 545 
    END;
546 
    ParamParse
 546 
    ParamParse