prmpad( ) 函数示例

在下面示例中，创建了名为 mnuexample 的菜单栏，它有三个菜单标题。从名为 titletwo 和 titlethree 的菜单标题中，不能返回快捷键和废止选项指示符。激活该菜单显示菜单标题，菜单标题显示后将菜单栏从屏幕和内存中清除掉。

clear
set talk off
store 'mnuexample' to gcpopname

define menu mnuexample bar at line 1
define pad titleone of mnuexample prompt 'this will be returned'
define pad titletwo of mnuexample prompt '\<as will this'
define pad titlethree of mnuexample prompt '\and this, too'

@ 8,1 say prmpad('mnuexample', 'titleone')
@ 9,1 say prmpad('mnuexample', 'titletwo')
@ 10,1 say prmpad(gcpopname, 'titlethree')

activate menu mnuexample
deactivate menu mnuexample
release menu mnuexample