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

F/PARLE

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/PARLE
Read OK: ✔
File size: 0CA2 bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

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

File contents
   10*KEY10"OLD|MRUN|M"
   20ONERRORCLS:PRINT:CHAIN"MENU1"
   30MODE1:DIM W$(1),V$(1)
   40VDU19,0,0,0,0,0,1,1,0,0,0,19,2,7,0,0,0,19,3,4,0,0,0:VDU23,1,0;0;0;0;:VDU23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C:C0=0:C1=1:C2=2:C3=3:S$=STRING$(40," "):COLOUR 128+C2:CLS:COLOUR C0:GOSUB 370
   50VDU23,237,&FF,0,0,0,0,0,0,0,23,238,&80,&80,&80,&80,&80,&80,&80,&80,23,239,&01,&01,&01,&01,&01,&01,&01,&01,23,240,&01,&02,&04,&08,&10,&20,&40,&80,23,241,&80,&40,&20,&10,&08,&04,&02,&01,23,242,&3E,&63,&F1,&F0,&F0,&F0,&F0,&60
   60VDU23,243,&03,&0C,&10,&30,&48,&44,&A2,&91,23,244,&C0,&30,&08,&0C,&12,&22,&45,&89,23,245,&FF,0,0,0,0,&C0,&7F,&3F,23,246,0,0,0,0,0,&03,&FE,&FC,23,247,&3F,&3F,&1F,&1F,&0F,&0F,&07,&03,23,248,&FC,&FC,&F8,&F8,&F0,&F0,&E0,&C0
   70VDU23,249,0,0,&CC,&66,&22,&33,&11,&FF,23,224,&FF,0,0,0,0,0,0,0
   80S$=STRING$(40," "):GOSUB 370
   90PRINT:COLOUR128+C1:COLOURC2:PRINTS$;"Parlons Fran�ais (Micro French)";CHR$(225);"LCL 1986";S$:COLOUR C0:COLOUR 128+C2:PRINT:Z$=STRING$(12," "):X$=STRING$(30," "):Y$=STRING$(30,"_"):W$=STRING$(12,CHR$(237)):COLOUR C0
  100PRINT"     ______________________________"SPC(9)"�"SPC(30)"�       �"SPC(32)"�     �"SPC(34)"�   �"SPC(36)"�"
  110PRINT" �"SPC(35)" �  �"SPC(35)" �   �"SPC(34)"�     �"SPC(33)"�      �"SPC(30)"���       "+STRING$(30,CHR$(237))
  120COLOUR C0
  130PRINTZ$;SPC(16)"   ��  "'Z$;SPC(16)" ��  �� "'Z$;SPC(16)"� _  _ �"'Z$;SPC(16)"�      �"'Z$;SPC(16)" �";:COLOURC3:PRINT"�  �";:COLOURC0
  140 PRINT"�                                  � �  �"
  150PRINTZ$;SPC(16)" � �� � "'Z$;SPC(16)" � �� �"'Z$;SPC(16)"__�  �__";:COLOUR1:PRINTSPC(31);"����";:COLOUR0:PRINT"��";:COLOUR1:PRINT"����"SPC(30)"����������"
  160 PRINTTAB(0,19);"Listen to Side 1 of the":PRINT"Voice Tape. Press any key":PRINT"when you hear the first":PRINT"word (la). Then speak each":PRINT"word after you hear it."
  170 PRINT"Listen to how the last":PRINT"syllable is often stressed."
  180 RB$=GET$
  190 FOR K=1 TO 53
  200 GOSUB 330
  210 COLOUR0:PRINT TAB(3,11);LEFT$(STRING$(INT((34-LEN(J$))/2)," ")+J$+S$,35)
  220 COLOURC3:PRINTTAB(0,5);LEFT$(K$+S$,39):COLOURC0
  230 GOSUB 340:TT=TIME
  240 IF TIME<TT+844 THEN GOTO 240
  250 NEXT
  260 PRINTTAB(0,19);LEFT$(S$,28):PRINT"Now read aloud the words    ":PRINT"you see. If you can not     ":PRINT"remember how to say it      ":PRINT"press ? then try again.     ":PRINT"Press C to continue         ":PRINTLEFT$(S$,28)
  270 PRINTTAB(0,5);LEFT$(S$,39)
  280 K=RND(52):GOSUB 330
  290 PRINT TAB(3,11);LEFT$(STRING$(INT((34-LEN(J$))/2)," ")+J$+S$,35)
  300 R$=GET$
  310 IF R$="?" THEN PRINTTAB(0,5);LEFT$(K$+S$,39):GOTO 300 ELSE PRINTTAB(0,5);LEFT$(S$,39):GOTO 280
  320 END
  330 J$=MID$(W$(-(K>28)),K*8-7+(K>28)*28*8,8):N=VAL(MID$(N$,K*2-1,2)):K$=MID$(V$(-(N>11)),N*20-19+(N>11)*11*20,20):RETURN
  340COLOUR0:FOR I=1 TO12:PRINTTAB(31,24);"  ";:GOSUB380:PRINTTAB(31,24);"��";:NEXT:PRINT:COLOUR0:RETURN
  350RETURN
  360END
  370 W$(0)="la      table   place   balle   malade  cheval  femme   pas     gras    le      te      de      que     petit   �t�     caf�    mang�   aller   jeter   appeler allez   parlez  les     mes     m�re    p�re    t�te    m�me    "
  380 W$(1)="ici     image   famille Paris   homme   robe    bonne   gros    chaud   beau    vous    o�      sous    France  grand   fin     train   pain    bon     non     un      lundi   brun    oui     trois   "
  390 V$(0)="a = a in 'cat'      emm = a in 'cat'    a = a in 'dark'     e = er in 'perhaps' � = ay              er = ay             ez = ay             es in short words=ay�,� = e in 'there'  i = ee              o = o in 'hot'      "
  400 V$(1)="o,au,eau = o in 'go'ou = oo             a = an in 'want'    i,ai = nasal e      on = o in 'song'    u = u in 'turn'     ou,oi = w in 'walk' "
  410 N$="0101010101010203030404040404050505060606070708080909090910101010111111121212131313141415151516161717171818"
  420 RETURN


