PROGRAM ZODIAK :
Identification Division.
Program-Id. Zodiak.
Author. Desintha.
Data Division.
Working-Storage Section.
77 Tg Pic 99.
77 Bl Pic 99.
01 Inputan.
02 Pil Pic X(1).
88 Satu Value '1'.
88 Dua Value '2'.
02 YaTidak Pic X(1).
88 Ya Value 'y', 'Y'.
88 Tidak Value 't', 'T'.
01 Output-Tanggal.
02 Tanggal2 Pic 99/99.
01 ApaSaja.
02 Anykey Pic X(1).
Screen Section.
01 Hapus.
02 Blank Screen.
01 Menu-Utama.
02 Line 6 Column 20 Value
'*********** Menu Utama ***********'
Foreground-Color 13.
02 Line 8 Column 20 Value ' 1.
Program Zodiak '
Foreground-Color 13.
02 Line 9 Column 20 Value ' 2.
Keluar '
Foreground-Color 13.
02 Line 11 Column 20 Value 'Masukkan
Pilihan Anda [1..2] : '
Foreground-Color 13.
02 Column Plus 1 Pic X To Pil
Foreground-Color 13.
Procedure Division.
Tampilkanmenuutama.
Display Hapus.
Display Menu-Utama.
Accept Menu-Utama.
If Satu Go To Intanggal.
If Dua Go To Selesai.
Intanggal.
Display Hapus.
Display '******* Input Program
Zodiak *******'.
Display " ".
Display 'Masukkan Tanggal Lahir Anda
: '.
Accept Tg.
Display 'Masukkan Bulan Lahir
Anda : '.
Accept Bl.
Display " ".
Display " ".
Display 'Ingin rubah data anda?
[Y/T] '.
Accept YaTidak.
If Ya Go To Intanggal.
If Tidak Go To Outtanggal.
Outtanggal.
Display Hapus.
Move Tg To Tanggal2.
Display '******* Output Program
Zodiak *******'.
Display " ".
Display 'Tanggal Lahir Anda : ', Tg.
Display 'Bulan Lahir Anda : ', Bl.
Display " ".
IF Tg > 21 or TG = 21
IF Bl = 3 Display 'Zodiak Anda
Adalah ARIES'.
IF Tg < 21 And Bl = 4
Display 'Zodiak Anda Adalah
ARIES'.
IF Tg > 21 or TG = 21
IF Bl = 4 Display 'Zodiak Anda
Adalah TAURUS'.
IF Tg < 21 And Bl = 5
Display 'Zodiak Anda Adalah
TAURUS'.
IF Tg > 21 or TG = 21
IF Bl = 5 Display 'Zodiak Anda
Adalah GEMINI'.
IF Tg < 21 And Bl = 6
Display 'Zodiak Anda Adalah
GEMINI'.
IF Tg > 21 or TG = 21
IF Bl = 6 Display 'Zodiak Anda
Adalah CANCER'.
IF Tg < 21 And Bl = 7
Display 'Zodiak Anda Adalah
CANCER'.
IF Tg > 21 or TG = 21
IF Bl = 7 Display 'Zodiak Anda
Adalah LEO'.
IF Tg < 21 And Bl = 8
Display 'Zodiak Anda Adalah
LEO'.
IF Tg > 21 or TG = 21
IF Bl = 8 Display 'Zodiak Anda
Adalah VIRGO'.
IF Tg < 21 And Bl = 9
Display 'Zodiak Anda Adalah
VIRGO'.
IF Tg > 21 or TG = 21
IF Bl = 9 Display 'Zodiak Anda
Adalah LIBRA'.
IF Tg < 21 And Bl = 10
Display 'Zodiak Anda Adalah
LIBRA'.
IF Tg > 21 or TG = 21
IF Bl = 10 Display 'Zodiak Anda
Adalah SCORPIO'.
IF Tg < 21 And Bl = 11
Display 'Zodiak Anda Adalah
SCORPIO'.
IF Tg > 21 or TG = 21
IF Bl = 11 Display 'Zodiak Anda
Adalah SAGITARIUS'.
IF Tg < 21 And Bl = 12
Display 'Zodiak Anda Adalah
SAGITARIUS'.
IF Tg > 21 or TG = 21
IF Bl = 12 Display 'Zodiak Anda
Adalah CAPRICON'.
IF Tg < 21 And Bl = 1
Display 'Zodiak Anda Adalah
CAPRICON'.
IF Tg > 21 or TG = 21
IF Bl = 2 Display 'Zodiak Anda
Adalah AQUARIUS'.
IF Tg < 21 And Bl = 5
Display 'AQUARIUS'.
IF Tg > 21 or TG = 21
IF Bl = 2 Display 'Zodiak Anda
Adalah TAURUS'.
IF Tg < 21 And Bl = 3
Display 'Zodiak Anda Adalah
TAURUS'.
Display " ".
Display 'Tekan tombol apa saja untuk
kembali'.
Accept Anykey.
Go To Tampilkanmenuutama.
Selesai.
Stop Run.
Tidak ada komentar:
Posting Komentar