ID DIVISION. PROGRAM-ID.J. DATA DIVISION. WORKING-STORAGE SECTION. 1 W PIC X. PROCEDURE DIVISION. ACCEPT W. EVALUATE W WHEN "0" DISPLAY "0123456789abcdef" WHEN "L" DISPLAY "Language is selected by extension. Supported types are:Ruby(rb), Perl(pl), Python(py), PHP(php), Scheme(scm), Common LISP(l), Io(io), JavaScript(js), Lua(lua), Tcl(tcl), Smalltalk(st), Prolog(pro), Forth(for), BASIC(bas), Perl6(pl6), Erlang(erl), J(ijs), A+(a+), Mind(mind), C(c), C++(cpp), D(d), OCaml(ml), Haskell(hs), Ada(adb), ObjC(m), Java(java), Pascal(pas), Fortran(f95), C#(cs), COBOL(cob), Curry(curry), AWK(awk), sed(sed), Bash(sh), xgawk(xgawk), m4(m4), Postscript(ps), Brainfuck(bf), Whitespace(ws), Befunge(bef), Minus(ms), Unlambda(unl), D-compile-time(di), gas(s), x86(out)" WHEN " " DISPLAY " * hello world * echo * 99 shinichiroes of hamaji * example_com * Smileys Triangle * tennis * permutater * delete blank lines * Dancing Kids * bowling scorer * e * Hamming Numbers * Hole in one * ultimate problem * Card Sharp * even lines * sort characters * Square root * Fibonacci Numbers * prime numbers * invert case * Expression * All Expressions * LCS * delete last line * swap lines * rotate lines * transpose lines * exit status * multi_key sort * show the way * Booklet Printing * Tak y * FizzBuzz * Little Endian Calculator * infix to postfix * Greatest Common Divisor * banner * HQ9Plus * Least Common Multiple * judge Janken * delete duplicate lines * reverse lines * palindromize * Phone Key Pad * L system * easy regexp * google * Tetris * Evil C Compiler * Bracket Matching * Nearest Smaller Value fixed version * right time * Circle Art" END-EVALUATE.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).