08-22-2024, 05:28 PM
We don' need no stinking nests...
It seems like really, really bad form to me, but it compiles and runs...
Code: (Select All)
SCREEN _NEWIMAGE(500, 500, 32)
$COLOR:32
DO
CLS
LINE (200, 200)-(300, 300), Green, BF
WHILE _MOUSEINPUT: WEND
x = _MOUSEX: y = _MOUSEY
IF x > 200 THEN IF x < 300 THEN IF y > 200 THEN IF y < 300 THEN _PRINTSTRING (240, 240), "OK!"
_LIMIT 30
_DISPLAY
LOOP UNTIL _MOUSEBUTTON(1) OR _KEYDOWN(27)
DO: LOOP: DO: LOOP
sha_na_na_na_na_na_na_na_na_na:
sha_na_na_na_na_na_na_na_na_na: