DataMuseum.dk

top - metrics - download

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

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦0f6e8048b⟧ »preditfile« 
            └─⟦this⟧ 

TextFile

\f



comment predit text           * page 49   11 02 80, 16.42
0 1 2 3 4 5 6 7 8 9 ;  
comment case 16,




t_list:   udskriver tekster med boss-linienumre.   cap 1979.11.06
=======
;


begin integer i, j, k, char , count;
integer array tab(0:255); long array lin(1:60);
integer array field iaf1, iaf2;
zone z(1,1,stderror);
integer array ia(1:20), tail(1:10); long array field laf; real r;
getzone6(in,ia);
if ia(1)<>4 then
begin write(out,<:**** filename missing<10>:>); goto end_program; end;
laf:=2; open(z,0,ia.laf,0); close(z,false);
i:=monitor(42,z,0,tail); if i<>0 then system(9,i,<:lookup:>);
write(out,ia.laf);
if tail(6)<>0 then write(out,<: d.:>,<<zddddd>,systime(6,tail(6),r),<:.:>,<<zddd>,r/100);
outchar(out,10);
char:=count:=0; 
for i:= 0 step 1 until 31, 127 step 1 until 255 do tab(i):=0;
for i:= 32 step 1 until 126 do tab(i):= 6 shift 12 + i;
for i:= 10, 12, 25 do tab(i):= 8 shift 12 + i;
intable(tab); iaf1:=0; iaf2:=4;
for i:= 0, readchar(in, char) while char <> 25 do
 begin 
  if char = 12 then 
    count :=( count + 1000)//1000 * 1000
       else count:=count+10;
   if char = 12 then outchar(out,12);
  lin(1):=0; tofrom(lin.iaf2, lin.iaf1, 60*4-4);
  if readchar(in, char)<>8 then
   begin
    repeatchar(in);
    readstring(in, lin, 1);
   end;
   write(out, <<ddd ddd>, count, <: :>, lin, <:<10>:>);
  repeatchar(in);
 end;
end_program:
 trap_mode:= 1 shift 10;
end case 16;
▶EOF◀