Sorry your browser is not supported!

randomize timer()

b1=10
b2=165
b3=30
b4=175

set cursor 310,237
print "Press Enter"
do
input "";text$
a=rnd(1)
if a=0
   cls
   match$="Go!"
endif
if a=1
   cls
   match$="Hurry!"
endif
`if a=2
`   cls
`   match$="Move!"
`endif
if text$=match$
      print "yes"
      b1=b1+10
      b3=b3+10
endif
print match$
match$=""
ink rgb(0,350,0),0
box 0,120,640,220
box 0,250,640,350

ink rgb(100,0,0),0
box b1,b2,b3,b4
ink rgb(250,250,250),0

loop

`randomize by timer seed
randomize timer()
`set default positions
b1=10
b2=165
b3=30
b4=175
`begin screen
set cursor 310,237
print "Press Enter"
`main loop
do
	set cursor 0, 15
	`get input from user
	input "",textstr$
	`clear screen
	cls
	`if input matches random selection then move
	if match$<>""
	   if textstr$=match$
	      set cursor 0, 30
	      print "yes"
	      b1=b1+10
	      b3=b3+10
	   endif
	endif
	`reset match$ after moving
	match$=""
	`choose which needs to be matched
	a=rnd(2)
	if a=0
	   match$="Go!"
	endif
	if a=1
	   match$="Hurry!"
	endif
	if a=2
	   match$="Move!"
	endif
	`print selected match string
	set cursor 0,0
	print match$
	`draw road
	ink rgb(0,350,0),0
	box 0,120,640,220
	box 0,250,640,350
	`draw car
	ink rgb(100,0,0),0
	box b1,b2,b3,b4
	ink rgb(250,250,250),0
loop

do
check for input text
choose a random string to match
clear screen
see if text = match
print match
clear match
draw boxs
loop

do
check for input text
clear screen
see if text = match
clear match
choose a random string to match
print match
draw boxs
loop

if scancode() > 0
    REM << clear the entry buffer, because it holds all last characters pressed, until cleared
    clear entry buffer
    REM << grab character currently being pressed from entry buffer
    char$ = entry$()
    REM << backspace is not automatic in this process, you have to create the effect yourself;check if backspace key is being pressed
    if scancode() = 14
        REM << if char$ witholds any characters then keep all but its last character;'erase' the last character
        if len(word$) > 0 then word$ = left$(word$,len(word$) - 1)
    endif
    REM << if any other key then fill word$ with that character;I beleive spacekey works as normal
    if scancode() <> 14 then word$ = word$ + char$
endif