home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / batch / mxmnu233.zip / CUSTOM.INC next >
Text File  |  1991-09-30  |  2KB  |  94 lines
  1. Comment
  2. ========================================================================
  3.  
  4. MarxMenu supports several "Look and Feel" options. You can choose from:
  5.  
  6. NOVELL.INC
  7. BLOCK.INC
  8. GRID.INC
  9. GREY.INC
  10.  
  11. By including different files MarxMenu compiles the same menu with
  12. completely different looks.
  13.  
  14. Colors are set by editing these include files.
  15.  
  16. ========================================================================
  17. EndComment
  18.  
  19. ;----- Select include file.
  20.  
  21. Include 'NOVELL.INC'
  22. ;Include 'BLOCK.INC'
  23. ;Include 'GRID.INC'
  24.  
  25. ;----- Turn this on if you like the Greek Column Look.
  26.  
  27. Greek On
  28.  
  29. OnScreenOnly ;limits choices to those on the screen only.
  30. AllowEsc
  31. AllowAbort Off
  32. UseArrows
  33. LookSetup
  34.  
  35. ;================< FEATURE CONTROL AREA >================
  36.  
  37. ;----- WORM.INC loads the example custom screen blanker program
  38.  
  39.   Include 'WORM.INC'
  40.  
  41. ;----- Set up the blank screen message if you want one.
  42.  
  43.   BlankMessage = ''
  44.  
  45. ;----- Change BlankTime to 0 if you do not want to blank the screen.
  46.  
  47.   BlankTime = 10
  48.  
  49. ;----- Change LogoffTime to number of minutes if you want timed Logoff.
  50.  
  51.   LogoffTime = 0
  52.  
  53. ;----- Use Novell Password or LockWord to unlock the screen blanker.
  54.  
  55. if NovConnection <> 0
  56.    UseNovPassword Off    ;change to On to activate this feature
  57. else
  58.    LockWord = ''
  59. endif
  60.  
  61. ;----- This makes the menu come back to the same menu level.
  62.  
  63.   SavePosition On
  64.  
  65. ;----- Control Explode effects.
  66.  
  67.   Explode On
  68.  
  69.  
  70. ;========================================================
  71.  
  72. ;----- Support routines for conditional menus
  73.  
  74. Var
  75.   IndexString
  76.  
  77. ;----- Adds a choice to list
  78.  
  79. Procedure AddChoice (Prompt,TaskNum)
  80.    IndexString[CurrentWindow + 1] = Left(IndexString[CurrentWindow + 1],NumberOfElements(Choices)) + Char(TaskNum + 64)
  81.    AppendArray(Choices,Prompt)
  82. EndProc
  83.  
  84. ;----- Compares TaskNum to Choice
  85.  
  86. Procedure Task (TaskNum)
  87.    if Mid(IndexString[CurrentWindow],Ord(LastKey) - 64,1) = Char(TaskNum + 64)
  88.       Return LastKey
  89.    else
  90.       Return ""
  91.    endif
  92. EndProc
  93.  
  94.