Congratulation Super Junior!!

Yeay!!! Super Junior has won 4 awards on a prestigious award event called Golden Disk Award. MSN Japan, Bonsang Award, Popularity Award and of course the best Award, Disk Daesang Award. Make them to be the the Artist who have the most awards since the event created with 13 awards and make them win Popularity Award for 3 consecutive years. Amazing right? As we know, Golden Disk Award is the most awarding event in South Korea just like Golden Globe in America.

These victories feel more special because this is the last GDA before our great leader, Leeteuk , enlist to the army in this year. And of course because ELF over the world, make me salute to them, whom make Super Junior win the awards. Why i feel salute to them? Because they're united, help each others to give the boys this victory. So all i can say is SUPER JUNIOR DAEBAK!! ELF DAEBAK!!

At first, maybe we feel doubt with Disk Daesang Award, yeah because as we know on 2010 we've lost that award with so many controversial things following, made the boys feel sorry to ELF, even though that wasn't their fault, and the same time made the ELF feel angry to the GDA. I'm not making fanwar, just tell the truth. But finally we've  take it all back! So I think it's not important to remember about that sad moment.
So enjoy our victories ELF! These awards definitely belong to Super Junior and they deserves it all!

SUPER JUNIOR DAEBAK! ELF DAEBAK!

cr : as tagged and from their official twitter + blog

Sea Games 2011

It's been 2 months since Sea Games 2011 successfully held in Indonesia. And Indonesia is the winner because Indonesia had more golds than the others. Proud? Of course, since I'm Indonesian.

Well, I just want to share the moment when I watched some of the games. I have watched football on the semifinal and Badminton on the Final. There's so much story and experiences i get.

Like another Indonesian, me and my friend have the impact from that event, the biggest sports tournament in the Southeast Asia. Jadi gue ama temen2 gue ngerencanain untuk nonton, ya at least one of the game. Unfortunatelly, dari 7 orang, cuman gue + 2 orang temen gue doang yang bisa nonton. Dan tadinya itupun belom pasti karna ada satu hal yang harus dipastikan terlebih dahulu. But lucky us!! Ternyata pas hari H semua bisa terselesaikan.

Sesuai rencana, gue ama temen gue, Fanny nitipin motor di rumah Maya. Yah niatnya supaya malem pulangnya gampang gitu. Sampe di rumah may jam 9 dan langsung berangkat lah kita ke shelter busway yang di Ps. Rebo. Karna kita semua jarang naik busway, yah jadi lah kita salah turun shelter, tapi akhirnya semua bisa di handle dengan baik. Nyampe di GBK jam 12 siang, turun dari shelter dan waktu jalan di jembatan penyeberangan banyak banget yang jualan pernak-pernik Indonesia, mulai dari baju ampe sticker. Gue bertiga akhirnya beli deh itu syal sama stickernya.

And, you know, there were so crowded around GBK. Really!! It was just 12 PM, but so many people had come to GBK. Because it was a mid day, we were had a lunch before hunting the ticket. But, we're almost lost the ticket because the locket had opened since morning and there were so much people who want buy tickets which same categories with us. But once again lucky us! We can got the ticket as cheap as we want. So, we have a Final Badminton's ticket in our hand and we're decided to watch the Semifinal of Football too since, you know, it's not complete if we're come to GBK without watch the football.

But, because it was our first time watch the football game live from GBK. So we don't know that on that day, we can't buy ticket anymore and just changing the voucher which had bought before. That's why we have walking around GBK 3 times. 3 times!! Can't you imagine that? And, my mistake too because I used sandal than shoes at that time, so I hurting my foot. Really it was a stupid thing when you came to watch the sport game like that using sandal.

