perm filename HI.BAK[NET,GUE] blob sn#016386 filedate 1972-12-12 generic text, type T, neo UTF8
      DO 1 I=1,50
        J=I*I
        K=I*J
        L=I*K
        TYPE 2,I,J,K,L
 2       FORMAT(' ',4I10)

  1      CONTINUE
         STOP
          END