French Vocabulary

   10 REM FRENCH VOCABULARY
   20 LET SCORE=0: PAPER 1: INK 7: BORDER 1: CLS 
   30 DIM A(20)
   40 PRINT ''TAB 6;"Welcome to this French"
   50 PRINT TAB 8;"vocabulary test."
   60 PRINT ''TAB 6;"How many words would"
   70 PRINT "   you like to try? (1 to 20)"
   80 INPUT B
   90 IF B<1 OR B>20 THEN GO TO 80
  100 FOR C=1 TO B
  110 FOR D=1 TO INT (RND*20)+1
  120 READ E$: READ F$: READ X
  130 NEXT D
  140 RESTORE : CLS 
  150 IF A(X)=1 THEN GO TO 110
  160 LET A(X)=1
  170 PRINT ''' INK RND*7; PAPER 9;" Question number ";C;": "
  180 PRINT '''"What is the French word for";TAB 4;E$;"?"
  190 INPUT A$
  200 IF A$=F$ THEN LET SCORE=SCORE+1: BEEP .1,2.5*SCORE: PRINT FLASH 1; INK 2; PAPER 5;'''" Yes, ";F$;" is correct "
  210 IF A$<>F$ THEN PRINT ''"No, I'm sorry."''"The French word for ";E$;TAB 6;"is ";F$
  220 IF C<B THEN PRINT '' INK 3; FLASH 1; BRIGHT 1;" Your score is now ";SCORE;" "
  230 PAUSE 150
  240 NEXT C
  250 INK 2: PAUSE 7: FLASH 1: CLS : PRINT AT 6,3;"In that test you scored ";SCORE
  260 PAUSE 200: FLASH 0
  270 RUN 
  280 DATA "EVERYWHERE","PARTOUT",1,"SELDOM","RAREMENT",2,"OFTEN","SOUVENT",3,"NEVER","JAMAIS",4,"ALWAYS","TOUJOURS",5
  290 DATA "VERY","TRES",6,"MORE","PLUS",7,"LESS","MOINS",8,"YES","OUI",9,"NO","NON",10
  300 DATA "THANK YOU","MERCI",11,"ONE","UN",12,"TWO","DEUX",13,"THREE","TROIS",14,"FOUR","QUATRE",15
 9998 SAVE "FRENCH 1" LINE 1