无耻!!!!!!!!!!!

CLS
RANDOMIZE TIMER
w = 20: h = 20
DIM a(w + 1, h + 1)
CLS : SCREEN 0, 1:  WIDTH 40, 25
LOCATE 5, 13: PRINT "Welcome to Maze"
DO: LOOP WHILE INKEY$ = ""
CLS
FOR y = 1 TO h
FOR x = 1 TO w
a(x, y) = SGN(INT(RND * 6) - 5) + 1
IF a(x, y) = 1 THEN PRINT "0"; :  ELSE PRINT " ";
NEXT x
PRINT
NEXT y
a(5, 10) = 2
a(15, 15) = 3
a(12, 4) = -1
m = 5: n = 10
o = 15: p = 15
DO
CLS
IF k$ = CHR$(0) + "K" AND a(m - 1, n) <= 0 AND m > 1 THEN a(m - 1, n) = 2: a(m, n) = 0: m = m - 1
IF k$ = CHR$(0) + "M" AND a(m + 1, n) <= 0 AND m < w THEN a(m + 1, n) = 2: a(m, n) = 0: m = m + 1
IF k$ = CHR$(0) + "H" AND a(m, n - 1) <= 0 AND n > 1 THEN a(m, n - 1) = 2: a(m, n) = 0: n = n - 1
IF k$ = CHR$(0) + "P" AND a(m, n + 1) <= 0 AND n < h THEN a(m, n + 1) = 2: a(m, n) = 0: n = n + 1
IF m = 12 AND n = 4 THEN END
u = INT(RND * 4)
IF u = 0 AND a(o - 1, p) = 0 AND o > 1 THEN a(o - 1, p) = 3: a(o, p) = 0: o = o - 1
IF u = 1 AND a(o + 1, p) = 0 AND o < w THEN a(o + 1, p) = 3: a(o, p) = 0: o = o + 1
IF u = 2 AND a(o, p - 1) = 0 AND p > 1 THEN a(o, p - 1) = 3: a(o, p) = 0: p = p - 1
IF u = 3 AND a(o, p + 1) = 0 AND p < h THEN a(o, p + 1) = 3: a(o, p) = 0: p = p + 1
FOR y = 1 TO h
FOR x = 1 TO w
IF a(x, y) = 1 THEN COLOR 2: PRINT CHR$(5);
IF a(x, y) = 0 THEN PRINT " ";
IF a(x, y) = 2 THEN COLOR 7: PRINT CHR$(1);
IF a(x, y) = 3 THEN COLOR 5: PRINT CHR$(2);
IF a(x, y) = -1 THEN COLOR INT(RND * 15) + 16: PRINT CHR$(127);
NEXT x
PRINT
NEXT y
FOR dly = 1 TO 1000: NEXT dly
DO
k$ = INKEY$
LOOP UNTIL k$ <> ""
LOOP UNTIL k$ = CHR$(27)

是的,不错

DECLARE SUB changecolor (c!, t!)
DECLARE SUB win ()
DECLARE SUB lose ()
DIM SHARED circlecolor0, squarecolor0
CLS
SCREEN 12
bomb = 20
LOCATE 13, 30: PRINT "Loading..."
FOR i = 1 TO 1000000: NEXT i: CLS
squarecolor = 1: circlecolor = 1
LOCATE 1, 1: PRINT "bomb:"; bomb
LINE (270, 20)-(320, 70), squarecolor, BF
CIRCLE (300, 400), 30, circlecolor
PAINT (300, 400), circlecolor
DO
  FOR i = 1 TO 300000: NEXT i
  CALL changecolor(1, INT(RND * 15) + 1)
  d$ = INKEY$: d$ = UCASE$(d$)
  IF d$ >= "1" AND d$ <= "9" OR d$ >= "A" AND d$ <= "F" THEN
     f = INSTR("123456789ABCDEF", d$)
     CALL changecolor(2, f)
     LINE (270, 20)-(320, 70), squarecolor0, BF
     squarecolor = squarecolor0
  ELSEIF d$ = "K" THEN
     LOCATE 13, 10: PRINT "Square"; squarecolor; "VS circle"; circlecolor;
     IF squarecolor = circlecolor THEN
        PRINT "--> Success!"
        bomb = bomb + 3
        IF bomb >= 40 THEN CALL win
     ELSE
        PRINT "--> Fail!"
        bomb = bomb - 1
        IF bomb = 0 THEN CALL lose
     END IF
     k$ = INPUT$(1)
     LOCATE 13, 10: PRINT "                                                       "
     LOCATE 1, 1: PRINT "bomb:"; bomb
  END IF
  CIRCLE (300, 400), 30, circlecolor0
  PAINT (300, 400), circlecolor0
  circlecolor = circlecolor0
