home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / mtrek.shar.Z / mtrek.shar / out.ftn < prev    next >
Text File  |  1990-04-02  |  364b  |  24 lines
  1.     PROGRAM OUT
  2. C
  3. C    Prints out the universe in Multi-Trek
  4. C
  5. C    (Use 'SET /BUF=TI:210.' before running this program)
  6. C    Here is the task build file:
  7. C
  8. C        OUT;1=OUT
  9. C        /
  10. C        COMMON=LEDFOR:RW
  11. C        LIBR=F4PRES:RO
  12. C        FMTBUF=300
  13. C        MAXBUF=300
  14. C        /
  15. C
  16.     INCLUDE 'LEDFOR.COM/-LI'
  17.  
  18.     DO 20 I=100,1,-1
  19.     WRITE(5,10)(UNIV(J,I),J=1,100)
  20. 10    FORMAT(100(' ',A1))
  21. 20    CONTINUE
  22.     CALL EXIT
  23.     END
  24.