Primitivism

Nedan följer en demonstration av programmeringsverktyg, stöds i LCRYP:

 
/* Globala variabler. */
int ga;
dubbel gx;
char gc;

int OnTick()
{
  /* Lokala variabler. * /
  int a, index;
  dubbel x,och;
  char c;

  /* Uppgift som operation. * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

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

  index = 1;
  Skriv ut_AZ(index); // Använda funktionen.

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

  /* Demonstration av rekursion. */
  index = 2;
  prt(index,"");
  x = 3;
  y = 2;
  gx = faktr(index,matematik(x,och)); // Använda funktionsargument.
  prt_a(index," factr =");
  prt_a(index,gx);

  lämna tillbaka 0;
}

/* Visar det engelska alfabetet. */
int Print_AZ(int-index)
{
  char ch;
  prt(index,"");  // Början av linjens utdata med indexindex i diagrammet.
  /* цикл för */
  för (ch = 'A'; ch<= 'Z'; ch = ch + 1) {
    prt_a(index,ch); // Fortsätt att visa raden med indexindex i diagrammet.
  }
  lämna tillbaka 0;
}

/* Returnerar faktorn för siffran i. */
faktiskt(int-index, int i)
{
  prt_a(index,i);
  om(i<2) {
    lämna tillbaka 1;
  }
  annan {
     returnera i * factr(index,i-1);
  }
}

int matematik(int a, int b)
{
  returnera a + b;
}

/* Funktionen är inte aktiverad. */
int OnInit()
{
  lämna tillbaka;
}

/* Funktionen är inte aktiverad. */
int OnBar()
{
  lämna tillbaka;
}