program pont;  {---}
uses crt,graph; {---}
var ix,iy,x,y:integer; {ix,iy,x,y dw ?}
gd,gm:integer; {---}
path:string; {---}
szin:byte;   {szin dw ?}

{Kepernyo segment at 0b800h
  balfelso dw 25*80 dup (?)
Kepernyo ends}

procedure foprogram; {Kod segment para public 'code'}
{assume cs:kod, ds:[???], es:kepernyo}
var i:longint;  {i [??] ?}
begin   {foprogram procedure}
  x:=320; y:=240; ix:=1; iy:=1; i:=1;
 repeat                  {mov cx,458710; "ciklus:"}
  putpixel(x,y,szin);
     if (y=479) or (y<1) {(y mod 480)=479 vagy (y mod 480)<1}
       then iy:=-iy;          {mov iy,-iy}
     if (x=639) or (x<1) {(x mod 640)=639 vagy (x mod 640)<1}
       then ix:=-ix;          {mov ix,-ix}
    x:=x+ix; y:=y+iy;
    inc(i); {---}
 until i>=(14*32765); {loop ciklus}
 inc(szin); foprogram; {inc(szin); call foprogram}
end;

begin
  clrscr; {  mov ax,3; int 10h}
  detectgraph(gd,gm); {---}
  path:='c:\tp\70\bgi\egavga.bgi'; {---}
  initgraph(gd,gm,path); {SetMode 640*480; InitPalette}
  szin:=white;
  foprogram; {---}
  closegraph; {---}
end. {kod ends; start foprogram; }