PL> Here is what I have done.. I really only need an example of 
PL> a valid line to handle this sort of thing.

Here is your code with a few changes.. Note the constant declarations.. Hex
numbers need a $ in front of them or put the decimal equivilent.

program testbox;
uses  crt;
procedure DrawBox (StartCol, StartRow, BoxLength, BoxWidth: integer);
const
  Horiz = char($ba);
  Vert = char($BA);
  TopLeft = char($C9);
  TopRight= char($BB);
  BotLeft=char($C8);
  BotRight= char($BC);
var
  Cnt, TopRCorn, TopLCorn, BotRCorn,botlcorn,i: integer;

begin
  gotoxy(StartCol,StartRow);
  Write(TopLeft);
  TopRCorn:= StartCol+BoxLength;
  for i:=1 to boxlength-1 do write(horiz);  {write top}
  gotoxy(TopRCorn, StartRow);
  Write (TopRight);
  Botlcorn:=StartRow+BoxWidth;
  gotoxy(StartCol,BotLCorn);
  Write (BotLeft);
  for i:=1 to boxlength-1 do write(horiz);{write bottom}
  gotoxy(TopRCorn,BotLCorn);
  Write (BotRight);
  for i:= 1 to boxwidth-1 do {write sides}
  begin
   gotoxy(startcol,startrow+i);
   write(vert);
   gotoxy(startcol+boxwidth,startrow+i);
   write(horiz);
  end;
end;


var
  SC, SR, Length, Width: integer;

BEGIN
  clrscr;
  WriteLn('Start Column ');
  ReadLn (SC);
  WriteLn('Start Row ');
  ReadLn(SR);
  WriteLn('Length ');
  ReadLn(Length);
  WriteLn ('Width ');
  ReadLn(Width);
  DrawBox (SC, SR, Length, Width);
  readln;
END. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Doug

--- Msgedsq/2 3.10