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

⟦86811d1ba⟧ TextFile

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

Derivation

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

TextFile

c         INTERFACE AGE's benchmark program to
c         'discover' the first 1000 prime numbers
c
      write(6,10)
 10   format(9hStarting.)
      integer n,k,l
      real m
      do 240 n=1,1000
      do 220 k=2,500
      m=n/k
      l=entier(m)
      if(l.eq.0)230
      if(l.eq.1)220
      if(m.gt.l)220
      if(m.eq.l)240
220   continue
230   write(6,20)n
240   continue
      write(6,30)
      stop
 20   format(i4)
 30   format(1c7,c10,9hFinished.)
      end
▶EOF◀