Menu Program in Clipper Summer '87

A menu program that I wrote using Nantucket Clipper Summer '87 a very long time ago.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.

Program Listing

***************************

** MAIN.PRG

** MENU PROGRAM

** AUTHOR   : JAKE R. POMPERADA

** DATE     : MARCH 06,2001

** LANGUAGE : CLIPPER SUMMER '87

****************************

Set Talk Off

Set Echo Off

Set Scoreboard Off

Set Status Off

Set Safety Off

Set Escape Off

Set Wrap On

Set Procedure To Add

Set Procedure To Pass

Set Procedure To Sys

Set Message to 21 Center

Clear Memory

Clear Typeahead

Clear Screen

Do While .T.

@ 1,3 Clear To 24,79

@ 1,3 To 24,79 Double

@ 2,4,23,78 BOX Replicate(Chr(177),10)

Set Color To w+/N

@ 3,6 Clear To 17,27

@ 3,6 To 17,27 Double

Shadow(3,6,17,27)

Set Color To

Set Color TO B+/N

@ 20,10 Clear To 22,68

@ 20,10 TO 22,68

Set Color To

Set Color To W+/Bg

@ 3,32 Clear To 12,74

@ 3,32 To 12,74

Shadow(3,32,12,74)

Title1 = "XYZ CONSTRUCTION SERVICES"

Title2 = "Genovea Compound, C.V. Ramos Avenue"

Title3 = "Taculing Bacolod City 6100."

Title4 = "Mr. John Smith"

Title6 = "Owner / Manager"

DateNow = CMonth(date()) + Chr(32)+ Str(day(date()),2) +;

          ','+Chr(32) + Str(Year(Date()), 4)

TITLE5 = "Developed By: SERVO Software Unlimited."

SetColor("GR+/BG")

@ 04,34 Say Title1

SetColor("W+/Bg")

@ 05,36 Say Title2

@ 06,39 Say Title3

SetColor("B+/Bg")

@ 08,39 Say Title4

Set Color To

Set Color To R/Bg

@ 09,46 Say Title6

Set Color To

Set Color To GR+/Bg

@ 10,41 Say "Date: " + DateNow

Set Color To G+/BG

@ 11,34 Say Title5

Set Color To

Set Color To W+/Bg

@ 15,32 Clear To 18,68

@ 15,32 To 18,68

XGuide1 = "USE THE Up AND Down ARROW KEYS"

XGuide2 = "TO NAVIGATE THE MAIN MENU  "

Char = Chr(024)+ " "+ Chr(025)

Set Color To

Set Color To GR+/Bg

@ 16,34 Say XGuide1

@ 17,34 Say XGuide2

Set Color To G+*/Bg

@ 17, 60 Say Char

Set Color To

Mess1= "ADD EMPLOYEES TO DATABASE FILE"

Mess2= "CHANGE AND UPDATE EMPLOYEES RECORDS"

Mess3= "ERASE EMPLOYEES RECORDS IN DATABASE FILE"

Mess4= "GENERATE PRINTED REPORTS."

Mess5= "DATABASE FILE BACK-UP,REINDEX, ZAP RECORDS"

Mess6= "QUIT KES PAYROLL SYSTEM"

Set Color To GR+/N

@ 04,13 Say  "MAIN MENU "

Set Color To

@ 06,8 Prompt "A> DD EMPLOYEES    "  Message  Mess1

@ 08,8 Prompt "U> PDATE RECORDS   "  Message  Mess2

@ 10,8 Prompt "E> RASE RECORDS    "  Message  Mess3 

@ 12,8 Prompt "G> ENERATE REPORTS "  Message  Mess4

@ 14,8 Prompt "S> YSTEM UTILITY   "  Message  Mess5

@ 16,8 Prompt "Q> UIT PROGRAM     "  Message  Mess6

Menu To Choice

Do Case

 Case Choice = 1 

 Tone(226,1)

 Tone(341,1)

 Add()

 Case Choice = 2

 Tone(152,1)

 Tone(341,1)

 Case Choice = 3

 Case Choice = 4 

 Case Choice = 5 

 Tone(452,1)

 Tone(741,1)

 Do Sys.Prg

 Case Choice = 6

 Tone(452,1)

 Tone(741,1)

 xExit()

EndCase

Set Color To

Enddo

Return

Procedure xExit

@ 20,8 Say Replicate(Chr(177),61)

@ 21,8 Say Replicate(Chr(177),61)

@ 22,8 Say Replicate(Chr(177),61)

@ 16,30 Say Replicate(Chr(177),6)

@ 17,30 Say Replicate(Chr(177),6)

@ 15,32 Say Replicate(Chr(177),8)

@ 18,30 Say Replicate(Chr(177),6)

Set Color To W+/Bg

@ 15,35 Clear To 18,75

@ 15,35 To 18,75 Double

Shadow(15,35,18,75)

Set Color To

Set Color To G/Bg+

@ 16,42 Say "QUIT PAYROLL SYSTEM PROGRAM ?"

Set Color To

Set Message to 21 Center

Set Color To B+/N

@ 20,10 Clear To 22,68

@ 20,10 TO 22,68

Set Color To

QTitle1 = "EXIT PAYROLL PROGRAM AND RETURN TO DOS"

QTitle2 = "RETURN TO PAYROLL PROGRAM SYSTEM MAIN MENU"

Set Color To N+*/Bg

@ 17,44 Prompt "  Y> ES  " Message QTitle1

@ 17,58 Prompt "  N> O   " Message QTitle2

Set Color To

Menu To XChoice

Do Case

Case XChoice = 1

For X = 1 To 25

 Scroll(00,00,24,40,1)

 Scroll(00,41,24,79,-1)

 inkey(.1)

Next X

Clear

Inkey(1)

Set Cursor Off

SetColor("W+/BG")

@ 1,1 Clear to 4,80

@ 1,1 To 4,80 Double

Set Color To

Set Color To G+/Bg

Set Color To

Set Color To G+/Bg

Fin1 = " KONSTRUCTION ENGINEERING SERVICES PAYROLL SYSTEM Version 1.0"

Fin2 = " Developed By: SERVO Software Unlimited 2001." + Chr(234)

Set Color To B+/Bg

@ 2,Int(80-Len(Fin1))/2 Say Fin1

Set Color To

Set Color To GR+*/Bg

@ 3,Int(80-Len(Fin2))/2 Say Fin2

Set Color TO

@ 5,1 Say " "

Set Cursor On

Do Jeopardy

Quit

Case XChoice = 2

Tone(201,3)

Tone(931,2)

Do Kes

EndCase

Set Color To

Return