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 !!!

*/

}}}