;The DougMenu Sample Menu  (1.77)
;   feel free to use any of this text in whatever manner you want
;   just don't charge money for any of it
;

#if %lang% == dutch
#include = c:\menu\dutch.dml
#endif

#header message = This is the header box

#timer = 5

#saver message = Register DougMenu Today!

#display ,4,255
  "Welsom to the"
  "DougMenu"
  "sample menu."

#display ,60,255
  "This is an"
  "external"
  "display box"

#display ,255, 20
  "Press alt-1 to see a hidden menu"

#key 0,120
  #password secret
  %secret menu

#f1 = Help
  #display,,,7
    "Help with the menu system:"
    ""
    "Press the number displayed before"
    "an item to access the item."
    ""
    "up & down                           "
    "arrow keys - move the selection bar "
    "enter key  - access selected item   "
    "escape key - move back one menu     "
    ""
    "left mouse button works like enter  "
    "right mouse button works like escape"
    ""
    "press any key to continue"
#f2 = Exit
  #display,,,2
    "Good Bye !!"
  echo I hope you liked the sample menu
  #exit
#f3 = Footer Bar
  #display
    "The bar on the bottom"
    "of the screen is the"
    "footer bar."
  #display
    "It shows the user what"
    "function keys"
    "have been defined"

%A Menu Window
A Sample Menu Item
  echo This is just a sample menu item.
  echo It doesn't really do anything special.
  echo It just shows a simple menu option.
  pause
User Input
  %User Input Menu
System Information
  %System Information Menu
Netware Information
  %Netware Information Menu
Sub-Title
Menu Positioning
  %Positioning
Look at Color Palettes
 #display
  "The root menu is set"
  "to color palette 0"
  "but this box is set to"
  "the default message"
  "palette"
 #display,,,1
  "The this box is set"
  "to color palette 1"
 #display,,,2
  "The this box is set"
  "to color palette 2"
 #display,,,3
  "The this box is set"
  "to color palette 3"
 #display,,,4
  "The this box is set"
  "to color palette 4"
 #display,,,5
  "The this box is set"
  "to color palette 5"
 #display,,,6
  "The this box is set"
  "to color palette 6"
 #display,,,7
  "The this box is set"
  "to color palette 7"
 #display,,,8
  "The this box is set"
  "to color palette 8"
 #display,,,9
  "The this box is set"
  "to color palette 9"

%User Input Menu
DougMenu Variables
  #ask string,Enter a String,,,8
  #ask choice,Chose a Selection,,,6
    "Choice 1" = The First Choice
    "Choice 2" = The Second Choice
    "And Another Choice"
    "Choose Not to Choose" =
  #display,,,1
    "Your String Was:"
    "%string%"
  #if %choice%
    #display,,,1
      "Your Choice Was:"
      "%choice%"
  #else
    #display,,,1
      "You Chose Not To Chose."
  #endif
Password Feature
  #password dougmenu
  #display
   "That is the Password !!!"

%System Information Menu
Find a formated floppy disk
  #floppy floppy_drive
  #display 
    "A floppy formatted floppy disk"
    "was found in drive %floppy_drive%" 
Check for free disk space
  #display
    "This will check to see if"
    "there are 300 K bytes free"
    "on a floppy disk"
  #floppy floppy_drive
  #space %floppy_drive% 300
  #display
    "There was at least 300 K"
    "bytes free."
Look for C:\WP51\WP.EXE and run it if it exists
  #if_exist c:\wp51\wp.exe
    #display
      "You have WordPerfect 5.1 on your computer!"
      ""
      "Press any key to start WordPerfect or"
      "Press escape to return to the menu."
    c:\wp51\wp.exe
  #else
    #display
      "C:\WP51\WP.EXE was not found."
      ""
      "Press any key to the menu."
  #endif

%Netware Information Menu
Are you logged in to a server?
  #if_member everyone
    #display,,,1
      "You are logged in to a server"
  #else  
    #display,,,2
      "You are not logged in to a server"
  #endif
Check your user name
  #ask user,Enter your username:
  #if_username %user%
    #display,,,1
      "You are logged in as %user%"
  #else  
    #display,,,2
      "You are not logged in as %user%"
  #endif
Are you logged in to server1?
  #if_member server1/everyone
    #display,,,1
      "You are logged in to server1"
  #else  
    #display,,,2
      "You are not logged in to server1"
  #endif

%Positioning,0,0
Open a box in the top right
  #display,80,0
   "Box in the top right"
Open a box in the bottom right
  #display,80,25
   "Box in the bottom right"
Open a box in the bottom left
  #display,0,25
   "Box in the bottom left"

%Secret Menu,,,2
Secret Option #1
  echo It's not that secure
  echo but it could be useful.
  pause
Secret Option #2
  echo Security through obscurity.
  pause