LOOP
END

SUB changecolor (c, t)
IF c = 1 THEN
   CIRCLE (300, 400), 30, 0
   PAINT (300, 400), 0
   circlecolor0 = t
ELSE
   LINE (270, 20)-(320, 70), 0, BF
   squarecolor0 = t
END IF
END SUB

SUB lose
    CLS
    LOCATE 5, 5: PRINT "You lose!"
    END
END SUB

SUB win
    CLS
    LOCATE 5, 5: PRINT "You win!"
    END
END SUB

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$(186); SPC(20); CHR$(186)
  COLOR 0: LOCATE R0 + row, C0 + 2: PRINT fk$; : COLOR 11
NEXT row
LOCATE R0 + 19, C0 + 1: PRINT CHR$(200) + STRING$(20, 205) + CHR$(188)

ptr = 160 * (R0 - 1) + 2 * (C0 - 1) + 1
FOR row = 0 TO 18
  BasePtr(row) = ptr
  ptr = ptr + 160
NEXT row
DEF SEG = &HB800
FOR row = 1 TO 18 STEP 4
  FOR dr = 0 TO 1
    ptr = BasePtr(row + dr)
    POKE ptr + 4, 10
    POKE ptr + 6, 10
    POKE ptr + 40, 10
    POKE ptr + 42, 10
  NEXT dr
NEXT row
DEF SEG

REM 
FOR i = 0 TO 4
  FOR j = 0 TO 2
    READ x$
    shape(i, j) = VAL(x$)
  NEXT j
NEXT   
DATA 0,0,0                           
DATA 0,1,0
DATA 1,1,1
DATA 0,1,0
DATA 1,0,1

mrow = 14: mcol = 3
CALL showcar(mrow, mcol, 12)
count = 0
score = 0
delaytime = .06
DO
  IF count = 0 THEN score = score + 1
  LOCATE 1, 1: PRINT score
  IF score = 50 THEN Win

  count = count + 1
  IF count = S0 THEN                     
    count = 0
    car(0).col = INT(2 * RND) * 3 + 3      
    car(0).row = 0
    FOR i = 3 TO 1 STEP -1
      car(i).row = car(i - 1).row
      car(i).col = car(i - 1).col
    NEXT i
  END IF

  CALL MoveZ

  tim = TIMER + delaytime
  DO
    k = INP(&H60)
    IF k < 128 THEN
      state(k) = 1
    ELSE
      state(k - 128) = 0
    END IF
    IF state(KeyLeft) THEN
      CALL MoveM(Left)
      state(KeyLeft) = 0
    END IF
    IF state(KeyRight) THEN
      CALL MoveM(Right)
      state(KeyRight) = 0
    END IF
    IF state(KeySpace) THEN
      delaytime = .01
    END IF
    IF state(KeySpace) = 0 THEN
      delaytime = .06
    END IF
    IF state(KeyEnter) THEN
       DO WHILE INKEY$ = ""
       LOOP
       state(KeyEnter) = 0
    END IF
    IF state(KeyEsc) THEN
       END
    END IF
  LOOP WHILE TIMER < tim
LOOP
END

SUB MoveM (md)
  canmove = 1
  IF mcol = 3 AND md = Left THEN EXIT SUB
  IF mcol = 6 AND md = Right THEN EXIT SUB
  FOR i = 3 TO 1
    IF ABS(car(i).row - mrow) < 4 AND car(i).col <> mcol THEN
      canmove = 0
      EXIT FOR
    END IF
   NEXT i
  IF canmove THEN
    CALL showcar(mrow, mcol, 0)
    mcol = mcol + 3 * md
    CALL showcar(mrow, mcol, 12)
  END IF
END SUB

SUB MoveZ
  FOR i = 1 TO 3
    car(i).row = count + S0 * (i - 1)           
    zrow = car(i).row: zcol = car(i).col
    CALL showcar(zrow, zcol, 10)
    IF ABS(car(i).row - mrow) < 4 AND car(i).col = mcol THEN Lose
  NEXT i
  
  REM 
  DEF SEG = &HB800
  ptr = BasePtr(4): x = PEEK(ptr + 4)
  ptr = BasePtr(0): POKE ptr + 4, x
  FOR row = 18 TO 1 STEP -1
    ptr = BasePtr(row - 1)
    x = PEEK(ptr + 4)
    ptr = BasePtr(row)
    POKE ptr + 4, x
    POKE ptr + 6, x
    POKE ptr + 40, x
    POKE ptr + 42, x
  NEXT row
  DEF SEG
