TH( BUFFER ) DO
        BUFFER[ I ] := UPCASE( BUFFER[ I ] );
    END;

  BEGIN
  END.
{----------------------------------------------------------------
      THIS IS THE CALLING PROGRAM.
----------------------------------------------------------------}

PROGRAM TESTLOAD;

  TYPE
    STR80 = STRING[ 80 ];

  VAR
    BUFFER : STR80;

{$ILOADER.INC}     { THIS IS THE LOADER THAT CHANGES THE JUMP }
                   { TABLE IN THE EXTERNAL SUBPROGRAM         }

  PROCEDURE UPSHIFT( VAR BUFFER : STR80 ); EXTERNAL 'CALL.COM';

  BEGIN
    LOAD( OFS( UPSHIFT ));  { SET UP THE JUMP TABLE }
    BUFFER := 'HELLO';
    WRITELN( BUFFER );
    UPSHIFT( BUFFER );      { CALL THE EXTERNAL PROCEDURE }
    WRIT