100
120
130
140
150
160
170
180
190
200
210
220
250
260
270
280
290
300
310
320
330
340
400
410
420
430
440
450
500
510
520
530
540
550
560
570
print"~jotto Jim butterfi~ld"
input"~want instructions"i;$:ifasc(;.)=78got0250
pr nt"~try to gu~ss the mystery 5-1etter word"
pr nt"~you must gu~ss only legal 5-1etter"
pr nt"words, too..."
pr nt"you will b~ told th~ number of matches"
pr nt"(or 'jots') of your guess."
pr nt"~hint: the trick is to vary slightly"
pr nt" from one guess to.the next, so that"
pr nt" If you guess 'batch' and get 2 jots"
pr nt" you might try 'botch' or 'chart'"
pr nt" for the next guess..."
data bxbsf,ipcc;,dbdif,esfbe,pggbm
data hpshf,ibudi,djwjm,kpmm;,lb;bl
data sbkbi,mfwfm,njnjd,boofy,qjqfs
data rvftu,sjwfs,qsftt,puufs,fwfou
data xfbwf,fyupm,nvti;,afcsb,gjaa;
data uijdl,esvol,gmppe,ujhfs,gblfs
data cppui,mzjoh,trvbu,hbvaf,pxjoh
data uisff,tjhiu,bymft,hsvnq,bsfob
data rvbsu,dsffq,cfmdi,qsftt,tqbsl
data sbebs,svsbm,tnfmm,gspxO,~Sjgu
n=50
dim n$(n),z(5),y(S)
for j=1ton:readn$(j):nextj
t=ti
t=t/1000:ift>=1thengot0440
;=rnd(-t)
g=0:n$=n$(rnd(1)*n+1)
print "~i have a five letter word:":ifr>Ogot0560
print "guess (with legal words)"
print "and i'll tell you how many"
print "'jots', or matching letters,"
print "you hav~ "
g=g+1:input "your word",z'
if len(;$)<>5thenprint"you must guess a
S-l~tt~r word!":gotoS60
v=O:h=O:m=O
forj=1t05
z=asc(mid$(z',j,1»:y=asc(mid$(n$,j,1»-1:lfy=64theny=90
if;(650rz>90thenprint"that's not a word!":got0560
ifz=650rz=690rz=730rz=790rz=850rz=89thenv=v+1
ifz=ythenm=m+1
z(j)=z:y(j)=y:nextJ
ifm=5got0800
ifv=00rv=5thenprint"come on..what kind of
a word is that?":got0560
for j=1t05:y=y(j)
for k=lt05:ify=z(k)thenh=h+l:z(k)=0:got0700
next k
next j
print"DDDDDDDDDDDDDDDDDDDD",H,"JOTS"
ifg(30got0560
print"i'd.better tell you.. word was '",
forj=1t05:~rintchr$(y(j»i:nextj
print"'":got0810
print"you got it in onlY"ig,"guesses."
input"~another word",z$
r=1:ifasc(;$)(>78gotoSOO
580
590
600
610
620
630
640
650
660
670
680
690
700
710
720
730
740
750
800
810
820
145
To Next Page
Loading...
