Primitivismi

Alla on esittely ohjelmointityökaluista, tuettu LCRYP: ssä:

 
/* Globaalit muuttujat. */
int ga;
kaksinkertainen gx;
char gc;

int OnTick()
{
  /* Paikalliset muuttujat. * /
  sis. a, indeksi;
  kaksinkertainen x,ja;
  merkki c;

  /* Tehtävä operaationa. * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

  indeksi = 0;
  prt(indeksi,"a = [");
  /* Whileикл taas. */
  sillä aikaa(a>= 0) {
    prt_a(indeksi,a);
    a = a - 1;
  }
  prt_a(indeksi,"]");

  indeksi = 1;
  Tulosta_AZ(indeksi); // Toiminnon käyttäminen.

  indeksi = 2;
  gc = 'A';
  prt(indeksi,"");
  /* Doикл do-while. */
  tehdä {
     prt_a(indeksi,gc);
     gc = gc + 1;
  } sillä aikaa(gc != 'F');

  /* Rekursio-osoitus. */
  indeksi = 2;
  prt(indeksi,"");
  x = 3;
  y = 2;
  gx = tosiasia(indeksi,matematiikka(x,ja)); // Funktion argumenttien käyttö.
  prt_a(indeksi," factr =");
  prt_a(indeksi,gx);

  palata 0;
}

/* Englannin aakkoset näytetään. */
int Tulosta_AZ(int-indeksi)
{
  char ch;
  prt(indeksi,"");  // Viivan tuloksen alku indeksin indeksillä kaaviossa.
  /* цикл varten */
  varten (ch = 'A'; ch<= 'Z'; ch = ch + 1) {
    prt_a(indeksi,ch); // Jatka indeksirivin viivan näyttämistä kaaviossa.
  }
  palata 0;
}

/* Palauttaa luvun i faktorin. */
sis. tosiasia(int-indeksi, i)
{
  prt_a(indeksi,i);
  jos(i<2) {
    palata 1;
  }
  muu {
     paluu i * tosiasia(indeksi,i-1);
  }
}

int matematiikka(sis. a, int b)
{
  palauta a + b;
}

/* Toimintoa ei ole otettu käyttöön. */
int OnInit()
{
  palata;
}

/* Toimintoa ei ole otettu käyttöön. */
int OnBar()
{
  palata;
}