Уменията по програмиране са нужни само колкото да направите от показвача на личния си сметач мигач, който да карате да трепти по желания от вас начин. Така той може да се използва за "насичане" на времето - това, което чувствате, се отмества достатъчно далеч във времето от това, което виждате, за да предизвика странно усещане. С предписваемия мигач могат да се гледат и анимации на лента, да се "промиват мозъци"...

Ако познайвате глаголене, може би сте си правили програма-мигач. На мен с "Borland Pascal 7" ми беше най-лесно, с "mode $13" и "delay" - ако още си служите, между другото, и с този съставител (компилатор), сигурно знаете за делението на нула, което се получава при работа на модула "CRT" на "прекалено бързи" вършачи (със сигурност по-бързи от PMMX200) и вероятно имате средства, които се справят с тази грешка.

---начало на свитъка---

program migache;

uses crt;

var c:byte;

procedure chist13; assembler;
 asm
 mov ax,$13
 int $10
 mov ah,$0F
 int $10
 end;

procedure platno(c:byte); assembler;	{запълва платното с желан цвят}
 asm
 mov ax,$A000
 mov es,ax
 xor di,di
 mov al,c
 mov ah,al
@1:
 mov es:[di], ax
 add di,2
 cmp di,63999
 ja @2
 jmp @1
@2:
 end;

procedure miga(zabav:word);
begin
chist13;

while (not keypressed)
do begin

platno(c);
delay((zabav div 15));
platno(0);
delay((zabav div 14)*15); (*тук отношението на времето за светене и *)
				  (*затъмнение е 1/14*)

end;
  end;

procedure vrutka;	{главна въртележка}
var m:word;
begin

m:=1;
c:=15;

while (m<>0) do
begin
writeln('Dosega - ',m,' kadura');
writeln('Kolko kadyra v sekunda? (0 - kraj, 99 - cvqt)');
readln(m);
if (m=0) then exit else
if (m=99) then begin writeln('Cvqt 0-255');readln(c);continue;end;

miga(round(1000 div m));
textmode(2);
end;
    end;

begin
 vrutka;
end.

--край на свитъка--