Re: A problem of character (Fortran)

On 3 June 2010 18:43, Dave Wade <g4ugm-/rAkYNWUBEC+PENguQupYdBc4/[email protected]> wrote:

>
>
> Make the "A3" in the format "A4". Characters are pringter Most sig byte
> first
>
> Dave Wade G4UGM
> Illegitimi Non Carborundum
>

Um, but isn't that going to print with a lot of spaces (or junk)? I'd go for
setting the value in the high byte, and then using A1, e.g.

STAR = 92*256**3
...
IF (SECT(I,J) .EQ. 1) SRS(J) = STAR

Then you can position the individual characters as you like in the FORMAT
statement, such as

900 FORMAT(' ',A1)

to get single horizontal spacing. But it's been almost 40 years, so I may
well be confused.

Tony H.

>
>
>  -----Original Message-----
> *From:* [email protected] [mailto:[email protected]] *On
> Behalf Of *Ron Hudson
> *Sent:* 03 June 2010 23:14
> *To:* [email protected]
> *Subject:* [turnkey-mvs] A problem of character (Fortran)
>
> 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.
>
> : ^ )
>
> Ron.
>
>
>
> 
>