Paskal meyediakan sebuah program untuk meletakan hasil tampulan pada baris dan kolom yang sudah ditentukan oleh karena itu Fungsi Gotoxy lah berperan, sedangkan clreol untuk menghapus baris yang berada disebelah kanan kursor lebih jelas silahkan dicoba

Program ini untuk mengetahui program dengan prosedur standar Clrscr, GoTo XY dan ClrEol

Program Prak1a;
uses wincrt;
var nilai : integer;
begin
(*Contoh program dengan prosedur standar Clrscr, GoTo XY dan ClrEol*)
Writeln('Penggunaan prosedur standar Clrscr dan GoToXY');
Writeln('_____________________________________________');
Writeln;
GoToXY (20,5);
Writeln ('Anda sedang belajar Pascal');
Writeln;
Writeln;
Writeln('Penggunaan prosedur standar ClrEol');
Writeln('__________________________________');
Writeln;
GoToXY (15,10);
Write('Masukkan sebuah nilai integer:');
Readln(Nilai);
GoToXY(15,10);
ClrEol;
Writeln('Anda Pintar !!');
end.

Sudah saatnya Indonesia mengatur perlindungan dan pelestarian terhadap batik dengan mempunyai Undang-Undang Batik.

Staf Ahli Kementerian Perindustrian Fauzi Azis dalam dialog dengan sejumlah perajin batik di Pekalongan, Jawa Tengah, Sabtu (17/9/2011), mengatakan, “UU Batik diperlukan untuk lebih menjamin secara hukum tentang masa depan batik Indonesia sebagai produk budaya dan penggerak ekonomi kerakyatan.”

Ada pun alasan diperlukannya UU, menurut Fauzi, secara de jure dan de facto oleh UNESCO, batik telah diakui sebagai warisan budaya tak benda milik bangsa Indonesia.

Sebagai warisan budaya, batik wajib dilindungi, dilestarikan, dibina, dan dikembangkan, baik dalam hubungannya dengan budaya maupun ekonomi. Romi Oktabirawa, perajin batik Wiradesa, mengatakan, buku-buku batik masih merupakan simpul-simpul kecil. Belum komprehensif.