Sorry your browser is not supported!

rem prepare the sync
sync on
sync rate 60

rem make a temp cube to engage the 3d environment
make object cube 1,1

rem start the main loop by hijacking the escapekey
disable escapekey
rem if u press escape it escapes the while loop
while escapekey()=0

rem store the mouse location of x and y to two variables
mx = mousex()
my = mousey()

rem print them to the screen
text 10,10,"mx:"+STR$(mx)
text 10,30,"my:"+STR$(my)

rem if u click the left mouse button it will temp print HERE
if mouseclick() = 1
text mx,my,"HERE"
endif

rem if u want to place text where something is in 3d you can do this
center text object screen x(1),object screen y(1),"object 1"

rem spin the cube so its doing something at least
r = wrapvalue(r)+1
rotate object 1,r,r,r


rem update the sync each loop
sync
rem close the main loop
endwhile

rem kill the cube
delete object 1

rem end proggy
end

rem text positioner

rem variables
ty=20
n=0

rem array for storing text positions
dim text_pos$(25,3)

do

rem if the mouse is clicked position cursor there and allow input
if mouseclick()=1
x=mousex()
y=mousey()
set cursor x,y
ty=ty+20

rem add new entry in cursor position list
center text 50,ty,str$(x)+","+str$(y)

rem allow input
input message$

rem store text positions and string in array
text_pos$(n,1)=str$(x)
text_pos$(n,2)=str$(y)
text_pos$(n,3)=message$
n=n+1
endif

rem if "s" is pressed save the array as textpos
if keystate(31)=1
save array "textpos",text_pos$(0)
center text 320,240,"Array Saved!"
endif 

rem positions list title
center text 70,20,"CURSOR POSITIONS"

loop

rem declare array
dim text_pos$(25,3)
rem load array
load array "textpos",text_pos$(0)

rem position text where its supposed to be
for t=0 to 25
set cursor val(text_pos$(t,1)),val(text_pos$(t,2))
print text_pos$(t,3)
next t