Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_36.ADF » F/IMP

F/IMP

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_36.ADF
Filename: F/IMP
Read OK: ✔
File size: 0FE6 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10 REM MICRO FRENCH IMPARFAIT (IMP)
   20 REM COPYRIGHT (C) GENEVIEVE GREVILLE
   21REM CRACKED BY THE DAVE EC 1997
   22ONERRORCHAIN"MENU2":RUN
   24 *KEY10"OLD|M RUN|M"
   30 MODE1
   40 DIM J$(1),K$(1),Q$(4),A$(4),N%(4),W%(4)
   50 C0=0:C1=1:C2=2:C3=3
   60 VDU19,0,4,0,0,0,19,3,7,0,0,0
   72 VDU23,1,0;0;0;0;
   80 S$=STRING$(40," ")
   90 D$=STRING$(40,"."):M$=CHR$(237)+CHR$(10)+CHR$(8)+CHR$(238)
  100 TS=0:NL=4
  110 COLOURC0+128
  120 J$(0)=" Donnez!Je    Donnez!Tu    Donnez!Il    Donnez!Elle  Donnez!Nous  Donnez!Vous  Donnez!Ils   Donnez!EllesFinissezJe   FinissezTu   FinissezIl   FinissezElle FinissezNous FinissezVous FinissezIls  FinissezElles"
  130 J$(1)=" Vendez!Je    Vendez!Tu    Vendez!Il    Vendez!Elle  Vendez!Nous  Vendez!Vous  Vendez!Ils   Vendez!Elles Soyez! J'    Soyez! Tu    Soyez! Il    Soyez! Elle  Soyez! Nous  Soyez! Vous  Soyez! Ils   Soyez! Elles"
  140 K$(0)="donnais    donnais    donnait    donnait    donnions   donniez    donnaient  donnaient  finissais  finissais  finissait  finissait  finissions finissiez  finissaientfinissaient"
  150 K$(1)="vendais    vendais    vendait    vendait    vendions   vendiez    vendaient  vendaient  �tais      �tais      �tait      �tait      �tions     �tiez      �taient    �taient    "
  160 TE=0:MK=0:TW=0:WN=0:TIME=0:DD=24
  190 CLS
  202 GOSUB 210
  204 GOTO 260
  210 COLOURC2:COLOURC1+128:PRINTTAB(0,1);S$;" L'imparfait (Micro French) ";CHR$(225);"  LCL 1986 ";S$:COLOURC0+128:COLOURC2
  220 PRINT"There are two main past tenses in French,the pass� compos� and imparfait. The   imparfait is used for unfinished or     repeated actions. For example 'yesterday";
  221 PRINT"I sold' is in the pass� compos�,while   'I WAS selling' is in imparfait. In the imparfait,add the following endings to  the same stem as the 1st person plural  present (e.g. nous FINISSons).":COLOURC3:PRINT:PRINT"Je donn";:GOSUB800
  222 PRINT"ais";:GOSUB810:PRINT"I was giving"':PRINT"tu donn";:GOSUB800:PRINT"ais";:GOSUB810:PRINT"You were giving"'
  230 PRINT"Il donn";:GOSUB800:PRINT"ait";:GOSUB810:PRINT"He was giving"':PRINT"Nous donn";:GOSUB800:PRINT"ions";:GOSUB810:PRINT"We were giving"':PRINT"Vous donn";:GOSUB800:PRINT"iez";:GOSUB810
  240 PRINT"You were giving"':PRINT"Ils donn";:GOSUB800:PRINT"aient";:GOSUB810:PRINT"They were giving":COLOURC2:PRINT:PRINT"The only important exception is J'�tais from �tre."
  250 PRINTTAB(0,30);:GOSUB990
  252 RETURN
  260 CLS:PRINT:COLOURC2:COLOURC1+128:PRINTTAB(0,3);S$;" L'imparfait (Micro French)  ";CHR$(225);" LCL 1986 ";S$:COLOURC0+128:COLOURC3:PRINT:PRINT
  270 H$="GMAXGMWL"
  300 NM=0
  302 TT=TIME
  304 PRINTTAB(0,7);"________________________________________";TAB(0,11);"________________________________________";
  310 FORI=1TO4
  318 IF W%(I)<>0 THEN W=W%(I):W%(I)=0:GOTO321
  320 W=RND(DD)
  321 J$=MID$(J$(-(W>16)),13*(W-1)+1+(W>16)*208,13)
  322 N%(I)=W
  330 K=I
  340 REPEAT K=K-1
  350 UNTIL J$=Q$(K) OR K=0
  360 IFJ$=Q$(K)THENGOTO320
  370 Q$(I)=J$
  380 A$(I)=MID$(K$(-(W>16)),11*(W-1)+1+(W>16)*176,11)
  402 Y=5+I*NL
  404 X=0
  420 LD=13
  430 PRINTTAB(11,Y+NL);RIGHT$(Q$(I),5);LEFT$(D$,LD);:COLOUR C3+128:COLOUR C1:PRINTTAB(1,Y);LEFT$(Q$(I),8):COLOUR C0+128:COLOUR C3:PRINTTAB(5,Y+1);CHR$(238)
  432 PRINT"________________________________________";
  440 NEXTI
  442 DD=32:WN=0
  450 FORI=1TO4
  452 WT=0:TE=TE+1:I$="":IA$=""
  454 IF I<>1 THEN PRINTTAB(0,5+(I-1)*NL);" "+CHR$(10)+CHR$(8)+" ";TAB(39,NL+5+(I-1)*NL);" "+CHR$(10)+CHR$(8)+" ";
  460 GOSUB800:PRINT TAB(39,NL+5+I*NL);M$;
  480 COLOURC0+128:COLOURC2:PRINTTAB(0,5+I*NL);M$;:PRINTTAB(17,NL+5+I*NL);
  490 I1$=INKEY$(0):IF I1$="?" THEN PRINT TAB(17,5+NL+I*NL);A$(I);STRING$(12-LEN(A$(I)),".");" ";:COLOUR C2:WN=WN+1:W%(I)=N%(I):GOTO 590
  491 IF WT=1 AND I1$<>"" THEN LI=12:LA=LEN(A$(I)):COLOUR C2:PRINT STRING$(LI,".");"  ";STRING$(LI+2,CHR$(8));CHR$(10);STRING$(LA," ");STRING$(LA,CHR$(8));CHR$(11);:WT=0
  509 IFI1$=""THENXP=POS:YP=VPOS:PRINTTAB(0,1);STR$(TE)+")   Score "+STR$(MK)+"   "+STR$(INT(TIME/100))+" s":PRINTTAB(XP,YP);:GOTO490
  519 IF I1$=CHR$(13) OR LEN(I$)>11 OR I1$=CHR$(127) THENGOTO530
  522 PRINTI1$;
  525 II$=MID$(A$(I),LEN(I$)+1,1):IF II$=I1$ OR CHR$(ASC(II$)+&60)=I1$ THEN I$=I$+II$  ELSE I$=I$+CHR$(ASC(I1$)OR&20)
  526 GOTO 490
  530 IF I1$<>CHR$(127) OR I$="" THENGOTO540
  532 I$=LEFT$(I$,LEN(I$)-1)
  534 PRINTCHR$(127);
  536 GOTO 490
  540 COLOURC1
  550 IFLEFT$(I$+S$,11)=A$(I) THENPRINT TAB(37,VPOS);CHR$(224):SOUND1,-15,101,10:TS=TS+1:GOTO570
  562 PRINT TAB(37,VPOS);"X"
  564SOUND1,-15,73,10
  566 SOUND1,-15,69,5
  567 TW=TW+1:WN=WN+1:W%(I)=N%(I)
  568 COLOURC2:PRINTTAB(17,6+NL+I*NL);A$(I)
  569 WT=1:I$="":COLOUR C2:GOTO 460
  570 COLOUR C2
  580 MK=INT(100*TS/(TS+TW))
  590 NEXTI
  600 COLOURC3:PRINTTAB(0,29);"Appuyer sur C pour continuer,H=aider";:COLOURC2
  610 R$=GET$
  612 IFR$<>"C"ANDR$<>"c" AND R$<>"H" AND R$<>"h" THEN GOTO 610
  614 IF R$="C" OR R$="c" THEN GOTO 260 ELSE CLS:GOSUB210:GOTO260
  800 COLOUR C2+128:COLOUR C1:RETURN
  810 COLOUR C0+128:COLOUR C3:PRINTTAB(22,VPOS);:RETURN
  990 PRINT"Appuyez sur 'Return' pour continuer";:INPUTRB$:RETURN


