Board.KolibriOS.org

Code: Select all

object window,%1

property mousedown,%1,down
property mouseup,%1,up

create %1

down:
console print,'mouse down\n'
ret

up:
console print,'mouse up\n'
ret

Code: Select all

goto main

input:
  console print,'input text: '
  mov %0,''
  loop:
  console getch,%1
  if %1,KEY_ENTER
  = end_func
  sym %1,%1
  add %0,%1
  console print,%1
  goto loop
  
  end_func:
  console print,'\n'
ret

main:

call input

console print,'Text: '
console print,%0

Code: Select all

a=1;
text = 'this ';
if(a==1)
{
 text=text+'work'; 
}
print(text);

Code: Select all

goto main
PRINT:
console print,%10
mov %0,0
ret
main:
mov %51,1
mov %52,'this '
cmp %51,1
!= IF_BLOK_0
mov %52,%52
add %52,'work'
IF_BLOK_0:
mov %10,%52
call PRINT

Code: Select all

loop
{
  print(char(getch()));
}

Code: Select all

goto main
GETCH:
console getch,%0
ret
CHAR:
sym %0,%10
ret
PRINT:
console print,%10
ret
main:
LOOP_BLOK_1:
call GETCH
mov %10,%0
call CHAR
mov %10,%0
call PRINT
goto LOOP_BLOK_1

Code: Select all

function sum(a,b)
{
	return a+b;
}
a=sum('Hello ','World!!!');
print(a);

Code: Select all

Hello World!!!

Code: Select all

function input()
{
  ret = '';
  loop
  {
    code = getch();
    if(code==13)
    {
      return ret;
    }
    s=char(code);
    print(code+'->'+s+',');
    ret = ret+s;
  }
}
print("\ntext:"+input());

Code: Select all

goto main
FUNCTION_GETCH:
console getch,%0
ret
FUNCTION_CHAR:
sym %0,%10
ret
FUNCTION_PRINT:
console print,%10
ret
FUNCTION_INPUT:
mov %51,''
LOOP_BLOK_1:
call FUNCTION_GETCH
mov %52,%0
cmp %52,13
!= IF_BLOK_2
mov %0,%51
ret
IF_BLOK_2:
mov %10,%52
call FUNCTION_CHAR
mov %53,%0
mov %10,%52
add %10,'->'
add %10,%53
add %10,','
call FUNCTION_PRINT
mov %51,%51
add %51,%53
goto LOOP_BLOK_1
ret
main:
call FUNCTION_INPUT
mov %10,"\ntext:"
add %10,%0
call FUNCTION_PRINT

Code: Select all

function input()
{
  ret='';
  print('Input: ');
  loop
  {
    s=getch();
    if(s==13)
    {
      return ret;
    }
    s=char(s);
    print(s);
    ret=ret+s;
  }
}

loop
{
	print("\n"+input()+"\n");
}

Code: Select all

dll_load("/sys/lib/console.obj");
c_init = dll_import('con_init');
c_printf = dll_import('con_printf');
c_init(-1,-1,-1,-1,'test');
c_printf('%s->%d','This integer:',123);

Code: Select all

This integer:->123

Code: Select all

a=object(window); // определить объект как окно
a.left = 0;
a.top = 0;
a.width = 300;
a.height = 400;
create(a); // создать окно

Code: Select all

<window name='obj' onmousedown=func1 onmouseup=func2></window>

function func1()
{
  print('down');
}

function func2()
{
  print('up');
}