Living Life

Iklan Indomie SBY

Andi — Thu, 28 May 2009 09:28:29 +0000

Iklan Indomie SBY yang dinyanyikan mike Idol, selamat menimati :

Tips Berhemat : Lihatlah Harga Rumah

Andi — Tue, 24 Feb 2009 07:16:53 +0000

Nih sebuah tips bagi yang penghasilannya masih pas-pasan, khusus cowok.
Ketika anda jalan-jalan ke mall biar ga belanja banyak-banyak, mampirlah ke stand developer rumah. Ambil brosurnya,tempel di tempat yang mudah dilihat, highlight harganya. Hihihihihi..

Kesimpulan dan Saran

Lihatlah harga rumah tuk berhemat

Olivia – The Rose

Andi — Sat, 22 Nov 2008 03:29:52 +0000

Some say love it is a river
that drowns the tender reed
Some say love it is a razer
that leaves your soul to blead

Some say love it is a hunger
an endless aching need
I say love it is a flower
and you it’s only seed

It’s the heart afraid of breaking
that never learns to dance
It’s the dream afraid of wakingthat never takes the chance
It’s the one who won’t be taken
who cannot seem to give
and the soul afraid of dyingthat never learns to live

When the night has been too lonely
and the road has been too long
and you think that love is only
for the lucky and the strong
Just remember in the winterfar beneath the bitter snows
lies the seed
that with the sun’s love
in the spring
becomes the rose

RPG ILE Sort An Array

Andi — Wed, 05 Nov 2008 13:23:51 +0000

This is an example code for sorting an array. I just try to answer a forwarded email from Najib.
0001.00 FQPRINT O F 132 PRINTER 0002.00 DpArr DS Inz 0003.00 DArr Dim(5) 0004.00 D X 2 0 Overlay(Arr) 0005.00 D Abin 8 0 Overlay(Arr:*NEXT) 0006.00 D Abelb 8 2 Overlay(Arr:*NEXT) 0007.00 D Aautp 2 0 Overlay(Arr:*NEXT) 0008.00 D Aarjc 4A Overlay(Arr:*NEXT) 0009.00 C Eval X(1)=1 0010.00 C Eval Abin(1)=524325 0011.00 C Eval Abelb(1)=41028 0012.00 C Eval Aautp(1)=1 0013.00 C Eval Aarjc(1)='' 0014.00 C Eval X(2)=2 0015.00 C Eval Abin(2)=413719 0016.00 C Eval Abelb(2)=300000 0017.00 C Eval Aautp(2)=2 0018.00 C Eval Aarjc(2)='' 0019.00 C Eval X(3)=3 0020.00 C Eval Abin(3)=524325 0021.00 C Eval Abelb(3)=9014 0022.00 C Eval Aautp(3)=2 0023.00 C Eval Aarjc(3)='F129' 0024.00 C Eval X(4)=4 0025.00 C Eval Abin(4)=413718 0026.00 C Eval Abelb(4)=5008 0027.00 C Eval Aautp(4)=2 0028.00 C Eval Aarjc(4)='F129' 0029.00 C Eval X(5)=5 0030.00 C Eval Abin(5)=413718 0031.00 C Eval Abelb(5)=6009 0032.00 C Eval Aautp(5)=4 0033.00 C Eval Aarjc(5)='F115' 0034.00 C Movel *BLANK @K 20 0035.00 C Eval @K='DEFAULT' 0036.00 C Exsr Prt 0037.00 C Eval @K='SORT BY ABIN' 0038.00 C Sorta Abin 0039.00 C Exsr Prt 0040.00 C Eval @K='SORT BY AARJC' 0041.00 C Sorta Aarjc 0042.00 C Exsr Prt 0043.00 C Seton LR 0044.00 C Return 0045.00 C Prt Begsr 0046.00 C *Like Define X @X 0047.00 C *Like Define Abin @bin 0048.00 C *Like Define Abelb @belb 0049.00 C *Like Define Aautp @autp 0050.00 C *Like Define Aarjc @arjc 0051.00 C Except HEAD 0052.00 C Z-ADD 1 I 3 0 0053.00 C I Dowle 5 0054.00 C Eval @X=X(I) 0055.00 C Eval @bin=Abin(I) 0056.00 C Eval @belb=Abelb(I) 0057.00 C Eval @autp=Aautp(I) 0058.00 C Eval @arjc=Aarjc(I) 0059.00 C Except DETL 0060.00 C Eval I=I+1 0061.00 C Enddo 0062.00 C Endsr 0063.00 OQPRINT E HEAD 0064.00 O '*********************** 0065.00 O @K 20 0066.00 O E DETL 0067.00 O @X 5 0068.00 O @bin 20 0069.00 O @belb 35 0070.00 O @autp 40 0071.00 O @arjc 50 ****************** End of data ****************************************

Output
DEFAULT ****** 01 00524325 04102800 01 02 00413719 30000000 02 03 00524325 00901400 02 F129 04 00413718 00500800 02 F129 05 00413718 00600900 04 F115 SORT BY ABIN ****** 05 00413718 00600900 04 F115 04 00413718 00500800 02 F129 02 00413719 30000000 02 01 00524325 04102800 01 03 00524325 00901400 02 F129 SORT BY AARJC ****** 02 00413719 30000000 02 01 00524325 04102800 01 05 00413718 00600900 04 F115 04 00413718 00500800 02 F129 03 00524325 00901400 02 F129

Playing DotA (Again)

Andi — Mon, 03 Nov 2008 03:09:17 +0000

November 02..
Pagi yang cerah dikos..(Padahal ga liat matahari,masih merem,smsan aja merem)
Masih pegel-pegel..
Habis main ke Dufan (Ga dipublish,bisa jadi blunder buatnya)..
Suwun buat yang nraktir

“Andi,lu ikutan ga?”,,
Wadah..aku harus ikut bertarung..padahal dah lama ga main..

Singkat kata,,byur byur..mandi selesai 3 menit,,5 menit kemudian dah siap..
Cabut bertiga ke Vega Game Center bareng Adi Multipolar dan Cahya Niaga..
Disana dah ada teman lama dan baru..
Ada Coer (Mantan penghuni kamarku, dah beli rumah dewe),Arie ma satu lagi lupa semua dari Lippo
Bayar untuk 3 jam, login, coba connect ke IIX tapi gagal,akhirnya main Local..

Babak pertama menggunakan Balanar,,
Jadi korban,berhubung nafsu tinggi..

Berhubung babak awal aku kalah, jadi ga usah cerita ya..:P

Babak kedua kedatangan 2 tamu lagi anak anak lippo..
Babak kedua, ketiga dan ke empat menang,,
Ternyata kesaktianku dah keluar..

Terbukti ga pernah membunuh,,
Keluarin ulti,terus kabur klo sempet klo ga mati deh
Berhubung Game Center lagi sepi,bisa teriak-teriak
Pukul 14.00 Usai..

Upss,,susah juga ya ngetik,,apalagi jam kerja gini..
Ayuk balik kerja,,
kebagian Loan buat What If Analysis untuk pemberian kredit,,
Ngitung bunga lagi,,
Lumayan buat cita cita mulia,,
Jadi rentenir

Hello world!

Andi — Thu, 30 Oct 2008 03:23:58 +0000

Setelah sekian lama nganggurin domain,,
Today,,i’m starting GoBlog..