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"Qual o seu nome";N$
30 INPUT"Qual a sua idade";I
40 PRINT N$ + " possui" + 
STR$(I) + " anos."
50 END

#include <stdio.h>

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

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

. create tabela;
. use tabela;
. display all;
00001  Parafuso   0345  0.88
00002  Porca      0234  0.55
.

set talk off
use tabela 
store 0 to total

do while .not. eof
  store total + precounit to total
  skip
enddo

? "O total é de: " + str(total, 8, 2)

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

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