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]"
2115 PRINTTAB(8)"1. [197]NGLISH WORDS":PRINTTAB(8)"2. [208]ALABRAS DE [197]SPA[170]OL"
2120 PRINTTAB(8)"3. [204]OAD A WORD FILE":PRINTTAB(8)"4. [198]ILE OPTIONS"
2125 PRINTTAB(8)"5. [209]UIT"
2130 PRINT"[153]    [197]NTER YOUR CHOICE: ";
2135 GET KE$:IF KE$<"1" OR KE$>"5" THEN 2135
2140 PRINT KE$:ON VAL(KE$) GOTO 500,600,1300,1600,1100
2200 POKE53280,0:POKE53281,0
2202 IF LV=1 THEN POKE 56,56:CLR:GOTO 2245
2205 PRINTCHR$(14)"[153][147]"TAB(9)"[211]PANISH [214]OCABULARY [209]UIZ"
2210 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]"
2215 PRINTTAB(12)"[153][195]OPYRIGHT 1991"
2216 PRINTTAB(4)"[195]OMPUTE [208]UBLICATIONS [201]NTL [204]TD"
2220 PRINTTAB(10)"[158][193]LL [210]IGHTS [210]ESERVED"
2230 PRINTTAB(13)"[208]LEASE WAIT..."
2240 IF LV=0 THEN LV=1:LOAD"SPAN.ML",8,1
2245 DIM EN$(30),SP$(30),RN%(30),F$(120)
2255 POKE 56334,PEEK(56334) AND 254:POKE 1,PEEK(1) AND 251:SYS 49217
2265 POKE 1,PEEK(1) OR 4:POKE 56334,PEEK(56334) OR 1
2270 READ A:IF A=-1 THEN2280
2275 FOR I=0 TO 7:READ B:POKE 14336+A*8+I,B:NEXT:GOTO2270
2280 POKE 53272,(PEEK(53272)AND 240)OR 14
2285 SC$="                     ":GOTO 2100
2435 DATA 30,36,0,102,102,102,102,62,0
2440 DATA 31,0,24,0,0,24,24,24,24
2445 DATA 47,0,24,0,24,48,96,102,60
2450 DATA 98,6,24,0,56,24,24,60,0
2455 DATA 106,54,72,124,102,102,102,102,0
2460 DATA 112,6,8,60,6,62,102,62,0
2465 DATA 113,6,8,60,102,126,96,60,0
2470 DATA 120,6,8,102,102,102,102,62,0
2475 DATA 121,6,8,60,102,102,102,60,0
2480 DATA 158,219,255,153,153,153,153,193,255
2485 DATA 159,255,231,255,255,231,231,231,231
2490 DATA 175,255,231,255,231,207,159,153,195
2495 DATA 226,249,231,255,199,231,231,195,255
2500 DATA 234,201,183,131,153,153,153,153,255
2505 DATA 240,249,247,195,249,193,153,193,255
2510 DATA 241,249,247,195,153,129,159,195,255
2515 DATA 248,249,247,153,153,153,153,193,255
2520 DATA 249,249,247,195,153,153,153,195,255
2525 DATA -1