Visual Basic 6

Геннадий Маков

   на «Конкурс на досуге - 57. Задание!» (Маллар Ме)

   Abeunt studia in mores
   Занятия налагают отпечаток на характер
   Публий Овидий Назон

If Len(Dir(CurDir + "\APat", 16)) = 0 Then Exit Sub
Ad1 = CurDir() + "\APat\/pat" + Str(K) + ".bmp"
If Len(Dir(Ad1)) = 0 Then Form1.Text2 = " Пат" + Str(K) + " не найден": FWpat = 1: Exit Sub
Ad2 = CurDir() + "\APat\/pat" + Str(K) + "m.bmp"
' Вы в общем поняли, что я усидчив, красавЕц.
' Рифм тавтологий не боясь, их ставлю на конец.
' И оператор GoTo использую чуть-чуть.
' А карандаш держу во рту. И не боюсь заснуть.
_________

Список читателей / Версия для печати / Разместить анонс / Заявить о нарушении

Другие произведения автора Геннадий Маков

Рецензии

Написать рецензию

Характер всех куётся в детстве -
Системы ценностей и цель,
Чтоб “утвердить себя” все средства
Ребёнку пробовать не лень.

Кто хитростью, а кто интригой
Достичь, добиться, утвердить…
И недостатки, что всем видно
Их силой воли победить.
;-0

Оскар Хуторянский 01.08.2021 01:09 • Заявить о нарушении

+ добавить замечания

Я кота своего в утилитарных целях использую.
Смотрю на него - какой красивый! И усы торчат.
И тогда желание писать собственные вирши несколько ослабевает.
))
А как ещё графоманские желания пересилить?

Геннадий Маков 01.08.2021 06:18 Заявить о нарушении

+ добавить замечания

Написать рецензию Написать личное сообщение Другие произведения автора Геннадий Маков