sleep tweaks

AFRICA_FIXED.BAS

@@ -200,33 +200,32 @@ REM 349 WAVE 0,SIN
 517 PRINT " THERE WILL BE SEVEN REGIONS TO STUDY--TWO WHOLE AREA ONES"
 519 PRINT "  OR THE SEPARATE  REGIONS IDENTIFIED BY LETTERS."
 520 GOSUB 390
-523 SLEEP
+521 DURA = 5
+523 SLEEP DURA
 525 CLS
 530 PUT (180, 70), B()
 535 PRINT "YOU MAY CHOOSE AN AREA TO DO BY PLACING THE MOUSE ARROW OVER THE"
 537 PRINT "LETTER FOR AN AREA AND CLICKING THE BUTTON A MOMENT."
 538 GOSUB 390
-539 SLEEP
+539 SLEEP DURA
 540 CLS
 541 PUT (180, 70), B()
 542 PRINT "TO GET THE WHOLE AREA IN GENERAL, CLICK EITHER LETTER 'A'  "
 543 PRINT "IN THE SPACE WEST OF AFRICA."
 544 GOSUB 400
-545 SLEEP
+545 SLEEP DURA
 550 CLS
 551 PUT (180, 70), B()
 553 PRINT "CHOOSE YOUR AREA NOW.": GOSUB 400
 554 CHX = 0
 555 CHY = 0
 556 B = 0
-REM 557 Mouser CHX, CHY, B
+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
-562 CHX = 0
-563 CHY = 0
 564
-565 GetXY CHX, CHY
+
 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
 571 IF CHX > 210 AND CHX < 225 AND CHY > 225 AND CHY < 250 THEN 572 ELSE GOTO 573
@@ -898,6 +897,7 @@ SUB Mouser (x, y, b)
 END SUB
 
 SUB GetXY (x, y)
+
     DO
         i = _MOUSEINPUT
         IF _MOUSEBUTTON(1) THEN
@@ -906,10 +906,10 @@ SUB GetXY (x, y)
             EXIT DO
         END IF
     LOOP
+
     DO
         i = _MOUSEINPUT
     LOOP UNTIL NOT _MOUSEBUTTON(1)
-
 END SUB
 SUB GetCoords
     x = 0: y = 0