\>?z !6VDD:\YB~||<<>||~B<|OB@BBB@BB@BB@BB@@F@BfbBBOB|B|B<BB|@B@BB|<J|BZRBBOB@|BB||@NB@~|@R@|BJ~|O$@DBBBDD@BB@BD@Bb@DBFBDO~B|<<>BB~<<~BB~<<~BB>BBB>>>z@><<|2<|B<<<|2<B<<|s(@@BB2BBB@BBB2BBBBBt@<BB3|B<@BB3 B@BBt@~|3<BB@~|3BBN~|t@BBD3@BD3BBBBBDt>~><BB3~|<<>|<|<<|@<BB<~@<~<@~~|<~JBB@~^X@@@@~@~B|@BJRB@RB@|~b@BDBBBFB@BBD@BFBB @B@B@@BFDB@B@V@B@@B@BB@BBFJB@JB@DBBb@BBB<B~BBBB~~<~<~~BBx<~B<V~<~~B~B<@<>~BB<c'x'xxxx"x"@ # # @a\\\b\b\lX![!PP!!xx K SR P*23801\,0:23613=\,0 aQ()=23730\+256*23731\:Q():L=Q()-3:H=L+(=""):H,0:L,0  *7:7:7::63199 <10 ,6;1;1;"NO PARES EL CASSETTE" ""64200 (23658j\,8 2 9000(# P 1000 d  VENTANA PUNTOS  n515,0;:5;1, xx8:8:8:0,0:255,0:0,557:-255,0:0,-557 x16,3;1;"JUG.1:";16,18;"JUG.2:";18,3;"JUG.3:";18,18;"JUG.4:" 9200# >20,4;1;"MAXIMA PUNTUACION :";A$(5) 2;16,9 ;A$(1);16,24;A$(2);18,9 ;A$(3);18,24;A$(4)   CABECERA  &2:0:7:1: D0,0;0;2;,;19,0;, '1,7;"VERBOS IRREGULARES" @16,0;"PARA CONSEGUIR LA @ HAZLO TECLE-ANDO LA '"; >236066\,0:236077\,60<:"@'.":9300T$   MENU PRINCIPAL   :200 L=5:6,L+3;"'0' == TERMINAR"'';L;" '1' == LISTAR"'';L;" '2' == BUSCAR"'';L;" '3' == JUGAR" 220,2;"TECLEA LA OPCION QUE QUIERAS" 0:I$= I$="0"0 $i$<"1"i$>"3"1040 .:1000+1000*I$  LISTAR  0:7:7 F=180P20  2300:G=019 !RS=F+G:RS=81Q2080  %8000@+10 *(F+G):M$,N$,B$  +F+G;4;M$;13 ;N$;23;B$ G  e#0;1;2;7;1,0;" T=TRADUCIR S=SEGUIR M=MENU " *0:I$= 4I$="M"1000 >#I$="S"RS81QF:1000 RI$"T"2090* \N$="" fF"":#0;1,0;"INTRODUCE EL NUMERO ";N$;1;"C" p)0:I$=:I$=13 2200 zI$<"0"I$>"9"2190 $N$=N$+I$:N$>80P2140\  2150f N=N$ 'N*10 +8000@:M$,N$,B$,V$,C$ ;2300:6,2;M$;13 ;N$;23;B$ 5V$(V$)="."C$="":V$=V$(̱V$-1):2240 C$=C$(̱C$-1) P12 ,0;"SIGNIFICA:";14,0;V$;15;("o " C$"");C$ B#0;1,8;"PULSA UNA TECLA":0:2030  CABECERA  2:"INFINITIVE|PAST TENSE|PARTICIPLE" : .  BUSCAR  &6:1:1:1: W"":#0;2;1,0;"I=INGLES E=ESPA@OL M=MENU" 0:I$= I$="M"1000 I$="I"3500 I$"E"3030 H0,0;"INTRODUCE EL VERBO EN ESPA@OL:";1,0;E$ &E$=""1000 0E$>203100 :"F=8010J8800`"10 DF:Z$,Z$,Z$,B$,C$ N.B$(B$)="."E$=B$(̱B$-1)3200 XB$=E$3200 b.C$(C$)="."C$(̱C$-1)=E$3200 lF:3570 3600 P0,0;"INTRODUCE EL INFINITIVO EN ";1,0;"INGLES: ";I$ I$=""1000 I$>9 3510 "F=8010J8800`"10 F:Z$:Z$=I$3600 F V#0;0,0;"VERBO NO ENCONTRADO.";1,0;"PULSA UNA TECLA." 0:3020 F:Z$:2300:C$:D$ /5,1;Z$;12 ;C$;23;D$ $&E$:10 ,0;"SIGNIFICADO:" .9F$:E$(E$)="."E$=E$(̱E$-1):F$="":3650B 8F$=F$(̱F$-1) B912 ,0;E$;12 ,15;("o "F$"");F$ L 3020    JUGAR  39080x#: 2:7:1:5: h"!- **MENU JUEGO** !-" >5,5;"1 .. N. JUGADORES : ";25;1;J ;7,5;"2 .. PREGUNTAS : ";25;1;P 69 ,5;"3 .. MODO : ";25;1;M #11 ,5;"4 .. COMIENZO"  13 ,5;"5 .. MENU " H18,0;1;1;" TECLEA UNA DE LAS OPCIONES " *0:I$=:I$<"1"I$>"5"4070 4100+20*I$ g#0;1,0;"&NUMERO DE JUGADORES (1-4)?":0:"":I$=:I$<"1"I$>"4"4120 "'.01z# =,10 :J=I$:4020 ,G1,0;"&CUANTAS PREGUNTAS (5-20)? ";P$:P$=""4070 1P$>24000 6dF=1̱P$:P$(F)"0"P$(F)"9"F:P=P$:P>4P<21.01z# =,10 :4020 ; 4070 @\#0;1,0;"&QUE MODO (1-2)?":0:"":I$=:I$<"1"I$>"2"4160@ J'M=I$:.01z# =,10 :4020 T 5000 h 1000   JUEGO  &:PR=1:JU=1:5900  i5800:3,3:247,0:0,480:-247,0:0,-480 >W=1P:G=1J:PR=W:JU=G:5920 :5820 %6000p:Z=(*80P+1) G 8000@+Z*10 :B$,C$,D$,E$:E$(E$)="."E$=E$(̱E$-1) 5000+200*M 5820:G=JU:W=PR:G:W 8F=14:A(F)>A(5)A(5)=A(F):F 9200#:5820 O#0;1,0;" PULSA UNA TECLA PARA MENU":0:4000 P MODO 1  Z(V$=E$:M$="":N$="":O$="":62008 dlX$=B$+C$+D$:F=130:Z=(*X$+1):X$=X$(Z)+X$(Z-1)+X$(Z+1):F:6400 n M=1"&INFINITIVO? ";M$ s62008:6500d x6600:#0;0,0;"PUNTUACION JUG. ";JU;" = ";PUN;1,0;"PULSA UNA TECLA (M=MENU).":0:"":I$=:I$="M"4000    MODO 2  "(V$=E$:M$=B$:N$="":O$="":62008 ,iX$=C$+D$:F=130:Z=(*X$+1):X$=X$(Z)+X$(Z-1)+X$(Z+1):F:6400 66500d:5240x   VENTANA INFERIOR  =0;4;1;15,0;, 8:8:8:16,2;"JUG.1:";1;A$(1);16,19;0;"JUG.2:";1;A$(2) k18,2;"JUG.3:";1;A$(3);18,19;0;"JUG.4:";1;A$(4) >20,4;"MAXIMA PUNTUACION:";1;A$(5)    VENTANA SUPERIOR  +0,0;7;2;,  1,1;"JUGADOR: ";1;JU;0;1,12 ;"MODO: ";M;1,20;"PREGUNTA: ";1;1;PR * p BORRA VENTANA  z&F=413 :F,0;,,:F  8 IMPRIME VERBOS  BB11 ,0;"INFINITIVE|PAST TENSE|PARTICIPLE" LB13 ,1;M$;13 ,12 ;N$;13 ,23;O$ V9 ,0;"VERBO: ";V$ `(0,108l:255,0:  IMPRIME CLAVE   *5,5;"CLAVE: ";1;X$: d INPUTS  n"&PASADO? ";N$:62008 x("&PARTICIPIO PASADO? ";O$:62008   PUNTUA SEGUN ERRORES  3PUN=0:M$=B$N$=C$O$=D$PUN=PUN+250 9C=1̱M$:CDZB$PUN=PUN+10 *(M$(C)=B$(C)):C 9C=1̱N$:CDZC$PUN=PUN+10 *(N$(C)=C$(C)):C 9C=1̱O$:CDZD$PUN=PUN+10 *(O$(C)=D$(C)):C A(JU)=A(JU)+PUN:9200#: X @  DATOS  J""BE","WAS","BEEN","SER","ESTAR." T#"BEAT","BEAT","BEATEN","GOLPEAR." ^,"BECOME","BECAME","BECOME","LLEGAR A SER." h$"BEGIN","BEGAN","BEGUN","EMPEZAR." r!"BITE","BIT","BITTEN","MORDER." |$"BREAK","BROKE","BROKEN","ROMPER." &"BRING","BROUGHT","BROUGHT","TRAER." &"BUILD","BUILT","BUILT","CONSTRUIR." ""BURN","BURNT","BURNT","QUEMAR." $"BUY","BOUGHT","BOUGHT","COMPRAR." &"CATCH","CAUGHT","CAUGHT","ATRAPAR." &"CHOOSE","CHOSE","CHOSEN","ESCOGER." "COME","CAME","COME","VENIR."  "COST","COST","COST","COSTAR." "CUT","CUT","CUT","CORTAR." "DO","DID","DONE","HACER." ""DRINK","DRANK","DRUNK","BEBER." &"DRIVE","DROVE","DRIVEN","CONDUCIR." "EAT","ATE","EATEN","COMER."  "FALL","FELL","FALLEN","CAER."  "FEEL","FELT","FELT","SENTIR." %"FIGHT","FOUGHT","FOUGHT","LUCHAR." &%"FIND","FOUND","FOUND","ENCONTRAR." 0"FLY","FLEW","FLOWN","VOLAR." :,"FORBID","FORBADE","FORBIDDEN","PROHIBIR." D*"FORGET","FORGOT","FORGOTTEN","OLVIDAR." N'"FREEZE","FROZE","FROZEN","CONGELAR." X"GET","GOT","GOT","OBTENER." b"GIVE","GAVE","GIVEN","DAR." l"GO","WENT","GONE","IR." v,"GROW","GREW","GROWN","CRECER","CULTIVAR." "HAVE","HAD","HAD","TENER." "HEAR","HEARD","HEARD","OIR." #"HIDE","HID","HIDDEN","ESCONDER." "HIT","HIT","HIT","PEGAR." "HURT","HURT","HURT","DOLER." ,"KEEP","KEPT","KEPT","MANTENER","GUARDAR." "KNOW","KNEW","KNOW","SABER." '"LEARN","LEARNT","LEARNT","APRENDER." ,"LEAVE","LEFT","LEFT","DEJAR","ABANDONAR." !"LEND","LENT","LENT","PRESTAR." "LET","LET","LET","PERMITIR." !"LIGHT","LIT","LIT","ALUMBRAR." "LOSE","LOST","LOST","PERDER." !*"MAKE","MADE","MADE","HACER","FABRICAR." ! &"MEAN","MEANT","MEANT","SIGNIFICAR." !!"MEET","MET","MET","ENCONTRAR." ! "PAY","PAID","PAID","PAGAR." !*"PUT","PUT","PUT","PONER." !4"READ","READ","READ","LEER." !>""RIDE","RODE","RIDDEN","MONTAR." !H2"RING","RANG","RUNG","LLAMAR AL TIMBRE","SONAR." !R"RUN","RAN","RUN","CORRER." !\"SAY","SAID","SAID","DECIR." !f"SEE","SAW","SEEN","VER." !p "SELL","SOLD","SOLD","VENDER." !z "SEND","SENT","SENT","ENVIAR." !$"SHINE","SHONE","SHONE","BRILLAR." !#"SHOOT","SHOT","SHOT","DISPARAR." !$"SHOW","SHOWED","SHOWN","MOSTRAR." ! "SHUT","SHUT","SHUT","CERRAR." ! "SING","SANG","SUNG","CANTAR." !"SIT","SAT","SAT","SENTARSE." !#"SLEEP","SLEPT","SLEPT","DORMIR." !!"SMELL","SMELT","SMELT","OLER." !$"SPEAK","SPOKE","SPOKEN","HABLAR." !#"SPEND","SPENT","SPENT","GASTAR." !)"STAND","STOOD","STOOD","ESTAR DE PIE." !#"STEAL","STOLE","STOLEN","ROBAR." !"SWIM","SWAM","SWUM","NADAR." " "TAKE","TOOK","TAKEN","TOMAR." "&"TEACH","TAUGHT","TAUGHT","ENSE@AR." " "TEAR","TORE","TORN","RASGAR." "$ "TELL","TOLD","TOLD","CONTAR." ".'"THINK","THOUGHT","THOUGHT","PENSAR." "8,"THROW","THREW","THROWN","LANZAR","TIRAR." "B$"WAKE","WOKE","WOKEN","DESPERTAR." "L "WEAR","WORE","WORN","LLEVAR." "V"WIN","WON","WON","GANAR." "`'"WRITE","WROTE","WRITTEN","ESCRIBIR." "j" " #( INICIALIZACION  #2-A(5):A$(5,5):9200# #F 9300T$ #P!J=1:P=5:M=1 #x3F=14:A(F)=0:A$(F)="0":F # # ACTUALIZA A$  #F=15 $)A$(F)="0"(5-A(F))+A(F):F $ $T POKEA CHARS  $^ 64200 $h<236066\,23670v\:236077\,23671w\-1 $r ' ' b23801\,255:"IRREVERBS"1:23736\,181:"CHARS"64200,770 'A"IRREVERBS":"CHARS"64200,770:23801\,0 0x#jpml"" eM3Wuo0]MrMQMWm M-z\>v>$$$~$$~$>(> >bd&F B<  >>> < >>>BB<DHpHDB@~BfZBBBBbRJFB>BB<DHpHDB@~BfZBBBBbRJFB