'Auf einem Control & richtig darstellen!
'(c) Rolf Koch - Rokosoft 2005 

def @kfmand(1) translate$(&(1),"&","&&")
 
WINDOWTITLE "Test:   Rock & Roll"
WINDOW 0,0-300,300
declare Text$
Text$ = "Rock & Roll"
SetTrueColor 0
cls @RGB(23,23,23)
DrawText 080,070,Text$
CreateText(%HWnd,text$,080,130,390,18) 'falsche Darstellung
CreateText(%HWnd,@kfmand(text$),080,150,390,18) 'korrigierte Darstellung
waitinput