!*******************************************************************************
! specs for external routines in file IMPIOCPI
%externalroutinespec openinput(%integer stream,%string(100) filename)
%externalintegerfnspec instream
%externalstring(100)%fnspec infilename(%integer stream)
%externalroutinespec closeinput(%integer stream)
%externalroutinespec openoutput(%integer stream,%string(100) filename)
%externalintegerfnspec outstream
%externalstring(100)%fnspec outfilename(%integer stream)
%externalroutinespec closeoutput(%integer stream)
!*******************************************************************************
%begin
%integer i
  openoutput(1,"out1")
  select output(1)
  %cycle
    read symbol(i)
    print symbol(i)
  %repeat %until i='*'
  close output(1)
  open input(2,"in2")
  select input(2)
  select output(0)
  %cycle
    read symbol(i)
    print symbol(i)
  %repeat %until i='*'
%endofprogram