�: SULTAN
 �: (c) BroadOak
 �: 14.9.88
#  � For BBC Master and BBC'B'
( :
2 � 0
< �_LOGO
F � 7
P% �12,23;8202;0;0;0; :� CURSOR OFF
Z tim=�+40:�:� �>tim
d �TITLE
n% �11,2);�(134);"THE RICH SULTAN"
x �'
�� F$="A rich Sultan makes the following offer to his subjects: if one of them brings him a bag of Rupees, he will exchange it for a bag containing exactly twice as many."
�
 L%=39
� �WORD_WRAP(F$,L%)
� �'
�� F$="The sole proviso he made was that the second sum can be obtained from the first by moving the last digit to the begining of the number."
�
 L%=39
� �WORD_WRAP(F$,L%)
� �_CONTINUE
� �''
ܸ F$="The first subject comes with a bag of 37 Rupees, saying that he would be happy to accept 73 in return, foregoing the extra Rupee, but the Sultan says 'No, it must be exact !'"
�
 L%=39
� �WORD_WRAP(F$,L%)
� �'

2 F$="How much does the Sultan stand to lose ?"


 L%=40

 �WORD_WRAP(F$,L%)

"
 �_END

, � �ERROR

6% �11,1);�(134);"THE RICH SULTAN"

@: �0,10);�(134);"The loop will end when bag2 = 2xbag1"

J) �9,12);�(130);"Press ESCAPE to end"

T NO1%=9

^ �

h NO1%=NO1%+1

r NO1$=�(NO1%)

| �12,3);�(131);"Rupees"

� �0,5)"Bag No. 1    ";NO1%

� L$=�NO1$,�(NO1$)-1)

� R$=�NO1$,1)

� NO2$=R$+L$

� �0,7)"Bag No. 2    ";NO2$

� tim=�+30:�:� �>tim

� � �(NO2$)=2*NO1%

� :

� ��ERROR

� �7

�" �23;29194;0;0;0; :� CURSOR ON

� � �=27 :�10,12);" "; :�

�- �0,17);�(130);"Our Sultan was no fool."
- �0,18);�(130);"He was rich, remember ?"
" �1,19);"He risked nothing !"
9 �0,20);�(131);"The number of rupees in the 2nd bag"
&< �0,21);�(131);"can never equal twice that in the 1st."
07 �0,22);�(131);"Can you see why ?" :�0,23);" " :�
: �
D :
N ��_LOGO
X �12,23;8202;0;0;0;
b �19,128,135;0;
l �19,1,2;0;
v �4,160,128
� �5,160,896
� �5,1120,896
� �5,1120,128
� �5,160,128
� �4,162,132
� �5,162,892
� �5,1118,892
� �5,1118,132
� �5,162,132
� �0,2,0
� �5,164,892
� �4,1116,892
� �5,1116,132
 �0,0,4
 �5,164,136
 �5,164,888
  �5,1116,888
* �5,1116,136
4 �0,-2,0
> �5,1114,888
H �4,168,888
R �5,168,136
\ �29,600;700;
f �4,0,0
p �
z � X%,Y%
�
 �4,X%,Y%
� I=�(5)
� � X%,Y%
� �85,X%,Y%
� I=�(5)
�	 P%=0
� � P%=1 � 24
� �4,0,0
� � X%,Y%
� �85,X%,Y%
� I=�(5)
� � X%,Y%
� �85,X%,Y%
 I=�(5)
 �
 �4,0,0
$ � X%,Y%
. �85,X%,Y%
8 I=�(5)
B�4,-60,-175
LP%=0
V � �TrE
`� P%=1�9
j� X%,Y%
t�5,X%,Y%
~�
��4,150,-198
�P%=0
�
� �T|E
��P%=1�8
�� X%,Y%
�
� 5,X%,Y%
��
� �4,4,-150
� �5,24,-175
� �5,50,-212
� �5,72,-168
� �4,-94,-400
 �5,236,-400

 �0,-4,0
 �5,-94,-400
� �0,125,25,112,50,100,75,87,100,90,125,100,150,110,175,100,200,94,225,75,250,25,250,0,250,-25,237,-50,248,-75,272,-100,284,-125,276,-150,220,-175,200,-188,175,-192,150,-198,125,-200,100,-205,75,-175,50,-182,25,-164,0,-150
(� �-25,-156,-50,-175,-75,-216,-100,-226,-125,-226,-150,-218,-175,-188,-180,-150,-184,-125,-186,-100,-180,-75,-170,-50,-160,-25,-140,0,-140,25,-150,50,-136,75,-125,80,-100,90,-75,112,-50,124,-25,128,0,125
2M �-20,-200,0,-225,12,-250,24,-275,24,-300,24,-325,24,-350,24,-375,18,-400
<M �120,-225,110,-250,104,-275,104,-300,104,-325,104,-350,116,-375,120,-400
F
 I=�(100)
P �34,24);"B r o a d O a k"
Z
 I=�(300)
d �30
n �
x :
� ��TITLE
� � Title routine, 3 seconds
�tim = �+300
�G� �11,12);�131;�141;"S U L T A N":�11,13);�131;�141;"S U L T A N"
�#�10,16);�134;"by  D.J. Aldous"
�� �>tim
��
� �
� :
� � WORD_WRAP
�X � Ensures that text is not      printed with words split from  one line to the next
�8 � In main program, define text to be printed as  F$
�< � then define maximum number    of words per line as L%
` � e.g. F$="Now is definitely thetime for all good men to come to the aidof the party":L%=40
% � Then call PROCWORD_WRAP(F$,L%)
H � ** Remember to Renumber after    merging with *EXEC"WORD_WRAP" **
" :
, ��WORD_WRAP(P$,L%)
6 � word$, I, done
@
 done = �
