(j3.2006) UK10 paper

[Dan Nagle]

Hi,

      check_non_ascii: do i = 1, max_text_len

         found_non_ascii: if( .not. ( ichar( blank) <= ichar( line( i: i)) &
                              .and. ( code_del > ichar( line( i: i)) )) )then

            stop 'ERROR: non-ASCII character'

         end if found_non_ascii

      end do check_non_ascii


On Oct 1, 2013, at 10:42 , David Muxworthy <d.muxworthy at bcs.org.uk> wrote:

> On 1 Oct 2013,Dan Nagle wrote:
> 
>> It's in the edit at 440:15, between the ( and the "
> 
> No wonder I couldn't find it. I was looking for codes
> outside 00 to 7f and that is 0f.  Which ASCII codes are
> considered to be non-ASCII?
> 
> David
> 
> 
> _______________________________________________
> J3 mailing list
> J3 at mailman.j3-fortran.org
> http://mailman.j3-fortran.org/mailman/listinfo/j3

--

Cheers!
Dan Nagle