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

⟦32f0ada4c⟧ TextFile

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

Derivation

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

TextFile

clear user ftal
ftal=set 1 disc5
scope user ftal
ftal=algol
\f


RAMAN PROCEDURE                                                  FTAL

external procedure ftal(i);
integer i;
begin integer j,s; array p(1:6);
      j:=0;
L:    j:=j+1; if j>6 then goto slut;
      read(in,p(j)); if p(j)>9 or p(j)<0 then p(j):=0;
      repeatchar(in); readchar(in,s);
      if s<>10  and (s<48 or s>57) then 
      begin repeatchar(in); goto L; end;
          
      i:=0;
      if j=1 and p(1)=0 then goto slut;
      for s:=1 step 1 until j do
      i:=i+10**(p(s)-1);
slut: end; end
\f


▶EOF◀