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

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


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

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