home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tkmengen.zip / MAKEMENU.CLA < prev    next >
Text File  |  1990-03-23  |  2KB  |  98 lines
  1. Makemenu     PROGRAM
  2.  
  3.  
  4.                   !======================== Program MAP =====
  5.  
  6.  
  7.           MAP
  8.         MODULE('MAINMENU.CLA')
  9.         PROC(MainMenu)
  10.            END
  11.  
  12.            MODULE('DESIGN')
  13.          PROC(DESIGN)
  14.            .
  15.            MODULE('FORM')
  16.          PROC(form)
  17.            .
  18.            module('BUILD')
  19.          proc(BUILdING)
  20.            .
  21.            MODULE('PRINT')
  22.          PROC(PRINTING)
  23.            END
  24.          END
  25.  
  26.                   !============== Data File Definitions =====
  27.  
  28. menu         FILE,NAME(s8DFName),PRE(men),CREATE,RECLAIM
  29. menu           KEY(men:recno),NOCASE,OPT
  30. record           RECORD
  31. recno         BYTE
  32. mainmenu     STRING(25)
  33. mdesc         STRING(80)
  34. GARRAY         GROUP
  35. menuarray     GROUP,DIM(15)
  36.  
  37. submenu           STRING(25)
  38. sdesc           STRING(80)
  39. subproc           STRING(12)
  40.          . .
  41.          . .
  42.  
  43.  
  44.                   !=== Global Equates & Memory Variables =====
  45.  
  46.          INCLUDE('C:\CLARION\All_Keys.Cli')
  47.  
  48. eRejectKey   EQUATE(Ctrl_Esc)
  49. eAcceptKey   EQUATE(Ctrl_Enter)
  50. eTRUE         EQUATE(1)
  51. eFALSE         EQUATE(0)
  52.                                ! Equates for use with isAction variable *
  53. eNullAct     EQUATE(0)                       ! 0 = No Action or Complete
  54. eAddRec         EQUATE(1)                       ! 1 = Add Record
  55. eChgRec         EQUATE(2)                       ! 2 = Change Record
  56. eDelRec         EQUATE(3)                       ! 3 = Delete Record
  57. eLookUp         EQUATE(4)                       ! 4 = LookUp Field
  58.  
  59.  
  60.          EJECT('GLOBAL MEMORY VARIABLES')
  61.  
  62. isAction     SHORT                        ! 0 = NO isAction
  63.                                 ! 1 = ADD RECORD
  64.                                 ! 2 = CHANGE RECORD
  65.                                 ! 3 = DELETE RECORD
  66.  
  67.          GROUP,PRE(mem)
  68. message           STRING(30)             !Global Message Area
  69. page           SHORT                 !Report Page Number
  70. line           SHORT                 !Report Line Number
  71. device           STRING(30)             !Report Device Name
  72. s8DISFNAME     STRING(8)                            ! 4 = LOOKUP FIELD
  73. S8dFNAME       STRING(8)
  74. s12DFName      STRING(12)
  75. S40COMPANY     STRING(50)
  76. PROGNAME       STRING(8)
  77. SET_UP           STRING(8)
  78. SCRNAME           STRING(8)
  79. IDLENAME       STRING(12)
  80.  
  81.          .
  82.  
  83.  
  84.  
  85.          EJECT('CODE SECTION')
  86.  
  87.                   !================== Main Program Code =====
  88.  
  89.   CODE
  90.  
  91.   SETHUE(7,1)       !SETHUE(7,6)                               ! Set White on Red
  92.   BLANK                                 ! Blank the screen
  93.   SETHUE()                             ! Reset Colors
  94.   RECOVER(60)                             ! Holds timeout in 60 seconds
  95.   MAINMENU
  96.   RETURN                             ! Exit to Dos
  97.  
  98.