Program Door_test;

{$M $4000,0,0}
{$F+}
{$X+}
 Uses Urdoor;
 Var
  I : Integer;
  S : String;
  C : Char;
  X,Y : Byte;
  f,b : Byte;
(*-------------------------------------------------------------------------*)
(* CenterTxt                                                               *)
(*                                                                         *)
(*-------------------------------------------------------------------------*)
Function CenterTxt(Old: String): String;
Var
 Temp2: longInt;
 I    : Shortint;
Begin
  If Length(old) >= 80 then Delete(Old,81,255)
  else
   Begin
    Temp2 := Round((80-Length(Old))/2);
    For I := 1 to Temp2 do Insert(' ',Old,1);
   end;
  Centertxt := Old
End;

Begin
 URsetcolor(2,0);
 URwriteln(Centertxt('URDoor Demo'));
 URsetcolor(14,0);
 URwriteln(Centertxt('-Hit Any Key to Continue-'));c := URreadkey;
 URdisplayfile('Files.bbs',true);
 URSetcolor(10,0);
 UrWrite('Hit Any Key to Refresh Screen');C := URreadkey;
 URrefreshscreen;
 URWrite(#13#27+'[0K');
 URsetcolor(10,0);
 URwrite('Screen Refreshed -Hit Any Key to Continue-');c := URreadkey;
 URCls;
 URsetcolor(12,0);
 URwriteln(Centertxt('File  Display'));
 URsetcolor(9,0);
 URwrite(Centertxt('Press Any Key to Display File'));C := URreadkey;
 If ANSi Then URDisplayfile('GOlf.ans',True) Else URDisplayFile('Golf.asc',False);
  URwrite(Centertxt('Press Any Key to Continue'));C := URreadkey;
 urcls;
 URwrite(Centertxt('Goto Test'));
 Randomize;
 For I := 1 to 30 do
 Begin
  x := Random(79) + 1;
  y := Random(22) + 2;
  b := Random(7);
  f := Random(15);
  URSetcolor(f,b);
  URgotoXY(x,y);
  URWRITE('*');
 End; (*FOR I*)
 
 URsetcolor(14,0);
 URgotoxy(54,24);
 URwrite('- Press any key -');C := urreadkey;
 URcls;
 URsetcolor(4,0);
 URgotoxy(5,15);
 URwrite('Enter a string >');
 URsetcolor(14,0);
 S := urreadstr;
 URgotoxy(5,16);
 URwrite('Here'+#39+'s your string ');
 URsetcolor(4,0);
 URwrite(S);
 URgotoxy(0,22);
 URsetcolor(24,0);
 URwrite('Thats all folks HIT a key');
 C := urreadkey;
 Begin End;
End.