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";I
40 PRINT N$ + " has" + 
STR$(I) + " 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 table;
. use table;
. display all;
00001  Bolt       0345  0.88
00002  Nail       0234  0.55
.

set talk off
use table
store 0 to total

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

? "The total is: " + str(total, 8, 2)

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

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