Je me demande a quoi ressemble ce defunct langage qu'est Jovial..

Edit:

Je n'aurais pas du j'ai les yeux qui saignent maintenant...

START
!COMPOOL 'DATA';
DEF PROC FIND(CODE,TAB);
BEGIN
ITEM CODE U;
TABLE TAB(*),
BEGIN
ITEM TABCODE U;
ITEM TABVALUE F;
END
FIND -=-99999.;
FOR I:0 BY 1 WHILE I<UBOUND(TAB,0),
IF CODE = TABCODE(I);
BEGIN
FIND - TABVALUE(I);
EXIT;
END
END
TERM

(l'identation est celle du document d'origine.. cf: http://www.dtic.mil/dtic/tr/fulltext/u2/a101061.pdf )