misc/DESCRIP.PAS

Program makeDescrip;
        uses crt,dos,gensubs,skashit,gentypes;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
var
 i : text;
 o : file;
 s : string[100];
 x : integer;
 y : byte;
{:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
begin
 if not exist('STRING.TXT') then
  begin
  skaWrite('|CR|15error - description file STRING.TXT cannot be found|CR|15-|07-|03 HALTING|CR');
  halt(5);
  end;
 clrscr;
 assign(i,'STRING.TXT'); reset(i);
 assign(o,'DESCRIP.DAT');rewrite(o,1);
 y := whereY;
  repeat
  fillChar(s,sizeOf(s),0);
  readln(i,s);
  gotoXY(1,Y+2);skaWrite(s);delay(100);
  inc(x);
  gotoXY(1,y);write('compiling number - ',x);
  blockWrite(o,s,sizeOf(s));
  until eof(i) or (x>=stringNum);
 close(o);close(i);
 skawrite('|15-|07- |03descriptions compiled!@! |07>|15>|CR|15');
end.