F/ORAL

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

F/ORAL

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/ORAL
Read OK:	✔
File size:	162E bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

Duplicates

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

Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_36.ADF » F/ORAL
Personal collection » Acorn hard disk » zipped_disks » elk03 » eug36/F/ORAL

File contents

   10 REM MICRO FRENCH (ORAL)
   20 REM COPYRIGHT (C) LCL 1986
   30ONERRORCHAIN"MENU2":RUN
   40 *KEY10"OLD|M RUN|M"
   50 MODE4
   60 DIM K$(4)
   70 C0=0:C1=1:C2=0:C3=1
   80 NU$="0123456789":NN$="un    deux  trois quatrecinq  24564"
  110 VDU19,0,4,0,0,0
  120 VDU23,224,&01,&02,&04,&08,&90,&A0,&C0,&80
  130 VDU23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C
  140 VDU23,1,0;0;0;0;
  150 S$=STRING$(40," "):TS=0
  151 COLOURC2:COLOURC1+128:CLS:PRINTSTRING$(40,"_");S$;" Examen oral (Micro French)  ";CHR$(225);" LCL 1986 ";STRING$(40,"_")
  152 PRINT:PRINT"Fill in this form about yourself.Just   press 'RETURN' if you do not know the   answer,or if the answer is 'none','no'  or 'not applicable'.":PRINT:D$=STRING$(19,".")
  153 PRINT"NAME";TAB(20);D$:PRINT:PRINT"AGE (if under 21)";TAB(20);D$:PRINT:PRINT"NO. OF SISTERS";TAB(20);D$:PRINT:PRINT"NO. OF BROTHERS";TAB(20);D$:PRINT
  154 PRINT"FAVOURITE HOBBY                         (TV/R=records/C=computers/F=football)..":PRINT:PRINT"WEATHER TODAY    ";:WT$="                       (S=sunny/R=rainy/C=cold/H=hot) ........":PRINTWT$:PRINT:PRINT"WEATHER YESTERDAY";WT$
  155 PRINTTAB(20,11);:INPUT NM$:PRINTTAB(20,VPOS+1);:INPUT AG$:PRINTTAB(20,VPOS+1);:INPUTSI$:PRINTTAB(20,VPOS+1);:INPUTBR$:PRINTTAB(37,VPOS+2);:INPUTHB$:PRINTTAB(31,23);:INPUT WE$:PRINTTAB(31,26);:INPUT WY$
  160 PRINTTAB(0,30);"Appuyez sur C pour continuer ..........";:R$=GET$
  170 COLOURC0+128
  270 TE=0:MK=0:TW=0:TIME=0
  272 FORTE=1 TO 8
  280 CLS
  300 COLOURC0
  310 COLOURC3+128
  320 PRINTTAB(0,3);S$;" Examen oral (Micro French)  ";CHR$(225);" LCL 1986 ";S$
  330 COLOURC0+128
  340 COLOURC3
  350 H$="Listen to Side 2 of the Voice tape.Afteryou hear the question,press 1,2,3 or 4  and then speak the answer.Then listen toall the possible correct answers."
  360 PRINTH$
  370 NM=0 
  380 TT=TIME
  400 ON TE GOSUB 1100,1200,1300,1400,1500,1600,1700,1800
  460 Y=14
  470 X=0
  520 PRINTTAB(X,Y);Q$
  530 FORJ=1TO3
  532 IF RND(2)=1 THEN TP$=K$(J):K$(J)=K$(J+1):K$(J+1)=TP$
  534 NEXT
  537 FORK=1TO4
  538 PRINT:COLOUR C1+128:COLOURC0:PRINTSTR$(K);:COLOUR C0+128:COLOURC1:PRINT" ";RIGHT$(K$(K),LEN(K$(K))-1)
  539 NEXT
  540 PRINT:PRINT
  580 I1$=INKEY$(0):IF I1$<>"" AND I1$<>"1" AND I1$<>"2" AND I1$<>"3" AND I1$<>"4" THENGOTO580
  590 IFTIME< (800+TT) THEN GOTO660
  600 XP=POS
  610 YP=VPOS
  620 COLOURC2
  630 PRINTTAB(30,1);"TIME UP"
  640COLOURC3
  650 PRINTTAB(XP,YP);
  660 IFI1$<>""THENI1=VAL(I1$):GOTO840
  670 XP=POS
  680 YP=VPOS
  690 PRINTTAB(0,1);STR$(TE)+")   Score "+STR$(MK)+"   "+STR$(INT(TIME/100))+" s"
  700 PRINTTAB(XP,YP);
  720 GOTO580
  840 PRINTI1$;:COLOURC1 
  850 IFLEFT$(K$(I1),1)="0" THENGOTO890
  860 PRINT" ";CHR$(224)
  870 REM SOUND1,-15,101,10
  880 TS=TS+1 
  890 IFLEFT$(K$(I1),1)="1" THENGOTO950
  900 PRINT" X"
  902 COLOUR C3
  910SOUND1,-15,73,10
  920 SOUND1,-15,69,5
  930 TW=TW+1
  940 PRINT:PRINT"It should be ";-(LEFT$(K$(1),1)="1")-(LEFT$(K$(2),1)="1")*2-(LEFT$(K$(3),1)="1")*3-(LEFT$(K$(4),1)="1")*4
  950 COLOURC3
  960 MK=INT(100*TS/(TS+TW))
  980 PRINTTAB(0,29);"Appuyez sur C pour continuer...........";
  990 R$=GET$
 1000 IFR$<>"C"ANDR$<>"c"THENGOTO990 
 1010 NEXT
 1012 ERROR
 1100 Q$="Bonjour":K$(1)="0Bonjour madame":K$(2)="1Bonjour monsieur":K$(3)="0Oui,c'est un bon jour":K$(4)="0Merci":RETURN
 1200 Q$="Comment vous appelez-vous?":K$(1)="1Je m'appelle "+NM$:K$(2)="0J'appelle "+NM$:K$(3)="0Vous appelez "+NM$:K$(4)="0Vous vous appelez "+NM$:RETURN
 1300 Q$="Quelle �ge avez-vous,"+NM$
 1310 IFAG$=""THEN K$(1)="1C'est une question indiscr�te":AJ$="":GOTO1380
 1320 F$=AG$:GOSUB2000:AJ$=TF$:IF AJ$="" THEN AJ$=AG$
 1350 AY$="huit ans        neuf ans        dix ans         onze ans        douze ans       treize ans      quatorze ans    quinze ans      seize ans       dix-sept ans    dix-huit ans    "
 1360 AY$=AY$+"dix-neuf ans    vingt ans       vingt et un ans ":IF VAL(AJ$)>=8 AND VAL(AJ$)<22 THEN AJ$=MID$(AY$,(VAL(AJ$)-8)*16+1,16) ELSE AJ$=AJ$+" ans"
 1370 K$(1)="1J'ai "+AJ$
 1380 K$(2)="0Je suis "+AJ$
 1390 K$(3)="0Vous avez "+AJ$:K$(4)="0J'ai beaucoup d'�ge":RETURN
 1400 Q$="Vous avez des fr�res et s�urs?":KK$="Non,je suis enfant unique"
 1410 IF (SI$="" OR SI$="0") AND (BR$="" OR BR$="0") THEN K$(1)="1"+KK$:TS$="":TB$="":GOTO1490
 1412 K$(1)="":TS$="":TB$="":IF SI$="" OR SI$="0" THEN GOTO1432
 1420 SS$=" s�urs":F$=SI$:GOSUB 2000:TS$=TF$:IF WF$="" THEN SI$=SI$+SS$ ELSE SI$=MID$(NN$,VAL(TS$)*6-5,VAL(MID$(NN$,30+VAL(TS$),1)))+SS$
 1432 IF BR$="" OR BR$="0" THEN GOTO1452
 1440 F$=BR$:GOSUB 2000:TB$=TF$:IF WF$="" THEN BR$=BR$+" fr�res" ELSE BR$=MID$(NN$,VAL(TB$)*6-5,VAL(MID$(NN$,30+VAL(TB$),1)))+" fr�res"
 1452 REM
 1453 SS$="une s�ur":IF TS$="1" THEN SI$=SS$
 1456 IF TB$="1" THEN BR$="un fr�re"
 1462 IF TB$="" THEN K$(1)="1Oui,j'ai "+SI$:GOTO1490
 1470 IF TS$="" THEN K$(1)="1Oui,j'ai "+BR$:GOTO1490
 1480 K$(1)="1Oui,j'ai "+SI$+" et "+BR$
 1490 K$(3)="0Oui,je suis un fr�re":K$(4)="0Oui,je suis une s�ur"
 1492 SB=VAL(TB$)+VAL(TS$):IF SB=0 THEN K$(2)="1Non,je n'en ai rien" ELSE K$(2)="1Oui,j'en ai "+MID$(NN$,SB*6-5,VAL(MID$(NN$,30+SB,1)))
 1494 RETURN
 1500 Q$="Quel est votre passe-temps favori?"
 1510 K$(1)="J'aime regarder la t�l�vision":K$(2)="J'aime jouer au football":K$(3)="J'aime �couter des disques":K$(4)="Je m'int�resse aux ordinateurs"
 1520 AI$="":IF HB$="TV" OR HB$="tv" THEN K$(1)="1"+AI$+K$(1):GOTO1560
 1530 IF HB$="F" OR HB$="f" THEN K$(2)="1"+AI$+K$(2):GOTO1560
 1540 IF HB$="R" OR HB$="r" THEN K$(3)="1"+AI$+K$(3):GOTO1560
 1550 IF HB$="C" OR HB$="c" THEN K$(4)="1"+K$(4):GOTO1560
 1552 HB$="TV":GOTO1520
 1560 N0=0:FOR J=1TO4:IF LEFT$(K$(J),1)<>"1" THEN K$(J)="0"+AI$+K$(J):N0=1
 1570 NEXT
 1580 IF N0=0 THEN K$(1)="1"+RIGHT$(K$(1),29)
 1590 RETURN
 1600 Q$="Quel temps fait-il aujourd'hui?"
 1610 F$=WE$:GOSUB 2020
 1650 K$(1)=K$(1)+"Il fait beau":K$(2)=K$(2)+"Il pleut":K$(3)=K$(3)+"Il fait froid":K$(4)=K$(4)+"Il fait tr�s chaud":RETURN
 1700 Q$="Quel temps a-t-il fait hier?"
 1710 F$=WY$:GOSUB 2020
 1720 K$(1)=K$(1)+"Hier il a fait beau temps":K$(2)=K$(2)+"Il a plu":K$(3)=K$(3)+"Il a fait froid":K$(4)=K$(4)+"Il a fait tr�s chaud"
 1730 IF LEFT$(K$(1),1)="1" THEN K$(3)="0Il fait beau":GOTO1770
 1740 IF LEFT$(K$(2),1)="1" THEN K$(4)="0Il pleut":GOTO1770
 1750 IF LEFT$(K$(3),1)="1" THEN K$(2)="0Il fait froid":GOTO1770
 1760 IF LEFT$(K$(4),1)="1" THEN K$(1)="0Il fait tr�s chaud"
 1770 RETURN
 1800 Q$="Bon.Merci "+NM$
 1810 K$(1)="0Oui,c'est bon":K$(2)="1Au revoir,monsieur,et merci":K$(3)="0Au revoir,madame,et merci":K$(4)="0Voulez-vous r�p�ter la question":RETURN
 2000 TF$="":WF$="":FORH=1TOLEN(F$):DS$=MID$(F$,H,1):IF INSTR(NU$,DS$)<>0 THEN TF$=TF$+DS$
 2012 IF INSTR("12345",DS$)<>0 THEN WF$=WF$+DS$ 
 2014 NEXT:RETURN
 2020 FORJ=1TO4:K$(J)="0":NEXT:IF F$="S" OR F$="s" THEN K$(1)="1":GOTO2070
 2030 IF F$="R" OR F$="r" THEN K$(2)="1":GOTO2070
 2040 IF F$="C" OR F$="c" THEN K$(3)="1":GOTO2070
 2050 IF F$="H" OR F$="h" THEN K$(4)="1":GOTO2070
 2060 F$="S":K$(1)="1"
 2070 RETURN


 � MICRO FRENCH (ORAL)
 � COPYRIGHT (C) LCL 1986