END SUB

SUB showcar (row, col, c)
  st = 0: en = 4
  IF col <> 3 AND col <> 6 THEN EXIT SUB
  IF row = mrow AND col = mcol THEN
    st = 1
  ELSE
    IF row < 1 THEN st = 1 - row
    IF row > 14 THEN en = 18 - row
    IF st > en THEN EXIT SUB
  END IF
  DEF SEG = &HB800
  FOR i = st TO en
    ptr = BasePtr(row + i) + 4 * col
    FOR j = 0 TO 2
      POKE ptr + 4 * j, c * shape(i, j)
      POKE ptr + 4 * j + 2, c * shape(i, j)
    NEXT j
  NEXT i
  DEF SEG
END SUB

SUB Win
  LOCATE 23, 1: PRINT "Win"
  END
END SUB

SUB Lose
  LOCATE 23, 1: PRINT "Lose"
  END
END SUB 

CLS
RANDOMIZE TIMER
SCREEN 12
1 INPUT "Input level:"; level
IF level < 1 OR level > 5 OR level <> INT(level) THEN LOCATE 1, 1: GOTO 1
CLS
COLOR 4: LOCATE 4, 35: PRINT "level"; level
SLEEP 5
CLS
LINE (100, 100)-(200, 250), 14, BF
LINE (275, 100)-(375, 250), 14, BF
LINE (450, 100)-(550, 250), 14, BF
s1 = INT(RND * 9) + 2: s2 = INT(RND * 3) + 1
COLOR 7: DIM s(3)
FOR i = 1 TO 3
    LOCATE 8, 13 + (i - 1) * 22
    IF i = s2 THEN PRINT " A ": s(i) = 1 ELSE PRINT s1: s(i) = s1
NEXT i
SLEEP 3
m = 0
CLS
DO
  LINE (100, 100)-(200, 250), 14, BF
  LINE (275, 100)-(375, 250), 14, BF
  LINE (450, 100)-(550, 250), 14, BF
  k1 = INT(RND * 3) + 1
2 k2 = INT(RND * 3) + 1
  IF k2 = k1 THEN 2
  FOR i = 1 TO 3
      IF i = k1 OR i = k2 THEN
         LINE (100 + (i - 1) * 175, 100)-(200 + (i - 1) * 175, 250), 4, BF
      END IF
  NEXT i
  SLEEP 1
  CLS
  LINE (100, 100)-(200, 250), 14, BF
  LINE (275, 100)-(375, 250), 14, BF
  LINE (450, 100)-(550, 250), 14, BF
  FOR i = 1 TO (6 - level) * 75000: NEXT i
  SWAP s(k1), s(k2)
  m = m + 1
LOOP UNTIL m = 5 + level * 2
CLS
INPUT "Input 'A' situation:"; s
f = 1
FOR i = 1 TO 3
    IF s(i) = 1 AND i = s THEN PRINT "Right!": f = 0: EXIT FOR
NEXT i
IF f THEN
   PRINT "Wrong!Right is";
   FOR i = 1 TO 3
       IF s(i) = 1 THEN PRINT i
   NEXT i
END IF
END

4楼抄我的……

CLS
RANDOMIZE TIMER
SCREEN 12
1 INPUT "Input level:"; level
IF level < 1 OR level > 5 OR level <> INT(level) THEN LOCATE 1, 1: GOTO 1
CLS
COLOR 4: LOCATE 4, 35: PRINT "level"; level
SLEEP 5
CLS
LINE (100, 100)-(200, 250), 14, BF
LINE (275, 100)-(375, 250), 14, BF
LINE (450, 100)-(550, 250), 14, BF
s1 = INT(RND * 9) + 2: s2 = INT(RND * 3) + 1
COLOR 7: DIM s(3)
FOR i = 1 TO 3
    LOCATE 8, 13 + (i - 1) * 22
    IF i = s2 THEN PRINT " A ": s(i) = 1 ELSE PRINT s1: s(i) = s1
NEXT i
SLEEP 3
m = 0
CLS
DO
  LINE (100, 100)-(200, 250), 14, BF
  LINE (275, 100)-(375, 250), 14, BF
  LINE (450, 100)-(550, 250), 14, BF
  k1 = INT(RND * 3) + 1