# � MICRO FRENCH IMPARFAIT (IMP)
' � COPYRIGHT (C) GENEVIEVE GREVILLE
!� CRACKED BY THE DAVE EC 1997
��"MENU2":�
 *KEY10"OLD|M RUN|M"
 �1
(* � J$(1),K$(1),Q$(4),A$(4),N%(4),W%(4)
2 C0=0:C1=1:C2=2:C3=3
< �19,0,4,0,0,0,19,3,7,0,0,0
H �23,1,0;0;0;0;
P S$=�40," ")
Z, D$=�40,"."):M$=�(237)+�(10)+�(8)+�(238)
d TS=0:NL=4
n �C0+128
x� J$(0)=" Donnez!Je    Donnez!Tu    Donnez!Il    Donnez!Elle  Donnez!Nous  Donnez!Vous  Donnez!Ils   Donnez!EllesFinissezJe   FinissezTu   FinissezIl   FinissezElle FinissezNous FinissezVous FinissezIls  FinissezElles"
�� J$(1)=" Vendez!Je    Vendez!Tu    Vendez!Il    Vendez!Elle  Vendez!Nous  Vendez!Vous  Vendez!Ils   Vendez!Elles Soyez! J'    Soyez! Tu    Soyez! Il    Soyez! Elle  Soyez! Nous  Soyez! Vous  Soyez! Ils   Soyez! Elles"
�� K$(0)="donnais    donnais    donnait    donnait    donnions   donniez    donnaient  donnaient  finissais  finissais  finissait  finissait  finissions finissiez  finissaientfinissaient"
�� K$(1)="vendais    vendais    vendait    vendait    vendions   vendiez    vendaient  vendaient  �tais      �tais      �tait      �tait      �tions     �tiez      �taient    �taient    "
�" TE=0:MK=0:TW=0:WN=0:�=0:DD=24
� �
� � �dR@
� � �TDA
�] �C2:�C1+128:�0,1);S$;" L'imparfait (Micro French) ";�(225);"  LCL 1986 ";S$:�C0+128:�C2
ܩ �"There are two main past tenses in French,the pass� compos� and imparfait. The   imparfait is used for unfinished or     repeated actions. For example 'yesterday";
�� �"I sold' is in the pass� compos�,while   'I WAS selling' is in imparfait. In the imparfait,add the following endings to  the same stem as the 1st person plural  present (e.g. nous FINISSons).":�C3:�:�"Je donn";:�T`C
�W �"ais";:�TjC:�"I was giving"':�"tu donn";:�T`C:�"ais";:�TjC:�"You were giving"'
� �"Il donn";:�T`C:�"ait";:�TjC:�"He was giving"':�"Nous donn";:�T`C:�"ions";:�TjC:�"We were giving"':�"Vous donn";:�T`C:�"iez";:�TjC
� �"You were giving"':�"Ils donn";:�T`C:�"aient";:�TjC:�"They were giving":�C2:�:�"The only important exception is J'�tais from �tre."
� �0,30);:�d^C
� �
e �:�:�C2:�C1+128:�0,3);S$;" L'imparfait (Micro French)  ";�(225);" LCL 1986 ";S$:�C0+128:�C3:�:�
 H$="GMAXGMWL"
,	 NM=0
.	 TT=�
0i �0,7);"________________________________________";�0,11);"________________________________________";
6 �I=1�4
>' � W%(I)<>0 � W=W%(I):W%(I)=0:�DAA
@ W=�(DD)
A. J$=�J$(-(W>16)),13*(W-1)+1+(W>16)*208,13)
B N%(I)=W
J K=I
T � K=K-1
^ � J$=Q$(K) � K=0
h �J$=Q$(K)��D@A
r
 Q$(I)=J$
