� MICRO FRENCH (UNE)
 � COPYRIGHT (C) LCL 1986
 � �"MENU1":�
 *KEY10"OLD|M RUN|M"
 �1
(7 � J$(33),K$(33),L$(33),Q$(10),A$(10),W%(50),N%(10)
2 C0=0:C1=1:C2=2:C3=3
< �19,0,4,0,0,0,19,2,3,0,0,0
F, �23,224,&01,&02,&04,&08,&90,&A0,&C0,&80
G, �23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C
H �23,1,0;0;0;0;
P2 S$="                                        "
Z D$="...................."
d	 TS=0
n �C0+128
x
 �I=1�500
�- �J$(I):� I>16 � K$(I)="un" � K$(I)="une"
� �J$(I)<>"*"��tV@
� DA=I-1
� I=500 
�	 �I  
�) �I=1�500:� L$(I):� L$(I)="*" � I=500
� �
�
 TE=0 
�	 MK=0
� TW=0:WN=0
�	 �=0 
� �
� TE=TE+1
� �C1
� �C3+128
�E �0,3);S$;"  Une et un  (Micro French) ";�(225);" LCL 1986  ";S$
� �C0+128
� �C3

�H$="Words ending in -age,-eau,-ier and -eur are usually masculine. Words ending in  e and,in particular,ending in -ade,     -euse,-i�re,-ance and -ence are usually feminine. 'A' in masculine is 'un',and  in feminine is 'une'. "

" �H$;"Enter un/une/!/?"

,	 NM=0

.	 TT=�

6 �I=0�9

@, � I<>0 � I<=WN � W=W%(I):W%(I)=0:� �DBA

A W=�(DA)

B N%(I)=W

J
 K=I+1

T � K=K-1

^ � (J$(W)=Q$(K)) � K=0 

h �J$(W)=Q$(K)��DAA

r Q$(I+1)=J$(W) 

| A$(I+1)=K$(W)  

~ �I<>0��tPA

�T �0,14);"0 ";Q$(1);".";:� C2:�A$(1);�15-�(Q$(1))-�(A$(1)),".");:�C1:�(224):�C3

� �txA 

� �I>4��tZA

�
 Y=14+I*3

� X=0

� �I<5��tdA

� Y=14+(I-5)*3

�	 X=20

� LD=17-�Q$(I+1)

�$ �X,Y);I;" ";Q$(I+1);�D$,LD);  

� �I

�	 WN=0

� �I=1�9

� WT=0:TE=TE+1:I$=""

�7 � C2:�I<5� � �0,14+I*3);I;:�(Q$(I+1))+3,14+I*3);

�< �I>4� � �20,14+(I-5)*3);I;:�(Q$(I+1))+23,14+(I-5)*3);

� I1$=�(0):� I1$="?" � � �-(I>4)*20+�(Q$(I+1))+3,14+I*3+(I>4)*15);A$(I+1);�16-�(Q$(I+1))-�(A$(I+1)),".");" ";:� C2:WN=WN+1:W%(WN)=N%(I):� �DNB

� � WT=1 � I1$<>"" � LI=16-�(Q$(I+1)):LA=�(A$(I+1)):� C2:� �LI,".");" ";�2-(I>4)*20,15+(I+(I>4)*5)*3);�17," ");�-(I>4)*20+�(Q$(I+1))+3,14+I*3+(I>4)*15);:WT=0

�\ � I1$="!" �XP=�:YP=�:�2-(I>4)*20,15+(I+(I>4)*5)*3);L$(N%(I));�XP,YP);:�C2:I1$="":�djA

� �<(6000+TT)��d}A

�	 XP=�

�	 YP=�

� �C2

� �30,1);"TIME UP"

�	 � C2

� �XP,YP);

� �I1$<>""��TGB

�	 XP=�

�	 YP=�
; �0,1);�(TE)+")   Score "+�(MK)+"   "+�(�(�/100))+" s"

 �XP,YP);

 �djA
: � I1$=�(13) � �(Q$(I+1))+�(I$)>14 � I1$=�(127) ��TRB
 XP=�+1:YP=�


 �I1$;
; �0,1);�(TE)+")   Score "+�(MK)+"   "+�(�(�/100))+" s"
 �XP,YP);

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

 �(127);
 � �djA
 �C1
