|
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: 1536 (0x600)
Types: TextFile
Names: »extoutmediu«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦58ca399f1⟧ »extbib«
└─⟦this⟧
outmedium=algol list.yes index.no
external
boolean procedure outmedium(output);
zone output;
begin
integer i,j;
boolean b;
integer array t(1:10);
array a(1:2);
i:= system(4,1,a); b:= i = 6 shift 12 + 10;
if b then begin zone z(1,1,stderror);
system(4,0,a); i:= 1; open(z,0,string a(increase(i)),0);
j:= monitor(42,z,0,t);
if j<>0 then begin
for i:=3 step 1 until 10 do t(i):= 0;
t(1):= t(2):= 1; t(6):= systime(7,0,0.0);
monitor(40,z,0,t); monitor(50,z,2,t); system(11,i,t);
t(1):= t(5); t(2):= t(6); monitor(74,z,0,t); t(7):= t(8):= 0
end;
close(z,true); i:= 1;
open(output,4,string a(increase(i)),0);
setposition(output,t(7),t(8))
end else begin
array field name; integer array zonedex(1:20);
name:= 2; getzone(out,zonedex); i:= 1;
open(output,zonedex(1),string zonedex.name(increase(i)),0)
end;
outmedium:= b
end;
end
▶EOF◀