sync on : sync rate 110
randomize timer()
 
global word$
global speed#
points=0
movey# = 0
 
dim alphabet$(25)
for let = 0 to 25
 read alphabet$(let)
next let
 
start:
cls
clear entry buffer
movey#=0
word_num(points)
 
do
 cls
 HUD_setup(points)
 enter$=entry$()
 text 450,400,"Enter: "+enter$+""
 text 320,movey#,""+word$+""
 inc movey#,speed#
 if enter$=word$
  points=points+4
  exit
 endif
 if movey#=>375
  exit
 endif
sync
loop
 
 
goto start
 
function HUD_setup(points)
 text 0,380,"---------------------------------------------------------------------------------"
 text 100,400,"Points: "+str$(points)+""
 text 10,370,"DO NOT PRESS ENTER!"
 text 480,370,"DO NOT PRESS ENTER!"
 for y = 1 to 380 step 10
  text 200,y,"I"
  text 450,y,"I"
 next y
endfunction
 
function word_num(points)
 
if points < 19
 three_word()
 speed#=0.7
endif
 
if points < 39
 if points > 19
  four_word()
  speed#=0.9
 endif
endif
 
if points < 59
 if points > 39
  five_word()
  speed#=1.1
 endif
endif
 
if points < 79
 if points > 59
  six_word()
  speed#=1.3
 endif
endif
 
endfunction
 
function three_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction
 
function four_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction
 
function five_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction
 
function six_word()
 word$=alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))+alphabet$(rnd(25))
endfunction
 
 
data "a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"