'🟠🟠🟠  Declarations

DECLARE FUNCTION GetZone$()

'🟠🟠🟠  Main Program

FOR I = 0 TO 14
  LINE (I * 40, 0) - (I*40+39,200 ), I + 1, BF
NEXT I
 
again:

    LOCATE 15, 0
    msg$ = "MOUSE IS IN ZONE: " + GetZone$() + " I.E. x = " + _MOUSEX + " and y = " + _MOUSEY 
    PRINT msg$ + SPC(80 - LEN(msg$))
    _DISPLAY
    
GOTO again

'🟠🟠🟠  Functions

FUNCTION GetZone$()
  this$ = "none"
  I = 1
  DO
    IF _MOUSEZONE( [ (I - 1) * 40 ], 0, 40, 199 ) THEN this$ = STR$(I) ELSE I = I + 1
  LOOP UNTIL I > 15 OR this$ <> "none"
  GetZone$ = this$
END FUNCTION