100 INIT
110 RANDOMIZE
120 C$=" "
130 DO
140  LOCATE 0,0
150  PRINT "  SCORE:";SCORE
160  PRINT "  "+C$+":"+REPEAT$(" ",30-LEN(S$))+S$
170  IF LEN(S$)>=30 THEN EXIT DO
180  IF COUNT<SPEED+1 THEN S$=S$+CHR$(INT(RND*94+33))
190  A$=INKEY$
200  IF A$>CHR$(32) AND A$<CHR$(127) AND A$<>A0$ THEN
210   C$=A$
220   IF A$=S$(1:1) THEN
230    SCORE=SCORE+1
240    S$=S$(2:LEN(S$))
250    SEPLAY 1,255,255
260   ELSEIF A$<>S$(1:1) THEN
270    SEPLAY 2,255,255
280   END IF
290  END IF
300  A0$=A$
310  SPEED=SCORE/100
320  COUNT=MOD(COUNT+SPEED+1,60)
330  FSYNC 1
340 LOOP
350 PRINT "GAME OVER"
360 END