4 
  #trim $premenna; #note neuskodi si prpadne premennu otrimovat a zmenit na lowercase;
  5 
  #toLower $premenna;
  6 
  #isSymbol $premenna,1,1,$isSymbol;
  7 
  #if $isSymbol=#true;
  8 
    #localVar $typeSymbol;
  9 
    #find $premenna, #false, $typeSymbol;
 10 
    #if $typeSymbol=1;
 11 
      #printLn #FALSE;
 12 
      #goto koniecVyhodnotenia;
 13 
    #endif;
 14 
    #find $premenna, #true, $typeSymbol;
 15 
    #if $typeSymbol=1;
 16 
      #printLn #TRUE;
 17 
      #goto koniecVyhodnotenia;
 18 
    #endif;
 19 
    #find $premenna, #null, $typeSymbol;
 20 
    #if $typeSymbol=1;
 21 
      #printLn #NULL;
 22 
      #goto koniecVyhodnotenia;
 23 
    #endif;
 24 
 
 25 
    #printLn #unknownSymbol;
 26 
    #goto koniecVyhodnotenia;
 27 
  #else;
 28 
    #if $premenna=0;
 29 
      #printLn 0;
 30 
      #goto koniecVyhodnotenia;
 31 
    #endif;
 32 
  #endif;
 33 
 
 34 
  #label koniecVyhodnotenia;