Précédente Accueil Remonter Suivante

FRANCAIS 2

Visual Basic for MS-DOS

 

 

DECLARE SUB bilan (ma$(), niveaux%(), eleve%, VarEnreg AS ANY, serie$())
DECLARE SUB fleches (v%, h%, w$(), np%, r%, coul%, drap%, v2%, h2%)
DECLARE SUB flechesmenu (w$(), r%, coul%)
DECLARE SUB lettres (x%, y%)
DECLARE SUB niveau (r%, np%)
DECLARE SUB titre ()
DECLARE SUB tableauexo (p$())
DECLARE SUB getinvimouse (rr%)
DECLARE SUB accordv (re%, ni%, t$(), p$(), v$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB conjtc (re%, ni%, PM$(), PF$(), vv$(), pp$(), AUX$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB groupev (re%, ni%, n$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB infinitif (re%, ni%, inf$(), inf2$(), conj$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB radical (re%, ni%, v$(), pp$(), G1$(), G2$(), G3$(), G4$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB recolle (re%, ni%, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB accopp (re%, ni%, SU$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB fonction (re%, ni%, rt$, gg$, gg2$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB nature (re%, ni%, m$(), mbis$(), rt$, gg$, gg2$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB partpas (re%, ni%, v$(), pp$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB ponctuation (re%, ni%, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB classement (re%, ni%, mo2$(), mo17$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB conjts (re%, ni%, pp$(), v$(), te$(), E$(), a$(), AL$(), rr$(), SP$(), f$(), b$(), ve$(), IM$(), FU$(), w$(), k$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB gennom (re%, ni%, n$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB intrus (re%, ni%, intrusvoca$(), intrusgram$(), intrusconj$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB ortho (re%, ni%, eleve%, serie$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB pluriel (re%, ni%, n$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB pluriel2 (ni%, re%, rt$, gg2$, pre$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB tempsv (re%, ni%, h%(), l%(), s%(), ppf%(), sc%(), rt$, gg$, gg2$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB accoadj (re%, ni%, adj$(), mp$(), fs$(), fp$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB accoadj2 (ni%, re%, rt$, gg2$, pre$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB accordpp4 (ni%, re%, rt$, gg2$, pre$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB accpartpasse2 (re%, ni%, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB homonymes (re%, ni%, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB cadre (v%, h%, l%, nli%, c%)
DECLARE SUB quitter (x%, y%)
DECLARE SUB ouinon (r$)
DECLARE SUB attendre (tx!)
DECLARE SUB calmoy (t$(), moy$(), niveaux%())
DECLARE SUB centre (v%, coul%, ph$)
DECLARE SUB convertir (z$)
DECLARE SUB entree (x%, y%, drapeau%)
DECLARE SUB trouvephrase (re%, ni%, rt$, gg$, gg2$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'EXO bibliothèque
'AAS FRANCAIS cycle 3
'Daniel CLERC 18/12/2007
'version 1.4.3

'===l'enregistrement des notes d'orth se fait à partir de 201 dans le fichier
' DATA Soleil,Mercure,Vénus,Terre,Mars,Jupiter,Saturne,Uranus,Neptune,Pluton
' DATA Paris,Bordeaux,Lyon,Marseille,Strasbourg,Grenoble,Brest,Lille,Nantes,Rennes

DEFINT A-Z

'variables globales
COMMON SHARED ni, rt$, gg$, gg2$, pre$, titr$, prog, eleve, fichier$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill

' Inclut les fichiers contenant les déclarations relatives aux procédures appelées.
'$INCLUDE: 'MOUSE.BI'
'$INCLUDE: 'VBDOS.BI'

SCREEN 9
SCREEN 0

CONST FALSE = 0
CONST TRUE = NOT FALSE

rt$ = CHR$(17) + CHR$(196) + CHR$(217)
gg$ = CHR$(24) + " " + CHR$(25) + " puis " + rt$
gg2$ = CHR$(24) + " " + CHR$(25) + " " + CHR$(27) + " " + CHR$(26) + " puis " + rt$

programme2$ = "menuexo" '===

ON ERROR GOTO erreur ' ===

TYPE TypeEnreg
nom AS STRING * 20
prenom AS STRING * 20
nbexo AS STRING * 21
Divers AS STRING * 50
notes AS STRING * 3000
END TYPE
DIM VarEnreg AS TypeEnreg

ma = 21
DIM moy$(ma), niveaux(ma), t$(100), p$(ma), mo2$(60), mo3$(37), mo4$(41)
DIM mo6$(70), mo7$(47), mo10$(49), mo11$(10), mo12$(10), mo13$(10)
DIM mo14$(22), mo15$(48), mo16$(48), mo17$(60), mo18$(30)
DIM pp$(2, 2, 3), v$(15), E$(2, 3), a$(2, 3), AL$(2, 3), rr$(2, 3), te$(2, 3)
DIM SP$(2, 3), f$(2, 3), b$(2, 3), ve$(2, 3), FU$(2, 3), IM$(2, 3), w$(2, 3), k$(2, 3)
DIM vb$(20), PPa$(6), G1$(6), G2$(6), G3$(6), G4$(6), n$(60)
DIM h2(36), l2(36), t2(36), ppf(36), sc(36) 'temps verbes
DIM t2$(3, 3, 6), per$(6), veb$(24), PM$(6), PF$(6), vv$(20), p2$(20), AUX$(6, 4, 2)
DIM inf$(30), inf2$(15), conj$(30), intrusvoca$(97), intrusgram$(100), intrusconj$(96) 'intrus
DIM serie$(20) 'pour orth

OPEN "pointeur.dat" FOR INPUT AS #1
INPUT #1, eleve, sens, couleur, texte, lecture$
CLOSE
OPEN "pointeur.dat" FOR OUTPUT AS #1
WRITE #1, eleve, 2, 1, texte, lecture$
CLOSE

noir = 0: bleu = 1: vert = 2: rouge = 4: marron = 6: blanc = 7: vertclair = 10: cyanclair = 11: rougeclair = 12: jaune = 14: blancbrill = 15

COLOR , noir, noir: CLS
KEY OFF: LOCATE , , 0
GOSUB init
RANDOMIZE TIMER

IF sens = 1 AND eleve > 0 THEN
CALL bilan(p$(), niveaux(), eleve, VarEnreg, serie$())
END IF

menuprincipal:
MouseInit
MouseShow

COLOR , bleu, noir: CLS

IF eleve <> 0 THEN
'lecture des notes
OPEN "fichier.dat" FOR RANDOM AS #1 LEN = LEN(VarEnreg)
GET #1, eleve, VarEnreg
nom$ = RTRIM$(VarEnreg.nom)
pre$ = RTRIM$(VarEnreg.prenom)
'francais est en 2°
nbexo$ = LTRIM$(STR$(VAL(MID$(VarEnreg.nbexo, 4, 3))))
resultat$ = MID$(VarEnreg.notes, 401, 400)
CLOSE
j = 1
FOR i = 1 TO nbniveaux * 2 STEP 2
t$(j) = MID$(resultat$, i, 2)
j = j + 1
NEXT

'pour orth
j = 1
FOR i = 201 TO 240 STEP 2 '20 positions pour séries orth
serie$(j) = MID$(resultat$, i, 2)
IF VAL(serie$(j)) > 10 THEN serie$(j) = "10" '===
j = j + 1
NEXT

CALL calmoy(t$(), moy$(), niveaux())

END IF

IF VAL(nbexo$) > 1 THEN
COLOR jaune
z$ = RTRIM$(nbexo$) + " exercices"
LOCATE 4, 79 - LEN(z$): PRINT z$
END IF
LOCATE 4, 2
COLOR jaune
IF eleve <> 0 THEN
w$ = pre$ + " " + nom$
IF LEN(w$) > 17 THEN
PRINT nom$
ELSE
PRINT w$
END IF
END IF

CALL tableauexo(p$())

IF eleve <> 0 THEN
'affiche éval sur trois colonnes

COLOR , noir
debut = 1: fin = 7: h = 4

FOR boucle = 1 TO 3
LOCATE 7
FOR i = debut TO fin
LOCATE , h
IF moy$(i) = "" THEN
PRINT " ": PRINT
ELSEIF (VAL(moy$(i)) = 9 OR VAL(moy$(i)) = 10) THEN
COLOR vertclair: PRINT "A": PRINT
ELSEIF (VAL(moy$(i)) = 7 OR VAL(moy$(i)) = 8) THEN
COLOR vert: PRINT "B": PRINT
ELSEIF (VAL(moy$(i)) = 6 OR VAL(moy$(i)) = 5) THEN
COLOR jaune: PRINT "C": PRINT
ELSE
COLOR rougeclair: PRINT "D": PRINT
END IF
COLOR blancbrill
NEXT
debut = fin + 1: fin = fin + 7: IF fin > ma THEN fin = ma
h = h + 26
NEXT boucle

END IF

CALL flechesmenu(p$(), prog, rouge)

IF prog = 0 THEN
COLOR , bleu
LOCATE 22, 1: PRINT SPACE$(80)
LOCATE 22, 28
COLOR blanc: BEEP: PRINT "Quitter ";
CALL ouinon(r$)
IF r$ = "O" THEN GOTO fin
GOTO menuprincipal
END IF

IF prog = 42 THEN
CALL bilan(p$(), niveaux(), eleve, VarEnreg, serie$())
GOTO menuprincipal
END IF

COLOR , noir: CLS
titr$ = p$(prog): ni = 1

'valeur de la matière
mat = 0
FOR i = 1 TO prog - 1
mat = mat + niveaux(i)
NEXT

SELECT CASE prog

CASE 1
CALL trouvephrase(re, ni, rt$, gg$, gg2$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 2
CALL ortho(re, ni, eleve, serie$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 3
CALL recolle(re, ni, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 4
CALL classement(re, ni, mo2$(), mo17$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 5
CALL nature(re, ni, mo3$(), mo18$(), rt$, gg$, gg2$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 6
CALL homonymes(re, ni, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 7
CALL gennom(re, ni, mo4$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 8
CALL ponctuation(re%, ni%, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 9
CALL titre
CALL niveau(ni, 4)
SELECT CASE ni
CASE 1, 2
CALL pluriel(re, ni, mo7$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
CASE 3, 4
CALL pluriel2(ni, re%, rt$, gg2$, pre$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
END SELECT

CASE 10
titr$ = "Accord de l'adjectif"
CALL titre
CALL niveau(ni, 4)
SELECT CASE ni
CASE 1, 2, 3
CALL accoadj(re, ni, mo10$(), mo11$(), mo12$(), mo13$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
CASE 4
CALL accoadj2(ni, re%, rt$, gg2$, pre$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
END SELECT

CASE 11
CALL partpas(re, ni, mo15$(), mo16$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 12
titr$ = "Accord du participe passé"
CALL titre
CALL niveau(ni, 4)
SELECT CASE ni
CASE 1
CALL accopp(re, ni, mo14$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
CASE 2, 3
CALL accpartpasse2(re%, ni%, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
CASE 4
CALL accordpp4(ni, re%, rt$, gg2$, pre$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
END SELECT

CASE 13
CALL fonction(re, ni, rt$, gg$, gg2$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 14
CALL infinitif(re, ni, inf$(), inf2$(), conj$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 15
CALL radical(re, ni, vb$(), PPa$(), G1$(), G2$(), G3$(), G4$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 16
CALL groupev(re, ni, n$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 17
CALL tempsv(re, ni, h2%(), l2%(), t2%(), ppf%(), sc%(), rt$, gg$, gg2$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 18
CALL accordv(re, ni, t2$(), per$(), veb$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 19
CALL conjts(re, ni, pp$(), v$(), te$(), E$(), a$(), AL$(), rr$(), SP$(), f$(), b$(), ve$(), IM$(), FU$(), w$(), k$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 20
CALL conjtc(re, ni, PM$(), PF$(), vv$(), p2$(), AUX$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CASE 21
CALL intrus(re%, ni%, intrusvoca$(), intrusgram$(), intrusconj$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

END SELECT
GOSUB enregistre
CALL entree(noir, noir, 0)
GOTO menuprincipal

fin:
COLOR , noir
IF eleve > 0 THEN
CALL bilan(p$(), niveaux(), eleve, VarEnreg, serie$())
END IF
COLOR , noir: CLS
RUN programme2$
END

enregistre:
COLOR , noir: IF eleve = 0 THEN RETURN
IF prog = 2 THEN '=== orth
CALL centre(23, blanc, "Enregistrement de la moyenne")
ELSE
CALL centre(23, blanc, "Enregistrement de la note")
END IF
re$ = LTRIM$(STR$(re)): IF LEN(re$) = 1 THEN re$ = " " + re$
pointeur = ni + mat
OPEN "fichier.dat" FOR RANDOM AS #1 LEN = LEN(VarEnreg)
GET #1, eleve, VarEnreg

nbexo$ = VarEnreg.nbexo
nombre$ = LTRIM$(STR$(VAL(MID$(nbexo$, 4, 3)) + 1))
IF LEN(nombre$) = 1 THEN
nombre$ = "00" + nombre$
ELSEIF LEN(nombre$) = 2 THEN
nombre$ = "0" + nombre$
END IF

'=== francais est en 2° -> 4
IF VAL(nombre$) < 1000 THEN
VarEnreg.nbexo = MID$(nbexo$, 1, 3) + nombre$ + MID$(nbexo$, 7)
END IF

notes$ = MID$(VarEnreg.notes, 401, 400)
IF pointeur = 1 THEN
notes$ = re$ + MID$(notes$, 2 * pointeur + 1)
ELSE
notes$ = MID$(notes$, 1, (pointeur - 1) * 2) + re$ + MID$(notes$, 2 * pointeur + 1)
END IF

IF prog = 2 THEN 'ortho ===
w$ = ""
FOR i = 1 TO 20
w$ = w$ + serie$(i)
NEXT
notes$ = MID$(notes$, 1, 200) + w$ + SPACE$(200 - LEN(w$))
END IF

VarEnreg.notes = MID$(VarEnreg.notes, 1, 400) + notes$ + MID$(VarEnreg.notes, 801)

PUT #1, eleve, VarEnreg
CLOSE #1
CALL attendre(.5)
CALL centre(23, 0, SPACE$(80))
RETURN

init:
DATA Phrase éclatée,3
DATA Orthographe,2
DATA Mot éclaté,4
DATA Tri des mots,2
DATA Nature des mots,3
DATA Homonymes,2
DATA Genre et nombre,2
DATA Ponctuation,3
DATA Accord du nom,4
DATA Accord adjectif,4
DATA Participe passé,2
DATA Accord part. passé,4
DATA Fonctions,2
DATA Infinitif,3
DATA Radical des verbes,2
DATA Groupe des verbes,2
DATA Temps des verbes,2
DATA Accord des verbes,2
DATA Temps simples,4
DATA Temps composés,4
DATA Intrus,3

FOR i = 1 TO ma: READ p$(i), niveaux(i): NEXT
nbniveaux = 0
FOR i = 1 TO ma
nbniveaux = nbniveaux + niveaux(i)
NEXT

'data exo1
'classement (niveau 2)
DATA travail,trouver,tricher,train,tringle,trois
DATA classer,classement,classe,clair,classique,clameur
DATA caméra,cartouche,cacher,cavalier,caractère,casser
DATA chat,chameau,chaud,chamois,char,chacun
DATA famille,fusée,ficelle,feu,folie,filmer
DATA soirée,samedi,souvenir,signe,seul,sauter
DATA livre,laver,longer,lumière,langue,lever
DATA placard,planche,planeur,plateau,place,plage
DATA gare,girafe,guitare,gomme,genou,gamin
DATA cerise,cigare,costume,cube,casser,cirage

FOR i = 1 TO 60: READ mo17$(i): NEXT

'classement (niveau 1),
DATA maison,charpente,porte
DATA classe,tableau,chaise,bureau,placard,craie
DATA ciel,nuage,vent,pluie,neige,soleil
DATA clou,tournevis,marteau,pince,scie
DATA chien,chat,souris,lapin,poule,cobaye
DATA bicyclette,pneu,rayon,guidon,frein,selle
DATA wagon,train,rail,quai,préau,gare
DATA ballon,but,chaussure,terrain
DATA bois,boisson,boire
DATA compas,comparer,voiture,courage
DATA gentil,moulin,prairie,bateau
DATA caractère,caramel,aiguille,camarade

FOR i = 1 TO 57: READ mo2$(i): NEXT

'nature (niveau 2) 4/3/94
DATA chanter0,table1,ils4,une3,grand2
DATA ordinateur1,travailler0,elle4,les3,grosse2
DATA boire0,maison1,elles4,lourd2
DATA croire0,chanson1,vous4,noire2,clavier1,lourde2
DATA courir0,nous4,je4,un3,des3

FOR i = 1 TO 25: READ mo18$(i): NEXT

'nature (niveau 3)
DATA attendre00,vouloir00,suivre00
DATA été01,voulu01,mis01,attendu01
DATA on02,elles02,nous02
DATA artiste03,ordinateur03,chanson03
DATA immense04,lourd04,agréable04,soigneux04
DATA les05,la05
DATA une06,des06
DATA cette07,ces07,cet07
DATA ses08,son08,tes08
DATA bien09,toujours09,lentement09
DATA à10,de10,pour10,sur10
DATA mais11,et11,ou11

FOR i = 1 TO 37: READ mo3$(i): NEXT

'genre et nombre niveau 1 - (23)
DATA des tables22,un dromadaire11,des classes22,ce circuit11,l'écran11,mon livre11
DATA les immeubles12
DATA mes chaises22,un garçon11,dix doigts12,les bateaux12,cette glace21
DATA ce sourire11,ses papiers12,cette cerise21,le disque11,ma bouteille21
DATA la poire21,du cuivre11,trois stylos12,des rideaux12,les roues22,la télévision21
'genre et nombre niveau 2 - (18)
DATA jolis12,lourd11,lourdes22,mises22,prise21,grande21,belles22,beau11,jolie21
DATA blanc11,blanche21,blanches22,blancs12,noires22,vert11,verte21,léger11,légères22

FOR i = 1 TO 41: READ mo4$(i): NEXT

'groupe des noms niveau 1 = 34 mots
DATA 3un livre,2un chat,3un téléviseur,3un ordinateur,4un cauchemar,4une qualité
DATA 3la Lune,3le film,1une fille,1l'instituteur,1un indien,2un tigre
DATA 2l'hirondelle,1un garçon,3un mur,4une pensée,2un loup,1un cycliste
DATA 2un poisson,2le thon,2un oiseau,2un moustique
DATA 1une femme,1un homme,2une grenouille
DATA 3un banc,3le téléphone,3une vitre,4un rêve
DATA 2une abeille,1un footballeur,2la girafe,3une craie,3le tableau
'niveau 2 = 33
DATA 4la gentillesse,4la vitesse,4un effort
DATA 3une planète,3le Soleil,3la mer,3le cuir,3un arbre
DATA 4la brutalité,4le courage,4la tendresse,4la volonté
DATA 2un crocodile,2une coccinelle,2une abeille,2une araignée,2une limace
DATA 4une vente,4le commerce,4le sport,4un exploit,4la peur,4un classement
DATA 1un ancêtre,1une championne,1un anglais,1un laborantin,1un artiste,1un peintre
DATA 4la lecture,4la justice,4la vie,4la fatigue

FOR i = 1 TO 67: READ mo6$(i): NEXT

'pluriel
DATA une table,une fenêtre,une souris,un nez,une pompe,une roue
DATA un repas,un jeu,un ordinateur
DATA un clown,une porte,un pli,une touche,un carnet,une disquette,un tabouret
DATA un homme,une action,un film,un coeur,un oeil,un peureux,une salle,un tapis
DATA une gare,une classe
DATA un carnaval,un canal,un festival
DATA un poteau,un château,un cadeau
DATA un cheveu,un pneu
DATA un caillou,un genou,un hibou,un clou,un chou,un bijou
DATA un portail,un landau,un pneu,un travail,un émail
DATA un vitrail,un rail

FOR i = 1 TO 47: READ mo7$(i): NEXT

'accord adjectifs
'niveau 2 (les solutions des 10 premiers sont en data)
DATA beau,gentil,bon,ancien,violet,cruel,blanc,gros,gras,doux

DATA solide,fragile,peureux,rouge,heureux
DATA merveilleux,teigneux,incolore,soigneux,large
DATA inodore,tranquille,courageux,triste,joyeux,plein,magnifique
DATA paisible,facile,superbe
'niveau 1
DATA méchant,grand,petit,vert,haut,lourd,brutal,étroit,délicat,joli,élégant
DATA adroit,différent,excellent,lointain,laid,bleu,confiant

FOR i = 1 TO 48: READ mo10$(i): NEXT

DATA beaux,gentils,bons,anciens,violets,cruels,blancs,gros,gras,doux
DATA belle,gentille,bonne,ancienne,violette,cruelle,blanche,grosse,grasse,douce
DATA belles,gentilles,bonnes,anciennes,violettes,cruelles,blanches,grosses,grasses,douces

FOR i = 1 TO 10: READ mo11$(i): NEXT
FOR i = 1 TO 10: READ mo12$(i): NEXT
FOR i = 1 TO 10: READ mo13$(i): NEXT

'accord du participe passé
DATA 21Ils,21Didier et Céline,21Les comédiens,11Un chat,12Elle,22Elles,12Dorothée,21Ludovic et Cyril,22Nos amies,21Nos amis,21Les maîtres,21Les extra-terrestres
DATA 22Les jeunes filles,11Le cheval,11Le réparateur,21Les musiciens,22Les infirmières
DATA 22Les écolières,11Le tigre,21Les danseurs,12La boulangère,12La souris
FOR i = 1 TO 22: READ mo14$(i): NEXT

'participe passé niveau 1 - 24 mots
DATA jouer,gagner,crier,ranger,arranger,trier,taper,mentir,grossir
DATA aller,finir,tomber,tuer,voler,fleurir,nourrir,lire,fondre,boire,voir
DATA partir,écrire,avoir,être
'niveau 2 - 24 mots
DATA prendre,croire,coudre
DATA courir,tendre,tenir,cuire,suivre,définir,peindre,résoudre
DATA apprendre,dire,conduire,promettre,admettre,couvrir
DATA inscrire,faire,offrir,avoir,être,blottir,moudre

FOR i = 1 TO 48: READ mo15$(i): NEXT

'participe passé réponses niveau 1 - 24 mots
DATA joué1,gagné1,crié1,rangé1,arrangé1,trié1,tapé1,menti1,grossi1
DATA allé2,fini1,tombé2,tué1,volé1,fleuri1,nourri1,lu1,fondu1,bu1,vu1
DATA parti2,écrit1,eu1,été1
'niveau 2 - 24 mots
DATA pris1,cru1,cousu1
DATA couru1,tendu1,tenu1,cuit1,suivi1,défini1,peint1,résolu1
DATA appris1,dit1,conduit1,promis1,admis1,couvert1,inscrit1
DATA fait1,offert1,eu1,été1,blotti2,moulu1

FOR i = 1 TO 48: READ mo16$(i): NEXT

DATA je,tu,il,nous,vous,ils,je,tu,elle,nous,vous,elles

FOR i = 1 TO 2: FOR j = 1 TO 2: FOR k = 1 TO 3: READ pp$(i, j, k): NEXT k, j, i

'conjugaison temps simples
DATA chanter,marcher,sauter,laver,casser,être,avoir,aller,finir,réussir
DATA sentir,partir,faire,boire,venir

FOR i = 1 TO 15: READ v$(i): NEXT i

DATA e,suis,ai,vais,s,s,fais,bois,viens,ais,ai,ai,s,es,es,as,vas,s,s,fais
DATA bois,viens,ais,as,as,s,e,est,a,va,t,t,fait,boit,vient
DATA ait,a,a,t,ons,sommes,avons,allons,ssons,tons,faisons
DATA buvons,venons,ions,ons,âmes,mes,ez,êtes,avez,allez
DATA ssez,tez,faites,buvez,venez,iez,ez,âtes,tes,ent,sont
DATA ont,vont,ssent,tent,font,boivent,viennent,aient,ont,èrent,rent

FOR i = 1 TO 2
FOR j = 1 TO 3
READ te$(i, j), E$(i, j), a$(i, j), AL$(i, j), rr$(i, j)
READ SP$(i, j), f$(i, j), b$(i, j), ve$(i, j), IM$(i, j), FU$(i, j), w$(i, j), k$(i, j)
NEXT j
NEXT i

'radical
DATA"je ","tu ","elle","nous","vous","ils "
DATA e,es,e,ons,ez,ent
DATA is,is,it,issons,issez,issent
DATA s,s,,ons,ez,ent
DATA s,s,t,ons,ez,ent
'niveau 1
DATA chant-er1,gross-ir2,gagn-er1,coiff-er1,blott-ir2,vend-re3
DATA class-er1,march-er1,visit-er1,gomm-er1
'niveau 2
DATA fond-re3,découvr-ir1,cueill-ir1,perd-re3,cour-ir4
DATA mord-re3,fin-ir2,nourr-ir2,parcour-ir4,rend-re3

FOR i = 1 TO 6: READ PPa$(i): NEXT
FOR i = 1 TO 6: READ G1$(i): NEXT
FOR i = 1 TO 6: READ G2$(i): NEXT
FOR i = 1 TO 6: READ G3$(i): NEXT
FOR i = 1 TO 6: READ G4$(i): NEXT
FOR i = 1 TO 20: READ vb$(i): NEXT

'groupe des verbes niveau 1 = 30 mots
DATA chanter1,finir2,aller3,sentir3,grossir2,lancer1,rendre3,prendre3,croire3
DATA grandir2,être4,perdre3,garder1,couler1,coudre3,peindre3
DATA bâtir2,écrire3,lire3,avoir4,essayer1,essuyer1,fendre3,tendre3
DATA crier1,sauter1,compter1,charger1,franchir2,danser1
'groupe verbes niveau 2 = 30 mots
DATA pondre3,aller3,être4,punir2,croire3,suivre3,déguster1
DATA voler1,alourdir2,couvrir3,éclater1,offrir3,avoir4,peser1
DATA régner1,alunir2,tenir3,connaître3,applaudir2,aller3,avoir4
DATA gravir2,aller3,vivre3,mentir3,fuir3,croire3
DATA nourrir2,mourir3,sortir3
FOR i = 1 TO 60: READ n$(i): NEXT

'temps des verbes
'phrase, début, longueur, temps, passé présent futur, rien simple composé
DATA 13,6,1,2,1
DATA 18,9,1,2,1
DATA 4,9,1,2,1
DATA 1,4,1,2,1
DATA 6,6,1,2,1
DATA 6,8,2,1,1
DATA 4,12,2,1,1
DATA 5,11,2,1,1
DATA 4,11,2,1,1
DATA 11,7,2,1,1
DATA 4,6,3,3,1
DATA 5,11,3,3,1
DATA 9,7,3,3,1
DATA 10,7,3,3,1
DATA 9,8,4,3,0
DATA 4,12,4,3,0
DATA 4,10,4,3,0
DATA 5,9,5,1,1
DATA 9,3,5,1,1
DATA 16,8,5,1,1
DATA 3,7,6,1,2
DATA 6,9,6,1,2
DATA 6,10,6,1,2
DATA 18,13,7,1,2
DATA 22,12,7,1,2
DATA 15,17,7,1,2
DATA 11,10,8,3,2
DATA 19,8,8,3,2
DATA 17,11,8,3,2
DATA 21,9,9,1,2
DATA 1,4,10,2,1
DATA 1,5,10,2,1
DATA 1,7,10,2,1
DATA 1,6,10,2,1
DATA 1,6,10,2,1
DATA 1,7,10,2,1

FOR i = 1 TO 36
READ h2(i): READ l2(i): READ t2(i): READ ppf(i): READ sc(i)
NEXT

DATA e,es,e,ons,ez,ent
DATA is,is,it,issons,issez,issent
DATA s,s,"",ons,ez,ent

DATA ais,ais,ait,ions,iez,aient
DATA issais,issais,issait,issions,issiez,issaient
DATA ais,ais,ait,ions,iez,aient

DATA erai,eras,era,erons,erez,eront
DATA irai,iras,ira,irons,irez,iront
DATA rai,ras,ra,rons,rez,ront

FOR l = 1 TO 3
FOR c = 1 TO 3
FOR p = 1 TO 6
READ t2$(l, c, p)
NEXT p
NEXT c
NEXT l

DATA je,tu,il,nous,vous,elles

FOR i = 1 TO 6: READ per$(i): NEXT

'accord des verbes
'niveau 1
DATA 1chanter,2finir,1danser,2grandir,1sauter,2gravir,1classer,1taper,1compter
DATA 2grossir,3fendre,3rendre
'niveau 2
DATA 3perdre,3fondre,3mordre,3tendre,1voler
DATA 2franchir,2garnir,2bâtir,3vendre,1crier,1trier,1remercier

FOR i = 1 TO 24: READ veb$(i): NEXT

DATA "j'","tu ","il ","nous ","vous ","ils "

FOR i = 1 TO 6: READ PM$(i): NEXT

DATA "j'","tu ","elle ","nous ","vous ","elles "

FOR i = 1 TO 6: READ PF$(i): NEXT

'conjugaison temps composé
DATA chanter1,marcher1,sauter1,tomber2,casser1,être1,avoir1,aller2,finir1
DATA réussir1,sentir1,partir2,faire1,boire1,venir2,prendre1,vendre1,taper1
DATA arriver2,grossir1

FOR i = 1 TO 20: READ vv$(i): NEXT

DATA chanté,marché,sauté,tombé,cassé,été,eu,allé,fini,réussi,senti,parti
DATA fait,bu,venu,pris,vendu,tapé,arrivé,grossi

FOR i = 1 TO 20: READ p2$(i): NEXT

DATA ai,as,a,avons,avez,ont
DATA avais,avais,avait,avions,aviez,avaient
DATA aurai,auras,aura,aurons,aurez,auront
DATA eus,eus,eut,eûmes,eûtes,eurent

DATA suis,es,est,sommes,êtes,sont
DATA étais,étais,était,étions,étiez,étaient
DATA serai,seras,sera,serons,serez,seront
DATA fus,fus,fut,fûmes,fûtes,furent

FOR i = 1 TO 2: FOR j = 1 TO 4: FOR k = 1 TO 6: READ AUX$(k, j, i): NEXT k, j, i

'infinitif des verbes niveau 1
DATA nous marchions,vous grandissez,tu salis,nous sommes,j'aurai,elles sauteront
DATA ils cassaient,il dort,ils achètent,il attend
DATA vous volerez,je classais,nous pensions,vous vendrez,ils sortaient
'infinitif niveau 2
DATA je viens,ils feront,nous tendions,tu crois,elles vont,vous chanterez,ils finissaient
DATA je vais lire,j'ai bu,il coud,il craignait,nous plairons,vous serez,tu auras,ils cuisaient
'le niveau 3 est dans le module

FOR i = 1 TO 30: READ conj$(i): NEXT

'niveau 1
DATA marcher,grandir,salir,être,avoir,sauter,casser,dormir,acheter,attendre
DATA voler,classer,penser,vendre,sortir
'niveau 2
DATA venir,faire,tendre,croire,aller,chanter,finir,lire,boire,coudre
DATA craindre,plaire,être,avoir,cuire
'niveau 3
DATA avoir,parler,prendre,apprendre,comprendre,vendre,croire,vouloir,partir,arriver
DATA sortir,pleuvoir,connaître,pratiquer,être

FOR i = 1 TO 30: READ inf$(i): NEXT
FOR i = 1 TO 15: READ inf2$(i): NEXT
'intrus
'vocabulaire
DATA un livre,une revue,un dictionnaire,une encyclopédie,un journal,une télévision*,une brochure,un mode d'emploi,un manuel,"On ne lit pas la télévision.","="
DATA février,juillet,mai,hiver*,avril,janvier,mars,septembre,novembre,L'hiver n'est pas un mois.,"="
DATA un lion,une souris,un homme,une abeille*,un cheval,un dauphin,un chat,un chien,un gorille,"Une abeille n'est pas un mammifère. C'est un insecte.","="
DATA une bronchite,un rhume,la rougeole,la varicelle,les oreillons,le tympan*,"Le tympan n'est pas une maladie.","="
DATA une sardine,une morue,une baleine*,une truite,une sole,un rouget,"La baleine n'est pas un poisson. C'est un mammifère.","="
DATA un pommier,un saule,un sapin,un plumier*,un épicéa,un chêne,un palmier,un platane,"Un plumier n'est pas un arbre.","="
DATA un planeur,un parapente,un avion,une fusée*,une montgolfière,un dirigeable,un Delta-Plane,"La fusée ne 'flotte' pas dans l'air.","="
DATA Saturne,Vénus,Mars,Neptune,Mercure,Uranus,Terre,Soleil*,Jupiter,"Le Soleil n'est pas une planète. C'est une étoile.","="
DATA une rivière,une source,un fleuve,un torrent,un océan*,un ruisseau,"Un océan n'est pas un cours d'eau.","="
DATA Afrique,Canada*,Océanie,Asie,Europe,Amérique,"Le Canada n'est pas un continent. C'est un pays.","="

FOR i = 1 TO 95
READ intrusvoca$(i)
NEXT

'grammaire
DATA un oiseau,un violon,un tableau,une branche*,un cartable,un balcon,un rêve,"Le mot 'branche' n'est pas masculin.","="
DATA les avions,ces bateaux,des nuages,tes chaussures,l'édredon*,mes rêves,"'édredon' n'est pas au pluriel.","="
DATA a,g*,e,i,o,y,u,"La lettre 'g' n'est pas une voyelle.","="
DATA m,b,l,r,t,x,y*,n,h,"La lettre 'y' n'est pas une consonne.","="
DATA grand,moyen,léger,petit,rare,soin*,lourd,épais,magnifique,laid,"Le mot 'soin' n'est pas un adjectif. C'est uniquement un nom.","="
DATA un cartable*,une télévision,une nappe,une école,une institutrice,une femme,une porte,une vitre,"Le mot 'cartable' n'est pas féminin.","="
DATA fenêtre,enseignant,crayon,boulanger,mouton,agréable*,câble,toiture,poisson,chien,"Le mot 'agréable' n'est pas un nom. C'est un adjectif qualificatif.","="
DATA lentement,rapidement,vivement,carrément,franchement,tremblement*,judicieusement,"Le mot 'tremblement' n'est pas un adverbe.","="
DATA mais,ou,est*,donc,or,ni,car,"Le mot 'est' n'est pas une conjonction de coordination. C'est 'et'.","="
DATA sur,vers,dans,à,de,lui*,en,par,pour,"'lui' n'est pas une préposition.","="

FOR i = 1 TO 100
READ intrusgram$(i)
NEXT

'conjugaison
DATA tu marcheras,ils finiront,tu buvais*,nous lirons,tu bâtiras,je voudrai,"Ce verbe n'est pas au futur.","="
DATA voilier*,marcher,porter,sauter,casser,manger,oser,taper,écouter,"'voilier' n'est pas un verbe.","="
DATA il chantait,vous marchez*,il sautait,je vendais,nous volions,elles écoutaient,"Ce verbe n'est pas à l'imparfait.","="
DATA il travaille,nous rangerons,je tapais,il a vu*,vous écrivez,elle joue,elles mangeront,"Ce verbe n'est pas à un temps simple.","="
DATA grandir,gravir,réfléchir,finir,grossir,aplatir,partir*,garnir,"'partir' n'est pas un verbe du 2° groupe mais du 3°.","="
DATA nous avons vu,ils étaient fatigués,elle aura pris,ils attaqueront*,j'ai cherché,tu auras lu,"Ce verbe n'est pas à un temps composé.","="
DATA chanter,porter,voler,aller*,casser,marcher,sauter,attaquer,"'aller' n'est pas un verbe du 1° groupe mais du 3°.","="
DATA il écrira,elle lira,nous sauterons,je vais sortir*,tu taperas,vous finirez,"Ce verbe n'est pas au futur 1 mais au futur 2.","="
DATA pris,voir*,chanté,bu,vécu,perdu,écrit,classé,rangé,craint,"'voir' n'est pas un participe passé.","="
DATA sortir,prendre,vendre,voir,mentir,craindre,boire,suivre,finir*,lire,"'finir' n'est pas un verbe du 3° groupe mais du 2°.","="

FOR i = 1 TO 96
READ intrusconj$(i)
NEXT

RETURN

erreur:
programme$ = "exo_fr2"
COLOR , bleu: CLS
BEEP
CALL cadre(8, 5, 70, 9, rouge)
COLOR , rouge
CALL centre(10, blanc, "ATTENTION")
CALL centre(12, blancbrill, "Erreur système n°" + LTRIM$(STR$(ERR)))
CALL centre(14, blancbrill, "Corrigez puis tapez " + rt$ + " [Echap] = Fin")
CALL getinvimouse(r)
IF r = 27 THEN COLOR , noir: CLS : END
COLOR , bleu: CLS : RUN programme$

DEFINT A-Z
SUB bilan (ma$(), niveaux(), eleve, VarEnreg AS TypeEnreg, serie$())
'17/5/96 spécifique à français
ma = 21
DIM t$(100), moy$(ma), bi$(ma), serie2$(20)
FOR i = 1 TO ma: bi$(i) = ma$(i): NEXT
ll$ = STRING$(30, ".")
pt$ = MID$(ll$, 1, 15)
ni$ = "Niveau " + CHR$(26) + " 1 2 3 4"

titr$ = "bilan"
CALL titre

'lecture des notes
OPEN "fichier.dat" FOR RANDOM AS #1 LEN = LEN(VarEnreg)
GET #1, eleve, VarEnreg
nom$ = RTRIM$(VarEnreg.nom)
pre$ = RTRIM$(VarEnreg.prenom)
'francais est en 2°
nbexo$ = LTRIM$(MID$(VarEnreg.nbexo, 4, 3))
IF VAL(nbexo$) = 0 THEN CLOSE : EXIT SUB
resultat$ = MID$(VarEnreg.notes, 401, 400)
CLOSE
j = 1
FOR i = 1 TO 200 STEP 2
t$(j) = MID$(resultat$, i, 2)
j = j + 1
NEXT

'pour orth
j = 1
'COLOR , rouge
'PRINT resultat$'===
'COLOR , bleu
'PRINT '===
'COLOR , vert
'PRINT MID$(resultat$, 201, 40)'===
'COLOR , bleu
FOR i = 201 TO 240 STEP 2 '20 positions pour séries orth
serie$(j) = MID$(resultat$, i, 2)
IF VAL(serie$(j)) > 10 THEN serie$(j) = "10" '===
j = j + 1
NEXT
'END '===
CALL calmoy(t$(), moy$(), niveaux())

'moy générale
tt = 0: nt = 0
FOR j = 1 TO ma
IF moy$(j) <> "" THEN tt = tt + VAL(moy$(j)): nt = nt + 1
NEXT j
IF nt = 0 THEN moygen$ = " " ELSE moygen$ = LTRIM$(STR$(INT((tt / nt) * 10) / 10))

z$ = pre$ + " " + nom$ + " a fait" + STR$(VAL(nbexo$)) + " exercice"
IF VAL(nbexo$) > 1 THEN z$ = z$ + "s"
z$ = z$ + " de français (niveau II)"
COLOR , marron
CALL centre(4, blancbrill, " " + z$ + " ")
COLOR , bleu

LOCATE 6, 16: COLOR vertclair: PRINT ni$: COLOR jaune: LOCATE 6, 36: PRINT "Moy"
COLOR vertclair: LOCATE 6, 57: PRINT ni$: COLOR jaune: LOCATE 6, 77: PRINT "Moy"

COLOR , rouge
v = 7: h = 1: debut = 8: fin = 18: GOSUB cadre
v = 7: h = 42: debut = 8: fin = 17: GOSUB cadre
LOCATE 8
FOR i = 1 TO 11
LOCATE , 2: PRINT bi$(i); " "; LEFT$(ll$, 20 - LEN(bi$(i)))
NEXT
LOCATE 8
FOR i = 12 TO ma
LOCATE , 43: PRINT bi$(i); " "; LEFT$(ll$, 20 - LEN(bi$(i)))
NEXT

'affichage des moyennes
LOCATE 8
FOR i = 1 TO 11
LOCATE , 36
IF moy$(i) = "" THEN
PRINT
ELSEIF VAL(moy$(i)) = 9 OR VAL(moy$(i)) = 10 THEN
COLOR blancbrill
PRINT moy$(i);
COLOR vertclair
LOCATE , 38
PRINT "A"
ELSEIF VAL(moy$(i)) = 7 OR VAL(moy$(i)) = 8 THEN
COLOR blancbrill
PRINT moy$(i);
COLOR vert
LOCATE , 38
PRINT "B"
ELSEIF VAL(moy$(i)) = 6 OR VAL(moy$(i)) = 5 THEN
COLOR blancbrill
PRINT moy$(i);
LOCATE , 38
COLOR jaune
PRINT "C"
ELSE
COLOR blancbrill
PRINT moy$(i);
COLOR rougeclair
LOCATE , 38
PRINT "D"
END IF
NEXT
LOCATE 8
FOR i = 12 TO ma
LOCATE , 77
IF moy$(i) = "" THEN
PRINT
ELSEIF VAL(moy$(i)) = 9 OR VAL(moy$(i)) = 10 THEN
COLOR blancbrill
PRINT moy$(i);
COLOR vertclair
LOCATE , 79
PRINT "A"
ELSEIF VAL(moy$(i)) = 7 OR VAL(moy$(i)) = 8 THEN
COLOR blancbrill
PRINT moy$(i);
COLOR vert
LOCATE , 79
PRINT "B"
ELSEIF VAL(moy$(i)) = 5 OR VAL(moy$(i)) = 6 THEN
COLOR blancbrill
PRINT moy$(i);
LOCATE , 79
COLOR jaune
PRINT "C"
ELSE
COLOR blancbrill
PRINT moy$(i);
COLOR rougeclair
LOCATE , 79
PRINT "D"
END IF
NEXT
COLOR blanc

'++++++++++++++
v = 8
debut = 1
FOR Valeur = 1 TO 11
fin = debut + (niveaux(Valeur) - 1)
h = 24: GOSUB place
debut = fin + 1: v = v + 1
NEXT

v = 8
FOR Valeur = 12 TO ma
fin = debut + (niveaux(Valeur) - 1)
h = 65: GOSUB place
debut = fin + 1: v = v + 1
NEXT
'++++++++++
COLOR , bleu
IF VAL(moygen$) <> 0 THEN
COLOR cyanclair: LOCATE 19, 43
CALL convertir(moygen$)
PRINT "Moyenne générale : "; moygen$; " sur 10"
END IF
CALL entree(noir, noir, 0)

'bilan ortho
'tableau des résultats
titr$ = "Résultats en orthographe"

CALL titre

CALL cadre(3, 15, 8, 2, rouge)
COLOR blancbrill, rouge
LOCATE 4, 16: PRINT "Niveau 1"
CALL cadre(3, 55, 8, 2, rouge)
COLOR , rouge
LOCATE 4, 56: PRINT "Niveau 2"
COLOR blanc, bleu
FOR i = 4 TO 19: LOCATE i, 40: PRINT CHR$(179): NEXT

CALL cadre(6, 5, 30, 12, blanc)
CALL cadre(6, 45, 30, 12, blanc)
COLOR , blanc

FOR ni = 1 TO 2
'si ni = 1 alors de 1 à 10 sinon 11 à 20
ii = 1
FOR i = ((ni - 1) * 10) + 1 TO ni * 10
IF serie$(i) <> " " THEN
serie2$(ii) = LTRIM$(STR$(VAL(serie$(i))))
ELSE
serie2$(ii) = " "
END IF
ii = ii + 1
NEXT i

'calcul de la moyenne
tt = 0: nt = 0
FOR j = 1 TO 10
IF serie2$(j) <> " " THEN
tt = tt + VAL(serie2$(j)): nt = nt + 1
END IF
NEXT j
IF nt = 0 THEN
moyenne$ = ""
ELSE
moyenne$ = LTRIM$(STR$(INT(tt / nt)))
END IF
IF ni = 1 THEN
LOCATE 19, 15
ELSE
LOCATE 19, 55
END IF
IF moyenne$ <> "" THEN
IF VAL(moyenne$) < 5 THEN
COLOR rouge
ELSEIF VAL(moyenne$) < 8 THEN
COLOR jaune
ELSE
COLOR vertclair
END IF
COLOR , bleu '===
PRINT "Moyenne = "; moyenne$
END IF
COLOR vertclair
IF ni = 1 THEN
LOCATE 7, 15
ELSE
LOCATE 7, 55
END IF

COLOR noir, blanc
PRINT "1 2 3 4 5 6 7 8 9 10"
LOCATE 8
'COLOR blanc, noir
FOR i = 1 TO 10
IF ni = 1 THEN
LOCATE , 5
ELSE
LOCATE , 45
END IF
'COLOR blancbrill, marron
PRINT " série"; i;
'IF i < 10 THEN PRINT " ";
'COLOR blanc, noir
IF serie2$(i) <> " " THEN
i2 = 0: IF ni = 2 THEN i2 = 40
FOR j = 1 TO VAL(serie2$(i))
SELECT CASE i
CASE 1, 3, 5, 7, 9
LOCATE , 15 + i2: PRINT "▒▒";
CASE ELSE
LOCATE , 15 + i2: PRINT "▓▓";
END SELECT
i2 = i2 + 2
NEXT j
PRINT
ELSE
PRINT
END IF
NEXT i
NEXT ni
CALL entree(noir, noir, 0)
EXIT SUB

place:
LOCATE v
FOR i = debut TO fin
LOCATE , h
IF VAL(t$(i)) < 10 THEN PRINT " ";
IF t$(i) <> " " THEN PRINT LTRIM$(t$(i)); ELSE PRINT "-";
h = h + 3
NEXT
RETURN

cadre:
COLOR blancbrill
LOCATE v, h: PRINT "┌─────────────────────┬──┬──┬──┬──┬───┐"
FOR i = debut TO fin
LOCATE , h: PRINT "│ │ │ │ │ │ │"
NEXT i
LOCATE , h: PRINT "└─────────────────────┴──┴──┴──┴──┴───┘"
RETURN


END SUB

DEFINT A-Z
SUB consigne (nl, w$, z$, y$)
CALL titre
l = LEN(w$)
IF LEN(z$) > l THEN l = LEN(z$)
IF LEN(y$) > l THEN l = LEN(y$)

l = l + 6
h = INT(40 - l / 2)

IF eleve <> 0 THEN nl = nl + 1

IF nl = 1 OR nl = 2 THEN
v = 8
ELSEIF nl = 3 THEN
v = 7
ELSEIF nl = 4 THEN
v = 6
END IF

CALL cadre(v, h, l, 4 + (nl * 2), 6)
COLOR , 6
IF eleve <> 0 THEN
CALL centre(v + 3, 15, pre$ + ","): w$ = LCASE$(w$)
CALL centre(v + 5, 15, w$)
CALL centre(v + 7, 15, z$)
CALL centre(v + 10, 15, y$)
ELSE
CALL centre(v + 3, 15, w$)
CALL centre(v + 5, 15, z$)
CALL centre(v + 8, 15, y$)
END IF
CALL entree(noir, noir, 1)
w$ = "": z$ = "": y$ = ""
END SUB

DEFINT A-Z
SUB erreur2 ()
COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)
CALL centre(23, rougeclair, "Erreur")
CALL attendre(1)
LOCATE 23, 1: PRINT SPACE$(80)
END SUB

DEFINT A-Z
SUB exact2 ()
COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)
CALL centre(23, jaune, "Exact")
CALL attendre(.7)
LOCATE 23, 1: PRINT SPACE$(80)
END SUB

DEFINT A-Z
SUB fleches (v, h, w$(), np, r, coul, drap, v2, h2)
'PRINT v2, h2
'v2 et h2 sont la ligne colonne des fleches
DIM p$(np)

LOCATE , , 0
FOR i = 1 TO np: p$(i) = w$(i): NEXT
l2 = 0
FOR i = 1 TO np
l1 = LEN(p$(i)): IF l2 < l1 THEN l2 = l1
NEXT
FOR i = 1 TO np
p$(i) = p$(i) + SPACE$(l2 - LEN(p$(i)))
NEXT

COLOR blanc, noir
LOCATE v2, h2: PRINT gg$

'souris
v_mini = v: v_maxi = v_mini + np - 1
h_mini = h - 1: h_maxi = LEN(p$(1)) + h_mini + 1
'LOCATE 22, 1: PRINT v_mini, v_maxi, h_mini, h_maxi '===
'cadre
IF drap = 1 THEN
CALL cadre(v - 1, h - 3, l2 + 4, np + 1, coul)
END IF
COLOR blancbrill, coul

LOCATE v
FOR i = 1 TO np
LOCATE , h - 1: PRINT " "; p$(i); " "
NEXT
vt = v - 1
LOCATE v, h - 1
COLOR coul, blanc
PRINT " "; p$(1); " "
COLOR blancbrill, coul
DO
DEF SEG = 0
POKE &H417, (PEEK(&H417) AND &H9F)'non numérique
POKE 1050, PEEK(1052)
DEF SEG

souris = 0
DO
r$ = INKEY$
' Obtient l'emplacement de la souris et l'état des boutons.
MousePoll v_mouse, h_mouse, lButton, rButton
'LOCATE 21, 1: PRINT "Position de la souris : "; v_mouse; ", "; h_mouse '===
IF lButton THEN
IF v_mouse >= v_mini AND v_mouse <= v_maxi THEN
IF h_mouse >= h_mini AND h_mouse <= h_maxi THEN
LOCATE v_mini
FOR i = 1 TO np
LOCATE , h_mini: PRINT " "; p$(i); " "
NEXT
calcul = v_mouse - v_mini + 1
LOCATE v_mouse, h_mini
COLOR coul, blancbrill
PRINT " "; p$(calcul); " "
CALL attendre(.3)
r = calcul
EXIT SUB
ELSE
BEEP
END IF
ELSEIF v_mouse = v2 AND h_mouse = h2 THEN
rr = 72 'fleche haut
souris = 1
CALL attendre(.2)
EXIT DO
ELSEIF v_mouse = v2 AND h_mouse = h2 + 2 THEN
rr = 80 'fleche bas
souris = 1
CALL attendre(.2)
EXIT DO
ELSEIF v_mouse = v2 AND (h_mouse >= h2 + 9 AND h_mouse <= h2 + 11) THEN
rr = 13
souris = 1
CALL attendre(.3)
EXIT DO
ELSE
BEEP
END IF
END IF

LOOP WHILE r$ = ""

IF souris = 0 THEN
IF LEN(r$) < 2 THEN
rr = ASC(r$)
ELSE
rr = ASC(RIGHT$(r$, 1))
END IF
END IF

IF rr = 27 THEN
CALL quitter(noir, coul)
END IF


LOCATE v, h - 1: PRINT " "; p$(v - vt); " "
IF rr = 72 THEN v = v - 1: IF v = vt THEN v = vt + np
IF rr = 80 THEN v = v + 1: IF v = vt + np + 1 THEN v = vt + 1
LOCATE v, h - 1
COLOR coul, blanc
PRINT " "; p$(v - vt); " "
COLOR blancbrill, coul
LOOP WHILE rr <> 13
r = v - vt
COLOR blancbrill

END SUB

DEFINT A-Z
SUB fleches2 (v%, h%, ll%, nm%, h2%, w$(), r, coul)
DIM p$(nm%)
CONST gauche = 75, droite = 77, bas = 80, haut = 72

'on met des espaces à la fin
FOR i = 1 TO nm
p$(i) = w$(i)
NEXT
l2 = 0
FOR i = 1 TO nm
l1 = LEN(p$(i)): IF l2 < l1 THEN l2 = l1
NEXT
FOR i = 1 TO nm
p$(i) = p$(i) + SPACE$(l2 - LEN(p$(i)))
NEXT
'+++
n! = nm / 2
paire = 0: IF n! = INT(nm / 2) THEN paire = 1
vv = v: hh = h: r = 1
GOSUB affiche

'fleches
COLOR coul, blanc
LOCATE v, h - 1
PRINT " "; p$(1); " "
COLOR blancbrill, coul

DO
DEF SEG = 0
POKE &H417, (PEEK(&H417) AND &H9F)'non numérique
POKE &H417, (PEEK(&H417) AND &HBF) 'minus
POKE 1050, PEEK(1052)
DEF SEG

souris = 0
DO
r$ = INKEY$
' Obtient l'emplacement de la souris et l'état des boutons.
MousePoll v_mouse, h_mouse, lButton, rButton
'LOCATE 22, 1: PRINT v_mouse, h_mouse'===
IF lButton THEN
IF v_mouse >= vv AND v_mouse <= vv + ll - 1 THEN
FOR nombre = 1 TO nm
IF v_mouse = vv + nombre - 1 THEN
IF h_mouse >= h AND h_mouse <= h + l2 THEN
GOSUB affiche
LOCATE v_mouse, h - 1
COLOR coul, blanc
PRINT " "; p$(nombre); " "
COLOR blancbrill, coul
CALL attendre(.3)
r = nombre
EXIT SUB

ELSEIF h_mouse >= h2 AND h_mouse <= h2 + l2 THEN
GOSUB affiche
LOCATE v_mouse, h2 - 1
COLOR coul, blanc
PRINT " "; p$(nombre + ll); " "
COLOR blancbrill, coul
CALL attendre(.3)
r = nombre + ll
EXIT SUB
END IF
END IF
NEXT

ELSEIF v_mouse = 23 THEN
IF h_mouse = 33 THEN
'fleche haut
rr = haut
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = 35 THEN
'fleche bas
rr = bas
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = 37 THEN
'fleche gauche
rr = gauche
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = 39 THEN
'fleche droite
rr = droite
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse >= 46 AND h_mouse <= 48 THEN
'entree
rr = 13
CALL attendre(.3)
souris = 1
EXIT DO

END IF
ELSE
BEEP
END IF
END IF

LOOP WHILE r$ = ""

IF souris = 0 THEN
IF LEN(r$) < 2 THEN rr = ASC(r$) ELSE rr = ASC(RIGHT$(r$, 1))
END IF

IF rr = 27 THEN
CALL quitter(noir, coul)
END IF

LOCATE v, hh - 1
PRINT " "; p$(r); " "

GOSUB fldirect
LOCATE v, hh - 1
COLOR coul, blanc
PRINT " "; p$(r); " "
COLOR blancbrill, coul
LOOP WHILE rr <> 13

EXIT SUB

fldirect:
IF rr = gauche THEN r = r - ll: IF hh = h2 THEN hh = h ELSE IF hh = h THEN hh = h2 'gauche
IF rr = droite THEN
IF paire = 0 AND r = ll + 1 THEN
r = r + ll + 1
ELSE
r = r + ll
END IF
IF hh = h2 THEN hh = h ELSE IF hh = h THEN hh = h2 'droite
END IF
IF rr = haut THEN v = v - 1: r = r - 1 'haut
IF rr = bas THEN v = v + 1: r = r + 1 'bas

IF r = ll + 1 THEN v = vv: hh = h2
IF r = ll THEN v = ll + (vv - 1): hh = h
IF r = 2 * ll THEN v = ll + (vv - 1): hh = h2
IF r > nm THEN r = 1: v = vv: hh = h
IF r >= 1 THEN RETURN
r = nm
v = (vv - 1) + nm - ll: hh = h2
RETURN

affiche:
COLOR , coul
LOCATE vv
FOR i = 1 TO ll: LOCATE , h - 1: PRINT " "; p$(i); " ": NEXT
LOCATE vv
FOR i = ll + 1 TO nm: LOCATE , h2 - 1: PRINT " "; p$(i); " ": NEXT
RETURN
END SUB

DEFINT A-Z
SUB flechesmenu (w$(), r, coul)
nm = 21 '===
DIM p$(nm)
CONST gauche = 75, droite = 77, bas = 80, haut = 72
h1 = 6: h2 = 32: h3 = 58

'on met des espaces à la fin
FOR i = 1 TO nm
p$(i) = w$(i)
NEXT
l2 = 0
FOR i = 1 TO nm
l1 = LEN(p$(i)): IF l2 < l1 THEN l2 = l1
NEXT
FOR i = 1 TO nm
p$(i) = p$(i) + SPACE$(l2 - LEN(p$(i)))
NEXT
'+++

h = h1: v = 7
r = 1

DO

COLOR coul, blanc
LOCATE v, h - 1
PRINT " "; p$(r); " "
COLOR blancbrill, coul

hh = h: vv = v

'fleches
DEF SEG = 0
POKE &H417, (PEEK(&H417) AND &H9F)'non numérique
POKE &H417, (PEEK(&H417) AND &HBF) 'minus
POKE 1050, PEEK(1052)
DEF SEG

souris = 0
DO
r$ = INKEY$

' Obtient l'emplacement de la souris et l'état des boutons.
MousePoll v_mouse, h_mouse, lButton, rButton
' LOCATE 21, 1: PRINT "Position de la souris : "; v_mouse; ", "; h_mouse '===
IF lButton THEN
'ligne fleches et entree
IF v_mouse = 22 THEN
IF h_mouse = 33 THEN
'fleche haut
rr = haut
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = 35 THEN
'fleche bas
rr = bas
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = 37 THEN
'fleche gauche
rr = gauche
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = 39 THEN
'fleche droite
rr = droite
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse >= 46 AND h_mouse <= 48 THEN
'entree
rr = 13
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse >= 3 AND h_mouse <= 15 THEN
'ligne echap et *
rr = 27
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse >= 68 AND h_mouse <= 78 THEN
rr = 42
CALL attendre(.3)
souris = 1
EXIT DO
ELSE
BEEP
END IF
END IF

'lignes noms des activités
IF v_mouse = 7 THEN
IF h_mouse >= 6 AND h_mouse <= 24 THEN
GOSUB afficheliste
r = 1
LOCATE v_mouse, 5
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB
ELSEIF h_mouse >= 32 AND h_mouse <= 50 THEN
GOSUB afficheliste
r = 8
LOCATE v_mouse, 31
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB
ELSEIF h_mouse >= 57 AND h_mouse <= 76 THEN
GOSUB afficheliste
r = 15
LOCATE v_mouse, 57
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB

ELSE
BEEP
END IF
ELSEIF v_mouse = 9 THEN
IF h_mouse >= 6 AND h_mouse <= 24 THEN
GOSUB afficheliste
r = 2
LOCATE v_mouse, 5
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB
ELSEIF h_mouse >= 32 AND h_mouse <= 50 THEN
GOSUB afficheliste
r = 9
LOCATE v_mouse, 31
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB
ELSEIF h_mouse >= 57 AND h_mouse <= 76 THEN
GOSUB afficheliste
r = 16
LOCATE v_mouse, 57
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB
ELSE
BEEP
END IF
ELSEIF v_mouse = 11 THEN
IF h_mouse >= 6 AND h_mouse <= 24 THEN
GOSUB afficheliste
r = 3
LOCATE v_mouse, 5
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB

ELSEIF h_mouse >= 32 AND h_mouse <= 50 THEN
GOSUB afficheliste
r = 10
LOCATE v_mouse, 31
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB
ELSEIF h_mouse >= 57 AND h_mouse <= 76 THEN
GOSUB afficheliste
r = 17
LOCATE v_mouse, 57
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB

ELSE
BEEP
END IF
ELSEIF v_mouse = 13 THEN
IF h_mouse >= 6 AND h_mouse <= 24 THEN
GOSUB afficheliste
r = 4
LOCATE v_mouse, 5
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB

ELSEIF h_mouse >= 32 AND h_mouse <= 50 THEN
GOSUB afficheliste
r = 11
LOCATE v_mouse, 31
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB
ELSEIF h_mouse >= 57 AND h_mouse <= 76 THEN
GOSUB afficheliste
r = 18
LOCATE v_mouse, 57
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB

ELSE
BEEP
END IF
ELSEIF v_mouse = 15 THEN
IF h_mouse >= 6 AND h_mouse <= 24 THEN
GOSUB afficheliste
r = 5
LOCATE v_mouse, 5
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB

ELSEIF h_mouse >= 32 AND h_mouse <= 50 THEN
GOSUB afficheliste
r = 12
LOCATE v_mouse, 31
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB
ELSEIF h_mouse >= 57 AND h_mouse <= 76 THEN
GOSUB afficheliste
r = 19
LOCATE v_mouse, 57
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB

ELSE
BEEP
END IF
ELSEIF v_mouse = 17 THEN
IF h_mouse >= 6 AND h_mouse <= 24 THEN
GOSUB afficheliste
r = 6
LOCATE v_mouse, 5
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB

ELSEIF h_mouse >= 32 AND h_mouse <= 50 THEN
GOSUB afficheliste
r = 13
LOCATE v_mouse, 31
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB
ELSEIF h_mouse >= 57 AND h_mouse <= 76 THEN
GOSUB afficheliste
r = 20
LOCATE v_mouse, 57
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB

ELSE
BEEP
END IF

ELSEIF v_mouse = 19 THEN
IF h_mouse >= 6 AND h_mouse <= 24 THEN
GOSUB afficheliste
r = 7
LOCATE v_mouse, 5
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB

ELSEIF h_mouse >= 32 AND h_mouse <= 50 THEN
GOSUB afficheliste
r = 14
LOCATE v_mouse, 31
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB
ELSEIF h_mouse >= 57 AND h_mouse <= 76 THEN
GOSUB afficheliste
r = 21
LOCATE v_mouse, 57
COLOR coul, blanc
PRINT " "; p$(r); " "
CALL attendre(.5)
EXIT SUB

ELSE
BEEP

END IF

ELSE
BEEP
END IF
END IF
LOOP WHILE r$ = ""

IF souris = 0 AND LEN(r$) < 2 THEN
rr = ASC(r$)
ELSEIF souris = 0 THEN
rr = ASC(RIGHT$(r$, 1))
END IF

SELECT CASE rr

CASE gauche
h = h - 26
IF h < h1 THEN
v = v - 2: h = h3
END IF
IF v < 7 THEN
v = 19
END IF

CASE droite
h = h + 26
IF h > h3 THEN
v = v + 2: h = h1
END IF
IF v > 19 THEN
v = 7
END IF

CASE bas
v = v + 2
IF v > 19 THEN
IF h = h1 THEN
h = h2: v = 7
ELSEIF h = h2 THEN
h = h3: v = 7
ELSEIF h = h3 THEN
h = h1: v = 7
END IF
END IF

CASE haut
v = v - 2
IF v < 7 THEN
IF h = h3 THEN
h = h2: v = 19
ELSEIF h = h2 THEN
h = h1: v = 19
ELSEIF h = h1 THEN
h = h3: v = 19
END IF
END IF

CASE 13
GOSUB calculr
EXIT SUB

CASE 27
r = 0
EXIT SUB

CASE 42, 36, 56, 230, 43
IF eleve <> 0 THEN
'l'étoile
r = 42
EXIT SUB
END IF

END SELECT

COLOR blancbrill, coul
LOCATE vv, hh - 1
PRINT " "; p$(r); " "

GOSUB calculr

LOOP

EXIT SUB

calculr:
IF h = h1 THEN
r = ((v - 7) / 2) + 1
ELSEIF h = h2 THEN
r = ((v - 7) / 2) + 8
ELSEIF h = h3 THEN
r = ((v - 7) / 2) + 15
END IF
RETURN

afficheliste:
'affiche liste exo
h1 = 5: h2 = 31: h3 = 57
COLOR blancbrill
LOCATE 7
FOR i = 1 TO 7
LOCATE , h1: PRINT " "; p$(i); " ": PRINT
NEXT
LOCATE 7
FOR i = 8 TO 14
LOCATE , h2: PRINT " "; p$(i); " ": PRINT
NEXT
LOCATE 7
FOR i = 15 TO 21
LOCATE , h3: PRINT " "; p$(i); " ": PRINT
NEXT
RETURN

END SUB

DEFINT A-Z
SUB getinvimouse (rr)
DEF SEG = 0
POKE 1050, PEEK(1052)
DEF SEG
DO
r$ = INKEY$
' Obtient l'emplacement de la souris et l'état des boutons.
MousePoll v_mouse, h_mouse, lButton, rButton
IF lButton THEN
r$ = CHR$(13)
CALL attendre(.5)
END IF
LOOP WHILE r$ = ""
IF LEN(r$) < 2 THEN rr = ASC(r$) ELSE rr = ASC(RIGHT$(r$, 1))

END SUB

DEFINT A-Z
SUB inputgen (nl%, r$, deb%, fin%, x%, y%)
DIM re$(nl + 1)

inpdebut:
IF y% = blanc THEN
COLOR noir, blanc
ELSE
COLOR blancbrill
END IF


r$ = ".": xx = 0
DEF SEG = 0
POKE 1050, PEEK(1052)
DEF SEG
ligne = CSRLIN
col = POS(0)
LOCATE ligne, col, 1
IF (deb% = 65 OR deb% = 32) AND (prog <> 2 AND prog <> 3) THEN 'sauf orth et recolle ===
PRINT LEFT$(SPACE$(40), nl)
END IF
LOCATE ligne, col, 1
FOR ii = 1 TO nl + 1

input0:
IF ii <= 0 THEN ii = 1
DO
re$(ii) = INKEY$
IF prog = 3 THEN
'recolle
MousePoll v_mouse, h_mouse, lButton, rButton
IF lButton THEN
IF v_mouse = 23 AND (h_mouse >= 39 AND h_mouse <= 57) THEN
re$(ii) = "*"
CALL attendre(.5)
ELSE
BEEP
END IF
END IF
END IF
LOOP WHILE re$(ii) = ""
IF ASC(re$(ii)) = 27 THEN CALL quitter(x, y): xx = 1: EXIT FOR
IF LEN(re$(ii)) = 2 THEN z2 = ASC(RIGHT$(re$(ii), 1)): IF ii > 1 AND (z2 = 75 OR z2 = 83 OR z2 = 15) THEN PRINT CHR$(29); " "; CHR$(29); : ii = ii - 1: z2 = 0: GOTO input0 ELSE GOTO input0
IF prog = 3 THEN '=== recolle
r = ASC(re$(ii))
SELECT CASE r '*
CASE 42, 36, 56, 230, 43
r$ = "*"
LOCATE , , 0
EXIT SUB
END SELECT
END IF
IF ASC(re$(ii)) = 13 THEN EXIT FOR
IF ii > 1 AND ASC(re$(ii)) = 8 THEN PRINT CHR$(29); " "; CHR$(29); : ii = ii - 1: GOTO input0 ELSE IF ASC(re$(ii)) = 8 THEN GOTO input0
IF ASC(re$(ii)) < deb OR ASC(re$(ii)) > fin THEN CALL lettres(x, y): xx = 1: EXIT FOR
IF ii = nl + 1 THEN BEEP: GOTO input0
PRINT re$(ii);
NEXT ii

PRINT
r$ = "": FOR jj = 1 TO ii - 1: r$ = r$ + re$(jj): NEXT
r$ = LTRIM$(r$): r$ = RTRIM$(r$)
IF r$ = "" OR LEN(r$) = 1 THEN GOTO inp3
'épure
l = LEN(r$)
'enlève les espaces
ik = 1
DO
IF ASC(MID$(r$, ik, 1)) = 32 THEN
IF ASC(MID$(r$, ik + 1, 1)) = 32 THEN
r$ = MID$(r$, 1, ik) + MID$(r$, ik + 2): l = l - 1: ik = ik - 1
END IF
END IF
ik = ik + 1
LOOP WHILE ik <> l

'guillemet
z = INSTR(1, r$, " '")
IF z <> 0 THEN
r$ = MID$(r$, 1, z - 1) + "'" + MID$(r$, z + 2)
END IF
z = INSTR(1, r$, "' ")
IF z <> 0 THEN
r$ = MID$(r$, 1, z - 1) + "'" + MID$(r$, z + 2)
END IF

inp3:
r$ = LCASE$(r$)
IF fin% = 125 AND r$ = "" AND xx <> 1 THEN LOCATE , , 0: EXIT SUB
IF r$ = "" OR xx = 1 THEN BEEP: LOCATE ligne, col, 1: GOTO inpdebut
LOCATE , , 0
END SUB

DEFINT A-Z
SUB lettres (x, y)
LOCATE 23, 1, 0
FOR i = 1 TO 80
x$ = x$ + CHR$(SCREEN(23, i))
NEXT
COLOR , x
LOCATE 23, 1: PRINT SPACE$(80)
CALL centre(23, rougeclair, "Des lettres !")
CALL attendre(1)
COLOR blanc
LOCATE 23, 1: PRINT x$
COLOR 15, y
END SUB

DEFINT A-Z
SUB niv (limit, xx)
COLOR noir, vert
LOCATE 21, 2: PRINT " Niveau"; ni
LOCATE 21, 76: PRINT " "
IF limit + 1 - xx > 9 THEN LOCATE 21, 76 ELSE LOCATE 21, 77
PRINT limit + 1 - xx
COLOR blancbrill, bleu
END SUB

DEFINT A-Z
SUB niveau (r%, np%)

CALL titre
DIM p$(4)
p$(1) = "1": p$(2) = "2": p$(3) = "3": p$(4) = "4"

CALL cadre(7, 25, 30, 2, vert)
COLOR , vert
CALL centre(8, blancbrill, "Niveau de difficulté")

p$(1) = "1": p$(2) = "2": p$(3) = "3": p$(4) = "4"
CALL fleches(13, 40, p$(), np, r, rouge, 1, 23, 35)
END SUB

DEFINT A-Z
SUB resultats (re, ni, nbniv)
tit$ = titr$
titr$ = "resultats"
w! = LEN(tit$) / 2
IF w! = INT(LEN(tit$) / 2) THEN n = 4 ELSE n = 2
CALL titre
CALL cadre(5, 38 - INT(LEN(tit$) / 2), INT(LEN(tit$)) + n, 2, blanc)
COLOR , blanc
CALL centre(6, noir, tit$)
COLOR , bleu

IF re > 8 THEN
cc = vertclair: z$ = "Acquis"
ELSEIF re > 4 AND re < 9 THEN
cc = jaune: z$ = "En cours d'acquisition"
ELSE
cc = rougeclair: z$ = "Non acquis"
END IF

IF nbniv <> 1 THEN
s$ = " au niveau" + RTRIM$(STR$(ni))
ELSE
s$ = ""
END IF

CALL centre(10, cc, z$ + s$)
CALL cadre(12, 20, 40, 2, rouge)
LOCATE 13
i2 = 0
FOR i = 1 TO re
LOCATE , 21 + i2: PRINT "████"; '219
i2 = i2 + 4
NEXT
COLOR noir, noir
FOR i = re + 1 TO 10
LOCATE , 21 + i2: PRINT " ";
i2 = i2 + 4
NEXT
PRINT
COLOR , bleu
CALL centre(16, 15, "Pourcentage de réussite :" + STR$(re * 10) + " %")
CALL centre(18, 15, "(" + LTRIM$(STR$(re)) + " sur 10)")

END SUB

DEFINT A-Z
SUB tableauexo (p$())
'tableau des exercices
CALL cadre(2, 20, 40, 2, vert)
COLOR , vert
CALL centre(3, blancbrill, "ACTIVITES de FRANCAIS - Cycle 3")

CALL cadre(5, 2, 75, 16, rouge)
COLOR , bleu
LOCATE 22, 3: PRINT "["; : COLOR jaune: PRINT "Echap"; : COLOR blancbrill: PRINT "] = Fin"
CALL centre(22, blanc, gg2$)
IF eleve <> 0 THEN
COLOR blancbrill
LOCATE 22, 68: PRINT "["; : COLOR jaune: PRINT "*"; : COLOR blancbrill: PRINT "] = Bilan"
END IF


l3$ = SPACE$(24) + "│" + SPACE$(25) + "│" + SPACE$(23)
l4$ = STRING$(24, "─") + "┼" + STRING$(25, "─") + "┼" + STRING$(23, "─")
l5$ = STRING$(24, "─") + "┬" + STRING$(25, "─") + "┬" + STRING$(23, "─")
l6$ = STRING$(24, "─") + "┴" + STRING$(25, "─") + "┴" + STRING$(23, "─")

COLOR blanc, rouge
LOCATE 6
LOCATE , 3: PRINT l5$
'LOCATE , 3: PRINT l3$
FOR i = 1 TO 6
LOCATE , 3: PRINT l3$
LOCATE , 3: PRINT l4$
NEXT
LOCATE , 3: PRINT l3$
LOCATE , 3: PRINT l6$

'affiche liste exo
h1 = 6: h2 = 32: h3 = 58
COLOR blancbrill
LOCATE 7
FOR i = 1 TO 7
LOCATE , h1: PRINT p$(i): PRINT
NEXT
LOCATE 7
FOR i = 8 TO 14
LOCATE , h2: PRINT p$(i): PRINT
NEXT
LOCATE 7
FOR i = 15 TO 21
LOCATE , h3: PRINT p$(i): PRINT
NEXT

END SUB

DEFINT A-Z
SUB titre ()
MouseShow
w$ = titr$
COLOR , noir, noir: CLS
FOR i = 1 TO LEN(w$)
IF MID$(w$, i, 1) = "é" OR MID$(w$, i, 1) = "è" THEN
w$ = MID$(w$, 1, i - 1) + "E" + MID$(w$, i + 1)
END IF
NEXT
FOR i = 1 TO LEN(w$)
IF MID$(w$, i, 1) = "à" THEN
w$ = MID$(w$, 1, i - 1) + "A" + MID$(w$, i + 1)
END IF
NEXT

COLOR , vert
LOCATE 2, 1: PRINT SPACE$(80)
CALL centre(2, noir, UCASE$(w$))
LOCATE 21, 1: PRINT SPACE$(80)
VIEW PRINT 3 TO 20: COLOR blancbrill, bleu: CLS 2: VIEW PRINT

END SUB
 

 

DECLARE SUB niv (limit%, xx%)
DECLARE SUB accordverbe (re%, gg$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB cadre (v%, h%, l%, nli%, c%)
DECLARE SUB erreur2 ()
DECLARE SUB exact2 ()
DECLARE SUB fleches (v%, h%, w$(), np%, r%, coul%, drap%, v2%, h2%)
DECLARE SUB inputgen (nl%, r$, deb%, fin%, x%, y%)
DECLARE SUB niveau (r%, np%)
DECLARE SUB quitter (x%, y%)
DECLARE SUB resultats (re%, ni%, nbniv%)
DECLARE SUB titre ()
DECLARE SUB consigne (nl%, w$, z$, y$)
DECLARE SUB getinvimouse (rr%)
DECLARE SUB ouinon (r$)
DECLARE SUB attendre (tx!)
DECLARE SUB centre (v%, coul%, ph$)
DECLARE SUB ligne23 (x%, y%)
DECLARE SUB tri (n$(), no%)
DECLARE SUB solution (sol$)
DECLARE SUB MouseHide ()
DECLARE SUB MousePoll (row%, col%, lButton%, rButton%)
'module 2 FRANCAIS PRIMAIRE AAS
'Clerc Daniel 5/5/96
'version 1.0


DEFINT A-Z
SUB accordv (re%, ni%, t$(), p$(), v$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'1/5/96
DIM te2$(3), z(10)
re = 0
CALL accordverbe(re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
te2$(1) = "présent": te2$(2) = "imparfait": te2$(3) = "futur 1"
COLOR , bleu: CLS
COLOR jaune: LOCATE 2, 3: PRINT "Rappel"
CALL cadre(3, 2, 75, 18, rouge)
COLOR blanc, rouge
LOCATE 4
FOR i = 1 TO 17
LOCATE , 28: PRINT "│"; : LOCATE , 54: PRINT "│"
NEXT
LOCATE 6, 3: PRINT STRING$(25, "─") + "┼" + STRING$(25, "─") + "┼" + STRING$(24, "─")
LOCATE 13, 3: PRINT STRING$(25, "─") + "┼" + STRING$(25, "─") + "┼" + STRING$(24, "─")
COLOR jaune
LOCATE 5, 7: PRINT "PRESENT"; : LOCATE , 33: PRINT "IMPARFAIT"; : LOCATE , 59: PRINT "FUTUR 1"
LOCATE 7
FOR i = 1 TO 6: LOCATE , 7: COLOR blancbrill: PRINT p$(i); " chant"; : COLOR vertclair: PRINT t$(1, 1, i): NEXT
LOCATE 7
FOR i = 1 TO 6: LOCATE , 33: COLOR blancbrill: PRINT p$(i); " chant"; : COLOR vertclair: PRINT t$(2, 1, i): NEXT
LOCATE 7
FOR i = 1 TO 6: LOCATE , 59: COLOR blancbrill: PRINT p$(i); " chant"; : COLOR vertclair: PRINT t$(3, 1, i): NEXT
LOCATE 14
FOR i = 1 TO 6: LOCATE , 7: COLOR blancbrill: PRINT p$(i); " fin"; : COLOR vertclair: PRINT t$(1, 2, i): NEXT
LOCATE 14
FOR i = 1 TO 6: LOCATE , 33: COLOR blancbrill: PRINT p$(i); " fin"; : COLOR vertclair: PRINT t$(2, 2, i): NEXT
LOCATE 14
FOR i = 1 TO 6: LOCATE , 59: COLOR blancbrill: PRINT p$(i); " fin"; : COLOR vertclair: PRINT t$(3, 2, i): NEXT
COLOR , bleu
CALL centre(23, blanc, "Mémorise les terminaisons (1° et 2° groupe)")
CALL getinvimouse(r)

COLOR , bleu: CLS
COLOR jaune: LOCATE 6, 3: PRINT "Rappel"
CALL cadre(7, 2, 75, 11, rouge)
COLOR blanc, rouge
LOCATE 8
FOR i = 1 TO 10
LOCATE , 28: PRINT "│"; : LOCATE , 54: PRINT "│"
NEXT
LOCATE 10, 3: PRINT STRING$(25, "─") + "┼" + STRING$(25, "─") + "┼" + STRING$(24, "─")
COLOR jaune
LOCATE 9, 7: PRINT "PRESENT"; : LOCATE , 33: PRINT "IMPARFAIT"; : LOCATE , 59: PRINT "FUTUR 1"
LOCATE 11
FOR i = 1 TO 6: LOCATE , 7: COLOR blancbrill: PRINT p$(i); " vend"; : COLOR vertclair: PRINT t$(1, 3, i): NEXT
LOCATE 11
FOR i = 1 TO 6: LOCATE , 33: COLOR blancbrill: PRINT p$(i); " vend"; : COLOR vertclair: PRINT t$(2, 3, i): NEXT
LOCATE 11
FOR i = 1 TO 6: LOCATE , 59: COLOR blancbrill: PRINT p$(i); " vend"; : COLOR vertclair: PRINT t$(3, 3, i): NEXT
COLOR , bleu
CALL centre(23, blanc, "Mémorise les terminaisons (3° groupe)")

CALL getinvimouse(w)


'niveau
CALL niveau(ni, 2)

IF ni = 1 THEN nf = 12 ELSE nf = 24


CALL titre

FOR ii = 1 TO 10 '++++++++++++++
MouseHide
DO
DO
f = 0
z(ii) = INT(RND * nf) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
LOOP WHILE ni = 2 AND z(ii) <= 12

v = z(ii)

t = INT(RND * 3) + 1
p = INT(RND * 6) + 1

CALL cadre(5, 8, 10, 2, marron)
CALL cadre(5, 31, 12, 2, marron)
CALL cadre(5, 53, 19, 2, marron)
COLOR blancbrill, marron
LOCATE 6, 10: PRINT "VERBE"
LOCATE 6, 33: PRINT "TEMPS"
LOCATE 6, 55: PRINT "PERSONNE"

'verbe
CALL cadre(8, 8, 10, 4, rouge)
CALL cadre(8, 31, 12, 4, rouge)
LOCATE 10, 10: COLOR blancbrill, rouge
PRINT MID$(v$(v), 2, LEN(v$(v)) - 1)
'temps
LOCATE 10, 33: PRINT te2$(t)
'personne
CALL cadre(8, 53, 19, 4, rouge)
PE = p: IF p > 3 THEN PE = p - 3
LOCATE 10, 54: COLOR blancbrill, rouge: PRINT STR$(PE); "° du ";
IF p > 3 THEN PRINT "pluriel" ELSE PRINT "singulier"

g = VAL(LEFT$(v$(v), 1))
v$ = MID$(v$(v), 2, LEN(v$(v)) - 3)

acv1:
CALL niv(10, ii)
COLOR , noir
CALL centre(23, blanc, "Tape la terminaison")

SELECT CASE t
CASE 1
z$ = "Maintenant, "
CASE 2
z$ = "Hier, "
CASE 3
z$ = "Demain, "
END SELECT
z$ = z$ + p$(p) + " " + v$

CALL cadre(14, 8, 64, 4, blanc)
COLOR noir, blanc
LOCATE 16, INT(38 - (LEN(z$) / 2)): PRINT z$
LOCATE 16, LEN(z$) + INT(38 - (LEN(z$) / 2))

CALL inputgen(10, r$, 32, 125, noir, blanc)
COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)
LOCATE 23, 38
IF r$ = t$(t, g, p) THEN
IF cc = 0 THEN re = re + 1
CALL exact2
ELSE
cc = cc + 1
IF cc < 2 THEN
CALL erreur2
CALL cadre(13, 53, 10, 7, rouge)
COLOR blancbrill, rouge
LOCATE 14: FOR i = 1 TO 6: LOCATE , 55: PRINT t$(t, g, i): NEXT
COLOR , noir
CALL centre(23, blanc, "Regarde")
CALL getinvimouse(r)
COLOR , bleu
LOCATE 13: FOR i = 1 TO 2: LOCATE , 53: PRINT SPACE$(12): NEXT
LOCATE 18: FOR i = 1 TO 3: LOCATE , 53: PRINT SPACE$(13): NEXT
COLOR , noir
ELSE
CALL solution(p$(p) + " " + v$ + t$(t, g, p))
END IF
GOTO acv1
END IF
cc = 0
NEXT ii '+++++++++++++++++=

IF re < 0 THEN re = 0
CALL resultats(re, ni, 2)


END SUB

DEFINT A-Z
SUB conjtc (re%, ni%, PM$(), PF$(), vv$(), pp$(), AUX$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'26/4/97
DIM p$(4), z(5), p2$(4)

p$(1) = "passé composé": p$(2) = "plus que parfait": p$(3) = "futur antérieur": p$(4) = "passé antérieur"
p2$(1) = "au présent": p2$(2) = "à l'imparfait": p2$(3) = "au futur": p2$(4) = "au passé simple"
titr$ = "conjugaison des temps composés"
re = 0: quest = 0

CALL titre
CALL cadre(7, 25, 30, 2, vert)
COLOR , vert
CALL centre(8, blancbrill, "Niveau de difficulté")

CALL fleches(12, 33, p$(), 4, ni, rouge, 1, 23, 35)

question:
CALL titre
CALL cadre(10, 5, 44, 4, blanc)
COLOR noir, blanc
LOCATE 11, 7: PRINT "Au "; : COLOR , marron: PRINT p$(ni); : COLOR , blanc: PRINT ","
LOCATE 13, 7
PRINT "l'auxiliaire (être ou avoir) se conjugue :"
CALL fleches(11, 57, p2$(), 4, rep, rouge, 1, 23, 57)
IF rep = ni THEN
CALL exact2
ELSE
CALL erreur2
quest = 1
GOTO question
END IF

'rappel
COLOR , bleu: CLS
CALL cadre(3, 2, 75, 18, rouge)
COLOR blanc, rouge
FOR v = 4 TO 20
LOCATE v, 40: PRINT "│"
NEXT v
LOCATE 12, 3: PRINT STRING$(37, "─") + "┤"
COLOR blancbrill
LOCATE 5
FOR i = 1 TO 6
LOCATE , 10: PRINT PM$(i); : LOCATE , 16: PRINT AUX$(i, ni, 1); : LOCATE , 24: PRINT pp$(1)
NEXT
AUX = 2: GENRE = 2
LOCATE 14
FOR pers = 1 TO 6
GOSUB ctctrait
LOCATE , 10: PRINT p$; : LOCATE , 16: PRINT AUX$(pers, ni, AUX); : LOCATE , 24: PRINT pp$(8); TER$
NEXT

LOCATE 5
FOR i = 1 TO 8
GOSUB ctctir: GOSUB ctctrait
LOCATE , 50: PRINT tt$
PRINT
NEXT
COLOR , bleu
CALL centre(23, blanc, "Mémorise")
CALL getinvimouse(r)

CALL titre

FOR ii = 1 TO 5 '+++++++++++
MouseHide
GOSUB ctctir
GOSUB ctctrait

ctc2:
'verbe
CALL cadre(5, 8, 10, 2, marron)
CALL cadre(5, 28, 18, 2, marron)
CALL cadre(5, 53, 19, 2, marron)
COLOR blancbrill, marron
LOCATE 6, 10: PRINT "VERBE"
LOCATE 6, 30: PRINT "TEMPS"
LOCATE 6, 55: PRINT "PERSONNE"

CALL cadre(8, 8, 10, 4, rouge)
CALL cadre(8, 28, 18, 4, rouge)
COLOR blancbrill, rouge
LOCATE 10, 10
PRINT vv$
'temps
LOCATE 10, 30
PRINT p$(ni)
'personne
CALL cadre(8, 53, 19, 5, rouge)
LOCATE 10, 55: COLOR blancbrill, rouge: PRINT pers$; n$
LOCATE 11, 55: PRINT g$

COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)
CALL niv(5, ii)
COLOR , noir
CALL centre(23, blanc, "Tape la réponse")
CALL cadre(16, 8, 64, 2, blanc)
LOCATE 17, INT(41 - (LEN(tt$) / 2))
CALL inputgen(30, r$, 32, 155, noir, blanc)
IF LEN(r$) < 2 THEN GOTO ctc2

l = LEN(r$)

COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)

IF LEFT$(tt$, 1) <> LEFT$(r$, 1) THEN
CALL centre(23, rougeclair, "Pronom personnel = " + p$)
CALL attendre(3): LOCATE 23, 1: PRINT SPACE$(80)
GOTO ctc2
END IF

IF r$ <> tt$ THEN
cc = cc + 1
IF cc < 2 THEN
IF TER$ <> "" AND RIGHT$(r$, 1) <> RIGHT$(tt$, 1) THEN
CALL centre(23, rougeclair, "Auxiliaire être " + CHR$(26) + " accord du participe passé" + " (" + g$ + "/" + n$ + ")")
CALL attendre(5)
ELSEIF RIGHT$(r$, LEN(pp$ + TER$)) <> pp$ + TER$ THEN
CALL centre(23, rougeclair, "Participe passé = " + pp$ + TER$)
CALL attendre(3)
ELSE
CALL erreur2
GOSUB ctc19
END IF
ELSE
CALL solution(tt$)
END IF
GOTO ctc2

ELSE
CALL exact2
IF cc = 0 THEN re = re + 2
END IF
cc = 0
NEXT ii '++++++++++++

re = re - quest
IF re < 0 THEN re = 0
CALL resultats(re, ni, 4)

EXIT SUB

ctctir:
GENRE = INT(RND * 2) + 1
pers = INT(RND * 6) + 1
IF ni = 4 THEN IF (pers = 4 OR pers = 5) THEN GOTO ctctir

DO
f = 0
z(ii) = INT(RND * 20) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
ve = z(ii)

IF GENRE = 1 THEN g$ = "masculin" ELSE g$ = "féminin"
IF pers < 4 THEN n$ = "singulier" ELSE n$ = "pluriel"
IF pers = 1 OR pers = 4 THEN
pers$ = "1° du "
ELSEIF pers = 2 OR pers = 5 THEN
pers$ = "2° du "
ELSE
pers$ = "3° du "
END IF

vv$ = LEFT$(vv$(ve), LEN(vv$(ve)) - 1)
pp$ = pp$(ve)
AUX = VAL(RIGHT$(vv$(ve), 1))
RETURN

ctctrait:
IF pers = 1 AND AUX = 2 AND ni <> 2 THEN p$ = "je ": GOTO ctct2
IF GENRE = 1 THEN p$ = PM$(pers) ELSE p$ = PF$(pers)
ctct2:
TER$ = ""
IF AUX = 1 THEN GOTO ctct1
IF pers < 4 AND GENRE = 2 THEN TER$ = "e"
IF pers > 3 AND GENRE = 1 THEN TER$ = "s"
IF pers > 3 AND GENRE = 2 THEN TER$ = "es"
ctct1:
tt$ = p$ + AUX$(pers, ni, AUX) + " " + pp$ + TER$
RETURN


ctc19:
perstemp = pers
CALL cadre(13, 53, 23, 7, rouge)
COLOR , rouge
LOCATE 14
FOR pers = 1 TO 6
GOSUB ctctrait
LOCATE , 55: PRINT tt$
NEXT
COLOR , noir
CALL centre(23, blanc, "Mémorise")
CALL getinvimouse(r)

LOCATE 13
COLOR , bleu
FOR i = 1 TO 8: LOCATE , 50: PRINT SPACE$(29): NEXT

pers = perstemp
GOSUB ctctrait
RETURN

END SUB

DEFINT A-Z
SUB groupev (re%, ni%, n$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'1/2/96
DIM p$(4), z(10)
p$(1) = "1° groupe": p$(2) = "2° groupe": p$(3) = "3° groupe": p$(4) = "Auxiliaire"
re = 0
'rappel
COLOR , bleu: CLS
LOCATE 4, 3: COLOR jaune: PRINT "Rappel"
CALL cadre(5, 2, 75, 14, rouge)

COLOR blanc, rouge
FOR i = 6 TO 18
LOCATE i, 16: PRINT "│"
NEXT
LOCATE 9, 3: PRINT STRING$(13, "─") + "┼" + STRING$(61, "─")
LOCATE 12, 3: PRINT STRING$(13, "─") + "┼" + STRING$(61, "─")
LOCATE 15, 3: PRINT STRING$(13, "─") + "┼" + STRING$(61, "─")

LOCATE 7: h = 18
COLOR jaune: LOCATE , 6: PRINT "1° groupe"; : COLOR blancbrill
LOCATE , h: g$ = "1": GOSUB gv10
COLOR vertclair
LOCATE , h: PRINT "Les verbes qui se terminent par ER - sauf 'aller'."
LOCATE 10
COLOR jaune: LOCATE , 6: PRINT "2° groupe"; : COLOR blancbrill
LOCATE , h: g$ = "2": GOSUB gv10
COLOR vertclair
LOCATE , h: PRINT "Les verbes qui se terminent par IR et qui font ISSONS."
LOCATE 13
COLOR jaune: LOCATE , 6: PRINT "3° groupe"; : COLOR blancbrill
LOCATE , h
PRINT "sentir, vendre, aller, prendre, croire, perdre, courir..."
COLOR vertclair
LOCATE , h: PRINT "Les autres verbes."
LOCATE 16
COLOR jaune: LOCATE , 4: PRINT "Auxiliaires"; : COLOR blancbrill
LOCATE , h: PRINT "être, avoir"
COLOR vertclair
LOCATE , h: PRINT "Ces deux verbes sont utilisés pour les temps composés."
CALL getinvimouse(w)

'niveau
CALL niveau(ni, 2)


FOR ii = 1 TO 10 '++++++++++++++++
CALL titre
DO
f = 0
IF ni = 1 THEN
z(ii) = INT(RND * 30) + 1
ELSE
z(ii) = INT(RND * 30) + 31
END IF
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
nu = z(ii)

n$ = n$(nu)
v$ = MID$(n$, 1, LEN(n$) - 1)
ra$ = MID$(v$, 1, LEN(v$) - 2)
t$ = RIGHT$(v$, 2)
g$ = RIGHT$(n$, 1)

CALL cadre(7, 21, 14, 2, marron)
CALL cadre(7, 44, 14, 2, marron)
COLOR , marron
LOCATE 8, 24: PRINT "VERBE"
LOCATE 8, 46: PRINT "GROUPE"

CALL cadre(10, 21, 14, 5, blanc)
COLOR noir, blanc
LOCATE 12, 24: PRINT v$

grv1:
CALL niv(10, ii)

CALL fleches(11, 47, p$(), 4, r, rouge, 1, 23, 47)

r$ = LTRIM$(STR$(r))

CALL ligne23(noir, noir)

IF r$ = g$ THEN
IF cc = 0 THEN re = re + 1
CALL exact2
ELSE
cc = cc + 1
CALL erreur2
IF g$ = "4" THEN
'
ELSEIF v$ = "aller" THEN
CALL centre(23, rougeclair, "Exception !")
CALL attendre(1.5)
LOCATE 23, 1: PRINT SPACE$(80)
ELSEIF t$ <> "ir" THEN
LOCATE 12, 24: COLOR noir, blanc: PRINT ra$; : COLOR rouge: PRINT t$: COLOR noir
LOCATE 13, 24: PRINT SPACE$(LEN(ra$)) + "──"
ELSE
CALL centre(23, rougeclair, "Nous " + ra$ + "issons - Nous " + ra$ + "ons ???")
CALL attendre(3)
LOCATE 23, 1: PRINT SPACE$(80)
END IF
GOTO grv1
END IF
cc = 0
NEXT ii

CALL resultats(re, ni, 2)

EXIT SUB

gv10:
FOR ii = 1 TO 6
DO
DO
f = 0
z(ii) = INT(RND * 60) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
LOOP WHILE RIGHT$(n$(z(ii)), 1) <> g$

PRINT MID$(n$(z(ii)), 1, LEN(n$(z(ii))) - 1);
IF ii < 6 THEN PRINT ", "; ELSE PRINT "..."
NEXT
'remise à zéro z()
FOR i = 1 TO 10: z(i) = 0: NEXT
RETURN

END SUB

DEFINT A-Z
SUB infinitif (re%, ni%, inf$(), inf2$(), conj$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'1/11/96
DIM z(10), conj2$(15)

'infinitif niveau 3
conj2$(1) = "Ce matin, j'ai eu un appel téléphonique de mon ami."
conj2$(2) = "Nous avions parlé ensemble de ce futur voyage au Canada."
conj2$(3) = "La semaine dernière, vous avez pris pour la première fois l'avion."
conj2$(4) = "Cette fois ci, tu n'as rien appris du tout !"
conj2$(5) = "Il a compris cet exercice du premier coup !"
conj2$(6) = "Avez-vous vendu votre collection de timbres ?"
conj2$(7) = "Bien sûr, tu ne l'as pas cru !"
conj2$(8) = "Vous auriez voulu le prendre avec vous ?"
conj2$(9) = "Ce matin, elle est partie définitivement."
conj2$(10) = "Les pompiers sont arrivés à temps pour sauver cet accidenté."
conj2$(11) = "Tu étais sorti depuis combien de temps ?"
conj2$(12) = "Le mois dernier, il a plu presque tout le temps."
conj2$(13) = "Maintenant, connais-tu l'infinitif des verbes ?"
conj2$(14) = "Pendant ses loisirs, il pratique de plus en plus le V.T.T."
conj2$(15) = "Après les fêtes, il avait été vraiment très malade."

nf = 15 'moitié
re = 0

'niveau
CALL niveau(ni, 3)

SELECT CASE ni

CASE 1, 2
IF ni = 1 THEN
debut = 1: fin = 13
ELSE
debut = 16: fin = 28
END IF

CALL titre
CALL cadre(5, 22, 34, 14, rouge)
COLOR , rouge
LOCATE 6
FOR i = debut TO fin
COLOR blancbrill
LOCATE , 26: PRINT conj$(i); " "; CHR$(26);
LOCATE , 45: COLOR jaune: PRINT inf$(i)
NEXT
COLOR , noir
CALL centre(23, blanc, "Mémorise")
CALL getinvimouse(r)
END SELECT

CALL titre

FOR ii = 1 TO 10 '+++++++++
MouseHide
DO
f = 0
IF ni = 1 THEN
z(ii) = INT(RND * nf) + 1
ELSEIF ni = 2 THEN
z(ii) = INT(RND * nf) + 1 + 15
ELSE
z(ii) = INT(RND * 15) + 1
END IF

FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
k = z(ii)

COLOR , noir
LOCATE 22, 30: PRINT SPACE$(30)

IF ni = 1 OR ni = 2 THEN
CALL cadre(8, 15, 18, 2, vert)
CALL cadre(8, 47, 18, 2, vert)
COLOR blancbrill, vert
LOCATE 9, 17: PRINT "Verbe conjugué"
LOCATE 9, 49: PRINT "Infinitif"
CALL cadre(11, 15, 18, 4, rouge)
CALL cadre(11, 47, 18, 4, blanc)

LOCATE 13, 17
COLOR blancbrill, rouge: PRINT conj$(k)

ELSE
CALL cadre(7, 4, 72, 4, rouge)
CALL cadre(14, 32, 16, 4, blanc)
COLOR , rouge
CALL centre(9, blancbrill, conj2$(k))
END IF

inf0:
CALL niv(10, ii)
COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)

IF ni < 3 THEN
CALL centre(23, blanc, "Tape le verbe")
LOCATE 13, 50
CALL inputgen(11, r$, 65, 165, noir, blanc)

ELSE
CALL centre(23, blanc, "Tape l'infinitif du verbe")
LOCATE 16, 36
CALL inputgen(11, r$, 65, 165, noir, blanc)
END IF

COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)
IF ni < 3 THEN
sol$ = inf$(k)
ELSE
sol$ = inf2$(k)
END IF

IF r$ = sol$ THEN
CALL exact2
IF cc = 0 THEN re = re + 1
ELSE
'les accents circonflexes
IF (r$ = "etre" OR r$ = "ètre" OR r$ = "étre") AND sol$ = "être" THEN
BEEP
CALL centre(23, rougeclair, "Tu dois taper l'accent circonflexe...")
CALL centre(22, jaune, "ê -> touches ^ puis e")
CALL attendre(2)
GOTO inf0
END IF
IF r$ = "connaitre" AND sol$ = "connaître" THEN
BEEP
CALL centre(23, rougeclair, "Tu dois taper l'accent circonflexe...")
CALL centre(22, jaune, "î -> touches ^ puis i")
CALL attendre(2)
GOTO inf0
END IF

cc = cc + 1
IF cc < 2 THEN
CALL erreur2
CALL centre(23, rougeclair, "Aide : " + MID$(sol$, 1, LEN(sol$) - 2) + "..")
CALL attendre(2)
ELSE
CALL solution(sol$)
END IF
GOTO inf0
END IF
cc = 0
NEXT ii '++++++++++++

CALL resultats(re, ni, 3)
END SUB

DEFINT A-Z
SUB radical (re%, ni%, v$(), pp$(), g1$(), G2$(), G3$(), G4$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'3/2/97
DIM z(10)
ba$ = "-"
re = 0

'presentation
w$ = "Avec l'aide des flèches, tu vas"
z$ = "séparer le radical de la terminaison."
CALL consigne(2, w$, z$, y$)

'niveau
CALL niveau(ni, 2)

'rappel
COLOR , bleu: CLS
COLOR jaune: LOCATE 6, 20: PRINT "Rappel"
CALL cadre(7, 20, 40, 13, rouge)
COLOR blancbrill, rouge
LOCATE 9, 23
PRINT "Après avoir enlevé la terminaison,"
LOCATE , 23
PRINT "la partie du verbe qui reste"
LOCATE , 23
PRINT "s'appelle le "; : COLOR vertclair: PRINT "RADICAL"; : COLOR blancbrill: PRINT "."
PRINT
FOR i = 1 TO 6
LOCATE , 31: PRINT pp$(i); : LOCATE , 36: COLOR vertclair: PRINT "parl"; : COLOR jaune: PRINT g1$(i)
COLOR blancbrill
NEXT

CALL getinvimouse(w)

FOR ii = 1 TO 10 '++++++++++
DO
f = 0
IF ni = 1 THEN
z(ii) = INT(RND * 10) + 1
ELSE
z(ii) = INT(RND * 10) + 11
END IF
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
n = z(ii)

g = VAL(RIGHT$(v$(n), 1))
af$ = MID$(v$(n), 1, LEN(v$(n)) - 1): GOSUB racurs
v$ = MID$(af$, 1, p - 1) + MID$(af$, p + 1)
so$ = MID$(af$, p + 1)
af$ = ba$ + v$
ra2:
CALL titre
CALL niv(10, ii)
CALL cadre(6, 42, 20, 12, rouge)
CALL cadre(10, 2 + 15, LEN(af$) + 2, 4, blanc)

COLOR blanc
LOCATE 23, 21: PRINT "puis "; rt$

DO
DO
LOCATE 23, 17: COLOR blanc
IF LEFT$(af$, 1) <> ba$ THEN
PRINT CHR$(27)
ELSE
PRINT " "
END IF

LOCATE 23, 19
IF RIGHT$(af$, 1) <> ba$ THEN
PRINT CHR$(26)
ELSE
PRINT " "
END IF

COLOR noir, blanc
LOCATE 12, 19: PRINT af$
COLOR , noir

DEF SEG = 0
POKE 1050, PEEK(1052)
DEF SEG

souris = 0
DO
r$ = INKEY$
' Obtient l'emplacement de la souris et l'état des boutons.
MousePoll v_mouse, h_mouse, lButton, rButton
'COLOR blanc: LOCATE 21, 1: PRINT v_mouse, h_mouse'===
IF lButton THEN
IF v_mouse = 23 THEN
IF h_mouse = 17 THEN
souris = 1
x = 75
CALL attendre(.2)
EXIT DO

ELSEIF h_mouse = 19 THEN
souris = 1
x = 77
CALL attendre(.2)
EXIT DO

ELSEIF h_mouse >= 26 AND h_mouse <= 28 THEN
souris = 1
x = 13
CALL attendre(.3)
EXIT DO
END IF
ELSE
BEEP
END IF
END IF
LOOP WHILE r$ = ""

IF souris = 0 THEN
IF LEN(r$) < 2 THEN x = ASC(r$) ELSE x = ASC(RIGHT$(r$, 1))
END IF

SELECT CASE x

CASE 27
CALL quitter(noir, noir)

CASE 75
IF LEFT$(af$, 1) <> ba$ THEN
GOSUB racurs
p = p - 1: GOSUB ratrans
GOSUB affiche
END IF

CASE 77
IF RIGHT$(af$, 1) <> ba$ THEN
GOSUB racurs
p = p + 1: GOSUB ratrans
GOSUB affiche
END IF

CASE 13
EXIT DO

CASE ELSE
BEEP
LOCATE 23, 1: PRINT SPACE$(80)
CALL centre(23, rougeclair, "Utilise les flèches puis valide.")
CALL attendre(1.5)
LOCATE 23, 1: PRINT SPACE$(80)
LOCATE 23, 21: PRINT "puis "; rt$

END SELECT

LOOP

GOSUB racurs

LOOP WHILE p = 1

CALL ligne23(noir, noir)

GOSUB affiche

IF so$ = te$ THEN
IF cc = 0 THEN re = re + 1
CALL exact2
ELSE
CALL erreur2
cc = cc + 1: GOTO ra2
END IF
cc = 0
NEXT ii '++++++++++++++

CALL resultats(re, ni, 2)

EXIT SUB

racurs:
FOR p = 1 TO LEN(af$)
IF MID$(af$, p, 1) = ba$ THEN EXIT FOR
NEXT
RETURN
ratrans:
af$ = MID$(v$, 1, p - 1) + ba$ + MID$(v$, p)
RETURN

affiche:
ra$ = MID$(af$, 1, p - 1)
te$ = MID$(af$, p + 1)
CALL cadre(6, 42, 20, 12, rouge)
COLOR , rouge
LOCATE 8, 19 + 25: PRINT "radical : "; : COLOR vertclair: PRINT ra$: COLOR blancbrill
LOCATE , 19 + 25
IF LEN(te$) <= 4 THEN
PRINT "terminaison : "; : COLOR jaune: PRINT te$
ELSE
PRINT "termin. : "; : COLOR jaune: PRINT te$
END IF
COLOR blancbrill
LOCATE 11, 19 + 25: PRINT pp$(1); " "; : COLOR vertclair: PRINT ra$; : COLOR jaune
IF g = 1 THEN PRINT g1$(1)
IF g = 2 THEN PRINT G2$(1)
IF g = 3 THEN PRINT G3$(1)
IF g = 4 THEN PRINT G4$(1)
FOR i = 2 TO 6
LOCATE , 19 + 25
COLOR blancbrill
PRINT pp$(i); " "; : COLOR vertclair: PRINT ra$; : COLOR jaune
IF g = 1 THEN PRINT g1$(i)
IF g = 2 THEN PRINT G2$(i)
IF g = 3 THEN PRINT G3$(i)
IF g = 4 THEN PRINT G4$(i)
NEXT
COLOR blanc, noir
RETURN

END SUB

DEFINT A-Z
SUB recolle (re, ni, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'25/3/96
DIM h(15), r$(31), mot$(205), m$(20), m2$(20), z(10), x(15, 60)
n2 = 30: zz = 0: re = 0

w$ = "L'ordinateur va mélanger les lettres"
z$ = "d'un mot."
CALL consigne(2, w$, z$, y$)

CALL niveau(ni, 4)

CALL titre

OPEN "mots2.dat" FOR INPUT AS #1
i = 1
DO
INPUT #1, mot$(i)
i = i + 1
LOOP WHILE i < 201
CLOSE #1
nf = i - 1

'à partir de :
z = INT(RND * 50) + 1

i = 1: pt = 1

DO
SELECT CASE ni
CASE 1
IF LEN(mot$(z + i)) < 7 THEN r$(pt) = mot$(z + i): pt = pt + 1
CASE 2
IF LEN(mot$(z + i)) < 8 THEN r$(pt) = mot$(z + i): pt = pt + 1
CASE 3
IF LEN(mot$(z + i)) > 6 AND LEN(mot$(z + i)) < 9 THEN r$(pt) = mot$(z + i): pt = pt + 1
CASE 4
IF LEN(mot$(z + i)) > 6 AND LEN(mot$(z + i)) < 12 THEN r$(pt) = mot$(z + i): pt = pt + 1
END SELECT
i = i + 1
LOOP WHILE pt < 31

ERASE mot$

CALL titre

'affichage des mots
CALL cadre(8, 5, 70, 6, marron)
COLOR blancbrill, marron
debut = 1: fin = 5: h = 10

DO
LOCATE 9
FOR i = debut TO fin
LOCATE , h: PRINT r$(i)
NEXT
debut = fin + 1
fin = fin + 5
h = h + 11
LOOP WHILE fin < 35

COLOR , noir
CALL centre(23, blanc, "Mémorise")
CALL getinvimouse(w)

FOR ll = 1 TO 10 '+++++++++++++++++++++++
CALL titre
CALL cadre(6, 22, 36, 9, rouge)

DO
f = 0
z(ll) = INT(RND * n2) + 1
FOR j = 1 TO ll - 1
IF z(ll) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
nt = z(ll)

c = 0
'efface cadre
COLOR , noir
FOR ku = 7 TO 14
LOCATE ku, 23: PRINT SPACE$(36)
NEXT

FOR v = 6 TO 15
FOR h = 23 TO 56
x(v, h) = 0
NEXT h, v
cc = 0

FOR k = 1 TO LEN(r$(nt))

DO
h = INT(RND * 30) + 25
v = INT(RND * 6) + 8
IF cc = 0 THEN cc = 1: EXIT DO
LOOP WHILE x(v, h) = 1

x(v, h) = 1: x(v, h + 1) = 1: x(v, h + 2) = 1: x(v, h - 1) = 1: x(v, h - 2) = 1
x(v - 1, h) = 1: x(v + 1, h) = 1: x(v - 2, h) = 1: x(v + 2, h) = 1
x(v - 1, h - 1) = 1: x(v + 1, h - 1) = 1: x(v - 1, h + 1) = 1: x(v + 1, h + 1) = 1

LOCATE v, h: PRINT MID$(r$(nt), k, 1)

NEXT k

rec1:
CALL niv(10, ll)
COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)
CALL centre(23, blanc, "Tape le mot [*] = liste entière")
COLOR , bleu
nl = LEN(r$(nt))
h = INT((80 / 2) + 1 - (nl / 2))
CALL cadre(17, 22, 36, 2, blanc)
COLOR , blanc

CALL centre(18, noir, STRING$(nl, "."))
LOCATE 18, h
CALL inputgen(nl, r$, 32, 163, noir, blanc)

IF r$ = "*" THEN
GOSUB recaf
GOTO rec1
END IF

COLOR , noir
IF r$ <> r$(nt) THEN
LOCATE 23, 1: PRINT SPACE$(80)

IF c > 1 THEN
BEEP
LOCATE 23, 1: PRINT SPACE$(80)
CALL centre(23, rougeclair, "Solution : " + r$(nt))
CALL attendre(2)
LOCATE 23, 1: PRINT SPACE$(80)
GOTO rec1
END IF
c = c + 1

IF LEN(r$) < LEN(r$(nt)) THEN
w$ = "Tu as utilisé seulement " + LTRIM$(STR$(LEN(r$))) + " lettre"
IF LEN(r$) > 1 THEN w$ = w$ + "s."
CALL centre(23, rougeclair, w$)
ELSEIF LEN(r$) > LEN(r$(nt)) THEN
longueur$ = LTRIM$(STR$(LEN(r$) - LEN(r$(nt))))
w$ = "Tu as utilisé " + longueur$ + " lettre"
IF VAL(longueur$) > 1 THEN w$ = w$ + "s"
w$ = w$ + " en trop."
CALL centre(23, rougeclair, w$)
ELSE
FOR j = 1 TO LEN(r$)
m$(j) = MID$(r$(nt), j, 1)
m2$(j) = MID$(r$, j, 1)
NEXT
CALL tri(m$(), LEN(r$))
CALL tri(m2$(), LEN(r$))
m$ = "": m2$ = ""
FOR j = 1 TO LEN(r$)
m$ = m$ + m$(j)
m2$ = m2$ + m2$(j)
NEXT
IF m$ <> m2$ THEN
CALL centre(23, rougeclair, "Tu as tapé des lettres non proposées.")
ELSE
CALL centre(23, rougeclair, "Ce mot ne fait pas partie de la liste.")
c = 0
END IF
END IF
CALL attendre(2): GOTO rec1
ELSE
LOCATE 23, 1: PRINT SPACE$(80)
CALL centre(23, jaune, "Exact")
CALL attendre(.7)
LOCATE 23, 1: PRINT SPACE$(80)
IF c = 0 THEN re = re + 1
END IF
FOR n = 1 TO LEN(r$(nt))
h(n) = 0
NEXT

NEXT ll '++++++++++++++++++++++++

VIEW PRINT
CALL resultats(re, ni, 4)

EXIT SUB

recaf:
COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)
COLOR blancbrill, bleu
LOCATE 16
FOR i = 1 TO 5
PRINT SPACE$(80)
NEXT
debut = 1: fin = 5: h = 4
DO
LOCATE 16
FOR i = debut TO fin
LOCATE , h: PRINT r$(i)
NEXT
debut = fin + 1
fin = fin + 5
h = h + 13
LOOP WHILE fin < 35

COLOR blanc, noir

LOCATE 23, 37: PRINT rt$
CALL getinvimouse(w)
COLOR , bleu
LOCATE 16
FOR i = 1 TO 5
PRINT SPACE$(80)
NEXT

RETURN

END SUB
 

 

DECLARE SUB niv (limit%, xx%)
DECLARE SUB accordpartpasse (re%, gg$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB cadre (v%, h%, l%, nli%, c%)
DECLARE SUB erreur2 ()
DECLARE SUB exact2 ()
DECLARE SUB fleches (v%, h%, w$(), np%, r%, coul%, drap%, v2%, h2%)
DECLARE SUB fleches2 (v%, h%, ll%, nm%, h2%, w$(), r%, coul%)
DECLARE SUB inputgen (nl%, r$, deb%, fin%, x%, y%)
DECLARE SUB niveau (r%, np%)
DECLARE SUB quitter (x%, y%)
DECLARE SUB resultats (re%, ni%, nbniv%)
DECLARE SUB titre ()
DECLARE SUB consigne (nl%, w$, z$, y$)
DECLARE SUB getinvimouse (rr%)
DECLARE SUB ouinon (r$)
DECLARE SUB attendre (tx!)
DECLARE SUB centre (v%, coul%, ph$)
DECLARE SUB entree (x%, y%, drapeau%)
DECLARE SUB ligne23 (x%, y%)
DECLARE SUB afficheformate (m$(), nm%)
DECLARE SUB pleinecran2 (r$, phrase$, m$, v1%, v2%, rt$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB recupere2 (m$, v1%, v2%)
DECLARE SUB traitementtexte (m$, m2$, phrase$, re%, rt$, gg2$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB transforme (m$)
DECLARE SUB trouvemot (m$, m$(), nm%)
DECLARE SUB solution (sol$)
DECLARE SUB MouseHide ()
DECLARE SUB MousePoll (row%, col%, lButton%, rButton%)
'module 3 FRANCAIS AAs
'Daniel CLERC 5/5/96
'version 1.0


DEFINT A-Z
SUB accopp (re%, ni%, SU$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'3/2/96
DIM VS$(4), VP$(4), pp$(3), z(10)
nf = 22
re = 0
CALL accordpartpasse(re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
pp$(1) = "venu": pp$(2) = "parti": pp$(3) = "arrivé"
VS$(1) = "est": VS$(2) = "était": VS$(3) = "sera": VS$(4) = "fut"
VP$(1) = "sont": VP$(2) = "étaient": VP$(3) = "seront": VP$(4) = "furent"

COLOR , bleu: CLS
LOCATE 7, 21: COLOR vertclair: PRINT "Rappel"
CALL cadre(8, 20, 40, 10, rouge)

COLOR blanc, rouge
w$ = "│ │ │ │"
w2$ = "──────────┼───────────┼───────────"
LOCATE 10, 14 + 20: PRINT "┌───────────┬───────────┐"
LOCATE , 14 + 20: PRINT "│ │ │"
LOCATE , 3 + 20: PRINT "┌" + w2$ + "┤"
LOCATE , 3 + 20: PRINT w$
LOCATE , 3 + 20: PRINT "├" + w2$ + "┤"
LOCATE , 3 + 20: PRINT w$
LOCATE , 3 + 20: PRINT "└──────────┴───────────┴───────────┘"
COLOR vertclair
LOCATE 11, 16 + 20: PRINT "Singulier": LOCATE 11, 28 + 20: PRINT "Pluriel"
LOCATE 13, 5 + 20: PRINT "Masculin": LOCATE 15, 5 + 20: PRINT "Féminin"
COLOR jaune
LOCATE 13, 18 + 20: PRINT "--": LOCATE 13, 30 + 20: PRINT "-s"
LOCATE 15, 18 + 20: PRINT "e-": LOCATE 15, 30 + 20: PRINT "es"
CALL getinvimouse(w)

CALL titre

FOR ii = 1 TO 10 '++++++++++++++
MouseHide
ff = 0

DO
f = 0
z(ii) = INT(RND * nf) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
n = z(ii)

SU$ = SU$(n)
IF LEFT$(SU$, 1) = "1" THEN v$ = VS$(INT(RND * 4) + 1) ELSE v$ = VP$(INT(RND * 4) + 1)
pp$ = pp$(INT(RND * 3) + 1)

acpp1:
CALL niv(10, ii)
COLOR , noir: CALL centre(23, blanc, "Tape l'accord")

CALL cadre(10, 16, 48, 4, blanc)
COLOR noir, blanc

z$ = MID$(SU$, 3) + " " + v$ + " " + pp$
LOCATE 12, INT(40 - (LEN(z$) / 2)): PRINT z$
LOCATE 12, LEN(z$) + INT(40 - (LEN(z$) / 2))
CALL inputgen(2, r$, 65, 125, noir, blanc)
COLOR , noir
EX$ = MID$(SU$, 1, 2)
IF EX$ = "11" AND r$ = "" THEN ff = 1
IF EX$ = "12" AND r$ = "e" THEN ff = 1
IF EX$ = "21" AND r$ = "s" THEN ff = 1
IF EX$ = "22" AND r$ = "es" THEN ff = 1

IF ff = 0 THEN
cc = cc + 1
IF cc < 2 THEN
CALL erreur2
IF EX$ = "11" THEN CALL centre(23, rougeclair, "masculin singulier")
IF EX$ = "12" THEN CALL centre(23, rougeclair, "féminin singulier")
IF EX$ = "21" THEN CALL centre(23, rougeclair, "masculin pluriel")
IF EX$ = "22" THEN CALL centre(23, rougeclair, "féminin pluriel")
CALL attendre(2)
CALL ligne23(noir, noir)
ELSE
BEEP
IF EX$ = "11" THEN CALL centre(23, rougeclair, "masculin singulier -> rien")
IF EX$ = "12" THEN CALL centre(23, rougeclair, "féminin singulier -> e")
IF EX$ = "21" THEN CALL centre(23, rougeclair, "masculin pluriel -> s")
IF EX$ = "22" THEN CALL centre(23, rougeclair, "féminin pluriel -> es")
CALL attendre(2)
CALL ligne23(noir, noir)
END IF
GOTO acpp1
ELSE
CALL exact2
IF cc = 0 THEN re = re + 1
END IF
cc = 0
NEXT ii '++++++++++

IF re < 0 THEN re = 0
CALL resultats(re, ni, 3)

END SUB

DEFINT A-Z
SUB fonction (re%, ni%, rt$, gg$, gg2$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'14/2/96
DIM ph$(36), h(36), l(36), s(36), p$(10), z(10)
cc = 0: re = 0


'niveau 1 = 18 phrases
ph$(1) = "Mardi 12 janvier, vers 16 h 30, un automobiliste a dérapé sur la chaussée."
h(1) = 50: l(1) = 8: s(1) = 1
ph$(2) = "Grisée par la vitesse, Sarah accéléra encore."
h(2) = 24: l(2) = 5: s(2) = 2
ph$(3) = "La tempête faisait rage. Le marin bloqua son gouvernail."
h(3) = 42: l(3) = 14: s(3) = 3
ph$(4) = "A cet instant précis, il essaya de m'attraper par le col de ma chemise."
h(4) = 1: l(4) = 20: s(4) = 4
ph$(5) = "Dans la classe, Mathieu fouille dans sa trousse à la recherche d'un crayon."
h(5) = 33: l(5) = 15: s(5) = 5
ph$(6) = "L'élève en difficulté se découragea vite. Dommage !"
h(6) = 37: l(6) = 4: s(6) = 6
ph$(7) = "Tous les soirs, je me promène avec mon chien dans le parc."
h(7) = 20: l(7) = 10: s(7) = 1
ph$(8) = "Maman, comme chaque soir, est venue vérifier nos dents et nos oreilles."
h(8) = 1: l(8) = 5: s(8) = 2
ph$(9) = "Valentine avait invité son amie Jessica chez elle."
h(9) = 24: l(9) = 16: s(9) = 3
ph$(10) = "Nous jouerons tous les deux au tennis cet été."
h(10) = 39: l(10) = 7: s(10) = 4
ph$(11) = "Ce soir, les bateaux sont tous rentrés dans le port de plaisance."
h(11) = 40: l(11) = 25: s(11) = 5
ph$(12) = "Dans ses montagnes, le berger prenait plaisir à vivre lentement."
h(12) = 55: l(12) = 9: s(12) = 6
ph$(13) = "Pendant plusieurs mois, le voilier sillonna les océans."
h(13) = 36: l(13) = 8: s(13) = 1
ph$(14) = "Cette année, Guillaume et Julien passeront leurs vacances dans les Pyrénées."
h(14) = 14: l(14) = 19: s(14) = 2
ph$(15) = "Sur son lit, Michel lit une bande dessinée depuis plus d'une heure."
h(15) = 25: l(15) = 18: s(15) = 3
ph$(16) = "Les volcanologues étaient parvenus au bord du cratère en fin de soirée."
h(16) = 55: l(16) = 16: s(16) = 4
ph$(17) = "Près du volcan, les maisons ont été recouvertes de lave."
h(17) = 1: l(17) = 14: s(17) = 5
ph$(18) = "Après avoir fait cet effort violent, il reprend son souffle lentement."
h(18) = 61: l(18) = 9: s(18) = 6

'niveau 2 18 phrases
'1 v, 2 s, 3 a, 4 cod, 5 coi, 6 cct, 7 ccl, 8 ccm, 9 ccbut., 10 cccause
ph$(19) = "L'hiver, à la montagne, sous nos pas crissait la neige."
h(19) = 47: l(19) = 8: s(19) = 2
ph$(20) = "Les habitants de ce village étaient intrigués par le passage du rallye."
h(20) = 37: l(20) = 9: s(20) = 3
ph$(21) = "La randonnée que nous venons de terminer était épuisante."
h(21) = 48: l(21) = 9: s(21) = 3
ph$(22) = "Cet exercice de grammaire semble beaucoup trop compliqué pour lui."
h(22) = 34: l(22) = 23: s(22) = 3
ph$(23) = "Nadège a encore oublié de prendre son cartable ce matin !"
h(23) = 35: l(23) = 12: s(23) = 4
ph$(24) = "Il offre ce magnifique bouquet de fleurs à sa soeur."
h(24) = 10: l(24) = 31: s(24) = 4
ph$(25) = "L'automobiliste avait perdu ses clefs. Il les a retrouvées sous la banquette."
h(25) = 43: l(25) = 3: s(25) = 4
ph$(26) = "Clément parle à son ami de son futur voyage en Asie."
h(26) = 15: l(26) = 9: s(26) = 5
ph$(27) = "A l'évaluation, il n'a pas répondu aux trois questions."
h(27) = 36: l(27) = 19: s(27) = 5
ph$(28) = "Le match fini, les joueurs se douchent dans les vestiaires."
h(28) = 1: l(28) = 13: s(28) = 6
ph$(29) = "La maison était déserte depuis au moins deux ans."
h(29) = 25: l(29) = 24: s(29) = 6
ph$(30) = "Les vaches regagnent l'étable en fin d'après-midi."
h(30) = 31: l(30) = 19: s(30) = 6
ph$(31) = "Ils ont planté des arbres autour de ce petit village."
h(31) = 27: l(31) = 26: s(31) = 7
ph$(32) = "Courageusement, le sauveteur plongea dans l'eau glacée."
h(32) = 1: l(32) = 14: s(32) = 8
ph$(33) = "Poils hérissés, le chat surveille attentivement le chien."
h(33) = 1: l(33) = 14: s(33) = 8
ph$(34) = "Je lui prête mes outils afin qu'il répare mon vélo."
h(34) = 25: l(34) = 26: s(34) = 9
ph$(35) = "Le lancement de la fusée Ariane est reporté parce que la météo est mauvaise."
h(35) = 45: l(35) = 31: s(35) = 10
ph$(36) = "Cette fille échoue parce qu'elle manque de confiance en elle."
h(36) = 20: l(36) = 41: s(36) = 10

lt$ = STRING$(40, "─")

'rappel
COLOR , bleu: CLS
h = 6
LOCATE 1, 3: COLOR jaune: PRINT "Rappel"
CALL cadre(2, 2, 75, 20, rouge)
LOCATE 4
COLOR jaune, rouge: LOCATE , h: PRINT "Sujet :": COLOR blancbrill
LOCATE , h: PRINT "On peut l'encadrer par "; CHR$(34); "C'est ... qui"; CHR$(34); " ou "; CHR$(34); "Ce sont ... qui"; CHR$(34)
COLOR blanc: LOCATE 7, 3: PRINT STRING$(75, "─")
COLOR jaune: LOCATE , h: PRINT "Complément d'objet (complète le verbe) :": COLOR blancbrill
LOCATE , h
PRINT "On peut le remplacer par "; CHR$(34); "quelquechose"; CHR$(34); " ou par "; CHR$(34); "quelqu'un"; CHR$(34); "."
PRINT
LOCATE , h + 3: PRINT "direct : on peut le mettre à la voix passive."
LOCATE , h + 3: PRINT "indirect : il est séparé du verbe par une préposition."
COLOR blanc: LOCATE 14, 3: PRINT STRING$(75, "─")
COLOR jaune: LOCATE , h: PRINT "Complément circonstanciel (complète la phrase) :": COLOR blancbrill
LOCATE , h
PRINT "On peut le déplacer et le supprimer."
COLOR blanc: LOCATE 18, 3: PRINT STRING$(75, "─")
COLOR jaune: LOCATE , h: PRINT "Attribut :": COLOR blancbrill
LOCATE , h
PRINT "Il suit les verbes être, paraître, devenir, sembler, demeurer, rester."
CALL getinvimouse(w)

CALL niveau(ni, 2)
SELECT CASE ni
CASE 1
p$(1) = "Verbe": p$(2) = "Sujet": p$(3) = "Complément d'objet direct"
p$(4) = "Complément circonstanciel de temps"
p$(5) = "Complément circonstanciel de lieu"
p$(6) = "Complément circonstanciel de manière"

CASE 2
p$(1) = "Verbe": p$(2) = "Sujet": p$(3) = "Attribut": p$(4) = "Compl. d'objet direct"
p$(5) = "Compl. d'objet indirect": p$(6) = "Compl. circonst. de temps"
p$(7) = "Compl. circonst. de lieu": p$(8) = "Compl. circonst. de manière"
p$(9) = "Subord. circonst. de but": p$(10) = "Subord. circonst. de cause"

END SELECT

CALL titre

FOR ii = 1 TO 10
CALL niv(10, ii)

'tirage
DO
f = 0
IF ni = 1 THEN
z(ii) = INT(RND * 18) + 1
ELSE
z(ii) = INT(RND * 18) + 19
END IF
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
n = z(ii)
rep = s(n)
CALL cadre(5, 2, 75, 4, blanc)
COLOR noir, blanc
CALL centre(7, noir, ph$(n))
COLOR noir
LOCATE 8, INT(41 - LEN(ph$(n)) / 2) + h(n) - 1: PRINT MID$(lt$, 1, l(n))

DO
COLOR , noir
IF ni = 1 THEN
CALL fleches(12, 24, p$(), 6, r, rouge, 1, 23, 35)
ELSE
CALL centre(23, blanc, gg2$)
CALL cadre(12, 2, 75, 6, rouge)
COLOR blancbrill
CALL fleches2(13, 10, 5, 10, 42, p$(), r, rouge)
END IF

IF r = rep THEN
IF cc = 0 THEN re = re + 1
CALL exact2
ELSE
cc = cc + 1
IF cc < 3 THEN
CALL erreur2
ELSE
CALL solution((p$(rep)))
END IF
END IF
LOOP WHILE r <> rep

cc = 0
NEXT ii

CALL resultats(re, ni, 2)

END SUB

DEFINT A-Z
SUB nature (re%, ni%, m$(), mbis$(), rt$, gg$, gg2$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'22/11/96
DIM p$(12), z(10), s(20), ph$(10), m2$(20), z2(5), ph2$(10), mot$(20)
'faire attention au screen 32 et 129 dans un cadre

p$(1) = "verbe"
p$(2) = "nom": p$(3) = "adjectif qualificatif": p$(4) = "déterminant"
p$(5) = "pronom personnel"

ph$(1) = "Le nouveau satellite tourne autour de la Terre. " 'espace à la fin
ph2$(1) = "43210042"
ph$(2) = "Il recherche une information importante dans le dictionnaire. "
ph2$(2) = "51423042"
ph$(3) = "Il joue à la marelle dans la grande cour de récréation. "
ph2$(3) = "51042043202"
ph$(4) = "Avec son nouveau magnétoscope, il enregistre une émission. "
ph2$(4) = "04325142"
ph$(5) = "Elle récite une jolie poésie à sa maîtresse. "
ph2$(5) = "51432042"
ph$(6) = "Le chien noir aboie dans sa niche. "
ph2$(6) = "4231042"
ph$(7) = "Pendant les grandes vacances, il fera de la planche à voile. "
ph2$(7) = "04325104202"
ph$(8) = "Papa filme son jeune enfant avec son camescope. "
ph2$(8) = "21432042"
ph$(9) = "Cette belle fille a les yeux verts. "
ph2$(9) = "4321423"
ph$(10) = "Elle collectionne les timbres anciens. "
ph2$(10) = "51423"

l$ = STRING$(70, 196)
CALL niveau(ni, 3)

IF ni = 1 THEN
GOSUB nature1
ELSE
GOSUB nature2
END IF

IF re < 0 THEN re = 0
CALL resultats(re, ni, 3)
EXIT SUB


nature1:
GOSUB rappelnat

re = -2 'car 12 essais...
nbessai = 0
FOR ii = 1 TO 4 '++++++++++++++

CALL titre
'tirage de la phrase
DO
f = 0
z(ii) = INT(RND * 10) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
n = z(ii)

ph$ = ph$(n)
ph2$ = ph2$(n)

'affecte
i = 0: l = 1
DO
z = INSTR(l, ph$, " "): IF z = 0 THEN EXIT DO
i = i + 1
m2$(i) = MID$(ph$, l, z - l)
l = z + 1
LOOP

'on mémorise l'emplacement du début des mots
h = INT(41 - (LEN(ph$) / 2))

place = 1
i = 1
s(i) = h
DO
i = i + 1
s = INSTR(place, ph$, " ")
s(i) = s + h
place = s + 1
LOOP WHILE s <> 0
nbmots = i - 2

FOR jj = 1 TO 3 '++++++++++++++++++ 3 essais par phrases
c = 0
nbessai = nbessai + 1

'tirage nature
s = INSTR(1, ph2$, "5")
IF s = 0 THEN nb = 4 ELSE nb = 5 'pas de pronom personnel

DO
f = 0
z2(jj) = INT(RND * nb) + 1
FOR j = 1 TO jj - 1
IF z2(jj) = z2(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
nat = z2(jj)

CALL niv(12, nbessai)

'affichage de la phrase et du curseur
CALL cadre(6, 5, 70, 2, marron)
COLOR , marron
CALL centre(7, blancbrill, "Sélectionne un " + p$(nat) + ".")
i = 1
DO
COLOR , noir
CALL centre(23, blanc, CHR$(27) + " " + CHR$(26) + " puis " + rt$)

CALL cadre(10, 5, 70, 4, blanc)
COLOR , blanc
CALL centre(12, noir, ph$)
CALL centre(13, noir, SPACE$(69))
COLOR blanc, rouge
LOCATE 12, s(i)
IF RIGHT$(m2$(i), 1) = "." OR RIGHT$(m2$(i), 1) = "," THEN
PRINT MID$(m2$(i), 1, LEN(m2$(i)) - 1)
ELSE
PRINT m2$(i)
END IF
COLOR blancbrill, noir

nat2:
souris = 0
DO
r$ = INKEY$
' Obtient l'emplacement de la souris et l'état des boutons.
MousePoll v_mouse, h_mouse, lButton, rButton
'LOCATE 22, 1: PRINT v_mouse, h_mouse '===
IF lButton THEN
IF v_mouse = 12 THEN
sc = SCREEN(v_mouse, h_mouse)
IF sc = 32 OR sc = 219 THEN
BEEP
ELSE
'on cherche les lettres à gauche jusqu'à espace ou h1=1
h1 = h_mouse
DO
sc = SCREEN(v_mouse, h1)
IF sc = 32 OR sc = 219 THEN EXIT DO
h1 = h1 - 1
LOOP WHILE h1 <> 0
h1 = h1 + 1
h2 = h1: mot$ = ""
DO
sc = SCREEN(v_mouse, h2)
IF sc = 32 OR sc = 219 THEN EXIT DO
mot$ = mot$ + CHR$(sc)
h2 = h2 + 1
LOOP WHILE h2 <> 81

souris = 1
COLOR , blanc: CALL centre(12, noir, ph$)
LOCATE v_mouse, h1
COLOR blancbrill, rouge
PRINT mot$
CALL attendre(.3)
EXIT DO
END IF
ELSEIF v_mouse = 23 THEN
IF h_mouse >= 44 AND h_mouse <= 46 THEN
rr = 13
CALL attendre(.3)
souris = 2
EXIT DO
ELSEIF h_mouse = 35 THEN
'gauche
rr = 75
CALL attendre(.2)
souris = 2
EXIT DO
ELSEIF h_mouse = 37 THEN
'droite
rr = 77
CALL attendre(.2)
souris = 2
EXIT DO
ELSE
BEEP
END IF
ELSE
BEEP
END IF
END IF

LOOP WHILE r$ = ""

IF souris = 1 THEN
'traiter la réponse souris ===
CALL trouvemot(ph$, mot$(), nm)
FOR i = 1 TO nm
IF mot$ = mot$(i) THEN EXIT FOR
NEXT

rep = VAL(MID$(ph2$, i, 1))

IF rep = nat THEN
CALL exact2
IF c = 0 THEN re = re + 1
EXIT DO

ELSE
c = c + 1
CALL erreur2
IF rep <> 0 THEN
CALL centre(23, rougeclair, "Tu as montré un " + p$(rep))
CALL attendre(2)
LOCATE 23, 1: PRINT SPACE$(80)
GOTO nat2
END IF
END IF
END IF

IF souris = 0 THEN
IF LEN(r$) < 2 THEN rr = ASC(r$) ELSE rr = ASC(RIGHT$(r$, 1))
END IF

SELECT CASE rr

CASE 75 'gauche
i = i - 1
IF i < 1 THEN i = nbmots

CASE 77 'droite
i = i + 1
IF i > nbmots THEN i = 1

CASE 27
CALL quitter(noir, noir)

CASE 13
'voir le mot selectionné
rep = VAL(MID$(ph2$, i, 1))
IF rep = nat THEN
CALL exact2
IF c = 0 THEN re = re + 1
EXIT DO

ELSE
c = c + 1
CALL erreur2
IF rep <> 0 THEN
CALL centre(23, rougeclair, "Tu as montré un " + p$(rep))
CALL attendre(2)
LOCATE 23, 1: PRINT SPACE$(80)
END IF
END IF

CASE ELSE
BEEP

END SELECT

LOOP

NEXT jj

NEXT ii '++++++++++++++++

RETURN


'++++++++++++++
nature2:
IF ni = 2 THEN
nf = 25
GOSUB rappelnat
ELSE
p$(1) = "verbe": p$(2) = "participe passé": p$(3) = "pronom personnel"
p$(4) = "nom commun": p$(5) = "adjectif qualificatif": p$(6) = "article défini"
p$(7) = "article indéfini"
p$(8) = "déterminant démonstratif": p$(9) = "déterminant possessif": p$(10) = "adverbe"
p$(11) = "préposition": p$(12) = "conjonction de coordination"
nf = 37
GOSUB rappelnat2
END IF

c = 0: TT = 10
re = 0
CALL titre

FOR ii = 1 TO 10 '++++++++++++++++++++++++++++++++
CALL niv(10, ii)
cc = 0
DO
f = 0
z(ii) = INT(RND * nf) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
n = z(ii)

IF ni = 2 THEN
n$ = MID$(mbis$(n), 1, LEN(mbis$(n)) - 1): ret = VAL(RIGHT$(mbis$(n), 1))
ELSE
n$ = MID$(m$(n), 1, LEN(m$(n)) - 2): ret = VAL(RIGHT$(m$(n), 2))
END IF

COLOR , noir

nat1:
CALL cadre(5, 27, 25, 4, blanc)
COLOR , blanc
CALL centre(7, noir, n$)
COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)

IF ni = 2 THEN
CALL fleches(13, 30, p$(), 5, r, rouge, 1, 23, 35)
ELSE
CALL centre(23, blanc, gg2$)
CALL cadre(11, 3, 74, 7, rouge)
COLOR blancbrill
CALL fleches2(12, 12, 6, 12, 43, p$(), r, rouge)
END IF
r = r - 1

LOCATE 23, 17
IF r = ret THEN
CALL exact2
IF cc = 0 THEN re = re + 1
ELSE
cc = cc + 1
IF cc < 3 THEN
CALL erreur2
ELSE
CALL solution(p$(ret + 1))
END IF
GOTO nat1
END IF
cc = 0
NEXT ii

RETURN

rappelnat:
'rappel pour nature 1
COLOR , bleu: CLS
LOCATE 5, 3: COLOR jaune: PRINT "Rappel"
CALL cadre(6, 2, 75, 12, rouge)
COLOR blanc, rouge
LOCATE 7
FOR i = 1 TO 11
LOCATE , 28: PRINT "│"
NEXT
LOCATE 9, 3: PRINT STRING$(25, "─") + "┼" + STRING$(49, "─")
LOCATE 11, 3: PRINT STRING$(25, "─") + "┼" + STRING$(49, "─")
LOCATE 13, 3: PRINT STRING$(25, "─") + "┼" + STRING$(49, "─")
LOCATE 15, 3: PRINT STRING$(25, "─") + "┼" + STRING$(49, "─")

LOCATE 8: h = 30
COLOR jaune: LOCATE , 4: PRINT "Pronoms personnels"; : COLOR blancbrill
LOCATE , h: PRINT "je, j', tu, il, elle, on, nous, vous, ils, elles"
LOCATE 10
COLOR jaune: LOCATE , 4: PRINT "Verbes"; : COLOR blancbrill
LOCATE , h: PRINT "parler, finir, vendre, être, avoir..."
LOCATE 12
COLOR jaune: LOCATE , 4: PRINT "Déterminants"; : COLOR blancbrill
LOCATE , h: PRINT "une, les, cette, mon..."
LOCATE 14
COLOR jaune: LOCATE , 4: PRINT "Noms"; : COLOR blancbrill
LOCATE , h: PRINT "monsieur, lapin, tableau, rêve..."
LOCATE 16
COLOR jaune: LOCATE , 4: PRINT "Adjectifs qualificatifs"; : COLOR blancbrill
LOCATE , h: PRINT "grand, jaune, rapide, léger, triste..."
CALL getinvimouse(w)
RETURN
rappelnat2:
'rappel pour nature 3
COLOR , bleu: CLS
LOCATE 4, 3: COLOR jaune: PRINT "Rappel"
CALL cadre(5, 2, 75, 16, rouge)
COLOR blanc, rouge
LOCATE 6
FOR i = 1 TO 15
LOCATE , 30: PRINT "│"
NEXT
LOCATE 8, 3: PRINT STRING$(27, "─") + "┼" + STRING$(47, "─")
LOCATE 10, 3: PRINT STRING$(27, "─") + "┼" + STRING$(47, "─")
LOCATE 12, 3: PRINT STRING$(27, "─") + "┼" + STRING$(47, "─")
LOCATE 15, 3: PRINT STRING$(27, "─") + "┼" + STRING$(47, "─")
LOCATE 17, 3: PRINT STRING$(27, "─") + "┼" + STRING$(47, "─")

LOCATE 7: h = 32
COLOR jaune: LOCATE , 4: PRINT "Participes passés"; : COLOR blancbrill
LOCATE , h: PRINT "parlé, fini, vendu, été, eu..."
LOCATE 9
COLOR jaune: LOCATE , 4: PRINT "Articles"; : COLOR blancbrill
LOCATE , h: PRINT "un, une, des, le, la, l', les"
LOCATE 11
COLOR jaune: LOCATE , 4: PRINT "Déterminants démonstratifs"; : COLOR blancbrill
LOCATE , h: PRINT "ce, cet, cette, ces"
LOCATE 13
COLOR jaune: LOCATE , 4: PRINT "Déterminants possessifs"; : COLOR blancbrill
LOCATE , h: PRINT "mon, ton, son, ma, ta, sa, notre, votre, leur"
LOCATE , h: PRINT "mes, tes, ses, nos, vos, leurs"
LOCATE 16
COLOR jaune: LOCATE , 4: PRINT "Prépositions"; : COLOR blancbrill
LOCATE , h: PRINT "à, de, par, pour, avec, sur, près, dans..."
LOCATE 18
COLOR jaune: LOCATE , 4: PRINT "Adverbes"; : COLOR blancbrill
LOCATE , h: PRINT "beaucoup, peu, ici, là, aujourd'hui, bientôt..."
LOCATE , h: PRINT "lentement, solidement, agréablement..."
CALL getinvimouse(w)

RETURN

END SUB

DEFINT A-Z
SUB partpas (re%, ni%, v$(), pp$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'25/3/96
DIM rr$(20), z(10)
nf = 48
re = 0

'niveau
CALL niveau(ni, 2)
IF ni = 1 THEN nf = 24 ELSE nf = 48

COLOR , bleu: CLS
CALL cadre(5, 14, 51, 15, rouge)
COLOR blanc, rouge
LOCATE 6
FOR i = 1 TO 14
LOCATE , 40: PRINT "│"
NEXT i

LOCATE 7
IF ni = 1 THEN
debut = 1: fin = 12
ELSE
debut = 25: fin = 36
END IF
FOR i = debut TO fin
COLOR blancbrill
LOCATE , 18: PRINT v$(i); " "; CHR$(26); " "; : COLOR jaune: LOCATE , 30: PRINT MID$(pp$(i), 1, LEN(pp$(i)) - 1);
LOCATE , 44: COLOR blancbrill: PRINT v$(i + 12); " "; CHR$(26); " "; : LOCATE , 56: COLOR jaune: PRINT MID$(pp$(i + 12), 1, LEN(pp$(i + 12)) - 1)
NEXT i

COLOR , bleu
CALL centre(23, blanc, "Mémorise")
CALL getinvimouse(r)

CALL titre

FOR ii = 1 TO 10 '+++++++++++++++
MouseHide
DO
DO
f = 0
z(ii) = INT(RND * nf) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
LOOP WHILE ni = 2 AND z(ii) <= 24
n = z(ii)

CALL cadre(8, 15, 18, 2, vert)
CALL cadre(8, 47, 18, 2, vert)
COLOR blancbrill, vert
LOCATE 9, 17: PRINT "Verbe"
LOCATE 9, 49: PRINT "Participe passé"
CALL cadre(11, 15, 18, 4, rouge)
CALL cadre(11, 47, 18, 4, blanc)

LOCATE 13, 17
COLOR blancbrill, rouge: PRINT v$(n)

pp1:
CALL niv(10, ii)
CALL ligne23(noir, noir)
CALL centre(23, blanc, "Tape le participe passé")
LOCATE 13, 50
CALL inputgen(10, r$, 65, 151, noir, blanc)
COLOR , noir
pp$ = MID$(pp$(n), 1, LEN(pp$(n)) - 1)

IF r$ = pp$ THEN
IF cc = 0 THEN re = re + 1
CALL exact2
ELSE
cc = cc + 1
IF cc < 3 THEN
f = VAL(RIGHT$(pp$(n), 1))
IF f = 1 THEN z$ = "Il a " ELSE z$ = "Il est "
CALL ligne23(noir, noir)
CALL centre(23, rougeclair, z$ + r$ + "...???")
CALL attendre(1.5)
IF (r$ = MID$(pp$, 1, LEN(pp$) - 1) OR LEN(r$) = LEN(pp$)) AND (RIGHT$(pp$, 1) <> "e" AND RIGHT$(pp$, 1) <> "i" AND RIGHT$(pp$, 1) <> "u" AND RIGHT$(pp$, 1) <> "é") THEN
CALL centre(23, rougeclair, "Pense au féminin : une chose qui est...")
CALL attendre(2)
END IF
ELSE
CALL solution(pp$)
END IF
GOTO pp1
END IF
cc = 0

NEXT ii '+++++++++++

CALL resultats(re, ni, 2)

END SUB

DEFINT A-Z
SUB ponctuation (re%, ni%, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'19/5/96
DIM ph$(9), m$(100), m2$(100)

phrase$ = "Avec les flèches, déplace le curseur là où tu veux faire les modifications."

'espace à la fin
'la bonne réponse est dans ph2$()

'niveau 1
ph$(1) = "C'est sur la grève de la pleine mer que se rassemblent les enfants ; c'est là que j'ai été élevé, compagnon des flots et des vents. Un des premiers plaisirs que j'ai goûté était de lutter "
ph$(1) = ph$(1) + "contre les orages, de me jouer avec les vagues qui se retiraient devant moi, ou couraient après moi sur la rive. "
ph$(2) = "Cela dura dix minutes à peine. Il n'y avait pas de coups de tonnerre ; mais de grands éclairs bleuâtres, incessants, semblaient courir au ras du sol, en larges sillons de phosphore. "
ph$(2) = ph$(2) + "La nuit n'était plus si sombre, les grêlons l'éclairaient de rayures pâles innombrables comme s'il fût tombé des jets de verre. "
ph$(3) = "Deux parties de billard étaient en train. Les garçons criaient les points ; les joueurs couraient autour des billards encombrés de spectateurs. "
ph$(3) = ph$(3) + "Des flots de fumée de tabac, s'élançant de la bouche de tous, les enveloppaient d'un nuage bleu. "

'niveau 2
'les maj ne sont pas enlevées
ph$(4) = "Chère cousine ! Grande et lente, avec des yeux bleu de pervenche, de longs cheveux châtains, des épaules de neige ; un cou frais, que coupe de sa noirceur luisante un velours tenant une croix d'or ; "
ph$(4) = ph$(4) + "le sourire tendre et la voix traînante, devenant rose dès qu'elle rit, rouge dès qu'on la regarde. "
ph$(5) = "Pauvre maison en loques, tassée, lézardée et branlante, raccommodée partout de bouts de planches et de plâtras ! Elle avait dû être construite en moellons et en terre ; plus tard, on refit deux murs au mortier. "
ph$(5) = ph$(5) + "Enfin, vers le commencement du siècle, on se résigna à en remplacer le chaume par une toiture de petites ardoises, aujourd'hui pourries. "
ph$(6) = "Le jour de son arrivée, on lui avait donné un modèle de bâtons en lui disant : fais des bâtons ! Et depuis un an, Bamban faisait des bâtons. Et quels bâtons, grand Dieu ! Tordus, sales, boiteux, clopinants, "
ph$(6) = ph$(6) + "des bâtons de Bamban ! Personne ne s'occupait de lui. Un drôle d'élève ce Bamban ! "

'niveau 3
ph$(7) = "Quelquefois, quand ils avaient été sages, je leur racontais une histoire... Une histoire ! Quel bonheur ! Vite, vite, on pliait les cahiers, on fermait les livres ; encriers, règles, on jetait tout au fond des pupitres. "
ph$(7) = ph$(7) + "Puis, les bras croisés sur la table, on ouvrait de grands yeux et on écoutait. "
ph$(8) = "L'hiver était venu, un hiver sec, terrible et noir, comme il en fait dans ces pays de montagnes. Avec leurs grands arbres sans feuilles et leur sol gelé plus dur que la pierre, les cours du collège étaient tristes à voir. "
ph$(9) = "Le nouveau était un gars de la campagne d'une quinzaine d'années. Il avait les cheveux coupés droit sur le front. Quoiqu'il ne fût pas large des épaules, sa veste de drap vert à boutons noirs devait le gêner aux entournures. "
ph$(9) = ph$(9) + "Ses jambes sortaient d'un pantalon jaunâtre, très tiré par des bretelles. Il était chaussé de souliers forts, mal cirés, garnis de clous... "


CALL niveau(ni, 3)
IF ni = 1 OR ni = 3 THEN
'présentation
w$ = "Dans un texte, les majuscules et la ponctuation vont être effacées."
ELSE
w$ = "Dans un texte, la ponctuation va être effacée."
END IF
z$ = "Tu devras les retaper."
CALL consigne(2, w$, z$, y$)

re = 0: ct = 0

IF ni = 1 THEN
ii = INT(RND * 3) + 1
ELSEIF ni = 2 THEN
ii = INT(RND * 3) + 4
ELSE
ii = INT(RND * 3) + 7
END IF

m2$ = ph$(ii)
er = 0
m$ = m2$

'on transforme le texte m$ (m2$ est la référence)
IF ni = 1 OR ni = 3 THEN
m$ = LCASE$(m2$)
ELSE
m$ = m2$
END IF
l = LEN(m$)
FOR i = 1 TO l
x$ = MID$(m$, i, 1)
IF x$ = "." OR x$ = "," OR x$ = ";" OR x$ = "!" OR x$ = "?" OR x$ = ":" THEN
m$ = MID$(m$, 1, i - 1) + MID$(m$, i + 1)
i = i - 1
END IF
NEXT

SELECT CASE ni
CASE 1
'affichage des deux textes et saisie
CALL titre
CALL trouvemot(m2$, m2$(), nm)
LOCATE 5, , 0: COLOR vertclair, bleu
CALL afficheformate(m2$(), nm)
COLOR rouge: LOCATE 11: PRINT STRING$(80, CHR$(196))
CALL trouvemot(m$, m$(), nm)

debponctua:
COLOR blancbrill, bleu
DO
CALL pleinecran2(r$, phrase$, m$, 13, 19, rt$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
IF r$ = CHR$(27) THEN CALL quitter(noir, bleu)
LOOP WHILE r$ = CHR$(27)

COLOR , noir
LOCATE 22, 1: PRINT SPACE$(80): PRINT SPACE$(80)
CALL recupere2(m$, 13, 19)

IF m$ = CHR$(255) THEN
BEEP: BEEP
CALL centre(23, rougeclair, "Tu as effacé tout le texte !")
CALL getinvimouse(w)
EXIT SUB
END IF

COLOR , bleu
CALL transforme(m$)
CALL trouvemot(m$, m$(), nm)

FOR i = 1 TO nm
l = LEN(m$(i))
IF l > 80 - 1 THEN
BEEP: LOCATE , , 0: COLOR , noir
CALL centre(23, rougeclair, "Tu as du supprimer trop d'espaces !")
COLOR blancbrill
CALL getinvimouse(r)
GOTO debponctua
END IF
NEXT i

COLOR blancbrill, bleu
VIEW PRINT 12 TO 20
CLS 2
VIEW PRINT
LOCATE 13
CALL afficheformate(m$(), nm)
COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)

DO
COLOR blanc, noir
LOCATE 23, 11
PRINT "Les deux textes sont-ils bien identiques ";
CALL ouinon(r$)
r = ASC(r$)
IF r = 27 THEN CALL quitter(noir, bleu)
IF r = 13 OR r$ = "O" THEN
flag = 1
ELSEIF r$ = "N" THEN
flag = 0
ELSE
BEEP: r = 27
END IF
LOOP WHILE r = 27

IF flag = 0 THEN GOTO debponctua
LOCATE 23, 1: PRINT SPACE$(80)

IF flag = 0 THEN GOTO debponctua

IF m$ = m2$ THEN
CALL exact2
IF ct = 0 THEN
re = 10
ELSEIF ct = 1 THEN
re = 7
ELSE
re = 5
END IF
CALL entree(noir, noir, 0)
ELSE
ct = ct + 1
IF m$ = LCASE$(m2$) THEN
CALL centre(23, rougeclair, "Tu as oublié des majuscules.")
ELSEIF (LEFT$(m$, 1) <> LEFT$(m2$, 1)) AND (UCASE$(LEFT$(m$, 1)) = LEFT$(m2$, 1)) THEN
CALL centre(23, rougeclair, "Tu as oublié la majuscule du début.")
ELSEIF RIGHT$(m$, 2) <> RIGHT$(m2$, 2) THEN
CALL centre(23, rougeclair, "Tu as oublié la ponctuation finale.")
ELSEIF ct < 3 THEN
CALL centre(23, rougeclair, "Compare les textes et recherche tes oublis.")
ELSE
CALL centre(23, rougeclair, "Compare les textes.")
END IF
CALL getinvimouse(w)
IF ct < 3 THEN
GOTO debponctua
ELSE
re = 3
END IF
END IF

CASE ELSE
CALL traitementtexte(m$, m2$, phrase$, re%, rt$, gg2$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
END SELECT

CALL resultats(re, ni, 3)

END SUB
 

 

DECLARE SUB niv (limit%, xx%)
DECLARE SUB accordnom (re%, gg$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB cadre (v%, h%, l%, nli%, c%)
DECLARE SUB erreur2 ()
DECLARE SUB exact2 ()
DECLARE SUB fleches (v%, h%, w$(), np%, r%, coul%, drap%, v2%, h2%)
DECLARE SUB fleches2 (v%, h%, ll%, nm%, h2%, w$(), r%, coul%)
DECLARE SUB inputgen (nl%, r$, deb%, fin%, x%, y%)
DECLARE SUB niveau (r%, np%)
DECLARE SUB quitter (x%, y%)
DECLARE SUB resultats (re%, ni%, nbniv%)
DECLARE SUB titre ()
DECLARE SUB consigne (nl%, w$, z$, y$)
DECLARE SUB getinvimouse (rr%)
DECLARE SUB ouinon (r$)
DECLARE SUB attendre (tx!)
DECLARE SUB centre (v%, coul%, ph$)
DECLARE SUB entree (x%, y%, drapeau%)
DECLARE SUB traitementtexte (m$, m2$, phrase$, re%, rt$, gg2$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB solution (sol$)
DECLARE SUB MouseHide ()
'module 4
'Français AAS
'Daniel CLERC
'20/5/96


DEFINT A-Z
SUB classement (re, ni, mo2$(), mo17$(), rt$, gg$, pre$, titr$, prog, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'2/5/96
DIM mo$(6), z(6), r(6), z$(6)
nm = 57
cc = 0: pt = 0

w$ = "Tu vas devoir trier par ordre alphabétique"
z$ = "3 séries de mots."
CALL consigne(2, w$, z$, y$)

'niveau
CALL niveau(ni, 2)

CALL titre
MouseHide
FOR serie = 1 TO 3 '++++++++++++++++++++++++++++
CALL niv(3, serie)
IF ni = 1 THEN
'tirage
FOR ii = 1 TO 6
DO
f = 0
z(ii) = INT(RND * nm) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT

'première lettre non identique
z$(ii) = LEFT$(mo2$(z(ii)), 1)
f2 = 0
FOR k = 1 TO ii - 1
IF z$(ii) = z$(k) THEN f2 = 1: EXIT FOR
NEXT k
LOOP WHILE f = 1 OR f2 = 1

mo$(ii) = mo2$(z(ii))
r(ii) = ii
NEXT ii

ELSE
DO
f = 0
z(serie) = INT(RND * 10)
FOR j = 1 TO serie - 1
IF z(serie) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1

FOR ii = 1 TO 6
mo$(ii) = mo17$(ii + (z(serie) * 6))
r(ii) = ii
NEXT ii
END IF

'affichage
CALL cadre(4, 16, 48, 2, vert)

COLOR , vert
CALL centre(5, blancbrill, "Série n°" + STR$(serie))
CALL cadre(7, 16, 17, 12, rouge)
COLOR blancbrill, rouge
LOCATE 8
FOR i = 1 TO 6
LOCATE , 21: PRINT mo$(i): PRINT
NEXT

'tri
FOR i = 1 TO 5
m = 0
FOR j = 1 TO 6 - i
IF mo$(j + 1) < mo$(j) THEN SWAP mo$(j), mo$(j + 1): SWAP r(j), r(j + 1)
m = 1
NEXT j
IF m = 0 THEN EXIT FOR
NEXT i

CALL cadre(7, 47, 17, 12, blanc)
c = 8
LOCATE c: COLOR noir, blanc
FOR j = 1 TO 6
LOCATE , 49: PRINT LTRIM$(STR$(j)); " -": PRINT
NEXT

FOR i = 1 TO 6 '+++++
cla3:
COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)
CALL centre(23, blanc, "Tape le mot n°" + LTRIM$(STR$(i)))

LOCATE c, 53: CALL inputgen(12, re$, 65, 163, noir, blanc)
er = 0
COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)
FOR x = 1 TO 6
IF mo$(x) <> re$ THEN er = er + 1
NEXT
IF er = 6 THEN BEEP: CALL centre(23, rougeclair, "Ce mot n'est pas dans la liste."): CALL attendre(2): LOCATE 23, 1: PRINT SPACE$(80): GOTO cla3

IF re$ <> mo$(i) THEN
cc = cc + 1
IF cc >= 2 THEN
CALL solution(mo$(i))
ELSE
CALL erreur2
END IF
GOTO cla3
ELSE
CALL exact2
LOCATE ((r(i) - 1) * 2) + 8, 19
COLOR , rouge
IF cc = 0 THEN COLOR vertclair ELSE COLOR rougeclair
PRINT CHR$(4): COLOR blancbrill
c = c + 2
IF cc = 0 THEN pt = pt + 1
cc = 0
END IF
NEXT i '++++++++

CALL entree(noir, noir, 1)

NEXT serie '+++++++++++

re = INT((pt + 2) / 2)

CALL resultats(re, ni, 2)

END SUB

DEFINT A-Z
SUB conjts (re, ni, pp$(), v$(), te$(), E$(), a$(), AL$(), rr$(), SP$(), f$(), b$(), ve$(), IM$(), FU$(), w$(), k$(), rt$, gg$, pre$, titr$, prog, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'1/5/96
re = 0
DIM p$(4), z(10)
p$(1) = "présent": p$(2) = "imparfait": p$(3) = "futur": p$(4) = "passé simple"
titr$ = "conjugaison des temps simples"

CALL titre
CALL cadre(7, 25, 30, 2, vert)
COLOR , vert
CALL centre(8, blancbrill, "Niveau de difficulté")
CALL fleches(12, 34, p$(), 4, ni, rouge, 1, 23, 35)

'rappel
COLOR , bleu: CLS
CALL cadre(3, 2, 76, 18, rouge)
COLOR blanc, rouge
LOCATE 4
FOR i = 1 TO 17
LOCATE , 22: PRINT "│"; : LOCATE , 42: PRINT "│"; : LOCATE , 62: PRINT "│"
NEXT
LOCATE 12, 3: PRINT STRING$(19, "─") + "┼" + STRING$(19, "─") + "┼" + STRING$(19, "─") + "┼" + STRING$(16, "─")

flag = 0
a = 1
h = 4
FOR ii = 1 TO 4
GOSUB conj21
v$ = v$(d)
LOCATE 5, h: COLOR jaune: PRINT v$: COLOR blancbrill
v = 6: GOSUB conj19
h = h + 20
NEXT
h = 4
FOR ii = 5 TO 8
GOSUB conj21
v$ = v$(d)
LOCATE 13, h: COLOR jaune: PRINT v$: COLOR blancbrill
v = 14: GOSUB conj19
h = h + 20
NEXT
COLOR , bleu
CALL centre(23, blanc, "Mémorise")
CALL getinvimouse(r)

CALL titre

FOR ii = 1 TO 5 '+++++++++++++
MouseHide
ts1:
a = INT(RND * 2) + 1: b = INT(RND * 2) + 1: c = INT(RND * 3) + 1

IF ni = 4 THEN IF (c = 1 OR c = 2) AND b = 2 THEN GOTO ts1

DO
f = 0
z(ii) = INT(RND * 15) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
d = z(ii)

IF a = 1 THEN g$ = "masculin" ELSE g$ = "féminin"
IF b = 1 THEN n$ = "singulier" ELSE n$ = "pluriel"
IF c = 1 THEN p$ = "1° du "
IF c = 2 THEN p$ = "2° du "
IF c = 3 THEN p$ = "3° du "
v$ = v$(d)

GOSUB conj20

cts1:
'verbe
CALL cadre(5, 8, 10, 2, marron)
CALL cadre(5, 28, 14, 2, marron)
CALL cadre(5, 53, 19, 2, marron)
COLOR blancbrill, marron
LOCATE 6, 10: PRINT "VERBE"
LOCATE 6, 30: PRINT "TEMPS"
LOCATE 6, 55: PRINT "PERSONNE"

CALL cadre(8, 8, 10, 4, rouge)
CALL cadre(8, 28, 14, 4, rouge)
COLOR blancbrill, rouge
LOCATE 10, 10
PRINT v$
LOCATE 10, 30
PRINT p$(ni)
'personne
COLOR , bleu
LOCATE 12, 53: PRINT SPACE$(22)
LOCATE 13, 53: PRINT SPACE$(22)
IF LEFT$(p$, 1) = "3" THEN
CALL cadre(8, 53, 19, 5, rouge)
COLOR blancbrill, rouge: LOCATE 11, 55: PRINT g$
ELSE
CALL cadre(8, 53, 19, 4, rouge)
END IF
LOCATE 10, 55: COLOR blancbrill, rouge: PRINT p$; n$
CALL niv(5, ii)
COLOR , noir
CALL centre(23, blanc, "Tape la réponse")
CALL cadre(15, 8, 64, 2, blanc)
LOCATE 16, INT(41 - (LEN(rat$) / 2))
CALL inputgen(30, r$, 32, 151, noir, blanc)
COLOR , noir
l = LEN(r$): IF l < 2 THEN GOTO cts1

LOCATE 23, 1: PRINT SPACE$(80)

IF LEFT$(r$, 1) <> LEFT$(rat$, 1) THEN
CALL centre(23, rougeclair, "Pronom personnel = " + ra$)
CALL attendre(2): LOCATE 23, 1: PRINT SPACE$(80)
GOTO cts1
END IF

IF r$ = rat$ THEN
IF cc = 0 THEN re = re + 2
CALL exact2
ELSE
cc = cc + 1
IF cc < 2 THEN
CALL erreur2
v = 14: h = 55: flag = 1
CALL cadre(13, 53, 18, 7, rouge)
GOSUB conj19
ELSE
CALL solution(rat$)
END IF
GOTO cts1
END IF
cc = 0

NEXT ii '+++++++++++

CALL resultats(re, ni, 4)

EXIT SUB

conj19:
COLOR , rouge
btemp = b: ctemp = c
LOCATE v
b = 1
FOR c = 1 TO 3
GOSUB conj20: LOCATE , h: PRINT rat$
NEXT c
b = 2
FOR c = 1 TO 3
GOSUB conj20: LOCATE , h: PRINT rat$
NEXT c
IF flag = 0 THEN RETURN
COLOR , noir
CALL centre(23, blanc, "Mémorise")
CALL getinvimouse(r)

LOCATE v - 1
COLOR , bleu
FOR i = 1 TO 8: LOCATE , h - 2: PRINT SPACE$(22): NEXT
b = btemp: c = ctemp
GOSUB conj20

RETURN

conj20:

SELECT CASE ni
CASE 1
'present
ra$ = pp$(a, b, c) + " "
IF d < 6 THEN rat$ = ra$ + LEFT$(v$, LEN(v$) - 2) + te$(b, c)
IF d = 6 THEN rat$ = ra$ + E$(b, c)
IF d = 7 AND b = 1 AND c = 1 THEN rat$ = "j'ai" ELSE IF d = 7 THEN rat$ = ra$ + a$(b, c)
IF d = 8 THEN rat$ = ra$ + AL$(b, c)
IF d = 9 OR d = 10 THEN rat$ = ra$ + LEFT$(v$, LEN(v$) - 1) + rr$(b, c)
IF d = 11 OR d = 12 THEN rat$ = ra$ + LEFT$(v$, LEN(v$) - 3) + SP$(b, c)
IF d = 13 THEN rat$ = ra$ + f$(b, c)
IF d = 14 THEN rat$ = ra$ + b$(b, c)
IF d = 15 THEN rat$ = ra$ + ve$(b, c)

CASE 2
'imparfait
ra$ = pp$(a, b, c) + " "
IF d < 6 OR d = 8 OR d = 11 OR d = 12 OR d = 15 THEN rat$ = ra$ + LEFT$(v$, LEN(v$) - 2) + IM$(b, c)
IF d = 6 AND b = 1 AND c = 1 THEN rat$ = "j'étais" ELSE IF d = 6 THEN rat$ = ra$ + "ét" + IM$(b, c)
IF d = 7 AND b = 1 AND c = 1 THEN rat$ = "j'avais" ELSE IF d = 7 THEN rat$ = ra$ + LEFT$(v$, LEN(v$) - 3) + IM$(b, c)
IF d = 8 AND b = 1 AND c = 1 THEN rat$ = "j'allais"
IF d = 9 OR d = 10 THEN rat$ = ra$ + LEFT$(v$, LEN(v$) - 1) + "ss" + IM$(b, c)
IF d = 13 THEN rat$ = ra$ + "fais" + IM$(b, c)
IF d = 14 THEN rat$ = ra$ + "buv" + IM$(b, c)

CASE 3
'futur
ra$ = pp$(a, b, c) + " "
IF d < 6 OR d = 9 OR d = 10 OR d = 11 OR d = 12 THEN rat$ = ra$ + v$ + FU$(b, c)
IF d = 6 THEN rat$ = ra$ + "ser" + FU$(b, c)
IF d = 7 AND b = 1 AND c = 1 THEN rat$ = "j'aurai" ELSE IF d = 7 THEN rat$ = ra$ + "aur" + FU$(b, c)
IF d = 8 AND b = 1 AND c = 1 THEN rat$ = "j'irai" ELSE IF d = 8 THEN rat$ = ra$ + "ir" + FU$(b, c)
IF d = 14 THEN rat$ = ra$ + "boir" + FU$(b, c)
IF d = 13 THEN rat$ = ra$ + "fer" + FU$(b, c)
IF d = 15 THEN rat$ = ra$ + "viendr" + FU$(b, c)

CASE 4
'passe simple
ra$ = pp$(a, b, c) + " "
IF d < 6 OR d = 8 THEN rat$ = ra$ + LEFT$(v$, LEN(v$) - 2) + w$(b, c)
IF d = 8 AND b = 1 AND c = 1 THEN rat$ = "j'allai"
'être
IF d = 6 THEN
IF b = 1 OR (b = 2 AND c = 3) THEN
rat$ = ra$ + "fu" + k$(b, c)
ELSE
rat$ = ra$ + "fû" + k$(b, c)
END IF
END IF

'avoir
IF d = 7 THEN
IF b = 1 AND c = 1 THEN
rat$ = "j'eus"
ELSEIF b = 1 OR (b = 2 AND c = 3) THEN
rat$ = ra$ + "eu" + k$(b, c)
ELSE
rat$ = ra$ + "eû" + k$(b, c)
END IF
END IF

'finir, réussir, sentir, partir
IF d = 9 OR d = 10 OR d = 11 OR d = 12 THEN
IF b = 1 OR (b = 2 AND c = 3) THEN
rat$ = ra$ + LEFT$(v$, LEN(v$) - 1) + k$(b, c)
ELSE
rat$ = ra$ + LEFT$(v$, LEN(v$) - 2) + "î" + k$(b, c)
END IF
END IF

'faire
IF d = 13 THEN
IF b = 1 OR (b = 2 AND c = 3) THEN
rat$ = ra$ + "fi" + k$(b, c)
ELSE
rat$ = ra$ + "fî" + k$(b, c)
END IF
END IF

'boire
IF d = 14 THEN
IF b = 1 OR (b = 2 AND c = 3) THEN
rat$ = ra$ + "bu" + k$(b, c)
ELSE
rat$ = ra$ + "bû" + k$(b, c)
END IF
END IF

'venir
IF d = 15 THEN
IF b = 1 OR (b = 2 AND c = 3) THEN
rat$ = ra$ + "vin" + k$(b, c)
ELSE
rat$ = ra$ + "vîn" + k$(b, c)
END IF
END IF
END SELECT
RETURN

conj21:
DO
f = 0
z(ii) = INT(RND * 15) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
d = z(ii)
RETURN

END SUB

DEFINT A-Z
SUB gennom (re, ni, n$(), rt$, gg$, pre$, titr$, prog, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'25/3/96
DIM p$(2), z(10)
re = 0: h = 25

'niveau
CALL niveau(ni, 2)
IF ni = 1 THEN nf = 23 ELSE nf = 41

CALL titre

FOR ii = 1 TO 10 '+++++++
CALL niv(10, ii)

DO
DO
f = 0
z(ii) = INT(RND * nf) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
LOOP WHILE ni = 2 AND z(ii) <= 23

n = z(ii)
n$ = LEFT$(n$(n), LEN(n$(n)) - 2)
genre = VAL(MID$(n$(n), LEN(n$(n)) - 1, 1))
nombre = VAL(MID$(n$(n), LEN(n$(n)), 1))

CALL cadre(10, 16, 16, 2, vert)
CALL cadre(10, 48, 16, 2, vert)
COLOR blancbrill, vert
LOCATE 11, 21: PRINT "Genre"
LOCATE 11, 53: PRINT "Nombre"
CALL cadre(13, 16, 16, 5, rouge)
CALL cadre(13, 48, 16, 5, rouge)

CALL cadre(6, 16, 48, 2, blanc)
COLOR , blanc
CALL centre(7, noir, n$)
COLOR blancbrill, rouge
LOCATE 15, 53: PRINT "singulier": LOCATE , 53: PRINT "pluriel"

c = 0
DO
p$(1) = "masculin": p$(2) = "féminin"
CALL fleches(15, 21, p$(), 2, r, rouge, 0, 23, 20)
IF r = genre THEN
CALL exact2
IF c = 0 THEN re = re + 1
c = 0
EXIT DO
ELSE
CALL erreur2
c = c + 1
END IF
LOOP

c = 0
DO
p$(1) = "singulier": p$(2) = "pluriel"
CALL fleches(15, 53, p$(), 2, r, rouge, 0, 23, 52)
IF r = nombre THEN
CALL exact2
IF c = 0 THEN re = re + 1
c = 0
EXIT DO
ELSE
CALL erreur2
c = c + 1
END IF
LOOP

NEXT ii '+++++++

re = INT(re / 2)
CALL resultats(re, ni, 2)


END SUB

DEFINT A-Z
SUB intrus (re, ni, intrusvoca$(), intrusgram$(), intrusconj$(), rt$, gg$, pre$, titr$, prog, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
DIM mot$(10, 13), mot2$(12), z(10), sol(10), nbe(12), p4$(3)
'28/2/96
'97 mots pour vocabulaire
'102 mots pour grammaire
'97 mots pour conjugaison


li2$ = SPACE$(80)
p4$(1) = "Vocabulaire": p4$(2) = "Grammaire": p4$(3) = "Conjugaison"
re = 0: q = 1

'présentation
w$ = "Tu vas devoir trouver le mot 'pirate'"
z$ = "dans une liste de propositions."
CALL consigne(2, w$, z$, y$)

'niveau
CALL titre
CALL cadre(7, 25, 30, 2, vert)
COLOR , vert
CALL centre(8, blancbrill, "Niveau de difficulté")
CALL fleches(12, 34, p4$(), 3, ni, rouge, 1, 23, 35)

'affectation
k = 0
FOR i = 1 TO 10
j = 0
DO
j = j + 1: k = k + 1
IF ni = 1 THEN
mot$(i, j) = intrusvoca$(k)
ELSEIF ni = 2 THEN
mot$(i, j) = intrusgram$(k)
ELSE
mot$(i, j) = intrusconj$(k)
END IF
IF RIGHT$(mot$(i, j), 1) = "*" THEN
mot$(i, j) = MID$(mot$(i, j), 1, LEN(mot$(i, j)) - 1)
sol(i) = j
END IF
LOOP WHILE mot$(i, j) <> "="
nbe(i) = j - 1
NEXT i

'i = nbe de listes
'nbe(i) = nbe de mots dans la liste i
'mot$(i,j) = mots j dans la liste i
'* repère pour l'intrus
'= repère pour la fin de la liste
'la solution est avant l'=
'sol(i) indique le numéro de l'intrus



'affectation
bb = 1
FOR boucle = 1 TO 10 '++++++++++++++++++++++++

'tirage aléatoire des séries
DO
f = 0
z(boucle) = INT(RND * 10) + 1
FOR j = 1 TO boucle - 1
IF z(boucle) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
numeroboucle = z(boucle)

FOR i = 1 TO nbe(numeroboucle)
mot2$(i) = mot$(numeroboucle, i)
NEXT
nbemot = nbe(numeroboucle) - 1


'demande réponse
CALL titre

erreurs = 0
DO
CALL cadre(5, 20, 40, 2, marron)
COLOR , marron
CALL centre(6, blancbrill, p4$(ni))
COLOR vertclair, noir
CALL niv(10, boucle)
COLOR , noir
CALL centre(22, blanc, "Sélectionne l'intrus")
COLOR , bleu

'trouver longueur mot max
l2 = 0
FOR i = 1 TO nbemot
l1 = LEN(mot2$(i)): IF l2 < l1 THEN l2 = l1
NEXT
h = INT(41 - (l2 / 2))

CALL fleches(10, h, mot2$(), nbemot, r, rouge, 1, 23, 35)

COLOR , noir
LOCATE 22, 1: PRINT SPACE$(80)
IF r <> sol(numeroboucle) THEN
erreurs = erreurs + 1

IF erreurs < 3 THEN
CALL erreur2
ELSE
CALL solution(mot2$(sol(numeroboucle)))
COLOR , bleu
END IF
END IF
LOOP WHILE r <> sol(numeroboucle)
CALL exact2: IF erreurs = 0 THEN re = re + 1'en fonction du nombre de série
CALL centre(23, vertclair, mot2$(nbemot + 1))
CALL getinvimouse(rr)
bb = bb + 1: IF bb > 3 THEN bb = 1
NEXT boucle

CALL resultats(re, ni, 3)

END SUB

DEFINT A-Z
SUB ortho (re, ni, eleve, serie$(), rt$, gg$, pre$, titr$, prog, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'6/4/96
DIM p$(10), mot$(205), z(20), s$(20), serie2$(20), ne(10), p2$(4)
p2$(1) = "lente": p2$(2) = "moyenne": p2$(3) = "rapide": p2$(4) = "très rapide"

lp$ = STRING$(22, ".")
moyenne$ = ""
vit = 2

'debut
ct = 0: re = 0

CALL niveau(ni, 2)

SELECT CASE ni
CASE 1
fiches$ = "mots2": te = 1.5: nbfois = 10

CASE 2
fiches$ = "mots3": te = 1: nbfois = 20
END SELECT

'tableau des résultats et choix de la série

CALL titre
IF eleve > 0 THEN
'si ni = 1 alors de 1 à 10 sinon 11 à 20
ii = 1
FOR i = ((ni - 1) * 10) + 1 TO ni * 10
IF serie$(i) <> " " THEN
serie2$(ii) = LTRIM$(STR$(VAL(serie$(i))))
ELSE
serie2$(ii) = " "
END IF
ii = ii + 1
NEXT i

'calcul de la moyenne
tt = 0: nt = 0
FOR j = 1 TO 10
IF serie2$(j) <> " " THEN tt = tt + VAL(serie2$(j)): nt = nt + 1
NEXT j
IF nt = 0 THEN
moyenne$ = ""
ELSE
moyenne$ = LTRIM$(STR$(INT(tt / nt)))
END IF

'affichage tableau si moyenne > 0
IF moyenne$ <> "" THEN
COLOR jaune, bleu
LOCATE 19, 20: PRINT "Moyenne = "; moyenne$
LOCATE 5, 20: PRINT "RESULTATS"
CALL cadre(6, 8, 32, 12, blanc)
COLOR noir, blanc

LOCATE 7, 20: PRINT "1 2 3 4 5 6 7 8 9 10"
LOCATE 8
FOR i = 1 TO 10
LOCATE , 10: PRINT "série"; i;
IF serie2$(i) <> " " THEN
i2 = 0
FOR j = 1 TO VAL(serie2$(i))
SELECT CASE i
CASE 1, 3, 5, 7, 9
LOCATE , 20 + i2: PRINT "▒▒";
CASE ELSE
LOCATE , 20 + i2: PRINT "▓▓";
END SELECT
i2 = i2 + 2
NEXT j
PRINT
ELSE
PRINT
END IF
NEXT i
END IF
END IF

FOR i = 1 TO 10
p$(i) = LTRIM$(STR$(i))
NEXT
IF moyenne$ = "" THEN
LOCATE 5, 39: COLOR vertclair, bleu: PRINT "SERIE"
CALL fleches(8, 41, p$(), 10, rep, rouge, 1, 23, 35)
ELSE
LOCATE 5, 53: COLOR vertclair, bleu: PRINT "SERIE"
CALL cadre(6, 52, 6, 12, rouge)
CALL fleches(8, 55, p$(), 10, rep, rouge, 0, 23, 51)
END IF

CALL titre
OPEN fiches$ + ".dat" FOR INPUT AS #1
i = 1
DO
INPUT #1, mot$(i)
i = i + 1
LOOP WHILE i < 201
CLOSE #1
nf = i - 1

'tirage des mots et affichage
pointeur = ((rep - 1) * nbfois) + 1
FOR ii = 1 TO nbfois
s$(ii) = mot$(pointeur)
pointeur = pointeur + 1
NEXT ii

ERASE mot$

'on affiche les mots
IF ni = 1 THEN
CALL cadre(6, 33, 14, 11, marron)
COLOR blancbrill, marron
LOCATE 7
FOR i = 1 TO 10
LOCATE , 35: PRINT s$(i)
NEXT
ELSE
CALL cadre(6, 17, 46, 11, marron)
COLOR blancbrill, marron
LOCATE 7
FOR i = 1 TO 10
LOCATE , 19: PRINT s$(i)
NEXT
LOCATE 7
FOR i = 11 TO 20
LOCATE , 22 + 25: PRINT s$(i)
NEXT
END IF
COLOR , noir
CALL centre(23, blanc, "Mémorise l'orthographe des mots")
COLOR blancbrill
CALL getinvimouse(r)
CALL titre

'programme principal
MouseHide
COLOR vertclair
'LOCATE , 72: PRINT "Série"; rep
CALL cadre(10, 28, 24, 4, blanc)

FOR ii = 1 TO nbfois '++++++++++++++++++++++++++++++++
LOCATE 12, 12 + 20: COLOR , blanc: PRINT SPACE$(18)
CALL niv(nbfois, ii)

DO
CALL cadre(6, 28, 24, 2, vert)
COLOR , vert
CALL centre(7, blancbrill, "Vitesse " + p2$(vit))
CALL attendre(.5)
COLOR noir, blanc
tr = 0
p$ = MID$(lp$, 1, LEN(s$(ii)))
FOR x = 2 TO LEN(s$(ii))
IF ASC(MID$(s$(ii), x, 1)) = 32 THEN tr = x
NEXT
IF tr <> 0 THEN p$ = MID$(p$, 1, tr - 1) + " " + MID$(p$, tr + 1)

IF ct = 0 THEN
SELECT CASE ii
CASE 1, 4, 7, 10, 13, 16, 19
CALL centre(12, noir, s$(ii))
CALL attendre(.4 * (2 / vit) * te)

CASE 2, 5, 8, 11, 14, 17, 20
'lettre par lettre
CALL centre(12, noir, p$): COLOR noir, blanc
h = INT(41 - LEN(s$(ii)) / 2)
FOR x = 1 TO LEN(s$(ii))
LOCATE 12, h
PRINT MID$(s$(ii), x, 1)
CALL attendre(.4 * (2 / vit) * te)
LOCATE 12, h
PRINT "."
h = h + 1
NEXT

CASE 3, 6, 9, 12, 15, 18
'flash
FOR x = 1 TO 3
CALL centre(12, noir, s$(ii))
CALL attendre(.09)
CALL centre(12, noir, SPACE$(LEN(s$(ii))))
CALL attendre(.15)
NEXT
END SELECT

ELSE
CALL centre(12, noir, s$(ii))
CALL attendre(.4 * (2 / vit) * te)

END IF
COLOR , blanc: CALL centre(12, noir, p$)
COLOR , noir
CALL centre(23, blanc, "Tape le mot")
COLOR blancbrill

nl = LEN(s$(ii)): LOCATE 12, INT(41 - (LEN(s$(ii)) / 2))
CALL inputgen(nl, r$, 32, 165, noir, blanc)

LOCATE 13, 32: COLOR , blanc: PRINT SPACE$(18)
COLOR , noir
IF r$ = s$(ii) THEN
cc = cc + 1
CALL exact2
IF ct = 0 THEN
re = re + 1
END IF
ct = 0
EXIT DO
ELSE
cc = 0: ct = 1
vit = vit - 1: IF vit < 1 THEN vit = 1
CALL erreur2
'mettre en rouge là où c'est faux
COLOR , blanc
LOCATE 12, INT(41 - (LEN(s$(ii)) / 2))
FOR i = 1 TO LEN(r$)
IF MID$(s$(ii), i, 1) = MID$(r$, i, 1) THEN
COLOR noir '===
ELSE
COLOR rouge
END IF
PRINT MID$(r$, i, 1);
NEXT
PRINT
LOCATE 13, INT(41 - (LEN(s$(ii)) / 2))
'on compte les erreurs
flag = 0
FOR i = 1 TO LEN(r$)
IF MID$(s$(ii), i, 1) <> MID$(r$, i, 1) THEN
flag = flag + 1
END IF
NEXT

IF flag < 3 THEN
FOR i = 1 TO LEN(r$)
IF MID$(s$(ii), i, 1) = MID$(r$, i, 1) THEN
PRINT " ";
ELSE
COLOR rouge
PRINT CHR$(24);
END IF
NEXT
END IF
CALL attendre(1)
END IF
LOOP

IF vit = 1 AND cc = 2 THEN vit = 2: cc = 0
IF vit = 2 AND cc = 3 THEN vit = 3: cc = 0
IF vit = 3 AND cc = 4 THEN vit = 4: cc = 0

NEXT

IF ni = 2 THEN re = INT(re / 2)

'affecter re dans serie$(?)
're$ justifié à droite '===
IF re = 10 THEN
re$ = LTRIM$(STR$(re))
ELSE
re$ = " " + LTRIM$(STR$(re))
END IF
serie$(((ni - 1) * 10) + rep) = re$

'calcul de la nouvelle moyenne
serie2$(rep) = LTRIM$(STR$(re))
tt = 0: nt = 0
FOR j = 1 TO 10
IF serie2$(j) <> " " THEN tt = tt + VAL(serie2$(j)): nt = nt + 1
NEXT j
re = INT(tt / nt)


IF eleve > 0 THEN
'tableau pour nouveaux résultats
CALL titre
CALL cadre(4, 33, 15, 2, vert)
COLOR blancbrill, vert
LOCATE 5, 35: PRINT "Résultats"
CALL cadre(7, 33, 15, 11, blanc)
COLOR noir, blanc
LOCATE 8
FOR i = 1 TO 10
IF i = rep THEN
COLOR noir, marron
LOCATE , 34: PRINT SPACE$(15);
LOCATE , 35: PRINT "série "; LTRIM$(STR$(i));
LOCATE , 44: PRINT ":";
LOCATE , 48 - LEN(serie2$(i)): PRINT serie2$(i)
COLOR noir, blanc
ELSE
LOCATE , 35: PRINT "série "; LTRIM$(STR$(i));
LOCATE , 44: PRINT ":";
LOCATE , 48 - LEN(serie2$(i)): PRINT serie2$(i)
END IF
NEXT
COLOR jaune, bleu
LOCATE 19, 35: PRINT "Moyenne :";
LOCATE , 46 - LEN(LTRIM$(STR$(re))): PRINT re
ELSE
CALL resultats(re, ni, 2) 'quand pas d'élève
END IF
END SUB

DEFINT A-Z
SUB pluriel (re, ni, n$(), rt$, gg$, pre$, titr$, prog, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'5/5/96
DIM z(10)

re = 0
CALL accordnom(re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)

l3$ = " │ │ │"
l4$ = "──────┼─────────────┼─────────────┼" + STRING$(40, "─")

'rappel
COLOR , bleu: CLS
LOCATE 1, 3: COLOR jaune: PRINT "Rappel"
CALL cadre(2, 2, 75, 4, rouge)
CALL cadre(7, 2, 75, 16, rouge)
h = 3
COLOR , blanc
CALL centre(2, noir, " Règle générale des pluriels ")
COLOR blancbrill, rouge
CALL centre(4, blancbrill, "Un élève -> des élèves")
COLOR blancbrill, noir: LOCATE 4, 37: PRINT " "
LOCATE 4, 51: PRINT "s"
COLOR noir, rouge
LOCATE 5, 30: PRINT CHR$(192); STRING$(6, 196); CHR$(24)
LOCATE 5, 43: PRINT CHR$(192); STRING$(7, 196); CHR$(24)
COLOR , blanc
CALL centre(7, noir, " Particularités et exceptions ")
COLOR blanc, rouge
LOCATE 8
LOCATE , h: PRINT l3$
LOCATE , h: PRINT l3$
LOCATE , h: PRINT l3$
LOCATE , h: PRINT l4$
LOCATE , h: PRINT l3$
LOCATE , h: PRINT l4$
LOCATE , h: PRINT l3$
LOCATE , h: PRINT l4$
LOCATE , h: PRINT l3$
LOCATE , h: PRINT l4$
LOCATE , h: PRINT l3$
LOCATE , h: PRINT l3$
LOCATE , h: PRINT l4$
LOCATE , h: PRINT l3$
LOCATE , h: PRINT l3$

COLOR blancbrill, rouge
h1 = 4: h2 = 11: h3 = 25: h4 = 39
v = 8
LOCATE v
LOCATE , h1: PRINT "s"; : LOCATE , h2: PRINT "un bras"; : LOCATE , h3: PRINT "des bras"
LOCATE , h1: PRINT "x"; : LOCATE , h2: PRINT "une croix"; : LOCATE , h3: PRINT "des croix"
LOCATE , h1: PRINT "z"; : LOCATE , h2: PRINT "un nez"; : LOCATE , h3: PRINT "des nez"
LOCATE v + 4
LOCATE , h1: PRINT "al"; : LOCATE , h2: PRINT "un cheval";
LOCATE , h3: PRINT "des chevaux"; : LOCATE , h4: PRINT "des bals, des carnavals, des festivals"
LOCATE v + 6
LOCATE , h1: PRINT "ail"; : LOCATE , h2: PRINT "un rail";
LOCATE , h3: PRINT "des rails"; : LOCATE , h4: PRINT "des travaux, des vitraux"
LOCATE v + 8
LOCATE , h1: PRINT "eu"; : LOCATE , h2: PRINT "un feu";
LOCATE , h3: PRINT "des feux"; : LOCATE , h4: PRINT "des pneus, bleus"
LOCATE v + 10
LOCATE , h1: PRINT "au"; : LOCATE , h2: PRINT "un noyau";
LOCATE , h3: PRINT "des noyaux"; : LOCATE , h4: PRINT "des landaus"
LOCATE v + 11
LOCATE , h1: PRINT "eau"; : LOCATE , h2: PRINT "un bateau";
LOCATE , h3: PRINT "des bateaux"
LOCATE v + 13
LOCATE , h1: PRINT "ou"; : LOCATE , h2: PRINT "un trou";
LOCATE , h3: PRINT "des trous"; : LOCATE , h4: PRINT "des hiboux, genoux, cailloux, bijoux"
LOCATE , h4: PRINT "choux, poux, joujoux"
CALL getinvimouse(w)

CALL titre

FOR ii = 1 TO 10 '+++++++++++++
MouseHide
g = 0

DO
f = 0
'nf = 47
IF ni = 1 THEN
z(ii) = INT(RND * 30) + 1
ELSE
z(ii) = INT(RND * 16) + 31
END IF
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1

r$ = n$(z(ii))

CALL cadre(8, 15, 18, 2, vert)
CALL cadre(8, 47, 18, 2, vert)
COLOR blancbrill, vert
LOCATE 9, 17: PRINT "Singulier"
LOCATE 9, 49: PRINT "Pluriel"
CALL cadre(11, 15, 18, 4, rouge)
CALL cadre(11, 47, 18, 4, blanc)

LOCATE 13, 17
COLOR blancbrill, rouge: PRINT r$

IF LCASE$(MID$(r$, 1, 3)) = "un " THEN r$ = MID$(r$, 4) ELSE r$ = MID$(r$, 5)
IF r$ = "oeil" THEN w$ = "yeux": GOTO plu1
DR$ = RIGHT$(r$, 1)
IF DR$ = "s" OR DR$ = "x" OR DR$ = "z" THEN w$ = r$: GOTO plu1
DR$ = RIGHT$(r$, 2)
IF DR$ = "ou" THEN g = 1
IF DR$ = "al" THEN g = 2
IF DR$ = "au" THEN g = 3
IF DR$ = "eu" THEN g = 4
IF RIGHT$(r$, 3) = "ail" THEN g = 5
SELECT CASE g

CASE 0
w$ = r$ + "s"

CASE 1
IF r$ = "bijou" OR r$ = "caillou" OR r$ = "genou" OR r$ = "chou" OR r$ = "hibou" OR r$ = "joujou" OR r$ = "pou" THEN w$ = r$ + "x" ELSE w$ = r$ + "s"

CASE 2
IF r$ = "bal" OR r$ = "carnaval" OR r$ = "chacal" OR r$ = "festival" OR r$ = "récital" OR r$ = "régal" THEN w$ = r$ + "s" ELSE w$ = (LEFT$(r$, LEN(r$) - 2)) + "aux"

CASE 3
IF r$ = "landau" THEN w$ = r$ + "s" ELSE w$ = r$ + "x"

CASE 4
IF r$ = "pneu" OR r$ = "bleu" THEN w$ = r$ + "s" ELSE w$ = r$ + "x"

CASE 5
IF r$ = "travail" OR r$ = "émail" OR r$ = "soupirail" OR r$ = "corail" OR r$ = "vitrail" OR r$ = "bail" OR r$ = "ventail" THEN w$ = LEFT$(r$, LEN(r$) - 3) + "aux" ELSE w$ = r$ + "s"

END SELECT

plu1:
CALL niv(10, ii)
COLOR , noir
LOCATE 23: PRINT SPACE$(80)
CALL centre(23, blanc, "Tape le nom")
COLOR noir, blanc
LOCATE 13, 49: PRINT "des "; : CALL inputgen(11, rp$, 65, 165, noir, blanc)

COLOR , noir
IF rp$ = w$ THEN
CALL exact2
IF cc = 0 THEN re = re + 1
ELSE
cc = cc + 1
IF cc < 3 THEN
t$ = RIGHT$(rp$, 1)
IF t$ = "x" OR t$ = "s" OR t$ = "z" THEN
CALL erreur2
ELSE
CALL centre(23, rougeclair, "Accord : x, s ou rien")
CALL attendre(2)
LOCATE 23, 1: PRINT SPACE$(80)
END IF
ELSE
CALL solution(w$)
END IF
GOTO plu1
END IF
cc = 0
NEXT ii '+++++++++

IF re < 0 THEN re = 0
CALL resultats(re, ni, 4)
END SUB

DEFINT A-Z
SUB pluriel2 (ni, re, rt$, gg2$, pre$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
DIM ph$(6), ph2$(6)
'20/5/96
'niveau 3 & 4

re = 0
CALL accordnom(re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)

'présentation
IF ni = 3 THEN
w$ = "Dans trois petits textes, les accords des noms vont être effacés."
ELSE
w$ = "Dans un texte, les accords des noms vont être effacés."
END IF
z$ = "Tu devras les retaper."
CALL consigne(2, w$, z$, y$)

'espace à la fin
'la bonne réponse est dans ph2$()

'niveau 3
ph$(1) = "Tous les trois jour, il va faire les course au supermarché de sa ville. Il achète tous les produit dont il a besoin. "
ph2$(1) = "Tous les trois jours, il va faire les courses au supermarché de sa ville. Il achète tous les produits dont il a besoin. "

ph$(2) = "L'enfant joue avec les crayon de couleur. Il dessine des rond, des carré, des rectangle, des forme bizarres puis il les colorie. "
ph2$(2) = "L'enfant joue avec les crayons de couleur. Il dessine des ronds, des carrés, des rectangles, des formes bizarres puis il les colorie. "

ph$(3) = "Pendant les vacance, Mélanie part avec ses amie visiter des château, des église, des village. Elle a l'intention de prendre beaucoup de photographie. "
ph2$(3) = "Pendant les vacances, Mélanie part avec ses amies visiter des châteaux, des églises, des villages. Elle a l'intention de prendre beaucoup de photographies. "

'niveau 4 - 3 phrases
'Le petit chose - A. Daudet
ph$(4) = "Le collège me sembla immense... D'interminables corridor, de grands porche, de larges escalier avec des rampe de fer ouvragé... Tout cela vieux, noir, enfumé... "
ph$(4) = ph$(4) + "Le portier m'apprit que cette école avait compté jusqu'à huit cents élève, tous de la plus grande noblesse. "
ph2$(4) = "Le collège me sembla immense... D'interminables corridors, de grands porches, de larges escaliers avec des rampes de fer ouvragé... Tout cela vieux, noir, enfumé... "
ph2$(4) = ph2$(4) + "Le portier m'apprit que cette école avait compté jusqu'à huit cents élèves, tous de la plus grande noblesse. "
'C. Dillard
ph$(5) = "Sibérie a toujours froid. Le plus souvent, il n'enlève pas son manteau ; ni son écharpe d'ailleurs ; ni ses chaussette en laine épaisse, ni ses chaussure fourrées à l'intérieur. "
ph$(5) = ph$(5) + "Canicule a toujours chaud. Le plus souvent, elle ne porte qu'une robe légère de coton, une culotte et un maillot de corps de coton sous sa robe, des socquette en coton et des sandale. "
ph2$(5) = "Sibérie a toujours froid. Le plus souvent, il n'enlève pas son manteau ; ni son écharpe d'ailleurs ; ni ses chaussettes en laine épaisse, ni ses chaussures fourrées à l'intérieur. "
ph2$(5) = ph2$(5) + "Canicule a toujours chaud. Le plus souvent, elle ne porte qu'une robe légère de coton, une culotte et un maillot de corps de coton sous sa robe, des socquettes en coton et des sandales. "
'Zadig - Voltaire
ph$(6) = "Les voilà tous les deux dans l'arène, livrant un nouveau combat, où la force et l'agilité triomphent tour à tour. Les plume de leur casque, les clou de leurs brassard, les maille de leur armure "
ph$(6) = ph$(6) + "sautent au loin sous mille coup précipités. Ils frappent de pointe et de taille, à droite, à gauche, sur la tête, sur la poitrine. Ils s'attaquent comme des lion. "
ph2$(6) = "Les voilà tous les deux dans l'arène, livrant un nouveau combat, où la force et l'agilité triomphent tour à tour. Les plumes de leur casque, les clous de leurs brassards, les mailles de leur armure "
ph2$(6) = ph2$(6) + "sautent au loin sous mille coups précipités. Ils frappent de pointe et de taille, à droite, à gauche, sur la tête, sur la poitrine. Ils s'attaquent comme des lions. "

IF ni = 3 THEN
FOR ii = 1 TO 3
m$ = ph$(ii)
er = 0
m2$ = ph2$(ii)
phrase$ = "Avec les flèches, déplace le curseur là où tu veux faire les accords."
CALL traitementtexte(m$, m2$, phrase$, resultat, rt$, gg2$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
re = re + resultat
NEXT
re = INT(re / 3)
ELSE
ii = INT(RND * 3) + 4
m$ = ph$(ii)
er = 0
m2$ = ph2$(ii)
phrase$ = "Avec les flèches, déplace le curseur là où tu veux faire les accords."
CALL traitementtexte(m$, m2$, phrase$, re, rt$, gg2$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
END IF

IF re < 0 THEN re = 0
CALL resultats(re, ni, 4)

END SUB

DEFINT A-Z
SUB tempsv (re, ni, h(), l(), s(), ppf(), sc(), rt$, gg$, gg2$, pre$, titr$, prog, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'1/5/96
'h, l , s ,ppf et sc sont en data
DIM p$(10), z(10), p2$(3), p3$(2), ph$(36)



p$(1) = "présent": p$(2) = "imparfait": p$(3) = "futur 1": p$(4) = "futur 2"
p$(5) = "passé simple": p$(6) = "passé composé": p$(7) = "plus que parfait"
p$(8) = "futur antérieur": p$(9) = "passé antérieur": p$(10) = "impératif"

p2$(1) = "Passé": p2$(2) = "Présent": p2$(3) = "Futur"
p3$(1) = "Temps simple": p3$(2) = "Temps composé"
LT$ = STRING$(20, "─")

ph$(1) = "Les enfants jouent dans la cour pendant la récréation."
ph$(2) = "En ce moment, il se repose chez lui."
ph$(3) = "Je réfléchis à ce problème difficile."
ph$(4) = "Veux-tu t'asseoir près de lui ?"
ph$(5) = "Nous voyons le bateau disparaître à l'horizon."
ph$(6) = "Elle effaçait rapidement le tableau."
ph$(7) = "On construisait un nouvel immeuble dans sa citée."
ph$(8) = "Ils vérifiaient les réglages du moteur."
ph$(9) = "Tu multipliais le résultat par quatre pour trouver la solution."
ph$(10) = "L'artisan clouait, dans son atelier, ses planches avec soin."
ph$(11) = "On pourra aller à la piscine vendredi soir."
ph$(12) = "Ils calculeront rapidement leurs opérations."
ph$(13) = "Elle me donnera son adresse pour que je puisse lui écrire."
ph$(14) = "L'enfant copiera ses devoirs sur son cahier de textes."
ph$(15) = "L'élève va finir son dessin très rapidement."
ph$(16) = "Tu vas chercher ton vélo dans le garage."
ph$(17) = "Tu vas partir bientôt en vacances au bord de la mer."
ph$(18) = "Ils voulurent le mettre dehors."
ph$(19) = "Florian eut froid aux mains pendant sa randonnée."
ph$(20) = "Les supporters allèrent au stade voir le match de rugby."
ph$(21) = "J'ai pris ta valise pour la ranger."
ph$(22) = "Nous avons mis des jolies fleurs dans le vase."
ph$(23) = "Vous êtes allés au centre commercial faire vos courses."
ph$(24) = "Les deux enfants avaient menti à leur maîtresse."
ph$(25) = "Chez le libraire, tu avais acheté trois livres."
ph$(26) = "Les voyageurs étaient descendus du train à Dijon."
ph$(27) = "Dès que j'aurai fini ce travail, je viendrai te rejoindre."
ph$(28) = "Aussitôt que tu l'auras vu, tu le reconnaîtras."
ph$(29) = "Lorsque l'élève aura planté sa graine, il l'arrosera."
ph$(30) = "Quand le grand père eut mangé, il s'endormit."
ph$(31) = "Sois gentil !"
ph$(32) = "Viens ici !"
ph$(33) = "Ecoutez bien !"
ph$(34) = "Repose-toi !"
ph$(35) = "Change tes affaires de place."
ph$(36) = "Ramasse ton manteau !"

re! = 0: cc = 0

CALL niveau(ni, 2)

COLOR , bleu: CLS

IF ni = 1 THEN
'rappel
LOCATE 4, 3: COLOR jaune: PRINT "Rappel"
CALL cadre(5, 2, 75, 14, rouge)
COLOR blanc, rouge
LOCATE 6
LOCATE , 18: PRINT "│"
FOR i = 1 TO 5
LOCATE , 18: PRINT "│"
LOCATE , 3: PRINT STRING$(15, "─") + "┼" + STRING$(59, "─")
NEXT
LOCATE , 18: PRINT "│"
LOCATE , 18: PRINT "│"

LOCATE 7: h = 20
COLOR jaune, rouge: LOCATE , 4: PRINT "Présent"; : COLOR blancbrill
LOCATE , h: PRINT "je chante, je finis, je vends, je suis, j'ai"
LOCATE 9
COLOR jaune: LOCATE , 4: PRINT "Imparfait"; : COLOR blancbrill
LOCATE , h: PRINT "je chantais, je finissais, je vendais, j'étais, j'avais"
LOCATE 11
COLOR jaune: LOCATE , 4: PRINT "Futur 1"; : COLOR blancbrill
LOCATE , h: PRINT "je chanterai, je finirai, je vendrai, je serai, j'aurai"
LOCATE 13
COLOR jaune: LOCATE , 4: PRINT "Futur 2"; : COLOR blancbrill
LOCATE , h: PRINT "je vais chanter, je vais finir, je vais être"
LOCATE 15
COLOR jaune: LOCATE , 4: PRINT "Passé simple"; : COLOR blancbrill
LOCATE , h: PRINT "je chantai, je finis, je vendis, je fus, j'eus"
LOCATE 17
COLOR jaune: LOCATE , 4: PRINT "Passé composé"; : COLOR blancbrill
LOCATE , h: PRINT "j'ai chanté, j'ai fini, j'ai vendu, j'ai été, j'ai eu"

ELSE
'rappel
LOCATE 5, 3: COLOR jaune: PRINT "Rappel"
CALL cadre(6, 2, 75, 13, rouge)
COLOR blanc, rouge
LOCATE 7
LOCATE , 21: PRINT "│"
FOR i = 1 TO 3
LOCATE , 21: PRINT "│"
LOCATE , 3: PRINT STRING$(18, "─") + "┼" + STRING$(56, "─")
NEXT
LOCATE , 21: PRINT "│"
LOCATE , 21: PRINT "│"
LOCATE , 3: PRINT STRING$(18, "═") + "┼" + STRING$(56, "═")
LOCATE , 21: PRINT "│"
LOCATE , 21: PRINT "│"
LOCATE 8: h = 23
COLOR jaune, rouge: LOCATE , 4: PRINT "Passé composé"; : COLOR blancbrill
LOCATE , h: PRINT "j'ai chanté, j'ai fini, j'ai été, j'ai eu"
LOCATE 10
COLOR jaune: LOCATE , 4: PRINT "Plus que parfait"; : COLOR blancbrill
LOCATE , h: PRINT "j'avais chanté, j'avais fini, j'avais été, j'avais eu"
LOCATE 12
COLOR jaune: LOCATE , 4: PRINT "Futur antérieur"; : COLOR blancbrill
LOCATE , h: PRINT "j'aurai chanté, j'aurai fini, j'aurai été, j'aurai eu"
LOCATE 14
COLOR jaune: LOCATE , 4: PRINT "Passé antérieur"; : COLOR blancbrill
LOCATE , h: PRINT "j'eus chanté, j'eus fini, j'eus été, j'eus eu"
LOCATE 17
COLOR jaune: LOCATE , 4: PRINT "Impératif"; : COLOR blancbrill
LOCATE , h: PRINT "chante, finis, vends"

END IF
CALL getinvimouse(w)
CALL titre

FOR ii = 1 TO 10 '+++++++++
CALL niv(10, ii)
DO
DO
f = 0
z(ii) = INT(RND * 36) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
n = z(ii)
LOOP WHILE ni = 1 AND s(n) > 6 'au niveau 1, 6 temps
CALL cadre(5, 2, 75, 4, blanc)
COLOR , blanc
CALL centre(7, noir, ph$(n))
COLOR noir
LOCATE 8, (INT(41 - LEN(ph$(n)) / 2)) + h(n) - 1: PRINT MID$(LT$, 1, l(n))


IF ni = 1 THEN
CALL cadre(11, 7, 11, 4, rouge)
CALL cadre(11, 28, 17, 3, rouge)
CALL cadre(11, 55, 17, 7, rouge)
ELSE
CALL cadre(11, 2, 11, 4, rouge)
CALL cadre(11, 18, 17, 3, rouge)
CALL cadre(11, 40, 38, 6, rouge)
END IF

'passe present futur ?
DO
DO
IF ni = 1 THEN
CALL cadre(11, 7, 11, 4, rouge)
CALL fleches(12, 10, p2$(), 3, r, rouge, 0, 23, 35)
ELSE
CALL cadre(11, 2, 11, 4, rouge)
CALL fleches(12, 5, p2$(), 3, r, rouge, 0, 23, 35)
END IF
IF r = 0 THEN CALL quitter(noir, noir)
LOOP WHILE r = 0

IF r = ppf(n) THEN
CALL exact2
ELSE
CALL erreur2
re! = re! - .5
END IF
LOOP WHILE r <> ppf(n)

'simple ou composé ?
IF sc(n) <> 0 THEN
DO
DO
CALL centre(23, blanc, gg$)
IF ni = 1 THEN
CALL cadre(11, 28, 17, 3, rouge)
CALL fleches(12, 31, p3$(), 2, r, rouge, 0, 23, 35)
ELSE
CALL cadre(11, 18, 17, 3, rouge)
CALL fleches(12, 21, p3$(), 2, r, rouge, 0, 23, 35)
END IF
IF r = 0 THEN CALL quitter(noir, noir)
LOOP WHILE r = 0

IF r = sc(n) THEN
CALL exact2
ELSE
CALL erreur2
re! = re! - .5
END IF
LOOP WHILE r <> sc(n)
END IF

DO
IF ni = 1 THEN
CALL cadre(11, 55, 17, 7, rouge)
CALL fleches(12, 58, p$(), 6, r, rouge, 0, 23, 35)
ELSE
CALL centre(23, blanc, gg2$)
CALL cadre(11, 40, 38, 6, rouge)
COLOR blancbrill
CALL fleches2(12, 43, 5, 10, 61, p$(), r, rouge)
END IF

IF r = s(n) THEN
IF cc = 0 THEN re! = re! + 1
CALL exact2
ELSE
cc = cc + 1
IF cc < 2 THEN
CALL erreur2
ELSE
CALL solution(p$(s(n)))
END IF
END IF
LOOP WHILE r <> s(n)
cc = 0
NEXT ii '+++++++++++++=

re = INT(re!): IF re < 0 THEN re = 0
CALL resultats(re, ni, 2)

END SUB
 

 

DECLARE SUB niv (limit%, xx%)
DECLARE SUB accordpartpasse3 (re%, gg$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB accordpartpasse2 (re%, gg$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB accordadj (re%, gg$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB cadre (v%, h%, l%, nli%, c%)
DECLARE SUB erreur2 ()
DECLARE SUB exact2 ()
DECLARE SUB fleches (v%, h%, w$(), np%, r%, coul%, drap%, v2%, h2%)
DECLARE SUB inputgen (nl%, r$, deb%, fin%, x%, y%)
DECLARE SUB niveau (r%, np%)
DECLARE SUB quitter (x%, y%)
DECLARE SUB resultats (re%, ni%, nbniv%)
DECLARE SUB titre ()
DECLARE SUB consigne (nl%, w$, z$, y$)
DECLARE SUB getinvimouse (rr%)
DECLARE SUB ouinon (r$)
DECLARE SUB attendre (tx!)
DECLARE SUB centre (v%, coul%, ph$)
DECLARE SUB entree (x%, y%, drapeau%)
DECLARE SUB ligne23 (x%, y%)
DECLARE SUB traitementtexte (m$, m2$, phrase$, re%, rt$, gg2$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB solution (sol$)
DECLARE SUB MouseHide ()
'exo 5 Francais AAs
'version 1.0
'9/5/96


DEFINT A-Z
SUB accoadj (re%, ni%, adj$(), mp$(), fs$(), fp$(), rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'25/3/96
DIM z(10)
re = 0
CALL accordadj(re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)

'présentation
w$ = "Tu vas taper des adjectifs qualificatifs."
z$ = "Le genre et le nombre seront indiqués."
CALL consigne(2, w$, z$, y$)

IF ni = 2 THEN
nf = 30
ELSE
nf = 48
END IF
IF ni = 1 OR ni = 2 THEN GOSUB acniveau12
IF ni = 3 THEN GOSUB acniveau3

IF re < 0 THEN re = 0
CALL resultats(re, ni, 4)

EXIT SUB

acniveau12:
CALL titre

FOR ii = 1 TO 10 '+++++++++++
MouseHide
DO
DO
f = 0
z(ii) = INT(RND * nf) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
LOOP WHILE ni = 1 AND z(ii) < 31
x = z(ii)

CALL cadre(8, 15, 18, 8, rouge)
COLOR vertclair, rouge
LOCATE 10, 18: PRINT "Masculin": LOCATE , 18: PRINT "Singulier"
COLOR noir
LOCATE 12, 16: PRINT STRING$(18, "_")
COLOR jaune
LOCATE 14, 18: PRINT adj$(x)

DO
yy = INT(RND * 4) + 1
LOOP WHILE yy = 1

CALL cadre(8, 48, 18, 8, blanc)
COLOR noir, blanc
SELECT CASE yy
CASE 2
LOCATE 10, 51: PRINT "Masculin": LOCATE , 24 + 27: PRINT "Pluriel"
CASE 3
LOCATE 10, 51: PRINT "Féminin": LOCATE , 24 + 27: PRINT "Singulier"
CASE 4
LOCATE 10, 51: PRINT "Féminin": LOCATE , 24 + 27: PRINT "Pluriel"
END SELECT
LOCATE 12, 49: PRINT STRING$(18, "_")

acad2:
CALL niv(10, ii)
CALL ligne23(noir, noir)
CALL centre(23, blanc, "Tape l'adjectif")
LOCATE 14, 24 + 27
COLOR , blanc
CALL inputgen(14, r$, 65, 165, noir, blanc)
adj$ = adj$(x)
GOSUB acadtrait
COLOR , noir
IF re$ = r$ THEN
IF cc = 0 THEN re = re + 1
CALL exact2
ELSE
cc = cc + 1

IF cc < 3 THEN
IF MID$(adj$, 1, LEN(adj$) - 1) <> MID$(r$, 1, LEN(adj$) - 1) THEN
CALL centre(23, rougeclair, "Attention à l'orthographe")
CALL attendre(1.5)
ELSE
CALL erreur2
END IF
ELSE
CALL solution(re$)
END IF
GOTO acad2
END IF
cc = 0
NEXT ii '++++++++++++++

RETURN

acniveau3: 'niveau 3
CALL titre

FOR ii = 1 TO 4 '+++++++++
MouseHide
'tirage
DO
DO
f = 0
z(ii) = INT(RND * nf) + 1
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1

x = z(ii)
LOOP WHILE LEN(adj$(x)) > 7

CALL cadre(5, 18, 45, 13, blanc)
COLOR noir, blanc
LOCATE 7, 14 + 20: PRINT "┌────────────┬────────────┐"
LOCATE , 14 + 20: PRINT "│ │ │"
LOCATE , 14 + 20: PRINT "│ │ │"
LOCATE , 2 + 20: PRINT "┌───────────┼────────────┼────────────┤"
LOCATE , 2 + 20: PRINT "│ │ │ │"
LOCATE , 2 + 20: PRINT "│ │ │ │"
LOCATE , 2 + 20: PRINT "├───────────┼────────────┼────────────┤"
LOCATE , 2 + 20: PRINT "│ │ │ │"
LOCATE , 2 + 20: PRINT "│ │ │ │"
LOCATE , 2 + 20: PRINT "└───────────┴────────────┴────────────┘"
COLOR bleu
LOCATE 9, 17 + 20: PRINT "Singulier": LOCATE 9, 30 + 20: PRINT "Pluriel"
LOCATE 12, 5 + 20: PRINT "Masculin": LOCATE 15, 5 + 20: PRINT "Féminin"
COLOR noir
LOCATE 12, 17 + 20: PRINT adj$(x)

FOR yy = 2 TO 4

acad20:
CALL ligne23(noir, noir)
LOCATE 23, 77: COLOR vertclair: PRINT 5 - ii
CALL centre(23, blanc, "Tape l'adjectif")

SELECT CASE yy
CASE 2
LOCATE 12, 50
CASE 3
LOCATE 15, 37
CASE 4
LOCATE 15, 50
END SELECT

CALL inputgen(10, r$, 65, 165, noir, blanc)
COLOR , noir
adj$ = adj$(x)
GOSUB acadtrait

IF re$ = r$ THEN
IF cc = 0 THEN re = re + 1
CALL exact2
ELSE
cc = cc + 1

IF cc < 3 THEN
IF MID$(adj$, 1, LEN(adj$) - 1) <> MID$(r$, 1, LEN(adj$) - 1) THEN
CALL centre(23, rougeclair, "Attention à l'orthographe")
CALL attendre(1.5)
ELSE
CALL erreur2
END IF
ELSE
CALL solution(re$)
END IF
GOTO acad20
END IF
cc = 0
NEXT yy
CALL entree(noir, noir, 1)
NEXT ii '++++++++++++++
re = re - 2

RETURN

acadtrait:
IF x <= 10 THEN 'les solutions sont en data (10 premiers adjectifs)
IF yy = 1 THEN re$ = adj$
IF yy = 2 THEN re$ = mp$(x)
IF yy = 3 THEN re$ = fs$(x)
IF yy = 4 THEN re$ = fp$(x)

ELSE
IF yy = 1 THEN re$ = adj$
IF yy = 2 AND RIGHT$(adj$, 1) = "x" THEN re$ = adj$: GOTO acad1
IF yy = 2 AND RIGHT$(adj$, 2) = "al" THEN re$ = MID$(adj$, 1, LEN(adj$) - 2) + "aux": GOTO acad1
IF yy = 2 THEN re$ = adj$ + "s"
IF yy = 3 AND RIGHT$(adj$, 1) = "x" THEN re$ = MID$(adj$, 1, LEN(adj$) - 1) + "se": GOTO acad1
IF yy = 3 AND RIGHT$(adj$, 1) = "e" THEN re$ = adj$: GOTO acad1
IF yy = 3 THEN re$ = adj$ + "e"
IF yy = 4 AND RIGHT$(adj$, 1) = "x" THEN re$ = MID$(adj$, 1, LEN(adj$) - 1) + "ses": GOTO acad1
IF yy = 4 AND RIGHT$(adj$, 1) = "e" THEN re$ = adj$ + "s": GOTO acad1
IF yy = 4 THEN re$ = adj$ + "es"
acad1:

END IF
RETURN
END SUB

DEFINT A-Z
SUB accoadj2 (ni, re%, rt$, gg2$, pre$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DIM ph$(3), ph2$(3)
'20/5/96
'niveau 4
re = 0
CALL accordadj(re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)

'présentation
w$ = "Dans un texte, les accords des ajectifs vont être effacés."
z$ = "Tu devras les retaper."
CALL consigne(2, w$, z$, y$)

'espace à la fin
'la bonne réponse est dans ph2$()

'3 phrases
ph$(1) = "Emilie avait quinze ans. Elle était vraiment joli avec ses cheveux bouclé, ses grand yeux noir et ses joues coloré. "
ph2$(1) = "Emilie avait quinze ans. Elle était vraiment jolie avec ses cheveux bouclés, ses grands yeux noirs et ses joues colorées. "

ph$(2) = "Les jeune élèves de l'école ont fait une exposition : les peintures sont vert, bleu ou rouge. Les magnifique dessins émerveillent les parents. "
ph2$(2) = "Les jeunes élèves de l'école ont fait une exposition : les peintures sont vertes, bleues ou rouges. Les magnifiques dessins émerveillent les parents. "

ph$(3) = "Jacques a eu une peur bleu en entrant dans cette maison abandonné. Mais il se calme en se disant que les vilain fantômes n'existent pas ! "
ph2$(3) = "Jacques a eu une peur bleue en entrant dans cette maison abandonnée. Mais il se calme en se disant que les vilains fantômes n'existent pas ! "

ii = INT(RND * 3) + 1
m$ = ph$(ii)
er = 0
m2$ = ph2$(ii)
phrase$ = "Avec les flèches, déplace le curseur là où tu veux faire les accords."
CALL traitementtexte(m$, m2$, phrase$, re%, rt$, gg2$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

IF re < 0 THEN re = 0
CALL resultats(re, ni, 4)

END SUB

DEFINT A-Z
SUB accordpp4 (ni, re%, rt$, gg2$, pre$, titr$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DIM ph$(3), ph2$(3)
'20/5/96
'niveau 4

'présentation
w$ = "Dans un texte, les accords des participes passés vont être effacés."
z$ = "Tu devras les retaper."
CALL consigne(2, w$, z$, y$)

re = 0

'espace à la fin
'la bonne réponse est dans ph2$()

ph$(1) = "Le cirque a planté son chapiteau. Les programmes sont vendu par le clown. Les spectateurs sont placé par l'hôtesse. La salle est éclairé par de nombreux projecteurs. Le spectacle a duré deux heures. "
ph2$(1) = "Le cirque a planté son chapiteau. Les programmes sont vendus par le clown. Les spectateurs sont placés par l'hôtesse. La salle est éclairée par de nombreux projecteurs. Le spectacle a duré deux heures. "

ph$(2) = "Pauvre maison en loques, tassé, lézardé et branlante, raccommodé partout de bouts de planches et de plâtras ! "
ph$(2) = ph$(2) + "Vers le commencement du siècle, on se résigna à en remplacer le chaume par une toiture de petites ardoises, aujourd'hui pourri. "
ph2$(2) = "Pauvre maison en loques, tassée, lézardée et branlante, raccommodée partout de bouts de planches et de plâtras ! "
ph2$(2) = ph2$(2) + "Vers le commencement du siècle, on se résigna à en remplacer le chaume par une toiture de petites ardoises, aujourd'hui pourries. "

ph$(3) = "A vingt heures, maman est rentré du travail. Comme l'épicerie était fermé, nous n'avons pas pu faire des courses. Alors, nous sommes allé manger au restaurant. Nous nous sommes régalé ! "
ph2$(3) = "A vingt heures, maman est rentrée du travail. Comme l'épicerie était fermée, nous n'avons pas pu faire des courses. Alors, nous sommes allés manger au restaurant. Nous nous sommes régalés ! "

ii = INT(RND * 3) + 1
m$ = ph$(ii)
er = 0
m2$ = ph2$(ii)
phrase$ = "Avec les flèches, déplace le curseur là où tu veux faire les accords."
CALL traitementtexte(m$, m2$, phrase$, re%, rt$, gg2$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)

CALL resultats(re, ni, 4)

END SUB

DEFINT A-Z
SUB accpartpasse2 (re%, ni%, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'accord participe passé niveau 2 et 3
'au niveau 2 : différenciation entre être et avoir
'au niveau 3 : accord avec ou sans le COD
'15/5/96
re = 0
IF ni = 2 THEN
CALL accordpartpasse2(re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
ELSE
CALL accordpartpasse3(re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
END IF
DIM z(10), ph$(20), rep1$(20), p$(4), p2$(4), pp$(2)
pt$ = "--"
p$(1) = "--": p$(2) = "e-": p$(3) = "-s": p$(4) = "es"
p2$(1) = " ": p2$(2) = "e ": p2$(3) = " s": p2$(4) = "es"

'niveau 2 (être ou avoir sans cod)
ph$(1) = "Dans la cour, Christine est poursuivi" + pt$ + " par Claude."
rep1$(1) = "e "
ph$(2) = "Le jour de son anniversaire, ses amis ont mangé" + pt$ + " cinq gâteaux !"
rep1$(2) = " "
ph$(3) = "A cause de cette tempête, les agriculteurs ont perdu" + pt$ + " leurs récoltes."
rep1$(3) = " "
ph$(4) = "Les oiseaux se sont enfui" + pt$ + " à l'approche du chat."
rep1$(4) = " s"
ph$(5) = "A l'automne, toutes les feuilles de l'arbre sont tombé" + pt$ + "."
rep1$(5) = "es"
ph$(6) = "Les élèves de la classe ont inventé" + pt$ + " une histoire passionnante."
rep1$(6) = " "
ph$(7) = "Valentine a oublié" + pt$ + " ses chaussures dans le gymnase."
rep1$(7) = " "
ph$(8) = "Michel et Sabrina sont allé" + pt$ + " faire des courses au supermarché."
rep1$(8) = " s"
ph$(9) = "Toutes les fautes ont été corrigé" + pt$ + " par le maître."
rep1$(9) = "es"
ph$(10) = "Les freins de cette voiture sont assisté" + pt$ + "."
rep1$(10) = " s"

'niveau 3 (avoir et cod)
ph$(11) = "Cet enfant a lu plusieurs livres puis il les a rangé" + pt$ + "."
rep1$(11) = " s"
ph$(12) = "Florian cherchait ses clefs car il les avait perdu" + pt$ + "."
rep1$(12) = "es"
ph$(13) = "Tout l'après-midi, il avait écouté" + pt$ + " ses chansons favorites."
rep1$(13) = " "
ph$(14) = "Elle n'a rien appris. Elle n'a pas su" + pt$ + " répondre aux questions."
rep1$(14) = " "
ph$(15) = "Tu m'avais emprunté ces cassettes. Pourquoi ne me les as-tu pas rendu" + pt$ + " ?"
rep1$(15) = "es"
ph$(16) = "Les deux amies ont regardé" + pt$ + " un film historique vraiment intéressant."
rep1$(16) = " "
ph$(17) = "Son chien s'était sauvé. Il l'a cherché" + pt$ + " pendant plusieurs jours."
rep1$(17) = " "
ph$(18) = "Jérôme possède de nombreux timbres. Hier, il les a tous classé" + pt$ + " !"
rep1$(18) = " s"
ph$(19) = "Après avoir bricolé, ses mains étaient pleines de cambouis. Il les a lavé" + pt$ + "."
rep1$(19) = "es"
ph$(20) = "Son ami lui a offert une jolie bague dorée. Elle l'a mis" + pt$ + " à son doigt."
rep1$(20) = "e "

FOR ii = 1 TO 10
'tirage
DO
f = 0
IF ni = 2 THEN
z(ii) = INT(RND * 10) + 1
ELSE
z(ii) = INT(RND * 10) + 11
END IF
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
b = z(ii)

er = 0
DO
accpp1:
CALL titre
CALL niv(10, ii)

CALL cadre(7, 2, 75, 4, blanc)
COLOR , blanc
CALL centre(9, noir, ph$(b))

CALL fleches(14, 39, p$(), 4, rep, rouge, 1, 23, 35)

CALL titre
CALL cadre(9, 2, 75, 4, blanc)
COLOR , blanc
'afficher la phrase avec le verbe
ph$ = ph$(b)
s = INSTR(1, ph$, pt$) 'points
ph$ = MID$(ph$, 1, s - 1) + LTRIM$(RTRIM$(p2$(rep))) + MID$(ph$, s + LEN(pt$))
CALL centre(11, noir, ph$)

CALL cadre(5, 30, 20, 2, marron)
COLOR , marron
CALL centre(6, blancbrill, "Est-ce correct ?")

pp$(1) = "oui"
pp$(2) = "non"
COLOR , noir
CALL centre(23, blanc, gg$)
CALL fleches(17, 39, pp$(), 2, r, rouge, 1, 23, 35)

SELECT CASE r
CASE 1
flag = 1
CASE 2
flag = 0
END SELECT

IF flag = 0 THEN GOTO accpp1

COLOR , noir
LOCATE 23, 20: PRINT SPACE$(40)

IF p2$(rep) = rep1$(b) THEN
CALL exact2
IF er = 0 THEN re = re + 1
EXIT DO
ELSE
CALL erreur2
er = er + 1
END IF
LOOP

NEXT ii

CALL resultats(re, ni, 3)

END SUB

DEFINT A-Z
SUB afformate (m$(), nm, v, h, blanc, noir, bleu)

h2 = h
col = 80 - (h2 * 2)
IF h2 = 0 THEN h2 = 1
GOSUB nombreligne

IF h2 > 1 THEN
CALL cadre(v - 1, h2 - 2, col + 2, nl, blanc)
COLOR noir, blanc
ELSE
LOCATE v - 2
COLOR noir, blanc
FOR i = 1 TO nl + 1: PRINT SPACE$(80): NEXT
END IF

LOCATE v, h2, 0
i = 1: l2 = 0

DO
l = LEN(m$(i))
l2 = l2 + l
IF l2 > col THEN
PRINT : i = i - 1: l2 = 0
LOCATE , h2
ELSEIF l2 = col THEN
PRINT m$(i); : l2 = 0
IF h2 > 1 THEN PRINT : LOCATE , h2
ELSEIF l2 = col - 1 THEN
PRINT m$(i): l2 = 0
LOCATE , h2
ELSE
PRINT m$(i); " "; : l2 = l2 + 1
END IF
i = i + 1
LOOP WHILE i <= nm
PRINT
EXIT SUB

nombreligne:
COLOR bleu, bleu
LOCATE v, h2, 0
i = 1: l2 = 0

DO
l = LEN(m$(i))
l2 = l2 + l
IF l2 > col THEN
PRINT : i = i - 1: l2 = 0
LOCATE , h2
ELSEIF l2 = col THEN
PRINT m$(i); : l2 = 0
IF h2 > 1 THEN PRINT : LOCATE , h2
ELSEIF l2 = col - 1 THEN
PRINT m$(i): l2 = 0
LOCATE , h2
ELSE
PRINT m$(i); " "; : l2 = l2 + 1
END IF
i = i + 1
LOOP WHILE i <= nm
ligne = CSRLIN
nl = ligne - v + 2

RETURN


END SUB

DEFINT A-Z
SUB homonymes (re%, ni%, rt$, gg$, pre$, titr$, prog%, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'20/2/96
re = 0
DIM z(10), ve$(2), ph$(20), rep1$(20), rep2$(20), rep3$(20), rep4$(20), p$(2)
pt$ = " " + STRING$(3, CHR$(22)) + " "
titr$ = "homonymes grammaticaux"


ph$(1) = "Ce matin, Frédéric" + pt$ + "étudié son encyclopédie." 'a
rep1$(1) = "a": rep2$(1) = "à": rep3$(1) = "1": rep4$(1) = "a -> avait à -> préposition"
ph$(2) = "Dans quelques jours, les touristes arriveront" + pt$ + "Paris." 'à
rep1$(2) = "a": rep2$(2) = "à": rep3$(2) = "2": rep4$(2) = rep4$(1)
ph$(3) = "Maxime achètera des livres" + pt$ + "des disques pour son père." 'ou
rep1$(3) = "ou": rep2$(3) = "où": rep3$(3) = "1": rep4$(3) = "ou -> ou bien où -> lieu"
ph$(4) = "Quelque soit l'endroit" + pt$ + "il se trouve, je le retrouverai." 'où
rep1$(4) = "ou": rep2$(4) = "où": rep3$(4) = "2": rep4$(4) = rep4$(3)
ph$(5) = "Viens ici" + pt$ + "écoute moi !" 'et
rep1$(5) = "et": rep2$(5) = "est": rep3$(5) = "1": rep4$(5) = "et -> et puis est -> était"
ph$(6) = "Il" + pt$ + "très tard. Il va falloir rentrer chez toi." 'est
rep1$(6) = "et": rep2$(6) = "est": rep3$(6) = "2": rep4$(6) = rep4$(5)
ph$(7) = "Nicolas a oublié" + pt$ + "sac de piscine dans un vestiaire." 'son
rep1$(7) = "son": rep2$(7) = "sont": rep3$(7) = "1": rep4$(7) = "son -> le sien sont -> étaient"
ph$(8) = "Mélanie et Christine" + pt$ + "allées visiter une exposition." 'sont
rep1$(8) = "son": rep2$(8) = "sont": rep3$(8) = "2": rep4$(8) = rep4$(7)
ph$(9) = "A l'automne," + pt$ + "observera une chute sensible des températures." 'on
rep1$(9) = "on": rep2$(9) = "ont": rep3$(9) = "1": rep4$(9) = "on -> il ont -> avaient"
ph$(10) = "Ils" + pt$ + "fait une magnifique balade dans la forêt." 'ont
rep1$(10) = "on": rep2$(10) = "ont": rep3$(10) = "2": rep4$(10) = rep4$(9)

'
ph$(11) = "Tout le monde est tombé d'accord pour adorer" + pt$ + "film."'ce
rep1$(11) = "ce": rep2$(11) = "se": rep3$(11) = "1": rep4$(11) = "ce -> cela se -> accompagne un verbe"
ph$(12) = "Hélène et Mélanie" + pt$ + "haïssent vraiment beaucoup." 'se
rep1$(12) = "ce": rep2$(12) = "se": rep3$(12) = "2": rep4$(12) = rep4$(11)
ph$(13) = "Françoise écoute les oiseaux qui vivent dans" + pt$ + "haies." 'ces
rep1$(13) = "ces": rep2$(13) = "ses": rep3$(13) = "1": rep4$(13) = "ces -> ce ses -> son"
ph$(14) = "De retour de vacances, Pauline regarde attentivement" + pt$ + "photos." 'ses
rep1$(14) = "ces": rep2$(14) = "ses": rep3$(14) = "2": rep4$(14) = rep4$(13)
ph$(15) = "Il fait nuit. L'enfant marche" + pt$ + "de son père car il n'est pas rassuré." 'près
rep1$(15) = "près": rep2$(15) = "prêt": rep3$(15) = "1": rep4$(15) = "près -> à côté de prêt -> prête"
ph$(16) = "Es-tu" + pt$ + "? Bien, alors allons y !" 'prêt
rep1$(16) = "près": rep2$(16) = "prêt": rep3$(16) = "2": rep4$(16) = rep4$(15)
ph$(17) = "Hier soir," + pt$ + "toi qui me l'avais appris. Ne dis pas le contraire !" 'c'est
rep1$(17) = "c'est": rep2$(17) = "s'est": rep3$(17) = "1": rep4$(17) = "c'est -> c'était s'est -> s'était + participe passé"
ph$(18) = "Guillaume" + pt$ + "perdu encore une fois dans les couloirs du métro !" 's'est
rep1$(18) = "c'est": rep2$(18) = "s'est": rep3$(18) = "2": rep4$(18) = rep4$(17)
ph$(19) = "C'est" + pt$ + "qu'il habitait avant que les policiers découvrent son repaire." 'là
rep1$(19) = "là": rep2$(19) = "l'a": rep3$(19) = "1": rep4$(19) = "là -> ici l'a -> l'avais ou l'avait"
ph$(20) = "Nadège a envoyé le ballon très haut et Martine" + pt$ + "rattrapé de justesse." 'l'a
rep1$(20) = "là": rep2$(20) = "l'a": rep3$(20) = "2": rep4$(20) = rep4$(19)

'niveau
CALL niveau(ni, 2)

CALL titre

FOR ii = 1 TO 10
'tirage
DO
f = 0
IF ni = 1 THEN
z(ii) = INT(RND * 10) + 1
ELSE
z(ii) = INT(RND * 10) + 11
END IF
FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
b = z(ii)

ve$(1) = rep1$(b): ve$(2) = rep2$(b)

er = 0

DO
tlt1:
CALL titre
CALL niv(10, ii)
CALL cadre(7, 2, 75, 4, blanc)
COLOR , blanc
CALL centre(9, noir, ph$(b))

COLOR , noir
'trouver longueur mot max
l2 = 0
FOR i = 1 TO 2
l1 = LEN(ve$(i)): IF l2 < l1 THEN l2 = l1
NEXT
h = INT(41 - (l2 / 2))

CALL fleches(16, h, ve$(), 2, rep, rouge, 1, 23, 35)

CALL titre
CALL cadre(9, 2, 75, 4, blanc)
'afficher la phrase avec le verbe
ph$ = ph$(b)
s = INSTR(1, ph$, pt$) 'points
ph$ = MID$(ph$, 1, s - 1) + " " + ve$(rep) + " " + MID$(ph$, s + LEN(pt$))
COLOR , blanc
CALL centre(11, noir, ph$)

CALL cadre(4, 30, 20, 2, marron)
COLOR , marron
CALL centre(5, blancbrill, "Est-ce correct ?")

p$(1) = "oui"
p$(2) = "non"
COLOR , noir
CALL centre(23, blanc, gg$)
CALL fleches(17, 39, p$(), 2, r, rouge, 1, 23, 35)

SELECT CASE r
CASE 1
flag = 1
CASE 2
flag = 0
END SELECT

IF flag = 0 THEN GOTO tlt1

COLOR , noir
LOCATE 23, 20: PRINT SPACE$(40)

IF rep = VAL(rep3$(b)) THEN
CALL exact2
IF er = 0 THEN re = re + 1
EXIT DO
ELSE
CALL erreur2
CALL centre(23, rougeclair, rep4$(b))
CALL getinvimouse(w)
LOCATE 23, 1: PRINT SPACE$(80)
er = er + 1
END IF
LOOP

NEXT ii

CALL resultats(re, ni, 2)

END SUB
 

 

DECLARE SUB fleches (v%, h%, w$(), np%, r%, coul%, drap%, v2%, h2%)
DECLARE SUB consigne (nl%, w$, z$, y$)
DECLARE SUB fleches3 (r%, rr%, w$(), np%, jj%, gg$, gg2$)
DECLARE SUB MouseShow ()
DECLARE SUB cadre (v%, h%, l%, nli%, c%)
DECLARE SUB niveau (r%, np%)
DECLARE SUB resultats (re%, ni%, nbniv%)
DECLARE SUB afformate (m$(), nm%, v%, h%, blanc%, noir%, bleu%)
DECLARE SUB erreur2 ()
DECLARE SUB exact2 ()
DECLARE SUB quitter (x%, y%)
DECLARE SUB titre ()
DECLARE SUB getinvimouse (rr%)
DECLARE SUB ouinon (r$)
DECLARE SUB attendre (tx!)
DECLARE SUB centre (v%, coul%, ph$)
DECLARE SUB afficheformate (m$(), nm%)
DECLARE SUB pleinecran2 (r$, phrase$, m$, v1%, v2%, rt$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
DECLARE SUB recupere2 (m$, v1%, v2%)
DECLARE SUB transforme (m$)
DECLARE SUB trouvemot (m$, m$(), nm%)
DECLARE SUB MousePoll (row%, col%, lButton%, rButton%)
'Exo 6
'Daniel CLERC
'Francais AAS
'15/5/96


DEFINT A-Z
SUB afficheformate (m$(), nm)
i = 1: l2 = 0

DO
l = LEN(m$(i))
l2 = l2 + l
IF l2 > 80 THEN
PRINT : i = i - 1: l2 = 0
ELSEIF l2 = 80 THEN
PRINT m$(i); : l2 = 0
ELSEIF l2 = 80 - 1 THEN
PRINT m$(i): l2 = 0
ELSE
PRINT m$(i); " "; : l2 = l2 + 1
END IF
i = i + 1
LOOP WHILE i <= nm
PRINT

END SUB

DEFINT A-Z
SUB attendre (tx!)
tx! = tx! * 2
DEF SEG = 0
POKE 1050, PEEK(1052)
DEF SEG
debut! = TIMER
DO
fin! = TIMER
IF INKEY$ <> "" THEN EXIT DO
LOOP WHILE fin! - debut! < tx!
tx! = tx! / 2
END SUB

DEFINT A-Z
SUB cadre (v%, h%, l%, nli%, c)

'c est l'intérieur
'le fond écran est bleu

v2 = v

'cadre
COLOR c, 1

LOCATE v2, h
PRINT STRING$(l + 2, 220)
FOR i = 1 TO nli - 1
v2 = v2 + 1: LOCATE v2, h
PRINT STRING$(l + 2, 219)
NEXT

COLOR , 1
LOCATE v2 + 1, h: PRINT CHR$(223)

COLOR , 0
LOCATE v + 1
FOR i = 1 TO nli
LOCATE , h + l + 2
PRINT " "
NEXT
LOCATE v2 + 1, h + 1
PRINT STRING$(l + 1, 223)
COLOR 15

END SUB

DEFINT A-Z
SUB calmoy (t$(), moy$(), niveaux())
'29/3/95
debut = 1
FOR Valeur = 1 TO 21
fin = debut + (niveaux(Valeur) - 1)
GOSUB calcul
debut = fin + 1
NEXT

EXIT SUB

calcul:
tt = 0: nt = 0
FOR j = debut TO fin
IF t$(j) <> " " THEN tt = tt + VAL(t$(j)): nt = nt + 1
NEXT j
IF nt = 0 THEN moy$(Valeur) = "" ELSE moy$(Valeur) = LTRIM$(STR$(INT(INT(tt / nt) * 10) / 10))
RETURN
END SUB

DEFINT A-Z
SUB centre (v, coul, ph$)
COLOR coul
LOCATE v, INT(41 - LEN(ph$) / 2): PRINT ph$
COLOR 15
END SUB

DEFINT A-Z
SUB convertir (z$)
'convertir les . en ,
s = INSTR(1, z$, ".")
IF s <> 0 THEN z$ = MID$(z$, 1, s - 1) + "," + MID$(z$, s + 1)

END SUB

DEFINT A-Z
SUB entree (x, y, drapeau)
COLOR 7, x
LOCATE 23, 1: PRINT SPACE$(37) + CHR$(17) + CHR$(196) + CHR$(217) + SPACE$(40)
COLOR 15
DEF SEG = 0
POKE 1050, PEEK(1052)
DEF SEG
r$ = ""
DO
r$ = INKEY$
' Obtient l'emplacement de la souris et l'état des boutons.
MousePoll v_mouse, h_mouse, lButton, rButton
IF lButton THEN
r$ = CHR$(13)
CALL attendre(.5)
END IF
LOOP WHILE r$ = ""

IF LEN(r$) < 2 THEN rr = ASC(r$) ELSE rr = ASC(RIGHT$(r$, 1))

IF rr = 27 AND drapeau = 1 THEN
CALL quitter(x, y)
END IF
COLOR , y
END SUB

DEFINT A-Z
SUB fleches3 (r, rr, w$(), np, jj, gg$, gg2$)
'pour phrase éclatée francais 20/11/96
DIM p$(np)

FOR i = 1 TO np: p$(i) = w$(i): NEXT
l2 = 0
FOR i = 1 TO np
l1 = LEN(p$(i)): IF l2 < l1 THEN l2 = l1
NEXT
FOR i = 1 TO np
p$(i) = p$(i) + SPACE$(l2 - LEN(p$(i)))
NEXT

'données
souris = 0
ll = 6: v = 7: v_mini = v
r = 1: rr = 0
paire = 1
longueur = LEN(p$(1))

IF np <= ll THEN
h = 33: h1 = h: h2 = 0: h3 = 0
colonnes = 1
ll_dernier = np
ELSEIF np <= 2 * ll THEN
h = 22: h1 = h: h2 = 50: h3 = 0
ll = INT(np / 2)
IF np / 2 <> INT(np / 2) THEN paire = 0: ll = ll + 1
colonnes = 2
ll_dernier = np - ll
ELSE
h = 5: h1 = h: h2 = 33: h3 = 61
ll = INT(np / 3)
IF np / 3 <> INT(np / 3) THEN paire = 0: ll = ll + 1
colonnes = 3
ll_dernier = np - (2 * ll)
END IF

COLOR 15, 4

SELECT CASE colonnes
CASE 1
CALL cadre(v - 1, h1 - 2, longueur + 4, np + 1, 4)
COLOR , 4
LOCATE v
FOR i = 1 TO np: LOCATE , h1: PRINT p$(i): NEXT

CASE 2
CALL cadre(v - 1, h1 - 2, h2 - h1 + longueur + 4, ll + 1, 4)
COLOR , 4
LOCATE v
FOR i = 1 TO ll: LOCATE , h1: PRINT p$(i): NEXT
LOCATE v
FOR i = ll + 1 TO np: LOCATE , h2: PRINT p$(i): NEXT

CASE 3
z = h3 - h1 + longueur + 4
IF z + h1 >= 80 THEN z = 80 - h1
CALL cadre(v - 1, h1 - 2, z, ll + 1, 4)
COLOR , 4
LOCATE v
FOR i = 1 TO ll: LOCATE , h1: PRINT p$(i): NEXT
LOCATE v
FOR i = ll + 1 TO 2 * ll: LOCATE , h2: PRINT p$(i): NEXT
LOCATE v
FOR i = (2 * ll) + 1 TO np: LOCATE , h3: PRINT p$(i): NEXT
END SELECT

COLOR , 0
IF jj = 0 THEN
CALL centre(23, 7, SPACE$(10) + gg2$ + SPACE$(10))
flag = 1: htab = 33
ELSEIF np > 6 THEN
CALL centre(23, 7, gg2$ + " " + CHR$(27) + "- = Corriger")
flag = 2: htab = 23
ELSE
CALL centre(23, 7, " " + gg$ + " " + CHR$(27) + "- = Corriger ")
flag = 3: htab = 25
END IF
COLOR 15, 4

'fleches
COLOR 4, 7

LOCATE v, h - 1
PRINT " "; p$(1); " "
COLOR 15, 4

DO
DEF SEG = 0
POKE &H417, (PEEK(&H417) AND &H9F)'non numérique
POKE 1050, PEEK(1052)
DEF SEG

souris = 0
DO
r$ = INKEY$
' Obtient l'emplacement de la souris et l'état des boutons.
MousePoll v_mouse, h_mouse, lButton, rButton
'LOCATE 21, 1: PRINT v_mini, v_mini + ll - 1, longueur, ll, ll_dernier'===
' LOCATE 22, 1: PRINT "Position de la souris : "; v_mouse; ", "; h_mouse, flag '===
IF lButton THEN
IF v_mouse = 23 THEN
SELECT CASE flag
CASE 1
IF h_mouse = htab THEN
'fleche haut
rr = 72
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = htab + 2 THEN
'fleche bas
rr = 80
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = htab + 4 THEN
'fleche gauche
rr = 75
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = htab + 6 THEN
'fleche droite
rr = 77
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse >= htab + 13 AND h_mouse <= htab + 15 THEN
'entree
r$ = CHR$(13)
CALL attendre(.3)
souris = 0
EXIT DO
END IF

CASE 2
IF h_mouse >= 47 AND h_mouse <= 59 THEN
r$ = CHR$(8)
souris = 0
CALL attendre(.3)
EXIT DO

ELSEIF h_mouse = htab THEN
'fleche haut
rr = 72
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = htab + 2 THEN
'fleche bas
rr = 80
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = htab + 4 THEN
'fleche gauche
rr = 75
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = htab + 6 THEN
'fleche droite
rr = 77
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse >= htab + 13 AND h_mouse <= htab + 15 THEN
'entree
r$ = CHR$(13)
CALL attendre(.3)
souris = 0
EXIT DO
END IF

CASE 3
IF h_mouse >= 44 AND h_mouse <= 56 THEN
r$ = CHR$(8)
souris = 0
CALL attendre(.3)
EXIT DO

ELSEIF h_mouse = htab THEN
'fleche haut
rr = 72
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse = htab + 2 THEN
'fleche bas
rr = 80
CALL attendre(.3)
souris = 1
EXIT DO
ELSEIF h_mouse >= htab + 9 AND h_mouse <= htab + 11 THEN
'entree
r$ = CHR$(13)
CALL attendre(.3)
souris = 0
EXIT DO
END IF
END SELECT
END IF

IF v_mouse >= v_mini AND v_mouse <= v_mini + ll - 1 THEN

SELECT CASE colonnes
CASE 1
IF h_mouse >= h1 AND h_mouse <= h1 + longueur THEN
LOCATE v_mini
FOR i = 1 TO np
LOCATE , h1 - 1: PRINT " "; p$(i); " "
NEXT
calcul = v_mouse - v_mini + 1
LOCATE v_mouse, h1 - 1
COLOR 4, 7
PRINT " "; p$(calcul); " "
CALL attendre(.3)
COLOR 15, 4
r = calcul
EXIT SUB
END IF

CASE 2
IF (h_mouse >= h1 AND h_mouse <= h1 + longueur) OR (h_mouse >= h2 AND h_mouse <= h2 + longueur) THEN
IF v_mouse = v_mini + ll - 1 AND (h_mouse >= h2 AND h_mouse <= h2 + longueur) AND paire = 0 THEN
BEEP
ELSE
LOCATE v_mini
FOR i = 1 TO ll
LOCATE , h1 - 1: PRINT " "; p$(i); " "
NEXT
LOCATE v_mini
FOR i = ll + 1 TO np
LOCATE , h2 - 1: PRINT " "; p$(i); " "
NEXT
IF h_mouse < h2 THEN
calcul = v_mouse - v_mini + 1
LOCATE v_mouse, h1 - 1
ELSE
calcul = (v_mouse + ll) - v_mini + 1
LOCATE v_mouse, h2 - 1
END IF
COLOR 4, 7
PRINT " "; p$(calcul); " "
CALL attendre(.3)
COLOR 15, 4
r = calcul
EXIT SUB
END IF
END IF

CASE 3
IF (h_mouse >= h1 AND h_mouse <= h1 + longueur) OR (h_mouse >= h2 AND h_mouse <= h2 + longueur) OR (h_mouse >= h3 AND h_mouse <= h3 + longueur) THEN
IF v_mouse = v_mini + ll - 1 AND (h_mouse >= h3 AND h_mouse <= h3 + longueur) AND paire = 0 THEN
BEEP
ELSE
LOCATE v_mini
FOR i = 1 TO ll
LOCATE , h1 - 1: PRINT " "; p$(i); " "
NEXT
LOCATE v_mini
FOR i = ll + 1 TO ll * 2
LOCATE , h2 - 1: PRINT " "; p$(i); " "
NEXT
LOCATE v_mini
FOR i = (ll * 2) + 1 TO np
LOCATE , h3 - 1: PRINT " "; p$(i); " "
NEXT
IF h_mouse < h2 THEN
calcul = v_mouse - v_mini + 1
LOCATE v_mouse, h1 - 1
ELSEIF h_mouse < h3 THEN
calcul = (v_mouse + ll) - v_mini + 1
LOCATE v_mouse, h2 - 1
ELSE
calcul = (v_mouse + (2 * ll)) - v_mini + 1
LOCATE v_mouse, h3 - 1
END IF
COLOR 4, 7
PRINT " "; p$(calcul); " "
CALL attendre(.3)
COLOR 15, 4
r = calcul
EXIT SUB
END IF
END IF

END SELECT

ELSE
BEEP
END IF
END IF
LOOP WHILE r$ = ""

IF souris = 0 AND LEN(r$) < 2 THEN
rr = ASC(r$)
ELSEIF souris = 0 THEN
rr = ASC(RIGHT$(r$, 1))
END IF

SELECT CASE rr
CASE 27
r = 0: EXIT SUB

CASE 8
EXIT SUB

END SELECT

LOCATE v, h - 1
PRINT " "; p$(r); " "
GOSUB chedi
LOCATE v, h - 1
COLOR 4, 7
PRINT " "; p$(r); " "
COLOR 15, 4
LOOP WHILE rr <> 13
EXIT SUB

chedi:
IF colonnes = 1 THEN GOTO chedi1
IF rr = 75 THEN r = r - ll: h = h - 28: GOTO chedi2 'gauche
IF rr = 77 THEN r = r + ll: h = h + 28: GOTO chedi2 'droite
chedi1:
IF rr = 72 THEN v = v - 1: r = r - 1 'haut
IF rr = 80 THEN v = v + 1: r = r + 1 'bas
chedi2:
IF r = ll + 1 THEN v = v_mini: h = h2
IF r = ll THEN v = ll + (v_mini - 1): h = h1
IF r = 2 * ll + 1 THEN v = v_mini: h = h3
IF r = 2 * ll THEN v = ll + (v_mini - 1): h = h2
IF r > np THEN r = 1: v = v_mini: h = h1
IF r >= 1 THEN RETURN
r = np
IF np <= ll THEN v = (v_mini - 1) + np: RETURN
IF np <= 2 * ll THEN v = (v_mini - 1) + np - ll: h = h2: RETURN
v = (v_mini - 1 + np) - 2 * ll: h = h3
RETURN

END SUB

DEFINT A-Z
SUB getinvi (rr%)
DEF SEG = 0
POKE 1050, PEEK(1052)
DEF SEG
DO
r$ = INKEY$
LOOP WHILE r$ = ""
IF LEN(r$) < 2 THEN rr = ASC(r$) ELSE rr = ASC(RIGHT$(r$, 1))
END SUB

DEFINT A-Z
SUB ligne23 (x, y)
COLOR , x
LOCATE 23, 1, 0: PRINT SPACE$(80): LOCATE 23
COLOR , y
END SUB

DEFINT A-Z
SUB ouinon (r$)
h = POS(0)
v = CSRLIN

LOCATE v, h
COLOR 7: PRINT "["; : COLOR 14: PRINT "O"; : COLOR 7: PRINT "]ui ou ["; : COLOR 14: PRINT "N"; : COLOR 7: PRINT "]on ?"
DO
r$ = ""
DO
r$ = INKEY$
' Obtient l'emplacement de la souris et l'état des boutons.
MousePoll v_mouse, h_mouse, lButton, rButton
IF lButton THEN
IF v_mouse = v AND (h_mouse >= h AND h_mouse <= h + 5) THEN
r$ = "o"
CALL attendre(.3)
ELSEIF v_mouse = v AND (h_mouse >= h + 10 AND h_mouse <= h + 14) THEN
r$ = "n"
CALL attendre(.3)
ELSE
BEEP
END IF
END IF
LOOP WHILE r$ = ""

r$ = UCASE$(r$)
LOOP UNTIL r$ = "O" OR r$ = "N" OR r$ = CHR$(27) OR r$ = CHR$(13)

END SUB

DEFINT A-Z
SUB pleinecran2 (r$, phrase$, m$, v1, v2, rt$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
m$ = RTRIM$(m$)
'_saisie plein ecran_
f = -1: 'insertion
COLOR , noir
LOCATE 22: PRINT SPACE$(80): PRINT SPACE$(80)
CALL centre(22, vertclair, phrase$)
CALL centre(23, blanc, "Ret.Arr Suppr Inser Origine Fin " + CHR$(24) + " " + CHR$(25) + " " + CHR$(27) + " " + CHR$(26) + " " + rt$ + " = valider")
COLOR noir, blanc
VIEW PRINT v1 - 1 TO v2
v = v1: h = 1

plecran0:
CLS 2
plecran1:

LOCATE v1, 1, 0: PRINT m$
plecran2:
IF h < 1 THEN h = 1: BEEP
IF v < v1 THEN v = v1: BEEP
IF h > 80 THEN h = 1: v = v + 1

lc = h + (80 * (v - v1))
IF lc > LEN(m$) THEN 'fin texte
lc = LEN(m$) + 1
v = INT(LEN(m$) / 80)
h = (LEN(m$) - (80 * v)) + 1
v = v + v1
END IF

IF v = v2 AND h > 38 THEN h = 38

IF NOT f THEN LOCATE v, h, 1, 0, 7 ELSE LOCATE v, h, 1, 7

souris = 0
DO
r$ = INKEY$
MousePoll v_mouse, h_mouse, lButton, rButton
'LOCATE 8: PRINT v_mouse, h_mouse, v1, v2'===

IF lButton THEN
IF v_mouse >= v1 AND v_mouse <= v2 THEN
v = v_mouse: h = h_mouse
CALL attendre(.2)
souris = 1
EXIT DO
ELSEIF v_mouse = 23 THEN
IF h_mouse >= 61 AND h_mouse <= 73 THEN
r$ = CHR$(13)
CALL attendre(.3)
ELSEIF h_mouse >= 33 AND h_mouse <= 39 THEN
'origine
r2 = 71
CALL attendre(.2)
souris = 2
EXIT DO
ELSEIF h_mouse >= 43 AND h_mouse <= 45 THEN
'fin
r2 = 79
CALL attendre(.2)
souris = 2
EXIT DO
ELSEIF h_mouse = 49 THEN
'haut
r2 = 72
CALL attendre(.2)
souris = 2
EXIT DO
ELSEIF h_mouse = 51 THEN
'bas
r2 = 80
CALL attendre(.2)
souris = 2
EXIT DO
ELSEIF h_mouse = 53 THEN
'gauche
r2 = 75
CALL attendre(.2)
souris = 2
EXIT DO
ELSEIF h_mouse = 55 THEN
'droite
r2 = 77
CALL attendre(.2)
souris = 2
EXIT DO
ELSEIF h_mouse >= 25 AND h_mouse <= 28 THEN
'ins
r2 = 82
CALL attendre(.2)
souris = 2
EXIT DO
ELSEIF h_mouse >= 17 AND h_mouse <= 21 THEN
'suppr
r2 = 83
CALL attendre(.2)
souris = 2
EXIT DO
ELSEIF h_mouse >= 7 AND h_mouse <= 13 THEN
'del
r$ = CHR$(8)
CALL attendre(.2)
souris = 0
ELSE
BEEP
END IF
ELSE
BEEP
END IF
END IF
LOOP WHILE r$ = ""

IF souris = 1 THEN GOTO plecran2
IF souris = 2 THEN GOTO plecran4

IF r$ = CHR$(27) OR r$ = CHR$(13) THEN VIEW PRINT: LOCATE , , 0: EXIT SUB
IF LEN(r$) = 2 THEN GOTO plecran3
r2 = ASC(r$)

IF r2 > 31 AND r2 < 166 THEN
IF LEN(m$) > 399 THEN
BEEP
VIEW PRINT
COLOR , noir
LOCATE 23, 1, 0: PRINT SPACE$(80)
CALL centre(23, rougeclair, "Tu as tapé trop de caractères !")
CALL getinvimouse(w)
LOCATE 23, 1: PRINT SPACE$(80)
CALL centre(23, blanc, "Ret.Arr Suppr Inser Origine Fin " + CHR$(24) + " " + CHR$(25) + " " + CHR$(27) + " " + CHR$(26) + " " + rt$ + " = valider")
LOCATE , , 1
COLOR noir, blanc
VIEW PRINT v1 - 1 TO v2
GOTO plecran1
END IF
IF f THEN
m$ = MID$(m$, 1, lc - 1) + r$ + MID$(m$, lc)
ELSE
m$ = MID$(m$, 1, lc - 1) + r$ + MID$(m$, lc + 1)
END IF
h = h + 1
GOTO plecran1
END IF

IF r2 = 8 THEN 'delete
IF h = 1 AND v = v1 THEN GOTO plecran0
m$ = MID$(m$, 1, lc - 2) + MID$(m$, lc): h = h - 1
IF h < 1 AND v > v1 THEN h = 80: v = v - 1
GOTO plecran0
END IF

plecran3:
'carac étendu
r2 = ASC(RIGHT$(r$, 1))
plecran4:
IF r2 = 72 THEN v = v - 1 'haut
IF r2 = 80 THEN v = v + 1 'bas
IF r2 = 77 THEN h = h + 1 'droite
IF r2 = 71 THEN h = 1: GOTO plecran2 'home
IF r2 = 79 THEN h = 80: GOTO plecran2 'end
IF r2 = 73 THEN v = v1: h = 1: GOTO plecran2'pgup
IF r2 = 81 THEN v = v2: h = 80: GOTO plecran2'pgdown
IF r2 = 75 THEN h = h - 1: IF h < 1 AND v > v1 THEN h = 80: v = v - 1: GOTO plecran2 'gauche
IF r2 = 82 THEN f = NOT f: GOTO plecran0 'ins
IF r2 = 83 THEN 'suppr
m$ = MID$(m$, 1, lc - 1) + MID$(m$, lc + 1)
GOTO plecran0
END IF
GOTO plecran2

END SUB

DEFINT A-Z
SUB quitter (x, y)
'31/5/95
DIM c(80), x$(80)
f = 0
'on mémorise la zone quitter
LOCATE 23, 1, 0
COLOR 7, x
FOR i = 1 TO 80
x$(i) = CHR$(SCREEN(23, i))
c(i) = SCREEN(23, i, 1): IF c(i) > 15 THEN f = 1 'erreur à cause du fond
NEXT

LOCATE 23, 1: PRINT SPACE$(80)
MouseShow
LOCATE 23, 28
BEEP: PRINT "Quitter ";
CALL ouinon(r$)
IF r$ = "O" THEN COLOR , 0: CLS : RUN "exo_fr2" '===

'on restitue la zone quitter
LOCATE 23, 1
FOR i = 1 TO 80
IF f = 0 THEN
COLOR c(i)
END IF
PRINT x$(i);
NEXT
PRINT
COLOR 15, y
END SUB

DEFINT A-Z
SUB recupere2 (m$, v1, v2)
LOCATE 22, 1: COLOR , noir: PRINT SPACE$(80): COLOR , bleu
'_recuperation texte pour ponctuer_
m$ = ""
FOR y = v1 TO v2
FOR x = 1 TO 80
s = SCREEN(y, x)
m$ = m$ + CHR$(s)
NEXT x
NEXT y

IF LEFT$(m$, 355) = SPACE$(355) THEN m$ = CHR$(255): EXIT SUB
m$ = RTRIM$(m$): m$ = LTRIM$(m$)
m$ = m$ + " "

END SUB

DEFINT A-Z
SUB solution (sol$)
BEEP: COLOR , 0
LOCATE 23, 1: PRINT SPACE$(80)
CALL centre(23, 12, "Solution : " + sol$)
CALL attendre(2)
LOCATE 23, 1: PRINT SPACE$(80)
END SUB

DEFINT A-Z
SUB traitementtexte (m$, m2$, phrase$, re%, rt$, gg2$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
'17/5/96
DIM m$(100), m2$(100), p$(2)
er = 0

CALL titre
CALL trouvemot(m2$, m$(), nm)
LOCATE , , 0
CALL afformate(m$(), nm, 9, 10, blanc, noir, bleu)
COLOR , noir

CALL centre(23, blanc, "Lis le texte puis tape " + rt$)

CALL getinvimouse(w)

debtraittexte:
CALL titre
DO
CALL pleinecran2(r$, phrase$, m$, 9, 14, rt$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
IF r$ = CHR$(27) THEN CALL quitter(noir, bleu)
LOOP WHILE r$ = CHR$(27)

COLOR , noir
LOCATE 22, 1: PRINT SPACE$(80): PRINT SPACE$(80)
CALL recupere2(m$, 9, 14)

IF m$ = CHR$(255) THEN
BEEP: BEEP
CALL centre(23, rougeclair, "Tu as effacé tout le texte !")
CALL getinvimouse(w)
EXIT SUB
END IF

CALL titre
COLOR , bleu
CALL transforme(m$)
CALL trouvemot(m$, m$(), nm)

FOR i = 1 TO nm
l = LEN(m$(i))
IF l > 80 - 1 THEN
BEEP: LOCATE , , 0: COLOR , noir
CALL centre(23, rougeclair, "Tu as du supprimer trop d'espaces !")
COLOR blancbrill
CALL getinvimouse(r)
GOTO debtraittexte
END IF
NEXT i

LOCATE , , 0
CALL afformate(m$(), nm, 9, 10, blanc, noir, bleu)

CALL cadre(4, 30, 20, 2, marron)
COLOR , marron
CALL centre(5, blancbrill, "Est-ce correct ?")

p$(1) = "oui"
p$(2) = "non"
COLOR , noir
CALL centre(23, blanc, gg$)
CALL fleches(17, 39, p$(), 2, r, rouge, 1, 23, 35)

SELECT CASE r
CASE 1
flag = 1
CASE 2
flag = 0
END SELECT

LOCATE 23, 1: PRINT SPACE$(80)

IF flag = 0 THEN GOTO debtraittexte

IF m$ = m2$ THEN
CALL exact2
IF er = 0 THEN
re = 10
ELSEIF er = 1 THEN
re = 8
END IF
ELSE
CALL erreur2
er = er + 1
IF er > 1 THEN
'affichage des deux textes et resaisie
CALL titre
CALL trouvemot(m2$, m2$(), nm)
LOCATE 5, , 0: COLOR vertclair, bleu
CALL afficheformate(m2$(), nm)
COLOR rouge: LOCATE 11: PRINT STRING$(80, CHR$(196))
CALL trouvemot(m$, m$(), nm)

debtraittexte2:
COLOR blancbrill, bleu
DO
CALL pleinecran2(r$, phrase$, m$, 13, 19, rt$, noir%, bleu%, vert%, rouge%, marron%, blanc%, vertclair%, cyanclair%, rougeclair%, jaune%, blancbrill%)
IF r$ = CHR$(27) THEN CALL quitter(noir, bleu)
LOOP WHILE r$ = CHR$(27)

COLOR , noir
LOCATE 22, 1: PRINT SPACE$(80): PRINT SPACE$(80)
CALL recupere2(m$, 13, 19)

IF m$ = CHR$(255) THEN
BEEP: BEEP
CALL centre(23, rougeclair, "Tu as effacé tout le texte !")
CALL getinvimouse(w)
EXIT SUB
END IF

COLOR , bleu
CALL transforme(m$)
CALL trouvemot(m$, m$(), nm)

FOR i = 1 TO nm
l = LEN(m$(i))
IF l > 80 - 1 THEN
BEEP: LOCATE , , 0: COLOR , noir
CALL centre(23, rougeclair, "Tu as du supprimer trop d'espaces !")
COLOR blancbrill
CALL getinvimouse(r)
GOTO debtraittexte2
END IF
NEXT i

COLOR jaune, bleu
VIEW PRINT 12 TO 20: CLS 2: VIEW PRINT
LOCATE 13
CALL afficheformate(m$(), nm)
COLOR , noir
LOCATE 23, 1: PRINT SPACE$(80)

IF m$ = m2$ THEN
CALL exact2
re = 5
ELSE
CALL centre(23, rougeclair, "Compare les textes")
re = 3
CALL getinvimouse(w)
END IF
ELSE
CALL titre
CALL trouvemot(m2$, m$(), nm)
LOCATE 9, , 0: COLOR blancbrill, bleu
CALL afformate(m$(), nm, 9, 10, blanc, noir, bleu)
COLOR blanc, noir
CALL centre(23, blanc, "Relis le texte puis tape " + rt$)
CALL getinvimouse(w)
GOTO debtraittexte
END IF
END IF

END SUB

DEFINT A-Z
SUB transforme (m$)
'13/5/94
e$ = " ": GOSUB sup

e$ = "(": GOSUB avant
e$ = CHR$(34): GOSUB avant

e$ = CHR$(34): GOSUB apres
e$ = ")": GOSUB apres
e$ = ",": GOSUB apres
e$ = ".": GOSUB apres

e$ = ":": GOSUB avap
e$ = "!": GOSUB avap
e$ = "?": GOSUB avap
e$ = ";": GOSUB avap
e$ = "'": GOSUB avap '1° étape

GOSUB ctrl
GOSUB ctrl2
GOSUB ctrl3 '2° étape
GOSUB ctrl4

e$ = "! ! !": e2$ = "!!!": GOSUB ctrl5
e$ = "? ? ?": e2$ = "???": GOSUB ctrl5
e$ = ". . .": e2$ = "...": GOSUB ctrl5

EXIT SUB

apres:
l = 1: f = 0
DO
GOSUB espace
LOOP WHILE z <> 0
RETURN

espace:
z = INSTR(l, m$, e$): IF z = 0 THEN RETURN
IF e$ = CHR$(34) THEN f = f + 1
IF f / 2 <> INT(f / 2) AND e$ = CHR$(34) THEN l = z + 1: RETURN

IF ASC(MID$(m$, z + 1, 1)) <> 32 THEN m$ = MID$(m$, 1, z) + " " + MID$(m$, z + 1) 'pas espace après
IF z = 1 THEN l = z + 1: GOTO espace

IF ASC(MID$(m$, z - 1, 1)) = 32 THEN m$ = MID$(m$, 1, z - 2) + MID$(m$, z): 'espace avant
l = z + 1

RETURN

avant:
l = 1: f = 0
DO
GOSUB espace2
LOOP WHILE z <> 0
RETURN

espace2:
z = INSTR(l, m$, e$): IF z = 0 THEN RETURN
IF e$ = CHR$(34) THEN f = f + 1
IF f / 2 = INT(f / 2) AND e$ = CHR$(34) THEN l = z + 1: RETURN 'pair
IF ASC(MID$(m$, z + 1, 1)) = 32 THEN m$ = MID$(m$, 1, z) + MID$(m$, z + 2)'un espace après
IF z = 1 THEN GOTO esp2
IF ASC(MID$(m$, z - 1, 1)) <> 32 THEN m$ = MID$(m$, 1, z - 1) + " " + MID$(m$, z): z = z + 1 'pas d'espace
esp2:
l = z + 1
RETURN

avap:
l = 1
DO
GOSUB espace3
LOOP WHILE z <> 0
RETURN

espace3:
z = INSTR(l, m$, e$): IF z = 0 THEN RETURN
IF ASC(MID$(m$, z + 1, 1)) <> 32 THEN m$ = MID$(m$, 1, z) + " " + MID$(m$, z + 1)
IF z = 1 THEN l = z + 1: GOTO espace3
IF ASC(MID$(m$, z - 1, 1)) <> 32 THEN m$ = MID$(m$, 1, z - 1) + " " + MID$(m$, z) 'pas d'espace
l = z + 1
RETURN

sup:
l = 1
DO
GOSUB espace4
LOOP WHILE z <> LEN(m$)
RETURN

espace4:
z = INSTR(l, m$, e$): IF z = LEN(m$) THEN RETURN
IF ASC(MID$(m$, z + 1, 1)) = 32 THEN m$ = MID$(m$, 1, z) + MID$(m$, z + 2): RETURN
l = z + 1
RETURN

ctrl:
l = 1: f = 0
DO
GOSUB espace5
LOOP WHILE z <> 0
RETURN

espace5:
z = INSTR(l, m$, CHR$(34)): IF z = 0 THEN RETURN
f = f + 1
IF f / 2 <> INT(f / 2) THEN l = z + 1: RETURN
t$ = MID$(m$, z - 2, 2)
IF t$ = ". " OR t$ = "? " OR t$ = "! " OR t$ = ") " THEN
m$ = MID$(m$, 1, z - 2) + MID$(m$, z)
END IF
l = z + 1
RETURN

ctrl2:
l = 1
DO
GOSUB espace6
LOOP WHILE z <> 0
RETURN

espace6:
z = INSTR(l, m$, CHR$(34)): IF z = 0 THEN RETURN
IF z = 1 THEN l = z + 1: RETURN
t$ = MID$(m$, z - 2, 2)
IF t$ = "( " THEN
m$ = MID$(m$, 1, z - 2) + MID$(m$, z)
END IF
l = z + 1
RETURN

ctrl3:
l = 1
DO
GOSUB espace7
LOOP WHILE z <> 0
RETURN

espace7:
z = INSTR(l, m$, " ' "): IF z = 0 THEN RETURN
m$ = MID$(m$, 1, z - 1) + "'" + MID$(m$, z + 3)
l = z + 1
RETURN

ctrl4:
l = 1
DO
GOSUB espace8
LOOP WHILE z <> 0
RETURN

espace8:
z = INSTR(l, m$, ")"): IF z = 0 THEN RETURN
t$ = MID$(m$, z - 2, 2)
IF t$ = ". " OR t$ = "? " OR t$ = "! " THEN
m$ = MID$(m$, 1, z - 2) + MID$(m$, z)
END IF
l = z + 1
RETURN

ctrl5:
l = 1
DO
GOSUB espace9
LOOP WHILE z <> 0
RETURN

espace9:
z = INSTR(l, m$, e$): IF z = 0 THEN RETURN
m$ = MID$(m$, 1, z - 1) + e2$ + MID$(m$, z + 5)
l = z + 1
RETURN

END SUB

DEFINT A-Z
SUB tri (n$(), no)
FOR i = 1 TO no - 1
m = 0
FOR j = 1 TO no - i
IF n$(j + 1) < n$(j) THEN SWAP n$(j), n$(j + 1)
m = 1
NEXT j
IF m = 0 THEN EXIT FOR
NEXT i

END SUB

DEFINT A-Z
SUB trouvemot (m$, m$(), nm)
jl = 1: mm$ = ""
FOR il = 1 TO LEN(m$)
mm$ = mm$ + MID$(m$, il, 1)
IF ASC(MID$(m$, il, 1)) = 32 THEN m$(jl) = MID$(mm$, 1, LEN(mm$) - 1): mm$ = "": jl = jl + 1: IF LEN(m$(jl - 1)) = 0 THEN jl = jl - 1
NEXT
nm = jl - 1
END SUB
 

 

DECLARE SUB niv (limit%, xx%)
DECLARE SUB niveau (r%, np%)
DECLARE SUB resultats (re%, ni%, nbniv%)
DECLARE SUB consigne (nl%, w$, z$, y$)
DECLARE SUB getinvimouse (rr%)
DECLARE SUB fleches3 (r%, rr%, w$(), np%, jj%, gg$, gg2$)
DECLARE SUB quitter (x%, y%)
DECLARE SUB ouinon (r$)
DECLARE SUB centre (v%, coul%, ph$)
DECLARE SUB entree (x%, y%, drapeau%)
DECLARE SUB erreur2 ()
DECLARE SUB exact2 ()
DECLARE SUB fleches (v%, h%, w$(), np%, r%, coul%, drap%, v2%, h2%)
DECLARE SUB titre ()
DECLARE SUB cadre (v%, h%, l%, nli%, c%)

DEFINT A-Z
SUB accordadj (re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'18/1/97
DIM p$(4)
er = 0
CALL titre
CALL cadre(8, 5, 12, 4, rouge)
COLOR , rouge
LOCATE 9, 7: PRINT "Accord de"
LOCATE 10, 7: PRINT "l'adjectif"
COLOR jaune, bleu: LOCATE 7, 26: PRINT "avec..."
p$(1) = "le déterminant"
p$(3) = "le nom"
p$(2) = "le sujet"
DO
CALL fleches(9, 26, p$(), 3, r, rouge, 1, 23, 26)
IF r = 3 THEN
CALL exact2
EXIT DO
ELSE
CALL erreur2
er = er + 1
END IF
LOOP
COLOR jaune, bleu: LOCATE 7, 50: PRINT "comment..."
p$(3) = "en nombre"
p$(2) = "en genre et en nombre"
p$(1) = "personne, temps, groupe"
DO
CALL fleches(9, 50, p$(), 3, r, rouge, 1, 23, 50)
IF r = 2 THEN
CALL exact2
EXIT DO
ELSE
CALL erreur2
er = er + 1
END IF
LOOP

IF er > 1 THEN re = re - 1

CALL cadre(14, 5, 69, 2, blanc)
COLOR , blanc
CALL centre(15, noir, "L'adjectif s'accorde avec le nom, en genre et en nombre.")
COLOR , bleu
CALL centre(18, blancbrill, "Un pull bleu Des jupes bleues")
COLOR blancbrill, noir: LOCATE 18, 36: PRINT " "
LOCATE 18, 56: PRINT "es"
COLOR blanc, bleu
LOCATE 19, 28: PRINT CHR$(192); STRING$(7, 196); CHR$(24); CHR$(24)
LOCATE 19, 48: PRINT CHR$(192); STRING$(7, 196); CHR$(24); CHR$(24)
CALL entree(noir, noir, 1)

END SUB

DEFINT A-Z
SUB accordnom (re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'18/1/97
DIM p$(4)
er = 0
CALL titre
CALL cadre(8, 6, 11, 4, rouge)
COLOR , rouge
LOCATE 9, 8: PRINT "Accord du"
LOCATE 10, 8: PRINT "nom"
COLOR jaune, bleu: LOCATE 7, 26: PRINT "avec..."
p$(2) = "le déterminant"
p$(3) = "le nom"
p$(1) = "le sujet"
DO
CALL fleches(9, 26, p$(), 3, r, rouge, 1, 23, 26)
IF r = 2 THEN
CALL exact2
EXIT DO
ELSE
CALL erreur2
er = er + 1
END IF
LOOP
COLOR jaune, bleu: LOCATE 7, 50: PRINT "comment..."
p$(2) = "en nombre"
p$(1) = "en genre et en nombre"
p$(3) = "personne, temps, groupe"
DO
CALL fleches(9, 50, p$(), 3, r, rouge, 1, 23, 50)
IF r = 2 THEN
CALL exact2
EXIT DO
ELSE
CALL erreur2
er = er + 1
END IF
LOOP

IF er > 1 THEN re = re - 1

CALL cadre(14, 6, 68, 2, blanc)
COLOR , blanc
CALL centre(15, noir, "Le nom s'accorde avec le déterminant, en nombre.")
COLOR , bleu
CALL centre(18, blancbrill, "Un élève -> des élèves")
COLOR blancbrill, noir: LOCATE 18, 37: PRINT " "
LOCATE 18, 51: PRINT "s"
COLOR blanc, bleu
LOCATE 19, 30: PRINT CHR$(192); STRING$(6, 196); CHR$(24)
LOCATE 19, 43: PRINT CHR$(192); STRING$(7, 196); CHR$(24)

CALL entree(noir, noir, 1)

END SUB

DEFINT A-Z
SUB accordpartpasse (re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'18/1/97
DIM p$(4)
er = 0
CALL titre
CALL cadre(6, 3, 16, 5, rouge)
COLOR , rouge
LOCATE 7, 4: PRINT "Accord du"
LOCATE , 4: PRINT "participe passé"
LOCATE , 4: PRINT "avec l'auxi-"
LOCATE , 4: PRINT "liaire être"
COLOR jaune, bleu: LOCATE 5, 28: PRINT "avec..."
p$(1) = "le déterminant"
p$(3) = "le nom"
p$(2) = "le sujet"
p$(4) = "le C.O.D."
DO
CALL fleches(7, 28, p$(), 4, r, rouge, 1, 23, 27)
IF r = 2 THEN
CALL exact2
EXIT DO
ELSE
CALL erreur2
er = er + 1
END IF
LOOP
COLOR jaune, bleu: LOCATE 5, 52: PRINT "comment..."
p$(3) = "en nombre"
p$(2) = "en genre et en nombre"
p$(1) = "personne, temps, groupe"
DO
CALL fleches(7, 52, p$(), 3, r, rouge, 1, 23, 51)
IF r = 2 THEN
CALL exact2
EXIT DO
ELSE
CALL erreur2
er = er + 1
END IF
LOOP

IF er > 1 THEN re = re - 1

CALL cadre(13, 3, 73, 3, blanc)
COLOR , blanc
CALL centre(14, noir, "Le participe passé employé avec l'auxiliaire être")
CALL centre(15, noir, "s'accorde avec le sujet, en genre et en nombre.")
COLOR blancbrill, bleu
LOCATE 18, 28: PRINT "Les vitrines "; : COLOR vertclair: PRINT "sont"; : COLOR blancbrill: PRINT " décorées."
COLOR blancbrill, noir
LOCATE 18, 52: PRINT "es"
COLOR blanc, bleu
LOCATE 19, 28: PRINT STRING$(12, 196): LOCATE 19, 52: PRINT CHR$(24); CHR$(24)
CALL entree(noir, noir, 1)

END SUB

DEFINT A-Z
SUB accordpartpasse2 (re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'18/1/97
CALL titre
CALL cadre(6, 3, 73, 3, blanc)
COLOR , blanc
CALL centre(7, noir, "Le participe passé employé avec l'auxiliaire avoir")
CALL centre(8, noir, "ne s'accorde pas avec le sujet.")
COLOR blancbrill, bleu
LOCATE 11, 29: PRINT "Les joueurs "; : COLOR vertclair: PRINT "ont"; : COLOR blancbrill: PRINT " perdu"
COLOR blancbrill, noir
LOCATE 11, 50: PRINT " "
COLOR blanc, bleu
LOCATE 12, 50: PRINT CHR$(24); CHR$(24)

CALL cadre(13, 3, 73, 3, blanc)
COLOR , blanc
CALL centre(14, noir, "Le participe passé employé avec l'auxiliaire être")
CALL centre(15, noir, "s'accorde avec le sujet, en genre et en nombre.")
COLOR blancbrill, bleu
LOCATE 18, 28: PRINT "Les vitrines "; : COLOR vertclair: PRINT "sont"; : COLOR blancbrill: PRINT " décorées"
COLOR blancbrill, noir
LOCATE 18, 52: PRINT "es"
COLOR blanc, bleu
LOCATE 19, 28: PRINT STRING$(12, 196): LOCATE 19, 52: PRINT CHR$(24); CHR$(24)
CALL entree(noir, noir, 1)

END SUB

DEFINT A-Z
SUB accordpartpasse3 (re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'18/1/97
CALL titre
CALL cadre(6, 3, 73, 3, blanc)
COLOR , blanc
CALL centre(7, noir, "Le participe passé employé avec l'auxiliaire avoir")
CALL centre(8, noir, "ne s'accorde pas avec le sujet.")
COLOR blancbrill, bleu
LOCATE 11, 23: PRINT "Les élèves "; : COLOR vertclair: PRINT "ont"; : COLOR blancbrill: PRINT " écrit leurs poésies."
COLOR blancbrill, noir
LOCATE 11, 43: PRINT " "
COLOR blanc, bleu
LOCATE 12, 43: PRINT CHR$(24); CHR$(24)

CALL cadre(13, 3, 73, 3, blanc)
COLOR , blanc
CALL centre(14, noir, "Le participe passé employé avec l'auxiliaire avoir")
CALL centre(15, noir, " s'accorde avec le C.O.D. si celui-ci est placé avant.")
COLOR blancbrill, bleu
LOCATE 18, 31: PRINT "Ils "; : COLOR jaune: PRINT "les "; : COLOR vertclair: PRINT "ont"; : COLOR blancbrill: PRINT " appris"
COLOR blancbrill, noir
LOCATE 18, 49: PRINT "es"
COLOR blanc, bleu
LOCATE 19, 36: PRINT CHR$(192); STRING$(12, 196); CHR$(24); CHR$(24)

CALL entree(noir, noir, 1)

END SUB

DEFINT A-Z
SUB accordverbe (re, gg$, titr$, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'18/1/97
DIM p$(4)
er = 0
CALL titre
CALL cadre(8, 5, 12, 4, rouge)
COLOR , rouge
LOCATE 9, 7: PRINT "Accord du"
LOCATE 10, 7: PRINT "verbe"
COLOR jaune, bleu: LOCATE 7, 27: PRINT "avec..."
p$(1) = "le déterminant"
p$(3) = "le nom"
p$(2) = "le sujet"
DO
CALL fleches(9, 27, p$(), 3, r, rouge, 1, 23, 27)
IF r = 2 THEN
CALL exact2
EXIT DO
ELSE
CALL erreur2
er = er + 1
END IF
LOOP
COLOR jaune, bleu: LOCATE 7, 51: PRINT "comment..."
p$(1) = "en nombre"
p$(2) = "en genre et en nombre"
p$(3) = "personne, temps, groupe"
DO
CALL fleches(9, 51, p$(), 3, r, rouge, 1, 23, 51)
IF r = 3 THEN
CALL exact2
EXIT DO
ELSE
CALL erreur2
er = er + 1
END IF
LOOP

IF er > 1 THEN re = re - 1

CALL cadre(14, 5, 71, 2, blanc)
COLOR , blanc
CALL centre(15, noir, "Le verbe s'accorde avec le sujet (personne, temps, groupe).")
COLOR , bleu
CALL centre(18, blancbrill, "Maintenant, l'enfant joue. -> Demain, les enfants joueront.")
COLOR blancbrill, noir: LOCATE 18, 34: PRINT "e"
LOCATE 18, 65: PRINT "eront"
COLOR blanc, bleu
LOCATE 19, 22: PRINT STRING$(8, 196)
LOCATE 19, 50: PRINT STRING$(11, 196)
CALL entree(noir, noir, 1)

END SUB

DEFINT A-Z
SUB trouvephrase (re, ni, rt$, gg$, gg2$, pre$, titr$, prog, noir, bleu, vert, rouge, marron, blanc, vertclair, cyanclair, rougeclair, jaune, blancbrill)
'19/5/96
DIM m$(20), m2$(20), m(20), mot$(20), ph$(30), z(5), p$(2)
re = 0

'espace à la fin
'niveau 1
ph$(1) = "Florian et son ami font une balade dans la forêt. "
ph$(2) = "Vous avez deviné la bonne réponse à cette question. "
ph$(3) = "Le mécanicien modifiera le réglage du moteur. "
ph$(4) = "Tous les matins, vous devez vous brosser les dents. "
ph$(5) = "Cet après-midi, la météo a prévu une nette amélioration. "
ph$(6) = "Mélanie et sa soeur aiment les romans d'aventures. "
ph$(7) = "Les grandes villes souffrent de la pollution des véhicules. "
ph$(8) = "Cet été, nous irons visiter le nord de l'Italie. "
ph$(9) = "Le village était caché par un épais rideau d'arbres. "
ph$(10) = "L'année dernière, l'alpiniste a vaincu ce redoutable sommet. "

'niveau 2
ph$(11) = "Au printemps, les pluies torrentielles ont dévasté les cultures. "
ph$(12) = "Ces grandes peintures ont été réalisées par cet artiste talentueux. "
ph$(13) = "Pour battre un record, l'athlète doit s'entraîner durant plusieurs années. "
ph$(14) = "Malgré le froid vif, ils partent faire une randonnée en montagne. "
ph$(15) = "Pendant les grandes vacances, ils ont l'intention de visiter Venise. "
ph$(16) = "Son chapeau vert cachait la plus grande partie de son visage. "
ph$(17) = "Les hirondelles qui nichaient sous le toit étaient très bruyantes. "
ph$(18) = "La promenade que nous avons faite était vraiment agréable. "
ph$(19) = "Ce week-end, nous partirons faire une balade en mer. "
ph$(20) = "Dans sa chute brutale, ses lunettes se sont brisées. "

'niveau 3
ph$(21) = "Le matin, il a l'habitude de boire un lait chocolaté avec des tartines. "
ph$(22) = "Pour son anniversaire, Vincent a l'intention d'inviter tous ses amis. "
ph$(23) = "Le navigateur solitaire rentre au port après trois mois passés en mer. "
ph$(24) = "L'observation de la nature nous réserve toujours de grandes joies. "
ph$(25) = "Tous les élèves étaient enchantés de leur stage à l'étranger. "
ph$(26) = "Ce soir, il y a une émission vraiment intéressante à voir. "
ph$(27) = "Cet ordinateur peut effectuer des millions d'opérations par seconde. "
ph$(28) = "Il introduit un CD-Rom dans l'ordinateur afin de trouver une information. "
ph$(29) = "Les accumulateurs sont vides. Il va falloir les recharger. "
ph$(30) = "La voiture accidentée sera réparée par le garagiste. "

'présentation
w$ = "Tu vas remettre dans l'ordre"
z$ = "les mots d'une phrase."
CALL consigne(2, w$, z$, y$)
z$ = "": w$ = ""
CALL niveau(ni, 3)

SELECT CASE ni
CASE 1
FOR i = 11 TO 30: ph$(i) = "": NEXT

CASE 2
FOR i = 1 TO 10: ph$(i) = "": NEXT
FOR i = 21 TO 30: ph$(i) = "": NEXT

CASE 3
FOR i = 1 TO 20: ph$(i) = "": NEXT
END SELECT

COLOR , noir: CLS

FOR ii = 1 TO 5 '+++++++++++++++++++++++++
flagerr = 0

'tirage suivant niveau
DO
f = 0
SELECT CASE ni
CASE 1
z(ii) = INT(RND * 10) + 1
CASE 2
z(ii) = INT(RND * 10) + 11
CASE 3
z(ii) = INT(RND * 10) + 21
END SELECT

FOR j = 1 TO ii - 1
IF z(ii) = z(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
n = z(ii)
ph$ = ph$(n)

'affecte
i = 0: l = 1
DO
z = INSTR(l, ph$, " "): IF z = 0 THEN EXIT DO
i = i + 1
m$(i) = MID$(ph$, l, z - l)
l = z + 1
LOOP

nm = i

debuttp:
jj = 0
nm2 = nm
ph2$ = ""

'mélange
FOR i = 1 TO nm
DO
f = 0
m(i) = INT(RND * nm) + 1
FOR j = 1 TO i - 1
IF m(i) = m(j) THEN f = 1: EXIT FOR
NEXT
LOOP WHILE f = 1
m2$(i) = m$(m(i))
NEXT

CALL titre
DO
COLOR , bleu
VIEW PRINT 4 TO 19: CLS 2: VIEW PRINT
CALL niv(5, ii)
CALL cadre(16, 2, 75, 2, blanc)
COLOR , blanc
CALL centre(17, noir, ph2$)

DO
CALL fleches3(r, rr, m2$(), nm2, jj, gg$, gg2$)
IF r = 0 THEN CALL quitter(noir, bleu)
LOOP WHILE r = 0

IF rr = 83 OR rr = 8 THEN
IF nm2 = nm THEN
BEEP
ELSE
nm2 = nm2 + 1
m2$(nm2) = mot$(jj)
ph2$ = MID$(ph2$, 1, LEN(ph2$) - (LEN(mot$(jj)) + 1))
jj = jj - 1
END IF

ELSE
jj = jj + 1
mot$(jj) = m2$(r)
ph2$ = ph2$ + " " + mot$(jj)
IF r <> nm2 THEN
FOR i = r TO nm2 - 1
m2$(i) = m2$(i + 1)
NEXT
END IF
nm2 = nm2 - 1
END IF
LOOP WHILE nm2 <> 0

ph2$ = LTRIM$(ph2$) + " "
CALL titre
CALL cadre(10, 2, 75, 4, blanc)
COLOR , blanc
CALL centre(12, noir, ph2$)

CALL cadre(5, 30, 20, 2, marron)
COLOR , marron
CALL centre(6, blancbrill, "Est-ce correct ?")

p$(1) = "oui"
p$(2) = "non"
COLOR , noir
CALL centre(23, blanc, gg$)
CALL fleches(17, 39, p$(), 2, zz, rouge, 1, 23, 35)

SELECT CASE zz
CASE 1
flag = 1
CASE 2
flag = 0
END SELECT

IF flag = 0 THEN GOTO debuttp

LOCATE 23, 1: PRINT SPACE$(80)

IF ph$ = ph2$ THEN
CALL exact2
IF flagerr = 0 THEN
re = re + 2
ELSEIF flagerr = 1 THEN
re = re + 1
END IF
ELSE
CALL erreur2
flagerr = flagerr + 1
IF flagerr > 1 THEN
CALL titre
CALL cadre(10, 2, 75, 4, blanc)
COLOR , blanc
CALL centre(12, rouge, ph$)
COLOR , noir
CALL centre(23, rougeclair, "Solution")
CALL getinvimouse(zz)
ELSEIF LEFT$(ph$, 1) <> LEFT$(ph2$, 1) AND RIGHT$(ph2$, 2) <> ". " THEN
CALL centre(23, rougeclair, "Une phrase commence par une majuscule et finit par un point.")
CALL getinvimouse(zz)
GOTO debuttp
ELSEIF LEFT$(ph$, 1) <> LEFT$(ph2$, 1) THEN
CALL centre(23, rougeclair, "Une phrase commence par une majuscule.")
CALL getinvimouse(zz)
GOTO debuttp
ELSEIF RIGHT$(ph2$, 2) <> ". " THEN
CALL centre(23, rougeclair, "Une phrase finit par un point.")
CALL getinvimouse(zz)
GOTO debuttp
ELSE
GOTO debuttp
END IF
END IF

NEXT ii '++++++++++++++++++++++

CALL resultats(re, ni, 3)

END SUB
 

 

 

Précédente Accueil Remonter Suivante