Chủ nghĩa nguyên thủy

Dưới đây là phần trình diễn các công cụ lập trình, được hỗ trợ trong LCRYP:

 
/* Biến toàn cục. */
int ga;
gấp đôi gx;
char gc;

int OnTick()
{
  /* Biến cục bộ. * /
  int a, mục lục;
  gấp đôi x,và;
  char c;

  /* Chuyển nhượng như một hoạt động. * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

  chỉ số = 0;
  prt(mục lục,"a = [");
  /* Цикл trong khi. */
  trong khi(a>= 0) {
    prt_a(mục lục,a);
    a = a - 1;
  }
  prt_a(mục lục,"]");

  chỉ số = 1;
  Print_AZ(mục lục); // Sử dụng chức năng.

  chỉ số = 2;
  gc = 'A';
  prt(mục lục,"");
  /* Цикл do-while. */
  làm {
     prt_a(mục lục,gc);
     gc = gc + 1;
  } trong khi(gc != 'F');

  /* Trình diễn đệ quy. */
  chỉ số = 2;
  prt(mục lục,"");
  x = 3;
  y = 2;
  gx = factr(mục lục,môn Toán(x,và)); // Sử dụng đối số hàm.
  prt_a(mục lục," factr =");
  prt_a(mục lục,gx);

  trở về 0;
}

/* Hiển thị bảng chữ cái tiếng Anh. */
int Print_AZ(int index)
{
  char ch;
  prt(mục lục,"");  // Đầu ra của dòng với chỉ số chỉ mục trên biểu đồ.
  /* цикл cho */
  cho (ch = 'A'; ch<= 'Z'; ch = ch + 1) {
    prt_a(mục lục,ch); // Tiếp tục hiển thị dòng có chỉ số chỉ mục vào biểu đồ.
  }
  trở về 0;
}

/* Trả về giai thừa của số i. */
int factr(int index, int i)
{
  prt_a(mục lục,Tôi);
  nếu(Tôi<2) {
    trở về 1;
  }
  khác {
     trả lại tôi * sự thật(mục lục,i-1);
  }
}

toán int(int a, int b)
{
  trả về a + b;
}

/* Chức năng không được kích hoạt. */
int OnInit()
{
  trở về;
}

/* Chức năng không được kích hoạt. */
int OnBar()
{
  trở về;
}