DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦e082a461a⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »tx«

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »tx«

TextFile

      program w
      zone out
      external out
      integer i,j,post(5,5),n(5)
      do 10 i=1,5
      do 20 j=1,5
      post(i,j)=i*j;
   20 continue
      n(i)=5
   10 continue
      write(out,30) (n(i),(post(i,j),j=1,n(i)),i=1,5)
   30 format(5(i2,5i3,/))
      stop
      end
▶EOF◀