1. Move the Set Text commands out of the Do..Loop. You only need to use them once before dropping into the loop.
2. Don't use Set Cursor and Print, (the Set Text commands don't work with it). Use
Text XPos,YPos,String$ instead.
What's with all the backslashes - typos???
Quote: "I have added the code to have a look up but it is just not working i get the text there are i get no text can you help please"
Assuming I deciphered that correctly...
3. Your problem is that your program appears to be doing exactly what you told it to do - print some text to the screen when you move the mouse over an image... the problem is that unless you set the size of the screen, you get 640x480 - making your text OFF the screen!
Also using the Text command to print spaces does not work unless you set the text to opaque - it's transparent by default.
SET TEXT TO NORMAL: SET TEXT SIZE 12
Set Text Opaque
Box 150,289,225,354
DO
mx = mousex():my = mousey():mc = mouseclick()
if mx >150 and my>289 AND mx<225 and my<354
text 150,360,"WHITE SUN SYSTEM"
text 150,380,"Bai Hu"
text 150,400,"White tiger"
Else
gosub clear
Endif
LOOP
clear:
text 150,360," "
text 150,380," "
text 150,400," "
return
TDK
