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
IDENTIFICATION DIVISION. PROGRAM-ID. Small-PR. PROCEDURE DIVISION. DisplayGreeting. DISPLAY "Hello, world". STOP RUN.
-
1 2 3 4 5 6
IDENTIFICATION DIVISION. PROGRAM-ID. Small-PR. PROCEDURE DIVISION. DisplayGreeting. DISPLAY "Hello, world". STOP RUN
-
1 2 3 4 5 6
IDENTIFICATION DIVISION. PROGRAM-ID. SmallestPROGRAM. PROCEDURE DIVISION. DisplayGreeting. DISPLAY 'Helloworld'. STOP RUN.
-
1 2 3 4 5 6
IDENTIFICATION DIVISION. PROGRAM-ID. Smallest PROGRAM. PROCEDURE DIVISION. DISPLAYGreeting. Display 'Helloworld'. STOP RUN.
-
1 2 3 4 5 6
IDENTIFICATION DIVISION. PROGRAM-ID. Smallest PROGRAM. PROCEDURE DIVISION. DISPLAYGreeting. Display "Helloworld". STOP RUN.
-
1 2 3 4 5 6
IDENTIFICATION DIVISION. PROGRAM-ID. Smallest PROGRAM. PROCEDURE DIVISION. DISPLAY Greeting. Display "Helloworld". STOP RUN.
-
1 2 3 4 5 6
IDENTIFICATION DIVISION. PROGRAM-ID. SmallestProgram. PROCEDURE DIVISION. DisplayGreeting. Display "Helloworld". STOPRUN.
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC X(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99 VALUE ZEROS. PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC X(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99 VALUE ZEROS. PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC X(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99 VALUE ZEROS. PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC X(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99 VALUE ZEROS. PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. RefModification. AUTHOR. Michael Coughlan. * An example program using Reference Modification, Intrinsic Functions * and the INSPECT. * The program solves a number of tasks suggested by Judy Yaeger in her * article "Character Manipulation Using COBOL" where she attempted to show * the limitations of COBOL string handling.
...
-
1 2 3 4 5 6 7 8 9
$ SET SOURCEFORMAT"FREE" IDENTIFICATION DIVISION. PROGRAM-ID. RefModification. AUTHOR. Michael Coughlan. * An example program using Reference Modification, Intrinsic Functions * and the INSPECT. * The program solves a number of tasks suggested by Judy Yaeger in her * article "Character Manipulation Using COBOL" where she attempted to show * the limitations of COBOL string handling.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC X(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99 VALUE ZEROS. PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC X(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99 VALUE ZEROS. PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. T1. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC X(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99. PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. T1. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC Z(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99. PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. T1. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC Z(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99. PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
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. 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. T1. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC Z(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99. PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. T1. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC Z(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99. PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. T1. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC Z(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99. PROCEDURE DIVISION. INSPECT WS-SRC TALLYING WS-COUNT FOR CHARACTERS BEFORE INITIAL 'C' DISPLAY WS-COUNT
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. T1. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC Z(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99. PROCEDURE DIVISION. INSPECT WS-SRC TALLYING WS-COUNT FOR CHARACTERS BEFORE INITIAL 'C' DISPLAY WS-COUNT
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. T1. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC Z(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99. PROCEDURE DIVISION. INSPECT WS-SRC TALLYING WS-COUNT FOR CHARACTERS BEFORE INITIAL 'C' DISPLAY COUNT
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. T1. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-SRC PIC Z(10) VALUE "ABAABBCC". 01 WS-COUNT PIC 99. PROCEDURE DIVISION. INSPECT WS-SRC TALLYING WS-COUNT FOR CHARACTERS BEFORE INITIAL 'C'. DISPLAY COUNT.
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. T1. DATA DIVISION. WORKING-STORAGE SECTION. 01 SRC PIC Z(10) VALUE "ABABAABBCC". 01 COUNT PIC 9. PROCEDURE DIVISION. INSPECT SRC TALLYING COUNT FOR CHARACTERS BEFORE INITIAL 'C'. DISPLAY COUNT.
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-DI. T1. DATA DIVISION. WORKING-STORAGE SECTION. 01 SRC PIC Z(10) VALUE "ABABAABBCC". 01 COUNT PIC 9. PROCEDURE DIVISION. INSPECT SRC TALLYING COUNT FOR CHARACTERS BEFORE INITIAL 'C'. DISPLAY COUNT.
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. FirstProgram. AUTHOR DEF. DATA DIVISION. WORKING STORAGE SECTION. 01 NAME PIC X(20). PROCEDURE DIVISION. DISPLAY "NAME IS TO ENTERED BY USER". ACCEPT NAME.
...
-
1 2 3 4 5 6
IDENTIFICATION DIVISION. PROGRAM-ID. smallestprogram. PROCEDURE DIVISION. DisplayGreeting. DISPLAY "HELLO WORLD". STOP RUN.


