LS
SCREEN 12
INPUT k: f = 3
RANDOMIZE TIMER
a(0) = 324 - 41: a(1) = 324
b(0) = 37: b(1) = 42
x = 324: a = 324: b = 0: w = INT(RND * 7)
DO
LOCATE 1, 1: PRINT "MIN="; f
LINE (279, 0)-(359, 640), 7, BF
LINE (x, 318)-(x + 34, 398), k, BF
LINE (x + 2, 348)-(x + 32, 378), ABS(k = 0), BF
LINE (x + 4, 360)-(x + 30, 375), k, BF
LINE (a, b)-(a + 34, b + 80), w, BF
LINE (a + 2, b + 20)-(a + 32, b + 50), ABS(w = 0), BF
LINE (a + 4, b + 23)-(a + 30, b + 38), w, BF
LOCATE 21, b(ABS(x = 324)): PRINT k
b = b + 30
IF b > 640 THEN a = a(INT(RND * 2)): b = 0: w = INT(RND * 7)
IF a = x AND b <= 398 AND b >= 258 THEN
a = a(INT(RND * 2)): b = 0: w = INT(RND * 7): f = f - 1
IF f = 0 THEN LOCATE 15, 35: PRINT "GAME OVER": END
END IF
FOR i = 1 TO 300000: NEXT i
k$ = INKEY$
IF k$ = CHR$(0) + "K" AND x = a(1) THEN x = x - 41
IF k$ = CHR$(0) + "M" AND x = a(0) THEN x = x + 41
IF k$ = CHR$(27) THEN END
LOOP