Macintosh-SW/MrCBASIC
1
0
Fork 0
mirror of https://github.com/stevemac321/MrCBASIC.git synced 2024-06-11 18:29:32 +00:00
Code Issues Projects Releases Wiki Activity

_KEYCLEAR

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
AFRICA_FIXED.BAS
View File

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