Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/ETRAP8.ZIP/CONSTR.INC

Text File | 1988-01-17 | 260 b | 12 lines

(*****************************************************************)

function constr(character:char;times:integer):string;

var
  i:integer;
begin
  for i:=1 to times do
    constr[i]:=character;
  constr[0]:=chr(ord(times));
end;{function constr}