Kehruu-Jennyn ja reikäkorttikoneen yhdistelmä, jonka ympärillä koneoperaattoreita, arkkitehteja ja yksi työmies rakentamassa tukea, jottei kone kaadu.
Miksi?
Kuvia netistä:
$ SET SOURCEFORMAT"FREE" IDENTIFICATION DIVISION. PROGRAM-ID. Conditions. AUTHOR. Michael Coughlan. * An example program demonstrating the use of * condition names (level 88's). * The EVALUATE and PERFORM verbs are also used. DATA DIVISION. WORKING-STORAGE SECTION. 01 Char PIC X. 88 Vowel VALUE "a", "e", "i", "o", "u". 88 Consonant VALUE "b", "c", "d", "f", "g", "h" "j" THRU "n", "p" THRU "t", "v" THRU "z". 88 Digit VALUE "0" THRU "9". 88 ValidCharacter VALUE "a" THRU "z", "0" THRU "9". PROCEDURE DIVISION. Begin. DISPLAY "Enter lower case character or digit. No data ends.". ACCEPT Char. PERFORM UNTIL NOT ValidCharacter EVALUATE TRUE WHEN Vowel DISPLAY "The letter " Char " is a vowel." WHEN Consonant DISPLAY "The letter " Char " is a consonant." WHEN Digit DISPLAY Char " is a digit." WHEN OTHER DISPLAY "problems found" END-EVALUATE END-PERFORM STOP RUN.
Sade: Katson COBOL-teoksen olevan epäoikeudenmukainen kuvaus ko. kielestä seuraavissa suhteissa:
atehwa: Lisäsin maininnan luonnollisen kielen kaltaisuudesta. Mitä rumuuteen tulee, pyrin tosiaan välittämään "yleisiä vaikutelmia" kielistä silläkin uhalla, että uusinnan tällä vain syvään juurtuneita ennakkoluuloja kielten suhteen. Oma kriteerini kielen kauneudelle on itse asiassa lyhyys; COBOL-ohjelmat ovat huomattavan pitkiä verrattuna vastaaviin ohjelmiin muilla kielillä.
On hyvä huomata, että myös Smalltalk ja Perl ovat jollain tavoin pyrkineet luonnollisen kielen kaltaisuuteen.
näyttely: ohjelmointikielten kuvat