*KEY10"OLD|MRUN|M"
��:�:�"MENU1"
�1:� W$(1),V$(1)
(��19,0,0,0,0,0,1,1,0,0,0,19,2,7,0,0,0,19,3,4,0,0,0:�23,1,0;0;0;0;:�23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C:C0=0:C1=1:C2=2:C3=3:S$=�40," "):� 128+C2:�:� C0:� �DrA
2��23,237,&FF,0,0,0,0,0,0,0,23,238,&80,&80,&80,&80,&80,&80,&80,&80,23,239,&01,&01,&01,&01,&01,&01,&01,&01,23,240,&01,&02,&04,&08,&10,&20,&40,&80,23,241,&80,&40,&20,&10,&08,&04,&02,&01,23,242,&3E,&63,&F1,&F0,&F0,&F0,&F0,&60
<��23,243,&03,&0C,&10,&30,&48,&44,&A2,&91,23,244,&C0,&30,&08,&0C,&12,&22,&45,&89,23,245,&FF,0,0,0,0,&C0,&7F,&3F,23,246,0,0,0,0,0,&03,&FE,&FC,23,247,&3F,&3F,&1F,&1F,&0F,&0F,&07,&03,23,248,&FC,&FC,&F8,&F8,&F0,&F0,&E0,&C0
F@�23,249,0,0,&CC,&66,&22,&33,&11,&FF,23,224,&FF,0,0,0,0,0,0,0
PS$=�40," "):� �DrA
Z��:�128+C1:�C2:�S$;"Parlons Fran�ais (Micro French)";�(225);"LCL 1986";S$:� C0:� 128+C2:�:Z$=�12," "):X$=�30," "):Y$=�30,"_"):W$=�12,�(237)):� C0
dc�"     ______________________________"�(9)"�"�(30)"�       �"�(32)"�     �"�(34)"�   �"�(36)"�"
n\�" �"�(35)" �  �"�(35)" �   �"�(34)"�     �"�(33)"�      �"�(30)"���       "+�30,�(237))
x� C0
�n�Z$;�(16)"   ��  "'Z$;�(16)" ��  �� "'Z$;�(16)"� _  _ �"'Z$;�(16)"�      �"'Z$;�(16)" �";:�C3:�"�  �";:�C0
�1 �"�                                  � �  �"
�u�Z$;�(16)" � �� � "'Z$;�(16)" � �� �"'Z$;�(16)"__�  �__";:�1:�(31);"����";:�0:�"��";:�1:�"����"�(30)"����������"
�� �0,19);"Listen to Side 1 of the":�"Voice Tape. Press any key":�"when you hear the first":�"word (la). Then speak each":�"word after you hear it."
�= �"Listen to how the last":�"syllable is often stressed."
�
 RB$=�
� � K=1 � 53
� � �DJA
�1 �0:� �3,11);�Ĩ((34-�(J$))/2)," ")+J$+S$,35)
� �C3:�0,5);�K$+S$,39):�C0
� � �DTA:TT=�
� � �<TT+844 � � �dp@
� �
� �0,19);�S$,28):�"Now read aloud the words    ":�"you see. If you can not     ":�"remember how to say it      ":�"press ? then try again.     ":�"Press C to continue         ":�S$,28)
 �0,5);�S$,39)
 K=�(52):� �DJA