Sadar kalo udah ga ada lagi yang jualan tiket, kami bertiga pun mulai mencari calo. Demi apapun ya, gue sebenernya tipe orang yang menghujat dunia percaloan macam gitu. Begitu juga Maya. Tapi saking pengennya kita bertiga nonton itu pertandingan bola, jadilah saat itu gue menjilat ludah sendiri ibarat kata. Sebenernya sih setelah muterin GBK 3 kali itu kita sempet balik lagi ke Istora soalnya petugasnya bilang kalo Istora jualan tiket. Sampai Istora muterin lagi lah itu Istora. Tetep engga ada dan akhirnya kita nyari tempat untuk sholat. Setelah sholat balik lagi deh kita itu ke GBK kembali muterin GBK, awalnya dapet mas2 calo nawarin kategori 3 (belakang gawang) dengan harga 80rb. Nolak lah kita secara harga aslinya 50 rb. Setelah jalan lagi akhirnya dapet deh kita tiket kategori 3 dengan harga 200rb untuk 3 tiket. Saking takut diboonginnya, kita ampe minta tu nomer hape yang jualan, soalnya takut banget kalo itu tiket palsu. Udah dapet tiket bola, gue bertiga pun langsung ngacir ke Istora soalnya itu udah jam 2 sedangkan final badminton sendiri di mulai jam 2. Sampai Istora dan masuk, sayang banget kita dapet spot yang kurang bagus, soalnya pertandingan sendiri ada di court 1 sedangkan tribun tempat kita duduk ada di pojokkan banget. Pertandingan pertama All Indonesian Final Ganda Putri. Ya meskipun udah pasti Indonesia dapet 1 gelar tapi kita bertiga tetep dah tuh dukung teriak-teriakan.

Kita bertiga nonton ampe jam 6, pas ganda campuran selesai, walaupun pertandingan terakhir yaitu tunggal putra dimana Simon yang main belom mulai. Harus banget keluar jam 6 soalnya harus makan dulu sebelum kck off bola jam setengah 8. Yah setidaknya gue sempet deh liat Lilyana Natsir main secara gue ngefans ama dia gitu. Oiya satu cerita waktu pertandingan di Ganda Canpuran ini. Ganda campuran ini kan mempertemukan Indonesia dengan Thailand. Gue mau bilang salut dan angkat jempol atas sportivitas suporter Thailand yang notabene kalah jumlah dengan Suporter Indonesia. Kenapa? Karena mereka tidak hanya mendukung pemain Thailand sendiri ketika bola masuk tapi juga pemain Indonesia. Inilah mengapa saat pertandingan bukan suara sorakan mencemooh tapi lebih sorakan yang saling bergembira bersama.

Back to the story. So we were going out from Istora and then went to GBK. We're looking for dinner which can make us full but at the same time cheap and could we eat as faster as we can, because we were in hurry. So two of us, me and Fanny went to bought Pop Mie and of course some water because we couldn't go outside when we're in Stadium. So at Seven we went to Stadium and looking for the gate. After found out the right gate, we're in trouble at that time because, you know, the Stadium had been fulled with Suporter. But once again lucky us we can come in. Thanks for the staff who let us come in to the Stadium. And TARAA!!! Really, I can find a word to describe what feeling I had at that time. The Stadium was RED! And Full! Full of the crowded, sound of horns and sound of fans singing to cheering up the National Team. I feel So proud because I can see live. When the National Anthem is played and one of the Stadium singing together, I feel touch, really want to cry too, and proud of course. Because Sports are one of the thing that make my nationality forgetting about any problems in this country. We are ONE!!!

Indonesia won the game and go through semifinal. Yeah! And we're in hurry to go home because the Busway will be stop operating at 11. But because we're too tired, we were went the wrong shelter. And because it was 11 so we thought to take a taxi to go home.

That was my story about Sea Games, Actually there are so much interesting story that I couldn't tell you here. But At least I just want to say that I'm so proud with Indonesia! We are IndONEsia!!!

Program Multilisting Sederhana

Berikut adalah contoh program multilisting sederhana :

PROGRAM MULTI_LIST;
USES CRT;
TYPE DBIO = RECORD
NPM : ARRAY [1..10] OF STRING [8];
NIRM : ARRAY [1..10] OF STRING [8];
NAMA : ARRAY [1..10] OF STRING [20];
ALAMAT : ARRAY [1..10] OF STRING [15];
END;
TYPE DNIRM = RECORD
NIRM2 : ARRAY [1..10] OF STRING [8];
TGM : ARRAY [1..10] OF STRING [10];
TGA : ARRAY [1..10] OF STRING [10];
END;

