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 |*|"