� LEAR
� By David Johnson-Davies
� For BBC B/B+/M/C/E
( � (c) Acorn User  March 1987
2:
<	L=470
FP=L : � "A ";
P�rnd
ZW=R : �rnd
dX=R : �rnd : Y=R
n� "from ";
x�rnd : Z=R : �
�� "Once "; : �rnd
�	G$=C$
��rnd : R=Z
�
�word : �
�R=Y : �word
�H$=C$ : � G$;"so ";
��rnd : T=R
�� '"That ";H$;
��rnd : R=T
�
�word : �
�� "This ";
�
P=L : R=W
��word : R=X

�word : R=Y

	�word

� "of ";

"R=Z : �word

,	� "."

6�

@:

J
� �rnd

T
R=� � � 5

^	�word

h�

r:

|� �word

�� P

�
� N=0 � R

�� C$

��

�
C$=C$+" "

�� C$; : P=P+10

��

�:

�3� sordid,graceful,wily,vicious,really,sparkling

�%� green,young,vile,bland,old,wild

�6� duchess,grocer,glutton,flautist,laundress,sailor

�,� Wembley,Spain,Chad,Speke,Slough,France

�<� wanted,followed,counted,demolished,collected,swallowed
=� some stamps,a stoat,a nude,some cakes,a frog,some mould
R� and felt trembly,on a train,and went mad,twice a week,with a cow,in a trance
� she,he,she,he,she,he
&#� quick,slow,few,hard,late,long
0=� noticed,followed,asked for,looked for,wanted,longed for
:7� a brick,some dough,a pew,some lard,a plate,a song
�

00000000  0d 00 0a 0a f4 20 4c 45  41 52 0d 00 14 1d f4 20  |..... LEAR..... |
00000010  42 79 20 44 61 76 69 64  20 4a 6f 68 6e 73 6f 6e  |By David Johnson|
00000020  2d 44 61 76 69 65 73 0d  00 1e 18 f4 20 46 6f 72  |-Davies..... For|
00000030  20 42 42 43 20 42 2f 42  2b 2f 4d 2f 43 2f 45 0d  | BBC B/B+/M/C/E.|
00000040  00 28 20 f4 20 28 63 29  20 41 63 6f 72 6e 20 55  |.( . (c) Acorn U|
00000050  73 65 72 20 20 4d 61 72  63 68 20 31 39 38 37 0d  |ser  March 1987.|
00000060  00 32 05 3a 0d 00 3c 09  4c 3d 34 37 30 0d 00 46  |.2.:..<.L=470..F|
00000070  11 50 3d 4c 20 3a 20 f1  20 22 41 20 22 3b 0d 00  |.P=L : . "A ";..|
00000080  50 08 f2 72 6e 64 0d 00  5a 0e 57 3d 52 20 3a 20  |P..rnd..Z.W=R : |
00000090  f2 72 6e 64 0d 00 64 14  58 3d 52 20 3a 20 f2 72  |.rnd..d.X=R : .r|
000000a0  6e 64 20 3a 20 59 3d 52  0d 00 6e 0e f1 20 22 66  |nd : Y=R..n.. "f|
000000b0  72 6f 6d 20 22 3b 0d 00  78 12 f2 72 6e 64 20 3a  |rom ";..x..rnd :|
000000c0  20 5a 3d 52 20 3a 20 f1  0d 00 82 15 f1 20 22 4f  | Z=R : ...... "O|
000000d0  6e 63 65 20 22 3b 20 3a  20 f2 72 6e 64 0d 00 8c  |nce "; : .rnd...|
000000e0  09 47 24 3d 43 24 0d 00  96 0e f2 72 6e 64 20 3a  |.G$=C$.....rnd :|
000000f0  20 52 3d 5a 0d 00 a0 0d  f2 77 6f 72 64 20 3a 20  | R=Z.....word : |
00000100  f1 0d 00 aa 0f 52 3d 59  20 3a 20 f2 77 6f 72 64  |.....R=Y : .word|
00000110  0d 00 b4 17 48 24 3d 43  24 20 3a 20 f1 20 47 24  |....H$=C$ : . G$|
00000120  3b 22 73 6f 20 22 3b 0d  00 be 0e f2 72 6e 64 20  |;"so ";.....rnd |
00000130  3a 20 54 3d 52 0d 00 c8  12 f1 20 27 22 54 68 61  |: T=R..... '"Tha|
00000140  74 20 22 3b 48 24 3b 0d  00 d2 0e f2 72 6e 64 20  |t ";H$;.....rnd |
00000150  3a 20 52 3d 54 0d 00 dc  0d f2 77 6f 72 64 20 3a  |: R=T.....word :|
00000160  20 f1 0d 00 e6 0e f1 20  22 54 68 69 73 20 22 3b  | ...... "This ";|
00000170  0d 00 f0 0d 50 3d 4c 20  3a 20 52 3d 57 0d 00 fa  |....P=L : R=W...|
00000180  0f f2 77 6f 72 64 20 3a  20 52 3d 58 0d 01 04 0f  |..word : R=X....|
00000190  f2 77 6f 72 64 20 3a 20  52 3d 59 0d 01 0e 09 f2  |.word : R=Y.....|
000001a0  77 6f 72 64 0d 01 18 0c  f1 20 22 6f 66 20 22 3b  |word..... "of ";|
000001b0  0d 01 22 0f 52 3d 5a 20  3a 20 f2 77 6f 72 64 0d  |..".R=Z : .word.|
000001c0  01 2c 09 f1 20 22 2e 22  0d 01 36 05 e0 0d 01 40  |.,.. "."..6....@|
000001d0  05 3a 0d 01 4a 0a dd 20  f2 72 6e 64 0d 01 54 0d  |.:..J.. .rnd..T.|
000001e0  52 3d 94 20 b3 20 83 20  35 0d 01 5e 09 f2 77 6f  |R=. . . 5..^..wo|
000001f0  72 64 0d 01 68 05 e1 0d  01 72 05 3a 0d 01 7c 0b  |rd..h....r.:..|.|
00000200  dd 20 f2 77 6f 72 64 0d  01 86 07 f7 20 50 0d 01  |. .word..... P..|
00000210  90 0d e3 20 4e 3d 30 20  b8 20 52 0d 01 9a 08 f3  |... N=0 . R.....|
00000220  20 43 24 0d 01 a4 05 ed  0d 01 ae 0d 43 24 3d 43  | C$.........C$=C|
00000230  24 2b 22 20 22 0d 01 b8  12 f1 20 43 24 3b 20 3a  |$+" "..... C$; :|
00000240  20 50 3d 50 2b 31 30 0d  01 c2 05 e1 0d 01 cc 05  | P=P+10.........|
00000250  3a 0d 01 d6 33 dc 20 73  6f 72 64 69 64 2c 67 72  |:...3. sordid,gr|
00000260  61 63 65 66 75 6c 2c 77  69 6c 79 2c 76 69 63 69  |aceful,wily,vici|
00000270  6f 75 73 2c 72 65 61 6c  6c 79 2c 73 70 61 72 6b  |ous,really,spark|
00000280  6c 69 6e 67 0d 01 e0 25  dc 20 67 72 65 65 6e 2c  |ling...%. green,|
00000290  79 6f 75 6e 67 2c 76 69  6c 65 2c 62 6c 61 6e 64  |young,vile,bland|
000002a0  2c 6f 6c 64 2c 77 69 6c  64 0d 01 ea 36 dc 20 64  |,old,wild...6. d|
000002b0  75 63 68 65 73 73 2c 67  72 6f 63 65 72 2c 67 6c  |uchess,grocer,gl|
000002c0  75 74 74 6f 6e 2c 66 6c  61 75 74 69 73 74 2c 6c  |utton,flautist,l|
000002d0  61 75 6e 64 72 65 73 73  2c 73 61 69 6c 6f 72 0d  |aundress,sailor.|
000002e0  01 f4 2c dc 20 57 65 6d  62 6c 65 79 2c 53 70 61  |..,. Wembley,Spa|
000002f0  69 6e 2c 43 68 61 64 2c  53 70 65 6b 65 2c 53 6c  |in,Chad,Speke,Sl|
00000300  6f 75 67 68 2c 46 72 61  6e 63 65 0d 01 fe 3c dc  |ough,France...<.|
00000310  20 77 61 6e 74 65 64 2c  66 6f 6c 6c 6f 77 65 64  | wanted,followed|
00000320  2c 63 6f 75 6e 74 65 64  2c 64 65 6d 6f 6c 69 73  |,counted,demolis|
00000330  68 65 64 2c 63 6f 6c 6c  65 63 74 65 64 2c 73 77  |hed,collected,sw|
00000340  61 6c 6c 6f 77 65 64 0d  02 08 3d dc 20 73 6f 6d  |allowed...=. som|
00000350  65 20 73 74 61 6d 70 73  2c 61 20 73 74 6f 61 74  |e stamps,a stoat|
00000360  2c 61 20 6e 75 64 65 2c  73 6f 6d 65 20 63 61 6b  |,a nude,some cak|
00000370  65 73 2c 61 20 66 72 6f  67 2c 73 6f 6d 65 20 6d  |es,a frog,some m|
00000380  6f 75 6c 64 0d 02 12 52  dc 20 61 6e 64 20 66 65  |ould...R. and fe|
00000390  6c 74 20 74 72 65 6d 62  6c 79 2c 6f 6e 20 61 20  |lt trembly,on a |
000003a0  74 72 61 69 6e 2c 61 6e  64 20 77 65 6e 74 20 6d  |train,and went m|
000003b0  61 64 2c 74 77 69 63 65  20 61 20 77 65 65 6b 2c  |ad,twice a week,|
000003c0  77 69 74 68 20 61 20 63  6f 77 2c 69 6e 20 61 20  |with a cow,in a |
000003d0  74 72 61 6e 63 65 0d 02  1c 1a dc 20 73 68 65 2c  |trance..... she,|
000003e0  68 65 2c 73 68 65 2c 68  65 2c 73 68 65 2c 68 65  |he,she,he,she,he|
000003f0  0d 02 26 23 dc 20 71 75  69 63 6b 2c 73 6c 6f 77  |..&#. quick,slow|
00000400  2c 66 65 77 2c 68 61 72  64 2c 6c 61 74 65 2c 6c  |,few,hard,late,l|
00000410  6f 6e 67 0d 02 30 3d dc  20 6e 6f 74 69 63 65 64  |ong..0=. noticed|
00000420  2c 66 6f 6c 6c 6f 77 65  64 2c 61 73 6b 65 64 20  |,followed,asked |
00000430  66 6f 72 2c 6c 6f 6f 6b  65 64 20 66 6f 72 2c 77  |for,looked for,w|
00000440  61 6e 74 65 64 2c 6c 6f  6e 67 65 64 20 66 6f 72  |anted,longed for|
00000450  0d 02 3a 37 dc 20 61 20  62 72 69 63 6b 2c 73 6f  |..:7. a brick,so|
00000460  6d 65 20 64 6f 75 67 68  2c 61 20 70 65 77 2c 73  |me dough,a pew,s|
00000470  6f 6d 65 20 6c 61 72 64  2c 61 20 70 6c 61 74 65  |ome lard,a plate|
00000480  2c 61 20 73 6f 6e 67 0d  ff                       |,a song..|
00000489