JUFRIAN PRATAMA
11108088
2 KA 08
IDENTIFICATION DIVISION.
PROGRAM-ID. PILIHPILIH.
AUTHOR. FRIANTAMA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 CHOICE PIC 9.
01 MAJALAH PIC X.
02 GUITARTAB VALUE 1.
02 BASSTAB VALUE 2.
02 MUSICART VALUE 3.
02 MANMUSIC VALUE 4.
01 KOMIK PIC X.
02 HAGEMARU VALUE 1.
02 CHIBICHAN VALUE 2.
02 DORAEMON VALUE 3.
02 IQSHAN VALUE 4.
01 NOVEL PIC X.
02 LUPUS VALUE 1.
02 JONI VALUE 2.
02 CONAN VALUE 3.
02 SHERRIF VALUE 4.
01 DVD PIC X.
02 THEDOCTOR VALUE 1.
02 MEDALION VALUE 2.
02 PROJECTD VALUE 3.
02 POLICES1 VALUE 4.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 TOP-BUYS.
02 BLANK SCREEN.
02 LINE 2 COLUMN 25 VALUE
'TOP BUYS CATEGORIES'.
02 LINE 5 COLUMN 25 VALUE '1.
MAJALAH' HIGHLIGHT.
02 LINE 7 COLUMN 25 VALUE '2.
COMIC' REVERSE-VIDEO.
02 LINE 9 COLUMN 25 VALUE '3.
NOVEL' BLINK.
02 LINE 11 COLUMN 25 VALUE
'4. DVD' UNDERLINE.
01 MAJALAH-CATEGORIES.
02 BLANK SCREEN.
02 LINE 2 COLUMN 25 VALUE
'MAJALAH'.
02 LINE 5 COLUMN 25 VALUE '1.
GUITARTAB' HIGHLIGHT.
02 LINE 7 COLUMN 25 VALUE '2.
BASSTAB' REVERSE-VIDEO.
02 LINE 9 COLUMN 25 VALUE '3.
MUSICART' BLINK.
02 LINE 11 COLUMN 25 VALUE '4.
MANMUSIC' UNDERLINE.
01 KOMIK-CATEGORIES.
02 BLANK SCREEN.
02 LINE 2 COLUMN 25 VALUE
'KOMIK'.
02 LINE 5 COLUMN 25 VALUE '1.
HAGEMARU' HIGHLIGHT.
02 LINE 7 COLUMN 25 VALUE '2.
CHIBICHAN' REVERSE-VIDEO.
02 LINE 9 COLUMN 25 VALUE '3.
DORAEMON' BLINK.
02 LINE 11 COLUMN 25 VALUE '4.
IQSHAN' UNDERLINE.
01 NOVEL-CATEGORIES.
02 BLANK SCREEN.
02 LINE 2 COLUMN 25 VALUE
'NOVEL'.
02 LINE 5 COLUMN 25 VALUE '1.
LUPUS' HIGHLIGHT.
02 LINE 7 COLUMN 25 VALUE '2.
JONI' REVERSE-VIDEO.
02 LINE 9 COLUMN 25 VALUE '3.
CONAN' BLINK.
02 LINE 11 COLUMN 25 VALUE '4.
SHERRIF' UNDERLINE.
01 DVD-CATEGORIES.
02 BLANK SCREEN.
02 LINE 2 COLUMN 25 VALUE
'DVD'.
02 LINE 5 COLUMN 25 VALUE '1.
THEDOCTOR' HIGHLIGHT.
02 LINE 7 COLUMN 25 VALUE '2.
MEDALION' REVERSE-VIDEO.
02 LINE 9 COLUMN 25 VALUE '3.
PROJECTD' BLINK.
02 LINE 11 COLUMN 25 VALUE '4.
POLICES1' UNDERLINE.
PROCEDURE DIVISION.
MULAI.
PERFORM INPUT-PILIHAN.
SELESAI.
STOP RUN.
INPUT-PILIHAN.
DISPLAY TOP-BUYS.
DISPLAY SPACE.
DISPLAY (13,25) 'WHAT
CATEGORIES?(1..4)(ESC/ENTER
FOR EXIT)'.
ACCEPT (13,25) CHOICE WITH
AUTO-SKIP.
DISPLAY SPACE.
GO TO 1, 2, 3, 4 DEPENDING ON
CHOICE.
DISPLAY (20,5) 'PRESS ENTER
FOR EXIT'.
MOVE SPACE TO CHOICE.
ACCEPT (20, ) CHOICE WITH
AUTO-SKIP.
1.
DISPLAY MAJALAH-CATEGORIES.
DISPLAY SPACE.
DISPLAY (13,25) 'APA MAJALAH
YANG ANDA INGIN BELI?(1..4)'.
ACCEPT MAJALAH.
DISPLAY HAPUS-LAYAR.
IF MAJALAH = 1
DISPLAY (7,25) 'SAYA BELI
MAJALAH GUITAR TAB'.
IF MAJALAH = 2
DISPLAY (7,25) 'SAYA BELI
MAJALAH BASS TAB'.
IF MAJALAH = 3
DISPLAY (7,25) 'SAYA BELI
MAJALAH MUSIC ART'.
IF MAJALAH = 4
DISPLAY (7,25) 'SAYA BELI
MAJALAH MAN MUSIC'.
GO TO BACK-TO-MAINMENU.
2.
DISPLAY KOMIK-CATEGORIES.
DISPLAY SPACE.
DISPLAY (13,20) 'APA KOMIK
YANG INGIN ANDA BELI?(1..4)'.
ACCEPT KOMIK.
DISPLAY HAPUS-LAYAR.
IF KOMIK = 1
DISPLAY (7,25) 'SAYA BELI
KOMIK HAGEMARU'.
IF KOMIK = 2
DISPLAY (7,25) 'SAYA BELI
KOMIK CHIBI CHAN'.
IF KOMIK = 3
DISPLAY (7,25) 'SAYA BELI
KOMIK DORAEMON'.
IF KOMIK = 4
DISPLAY (7,25) 'SAYA BELI
KOMIK IQ SHAN'.
GO TO BACK-TO-MAINMENU.
3.
DISPLAY NOVEL-CATEGORIES.
DISPLAY SPACE.
DISPLAY (13,25) 'APA NOVEL
YANG INGIN ANDA BELI?(1..4)'.
ACCEPT NOVEL.
DISPLAY HAPUS-LAYAR.
IF NOVEL= 1
DISPLAY (7,25) 'SAYA BELI
NOVEL LUPUS'.
IF NOVEL = 2
DISPLAY (7,25) 'SAYA BELI
NOVEL JONI'.
IF NOVEL = 3
DISPLAY (7,25) 'SAYA BELI
NOVEL CONAN'.
IF NOVEL = 4
DISPLAY (7,25) 'SAYA BELI
NOVEL SHERRIF'.
GO TO BACK-TO-MAINMENU.
4.
DISPLAY DVD-CATEGORIES.
DISPLAY SPACE.
DISPLAY (13,25) 'APA DVD YANG
INGIN ANDA BELI?(1..4)'.
ACCEPT DVD.
DISPLAY HAPUS-LAYAR.
IF DVD = 1
DISPLAY (7,25) 'SAYA BELI
DVD THE DOCTOR'.
IF DVD = 2
DISPLAY (7,25) 'SAYA BELI
DVD MEDALION'.
IF DVD = 3
DISPLAY (7,25) 'SAYA BELI
DVD PROJECT D'.
IF DVD = 4
DISPLAY (7,25) 'SAYA BELI
DVD POLICE STORY 1'.
GO TO BACK-TO-MAINMENU.
BACK-TO-MAINMENU.
DISPLAY (20,5) 'PRESS ENTER FOR BACK TO MAIN MENU'.
ACCEPT (20, ) CHOICE WITH AUTO-SKIP.
GO TO INPUT-PILIHAN.
Tidak ada komentar:
Posting Komentar