Membuat Window Bergerak dalam Pascal

Assalammu'alaikum....
Rekan belajar bersama sekalian, malam ini mari kita mencoba membuat sebuah aplikasi sederhama menggunakan PASCAL yaitu membuat window yang bergerak.... penasaran????

kita langsung saja.
pertama-tama, kita jalankan terlebih dahulu aplikasi Free Pascal IDE nya. lalu ketikkan listing program berikut ini :

===============================
PROGRAM bergerak;
USES CRT;
VAR x : INTEGER;
BEGIN
FOR x:=1 TO 15 DO
BEGIN
SOUND(x*100);
DELAY(100);
NOSOUND;
END;
TEXTBACKGROUND(black);
CLRSCR;
FOR x := 1 TO 9 DO
BEGIN
TEXTBACKGROUND(white);
WINDOW(42-x*4,10-x,38+x*4,15+x);
CLRSCR;
DELAY(100);
END;
TEXTCOLOR(red*25);
GOTOXY(23,3); WRITELN('B E L A J A R  B E R S A M A');
TEXTCOLOR(black);
GOTOXY(5,5); WRITE('||');
FOR X := 6 TO 64 DO
BEGIN
GOTOXY(X,5);WRITELN('');
END;
FOR X := 6 TO 20 DO
BEGIN
GOTOXY(5,X); WRITELN('|| ');
END;
GOTOXY(5,21); WRITELN(' ');
TEXTCOLOR(white);
GOTOXY(65,5); WRITE('0');
FOR X := 6 TO 65 DO
BEGIN
GOTOXY(X,21); WRITELN(' ');
END;
FOR X := 6 TO 20 DO
BEGIN
GOTOXY(65,X); WRITELN('||');
END;
GOTOXY(65,21); WRITELN('0');
TEXTCOLOR(yellow);
READLN;
END.




==========================

nah... setelah itu run. maka hasilnya akan seperti berikut :

 

untuk lebih jelasnya, silahkan rekan-rekan coba sendiri. 

DAN INGAT BERBAGI ILMU YA.......