#INCLUDE <BDSCIO,H>
MAIN()
{
WININI(0,0,0,40,32);
WINDOW(0);
TFARB(3,7);
WININI(1,0,12,40,20);
WINDOW(1);
TFARB(4,3);
WININI(2,0,0,40,2);
WINDOW(2);
TFARB(0,3);
WININI(3,25,0,15,2);
WINDOW(3);
}