DataMuseum.dk

top - download

    Length: 2048 (0x800)
    Types: TextFile
    Names: »OVERFOER.PAS«

└─⟦27a1d1812⟧ Bits:30002681 RC-Katalog over EDB-bøger og programmer
    └─ ⟦this⟧ »OVERFOER.PAS« 

TextFile

program katalog;

type  regs = record
              ax,bx,cx,dx,bp,si,di,ds,es,flags:integer;
      end;

      produkt=record
              opl: array(.1..10.) of string(.30.);
              nr:integer;
              mark:array(.1..7.) of boolean;
      end;
      prodptr=^produkt;
      streng = string(.30.);
      
var i,j,m,n,p,sortnummer,nummer,antallinier,antalpost,niveau:integer;
post:produkt;
postptr:array(.1..410.) of prodptr;
f,g,h:file of produkt;
f1,g1,h1:file of string(.255.);
stren:string(.255.);
typer:array(.0..9.) of string(.10.);
aktive,maskemgd:array(.1..7.) of integer;      
maske,listetekst:array(.1..7.) of string(.30.);
ch,check:char;      
udvid,med,pr:boolean;
u,e:text;
tom:string(.20.);
st:string(.3.);
reg:regs;

         
procedure indlaes;
begin
   assign(f,'b:katdata.dat');
   assign(g,'katback.dat');
   assign(h,'katdata.dat');
   reset(f);
   reset(g);
   rewrite(h);
   assign(f1,'b:beskriv.dat');
   assign(g1,'besback.dat');
   assign(h1,'beskriv.dat');
   reset(f1);
   reset(g1);
   rewrite(h1);
   i:=0;
   while not eof(f1) do 
   begin
      i:=i+1;
      read(f1,stren);
      write(h1,stren);
   end;
   close(f1);
   writeln(i);
   nummer:=(i div 4) -1;
   i:=0;
   while not eof(g1) do 
   begin
      read(g1,stren);
      write(h1,stren);
   end;
   close(g1);
   close(h1);
   while not eof(f) do 
   begin
      repeat
         i:=i+1;
         read(f,post);
      until not(i in (.7,8,9,10,29,32,37,38,39,40,41,61,70,79,92,95,103,105,106,109,110,111,119,144.));
      if n=58 then post.opl(.1.):='Kondition                     ';
      if n=65 then post.opl(.1.):='Mellus                        ';
      write(h,post);
   end;
   close(f);
   while not eof(g) do 
   begin
      read(g,post);
      nummer:=nummer+1;
      post.nr:=nummer;
      write(h,post);
   end;
   close(g);
   close(h);
end;

begin
  indlaes;
end.«eof»