2 k2 = INT(RND * 3) + 1
  IF k2 = k1 THEN 2
  FOR i = 1 TO 3
      IF i = k1 OR i = k2 THEN
         LINE (100 + (i - 1) * 175, 100)-(200 + (i - 1) * 175, 250), 4, BF
      END IF
  NEXT i
  SLEEP 1
  CLS
  LINE (100, 100)-(200, 250), 14, BF
  LINE (275, 100)-(375, 250), 14, BF
  LINE (450, 100)-(550, 250), 14, BF
  FOR i = 1 TO (6 - level) * 75000: NEXT i
  SWAP s(k1), s(k2)
  m = m + 1
LOOP UNTIL m = 5 + level * 2
CLS
INPUT "Input 'A' situation:"; s
f = 1
FOR i = 1 TO 3
    IF s(i) = 1 AND i = s THEN PRINT "Right!": f = 0: EXIT FOR
NEXT i
IF f THEN
   PRINT "Wrong!Right is";
   FOR i = 1 TO 3
       IF s(i) = 1 THEN PRINT i
   NEXT i
END IF
END

游戏简介:
    这是一个双人对抗游戏
　　各有20条生命和25发高空炮，发完后只可进行零距离攻击
　　在两辆坦克相撞时可进行零距离攻击
　　如果两辆坦克距离很近，那么所发的高空炮就会打到外面去
按键：
1P:  W上 A左 S下 D右  SPACE发射
2P:  (辅助键区）8上 4左 5下 6右  ENTER发射

由于NT核心与DOS核心，在默认情况下运行DOS程序，速度有所差异(前者比后者快)  
在玩游戏时按键p可加速以此来适应各个操作系统(默认速度为适合NT核心，修改后就不能再改回了）
游戏不完善之处请各位高手加以指教。

DECLARE SUB ankey2 (ke)
DECLARE SUB ankey1 (ke)
DECLARE SUB htu (b1!, b2!, b3!, b4!)
DECLARE SUB jz1 ()
DECLARE SUB jz2 ()
SCREEN 12
COLOR 9
LOCATE 1, 57: PRINT "IGDX tank - II"
'---ditu--
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,1,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,1
DATA 1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,0,0,1,1,1,1,1,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1
DATA 1,0,0,1,1,1,1,0,0,0,1,1,1,1,0,0,1,0,0,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DIM SHARED t1s(120), t2x(120), t3z(120), t4y(120)
DIM SHARED tas(120), tbx(120), tcz(120), tdy(120)
DIM SHARED zdy(40)
'hua si ge fang xiang de tank
't1  shang---------------
LINE (0, 0)-(27, 27), 0, BF
LINE (7, 11)-(21, 25), 2, BF
LINE (13, 2)-(15, 12), 2, BF
FOR i = 2 TO 12 STEP 2
  LINE (7, 11 + i)-(9, 11 + i), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (19, 11 + i)-(21, 11 + i), 0
NEXT
GET (0, 0)-(27, 27), t1s              'du ru shu zhu
't2 xia------------
LINE (0, 0)-(27, 27), 0, BF
LINE (7, 2)-(21, 16), 2, BF
LINE (13, 15)-(15, 25), 2, BF
FOR i = 2 TO 12 STEP 2
  LINE (7, 2 + i)-(9, 2 + i), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (19, 2 + i)-(21, 2 + i), 0
NEXT
GET (0, 0)-(27, 27), t2x
't3 zuo---------
LINE (0, 0)-(27, 27), 0, BF
LINE (11, 7)-(25, 21), 2, BF
LINE (2, 13)-(12, 15), 2, BF
FOR i = 2 TO 12 STEP 2
  LINE (11 + i, 7)-(11 + i, 9), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (11 + i, 19)-(11 + i, 21), 0
NEXT
GET (0, 0)-(27, 27), t3z
't4 --------------------
LINE (0, 0)-(27, 27), 0, BF
LINE (2, 7)-(16, 21), 2, BF
LINE (15, 13)-(25, 15), 2, BF
FOR i = 2 TO 12 STEP 2
  LINE (2 + i, 7)-(2 + i, 9), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (2 + i, 19)-(2 + i, 29), 0
NEXT
GET (0, 0)-(27, 27), t4y
'tk2-------------
'ta  shang---------------
LINE (0, 0)-(27, 27), 0, BF
LINE (7, 11)-(21, 25), 4, BF
LINE (13, 2)-(15, 12), 4, BF
FOR i = 2 TO 12 STEP 2
  LINE (7, 11 + i)-(9, 11 + i), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (19, 11 + i)-(21, 11 + i), 0
NEXT
GET (0, 0)-(27, 27), tas
'tb xia------------
LINE (0, 0)-(27, 27), 0, BF
LINE (7, 2)-(21, 16), 4, BF
LINE (13, 15)-(15, 25), 4, BF
FOR i = 2 TO 12 STEP 2
  LINE (7, 2 + i)-(9, 2 + i), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (19, 2 + i)-(21, 2 + i), 0
NEXT
GET (0, 0)-(27, 27), tbx
'tc zuo---------
LINE (0, 0)-(27, 27), 0, BF
LINE (11, 7)-(25, 21), 4, BF
LINE (2, 13)-(12, 15), 4, BF
FOR i = 2 TO 12 STEP 2
  LINE (11 + i, 7)-(11 + i, 9), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (11 + i, 19)-(11 + i, 21), 0
NEXT
GET (0, 0)-(27, 27), tcz
'td you--------------------
LINE (0, 0)-(27, 27), 0, BF
LINE (2, 7)-(16, 21), 4, BF
LINE (15, 13)-(25, 15), 4, BF
FOR i = 2 TO 12 STEP 2
  LINE (2 + i, 7)-(2 + i, 9), 0
NEXT
FOR i = 2 TO 12 STEP 2
  LINE (2 + i, 19)-(2 + i, 29), 0
NEXT
GET (0, 0)-(27, 27), tdy
LINE (0, 0)-(27, 27), 0, BF
'zdy--------
CIRCLE (3, 3), 2, 12
PAINT (2, 3), 12
GET (1, 1)-(5, 5), zdy
LINE (0, 0)-(27, 27), 0, BF
'---------------
DIM SHARED tu%(20, 14)
FOR i = 1 TO 14
FOR j = 1 TO 20
  READ tus
tu%(j, i) = tus
NEXT j, i
'hua tu --------------
FOR i = 1 TO 14              'hua di tu
FOR j = 1 TO 20
  IF tu%(j, i) = 1 THEN
    CALL htu(j * 28, i * 28, j * 28 + 28, i * 28 + 28)
  END IF
NEXT j, i

没有发送完整!!
请见      回贴就加分!!!![原创]坦克之最 [ 2 3 4 ]

CLS
RANDOMIZE TIMER
SCREEN 12
1 INPUT "Input level:"; level
IF level < 1 OR level > 5 OR level <> INT(level) THEN LOCATE 1, 1: GOTO 1
CLS
COLOR 4: LOCATE 4, 35: PRINT "level"; level
SLEEP 5
CLS
LINE (100, 100)-(200, 250), 14, BF
LINE (275, 100)-(375, 250), 14, BF
LINE (450, 100)-(550, 250), 14, BF
s1 = INT(RND * 9) + 2: s2 = INT(RND * 3) + 1
COLOR 7: DIM s(3)
FOR i = 1 TO 3
    LOCATE 8, 13 + (i - 1) * 22
    IF i = s2 THEN PRINT " A ": s(i) = 1 ELSE PRINT s1: s(i) = s1
NEXT i
SLEEP 3
m = 0
CLS
DO
  LINE (100, 100)-(200, 250), 14, BF
  LINE (275, 100)-(375, 250), 14, BF
  LINE (450, 100)-(550, 250), 14, BF
  k1 = INT(RND * 3) + 1
2 k2 = INT(RND * 3) + 1
  IF k2 = k1 THEN 2
  FOR i = 1 TO 3
      IF i = k1 OR i = k2 THEN
         LINE (100 + (i - 1) * 175, 100)-(200 + (i - 1) * 175, 250), 4, BF
      END IF
  NEXT i
  SLEEP 1
  CLS
  LINE (100, 100)-(200, 250), 14, BF
  LINE (275, 100)-(375, 250), 14, BF
  LINE (450, 100)-(550, 250), 14, BF
  FOR i = 1 TO (6 - level) * 75000: NEXT i
  SWAP s(k1), s(k2)
  m = m + 1
LOOP UNTIL m = 5 + level * 2
CLS
INPUT "Input 'A' situation:"; s
f = 1
FOR i = 1 TO 3
    IF s(i) = 1 AND i = s THEN PRINT "Right!": f = 0: EXIT FOR
NEXT i
IF f THEN
   PRINT "Wrong!Right is";
   FOR i = 1 TO 3
       IF s(i) = 1 THEN PRINT i
   NEXT i
END IF
END