DataMuseum.dk

top - metrics - download

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

└─⟦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.1800 lines.20000
slet prm.readtext
beskyt prm.readtext.2
lookup readlist
if ok.yes
mode list.yes
if list.yes
readtext=algol list.yes
readtext=algol
external
procedure readtext(text);
array text;
begin
integer array table(0:256);
integer i,char;
cleararray(text);
cleararray(table);
for i:=readchar(in,char) while char<>59 do;
repeatchar(in);
for i:=0 step 1 until 31,127 step 1 until 256 do table(i):=i;
for i:=10,32 step 1 until 126 do
 table(i):= 6 shift 12 +i;
table(59):=8 shift 12+59;
table(25):=8 shift 12 + 25;
tableindex:=0;
intable(table);
readstring(in,text,1);
intable(0);
end;
end
▶EOF◀