DataMuseum.dk

top - metrics - download

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

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

TextFile

;klab3 6 time.90 lines.500

clear readcomment
readcomment=set 2
permanent readcomment.13
beskyt al.readcomment
lookup readgtest
if ok.yes
mode 10.yes
lookup readlist
if ok.yes
mode list.yes 15.yes
clear readlist readgtest
readcomment=algol
readcomment
1977-11-14
external
integer procedure readcomment(in,text);
zone in;
array text;
begin
integer char,sh,c,i,cc;
cleararray(text);
i:=1;
cc:=0;
repeatchar(in);
sh:=0;
for c:=readchar(in,char) while char<>34 and char<>25 do;
if char=34 then begin
for c:=readchar(in,char) while char<>34 and char<>25  do
  begin
  text(i):=text(i) shift 8 add char;
  cc:=cc+1;
  sh:=sh+1;
  if sh=6 then begin
    sh:=0;
    i:=i+1;
    end;
  end inner loop;
end char=34;
text(i):=text(i) shift (8*(6-sh));
readcomment:=cc;
end readcomment;
end;

testc=set 70
testc=algol
1977 11 14
begin
integer i;
array txt(1:100);
i:=readcomment(in,txt);
write(out,i,nl,1,string(inc(txt)));
end
mode list.no 15.no
▶EOF◀