Primitivismus

Níže je ukázka programovacích nástrojů, podporováno v LCRYP:

 
/* Globální proměnné. */
int ga;
dvojitý gx;
char gc;

int OnTick()
{
  /* Místní proměnné. * /
  int a, index;
  dvojité x,a;
  char c;

  /* Přiřazení jako operace. * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

  index = 0;
  prt(index,"a = [");
  /* Цикл while. */
  zatímco(A>= 0) {
    prt_a(index,A);
    a = a - 1;
  }
  prt_a(index,"]");

  index = 1;
  Print_AZ(index); // Používání funkce.

  index = 2;
  gc = 'A';
  prt(index,"");
  /* Цикл do-while. */
  dělat {
     prt_a(index,gc);
     gc = gc + 1;
  } zatímco(gc != 'F');

  /* Demonstrace rekurze. */
  index = 2;
  prt(index,"");
  x = 3;
  y = 2;
  gx = factr(index,matematika(X,a)); // Použití argumentů funkce.
  prt_a(index," factr =");
  prt_a(index,gx);

  vrátit se 0;
}

/* Zobrazuje se anglická abeceda. */
int Print_AZ(int index)
{
  char ch;
  prt(index,"");  // Začátek výstupu řádku s indexovým indexem v grafu.
  /* цикл pro */
  pro (ch = 'A'; ch<= 'Z'; ch = ch + 1) {
    prt_a(index,ch); // Pokračujte v zobrazení řádku s indexovým indexem do grafu.
  }
  vrátit se 0;
}

/* Vrátí faktoriál čísla i. */
int factr(int index, int i)
{
  prt_a(index,i);
  -li(i<2) {
    vrátit se 1;
  }
  jiný {
     vrátit i * Factr(index,i-1);
  }
}

int matematika(int a, int b)
{
  vrátit a + b;
}

/* Funkce není povolena. */
int OnInit()
{
  vrátit se;
}

/* Funkce není povolena. */
int OnBar()
{
  vrátit se;
}