home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / rpos2101.zip / FRENCH.P < prev    next >
Text File  |  1998-07-02  |  3KB  |  153 lines
  1. R: french.p - A quiz on your skills in the French language
  2.  : Written by Rob Linwood (auntfloyd@biosys.net)
  3.  
  4. T: Welcome to the French Quiz!
  5.  : You will be given a word in French, and asked to pick the BEST
  6.  : translation for it.
  7.  :
  8.  : Example:
  9.  :
  10.  :    Fromage
  11.  :
  12.  : 1. Cat
  13.  : 2. Dog
  14.  : 3. Cheese
  15.  : 4. Mouse
  16.  :
  17.  : Here you would enter 1, 2, 3, or 4 depending on what you think
  18.  : the best translation for the word "Fromage" is.  (btw, the answer is 3)
  19.  :
  20.  : Hit "Enter" to get started!
  21.  :
  22. A: $junk
  23.  
  24. R: Initialize the variables
  25. C: #right = 0
  26. C: #wrong = 0
  27.  
  28. R: Let's get started with the quiz...
  29.  
  30. T:
  31.  : Q1. Porte
  32.  :
  33.  :  1. Ring
  34.  :  2. Cup
  35.  :  3. Belt
  36.  :  4. Door
  37. U: answer
  38. C(#ans = 4): #right = #right + 1
  39. C(#ans <> 4): #wrong = #wrong + 1
  40.  
  41. T:
  42.  : Q2. Ceinture
  43.  :
  44.  :  1. Helmet
  45.  :  2. Belt
  46.  :  3. Bicycle
  47.  :  4. Cat
  48. U: answer
  49. C(#ans = 2): #right = #right + 1
  50. C(#ans <> 2): #wrong = #wrong + 1
  51.  
  52. T:
  53.  : Q3. Cambriolage
  54.  :
  55.  :  1. Floor wax
  56.  :  2. Robbery
  57.  :  3. Bus station
  58.  :  4. Expression
  59. U: answer
  60. C(#ans = 2): #right = #right + 1
  61. C(#ans <> 2): #wrong = #wrong + 1
  62.  
  63. T:
  64.  : Q4. Chapeau
  65.  :
  66.  :  1. Hat
  67.  :  2. Chair
  68.  :  3. Earring
  69.  :  4. Wig
  70. U: answer
  71. C(#ans = 1): #right = #right + 1
  72. C(#ans <> 1): #wrong = #wrong + 1
  73.  
  74. T:
  75.  : Q5. Conduire
  76.  :
  77.  :  1. To run
  78.  :  2. To remove
  79.  :  3. To drive
  80.  :  4. To type
  81. U: answer
  82. C(#ans = 3): #right = #right + 1
  83. C(#ans <> 3): #wrong = #wrong + 1
  84.  
  85. T:
  86.  : Q6. Chien
  87.  :
  88.  :  1. Cat
  89.  :  2. Rabbit
  90.  :  3. Mouse
  91.  :  4. Dog
  92. U: answer
  93. C(#ans = 4): #right = #right + 1
  94. C(#ans <> 4): #wrong = #wrong + 1
  95.  
  96. T:
  97.  : Q7. Jeterai
  98.  :
  99.  :  1. Will speak
  100.  :  2. Will run
  101.  :  3. Will throw
  102.  :  4. Will eat
  103. U: answer
  104. C(#ans = 3): #right = #right + 1
  105. C(#ans <> 3): #wrong = #wrong + 1
  106.  
  107. T:
  108.  : Q8. Irais
  109.  :
  110.  :  1. Will go
  111.  :  2. Will become
  112.  :  3. Will have
  113.  :  4. Will be
  114. U: answer
  115. C(#ans = 1): #right = #right + 1
  116. C(#ans <> 1): #wrong = #wrong + 1
  117.  
  118. T:
  119.  : Q9. Zut Alors!
  120.  :
  121.  :  1. Shucks!
  122.  :  2. Darn!
  123.  :  3. Oh my!
  124.  :  4. Sacré Bleu!
  125. U: answer
  126. C: #right = #right + 1
  127.  
  128. T:
  129.  : Q10. Parlez-vous anglais?
  130.  :
  131.  :  1. I am lost.
  132.  :  2. I am a tourist.
  133.  :  3. I am looking to be mugged.
  134.  :  4. Do you speak English?
  135. U: answer
  136. C(#ans = 4): #right = #right + 1
  137. C(#ans <> 4): #wrong = #wrong + 1
  138. J: done
  139.  
  140. *answer
  141. A: #ans
  142. T(#ans > 4): Please enter a number between 1 and 4
  143. T(#ans < 1): Please enter a number between 1 and 4
  144. J(#ans < 1): answer
  145. J(#ans > 4): answer
  146. E:
  147.  
  148. *done
  149.  
  150. C: #percent = #right * 10
  151. T: You got #right out of 10.  This is #percent percent correct.
  152.  
  153.