��"MENU2":�
( *KEY10"OLD|M RUN|M"
2 �4
< � K$(4)
F C0=0:C1=1:C2=0:C3=1
P? NU$="0123456789":NN$="un    deux  trois quatrecinq  24564"
n �19,0,4,0,0,0
x, �23,224,&01,&02,&04,&08,&90,&A0,&C0,&80
�, �23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C
� �23,1,0;0;0;0;
� S$=�40," "):TS=0
�\ �C2:�C1+128:�:��40,"_");S$;" Examen oral (Micro French)  ";�(225);" LCL 1986 ";�40,"_")
�� �:�"Fill in this form about yourself.Just   press 'RETURN' if you do not know the   answer,or if the answer is 'none','no'  or 'not applicable'.":�:D$=�19,".")
�n �"NAME";�20);D$:�:�"AGE (if under 21)";�20);D$:�:�"NO. OF SISTERS";�20);D$:�:�"NO. OF BROTHERS";�20);D$:�
�� �"FAVOURITE HOBBY                         (TV/R=records/C=computers/F=football)..":�:�"WEATHER TODAY    ";:WT$="                       (S=sunny/R=rainy/C=cold/H=hot) ........":�WT$:�:�"WEATHER YESTERDAY";WT$
�u �20,11);:� NM$:�20,�+1);:� AG$:�20,�+1);:�SI$:�20,�+1);:�BR$:�37,�+2);:�HB$:�31,23);:� WE$:�31,26);:� WY$
�< �0,30);"Appuyez sur C pour continuer ..........";:R$=�
� �C0+128
 TE=0:MK=0:TW=0:�=0
 �TE=1 � 8
 �
, �C0
6 �C3+128
@E �0,3);S$;" Examen oral (Micro French)  ";�(225);" LCL 1986 ";S$
J �C0+128
T �C3
^� H$="Listen to Side 2 of the Voice tape.Afteryou hear the question,press 1,2,3 or 4  and then speak the answer.Then listen toall the possible correct answers."
h �H$
r
 NM=0 
|	 TT=�
�3 � TE � �DLD,�tpD,�TTE,�DxE,�d\E,�D@F,�tdF,�THG
�	 Y=14
� X=0
 �X,Y);Q$
 �J=1�3
3 � �(2)=1 � TP$=K$(J):K$(J)=K$(J+1):K$(J+1)=TP$
 �
 �K=1�4
? �:� C1+128:�C0:��(K);:� C0+128:�C1:�" ";�K$(K),�(K$(K))-1)
 �
 �:�
DJ I1$=�(0):� I1$<>"" � I1$<>"1" � I1$<>"2" � I1$<>"3" � I1$<>"4" ��DDB
N �< (800+TT) � �tTB
X	 XP=�
b	 YP=�
l �C2
v �30,1);"TIME UP"
��C3
� �XP,YP);
� �I1$<>""�I1=�(I1$):�DHC
�	 XP=�
�	 YP=�
�; �0,1);�(TE)+")   Score "+�(MK)+"   "+�(�(�/100))+" s"
� �XP,YP);
�
 �DDB
H �I1$;:�C1 
R �K$(I1),1)="0" ��DzC
\ �" ";�(224)
f � SOUND1,-15,101,10
p
 TS=TS+1 
z �K$(I1),1)="1" ��tvC
�
 �" X"
