|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »atcompz«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦f3ee86806⟧ »rymac«
└─⟦this⟧
lookup ryfunc if ok.no ( message set ryfunc ryfunc=set 1200 disc3 scope day ryfunc ) submit # ; time !2 0 0 mode list.yes lookup rydterm if ok.yes o rydterm message m atcompz.seq.time.nukey.z.nsmax lkj=lookup rymain rycomp rydiffint ryortpr rydiagpr ryoffpr lookup rydberg1 if ok.no (rydberg1=set 460 rydberg1=algol rymain message.no index.no if ok.no finisb scope day rydberg1 ) lookup ryf!1dat if ok.no finisb clear day ryf!1dia clear day ryf!1dip c!1out=set 250 disc3 scope day c!1out c!1out=rydberg1 data.!1seqdat, nsmax.!5, lmax.20, zmin.!4 zmax.!4, rlfit.yes autcut.yes randr1mcrit.yes, nukey.!3, nmax.25, diag.yes, del.0.0.5, inter.6 if ok.no finisb o c scope day ryf!1dip ryf!1dia c!1out=edit c!1out f ;convert c!1out finisb mode list.no # ▶EOF◀