|1 A$(I)=�K$(-(W>16)),11*(W-1)+1+(W>16)*176,11)
�
 Y=5+I*NL
� X=0
�
 LD=13
�_ �11,Y+NL);�Q$(I),5);�D$,LD);:� C3+128:� C1:�1,Y);�Q$(I),8):� C0+128:� C3:�5,Y+1);�(238)
�1 �"________________________________________";
� �I
� DD=32:WN=0
� �I=1�4
� WT=0:TE=TE+1:I$="":IA$=""
�W � I<>1 � �0,5+(I-1)*NL);" "+�(10)+�(8)+" ";�39,NL+5+(I-1)*NL);" "+�(10)+�(8)+" ";
� �T`C:� �39,NL+5+I*NL);M$;
�1 �C0+128:�C2:�0,5+I*NL);M$;:�17,NL+5+I*NL);
�g I1$=�(0):� I1$="?" � � �17,5+NL+I*NL);A$(I);�12-�(A$(I)),".");" ";:� C2:WN=WN+1:W%(I)=N%(I):� �DNB
�o � WT=1 � I1$<>"" � LI=12:LA=�(A$(I)):� C2:� �LI,".");"  ";�LI+2,�(8));�(10);�LA," ");�LA,�(8));�(11);:WT=0
�] �I1$=""�XP=�:YP=�:�0,1);�(TE)+")   Score "+�(MK)+"   "+�(�(�/100))+" s":�XP,YP);:�djA
/ � I1$=�(13) � �(I$)>11 � I1$=�(127) ��TRB


 �I1$;

[ II$=�A$(I),�(I$)+1,1):� II$=I1$ � �(�(II$)+&60)=I1$ � I$=I$+II$  � I$=I$+�(�(I1$)�&20)
 � �djA
! � I1$<>�(127) � I$="" ��T\B
 I$=�I$,�(I$)-1)

 �(127);
 � �djA
 �C1
&C �I$+S$,11)=A$(I) �� �37,�);�(224):�1,-15,101,10:TS=TS+1:�TzB
2 � �37,�);"X"
4�1,-15,73,10
6 �1,-15,69,5
7  TW=TW+1:WN=WN+1:W%(I)=N%(I)
8 �C2:�17,6+NL+I*NL);A$(I)
9 WT=1:I$="":� C2:� �dLA
:	 � C2
D MK=�(100*TS/(TS+TW))
N �I
X< �C3:�0,29);"Appuyer sur C pour continuer,H=aider";:�C2
b	 R$=�
d2 �R$<>"C"�R$<>"c" � R$<>"H" � R$<>"h" � � �DbB
f/ � R$="C" � R$="c" � � �TDA � �:�dR@:�TDA
  � C2+128:� C1:�
* � C0+128:� C3:�22,�);:�
�3 �"Appuyez sur 'Return' pour continuer";:�RB$:�
�
00000000  0d 00 0a 23 20 f4 20 4d  49 43 52 4f 20 46 52 45  |...# . MICRO FRE|
00000010  4e 43 48 20 49 4d 50 41  52 46 41 49 54 20 28 49  |NCH IMPARFAIT (I|
00000020  4d 50 29 0d 00 14 27 20  f4 20 43 4f 50 59 52 49  |MP)...' . COPYRI|
00000030  47 48 54 20 28 43 29 20  47 45 4e 45 56 49 45 56  |GHT (C) GENEVIEV|
00000040  45 20 47 52 45 56 49 4c  4c 45 0d 00 15 21 f4 20  |E GREVILLE...!. |
00000050  43 52 41 43 4b 45 44 20  42 59 20 54 48 45 20 44  |CRACKED BY THE D|
00000060  41 56 45 20 45 43 20 31  39 39 37 0d 00 16 10 ee  |AVE EC 1997.....|
00000070  85 d7 22 4d 45 4e 55 32  22 3a f9 0d 00 18 18 20  |.."MENU2":..... |
00000080  2a 4b 45 59 31 30 22 4f  4c 44 7c 4d 20 52 55 4e  |*KEY10"OLD|M RUN|
00000090  7c 4d 22 0d 00 1e 07 20  eb 31 0d 00 28 2a 20 de  ||M".... .1..(* .|
000000a0  20 4a 24 28 31 29 2c 4b  24 28 31 29 2c 51 24 28  | J$(1),K$(1),Q$(|
000000b0  34 29 2c 41 24 28 34 29  2c 4e 25 28 34 29 2c 57  |4),A$(4),N%(4),W|
000000c0  25 28 34 29 0d 00 32 18  20 43 30 3d 30 3a 43 31  |%(4)..2. C0=0:C1|
000000d0  3d 31 3a 43 32 3d 32 3a  43 33 3d 33 0d 00 3c 1f  |=1:C2=2:C3=3..<.|
000000e0  20 ef 31 39 2c 30 2c 34  2c 30 2c 30 2c 30 2c 31  | .19,0,4,0,0,0,1|
000000f0  39 2c 33 2c 37 2c 30 2c  30 2c 30 0d 00 48 13 20  |9,3,7,0,0,0..H. |
00000100  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 00  |.23,1,0;0;0;0;..|
00000110  50 10 20 53 24 3d c4 34  30 2c 22 20 22 29 0d 00  |P. S$=.40," ")..|
00000120  5a 2c 20 44 24 3d c4 34  30 2c 22 2e 22 29 3a 4d  |Z, D$=.40,"."):M|
00000130  24 3d bd 28 32 33 37 29  2b bd 28 31 30 29 2b bd  |$=.(237)+.(10)+.|
00000140  28 38 29 2b bd 28 32 33  38 29 0d 00 64 0e 20 54  |(8)+.(238)..d. T|
00000150  53 3d 30 3a 4e 4c 3d 34  0d 00 6e 0c 20 fb 43 30  |S=0:NL=4..n. .C0|
00000160  2b 31 32 38 0d 00 78 dd  20 4a 24 28 30 29 3d 22  |+128..x. J$(0)="|
00000170  20 44 6f 6e 6e 65 7a 21  4a 65 20 20 20 20 44 6f  | Donnez!Je    Do|
00000180  6e 6e 65 7a 21 54 75 20  20 20 20 44 6f 6e 6e 65  |nnez!Tu    Donne|
00000190  7a 21 49 6c 20 20 20 20  44 6f 6e 6e 65 7a 21 45  |z!Il    Donnez!E|
000001a0  6c 6c 65 20 20 44 6f 6e  6e 65 7a 21 4e 6f 75 73  |lle  Donnez!Nous|
000001b0  20 20 44 6f 6e 6e 65 7a  21 56 6f 75 73 20 20 44  |  Donnez!Vous  D|
000001c0  6f 6e 6e 65 7a 21 49 6c  73 20 20 20 44 6f 6e 6e  |onnez!Ils   Donn|
000001d0  65 7a 21 45 6c 6c 65 73  46 69 6e 69 73 73 65 7a  |ez!EllesFinissez|
000001e0  4a 65 20 20 20 46 69 6e  69 73 73 65 7a 54 75 20  |Je   FinissezTu |
000001f0  20 20 46 69 6e 69 73 73  65 7a 49 6c 20 20 20 46  |  FinissezIl   F|
00000200  69 6e 69 73 73 65 7a 45  6c 6c 65 20 46 69 6e 69  |inissezElle Fini|
00000210  73 73 65 7a 4e 6f 75 73  20 46 69 6e 69 73 73 65  |ssezNous Finisse|
00000220  7a 56 6f 75 73 20 46 69  6e 69 73 73 65 7a 49 6c  |zVous FinissezIl|
00000230  73 20 20 46 69 6e 69 73  73 65 7a 45 6c 6c 65 73  |s  FinissezElles|
00000240  22 0d 00 82 dd 20 4a 24  28 31 29 3d 22 20 56 65  |".... J$(1)=" Ve|
00000250  6e 64 65 7a 21 4a 65 20  20 20 20 56 65 6e 64 65  |ndez!Je    Vende|
00000260  7a 21 54 75 20 20 20 20  56 65 6e 64 65 7a 21 49  |z!Tu    Vendez!I|
00000270  6c 20 20 20 20 56 65 6e  64 65 7a 21 45 6c 6c 65  |l    Vendez!Elle|
00000280  20 20 56 65 6e 64 65 7a  21 4e 6f 75 73 20 20 56  |  Vendez!Nous  V|
00000290  65 6e 64 65 7a 21 56 6f  75 73 20 20 56 65 6e 64  |endez!Vous  Vend|
000002a0  65 7a 21 49 6c 73 20 20  20 56 65 6e 64 65 7a 21  |ez!Ils   Vendez!|
000002b0  45 6c 6c 65 73 20 53 6f  79 65 7a 21 20 4a 27 20  |Elles Soyez! J' |
000002c0  20 20 20 53 6f 79 65 7a  21 20 54 75 20 20 20 20  |   Soyez! Tu    |
000002d0  53 6f 79 65 7a 21 20 49  6c 20 20 20 20 53 6f 79  |Soyez! Il    Soy|
000002e0  65 7a 21 20 45 6c 6c 65  20 20 53 6f 79 65 7a 21  |ez! Elle  Soyez!|
000002f0  20 4e 6f 75 73 20 20 53  6f 79 65 7a 21 20 56 6f  | Nous  Soyez! Vo|
00000300  75 73 20 20 53 6f 79 65  7a 21 20 49 6c 73 20 20  |us  Soyez! Ils  |
00000310  20 53 6f 79 65 7a 21 20  45 6c 6c 65 73 22 0d 00  | Soyez! Elles"..|
00000320  8c bd 20 4b 24 28 30 29  3d 22 64 6f 6e 6e 61 69  |.. K$(0)="donnai|
00000330  73 20 20 20 20 64 6f 6e  6e 61 69 73 20 20 20 20  |s    donnais    |
00000340  64 6f 6e 6e 61 69 74 20  20 20 20 64 6f 6e 6e 61  |donnait    donna|
00000350  69 74 20 20 20 20 64 6f  6e 6e 69 6f 6e 73 20 20  |it    donnions  |
00000360  20 64 6f 6e 6e 69 65 7a  20 20 20 20 64 6f 6e 6e  | donniez    donn|
00000370  61 69 65 6e 74 20 20 64  6f 6e 6e 61 69 65 6e 74  |aient  donnaient|
00000380  20 20 66 69 6e 69 73 73  61 69 73 20 20 66 69 6e  |  finissais  fin|
00000390  69 73 73 61 69 73 20 20  66 69 6e 69 73 73 61 69  |issais  finissai|
000003a0  74 20 20 66 69 6e 69 73  73 61 69 74 20 20 66 69  |t  finissait  fi|
000003b0  6e 69 73 73 69 6f 6e 73  20 66 69 6e 69 73 73 69  |nissions finissi|
000003c0  65 7a 20 20 66 69 6e 69  73 73 61 69 65 6e 74 66  |ez  finissaientf|
000003d0  69 6e 69 73 73 61 69 65  6e 74 22 0d 00 96 bd 20  |inissaient".... |
000003e0  4b 24 28 31 29 3d 22 76  65 6e 64 61 69 73 20 20  |K$(1)="vendais  |
000003f0  20 20 76 65 6e 64 61 69  73 20 20 20 20 76 65 6e  |  vendais    ven|
00000400  64 61 69 74 20 20 20 20  76 65 6e 64 61 69 74 20  |dait    vendait |
00000410  20 20 20 76 65 6e 64 69  6f 6e 73 20 20 20 76 65  |   vendions   ve|
00000420  6e 64 69 65 7a 20 20 20  20 76 65 6e 64 61 69 65  |ndiez    vendaie|
00000430  6e 74 20 20 76 65 6e 64  61 69 65 6e 74 20 20 e5  |nt  vendaient  .|
00000440  74 61 69 73 20 20 20 20  20 20 e5 74 61 69 73 20  |tais      .tais |
00000450  20 20 20 20 20 e5 74 61  69 74 20 20 20 20 20 20  |     .tait      |
00000460  e5 74 61 69 74 20 20 20  20 20 20 e5 74 69 6f 6e  |.tait      .tion|
00000470  73 20 20 20 20 20 e5 74  69 65 7a 20 20 20 20 20  |s     .tiez     |
00000480  20 e5 74 61 69 65 6e 74  20 20 20 20 e5 74 61 69  | .taient    .tai|
00000490  65 6e 74 20 20 20 20 22  0d 00 a0 22 20 54 45 3d  |ent    "..." TE=|
000004a0  30 3a 4d 4b 3d 30 3a 54  57 3d 30 3a 57 4e 3d 30  |0:MK=0:TW=0:WN=0|
000004b0  3a d1 3d 30 3a 44 44 3d  32 34 0d 00 be 06 20 db  |:.=0:DD=24.... .|
000004c0  0d 00 ca 0b 20 e4 20 8d  64 52 40 0d 00 cc 0b 20  |.... . .dR@.... |
000004d0  e5 20 8d 54 44 41 0d 00  d2 5d 20 fb 43 32 3a fb  |. .TDA...] .C2:.|
000004e0  43 31 2b 31 32 38 3a f1  8a 30 2c 31 29 3b 53 24  |C1+128:..0,1);S$|
000004f0  3b 22 20 4c 27 69 6d 70  61 72 66 61 69 74 20 28  |;" L'imparfait (|
00000500  4d 69 63 72 6f 20 46 72  65 6e 63 68 29 20 22 3b  |Micro French) ";|
00000510  bd 28 32 32 35 29 3b 22  20 20 4c 43 4c 20 31 39  |.(225);"  LCL 19|
00000520  38 36 20 22 3b 53 24 3a  fb 43 30 2b 31 32 38 3a  |86 ";S$:.C0+128:|
00000530  fb 43 32 0d 00 dc a9 20  f1 22 54 68 65 72 65 20  |.C2.... ."There |
00000540  61 72 65 20 74 77 6f 20  6d 61 69 6e 20 70 61 73  |are two main pas|
00000550  74 20 74 65 6e 73 65 73  20 69 6e 20 46 72 65 6e  |t tenses in Fren|
00000560  63 68 2c 74 68 65 20 70  61 73 73 85 20 63 6f 6d  |ch,the pass. com|
00000570  70 6f 73 85 20 61 6e 64  20 69 6d 70 61 72 66 61  |pos. and imparfa|
00000580  69 74 2e 20 54 68 65 20  20 20 69 6d 70 61 72 66  |it. The   imparf|
00000590  61 69 74 20 69 73 20 75  73 65 64 20 66 6f 72 20  |ait is used for |
000005a0  75 6e 66 69 6e 69 73 68  65 64 20 6f 72 20 20 20  |unfinished or   |
000005b0  20 20 72 65 70 65 61 74  65 64 20 61 63 74 69 6f  |  repeated actio|
000005c0  6e 73 2e 20 46 6f 72 20  65 78 61 6d 70 6c 65 20  |ns. For example |
000005d0  27 79 65 73 74 65 72 64  61 79 22 3b 0d 00 dd de  |'yesterday";....|
000005e0  20 f1 22 49 20 73 6f 6c  64 27 20 69 73 20 69 6e  | ."I sold' is in|
000005f0  20 74 68 65 20 70 61 73  73 85 20 63 6f 6d 70 6f  | the pass. compo|
00000600  73 85 2c 77 68 69 6c 65  20 20 20 27 49 20 57 41  |s.,while   'I WA|
00000610  53 20 73 65 6c 6c 69 6e  67 27 20 69 73 20 69 6e  |S selling' is in|
00000620  20 69 6d 70 61 72 66 61  69 74 2e 20 49 6e 20 74  | imparfait. In t|
00000630  68 65 20 69 6d 70 61 72  66 61 69 74 2c 61 64 64  |he imparfait,add|
00000640  20 74 68 65 20 66 6f 6c  6c 6f 77 69 6e 67 20 65  | the following e|
00000650  6e 64 69 6e 67 73 20 74  6f 20 20 74 68 65 20 73  |ndings to  the s|
00000660  61 6d 65 20 73 74 65 6d  20 61 73 20 74 68 65 20  |ame stem as the |
00000670  31 73 74 20 70 65 72 73  6f 6e 20 70 6c 75 72 61  |1st person plura|
00000680  6c 20 20 70 72 65 73 65  6e 74 20 28 65 2e 67 2e  |l  present (e.g.|
00000690  20 6e 6f 75 73 20 46 49  4e 49 53 53 6f 6e 73 29  | nous FINISSons)|
000006a0  2e 22 3a fb 43 33 3a f1  3a f1 22 4a 65 20 64 6f  |.":.C3:.:."Je do|
000006b0  6e 6e 22 3b 3a e4 8d 54  60 43 0d 00 de 57 20 f1  |nn";:..T`C...W .|
000006c0  22 61 69 73 22 3b 3a e4  8d 54 6a 43 3a f1 22 49  |"ais";:..TjC:."I|
000006d0  20 77 61 73 20 67 69 76  69 6e 67 22 27 3a f1 22  | was giving"':."|
000006e0  74 75 20 64 6f 6e 6e 22  3b 3a e4 8d 54 60 43 3a  |tu donn";:..T`C:|
000006f0  f1 22 61 69 73 22 3b 3a  e4 8d 54 6a 43 3a f1 22  |."ais";:..TjC:."|
00000700  59 6f 75 20 77 65 72 65  20 67 69 76 69 6e 67 22  |You were giving"|
00000710  27 0d 00 e6 8e 20 f1 22  49 6c 20 64 6f 6e 6e 22  |'.... ."Il donn"|
00000720  3b 3a e4 8d 54 60 43 3a  f1 22 61 69 74 22 3b 3a  |;:..T`C:."ait";:|
00000730  e4 8d 54 6a 43 3a f1 22  48 65 20 77 61 73 20 67  |..TjC:."He was g|
00000740  69 76 69 6e 67 22 27 3a  f1 22 4e 6f 75 73 20 64  |iving"':."Nous d|
00000750  6f 6e 6e 22 3b 3a e4 8d  54 60 43 3a f1 22 69 6f  |onn";:..T`C:."io|
00000760  6e 73 22 3b 3a e4 8d 54  6a 43 3a f1 22 57 65 20  |ns";:..TjC:."We |
00000770  77 65 72 65 20 67 69 76  69 6e 67 22 27 3a f1 22  |were giving"':."|
00000780  56 6f 75 73 20 64 6f 6e  6e 22 3b 3a e4 8d 54 60  |Vous donn";:..T`|
00000790  43 3a f1 22 69 65 7a 22  3b 3a e4 8d 54 6a 43 0d  |C:."iez";:..TjC.|
000007a0  00 f0 8b 20 f1 22 59 6f  75 20 77 65 72 65 20 67  |... ."You were g|
000007b0  69 76 69 6e 67 22 27 3a  f1 22 49 6c 73 20 64 6f  |iving"':."Ils do|
000007c0  6e 6e 22 3b 3a e4 8d 54  60 43 3a f1 22 61 69 65  |nn";:..T`C:."aie|
000007d0  6e 74 22 3b 3a e4 8d 54  6a 43 3a f1 22 54 68 65  |nt";:..TjC:."The|
000007e0  79 20 77 65 72 65 20 67  69 76 69 6e 67 22 3a fb  |y were giving":.|
000007f0  43 32 3a f1 3a f1 22 54  68 65 20 6f 6e 6c 79 20  |C2:.:."The only |
00000800  69 6d 70 6f 72 74 61 6e  74 20 65 78 63 65 70 74  |important except|
00000810  69 6f 6e 20 69 73 20 4a  27 85 74 61 69 73 20 66  |ion is J'.tais f|
00000820  72 6f 6d 20 84 74 72 65  2e 22 0d 00 fa 13 20 f1  |rom .tre.".... .|
00000830  8a 30 2c 33 30 29 3b 3a  e4 8d 64 5e 43 0d 00 fc  |.0,30);:..d^C...|
00000840  06 20 f8 0d 01 04 65 20  db 3a f1 3a fb 43 32 3a  |. ....e .:.:.C2:|
00000850  fb 43 31 2b 31 32 38 3a  f1 8a 30 2c 33 29 3b 53  |.C1+128:..0,3);S|
00000860  24 3b 22 20 4c 27 69 6d  70 61 72 66 61 69 74 20  |$;" L'imparfait |
00000870  28 4d 69 63 72 6f 20 46  72 65 6e 63 68 29 20 20  |(Micro French)  |
00000880  22 3b bd 28 32 32 35 29  3b 22 20 4c 43 4c 20 31  |";.(225);" LCL 1|
00000890  39 38 36 20 22 3b 53 24  3a fb 43 30 2b 31 32 38  |986 ";S$:.C0+128|
000008a0  3a fb 43 33 3a f1 3a f1  0d 01 0e 12 20 48 24 3d  |:.C3:.:..... H$=|
000008b0  22 47 4d 41 58 47 4d 57  4c 22 0d 01 2c 09 20 4e  |"GMAXGMWL"..,. N|
000008c0  4d 3d 30 0d 01 2e 09 20  54 54 3d 91 0d 01 30 69  |M=0.... TT=...0i|
000008d0  20 f1 8a 30 2c 37 29 3b  22 5f 5f 5f 5f 5f 5f 5f  | ..0,7);"_______|
000008e0  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000900  5f 22 3b 8a 30 2c 31 31  29 3b 22 5f 5f 5f 5f 5f  |_";.0,11);"_____|
00000910  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000930  5f 5f 5f 22 3b 0d 01 36  0b 20 e3 49 3d 31 b8 34  |___";..6. .I=1.4|
00000940  0d 01 3e 27 20 e7 20 57  25 28 49 29 3c 3e 30 20  |..>' . W%(I)<>0 |
00000950  8c 20 57 3d 57 25 28 49  29 3a 57 25 28 49 29 3d  |. W=W%(I):W%(I)=|
00000960  30 3a e5 8d 44 41 41 0d  01 40 0c 20 57 3d b3 28  |0:..DAA..@. W=.(|
00000970  44 44 29 0d 01 41 2e 20  4a 24 3d c1 4a 24 28 2d  |DD)..A. J$=.J$(-|
00000980  28 57 3e 31 36 29 29 2c  31 33 2a 28 57 2d 31 29  |(W>16)),13*(W-1)|
00000990  2b 31 2b 28 57 3e 31 36  29 2a 32 30 38 2c 31 33  |+1+(W>16)*208,13|
000009a0  29 0d 01 42 0c 20 4e 25  28 49 29 3d 57 0d 01 4a  |)..B. N%(I)=W..J|
000009b0  08 20 4b 3d 49 0d 01 54  0c 20 f5 20 4b 3d 4b 2d  |. K=I..T. . K=K-|
000009c0  31 0d 01 5e 15 20 fd 20  4a 24 3d 51 24 28 4b 29  |1..^. . J$=Q$(K)|
000009d0  20 84 20 4b 3d 30 0d 01  68 14 20 e7 4a 24 3d 51  | . K=0..h. .J$=Q|
000009e0  24 28 4b 29 8c e5 8d 44  40 41 0d 01 72 0d 20 51  |$(K)...D@A..r. Q|
000009f0  24 28 49 29 3d 4a 24 0d  01 7c 31 20 41 24 28 49  |$(I)=J$..|1 A$(I|
00000a00  29 3d c1 4b 24 28 2d 28  57 3e 31 36 29 29 2c 31  |)=.K$(-(W>16)),1|
00000a10  31 2a 28 57 2d 31 29 2b  31 2b 28 57 3e 31 36 29  |1*(W-1)+1+(W>16)|
00000a20  2a 31 37 36 2c 31 31 29  0d 01 92 0d 20 59 3d 35  |*176,11).... Y=5|
00000a30  2b 49 2a 4e 4c 0d 01 94  08 20 58 3d 30 0d 01 a4  |+I*NL.... X=0...|
00000a40  0a 20 4c 44 3d 31 33 0d  01 ae 5f 20 f1 8a 31 31  |. LD=13..._ ..11|
00000a50  2c 59 2b 4e 4c 29 3b c2  51 24 28 49 29 2c 35 29  |,Y+NL);.Q$(I),5)|
00000a60  3b c0 44 24 2c 4c 44 29  3b 3a fb 20 43 33 2b 31  |;.D$,LD);:. C3+1|
00000a70  32 38 3a fb 20 43 31 3a  f1 8a 31 2c 59 29 3b c0  |28:. C1:..1,Y);.|
00000a80  51 24 28 49 29 2c 38 29  3a fb 20 43 30 2b 31 32  |Q$(I),8):. C0+12|
00000a90  38 3a fb 20 43 33 3a f1  8a 35 2c 59 2b 31 29 3b  |8:. C3:..5,Y+1);|
00000aa0  bd 28 32 33 38 29 0d 01  b0 31 20 f1 22 5f 5f 5f  |.(238)...1 ."___|
00000ab0  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000ad0  5f 5f 5f 5f 5f 22 3b 0d  01 b8 07 20 ed 49 0d 01  |_____";.... .I..|
00000ae0  ba 0f 20 44 44 3d 33 32  3a 57 4e 3d 30 0d 01 c2  |.. DD=32:WN=0...|
00000af0  0b 20 e3 49 3d 31 b8 34  0d 01 c4 1e 20 57 54 3d  |. .I=1.4.... WT=|
00000b00  30 3a 54 45 3d 54 45 2b  31 3a 49 24 3d 22 22 3a  |0:TE=TE+1:I$="":|
00000b10  49 41 24 3d 22 22 0d 01  c6 57 20 e7 20 49 3c 3e  |IA$=""...W . I<>|
00000b20  31 20 8c 20 f1 8a 30 2c  35 2b 28 49 2d 31 29 2a  |1 . ..0,5+(I-1)*|
00000b30  4e 4c 29 3b 22 20 22 2b  bd 28 31 30 29 2b bd 28  |NL);" "+.(10)+.(|
00000b40  38 29 2b 22 20 22 3b 8a  33 39 2c 4e 4c 2b 35 2b  |8)+" ";.39,NL+5+|
00000b50  28 49 2d 31 29 2a 4e 4c  29 3b 22 20 22 2b bd 28  |(I-1)*NL);" "+.(|
00000b60  31 30 29 2b bd 28 38 29  2b 22 20 22 3b 0d 01 cc  |10)+.(8)+" ";...|
00000b70  1f 20 e4 8d 54 60 43 3a  f1 20 8a 33 39 2c 4e 4c  |. ..T`C:. .39,NL|
00000b80  2b 35 2b 49 2a 4e 4c 29  3b 4d 24 3b 0d 01 e0 31  |+5+I*NL);M$;...1|
00000b90  20 fb 43 30 2b 31 32 38  3a fb 43 32 3a f1 8a 30  | .C0+128:.C2:..0|
00000ba0  2c 35 2b 49 2a 4e 4c 29  3b 4d 24 3b 3a f1 8a 31  |,5+I*NL);M$;:..1|
00000bb0  37 2c 4e 4c 2b 35 2b 49  2a 4e 4c 29 3b 0d 01 ea  |7,NL+5+I*NL);...|
00000bc0  67 20 49 31 24 3d bf 28  30 29 3a e7 20 49 31 24  |g I1$=.(0):. I1$|
00000bd0  3d 22 3f 22 20 8c 20 f1  20 8a 31 37 2c 35 2b 4e  |="?" . . .17,5+N|
00000be0  4c 2b 49 2a 4e 4c 29 3b  41 24 28 49 29 3b c4 31  |L+I*NL);A$(I);.1|
00000bf0  32 2d a9 28 41 24 28 49  29 29 2c 22 2e 22 29 3b  |2-.(A$(I)),".");|
00000c00  22 20 22 3b 3a fb 20 43  32 3a 57 4e 3d 57 4e 2b  |" ";:. C2:WN=WN+|
00000c10  31 3a 57 25 28 49 29 3d  4e 25 28 49 29 3a e5 20  |1:W%(I)=N%(I):. |
00000c20  8d 44 4e 42 0d 01 eb 6f  20 e7 20 57 54 3d 31 20  |.DNB...o . WT=1 |
00000c30  80 20 49 31 24 3c 3e 22  22 20 8c 20 4c 49 3d 31  |. I1$<>"" . LI=1|
00000c40  32 3a 4c 41 3d a9 28 41  24 28 49 29 29 3a fb 20  |2:LA=.(A$(I)):. |
00000c50  43 32 3a f1 20 c4 4c 49  2c 22 2e 22 29 3b 22 20  |C2:. .LI,".");" |
00000c60  20 22 3b c4 4c 49 2b 32  2c bd 28 38 29 29 3b bd  | ";.LI+2,.(8));.|
00000c70  28 31 30 29 3b c4 4c 41  2c 22 20 22 29 3b c4 4c  |(10);.LA," ");.L|
00000c80  41 2c bd 28 38 29 29 3b  bd 28 31 31 29 3b 3a 57  |A,.(8));.(11);:W|
00000c90  54 3d 30 0d 01 fd 5d 20  e7 49 31 24 3d 22 22 8c  |T=0...] .I1$="".|
00000ca0  58 50 3d b1 3a 59 50 3d  bc 3a f1 8a 30 2c 31 29  |XP=.:YP=.:..0,1)|
00000cb0  3b c3 28 54 45 29 2b 22  29 20 20 20 53 63 6f 72  |;.(TE)+")   Scor|
00000cc0  65 20 22 2b c3 28 4d 4b  29 2b 22 20 20 20 22 2b  |e "+.(MK)+"   "+|
00000cd0  c3 28 a8 28 91 2f 31 30  30 29 29 2b 22 20 73 22  |.(.(./100))+" s"|
00000ce0  3a f1 8a 58 50 2c 59 50  29 3b 3a e5 8d 64 6a 41  |:..XP,YP);:..djA|
00000cf0  0d 02 07 2f 20 e7 20 49  31 24 3d bd 28 31 33 29  |.../ . I1$=.(13)|
00000d00  20 84 20 a9 28 49 24 29  3e 31 31 20 84 20 49 31  | . .(I$)>11 . I1|
00000d10  24 3d bd 28 31 32 37 29  20 8c e5 8d 54 52 42 0d  |$=.(127) ...TRB.|
00000d20  02 0a 0a 20 f1 49 31 24  3b 0d 02 0d 5b 20 49 49  |... .I1$;...[ II|
00000d30  24 3d c1 41 24 28 49 29  2c a9 28 49 24 29 2b 31  |$=.A$(I),.(I$)+1|
00000d40  2c 31 29 3a e7 20 49 49  24 3d 49 31 24 20 84 20  |,1):. II$=I1$ . |
00000d50  bd 28 97 28 49 49 24 29  2b 26 36 30 29 3d 49 31  |.(.(II$)+&60)=I1|
00000d60  24 20 8c 20 49 24 3d 49  24 2b 49 49 24 20 20 8b  |$ . I$=I$+II$  .|
00000d70  20 49 24 3d 49 24 2b bd  28 97 28 49 31 24 29 84  | I$=I$+.(.(I1$).|
00000d80  26 32 30 29 0d 02 0e 0b  20 e5 20 8d 64 6a 41 0d  |&20).... . .djA.|
00000d90  02 12 21 20 e7 20 49 31  24 3c 3e bd 28 31 32 37  |..! . I1$<>.(127|
00000da0  29 20 84 20 49 24 3d 22  22 20 8c e5 8d 54 5c 42  |) . I$="" ...T\B|
00000db0  0d 02 14 14 20 49 24 3d  c0 49 24 2c a9 28 49 24  |.... I$=.I$,.(I$|
00000dc0  29 2d 31 29 0d 02 16 0d  20 f1 bd 28 31 32 37 29  |)-1).... ..(127)|
00000dd0  3b 0d 02 18 0b 20 e5 20  8d 64 6a 41 0d 02 1c 08  |;.... . .djA....|
00000de0  20 fb 43 31 0d 02 26 43  20 e7 c0 49 24 2b 53 24  | .C1..&C ..I$+S$|
00000df0  2c 31 31 29 3d 41 24 28  49 29 20 8c f1 20 8a 33  |,11)=A$(I) .. .3|
00000e00  37 2c bc 29 3b bd 28 32  32 34 29 3a d4 31 2c 2d  |7,.);.(224):.1,-|
00000e10  31 35 2c 31 30 31 2c 31  30 3a 54 53 3d 54 53 2b  |15,101,10:TS=TS+|
00000e20  31 3a e5 8d 54 7a 42 0d  02 32 11 20 f1 20 8a 33  |1:..TzB..2. . .3|
00000e30  37 2c bc 29 3b 22 58 22  0d 02 34 10 d4 31 2c 2d  |7,.);"X"..4..1,-|
00000e40  31 35 2c 37 33 2c 31 30  0d 02 36 10 20 d4 31 2c  |15,73,10..6. .1,|
00000e50  2d 31 35 2c 36 39 2c 35  0d 02 37 20 20 54 57 3d  |-15,69,5..7  TW=|
00000e60  54 57 2b 31 3a 57 4e 3d  57 4e 2b 31 3a 57 25 28  |TW+1:WN=WN+1:W%(|
00000e70  49 29 3d 4e 25 28 49 29  0d 02 38 1e 20 fb 43 32  |I)=N%(I)..8. .C2|
00000e80  3a f1 8a 31 37 2c 36 2b  4e 4c 2b 49 2a 4e 4c 29  |:..17,6+NL+I*NL)|
00000e90  3b 41 24 28 49 29 0d 02  39 1b 20 57 54 3d 31 3a  |;A$(I)..9. WT=1:|
00000ea0  49 24 3d 22 22 3a fb 20  43 32 3a e5 20 8d 64 4c  |I$="":. C2:. .dL|
00000eb0  41 0d 02 3a 09 20 fb 20  43 32 0d 02 44 19 20 4d  |A..:. . C2..D. M|
00000ec0  4b 3d a8 28 31 30 30 2a  54 53 2f 28 54 53 2b 54  |K=.(100*TS/(TS+T|
00000ed0  57 29 29 0d 02 4e 07 20  ed 49 0d 02 58 3c 20 fb  |W))..N. .I..X< .|
00000ee0  43 33 3a f1 8a 30 2c 32  39 29 3b 22 41 70 70 75  |C3:..0,29);"Appu|
00000ef0  79 65 72 20 73 75 72 20  43 20 70 6f 75 72 20 63  |yer sur C pour c|
00000f00  6f 6e 74 69 6e 75 65 72  2c 48 3d 61 69 64 65 72  |ontinuer,H=aider|
00000f10  22 3b 3a fb 43 32 0d 02  62 09 20 52 24 3d be 0d  |";:.C2..b. R$=..|
00000f20  02 64 32 20 e7 52 24 3c  3e 22 43 22 80 52 24 3c  |.d2 .R$<>"C".R$<|
00000f30  3e 22 63 22 20 80 20 52  24 3c 3e 22 48 22 20 80  |>"c" . R$<>"H" .|
00000f40  20 52 24 3c 3e 22 68 22  20 8c 20 e5 20 8d 44 62  | R$<>"h" . . .Db|
00000f50  42 0d 02 66 2f 20 e7 20  52 24 3d 22 43 22 20 84  |B..f/ . R$="C" .|
00000f60  20 52 24 3d 22 63 22 20  8c 20 e5 20 8d 54 44 41  | R$="c" . . .TDA|
00000f70  20 8b 20 db 3a e4 8d 64  52 40 3a e5 8d 54 44 41  | . .:..dR@:..TDA|
00000f80  0d 03 20 14 20 fb 20 43  32 2b 31 32 38 3a fb 20  |.. . . C2+128:. |
00000f90  43 31 3a f8 0d 03 2a 1d  20 fb 20 43 30 2b 31 32  |C1:...*. . C0+12|
00000fa0  38 3a fb 20 43 33 3a f1  8a 32 32 2c bc 29 3b 3a  |8:. C3:..22,.);:|
00000fb0  f8 0d 03 de 33 20 f1 22  41 70 70 75 79 65 7a 20  |....3 ."Appuyez |
00000fc0  73 75 72 20 27 52 65 74  75 72 6e 27 20 70 6f 75  |sur 'Return' pou|
00000fd0  72 20 63 6f 6e 74 69 6e  75 65 72 22 3b 3a e8 52  |r continuer";:.R|
00000fe0  42 24 3a f8 0d ff                                 |B$:...|
00000fe6
F/IMP.m0
F/IMP.m1
F/IMP.m2
F/IMP.m4
F/IMP.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .