Биография на Бейсике

10  BEGIN (Начало)
15 Я сажаю дерево
20  А (женщина) = 0 (пока ее нет)
25  Б (женщина) = массив {1; 1/0 (бесконечность)} (тоже пока в перспективе)
30  Я (мужчина) = 1
35  IF (если) Я < 1 GO TO (пшел!) 330
Иначе (если Нет)
40  А = А + 1 (есть телка!)
50  IF (если) Я (мужчина) не имею А (женщину) GO TO (пошла на...) 40 (следующая!)
Иначе (если Да)
70  Я рожаю сына
80  Я строю дом
100 Я имею Б (если она меня устраивает)
105 Я незаметно для А гуляю,  пью
107 IF (если) Я < 1 GO TO 200
Иначе (если Нет)
110 IF (если) А не знает про Б GO TO (пошел в..) 100
Иначе
120 IF (если) А сама Б GO TO (пошла на...) 40 (следующая!)
Иначе (если Нет)
130 IF (если) Я < 1 GO TO 210
Иначе (если Нет)
140 Б = Б+1
150 GO TO (хороша!) 100
200 Я отпускаю Б
210 Я заискиваю перед А
220 Я перестаю пить
230 Я подумываю о стакане воды в своей немощи
280 Я пью таблетки
290 Я лежу на утке
330 IF (если) Я = 0 GO TO 280
Иначе (если Нет)
660 IF (если) Я < 0 GO TO (отошел...) 666
Иначе (если Нет) GO TO (удачи!) 30
666 END (Конец)

Примечание 1. Дерево по сценарию посажено сразу, дабы не таскаться с ним по сцене неизвестно сколько раз.
Примечание 2. С сыном и домом этот номер не пройдет.