VAR FBIO : ARRAY [1..10] OF DBIO;
FNIRM : ARRAY [1..10] OF DNIRM;
FILEBIO : FILE OF DBIO;
FILENIRM : FILE OF DNIRM;
FILES : TEXT;
FILES2 : TEXT;
PIL : CHAR;
N : INTEGER;

LABEL RETURN;

PROCEDURE INPUT_DATA1;
VAR I,J : INTEGER;
BEGIN
CLRSCR;
ASSIGN(FILES,'F_BIO.TXT');
REWRITE(FILES);
WRITELN(' FILE BIODATA');WRITELN;WRITELN(FILES,' FILE BIODATA');WRITELN(FILES);
WRITE(' BANYAKNYA DATA : ');READLN(N);WRITELN(FILES,' BANYAKNYA DATA : ',N);
FOR I := 1 TO N DO
BEGIN
WITH FBIO[I] DO
BEGIN
WRITELN(' ');WRITELN(FILES);
WRITELN(' DATA KE-',I);WRITELN(FILES,' DATA KE-',I);
WRITE(' NPM : ');READLN(NPM[I]);WRITELN(FILES,' NPM : ',NPM[I]);
WRITE(' NIRM : ');READLN(NIRM[I]);WRITELN(FILES,' NIRM : ',NIRM[I]);
WRITE(' NAMA : ');READLN(NAMA[I]);WRITELN(FILES,' NAMA : ',NAMA[I]);
WRITE(' ALAMAT : ');READLN(ALAMAT[I]);WRITELN(FILES,' ALAMAT : ',ALAMAT[I]);
END;
END;
CLOSE(FILES);
END;

PROCEDURE VIEW_BIO;
VAR I,J : INTEGER;
BEGIN
CLRSCR;
FOR I := 1 TO N DO
BEGIN
FOR J := 1 TO N DO
BEGIN
WITH FBIO[I] DO
BEGIN
WITH FNIRM[J] DO
BEGIN
IF NIRM[I] = NIRM[J] THEN
BEGIN
END;
END;
GOTOXY(22,2);WRITELN('*****FILE BIODATA*****');
GOTOXY(3,5);WRITELN('-------------------------------------------------------------------');
GOTOXY(3,6);WRITELN('| NPM | NIRM | NAMA | ALAMAT |');
GOTOXY(3,7);WRITELN('-------------------------------------------------------------------');
GOTOXY(3,7+I);WRITE('|');
GOTOXY(4,7+I);WRITE(NPM[I]);
GOTOXY(14,7+I);WRITE('|');
GOTOXY(16,7+I);WRITE(NIRM[I]);
GOTOXY(22,7+I);WRITE('|');
GOTOXY(24,7+I);WRITE(NAMA[I]);
GOTOXY(38,7+I);WRITE('|');
GOTOXY(40,7+I);WRITE(ALAMAT[I]);
GOTOXY(62,7+I);WRITE('|');
END;
END;
END;
GOTOXY(3,8+I);WRITELN('-----------------------------------------------------------------');
READLN;
END;

PROCEDURE INPUT_DATA2;
VAR I,J : INTEGER;
BEGIN
CLRSCR;
ASSIGN(FILES2,'F_NIRM.TXT');
REWRITE(FILES2);
WRITELN(' FILE NIRM');WRITELN(FILES2,' FILE NIRM');WRITELN(FILES2);
WRITELN(' BANYAKNYA DATA : ',N);WRITELN(FILES2,' BANYAKNYA DATA : ',N);
FOR J:= 1 TO N DO
BEGIN
WITH FNIRM[J] DO
BEGIN
WRITELN('');WRITELN(FILES2);
WRITELN(' DATA KE-',J);WRITELN(FILES2,' DATA KE-',J);
WRITE(' NIRM : ');READLN(NIRM2[J]);WRITELN(FILES2,' NIRM : ',NIRM2[J]);
WRITE(' TANGGAL MULAI : ');READLN(TGM[J]);WRITELN(FILES2,' TANGGAL MULAI : ',TGM[J]);
WRITE(' TANGGAL HABIS : ');READLN(TGA[J]);WRITELN(FILES2,' TANGGAL HABIS : ',TGA[J]);
END;
END;
CLOSE(FILES2);
END;

