Re: A problem of character (Fortran)

-------------------------------------<snip>------------------------------
 Calling all Fortran Wizards...

>  
>
>
> I am trying to print out the sect(8,8) integer array as characters
> The array is mostly zeros for that I want to print '.'(ebcidic 75) 
> The other values...
>  92 = '*'
>  96 = '-'
> 123 = '#'
>  78 = '+'
>
>
>      INTEGER SRS(8)
>       DO 1 I=1,8
>       DO 2 J=1,8
>       SRS(J) = 75
>       IF (SECT(I,J) .EQ. 1) SRS(J) = 92
>       IF (SECT(I,J) .EQ. 2) SRS(J) = 96
>       IF (SECT(I,J) .EQ. 3) SRS(J) = 123
>       IF (SECT(I,J) .EQ. 4) SRS(J) = 78
>     2 CONTINUE
>       WRITE(6,900) (SRS(J), J=1,8)
>   900 FORMAT(' ',8A3)
>     1 CONTINUE
>
> I am getting a blank area instead of the characters I expect.
>
> Yes, it's going to be a StarTrek game.
>
> : ^ )
>
-------------------------------<unsnip>----------------------------------
"A" format writes the bytes of a word from left to right; try using A4 
instead of A3.

Rick