10 REM PRINCIPAUX
20 REM VERBES
30 REM IRREGULIERS
40 REM ANGLAIS
50 REM ---Verbes a plusieurs sens--
60 MODE 1
70 PAPER 0:DIM RA$(200):RESTORE 110
80 FOR RAP= 1 TO 40
90 READ RA$(RAP)
100 NEXT
110 DATA ORDONNER ou CONVIER,LIER ou RELIER
120 DATA CASSER ou ROMPRE,ELEVER ou ENGENDRER
130 DATA BATIR ou CONSTRUIRE,SE CRAMPONNER ou TENIR BON
140 DATA RAMPER ou S'INSINUER,AGIR ou DISTRIBUER ou S'OCCUPER
150 DATA FAIRE ou ACCOMPLIR, TIRER ou DESSINER
160 DATA SENTIR ou EPROUVER,VOLER ou DEROBER
170 DATA OBTENIR ou DEVENIR,SUSPENDRE ou PENDRE
180 DATA CACHER ou SE CACHER,FRAPPER ou COGNER
190 DATA BLESSER ou FAIRE MAL,GARDER ou CONSERVER
200 DATA SAVOIR ou CONNAITRE,CONDUIRE ou MENER
210 DATA LAISSER ou PERMETTRE ou LOUER,FAIRE ou FABRIOUER
220 DATA SIGNIFIER ou VOULOIR DIRE,ALLER A CHEVAL ou MONTER
230 DATA TIRER ou FUSILLER,SOMBRER ou COULER
240 DATA S'ASSEOIR ou ETRE ASSIS,RENVERSER ou REPANDRE
250 DATA FENDRE ou SE FENDRE ou DIVISER,ETENDRE ou SE PROPAGER
260 DATA SAUTER ou JAILLIR,SE TENIR ou ETRE DEBOUT
270 DATA LAISSER ou QUITTER,ENFLER ou S'ENFLER
280 DATA DIRE ou RACONTER,JETER ou LANCER
290 DATA MARRCHER SUR ou FOULER AU PIED,PENSER ou CROIRE
300 DATA POPTER ou SUPPORTER,POSER ou PLACER
310 '---------- MUSIC ------------
320 DATA 190,190,190,190
330 DATA 127,127,127,127
340 DATA 95,95,95,95,95,95
350 DATA 106,119
360 DATA 127,127,127,127,127,127
370 DATA 95,95,106,106
380 DATA 119,119,127,127
390 DATA 119,119,119,119,119,119
400 DATA 127,127
410 DATA 142,142,142,142,142,142
420 DATA 169,169,159,159
430 DATA 142,142,142,142,142,142,142
440 DATA 159,127,127,127,127
450 DATA 127,127,127,119,119
460 DATA 106,106,106,106
470 DATA 119,119,95,95,95,95
480 DATA 142,142,127,127
490 DATA 119,119,127,127
500 DATA 142,142,127,127
510 DATA 159,159,142,142
520 DATA 127,127,142,142
530 DATA 159,159,142,142
540 DATA 169,169,159,159
550 DATA 142,142,159,159
560 DATA 211,213,190,190,190,190,190,190,190,190,190,190
570 '----143 VERBES IRREGULIERS ----
580 RESTORE 590
590 DATA S'ELEVER,TO ARISE,I AROSE,ARISEN
600 DATA S'EVEILLER,TO AWAKE,I AKOKE,AWAKED
610 DATA ETRE,TO BE,I WAS,BEEN
620 DATA PORTER ou SUPPORTER,TO BEAR,I BORE,BORNE
630 DATA BATTRE,TO BEAT,I BEAT,BEATEN
640 DATA DEVENIR,TO BECOME,I BECAME,BECOME
650 DATA COMMENCER,TO BEGIN,I BEGAN,BEGUN
660 DATA COURBER,TO BEND,I BENT,BENT
670 DATA ORDONNER ou CONVIER,TO BID,I BADE,BIDDEN
680 DATA LIER ou RELIER,TO BIND,I BOUND,BOUND
690 DATA MORDRE,TO BITE,I BIT,BITTEN
700 DATA SAIGNER,TO BLEED,I BLED,BLED
710 DATA SOUFFLER,TO BLOW,I BLEW,BLOWN
720 DATA CASSER ou ROMPRE,TO BREAK,I BROKE,BROKEN
730 DATA ELEVER ou ENGENDRER,TO BREED,I BRED,BRED
740 DATA APPORTER,TO BRING,I BROUGHT,BROUGHT
750 DATA BATIR ou CONSTRUIRE,TO BUILD,I BUILT,BUILT
760 DATA BRULER,TO BURN,I BURNT,BURNT
770 DATA ECLATER,TO BURST,I BURST,BURST
780 DATA ACHETER,TO BUY,I BOUGHT,BOUGHT
790 DATA ATTRAPER,TO CATCH,I CAUGHT,CAUGHT
800 DATA CHOISIR,TO CHOOSE,I CHOSE,CHOSEN
810 DATA SE CRAMPONNER ou TENIR BON,TO CLING,I CLUNG,CLUNG
820 DATA VENIR,TO COME,I CAME,COME
830 DATA COUTER,TO COST,I COST,COST
840 DATA RAMPER ou S'INSINUER,TO CREEP,I CREPT,CREPT
850 DATA COUPER,TO CUT,I CUT,CUT
860 DATA AGIR ou DISTRIBUER ou S'OCCUPER,TO DEAL,I DEALT,DEALT
870 DATA CREUSER,TO DIG,I DUG,DUG
880 DATA FAIRE ou ACCOMPLIR,TO DO,I DID,DONE
890 DATA TIRER ou DESSINER,TO DRAW,I DREW,DRAWN
900 DATA REVER,TO DREAM,I DREAMT,DREAMT
910 DATA BOIRE,TO DRINK,I DRANK,DRUNK
920 DATA CONDUIRE,TO DRIVE,I DROVE,DRIVEN
930 DATA DEMEURER,TO DWELL,I DWELT,DWELT
940 DATA MANGER,TO EAT,I ATE,EATEN
950 DATA TOMBER,TO FALL,I FELL,FALLEN
960 DATA NOURRIR,TO FEED,I FED,FED
970 DATA SENTIR ou EPROUVER,TO FEEL,I FELT,FELT
980 DATA COMBATTRE,TO FIGHT,I FOUGHT,FOUGHT
990 DATA TROUVER,TO FIND,I FOUND,FOUND
1000 DATA S'ENFUIR,TO FLEE,I FLED,FLED
1010 DATA JETER,TO FLING,I FLUNG,FLUNG
1020 DATA VOLER (en l'air),TO FLY,I FLEW,FLOWN
1030 DATA INTERDIRE,TO FORBID,I FORBADE,FORBIDDEN
1040 DATA OUBLIER,TO FORGET,I FORGOT,FORGOTTEN
1050 DATA PARDONNER,TO FORGIVE,I FORGAVE,FORGIVEN
1060 DATA GELER,TO FREEZE,I FROZE,FROZEN
1070 DATA OBTENIR ou DEVENIR,TO GET,I GOT,GOT
1080 DATA DONNER,TO GIVE,I GAVE,GIVEN 
1090 DATA ALLER,TO GO,I WENT,GONE
1100 DATA MOUDRE,TO GRIND,I GROUND,CROUND
1110 DATA CROITRE,TO GROW,I GREW,GROWN
1120 DATA SUSPENDRE ou PENDRE,TO HANG,I HUNG,HUNG
1130 DATA AVOIR,TO HAVE,I HAD,HAD
1140 DATA ENTENDRE,TO HEAR,I HEARD,HEARD
1150 DATA CACHER ou SE CACHER,TO HIDE,I HID,HIDDEN
1160 DATA FRAPPER ou COGNER,TO HIT,I HIT,HIT
1170 DATA TENIR,TO HOLD,I HELD,HELD 
1180 DATA BLESSER ou FAIRE MAL,TO HURT,I HURT,HURT
1190 DATA GARDER ou CONSERVER,TO KEEP,I KEPT,KEPT
1200 DATA TRICOTER,TO KNIT,I KNIT,KNIT
1210 DATA S'AGENOUILLER,TO KNEEL,I KNELT,KNELT
1220 DATA SAVOIR ou CONNAITRE,TO KNOW,I KNEW,KHOWN
1230 DATA POSER,TO LAY,I LAID,LAID
1240 DATA CONDUIRE ou MENER,TO LEAD,I LED,LED
1250 DATA S'APPUYER,TO LEAN,I LEANT,LEANT
1260 DATA SAUTER,TO LEAP,I LEAPT,LEAPT
1270 DATA APPRENDRE,TO LEARN,I LEARNT,LEARNT
1280 DATA LAISSER ou QUITTER,TO LEAVE,I LEFT,LEFT
1290 DATA PRETER,TO LEND,I LENT,LENT
1300 DATA LAISSER ou PERNETTRE ou LOUER,TO LET,I LET,LET
1310 DATA ETRE COUCHE,TO LIE,I LAY,LAIN
1320 DATA ALLUMER,TO LIGHT,I LIT,LIT
1330 DATA PERDRE,TO LOSE,I LOST,LOST
1340 DATA FAIRE ou FABRIQUER,TO MAKE,I MADE,MADE
1350 DATA SIGNIFIER ou VOULOIR DIRE,TO MEAN,I MEANT,MEANT
1360 DATA RENCONTRER,TO MEET,I MET,MET
1370 DATA SE MEPRENDRE,TO MISTAKE,I MISTOOK,MISTAKEN
1380 DATA FAUCHER,TO MOW,I MOWED,MOWN
1390 DATA PAYER,TO PAY,I PAID,PAID
1400 DATA METTRE,TO PUT,I PUT,PUT
1410 DATA LIRE,TO READ,I READ,READ
1420 DATA DEBARRASSER,TO RID,I RID,RID
1430 DATA ALLER A CHEVAL ou MOMTER,TO RIDE,I RODE,RIDDEN
1440 DATA SONNER,TO RING,I RANG,RUNG
1450 DATA SE LEVER,TO RISE,I ROSE,RISEN
1460 DATA COURIR,TO RUN,I RAN,RUN
1470 DATA SCIER,TO SAW,I SAWED,SAWN
1480 DATA DIRE,TO SAY,I SAID,SAID
1490 DATA VOIR,TO SEE,I SAW,SEEN
1500 DATA CHERCHER,TO SEEK,I SOUGHT,SOUGHT
1510 DATA VENDRE,TO SELL,I SOLD,SOLD
1520 DATA ENVOYER,TO SEND,I SENT,SENT
1530 DATA POSER ou PLACER,TO SET,I SET,SET
1540 DATA SECOUER,TO SHAKE,I SHOOK,SHAKEN
1550 DATA BRILLER,TO SHINE,I SHONE,SHONE
1560 DATA TIRER ou FUSILLER,TO SHOOT,I SHOT,SHOT
1570 DATA MONTRER,TO SHOW,I SHOWED,SHOWN
1580 DATA SE RETRECIR,TO SHRINK,I SHRANK,SHRUNK
1590 DATA FERMER,TO SHUT,I SHUT,SHUT
1600 DATA CHANTER,TO SING,I SANG,SUNG
1610 DATA SOMBRER ou COULER,TO SINK,I SANK,SUNK
1620 DATA S'ASSOIR ou ETRE ASSIS,TO SIT,I SAT,SAT
1630 DATA DORMIR,TO SLEEP,I SLEPT,SLEPT
1640 DATA GLISSER,TO SLIDE,I SLID,SLID
1650 DATA FENDRE,TO SLIT,I SLIT,SLIT
1660 DATA SENTIR(une odeur),TO SMELL,I SMELT,SMELT
1670 DATA SEMER,TO SOW,I SOWED,SOWN
1680 DATA PARLER,TO SPEAK,I SPOKE,SPOKEN 
1690 DATA EPELER,TO SPELL,I SPELT,SPELT 
1700 DATA DEPENSER,TO SPEND,I SPENT,SPENT
1710 DATA RENVERSER ou REPANDRE,TO SPILL,I SPILT,SPILT
1720 DATA FILER,TO SPIN,I SPUN,SPUN 
1730 DATA CRACHER,TO SPIT,I SPAT,SPIT
1740 DATA FENDRE ou SE FENDRE ou DIVISER, TO SPLIT,I SPLIT,SPLIT
1750 DATA ETENDRE ou SE PROPAGER,TO SPREAD,I SPREAD,SPREAD
1760 DATA SAUTER ou JAILLIR,TO SPRING,I SPRANG,SPRUNG
1770 DATA SE TENIR ou ETRE DEBOUT,TO STAND,I STOOD,STOOD
1780 DATA VOLER ou DEROBER,TO STEAL,I STOLE, STOLEN
1790 DATA COLLER,TO STICK,I STUCK,STUCK
1800 DATA PIQUER,TO STING,I STANK,STUNG
1810 DATA PUER,TO STINK,I STANW,STUNK
1820 DATA FRAPPER,TO STRIKE,I STRUCK,STRUCK
1830 DATA JURER,TO SWEAR,I SWORE,SWORN
1840 DATA BALAYER,TO SWEEP,I SWEPT,SWEPT
1850 DATA ENFLER ou S'ENFLER,TO SWELL,I SWELLED, SWOLLEN
1860 DATA NAGER,TO SWIM,I SWAM,SWUM
1870 DATA BALANCER,TO SWING,I SWUNG,SWUNG
1880 DATA PRENDRE,TO TAKE,I TOOK,TAKEN
1890 DATA ENSEIGNER,TO TEACH,I TAUGHT,TAUGHT
1900 DATA DECHIRER,TO TEAR,I TORE,TORN
1910 DATA DIRE ou RACONTER,TO TELL,I TOLD,TOLD
1920 DATA PENSER ou CROIRE,TO THINK,I THOUGHT,THOUGHT
1930 DATA JETER ou LANCER,TO THRAW,I THREW,THROWN
1940 DATA MARCHER SUR ou FOULER AU PIED,TO TREAD,I TROD,TRODDEN
1950 DATA COMPRENDRE,TO UNDERSTAND, I UNDERSTOOD,UNDERSTOOD
1960 DATA RENVERSER,TO UPSET,I UPSET,UPSET
1970 DATA REVEILLER,TO WAKE,I WOKE,WOKE
1980 DATA PORTER,TO WEAR,I WORE,WORN
1990 DATA PLEURER,TO WEEP,I WEPT,WEPT
2000 DATA GAGNER,TO WIN,I WON,WON
2010 DATA ECRIRE,TO WRITE,I WROTE,WRITTEN
2020 '---------DECORS-------------
2030 DIM F$(200),I$(200),P$(200),PP$(200),E(200)
2040 FOR V=1 TO 143
2050 READ F$(V),I$(V),P$(V),PP$(V)
2060 NEXT
2070 CLS:BORDER 10:INK 0,0:INK 1,20 :INK 2,13:INK 3,25:PAPER 0:CF3=1:c3=0:C4=c3:X1=C3:X2=X1:cc1=X1:Y2=X2:LOCATE 10,5
2080 PAPER 2:PEN 1:PRINT \
" 1 -> VERSION           ":LOCATE 10,7:PAPER 2:PEN 3:PRINT \
" 2 -> THEME             "
2090 LOCATE 10,9:PAPER 2:PEN 1:PRINT \
" 3 -> THEME / VERSION   "
2100 LOCATE 10,13:PAPER 2:PEN 3:PRINT\
" A votre choix "
2110 IF D<>0 THEN RETURN
2120 RESTORE 320
2130 FOR i=1 TO 117:READ s
2140 IF INKEY(64)=0 OR INKEY(13)=0 THEN D=1:GOSUB 2200
2150 SOUND 1,s+VAL("0.5"),15,4:SOUND 2,s,VAL("14.55"),4
2160 IF INKEY(65)=0 OR INKEY(14)=0 THEN D=2:GOSUB 2200
2170 IF INKEY(57)=0 OR INKEY(5)=0 THEN D=3:GOSUB 2200
2180 NEXT
2190 GOTO 2120
2200 FOR i=1 TO 50:ZZ$=INKEY$:NEXT:LOCATE 2,15:PAPER 2:PEN 3:INPUT " NOMBRE DE VERBES A REVISER (143)";M
2210 LOCATE 2,17:PAPER 2:PEN 1:INPUT" NUMERO DU RANG (1 -> 143) " ;k1:PAPER 0
2220 IF M+K1>144 OR M<=0 OR K1<=0 OR K1>143 THEN PRINT CHR$(7):LOCATE 3,1 :PEN 3:PRINT"ATTENTION VOUS ETES HORS DE LIMITE !":GOTO 2200
2230 CLS
2240 FOR J8=1 TO M
2250 CO=9:V=2:T=1:Y=T:X=T:XR=T:P=14
2260 K=9
2270 Q=0
2280 IF K1=143 THEN M=0
2290 B=INT(RND(1)*M)+K1
2300 IF J8=1 THEN 2370
2310 G=0
2320 FOR F=1 TO J8-1
2330 IF B<>E(F) THEN 2350
2340 G=1
2350 NEXT F
2360 IF G=1 THEN 2290
2370 E(J8)=B :ON D GOSUB 3310,2450,3310
2380 IF D=1 OR D=2 THEN 2400
2390 GOSUB 2450
2400 NEXT J8
2410 SOUND 1,239,10:SOUND 1,142,70:SOUND 1,179,20
2420 LOCATE 11,23:PEN 1:PRINT"FIN"
2430 LOCATE 1,25:PRINT" Taper la Barre <ESPACE> pour continuer ";
2440 A$=INKEY$:IF A$<>" " THEN 2440 ELSE 2070
2450 IF D=3 THEN CLS
2460 E(J8)= B:INK 1,21
2470 '-------THEME-----
2480 INK 3,24:LOCATE 8,1:PAPER 3:PEN 0:PRINT"PRINCIPAUX VERBES IRREGULIERS":PAPER 0
2490 INK 2,18:LOCATE 8,2:PEN 2:PRINT"-----------------------------"
2500 LOCATE 12,3:PEN 3:PRINT"(TRADUIRE CE VERBE)"
2510 LOCATE 10,5:PRINT Y2:LOCATE 20,5:PRINT X2:LOCATE 33,5:PRINT X1
2520 LOCATE 1,5:PAPER 3:PEN 0:PRINT" MAUVAIS:" :LOCATE 15,5:PAPER 2:PEN 0: PRINT" BON:":LOCATE 24,5:PAPER 3:PEN 0:PRINT" ELIMINE:":LOCATE 37,5:PAPER 3:PEN 0:PRINT"FOIS":PAPER 0:PEN 1
2530 LOCATE 2,7:PEN 2:PRINT J8:LOCATE 6,7:PEN 1:PRINT F$(B):INK 1,16,17
2540 LOCATE 2,9:PEN 2:PRINT"INFINITIF _ _ _ _ _ _ _"
2550 LOCATE 2,15:PRINT     "PRETERIT  _ _ _ _ _ _ _"
2560 LOCATE 1,21:PRINT     "PARTICIPE PASSE  _ _ _ _ _ _ _"
2570 LOCATE 1,25:PEN 3:PEN 0:PRINT"Taper sur ENTER pour deviner la reponse ";:PAPER 0
2580 CF=0
2590 PEN 2:LOCATE 12,9:INPUT X$
2600 X1$=UPPER$(X$)
2610 IF X1$=I$(B) THEN Q=1 :GOTO 2930
2620 IF X1$="" THEN 3080
2630 GOSUB 2820
2640 GOTO 2590
2650 K=K+6
2660 CF=0
2670 PEN 2:LOCATE 12,15:INPUT Y$
2680 Y1$=UPPER$(Y$)
2690 IF Y1$=P$(B) THEN Q=2 :GOTO 2930
2700 IF Y$="" THEN 3130
2710 GOSUB 2820
2720 GOTO 2670
2730 K=K+6
2740 CF=0
2750 PEN 2:LOCATE 17,21 :INPUT Z$
2760 Z1$=UPPER$(Z$)
2770 EB$="BIDDEN"
2780 IF Z1$=PP$(B) or Z$="BID" THEN Q=3:GOTO 2930
2790 IF Z$="" THEN 3180
2800 GOSUB 2820
2810 GOTO 2750
2820 FOR W=1 TO 11
2830 A$="RECOMMENCER":H$="_ _ _ _ _ _ _ "
2840 IF K=21 THEN P=18
2850 LOCATE 29,K:PEN V:PRINT LEFT$(A$,W)
2860 LOCATE P,k:PRINT LEFT$(H$,W)
2870 SOUND 1,478,10
2880 FOR J=1 TO 50:NEXT
2890 NEXT W
2900 Y2=Y2+1:LOCATE 10,5:PRINT Y2:CF=1
2910 V=V+1: IF V>=4 THEN V=2
2920 RETURN
2930 H=500
2940 FOR N=1 TO 11
2950 M$="EXCELLENT  "
2960 LOCATE 29,K:PEN 2:PRINT LEFT$(M$,N)
2970 SOUND 1,H,10 :H=H-50
2980 FOR J=1 TO 50:NEXT
2990 NEXT N
3000 IF CF=1 THEN 3020
3010 X2=X2+1 :LOCATE 20,5:PEN 3:PRINT X2
3020 K=K+6
3030 IF Q=1 THEN 2660
3040 IF Q=2 THEN 2740
3050 IF J8=M THEN RETURN
3060 FOR at=1 TO 1500:NEXT:WINDOW 1,40,6,25:CLS:WINDOW 1,40,1,25:RETURN
3070 GOTO 3030
3080 T$=LEFT$(I$(B),T)
3090 LOCATE 14,11:PEN 3:PRINT T$:T=T+1
3100 IF T$=I$(B) THEN CO=9:GOTO 3220
3110 IF T=3 THEN 3080
3120 SOUND 1,400:GOTO 2590
3130 L$=LEFT$(P$(B),Y)
3140 LOCATE 14,18:PEN 3:PRINT L$:Y=Y+1
3150 IF L$=P$(B) THEN CF1=1:CO=15:GOTO 3220
3160 IF Y=2 THEN 3130
3170 SOUND 1,400:GOTO 2670
3180 O$=LEFT$(PP$(B),X)
3190 LOCATE 19,23:PEN 3:PRINT O$:X=X+1
3200 IF O$=PP$(B) THEN CF1=2:CO=21:GOTO 3220
3210 SOUND 1,400:GOTO 2750
3220 PEN 2:LOCATE 29,CO:PRINT"Elimine     ":FOR TI=1 TO 2:SOUND 1,300,10:SOUND 1,200,10:NEXT:X1=X1+1:LOCATE 33,5:PRINT X1;:Q=Q+1
3230 IF CF1=1 AND Q>1 THEN 2730
3240 IF CF1=2 THEN CF1=0:GOTO 3050
3250 GOTO 2650
3260 '
3270 '
3280 '------------VERSION---------
3290 '
3300 '
3310 IF D=3 THEN CLS
3320 PEN 1:LOCATE 1,1:PRINT i$(B);"     ===>>===>> ":INK 1,18,17:SPEED INK 36,20:LOCATE 2,3:PEN 2:PRINT J8
3330 LOCATE 15,6:PAPER 3:PEN 0:PRINT" REPONSE "
3340 PEN 2:LOCATE 12,11:PRINT C3:LOCATE 12,13:PRINT CC1
3350 LOCATE 2,11:PAPER 3:PEN 0:PRINT" BON      ":PAPER 0:LOCATE 2,13:PAPER 3:PEN 0:PRINT" MAUVAIS  "
3360 INK 3,25:PLOT 10,290,3:DRAW 600,290:DRAW 600,250:DRAW 10,250:DRAW 10,290:PLOT 500,250:DRAW 500,290:PLOT 340,250:DRAW 340,290
3370 INK 2,13:LOCATE 1,25:PEN 3:PAPER 2:PEN 0:PRINT"Taper sur ENTER pour deviner la reponse ";
3380 LOCATE 2,19:PAPER 2:PEN 0:PRINT"AUTRES SENS :":PAPER 0
3390 INK 2,7:LOCATE 2,15:PAPER 3:PEN 0:PRINT " ELIMINE : ":LOCATE 16,15:PRINT" FOIS "
3400 LOCATE 12,15:PEN 2:PRINT C4:PAPER 0
3410 LOCATE 26,1:PRINT"               "
3420 PEN 2:LOCATE 26,1: INPUT TT$
3430 IF TT$="" THEN 3920
3440 TT$=UPPER$(TT$)
3450 IF TT$="VOLER" AND F$(B)="VOLER (en l'air)" THEN LOCATE 12,11:PEN 1:C3=C3+CF3:PRINT C3:LOCATE 16,19:PEN 1:PRINT"(en l'air)":FOR TI=1 TO 2000:NEXT:CF3=1:RETURN
3460 IF TT$=F$(B) THEN LOCATE 12,11:PEN 3: SOUND 1,100,10:SOUND 1,200,20:C3=C3+CF3:PRINT C3:LOCATE 16,19:PEN 1:PRINT"BONNE REPONSE.":LOCATE 2,9:PEN 3:PRINT F$(B):FOR TI=1 TO 2000:NEXT:LOCATE 16,19:PRINT"               ":CF3=1:LOCATE 2,9:PRINT SPACE$(LEN(F$(B))):RETURN
3470 '
3480 '-------------------------------
3490 'Test des verbes a plusieurs sens
3500 '
3510 IF TT$="ORDONNER" AND F$(B)=RA$(1) OR TT$="CONVIER" AND F$(B)=RA$(1) THEN 3980
3520 IF TT$="LIER" AND F$(B)=RA$(2) OR TT$="RELIER" AND F$(B)=RA$(2) THEN 3980
3530 IF TT$="CASSER" AND F$(B)=RA$(3) OR TT$="ROMPRE" AND F$(B)=RA$(3) THEN 3980
3540 IF TT$="ELEVER" AND F$(B)=RA$(4) OR TT$="ENGENDRER" AND F$(B)=RA$(4) THEN 3980
3550 IF TT$="BATIR" AND F$(B)=RA$(5) OR TT$="CONSTRUIRE" AND F$(B)=RA$(5) THEN 3980
3560 IF TT$="SE CRAMPONNER" AND F$(B)=RA$(6) OR TT$="TENIR BON" AND F$(B)=RA$(6) THEN 3980
3570 IF TT$="RAMPER" AND F$(B)=RA$(7) OR TT$="S'INSINUER" AND F$(B)=RA$(7) THEN 3980
3580 IF TT$="AGIR" AND F$(B)=RA$(8) OR TT$="DISTRIBUER" AND F$(B)=RA$(8) OR TT$="S'OCCUPER" AND F$(B)=RA$(8) THEN 3980
3590 IF TT$="FAIRE" AND F$(B)=RA$(9) OR TT$="ACCOMPLIR" AND F$(B)=RA$(9) THEN 3980
3600 IF TT$="TIRER" AND F$(B)=RA$(10) OR TT$="DESSINER" AND F$(B)=RA$(10) THEN 3980
3610 IF TT$="SENTIR" AND F$(B)=RA$(11) OR TT$="EPROUVER" AND F$(B)=RA$(11) THEN 3980
3620 IF TT$="VOLER" AND F$(B)=RA$(12) OR TT$="DEROBER" AND F$(B)=RA$(12) THEN 3980
3630 IF TT$="OBTENIR" AND F$(B)=RA$(13) OR TT$="DEVENR" AND F$(B)=RA$(13) THEN 3980
3640 IF TT$="SUSPENDRE" AND F$(B)=RA$(14) OR TT$="PENDRE" AND F$(B)=RA$(14) THEN 3980
3650 IF TT$="CACHER" AND F$(B)=RA$(15) OR TT$="SE CACHER" AND F$(B)=RA$(15) THEN 3980
3660 IF TT$="FRAPPER" AND F$(B)=RA$(16) OR TT$="COGNER" AND F$(B)=RA$(16) THEN 3980
3670 IF TT$="BLESSER" AND F$(B)=RA$(17) OR TT$="FAIRE MAL" AND F$(B)=RA$(17) THEN 3980
3680 IF TT$="GARDER" AND F$(B)=RA$(18) OR TT$="CONSERVER" AND F$(B)=RA$(18) THEN 3980
3690 IF TT$="SAVOIR" AND F$(B)=RA$(19) OR TT$="CONNAITRE" AND F$(B)=RA$(19) THEN 3980
3700 IF TT$="CONDUIRE" AND F$(B)=RA$(20) OR TT$="MENER" AND F$(B)=RA$(20) THEN 3980
3710 IF TT$="LAISSER" AND F$(B)=RA$(21) OR TT$="PERMETTRE" AND F$(B)=RA$(21) OR TT$="LOUER" AND F$(B)=RA$(21) THEN 3980
3720 IF TT$="FAIRE" AND F$(B)=RA$(22) OR TT$="FABRIQUER" AND F$(B)=RA$(22) THEN 3980
3730 IF TT$="SIGNIFIER" AND F$(B)=RA$(23) OR TT$="VOULOIR DIRE" AND F$(B)=RA$(23) THEN 3980
3740 IF TT$="ALLER A CHEVAL" AND F$(B)=RA$(24) OR TT$="MONTER" AND F$(B)=RA$(24) THEN 3980
3750 IF TT$="TIRER" AND F$(B)=RA$(25) OR TT$="FUSILLER" AND F$(B)=RA$(25) THEN 3980
3760 IF TT$="SOMBRER" AND F$(B)=RA$(26) OR TT$="COULER" AND F$(B)=RA$(26) THEN 3980
3770 IF TT$="S'ASSEOIR" AND F$(B)=RA$(27) OR TT$="ETRE ASSIS" AND F$(B)=RA$(27) THEN 3980
3780 IF TT$="RENVERSER" AND F$(B)=RA$(28) OR TT$="REPANDRE" AND F$(B)=RA$(28) THEN 3980
3790 IF TT$="FENDRE" AND F$(B)=RA$(29) OR TT$="SE FENDRE" AND F$(B)=RA$(29) OR TT$="DIVISER" AND F$(B)=RA$(29) THEN 3980
3800 IF TT$="ETENDRE" AND F$(B)=RA$(30) OR TT$="SE PROPAGER" AND F$(B)=RA$(30) THEN 3980
3810 IF TT$="SAUTER" AND F$(B)=RA$(31) OR TT$="JAILLIR" AND F$(B)=RA$(31) THEN 3980
3820 IF TT$="SE TENIR" AND F$(B)=RA$(32) OR TT$="ETRE DEBOUT" AND F$(B)=RA$(32) THEN 3980
3830 IF TT$="LAISSER" AND F$(B)=RA$(33) OR TT$="QUITTER" AND F$(B)=RA$(33) THEN 3980
3840 IF TT$="ENFLER" AND F$(B)=RA$(34) OR TT$="S'ENFLER" AND F$(B)=RA$(34) THEN 3980
3850 IF TT$="DIRE" AND F$(B)=RA$(35) OR TT$="RACONTER" AND F$(B)=RA$(35) THEN 3980
3860 IF TT$="JETER" AND F$(B)=RA$(36) OR TT$="LANCER" AND F$(B)=RA$(36) THEN 3980
3870 IF TT$="MARCHER SUR" AND F$(B)=RA$(37) OR TT$="FOULER AU PIED" AND F$(B)=RA$(37) THEN 3980
3880 IF TT$="PENSER" AND F$(B)=RA$(38) OR TT$="CROIRE" AND F$(B)=RA$(38) THEN 3980
3890 IF TT$="PORTER" AND F$(B)=RA$(39) OR TT$="SUPPORTER" AND F$(B)=RA$(39) THEN 3980
3900 IF TT$="POSER" AND F$(B)=RA$(40) OR TT$="PLACER" AND F$(B)=RA$(40) THEN 3980
3910 IF TT$<>"" AND TT$<>F$(B) THEN CC1=CC1+1:CF3=0:PEN 2:PRINT CHR$(7):LOCATE 12,13:PRINT CC1::LOCATE 16,19:PEN 1:PRINT"A REVOIR.":FOR TI=1 TO 2000:NEXT:LOCATE 16,19:PRINT"               ":GOTO 3410
3920 O1$=LEFT$(F$(B),XR):LOCATE 2,9:PEN 3:PRINT O1$
3930 IF MID$(O1$,XR,1)=" " THEN XR=XR+1: GOTO 3920
3940 XR=XR+1
3950 IF O1$<>F$(B) THEN SOUND 1,400:GOTO 3420
3960 LOCATE 2,15:PEN 1:PRINT" ELIMINE :":LOCATE 16,15:PAPER 3:PEN 0:PRINT" FOIS ":FOR IS=300 TO 100 STEP -100:SOUND 1,IS,10:NEXT:PAPER 0
3970 C4=C4+1:PEN 2:LOCATE 12,15:PRINT C4:FOR II=1 TO 2000:NEXT:CF3=1:LOCATE 2,9:PRINT SPACE$(LEN(F$(B))):PEN 2: RETURN
3980 LOCATE 12,11:SOUND 1,100,10:SOUND 1,200,20:C3=C3+CF3:PRINT C3:LOCATE 16,19:PEN 3:PRINT F$(B):FOR TI=1 TO 4000:NEXT:LOCATE 16,19:PRINT SPACE$(LEN(F$(B))):LOCATE 2,9:PRINT SPACE$(LEN(F$(B))):RETURN
3990 GOTO 3420
4000 FOR V=1 TO 143:PRINT I$(V):NEXT