2 REM IF YOU WANT TO ADD MORE WORDS JUST ADD'M AT THE END AND CHANGE LINE10
3 PRINT"THIS DICTIONARY CONTAINS THE MOST USEFUL WORDS FOR:":PRINT"HOUSE ,KITCHEN UTENSILS,FOODS,THING USUALLY DONE IN THE KITCHEN,ETC."
4 PRINT"BODY PARTS,FAMILY NAMES,OCUPATIONS":PRINT"ALL THE WORDS HAVE TO BE ENTERED IN SINGULAR,":PRINT"VERBS HAVE TO BE IN THE PRESENT FORM"
5 PRINT" PRESS RETURN AFTER EVERY ENTRY"
6 REM *** DONATED BY LUIS GONZALEZ ***
9 FORK=1TO3000:NEXT
10 NW=428:DIMW$(1,NW)
20 FORA=1TONW
30 READW$(0,A),W$(1,A)
40 NEXT
45 PRINT"[147]"
50 PRINT"E[146]NGLISH OR S[146]PANISH?"
60 GETA$:IFA$="E"THEN90
70 IFA$="S"THEN100
80 GOTO60
90 INPUT"ENTER ENGLISH WORD";W$::L=0:GOTO110
100 INPUT"ESCRIBA PALABRA EN ESPANOL";W$:L=1
110 F=0:FORA=1TONW
120 IF W$(L,A)=W$THENF=A:A=NW
130 NEXT
140 IF F THENPRINT"TRANSLATION IS * ";W$(1-L,F):GOTO50
150 PRINT"NOT IN THE DICTIONARY":GOTO50
155 REM OCUPACIONES Y NOMBRES DE FAMILIA
160 DATA FRIEND,AMIGO(A),NEIGHBOR,VECINO(A),FATHER IN LAW,SUEGRO,MOTHER IN LAW,SUEGRA,POLICEMAN,POLICIA,SOLDIER,SOLDADO,MILKMAN,LECHERO,PLUMBER,PLOMERO
170 DATA FATHER,PADRE,MOTHER,MADRE,SON,HIJO,DAUGHTER,HIJA,BROTHER,HERMANO,SISTER,HERMANA,AUNT,TIA,JANITOR,BARRENDERO(A)
175 DATA CARPENTER,CARPINTERO(A),PHARMACIST,FARMACEUTA,LAWYER,ABOGADO(A),DENTIST,DENTISTA,THIEF,LADRON(A),TEACHER,MAESTRO(A),STUDENT,ESTUDIANTE
180 DATA GRANDFATHER,ABUELO,GRANDMOTHER,ABUELA,UNCLE,TIO,NIECE,SOBRINA,NEPHEW,SOBRINO,BROTHER IN LAW,CUNADO,SISTER IN LAW,CUNADA
185 REM PARTES DE LA CASA ,ALIMENTOS Y UTENSILIOS
190 DATA HOUSE,CASA,DOOR,PUERTA,WINDOW,VENTANA,STAIRS(STEPS),ESCALAS,ROOF,TECHO,FLOOR,PISO,CARPET,TAPETE,CURTAIN ,CORTINA
195 DATA HALL,PASILLO,CLOCK,RELOJ,FREEZER,CONGELADOR,PAN,PEROL,POT,OLLA,DISH,PLATO,CUP,POCILLO,BAKING PAN,MOLDE DE HORNEAR,HAIR DRIER,SECADOR DE PELO
200 DATA KITCHEN,COCINA,DINING ROOM,COMEDOR,LIVING ROOM,SALA,BEDROOM,ALCOBA,LAUNDRY,LAVANDERIA,DRIER,SECADORA,CAN OPENER,ABRELATAS,KNIFE,CUCHILLO,SPOON,CUCHARA
205 DATA TABLE,MESA,CHAIR,SILLA,TABLECLOTH,MANTEL,DOORBEL,TIMBRE(CAMPANILLA),SOAP,JABON,DETERGENT,JABON LIQUIDO,TOWEL,TOALLA,SPONGE,ESPONJA,SALT,SAL
210 DATA WATER,AGUA,SUGAR,AZUCAR,PEPPER,PIMIENTA,CUMMINS,COMINOS,ICE CREAM,HELADO,CINAMON,CANELA,CELERY,APIO,ONION,CEBOLLA,GARLIC,AJO
211 DATA EGG,HUEVO,CHIKEN,POLLO,SOUP,SOPA,BREAD,PAN,JAM,MERMELADA,BUTTER,MANTEQUILLA,CHEESE,QUESO,TOAST,TOSTADA,TOASTER,TOSTADORA,BLENDER,LICUADORA
212 DATA COFFEE POT,CAFETERA,BAKE,HORNEAR,FRY,FREIR,COOK,COCINAR,CUT,CORTAR,DICE,PICAR,BROIL,ASAR,SEASON,SASONAR,LOW HEAT,CALOR BAJO,HIGH HEAT,CALOR ALTO
213 DATA JAM,MERMELADA,JELLY,JALEA,TOAST,TOSTADA,TOASTER,TOSTADORA,BLENDER,LICUADORA,KNEAD,AMASAR,MIX,MEZCLAR,WET,HUMEDECER,BEAT,BATIR,MIXER,BATIDORA
216 DATA LINEN,SABANAS,TOWEL,TOALLA,BED,CAMA,NIGHT STAND,MESA DE NOCHE,LAMP,LAMPARA,FAN,VENTILADOR,ALARM CLOCK,DESPERTADOR,BLANKET,COBIJA,SOCKS,MEDIAS
217 DATA MIRROR,ESPEJO,BATHROOM,BANO,TOILET,SANITARIO,TOILET PAPER,PAPEL INDISPENSABLE,SANITARY NAPKIN,TOALLA HIGIENICA,NAPKIN,SERVILLETA,TOOTHPICK,PALILLO
218 DATA REFRIGERATOR,REFRIGERADOR,CORN STARCH,MAIZENA,CORN,MAIZ,PEA,ARVEJA,BEAN,FRIJOL,GREEN BEAN,HABICHUELA,BEET,REMOLACHA,MUSHROOM,SETA,CABBAGE,REPOLLO
220 DATA COLD,FRIO,HOT,CALIENTE,BITTER,AMARGO,WARM,TIBIO,TIME,TIEMPO,WEATHER,CLIMA,FAST,RAPIDO,DEFROST,DESCONGELAR,BOIL,HERVIR,FREEZE,CONGELAR
221 DATA PIN,ALFILER,NEEDLE,AGUJA,NAIL,CLAVO,SCREW,TORNILLO,HAMMER,MARTILLO,SCREWDRIVER,DESTORNILLADOR,KEY,LLAVE,KEYHOLE,OJO DE LA CHAPA,DOORLOCK,CERRADURA
223 DATA PADLOCK,CANDADO,CHAIN,CADENA,KNIT,TEJER,SEW,COSER,GRIND,MOLER,MASH,MACHACAR,NOCK,TOCAR LA PUERTA,TURN OFF,APAGAR,TURN ON,PRENDER,MILK,LECHE
225 DATA LIGHT BULB,BOMBILLA,FLASH LIGHT,LAMPARA,MATCH,FOSFORO,CANDLE,VELA,FIRE PLACE,CHIMENEA,BOOKCASE,LIBRERO(BIBLIOTECA),DRESSER,TOCADOR,BENCH,BANCO
227 DATA RECORD PLAYER,TOCADISCO,SPEAKER,PARLANTE,RECORD,DISCO,SONG,CANCION,MUSIC,MUSICA,DANCE,BAILE,SHOE,ZAPATO,GLOVE,GUANTE,SCARF,PANOLETA,SHIRT,CAMISA
230 DATA GARBAGE,BASURA,EMPTY,VACIO,FULL,LLENO,DARK,OSCURO,LIGHT,LUZ(O CLARO),CLEAN,LIMPIO,DIRTY,SUCIO,BROKEN,ROTO(A),MEND,REMENDAR,WASH,LAVAR,FOOD,ALIMENTO
240 REM PARTES Y FUNCIONES DEL CUERPO
250 DATA EYES,OJOS,EAR,OIDO,NOSE,NARIZ,FINGER,DEDO,MOUTH,BOCA,TOOTH,DIENTE,NAIL,UNA,HAIR,PELO,FOOT,PIE,HAND,MANO,EYE,OJO
260 DATA PUPIL,PUPILA,EYEBROW,CEJA,EYELID,PARPADO,EYELASHES,PESTANA,HEAD,CABEZA,BRAIN,CEREBRO,LIVER,HIGADO,TOE,DEDO DEL PIE,LEG,PIERNA,BUTTOCK,NALGA,ELBOW,CODO
270 DATA THROAT,GARGANTA,CHEEK,MEJILLA,CHIN,ESPINILLA,BLOOD,SANGRE,TEAR,LAGRIMA,TONGUE,LENGUA,SWEAT,SUDOR,PERIOD,MENSTRUACION,PENIS,PENE,VAGINA,VAGINA
290 DATA BONE,HUESO,CLAVICLE,CLAVICULA,ARTERY,ARTERIA,VEIN,VENA,ARM,BRAZO,RIB,COSTILLA,MUSCLE,MUSCULO,SLEEP,DORMIR,REST,DESCANSAR,WALK,CAMINAR,NECK,CUELLO
300 REM ANIMALES ,PLANTAS,FRUTAS
310 DATA HORSE,CABALLO,COW,VACA,CAT,GATO,BIRD,PAJARO,FISH,PESCADO,SHARK,TIBURON,FLEA,PULGA,FLY,MOSCA,BEE,ABEJA,SQUIRREL,ARDILLA,RABBIT,CONEJO,DOG,PERRO(A)
320 DATA TREE,ARBOL,PARROT,LORO(A),SNAKE,CULEBRA,CROCODILE,COCODRILO,ALLIGATOR,CAIMAN,SHEEP,OVEJA,LAMB,CORDERO,PIG,CERDO,BACON,TOCINETA,HAM,JAMON
330 DATA ORANGE,NARANJA,BANANA,BANANO,TANGERINE,MANDARINA,COCONUT,COCO,TOMATOE,TOMATE,GRAPE,UVA,CHERRY,CEREZA,STRAWBERRY,CEREZA,RAISIN,PASA,PRUNE,CIRUELA PASA
340 DATA LETTER,CARTA,NEWSPAPER,PERIODICO,DESK,ESCRITORIO,BOSS,JEFE,MANAGER,GERENTE,CHAIRMAN,PRESIDENTE,DOCUMENT,DOCUMENTO,KEY,LLAVE
350 DATA TYPEWRITER,MAQUINA DE ESCRIBIR,STAMP,SELLO,APPROVE,APROVAR,SELL,VENDER,BUY,COMPRAR,EXCHANGE,CAMBIAR,RESIDENCE,RESIDENCIA
360 DATA TELEPHONE,TELEFONO,FILE,ARCHIVO,SIGNATURE,FIRMA,APPROVAL,APROVACION,SEAL,SELLAR,GLUE,GOMA,PAPER CLIP,GANCHO PARA PAPEL
370 DATA SECRETARY,SECRETARIO(A),JUDGE,JUEZ,FLASHLIGHT,LAMPARAD DE MANO,BOOK,LIBRO,NOTEBOOK,CUADERNO,PAPER,PAPEL,THREAD,HILO,DESK DRAWER,GAVETA
380 DATA WRITE,ESCRIBIR,ANSWER,CONTESTAR,SHOUT,GRITAR,ORDER,ORDENAR,SEND,ENVIAR,CLOSE,CERRAR,WALLET,BILLETERA,ILL,ENFERMO(A),IDLE,DESOCUPADO,LAZY,PEREZOSO
390 DATA BOX,CAJA,PO BOX,APARTADO POSTAL,PAPER PUNCH,PERFORADORA PAPEL,STAPLER,MAQUINA GANCHOS,ACCOUNTING,CONTABILIDAD,TIME CLOCK,RELOJ DE MARCAR,PAYROLL,NOMINA
400 DATA PAYCHECK,CHEQUE DE PAGO,DEBT,DEUDA,CREDIT,CREDITO,PAY,PAGAR,DIVIDE,DIVIDIR,MULTIPLY,MULTIPLICAR,ADD,SUMAR,SUBTRACT,RESTAR
410 DATA PENCIL,LAPIZ,BLACKBOARD,TABLERO,ERASER,BORRADOR,INK,TINTA,DRESS,VESTIDO,JACKET,SACO,EYEGLASSES,ANTEOJOS