dev_close_window ()
dev_open_window (0, 0, 512, 512, 'black', WindowID)
dev_set_part (0, 0, 511, 511)
dev_clear_window ()
dev_set_color ('red')
write_string (WindowID, 'Initial pos')
* Set the coordinates in the output window to write a string
set_tposition (WindowID, 255, 255)
write_string (WindowID, 'Center')
dev_set_color ('green')
disp_arrow (WindowID, 255 - 30, 255 - 30, 255, 255, 1)
* Set the coordinates in the output window to write a string
set_tposition (WindowID, 2, 255)
dev_set_color ('red')
write_string (WindowID, 'Upper center')
dev_set_color ('green')
disp_arrow (WindowID, 2 + 30, 255 - 30, 2, 255, 1)
dev_open_window (0, 0, 512, 512, 'black', WindowID)
dev_set_part (0, 0, 511, 511)
dev_clear_window ()
dev_set_color ('red')
write_string (WindowID, 'Initial pos')
* Set the coordinates in the output window to write a string
set_tposition (WindowID, 255, 255)
write_string (WindowID, 'Center')
dev_set_color ('green')
disp_arrow (WindowID, 255 - 30, 255 - 30, 255, 255, 1)
* Set the coordinates in the output window to write a string
set_tposition (WindowID, 2, 255)
dev_set_color ('red')
write_string (WindowID, 'Upper center')
dev_set_color ('green')
disp_arrow (WindowID, 2 + 30, 255 - 30, 2, 255, 1)