<ソースコード_ON>
<ソースコード_OFF>
bgscr 0,600,500,0,, repeat redraw 0 color 128,128,128:boxf 0,0,600,20 color 255,255,255 getkey pleasewid1,77 getkey pleasewid1,38 getkey pleasewid2,77 getkey pleasewid2,40 getkey pleasewid3,77 getkey pleasewid3,39 getkey pleasewid4,77 getkey pleasewid4,37 font "",23 pos -2,-2 mes "Test" if pleasewid1=2 :width 600,500,xores,yores-2 if pleasewid2=2 :width 600,500,xores,yores+2 if pleasewid3=2 :width 600,500,xores-2,yores if pleasewid4=2 :width 600,500,xores+2,yores xores=ginfo(4) yores=ginfo(5) wait 1 redraw 1 loop