Persona Intikalia

7 Des 2009

Puisi dalam Program

Program NTXR;
//6 Desember 2009, 23.15: dibuat oleh John Terro
//Sebuah puisi dalam programnya
/*
Intikaliku, Oh Perusak Hati !!!

Mungkinkah ini telah ditakdirkan
Walau seakan tak terasa oleh tubuhku
Sebuah virus penggugah hati
Dalam senyum penuh racun
*/
void kerennya(integer[] intikalis){
/*
Tak sama cinta dengan intikali
Namun, intikali itu cinta
Cinta tanpa terbalas
Tak ingin terbalas, tepatnya
*/
integer kiri, kanan, kambing_hitam, ntxr:=length(intikalis);
for(kiri:=1; kiri<=ntxr; kiri++){
  for(kanan:=kiri; kanan<=ntxr; kanan++){
    if(intikalis[kiri]>intikalis[kanan]){
      kambing_hitam:=intikalis[kiri]; // kambing hitam?
      intikalis[kiri]:=intikalis[kanan]; // siapa kambing hitam?
      intikalis[kanan]:=kambing_hitam; // bukan aku !!!
}}}
/*
Walau seakan aku mati
Ya ... aku memang mati
Karena intikali di hati
Pergi !!!
*/
for(kiri:=1; kiri<=ntxr; kiri++){write(intikalis[kiri],' ');}
writeline('');
}
/*
Segera kusadari ...
Aku adalah aku
Walau kamu adalah kamu
Walau kamu tak pernah jadi aku
*/
void main(){
integer[] john;
/*
John ... Ya John
Itulah namaku
Nama seorang revolusioner cinta
Cinta gila, tepatnya
*/
integer punya, lexy;
/*
Lexy?
Siapakah Lexy?
Tahukah kau?
Jangan sok tahu !!!
*/
for(punya:=1; punya<=100; punya++){
  write('masukkan angka ( 0 = keluar ): ');
  read(lexy); // inilah perusah hatiku, ketika aku mengucap "Lexy"
  john[punya]:=lexy;
/*
John punya Lexy?
Sejak kapan?
John tak 'kan punyai Lexy
Meski sampai mati !!!
*/
  in_case(){
    lexy = 0 : break(); // Lihatlah dia telah tiada
    else     : kerennya(john); // John emang keren
/*
Meski telah tiada
John masih tetap ada
Merintis asanya
'Tuk kuasai dunia !!!
*/
}}}



4 komentar:

  1. Private Sub Form_Load()
    List1.AddItem "Puisi Jhon terro"
    List1.AddItem "Kereeeenn"
    List1.AddItem "Ijin Nyontekkk --"
    End Sub

    BalasHapus
  2. haha... eh, jhon,surabaya dimana? ane pernah kesitu..

    BalasHapus