rem graphget.bas
rem Test of graphics GET and PUT

mode 350,350
graphics pen 15
graphics paper 0
graphics cls

draw 0,249
draw 249,249
draw 249,0
draw 0,0
get a$

draw 0,100
draw 100,100
draw 100,0
draw 0,0
draw 100,100
get (0,0)-(100,100),a

des=101
rem cls
rem graphics put (0,0),a
put (des,0),a,or
put (0,des),a,or
put (des,des),a,or
put (des*2,0),a,or
put (0,des*2),a,or
put (des*2,des*2),a,or

get a$

end
