begin	lb,rb,mb

lb:	MATCH 25,1,normal,"-- More --",ent,lb1
lb1:	MATCH 25,1,normal,"Strike",ent,popup1

rb:	EXECUTE ctr

popup1: popup	10, 10, normal
	text	"7=======================8=============9"
	text	"| DIR - List Directory  | DATE        |"
	text	"4-----------------------5-------------6"
	text	"| DIR /P                | TIME        |"
	text	"4-----------------------5-------------6"
	text	"| DIR | MORE            | DOS VERSION |"
	text	"1-----------------------2-------------3"
	select	2, 3, 20, dr
	select	2, 27, 11, date
	select	4, 3, 10, drp
	select	4, 27, 11, time
	select	6, 3, 20, drm
	select	6, 27, 11, ver
	pend

mb:	POPUP	2,1,normal
	text	"7-------- Mouse Help Menu -----------------9"
	text	"|   Left Button  - Active Popup Menu       |"
	text	"|   Right Button - Ctrl C                  |"
	text	"|   Middle Button - Mouse Help Menu        |"
	text	"1------------------------------------------3"
	select	1,11,15,nul
	PEND

dr:	type "dir",enter
drp:	type "dir/p", enter
drm:	type "dir | more", enter
date:	type "date", enter, enter
time:	type "time", enter, enter
ver:	type "ver", enter, enter
ent:	type enter
ctr:	type 3, enter
nul:	NOTHING
