{***********************************************************************}
{ Test low level example: Use Video_BIOS library function to use BIOS	}
{***********************************************************************}

procedure test_video_BIOS;
const
str : array[0..33] of char = 'Print string using BIOS function E';
var
i : integer;
begin
    { Move cursor to row Ahex column 20hex using function 2 }
    video_BIOS($200,0,0,$A20,0,0);
    { Print a string at current cursor position using function E }
    for i := 0 to 33 do video_BIOS($E00 + integer(str[i]),0,0,0,0,0);
end;