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

F/WORDS

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/WORDS
Read OK: ✔
File size: 09EE 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 (WORDS)
   20 REM COPYRIGHT (C) GENEVIEVE GREVILLE 1986
   21 REM CRACKED BY THE DAVE EC
   22 *KEY 10"OLD|MRUN|M"
   24 ON ERROR CHAIN"MENU1":RUN
   30 MODE 1:C0=0:C1=1:C2=2:C3=3
   40 DIM L$(19,14),CH%(15,10),P%(40)
   50 VDU 23,224,0,1,2,4,8,16,160,64
   60 VDU 23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C
   61 VDU23,1,0;0;0;0;
   62 VDU19,0,4,0,0,0:S$=STRING$(40," ")
   64 CLS
   71 W$="SOIRPAYSGARECHOULIREDIREVOIRJOLIVERTHUITSEPTPAINDAMESOUSGROSPRIXCINQPIEDBLEUVRAILAITPUISBIENAVECGRISHAUTTOITNEUFPLATBRASJOURPOURCHATMAISCIELDEUXFILSTROPLOINDANS"
   73 E$="7evening7country7station7cabbage7to read6to say6to see6pretty5green5eight5seven5bread4lady5under3fat5price4five4foot4blue4true4milk4then4well4with4grey4high4roof4nine4dish3arm3day3for3cat3but3sky3two3son3too3far2in"
   74 COLOUR C1+128:COLOUR C2:PRINT:PRINTS$;" Jeux de mots (Micro French) ";CHR$(225);" LCL 1986 ";S$:COLOUR C3:COLOUR 128+C0
   76 NL=1:TL=NL:I=1
   77 NL=VAL(MID$(E$,TL,1)):PRINTTAB(-(I>20)*36,(I>20)*20+I+4);MID$(E$,TL+1,NL);TAB(-(I>20)*20+10,(I>20)*20+I+4);MID$(W$,I*4-3,4);:TL=TL+NL+1:IF I<40 THEN I=I+1:GOTO 77
   80 P%(0)=240
  130 WC$="":CR=0
  140 FOR I=1 TO 10
  150 FOR J=1 TO 14
  160 L$(J,I)=""
  170 CH%(J,I)=0
  180 NEXT J
  190 NEXT I
  200 FOR I=1 TO 20
  210 D=RND(3) 
  220 R=RND(6):IF D=2 THEN R=RND(10)
  230 C=RND(10):IF D=1 THEN C=RND(14)
  240 ID=4*(I+(RND(2)-1)*20)-3
  250 REM IF ID<>P%(Q) AND Q<=I-1 THEN Q=Q+1:GOTO 250
  270 P%(I)=ID
  280 WD$=MID$(W$,ID,4)   
  290 IF D=1 AND L$(C,R)="" AND L$(C,R+1)="" AND L$(C,R+2)="" AND L$(C,R+3)="" THEN FOR K=0 TO 3:L$(C,R+K)=MID$(WD$,K+1,1):CH%(C,R+K)=I:NEXT K:GOTO 330 
  300 IF D=2 AND L$(C,R)="" AND L$(C+1,R)="" AND L$(C+2,R)="" AND L$(C+3,R)="" THEN FOR K=0 TO 3:L$(C+K,R)=MID$(WD$,K+1,1):CH%(C+K,R)=I:NEXT K:GOTO 330 
  310 IF D=3 AND L$(C,R)="" AND L$(C+1,R+1)="" AND L$(C+2,R+2)="" AND L$(C+3,R+3)="" THEN FOR K=0 TO 3:L$(C+K,R+K)=MID$(WD$,K+1,1):CH%(C+K,R+K)=I:NEXT K:GOTO 330 
  320 GOTO 210
  330 WC$=WC$+WD$
  340 NEXT I  
  342 COLOUR C3:PRINT TAB(0,29);"Pressez 'Return' pour continuer        ";:INPUT RB$
  350 FOR I=1 TO 20:PRINT TAB(10,I+4);STRING$(25," "):NEXT
  370 RD=3:COLOUR C2
  380 FOR I=1 TO 10
  390 FOR J=1 TO 14
  400 IF L$(J,I)="" THEN PRINT TAB(2*J+6,I*2+RD);CHR$(64+RND(26));CHR$(9);:GOTO 420
  410 PRINT TAB(2*J+6,I*2+RD);L$(J,I);CHR$(9);
  420 NEXT J
  430 NEXT I
  470  FOR N=1 TO 20  
  480 COLOUR C3:PRINT TAB(0,29);"Cherchez les mots avec quatre lettres                                          ";
  490 VDU 11
  500 INPUT J$:I$=""
  502 FOR J=0 TO LEN(J$)
  504 IF J=0 THEN GOTO 508
  506 I$=I$+CHR$(ASC(MID$(J$,J,1))  AND &DF)
  508 NEXT
  510 IF I$="ENCORE" THEN RUN
  520 FOR M=1 TO 80 STEP 4 
  530  IF I$ <> MID$(WC$,M,4) THEN GOTO 610
  540 PRINT TAB(8,30);CHR$(224);:CR=CR+1:PRINT TAB(35,30);CR;
  542 SW=0
  550 FOR I=1 TO 10
  560 FOR J=1 TO 14
  562 IF SW=0 THEN COLOUR C1 ELSE COLOUR C2
  570 IF CH%(J,I)=(M+3)/4 THEN PRINT TAB(2*J+6,I*2+RD+1);"-";
  580 NEXT J
  590 NEXT I
  592 IF SW=0 THEN RB$=INKEY$(50):SW=1:GOTO 550
  600 GOTO 630
  610 NEXT M
  620 PRINT TAB(8,30);"  X";:RB$=INKEY$(500):GOTO 480 
  630 NEXT N
  640 RUN


 � MICRO FRENCH (WORDS)