J �
T I = �P$," ")
^ word$ = �P$,I)
h P$= �P$,� P$-I)
r � P$= "" � done = �
|" � I = 0 � word$ =P$: done = �
� � � word$>L%-� � �
� � word$ ;
� � done : �'
� �
� :
� 
� ��_CONTINUE
� �
�- �6,23);�(130);"Press SPACE to continue"
� � �=" "
��
��
� :
 ��_END
 �
' �11,20);�(130);"Press 'E' to END"
&/ �6,21);�(130);"and calculate it yourself"
04 �3,23);�(130);"Press SPACE to find the answer"
:	 G$=�
D � G$=" " � G$="E"
N" � G$="E" :�23;29194;0;0;0; :�
X �
b �
�

00000000  0d 00 0a 0e 20 f4 3a 20  53 55 4c 54 41 4e 0d 00  |.... .: SULTAN..|
00000010  14 14 20 f4 3a 20 28 63  29 20 42 72 6f 61 64 4f  |.. .: (c) BroadO|
00000020  61 6b 0d 00 1e 0f 20 f4  3a 20 31 34 2e 39 2e 38  |ak.... .: 14.9.8|
00000030  38 0d 00 23 20 20 f4 20  46 6f 72 20 42 42 43 20  |8..#  . For BBC |
00000040  4d 61 73 74 65 72 20 61  6e 64 20 42 42 43 27 42  |Master and BBC'B|
00000050  27 0d 00 28 06 20 3a 0d  00 32 08 20 eb 20 30 0d  |'..(. :..2. . 0.|
00000060  00 3c 0b 20 f2 5f 4c 4f  47 4f 0d 00 46 08 20 eb  |.<. ._LOGO..F. .|
00000070  20 37 0d 00 50 25 20 ef  31 32 2c 32 33 3b 38 32  | 7..P% .12,23;82|
00000080  30 32 3b 30 3b 30 3b 30  3b 20 3a f4 20 43 55 52  |02;0;0;0; :. CUR|
00000090  53 4f 52 20 4f 46 46 0d  00 5a 17 20 74 69 6d 3d  |SOR OFF..Z. tim=|
000000a0  91 2b 34 30 3a f5 3a fd  20 91 3e 74 69 6d 0d 00  |.+40:.:. .>tim..|
000000b0  64 0b 20 f2 54 49 54 4c  45 0d 00 6e 25 20 f1 8a  |d. .TITLE..n% ..|
000000c0  31 31 2c 32 29 3b bd 28  31 33 34 29 3b 22 54 48  |11,2);.(134);"TH|
000000d0  45 20 52 49 43 48 20 53  55 4c 54 41 4e 22 0d 00  |E RICH SULTAN"..|
000000e0  78 07 20 f1 27 0d 00 82  ad 20 46 24 3d 22 41 20  |x. .'.... F$="A |
000000f0  72 69 63 68 20 53 75 6c  74 61 6e 20 6d 61 6b 65  |rich Sultan make|
00000100  73 20 74 68 65 20 66 6f  6c 6c 6f 77 69 6e 67 20  |s the following |
00000110  6f 66 66 65 72 20 74 6f  20 68 69 73 20 73 75 62  |offer to his sub|
00000120  6a 65 63 74 73 3a 20 69  66 20 6f 6e 65 20 6f 66  |jects: if one of|
00000130  20 74 68 65 6d 20 62 72  69 6e 67 73 20 68 69 6d  | them brings him|
00000140  20 61 20 62 61 67 20 6f  66 20 52 75 70 65 65 73  | a bag of Rupees|
00000150  2c 20 68 65 20 77 69 6c  6c 20 65 78 63 68 61 6e  |, he will exchan|
00000160  67 65 20 69 74 20 66 6f  72 20 61 20 62 61 67 20  |ge it for a bag |
00000170  63 6f 6e 74 61 69 6e 69  6e 67 20 65 78 61 63 74  |containing exact|
00000180  6c 79 20 74 77 69 63 65  20 61 73 20 6d 61 6e 79  |ly twice as many|
00000190  2e 22 0d 00 8c 0a 20 4c  25 3d 33 39 0d 00 96 16  |.".... L%=39....|
000001a0  20 f2 57 4f 52 44 5f 57  52 41 50 28 46 24 2c 4c  | .WORD_WRAP(F$,L|
000001b0  25 29 0d 00 a0 07 20 f1  27 0d 00 aa 91 20 46 24  |%).... .'.... F$|
000001c0  3d 22 54 68 65 20 73 6f  6c 65 20 70 72 6f 76 69  |="The sole provi|
000001d0  73 6f 20 68 65 20 6d 61  64 65 20 77 61 73 20 74  |so he made was t|
000001e0  68 61 74 20 74 68 65 20  73 65 63 6f 6e 64 20 73  |hat the second s|
000001f0  75 6d 20 63 61 6e 20 62  65 20 6f 62 74 61 69 6e  |um can be obtain|
00000200  65 64 20 66 72 6f 6d 20  74 68 65 20 66 69 72 73  |ed from the firs|
00000210  74 20 62 79 20 6d 6f 76  69 6e 67 20 74 68 65 20  |t by moving the |
00000220  6c 61 73 74 20 64 69 67  69 74 20 74 6f 20 74 68  |last digit to th|
00000230  65 20 62 65 67 69 6e 69  6e 67 20 6f 66 20 74 68  |e begining of th|
00000240  65 20 6e 75 6d 62 65 72  2e 22 0d 00 b4 0a 20 4c  |e number.".... L|
00000250  25 3d 33 39 0d 00 be 16  20 f2 57 4f 52 44 5f 57  |%=39.... .WORD_W|
00000260  52 41 50 28 46 24 2c 4c  25 29 0d 00 c8 0f 20 f2  |RAP(F$,L%).... .|
00000270  5f 43 4f 4e 54 49 4e 55  45 0d 00 d2 08 20 f1 27  |_CONTINUE.... .'|
00000280  27 0d 00 dc b8 20 46 24  3d 22 54 68 65 20 66 69  |'.... F$="The fi|
00000290  72 73 74 20 73 75 62 6a  65 63 74 20 63 6f 6d 65  |rst subject come|
000002a0  73 20 77 69 74 68 20 61  20 62 61 67 20 6f 66 20  |s with a bag of |
000002b0  33 37 20 52 75 70 65 65  73 2c 20 73 61 79 69 6e  |37 Rupees, sayin|
000002c0  67 20 74 68 61 74 20 68  65 20 77 6f 75 6c 64 20  |g that he would |
000002d0  62 65 20 68 61 70 70 79  20 74 6f 20 61 63 63 65  |be happy to acce|
000002e0  70 74 20 37 33 20 69 6e  20 72 65 74 75 72 6e 2c  |pt 73 in return,|
000002f0  20 66 6f 72 65 67 6f 69  6e 67 20 74 68 65 20 65  | foregoing the e|
00000300  78 74 72 61 20 52 75 70  65 65 2c 20 62 75 74 20  |xtra Rupee, but |
00000310  74 68 65 20 53 75 6c 74  61 6e 20 73 61 79 73 20  |the Sultan says |
00000320  27 4e 6f 2c 20 69 74 20  6d 75 73 74 20 62 65 20  |'No, it must be |
00000330  65 78 61 63 74 20 21 27  22 0d 00 e6 0a 20 4c 25  |exact !'".... L%|
00000340  3d 33 39 0d 00 f0 16 20  f2 57 4f 52 44 5f 57 52  |=39.... .WORD_WR|
00000350  41 50 28 46 24 2c 4c 25  29 0d 00 fa 07 20 f1 27  |AP(F$,L%).... .'|
00000360  0d 01 04 32 20 46 24 3d  22 48 6f 77 20 6d 75 63  |...2 F$="How muc|
00000370  68 20 64 6f 65 73 20 74  68 65 20 53 75 6c 74 61  |h does the Sulta|
00000380  6e 20 73 74 61 6e 64 20  74 6f 20 6c 6f 73 65 20  |n stand to lose |
00000390  3f 22 0d 01 0e 0a 20 4c  25 3d 34 30 0d 01 18 16  |?".... L%=40....|
000003a0  20 f2 57 4f 52 44 5f 57  52 41 50 28 46 24 2c 4c  | .WORD_WRAP(F$,L|
000003b0  25 29 0d 01 22 0a 20 f2  5f 45 4e 44 0d 01 2c 0e  |%)..". ._END..,.|
000003c0  20 ee 85 20 f2 45 52 52  4f 52 0d 01 36 25 20 f1  | .. .ERROR..6% .|
000003d0  8a 31 31 2c 31 29 3b bd  28 31 33 34 29 3b 22 54  |.11,1);.(134);"T|
000003e0  48 45 20 52 49 43 48 20  53 55 4c 54 41 4e 22 0d  |HE RICH SULTAN".|
000003f0  01 40 3a 20 f1 8a 30 2c  31 30 29 3b bd 28 31 33  |.@: ..0,10);.(13|
00000400  34 29 3b 22 54 68 65 20  6c 6f 6f 70 20 77 69 6c  |4);"The loop wil|
00000410  6c 20 65 6e 64 20 77 68  65 6e 20 62 61 67 32 20  |l end when bag2 |
00000420  3d 20 32 78 62 61 67 31  22 0d 01 4a 29 20 f1 8a  |= 2xbag1"..J) ..|
00000430  39 2c 31 32 29 3b bd 28  31 33 30 29 3b 22 50 72  |9,12);.(130);"Pr|
00000440  65 73 73 20 45 53 43 41  50 45 20 74 6f 20 65 6e  |ess ESCAPE to en|
00000450  64 22 0d 01 54 0b 20 4e  4f 31 25 3d 39 0d 01 5e  |d"..T. NO1%=9..^|
00000460  06 20 f5 0d 01 68 10 20  4e 4f 31 25 3d 4e 4f 31  |. ...h. NO1%=NO1|
00000470  25 2b 31 0d 01 72 11 20  4e 4f 31 24 3d c3 28 4e  |%+1..r. NO1$=.(N|
00000480  4f 31 25 29 0d 01 7c 1c  20 f1 8a 31 32 2c 33 29  |O1%)..|. ..12,3)|
00000490  3b bd 28 31 33 31 29 3b  22 52 75 70 65 65 73 22  |;.(131);"Rupees"|
000004a0  0d 01 86 1f 20 f1 8a 30  2c 35 29 22 42 61 67 20  |.... ..0,5)"Bag |
000004b0  4e 6f 2e 20 31 20 20 20  20 22 3b 4e 4f 31 25 0d  |No. 1    ";NO1%.|
000004c0  01 90 18 20 4c 24 3d c0  4e 4f 31 24 2c a9 28 4e  |... L$=.NO1$,.(N|
000004d0  4f 31 24 29 2d 31 29 0d  01 9a 10 20 52 24 3d c2  |O1$)-1).... R$=.|
000004e0  4e 4f 31 24 2c 31 29 0d  01 a4 0f 20 4e 4f 32 24  |NO1$,1).... NO2$|
000004f0  3d 52 24 2b 4c 24 0d 01  ae 1f 20 f1 8a 30 2c 37  |=R$+L$.... ..0,7|
00000500  29 22 42 61 67 20 4e 6f  2e 20 32 20 20 20 20 22  |)"Bag No. 2    "|
00000510  3b 4e 4f 32 24 0d 01 b8  17 20 74 69 6d 3d 91 2b  |;NO2$.... tim=.+|
00000520  33 30 3a f5 3a fd 20 91  3e 74 69 6d 0d 01 c2 15  |30:.:. .>tim....|
00000530  20 fd 20 bb 28 4e 4f 32  24 29 3d 32 2a 4e 4f 31  | . .(NO2$)=2*NO1|
00000540  25 0d 01 cc 06 20 3a 0d  01 d6 0c 20 dd f2 45 52  |%.... :.... ..ER|
00000550  52 4f 52 0d 01 e0 07 20  ef 37 0d 01 ea 22 20 ef  |ROR.... .7..." .|
00000560  32 33 3b 32 39 31 39 34  3b 30 3b 30 3b 30 3b 20  |23;29194;0;0;0; |
00000570  3a f4 20 43 55 52 53 4f  52 20 4f 4e 0d 01 f4 1d  |:. CURSOR ON....|
00000580  20 e7 20 9f 3d 32 37 20  3a f1 8a 31 30 2c 31 32  | . .=27 :..10,12|
00000590  29 3b 22 20 22 3b 20 3a  f6 0d 01 fe 2d 20 f1 8a  |);" "; :....- ..|
000005a0  30 2c 31 37 29 3b bd 28  31 33 30 29 3b 22 4f 75  |0,17);.(130);"Ou|
000005b0  72 20 53 75 6c 74 61 6e  20 77 61 73 20 6e 6f 20  |r Sultan was no |
000005c0  66 6f 6f 6c 2e 22 0d 02  08 2d 20 f1 8a 30 2c 31  |fool."...- ..0,1|
000005d0  38 29 3b bd 28 31 33 30  29 3b 22 48 65 20 77 61  |8);.(130);"He wa|
000005e0  73 20 72 69 63 68 2c 20  72 65 6d 65 6d 62 65 72  |s rich, remember|
000005f0  20 3f 22 0d 02 12 22 20  f1 8a 31 2c 31 39 29 3b  | ?"..." ..1,19);|
00000600  22 48 65 20 72 69 73 6b  65 64 20 6e 6f 74 68 69  |"He risked nothi|
00000610  6e 67 20 21 22 0d 02 1c  39 20 f1 8a 30 2c 32 30  |ng !"...9 ..0,20|
00000620  29 3b bd 28 31 33 31 29  3b 22 54 68 65 20 6e 75  |);.(131);"The nu|
00000630  6d 62 65 72 20 6f 66 20  72 75 70 65 65 73 20 69  |mber of rupees i|
00000640  6e 20 74 68 65 20 32 6e  64 20 62 61 67 22 0d 02  |n the 2nd bag"..|
00000650  26 3c 20 f1 8a 30 2c 32  31 29 3b bd 28 31 33 31  |&< ..0,21);.(131|
00000660  29 3b 22 63 61 6e 20 6e  65 76 65 72 20 65 71 75  |);"can never equ|
00000670  61 6c 20 74 77 69 63 65  20 74 68 61 74 20 69 6e  |al twice that in|
00000680  20 74 68 65 20 31 73 74  2e 22 0d 02 30 37 20 f1  | the 1st."..07 .|
00000690  8a 30 2c 32 32 29 3b bd  28 31 33 31 29 3b 22 43  |.0,22);.(131);"C|
000006a0  61 6e 20 79 6f 75 20 73  65 65 20 77 68 79 20 3f  |an you see why ?|
000006b0  22 20 3a f1 8a 30 2c 32  33 29 3b 22 20 22 20 3a  |" :..0,23);" " :|
000006c0  e0 0d 02 3a 06 20 e1 0d  02 44 06 20 3a 0d 02 4e  |...:. ...D. :..N|
000006d0  0c 20 dd f2 5f 4c 4f 47  4f 0d 02 58 17 20 ef 31  |. .._LOGO..X. .1|
000006e0  32 2c 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |2,23;8202;0;0;0;|
000006f0  0d 02 62 13 20 ef 31 39  2c 31 32 38 2c 31 33 35  |..b. .19,128,135|
00000700  3b 30 3b 0d 02 6c 0f 20  ef 31 39 2c 31 2c 32 3b  |;0;..l. .19,1,2;|
00000710  30 3b 0d 02 76 0f 20 f0  34 2c 31 36 30 2c 31 32  |0;..v. .4,160,12|
00000720  38 0d 02 80 0f 20 f0 35  2c 31 36 30 2c 38 39 36  |8.... .5,160,896|
00000730  0d 02 8a 10 20 f0 35 2c  31 31 32 30 2c 38 39 36  |.... .5,1120,896|
00000740  0d 02 94 10 20 f0 35 2c  31 31 32 30 2c 31 32 38  |.... .5,1120,128|
00000750  0d 02 9e 0f 20 f0 35 2c  31 36 30 2c 31 32 38 0d  |.... .5,160,128.|
00000760  02 a8 0f 20 f0 34 2c 31  36 32 2c 31 33 32 0d 02  |... .4,162,132..|
00000770  b2 0f 20 f0 35 2c 31 36  32 2c 38 39 32 0d 02 bc  |.. .5,162,892...|
00000780  10 20 f0 35 2c 31 31 31  38 2c 38 39 32 0d 02 c6  |. .5,1118,892...|
00000790  10 20 f0 35 2c 31 31 31  38 2c 31 33 32 0d 02 d0  |. .5,1118,132...|
000007a0  0f 20 f0 35 2c 31 36 32  2c 31 33 32 0d 02 da 0b  |. .5,162,132....|
000007b0  20 f0 30 2c 32 2c 30 0d  02 e4 0f 20 f0 35 2c 31  | .0,2,0.... .5,1|
000007c0  36 34 2c 38 39 32 0d 02  ee 10 20 f0 34 2c 31 31  |64,892.... .4,11|
000007d0  31 36 2c 38 39 32 0d 02  f8 10 20 f0 35 2c 31 31  |16,892.... .5,11|
000007e0  31 36 2c 31 33 32 0d 03  02 0b 20 f0 30 2c 30 2c  |16,132.... .0,0,|
000007f0  34 0d 03 0c 0f 20 f0 35  2c 31 36 34 2c 31 33 36  |4.... .5,164,136|
00000800  0d 03 16 0f 20 f0 35 2c  31 36 34 2c 38 38 38 0d  |.... .5,164,888.|
00000810  03 20 10 20 f0 35 2c 31  31 31 36 2c 38 38 38 0d  |. . .5,1116,888.|
00000820  03 2a 10 20 f0 35 2c 31  31 31 36 2c 31 33 36 0d  |.*. .5,1116,136.|
00000830  03 34 0c 20 f0 30 2c 2d  32 2c 30 0d 03 3e 10 20  |.4. .0,-2,0..>. |
00000840  f0 35 2c 31 31 31 34 2c  38 38 38 0d 03 48 0f 20  |.5,1114,888..H. |
00000850  f0 34 2c 31 36 38 2c 38  38 38 0d 03 52 0f 20 f0  |.4,168,888..R. .|
00000860  35 2c 31 36 38 2c 31 33  36 0d 03 5c 11 20 ef 32  |5,168,136..\. .2|
00000870  39 2c 36 30 30 3b 37 30  30 3b 0d 03 66 0b 20 f0  |9,600;700;..f. .|
00000880  34 2c 30 2c 30 0d 03 70  06 20 f7 0d 03 7a 0c 20  |4,0,0..p. ...z. |
00000890  f3 20 58 25 2c 59 25 0d  03 84 0d 20 f0 34 2c 58  |. X%,Y%.... .4,X|
000008a0  25 2c 59 25 0d 03 8e 0b  20 49 3d a6 28 35 29 0d  |%,Y%.... I=.(5).|
000008b0  03 98 0c 20 f3 20 58 25  2c 59 25 0d 03 a2 0e 20  |... . X%,Y%.... |
000008c0  f0 38 35 2c 58 25 2c 59  25 0d 03 ac 0b 20 49 3d  |.85,X%,Y%.... I=|
000008d0  a6 28 35 29 0d 03 b6 09  20 50 25 3d 30 0d 03 c0  |.(5).... P%=0...|
000008e0  10 20 e3 20 50 25 3d 31  20 b8 20 32 34 0d 03 ca  |. . P%=1 . 24...|
000008f0  0b 20 f0 34 2c 30 2c 30  0d 03 d4 0c 20 f3 20 58  |. .4,0,0.... . X|
00000900  25 2c 59 25 0d 03 de 0e  20 f0 38 35 2c 58 25 2c  |%,Y%.... .85,X%,|
00000910  59 25 0d 03 e8 0b 20 49  3d a6 28 35 29 0d 03 f2  |Y%.... I=.(5)...|
00000920  0c 20 f3 20 58 25 2c 59  25 0d 03 fc 0e 20 f0 38  |. . X%,Y%.... .8|
00000930  35 2c 58 25 2c 59 25 0d  04 06 0b 20 49 3d a6 28  |5,X%,Y%.... I=.(|
00000940  35 29 0d 04 10 06 20 ed  0d 04 1a 0b 20 f0 34 2c  |5).... ..... .4,|
00000950  30 2c 30 0d 04 24 0c 20  f3 20 58 25 2c 59 25 0d  |0,0..$. . X%,Y%.|
00000960  04 2e 0e 20 f0 38 35 2c  58 25 2c 59 25 0d 04 38  |... .85,X%,Y%..8|
00000970  0b 20 49 3d a6 28 35 29  0d 04 42 0f f0 34 2c 2d  |. I=.(5)..B..4,-|
00000980  36 30 2c 2d 31 37 35 0d  04 4c 08 50 25 3d 30 0d  |60,-175..L.P%=0.|
00000990  04 56 0b 20 f7 20 8d 54  72 45 0d 04 60 0c e3 20  |.V. . .TrE..`.. |
000009a0  50 25 3d 31 b8 39 0d 04  6a 0b f3 20 58 25 2c 59  |P%=1.9..j.. X%,Y|
000009b0  25 0d 04 74 0c f0 35 2c  58 25 2c 59 25 0d 04 7e  |%..t..5,X%,Y%..~|
000009c0  05 ed 0d 04 88 0f f0 34  2c 31 35 30 2c 2d 31 39  |.......4,150,-19|
000009d0  38 0d 04 92 08 50 25 3d  30 0d 04 9c 0a f7 20 8d  |8....P%=0..... .|
000009e0  54 7c 45 0d 04 a6 0b e3  50 25 3d 31 b8 38 0d 04  |T|E.....P%=1.8..|
000009f0  b0 0b f3 20 58 25 2c 59  25 0d 04 ba 0d f0 20 35  |... X%,Y%..... 5|
00000a00  2c 58 25 2c 59 25 0d 04  c4 05 ed 0d 04 ce 0e 20  |,X%,Y%......... |
00000a10  f0 34 2c 34 2c 2d 31 35  30 0d 04 d8 0f 20 f0 35  |.4,4,-150.... .5|
00000a20  2c 32 34 2c 2d 31 37 35  0d 04 e2 0f 20 f0 35 2c  |,24,-175.... .5,|
00000a30  35 30 2c 2d 32 31 32 0d  04 ec 0f 20 f0 35 2c 37  |50,-212.... .5,7|
00000a40  32 2c 2d 31 36 38 0d 04  f6 10 20 f0 34 2c 2d 39  |2,-168.... .4,-9|
00000a50  34 2c 2d 34 30 30 0d 05  00 10 20 f0 35 2c 32 33  |4,-400.... .5,23|
00000a60  36 2c 2d 34 30 30 0d 05  0a 0c 20 f0 30 2c 2d 34  |6,-400.... .0,-4|
00000a70  2c 30 0d 05 14 10 20 f0  35 2c 2d 39 34 2c 2d 34  |,0.... .5,-94,-4|
00000a80  30 30 0d 05 1e e1 20 dc  30 2c 31 32 35 2c 32 35  |00.... .0,125,25|
00000a90  2c 31 31 32 2c 35 30 2c  31 30 30 2c 37 35 2c 38  |,112,50,100,75,8|
00000aa0  37 2c 31 30 30 2c 39 30  2c 31 32 35 2c 31 30 30  |7,100,90,125,100|
00000ab0  2c 31 35 30 2c 31 31 30  2c 31 37 35 2c 31 30 30  |,150,110,175,100|
00000ac0  2c 32 30 30 2c 39 34 2c  32 32 35 2c 37 35 2c 32  |,200,94,225,75,2|
00000ad0  35 30 2c 32 35 2c 32 35  30 2c 30 2c 32 35 30 2c  |50,25,250,0,250,|
00000ae0  2d 32 35 2c 32 33 37 2c  2d 35 30 2c 32 34 38 2c  |-25,237,-50,248,|
00000af0  2d 37 35 2c 32 37 32 2c  2d 31 30 30 2c 32 38 34  |-75,272,-100,284|
00000b00  2c 2d 31 32 35 2c 32 37  36 2c 2d 31 35 30 2c 32  |,-125,276,-150,2|
00000b10  32 30 2c 2d 31 37 35 2c  32 30 30 2c 2d 31 38 38  |20,-175,200,-188|
00000b20  2c 31 37 35 2c 2d 31 39  32 2c 31 35 30 2c 2d 31  |,175,-192,150,-1|
00000b30  39 38 2c 31 32 35 2c 2d  32 30 30 2c 31 30 30 2c  |98,125,-200,100,|
00000b40  2d 32 30 35 2c 37 35 2c  2d 31 37 35 2c 35 30 2c  |-205,75,-175,50,|
00000b50  2d 31 38 32 2c 32 35 2c  2d 31 36 34 2c 30 2c 2d  |-182,25,-164,0,-|
00000b60  31 35 30 0d 05 28 ce 20  dc 2d 32 35 2c 2d 31 35  |150..(. .-25,-15|
00000b70  36 2c 2d 35 30 2c 2d 31  37 35 2c 2d 37 35 2c 2d  |6,-50,-175,-75,-|
00000b80  32 31 36 2c 2d 31 30 30  2c 2d 32 32 36 2c 2d 31  |216,-100,-226,-1|
00000b90  32 35 2c 2d 32 32 36 2c  2d 31 35 30 2c 2d 32 31  |25,-226,-150,-21|
00000ba0  38 2c 2d 31 37 35 2c 2d  31 38 38 2c 2d 31 38 30  |8,-175,-188,-180|
00000bb0  2c 2d 31 35 30 2c 2d 31  38 34 2c 2d 31 32 35 2c  |,-150,-184,-125,|
00000bc0  2d 31 38 36 2c 2d 31 30  30 2c 2d 31 38 30 2c 2d  |-186,-100,-180,-|
00000bd0  37 35 2c 2d 31 37 30 2c  2d 35 30 2c 2d 31 36 30  |75,-170,-50,-160|
00000be0  2c 2d 32 35 2c 2d 31 34  30 2c 30 2c 2d 31 34 30  |,-25,-140,0,-140|
00000bf0  2c 32 35 2c 2d 31 35 30  2c 35 30 2c 2d 31 33 36  |,25,-150,50,-136|
00000c00  2c 37 35 2c 2d 31 32 35  2c 38 30 2c 2d 31 30 30  |,75,-125,80,-100|
00000c10  2c 39 30 2c 2d 37 35 2c  31 31 32 2c 2d 35 30 2c  |,90,-75,112,-50,|
00000c20  31 32 34 2c 2d 32 35 2c  31 32 38 2c 30 2c 31 32  |124,-25,128,0,12|
00000c30  35 0d 05 32 4d 20 dc 2d  32 30 2c 2d 32 30 30 2c  |5..2M .-20,-200,|
00000c40  30 2c 2d 32 32 35 2c 31  32 2c 2d 32 35 30 2c 32  |0,-225,12,-250,2|
00000c50  34 2c 2d 32 37 35 2c 32  34 2c 2d 33 30 30 2c 32  |4,-275,24,-300,2|
00000c60  34 2c 2d 33 32 35 2c 32  34 2c 2d 33 35 30 2c 32  |4,-325,24,-350,2|
00000c70  34 2c 2d 33 37 35 2c 31  38 2c 2d 34 30 30 0d 05  |4,-375,18,-400..|
00000c80  3c 4d 20 dc 31 32 30 2c  2d 32 32 35 2c 31 31 30  |<M .120,-225,110|
00000c90  2c 2d 32 35 30 2c 31 30  34 2c 2d 32 37 35 2c 31  |,-250,104,-275,1|
00000ca0  30 34 2c 2d 33 30 30 2c  31 30 34 2c 2d 33 32 35  |04,-300,104,-325|
00000cb0  2c 31 30 34 2c 2d 33 35  30 2c 31 31 36 2c 2d 33  |,104,-350,116,-3|
00000cc0  37 35 2c 31 32 30 2c 2d  34 30 30 0d 05 46 0d 20  |75,120,-400..F. |
00000cd0  49 3d a6 28 31 30 30 29  0d 05 50 1f 20 f1 8a 33  |I=.(100)..P. ..3|
00000ce0  34 2c 32 34 29 3b 22 42  20 72 20 6f 20 61 20 64  |4,24);"B r o a d|
00000cf0  20 4f 20 61 20 6b 22 0d  05 5a 0d 20 49 3d a6 28  | O a k"..Z. I=.(|
00000d00  33 30 30 29 0d 05 64 08  20 ef 33 30 0d 05 6e 06  |300)..d. .30..n.|
00000d10  20 e1 0d 05 78 06 20 3a  0d 05 82 0c 20 dd f2 54  | ...x. :.... ..T|
00000d20  49 54 4c 45 0d 05 8c 1f  20 f4 20 54 69 74 6c 65  |ITLE.... . Title|
00000d30  20 72 6f 75 74 69 6e 65  2c 20 33 20 73 65 63 6f  | routine, 3 seco|
00000d40  6e 64 73 0d 05 96 0f 74  69 6d 20 3d 20 91 2b 33  |nds....tim = .+3|
00000d50  30 30 0d 05 a0 47 f5 20  f1 8a 31 31 2c 31 32 29  |00...G. ..11,12)|
00000d60  3b bd 31 33 31 3b bd 31  34 31 3b 22 53 20 55 20  |;.131;.141;"S U |
00000d70  4c 20 54 20 41 20 4e 22  3a f1 8a 31 31 2c 31 33  |L T A N":..11,13|
00000d80  29 3b bd 31 33 31 3b bd  31 34 31 3b 22 53 20 55  |);.131;.141;"S U|
00000d90  20 4c 20 54 20 41 20 4e  22 0d 05 aa 23 f1 8a 31  | L T A N"...#..1|
00000da0  30 2c 31 36 29 3b bd 31  33 34 3b 22 62 79 20 20  |0,16);.134;"by  |
00000db0  44 2e 4a 2e 20 41 6c 64  6f 75 73 22 0d 05 b4 0b  |D.J. Aldous"....|
00000dc0  fd 20 91 3e 74 69 6d 0d  05 be 05 db 0d 05 c8 06  |. .>tim.........|
00000dd0  20 e1 0d 05 d2 06 20 3a  0d 05 dc 10 20 f4 20 57  | ..... :.... . W|
00000de0  4f 52 44 5f 57 52 41 50  0d 05 e6 58 20 f4 20 45  |ORD_WRAP...X . E|
00000df0  6e 73 75 72 65 73 20 74  68 61 74 20 74 65 78 74  |nsures that text|
00000e00  20 69 73 20 6e 6f 74 20  20 20 20 20 20 70 72 69  | is not      pri|
00000e10  6e 74 65 64 20 77 69 74  68 20 77 6f 72 64 73 20  |nted with words |
00000e20  73 70 6c 69 74 20 66 72  6f 6d 20 20 6f 6e 65 20  |split from  one |
00000e30  6c 69 6e 65 20 74 6f 20  74 68 65 20 6e 65 78 74  |line to the next|
00000e40  0d 05 f0 38 20 f4 20 49  6e 20 6d 61 69 6e 20 70  |...8 . In main p|
00000e50  72 6f 67 72 61 6d 2c 20  64 65 66 69 6e 65 20 74  |rogram, define t|
00000e60  65 78 74 20 74 6f 20 62  65 20 70 72 69 6e 74 65  |ext to be printe|
00000e70  64 20 61 73 20 20 46 24  0d 05 fa 3c 20 f4 20 74  |d as  F$...< . t|
00000e80  68 65 6e 20 64 65 66 69  6e 65 20 6d 61 78 69 6d  |hen define maxim|
00000e90  75 6d 20 6e 75 6d 62 65  72 20 20 20 20 6f 66 20  |um number    of |
00000ea0  77 6f 72 64 73 20 70 65  72 20 6c 69 6e 65 20 61  |words per line a|
00000eb0  73 20 4c 25 0d 06 04 60  20 f4 20 65 2e 67 2e 20  |s L%...` . e.g. |
00000ec0  46 24 3d 22 4e 6f 77 20  69 73 20 64 65 66 69 6e  |F$="Now is defin|
00000ed0  69 74 65 6c 79 20 74 68  65 74 69 6d 65 20 66 6f  |itely thetime fo|
00000ee0  72 20 61 6c 6c 20 67 6f  6f 64 20 6d 65 6e 20 74  |r all good men t|
00000ef0  6f 20 63 6f 6d 65 20 74  6f 20 74 68 65 20 61 69  |o come to the ai|
00000f00  64 6f 66 20 74 68 65 20  70 61 72 74 79 22 3a 4c  |dof the party":L|
00000f10  25 3d 34 30 0d 06 0e 25  20 f4 20 54 68 65 6e 20  |%=40...% . Then |
00000f20  63 61 6c 6c 20 50 52 4f  43 57 4f 52 44 5f 57 52  |call PROCWORD_WR|
00000f30  41 50 28 46 24 2c 4c 25  29 0d 06 18 48 20 f4 20  |AP(F$,L%)...H . |
00000f40  2a 2a 20 52 65 6d 65 6d  62 65 72 20 74 6f 20 52  |** Remember to R|
00000f50  65 6e 75 6d 62 65 72 20  61 66 74 65 72 20 20 20  |enumber after   |
00000f60  20 6d 65 72 67 69 6e 67  20 77 69 74 68 20 2a 45  | merging with *E|
00000f70  58 45 43 22 57 4f 52 44  5f 57 52 41 50 22 20 2a  |XEC"WORD_WRAP" *|
00000f80  2a 0d 06 22 06 20 3a 0d  06 2c 17 20 dd f2 57 4f  |*..". :..,. ..WO|
00000f90  52 44 5f 57 52 41 50 28  50 24 2c 4c 25 29 0d 06  |RD_WRAP(P$,L%)..|
00000fa0  36 15 20 ea 20 77 6f 72  64 24 2c 20 49 2c 20 64  |6. . word$, I, d|
00000fb0  6f 6e 65 0d 06 40 0d 20  64 6f 6e 65 20 3d 20 a3  |one..@. done = .|
00000fc0  0d 06 4a 06 20 f5 0d 06  54 11 20 49 20 3d 20 a7  |..J. ...T. I = .|
00000fd0  50 24 2c 22 20 22 29 0d  06 5e 13 20 77 6f 72 64  |P$," ")..^. word|
00000fe0  24 20 3d 20 c0 50 24 2c  49 29 0d 06 68 14 20 50  |$ = .P$,I)..h. P|
00000ff0  24 3d 20 c2 50 24 2c a9  20 50 24 2d 49 29 0d 06  |$= .P$,. P$-I)..|
00001000  72 18 20 e7 20 50 24 3d  20 22 22 20 8c 20 64 6f  |r. . P$= "" . do|
00001010  6e 65 20 3d 20 b9 0d 06  7c 22 20 e7 20 49 20 3d  |ne = ...|" . I =|
00001020  20 30 20 8c 20 77 6f 72  64 24 20 3d 50 24 3a 20  | 0 . word$ =P$: |
00001030  64 6f 6e 65 20 3d 20 b9  0d 06 86 17 20 e7 20 a9  |done = ..... . .|
00001040  20 77 6f 72 64 24 3e 4c  25 2d 9c 20 8c 20 f1 0d  | word$>L%-. . ..|
00001050  06 90 0e 20 f1 20 77 6f  72 64 24 20 3b 0d 06 9a  |... . word$ ;...|
00001060  10 20 fd 20 64 6f 6e 65  20 3a 20 f1 27 0d 06 a4  |. . done : .'...|
00001070  06 20 e1 0d 06 ae 06 20  3a 0d 06 b8 05 20 0d 06  |. ..... :.... ..|
00001080  c2 10 20 dd f2 5f 43 4f  4e 54 49 4e 55 45 0d 06  |.. .._CONTINUE..|
00001090  cc 06 20 f5 0d 06 d6 2d  20 f1 8a 36 2c 32 33 29  |.. ....- ..6,23)|
000010a0  3b bd 28 31 33 30 29 3b  22 50 72 65 73 73 20 53  |;.(130);"Press S|
000010b0  50 41 43 45 20 74 6f 20  63 6f 6e 74 69 6e 75 65  |PACE to continue|
000010c0  22 0d 06 e0 0c 20 fd 20  be 3d 22 20 22 0d 06 ea  |".... . .=" "...|
000010d0  05 db 0d 06 f4 05 e1 0d  06 fe 06 20 3a 0d 07 08  |........... :...|
000010e0  0b 20 dd f2 5f 45 4e 44  0d 07 12 06 20 f5 0d 07  |. .._END.... ...|
000010f0  1c 27 20 f1 8a 31 31 2c  32 30 29 3b bd 28 31 33  |.' ..11,20);.(13|
00001100  30 29 3b 22 50 72 65 73  73 20 27 45 27 20 74 6f  |0);"Press 'E' to|
00001110  20 45 4e 44 22 0d 07 26  2f 20 f1 8a 36 2c 32 31  | END"..&/ ..6,21|
00001120  29 3b bd 28 31 33 30 29  3b 22 61 6e 64 20 63 61  |);.(130);"and ca|
00001130  6c 63 75 6c 61 74 65 20  69 74 20 79 6f 75 72 73  |lculate it yours|
00001140  65 6c 66 22 0d 07 30 34  20 f1 8a 33 2c 32 33 29  |elf"..04 ..3,23)|
00001150  3b bd 28 31 33 30 29 3b  22 50 72 65 73 73 20 53  |;.(130);"Press S|
00001160  50 41 43 45 20 74 6f 20  66 69 6e 64 20 74 68 65  |PACE to find the|
00001170  20 61 6e 73 77 65 72 22  0d 07 3a 09 20 47 24 3d  | answer"..:. G$=|
00001180  be 0d 07 44 16 20 fd 20  47 24 3d 22 20 22 20 84  |...D. . G$=" " .|
00001190  20 47 24 3d 22 45 22 0d  07 4e 22 20 e7 20 47 24  | G$="E"..N" . G$|
000011a0  3d 22 45 22 20 3a ef 32  33 3b 32 39 31 39 34 3b  |="E" :.23;29194;|
000011b0  30 3b 30 3b 30 3b 20 3a  e0 0d 07 58 06 20 db 0d  |0;0;0; :...X. ..|
000011c0  07 62 06 20 e1 0d ff                              |.b. ...|
000011c7