简单的拉!
CLS
REM TanKe(1)
PRINT "Fan kong jin yin....."
DO: LOOP UNTIL INKEY$ <> ""
CLS
PRINT "Teach the TaKe:"
PRINT "1:"
PRINT "-------------"
PRINT "[ ====~~~   ]"
PRINT "[    ~~~~~  ]"
PRINT "[   ooooooo ]"
PRINT "-------------"
PRINT "2:"
PRINT "-------------"
PRINT "[ \         ]"
PRINT "[  \        ]"
PRINT "[   \       ]"
PRINT "[    ####   ]"
PRINT "-------------"
INPUT "Witch TanKe do you like?", a$
DO
LOOP UNTIL INKEY$ <> ""
CLS
IF a$ = "1" THEN
  PRINT "    ~~~    "
  PRINT "    ~~~~~  "
  PRINT "   ooooooo =====";
ELSE
  PRINT "          /"
  PRINT "         / "
  PRINT "        /  "
  PRINT "    ####   "
  PRINT "   000000 --- ";
END IF
DO
  IF INKEY$ = "6" THEN
    FOR i = 1 TO 10
      PRINT TAB(i); "*";
      FOR j = 1 TO 5000000
      NEXT j
     IF i = 10 THEN EXIT DO
    NEXT i
    END IF
LOOP