%BEGIN %EXTERNALINTEGER FRED %EXTERNALINTEGERSPEC JIM %EXTRINSICINTEGERNAME BLOGGS %EXTERNALINTEGERARRAYFORMATSPEC WRONG(1:10) %EXTERNALINTEGERARRAYSPEC RIGHT(1:10) %CONSTINTEGERSPEC RUBBISH=21 %EXTERNALINTEGERNAME KNOT %ENDOFPROGRAM