🚀 go-pugleaf

In article <201@njitcccc.UUCP>, ken@njitcccc.UUCP writes:
>In article <914@ttrdc.UUCP>, levy@ttrdc.UUCP (Daniel R. Levy) writes:
>> _18 line_ fortran game of life?  Can you post that (in net.lang.f77 of course)?
>It's been quite some time since my school account was rolled
>out into the bit bucket, therefore I had to reconstruct this
>from scratch, but its pretty close.  The school compiler I
>used allowed fortran programs to not have the "STOP" and
>"END" statements, although it generated warnings.
>Kenneth Ng: uucp(unreliable) ihnp4!allegra!bellcore!njitcccc!ken

Well, maybe you should have tested it too :-).  Anyhow here is a slightly
hacked version which does work-- not 18 lines though, more like 22 (I made
C into a character array since that worked better with f77 on a big-endian
3B).

      IMPLICIT INTEGER (A-Z)
      INTEGER A(10,10), B(10,10)
      CHARACTER C(10,10)
      DATA A /100 * 0/
      READ(5,10)((A(I,J),J=2,9),I=2,9)
10    FORMAT(8I1)
      DO 100 COUNT = 1,50
      DO 50 I = 2,9
      DO 50 J = 2,9
      SUM=A(I-1,J-1)+A(I-1,J)+A(I-1,J+1)+A(I,J-1)+A(I,J+1)
     >+A(I+1,J-1)+A(I+1,J)+A(I+1,J+1)
      B(I,J)=0
50    IF((SUM.EQ.3).OR.((SUM+A(I,J)).EQ.3))B(I,J)=1
      DO 60 I=2,9
      DO 60 J=2,9
      C(I,J) = ' '
      IF (B(I,J).EQ.1)C(I,J) = '*'
60    A(I,J) = B(I,J)
100   WRITE(6,70)COUNT,((C(I,J),J=2,9),I=2,9)
70    FORMAT('  Gen ',I3,/,2X,8('*'),/,8(' |',8A1,'|',/),2X,8('*'),/)
      STOP
      END
-- 
 -------------------------------    Disclaimer:  The views contained herein are
|       dan levy | yvel nad      |  my own and are not at all those of my em-
|         an engihacker @        |  ployer or the administrator of any computer
| at&t computer systems division |  upon which I may hack.
|        skokie, illinois        |
 --------------------------------   Path: ..!{akgua,homxb,ihnp4,ltuxa,mvuxa,
						vax135}!ttrdc!levy