10 REM ***************************›11 REM *                         *›12 REM *   SPANISH STUDY GUIDE   *›13 REM *                         *›14 REM *    by:Larry  Nocella    *›15 REM *  Idea:Andrew Wodarczyk  *›16 REM ***************************›17 DIM N$(15),A$(15),Q$(15),RN(15)›20 POKE 710,0:POKE 709,14:? "}  (1) ENGLISH TO SPANISH"›25 ? "  (2) SPANISH TO ENGLISH":? " TYPE THE NUMBER,THEN PRESS ÒÅÔÕÒÎ";›30 TRAP 20:INPUT ON:IF ON<1 OR ON>2 THEN 20›35 IF ON=1 THEN CON=315›38 IF ON=2 THEN CON=371›40 TRAP 40000›50 QR=0:THING=0›100 GRAPHICS 0:POKE 709,14:POKE 710,64:POKE 752,1:QR=QR+RITE:THING=THING+THNO›110 ? "   SPANISH STUDY GUIDE - MAIN MENU":? ›115 ? "          by: Larry Nocella"›120 ? :? :? "(1) Days of the week"›125 ? :? "(2) Verbs"›130 ? :? "(3) Months of the Year"›135 ? :? "(4) Nouns"›140 ? :? "(5) Colors"›145 ? :? "(6) Adjectives"›150 ? :? "(7) Exit this program"›160 ? :? " PRESS A NUMBER KEY":POKE 752,1›162 ? :? "      ÓÃÏÒÅ:";QR;" right out of ";THING›165 OPEN #1,4,0,"K:"›170 GET #1,Z:IF Z<49 OR Z>55 THEN GOSUB 200:GOTO 170›175 CLOSE #1›180 RITE=0›185 ON Z-48 GOTO 300,500,700,900,1100,1300,210›200 FOR I=30 TO 0:SOUND 0,I,10,15:FOR XX=1 TO 20:NEXT XX:NEXT I:SOUND 0,0,0,0:RETURN ›210 ? "}BYE!-BYE!,ADIOS!"›215 POKE 752,0:END ›300 POKE 710,113:? "} LOS DIAS DE LA SEMANA"›305 ? " ---------------------":LNO=1999:THNO=7›310 ? " THE DAYS OF THE WEEK":? :GOTO 400›315 REM *****************************›316 POKE 752,0›317 FOR R=1 TO THNO›320 N$="               ":A$=N$›325 RESTORE LNO+RN(R)›330 READ N$,A$›335 ? :? " ";R;".";N$;" in English is ";:INPUT Q$›340 IF Q$=A$ THEN ? " ÒÉÇÈÔ¡":GOSUB 200:RITE=RITE+1:GOTO 355›350 ? :? "Sorry,But the answer is ";A$›355 NEXT R›360 ? :? " You got ";RITE;" right out of ";THNO;"!";›365 FOR XX=1 TO 800:NEXT XX›370 GOTO 100›371 POKE 752,0›372 FOR R=1 TO THNO›374 N$="               ":A$=N$›376 RESTORE LNO+RN(R)›378 READ N$,A$›380 ? :? " ";R;".";A$;" in Spanish is ";:INPUT Q$›382 IF Q$=N$ THEN ? " ÒÉÇÈÔ¡":GOSUB 200:RITE=RITE+1:GOTO 355›384 ? :? "Sorry,But the answer is ";N$›386 NEXT R›388 ? :? " You got ";RITE;" right out of ";THNO;"!";›389 FOR XX=1 TO 800:NEXT XX›390 GOTO 100›400 FOR I=1 TO THNO:RN(I)=I:NEXT I›410 FOR I=1 TO THNO›415 TMP=INT(RND(1)*THNO)+1›420 F=RN(I):RN(I)=RN(TMP):RN(TMP)=F›425 NEXT I›430 GOTO CON›500 POKE 710,208:? "} VERBOS"›510 ? " ------"›520 ? " VERBS ":THNO=15:LNO=2027›530 GOTO 400›700 POKE 710,36:? "} LOS MESES DEL ANO"›705 ? " ----------------------"›710 ? " THE MONTHS OF THE YEAR"›715 THNO=12:LNO=2006:GOTO 400›900 POKE 710,42:POKE 709,2›910 ? "} NOMBRES"›915 ? " -------":? " NOUNS"›920 LNO=2043›930 THNO=15:GOTO 400›1100 POKE 710,100:? "} LOS COLORES"›1110 ? " -----------"›1120 ? " THE COLORS"›1130 THNO=9:LNO=2018:GOTO 400›1300 POKE 710,8:POKE 709,2›1310 ? "} ADJECTIVOS"›1320 ? " -----------":? " ADJECTIVES"›1330 THNO=15:LNO=2058›1340 GOTO 400›1999 REM *** SPANISH THEN ENGLISH ***›2000 DATA DOMINGO,SUNDAY›2001 DATA SABADO,SATURDAY›2002 DATA MIERCOLES,WEDNESDAY›2003 DATA MARTES,TUESDAY›2004 DATA VIERNES,FRIDAY›2005 DATA JUEVES,THURSDAY›2006 DATA LUNES,MONDAY›2007 DATA MAYO,MAY›2008 DATA JUNIO,JUNE›2009 DATA SEPTIEMBRE,SEPTEMBER›2010 DATA ABRIL,APRIL›2011 DATA ENERO,JANUARY›2012 DATA DICIEMBRE,DECEMBER›2013 DATA FEBRERO,FEBRUARY›2014 DATA AGOSTO,AUGUST›2015 DATA MARZO,MARCH›2016 DATA OCTUBRE,OCTOBER›2017 DATA JULIO,JULY›2018 DATA NOVIEMBRE,NOVEMBER›2019 DATA AZUL,BLUE›2020 DATA ROJO,RED›2021 DATA BLANCO,WHITE›2022 DATA VERDE,GREEN›2023 DATA NARANJA,ORANGE›2024 DATA AMARILLO,YELLOW›2025 DATA PURPULA,PURPLE›2026 DATA NEGRO,BLACK›2027 DATA GRIS,GREY›2028 DATA GANAR,TO WIN›2029 DATA COMPRAR,TO BUY›2030 DATA NADAR,TO SWIM›2031 DATA LEER,TO READ›2032 DATA VER,TO SEE›2033 DATA VIVIR,TO LIVE›2034 DATA LLEGAR,TO ARRIVE›2035 DATA PASAR,TO PASS›2036 DATA TRABAJAR,TO WORK›2037 DATA ESCRIBIR,TO WRITE›2038 DATA HABLAR,TO SPEAK›2039 DATA TOCAR,TO TOUCH›2040 DATA COMENZAR,TO BEGIN›2041 DATA ESQUIAR,TO SKI›2042 DATA ESTAR,TO BE›2043 DATA PERDER,TO LOSE›2044 DATA PARQUE,PARK›2045 DATA PUEBLO,TOWN›2046 DATA CASA,HOUSE›2047 DATA CARNE,MEAT›2048 DATA TECHO,ROOF›2049 DATA MUCHACHO,BOY›2050 DATA MUCHACHA,GIRL›2051 DATA DINERO,MONEY›2052 DATA PADRE,FATHER›2053 DATA MADRE,MOTHER›2054 DATA DEPORTE,SPORT›2055 DATA PELOTA,BALL›2056 DATA PARTIDO,GAME›2057 DATA TORO,BULL›2058 DATA MESA,TABLE›2059 DATA FEO,UGLY›2060 DATA BAJO,SHORT›2061 DATA ALTO,TALL›2062 DATA MAL,BAD›2063 DATA FRESCO,FRESH›2064 DATA BUENO,GOOD›2065 DATA CIERTO,TRUE›2066 DATA FALSO,FALSE›2067 DATA ANCHO,WIDE›2068 DATA POBRE,POOR›2069 DATA FUERTE,STRONG›2070 DATA BONITA,PRETTY›2071 DATA GUAPO,HANDSOME›2072 DATA HUMILDE,HUMBLE›2073 DATA AMERICANO,AMERICAN›