�	 � C3
��1,-15,73,10
� �1,-15,69,5
� TW=TW+1
�^ �:�"It should be ";-(�K$(1),1)="1")-(�K$(2),1)="1")*2-(�K$(3),1)="1")*3-(�K$(4),1)="1")*4
� �C3
� MK=�(100*TS/(TS+TW))
�7 �0,29);"Appuyez sur C pour continuer...........";
�	 R$=�
� �R$<>"C"�R$<>"c"��d^C 
� �
� �
Ls Q$="Bonjour":K$(1)="0Bonjour madame":K$(2)="1Bonjour monsieur":K$(3)="0Oui,c'est un bon jour":K$(4)="0Merci":�
�� Q$="Comment vous appelez-vous?":K$(1)="1Je m'appelle "+NM$:K$(2)="0J'appelle "+NM$:K$(3)="0Vous appelez "+NM$:K$(4)="0Vous vous appelez "+NM$:�
# Q$="Quelle �ge avez-vous,"+NM$
A �AG$=""� K$(1)="1C'est une question indiscr�te":AJ$="":�DdE
(, F$=AG$:�dPG:AJ$=TF$:� AJ$="" � AJ$=AG$
F� AY$="huit ans        neuf ans        dix ans         onze ans        douze ans       treize ans      quatorze ans    quinze ans      seize ans       dix-sept ans    dix-huit ans    "
P� AY$=AY$+"dix-neuf ans    vingt ans       vingt et un ans ":� �(AJ$)>=8 � �(AJ$)<22 � AJ$=�AY$,(�(AJ$)-8)*16+1,16) � AJ$=AJ$+" ans"
Z K$(1)="1J'ai "+AJ$
d K$(2)="0Je suis "+AJ$
n; K$(3)="0Vous avez "+AJ$:K$(4)="0J'ai beaucoup d'�ge":�
xH Q$="Vous avez des fr�res et s�urs?":KK$="Non,je suis enfant unique"
�R � (SI$="" � SI$="0") � (BR$="" � BR$="0") � K$(1)="1"+KK$:TS$="":TB$="":�dRE
�6 K$(1)="":TS$="":TB$="":� SI$="" � SI$="0" � �tXE
�n SS$=" s�urs":F$=SI$:� �dPG:TS$=TF$:� WF$="" � SI$=SI$+SS$ � SI$=�NN$,�(TS$)*6-5,�(�NN$,30+�(TS$),1)))+SS$
� � BR$="" � BR$="0" � �tlE
�m F$=BR$:� �dPG:TB$=TF$:� WF$="" � BR$=BR$+" fr�res" � BR$=�NN$,�(TB$)*6-5,�(�NN$,30+�(TB$),1)))+" fr�res"
� �
�' SS$="une s�ur":� TS$="1" � SI$=SS$
� � TB$="1" � BR$="un fr�re"
�, � TB$="" � K$(1)="1Oui,j'ai "+SI$:�dRE
�, � TS$="" � K$(1)="1Oui,j'ai "+BR$:�dRE
�& K$(1)="1Oui,j'ai "+SI$+" et "+BR$
�@ K$(3)="0Oui,je suis un fr�re":K$(4)="0Oui,je suis une s�ur"
�q SB=�(TB$)+�(TS$):� SB=0 � K$(2)="1Non,je n'en ai rien" � K$(2)="1Oui,j'en ai "+�NN$,SB*6-5,�(�NN$,30+SB,1)))
� �
�, Q$="Quel est votre passe-temps favori?"
� K$(1)="J'aime regarder la t�l�vision":K$(2)="J'aime jouer au football":K$(3)="J'aime �couter des disques":K$(4)="Je m'int�resse aux ordinateurs"
�= AI$="":� HB$="TV" � HB$="tv" � K$(1)="1"+AI$+K$(1):�TXF
�4 � HB$="F" � HB$="f" � K$(2)="1"+AI$+K$(2):�TXF
4 � HB$="R" � HB$="r" � K$(3)="1"+AI$+K$(3):�TXF
0 � HB$="C" � HB$="c" � K$(4)="1"+K$(4):�TXF
 HB$="TV":�dpE
= N0=0:� J=1�4:� �K$(J),1)<>"1" � K$(J)="0"+AI$+K$(J):N0=1
" �
," � N0=0 � K$(1)="1"+�K$(1),29)
6 �
@) Q$="Quel temps fait-il aujourd'hui?"
J F$=WE$:� �ddG
ru K$(1)=K$(1)+"Il fait beau":K$(2)=K$(2)+"Il pleut":K$(3)=K$(3)+"Il fait froid":K$(4)=K$(4)+"Il fait tr�s chaud":�
�& Q$="Quel temps a-t-il fait hier?"
� F$=WY$:� �ddG
�� K$(1)=K$(1)+"Hier il a fait beau temps":K$(2)=K$(2)+"Il a plu":K$(3)=K$(3)+"Il a fait froid":K$(4)=K$(4)+"Il a fait tr�s chaud"
�2 � �K$(1),1)="1" � K$(3)="0Il fait beau":�djF
�. � �K$(2),1)="1" � K$(4)="0Il pleut":�djF
�3 � �K$(3),1)="1" � K$(2)="0Il fait froid":�djF
�2 � �K$(4),1)="1" � K$(1)="0Il fait tr�s chaud"
� �
 Q$="Bon.Merci "+NM$
