brainstorms

IDENTIFICATION DIVISION.
PROGRAM-ID. MENU.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 VAR.
02 PIL PIC 9.
SCREEN SECTION.
01 CLS.
02 BLANK SCREEN.
01 LAYAR-MENU.
02 LINE 6 COLUMN 20 ' ---------------MENU--------------- '
BACKGROUND-COLOR 9
FOREGROUND-COLOR 13.
02 LINE 7 COLUMN 20 '| 1. PROGRAM KONDISI |'
BACKGROUND-COLOR 9
FOREGROUND-COLOR 13.
02 LINE 8 COLUMN 20 '| 2. PROGRAM PERULANGAN |'
BACKGROUND-COLOR 9
FOREGROUND-COLOR 13.
02 LINE 9 COLUMN 20 '| 3. KELUAR |'
BACKGROUND-COLOR 9
FOREGROUND-COLOR 13.
02 LINE 10 COLUMN 20 ' ---------------------------------- '
BACKGROUND-COLOR 9
FOREGROUND-COLOR 13.
02 LINE 11 COLUMN 20 ' MASUKAN PILIHAN :'.
02 COLUMN PLUS 2 PIC 9 TO PIL.
PROCEDURE DIVISION.
MULAI.
DISPLAY CLS.
DISPLAY LAYAR-MENU.
ACCEPT LAYAR-MENU
IF PIL = 1 GO TO PIL1.
IF PIL = 2 GO TO PIL2.
IF PIL = 3 GO TO PIL3.
PIL1.
CALL 'PRAKT1A.COB'.
GO TO MULAI.
PIL2.
CALL 'PERFORM1.COB'.
GO TO MULAI.
PIL3.
DISPLAY CLS
DISPLAY (10, 20) 'TERIMA KASIH'.
STOP RUN.



outputnya

selamat mencoba !!!