Ungkapkan perasaanmu dengan bahasa pascal

Kamu ingin mengungkapkan perasayaan sayang atau cinta kepada seseorang tetapi ingin cara yang unik, beda, dan boleh dibilang sedikit intelek?  Kalau sekedar mengungkapkan kata cinta dengan surat, kartu, sms, email, MMS, emoticon, atau telepon sih itu sudah biasa. Cari dong yang lebih kreatif dan sedikit kreatif. Misalnya begini, pernah tidak kamu (khususnya blogger) mengungkapkan rasa cintamu dengan menggunakan surat yang berbahasa pemrogaman? Bahasa Pascal misalnya. Menarik khan? Seru khan? Minimal, cara ini akan menjadi sebuah cara yang lain dari yang lain.

Nah, tadi aku iseng utak-atik kode hingga akhirnya bisa sedikit memodifikasi pengungkapan rasa cinta dengan bahasa Pascal. Dan hasilnya adalah sebuah file berekstensi .exe dengan nama file katakancintamu.exe. Silakan didonlot di sini. Tidak sampai 5 detik insya Allah. Setelah download, langsung klik saja file katakancintamu.exe itu. Nanti file itu akan menampilkan sebuah tampilan yang lain daripada yang lain. Tentunya sebuah ungkapan perasaan sayang atau cinta.

Gimana? Sudah dilihat? Tertarik untuk membuat ungkapan serupa? Berikut di bawah ini aku tuliskan code yang dipakai untuk membuat ungkapan sebagaimana yang nampak pada file katakancintamu.exe di atas. Bila anda ingin memodifikasi dengan caramu sendiri, silakan saja.

Ini kodenya:

Program layar;<br /> Uses crt;<br /> var x : char;<br /> z : char;<br /> i : integer;<br /> begin<br /> clrscr;<br /> gotoXY(35,2);writeln (’888888888888′);<br /> delay (100);<br /> insline;<br /> gotoXY(32,3);writeln (’888888822222228888′);<br /> delay (100);<br /> gotoXY(31,4);writeln (’888888822222222288888′);<br /> delay (100);<br /> gotoXY(30,5); writeln (’888888222222222228888822228888′);<br /> delay (100);<br /> gotoXY(30,6); writeln (’888882222222222222288222222222888′);<br /> delay (100);<br /> gotoXY(30,7); writeln (’88888222222222LUV22222222222222288′);<br /> delay (100);<br /> gotoXY(31,8); writeln (’8888822222222222222222222222222_88′);<br /> delay (100);<br /> gotoXY(32,9); writeln (’88888222222222222222U22222222__888′);<br /> delay (100);<br /> gotoXY(33,10); writeln (’888822222222222222222222222___888′);<br /> delay (100);<br /> gotoXY(34,11); writeln (’8888222222222222222222222____888′);<br /> delay (100);<br /> gotoXY(35,12); writeln (’8888222222222222222222_____888′);<br /> delay (100);<br /> gotoXY(36,13); writeln (’8882222222222222222_____8888′);<br /> delay(100);<br /> gotoXY(37,14); writeln (’888822222222222______888888′);<br /> delay(100);<br /> gotoXY(38,15); writeln (’8888882222______88888888′);<br /> delay(100);<br /> gotoXY(39,16); writeln (’888888_____888888888′);<br /> delay(100);<br /> gotoXY(40,17); writeln (’88888888888888′);<br /> delay(100);<br /> gotoXY(41,18); writeln (’888888888′);<br /> delay(100);<br /> gotoXY(42,19); writeln (’888888′);<br /> delay(100);<br /> gotoXY(43,20); writeln (’8888′);<br /> delay(100);<br /> gotoXY(44,21); writeln (’88 By: ahmedfikreatif’);<br /> delay(100);<br /> gotoXY(45,22); writeln (’8′);<br /> gotoXY(01,13); writeln (‘I Luv U’);<br /> delay (100);</div> <div style="background-color: white; color: #333333; font-family: Arial, Helvetica, Georgia, sans-serif; font-size: 12px; line-height: 18px; padding: 10px 0px 0px;"> gotoXY(01,23); writeln (‘Na, selama ini sebenarnya aku sayang kamu’);</div> <div style="background-color: white; color: #333333; font-family: Arial, Helvetica, Georgia, sans-serif; font-size: 12px; line-height: 18px; padding: 10px 0px 0px;"> gotoXY(01,24); writeln (‘maukah kamu menikah dengan saya?’);<br /> writeln (‘jawab dengan Y untuk Ya, atau N untuk Tidak’);</div> <div style="background-color: white; color: #333333; font-family: Arial, Helvetica, Georgia, sans-serif; font-size: 12px; line-height: 18px; padding: 10px 0px 0px;"> z := readkey;<br /> delay(1000);<br /> case z of<br /> ‘Y’ : writeln(‘I LOVE YOU :”>’);<br /> ‘N’ : writeln(‘I HATE YOU’);<br /> else writeln(‘jawab neng, pencet Y atau N di keyboard’);<br /> z :=readkey;<br /> delay(1000);<br /> case z of<br /> ‘y’ : writeln (‘I LOVE YOU :”>’);<br /> ‘n’ : writeln (‘walaupun ditolak, abang tetep cinta neng <img alt=":(" class="wp-smiley" src="http://s0.wp.com/wp-includes/images/smilies/icon_sad.gif?m=1129645325g" style="background-image: none; background-position: initial initial; background-repeat: initial initial; border: 0px; padding: 0px;" /> *hikz’);<br /> else writeln(‘ ‘);<br /> end;</div> <div style="background-color: white; color: #333333; font-family: Arial, Helvetica, Georgia, sans-serif; font-size: 12px; line-height: 18px; padding: 10px 0px 0px;"> end;<br /> read(z);<br /> end.</div>