最好是在全屏下运行，程序应该还是比较容易看懂的
DECLARE SUB Win ()
DECLARE SUB lose ()
DECLARE SUB clearcar (row!, col!)
DECLARE SUB showcar (row!, col!)
DECLARE SUB MoveZ ()
DECLARE SUB MoveM (md!)
DECLARE SUB show (row!, col!)
DECLARE SUB clr (row!, col!)
CONST Left = -1, Right = 1
CONST R0 = 3, C0 = 30

KeyUp$ = CHR$(0) + CHR$(72)
KeyDown$ = CHR$(0) + CHR$(80)
KeyLeft$ = CHR$(0) + CHR$(75)
KeyRight$ = CHR$(0) + CHR$(77)
KeySpace$ = CHR$(32)
KeyEnter$ = CHR$(13)
KeyEsc$ = CHR$(27)

DIM SHARED room(0 TO 18, 2 TO 9) AS INTEGER
DIM SHARED shape(-1 TO 3, 0 TO 2) AS INTEGER
DIM SHARED zd(0 TO 3) AS INTEGER   '存放赛车位置 左边/右边
DIM SHARED mrow, mcol, zc

CLS
RANDOMIZE TIMER
REM 画边框
COLOR 11
LOCATE R0, C0 + 1: PRINT CHR$(201) + STRING$(20, 205) + CHR$(187)
FOR row = 1 TO 18
  LOCATE R0 + row, C0 + 1: PRINT CHR$(186) + "[]"; SPC(16); "[]" + CHR$(186)
NEXT row
LOCATE R0 + 19, C0 + 1: PRINT CHR$(200) + STRING$(20, 205) + CHR$(188)

COLOR 10
FOR row = 1 TO 18 STEP 3
  room(row, 2) = 0
  CALL clr(row, 2)
  CALL clr(row, 9)
  FOR i = 1 TO 2
    room(row + i, 2) = 1
    CALL show(row + i, 2)
    CALL show(row + i, 9)
  NEXT i
NEXT row
REM 赛车形状
FOR i = -1 TO 3
  FOR j = 0 TO 2
    READ x$
    shape(i, j) = VAL(x$)
  NEXT j
NEXT i
DATA 0,0,0                            '赛车向下移动时 擦除最上一行
DATA 0,1,0
DATA 1,1,1
DATA 0,1,0
DATA 1,0,1

mrow = 15: mcol = 3
COLOR 10
CALL showcar(mrow, mcol)
score = -1
zc = 9
DO
  IF zc = 5 THEN score = score + 1
  LOCATE 1, 1: PRINT score
  IF score = 30 THEN Win

  zc = zc + 1
  IF zc = 10 THEN                     '两辆赛车间相隔10行
    zc = 0
    zd(0) = INT(2 * RND) * 2 - 1      '产生-1，1
    FOR i = 3 TO 1 STEP -1
      zd(i) = zd(i - 1)
    NEXT i
  END IF

  CALL MoveZ

  tim = TIMER + .06
  DO
    key$ = INKEY$
    SELECT CASE key$
      CASE KeyUp$, KeySpace$
      CASE KeyDown$
      CASE KeyLeft$
        CALL MoveM(Left)
      CASE KeyRight$
        CALL MoveM(Right)
      CASE KeyEnter$
        DO WHILE INKEY$ = ""
        LOOP
      CASE KeyEsc$
        END
    END SELECT
  LOOP WHILE TIMER < tim
LOOP
END