Category : Paradox DBMS
Archive   : PUSER91.ZIP
Filename : STSMAIN.SC

;**************************************************************************
;Script:STSMain
;Description:Main Menu EIS System
;
;Created [02/15/91] By [G.Salcedo ]
;
;**************************************************************************
AutoLib = "ProcLibr,MMenus,MMesgLib,MMenuHlp"
Errorproc = "EP"
Color = 79
setkey "F11" play "STSMain"

While (true)
CANVAS OFF
Release Procs All
Release Vars All
Reset
Clear

Autolib = "ProcLibr,MMenus,MMesgLib,MMenuHlp"
Errorproc = "EP"
Array Prevx[5]
Array Prevy[5]
Array PrevNC[5]
Array PrevPW[5]
Array PrevCL[5]
Array PrevN[5]
Array PrevML[5]

Level = 1 ; Set Menu level to 1
n = 1 ; Set first menu choice

Prevx[Level] = 3 ; Upper Left 'X' coordinate
Prevy[Level] = 25 ; Upper Left 'Y' coordinate
PrevNC[Level] = 5 ; Number of menu choices
PrevPW[Level] = 30 ; Width of the PopUp Menu
PrevCL[Level] = 79 ; Color of the Menu
PrevML[Level] = format("W28,AC","EIS-Main Menu"); Menu Name

BeginX = Prevx[Level]
BeginY = Prevy[Level]
NumberChoices = PrevNC[Level]
Popwidth = PrevPW[Level]
Color = PrevCL[level]
MenuName = PrevML[level]



; the following arrays set up all the menu choices and their
; corresponding messages
;
; C[n] = menu items (the possible choices)
; D[n] = descriptions of the menu items
; SC[n] = "top bar" representation of menu item
; SD[n] = "top bar" " " " " description
; NICK[n] = first letter of menu items

Array C[NumberChoices]
Array D[NumberChoices]
Array SC[NumberChoices]
Array SD[NumberChoices]
Array NICK[NumberChoices]

; These are the menu choices and the corresponding "wide" bar (top) display.
; Be sure to enclose the menu item in quotes. The number of characters in the
; menu items should not exceed the PopWidth-2. Example "View".

C[1] = "Edit/View"
D[1] = "Edit/View EIS Data"

C[2] = "Quattro Pro"
D[2] = "Maintain the LookUp Tables"

C[3] = "Reports"
D[3] = "Go to the Report Menu"

C[4] = "Info"
D[4] = "More information on system"

C[5] = "Quit"
D[5] = "Exit the System"


if isassigned(n) = false then
n = 1
else
n = n
endif

last = arraysize(c)

FillMenu()

SelMenu()
CANVAS ON

if sel = "Esc" then
@24,0 Clear EOL ?? format("w79,ac","One moment please ...")
quitloop

else


switch
case sel = "Esc" : level = level -1
quitloop

case sel = c[1] : loop
case sel = c[2] : TOQPRO
case sel = c[3] : loop
case sel = c[4] : HelpMenu(sel)
case sel = c[5] : if isruntime() = true then
EXIT
else
QuitLoop
endif

OtherWise:loop

EndSwitch

endif

EndWhile