Compute! Gazette 1991 September/1991-09.d64/spanish.vocab

Commodore BASIC | 2022-09-20 | 7KB | 187 lines

0 rem copyright 1991 - compute publications intl ltd - all rights reserved
10 rem spanish vocabulary quiz v1.2
20 rem        by chris stoy
30 :
40 goto 2200:rem setup
100 t=0:print"[144]"an$"":poke 49153,5:poke49157,5
105 print"[153]"aw$;spc(20-len(aw$))">";:ln=17:gosub 200
110 on -(wd$="?")-2*(wd$="*") goto 145,700
115 sys 49152
116 lc=len(an$):if len(wd$)>len(an$) then lc=len(wd$)
117 pc=int(peek(49212)*100/lc)-int(peek(49213)/2)
120 if pc>70 then print"_[205]uy [194]ien! [195]orrect!":sc=sc+abs(t-3):c=c+1:goto145
125 t=t+1:if t=3 then 145
126 if t=1 then poke 49157,245
127 if t=2 then poke 49153,6:poke 49157,229
130 if pc>30 then print"[129] [193]lmost. [212]ry again.":goto 140
135 print"[149] [211]orry, wrong. [212]ry again."
140 gosub 410:goto105
145 w=w+1:rn%(i)=1:print"[153][212]he answer is "an$"[153].":gosub 1000:if w=x then 700
150 fl=1:goto 400
200 wd$="":poke 198,0:print"<";
205 get ke$:if ke$="" then 205
206 poke54296,15:poke54296,0
210 if ke$=chr$(13) then print:return
215 if ke$=chr$(17) or ke$=chr$(19) or ke$=chr$(145) then 205
217 if ke$=chr$(147) then for zz=0 to len(wd$):printchr$(20);:next:goto 200
220 if ke$<>chr$(20) then 235
225 if len(wd$)=0 then 205
230 wd$=left$(wd$,len(wd$)-1):print"[157][157]< [157]";:goto 205
235 if len(wd$)>ln then 205
240 wd$=wd$+ke$:print"[157]"ke$"<";
245 goto 205
300 if x<1 then 1300
315 print"[147]"tab(11)"[209]uiz "qt$" [215]ords"
320 printtab(11)"[129][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
325 print"[153]  [201] will give you a word in "qt$"[153],"
330 print" then [201] will ask you to enter the word":print" in "ot$"[153]."
335 print"[197]xample:":print""qt$;spc(13);ot$
340 print"[150][163][163][163][163][163][163][163]"spc(13)"[163][163][163][163][163][163][163]":print"[153]"eq$:print"[145]"tab(20);eo$:gosub 1000
345 for z=1 to x:rn%(z)=0:next:w=0:sc=0:c=0
400 i=int(x*rnd(0))+1:if rn%(i)=1 then400
405 print"[147][158][212]ype your answer, then hit [[210][197][212][213][210][206][158]]."
410 print""qt$;spc(13);ot$:print"[150][163][163][163][163][163][163][163]"spc(13)"[163][163][163][163][163][163][163]":return
500 qt$="[197]nglish":ot$="[211]panish":eq$="the word":eo$="la palabra"
505 gosub 300:if x=0 then 2100
510 aw$=en$(i):an$=sp$(i):gosub 100:if fl then 510
513 if f=1 then 500
515 goto 2100
600 ot$="[197]nglish":qt$="[211]panish":eo$="the word":eq$="la palabra"
605 gosub 300:if x=0 then 2100
610 an$=en$(i):aw$=sp$(i):gosub 100:if fl then 610
613 if f=1 then 600
615 goto 2100
700 fl=0:if w=0 then f=0:return
703 print"[147]"tab(12)"[195]ongatulations!!"
705 print tab(9)"[153][217]ou completed the list."
710 for z=1to192:poke53280,z:next:forz=1to8:print"":next:print""
715 print"   [158][217]our score: ";int(sc/(3*w)*100);"%"
720 print"   [158][217]ou got"c"[158]correct out of"w"[158][157]."
730 print"    [153][215]ould you like to try this list"
740 print"    again ([217][153] or [206][153])? ";
750 get ke$:if ke$="" then 750
755 if ke$="y" then print"[217]":f=1:return
760 if ke$<>"n" then 750
765 print"[206]":f=0:return
1000 printtab(7)"[158][208]ress [[210][197][212][213][210][206][158]] to continue.":poke 198,0
1005 get ke$:if ke$<>chr$(13) then 1005
1010 return
1100 poke 53272,21:poke 53280,14:poke 53281,6:print"[154][147]":end
1200 input#15,er,er$,dt,ds:fl=0
1205 if er=62 then print"[147]"tab(13)"[198]ile not found.":fl=1:return
1210 if er>19 then print"[196][201][211][203] [197][210][210][207][210] #"er;er$"":fl=1
1215 return
1300 print"[147]"tab(12)"[204]oad a [215]ord [198]ile"
1315 printtab(12)"[150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1320 print"[153]    [197]nter name of file at the prompt."
1325 print"   [212]ype [$[153]] to view directory."
1330 print"   [208]ress [[210][197][212][213][210][206][153]] alone to return to"
1335 print"   [207][208][212][201][207][206][211] [153]menu."
1340 print:print"[154][206]ame of file:>";:ln=15:gosub 200
1345 if wd$="" then 2100
1350 if wd$="$" then 1410
1360 fl$=wd$:open15,8,15:open2,8,2,"0:"+fl$+",s,r"
1365 gosub 1200:if fl=1 then close2:close15:gosub 1000:goto 2100
1390 input#2,x:for s=1 to x:input#2,en$(s),sp$(s):next
1400 close2:close15:goto 2100
1410 print"[147][153][208]ress [[211][200][201][198][212][153]] to pause.":sys 49250:print:gosub 1000:goto 1300
1600 print"[147]"tab(11)"[215]ord [198]ile [207]ptions":printtab(11)"[150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1605 printtab(16)"[153][207]ptions":printtab(16)"[149][163][163][163][163][163][163][163]"
1610 printtab(8)"1. [195]reate a file":printtab(8)"2. [193]ppend to a file"
1615 printtab(8)"3. [197]dit a file"
1620 printtab(8)"4. [210]eturn to [205]ain [205]enu"
1630 print"[153]      [197]nter your choice:    [157][157][157]";
1635 get ke$:if ke$<"1" or ke$>"5" then 1635
1640 print ke$:on val(ke$) goto 1700,1700,1800,2100
1698 rem create/append a file
1700 ke=val(ke$):if ke=2 and x=0 then 1300
1705 print"[147]"tab(12)"[205]ake a [215]ord [198]ile":printtab(12)"[150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1707 if ke=2 then 1720
1710 print"    [153][206]ame of file:";:ln=15:gosub 200:if wd$="" then 2100
1715 fl$=wd$+left$(nl$,16-len(wd$)):f=f+1:f$(f)=fl$:x=0:ke=2:goto 1705
1720 x=x+1:print""tab(10)"[158][198]ile:";fl$
1725 printtab(7)"[158][206]umber of words so far:";x-1
1730 print"[153]    [198]irst, enter the [197]nglish[153] word at"
1735 print"   the prompt, then enter the [211]panish."
1740 print"[155] [197]nglish word: ";:ln=17:gosub 200:en$(x)=wd$:if wd$="" then 1763
1745 print"[155] [211]panish word: ";:ln=17:gosub 200:sp$(x)=wd$:if wd$="" then 1763
1750 print"[158] [201]s this correct ([217][158] or [206][158])? ";
1755 get ke$:if ke$="n" then print"[206]":goto 1705
1760 if ke$<>"y" then 1755
1763 if wd$="" then print"[144]":x=x-1
1765 print"[217]":print"[158][197]nter another word ([217][158] or [206][158])? ";
1770 get ke$:if ke$="y" then print"[217]":goto 1705
1775 if ke$<>"n" then 1770
1780 print"[206]":open15,8,15:if ke=2 then print#15,"s0:"+fl$:gosub 1200
1785 if fl then close 15:gosub 1000:goto 2100
1790 open2,8,2,"0:"+fl$+",s,w":gosub 1200:if fl then close 2:goto 1785
1791 print#2,x:for s=1 to x:print#2,en$(s):print#2,sp$(s):next:gosub 1200
1792 if fl then close 2:goto 1785
1793 print"[147][153]"tab(14)"[198]ile saved."
1794 close2:close15:gosub1000:goto 2100
1800 if x=0 then gosub 300:goto 2100
1810 s=1:fl=1:print"[147]"tab(15)"[197]dit a [198]ile"
1815 printtab(15)"[150][163][163][163][163][163][163][163][163][163][163][163]"
1820 print"[158] [198]ile: ";fl$;spc(17-len(fl$))"[158]# of words:";x
1825 print"[150][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1830 print"[153] [207]n word:    [157][157][157][157]";s
1835 print"[155]  [197]nglish word: ";en$(s);left$(sc$,22-len(en$(s))):print
1840 print"[155]  [211]panish word: ";sp$(s);left$(sc$,22-len(sp$(s))):print
1845 print"[158][[197][158]] to [197]dit[158] words"
1850 print"[[195][158]] to [195]ontinue[158] listing"
1855 print"[[209][158]] to [209]uit[158] to [207]ptions[158] menu"
1860 get ke$:if ke$="" then1860
1865 on -(ke$="e")-2*(ke$="c")-3*(ke$="q")goto1890,1870,1880:goto1860
1870 s=s+1:if s < (x+1) then1830
1875 s=1:goto1830
1880 if fl then 2100
1885 ke=2:print"[144]":goto 1780
1890 print""tab(16);"";:poke19,65:inputte$:poke19,0:print
1891 print""tab(16);"";:poke19,65:inputts$:poke19,0:print
1892 if te$<>en$(s) or ts$<>sp$(s) then en$(s)=te$:sp$(s)=ts$:fl=0
1893 goto 1830
2100 print"[147]"tab(9)"[211]panish [214]ocabulary [209]uiz"
2105 printtab(9)"[150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2110 printtab(16)"[153][207]ptions":printtab(16)"[163][163][163][163][163][163][163]"