Program jendela bergerak

PROGRAM Window_Bergerak_dgn_delay;

USES CRT;

VAR i : INTEGER;

BEGIN

FOR i:=1 TO 15 DO

BEGIN

SOUND(i*100);

DELAY(100);

NOSOUND;

END;

TEXTBACKGROUND(black);

CLRSCR;

FOR i := 1 TO 9 DO

BEGIN

TEXTBACKGROUND(white);

WINDOW(42-i*4,10-i,38+i*4,15+i);

CLRSCR;

DELAY(100);

END;

TEXTCOLOR(15);

GOTOXY(28,2);WRITELN('c');

GOTOXY(8,3); WRITELN('3');

GOTOXY(28,4); WRITELN('A');

TEXTCOLOR(black);

GOTOXY(44,3); WRITELN('3');

GOTOXY(44,2); WRITELN('&');

GOTOXY(29,4); WRITELN('U');

TEXTCOLOR(red*25);

GOTOXY(30,3); WRITELN('B E L A J A R');

TEXTCOLOR(black);

GOTOXY(5,5); WRITE('c');

FOR i := 6 TO 64 DO

BEGIN

GOTOXY(i,5);WRITELN('');

END;

FOR i := 6 TO 20 DO

BEGIN

GOTOXY(5,i); WRITELN('3 ');

END;

GOTOXY(5,21); WRITELN(' ');

TEXTCOLOR(white);

GOTOXY(65,5); WRITE('U');

FOR i := 6 TO 65 DO

BEGIN

GOTOXY(i,21); WRITELN(' `);

END;

FOR i := 6 TO 20 DO

BEGIN

GOTOXY(65,i); WRITELN('3');

END;

GOTOXY(65,21); WRITELN('c');

TEXTCOLOR(yellow);

READLN;

END.