PROCEDURE VIEW_NIRM1;
VAR I,J : INTEGER;
BEGIN
CLRSCR;
FOR I := 1 TO N DO
BEGIN
FOR J := 1 TO N DO
BEGIN
WITH FBIO[I] DO
BEGIN
WITH FNIRM[J] DO
BEGIN
IF NIRM[I] = NIRM[J] THEN
BEGIN
GOTOXY(11,5+I);WRITE(TGM[I]);
GOTOXY(24,5+I);WRITE(TGA[I]);
END ELSE
BEGIN
END;
END;
GOTOXY(15,2);WRITELN('*****FILE NIRM*****');
GOTOXY(3,5);WRITELN('----------------------------------------------------------');
GOTOXY(3,6);WRITELN('| NIRM | TANGGAL MASUK | TANGGAL AKHIR |');
GOTOXY(3,7);WRITELN('----------------------------------------------------------');
GOTOXY(3,7+I);WRITE('|');
GOTOXY(4,7+I);WRITE(NIRM[I]);
GOTOXY(10,7+I);WRITE('|');
GOTOXY(22,7+I);WRITE('|');
GOTOXY(34,7+I);WRITE('|');
END;
END;
END;
GOTOXY(3,8+I);WRITELN('-----------------------------------------------------------------');
READLN;
END;

PROCEDURE LINES;
VAR I, J: INTEGER;
BEGIN
FOR I := 1 TO 80 DO
WRITE('-');
END;

PROCEDURE VIEW_DATA;
VAR I,J : INTEGER;
BEGIN
CLRSCR;
FOR I := 1 TO N DO
BEGIN
FOR J := 1 TO N DO
BEGIN
WITH FBIO[I] DO
BEGIN
WITH FNIRM[J] DO
BEGIN
IF NIRM[I] = NIRM2[J] THEN
BEGIN
GOTOXY (55,6+I);WRITE(TGM[J]);
GOTOXY (68,6+I);WRITE(TGA[J]);
END ELSE
BEGIN
GOTOXY (52,6+I);WRITE('TIDAK ADA TANGGAL');
END;
END;
GOTOXY (31,2);WRITELN('DATA MAHASISWA');
GOTOXY (1,4);LINES;
GOTOXY (2,5);WRITELN('| NO | NPM | NIRM | NAMA | ALAMAT | TGL MASUK | TGL HABIS | ');
GOTOXY (1,6);LINES;
GOTOXY (2,6+I);WRITE(I:2);
GOTOXY (7,6+I);WRITE(NPM[I]);
GOTOXY (17,6+I);WRITE(NIRM[I]);
GOTOXY (27,6+I);WRITE(NAMA[I]);
GOTOXY (41,6+I);WRITE(ALAMAT[I]);
END;
END;
END;
GOTOXY (1,7+I);LINES;
READLN;
END;

BEGIN
REPEAT
RETURN:
CLRSCR;
GOTOXY (9,3);WRITELN('***** MENU *****');
GOTOXY (4,5);WRITELN('1. FILE BIODATA');
GOTOXY (4,6);WRITELN('2. TAMPILKAN FILE BIODATA');
GOTOXY (4,7);WRITELN('3. FILE NIRM');
GOTOXY (4,8);WRITELN('4. TAMPILKAN FILE NIRM');
GOTOXY (4,9);WRITELN('5. TAMPILKAN FILE MAHASISWA');
GOTOXY (4,10);WRITELN('6. KELUAR');
GOTOXY (4,11);WRITE('PILIHAN ANDA : ');READLN(PIL);
IF NOT (PIL IN ['1'..'6']) THEN
BEGIN
WRITELN(CHAR(7));
GOTOXY (23,13);WRITELN('PILIHAN SALAH !!!');
READLN;
GOTO RETURN;
END;
CASE PIL OF
'1' : INPUT_DATA1;
'2' : VIEW_BIO;
'3' : INPUT_DATA2;
'4' : VIEW_NIRM1;
'5' : VIEW_DATA;
END;
UNTIL PIL = '6';
END.