Basic pembuatan Zodiak

CLS
DIM nmd AS STRING
DIM nmb AS STRING
DIM tl AS INTEGER
DIM bl AS INTEGER
DIM zod AS STRING
DIM ket AS STRING
DIM logo AS STRING
DIM an AS STRING
DIM x AS STRING
DIM y AS STRING
DIM z AS STRING

PRINT "|*|Welcome to Bintang Alakaian|*|"
PRINT "================================="
INPUT "Nama Depan Anda= ", nmd
INPUT "Nama Belakang Anda= ", nmb
INPUT "Tanggal Lahir= ", tl
INPUT "Bulan Lahir= ", bl
PRINT "================================="
PRINT ""


IF tl <= 20 AND bl = 1 OR tl >= 22 AND bl = 12 THEN
zod = "Capricornus"
an = "(22 Desember - 20 Januari)"
logo = "Kambing"
ket = "Kalau sdg jenuh dgn aktivitas sehari-hari seperti belajar & les,"
x = "ada baiknya kamu mulai mencoba sesuatu yg baru agar kadar stres bisa turun."
y = "Salah satu caranya, jalan pagi & menikmati udara segar."
z = "Dijamin pikiran akan segar & rileks kembali."

ELSEIF tl <= 19 AND bl = 2 OR tl >= 21 AND bl = 1 THEN
zod = "Aquarius"
an = "(21 januari - 19 Februari)"
logo = "Air"
ket = "Barang-barang berbentuk lucu di pusat perbelanjaan sering menggodamu"
x = "untuk membelinya. Padahal belum tentu kamu membutuhkannya. Kalau sudah"
y = "tahu kelemahan kamu itu, lebih baik bawa uang secukupnya ketika jalan-"
z = "jalan kepusat perbelanjaan, agar keinginan kamu terkendali."

ELSEIF tl <= 20 AND bl = 3 OR tl >= 20 AND bl = 2 THEN
zod = "Pisces"
an = "(20 Februari - 20 Maret)"
logo = "Ikan"
ket = "Dikalahkan oleh teman sendiri dalam prestasi, memeang menyedihkan."
x = "Meski begitu kamu harus tetap berbesar hati mengakui bahwa teman kamu"
y = "memang lebih pintar, dan berusaha lebih keras lagi dalam belajar. Dengan"
z = "mmbri ucapan slamat ats prestasi teman, tandanya km bs bersikap sportif."

ELSEIF tl <= 19 AND bl = 4 OR tl >= 21 AND bl = 3 THEN
zod = "Aries"
an = "(21 Maret - 19 April)"
logo = "Domba"
ket = "Wah, teman dekatmu skrg sdg gundah krn ada masalah yg blm terselesaikan."
x = "Jadi, sebaiknya tunda dulu kalau ingin mengajak dia membahas sesuatu."
y = "memang sih, rasanya ingin segera mengungkapkan apa yg menjadi ganjalan di hati,"
z = "tapi kamu juga harus memikirkan perasaan dia sekarang, ya?"

ELSEIF tl <= 20 AND bl = 5 OR tl >= 20 AND bl = 4 THEN
zod = "Taurus"
an = "(20 April - 20 Mei)"
logo = "Banteng"
ket = "Hati-hati lho, rasa kagum terhadap teman yang mempunyai banyak prestasi"
x = "terkadang sampai ke taraf iri hati. Jangan biarkan perasaan seperti itu"
y = "berkembang dalam hatimu, krn bisa membebani pikiranmu."
z = "Boleh deh bersaing meraih prestasi dengan teman, tapi harus scr sehat."

ELSEIF tl <= 21 AND bl = 6 OR tl >= 21 AND bl = 5 THEN
zod = "Gemini"
an = "(21 Mei - 21 Juni)"
logo = "Kembar"
ket = "Dicap kekanak-kanakan memang tidak menyenangkan. Tp cap itu akan terus"
x = "melekat padamu selama kamu masih suka mgambek seperti anak kecil."
y = "Sebaiknya km mulai belajar menahan emosi ktka rasa kesal dtng. Alihkan"
z = "pkiran pd hal2 yg menyenangkan, tarik nafas dlm2,mk rasa kesal kan hilang."

ELSEIF tl <= 22 AND bl = 7 OR tl >= 22 AND bl = 6 THEN
zod = "Cancer"
an = "(22 Juni - 22 Juli)"
logo = "Kepiting"
ket = "-"
x = "-"
y = "-"
z = "-"

ELSEIF tl <= 23 AND bl = 8 OR tl >= 23 AND bl = 7 THEN
zod = "Leo"
an = "(23 Juli - 23 Agustus)"
logo = "Singa"
ket = "-"
x = "-"
y = "-"
z = "-"

