%BEGIN
%EXTERNALINTEGERFNSPEC TWO
PRINTSTRING('CALLING TWO')
NEWLINE
WRITE(TWO,4)
NEWLINE
PRINTSTRING('DID IT WORK')
%ENDOFPROGRAM