home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / READQ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-07-16  |  790 b   |  29 lines
  1. procedure readq(filen:astr);
  2. var f,f1:text; a,s,store:astr; i,x:integer; fuku:boolean;
  3. begin
  4.   assign(f,filen);
  5.   {$I-} reset(f); {$I+}
  6.   if ioresult=0 then begin
  7.     store:=copy(filen,1,pos('.',filen)-1)+'.ASW';
  8.     assign(f1,store); {$I-} append(f1); {$I+}
  9.     if ioresult<>0 then rewrite(f1);
  10.     writeln(f1,'User: '+nam);
  11.     repeat
  12.     fuku:=false;
  13.     readln(f,a);
  14.     for i:=1 to length(a) do begin
  15.       if a[i]='*' then begin
  16.         prompt(copy(a,1,i-1));
  17.         x:=80-i; inputl(s,x);
  18.         writeln(f1,s);
  19.         fuku:=true;
  20.       end;
  21.     end;
  22.     if fuku=false then prompt(a);
  23. {   if fuku then writeln(f1,copy(a,1,length(a)-1)+s) else writeln(f1,a);}
  24.     if fuku=false then nl;
  25.     until (eof(f)) or (hangup);
  26.   close(f); close(f1);
  27.   end;
  28. end;
  29.