option explicit
dim HelpStr as string
dim Align as string

Align = "LB" '<<----- Change here for new alignment. Options are - L C R + T M B
cls
line 0,mm.vres/2,mm.hres,mm.vres/2,1,RGB(RED) '<<---- Shows where the LCD center is
SetMsg '<<------- Build the message
print len(HelpStr) '<<----- Just check and show the length
text 10,mm.vres/2,"Some Text",Align,2,1,RGB(White),rgb(Black) '<<---- Just to check the Align string
pause 1500
ShowHelp '<<---- Show the GUI CAPTION area with the initial message
pause 1500
ShowMsg '<<---- Show the new message in the GUI CAPTION area
do:loop

'------
sub SetMsg 'Build the string so it doesn't run off the MM Edit screen
HelpStr = "This is a long string to~" '<<---- Comment out some of the following lines to see the effect
HelpStr = HelpStr + "test the possibilities ~"
HelpStr = HelpStr + "of a help screen that ~"
HelpStr = HelpStr + "will flash up after a ~"
HelpStr = HelpStr + "user touches a HELP ~"
HelpStr = HelpStr + "button or to show any ~"
HelpStr = HelpStr + "extra details that may~"
HelpStr = HelpStr + "be needed in a program~"
end sub

'------
sub ShowMsg
ctrlval(#3) = HelpStr$
end sub

'------
sub ShowHelp
Font 2
gui caption #3,"Gui~Caption~for~testing~alignment",10,mm.vres/2,Align,RGB(White),rgb(Black)
end sub