{ 0_0_0_0_0_0_0_0 }
{ 7 6 5 4 3 2 1 0 }
Program Blink;
Uses Crt,Dos;
Const Chars:array[1..8] of byte= (0, 16, 80, 112, 112, 80, 16, 0);
Var St:byte;A:Registers;
Begin
 Repeat
  While KeyPressed do ReadKey;
   For St:=1 to 8 do
    begin
     Mem[$0040:$0017]:=Chars[St];
     Delay(100);
    end;
{Mem[0040:17]:=1;
Mem[0040:17]:=2;
Mem[0040:17]:=4;
Mem[0040:17]:=8;
Mem[0040:17]:=16;}
  Until (Port[$60]=1) or ((KeyPressed) and (Readkey=#27));
End.