SET CURSOR OFF
COLOR FOREGROUND 15
COLOR BACKGROUND 4
COLOR ATTRIBUTE 79
GOXY 3 22 DRAW BOX 45 2

IF mouseuse EQ 1 DO JUMPMARK 1

; Keyboard input
GOXY 4 23 WRITE "Push any key to continue, <Alt> + X to Exit."
READ KEY inkey
JUMPMARK 10

; Mouse input
MARK 1
VARIABLE CREATE mousex TYPE NUMBER 1
VARIABLE CREATE mousey TYPE NUMBER 1
VARIABLE CREATE inrange TYPE NUMBER 0
GOXY 4 23 WRITE "                                            "
COLOR BACKGROUND 3
GOXY 10 23 WRITE " Continue "
GOXY 31 23 WRITE " Exit "
MOUSE ON

MARK 2
MOUSE TRACK 1 mousex mousey
; Check the range
IF mousey NE 23 DO JUMPMARK 2
; Continue button is hit
IF mousex IN 10 19 DO
   VARIABLE VALUE inkey 1
   MATH inrange = 1
END
; Exit button is hit
IF mousex IN 31 36 DO
   VARIABLE VALUE inkey 445
   MATH inrange = 1
END
IF inrange EQ 0 DO JUMPMARK 2

MOUSE OFF

; Clean up after us
VARIABLE RELEASE mousex
VARIABLE RELEASE mousey
VARIABLE RELEASE inrange

MARK 10