home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
tkmengen.zip
/
MAKEMENU.CLA
< prev
next >
Wrap
Text File
|
1990-03-23
|
2KB
|
98 lines
Makemenu PROGRAM
!======================== Program MAP =====
MAP
MODULE('MAINMENU.CLA')
PROC(MainMenu)
END
MODULE('DESIGN')
PROC(DESIGN)
.
MODULE('FORM')
PROC(form)
.
module('BUILD')
proc(BUILdING)
.
MODULE('PRINT')
PROC(PRINTING)
END
END
!============== Data File Definitions =====
menu FILE,NAME(s8DFName),PRE(men),CREATE,RECLAIM
menu KEY(men:recno),NOCASE,OPT
record RECORD
recno BYTE
mainmenu STRING(25)
mdesc STRING(80)
GARRAY GROUP
menuarray GROUP,DIM(15)
submenu STRING(25)
sdesc STRING(80)
subproc STRING(12)
. .
. .
!=== Global Equates & Memory Variables =====
INCLUDE('C:\CLARION\All_Keys.Cli')
eRejectKey EQUATE(Ctrl_Esc)
eAcceptKey EQUATE(Ctrl_Enter)
eTRUE EQUATE(1)
eFALSE EQUATE(0)
! Equates for use with isAction variable *
eNullAct EQUATE(0) ! 0 = No Action or Complete
eAddRec EQUATE(1) ! 1 = Add Record
eChgRec EQUATE(2) ! 2 = Change Record
eDelRec EQUATE(3) ! 3 = Delete Record
eLookUp EQUATE(4) ! 4 = LookUp Field
EJECT('GLOBAL MEMORY VARIABLES')
isAction SHORT ! 0 = NO isAction
! 1 = ADD RECORD
! 2 = CHANGE RECORD
! 3 = DELETE RECORD
GROUP,PRE(mem)
message STRING(30) !Global Message Area
page SHORT !Report Page Number
line SHORT !Report Line Number
device STRING(30) !Report Device Name
s8DISFNAME STRING(8) ! 4 = LOOKUP FIELD
S8dFNAME STRING(8)
s12DFName STRING(12)
S40COMPANY STRING(50)
PROGNAME STRING(8)
SET_UP STRING(8)
SCRNAME STRING(8)
IDLENAME STRING(12)
.
EJECT('CODE SECTION')
!================== Main Program Code =====
CODE
SETHUE(7,1) !SETHUE(7,6) ! Set White on Red
BLANK ! Blank the screen
SETHUE() ! Reset Colors
RECOVER(60) ! Holds timeout in 60 seconds
MAINMENU
RETURN ! Exit to Dos