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"