, � COPYRIGHT (C) GENEVIEVE GREVILLE 1986
 � CRACKED BY THE DAVE EC
 *KEY 10"OLD|MRUN|M"
 � � �"MENU1":�
 � 1:C0=0:C1=1:C2=2:C3=3
(" � L$(19,14),CH%(15,10),P%(40)
2! � 23,224,0,1,2,4,8,16,160,64
<- � 23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C
= �23,1,0;0;0;0;
> �19,0,4,0,0,0:S$=�40," ")
@ �
G� W$="SOIRPAYSGARECHOULIREDIREVOIRJOLIVERTHUITSEPTPAINDAMESOUSGROSPRIXCINQPIEDBLEUVRAILAITPUISBIENAVECGRISHAUTTOITNEUFPLATBRASJOURPOURCHATMAISCIELDEUXFILSTROPLOINDANS"
I� E$="7evening7country7station7cabbage7to read6to say6to see6pretty5green5eight5seven5bread4lady5under3fat5price4five4foot4blue4true4milk4then4well4with4grey4high4roof4nine4dish3arm3day3for3cat3but3sky3two3son3too3far2in"
J] � C1+128:� C2:�:�S$;" Jeux de mots (Micro French) ";�(225);" LCL 1986 ";S$:� C3:� 128+C0
L NL=1:TL=NL:I=1
M� NL=�(�E$,TL,1)):�-(I>20)*36,(I>20)*20+I+4);�E$,TL+1,NL);�-(I>20)*20+10,(I>20)*20+I+4);�W$,I*4-3,4);:TL=TL+NL+1:� I<40 � I=I+1:� �DM@
P P%(0)=240
� WC$="":CR=0
� � I=1 � 10
� � J=1 � 14
� L$(J,I)=""
� CH%(J,I)=0
� � J
� � I
� � I=1 � 20
� D=�(3) 
� R=�(6):� D=2 � R=�(10)
� C=�(10):� D=1 � C=�(14)
� ID=4*(I+(�(2)-1)*20)-3
�2 � IF ID<>P%(Q) AND Q<=I-1 THEN Q=Q+1:GOTO 250

 P%(I)=ID
 WD$=�W$,ID,4)   
