Recent public codes are listed below. You can filter them by the following programming languages:
- view
- All
- Ada
- Assembler
- Assembler
- AWK (gawk)
- AWK (mawk)
- Bash
- bc
- Brainf**k
- C
- C#
- C++
- C++0x
- C99 strict
- CLIPS
- Clojure
- COBOL
- COBOL 85
- Common Lisp (clisp)
- D (dmd)
- Erlang
- F#
- Factor
- Falcon
- Forth
- Fortran
- Go
- Groovy
- Haskell
- Icon
- Intercal
- Java
- JavaScript (rhino)
- JavaScript (spidermonkey)
- Lua
- Nemerle
- Nice
- Nimrod
- Objective-C
- Ocaml
- Oz
- Pascal (fpc)
- Pascal (gpc)
- Perl
- Perl 6
- PHP
- Pike
- Prolog (gnu)
- Prolog (swi)
- Python
- Python 3
- R
- Ruby
- Scala
- Scheme (guile)
- Smalltalk
- SQL
- Tcl
- Text
- Unlambda
- VB.NET
- Whitespace
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. ReportExampleA. AUTHOR. Michael Coughlan. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT SalesFile ASSIGN TO "GBSALES.DAT" ORGANIZATION IS LINE SEQUENTIAL. SELECT PrintFile ASSIGN TO "SALESREPORTA.LPT".
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. ReportExampleA. AUTHOR. Michael Coughlan. * Very simple version - only salesperson totals ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT SalesFile ASSIGN TO "GBSALES.DAT"
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID.SUM2NO. DATA DIVISION. WORKING-STORAGE SECTION. 01 NUM1 PIC 99 VALUE 0. 01 NUM2 PIC 99 VALUE 0. 01 SUM2 PIC 999 VALUE 0. PROCEDURE DIVISION. G0000-MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. ADDPRG. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS_NUM1 PIC 9(02). 01 WS_NUM2 PIC 9(02). 01 WS_RESULT PIC 9(02). PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. ADDPRG. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS_NUM1 PIC 9(02). 01 WS_NUM2 PIC 9(02). 01 WS_RESULT PIC 9(02). PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. ADDPRG. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS_NUM1 PIC 9(02). 01 WS_NUM2 PIC 9(02). 01 WS_RESULT PIC 9(02). PROCEDURE DIVISION.
...
-
1
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 n PIC Z9 .
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. OLA . AUTHOR. VICTOR DATE-WRITTEN. 01/13/2012 DATE-COMPILED. * ****************************************************************** * E N V I R O N M E N T D I V I S I O N *
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. OLA MUNDO. AUTHOR. VICTOR DATE-WRITTEN. 01/13/2012 DATE-COMPILED. * ****************************************************************** * E N V I R O N M E N T D I V I S I O N *
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION PROGRAM-ID. OLA MUNDO. AUTHOR. VICTOR DATE-WRITTEN. 01/13/2012 DATE-COMPILED. * ****************************************************************** * E N V I R O N M E N T D I V I S I O N *
...
-
1 2 3 4 5 6 7 8 9
PROGRAM-ID. OLA MUNDO. AUTHOR. VICTOR DATE-WRITTEN. 01/13/2012 DATE-COMPILED. * ****************************************************************** * E N V I R O N M E N T D I V I S I O N *
...
-
1 2 3 4 5 6 7 8 9
* I D E T I F I C A T I O N D I V I S I O N ****************************************************************** * PROGRAM-ID. OLA MUNDO. AUTHOR. VICTOR DATE-WRITTEN. 01/13/2012 DATE-COMPILED. *
...
-
1 2 3 4 5 6 7 8 9
****************************************************************** * I D E T I F I C A T I O N D I V I S I O N ****************************************************************** * PROGRAM-ID. OLA MUNDO. AUTHOR. VICTOR DATE-WRITTEN. 01/13/2012 DATE-COMPILED.
...
-
1 2 3 4 5 6 7 8 9
****************************************************************** I D E T I F I C A T I O N D I V I S I O N ****************************************************************** * PROGRAM-ID. OLA MUNDO. AUTHOR. VICTOR DATE-WRITTEN. 01/13/2012 DATE-COMPILED.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. ****************************************************************** * PROGRAM-ID. PERFEITO. AUTHOR. WIKIPEDIA. DATE-WRITTEN. 20/08/2009. DATE-COMPILED. * ******************************************************************
...
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 n PIC Z9 .
...
-
1 2 3 4 5 6 7 8 9
*************AREA DE INDENTIFICAÇÃO DO PROGRAMA******************* ****************************************************************** ID DIVISION. PROGRAM-ID. OLA. AUTHOR VICTOR HUGO. DATE-WRITTEN 09/13/2011. ****************************************************************** **************AREA DO AMBIENTE = ENVIRONMENT********************** ******************************************************************
...
-
1 2 3 4 5 6 7 8 9
*************AREA DE INDENTIFICAÇÃO DO PROGRAMA******************* ****************************************************************** ID DIVISION. PROGRAM-ID. OLA. AUTHOR VICTOR HUGO. DATE-WRITTEN. 09/13/2011. ****************************************************************** **************AREA DO AMBIENTE = ENVIRONMENT********************** ******************************************************************
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO-WORLD. ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY "Olá, Mundo!".
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO-WORLD. ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY "Olá, Mundo!".
...
-
1 2 3 4 5 6 7 8 9
****************************************************************** *************AREA DE INDENTIFICAÇÃO DO PROGRAMA******************* ****************************************************************** INDENTIFICATION. DIVISON. PROGRAM ID . mostrar o nome. AUTHOR. VICTOR HUGO. INSTALLATION. DATE-WRITTEN. 09/13/2011. DATE-COMPILATE.
...
-
1 2 3 4 5 6 7 8 9
****************************************************************** *************AREA DE INDENTIFICAÇÃO DO PROGRAMA******************* ****************************************************************** INDENTIFICATION. DIVISON. PROGRAM ID . mostrar o nome. AUTHOR. VICTOR HUGO. INSTALLATION. DATE-WRITTEN. 09/13/2011. DATE-COMPILATE.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. MEDIA. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 01 VNUMERO.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. MEDIA. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 01 VNUMERO.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. MEDIA. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 01 VNUMERO.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. MEDIA. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 01 VNUMERO.
...
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. SmallestProgram. PROCEDURE DIVISION. DisplayGreeting. DISPLAY "Hello world". STOP RUN.
-
1 2 3 4 5 6
IDENTIFICATION DIVISION PROGRAM-ID.SMALLEST PROGRAM. PROCEDURE DIVISION display-greeting DISPLAY"HELLO AMOD HOW R U?". STOP RUN.
-
1 2 3 4 5
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO-WORLD. PROCEDURE DIVISION. DISPLAY "Hello, world". STOP RUN.