� K$(1)="0Oui,c'est bon":K$(2)="1Au revoir,monsieur,et merci":K$(3)="0Au revoir,madame,et merci":K$(4)="0Voulez-vous r�p�ter la question":�
�G TF$="":WF$="":�H=1��(F$):DS$=�F$,H,1):� �NU$,DS$)<>0 � TF$=TF$+DS$
�& � �"12345",DS$)<>0 � WF$=WF$+DS$ 
� �:�
�; �J=1�4:K$(J)="0":�:� F$="S" � F$="s" � K$(1)="1":�TVH
�( � F$="R" � F$="r" � K$(2)="1":�TVH
�( � F$="C" � F$="c" � K$(3)="1":�TVH
( � F$="H" � F$="h" � K$(4)="1":�TVH
 F$="S":K$(1)="1"
 �
�

00000000  0d 00 0a 1a 20 f4 20 4d  49 43 52 4f 20 46 52 45  |.... . MICRO FRE|
00000010  4e 43 48 20 28 4f 52 41  4c 29 0d 00 14 1d 20 f4  |NCH (ORAL).... .|
00000020  20 43 4f 50 59 52 49 47  48 54 20 28 43 29 20 4c  | COPYRIGHT (C) L|
00000030  43 4c 20 31 39 38 36 0d  00 1e 10 ee 85 d7 22 4d  |CL 1986......."M|
00000040  45 4e 55 32 22 3a f9 0d  00 28 18 20 2a 4b 45 59  |ENU2":...(. *KEY|
00000050  31 30 22 4f 4c 44 7c 4d  20 52 55 4e 7c 4d 22 0d  |10"OLD|M RUN|M".|
00000060  00 32 07 20 eb 34 0d 00  3c 0c 20 de 20 4b 24 28  |.2. .4..<. . K$(|
00000070  34 29 0d 00 46 18 20 43  30 3d 30 3a 43 31 3d 31  |4)..F. C0=0:C1=1|
00000080  3a 43 32 3d 30 3a 43 33  3d 31 0d 00 50 3f 20 4e  |:C2=0:C3=1..P? N|
00000090  55 24 3d 22 30 31 32 33  34 35 36 37 38 39 22 3a  |U$="0123456789":|
000000a0  4e 4e 24 3d 22 75 6e 20  20 20 20 64 65 75 78 20  |NN$="un    deux |
000000b0  20 74 72 6f 69 73 20 71  75 61 74 72 65 63 69 6e  | trois quatrecin|
000000c0  71 20 20 32 34 35 36 34  22 0d 00 6e 12 20 ef 31  |q  24564"..n. .1|
000000d0  39 2c 30 2c 34 2c 30 2c  30 2c 30 0d 00 78 2c 20  |9,0,4,0,0,0..x, |
000000e0  ef 32 33 2c 32 32 34 2c  26 30 31 2c 26 30 32 2c  |.23,224,&01,&02,|
000000f0  26 30 34 2c 26 30 38 2c  26 39 30 2c 26 41 30 2c  |&04,&08,&90,&A0,|
00000100  26 43 30 2c 26 38 30 0d  00 82 2c 20 ef 32 33 2c  |&C0,&80..., .23,|
00000110  32 32 35 2c 26 33 43 2c  26 34 32 2c 26 39 39 2c  |225,&3C,&42,&99,|
00000120  26 41 31 2c 26 41 31 2c  26 39 39 2c 26 34 32 2c  |&A1,&A1,&99,&42,|
00000130  26 33 43 0d 00 8c 13 20  ef 32 33 2c 31 2c 30 3b  |&3C.... .23,1,0;|
00000140  30 3b 30 3b 30 3b 0d 00  96 15 20 53 24 3d c4 34  |0;0;0;.... S$=.4|
00000150  30 2c 22 20 22 29 3a 54  53 3d 30 0d 00 97 5c 20  |0," "):TS=0...\ |
00000160  fb 43 32 3a fb 43 31 2b  31 32 38 3a db 3a f1 c4  |.C2:.C1+128:.:..|
00000170  34 30 2c 22 5f 22 29 3b  53 24 3b 22 20 45 78 61  |40,"_");S$;" Exa|
00000180  6d 65 6e 20 6f 72 61 6c  20 28 4d 69 63 72 6f 20  |men oral (Micro |
00000190  46 72 65 6e 63 68 29 20  20 22 3b bd 28 32 32 35  |French)  ";.(225|
000001a0  29 3b 22 20 4c 43 4c 20  31 39 38 36 20 22 3b c4  |);" LCL 1986 ";.|
000001b0  34 30 2c 22 5f 22 29 0d  00 98 a4 20 f1 3a f1 22  |40,"_").... .:."|
000001c0  46 69 6c 6c 20 69 6e 20  74 68 69 73 20 66 6f 72  |Fill in this for|
000001d0  6d 20 61 62 6f 75 74 20  79 6f 75 72 73 65 6c 66  |m about yourself|
000001e0  2e 4a 75 73 74 20 20 20  70 72 65 73 73 20 27 52  |.Just   press 'R|
000001f0  45 54 55 52 4e 27 20 69  66 20 79 6f 75 20 64 6f  |ETURN' if you do|
00000200  20 6e 6f 74 20 6b 6e 6f  77 20 74 68 65 20 20 20  | not know the   |
00000210  61 6e 73 77 65 72 2c 6f  72 20 69 66 20 74 68 65  |answer,or if the|
00000220  20 61 6e 73 77 65 72 20  69 73 20 27 6e 6f 6e 65  | answer is 'none|
00000230  27 2c 27 6e 6f 27 20 20  6f 72 20 27 6e 6f 74 20  |','no'  or 'not |
00000240  61 70 70 6c 69 63 61 62  6c 65 27 2e 22 3a f1 3a  |applicable'.":.:|
00000250  44 24 3d c4 31 39 2c 22  2e 22 29 0d 00 99 6e 20  |D$=.19,".")...n |
00000260  f1 22 4e 41 4d 45 22 3b  8a 32 30 29 3b 44 24 3a  |."NAME";.20);D$:|
00000270  f1 3a f1 22 41 47 45 20  28 69 66 20 75 6e 64 65  |.:."AGE (if unde|
00000280  72 20 32 31 29 22 3b 8a  32 30 29 3b 44 24 3a f1  |r 21)";.20);D$:.|
00000290  3a f1 22 4e 4f 2e 20 4f  46 20 53 49 53 54 45 52  |:."NO. OF SISTER|
000002a0  53 22 3b 8a 32 30 29 3b  44 24 3a f1 3a f1 22 4e  |S";.20);D$:.:."N|
000002b0  4f 2e 20 4f 46 20 42 52  4f 54 48 45 52 53 22 3b  |O. OF BROTHERS";|
000002c0  8a 32 30 29 3b 44 24 3a  f1 0d 00 9a d4 20 f1 22  |.20);D$:..... ."|
000002d0  46 41 56 4f 55 52 49 54  45 20 48 4f 42 42 59 20  |FAVOURITE HOBBY |
000002e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002f0  20 20 20 20 20 20 20 20  28 54 56 2f 52 3d 72 65  |        (TV/R=re|
00000300  63 6f 72 64 73 2f 43 3d  63 6f 6d 70 75 74 65 72  |cords/C=computer|
00000310  73 2f 46 3d 66 6f 6f 74  62 61 6c 6c 29 2e 2e 22  |s/F=football).."|
00000320  3a f1 3a f1 22 57 45 41  54 48 45 52 20 54 4f 44  |:.:."WEATHER TOD|
00000330  41 59 20 20 20 20 22 3b  3a 57 54 24 3d 22 20 20  |AY    ";:WT$="  |
00000340  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000350  20 20 20 20 20 28 53 3d  73 75 6e 6e 79 2f 52 3d  |     (S=sunny/R=|
00000360  72 61 69 6e 79 2f 43 3d  63 6f 6c 64 2f 48 3d 68  |rainy/C=cold/H=h|
00000370  6f 74 29 20 2e 2e 2e 2e  2e 2e 2e 2e 22 3a f1 57  |ot) ........":.W|
00000380  54 24 3a f1 3a f1 22 57  45 41 54 48 45 52 20 59  |T$:.:."WEATHER Y|
00000390  45 53 54 45 52 44 41 59  22 3b 57 54 24 0d 00 9b  |ESTERDAY";WT$...|
000003a0  75 20 f1 8a 32 30 2c 31  31 29 3b 3a e8 20 4e 4d  |u ..20,11);:. NM|
000003b0  24 3a f1 8a 32 30 2c bc  2b 31 29 3b 3a e8 20 41  |$:..20,.+1);:. A|
000003c0  47 24 3a f1 8a 32 30 2c  bc 2b 31 29 3b 3a e8 53  |G$:..20,.+1);:.S|
000003d0  49 24 3a f1 8a 32 30 2c  bc 2b 31 29 3b 3a e8 42  |I$:..20,.+1);:.B|
000003e0  52 24 3a f1 8a 33 37 2c  bc 2b 32 29 3b 3a e8 48  |R$:..37,.+2);:.H|
000003f0  42 24 3a f1 8a 33 31 2c  32 33 29 3b 3a e8 20 57  |B$:..31,23);:. W|
00000400  45 24 3a f1 8a 33 31 2c  32 36 29 3b 3a e8 20 57  |E$:..31,26);:. W|
00000410  59 24 0d 00 a0 3c 20 f1  8a 30 2c 33 30 29 3b 22  |Y$...< ..0,30);"|
00000420  41 70 70 75 79 65 7a 20  73 75 72 20 43 20 70 6f  |Appuyez sur C po|
00000430  75 72 20 63 6f 6e 74 69  6e 75 65 72 20 2e 2e 2e  |ur continuer ...|
00000440  2e 2e 2e 2e 2e 2e 2e 22  3b 3a 52 24 3d be 0d 00  |.......";:R$=...|
00000450  aa 0c 20 fb 43 30 2b 31  32 38 0d 01 0e 17 20 54  |.. .C0+128.... T|
00000460  45 3d 30 3a 4d 4b 3d 30  3a 54 57 3d 30 3a d1 3d  |E=0:MK=0:TW=0:.=|
00000470  30 0d 01 10 0e 20 e3 54  45 3d 31 20 b8 20 38 0d  |0.... .TE=1 . 8.|
00000480  01 18 06 20 db 0d 01 2c  08 20 fb 43 30 0d 01 36  |... ...,. .C0..6|
00000490  0c 20 fb 43 33 2b 31 32  38 0d 01 40 45 20 f1 8a  |. .C3+128..@E ..|
000004a0  30 2c 33 29 3b 53 24 3b  22 20 45 78 61 6d 65 6e  |0,3);S$;" Examen|
000004b0  20 6f 72 61 6c 20 28 4d  69 63 72 6f 20 46 72 65  | oral (Micro Fre|
000004c0  6e 63 68 29 20 20 22 3b  bd 28 32 32 35 29 3b 22  |nch)  ";.(225);"|
000004d0  20 4c 43 4c 20 31 39 38  36 20 22 3b 53 24 0d 01  | LCL 1986 ";S$..|
000004e0  4a 0c 20 fb 43 30 2b 31  32 38 0d 01 54 08 20 fb  |J. .C0+128..T. .|
000004f0  43 33 0d 01 5e a3 20 48  24 3d 22 4c 69 73 74 65  |C3..^. H$="Liste|
00000500  6e 20 74 6f 20 53 69 64  65 20 32 20 6f 66 20 74  |n to Side 2 of t|
00000510  68 65 20 56 6f 69 63 65  20 74 61 70 65 2e 41 66  |he Voice tape.Af|
00000520  74 65 72 79 6f 75 20 68  65 61 72 20 74 68 65 20  |teryou hear the |
00000530  71 75 65 73 74 69 6f 6e  2c 70 72 65 73 73 20 31  |question,press 1|
00000540  2c 32 2c 33 20 6f 72 20  34 20 20 61 6e 64 20 74  |,2,3 or 4  and t|
00000550  68 65 6e 20 73 70 65 61  6b 20 74 68 65 20 61 6e  |hen speak the an|
00000560  73 77 65 72 2e 54 68 65  6e 20 6c 69 73 74 65 6e  |swer.Then listen|
00000570  20 74 6f 61 6c 6c 20 74  68 65 20 70 6f 73 73 69  | toall the possi|
00000580  62 6c 65 20 63 6f 72 72  65 63 74 20 61 6e 73 77  |ble correct answ|
00000590  65 72 73 2e 22 0d 01 68  08 20 f1 48 24 0d 01 72  |ers."..h. .H$..r|
000005a0  0a 20 4e 4d 3d 30 20 0d  01 7c 09 20 54 54 3d 91  |. NM=0 ..|. TT=.|
000005b0  0d 01 90 33 20 ee 20 54  45 20 e4 20 8d 44 4c 44  |...3 . TE . .DLD|
000005c0  2c 8d 74 70 44 2c 8d 54  54 45 2c 8d 44 78 45 2c  |,.tpD,.TTE,.DxE,|
000005d0  8d 64 5c 45 2c 8d 44 40  46 2c 8d 74 64 46 2c 8d  |.d\E,.D@F,.tdF,.|
000005e0  54 48 47 0d 01 cc 09 20  59 3d 31 34 0d 01 d6 08  |THG.... Y=14....|
000005f0  20 58 3d 30 0d 02 08 0e  20 f1 8a 58 2c 59 29 3b  | X=0.... ..X,Y);|
00000600  51 24 0d 02 12 0b 20 e3  4a 3d 31 b8 33 0d 02 14  |Q$.... .J=1.3...|
00000610  33 20 e7 20 b3 28 32 29  3d 31 20 8c 20 54 50 24  |3 . .(2)=1 . TP$|
00000620  3d 4b 24 28 4a 29 3a 4b  24 28 4a 29 3d 4b 24 28  |=K$(J):K$(J)=K$(|
00000630  4a 2b 31 29 3a 4b 24 28  4a 2b 31 29 3d 54 50 24  |J+1):K$(J+1)=TP$|
00000640  0d 02 16 06 20 ed 0d 02  19 0b 20 e3 4b 3d 31 b8  |.... ..... .K=1.|
00000650  34 0d 02 1a 3f 20 f1 3a  fb 20 43 31 2b 31 32 38  |4...? .:. C1+128|
00000660  3a fb 43 30 3a f1 c3 28  4b 29 3b 3a fb 20 43 30  |:.C0:..(K);:. C0|
00000670  2b 31 32 38 3a fb 43 31  3a f1 22 20 22 3b c2 4b  |+128:.C1:." ";.K|
00000680  24 28 4b 29 2c a9 28 4b  24 28 4b 29 29 2d 31 29  |$(K),.(K$(K))-1)|
00000690  0d 02 1b 06 20 ed 0d 02  1c 08 20 f1 3a f1 0d 02  |.... ..... .:...|
000006a0  44 4a 20 49 31 24 3d bf  28 30 29 3a e7 20 49 31  |DJ I1$=.(0):. I1|
000006b0  24 3c 3e 22 22 20 80 20  49 31 24 3c 3e 22 31 22  |$<>"" . I1$<>"1"|
000006c0  20 80 20 49 31 24 3c 3e  22 32 22 20 80 20 49 31  | . I1$<>"2" . I1|
000006d0  24 3c 3e 22 33 22 20 80  20 49 31 24 3c 3e 22 34  |$<>"3" . I1$<>"4|
000006e0  22 20 8c e5 8d 44 44 42  0d 02 4e 19 20 e7 91 3c  |" ...DDB..N. ..<|
000006f0  20 28 38 30 30 2b 54 54  29 20 8c 20 e5 8d 74 54  | (800+TT) . ..tT|
00000700  42 0d 02 58 09 20 58 50  3d b1 0d 02 62 09 20 59  |B..X. XP=...b. Y|
00000710  50 3d bc 0d 02 6c 08 20  fb 43 32 0d 02 76 16 20  |P=...l. .C2..v. |
00000720  f1 8a 33 30 2c 31 29 3b  22 54 49 4d 45 20 55 50  |..30,1);"TIME UP|
00000730  22 0d 02 80 07 fb 43 33  0d 02 8a 0e 20 f1 8a 58  |".....C3.... ..X|
00000740  50 2c 59 50 29 3b 0d 02  94 1d 20 e7 49 31 24 3c  |P,YP);.... .I1$<|
00000750  3e 22 22 8c 49 31 3d bb  28 49 31 24 29 3a e5 8d  |>"".I1=.(I1$):..|
00000760  44 48 43 0d 02 9e 09 20  58 50 3d b1 0d 02 a8 09  |DHC.... XP=.....|
00000770  20 59 50 3d bc 0d 02 b2  3b 20 f1 8a 30 2c 31 29  | YP=....; ..0,1)|
00000780  3b c3 28 54 45 29 2b 22  29 20 20 20 53 63 6f 72  |;.(TE)+")   Scor|
00000790  65 20 22 2b c3 28 4d 4b  29 2b 22 20 20 20 22 2b  |e "+.(MK)+"   "+|
000007a0  c3 28 a8 28 91 2f 31 30  30 29 29 2b 22 20 73 22  |.(.(./100))+" s"|
000007b0  0d 02 bc 0e 20 f1 8a 58  50 2c 59 50 29 3b 0d 02  |.... ..XP,YP);..|
000007c0  d0 0a 20 e5 8d 44 44 42  0d 03 48 0f 20 f1 49 31  |.. ..DDB..H. .I1|
000007d0  24 3b 3a fb 43 31 20 0d  03 52 1b 20 e7 c0 4b 24  |$;:.C1 ..R. ..K$|
000007e0  28 49 31 29 2c 31 29 3d  22 30 22 20 8c e5 8d 44  |(I1),1)="0" ...D|
000007f0  7a 43 0d 03 5c 10 20 f1  22 20 22 3b bd 28 32 32  |zC..\. ." ";.(22|
00000800  34 29 0d 03 66 18 20 f4  20 53 4f 55 4e 44 31 2c  |4)..f. . SOUND1,|
00000810  2d 31 35 2c 31 30 31 2c  31 30 0d 03 70 0d 20 54  |-15,101,10..p. T|
00000820  53 3d 54 53 2b 31 20 0d  03 7a 1b 20 e7 c0 4b 24  |S=TS+1 ..z. ..K$|
00000830  28 49 31 29 2c 31 29 3d  22 31 22 20 8c e5 8d 74  |(I1),1)="1" ...t|
00000840  76 43 0d 03 84 0a 20 f1  22 20 58 22 0d 03 86 09  |vC.... ." X"....|
00000850  20 fb 20 43 33 0d 03 8e  10 d4 31 2c 2d 31 35 2c  | . C3.....1,-15,|
00000860  37 33 2c 31 30 0d 03 98  10 20 d4 31 2c 2d 31 35  |73,10.... .1,-15|
00000870  2c 36 39 2c 35 0d 03 a2  0c 20 54 57 3d 54 57 2b  |,69,5.... TW=TW+|
00000880  31 0d 03 ac 5e 20 f1 3a  f1 22 49 74 20 73 68 6f  |1...^ .:."It sho|
00000890  75 6c 64 20 62 65 20 22  3b 2d 28 c0 4b 24 28 31  |uld be ";-(.K$(1|
000008a0  29 2c 31 29 3d 22 31 22  29 2d 28 c0 4b 24 28 32  |),1)="1")-(.K$(2|
000008b0  29 2c 31 29 3d 22 31 22  29 2a 32 2d 28 c0 4b 24  |),1)="1")*2-(.K$|
000008c0  28 33 29 2c 31 29 3d 22  31 22 29 2a 33 2d 28 c0  |(3),1)="1")*3-(.|
000008d0  4b 24 28 34 29 2c 31 29  3d 22 31 22 29 2a 34 0d  |K$(4),1)="1")*4.|
000008e0  03 b6 08 20 fb 43 33 0d  03 c0 19 20 4d 4b 3d a8  |... .C3.... MK=.|
000008f0  28 31 30 30 2a 54 53 2f  28 54 53 2b 54 57 29 29  |(100*TS/(TS+TW))|
00000900  0d 03 d4 37 20 f1 8a 30  2c 32 39 29 3b 22 41 70  |...7 ..0,29);"Ap|
00000910  70 75 79 65 7a 20 73 75  72 20 43 20 70 6f 75 72  |puyez sur C pour|
00000920  20 63 6f 6e 74 69 6e 75  65 72 2e 2e 2e 2e 2e 2e  | continuer......|
00000930  2e 2e 2e 2e 2e 22 3b 0d  03 de 09 20 52 24 3d be  |.....";.... R$=.|
00000940  0d 03 e8 1c 20 e7 52 24  3c 3e 22 43 22 80 52 24  |.... .R$<>"C".R$|
00000950  3c 3e 22 63 22 8c e5 8d  64 5e 43 20 0d 03 f2 06  |<>"c"...d^C ....|
00000960  20 ed 0d 03 f4 06 20 85  0d 04 4c 73 20 51 24 3d  | ..... ...Ls Q$=|
00000970  22 42 6f 6e 6a 6f 75 72  22 3a 4b 24 28 31 29 3d  |"Bonjour":K$(1)=|
00000980  22 30 42 6f 6e 6a 6f 75  72 20 6d 61 64 61 6d 65  |"0Bonjour madame|
00000990  22 3a 4b 24 28 32 29 3d  22 31 42 6f 6e 6a 6f 75  |":K$(2)="1Bonjou|
000009a0  72 20 6d 6f 6e 73 69 65  75 72 22 3a 4b 24 28 33  |r monsieur":K$(3|
000009b0  29 3d 22 30 4f 75 69 2c  63 27 65 73 74 20 75 6e  |)="0Oui,c'est un|
000009c0  20 62 6f 6e 20 6a 6f 75  72 22 3a 4b 24 28 34 29  | bon jour":K$(4)|
000009d0  3d 22 30 4d 65 72 63 69  22 3a f8 0d 04 b0 94 20  |="0Merci":..... |
000009e0  51 24 3d 22 43 6f 6d 6d  65 6e 74 20 76 6f 75 73  |Q$="Comment vous|
000009f0  20 61 70 70 65 6c 65 7a  2d 76 6f 75 73 3f 22 3a  | appelez-vous?":|
00000a00  4b 24 28 31 29 3d 22 31  4a 65 20 6d 27 61 70 70  |K$(1)="1Je m'app|
00000a10  65 6c 6c 65 20 22 2b 4e  4d 24 3a 4b 24 28 32 29  |elle "+NM$:K$(2)|
00000a20  3d 22 30 4a 27 61 70 70  65 6c 6c 65 20 22 2b 4e  |="0J'appelle "+N|
00000a30  4d 24 3a 4b 24 28 33 29  3d 22 30 56 6f 75 73 20  |M$:K$(3)="0Vous |
00000a40  61 70 70 65 6c 65 7a 20  22 2b 4e 4d 24 3a 4b 24  |appelez "+NM$:K$|
00000a50  28 34 29 3d 22 30 56 6f  75 73 20 76 6f 75 73 20  |(4)="0Vous vous |
00000a60  61 70 70 65 6c 65 7a 20  22 2b 4e 4d 24 3a f8 0d  |appelez "+NM$:..|
00000a70  05 14 23 20 51 24 3d 22  51 75 65 6c 6c 65 20 e2  |..# Q$="Quelle .|
00000a80  67 65 20 61 76 65 7a 2d  76 6f 75 73 2c 22 2b 4e  |ge avez-vous,"+N|
00000a90  4d 24 0d 05 1e 41 20 e7  41 47 24 3d 22 22 8c 20  |M$...A .AG$="". |
00000aa0  4b 24 28 31 29 3d 22 31  43 27 65 73 74 20 75 6e  |K$(1)="1C'est un|
00000ab0  65 20 71 75 65 73 74 69  6f 6e 20 69 6e 64 69 73  |e question indis|
00000ac0  63 72 86 74 65 22 3a 41  4a 24 3d 22 22 3a e5 8d  |cr.te":AJ$="":..|
00000ad0  44 64 45 0d 05 28 2c 20  46 24 3d 41 47 24 3a e4  |DdE..(, F$=AG$:.|
00000ae0  8d 64 50 47 3a 41 4a 24  3d 54 46 24 3a e7 20 41  |.dPG:AJ$=TF$:. A|
00000af0  4a 24 3d 22 22 20 8c 20  41 4a 24 3d 41 47 24 0d  |J$="" . AJ$=AG$.|
00000b00  05 46 bb 20 41 59 24 3d  22 68 75 69 74 20 61 6e  |.F. AY$="huit an|
00000b10  73 20 20 20 20 20 20 20  20 6e 65 75 66 20 61 6e  |s        neuf an|
00000b20  73 20 20 20 20 20 20 20  20 64 69 78 20 61 6e 73  |s        dix ans|
00000b30  20 20 20 20 20 20 20 20  20 6f 6e 7a 65 20 61 6e  |         onze an|
00000b40  73 20 20 20 20 20 20 20  20 64 6f 75 7a 65 20 61  |s        douze a|
00000b50  6e 73 20 20 20 20 20 20  20 74 72 65 69 7a 65 20  |ns       treize |
00000b60  61 6e 73 20 20 20 20 20  20 71 75 61 74 6f 72 7a  |ans      quatorz|
00000b70  65 20 61 6e 73 20 20 20  20 71 75 69 6e 7a 65 20  |e ans    quinze |
00000b80  61 6e 73 20 20 20 20 20  20 73 65 69 7a 65 20 61  |ans      seize a|
00000b90  6e 73 20 20 20 20 20 20  20 64 69 78 2d 73 65 70  |ns       dix-sep|
00000ba0  74 20 61 6e 73 20 20 20  20 64 69 78 2d 68 75 69  |t ans    dix-hui|
00000bb0  74 20 61 6e 73 20 20 20  20 22 0d 05 50 87 20 41  |t ans    "..P. A|
00000bc0  59 24 3d 41 59 24 2b 22  64 69 78 2d 6e 65 75 66  |Y$=AY$+"dix-neuf|
00000bd0  20 61 6e 73 20 20 20 20  76 69 6e 67 74 20 61 6e  | ans    vingt an|
00000be0  73 20 20 20 20 20 20 20  76 69 6e 67 74 20 65 74  |s       vingt et|
00000bf0  20 75 6e 20 61 6e 73 20  22 3a e7 20 bb 28 41 4a  | un ans ":. .(AJ|
00000c00  24 29 3e 3d 38 20 80 20  bb 28 41 4a 24 29 3c 32  |$)>=8 . .(AJ$)<2|
00000c10  32 20 8c 20 41 4a 24 3d  c1 41 59 24 2c 28 bb 28  |2 . AJ$=.AY$,(.(|
00000c20  41 4a 24 29 2d 38 29 2a  31 36 2b 31 2c 31 36 29  |AJ$)-8)*16+1,16)|
00000c30  20 8b 20 41 4a 24 3d 41  4a 24 2b 22 20 61 6e 73  | . AJ$=AJ$+" ans|
00000c40  22 0d 05 5a 17 20 4b 24  28 31 29 3d 22 31 4a 27  |"..Z. K$(1)="1J'|
00000c50  61 69 20 22 2b 41 4a 24  0d 05 64 1a 20 4b 24 28  |ai "+AJ$..d. K$(|
00000c60  32 29 3d 22 30 4a 65 20  73 75 69 73 20 22 2b 41  |2)="0Je suis "+A|
00000c70  4a 24 0d 05 6e 3b 20 4b  24 28 33 29 3d 22 30 56  |J$..n; K$(3)="0V|
00000c80  6f 75 73 20 61 76 65 7a  20 22 2b 41 4a 24 3a 4b  |ous avez "+AJ$:K|
00000c90  24 28 34 29 3d 22 30 4a  27 61 69 20 62 65 61 75  |$(4)="0J'ai beau|
00000ca0  63 6f 75 70 20 64 27 e2  67 65 22 3a f8 0d 05 78  |coup d'.ge":...x|
00000cb0  48 20 51 24 3d 22 56 6f  75 73 20 61 76 65 7a 20  |H Q$="Vous avez |
00000cc0  64 65 73 20 66 72 86 72  65 73 20 65 74 20 73 8b  |des fr.res et s.|
00000cd0  75 72 73 3f 22 3a 4b 4b  24 3d 22 4e 6f 6e 2c 6a  |urs?":KK$="Non,j|
00000ce0  65 20 73 75 69 73 20 65  6e 66 61 6e 74 20 75 6e  |e suis enfant un|
00000cf0  69 71 75 65 22 0d 05 82  52 20 e7 20 28 53 49 24  |ique"...R . (SI$|
00000d00  3d 22 22 20 84 20 53 49  24 3d 22 30 22 29 20 80  |="" . SI$="0") .|
00000d10  20 28 42 52 24 3d 22 22  20 84 20 42 52 24 3d 22  | (BR$="" . BR$="|
00000d20  30 22 29 20 8c 20 4b 24  28 31 29 3d 22 31 22 2b  |0") . K$(1)="1"+|
00000d30  4b 4b 24 3a 54 53 24 3d  22 22 3a 54 42 24 3d 22  |KK$:TS$="":TB$="|
00000d40  22 3a e5 8d 64 52 45 0d  05 84 36 20 4b 24 28 31  |":..dRE...6 K$(1|
00000d50  29 3d 22 22 3a 54 53 24  3d 22 22 3a 54 42 24 3d  |)="":TS$="":TB$=|
00000d60  22 22 3a e7 20 53 49 24  3d 22 22 20 84 20 53 49  |"":. SI$="" . SI|
00000d70  24 3d 22 30 22 20 8c 20  e5 8d 74 58 45 0d 05 8c  |$="0" . ..tXE...|
00000d80  6e 20 53 53 24 3d 22 20  73 8b 75 72 73 22 3a 46  |n SS$=" s.urs":F|
00000d90  24 3d 53 49 24 3a e4 20  8d 64 50 47 3a 54 53 24  |$=SI$:. .dPG:TS$|
00000da0  3d 54 46 24 3a e7 20 57  46 24 3d 22 22 20 8c 20  |=TF$:. WF$="" . |
00000db0  53 49 24 3d 53 49 24 2b  53 53 24 20 8b 20 53 49  |SI$=SI$+SS$ . SI|
00000dc0  24 3d c1 4e 4e 24 2c bb  28 54 53 24 29 2a 36 2d  |$=.NN$,.(TS$)*6-|
00000dd0  35 2c bb 28 c1 4e 4e 24  2c 33 30 2b bb 28 54 53  |5,.(.NN$,30+.(TS|
00000de0  24 29 2c 31 29 29 29 2b  53 53 24 0d 05 98 1f 20  |$),1)))+SS$.... |
00000df0  e7 20 42 52 24 3d 22 22  20 84 20 42 52 24 3d 22  |. BR$="" . BR$="|
00000e00  30 22 20 8c 20 e5 8d 74  6c 45 0d 05 a0 6d 20 46  |0" . ..tlE...m F|
00000e10  24 3d 42 52 24 3a e4 20  8d 64 50 47 3a 54 42 24  |$=BR$:. .dPG:TB$|
00000e20  3d 54 46 24 3a e7 20 57  46 24 3d 22 22 20 8c 20  |=TF$:. WF$="" . |
00000e30  42 52 24 3d 42 52 24 2b  22 20 66 72 86 72 65 73  |BR$=BR$+" fr.res|
00000e40  22 20 8b 20 42 52 24 3d  c1 4e 4e 24 2c bb 28 54  |" . BR$=.NN$,.(T|
00000e50  42 24 29 2a 36 2d 35 2c  bb 28 c1 4e 4e 24 2c 33  |B$)*6-5,.(.NN$,3|
00000e60  30 2b bb 28 54 42 24 29  2c 31 29 29 29 2b 22 20  |0+.(TB$),1)))+" |
00000e70  66 72 86 72 65 73 22 0d  05 ac 06 20 f4 0d 05 ad  |fr.res".... ....|
00000e80  27 20 53 53 24 3d 22 75  6e 65 20 73 8b 75 72 22  |' SS$="une s.ur"|
00000e90  3a e7 20 54 53 24 3d 22  31 22 20 8c 20 53 49 24  |:. TS$="1" . SI$|
00000ea0  3d 53 53 24 0d 05 b0 1f  20 e7 20 54 42 24 3d 22  |=SS$.... . TB$="|
00000eb0  31 22 20 8c 20 42 52 24  3d 22 75 6e 20 66 72 86  |1" . BR$="un fr.|
00000ec0  72 65 22 0d 05 b6 2c 20  e7 20 54 42 24 3d 22 22  |re"..., . TB$=""|
00000ed0  20 8c 20 4b 24 28 31 29  3d 22 31 4f 75 69 2c 6a  | . K$(1)="1Oui,j|
00000ee0  27 61 69 20 22 2b 53 49  24 3a e5 8d 64 52 45 0d  |'ai "+SI$:..dRE.|
00000ef0  05 be 2c 20 e7 20 54 53  24 3d 22 22 20 8c 20 4b  |.., . TS$="" . K|
00000f00  24 28 31 29 3d 22 31 4f  75 69 2c 6a 27 61 69 20  |$(1)="1Oui,j'ai |
00000f10  22 2b 42 52 24 3a e5 8d  64 52 45 0d 05 c8 26 20  |"+BR$:..dRE...& |
00000f20  4b 24 28 31 29 3d 22 31  4f 75 69 2c 6a 27 61 69  |K$(1)="1Oui,j'ai|
00000f30  20 22 2b 53 49 24 2b 22  20 65 74 20 22 2b 42 52  | "+SI$+" et "+BR|
00000f40  24 0d 05 d2 40 20 4b 24  28 33 29 3d 22 30 4f 75  |$...@ K$(3)="0Ou|
00000f50  69 2c 6a 65 20 73 75 69  73 20 75 6e 20 66 72 86  |i,je suis un fr.|
00000f60  72 65 22 3a 4b 24 28 34  29 3d 22 30 4f 75 69 2c  |re":K$(4)="0Oui,|
00000f70  6a 65 20 73 75 69 73 20  75 6e 65 20 73 8b 75 72  |je suis une s.ur|
00000f80  22 0d 05 d4 71 20 53 42  3d bb 28 54 42 24 29 2b  |"...q SB=.(TB$)+|
00000f90  bb 28 54 53 24 29 3a e7  20 53 42 3d 30 20 8c 20  |.(TS$):. SB=0 . |
00000fa0  4b 24 28 32 29 3d 22 31  4e 6f 6e 2c 6a 65 20 6e  |K$(2)="1Non,je n|
00000fb0  27 65 6e 20 61 69 20 72  69 65 6e 22 20 8b 20 4b  |'en ai rien" . K|
00000fc0  24 28 32 29 3d 22 31 4f  75 69 2c 6a 27 65 6e 20  |$(2)="1Oui,j'en |
00000fd0  61 69 20 22 2b c1 4e 4e  24 2c 53 42 2a 36 2d 35  |ai "+.NN$,SB*6-5|
00000fe0  2c bb 28 c1 4e 4e 24 2c  33 30 2b 53 42 2c 31 29  |,.(.NN$,30+SB,1)|
00000ff0  29 29 0d 05 d6 06 20 f8  0d 05 dc 2c 20 51 24 3d  |)).... ...., Q$=|
00001000  22 51 75 65 6c 20 65 73  74 20 76 6f 74 72 65 20  |"Quel est votre |
00001010  70 61 73 73 65 2d 74 65  6d 70 73 20 66 61 76 6f  |passe-temps favo|
00001020  72 69 3f 22 0d 05 e6 95  20 4b 24 28 31 29 3d 22  |ri?".... K$(1)="|
00001030  4a 27 61 69 6d 65 20 72  65 67 61 72 64 65 72 20  |J'aime regarder |
00001040  6c 61 20 74 85 6c 85 76  69 73 69 6f 6e 22 3a 4b  |la t.l.vision":K|
00001050  24 28 32 29 3d 22 4a 27  61 69 6d 65 20 6a 6f 75  |$(2)="J'aime jou|
00001060  65 72 20 61 75 20 66 6f  6f 74 62 61 6c 6c 22 3a  |er au football":|
00001070  4b 24 28 33 29 3d 22 4a  27 61 69 6d 65 20 85 63  |K$(3)="J'aime .c|
00001080  6f 75 74 65 72 20 64 65  73 20 64 69 73 71 75 65  |outer des disque|
00001090  73 22 3a 4b 24 28 34 29  3d 22 4a 65 20 6d 27 69  |s":K$(4)="Je m'i|
000010a0  6e 74 85 72 65 73 73 65  20 61 75 78 20 6f 72 64  |nt.resse aux ord|
000010b0  69 6e 61 74 65 75 72 73  22 0d 05 f0 3d 20 41 49  |inateurs"...= AI|
000010c0  24 3d 22 22 3a e7 20 48  42 24 3d 22 54 56 22 20  |$="":. HB$="TV" |
000010d0  84 20 48 42 24 3d 22 74  76 22 20 8c 20 4b 24 28  |. HB$="tv" . K$(|
000010e0  31 29 3d 22 31 22 2b 41  49 24 2b 4b 24 28 31 29  |1)="1"+AI$+K$(1)|
000010f0  3a e5 8d 54 58 46 0d 05  fa 34 20 e7 20 48 42 24  |:..TXF...4 . HB$|
00001100  3d 22 46 22 20 84 20 48  42 24 3d 22 66 22 20 8c  |="F" . HB$="f" .|
00001110  20 4b 24 28 32 29 3d 22  31 22 2b 41 49 24 2b 4b  | K$(2)="1"+AI$+K|
00001120  24 28 32 29 3a e5 8d 54  58 46 0d 06 04 34 20 e7  |$(2):..TXF...4 .|
00001130  20 48 42 24 3d 22 52 22  20 84 20 48 42 24 3d 22  | HB$="R" . HB$="|
00001140  72 22 20 8c 20 4b 24 28  33 29 3d 22 31 22 2b 41  |r" . K$(3)="1"+A|
00001150  49 24 2b 4b 24 28 33 29  3a e5 8d 54 58 46 0d 06  |I$+K$(3):..TXF..|
00001160  0e 30 20 e7 20 48 42 24  3d 22 43 22 20 84 20 48  |.0 . HB$="C" . H|
00001170  42 24 3d 22 63 22 20 8c  20 4b 24 28 34 29 3d 22  |B$="c" . K$(4)="|
00001180  31 22 2b 4b 24 28 34 29  3a e5 8d 54 58 46 0d 06  |1"+K$(4):..TXF..|
00001190  10 13 20 48 42 24 3d 22  54 56 22 3a e5 8d 64 70  |.. HB$="TV":..dp|
000011a0  45 0d 06 18 3d 20 4e 30  3d 30 3a e3 20 4a 3d 31  |E...= N0=0:. J=1|
000011b0  b8 34 3a e7 20 c0 4b 24  28 4a 29 2c 31 29 3c 3e  |.4:. .K$(J),1)<>|
000011c0  22 31 22 20 8c 20 4b 24  28 4a 29 3d 22 30 22 2b  |"1" . K$(J)="0"+|
000011d0  41 49 24 2b 4b 24 28 4a  29 3a 4e 30 3d 31 0d 06  |AI$+K$(J):N0=1..|
000011e0  22 06 20 ed 0d 06 2c 22  20 e7 20 4e 30 3d 30 20  |". ...," . N0=0 |
000011f0  8c 20 4b 24 28 31 29 3d  22 31 22 2b c2 4b 24 28  |. K$(1)="1"+.K$(|
00001200  31 29 2c 32 39 29 0d 06  36 06 20 f8 0d 06 40 29  |1),29)..6. ...@)|
00001210  20 51 24 3d 22 51 75 65  6c 20 74 65 6d 70 73 20  | Q$="Quel temps |
00001220  66 61 69 74 2d 69 6c 20  61 75 6a 6f 75 72 64 27  |fait-il aujourd'|
00001230  68 75 69 3f 22 0d 06 4a  12 20 46 24 3d 57 45 24  |hui?"..J. F$=WE$|
00001240  3a e4 20 8d 64 64 47 0d  06 72 75 20 4b 24 28 31  |:. .ddG..ru K$(1|
00001250  29 3d 4b 24 28 31 29 2b  22 49 6c 20 66 61 69 74  |)=K$(1)+"Il fait|
00001260  20 62 65 61 75 22 3a 4b  24 28 32 29 3d 4b 24 28  | beau":K$(2)=K$(|
00001270  32 29 2b 22 49 6c 20 70  6c 65 75 74 22 3a 4b 24  |2)+"Il pleut":K$|
00001280  28 33 29 3d 4b 24 28 33  29 2b 22 49 6c 20 66 61  |(3)=K$(3)+"Il fa|
00001290  69 74 20 66 72 6f 69 64  22 3a 4b 24 28 34 29 3d  |it froid":K$(4)=|
000012a0  4b 24 28 34 29 2b 22 49  6c 20 66 61 69 74 20 74  |K$(4)+"Il fait t|
000012b0  72 86 73 20 63 68 61 75  64 22 3a f8 0d 06 a4 26  |r.s chaud":....&|
000012c0  20 51 24 3d 22 51 75 65  6c 20 74 65 6d 70 73 20  | Q$="Quel temps |
000012d0  61 2d 74 2d 69 6c 20 66  61 69 74 20 68 69 65 72  |a-t-il fait hier|
000012e0  3f 22 0d 06 ae 12 20 46  24 3d 57 59 24 3a e4 20  |?".... F$=WY$:. |
000012f0  8d 64 64 47 0d 06 b8 84  20 4b 24 28 31 29 3d 4b  |.ddG.... K$(1)=K|
00001300  24 28 31 29 2b 22 48 69  65 72 20 69 6c 20 61 20  |$(1)+"Hier il a |
00001310  66 61 69 74 20 62 65 61  75 20 74 65 6d 70 73 22  |fait beau temps"|
00001320  3a 4b 24 28 32 29 3d 4b  24 28 32 29 2b 22 49 6c  |:K$(2)=K$(2)+"Il|
00001330  20 61 20 70 6c 75 22 3a  4b 24 28 33 29 3d 4b 24  | a plu":K$(3)=K$|
00001340  28 33 29 2b 22 49 6c 20  61 20 66 61 69 74 20 66  |(3)+"Il a fait f|
00001350  72 6f 69 64 22 3a 4b 24  28 34 29 3d 4b 24 28 34  |roid":K$(4)=K$(4|
00001360  29 2b 22 49 6c 20 61 20  66 61 69 74 20 74 72 86  |)+"Il a fait tr.|
00001370  73 20 63 68 61 75 64 22  0d 06 c2 32 20 e7 20 c0  |s chaud"...2 . .|
00001380  4b 24 28 31 29 2c 31 29  3d 22 31 22 20 8c 20 4b  |K$(1),1)="1" . K|
00001390  24 28 33 29 3d 22 30 49  6c 20 66 61 69 74 20 62  |$(3)="0Il fait b|
000013a0  65 61 75 22 3a e5 8d 64  6a 46 0d 06 cc 2e 20 e7  |eau":..djF.... .|
000013b0  20 c0 4b 24 28 32 29 2c  31 29 3d 22 31 22 20 8c  | .K$(2),1)="1" .|
000013c0  20 4b 24 28 34 29 3d 22  30 49 6c 20 70 6c 65 75  | K$(4)="0Il pleu|
000013d0  74 22 3a e5 8d 64 6a 46  0d 06 d6 33 20 e7 20 c0  |t":..djF...3 . .|
000013e0  4b 24 28 33 29 2c 31 29  3d 22 31 22 20 8c 20 4b  |K$(3),1)="1" . K|
000013f0  24 28 32 29 3d 22 30 49  6c 20 66 61 69 74 20 66  |$(2)="0Il fait f|
00001400  72 6f 69 64 22 3a e5 8d  64 6a 46 0d 06 e0 32 20  |roid":..djF...2 |
00001410  e7 20 c0 4b 24 28 34 29  2c 31 29 3d 22 31 22 20  |. .K$(4),1)="1" |
00001420  8c 20 4b 24 28 31 29 3d  22 30 49 6c 20 66 61 69  |. K$(1)="0Il fai|
00001430  74 20 74 72 86 73 20 63  68 61 75 64 22 0d 06 ea  |t tr.s chaud"...|
00001440  06 20 f8 0d 07 08 18 20  51 24 3d 22 42 6f 6e 2e  |. ..... Q$="Bon.|
00001450  4d 65 72 63 69 20 22 2b  4e 4d 24 0d 07 12 8e 20  |Merci "+NM$.... |
00001460  4b 24 28 31 29 3d 22 30  4f 75 69 2c 63 27 65 73  |K$(1)="0Oui,c'es|
00001470  74 20 62 6f 6e 22 3a 4b  24 28 32 29 3d 22 31 41  |t bon":K$(2)="1A|
00001480  75 20 72 65 76 6f 69 72  2c 6d 6f 6e 73 69 65 75  |u revoir,monsieu|
00001490  72 2c 65 74 20 6d 65 72  63 69 22 3a 4b 24 28 33  |r,et merci":K$(3|
000014a0  29 3d 22 30 41 75 20 72  65 76 6f 69 72 2c 6d 61  |)="0Au revoir,ma|
000014b0  64 61 6d 65 2c 65 74 20  6d 65 72 63 69 22 3a 4b  |dame,et merci":K|
000014c0  24 28 34 29 3d 22 30 56  6f 75 6c 65 7a 2d 76 6f  |$(4)="0Voulez-vo|
000014d0  75 73 20 72 e5 70 e5 74  65 72 20 6c 61 20 71 75  |us r.p.ter la qu|
000014e0  65 73 74 69 6f 6e 22 3a  f8 0d 07 d0 47 20 54 46  |estion":....G TF|
000014f0  24 3d 22 22 3a 57 46 24  3d 22 22 3a e3 48 3d 31  |$="":WF$="":.H=1|
00001500  b8 a9 28 46 24 29 3a 44  53 24 3d c1 46 24 2c 48  |..(F$):DS$=.F$,H|
00001510  2c 31 29 3a e7 20 a7 4e  55 24 2c 44 53 24 29 3c  |,1):. .NU$,DS$)<|
00001520  3e 30 20 8c 20 54 46 24  3d 54 46 24 2b 44 53 24  |>0 . TF$=TF$+DS$|
00001530  0d 07 dc 26 20 e7 20 a7  22 31 32 33 34 35 22 2c  |...& . ."12345",|
00001540  44 53 24 29 3c 3e 30 20  8c 20 57 46 24 3d 57 46  |DS$)<>0 . WF$=WF|
00001550  24 2b 44 53 24 20 0d 07  de 08 20 ed 3a f8 0d 07  |$+DS$ .... .:...|
00001560  e4 3b 20 e3 4a 3d 31 b8  34 3a 4b 24 28 4a 29 3d  |.; .J=1.4:K$(J)=|
00001570  22 30 22 3a ed 3a e7 20  46 24 3d 22 53 22 20 84  |"0":.:. F$="S" .|
00001580  20 46 24 3d 22 73 22 20  8c 20 4b 24 28 31 29 3d  | F$="s" . K$(1)=|
00001590  22 31 22 3a e5 8d 54 56  48 0d 07 ee 28 20 e7 20  |"1":..TVH...( . |
000015a0  46 24 3d 22 52 22 20 84  20 46 24 3d 22 72 22 20  |F$="R" . F$="r" |
000015b0  8c 20 4b 24 28 32 29 3d  22 31 22 3a e5 8d 54 56  |. K$(2)="1":..TV|
000015c0  48 0d 07 f8 28 20 e7 20  46 24 3d 22 43 22 20 84  |H...( . F$="C" .|
000015d0  20 46 24 3d 22 63 22 20  8c 20 4b 24 28 33 29 3d  | F$="c" . K$(3)=|
000015e0  22 31 22 3a e5 8d 54 56  48 0d 08 02 28 20 e7 20  |"1":..TVH...( . |
000015f0  46 24 3d 22 48 22 20 84  20 46 24 3d 22 68 22 20  |F$="H" . F$="h" |
00001600  8c 20 4b 24 28 34 29 3d  22 31 22 3a e5 8d 54 56  |. K$(4)="1":..TV|
00001610  48 0d 08 0c 15 20 46 24  3d 22 53 22 3a 4b 24 28  |H.... F$="S":K$(|
00001620  31 29 3d 22 31 22 0d 08  16 06 20 f8 0d ff        |1)="1".... ...|
0000162e

F/ORAL.m0

F/ORAL.m1

F/ORAL.m2

F/ORAL.m4

F/ORAL.m5

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