A menu program that I wrote using Nantucket Clipper Summer '87 a very long time ago.
My mobile number here in the Philippines is 09173084360.
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
