home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 May
/
1989-05.d64
/
verbatim
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
4KB
|
109 lines
10 rem copyright 1989 compute! publications - all rights reserved
20 dimwo$(400):x=rnd(-ti)
30 lx(3)=1:i=1:j=3
40 ifj=7then70
50 readb$:ifb$="-1"thenmx(j)=i-1:j=j+1:lx(j)=i:goto40
60 wo$(i)=b$:i=i+1:goto50
70 a$=" [157][157][157][157][144] [157][157][157][157][144] [157][157][157][157][144] [145][145][145]"
80 dn(1)=1:dn(2)=6:dn(3)=11:dn(4)=16:dn(5)=21
90 ac(3)=24:sp(3)=4:sp(4)=4:sp(5)=3:sp(6)=3
100 ac(4)=25:ac(5)=28:ac(6)=31:do(1)=2:do(2)=7:do(3)=12:do(4)=(17):do(5)=22
110 poke53280,12:poke53281,12:printchr$(14)chr$(8):tm=16:tu=1
120 print"[147][144] [195]opyright 1989 [195][207][205][208][213][212][197]! [208]ub., [201]nc."
130 printtab(11)"[193]ll rights reserved":print""
140 print" ";:fori=1to8:printa$"[157]";:next
150 print"[214][197][210][194][193][212][201][205][144]"
160 e$="[175][157][157][170][180][157][157][183][145][157]"
170 n1=1:n2=2:print" [196]o you want to [145]"e$"1[146][197][206][212][197][210] a word"
180 print" or [145]"e$"2[146]have the 64 select a word [145]"e$"[191][157]";
190 gosub860:np=nu
200 n1=3:n2=6
210 print" [197]nter length of word (3-6 letters) [145]"e$"[191][157]";:gosub860:wl=nu
220 print:print
230 ifnp=2thenxx=int((mx(wl)-lx(wl)+1)*rnd(1))+lx(wl):wd$=wo$(xx):goto270
240 print" [208]lease enter a"wl"letter word"
250 input" [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";wd$
260 iflen(wd$)<>wlthenprint"[145][145][145]":goto240
270 lm(3)=9:lm(4)=5:lm(5)=3:lm(6)=1
280 fori=1towl:as$=mid$(wd$,i,1):as(i)=asc(as$):next
290 poke53281,12:poke53280,12
300 print"[147]";:fori=1to24:print"[152] "
310 next:print" ";
320 fori=1063to2023step40:pokei,160:pokei+54272,12:next
330 print" ":poke53281,1
340 print"";:forz=1to4:forj=1tolm(wl):print"";:next
350 fori=1towl:printa$;:next:print"":next
360 forj=1tolm(wl):print"";:next
370 fori=1towl:printa$;:next:print""
380 printspc(lm(wl)+2)""chr$(as(1)+128)
390 print"";:fori=1todo(tu):print"";:next:printspc(ac(wl))"[152]_"
400 poke198,0:print""spc(32)"[152][217]our[157][157][157][157][163][163][163][163][157][157][157][157][199]uess[157][157][157][157][157][163][163][163][163][163]"
410 printspc(32)" [157][157][157][157][157][157][175]"
420 print""spc(32)"[212][201][205][197][210][157][157][157][157][157][163][163][163][163][163][157][157][157][157][152]"int(tm)
430 print""spc(32);:fori=1towl:gosub720:next:print"[152] ":tm=16
440 fori=1towl:ar(i)=asc(ar$(i)):next
450 lw=wl:fori=1tolw:c(i)=0:next
460 fori=1tolw:fl(i)=0:next
470 forz=1tolw
480 fori=1tolw:ifas(i)=ar(i)thenc(i)=128+ar(i):flag(i)=1
490 nexti
500 fori=1tolw:ifas(i)=ar(z)andflag(i)=0thenc(z)=ar(z):flag(i)=2:goto520
510 c(x)=32
520 nexti,z
530 print"";:fori=1todn(tu):print"";:next
540 printspc(lm(wl)+2)"";
550 fori=1towl
560 ifc(i)>0thenprint""chr$(c(i))"[146]";:goto580
570 print"[146]"chr$(ar(i));
580 print"";:next
590 ck=0:fori=1towl:ifar(i)=as(i)thenck=ck+1
600 next:ifck=wlthen640
610 print"";:fori=1todo(tu):print"";:next:printspc(ac(wl))"[152] "
620 tu=tu+1:iftu=6then670
630 goto390
640 forz=1to15:fori=1to14:poke53280,i:next:next:poke53280,12
650 gosub830
660 print""spc(32)"[195]orrect":goto700
670 gosub830
680 print""spc(32)"[207]ut of":print""spc(31)"guesses!"
690 print""spc(32)"[193]nswer:":printspc(29)"";:gosub840:print""
700 printspc(32)"[208]ress a":print spc(34)"key"
710 poke198,0:wait198,1:getc$:goto110
720 getij$:ifij$<"a"orij$>"z"then740
730 print"[152]"spc(31+i)chr$(asc(ij$)+128)"[175][157]";:ar$(i)=ij$:return
740 tm=tm-.055
750 print""
760 ifint(tm)<10thenprintspc(33)""int(tm)"[157] ":goto780
770 printspc(33)""int(tm)
780 ifint(tm)<>0then720
790 gosub830
800 print""spc(32)"[207]ut of":print""spc(33)"time"
810 fori=1to2300:next:tm=16
820 print""spc(28)" ":print""spc(30)" ":goto610
830 print"":fori=1to10:printspc(30)"[152] ":next:print"":return
840 printspc(sp(wl));
850 fori=1towl:ww(i)=asc(mid$(wd$,i,1))+128:printchr$(ww(i));:next:return
860 poke204,0:getnu$:nu=val(nu$):ifnu<n1ornu>n2then860
870 poke204,1:poke207,0:printnu$:fori=1to300:next:return
1000 rem word list
1010 rem ** 3 letter words **
1020 data man,fan,for,arm,pen,won,too,boy,hog,ape,you,yen,pay,joy,leg
1030 data yes,rod,ran,win,was,sun,gap,eat,fan,tan,top,tip,cow,dog,ear
1040 data -1
1050 rem ** 4 letter words **
1060 data fast,slow,game,warm,cold,open,only,past,read,cost,jump,junk
1070 data cave,vast,vase,womb,post,note,make,bend,zest,desk,host,gate
1080 data most,opal,trim,ache,bark,limb
1090 data -1
1100 rem ** 5 letter words **
1110 data acorn,actor,bring,broke,bribe,crimp,cough,count,dress,dealt
1120 data eight,earth,faith,graze,grape,grain,ghost,going,hello,happy
1130 data igloo,money,party,stand,tenth,waste,yodel,zebra,mouse,trait
1140 data -1
1150 rem ** 6 letter words **
1160 data mystic,diaper,basket,washer,rubber,orange,yellow,purple
1170 data quaint,exceed,jacket,robust,golfer,antler,engage,monkey
1180 data cowboy,notion,sodium,doodle,salary,window,borrow,desert
1190 data trophy,carpet,podium,motion,sickly,comedy
1200 data -1