" � D=1 � L$(C,R)="" � L$(C,R+1)="" � L$(C,R+2)="" � L$(C,R+3)="" � � K=0 � 3:L$(C,R+K)=�WD$,K+1,1):CH%(C,R+K)=I:� K:� �DJA 
, � D=2 � L$(C,R)="" � L$(C+1,R)="" � L$(C+2,R)="" � L$(C+3,R)="" � � K=0 � 3:L$(C+K,R)=�WD$,K+1,1):CH%(C+K,R)=I:� K:� �DJA 
6� � D=3 � L$(C,R)="" � L$(C+1,R+1)="" � L$(C+2,R+2)="" � L$(C+3,R+3)="" � � K=0 � 3:L$(C+K,R+K)=�WD$,K+1,1):CH%(C+K,R+K)=I:� K:� �DJA 
@ � �dR@
J WC$=WC$+WD$
T
 � I  
VC � C3:� �0,29);"Pressez 'Return' pour continuer        ";:� RB$
^% � I=1 � 20:� �10,I+4);�25," "):�
r RD=3:� C2
| � I=1 � 10
� � J=1 � 14
�= � L$(J,I)="" � � �2*J+6,I*2+RD);�(64+�(26));�(9);:� �tdA
�# � �2*J+6,I*2+RD);L$(J,I);�(9);
� � J
� � I
�  � N=1 � 20  
�e � C3:� �0,29);"Cherchez les mots avec quatre lettres                                          ";
�	 � 11
� � J$:I$=""
� � J=0 � �(J$)
� � J=0 � � �d|A
�  I$=I$+�(�(�J$,J,1))  � &DF)
� �
� � I$="ENCORE" � �
 � M=1 � 80 � 4 
   � I$ <> �WC$,M,4) � � �DbB
+ � �8,30);�(224);:CR=CR+1:� �35,30);CR;
	 SW=0
