要QBASIC GAME 快

你想要多少
　　赛车
　　DECLARE SUB showcar (row!, col!, c!)
　　DECLARE SUB Win ()
　　DECLARE SUB MoveZ ()
　　DECLARE SUB MoveM (md!)
　　DECLARE SUB Lose ()

　　CONST R0 = 3, C0 = 30, S0 = 12
　　CONST Left = -1, Right = 1
　　CONST KeyUp = 72, KeyDown = 80, KeyLeft = 75, KeyRight = 77
　　CONST KeySpace = 57, KeyEnter = 28, KeyEsc = 1

　　TYPE cartype
　　row AS INTEGER
　　col AS INTEGER
　　END TYPE

　　DIM SHARED car(0 TO 3) AS cartype
　　DIM SHARED state(127) AS INTEGER
　　DIM SHARED BasePtr(0 TO 18) AS INTEGER
　　DIM SHARED shape(0 TO 4, 0 TO 2) AS INTEGER
　　DIM SHARED mrow, mcol, count

　　CLS
　　RANDOMIZE TIMER
　　REM
　　fk$ = "[][][][][][][][][][]"
　　COLOR 11
　　LOCATE R0 - 1, C0 + 1: PRINT CHR$(201) + STRING$(20, 205) + CHR$(187)
　　LOCATE R0, C0 + 1: PRINT CHR$(186); SPC(20); CHR$(186)
　　FOR row = 1 TO 18
　　LOCATE R0 + row, C0 + 1: PRINT CHR$(