:timer0
	t=60
	lr=rnd2
	lb=3-lr
:timer
	cls
	t=t-1
	pln  Таймер показывает #t$
	if t<0 then goto loc0
    btn синий, Резать синий провод.
    btn красный, Резать красный провод.
    btn выключить, Выдернуть вилку из розетки.
pause 400
    cls
    goto timer
end

:синий
	pln Вы перерезали синий провод.
	goto loc#lb$
end

:красный
	pln Вы перерезали красный провод.
	goto loc#lr$
end

:loc0
	pause 1000
	pln Дзинь! Пица готова! Можете открыть микроволновку:)
end

:loc1
	pause 1000
	pln BOOM!!!
end

:loc2
	pause 1000
	pln Таймер застыл на цифре #t$.
end

:выключить
	pln Экран погас.
	btn timer, Включить.
end