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

⟦46527e494⟧ TextFile

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

Derivation

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

TextFile

begin
integer ll;
read(in,ll);

begin
zone z1 (128*2,2,stderror);
zone z2 (ll,1,stderror);
integer i,j,k;
open(z1,4,<:tapearea:>,0);
open(z2,18,<:klrtape:>,0);
setposition(z2,1,0);
j := 0;
 while j=0 do
begin
inrec(z2,ll);
tofrom(z1,z2,ll);
outrec(z1,ll);
end;
close(z1,true);
close(z2,true);
end;
end;
▶EOF◀