DEFINT A-Z

RANDOMIZE TIMER

DIM Life(1 TO 80) AS INTEGER

GameOver = 1
CLS
COLOR 0, 7
LOCATE 25, 1: PRINT SPACE$(80);
DO
x = INT(RND * 80) + 1
y = INT(RND * 26) + 1
c = INT(RND * 7) + 1
COLOR c + 8, 0
LOCATE 1, x: PRINT CHR$(64 + y)
FOR i = 1 TO 24
   FOR j& = 1 TO 600000: NEXT j&        '延迟调这里
   LOCATE i, x: PRINT " "
   a$ = INKEY$
   IF a$ = CHR$(27) THEN GOTO over
   IF UCASE$(a$) = CHR$(64 + y) THEN
      EXIT FOR
   END IF
   LOCATE i + 1, x: PRINT CHR$(64 + y);
NEXT i
IF i = 25 THEN Life(x) = 1
FOR o = 1 TO 80
   IF Life(o) = 0 THEN
      GameOver = -1
      EXIT FOR
   END IF
NEXT o
IF GameOver = 1 THEN
   GOTO over
ELSE
   GameOver = 1
END IF
a$ = ""
LOOP
over:
CLS
COLOR 12, 0
LOCATE 12, 35:  PRINT "Game Over:)"
END