start tok64 d64-WLDimE
0 ]reciter:POKE53280,.:POKE53281,.
1 ]speed100
2 say"hello. i am sam."
3 say"this is a little game."
5 say"you will spell the words i tell you."
6 say"do you understand?"
7 INPUT"{gray}{clear}do you? y{left*3}";a$
8 IFa$="y"THEN13
9 say"o-k. here is some instructions."
10 a$="i will pronounce an inglish word, and you will type it in on the
11 a$=a$+" keybord.
12 saya$
13 say"o-k. let's start."
14 DIMa$(50,1):FORi=.TO50:READa$(i,.),a$(i,1):NEXT
15 say"how many words do you want to try?"
16 INPUT"how many? 10{left*4}";s
17 IFs<10THEN:say"come on, you must do at least ten.":GOTO16
18 IFs>50THEN:say"sorry, there is only fifty words.":GOTO16
19 DIMs(50)
20 FORi=1TOs
21 v=INT(RND(.)*50)+1:IFs(v)=-1THEN21
22 s(v)=-1:a$=a$(v,.)+".":saya$
23 INPUT"spell it";a$:IFa$=a$(v,1)THENPRINT"{up}",,"{right}correct":t=t+1:GOTO25
24 PRINT"{up}",,"{reverse on}wrong
25 NEXT:v$=STR$(t):s$=STR$(s)
26 x$=v$:GOSUB50:a$="you got "+x$+" coh-rrect answers out of "
27 x$=s$:GOSUB50:a$=a$+x$+".":saya$
29 END
50 IFVAL(x$)<10THENRETURN
51 ONVAL(x$)-10GOTO52,53,54,55,56,55,55,55,55:GOTO57
52 x$="eleven":RETURN
53 x$="twelve":RETURN
54 x$="thirteen":RETURN
55 x$=RIGHT$(x$,1)+"teen":RETURN
56 x$="fifteen":RETURN
57 x=VAL(x$):y=INT(x/10):z=x-y*10:z$=STR$(z):IFz=.THENz$=""
58 ONyGOTO63,59,60,61,62
59 x$="twenty"+z$:RETURN
60 x$="thirty"+z$:RETURN
61 x$="4te"+z$:RETURN
62 x$="fifty"+z$:RETURN
63 x$="ten":RETURN
100 DATAskaitboard,skateboard,sweeden,sweden,pressedent,president
101 DATAgame,game,computer,computer,brain,brain,juce,juice,larche,large
102 DATAflesh,flesh,yoh-uh-ng,young,friend,friend,father,father,mother,mother
103 DATAdr.,doctor,human being,human being,life,life,faithful,faithful
104 DATAmachine,machine,1,one,2,two,3,three,4,four,5,five,6,six,7,seven,8,eight
105 DATA9,nine,ten,ten,0,zero,woman,woman,man,man,wife,wife,husband,husband
106 DATAworld,world,meenee,mini,right,right,left,left,up,up,down,down,in,in
107 DATAout,out,radio,radio,television,television,newspaper,newspaper
108 DATAapple,apple,pear,pear,fhu-hl,fuel,petro-hl,petrol,run,run,walk,walk
109 DATAmind,mind
200 READa$,b$:saya$:PRINTb$:POKE198,.:WAIT198,1:GOTO200
stop tok64
(bastext 1.0)