ELSEIF tl <= 22 AND bl = 9 OR tl >= 24 AND bl = 8 THEN
zod = "Virgo"
an = "(24 Agustus - 22 September)"
logo = "Dewa"
ket = "-"
x = "-"
y = "-"
z = "-"

ELSEIF tl <= 23 AND bl = 10 OR tl >= 23 AND bl = 9 THEN
zod = "Libra"
an = "(23 September - 23 Oktober)"
logo = "Timbangan"
ket = "-"
x = "-"
y = "-"
z = "-"

ELSEIF tl <= 21 AND bl = 11 OR tl >= 24 AND bl = 10 THEN
zod = "Scorpio"
an = "(24 Oktober - 21 November)"
logo = "Kalajengking"
ket = "-"
x = "-"
y = "-"
z = "-"

ELSEIF tl <= 21 AND bl = 12 OR tl >= 22 AND bl = 11 THEN
zod = "Sagitarius"
an = "(22 November - 21 Desember)"
logo = "Pemanah"
ket = "-"
x = "-"
y = "-"
z = "-"

END IF

PRINT "-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"
PRINT "Selamat Datang, "; nmd
PRINT "Bintang Anda adalah "; zod; an
PRINT "Logo Bintangmu adalah "; logo
PRINT "-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"
PRINT ""
PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
PRINT ; nmd; nmb; " dengan tanggal lahir"; tl; "dan bulan lahir"; bl; "menurut 'Ramalan Alakaian' adalah "; ket
PRINT ; x
PRINT ; y
PRINT ; z
PRINT ""
PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"

PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "Semua kita kembalikan kepada Allah SWT, jangan terlalu percaya yach!!!"
PRINT ""
PRINT "Bintangmu by Riyan Lesmana |*| ALAKAIAN |*|" ...baca selengkapnya

Cerita Cinta

Apakah Cinta itu?, mencari Cinta Sejati

Alkisah di suatu pulau kecil tinggallah berbagai benda abstrak asda Cinta, Kesedihan, Kegembiraan, Kekayaan, Kecantikan, dan sebagainya. Mereka hidup berdampingan dengan baik. Namun suatu ketika, datang badai menghempas pulau kecil itu dan air laut tiba-tiba naik dan akan menenggelamkan pulau itu.

Semua penghuni pulau cepat-cepat berusaha menyelamatkan diri. Cinta sangat kebingungan sebab ia tidak dapat berenenang dan tidak mempunyai perahu. Ia berdiri di tepi pantai mencoba mencari pertolongan. Sementara itu air semakin naik membasahi kakinya.

Tak lama Cinta melihat kekayaan sedang mengayuh perahu, Kekayaan ! Kekayaan ! Tolong Aku!, teriak Cinta. Aduh! Maaf, Cinta!, kata kekayaan. Aku tak dapat membawamu serta, nanti perahu ini tenggelam. Lagipula tak ada tempat lagi bagimu di perahu ini. Lalu kekayaan cepat-cepat pergi mengayuh perahunya. Cinta sedih sekali,namun kemudian dilihatnya kegembiraan lewat dengan perahunya.

Kegembiraan! Tolong aku !, teriak Cinta. Namun kegembiraan terlalu gembira karena ia menemukan perahu sehingga ia tak dapat mendengar teriakan Cinta. Air semakin tinggi membasahi Cinta sampai ke pinggang dan Cinta semakin panik.

Tak lama lewatlah kecantikan, Kecantikan! Bawalah aku bersamamu!, teriak Cinta. Wah, Cinta kamu basah dan kotor. Aku tak bisa membawamu pergi. Nanti kau mengotori perahuku yang indah ini, sahut kecantikan. Cinta sedih sekali mendengarnya, Ia lalu mulai menangis terisak-isak. Saat itulah lewat kesedihan, Oh Kesedihan, bawalah aku bersamamu!, kata Cinta. Maaf Cinta, aku sedang sedih dan aku ingin sendirian saja... kata kesedihan sambil terus mengayuh perahunya. Cinta putus asa.

Ia merasakan air makin naik dan akan menenggelamkannya. Pada saat krisis itulah tiba-tiba terdengar suara, Cinta! Mari cepat naik ke perahuku! Cinta menoleh ke arah suara itu dan cepat-cepat naik ke perahu itu, tepat sebelum air menenggelamkannya. Di pulau terdekat, Cinta turun dan perahu itu langsung pergi lagi. Pada saat itu barulah Cinta sadar bahwa ia sama sekali tidak mengetahui siapa yang menolongnya. Cinta segera bertanya pada penduduk pulau itu. Yang tadi adalah WAKTU, kata penduduk itu tapi, mengapa ia menyelamatkan aku? Aku tidak mengenalinya. Bahkan teman-temanku yang mengenalku pun enggan menolong tanya Cinta heran sebab HANYA WAKTULAH YANG TAHU BERAPA NILAI SESINGIHNYA DARI CINTA ITU. ...baca selengkapnya