Если у тебя TurboPascal, смотри в папке EXAMPLES\BGI, там оно есть. Например:
Что ещё пожелает барин?
Да без проблем, определяйте, что за программы вы хотите пишите мне, выполню.