oki i fucked up about 3hours ago... i was about to email this to Rose when i pressed the wrong button and killed alot of this
it took me a few days to figure this out last time, and over the past 3 hours i've been trying to figure out how i did it ... but i can't bloody do it.
anyone who can make this work then i'd be greatful cause i can get on with the other game i completely deleted
read a
dim a$(a)
for ia = 1 to a
read a$(ia)
next ia
cls
backdrop on : color backdrop rgb(0,0,0)
`delete sprite 2
`delete sprite 1
randomize timer()
wa = rnd(a-1)+1
w$ = a$(wa)
ws = len(w$)
for ia = 1 to ws
u$ = u$ + "_ "
next ia
dim b$( ws )
do
text 300,100,"Type the name of the Picture you see"
text 300,111,"Number of Letter are "+str$(ws)
text 300,122,"The Word is "+w$
text 400,315,u$
n$ = entry$()
if asc(n$) > 0
b$(wc) = mid$(n$,1)
inc wc
endif
clear entry buffer
set cursor 0,0
for ia = 1 to wc
wl$ = wl$ + b$(ia)
print b$(ia)
next ia
text 400,310,wl$
if len(wl$) > len(w$)
if upper$(wl$) = upper$(w$)
center text screen width()/2,screen height()/2,"Congratulations... press any key to quit"
wait key
backdrop off
undim b$( ws )
end
`goto begin
else
wl$ = n$
wc = 0
endif
endif
sync
loop
data 4
data "banana","dinosaur","television","flower"
i'm sure someone can see what the heck i can't ... damn'd sleep depravation and lack of coding skills

Tsu'va Oni Ni Jyuuko Fiori Sei Tau!
One block follows the suit ... the whole suit of blocks is the path ... what have you found?