Создается такое приложение очень просто.

1. Создаем файл и называем его например: tree.txt
2. Открываем файл и пишем:
3. Сохраняем файл
4. Переименовываем в tree.bat
5. Кидаем в папку, листинг которой хотим выполнить
6. Запускаем

uses crt;
var min,sec:integer;
begin
clrscr;
for min :=1 to 3 do
begin
for sec:=1 to 60 do
begin
delay(1000);
gotoXY(1,1) ;
write (min,':',sec,'') ;
if keypressed then halt
end;
end;
end.

Сегодня разбирая кладовку, наткнулся на очень интересную вещь. Тут же хлынули воспоминания былых лет...
Лет семь тому назад... мне тогда 18 было, весной я тяжело заболел. Лечился амбулаторно у родителей в деревне, потому что в районной болнице меня не стали экстренно ложить на лечение, типа для этого небыло основания. Врач не нашел серьезную угрозу моему здоровью и со словами: "Приезжайте на следующей неделе..." отдал карточку обратно. Ему было не интересно, что меня уже буквально...

Парадокс! когда я активно качаю с торрентов что либо, или в интернете сидят сразу с 2-х компов, модем чуть тёпленький, но когда почти просто так стоит (без нагрузки) греется ой как сильно, собственно вот и решение проблемы

В мире абстракций полных
Мой разум в клетке заключен,
Он в плену мечтаний темных
Там на погибель обречен.
Рядом со светом, вновь парящий
Не в силах дальше улететь
Бьётся он, не настоящий,
В темнице обреченный умереть.
Сам в плену своих фантазий
Дающих волю светлым мыслям,
Он там заперся в отказе
Отрёкшись от благого смысла.
Белым светом луч надежды
Давал намёки на побег,
Но он знал, что будет прежним,...