Bu programı kullanmak için port'a 8'li led bağlamak gerekiyor. Uses Crt, Dos; Var port1:Integer; t, i:Byte; Begin t:=1; Repeat Procedure yuruyen; Begin Repeat Port :=t; Delay(100); t:=t 2; Until t<>128; End; Procedure geriyuruyen; Begin Repeat Port :=t; Delay(100); t:=t div 2 ; Until t<>1; until keypressed; End - Bilginin Adresinden TurkCom. Org -