DIBOL

DIBOL - tokia priešistorinė kalba, kurią Digital Research išleido 1970 metais, kaip paprastą programavimo kalbą, skirtą PDP-8 kompiuteriams. Vėlesniais laikais kalba perkelta į daugelį kitų Digital firmos sistemų, o taip pat ir į kai kurias kitas.

Atskiras DIBOL kalbos realizacijas buvo pradėjusios kurti ir kitos firmos - iš jų žinomiausia ilgainiui tapo Synergy DBL kalba.

Savo esme DIBOL yra išsivysčiusi iš FORTRAN, tačiau daugelį dalykų smarkiai supaprastinant. Esminis programos valdymo įrankis - GOTO, tačiau lyginant su FORTRAN ar senomis BASIC versijomis, perėjimas vykdomas ne pagal eilutės numerį, o pagal tekstinį identifikatorių, kas labai sumažina vargo, nes nereikia perskaičiuodinėti tų prakeiktų eilučių.

Kalba yra struktūraliai gan saugi ir kartu pritaikyta lengvam kompiliavimui. Kad būtų galima efektyviai kompiliuoti, visa programa dalinama į du segmentus: duomenų ir kodo. Pirma turi būti deklaruojami duomenys, nurodant jų tipus. Paskui vykdomas kodas.

Klasikiniame variante DIBOL kalba nėra labai gera, pvz., duomenų deklaravimas yra gan komplikuotas, primenantis asemblerį - pvz., string tipui reikia nurodyti masyvo ilgį, o ir pats masyvas aprašomas per dvi eilutes.

Kitą vertus, tok nuoseklus aprašymas reiškia, kad kompiliatoriui transliuoti tokias programas į dvejetainį kodą labai lengva ir gautas kodas būna labai efektyvus.

Hello World DIBOL kalba

          START     ;Hello World

          RECORD  HELLO
,         A11, 'Hello World'

          PROC
          XCALL FLAGS (0007000000,1)          ;Suppress STOP message

          OPEN(8,O,'TT:')
          WRITES(8,HELLO)
          END