_KEYCLEAR
This commit is contained in:
parent
43b5c16d8d
commit
362bcd5240
|
@ -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
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue