;	SAMPLE Microsoft Mouse 'DROP' MENU
;
; Note: Please review the comments below before you compile
;	and use this source file as a mouse menu.

; The DROP mouse menu demonstrates how to create 'drop-
; down' menus.
;
; Clicking a mouse button when the cursor is on the main
; menu (drop1) will display a drop-down menu (except in the
; case of the 'CLR SCRN' field, which will cause a screen-
; clear command to be executed).
;
; Clicking a mouse button when the cursor is on the top
; entry of a drop-down menu will redisplay the main menu.
;
; Since the entire area underneath the main menu will be
; written over by each drop-down menu, you should use a
; BLACK background for this type of mouse menu.
;
; When you choose a drop-down menu, the initial position of
; the cursor is always the upper-left corner of the area
; defined by the set of SELECT statements associated with
; the menu.
;
;
BEGIN pop1
;
;
pop1:  POPUP 2,30,NORMAL
	text "7==========8==========8==========9"
	text "|   DOS    | LIST DIR | CH DRIVE |"
	text "1==========2==========2==========3"
	select 2,2,10,pop4
	select 2,13,10,pop2
	select 2,24,10,pop3
	PEND

pop2:  POPUP 2,30,normal
	text "7==========8==========8==========9"
	text "|   DOS    | LIST DIR | CH DRIVE |"
	text "1==========5==========5==========3"
	text "           |   dir    |           "
	text "           |  *.bat   |           "
	text "           |  *.com   |           "
	text "           |  *.doc   |           "
	text "           |  *.exe   |           "
	text "           |  *.sys   |           "
	text "           |  CANCEL  |           "
	text "           1==========3           "
      select 4,13,10,dir
      select 5,13,10,dirb
      select 6,13,10,dirc
      select 7,13,10,dird
      select 8,13,10,dire
      select 9,13,10,dirs
      select 10,13,10,nul
      PEND


pop4:  POPUP 2,30,normal
	text "7==========8==========8==========9"
	text "|   DOS    | LIST DIR | CH DRIVE |"
	text "4==========5=====================3"
	text "|  cls     |                      "
	text "|  time    |                      "
	text "|  date    |                      "
	text "|  chkdsk  |                      "
	text "|  CANCEL  |                      "
	text "1==========3                      "
      select 4,2 ,10, cls
      select 5,2 ,10, time
      select 6,2 ,10, date
      select 7,2 ,10, chk
      select 8,2 ,10,nul
      PEND

pop3:  POPUP 2,30,normal
	text "7==========8==========8==========9"
	text "| CLR SCRN | LIST DIR | CH DRIVE |"
	text "1==========2==========5==========6"
	text "                      |    A:    |"
	text "                      |    B:    |"
	text "                      |    C:    |"
	text "                      |  CANCEL  |"
	text "                      1==========3"
	select 4,24,10,a
	select 5,24,10,b
	select 6,24,10,c
	select 7,24,10,nul
	PEND


cls:	type "cls",enter
time:	type "time",enter,enter
date:	type "date",enter,enter
chk:	type "chkdsk",enter,enter
nul:	nothing
dir:	    type "dir",enter
dirb:	    type "dir *.bat",enter
dirc:	    type "dir *.com",enter
dird:	    type "dir *.doc",enter
dire:	    type "dir *.exe",enter
dirs:	    type "dir *.sys",enter
a:	type "A:",enter,"cls",enter,enter
b:	type "B:",enter,"cls",enter,enter
c:	type "C:",enter,"cls",enter,enter
