DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

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

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦5530afe78⟧ TextFile

    Length: 932 (0x3a4)
    Types: TextFile
    Notes: UNIX file
    Names: »sales.fcst«

Derivation

└─⟦c93a30372⟧ Bits:30004169/disk3.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦c93a30372⟧ UNIX Filesystem
    └─⟦this⟧ »up/new/usr/UAP/demo/sales.fcst« 

TextFile

st on
v on
database us_sales
label r1c1:r5c4=salesfigures
cw title 0
t hdr1,Redwood  A000000 UNIPLEX SPREADSHEET vs 5.02a
t hdr2,Redwood International Ltd.
d r1c2=1987
d r1c3=1988
t r2c1,Hill
t r3c1,Ellis
t r4c1,Smith
t r6c1,Total
t r8c1,Increase p.a.
d r8c3=0.1
f r8c3 %
t r10c1,Percentage breakdown
t r12c1,Hill
t r13c1,Ellis
t r14c1,Smith
def r2c2=pipe("select Yr_1987 from year_end where Surname='",r2c1,"'")
f r2c2 int
def r2c3=R6c3*r12C2
f r2c3 int
def r3c2=pipe("select Yr_1987 from year_end where Surname='",r3c1,"'")
f r3c2 int
def r3c3=R6c3*r13C2
f r3c3 int
def r4c2=pipe("select Yr_1987 from year_end where Surname='",r4c1,"'")
f r4c2 int
def r4c3=R6c3*r14C2
f r4c3 int
def r6c2=sum(c2r2:4)
f r6c2 int
def r6c3=r6c2*(1+R8C3)
f r6c3 int
def r12c2=r2C2/R6C2
f r12c2 % int
def r13c2=r3C2/R6C2
f r13c2 % int
def r14c2=r4C2/R6C2
f r14c2 % int
g type V_BAR
g width 40
g length 13
g label c r
g limit 
g opt 
g group r
cu r12c2