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

⟦318ec5709⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »tomprog«

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦1ad7c9ab2⟧ »diverse« 
            └─⟦this⟧

TextFile

begin real tomme,mm,slut;
tomme := 0.0;
while tomme < 999999 do
begin
write(out,<:<10>tommer ? :>); setposition(out,0,0);
read(in,tomme);
write(out,<:   mm = :>,<<-dddd.dddd>,tomme*2.54); setposition(out,0,0);
end;
end;
▶EOF◀