CÓDIGO FUENTE.

-Lenguaje máquina:

0000	0001	1010	0001	01 A1
1000	1001	1001	1010	89 9A
0011	1010	1001	1100	3A 9C
0111	0100	0111	0000	74 70
1110	1001	0010	0000	E9 20

- Ensamblador:
HOLA.ASM

; Programa clasico de ejemplo. Despliega una leyenda en pantalla.

STACK     SEGMENT STACK                ; Segmento de pila

                    DW     64 DUP (?)             ; Define espacio en la pila

STACK     ENDS

DATA      SEGMENT                             ; Segmento de datos

SALUDO      DB    "Hola mundo!!",13,10,"$" ; Cadena

DATA      ENDS

CODE      SEGMENT                            ; Segmento de Codigo

          ASSUME CS:CODE, DS:DATA, SS:STACK

INICIO:                                                  ; Punto de entrada al programa

          MOV  AX,DATA                         ; Pone direccion en AX

          MOV  DS,AX                              ; Pone la direccion en los registros

          MOV  DX,OFFSET SALUDO      ; Obtiene direccion del mensaje

          MOV  AH,09H                            ; Funcion: Visualizar cadena

          INT     21H                                  ; Servicio: Funciones alto nivel DOS

          MOV  AH,4CH                            ; Funcion: Terminar

          INT     21H

CODE      ENDS

          END  INICIO                               ; Marca fin y define INICIO
-Pascal :


BasePic.Top = 0
BasePic.Left = 0 BasePic.Left = 0
BasePic.Visible = True BasePic.Visible = True
BasePic.enabled = True BasePic.enabled = True
OKBt.Top = BasePic.Height + 120 OKBt.Top BasePic.Height = + 120
Me.width = BasePic.Width + 120 Me.width BasePic.Width = + 120
Me.Heigh = OkBt.Top + OkBt.Height + 495 Me.Heigh OkBt.Top = + 495 + OkBt.Height
 -Delphi:Derecha
0 1 2 3 4 5 6 7 8 9
Izda.
0 nul soh stx etx eot enq ack bel bs ht
1 nl vt np cr so si dle dc1 dc2 dc3
2 dc4 nak syn etb can em sub esc fs gs
3 rs us sp ! " # $ % & '
4 ( ) * + , - . / 0 1
5 2 3 4 5 6 7 8 9 : ;
6 < = > ? @ A B C D E
7 F G H I J K L M N O
8 P Q R S T U V W X Y
9 Z [ \ ] ^ _ ` a b c
10 d e f g h i j k l m
11 n o p q r s t u v w
12 x y z { | } ~ del
-c:
 

#include<conio.h>
void main()
{
clrscr();
int n,a=0,b=1,c=1;
   printf("Hasta que posicion deseas ver?  ");
   scanf("%d",&n);
if(n==1)
 printf(" %d ",a);
else
  if(n==2){
  printf(" %d ",a);
  printf(" %d ",b);}
 else
 {
  c=2;
  printf(" %d ",a);
  printf(" %d ",b);
 while(c<n)
  {
   a+=b;printf(" %d ",a);
   c++;
   if(c==n)
    break;
   else{
    b+=a;printf(" %d ",b);
    c++;}
   }
 }
 getch();
}

-VISUAL BASIC:

BasePic.Top = 0
BasePic.Left = 0 BasePic.Left = 0
BasePic.Visible = True BasePic.Visible = True
BasePic.enabled = True BasePic.enabled = True
OKBt.Top = BasePic.Height + 120 OKBt.Top BasePic.Height = + 120
Me.width = BasePic.Width + 120 Me.width BasePic.Width = + 120
Me.Heigh = OkBt.Top + OkBt.Height + 495 Me.Heigh OkBt.Top = + 495 + OkBt.Height 

 -DELPHI:

procedure TForm1.Button1Click(Sender: TObject);
   begin
  
   end;
end.

-LISP:

>1
1
> (+ 2 3)
5
> (+ (- 5 2) (* 3 3))
12
> (exit)
Bye. 

procedure TForm1.Button1Click(Sender: TObject);
   begin
   
   end;
 end. 

-Lisp :

>1
1
> (+ 2 3)
5
> (+ (- 5 2) (* 3 3))
12
> (exit)
Bye. 

-Prolog: 

quiere_a(maria,enrique).
quiere_a(juan,jorge).
quiere_a(maria,susana).
quiere_a(maria,ana).
quiere_a(susana,pablo).
quiere_a(ana,jorge).
varon(juan).
varon(pablo).
varon(jorge).
varon(enrique).
hembra(maria).
hembra(susana).
hembra(ana).
teme_a(susana,pablo).
teme_a(jorge,enrique).
teme_a(maria,pablo).
/* Esta linea es un comentario */
quiere_pero_teme_a(X,Y) :- quiere_a(X,Y), teme_a(X,Y).
querido_por(X,Y) :- quiere_a(Y,X).
puede_casarse_con(X,Y) :- quiere_a(X,Y), varon(X), hembra(Y).
puede_casarse_con(X,Y) :- quiere_a(X,Y), hembra(X), varon(Y).