原始主义

以下是编程工具的演示, LCRYP支持:

 
/* 全局变量. */
诠释;
双gx;
字符gc;

int OnTick()
{
  /* 局部变量* /
  诠释, 指数;
  双倍x,和;
  字符;

  /* 分配为工序* /
  ga = a = 3;
  gx = x = y = 5;
  gc = c ='0';

  索引= 0;
  prt(指数,"a = [");
  /* Цикл而. */
  而(一种>= 0) {
    prt_a(指数,一种);
    a = a - 1;
  }
  prt_a(指数,"]");

  索引= 1;
  Print_AZ(指数); // 使用功能.

  索引= 2;
  gc ='A';
  prt(指数,"");
  /* Цикл做. */
  做 {
     prt_a(指数,GC);
     gc = gc + 1;
  } 而(GC !='F');

  /* 递归演示. */
  索引= 2;
  prt(指数,"");
  x = 3;
  y = 2;
  gx =事实(指数,数学(X,和)); // 使用函数参数.
  prt_a(指数," 事实=");
  prt_a(指数,gx);

  返回 0;
}

/* 显示英文字母. */
int Print_AZ(整数指数)
{
  查理;
  prt(指数,"");  // 图表上具有索引index的线的输出的开始.
  /* цикл为 */
  对于 (ch ='A'; ch<='Z'; ch = ch + 1) {
    prt_a(指数,ch); // 继续显示带有索引索引的线到图表.
  }
  返回 0;
}

/* 返回数字i的阶乘. */
内部事实(整数指数, 我)
{
  prt_a(指数,一世);
  如果(一世<2) {
    返回 1;
  }
  其他 {
     还给我 * 事实(指数,i-1);
  }
}

整数数学(诠释, 整数b)
{
  返回a + b;
}

/* 功能未启用. */
int OnInit()
{
  返回;
}

/* 功能未启用. */
int OnBar()
{
  返回;
}