program assign1_op
implicit none
integer :: n,i
character (10) :: alpha
print*,'Type any alphanumerics'
print*,'To stop, type stop'
do
   alpha=""
   read(*,'(a)') alpha
   if(alpha == 'stop') exit
   do i=1,10
      if(alpha(i:i) /= " ") then
         n=ichar(alpha(i:i))
         print*,alpha(i:i),n
      endif
   enddo
enddo
end program assign1_op