字符炸弹

Author: 江苏庄建国 Date: 1994-04-15

        在游戏过程中，玩家若想中断游戏，可按〈ESC〉键(按住不放，下同)；若要重新选择速度，可按〈SPACE〉键；若要暂停程序运行，可拍一下〈PAUSE〉键(若您使用的键盘上没有该键，可用〈CTRL〉＋〈CapsLock〉代替)，然后按下除〈PAUSE〉之外的任意键将继续程序运行。
        10 KEY OFF: CLS : RANDOMIZE (TIMER)
        20 LOCATE 9, 13: PRINT "W e l c o m e  t o  t h i s  P R O G R A M  !"
        30 LOCATE 10, 13: PRINT "---------------------------------------------"
        40 LOCATE 20, 25: PRINT "Press a key to begin..."
        50 IF INKEY$ = "" THEN 50
        60 INPUT "How many letters"; NUM: IF NUM < 1 THEN 60
        70 INPUT "Speed(1-9)"; SP: IF SP > 9 OR SP < 1 THEN 70
        80 SPEED = 300 * (10 - SP): M = 1: CLS
        90 FOR T = 1 TO 79
        100 LOCATE 2, T: PRINT CHR$(1)
        110 LOCATE 23, T: PRINT CHR$(2)
        120 NEXT T
        130 WHILE M <= NUM
        140 X = INT(RND * 79) + 1
        150 LETTER$ = CHR$(INT(RND * 93) + 33)
        160 GOSUB 240
        165 M = M + 1
        170 WEND
        180 MARK = W / NUM * 100: CLS : LOCATE 10, 28: PRINT "GAME OVER!":       LOCATE 12, 28
        190 IF MARK >= 80 THEN PRINT " GREAT!" ELSE IF MARK >= 60 THEN PRINT       "NOT TOO BAD."
        210 IF MARK < 60 THEN LOCATE 12, 20: PRINT "Sorry your mark is bad.       Practise more!"
        220 LOCATE 14, 26: PRINT "Your mark:"; MARK; "%"
        230 END
        240 FOR Y = 3 TO 23
        260 LOCATE Y, X: PRINT LETTER$
        270 FOR L = 1 TO SPEED: NEXT L
        280 LOCATE Y, X: PRINT " "
        290 IF INKEY$ = LETTER$ THEN GOSUB 350: RETURN
        300 IF INKEY$ = CHR$(27) THEN CLS : END
        310 IF INKEY$ = CHR$(32) THEN CLS : GOTO 70
        320 IF INKEY$ <> "" THEN BEEP
        330 NEXT Y
        340 RETURN
        350 LOCATE Y, X: PRINT LETTER$
        370 FOR H = 22 TO Y + 1 STEP -1
        380 LOCATE H, X: PRINT CHR$(24): SOUND (23 - H) * 50, .05
        400 LOCATE H, X: PRINT " "
        410 NEXT H
        420 LOCATE H, X: PRINT CHR$(15): SOUND 400, .1: SOUND 100, .1
        440 LOCATE H, X: PRINT " "
        450 W = W + 1
        460 RETURN