home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 40
/
040.d81
/
matches
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
111 lines
2 poke53280,.:poke53281,.
10 gosub 10000
120 clr:restore
121 dimw$(10),a$(10),ca(10):n=10
130 z$="0000000000000000000000"
140 b$=" [160] "
141 b2$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
142 e$=""
143 e$=e$+b$+b2$
144 e2$=e$+""+b$+b2$
150 d$=chr$(17):u$=chr$(145)
160 ms$(0)="incorrect. it's #"
170 ms$(1)="correct"
190 forj=1ton:readw$(j),a$(j):next j
200 :
210 print"[147] m a t c h e s"
211 print"[154] by elizabeth deal"
212 print"[158]word"tab(22)"[153]answer"
220 ht$=left$(z$,n)
240 :
250 forkt=1ton
260 gosub550
270 v=kt:gosub520:print"[152]. [158]"w$(kt)tab(23);
280 gosub520:print"[152]. [153]";a$(rn)
290 ht$=left$(ht$,rn-1)+"x"+mid$(ht$,rn+1)
300 ca(rn)=kt
310 next kt :print
330 ht$=left$(z$,n)
340 print"";
350 :
360 forkt=1ton
370 gosub550:w=rn
380 :
390 :
391 print"[154]"e$"which [153]answer #[154] matches [158]"chr$(34)w$(w)chr$(34)
392 print"[154]guess [152]: [157][157][157][157][157]";
395 ht$=left$(ht$,rn-1)+"x"+mid$(ht$,rn+1)
400 gosub 8000:ifa$=""thengosub9000:goto380
410 xx=val(a$)
420 :
430 fc=0:ifca(w)=xxthenc=c+1:fc=1
440 printe2$w$(w)" - "a$" : "ms$(fc);
450 iffc=0thenprintca(w);
460 print
470 nextkt
480 print""c"[146][152] out of "n"[146][152] correct[145][145]"
490 gosub9000
510 goto 120
520 print""right$(" "+str$(v),2);:return
530 :
540 :
550 forj=1to1e3:rn=int(rnd(1)*n+1)
560 ifmid$(ht$,rn,1)="x"thennextj
570 :
580 return
600 data dog,bark
604 data cat,meow
606 data machine lang,fast
617 data candy,sweet
620 data lemon,sour
625 data fire,hot
626 data ice,cold
635 data basic,slow
686 data senior editor,mike maynard
688 data assoc editor,jim row
8000 a$="":print"[164]";:forx=1to25
8010 getb$:ifb$=""then8010
8015 ifb$=chr$(20)andx>1thenx=x-1:printb$;:a$=left$(a$,x-1):print"[157][164]";:goto8010
8020 ifb$=chr$(20)then8010
8025 ifb$=chr$(13)thenprint:return
8030 ifb$<"0"orb$>"9"then8010
8037 ifx>2then8010
8040 a$=a$+b$:print"[157]"b$"[164]";:next
9000 print"[145][145][145] do you wish to quit (y/n) ";
9001 print" [157]"
9010 geta$:ifa$=""then9010
9011 ifa$="y"ora$="[217]"then9050
9012 ifa$="n"thenprint"[145][145] ":return
9013 goto9010
9050 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
9051 ifer<>63 then print"[147]":end
9052 load"hello connect",8,1
10000 :
10010 print"[147]"
10020 print
10030 print" [158]l o a d s t a r"
10040 print" [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
10050 print
10060 print" U{$60}[178]{$60}I U[129]{$60}{$60}I [158]{$60}{$60}[178]{$60}{$60} U{$60}{$60}I [178] [178] [156]U{$60}{$60}{$60}I"
10070 print" {$7d} {$7d} {$7d} [129]{$7d} {$7d} [158]{$7d} {$7d} {$7d} {$7d} [156]{$7d}"
10080 print" {$7d} {$7d} {$7d} [129][171]{$60}{$60}[179] [158]{$7d} {$7d} [171]{$60}{$60}[179] [156]J{$60}{$60}{$60}I"
10090 print" p r e s e n t s "
10100 print" {$7d} {$7d} {$7d} [129]{$7d} {$7d} [158]{$7d} {$7d} {$7d} {$7d} [156]{$7d}"
10110 print" [177] [177] [177] [129][177] [177] [158][177] J{$60}{$60}K [177] [177] [156]J{$60}{$60}{$60}K"
10120 print
10130 print
10140 print" [159]written by"
10150 print
10160 print" elizabeth deal"
10170 print
10180 print
10190 print
10200 print" copyright [129]1987"
10210 print
10220 print
10230 print" [154]press space to continue"
10240 print
10250 print"";
10300 geta$:ifa$<>" "then10300
10305 return