Rabu, 24 Maret 2010

Cobol Program's

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