DECLARE SUB good (ok2%)
DECLARE SUB wu ()
DECLARE SUB dr ()
DECLARE SUB fd (ao%)
DECLARE SUB xm (ok2%)
DECLARE SUB ke (key$)
SCREEN 12
PAINT (1, 1), 1
CIRCLE (80, 100), 45, 14
PAINT (55, 77), 14
FOR v = 1 TO 500
clr = INT(RND * 16)
x = INT(RND * 640)
y = INT(RND * 480)
PSET (x, y), clr: NEXT
CIRCLE (320, 420), 27, 4, , , 1 / 2
PAINT (320, 420), 4
CIRCLE (320, 415), 13, 9, , , 2 / 3
PAINT (320, 415), 9
CIRCLE (320, 415), 3, 5
PAINT (320, 415), 5
LOCATE 23, 27
PRINT "press any key to start"
DO: k$ = INKEY$: LOOP UNTIL k$ <> ""
LINE (0, 0)-(200, 150), 1, BF
LINE (200, 300)-(500, 380), 1, BF
DIM SHARED ok%, dl%, p1%, p2%, jian%, top!
ok% = 320
DO
IF dl% <= 8 THEN dl% = dl% + 1:  ELSE dl% = dl% - 1
jian% = 0
top! = top! + 1
CALL dr
LOOP

SUB dr
p1% = INT(RND * 561 + 40): p2% = 1
DO
CIRCLE (p1%, p2% + 9), 5, 0, , , 3 / 5
PAINT (p1%, p2% + 9), 0
ttt! = TIMER: DO: tt! = TIMER - ttt!: LOOP UNTIL tt! > .03
key$ = INKEY$: IF key$ <> "" THEN CALL ke(key$)
IF jian% = 1 THEN EXIT SUB
CIRCLE (p1%, p2% + 9), 5, 1, , , 3 / 5
PAINT (p1%, p2% + 9), 1
p2% = p2% + dl%
IF p2% > 416 THEN CALL wu: EXIT SUB
LOOP UNTIL p2% >= 416
END SUB

SUB fd (ao%)
IF ao% = -20 AND ok% <= 40 THEN EXIT SUB
IF ao% = 20 AND ok% >= 600 THEN EXIT SUB
CIRCLE (ok%, 420), 27, 1, , , 1 / 2
PAINT (ok%, 420), 1
CIRCLE (ok%, 415), 13, 1, , , 2 / 3
PAINT (ok%, 415), 1
ok% = ok% + ao%
CIRCLE (ok%, 420), 27, 4, , , 1 / 2
PAINT (ok%, 420), 4
CIRCLE (ok%, 415), 13, 9, , , 2 / 3
PAINT (ok%, 415), 9
CIRCLE (ok%, 415), 3, 5
PAINT (ok%, 415), 5
END SUB

SUB good (ok2%)
LINE (ok2% - 1, 400)-(ok2% + 1, 0), 1, BF
CIRCLE (p1% + 9, p2% + 9), 20, 4
PAINT (p1% + 9, p2% + 9), 4
tt! = TIMER: DO: ttt! = TIMER - tt!: LOOP UNTIL ttt! > .5
CIRCLE (p1% + 9, p2% + 9), 20, 1
PAINT (p1% + 9, p2% + 9), 1
jian% = 1
END SUB

SUB ke (key$)
SELECT CASE key$
CASE CHR$(0) + CHR$(75)
ao% = -20: CALL fd(ao%)
CASE CHR$(13)
ok0% = ok%: CALL xm(ok0%)
CASE CHR$(0) + CHR$(77)
ao% = 20: CALL fd(ao%)
CASE CHR$(27)
CALL wu
END SELECT
END SUB

SUB wu
LINE (1, 395)-(639, 450), 4, BF
DO: LOOP UNTIL INKEY$ <> ""
SCREEN 13
LOCATE 10, 10
PRINT "You of score is"; top!
PRINT TAB(10); "This is i the first game that write"
PRINT TAB(10); "IGDX V1.0"
PRINT TAB(10); "Wang Long"
PRINT TAB(10); "2005-4-7"
DO: LOOP UNTIL INKEY$ <> ""
END
END SUB

SUB xm (ok2%)
d% = 5
DO
LINE (ok2% - 1, 400)-(ok2% + 1, 400 - d%), 14, BF
IF (400 - d% - p2% + 9 <= 5) AND (p1% - ok2% >= -15 AND p1% - ok2% <= 15) THEN
CALL good(ok2%): EXIT SUB
END IF
key$ = INKEY$: IF key$ <> "" THEN CALL ke(key$)
d% = d% + 5
LOOP UNTIL d% >= 401
LINE (ok2% - 1, 400)-(ok2% + 1, 0), 1, BF
END SUB