DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »tcopyf«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦e4d872f9f⟧ »cproc« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦e4d872f9f⟧ »cproc« 
            └─⟦this⟧ 

TextFile

; klab3 1 time.12000 lines.2800
;copyftxt
slet copyfile.13
beskyt al.copyfile.13.4
if 10.yes
copyfile=algol list.yes index.no
copyfile=algol index.no
external
procedure copyfile(ip,op,fi,la);
value fi,la; integer fi,la;
string ip,op;
begin
array inp,outp(1:3);
integer i,j,k,l;
integer array tail(1:10),table(1:256);
array txt(1:128);
cleararray(inp); cleararray(outp);
movestring(inp,1,ip); movestring(outp,1,op);
i:=lookuptail(inp,tail);
if i<>0 then alarm(<:input:>);
for i:=1 step 1 until 256 do table(i):=6 shift 12 add i;
table(10):=8 shift 12 add 10;
table(25):=8 shift 12 add 25;
intable(table);
tableindex:=0;
if tail(1)>0 then fi:=la:=0 else tail(7):=fi;
stackcuro;
if connectcuro(outp) <>0 then alarm(<:connect outfile:>);
for l:=fi step 1 until la do
  begin
  cleararray(txt);
  changeentry(inp,tail);
  k:=0;
  stackcuri;
  if connectcuri(inp) <>0 then alarm(<:connect infile:>);
  for j:=readstring(in,txt,1) while j<>0 and k<>25 do
    begin
    i:=1;
    write(out,string txt(increase(i)));
    cleararray(txt);
    rep: repeatchar(in); readchar(in,k);
    write(out,false add k,1);
    if k<>25 then readchar(in,k); 
    if k=10 then goto rep;
    repeatchar(in);
    end;
  unstackcuri;
  if tail(1)<0 then tail(7):=tail(7)+1;
  end file;
intable(0);
closeout;
end;
end;
▶EOF◀