Голь на выдумки хитра

[spamsink]

Смотрите, что нашлось:

  BREEDING:,NAME,
C*
C***   1.10.85.   A.П.CAПOЖHИKOB
C*             ( C ПOДAЧИ P.EГИKЯHA )
C*
C*   *CALL BREEDING:NAME(N1,N2,...,NN)
C*   "PAЗMHOЖEHИE" ЗAДAHHOЙ ПPOГPAMMЫ
C*   BO BPEMEHHOЙ БИБЛИOTEKE.
C*
C*   ИЗ-ЗA OTCYTCTBИЯ B ФOPTPAHE PEKYPCИИ
C*   PEKYPCИBHЫE ПO CBOEЙ CYTИ BЫЗOBЫ
C*   ПOДПPOГPAMM ПPИXOДИTCЯ ПOДMEHЯTЬ
C*   OБPAЩEHИEM K KOПИЯM ЭTИX ПOДПPOГPAMM,
C*   ИMEЮЩИM ДPYГИE ИMEHA.  ПPИ ЭTOM
C*   ЧИCЛO KOПИЙ ДOЛЖHO COOTBETCTBOBATЬ
C*   ГЛYБИHE PEKYPCИИ.
C*     ПPOГPAMMA   BREEDING  ПPEДCTABЛЯET
C*   ИЗ CEБЯ MEXAHИЗM ДЛЯ ПOPOЖДEHИЯ HYЖ-
C*   HOГO KOЛИЧECTBA TAKИX KOПИЙ.  ПPOГ-
C*   PAMMA C ИMEHEM  NAME  PAЗЫCKИBAETCЯ
C*   BO BPEMEHHOЙ БИБЛИOTEKE (ИЛИ CPEДИ
C*   ЗAKAЗAHHЫX OБCП).  ЗATEM KATAЛOГ
C*   BPEMEHHOЙ БИБЛИOTEKИ ДOПOЛHЯETCЯ
C*   ИMEHAMИ  N1,N2,...,NN,  ПPИЧEM
C*   YKAЗATEЛИ MECTOПOЛOЖEHИЯ ПPOГPAMM
C*   N1,N2,...,NN  ДYБЛИPYЮT YKAЗATEЛЬ
C*   ДЛЯ  NAME.
C*

Вот уж поистине топором брились, рекурсивные процедуры на Фортране писали, вместо более подходящих для этого языков.

К сожалению, не работает. Отсутствующие в каталоге процедуры диагностирует

*CALL BREEDING:NOTEXIST(FOO)
  OTCYTCTBYET :
                    NOTEXIST

, но если дать существующую, то тихо ничего не делает

*CALL BREEDING:BREEDING(FOO)
*CALL TCATALOG
                                             17 ABГ 25 14.25
                      TEMPORARY LIBRARY
                     CBOБOДHO  21 03 25
   BREEDING   21 02 00  00106