Primitivismo

Di seguito è una dimostrazione degli strumenti di programmazione, supportato in LCRYP:

 
/* Variabili globali. */
int ga;
doppio gx;
char gc;

int OnTick()
{
  /* Variabili locali. * /
  int a, indice;
  doppia x,e;
  char c;

  /* Assegnazione come operazione. * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

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

  indice = 1;
  Print_AZ(indice); // Utilizzo della funzione.

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

  /* Dimostrazione di ricorsione. */
  indice = 2;
  prt(indice,"");
  x = 3;
  y = 2;
  gx = factr(indice,matematica(X,e)); // Utilizzo di argomenti di funzione.
  prt_a(indice," factr =");
  prt_a(indice,gx);

  ritorno 0;
}

/* Visualizzazione dell'alfabeto inglese. */
int Print_AZ(indice int)
{
  char ch;
  prt(indice,"");  // L'inizio dell'output della riga con l'indice sul grafico.
  /* цикл per */
  per (ch = 'A'; cap<= 'Z'; ch = ch + 1) {
    prt_a(indice,cap); // Continua a visualizzare la linea con l'indice dell'indice sul grafico.
  }
  ritorno 0;
}

/* Restituisce il fattoriale del numero i. */
int factr(indice int, int i)
{
  prt_a(indice,io);
  Se(io<2) {
    ritorno 1;
  }
  altro {
     ritorno i * factr(indice,i-1);
  }
}

int math(int a, int b)
{
  restituire a + b;
}

/* Funzione non abilitata. */
int OnInit()
{
  ritorno;
}

/* Funzione non abilitata. */
int OnBar()
{
  ritorno;
}