". � �3,11);�Ĩ((34-�(J$))/2)," ")+J$+S$,35)
,	 R$=�
6@ � R$="?" � �0,5);�K$+S$,39):� �TlA � �0,5);�S$,39):� �TXA
@ �
Jf J$=�W$(-(K>28)),K*8-7+(K>28)*28*8,8):N=�(�N$,K*2-1,2)):K$=�V$(-(N>11)),N*20-19+(N>11)*11*20,20):�
T=�0:� I=1 �12:�31,24);"  ";:�D|A:�31,24);"��";:�:�:�0:�
^�
h�
r� W$(0)="la      table   place   balle   malade  cheval  femme   pas     gras    le      te      de      que     petit   �t�     caf�    mang�   aller   jeter   appeler allez   parlez  les     mes     m�re    p�re    t�te    m�me    "
|� W$(1)="ici     image   famille Paris   homme   robe    bonne   gros    chaud   beau    vous    o�      sous    France  grand   fin     train   pain    bon     non     un      lundi   brun    oui     trois   "
�� V$(0)="a = a in 'cat'      emm = a in 'cat'    a = a in 'dark'     e = er in 'perhaps' � = ay              er = ay             ez = ay             es in short words=ay�,� = e in 'there'  i = ee              o = o in 'hot'      "
�� V$(1)="o,au,eau = o in 'go'ou = oo             a = an in 'want'    i,ai = nasal e      on = o in 'song'    u = u in 'turn'     ou,oi = w in 'walk' "
�t N$="0101010101010203030404040404050505060606070708080909090910101010111111121212131313141415151516161717171818"
� �
�
00000000  0d 00 0a 16 2a 4b 45 59  31 30 22 4f 4c 44 7c 4d  |....*KEY10"OLD|M|
00000010  52 55 4e 7c 4d 22 0d 00  14 12 ee 85 db 3a f1 3a  |RUN|M".......:.:|
00000020  d7 22 4d 45 4e 55 31 22  0d 00 1e 14 eb 31 3a de  |."MENU1".....1:.|
00000030  20 57 24 28 31 29 2c 56  24 28 31 29 0d 00 28 a3  | W$(1),V$(1)..(.|
00000040  ef 31 39 2c 30 2c 30 2c  30 2c 30 2c 30 2c 31 2c  |.19,0,0,0,0,0,1,|
00000050  31 2c 30 2c 30 2c 30 2c  31 39 2c 32 2c 37 2c 30  |1,0,0,0,19,2,7,0|
00000060  2c 30 2c 30 2c 31 39 2c  33 2c 34 2c 30 2c 30 2c  |,0,0,19,3,4,0,0,|
00000070  30 3a ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |0:.23,1,0;0;0;0;|
00000080  3a ef 32 33 2c 32 32 35  2c 26 33 43 2c 26 34 32  |:.23,225,&3C,&42|
00000090  2c 26 39 39 2c 26 41 31  2c 26 41 31 2c 26 39 39  |,&99,&A1,&A1,&99|
000000a0  2c 26 34 32 2c 26 33 43  3a 43 30 3d 30 3a 43 31  |,&42,&3C:C0=0:C1|
000000b0  3d 31 3a 43 32 3d 32 3a  43 33 3d 33 3a 53 24 3d  |=1:C2=2:C3=3:S$=|
000000c0  c4 34 30 2c 22 20 22 29  3a fb 20 31 32 38 2b 43  |.40," "):. 128+C|
000000d0  32 3a db 3a fb 20 43 30  3a e4 20 8d 44 72 41 0d  |2:.:. C0:. .DrA.|
000000e0  00 32 e0 ef 32 33 2c 32  33 37 2c 26 46 46 2c 30  |.2..23,237,&FF,0|
000000f0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 32 33 2c  |,0,0,0,0,0,0,23,|
00000100  32 33 38 2c 26 38 30 2c  26 38 30 2c 26 38 30 2c  |238,&80,&80,&80,|
00000110  26 38 30 2c 26 38 30 2c  26 38 30 2c 26 38 30 2c  |&80,&80,&80,&80,|
00000120  26 38 30 2c 32 33 2c 32  33 39 2c 26 30 31 2c 26  |&80,23,239,&01,&|
00000130  30 31 2c 26 30 31 2c 26  30 31 2c 26 30 31 2c 26  |01,&01,&01,&01,&|
00000140  30 31 2c 26 30 31 2c 26  30 31 2c 32 33 2c 32 34  |01,&01,&01,23,24|
00000150  30 2c 26 30 31 2c 26 30  32 2c 26 30 34 2c 26 30  |0,&01,&02,&04,&0|
00000160  38 2c 26 31 30 2c 26 32  30 2c 26 34 30 2c 26 38  |8,&10,&20,&40,&8|
00000170  30 2c 32 33 2c 32 34 31  2c 26 38 30 2c 26 34 30  |0,23,241,&80,&40|
00000180  2c 26 32 30 2c 26 31 30  2c 26 30 38 2c 26 30 34  |,&20,&10,&08,&04|
00000190  2c 26 30 32 2c 26 30 31  2c 32 33 2c 32 34 32 2c  |,&02,&01,23,242,|
000001a0  26 33 45 2c 26 36 33 2c  26 46 31 2c 26 46 30 2c  |&3E,&63,&F1,&F0,|
000001b0  26 46 30 2c 26 46 30 2c  26 46 30 2c 26 36 30 0d  |&F0,&F0,&F0,&60.|
000001c0  00 3c dc ef 32 33 2c 32  34 33 2c 26 30 33 2c 26  |.<..23,243,&03,&|
000001d0  30 43 2c 26 31 30 2c 26  33 30 2c 26 34 38 2c 26  |0C,&10,&30,&48,&|
000001e0  34 34 2c 26 41 32 2c 26  39 31 2c 32 33 2c 32 34  |44,&A2,&91,23,24|
000001f0  34 2c 26 43 30 2c 26 33  30 2c 26 30 38 2c 26 30  |4,&C0,&30,&08,&0|
00000200  43 2c 26 31 32 2c 26 32  32 2c 26 34 35 2c 26 38  |C,&12,&22,&45,&8|
00000210  39 2c 32 33 2c 32 34 35  2c 26 46 46 2c 30 2c 30  |9,23,245,&FF,0,0|
00000220  2c 30 2c 30 2c 26 43 30  2c 26 37 46 2c 26 33 46  |,0,0,&C0,&7F,&3F|
00000230  2c 32 33 2c 32 34 36 2c  30 2c 30 2c 30 2c 30 2c  |,23,246,0,0,0,0,|
00000240  30 2c 26 30 33 2c 26 46  45 2c 26 46 43 2c 32 33  |0,&03,&FE,&FC,23|
00000250  2c 32 34 37 2c 26 33 46  2c 26 33 46 2c 26 31 46  |,247,&3F,&3F,&1F|
00000260  2c 26 31 46 2c 26 30 46  2c 26 30 46 2c 26 30 37  |,&1F,&0F,&0F,&07|
00000270  2c 26 30 33 2c 32 33 2c  32 34 38 2c 26 46 43 2c  |,&03,23,248,&FC,|
00000280  26 46 43 2c 26 46 38 2c  26 46 38 2c 26 46 30 2c  |&FC,&F8,&F8,&F0,|
00000290  26 46 30 2c 26 45 30 2c  26 43 30 0d 00 46 40 ef  |&F0,&E0,&C0..F@.|
000002a0  32 33 2c 32 34 39 2c 30  2c 30 2c 26 43 43 2c 26  |23,249,0,0,&CC,&|
000002b0  36 36 2c 26 32 32 2c 26  33 33 2c 26 31 31 2c 26  |66,&22,&33,&11,&|
000002c0  46 46 2c 32 33 2c 32 32  34 2c 26 46 46 2c 30 2c  |FF,23,224,&FF,0,|
000002d0  30 2c 30 2c 30 2c 30 2c  30 2c 30 0d 00 50 16 53  |0,0,0,0,0,0..P.S|
000002e0  24 3d c4 34 30 2c 22 20  22 29 3a e4 20 8d 44 72  |$=.40," "):. .Dr|
000002f0  41 0d 00 5a 94 f1 3a fb  31 32 38 2b 43 31 3a fb  |A..Z..:.128+C1:.|
00000300  43 32 3a f1 53 24 3b 22  50 61 72 6c 6f 6e 73 20  |C2:.S$;"Parlons |
00000310  46 72 61 6e 8c 61 69 73  20 28 4d 69 63 72 6f 20  |Fran.ais (Micro |
00000320  46 72 65 6e 63 68 29 22  3b bd 28 32 32 35 29 3b  |French)";.(225);|
00000330  22 4c 43 4c 20 31 39 38  36 22 3b 53 24 3a fb 20  |"LCL 1986";S$:. |
00000340  43 30 3a fb 20 31 32 38  2b 43 32 3a f1 3a 5a 24  |C0:. 128+C2:.:Z$|
00000350  3d c4 31 32 2c 22 20 22  29 3a 58 24 3d c4 33 30  |=.12," "):X$=.30|
00000360  2c 22 20 22 29 3a 59 24  3d c4 33 30 2c 22 5f 22  |," "):Y$=.30,"_"|
00000370  29 3a 57 24 3d c4 31 32  2c bd 28 32 33 37 29 29  |):W$=.12,.(237))|
00000380  3a fb 20 43 30 0d 00 64  63 f1 22 20 20 20 20 20  |:. C0..dc."     |
00000390  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
000003a0  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 22 89  |______________".|
000003b0  28 39 29 22 90 22 89 28  33 30 29 22 91 20 20 20  |(9)".".(30)".   |
000003c0  20 20 20 20 90 22 89 28  33 32 29 22 91 20 20 20  |    .".(32)".   |
000003d0  20 20 90 22 89 28 33 34  29 22 91 20 20 20 8f 22  |  .".(34)".   ."|
000003e0  89 28 33 36 29 22 8e 22  0d 00 6e 5c f1 22 20 8f  |.(36)"."..n\." .|
000003f0  22 89 28 33 35 29 22 20  8e 20 20 8f 22 89 28 33  |".(35)" .  .".(3|
00000400  35 29 22 20 8e 20 20 20  91 22 89 28 33 34 29 22  |5)" .   .".(34)"|
00000410  90 20 20 20 20 20 91 22  89 28 33 33 29 22 8e 20  |.     .".(33)". |
00000420  20 20 20 20 20 91 22 89  28 33 30 29 22 90 91 8e  |     .".(30)"...|
00000430  20 20 20 20 20 20 20 22  2b c4 33 30 2c bd 28 32  |       "+.30,.(2|
00000440  33 37 29 29 0d 00 78 08  fb 20 43 30 0d 00 82 6e  |37))..x.. C0...n|
00000450  f1 5a 24 3b 89 28 31 36  29 22 20 20 20 99 99 20  |.Z$;.(16)"   .. |
00000460  20 22 27 5a 24 3b 89 28  31 36 29 22 20 93 80 20  | "'Z$;.(16)" .. |
00000470  20 80 94 20 22 27 5a 24  3b 89 28 31 36 29 22 8f  | .. "'Z$;.(16)".|
00000480  20 5f 20 20 5f 20 8e 22  27 5a 24 3b 89 28 31 36  | _  _ ."'Z$;.(16|
00000490  29 22 8f 20 20 20 20 20  20 8e 22 27 5a 24 3b 89  |)".      ."'Z$;.|
000004a0  28 31 36 29 22 20 8e 22  3b 3a fb 43 33 3a f1 22  |(16)" .";:.C3:."|
000004b0  92 20 20 92 22 3b 3a fb  43 30 0d 00 8c 31 20 f1  |.  .";:.C0...1 .|
000004c0  22 8f 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |".              |
000004d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004e0  20 20 20 20 8e 20 90 20  20 8f 22 0d 00 96 75 f1  |    . .  ."...u.|
000004f0  5a 24 3b 89 28 31 36 29  22 20 8e 20 95 96 20 8f  |Z$;.(16)" . .. .|
00000500  20 22 27 5a 24 3b 89 28  31 36 29 22 20 91 20 97  | "'Z$;.(16)" . .|
00000510  98 20 90 22 27 5a 24 3b  89 28 31 36 29 22 5f 5f  |. ."'Z$;.(16)"__|
00000520  91 20 20 90 5f 5f 22 3b  3a fb 31 3a f1 89 28 33  |.  .__";:.1:..(3|
00000530  31 29 3b 22 8f 8f 8f 80  22 3b 3a fb 30 3a f1 22  |1);"....";:.0:."|
00000540  91 90 22 3b 3a fb 31 3a  f1 22 80 8e 8e 8e 22 89  |..";:.1:."....".|
00000550  28 33 30 29 22 8f 8f 8f  90 8f 8e 91 8e 8e 8e 22  |(30)".........."|
00000560  0d 00 a0 97 20 f1 8a 30  2c 31 39 29 3b 22 4c 69  |.... ..0,19);"Li|
00000570  73 74 65 6e 20 74 6f 20  53 69 64 65 20 31 20 6f  |sten to Side 1 o|
00000580  66 20 74 68 65 22 3a f1  22 56 6f 69 63 65 20 54  |f the":."Voice T|
00000590  61 70 65 2e 20 50 72 65  73 73 20 61 6e 79 20 6b  |ape. Press any k|
000005a0  65 79 22 3a f1 22 77 68  65 6e 20 79 6f 75 20 68  |ey":."when you h|
000005b0  65 61 72 20 74 68 65 20  66 69 72 73 74 22 3a f1  |ear the first":.|
000005c0  22 77 6f 72 64 20 28 6c  61 29 2e 20 54 68 65 6e  |"word (la). Then|
000005d0  20 73 70 65 61 6b 20 65  61 63 68 22 3a f1 22 77  | speak each":."w|
000005e0  6f 72 64 20 61 66 74 65  72 20 79 6f 75 20 68 65  |ord after you he|
000005f0  61 72 20 69 74 2e 22 0d  00 aa 3d 20 f1 22 4c 69  |ar it."...= ."Li|
00000600  73 74 65 6e 20 74 6f 20  68 6f 77 20 74 68 65 20  |sten to how the |
00000610  6c 61 73 74 22 3a f1 22  73 79 6c 6c 61 62 6c 65  |last":."syllable|
00000620  20 69 73 20 6f 66 74 65  6e 20 73 74 72 65 73 73  | is often stress|
00000630  65 64 2e 22 0d 00 b4 0a  20 52 42 24 3d be 0d 00  |ed.".... RB$=...|
00000640  be 0f 20 e3 20 4b 3d 31  20 b8 20 35 33 0d 00 c8  |.. . K=1 . 53...|
00000650  0b 20 e4 20 8d 44 4a 41  0d 00 d2 31 20 fb 30 3a  |. . .DJA...1 .0:|
00000660  f1 20 8a 33 2c 31 31 29  3b c0 c4 a8 28 28 33 34  |. .3,11);...((34|
00000670  2d a9 28 4a 24 29 29 2f  32 29 2c 22 20 22 29 2b  |-.(J$))/2)," ")+|
00000680  4a 24 2b 53 24 2c 33 35  29 0d 00 dc 1e 20 fb 43  |J$+S$,35).... .C|
00000690  33 3a f1 8a 30 2c 35 29  3b c0 4b 24 2b 53 24 2c  |3:..0,5);.K$+S$,|
000006a0  33 39 29 3a fb 43 30 0d  00 e6 10 20 e4 20 8d 44  |39):.C0.... . .D|
000006b0  54 41 3a 54 54 3d 91 0d  00 f0 18 20 e7 20 91 3c  |TA:TT=..... . .<|
000006c0  54 54 2b 38 34 34 20 8c  20 e5 20 8d 64 70 40 0d  |TT+844 . . .dp@.|
000006d0  00 fa 06 20 ed 0d 01 04  bd 20 f1 8a 30 2c 31 39  |... ..... ..0,19|
000006e0  29 3b c0 53 24 2c 32 38  29 3a f1 22 4e 6f 77 20  |);.S$,28):."Now |
000006f0  72 65 61 64 20 61 6c 6f  75 64 20 74 68 65 20 77  |read aloud the w|
00000700  6f 72 64 73 20 20 20 20  22 3a f1 22 79 6f 75 20  |ords    ":."you |
00000710  73 65 65 2e 20 49 66 20  79 6f 75 20 63 61 6e 20  |see. If you can |
00000720  6e 6f 74 20 20 20 20 20  22 3a f1 22 72 65 6d 65  |not     ":."reme|
00000730  6d 62 65 72 20 68 6f 77  20 74 6f 20 73 61 79 20  |mber how to say |
00000740  69 74 20 20 20 20 20 20  22 3a f1 22 70 72 65 73  |it      ":."pres|
00000750  73 20 3f 20 74 68 65 6e  20 74 72 79 20 61 67 61  |s ? then try aga|
00000760  69 6e 2e 20 20 20 20 20  22 3a f1 22 50 72 65 73  |in.     ":."Pres|
00000770  73 20 43 20 74 6f 20 63  6f 6e 74 69 6e 75 65 20  |s C to continue |
00000780  20 20 20 20 20 20 20 20  22 3a f1 c0 53 24 2c 32  |        ":..S$,2|
00000790  38 29 0d 01 0e 13 20 f1  8a 30 2c 35 29 3b c0 53  |8).... ..0,5);.S|
000007a0  24 2c 33 39 29 0d 01 18  13 20 4b 3d b3 28 35 32  |$,39).... K=.(52|
000007b0  29 3a e4 20 8d 44 4a 41  0d 01 22 2e 20 f1 20 8a  |):. .DJA..". . .|
000007c0  33 2c 31 31 29 3b c0 c4  a8 28 28 33 34 2d a9 28  |3,11);...((34-.(|
000007d0  4a 24 29 29 2f 32 29 2c  22 20 22 29 2b 4a 24 2b  |J$))/2)," ")+J$+|
000007e0  53 24 2c 33 35 29 0d 01  2c 09 20 52 24 3d be 0d  |S$,35)..,. R$=..|
000007f0  01 36 40 20 e7 20 52 24  3d 22 3f 22 20 8c 20 f1  |.6@ . R$="?" . .|
00000800  8a 30 2c 35 29 3b c0 4b  24 2b 53 24 2c 33 39 29  |.0,5);.K$+S$,39)|
00000810  3a e5 20 8d 54 6c 41 20  8b 20 f1 8a 30 2c 35 29  |:. .TlA . ..0,5)|
00000820  3b c0 53 24 2c 33 39 29  3a e5 20 8d 54 58 41 0d  |;.S$,39):. .TXA.|
00000830  01 40 06 20 e0 0d 01 4a  66 20 4a 24 3d c1 57 24  |.@. ...Jf J$=.W$|
00000840  28 2d 28 4b 3e 32 38 29  29 2c 4b 2a 38 2d 37 2b  |(-(K>28)),K*8-7+|
00000850  28 4b 3e 32 38 29 2a 32  38 2a 38 2c 38 29 3a 4e  |(K>28)*28*8,8):N|
00000860  3d bb 28 c1 4e 24 2c 4b  2a 32 2d 31 2c 32 29 29  |=.(.N$,K*2-1,2))|
00000870  3a 4b 24 3d c1 56 24 28  2d 28 4e 3e 31 31 29 29  |:K$=.V$(-(N>11))|
00000880  2c 4e 2a 32 30 2d 31 39  2b 28 4e 3e 31 31 29 2a  |,N*20-19+(N>11)*|
00000890  31 31 2a 32 30 2c 32 30  29 3a f8 0d 01 54 3d fb  |11*20,20):...T=.|
000008a0  30 3a e3 20 49 3d 31 20  b8 31 32 3a f1 8a 33 31  |0:. I=1 .12:..31|
000008b0  2c 32 34 29 3b 22 20 20  22 3b 3a e4 8d 44 7c 41  |,24);"  ";:..D|A|
000008c0  3a f1 8a 33 31 2c 32 34  29 3b 22 97 98 22 3b 3a  |:..31,24);"..";:|
000008d0  ed 3a f1 3a fb 30 3a f8  0d 01 5e 05 f8 0d 01 68  |.:.:.0:...^....h|
000008e0  05 e0 0d 01 72 ed 20 57  24 28 30 29 3d 22 6c 61  |....r. W$(0)="la|
000008f0  20 20 20 20 20 20 74 61  62 6c 65 20 20 20 70 6c  |      table   pl|
00000900  61 63 65 20 20 20 62 61  6c 6c 65 20 20 20 6d 61  |ace   balle   ma|
00000910  6c 61 64 65 20 20 63 68  65 76 61 6c 20 20 66 65  |lade  cheval  fe|
00000920  6d 6d 65 20 20 20 70 61  73 20 20 20 20 20 67 72  |mme   pas     gr|
00000930  61 73 20 20 20 20 6c 65  20 20 20 20 20 20 74 65  |as    le      te|
00000940  20 20 20 20 20 20 64 65  20 20 20 20 20 20 71 75  |      de      qu|
00000950  65 20 20 20 20 20 70 65  74 69 74 20 20 20 85 74  |e     petit   .t|
00000960  85 20 20 20 20 20 63 61  66 85 20 20 20 20 6d 61  |.     caf.    ma|
00000970  6e 67 85 20 20 20 61 6c  6c 65 72 20 20 20 6a 65  |ng.   aller   je|
00000980  74 65 72 20 20 20 61 70  70 65 6c 65 72 20 61 6c  |ter   appeler al|
00000990  6c 65 7a 20 20 20 70 61  72 6c 65 7a 20 20 6c 65  |lez   parlez  le|
000009a0  73 20 20 20 20 20 6d 65  73 20 20 20 20 20 6d 86  |s     mes     m.|
000009b0  72 65 20 20 20 20 70 86  72 65 20 20 20 20 74 84  |re    p.re    t.|
000009c0  74 65 20 20 20 20 6d 84  6d 65 20 20 20 20 22 0d  |te    m.me    ".|
000009d0  01 7c d5 20 57 24 28 31  29 3d 22 69 63 69 20 20  |.|. W$(1)="ici  |
000009e0  20 20 20 69 6d 61 67 65  20 20 20 66 61 6d 69 6c  |   image   famil|
000009f0  6c 65 20 50 61 72 69 73  20 20 20 68 6f 6d 6d 65  |le Paris   homme|
00000a00  20 20 20 72 6f 62 65 20  20 20 20 62 6f 6e 6e 65  |   robe    bonne|
00000a10  20 20 20 67 72 6f 73 20  20 20 20 63 68 61 75 64  |   gros    chaud|
00000a20  20 20 20 62 65 61 75 20  20 20 20 76 6f 75 73 20  |   beau    vous |
00000a30  20 20 20 6f ea 20 20 20  20 20 20 73 6f 75 73 20  |   o.      sous |
00000a40  20 20 20 46 72 61 6e 63  65 20 20 67 72 61 6e 64  |   France  grand|
00000a50  20 20 20 66 69 6e 20 20  20 20 20 74 72 61 69 6e  |   fin     train|
00000a60  20 20 20 70 61 69 6e 20  20 20 20 62 6f 6e 20 20  |   pain    bon  |
00000a70  20 20 20 6e 6f 6e 20 20  20 20 20 75 6e 20 20 20  |   non     un   |
00000a80  20 20 20 6c 75 6e 64 69  20 20 20 62 72 75 6e 20  |   lundi   brun |
00000a90  20 20 20 6f 75 69 20 20  20 20 20 74 72 6f 69 73  |   oui     trois|
00000aa0  20 20 20 22 0d 01 86 e9  20 56 24 28 30 29 3d 22  |   ".... V$(0)="|
00000ab0  61 20 3d 20 61 20 69 6e  20 27 63 61 74 27 20 20  |a = a in 'cat'  |
00000ac0  20 20 20 20 65 6d 6d 20  3d 20 61 20 69 6e 20 27  |    emm = a in '|
00000ad0  63 61 74 27 20 20 20 20  61 20 3d 20 61 20 69 6e  |cat'    a = a in|
00000ae0  20 27 64 61 72 6b 27 20  20 20 20 20 65 20 3d 20  | 'dark'     e = |
00000af0  65 72 20 69 6e 20 27 70  65 72 68 61 70 73 27 20  |er in 'perhaps' |
00000b00  85 20 3d 20 61 79 20 20  20 20 20 20 20 20 20 20  |. = ay          |
00000b10  20 20 20 20 65 72 20 3d  20 61 79 20 20 20 20 20  |    er = ay     |
00000b20  20 20 20 20 20 20 20 20  65 7a 20 3d 20 61 79 20  |        ez = ay |
00000b30  20 20 20 20 20 20 20 20  20 20 20 20 65 73 20 69  |            es i|
00000b40  6e 20 73 68 6f 72 74 20  77 6f 72 64 73 3d 61 79  |n short words=ay|
00000b50  86 2c 84 20 3d 20 65 20  69 6e 20 27 74 68 65 72  |.,. = e in 'ther|
00000b60  65 27 20 20 69 20 3d 20  65 65 20 20 20 20 20 20  |e'  i = ee      |
00000b70  20 20 20 20 20 20 20 20  6f 20 3d 20 6f 20 69 6e  |        o = o in|
00000b80  20 27 68 6f 74 27 20 20  20 20 20 20 22 0d 01 90  | 'hot'      "...|
00000b90  99 20 56 24 28 31 29 3d  22 6f 2c 61 75 2c 65 61  |. V$(1)="o,au,ea|
00000ba0  75 20 3d 20 6f 20 69 6e  20 27 67 6f 27 6f 75 20  |u = o in 'go'ou |
00000bb0  3d 20 6f 6f 20 20 20 20  20 20 20 20 20 20 20 20  |= oo            |
00000bc0  20 61 20 3d 20 61 6e 20  69 6e 20 27 77 61 6e 74  | a = an in 'want|
00000bd0  27 20 20 20 20 69 2c 61  69 20 3d 20 6e 61 73 61  |'    i,ai = nasa|
00000be0  6c 20 65 20 20 20 20 20  20 6f 6e 20 3d 20 6f 20  |l e      on = o |
00000bf0  69 6e 20 27 73 6f 6e 67  27 20 20 20 20 75 20 3d  |in 'song'    u =|
00000c00  20 75 20 69 6e 20 27 74  75 72 6e 27 20 20 20 20  | u in 'turn'    |
00000c10  20 6f 75 2c 6f 69 20 3d  20 77 20 69 6e 20 27 77  | ou,oi = w in 'w|
00000c20  61 6c 6b 27 20 22 0d 01  9a 74 20 4e 24 3d 22 30  |alk' "...t N$="0|
00000c30  31 30 31 30 31 30 31 30  31 30 31 30 32 30 33 30  |1010101010102030|
00000c40  33 30 34 30 34 30 34 30  34 30 34 30 35 30 35 30  |3040404040405050|
00000c50  35 30 36 30 36 30 36 30  37 30 37 30 38 30 38 30  |5060606070708080|
00000c60  39 30 39 30 39 30 39 31  30 31 30 31 30 31 30 31  |9090909101010101|
00000c70  31 31 31 31 31 31 32 31  32 31 32 31 33 31 33 31  |1111112121213131|
00000c80  33 31 34 31 34 31 35 31  35 31 35 31 36 31 36 31  |3141415151516161|
00000c90  37 31 37 31 37 31 38 31  38 22 0d 01 a4 06 20 f8  |717171818".... .|
00000ca0  0d ff                                             |..|
00000ca2
F/PARLE.m0
F/PARLE.m1
F/PARLE.m2
F/PARLE.m4
F/PARLE.m5

© Dominic Ford 2021–2024.

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