home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 126-150 / apd138 / spanish_tutor.amos / spanish_tutor.amosSourceCode
AMOS Source Code  |  1978-08-29  |  11KB  |  371 lines

  1. Rem COPYRIGHT K.G.GRIGG 1990 
  2. Screen Open 0,320,200,16,Lowres
  3. Break Off 
  4. PN=2
  5. RESTART:
  6. Curs Off 
  7. Hide On 
  8. Cls 0
  9. Paper 0 : Pen PN
  10. Locate 17,7 : Print "MENU"
  11. Locate 1,13 : Print "(1)  ENGLISH TO SPANISH (ALPHABETICAL)"
  12. Locate 1,15 : Print "(2)  ENGLISH TO SPANISH (RANDOM)"
  13. Locate 1,17 : Print "(3)  SPANISH TO ENGLISH (RANDOM)"
  14. Clear Key : Wait Key 
  15. Do 
  16. If Key State(1) Then TEST=1 : Exit 
  17. If Key State(2) Then TEST=2 : Exit 
  18. If Key State(3) Then TEST=3 : Exit 
  19. Loop 
  20. Cls 0
  21. Load Iff "iff/spanish screen",1
  22. If TEST=1 Then Restore 1 : QN=1
  23. BEGIN:
  24. Paper 15 : Pen 1
  25. Locate 27,14 : Print TEST
  26. Rem ENGLISH TO SPANISH 
  27. If TEST=2 or TEST=3 Then Randomize Timer : R=Rnd(284) : Restore 1+R : QN=1+R
  28. If TEST=1 or TEST=2 Then Read ENGLISH$,SPANISH$
  29. If TEST=1 or TEST=2 Then Locate 14,8 : Print "PRESS A KEY,FOR NEXT WORD"
  30. If TEST=1 or TEST=2 Then Clear Key : Wait Key : If Key State(69) Then PN=1 : Goto RESTART
  31. If TEST=1 or TEST=2 Then Cls 15,108,62 To 313,73 : Wait 25
  32. If TEST=1 or TEST=2 Then Locate 14,8 : Print ENGLISH$
  33. If TEST=1 or TEST=2 Then Locate 26,12 : Print QN;"  "
  34. Locate 14,20 : Print "                         "
  35. If TEST=1 or TEST=2 Then Locate 14,21 : Print " PRESS A KEY,FOR ANSWER"
  36. If TEST=1 or TEST=2 Then Clear Key : Wait Key : Cls 15,108,166 To 313,177 : Wait 25
  37. If TEST=1 or TEST=2 Then Locate 14,21 : Print SPANISH$
  38. Rem SPANISH TO ENGLISH 
  39. If TEST=3 Then Read ENGLISH$,SPANISH$
  40. If TEST=3 Then Locate 14,21 : Print "PRESS A KEY,FOR NEXT WORD"
  41. If TEST=3 Then Clear Key : Wait Key : If Key State(69) Then PN=1 : Goto RESTART
  42. If TEST=3 Then Cls 15,108,155 To 313,177 : Wait 25
  43. Gosub ACCENTS
  44. If TEST=3 Then Locate 14,21 : Print SPANISH$
  45. If TEST=3 Then Locate 26,12 : Print QN;"  "
  46. If TEST=3 Then Locate 14,8 : Print " PRESS A KEY,FOR ANSWER"
  47. If TEST=3 Then Clear Key : Wait Key : Cls 15,108,62 To 313,73 : Wait 25
  48. If TEST=3 Then Locate 14,8 : Print ENGLISH$
  49. 1 Data "able","capaz"
  50. 2 Data "absent","ausente"
  51. 3 Data "active","activo"
  52. 4 Data "affectionate","carinoso"
  53. 5 Data "agreeable","agradable"
  54. 6 Data "amusing, amused","divertido"
  55. 7 Data "angry","enfadado, enjado"
  56. 8 Data "awkward","torpe"
  57. 9 Data "bad","malo"
  58. 10 Data "bald","calvo"
  59. 11 Data "beautiful","hermoso, bello"
  60. 12 Data "big, large, great","grande"
  61. 13 Data "bitter","amargo"
  62. 14 Data "black","negro"
  63. 15 Data "blind","ciego"
  64. 16 Data "blue","azul"
  65. 17 Data "blunt","romo"
  66. 18 Data "brave","valiente"
  67. 19 Data "bright","brillante"
  68. 20 Data "broken, torn","roto"
  69. 21 Data "brown","castano"
  70. 22 Data "busy","ocupado"
  71. 23 Data "calm","tranquilo"
  72. 24 Data "careful","cuidadoso"
  73. 25 Data "carelss","descuidado"
  74. 26 Data "certain","cierto"
  75. 27 Data "cheep","barato"
  76. 28 Data "clean","limpio"
  77. 29 Data "clear (of meaning)","evidente"
  78. 30 Data "clear, light","claro"
  79. 31 Data "clever","listo"
  80. 32 Data "cold","frio"
  81. 33 Data "comfortable","comodo"
  82. 34 Data "common","comun"
  83. 35 Data "complete","completo"
  84. 36 Data "conceited","presumido"
  85. 37 Data "conscious","consciente"
  86. 38 Data "convenient","conveniente"
  87. 39 Data "cool","fresco"
  88. 40 Data "correct","correcto"
  89. 41 Data "cruel","cruel"
  90. 42 Data "damp","humedo"
  91. 43 Data "daring","atrevido"
  92. 44 Data "dark","oscuro"
  93. 45 Data "dead","muerto"
  94. 46 Data "deaf","sordo"
  95. 47 Data "dear","querido"
  96. 48 Data "dear, expensive","caro"
  97. 49 Data "deep","profundo"
  98. 50 Data "difficult","dificil"
  99. 51 Data "dirty","sucio"
  100. 52 Data "disagreeable","desagradable"
  101. 53 Data "disloyal, faithless","desleal"
  102. 54 Data "doubtful","dudoso"
  103. 55 Data "drunken","bebido"
  104. 56 Data "dry","seco"
  105. 57 Data "dull","aburrido"
  106. 58 Data "dumb","mudo"
  107. 59 Data "eager","ansioso"
  108. 60 Data "early","temprano"
  109. 61 Data "easy","facil"
  110. 62 Data "eighth","octavo"
  111. 63 Data "empty","vacio"
  112. 64 Data "enough","suficiente"
  113. 65 Data "envious","envidioso"
  114. 66 Data "equal","iqual"
  115. 67 Data "excellent","excelente"
  116. 68 Data "extreme","extremo"
  117. 69 Data "fair, blonde","rubio"
  118. 70 Data "faithful","fiel, leal"
  119. 71 Data "false, artificial","postizo"
  120. 72 Data "famous","celebre"
  121. 73 Data "far off","lejamo"
  122. 74 Data "fast, quick","rapido"
  123. 75 Data "fat","gordo"
  124. 76 Data "feminine","femenino"
  125. 77 Data "fertile","fertil"
  126. 78 Data "fifth","quinto"
  127. 79 Data "firm","firme"
  128. 80 Data "first","primer~a"
  129. 81 Data "flat","plano"
  130. 82 Data "following","siguiente"
  131. 83 Data "foolish","tonto"
  132. 84 Data "foreign","extranjero"
  133. 85 Data "fourth","cuarto"
  134. 86 Data "free","libre"
  135. 87 Data "frequent","frecuente"
  136. 88 Data "full","lleno"
  137. 89 Data "funny","gracioso"
  138. 90 Data "furious","furioso"
  139. 91 Data "generous","generoso"
  140. 92 Data "gentle","suave"
  141. 93 Data "good","bueno"
  142. 94 Data "grateful","agradecido"
  143. 95 Data "green","verde"
  144. 96 Data "grey","gris"
  145. 97 Data "handsome, courageous","guapo"
  146. 98 Data "happy","feliz"
  147. 99 Data "happy, gay","alegre"
  148. 100 Data "hard, tough","duro"
  149. 101 Data "healthy","sano"
  150. 102 Data "heavy","pesado"
  151. 103 Data "high","elevado"
  152. 104 Data "honest","honrado"
  153. 105 Data "hot (of objects)","caliente"
  154. 106 Data "ill","enfermo"
  155. 107 Data "impolite","descortes"
  156. 108 Data "important","importante"
  157. 109 Data "impossible","imposible"
  158. 110 Data "improbable","improbable"
  159. 111 Data "inactive","inactivo"
  160. 112 Data "incomplete","incompleto"
  161. 113 Data "inconvenient","inconveniente"
  162. 114 Data "incorrect","incorrecto"
  163. 115 Data "innocent","inocente"
  164. 116 Data "inquisitive","curioso"
  165. 117 Data "intelligent","inteligente"
  166. 118 Data "interesting","interesante"
  167. 119 Data "international","internacional"
  168. 120 Data "jealous","celoso"
  169. 121 Data "just","justo"
  170. 122 Data "kind","amable"
  171. 123 Data "last","ultimo"
  172. 124 Data "late","tarde"
  173. 125 Data "lazy","perezoso"
  174. 126 Data "left","izquierdo"
  175. 127 Data "level","llano"
  176. 128 Data "likeable (of people)","simpatico"
  177. 129 Data "long","largo"
  178. 130 Data "loud","ruidoso"
  179. 131 Data "low","bajo"
  180. 132 Data "mad","loco"
  181. 133 Data "married","casado"
  182. 134 Data "marvellous","maravilloso"
  183. 135 Data "masculine","masculino"
  184. 136 Data "mild (of weather)","templado"
  185. 137 Data "miserable","desdichado"
  186. 138 Data "modern","moderno"
  187. 139 Data "mysterious","misterioso"
  188. 140 Data "narrow","estrecho"
  189. 141 Data "naughty","travieso"
  190. 142 Data "necessary","necesario"
  191. 143 Data "new (not old)","nuevo"
  192. 144 Data "nice (of taste)","sabroso"
  193. 145 Data "ninth","noveno"
  194. 146 Data "noble","noble"
  195. 147 Data "normal","normal"
  196. 148 Data "not heavy","ligero"
  197. 149 Data "numerous","numeroso"
  198. 150 Data "odd, rare","raro"
  199. 151 Data "of fine human qualities","fino"
  200. 152 Data "old","viejo"
  201. 153 Data "open","abierto"
  202. 154 Data "opposite","opuesto"
  203. 155 Data "orange","naranja"
  204. 156 Data "ordinary (of objects)","corriente"
  205. 157 Data "out of fashion","anticuado"
  206. 158 Data "patient","paciente"
  207. 159 Data "perfect","perfecto"
  208. 160 Data "plentiful","abundante"
  209. 161 Data "poisonous","venenoso"
  210. 162 Data "polite","cortes"
  211. 163 Data "politcal","politico"
  212. 164 Data "poor","pobre"
  213. 165 Data "possible","posible"
  214. 166 Data "practical","practico"
  215. 167 Data "present (not absent)","presente"
  216. 168 Data "present (of time)","actual"
  217. 169 Data "pretty","bonito"
  218. 170 Data "private","privado"
  219. 171 Data "probable","probable"
  220. 172 Data "proud","orgulloso"
  221. 173 Data "public","publico"
  222. 174 Data "pure","puro"
  223. 175 Data "purple","morado"
  224. 176 Data "rare","raro"
  225. 177 Data "ready","preparado"
  226. 178 Data "real","real"
  227. 179 Data "reasonable","razonable"
  228. 180 Data "red","rojo"
  229. 181 Data "reliable","fidedigno"
  230. 182 Data "remarkable","notable"
  231. 183 Data "rich","rico"
  232. 184 Data "right (not left)","derecho"
  233. 185 Data "ripe","maduro"
  234. 186 Data "rough","grosero"
  235. 187 Data "round","redondo"
  236. 188 Data "royal","real"
  237. 189 Data "rural","rural"
  238. 190 Data "sacred","sagrado"
  239. 191 Data "sad","triste"
  240. 192 Data "safe, secure, sure","seguro"
  241. 193 Data "sane","cuerdo"
  242. 194 Data "satisfied","satisfecho"
  243. 195 Data "scarce","escaso"
  244. 196 Data "second","segundo"
  245. 197 Data "serious","grave"
  246. 198 Data "seventh","septimo"
  247. 199 Data "severe","severo"
  248. 200 Data "sharp","agudo"
  249. 201 Data "short","corto"
  250. 202 Data "shut","cerrado"
  251. 203 Data "silent","callado"
  252. 204 Data "simple","sencillo"
  253. 205 Data "simple minded","simple"
  254. 206 Data "single","soltero"
  255. 207 Data "sixth","sexto"
  256. 208 Data "skilful","habil"
  257. 209 Data "slow","lento"
  258. 210 Data "small, little","pequeno"
  259. 211 Data "smooth","liso"
  260. 212 Data "smug","vanidoso"
  261. 213 Data "soft","blando"
  262. 214 Data "solid","solido"
  263. 215 Data "sour (of taste)","agrio"
  264. 216 Data "special","especial"
  265. 217 Data "square","cuadrado"
  266. 218 Data "stiff","tieso"
  267. 219 Data "still","quieto"
  268. 220 Data "strange","extrano"
  269. 221 Data "strong","fuerte"
  270. 222 Data "stupid","estupido"
  271. 223 Data "sudden","repentino"
  272. 224 Data "sufficient","suficiente"
  273. 225 Data "suitable","adecuado"
  274. 226 Data "sunburnt","tostado"
  275. 227 Data "sweet","dulce"
  276. 228 Data "swift","veloz"
  277. 229 Data "tall","alto"
  278. 230 Data "tedious","fastidioso"
  279. 231 Data "tender","tierno"
  280. 232 Data "tenth","decimo"
  281. 233 Data "tepid","tibio"
  282. 234 Data "terrible","terrible"
  283. 235 Data "thick","grueso"
  284. 236 Data "thin, slender","delgado"
  285. 237 Data "third","tercero"
  286. 238 Data "tidy, neat","aseado"
  287. 239 Data "tight","apretado"
  288. 240 Data "timely","oportuno"
  289. 241 Data "tired","cansado"
  290. 242 Data "troublesom","molesto"
  291. 243 Data "true","verdadero"
  292. 244 Data "ugly","feo"
  293. 245 Data "unable","incapaz"
  294. 246 Data "uncertain","incierto"
  295. 247 Data "uncomfortable","incomodo"
  296. 248 Data "unconscious","inconsciente"
  297. 249 Data "uncooked, raw; crude","crudo"
  298. 250 Data "uneasy","inquieto"
  299. 251 Data "unequal","desigual"
  300. 252 Data "ungrateful","ingrato"
  301. 253 Data "unimportant","leve"
  302. 254 Data "unnecessary","superfluo"
  303. 255 Data "unpolished","tosco"
  304. 256 Data "unsettled","variable"
  305. 257 Data "untrue","falso"
  306. 258 Data "unworthy","indigno"
  307. 259 Data "urgent","urgente"
  308. 260 Data "useful","util"
  309. 261 Data "useless, futile","inutil"
  310. 262 Data "usual","usual"
  311. 263 Data "vain","vano"
  312. 264 Data "valuable","valioso"
  313. 265 Data "various","diverso"
  314. 266 Data "violent","violento"
  315. 267 Data "visible","visible"
  316. 268 Data "vulgar","ordinario, vulgar"
  317. 269 Data "warm","calido"
  318. 270 Data "weak","debil"
  319. 271 Data "wet","mojado"
  320. 272 Data "white","blanco"
  321. 273 Data "whole","entero"
  322. 274 Data "wicked","malvado"
  323. 275 Data "wide","ancho"
  324. 276 Data "wild (of animals)","salvaje"
  325. 277 Data "wild (of plants)","silvestre"
  326. 278 Data "willing","dispuesto"
  327. 279 Data "windy","ventoso"
  328. 280 Data "wise","sabio"
  329. 281 Data "wonderful","estupendo"
  330. 282 Data "worthy","digno"
  331. 283 Data "wrong","equivocado"
  332. 284 Data "yellow","amarillo"
  333. 285 Data "young","joven"
  334. If TEST=1 Then Inc QN
  335. If TEST=1 and QN=286 Then Restore 1 : QN=1
  336. Goto BEGIN
  337. ACCENTS:
  338. If QN=4 Then Locate 18,20 : Print "~"
  339. If QN=21 Then Locate 19,20 : Print "~"
  340. If QN=32 Then Locate 16,20 : Print "'"
  341. If QN=33 Then Locate 15,20 : Print "'"
  342. If QN=34 Then Locate 17,20 : Print "'"
  343. If QN=42 Then Locate 15,20 : Print "'"
  344. If QN=50 Then Locate 17,20 : Print "'"
  345. If QN=61 Then Locate 15,20 : Print "'"
  346. If QN=63 Then Locate 17,20 : Print "'"
  347. If QN=72 Then Locate 15,20 : Print "'"
  348. If QN=74 Then Locate 15,20 : Print "'"
  349. If QN=77 Then Locate 15,20 : Print "'"
  350. If QN=98 Then Locate 17,20 : Print "'"
  351. If QN=107 Then Locate 21,20 : Print "'"
  352. If QN=123 Then Locate 14,20 : Print "'"
  353. If QN=128 Then Locate 18,20 : Print "'"
  354. If QN=162 Then Locate 18,20 : Print "'"
  355. If QN=163 Then Locate 17,20 : Print "'"
  356. If QN=166 Then Locate 16,20 : Print "'"
  357. If QN=173 Then Locate 15,20 : Print "'"
  358. If QN=198 Then Locate 15,20 : Print "'"
  359. If QN=208 Then Locate 15,20 : Print "'"
  360. If QN=210 Then Locate 19,20 : Print "~"
  361. If QN=214 Then Locate 15,20 : Print "'"
  362. If QN=220 Then Locate 19,20 : Print "~"
  363. If QN=222 Then Locate 17,20 : Print "'"
  364. If QN=232 Then Locate 15,20 : Print "'"
  365. If QN=247 Then Locate 17,20 : Print "'"
  366. If QN=254 Then Locate 21,20 : Print "'"
  367. If QN=260 Then Locate 14,20 : Print "'"
  368. If QN=261 Then Locate 16,20 : Print "'"
  369. If QN=269 Then Locate 15,20 : Print "'"
  370. If QN=270 Then Locate 15,20 : Print "'"
  371. Return