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

⟦2c79100bd⟧ TextFile

    Length: 339 (0x153)
    Types: TextFile
    Notes: UNIX file
    Names: »lr.bc«

Derivation

└─⟦2d8654ed6⟧ Bits:30004159 SW95851 RcTekst IV Rel. 1.2 (386/ix)
└─⟦2d8654ed6⟧ UNIX Filesystem
    └─⟦this⟧ »WP/new/usr/rctekst.d/lr.bc« 
└─⟦a1caab7b4⟧ Bits:30004158 SW95851 RcTekst IV Rel. 1.0 (386/ix)
└─⟦a1caab7b4⟧ UNIX Filesystem
    └─⟦this⟧ »WP/new/usr/bin/lr.bc«

TextFile

/* lommeregnerfunktioner bc/dc program 87.12.22 */

scale = 20
define p(a,b) {
	auto r
	r = a+b
	return(r)
}
define m(a,b) {
	auto r
	r = a - b
	return(r)
}
define g(a,b) {
	auto r
	r = a*b
	return(r)
}
define d(a,b) {
	auto r
/*	if ( b == 0 ) return(b) */
	r = a/b
	return(r)
}
define c(a,b) {
	auto r, s
	s = a/100
	r = s*b
	return(r)
}