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

⟦5393de597⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »ryglobal«

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦7b6e66aaa⟧ »crypr« 
            └─⟦this⟧ 
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦84e44a383⟧ »crypr« 
            └─⟦this⟧

TextFile

<*   global declarations and initialisation   *>
integer Z,Zmin,Zmax,S,atno,nmin,nmax,lmin,lmax,electrons;
real nsmax,Ip;
boolean list,survey,test;

initrydproc(1,1,1,1);
S:=1;
atno:=0;
readbfp(<:list:>,list,false);
readbfp(<:survey:>,survey,true);
readbfp(<:test:>,test,false);
readifp(<:z:>,Z,1);
readifp(<:zmin:>,Zmin,1);
readifp(<:zmax:>,Zmax,40);
readifp(<:nmin:>,nmin,1);
readifp(<:nmax:>,nmax,25);
readifp(<:lmin:>,lmin,0);
readifp(<:lmax:>,lmax,nmax-1);
readrfp(<:nsmax:>,nsmax,nmax);
if Zmin<1 or Zmin>Zmax or nmin<1 or lmin<0 or nmin>nmax or lmin>lmax then
write(out,"nl",3,"*",2,<:error in limit variables :>,
  "nl",1,<:Zmin    :>,Zmin,
  "nl",1,<:Zmax    :>,Zmax,
  "nl",1,<:nmin    :>,nmin,
  "nl",1,<:nmax    :>,nmax,
  "nl",1,<:lmin    :>,lmin,
  "nl",1,<:lmax    :>,lmax);
lmin:=2*lmin; lmax:=2*lmax;
▶EOF◀