Program 1 :
IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL1.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
MULAI.
DISPLAY 'HALO, SAYA COBOL.. !!'.
SELESAI.
EXIT PROGRAM.
Program 2 :
IDENTIFICATION DIVISION.
PROGRAM-ID. UBAH-TITIK.
ENVIRONMENT DIVISION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 HARGA.
02 HARGA-BAJU PIC 9999,99.
PROCEDURE DIVISION.
MULAI.
DISPLAY 'MASUKKAN HARGA BAJU ?'.
ACCEPT HARGA-BAJU.
DISPLAY 'ANDA MEMBAYAR ' HARGA-BAJU.
SELESAI.
EXIT PROGRAM.
Program
3 :
IDENTIFICATION DIVISION.
PROGRAM-ID. PILIHAN.
AUTHOR.
RANI.
ENVIRONMENT
DIVISION.
DATA
DIVISION.
SCREEN
SECTION.
01
LAYAR-PILIHAN.
02
BLANK SCREEN.
02
LINE 2 COLUMN 25 VALUE ' <> ' UNDERLINE.
02
LINE 5 COLUMN 25 VALUE '1.MENAMBAH DATA'.
02
LINE 7 COLUMN 25 VALUE '2.MENCETAK DATA'.
02
LINE 9 COLUMN 25 VALUE '3.KOREKSI DATA' HIGHLIGHT.
02
LINE 11 COLUMN 25 VALUE '4.SELESAI' BLINK.
02
LINE 18 COLUMN 25 VALUE 'PILIH NOMER (1-4).
REVERSE-VIDEO.
PROCEDURE DIVISION.
MULAI.
DISPLAY LAYAR-PILIHAN.
SELESAI.
EXIT PROGRAM.
Program 4 :
IDENTIFICATION DIVISION.
PROGRAM-ID. TUGAS4.
AUTHOR. KELOMPOK1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MASUKAN.
02 PTR PIC X(6).
02 MRKPTR PIC X(8).
01 LAGI-SUDAH PIC X.
88 LAGI
VALUE IS 'y' , 'Y'.
88 SUDAH
VALUE IS 't' , 'T'.
SCREEN SECTION.
01 LAYAR-ATAS.
02 LINE 1 COLUMN 20 VALUE
'========================='.
02 LINE 2 COLUMN 25 VALUE ' MERK PRINTER' HIGHLIGHT.
02 LINE 3 COLUMN 20 VALUE
'========================='.
01 LAYAR-TAMPIL.
02 LINE 5 COLUMN 18 VALUE ' MASUKAN
SERI PRINTER :'.
02 COLUMN PLUS 1 PIC X(6) TO PTR
AUTO.
01 LAYAR-HASIL.
02 LINE 9 COLUMN 25 VALUE '->
MERK PRINTER ANDA '.
01 LAYAR-BAWAH.
02 LINE 11 COLUMN 20 VALUE
'========================='.
02 LINE 12 COLUMN 20 VALUE ' COBA LAGI (Y/T) ?' HIGHLIGHT.
02 COLUMN PLUS 1 PIC X USING
LAGI-SUDAH.
02 LINE 13 COLUMN 20 VALUE
'========================='.
01 LAYAR-HAPUS.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
MASUKAN-DATA.
DISPLAY LAYAR-HAPUS.
DISPLAY LAYAR-ATAS.
DISPLAY LAYAR-TAMPIL.
ACCEPT LAYAR-TAMPIL.
GO TO LAYAR-EKSEKUSI.
DISPLAY LAYAR-ATAS.
DISPLAY LAYAR-BAWAH.
ACCEPT LAYAR-BAWAH.
IF LAGI GO TO MASUKAN-DATA
ELSE
GO TO SELESAI.
LAYAR-EKSEKUSI.
IF PTR = 'LX800'
MOVE 'EPSON' TO MRKPTR
GO TO TAMPILAN-AKHIR.
IF PTR = 'IP2770'
MOVE 'CANON' TO MRKPTR
GO TO TAMPILAN-AKHIR.
IF PTR = 'HP1010'
MOVE 'HP' TO MRKPTR
GO TO TAMPILAN-AKHIR.
TAMPILAN-AKHIR.
DISPLAY LAYAR-HAPUS.
DISPLAY LAYAR-ATAS.
DISPLAY LAYAR-HASIL.
DISPLAY (9 , 18) PTR.
DISPLAY (9 , 46) MRKPTR.
DISPLAY LAYAR-BAWAH.
ACCEPT LAYAR-BAWAH.
IF LAGI GO TO MASUKAN-DATA.
SELESAI.
EXIT PROGRAM.
Program 5 :
IDENTIFICATION DIVISION.
PROGRAM-ID. TUGAS5.
AUTHOR. KEL1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MASUKAN.
02 PIL PIC 9.
SCREEN SECTION.
01 LAYAR-ATAS.
02 LINE 1 COLUMN 20 VALUE
'========================'.
02 LINE 2 COLUMN 20 VALUE ' MENU PILIHAN ' BLINK.
02 LINE 3 COLUMN 20 VALUE
'========================'.
01 LAYAR-TAMPIL.
02 LINE 5 COLUMN 20 VALUE ' 1.
PROGRAM COBOL1 '.
02 LINE 7 COLUMN 20 VALUE ' 2.
PROGRAM HARGA BAJU '.
02 LINE 9 COLUMN 20 VALUE ' 3.
PROGRAM PILIHAN '.
02 LINE 11 COLUMN 20 VALUE ' 4. PROGRAM
PRINTER '.
02 LINE 13 COLUMN 20 VALUE ' 5.
EXIT '.
02 LINE 16 COLUMN 20 VALUE
'========================'.
02 LINE 18 COLUMN 20 VALUE ' MASUKKAN PILIHAN : '.
02 COLUMN PLUS 1 PIC 9 TO PIL AUTO
HIGHLIGHT.
01 LAYAR-HAPUS.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
MASUKAN-DATA.
DISPLAY LAYAR-HAPUS.
DISPLAY LAYAR-ATAS.
DISPLAY LAYAR-TAMPIL.
ACCEPT LAYAR-TAMPIL.
IF PIL = 1
CALL 'TGS1.COB'.
IF PIL = 2
CALL 'TGS2.COB'.
IF PIL = 3
CALL 'TGS3.COB'.
IF PIL = 4
CALL 'TGS4.COB'.
STOP RUN.
GO TO MASUKAN-DATA.
SELESAI.
EXIT PROGRAM.
