Dima111111
AllOn;

Loop
Begin

AllOff;
Grenn(ON);
Delay(35);
AllOff;

Yellow(ON);
Delay(5);
AllOff;

Red(ON);
Delay(25);
AllOff;

Yellow(ON);
Delay(5);

End;

Dima111111 Схему дать? В обзщем то из компа из паралеьного порта 1 бит зеленый 2 бит желтый 3 бит красный, идет на управляющие ключевые транзисторы в коллекторе которых стоят лампы накаливания которые закрытые светофильтрами, RYG.

RadioKoteg а цифры до переключения светофора как отобразить? =)

да!!!

Dima111111 можно через паралельный порт и цыфры выводить. =) Зачем Вам, это нужно-то?

Гдето так:

Var
DelayG=35;
DelayY=5;
DelayR=35;
B,E,С Label;


AllOn;AllOff;AllOn;AllOff;AllOn;AllOff;AllOn;AllOff; //Self blinking-booting test nakal lamp system (C) by RadioKoteg
B:
Loop
Begin

AllOff;
Grenn(ON);

if DelayG=0 then
begin
Delay(DelayG=DelayG-1);
Otobrazit(DelayG);
end;

AllOff;

Yellow(On);
if DelayY=0 then
begin
Delay(DelayY=DelayY-1);
Otobrazit(DelayY);
end

AllOff;

Red(On);
if DelayR=0 then
begin
Delay(DelayR=DelayR-1);
Otobrazit(DelayR);
end

Yellow(On);
if DelayY=0 then
begin
Delay(DelayY=DelayY-1);
Otobrazit(DelayY);
end

Delay(5);
DelayG=35;
DelayY=5;
DelayR=35;

IF Signal=11 then goto E;
IF Signal(FF) then goto C;

End;

E:
AllOff;
Yellow(On);
Delay(0.5);
AllOff;
IF Signal(12) then goto B;
IF Signal(FF) then goto C;
Goto E;

C:

SetFreq(165245);
SeеText("ривет от radioscanner.ru П");
Delay(0.1);
SeеText("Привет от radioscanner.ru Пр");
Delay(0.1);
SeеText("вет от radioscanner.ru При");
Delay(0.1);
SeеText("ет от radioscanner.ru Прив");
Delay(0.1);
SeеText("т от radioscanner.ru Приве");
Delay(0.1);
SeеText(" от radioscanner.ru Привет");
Delay(0.1);
.
.
.
SeеText("т от radioscanner.ru Приве");

if Signal(00) Goto C else Return;

RadioKoteg а это что за язык?

Otobrazit(Delay):
Begin
SetFreq(165245);
SeеText(Delay to STR);
end;

Надо будет, напишем свой язык на базе паскаля ;=)

Главное при этом останется повод для мониторинга частоты 165245.

RadioKoteg =)

:-)

Вот так за ночь- курсовую написали...