home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 126-150 / apd138 / french_tutor.amos / french_tutor.amosSourceCode
AMOS Source Code  |  1991-05-03  |  12KB  |  382 lines
  1. Rem COPYRIGHT K.G.GRIGG 1991 
  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 FRENCH (ALPHABETICAL)"
  12. Locate 1,15 : Print "(2)  ENGLISH TO FRENCH (RANDOM)"
  13. Locate 1,17 : Print "(3)  FRENCH 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/french 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 FRENCH  
  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$,FRENCH$
  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 FRENCH$
  38. Rem FRENCH TO ENGLISH  
  39. If TEST=3 Then Read ENGLISH$,FRENCH$
  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 FRENCH$
  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","capable"
  50. 2 Data "absent","absent"
  51. 3 Data "active","actif"
  52. 4 Data "affectionate","affectueux"
  53. 5 Data "agreed","d'accord"
  54. 6 Data "amuse","amuser"
  55. 7 Data "anguish","angoisse"
  56. 8 Data "awkward","gauche"
  57. 9 Data "bad","mauvais"
  58. 10 Data "bald","chauve"
  59. 11 Data "beautiful","beau, belle"
  60. 12 Data "big, large, tall","grand"
  61. 13 Data "bite","morsure"
  62. 14 Data "black","noir"
  63. 15 Data "blind","store"
  64. 16 Data "blue","bleu"
  65. 17 Data "blur","tache"
  66. 18 Data "brave","brave"
  67. 19 Data "bright","clair"
  68. 20 Data "Britain","l'Angleterre"
  69. 21 Data "brown","brun"
  70. 22 Data "bunch","bouquet"
  71. 23 Data "calm","calme"
  72. 24 Data "careful","soigneux"
  73. 25 Data "carelss","sanssoin"
  74. 26 Data "certain","certain"
  75. 27 Data "cheep","piauler"
  76. 28 Data "clean","propre"
  77. 29 Data "clear (of meaning)","clair"
  78. 30 Data "clever","habile"
  79. 31 Data "climb","escalade"
  80. 32 Data "cold","froid"
  81. 33 Data "coming","prochain"
  82. 34 Data "common","commun"
  83. 35 Data "complete","complet"
  84. 36 Data "conceited","vaniteux"
  85. 37 Data "conscious","conscient"
  86. 38 Data "convenient","commode"
  87. 39 Data "cool","frais"
  88. 40 Data "correct","correct"
  89. 41 Data "cruel","cruel"
  90. 42 Data "damp","humidite"
  91. 43 Data "daring","audace"
  92. 44 Data "dark","noir"
  93. 45 Data "dead","morts"
  94. 46 Data "deaf","sourd"
  95. 47 Data "dear","cher"
  96. 48 Data "deck","pont"
  97. 49 Data "deep","fond"
  98. 50 Data "difficult","difficile"
  99. 51 Data "dirty","salir"
  100. 52 Data "disagreeable","desagreable"
  101. 53 Data "dishonourable","deshonorant"
  102. 54 Data "doubtful","douteux"
  103. 55 Data "drunkard","ivrogne"
  104. 56 Data "dry","sec"
  105. 57 Data "dull","ennuyeux"
  106. 58 Data "dumb","muet"
  107. 59 Data "eager","ardent"
  108. 60 Data "early","matinal"
  109. 61 Data "ease","tranquillite"
  110. 62 Data "eighth","huit"
  111. 63 Data "empty","vide"
  112. 64 Data "enough","assez"
  113. 65 Data "envious","envieux"
  114. 66 Data "equal","egal"
  115. 67 Data "eye","oeil"
  116. 68 Data "excellent","excellent"
  117. 69 Data "fair, blonde","beau"
  118. 70 Data "faith","parole"
  119. 71 Data "false, artificial","faux"
  120. 72 Data "famous","fameux"
  121. 73 Data "far off","eloigne"
  122. 74 Data "fast, quick","jeune"
  123. 75 Data "fat","graisse"
  124. 76 Data "feminine","feminin"
  125. 77 Data "fertile","fertile"
  126. 78 Data "fight","lutte"
  127. 79 Data "firm","firme"
  128. 80 Data "first","premier"
  129. 81 Data "flash","eclair"
  130. 82 Data "follow","suivre"
  131. 83 Data "foolish","stupide"
  132. 84 Data "foreign","etranger"
  133. 85 Data "four","quatre"
  134. 86 Data "free","libre"
  135. 87 Data "frequent","frequent"
  136. 88 Data "full","plein"
  137. 89 Data "funny","drole"
  138. 90 Data "furious","furieux"
  139. 91 Data "generous","genereux"
  140. 92 Data "gentry","haute"
  141. 93 Data "good","bien"
  142. 94 Data "grateful","reconnaissant"
  143. 95 Data "green","vert"
  144. 96 Data "grey","gris"
  145. 97 Data "hang","pendre"
  146. 98 Data "happy","heureux"
  147. 99 Data "hard, tough","dur"
  148. 100 Data "harm","mal"
  149. 101 Data "healthy","sain"
  150. 102 Data "heavy","lourd"
  151. 103 Data "high","haut"
  152. 104 Data "honest","honnete"
  153. 105 Data "hot","chaud"
  154. 106 Data "ill","mal"
  155. 107 Data "impolite","impoli"
  156. 108 Data "important","important"
  157. 109 Data "impossible","impossible"
  158. 110 Data "improbable","improbable"
  159. 111 Data "inactive","inactif"
  160. 112 Data "incomplete","incomplet"
  161. 113 Data "inconvenient","incommode"
  162. 114 Data "incorrect","inexact"
  163. 115 Data "innocent","innocent"
  164. 116 Data "inquisitive","curieux"
  165. 117 Data "intelligent","intelligent"
  166. 118 Data "interest","interet"
  167. 119 Data "international","international"
  168. 120 Data "jealous","jaloux"
  169. 121 Data "just","juste"
  170. 122 Data "kin","souche"
  171. 123 Data "last","forme"
  172. 124 Data "late","tard"
  173. 125 Data "lazy","paresseux"
  174. 126 Data "left (of leave)","gauche"
  175. 127 Data "level","niveau"
  176. 128 Data "like","semblable"
  177. 129 Data "long","long"
  178. 130 Data "loud","haut"
  179. 131 Data "low","beuglement"
  180. 132 Data "mad","fou"
  181. 133 Data "marriage","mariage"
  182. 134 Data "marvellous","merveilleux"
  183. 135 Data "masculine","masculin"
  184. 136 Data "mild","doux"
  185. 137 Data "miserable","malheureux"
  186. 138 Data "modern","moderne"
  187. 139 Data "mysterious","mysterieux"
  188. 140 Data "narrow","etroit"
  189. 141 Data "naughty","vilain"
  190. 142 Data "necessary","nebuleux"
  191. 143 Data "new (not old)","neuf"
  192. 144 Data "nice","delicat"
  193. 145 Data "nine","neuf"
  194. 146 Data "noble","noble"
  195. 147 Data "normal","normal"
  196. 148 Data "notice","avis"
  197. 149 Data "numerous","nombreux"
  198. 150 Data "odd, uneven","impair"
  199. 151 Data "offer","offre"
  200. 152 Data "old","vieux"
  201. 153 Data "open","ouvert"
  202. 154 Data "opposite","oppose"
  203. 155 Data "orange","orange"
  204. 156 Data "ordinary (of objects)","ordinaire"
  205. 157 Data "out","dehors"
  206. 158 Data "patient","malade"
  207. 159 Data "perhaps","peutetre"
  208. 160 Data "plentiful","abondant"
  209. 161 Data "poisonous","empoisonne"
  210. 162 Data "polite","poli"
  211. 163 Data "pond","bassin"
  212. 164 Data "poor","pauvre"
  213. 165 Data "possible","possible"
  214. 166 Data "practical","pratique"
  215. 167 Data "pray","prier"
  216. 168 Data "present (of time)","present"
  217. 169 Data "pretty","joli"
  218. 170 Data "prize","prix"
  219. 171 Data "probable","probable"
  220. 172 Data "proud","fier"
  221. 173 Data "public","public"
  222. 174 Data "pure","pur"
  223. 175 Data "purple","violet"
  224. 176 Data "rare","rare"
  225. 177 Data "ready","pret"
  226. 178 Data "real","reel"
  227. 179 Data "reasonable","raisonnable"
  228. 180 Data "red","rouge"
  229. 181 Data "relief","soulagement"
  230. 182 Data "remarkable","remarquable"
  231. 183 Data "rich","riche"
  232. 184 Data "right (not left)","droite"
  233. 185 Data "ripe","mur"
  234. 186 Data "rough","rugueux"
  235. 187 Data "round","rond"
  236. 188 Data "royal","royal"
  237. 189 Data "rural","rural"
  238. 190 Data "sacred","sacre"
  239. 191 Data "sad","triste"
  240. 192 Data "safe, secure, sure","sauf"
  241. 193 Data "sane","sain"
  242. 194 Data "satisfy","satisfaire"
  243. 195 Data "scarce","rare"
  244. 196 Data "second","seconde"
  245. 197 Data "serious","serieux"
  246. 198 Data "seven","sept"
  247. 199 Data "sew","pointu"
  248. 200 Data "sharp","pointu"
  249. 201 Data "shorts","culotte"
  250. 202 Data "shut","fermer"
  251. 203 Data "silent","silencieux"
  252. 204 Data "simple","simple"
  253. 205 Data "since","depuis"
  254. 206 Data "single","seul"
  255. 207 Data "six","six"
  256. 208 Data "skilful","habile"
  257. 209 Data "slow","lent"
  258. 210 Data "small, little","petit"
  259. 211 Data "smooth","lisse"
  260. 212 Data "smug","prudhommes"
  261. 213 Data "soft","mou"
  262. 214 Data "solid","solide"
  263. 215 Data "sour (of taste)","aigre"
  264. 216 Data "special","special"
  265. 217 Data "square","carre"
  266. 218 Data "stiff","raide"
  267. 219 Data "still","alambic"
  268. 220 Data "strange","etrange"
  269. 221 Data "strong","fort"
  270. 222 Data "stupid","stupide"
  271. 223 Data "sudden","soudain"
  272. 224 Data "sufficient","suffisant"
  273. 225 Data "suitable","approprie"
  274. 226 Data "sunburnt","hale"
  275. 227 Data "sweet","doux"
  276. 228 Data "swift","martinet"
  277. 229 Data "talk","conversation"
  278. 230 Data "tedious","ennuyeux"
  279. 231 Data "tender","devis"
  280. 232 Data "ten","dix"
  281. 233 Data "tent","tente"
  282. 234 Data "terrible","terrible"
  283. 235 Data "thick","epais"
  284. 236 Data "thin, slender","mince"
  285. 237 Data "third","tiers"
  286. 238 Data "tidy, neat","bien"
  287. 239 Data "tie","cravate"
  288. 240 Data "timely","opportun"
  289. 241 Data "tired","fatigue"
  290. 242 Data "trouble","difficulte"
  291. 243 Data "true","vrai"
  292. 244 Data "ugly","laid"
  293. 245 Data "unable","incapable"
  294. 246 Data "uncertain","incertain"
  295. 247 Data "uncomfortable","incommode"
  296. 248 Data "unconscious","inconscient"
  297. 249 Data "uncooked, raw; crude","cru"
  298. 250 Data "uneasy","mal"
  299. 251 Data "unequal","inegal"
  300. 252 Data "ungrateful","ingrat"
  301. 253 Data "unimportant","sans importance"
  302. 254 Data "unnecessary","pas necessaire"
  303. 255 Data "unpolished","terne"
  304. 256 Data "unsettled","indecis"
  305. 257 Data "untrue","faux"
  306. 258 Data "unworthy","indigne"
  307. 259 Data "urgent","urgent"
  308. 260 Data "useful","utile"
  309. 261 Data "useless, futile","inutile"
  310. 262 Data "usual","usuel"
  311. 263 Data "vain","vain"
  312. 264 Data "valuable","de grande valeur"
  313. 265 Data "various","varie"
  314. 266 Data "violent","violent"
  315. 267 Data "visible","visible"
  316. 268 Data "vulgar","vulgaire"
  317. 269 Data "warm","chaud"
  318. 270 Data "weak","faible"
  319. 271 Data "wet","humidite"
  320. 272 Data "white","blanc"
  321. 273 Data "whole","tout"
  322. 274 Data "wicked","mechant"
  323. 275 Data "wide","large"
  324. 276 Data "wild (of animals)","sauvage"
  325. 277 Data "willing","tout dispose"
  326. 278 Data "win","gagner"
  327. 279 Data "windy","venteux"
  328. 280 Data "wisdom","sagesse"
  329. 281 Data "wonderful","etonnant"
  330. 282 Data "worthy","digne"
  331. 283 Data "wrong","tort"
  332. 284 Data "yellow","jaune"
  333. 285 Data "young","petit"
  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=42 Then Locate 21,20 : Print "'"
  339. If QN=52 Then Locate 15,20 : Print "'    '"
  340. If QN=53 Then Locate 15,20 : Print "'"
  341. If QN=61 Then Locate 25,20 : Print "'"
  342. If QN=66 Then Locate 14,20 : Print "'"
  343. If QN=73 Then Locate 14,20 : Print "'     '"
  344. If QN=74 Then Locate 16,20 : Print "^"
  345. If QN=76 Then Locate 15,20 : Print "'"
  346. If QN=81 Then Locate 14,20 : Print "'"
  347. If QN=84 Then Locate 14,20 : Print "'"
  348. If QN=87 Then Locate 16,20 : Print "'"
  349. If QN=89 Then Locate 16,20 : Print "^"
  350. If QN=91 Then Locate 15,20 : Print "' '"
  351. If QN=104 Then Locate 18,20 : Print "^"
  352. If QN=118 Then Locate 17,20 : Print "' ^"
  353. If QN=139 Then Locate 18,20 : Print "'"
  354. If QN=140 Then Locate 14,20 : Print "'"
  355. If QN=142 Then Locate 15,20 : Print "'"
  356. If QN=144 Then Locate 15,20 : Print "'"
  357. If QN=154 Then Locate 19,20 : Print "'"
  358. If QN=159 Then Locate 18,20 : Print "^"
  359. If QN=161 Then Locate 23,20 : Print "'"
  360. If QN=168 Then Locate 16,20 : Print "'"
  361. If QN=177 Then Locate 16,20 : Print "^"
  362. If QN=178 Then Locate 15,20 : Print "'"
  363. If QN=185 Then Locate 15,20 : Print "^"
  364. If QN=190 Then Locate 18,20 : Print "'"
  365. If QN=197 Then Locate 15,20 : Print "'"
  366. If QN=216 Then Locate 16,20 : Print "'"
  367. If QN=217 Then Locate 18,20 : Print "'"
  368. If QN=220 Then Locate 14,20 : Print "'"
  369. If QN=225 Then Locate 22,20 : Print "'"
  370. If QN=226 Then Locate 15,20 : Print "^"
  371. If QN=235 Then Locate 14,20 : Print "'"
  372. If QN=241 Then Locate 20,20 : Print "'"
  373. If QN=242 Then Locate 23,20 : Print "'"
  374. If QN=251 Then Locate 16,20 : Print "'"
  375. If QN=254 Then Locate 19,20 : Print "'"
  376. If QN=256 Then Locate 17,20 : Print "'"
  377. If QN=265 Then Locate 18,20 : Print "'"
  378. If QN=271 Then Locate 21,20 : Print "'"
  379. If QN=274 Then Locate 15,20 : Print "'"
  380. If QN=277 Then Locate 25,20 : Print "'"
  381. If QN=281 Then Locate 14,20 : Print "'"
  382. Return