10  REM-IDEA TAKEN FROM 'VOCAB' WRITTEN BY RANDY WONG AND JUDY 
20  REM-SOKOL.  ETRE IS COPYRIGHTED BY CRAIG SAUNDERS FOR THE FOREIGN
30  REM-LANGUAGE LAB OF LOWELL HS, CA.-APRIL 13,1976
40  REM-DATA FOR SUBJECT/PRESENT/PAST/CONDITIONAL TENSES
50  DATA "JE","SUIS","AI ETE","SERAIS","TU","ES","AS ETE","SERAIS","IL"
60  DATA "EST","A ETE","SERAIT","ELLE","EST","A ETE","SERAIT","TOUT LE MONDE"
70  DATA "EST","A ETE","SERAIT","NOUS","SOMMES","AVONS ETE","SERIONS","VOUS"
80  DATA "ETES","AVEZ ETE","SERIEZ","ILS","SONT","ONT ETE","SERAIENT","ELLES"
90  DATA "SONT","ONT ETE","SERAIENT","LES AUTRES","SONT","ONT ETE","SERAIENT"
100  DATA "ON","EST","A ETE","SERAIT"
110  REM-DATA FOR PLURAL PREDICATES/ADJECTIVES
120  DATA "PENIBLES","EGOISTES","AIMABLES","BETES","CLASSIQUES","SYMPATHIQUES"
130  DATA "RUSSES","UNIQUES","TIMIDES"
140  REM-DATA FOR ALL PREDICATES/ADJECTIVES
150  DATA "SOUVENT EN RETARD","TOUJOURS A L'HEURE","CHEZ FLORA","AVEC LES AUTRES"
160  DATA "DANS LE SALON","DANS LA SALLE DE BAINS","DANS LA SALLE A MANGER"
170  DATA "EN FRANCE","AUX ETATS-UNIS","AU CANADA","EN ITALIE","EN RUSSIE"
180  DATA "EN TRAIN DE DINER","EN TRAIN DE DEJEUNER!","EN TRAIN DE TOMBER!"
190  DATA "EN TRAIN DU SKI","DANS UN MAGASIN","A LA SURPRISE-PARTIE","A LA PISCINE"
200  DATA "AU RESTAURANT","AU CONCERT","EN FACE DU STADE","DEVANT LA PORTE"
210  DATA "A LA FENETRE","DANS LA COUR","DANS LE JARDIN","A LA TERRASE D'UN CAFE"
220  DATA "DANS MA CLASSE","SUR CETTE PHOTO","AU SUD DE LA FRANCE"
230  DATA "AU NORD DE L'AFRIQUE","A L'OUEST DE L'ITALIE"
240  DATA "A L'EST DE L'ESPAGNE"
250  REM ---DATA FOR SINGULAR PREDICATE/ADJECTIVES
260  DATA "PENIBLE","EGOISTE","AIMABLE","CLASSIQUE","RUSSE","UNIQUE"
270  DATA "TIMIDE","SYMPATHIQUE","BETE"
280  REM ---D1 (DURATION OF THE DRILL);D2 (NO. OF SUBJECT/VERBS);
290  REM ---D3 (NO. OF PRED/ADJ)-----
300  D1=30
310  D2=11
320  D3=42
330  PRINT "BONJOUR, VOULEZ-VOUS LES INSTRUCTIONS EN ANGLAIS, (OUI/NON)";
350  INPUT A$
360  IF A$[1,1]<"O" THEN 450
370  PRINT "THIS IS A DRILL ON THE PRESENT, PAST, OR CONDITIONAL"
380  PRINT "TENSE FORMS OF THE VERB 'ETRE'.  THE OBJECT OF THIS"
390  PRINT "DRILL IS TO SEE HOW MANY PROBLEMS YOU CAN COMPLETE IN"
400  PRINT "THIRTY SECONDS.  YOU MAY ALLOCATE YOURSELF UP TO 20"
410  PRINT "SECONDS PER PROBLEM.  TYPE IN YOUR ANSWER AFTER THE '*'"
420  PRINT "AND REMEMBER TO HIT THE RETURN KEY AFTERWARDS.--NOTE:"
430  PRINT "THIS TERMINAL CANNOT PRINT ACCENTS OR CONTRACTIONS."
440  PRINT "IGNORE THEM, JUST TYPE THE VERB!"
450  PRINT 
460  DIM A$[20],B$[20],C$[30],D$[20],E$[20],N$[20]
470  N$="XXXXX"
480  PRINT 
490  PRINT "TIME PER PROBLEM (1-20 SECS.)";
500  INPUT E1
510  IF (ABS(E1)-10)>10 THEN 490
520  PRINT "PAST, PRESENT, OR CONDITIONAL TENSE";
530  INPUT E$
540  P=1
550  IF E$[1,2]="PR" THEN 610
560  P=P+1
570  IF E$[1,2]="CO" THEN 610
580  P=P+1
590  IF E$[1,2]="PA" THEN 610
600  GOTO 520
610  PRINT 
620  IF N$#"XXXXX" THEN 660
630  PRINT "D'ACCORD,OH!...COMMENT VOUS APPLEZ-VOUS";
640  INPUT N$
650  PRINT "OK ";N$;", MAINTENANT..."
660  GOTO P OF 670,710,690
670  PRINT "<PRESENT TENSE DRILL>"
680  GOTO 720
690  PRINT "<PAST TENSE DRILL>"
700  GOTO 720
710  PRINT "<CONDITIONAL TENSE DRILL>"
720  PRINT "****************************************************************"
730  DEF FNA()=1+INT(*RND(0))
740  R=W=B=T=T1=T2=Y=0
750  T1=T1+1
760  E$="XXX"
770  RESTORE 40
780  Y=FNA(D2)
790  FOR I=1 TO Y
800  READ A$,B$,C$,D$
810  NEXT I
820  IF P=1 THEN 860
830  B$=C$
840  IF P=3 THEN 860
850  B$=D$
860  IF Y <= 6 THEN 890
870  RESTORE 110
880  GOTO 900
890  RESTORE 140
900  FOR I=1 TO FNA(D3)
910  READ C$
920  NEXT I
930  PRINT A$;" ??? ";C$;".       *";
940  ENTER E1,E2,E$
950  PRINT 
960  IF E$=B$ THEN 1050
970  IF E2<0 THEN 1010
980  PRINT "WRONG, ";N$;" THE CORRECT ANSWER IS ";B$
990  W=W+1
1000  GOTO 1070
1010  PRINT "TOO MUCH TIME, ";N$;" THE CORRECT ANSWER IS ";B$
1020  T2=T2+1
1030  E2=E1
1040  GOTO 1070
1050  PRINT "CORRECT, ";N$
1060  R=R+1
1070  T=T+E2
1080  IF T<D1 THEN 750
1085  PRINT "*****************************************************************"
1090  PRINT 
1100  PRINT "THE RESULTS..."
1110  PRINT "BATTING FOR THE HOME TEAM: ";N$
1120  PRINT "TIMES AT BAT: ";T1
1130  PRINT "HITS: ";R
1140  PRINT "MISSES: ";W
1150  PRINT "FOULS: ";T2
1160  PRINT "BATTING AVERAGE: ";INT(1000*R/T1)
1170  PRINT 
1180  PRINT "WANT ANOTHER CHANCE (OUI/NON)";
1190  INPUT A$
1200  IF A$[1,1]>"N" THEN 480
1210  PRINT "ET BIENTOT, ";N$
1220  PRINT 
1230  END 
