title Project
	item 'About...' 'request \'PowerVisor V1.42\\n Jorrit Tyberghein\\n\\nPowerVisor is shareware\\n(see \\\'ReadThisFirst\\\' for info)\' \'Ok\' 0'
	ibar
	item 'Quit...' 'v if({request \'Do you really want to quit ?\' \'Yes|No\' 0},{quit},0)' 'Q'

title Windows
	item 'Clear current window' 'cls' '\\'
	ibar
	item 'Open/Close Extra Window' 'xwin'
	item 'Open/Close Refresh Window' 'rwin'
	item 'Open/Close Rexx Window' 'awin'
	item 'Open/Close PPrint Window' 'owin'
	item 'Open/Close Debug Window' 'dwin'
	item 'Open/Close Source Window' 'swin'

title Debugging
	item 'Open/Close Full Screen Debugger' 'fdebug'
	ibar
	item 'Wait For Next Process' 'debug n'
	item 'Load Program & Symbols...' '{v if({reqload \'Program to debug\'},{debug l \'\\(input,%s)\'},0)}'
	item 'Load Symbols...' '{v if({reqload \'Which program\'},{symbol l \'\\(input,%s)\'},0)}'
	item 'Load Source...' '{v if({reqload \'Which program\'},{source l \'\\(input,%s)\'},0)}'
	item 'Load Symbols & Source...' '{v if({reqload \'Which program\'},{source l \'\\(input,%s)\';symbol l \'\\(input,%s)\'},0)}'
	ibar
	item 'Stop & Freeze Task' 'debug f'
	item 'Stop & Continue' 'debug r'
	item 'Stop & Unload Task' 'debug u'
	ibar
	item 'Trace commands'
		sub 'Trace' 'trace' 'T'
		sub 'Go' 'trace g' 'G'
		sub 'Over' 'trace t' 'O'
		sub 'Conditional...' 'v if({getstring \'Type condition string\' 512},{trace c \'\\(input,%s)\'},0)' 'C'
		sub 'Next Branch' 'trace b'
		sub 'Next Lib Function' 'trace j'
		sub 'Until...' 'v if({getstring \'Trace until address\' 512},{trace u eval(input)},0)' 'U'
		sub 'Skip' 'trace s'
	item 'Breakpoints'
		sub 'Breakpoint...' 'v if({getstring \'Breakpoint address\' 256},{break n eval(input)},0)'
		sub 'Temp Breakpoint' 'v if((isbreak(toppc())&255)==0,{-break t toppc()},{break r isbreak(toppc())>>16})' 'B'
		sub 'Prof Breakpoint' 'v if((isbreak(toppc())&255)==0,{-break p toppc()},{break r isbreak(toppc())>>16})'
		sbar
		sub 'Clear Breakpoint...' 'v if({getstring \'Breakpoint number\' 256},{break r eval(input)},0)'
		sbar
		sub 'List Breakpoints' 'v if(getdebug(),{info getdebug() dbug},{print \'No debug task !\\n\'})'

title Lists
	item 'List PowerVisor List' 'list' 'L'
	item 'Info About List Element...' '{getstring \'Give list element\' 256;v if(input,{info eval(input)},0)}'
	ibar
	item 'System Lists'
		sub 'Tasks/Processes' 'task'
		sub 'Libraries' 'libs'
		sub 'Windows' 'wins'
		sub 'Screens' 'scrs'
		sub 'Fonts' 'font'
		sub 'Input Handlers' 'ihan'
		sub 'Dos Devices' 'dosd'
		sub 'Exec Devices' 'devs'
		sub 'Resident Modules' 'resm'
		sub 'Locks' 'lock'
		sub 'Open Files' 'fils'
		sub 'Monitors' 'moni'
		sub 'Public Screens' 'pubs'
		sub 'Resources' 'reso'
		sub 'Interrupts' 'intr'
		sub 'Memory List' 'memr'
		sub 'Message Ports' 'port'
		sub 'Semaphores' 'sema'
		sub 'AutoConfigs' 'conf'
	item 'PowerVisor Lists'
		sub 'Logical Windows' 'lwin'
		sub 'Physical Windows' 'pwin'
		sub 'Functions' 'func'
		sub 'Fd-Files' 'fdfi'
		sub 'Macros' 'attc'
		sub 'Crashed Programs' 'crsh'
		sub 'Debug Tasks' 'dbug'
		sub 'Structure Defs' 'stru'
	item 'System Structures'
		sub 'ExecBase' 'exec'
		sub 'IntuitionBase' 'intb'
		sub 'GraphicsBase' 'graf'

title Options
	item 'Interlace On' 'mode lace'
	item 'Interlace Off' 'mode nolace'
	ibar
	item 'Pal Screen' 'mode pal'
	item 'Ntsc Screen' 'mode ntsc'
	item 'Vga Screen' 'mode vga'
	item 'A2024 Screen' 'mode viking'
	ibar
	item 'Two Bitplanes' 'mode fancy'
	item 'One Bitplane' 'mode nofancy'
	ibar
	item 'Use Intuition Windows' 'mode intui'
	item 'Use Logical Windows' 'mode nointui'
	ibar
	item 'No Backdrop Main' 'screen 0'
	item 'Backdrop Main' 'screen'
	ibar
	item 'Use Scrollbars' 'mode sbar'
	item 'Don\'t Use Scrollbars' 'mode nosbar'
	ibar
	item 'Save Configuration' 'saveconfig'

title Help
	item 'Main Help Menu' 'help' 'H'
	item 'General Help Menu' 'help general'
	item 'All Commands' 'help commands'
	item 'All Functions' 'help functions'
	ibar
	item 'MultiView Main Help Menu' 'mhelp' 'M'

end
