program convert
code: convert from debug fortran  cogs, slightly modified.
change:  input & output is to & from terminal, input at prompt.
caution: compile, load, and execute in SPP-UX using the three commands:
command:   fc  -o convert  convert.f
command:   convert
      real a(999)
      write(*,*) 'input any integer less than 1000:'
      read(*,*) i
      a(i) = float(i)
      write(*,6000) a(i)
6000  format(' floating point representation: ',e13.5)
      write(*,*) 'What happens when you exceed array bound of 999?'
      stop
      end