window_set_visible(1);xx=8;yy=8;mx=0;my=0
repeat(16){repeat(16){v[x,y]=0;x+=16}y+=16;x=0}
do{io_handle()
x=0;y=0;draw_set_color(0)
draw_rectangle(0,0,256,256,0)
draw_set_color(-1)
repeat(16){repeat(16){if v[x,y]{draw_rectangle(x,y,x+15,y+15,1)}x+=16}y+=16;x=0}
draw_circle(xx,yy,7,1)
if mouse_check_button(mb_left)&&(mx!=floor(mouse_x/16)*16||my!=floor(mouse_y/16)*16){v[floor(mouse_x/16)*16,floor(mouse_y/16)*16]=!v[floor(mouse_x/16)*16,floor(mouse_y/16)*16]}
if mouse_check_button(mb_right){xx=floor(mouse_x/16)*16+8;yy=floor(mouse_y/16)*16+8}
if keyboard_check(vk_space){v2=get_save_filename("","");if v2!=""{v2=file_text_open_write(v2);x=0;y=0
repeat(16){repeat(16){file_text_write_string(v2,string(v[x,y]));file_text_writeln(v2);x+=16}y+=16;x=0}
file_text_write_string(v2,string(xx));file_text_writeln(v2);file_text_write_string(v2,string(yy));file_text_close(v2)}}
if keyboard_check(vk_enter)&&keyboard_check(vk_shift){x=0;y=0;repeat(16){repeat(16){v[x,y]=0;x+=16}y+=16;x=0}}
if mouse_check_button(mb_left){mx=max(min(floor(mouse_x/16)*16,256),0);my=max(min(floor(mouse_y/16)*16,256),0)}else{mx=1;my=1}
screen_refresh();sleep(24)}until keyboard_check(vk_escape);room=0