_KEYCLEAR

This commit is contained in:
Stephen MacKenzie 2019-04-15 21:25:29 -07:00 committed by GitHub
parent 43b5c16d8d
commit 362bcd5240
1 changed files with 4 additions and 4 deletions

View File

@ -217,14 +217,12 @@ REM 349 WAVE 0,SIN
550 CLS
551 PUT (180, 70), B()
553 PRINT "CHOOSE YOUR AREA NOW.": GOSUB 400
554 CHX = 0
555 CHY = 0
556 B = 0
554 CHX = 0: CHY = 0: B = 0
555 _KEYCLEAR
557 GetXY CHX, CHY
REM 559 IF B <> -1 THEN 555
REM use GetCoords to determine mouse coordinates 560 GetCoords
REM dummy to exit while getting coordinates 561 GOSUB 20000
564
REM 570 IF CHX > 210 AND CHX < 225 AND CHY > 200 AND CHY < 220 THEN 1000
570 IF CHX > 236 AND CHX < 252 AND CHY > 75 AND CHY < 100 THEN 1000
@ -920,3 +918,5 @@ SUB GetCoords
WEND
END SUB