MEWARNAI HURUF PADA PROGRAM COBOL

BOSAN.....
adalah mungkin yang keluar dari hati kita melihat tampilan program Cobol yang hurufnya berwarna itu saja. Sekarang saya akan berbagi informasi tentang bagaimana mewarnai huruf pada program Cobol Anda!!!
JENG...JENK...JENK....
Saya menggunakan Windows 7 Ultimate 64 BIT. Dengan bantuan DosBox saya bisa menjalankan prog. Cobol. Terimakasih DosBox.....(gaya iklan Tong Seng).hahaha...

Berikut ini tata cara langkah untuk menjalankan COBOL :

1. Hal pertama yang kita lakukan adalah mengekstrak file COBOL yang sudah kalian download.Disini saya mengekstraknya ke disk D.
2. Setelah itu buka DosBox lalu ketikan mount d d:\cobol , lalu masuk ke direktori disk D dengan cara mengetikan d: . Ketik cobol. kompiler COBOL yang bertugas untuk mengcompile file pun  terbuka. 
3. Untuk menulis listing programnnya kita akan menggunakan program notepad (inget notepad bukan notepad++,soalnya kalau notepad++ tidak mempunyai ekstensi file cobol).
4. Setelah listing program selesai diketik, save file di folder COBOL berada yaitu d:\cobol (kalau berbeda tinggal disesuai saja).Jangan lupa simpan dengan ekstensi .cob
5. Sekarang balik lagi ke DosBox yang tadi sudah terbuka compiler COBOL nya, ketikan namafile.cob (file yang anda simpan tadi) , lalu ketik enter 2 kali.Kemudia running Program yang anda save tadi dengan mengetikan runcob namafile.cob
6. Dan hasilnya seperti disini (Screenshoot diatas)

 oke kita kembali ke pokok bahasan yaitu mewarnai huruf.
silakan tulis coding ini pada notepad (64 Bit) atau langsung pada program (32 Bit).

IDENTIFICATION DIVISION.

       PROGRAM-ID. WARNAI HURUF COBOL.      

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       SCREEN SECTION.

       01 CLS.

           02 BLANK SCREEN.

       01 WARNA-FOREGROUND.

           02 LINE 1 COLUMN 5 FOREGROUND-COLOR 10

              'WARNA FOREGROUND'.

       01 WARNA-BACKGROUND.

            02 LINE 3 COLUMN 5 FOREGROUND-COLOR 3 BACKGROUND-COLOR 9

                'WARNA FOREGROUND DAN BACKROUND'.

       PROCEDURE DIVISION.

       AWAL.

               DISPLAY WARNA-FOREGROUND.

               DISPLAY WARNA-BACKGROUND.

               STOP RUN.

Hasilnya adalah sebagai berikut:

 

 Oke sekian dari saya semoga blog saya bermanfaat bagi para pembaca. Terima Kasih.