buttons

TO MYSETUP

DECLARE "BUTTON "B1 PPROP "B1 "SIZE [250 75] PPROP "B1 "TEXT "|Play Game| PPROP "B1 "POSITION [0 0] PPROP "B1 "RUN [SETACTIVEWINDOW "LISTENER GAMESCREEN]

DECLARE "BUTTON "B2 PPROP "B2 "SIZE [200 75] PPROP "B2 "TEXT "|QUIT GAME| PPROP "B2 "POSITION [0 -80] PPROP "B2 "RUN [ENDGAME]

END