|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300) Types: TextFile Names: »ttsttape«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ. └─⟦4334b4c0b⟧ └─⟦this⟧ »ttsttape«
begin zone z(128,1,stderror); integer a,b,c,d,e,f,g,h,j,k; open(z,18,<:tsttape:>,0); setposition(z,0,0); for a:=1 step 1 until 800 do outrec6(z,512); getposition(z,b,c); write(out,"nl",1,"*",5,b,c); setposition(out,0,0); read(in,b,c); setposition(z,b,c); close(z,true); end ▶EOF◀