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

⟦e9a95e28d⟧ TextFile

    Length: 334 (0x14e)
    Types: TextFile
    Notes: UNIX file
    Names: »mcmds«

Derivation

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

TextFile

#BEGIN
cursor r2c2
#START
(empty (@)) goto EXIT
(@ <= 0)
move @ > {@R}
format {@R} bold
endif
{D}
goto START
#EXIT
def @ = sum(r1c{COL} {@U})
{R}
def @ = sum(r1c{COL} {@U})
cursor r16c1
def @ = "Sum
f  @ underscore
cursor r1c{COL}
{R}
cursor r1c2
def @ = "Credits
f c{COL} left
{R}
def @ = "Debits
f r{ROW} underscore
cw c2:3 10
calc