10  ORG &HD000
20  LD DE,&H0504
30  LD HL,0
40  LD A,D
50  OR A
60  RET Z
70  LD B,D
80  LD D,H
90  LOOP: ADD HL,DE
100 DJNZ LOOP
110 RET

10 SCREEN 0 : WIDTH 40
20 INPUT"What's your name";N$
30 INPUT"How old are you";A
40 PRINT N$ + " is " + 
STR$(A) + " years old."
50 END

#include <stdio.h>

double product(double a, double b)
{
  return a*b;
}

int main(void)
{
  printf("%02.f\n",product(15, 2));
  return 1;
}

 . create tabela;
 . use tabela;
 . display all;
 00001  Bolt       0345  0.88
 00002  Nail       0234  0.55
 .

function add(a, b : real):real;
begin
  add := a+b;
end;

begin
  writeln(add(3,2));
end.