guaracy

public class HelloWorld {
    public static void main(String[] args) {
        System.out.println("Hello, World");
    }
}

guaracy

identification division.
program-id. hello.
procedure division.
  display "Hello, World".
  stop run.

guaracy

       identification division.
       program-id. 99-bottles.

       data division.

       working-storage section.

       77 max pic 9(02) value 99.
       77 bottle-word pic x(07).
       77 bottles pic 99.

guaracy

using System;

namespace ConsoleApplication11
{
   class Program
   {

       static void Main(string[] args)
       {
           Program p = new Program();

guaracy

(*
 * Aplicativo de Agenda Eletrônica - versão em Pascal
 * Desenvolvido por Rafael D. Toledo
 * (rafaeldtoledo@gmail.com)
 * Baixado de http://striker07.wordpress.com
 * Compartilhe, use à vontade, mas cite a fonte! =)
 *)
 
program
  agendaEletronica;

guaracy

var
    max : integer = 99;
    bottles : integer;
    bottle_word : string;

begin
    for bottles := max downto 1 do begin
        if bottles = 1 then
            bottle_word := 'bottle'
        else

guaracy

Red []

max: 99
bottles: max

while [bottles > 0] [
  bottle_word: either bottles = 1 ["bottle"]["bottles"]
  if bottles <> max [
    print "Take one down and pass it arround"
    print [bottles bottle_word "of beer on the wall"]

guaracy

`0:\:{x[z],y,a,x[z],a,"Take one down, pass it around",a,x[z-1],y,a,a:"\n"}[{($x)," bottle",:[x=1;"";"s"]," of beer"};" on the wall"]'|1_!100
\\

guaracy

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CLIENTES.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FILE1 ASSIGN TO DISK
               ORGANIZATION IS INDEXED
               ACCESS MODE IS RANDOM
               FILE STATUS IS FS-STAT

guaracy

Red [
   Title: "Dessaturate"
   Author: "Guaracy Monteiro"
   Needs: 'View
   Version: 0.1
]

desaturate: function [
   image
   /Lightness