ESS;
          I := I + 3;
        END;
    END;
{----------------------------------------------------------------
       THIS IS AN EXAMPLE OF AN EXTERNAL AND THE PROGRAM THAT
CALLS IT.
----------------------------------------------------------------}
PROGRAM CALLABLE;

  TYPE
    STRING80 = STRING[ 80 ];

  PROCEDURE UPSHIFT( VAR BUFFER : STRING80 );

    VAR
      I : INTEGER;

    BEGIN
      FOR I := 1 TO LENG