MENU - IDENTIFICATION DIVISION. PROGRAM-ID. MENU. AUTHOR....

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
IDENTIFICATION DIVISION. PROGRAM-ID. MENU. AUTHOR. Travis Keeton. DATA DIVISION. WORKING-STORAGE SECTION. 01 MISC. 05 WS-CHOICE PIC 9 VALUE 0. 05 WS-CONTINUE PIC X. ************************************************** * SCREEN COLORS * ************************************************** ********* COLORS FOR FOREGROUND AND BACKGROUND ** 78 BLACK VALUE 0. 78 BLUE VALUE 1. 78 GREEN VALUE 2. 78 CYAN VALUE 3. 78 RED VALUE 4. 78 MAGENTA VALUE 5. 78 BROWN VALUE 6. 78 WHITE VALUE 7. ********** COLORS FOR FOREGROUND ONLY *********** 78 BRIGHT-BLACK VALUE 8. 78 BRIGHT-BLUE VALUE 9. 78 BRIGHT-GREEN VALUE 10. 78 BRIGHT-CYAN VALUE 11. 78 BRIGHT-RED VALUE 12. 78 BRIGHT-MAGENTA VALUE 13. 78 BRIGHT-BROWN VALUE 14. 78 BRIGHT-WHITE VALUE 15. PROCEDURE DIVISION. 000-MAIN. PERFORM UNTIL WS-CHOICE = 5 DISPLAY ERASE MOVE 0 TO WS-CHOICE DISPLAY 'ZOO MENU' LINE 5 COL 10 WITH FOREGROUND-COLOR BRIGHT-GREEN BACKGROUND-COLOR MAGENTA LINE 7 COL 10 DISPLAY '2. SELECT MAMMALS & SORT'
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 10/09/2011 for the course CIS 355 taught by Professor Champion during the Spring '11 term at DeVry Columbus North.

Page1 / 2

MENU - IDENTIFICATION DIVISION. PROGRAM-ID. MENU. AUTHOR....

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online