DataMuseum.dk

top - metrics - download

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

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦e3cb726bb⟧ »test« 
            └─⟦this⟧ 

TextFile

begin integer var_max;
boolean array test(1:24);
var_max := 20;
begin
algol copy.tcgtrgfnc;
algol copy.taria;
integer fejl;
integer i;
long array skriv_navn(1:2);
skriv_navn(2) := 0;
for i := 1 step 1 until var_max do 
  begin
  var_value(i) := 0;
  var_navn(i) := 0;
  var_art(i) := 0;
  end;
var_top := 0; <* tom var tabel *>

for i := 1 step 1 until 24 do test(i) := false;
test(1) := false;
test(2):=false;
test(3) := false;
test(4) := false;
fejl := 0;
while fejl = 0 do
begin

aritmetik(fejl);
for i := 1 step 1 until var_max do
  begin
  if var_navn(i) <> 0 then
     begin
     skriv_navn(1) := var_navn(i);
     write(out,"nl",1,skriv_navn,<: -> :>,
           if abs(round(var_value(i)) - var_value(i)) < 0.000001 then
           <<_-ddddddddd> else <<-ddddddddd.ddddd>,
           if abs(round(var_value(i)) - var_value(i)) < 0.000001 then
           round(var_value(i)) else var_value(i) );
     if test(1) then write(out,<: type = :>,var_art(i));
     end;
   end;
   outchar(out,'nl');
   setposition(out,0,0);
end;
write(out,<:<10>*** fejl nr::>,fejl);
end blok var;
end program;
▶EOF◀