& �I$<>A$(I+1)��TpB
( �" ";�(224)
* �1,-15,101,10
,
 TS=TS+1 
0 �I$=A$(I+1)��TzB
2
 �" X"
4�1,-15,73,10
6 �1,-15,69,5
7! TW=TW+1:WN=WN+1:W%(WN)=N%(I)
8I �2-(I>4)*20,15+(I+(I>4)*5)*3);�17," ");�16-�(Q$(I+1)),�(8));A$(I+1)
9 WT=1:I$="":� C2:� �dLA
:	 � C2
D MK=�(100*TS/(TS+TW))
N �I
X7 �0,29);"Appuyez sur C pour continuer...........";
b	 R$=�
d �R$<>"C"�R$<>"c"��DbB 
l
 �t~@
v� � ambulance,"rivi�re","mati�re","barri�re",promenade,vendeuse,danseuse,salade,chanteuse,balle,fille,table,chaise,jupe,chemise,"fen�tre"
�� � garage,fermier,village,papier,seau,tableau,calendrier,courage,"�tage","h�telier",jardinier,policier,vendeur,danseur,cadeau,orage
� � *
� � ambulance,river,subject,gate,walk,shop assistant(f),dancer(f),lettuce,singer(f),ball,girl,table,chair,skirt,shirt,window
�� � garage,farmer(m),village,paper,bucket,painting,calendar,courage,floor,hotel-keeper,gardener,policeman,shop assistant(m),dancer(m),gift,storm,*
�

00000000  0d 00 0a 19 20 f4 20 4d  49 43 52 4f 20 46 52 45  |.... . MICRO FRE|
00000010  4e 43 48 20 28 55 4e 45  29 0d 00 14 1d 20 f4 20  |NCH (UNE).... . |
00000020  43 4f 50 59 52 49 47 48  54 20 28 43 29 20 4c 43  |COPYRIGHT (C) LC|
00000030  4c 20 31 39 38 36 0d 00  16 12 20 ee 85 20 d7 22  |L 1986.... .. ."|
00000040  4d 45 4e 55 31 22 3a f9  0d 00 18 18 20 2a 4b 45  |MENU1":..... *KE|
00000050  59 31 30 22 4f 4c 44 7c  4d 20 52 55 4e 7c 4d 22  |Y10"OLD|M RUN|M"|
00000060  0d 00 1e 07 20 eb 31 0d  00 28 37 20 de 20 4a 24  |.... .1..(7 . J$|
00000070  28 33 33 29 2c 4b 24 28  33 33 29 2c 4c 24 28 33  |(33),K$(33),L$(3|
00000080  33 29 2c 51 24 28 31 30  29 2c 41 24 28 31 30 29  |3),Q$(10),A$(10)|
00000090  2c 57 25 28 35 30 29 2c  4e 25 28 31 30 29 0d 00  |,W%(50),N%(10)..|
000000a0  32 18 20 43 30 3d 30 3a  43 31 3d 31 3a 43 32 3d  |2. C0=0:C1=1:C2=|
000000b0  32 3a 43 33 3d 33 0d 00  3c 1f 20 ef 31 39 2c 30  |2:C3=3..<. .19,0|
000000c0  2c 34 2c 30 2c 30 2c 30  2c 31 39 2c 32 2c 33 2c  |,4,0,0,0,19,2,3,|
000000d0  30 2c 30 2c 30 0d 00 46  2c 20 ef 32 33 2c 32 32  |0,0,0..F, .23,22|
000000e0  34 2c 26 30 31 2c 26 30  32 2c 26 30 34 2c 26 30  |4,&01,&02,&04,&0|
000000f0  38 2c 26 39 30 2c 26 41  30 2c 26 43 30 2c 26 38  |8,&90,&A0,&C0,&8|
00000100  30 0d 00 47 2c 20 ef 32  33 2c 32 32 35 2c 26 33  |0..G, .23,225,&3|
00000110  43 2c 26 34 32 2c 26 39  39 2c 26 41 31 2c 26 41  |C,&42,&99,&A1,&A|
00000120  31 2c 26 39 39 2c 26 34  32 2c 26 33 43 0d 00 48  |1,&99,&42,&3C..H|
00000130  13 20 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |. .23,1,0;0;0;0;|
00000140  0d 00 50 32 20 53 24 3d  22 20 20 20 20 20 20 20  |..P2 S$="       |
00000150  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000170  20 22 0d 00 5a 1e 20 44  24 3d 22 2e 2e 2e 2e 2e  | "..Z. D$=".....|
00000180  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 22  |..............."|
00000190  0d 00 64 09 20 54 53 3d  30 0d 00 6e 0c 20 fb 43  |..d. TS=0..n. .C|
000001a0  30 2b 31 32 38 0d 00 78  0d 20 e3 49 3d 31 b8 35  |0+128..x. .I=1.5|
000001b0  30 30 0d 00 82 2d 20 f3  4a 24 28 49 29 3a e7 20  |00...- .J$(I):. |
000001c0  49 3e 31 36 20 8c 20 4b  24 28 49 29 3d 22 75 6e  |I>16 . K$(I)="un|
000001d0  22 20 8b 20 4b 24 28 49  29 3d 22 75 6e 65 22 0d  |" . K$(I)="une".|
000001e0  00 8c 16 20 e7 4a 24 28  49 29 3c 3e 22 2a 22 8c  |... .J$(I)<>"*".|
000001f0  e5 8d 74 56 40 0d 00 8e  0b 20 44 41 3d 49 2d 31  |..tV@.... DA=I-1|
00000200  0d 00 90 0b 20 49 3d 35  30 30 20 0d 00 96 09 20  |.... I=500 .... |
00000210  ed 49 20 20 0d 00 98 29  20 e3 49 3d 31 b8 35 30  |.I  ...) .I=1.50|
00000220  30 3a f3 20 4c 24 28 49  29 3a e7 20 4c 24 28 49  |0:. L$(I):. L$(I|
00000230  29 3d 22 2a 22 20 8c 20  49 3d 35 30 30 0d 00 9a  |)="*" . I=500...|
00000240  06 20 ed 0d 00 a0 0a 20  54 45 3d 30 20 0d 00 aa  |. ..... TE=0 ...|
00000250  09 20 4d 4b 3d 30 0d 00  b4 0e 20 54 57 3d 30 3a  |. MK=0.... TW=0:|
00000260  57 4e 3d 30 0d 00 b6 09  20 d1 3d 30 20 0d 00 be  |WN=0.... .=0 ...|
00000270  06 20 db 0d 00 c8 0c 20  54 45 3d 54 45 2b 31 0d  |. ..... TE=TE+1.|
00000280  00 d2 08 20 fb 43 31 0d  00 dc 0c 20 fb 43 33 2b  |... .C1.... .C3+|
00000290  31 32 38 0d 00 e6 45 20  f1 8a 30 2c 33 29 3b 53  |128...E ..0,3);S|
000002a0  24 3b 22 20 20 55 6e 65  20 65 74 20 75 6e 20 20  |$;"  Une et un  |
000002b0  28 4d 69 63 72 6f 20 46  72 65 6e 63 68 29 20 22  |(Micro French) "|
000002c0  3b bd 28 32 32 35 29 3b  22 20 4c 43 4c 20 31 39  |;.(225);" LCL 19|
000002d0  38 36 20 20 22 3b 53 24  0d 00 f0 0c 20 fb 43 30  |86  ";S$.... .C0|
000002e0  2b 31 32 38 0d 00 fa 08  20 fb 43 33 0d 01 0e e7  |+128.... .C3....|
000002f0  48 24 3d 22 57 6f 72 64  73 20 65 6e 64 69 6e 67  |H$="Words ending|
00000300  20 69 6e 20 2d 61 67 65  2c 2d 65 61 75 2c 2d 69  | in -age,-eau,-i|
00000310  65 72 20 61 6e 64 20 2d  65 75 72 20 61 72 65 20  |er and -eur are |
00000320  75 73 75 61 6c 6c 79 20  6d 61 73 63 75 6c 69 6e  |usually masculin|
00000330  65 2e 20 57 6f 72 64 73  20 65 6e 64 69 6e 67 20  |e. Words ending |
00000340  69 6e 20 20 65 20 61 6e  64 2c 69 6e 20 70 61 72  |in  e and,in par|
00000350  74 69 63 75 6c 61 72 2c  65 6e 64 69 6e 67 20 69  |ticular,ending i|
00000360  6e 20 2d 61 64 65 2c 20  20 20 20 20 2d 65 75 73  |n -ade,     -eus|
00000370  65 2c 2d 69 86 72 65 2c  2d 61 6e 63 65 20 61 6e  |e,-i.re,-ance an|
00000380  64 20 2d 65 6e 63 65 20  61 72 65 20 75 73 75 61  |d -ence are usua|
00000390  6c 6c 79 20 66 65 6d 69  6e 69 6e 65 2e 20 27 41  |lly feminine. 'A|
000003a0  27 20 69 6e 20 6d 61 73  63 75 6c 69 6e 65 20 69  |' in masculine i|
000003b0  73 20 27 75 6e 27 2c 61  6e 64 20 20 69 6e 20 66  |s 'un',and  in f|
000003c0  65 6d 69 6e 69 6e 65 20  69 73 20 27 75 6e 65 27  |eminine is 'une'|
000003d0  2e 20 22 0d 01 22 1b 20  f1 48 24 3b 22 45 6e 74  |. "..". .H$;"Ent|
000003e0  65 72 20 75 6e 2f 75 6e  65 2f 21 2f 3f 22 0d 01  |er un/une/!/?"..|
000003f0  2c 09 20 4e 4d 3d 30 0d  01 2e 09 20 54 54 3d 91  |,. NM=0.... TT=.|
00000400  0d 01 36 0b 20 e3 49 3d  30 b8 39 0d 01 40 2c 20  |..6. .I=0.9..@, |
00000410  e7 20 49 3c 3e 30 20 80  20 49 3c 3d 57 4e 20 8c  |. I<>0 . I<=WN .|
00000420  20 57 3d 57 25 28 49 29  3a 57 25 28 49 29 3d 30  | W=W%(I):W%(I)=0|
00000430  3a e5 20 8d 44 42 41 0d  01 41 0c 20 57 3d b3 28  |:. .DBA..A. W=.(|
00000440  44 41 29 0d 01 42 0c 20  4e 25 28 49 29 3d 57 0d  |DA)..B. N%(I)=W.|
00000450  01 4a 0a 20 4b 3d 49 2b  31 0d 01 54 0c 20 f5 20  |.J. K=I+1..T. . |
00000460  4b 3d 4b 2d 31 0d 01 5e  1b 20 fd 20 28 4a 24 28  |K=K-1..^. . (J$(|
00000470  57 29 3d 51 24 28 4b 29  29 20 84 20 4b 3d 30 20  |W)=Q$(K)) . K=0 |
00000480  0d 01 68 17 20 e7 4a 24  28 57 29 3d 51 24 28 4b  |..h. .J$(W)=Q$(K|
00000490  29 8c e5 8d 44 41 41 0d  01 72 13 20 51 24 28 49  |)...DAA..r. Q$(I|
000004a0  2b 31 29 3d 4a 24 28 57  29 20 0d 01 7c 14 20 41  |+1)=J$(W) ..|. A|
000004b0  24 28 49 2b 31 29 3d 4b  24 28 57 29 20 20 0d 01  |$(I+1)=K$(W)  ..|
000004c0  7e 10 20 e7 49 3c 3e 30  8c e5 8d 74 50 41 0d 01  |~. .I<>0...tPA..|
000004d0  80 54 20 f1 8a 30 2c 31  34 29 3b 22 30 20 22 3b  |.T ..0,14);"0 ";|
000004e0  51 24 28 31 29 3b 22 2e  22 3b 3a fb 20 43 32 3a  |Q$(1);".";:. C2:|
000004f0  f1 41 24 28 31 29 3b c4  31 35 2d a9 28 51 24 28  |.A$(1);.15-.(Q$(|
00000500  31 29 29 2d a9 28 41 24  28 31 29 29 2c 22 2e 22  |1))-.(A$(1)),"."|
00000510  29 3b 3a fb 43 31 3a f1  bd 28 32 32 34 29 3a fb  |);:.C1:..(224):.|
00000520  43 33 0d 01 82 0b 20 e5  8d 74 78 41 20 0d 01 90  |C3.... ..txA ...|
00000530  0f 20 e7 49 3e 34 8c e5  8d 74 5a 41 0d 01 92 0d  |. .I>4...tZA....|
00000540  20 59 3d 31 34 2b 49 2a  33 0d 01 94 08 20 58 3d  | Y=14+I*3.... X=|
00000550  30 0d 01 9a 0f 20 e7 49  3c 35 8c e5 8d 74 64 41  |0.... .I<5...tdA|
00000560  0d 01 9c 11 20 59 3d 31  34 2b 28 49 2d 35 29 2a  |.... Y=14+(I-5)*|
00000570  33 0d 01 9e 09 20 58 3d  32 30 0d 01 a4 13 20 4c  |3.... X=20.... L|
00000580  44 3d 31 37 2d a9 51 24  28 49 2b 31 29 0d 01 ae  |D=17-.Q$(I+1)...|
00000590  24 20 f1 8a 58 2c 59 29  3b 49 3b 22 20 22 3b 51  |$ ..X,Y);I;" ";Q|
000005a0  24 28 49 2b 31 29 3b c0  44 24 2c 4c 44 29 3b 20  |$(I+1);.D$,LD); |
000005b0  20 0d 01 b8 07 20 ed 49  0d 01 ba 09 20 57 4e 3d  | .... .I.... WN=|
000005c0  30 0d 01 c2 0b 20 e3 49  3d 31 b8 39 0d 01 c4 17  |0.... .I=1.9....|
000005d0  20 57 54 3d 30 3a 54 45  3d 54 45 2b 31 3a 49 24  | WT=0:TE=TE+1:I$|
000005e0  3d 22 22 0d 01 cc 37 20  fb 20 43 32 3a e7 49 3c  |=""...7 . C2:.I<|
000005f0  35 8c 20 f1 20 8a 30 2c  31 34 2b 49 2a 33 29 3b  |5. . .0,14+I*3);|
00000600  49 3b 3a f1 8a a9 28 51  24 28 49 2b 31 29 29 2b  |I;:...(Q$(I+1))+|
00000610  33 2c 31 34 2b 49 2a 33  29 3b 0d 01 d6 3c 20 e7  |3,14+I*3);...< .|
00000620  49 3e 34 8c 20 f1 20 8a  32 30 2c 31 34 2b 28 49  |I>4. . .20,14+(I|
00000630  2d 35 29 2a 33 29 3b 49  3b 3a f1 8a a9 28 51 24  |-5)*3);I;:...(Q$|
00000640  28 49 2b 31 29 29 2b 32  33 2c 31 34 2b 28 49 2d  |(I+1))+23,14+(I-|
00000650  35 29 2a 33 29 3b 0d 01  ea 91 20 49 31 24 3d bf  |5)*3);.... I1$=.|
00000660  28 30 29 3a e7 20 49 31  24 3d 22 3f 22 20 8c 20  |(0):. I1$="?" . |
00000670  f1 20 8a 2d 28 49 3e 34  29 2a 32 30 2b a9 28 51  |. .-(I>4)*20+.(Q|
00000680  24 28 49 2b 31 29 29 2b  33 2c 31 34 2b 49 2a 33  |$(I+1))+3,14+I*3|
00000690  2b 28 49 3e 34 29 2a 31  35 29 3b 41 24 28 49 2b  |+(I>4)*15);A$(I+|
000006a0  31 29 3b c4 31 36 2d a9  28 51 24 28 49 2b 31 29  |1);.16-.(Q$(I+1)|
000006b0  29 2d a9 28 41 24 28 49  2b 31 29 29 2c 22 2e 22  |)-.(A$(I+1)),"."|
000006c0  29 3b 22 20 22 3b 3a fb  20 43 32 3a 57 4e 3d 57  |);" ";:. C2:WN=W|
000006d0  4e 2b 31 3a 57 25 28 57  4e 29 3d 4e 25 28 49 29  |N+1:W%(WN)=N%(I)|
000006e0  3a e5 20 8d 44 4e 42 0d  01 eb a0 20 e7 20 57 54  |:. .DNB.... . WT|
000006f0  3d 31 20 80 20 49 31 24  3c 3e 22 22 20 8c 20 4c  |=1 . I1$<>"" . L|
00000700  49 3d 31 36 2d a9 28 51  24 28 49 2b 31 29 29 3a  |I=16-.(Q$(I+1)):|
00000710  4c 41 3d a9 28 41 24 28  49 2b 31 29 29 3a fb 20  |LA=.(A$(I+1)):. |
00000720  43 32 3a f1 20 c4 4c 49  2c 22 2e 22 29 3b 22 20  |C2:. .LI,".");" |
00000730  22 3b 8a 32 2d 28 49 3e  34 29 2a 32 30 2c 31 35  |";.2-(I>4)*20,15|
00000740  2b 28 49 2b 28 49 3e 34  29 2a 35 29 2a 33 29 3b  |+(I+(I>4)*5)*3);|
00000750  c4 31 37 2c 22 20 22 29  3b 8a 2d 28 49 3e 34 29  |.17," ");.-(I>4)|
00000760  2a 32 30 2b a9 28 51 24  28 49 2b 31 29 29 2b 33  |*20+.(Q$(I+1))+3|
00000770  2c 31 34 2b 49 2a 33 2b  28 49 3e 34 29 2a 31 35  |,14+I*3+(I>4)*15|
00000780  29 3b 3a 57 54 3d 30 0d  01 ec 5c 20 e7 20 49 31  |);:WT=0...\ . I1|
00000790  24 3d 22 21 22 20 8c 58  50 3d b1 3a 59 50 3d bc  |$="!" .XP=.:YP=.|
000007a0  3a f1 8a 32 2d 28 49 3e  34 29 2a 32 30 2c 31 35  |:..2-(I>4)*20,15|
000007b0  2b 28 49 2b 28 49 3e 34  29 2a 35 29 2a 33 29 3b  |+(I+(I>4)*5)*3);|
000007c0  4c 24 28 4e 25 28 49 29  29 3b 8a 58 50 2c 59 50  |L$(N%(I));.XP,YP|
000007d0  29 3b 3a fb 43 32 3a 49  31 24 3d 22 22 3a e5 8d  |);:.C2:I1$="":..|
000007e0  64 6a 41 0d 01 f2 17 20  e7 91 3c 28 36 30 30 30  |djA.... ..<(6000|
000007f0  2b 54 54 29 8c e5 8d 64  7d 41 0d 01 f4 09 20 58  |+TT)...d}A.... X|
00000800  50 3d b1 0d 01 f6 09 20  59 50 3d bc 0d 01 f8 08  |P=..... YP=.....|
00000810  20 fb 43 32 0d 01 fa 16  20 f1 8a 33 30 2c 31 29  | .C2.... ..30,1)|
00000820  3b 22 54 49 4d 45 20 55  50 22 0d 01 fb 09 20 fb  |;"TIME UP".... .|
00000830  20 43 32 0d 01 fc 0e 20  f1 8a 58 50 2c 59 50 29  | C2.... ..XP,YP)|
00000840  3b 0d 01 fd 13 20 e7 49  31 24 3c 3e 22 22 8c e5  |;.... .I1$<>""..|
00000850  8d 54 47 42 0d 01 fe 09  20 58 50 3d b1 0d 01 ff  |.TGB.... XP=....|
00000860  09 20 59 50 3d bc 0d 02  00 3b 20 f1 8a 30 2c 31  |. YP=....; ..0,1|
00000870  29 3b c3 28 54 45 29 2b  22 29 20 20 20 53 63 6f  |);.(TE)+")   Sco|
00000880  72 65 20 22 2b c3 28 4d  4b 29 2b 22 20 20 20 22  |re "+.(MK)+"   "|
00000890  2b c3 28 a8 28 91 2f 31  30 30 29 29 2b 22 20 73  |+.(.(./100))+" s|
000008a0  22 0d 02 01 0e 20 f1 8a  58 50 2c 59 50 29 3b 0d  |".... ..XP,YP);.|
000008b0  02 02 0a 20 e5 8d 64 6a  41 0d 02 07 3a 20 e7 20  |... ..djA...: . |
000008c0  49 31 24 3d bd 28 31 33  29 20 84 20 a9 28 51 24  |I1$=.(13) . .(Q$|
000008d0  28 49 2b 31 29 29 2b a9  28 49 24 29 3e 31 34 20  |(I+1))+.(I$)>14 |
000008e0  84 20 49 31 24 3d bd 28  31 32 37 29 20 8c e5 8d  |. I1$=.(127) ...|
000008f0  54 52 42 0d 02 08 10 20  58 50 3d b1 2b 31 3a 59  |TRB.... XP=.+1:Y|
00000900  50 3d bc 0d 02 0a 0a 20  f1 49 31 24 3b 0d 02 0b  |P=..... .I1$;...|
00000910  3b 20 f1 8a 30 2c 31 29  3b c3 28 54 45 29 2b 22  |; ..0,1);.(TE)+"|
00000920  29 20 20 20 53 63 6f 72  65 20 22 2b c3 28 4d 4b  |)   Score "+.(MK|
00000930  29 2b 22 20 20 20 22 2b  c3 28 a8 28 91 2f 31 30  |)+"   "+.(.(./10|
00000940  30 29 29 2b 22 20 73 22  0d 02 0c 0e 20 f1 8a 58  |0))+" s".... ..X|
00000950  50 2c 59 50 29 3b 0d 02  0d 3c 20 e7 20 97 28 49  |P,YP);...< . .(I|
00000960  31 24 29 3c 3e 2d 31 20  8c 20 49 24 3d 49 24 2b  |1$)<>-1 . I$=I$+|
00000970  bd 28 97 28 49 31 24 29  84 26 32 30 29 20 8b 20  |.(.(I1$).&20) . |
00000980  49 24 3d 49 24 2b bd 28  97 28 49 31 29 2d 26 36  |I$=I$+.(.(I1)-&6|
00000990  30 29 0d 02 0e 0b 20 e5  20 8d 64 6a 41 0d 02 12  |0).... . .djA...|
000009a0  21 20 e7 20 49 31 24 3c  3e bd 28 31 32 37 29 20  |! . I1$<>.(127) |
000009b0  84 20 49 24 3d 22 22 20  8c e5 8d 54 5c 42 0d 02  |. I$="" ...T\B..|
000009c0  14 14 20 49 24 3d c0 49  24 2c a9 28 49 24 29 2d  |.. I$=.I$,.(I$)-|
000009d0  31 29 0d 02 16 0d 20 f1  bd 28 31 32 37 29 3b 0d  |1).... ..(127);.|
000009e0  02 18 0b 20 e5 20 8d 64  6a 41 0d 02 1c 08 20 fb  |... . .djA.... .|
000009f0  43 31 0d 02 26 17 20 e7  49 24 3c 3e 41 24 28 49  |C1..&. .I$<>A$(I|
00000a00  2b 31 29 8c e5 8d 54 70  42 0d 02 28 10 20 f1 22  |+1)...TpB..(. ."|
00000a10  20 22 3b bd 28 32 32 34  29 0d 02 2a 12 20 d4 31  | ";.(224)..*. .1|
00000a20  2c 2d 31 35 2c 31 30 31  2c 31 30 0d 02 2c 0d 20  |,-15,101,10..,. |
00000a30  54 53 3d 54 53 2b 31 20  0d 02 30 16 20 e7 49 24  |TS=TS+1 ..0. .I$|
00000a40  3d 41 24 28 49 2b 31 29  8c e5 8d 54 7a 42 0d 02  |=A$(I+1)...TzB..|
00000a50  32 0a 20 f1 22 20 58 22  0d 02 34 10 d4 31 2c 2d  |2. ." X"..4..1,-|
00000a60  31 35 2c 37 33 2c 31 30  0d 02 36 10 20 d4 31 2c  |15,73,10..6. .1,|
00000a70  2d 31 35 2c 36 39 2c 35  0d 02 37 21 20 54 57 3d  |-15,69,5..7! TW=|
00000a80  54 57 2b 31 3a 57 4e 3d  57 4e 2b 31 3a 57 25 28  |TW+1:WN=WN+1:W%(|
00000a90  57 4e 29 3d 4e 25 28 49  29 0d 02 38 49 20 f1 8a  |WN)=N%(I)..8I ..|
00000aa0  32 2d 28 49 3e 34 29 2a  32 30 2c 31 35 2b 28 49  |2-(I>4)*20,15+(I|
00000ab0  2b 28 49 3e 34 29 2a 35  29 2a 33 29 3b c4 31 37  |+(I>4)*5)*3);.17|
00000ac0  2c 22 20 22 29 3b c4 31  36 2d a9 28 51 24 28 49  |," ");.16-.(Q$(I|
00000ad0  2b 31 29 29 2c bd 28 38  29 29 3b 41 24 28 49 2b  |+1)),.(8));A$(I+|
00000ae0  31 29 0d 02 39 1b 20 57  54 3d 31 3a 49 24 3d 22  |1)..9. WT=1:I$="|
00000af0  22 3a fb 20 43 32 3a e5  20 8d 64 4c 41 0d 02 3a  |":. C2:. .dLA..:|
00000b00  09 20 fb 20 43 32 0d 02  44 19 20 4d 4b 3d a8 28  |. . C2..D. MK=.(|
00000b10  31 30 30 2a 54 53 2f 28  54 53 2b 54 57 29 29 0d  |100*TS/(TS+TW)).|
00000b20  02 4e 07 20 ed 49 0d 02  58 37 20 f1 8a 30 2c 32  |.N. .I..X7 ..0,2|
00000b30  39 29 3b 22 41 70 70 75  79 65 7a 20 73 75 72 20  |9);"Appuyez sur |
00000b40  43 20 70 6f 75 72 20 63  6f 6e 74 69 6e 75 65 72  |C pour continuer|
00000b50  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 22 3b 0d 02 62  |...........";..b|
00000b60  09 20 52 24 3d be 0d 02  64 1c 20 e7 52 24 3c 3e  |. R$=...d. .R$<>|
00000b70  22 43 22 80 52 24 3c 3e  22 63 22 8c e5 8d 44 62  |"C".R$<>"c"...Db|
00000b80  42 20 0d 02 6c 0a 20 e5  8d 74 7e 40 0d 02 76 8c  |B ..l. ..t~@..v.|
00000b90  20 dc 20 61 6d 62 75 6c  61 6e 63 65 2c 22 72 69  | . ambulance,"ri|
00000ba0  76 69 86 72 65 22 2c 22  6d 61 74 69 86 72 65 22  |vi.re","mati.re"|
00000bb0  2c 22 62 61 72 72 69 86  72 65 22 2c 70 72 6f 6d  |,"barri.re",prom|
00000bc0  65 6e 61 64 65 2c 76 65  6e 64 65 75 73 65 2c 64  |enade,vendeuse,d|
00000bd0  61 6e 73 65 75 73 65 2c  73 61 6c 61 64 65 2c 63  |anseuse,salade,c|
00000be0  68 61 6e 74 65 75 73 65  2c 62 61 6c 6c 65 2c 66  |hanteuse,balle,f|
00000bf0  69 6c 6c 65 2c 74 61 62  6c 65 2c 63 68 61 69 73  |ille,table,chais|
00000c00  65 2c 6a 75 70 65 2c 63  68 65 6d 69 73 65 2c 22  |e,jupe,chemise,"|
00000c10  66 65 6e e4 74 72 65 22  0d 02 80 87 20 dc 20 67  |fen.tre".... . g|
00000c20  61 72 61 67 65 2c 66 65  72 6d 69 65 72 2c 76 69  |arage,fermier,vi|
00000c30  6c 6c 61 67 65 2c 70 61  70 69 65 72 2c 73 65 61  |llage,papier,sea|
00000c40  75 2c 74 61 62 6c 65 61  75 2c 63 61 6c 65 6e 64  |u,tableau,calend|
00000c50  72 69 65 72 2c 63 6f 75  72 61 67 65 2c 22 85 74  |rier,courage,".t|
00000c60  61 67 65 22 2c 22 68 88  74 65 6c 69 65 72 22 2c  |age","h.telier",|
00000c70  6a 61 72 64 69 6e 69 65  72 2c 70 6f 6c 69 63 69  |jardinier,polici|
00000c80  65 72 2c 76 65 6e 64 65  75 72 2c 64 61 6e 73 65  |er,vendeur,danse|
00000c90  75 72 2c 63 61 64 65 61  75 2c 6f 72 61 67 65 0d  |ur,cadeau,orage.|
00000ca0  02 8a 08 20 dc 20 2a 0d  02 94 7f 20 dc 20 61 6d  |... . *.... . am|
00000cb0  62 75 6c 61 6e 63 65 2c  72 69 76 65 72 2c 73 75  |bulance,river,su|
00000cc0  62 6a 65 63 74 2c 67 61  74 65 2c 77 61 6c 6b 2c  |bject,gate,walk,|
00000cd0  73 68 6f 70 20 61 73 73  69 73 74 61 6e 74 28 66  |shop assistant(f|
00000ce0  29 2c 64 61 6e 63 65 72  28 66 29 2c 6c 65 74 74  |),dancer(f),lett|
00000cf0  75 63 65 2c 73 69 6e 67  65 72 28 66 29 2c 62 61  |uce,singer(f),ba|
00000d00  6c 6c 2c 67 69 72 6c 2c  74 61 62 6c 65 2c 63 68  |ll,girl,table,ch|
00000d10  61 69 72 2c 73 6b 69 72  74 2c 73 68 69 72 74 2c  |air,skirt,shirt,|
00000d20  77 69 6e 64 6f 77 0d 02  9e 95 20 dc 20 67 61 72  |window.... . gar|
00000d30  61 67 65 2c 66 61 72 6d  65 72 28 6d 29 2c 76 69  |age,farmer(m),vi|
00000d40  6c 6c 61 67 65 2c 70 61  70 65 72 2c 62 75 63 6b  |llage,paper,buck|
00000d50  65 74 2c 70 61 69 6e 74  69 6e 67 2c 63 61 6c 65  |et,painting,cale|
00000d60  6e 64 61 72 2c 63 6f 75  72 61 67 65 2c 66 6c 6f  |ndar,courage,flo|
00000d70  6f 72 2c 68 6f 74 65 6c  2d 6b 65 65 70 65 72 2c  |or,hotel-keeper,|
00000d80  67 61 72 64 65 6e 65 72  2c 70 6f 6c 69 63 65 6d  |gardener,policem|
00000d90  61 6e 2c 73 68 6f 70 20  61 73 73 69 73 74 61 6e  |an,shop assistan|
00000da0  74 28 6d 29 2c 64 61 6e  63 65 72 28 6d 29 2c 67  |t(m),dancer(m),g|
00000db0  69 66 74 2c 73 74 6f 72  6d 2c 2a 0d ff           |ift,storm,*..|
00000dbd