& � I=1 � 10
0 � J=1 � 14
2 � SW=0 � � C1 � � C2
:1 � CH%(J,I)=(M+3)/4 � � �2*J+6,I*2+RD+1);"-";
D � J
N � I
P# � SW=0 � RB$=�(50):SW=1:� �TfB
X � �DvB
b � M
l' � �8,30);"  X";:RB$=�(500):� �d`A 
v � N
� �
�
00000000  0d 00 0a 1b 20 f4 20 4d  49 43 52 4f 20 46 52 45  |.... . MICRO FRE|
00000010  4e 43 48 20 28 57 4f 52  44 53 29 0d 00 14 2c 20  |NCH (WORDS)..., |
00000020  f4 20 43 4f 50 59 52 49  47 48 54 20 28 43 29 20  |. COPYRIGHT (C) |
00000030  47 45 4e 45 56 49 45 56  45 20 47 52 45 56 49 4c  |GENEVIEVE GREVIL|
00000040  4c 45 20 31 39 38 36 0d  00 15 1d 20 f4 20 43 52  |LE 1986.... . CR|
00000050  41 43 4b 45 44 20 42 59  20 54 48 45 20 44 41 56  |ACKED BY THE DAV|
00000060  45 20 45 43 0d 00 16 18  20 2a 4b 45 59 20 31 30  |E EC.... *KEY 10|
00000070  22 4f 4c 44 7c 4d 52 55  4e 7c 4d 22 0d 00 18 13  |"OLD|MRUN|M"....|
00000080  20 ee 20 85 20 d7 22 4d  45 4e 55 31 22 3a f9 0d  | . . ."MENU1":..|
00000090  00 1e 1c 20 eb 20 31 3a  43 30 3d 30 3a 43 31 3d  |... . 1:C0=0:C1=|
000000a0  31 3a 43 32 3d 32 3a 43  33 3d 33 0d 00 28 22 20  |1:C2=2:C3=3..(" |
000000b0  de 20 4c 24 28 31 39 2c  31 34 29 2c 43 48 25 28  |. L$(19,14),CH%(|
000000c0  31 35 2c 31 30 29 2c 50  25 28 34 30 29 0d 00 32  |15,10),P%(40)..2|
000000d0  21 20 ef 20 32 33 2c 32  32 34 2c 30 2c 31 2c 32  |! . 23,224,0,1,2|
000000e0  2c 34 2c 38 2c 31 36 2c  31 36 30 2c 36 34 0d 00  |,4,8,16,160,64..|
000000f0  3c 2d 20 ef 20 32 33 2c  32 32 35 2c 26 33 43 2c  |<- . 23,225,&3C,|
00000100  26 34 32 2c 26 39 39 2c  26 41 31 2c 26 41 31 2c  |&42,&99,&A1,&A1,|
00000110  26 39 39 2c 26 34 32 2c  26 33 43 0d 00 3d 13 20  |&99,&42,&3C..=. |
00000120  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 00  |.23,1,0;0;0;0;..|
00000130  3e 1e 20 ef 31 39 2c 30  2c 34 2c 30 2c 30 2c 30  |>. .19,0,4,0,0,0|
00000140  3a 53 24 3d c4 34 30 2c  22 20 22 29 0d 00 40 06  |:S$=.40," ")..@.|
00000150  20 db 0d 00 47 aa 20 57  24 3d 22 53 4f 49 52 50  | ...G. W$="SOIRP|
00000160  41 59 53 47 41 52 45 43  48 4f 55 4c 49 52 45 44  |AYSGARECHOULIRED|
00000170  49 52 45 56 4f 49 52 4a  4f 4c 49 56 45 52 54 48  |IREVOIRJOLIVERTH|
00000180  55 49 54 53 45 50 54 50  41 49 4e 44 41 4d 45 53  |UITSEPTPAINDAMES|
00000190  4f 55 53 47 52 4f 53 50  52 49 58 43 49 4e 51 50  |OUSGROSPRIXCINQP|
000001a0  49 45 44 42 4c 45 55 56  52 41 49 4c 41 49 54 50  |IEDBLEUVRAILAITP|
000001b0  55 49 53 42 49 45 4e 41  56 45 43 47 52 49 53 48  |UISBIENAVECGRISH|
000001c0  41 55 54 54 4f 49 54 4e  45 55 46 50 4c 41 54 42  |AUTTOITNEUFPLATB|
000001d0  52 41 53 4a 4f 55 52 50  4f 55 52 43 48 41 54 4d  |RASJOURPOURCHATM|
000001e0  41 49 53 43 49 45 4c 44  45 55 58 46 49 4c 53 54  |AISCIELDEUXFILST|
000001f0  52 4f 50 4c 4f 49 4e 44  41 4e 53 22 0d 00 49 e0  |ROPLOINDANS"..I.|
00000200  20 45 24 3d 22 37 65 76  65 6e 69 6e 67 37 63 6f  | E$="7evening7co|
00000210  75 6e 74 72 79 37 73 74  61 74 69 6f 6e 37 63 61  |untry7station7ca|
00000220  62 62 61 67 65 37 74 6f  20 72 65 61 64 36 74 6f  |bbage7to read6to|
00000230  20 73 61 79 36 74 6f 20  73 65 65 36 70 72 65 74  | say6to see6pret|
00000240  74 79 35 67 72 65 65 6e  35 65 69 67 68 74 35 73  |ty5green5eight5s|
00000250  65 76 65 6e 35 62 72 65  61 64 34 6c 61 64 79 35  |even5bread4lady5|
00000260  75 6e 64 65 72 33 66 61  74 35 70 72 69 63 65 34  |under3fat5price4|
00000270  66 69 76 65 34 66 6f 6f  74 34 62 6c 75 65 34 74  |five4foot4blue4t|
00000280  72 75 65 34 6d 69 6c 6b  34 74 68 65 6e 34 77 65  |rue4milk4then4we|
00000290  6c 6c 34 77 69 74 68 34  67 72 65 79 34 68 69 67  |ll4with4grey4hig|
000002a0  68 34 72 6f 6f 66 34 6e  69 6e 65 34 64 69 73 68  |h4roof4nine4dish|
000002b0  33 61 72 6d 33 64 61 79  33 66 6f 72 33 63 61 74  |3arm3day3for3cat|
000002c0  33 62 75 74 33 73 6b 79  33 74 77 6f 33 73 6f 6e  |3but3sky3two3son|
000002d0  33 74 6f 6f 33 66 61 72  32 69 6e 22 0d 00 4a 5d  |3too3far2in"..J]|
000002e0  20 fb 20 43 31 2b 31 32  38 3a fb 20 43 32 3a f1  | . C1+128:. C2:.|
000002f0  3a f1 53 24 3b 22 20 4a  65 75 78 20 64 65 20 6d  |:.S$;" Jeux de m|
00000300  6f 74 73 20 28 4d 69 63  72 6f 20 46 72 65 6e 63  |ots (Micro Frenc|
00000310  68 29 20 22 3b bd 28 32  32 35 29 3b 22 20 4c 43  |h) ";.(225);" LC|
00000320  4c 20 31 39 38 36 20 22  3b 53 24 3a fb 20 43 33  |L 1986 ";S$:. C3|
00000330  3a fb 20 31 32 38 2b 43  30 0d 00 4c 13 20 4e 4c  |:. 128+C0..L. NL|
00000340  3d 31 3a 54 4c 3d 4e 4c  3a 49 3d 31 0d 00 4d 8a  |=1:TL=NL:I=1..M.|
00000350  20 4e 4c 3d bb 28 c1 45  24 2c 54 4c 2c 31 29 29  | NL=.(.E$,TL,1))|
00000360  3a f1 8a 2d 28 49 3e 32  30 29 2a 33 36 2c 28 49  |:..-(I>20)*36,(I|
00000370  3e 32 30 29 2a 32 30 2b  49 2b 34 29 3b c1 45 24  |>20)*20+I+4);.E$|
00000380  2c 54 4c 2b 31 2c 4e 4c  29 3b 8a 2d 28 49 3e 32  |,TL+1,NL);.-(I>2|
00000390  30 29 2a 32 30 2b 31 30  2c 28 49 3e 32 30 29 2a  |0)*20+10,(I>20)*|
000003a0  32 30 2b 49 2b 34 29 3b  c1 57 24 2c 49 2a 34 2d  |20+I+4);.W$,I*4-|
000003b0  33 2c 34 29 3b 3a 54 4c  3d 54 4c 2b 4e 4c 2b 31  |3,4);:TL=TL+NL+1|
000003c0  3a e7 20 49 3c 34 30 20  8c 20 49 3d 49 2b 31 3a  |:. I<40 . I=I+1:|
000003d0  e5 20 8d 44 4d 40 0d 00  50 0e 20 50 25 28 30 29  |. .DM@..P. P%(0)|
000003e0  3d 32 34 30 0d 00 82 10  20 57 43 24 3d 22 22 3a  |=240.... WC$="":|
000003f0  43 52 3d 30 0d 00 8c 0f  20 e3 20 49 3d 31 20 b8  |CR=0.... . I=1 .|
00000400  20 31 30 0d 00 96 0f 20  e3 20 4a 3d 31 20 b8 20  | 10.... . J=1 . |
00000410  31 34 0d 00 a0 0f 20 4c  24 28 4a 2c 49 29 3d 22  |14.... L$(J,I)="|
00000420  22 0d 00 aa 0f 20 43 48  25 28 4a 2c 49 29 3d 30  |".... CH%(J,I)=0|
00000430  0d 00 b4 08 20 ed 20 4a  0d 00 be 08 20 ed 20 49  |.... . J.... . I|
00000440  0d 00 c8 0f 20 e3 20 49  3d 31 20 b8 20 32 30 0d  |.... . I=1 . 20.|
00000450  00 d2 0c 20 44 3d b3 28  33 29 20 0d 00 dc 1b 20  |... D=.(3) .... |
00000460  52 3d b3 28 36 29 3a e7  20 44 3d 32 20 8c 20 52  |R=.(6):. D=2 . R|
00000470  3d b3 28 31 30 29 0d 00  e6 1c 20 43 3d b3 28 31  |=.(10).... C=.(1|
00000480  30 29 3a e7 20 44 3d 31  20 8c 20 43 3d b3 28 31  |0):. D=1 . C=.(1|
00000490  34 29 0d 00 f0 1b 20 49  44 3d 34 2a 28 49 2b 28  |4).... ID=4*(I+(|
000004a0  b3 28 32 29 2d 31 29 2a  32 30 29 2d 33 0d 00 fa  |.(2)-1)*20)-3...|
000004b0  32 20 f4 20 49 46 20 49  44 3c 3e 50 25 28 51 29  |2 . IF ID<>P%(Q)|
000004c0  20 41 4e 44 20 51 3c 3d  49 2d 31 20 54 48 45 4e  | AND Q<=I-1 THEN|
000004d0  20 51 3d 51 2b 31 3a 47  4f 54 4f 20 32 35 30 0d  | Q=Q+1:GOTO 250.|
000004e0  01 0e 0d 20 50 25 28 49  29 3d 49 44 0d 01 18 15  |... P%(I)=ID....|
000004f0  20 57 44 24 3d c1 57 24  2c 49 44 2c 34 29 20 20  | WD$=.W$,ID,4)  |
00000500  20 0d 01 22 7f 20 e7 20  44 3d 31 20 80 20 4c 24  | ..". . D=1 . L$|
00000510  28 43 2c 52 29 3d 22 22  20 80 20 4c 24 28 43 2c  |(C,R)="" . L$(C,|
00000520  52 2b 31 29 3d 22 22 20  80 20 4c 24 28 43 2c 52  |R+1)="" . L$(C,R|
00000530  2b 32 29 3d 22 22 20 80  20 4c 24 28 43 2c 52 2b  |+2)="" . L$(C,R+|
00000540  33 29 3d 22 22 20 8c 20  e3 20 4b 3d 30 20 b8 20  |3)="" . . K=0 . |
00000550  33 3a 4c 24 28 43 2c 52  2b 4b 29 3d c1 57 44 24  |3:L$(C,R+K)=.WD$|
00000560  2c 4b 2b 31 2c 31 29 3a  43 48 25 28 43 2c 52 2b  |,K+1,1):CH%(C,R+|
00000570  4b 29 3d 49 3a ed 20 4b  3a e5 20 8d 44 4a 41 20  |K)=I:. K:. .DJA |
00000580  0d 01 2c 7f 20 e7 20 44  3d 32 20 80 20 4c 24 28  |..,. . D=2 . L$(|
00000590  43 2c 52 29 3d 22 22 20  80 20 4c 24 28 43 2b 31  |C,R)="" . L$(C+1|
000005a0  2c 52 29 3d 22 22 20 80  20 4c 24 28 43 2b 32 2c  |,R)="" . L$(C+2,|
000005b0  52 29 3d 22 22 20 80 20  4c 24 28 43 2b 33 2c 52  |R)="" . L$(C+3,R|
000005c0  29 3d 22 22 20 8c 20 e3  20 4b 3d 30 20 b8 20 33  |)="" . . K=0 . 3|
000005d0  3a 4c 24 28 43 2b 4b 2c  52 29 3d c1 57 44 24 2c  |:L$(C+K,R)=.WD$,|
000005e0  4b 2b 31 2c 31 29 3a 43  48 25 28 43 2b 4b 2c 52  |K+1,1):CH%(C+K,R|
000005f0  29 3d 49 3a ed 20 4b 3a  e5 20 8d 44 4a 41 20 0d  |)=I:. K:. .DJA .|
00000600  01 36 89 20 e7 20 44 3d  33 20 80 20 4c 24 28 43  |.6. . D=3 . L$(C|
00000610  2c 52 29 3d 22 22 20 80  20 4c 24 28 43 2b 31 2c  |,R)="" . L$(C+1,|
00000620  52 2b 31 29 3d 22 22 20  80 20 4c 24 28 43 2b 32  |R+1)="" . L$(C+2|
00000630  2c 52 2b 32 29 3d 22 22  20 80 20 4c 24 28 43 2b  |,R+2)="" . L$(C+|
00000640  33 2c 52 2b 33 29 3d 22  22 20 8c 20 e3 20 4b 3d  |3,R+3)="" . . K=|
00000650  30 20 b8 20 33 3a 4c 24  28 43 2b 4b 2c 52 2b 4b  |0 . 3:L$(C+K,R+K|
00000660  29 3d c1 57 44 24 2c 4b  2b 31 2c 31 29 3a 43 48  |)=.WD$,K+1,1):CH|
00000670  25 28 43 2b 4b 2c 52 2b  4b 29 3d 49 3a ed 20 4b  |%(C+K,R+K)=I:. K|
00000680  3a e5 20 8d 44 4a 41 20  0d 01 40 0b 20 e5 20 8d  |:. .DJA ..@. . .|
00000690  64 52 40 0d 01 4a 10 20  57 43 24 3d 57 43 24 2b  |dR@..J. WC$=WC$+|
000006a0  57 44 24 0d 01 54 0a 20  ed 20 49 20 20 0d 01 56  |WD$..T. . I  ..V|
000006b0  43 20 fb 20 43 33 3a f1  20 8a 30 2c 32 39 29 3b  |C . C3:. .0,29);|
000006c0  22 50 72 65 73 73 65 7a  20 27 52 65 74 75 72 6e  |"Pressez 'Return|
000006d0  27 20 70 6f 75 72 20 63  6f 6e 74 69 6e 75 65 72  |' pour continuer|
000006e0  20 20 20 20 20 20 20 20  22 3b 3a e8 20 52 42 24  |        ";:. RB$|
000006f0  0d 01 5e 25 20 e3 20 49  3d 31 20 b8 20 32 30 3a  |..^% . I=1 . 20:|
00000700  f1 20 8a 31 30 2c 49 2b  34 29 3b c4 32 35 2c 22  |. .10,I+4);.25,"|
00000710  20 22 29 3a ed 0d 01 72  0e 20 52 44 3d 33 3a fb  | "):...r. RD=3:.|
00000720  20 43 32 0d 01 7c 0f 20  e3 20 49 3d 31 20 b8 20  | C2..|. . I=1 . |
00000730  31 30 0d 01 86 0f 20 e3  20 4a 3d 31 20 b8 20 31  |10.... . J=1 . 1|
00000740  34 0d 01 90 3d 20 e7 20  4c 24 28 4a 2c 49 29 3d  |4...= . L$(J,I)=|
00000750  22 22 20 8c 20 f1 20 8a  32 2a 4a 2b 36 2c 49 2a  |"" . . .2*J+6,I*|
00000760  32 2b 52 44 29 3b bd 28  36 34 2b b3 28 32 36 29  |2+RD);.(64+.(26)|
00000770  29 3b bd 28 39 29 3b 3a  e5 20 8d 74 64 41 0d 01  |);.(9);:. .tdA..|
00000780  9a 23 20 f1 20 8a 32 2a  4a 2b 36 2c 49 2a 32 2b  |.# . .2*J+6,I*2+|
00000790  52 44 29 3b 4c 24 28 4a  2c 49 29 3b bd 28 39 29  |RD);L$(J,I);.(9)|
000007a0  3b 0d 01 a4 08 20 ed 20  4a 0d 01 ae 08 20 ed 20  |;.... . J.... . |
000007b0  49 0d 01 d6 12 20 20 e3  20 4e 3d 31 20 b8 20 32  |I....  . N=1 . 2|
000007c0  30 20 20 0d 01 e0 65 20  fb 20 43 33 3a f1 20 8a  |0  ...e . C3:. .|
000007d0  30 2c 32 39 29 3b 22 43  68 65 72 63 68 65 7a 20  |0,29);"Cherchez |
000007e0  6c 65 73 20 6d 6f 74 73  20 61 76 65 63 20 71 75  |les mots avec qu|
000007f0  61 74 72 65 20 6c 65 74  74 72 65 73 20 20 20 20  |atre lettres    |
00000800  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000820  20 20 20 20 20 20 22 3b  0d 01 ea 09 20 ef 20 31  |      ";.... . 1|
00000830  31 0d 01 f4 0f 20 e8 20  4a 24 3a 49 24 3d 22 22  |1.... . J$:I$=""|
00000840  0d 01 f6 12 20 e3 20 4a  3d 30 20 b8 20 a9 28 4a  |.... . J=0 . .(J|
00000850  24 29 0d 01 f8 13 20 e7  20 4a 3d 30 20 8c 20 e5  |$).... . J=0 . .|
00000860  20 8d 64 7c 41 0d 01 fa  20 20 49 24 3d 49 24 2b  | .d|A...  I$=I$+|
00000870  bd 28 97 28 c1 4a 24 2c  4a 2c 31 29 29 20 20 80  |.(.(.J$,J,1))  .|
00000880  20 26 44 46 29 0d 01 fc  06 20 ed 0d 01 fe 16 20  | &DF).... ..... |
00000890  e7 20 49 24 3d 22 45 4e  43 4f 52 45 22 20 8c 20  |. I$="ENCORE" . |
000008a0  f9 0d 02 08 14 20 e3 20  4d 3d 31 20 b8 20 38 30  |..... . M=1 . 80|
000008b0  20 88 20 34 20 0d 02 12  20 20 20 e7 20 49 24 20  | . 4 ...   . I$ |
000008c0  3c 3e 20 c1 57 43 24 2c  4d 2c 34 29 20 8c 20 e5  |<> .WC$,M,4) . .|
000008d0  20 8d 44 62 42 0d 02 1c  2b 20 f1 20 8a 38 2c 33  | .DbB...+ . .8,3|
000008e0  30 29 3b bd 28 32 32 34  29 3b 3a 43 52 3d 43 52  |0);.(224);:CR=CR|
000008f0  2b 31 3a f1 20 8a 33 35  2c 33 30 29 3b 43 52 3b  |+1:. .35,30);CR;|
00000900  0d 02 1e 09 20 53 57 3d  30 0d 02 26 0f 20 e3 20  |.... SW=0..&. . |
00000910  49 3d 31 20 b8 20 31 30  0d 02 30 0f 20 e3 20 4a  |I=1 . 10..0. . J|
00000920  3d 31 20 b8 20 31 34 0d  02 32 19 20 e7 20 53 57  |=1 . 14..2. . SW|
00000930  3d 30 20 8c 20 fb 20 43  31 20 8b 20 fb 20 43 32  |=0 . . C1 . . C2|
00000940  0d 02 3a 31 20 e7 20 43  48 25 28 4a 2c 49 29 3d  |..:1 . CH%(J,I)=|
00000950  28 4d 2b 33 29 2f 34 20  8c 20 f1 20 8a 32 2a 4a  |(M+3)/4 . . .2*J|
00000960  2b 36 2c 49 2a 32 2b 52  44 2b 31 29 3b 22 2d 22  |+6,I*2+RD+1);"-"|
00000970  3b 0d 02 44 08 20 ed 20  4a 0d 02 4e 08 20 ed 20  |;..D. . J..N. . |
00000980  49 0d 02 50 23 20 e7 20  53 57 3d 30 20 8c 20 52  |I..P# . SW=0 . R|
00000990  42 24 3d bf 28 35 30 29  3a 53 57 3d 31 3a e5 20  |B$=.(50):SW=1:. |
000009a0  8d 54 66 42 0d 02 58 0b  20 e5 20 8d 44 76 42 0d  |.TfB..X. . .DvB.|
000009b0  02 62 08 20 ed 20 4d 0d  02 6c 27 20 f1 20 8a 38  |.b. . M..l' . .8|
000009c0  2c 33 30 29 3b 22 20 20  58 22 3b 3a 52 42 24 3d  |,30);"  X";:RB$=|
000009d0  bf 28 35 30 30 29 3a e5  20 8d 64 60 41 20 0d 02  |.(500):. .d`A ..|
000009e0  76 08 20 ed 20 4e 0d 02  80 06 20 f9 0d ff        |v. . N.... ...|
000009ee
F/WORDS.m0
F/WORDS.m1
F/WORDS.m2
F/WORDS.m4
F/WORDS.m5

© Dominic Ford 2021–2024.

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