<?
// veja o código fonte da página para entender
// o resultado desta função

$html = "<b>Parece que está tudo ok</b>";
$codificado = htmlentities($html);
echo $codificado . "<br>";
?>

MMRESULT midiOutOpen(
  LPHMIDIOUT lphmo,              
  UINT_PTR   uDeviceID,          
  DWORD_PTR  dwCallback,         
  DWORD_PTR  dwCallbackInstance, 
  DWORD      dwFlags             
);

function midiOutOpen(lphMidiOut: PHMIDIOUT; uDeviceID: UINT;
  dwCallback, dwInstance, dwFlags: DWORD): MMRESULT; stdcall;

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MMSystem;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    dispositivo: HMIDIOUT; // dispositivo de saída MIDI
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  erro: Word;
begin
  erro := midiOutOpen(@dispositivo, 0, 0, 0, CALLBACK_NULL);

  // houve erro na abertura do dispositivo de saída MIDI?
  if (erro <> 0) then
    begin
      ShowMessage('Não foi possível abrir o dispositivo MIDI. Erro: ' + IntToStr(erro));
    end
  else
    begin
      ShowMessage('Dispositivo MIDI aberto com sucesso.');

      // vamos tocar uma nota para nos certificarmos de que o dispositivo
      // realmente foi aberto e está funcionando

      // vamos tocar a nota DÓ média e com velocidade máxima
      midiOutShortMsg(dispositivo, rgb($90, 60, 127));
      // vamos deixar a nota soar um pouco
      sleep(1000);
      // vamos silenciar a nota
      midiOutShortMsg(dispositivo, rgb($80, 60, 0));

      // finalmente vamos fechar o dispositivo MIDI
      midiOutClose(dispositivo);
    end;
end;

end.

MMRESULT midiOutClose(
  HMIDIOUT hmo  
);

void rotate(List<?> list, int distance)

package estudos;

import java.util.ArrayList;
import java.util.Collections;

public class Estudos{
  public static void main(String[] args){
    // cria uma ArrayList que conterá strings
    ArrayList<String> nomes = new ArrayList<String>();
    
    // adiciona itens na lista
    nomes.add("Carlos");
    nomes.add("Maria");
    nomes.add("Fernanda");
    nomes.add("Osmar");    
	
    // exibe os elementos da ArrayList
    System.out.println("Antes da rotação:\n");
    for(int i = 0; i < nomes.size(); i++)
      System.out.println(nomes.get(i));    
 
    // Vamos rotacionar os elementos uma posição
    Collections.rotate(nomes, 1); 

    // exibe os elementos da ArrayList
    System.out.println("\nDepois da rotação:\n");
    for(int i = 0; i < nomes.size(); i++)
      System.out.println(nomes.get(i));

    System.exit(0);
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
begin
  // não esqueça de adicionar DateUtils ao seus uses

  // vamos obter a data de hoje
  hoje := Now;

  // vamos exibir a data de hoje
  ShowMessage('Hoje é: ' + DateToStr(hoje));

  // vamos adicionar 2 meses à data de hoje
  hoje := IncMonth(hoje, 2);

  // vamos exibir o resultado
  ShowMessage('Daqui a 2 meses será: ' + DateToStr(hoje));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
begin
  // não esqueça de adicionar DateUtils ao seus uses

  // vamos obter a data de hoje
  hoje := Now;

  // vamos exibir a data de hoje
  ShowMessage('Hoje é: ' + DateToStr(hoje));

  // vamos subtrair 3 meses da data de hoje
  hoje := IncMonth(hoje, -3);

  // vamos exibir o resultado
  ShowMessage('Há 3 meses era: ' + DateToStr(hoje));
end;

# obtém o nome do usuário
nome = raw_input("Por favor, informe seu nome: ")
 
print "Ola, " + nome + "! Voce tambem gosta de Python?"

Exception has occurred: NameError
name 'raw_input' is not defined
  File "C:\estudos_python\estudos.py", line 4, in main
    nome = raw_input("Por favor, informe seu nome: ")
  File "C:\estudos_python\estudos.py", line 7, in <module>
    main()

def main():
  nome = input("Por favor, informe seu nome: ")
  print("Olá, " + nome + "! Voce tambem gosta de Python?")

if __name__== "__main__":
  main()

Por favor, informe seu nome: Osmar
Olá, Osmar! Voce tambem gosta de Python?

<script type="text/javascript">
<!--
  function adicionarConteudo(){
    var texto = "Mais uma linha.<br>";
    $("#parag").prependTo("#div_1");
  }
//-->
</script>