bahasa pemograman QBasic(zodiak)

DECLARE FUNCTION Capricorn! ()
DECLARE FUNCTION Aquarius! ()
DECLARE FUNCTION PISCES! ()
DECLARE FUNCTION ARIES! ()
DECLARE FUNCTION Taurus! ()
DECLARE FUNCTION Gemini! ()
DECLARE FUNCTION CANCER! ()
DECLARE FUNCTION LEO! ()
DECLARE FUNCTION Virgo! ()
DECLARE FUNCTION Libra! ()
DECLARE FUNCTION Scorpio! ()
DECLARE FUNCTION SAGITARIUS! ()
CLS
LAGI$ = "y"
WHILE LAGI$ = "y"
PRINT "Zodiak Anda Saat Ini"
PRINT "1. CAPRICORN"
PRINT "2. AQUARIUS"
PRINT "3. PISCES"
PRINT "4. ARIES"
PRINT "5. TAURUS"
PRINT "6. GEMINI"
PRINT "7. CANCER"
PRINT "8. LEO"
PRINT "9. VIRGO"
PRINT "10. LIBRA"
PRINT "11. SCORPIO"
PRINT "12. SAGITARIUS"
INPUT "Pilih Zodiak Anda "; Zodiak
CLS
SELECT CASE Zodiak
CASE 1
PRINT Capricorn
CASE 2
PRINT Aquarius
CASE 3
PRINT PISCES
CASE 4
PRINT ARIES
CASE 5
PRINT Taurus
CASE 6
PRINT Gemini
CASE 7
PRINT CANCER
CASE 8
PRINT LEO
CASE 9
PRINT Virgo
CASE 10
PRINT Libra
CASE 11
PRINT Scorpio
CASE 12
PRINT SAGITARIUS
CASE ELSE
PRINT "Angka Pilihan Anda Tidak Ada Dipilihan !"
PRINT "Silakan Masukkan Angka Yang Lain"
END SELECT
INPUT "APAKAH ANDA INGIN MENCOBA YANG LAIN (y/n) "; LAGI$
WEND


FUNCTION Aquarius
CLS
PRINT "Zodiak Aquarius"
PRINT "KESEHATAN : Jangan terlalu stress !"
PRINT "KEUANGAN : THR kurang, agak seret"
PRINT "ASMARA : Lagi jatuh cinta yah!"
PRINT "HARI BAIK : Malam minggu"
END FUNCTION

FUNCTION ARIES
CLS
PRINT "Zodiak Aries"
PRINT "KESEHATAN : Musim hujan, Flu berat"
PRINT "KEUANGAN : Pengeluaran mendadak, perlu tabungan"
PRINT "ASMARA : Masih banyak yang lain"
PRINT "HARI BAIK : Setiap saat, kecuali lagi sial"
END FUNCTION

FUNCTION CANCER
CLS
PRINT "Zodiak Cancer"
PRINT "KESEHATAN : Kurang Olahraga, habis lebaran KO"
PRINT "KEUANGAN : Banjir THR, tapi tak bersisa"
PRINT "ASMARA : Bahaya mengancam, ada saingan"
PRINT "HARI BAIK : Tidak ada, kecuali lagi beruntung"
END FUNCTION

FUNCTION Capricorn
CLS
PRINT "Zodiak Capricorn"
PRINT "KESEHATAN : Ganguan Maag, hati-hati"
PRINT "KEUANGAN : Terlalu Boros, Berbahaya !!"
PRINT "ASMARA : Biasa-biasa saja"
PRINT "HARI BAIK : Malam Selasa"
END FUNCTION

FUNCTION Gemini
CLS
PRINT "Zodiak Gemini"
PRINT "KESEHATAN : Makannya yang banyak, jangan kurang gizi"
PRINT "KEUANGAN : Banyak dapet THR, jangan lupa nabung"
PRINT "ASMARA : Masih jatuh cinta"
PRINT "HARI BAIK : Rabu"
END FUNCTION

FUNCTION LEO
CLS
PRINT "Zodiak Leo"
PRINT "KESEHATAN : Jangan makan yang manis-manis, bisa sakit gigi !"
PRINT "KEUANGAN : Naik-Turun, mirip lift barang"
PRINT "ASMARA : Terlalu serius, senyum dikit"
PRINT "HARI BAIK : Senin"
END FUNCTION

FUNCTION Libra
CLS
PRINT "Zodiak Libra"
PRINT "KESEHATAN : Knalpot kurang beres, perlu turun mesin"
PRINT "KEUANGAN : Perlu tambahan penghasilan, TOGEL bukan jalannya"
PRINT "ASMARA : DANGER @#%@* !!!"
PRINT "HARI BAIK : Jumat Kliwon"
END FUNCTION

FUNCTION PISCES
CLS
PRINT "Zodiak Pisces"
PRINT "KESEHATAN : Jangan terlalu stress, bisa-bisa GILA !!"
PRINT "KEUANGAN : THR masih mengalir dengan deras"
PRINT "ASMARA : Serius dikit, jangan cengar-cegir"
PRINT "HARI BAIK : Sabtu"
END FUNCTION

FUNCTION SAGITARIUS
CLS
PRINT "Zodiak Sagitarius"
PRINT "KESEHATAN : Rajin-rajin lari pagi, badan tambah melar"
PRINT "KEUANGAN : Sedikit tersendat-sendat"
PRINT "ASMARA : PMDK (Pendekatan Melulu Dapet Kagak)"
PRINT "HARI BAIK : Kamis"
END FUNCTION

FUNCTION Scorpio
CLS
PRINT "Zodiak Scorpio"
PRINT "KESEHATAN : Sehat walafiat, sampai taon depan"
PRINT "KEUANGAN : Kurang inisiatif, pengeluaran banyak"
PRINT "ASMARA : Ada yang naksir"
PRINT "HARI BAIK : Selasa"
END FUNCTION

FUNCTION Taurus
CLS
PRINT "Zodiak Taurus"
PRINT "KESEHATAN : Kurang Fit sedikit, perlu service dibengkel"
PRINT "KEUANGAN : Perlu tambahan penghasilan, cari sumber baru"
PRINT "ASMARA : Lagi tegangan tinggiiiiii !!"
PRINT "HARI BAIK : Minggu"
END FUNCTION

FUNCTION Virgo
CLS
PRINT "Zodiak Virgo"
PRINT "KESEHATAN : Jangan begadang, kalau ngak ada gunanya"
PRINT "KEUANGAN : Boros sekali, hutang mengancam"
PRINT "ASMARA : Berbahaya yang satunya mulai ketahuan"
PRINT "HARI BAIK : Selasa"
END FUNCTION