Это вообще откуда?

IF NOT starting THEN
Switch_To_Single_Mode();
SetWorkScreenCount(1);
ClearScreen(0);
starting:=TRUE;
END_IF;


Откройте описание к биб-ке на стр 22. Вставляем и проверяем. Потом берем его за основу.