%BEGIN
%EXTERNALROUTINESPEC SETR(%LONGREALNAME LR,%LONGREAL V)
%LONGREAL R1
PRINTSTRING('CALLING SETR')
NEWLINE
SETR(R1,5.12)
PRINTSTRING('R1=')
PRINT(R1,2,4)
NEWLINE
PRINTSTRING('DID IT WORK')
NEWLINE
%ENDOFPROGRAM