� : BROKEN
 � : (c) BroadOak
 � : 14.9.88
#  � For BBC Master and BBC'B'
( :
2 � 0
< �_LOGO
F �7
P �12,23;8202;0;0;0;
Z �_DELAY(40)
d �_TITLE
n* �8,1);�(134);"THE BROKEN CALCULATOR"
x �''
�� F$="An 8-digit calculator has its first four digits (those on the left-hand side) not working, but is otherwise in full working order.":L%=39
� �WORD_WRAP(F$,L%)
�� F$="When a particular 4-digit number (N) is input and squared, the calculator shows, as the answer, the same number on the display as was input.":L%=39
� �WORD_WRAP(F$,L%)
� �_CONTINUE
�* �8,1);�(134);"THE BROKEN CALCULATOR"
�	 �'''
�/ F$="        Which number is input ?":L%=40
� �WORD_WRAP(F$,L%)
�
 �_END
�* �8,1);�(134);"THE BROKEN CALCULATOR"
� :
�
 NO1%=999

 �

 NO1%=NO1%+1

 NO1$=�(NO1%)

" NO1R$=�NO1$,4)

, NO2%=NO1%^2

62 �1,5);�(131);"       N   =     ";�(134);NO1%

@ NO2$=�(NO2%)

J �1,7)"         2"

T R$=�NO2$,4)

^* � NO2%<10000000 � S$="   " :� S$="  "

h" �1,8)"        N   ="+S$;NO2%

r% �1,11);"We can see  :  ....";R$

|+ �7,20);�(134);"(To speed up the loop"

�1 �4,21);�(134);"delete the REM in line 400)"

� � GOTO 420

� �_DELAY(50)

� � �(R$)=�(NO1R$)

� �23;29194;0;0;0;

� �'

� �7

�5 �0,14);�(131);"The number  =     ";�(134);�(R$)

�	 �'''

� �

� :

� ��_CONTINUE

� �
- �7,23);�(130);"Press SPACE to continue"
 � �=" "
�
&�
0 :
: ��_DELAY(T%)
D N%=� : � : � �-N% > T%
N �
X :
b ��_LOGO
l �12,23;8202;0;0;0;
v �19,128,135;0;
� �19,1,2;0;
� �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
4 �5,1116,888
> �5,1116,136
H �0,-2,0
R �5,1114,888
\ �4,168,888
f �5,168,136
p �29,600;700;
z �4,0,0
� �
� � 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
8 � X%,Y%
B �85,X%,Y%
L I=�(5)
V�4,-60,-175
`P%=0
j � �DFE
t� P%=1�9
~� X%,Y%
��5,X%,Y%
��
��4,150,-198
�P%=0
�
� �DPE
��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
2� �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
FM �-20,-200,0,-225,12,-250,24,-275,24,-300,24,-325,24,-350,24,-375,18,-400
PM �120,-225,110,-250,104,-275,104,-300,104,-325,104,-350,116,-375,120,-400
Z
 I=�(100)
d �34,24);"B r o a d O a k"
n
 I=�(300)
x �30
� �
� :
� ��WORD_WRAP(P$,L%)
� � word$, I, done
�
 done = �
� �
� I = �P$," ")
� word$ = �P$,I)
� P$= �P$,� P$-I)
� � P$= "" � done = �
�" � I = 0 � word$ =P$: done = �
� � � word$>L%-� � �
� � word$ ;
 � done : �'
 �
 :
" ��_END
, �
6' �11,20);�(130);"Press 'E' to END"
@/ �6,21);�(130);"and calculate it yourself"
J4 �3,23);�(130);"Press SPACE to find the answer"
T	 G$=�
^ � G$=" " � G$="E"
h" � G$="E" :�23;29194;0;0;0; :�
r �
| �
� :
�
 ��_TITLE
� � Title routine, 3 seconds
� tim=�+300
� �
�F �11,12);�131;�141;"B R O K E N":�11,13);�131;�141;"B R O K E N"
�$ �10,16);�134;"by  D.J. Aldous"
� � �>tim
� �
� �
�

00000000  0d 00 0a 0f 20 f4 20 3a  20 42 52 4f 4b 45 4e 0d  |.... . : BROKEN.|
00000010  00 14 15 20 f4 20 3a 20  28 63 29 20 42 72 6f 61  |... . : (c) Broa|
00000020  64 4f 61 6b 0d 00 1e 10  20 f4 20 3a 20 31 34 2e  |dOak.... . : 14.|
00000030  39 2e 38 38 0d 00 23 20  20 f4 20 46 6f 72 20 42  |9.88..#  . For B|
00000040  42 43 20 4d 61 73 74 65  72 20 61 6e 64 20 42 42  |BC Master and BB|
00000050  43 27 42 27 0d 00 28 06  20 3a 0d 00 32 08 20 eb  |C'B'..(. :..2. .|
00000060  20 30 0d 00 3c 0b 20 f2  5f 4c 4f 47 4f 0d 00 46  | 0..<. ._LOGO..F|
00000070  07 20 eb 37 0d 00 50 17  20 ef 31 32 2c 32 33 3b  |. .7..P. .12,23;|
00000080  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 5a 10 20  |8202;0;0;0;..Z. |
00000090  f2 5f 44 45 4c 41 59 28  34 30 29 0d 00 64 0c 20  |._DELAY(40)..d. |
000000a0  f2 5f 54 49 54 4c 45 0d  00 6e 2a 20 f1 8a 38 2c  |._TITLE..n* ..8,|
000000b0  31 29 3b bd 28 31 33 34  29 3b 22 54 48 45 20 42  |1);.(134);"THE B|
000000c0  52 4f 4b 45 4e 20 43 41  4c 43 55 4c 41 54 4f 52  |ROKEN CALCULATOR|
000000d0  22 0d 00 78 08 20 f1 27  27 0d 00 82 92 20 46 24  |"..x. .''.... F$|
000000e0  3d 22 41 6e 20 38 2d 64  69 67 69 74 20 63 61 6c  |="An 8-digit cal|
000000f0  63 75 6c 61 74 6f 72 20  68 61 73 20 69 74 73 20  |culator has its |
00000100  66 69 72 73 74 20 66 6f  75 72 20 64 69 67 69 74  |first four digit|
00000110  73 20 28 74 68 6f 73 65  20 6f 6e 20 74 68 65 20  |s (those on the |
00000120  6c 65 66 74 2d 68 61 6e  64 20 73 69 64 65 29 20  |left-hand side) |
00000130  6e 6f 74 20 77 6f 72 6b  69 6e 67 2c 20 62 75 74  |not working, but|
00000140  20 69 73 20 6f 74 68 65  72 77 69 73 65 20 69 6e  | is otherwise in|
00000150  20 66 75 6c 6c 20 77 6f  72 6b 69 6e 67 20 6f 72  | full working or|
00000160  64 65 72 2e 22 3a 4c 25  3d 33 39 0d 00 8c 16 20  |der.":L%=39.... |
00000170  f2 57 4f 52 44 5f 57 52  41 50 28 46 24 2c 4c 25  |.WORD_WRAP(F$,L%|
00000180  29 0d 00 96 9c 20 46 24  3d 22 57 68 65 6e 20 61  |).... F$="When a|
00000190  20 70 61 72 74 69 63 75  6c 61 72 20 34 2d 64 69  | particular 4-di|
000001a0  67 69 74 20 6e 75 6d 62  65 72 20 28 4e 29 20 69  |git number (N) i|
000001b0  73 20 69 6e 70 75 74 20  61 6e 64 20 73 71 75 61  |s input and squa|
000001c0  72 65 64 2c 20 74 68 65  20 63 61 6c 63 75 6c 61  |red, the calcula|
000001d0  74 6f 72 20 73 68 6f 77  73 2c 20 61 73 20 74 68  |tor shows, as th|
000001e0  65 20 61 6e 73 77 65 72  2c 20 74 68 65 20 73 61  |e answer, the sa|
000001f0  6d 65 20 6e 75 6d 62 65  72 20 6f 6e 20 74 68 65  |me number on the|
00000200  20 64 69 73 70 6c 61 79  20 61 73 20 77 61 73 20  | display as was |
00000210  69 6e 70 75 74 2e 22 3a  4c 25 3d 33 39 0d 00 a0  |input.":L%=39...|
00000220  16 20 f2 57 4f 52 44 5f  57 52 41 50 28 46 24 2c  |. .WORD_WRAP(F$,|
00000230  4c 25 29 0d 00 aa 0f 20  f2 5f 43 4f 4e 54 49 4e  |L%).... ._CONTIN|
00000240  55 45 0d 00 b4 2a 20 f1  8a 38 2c 31 29 3b bd 28  |UE...* ..8,1);.(|
00000250  31 33 34 29 3b 22 54 48  45 20 42 52 4f 4b 45 4e  |134);"THE BROKEN|
00000260  20 43 41 4c 43 55 4c 41  54 4f 52 22 0d 00 be 09  | CALCULATOR"....|
00000270  20 f1 27 27 27 0d 00 c8  2f 20 46 24 3d 22 20 20  | .'''.../ F$="  |
00000280  20 20 20 20 20 20 57 68  69 63 68 20 6e 75 6d 62  |      Which numb|
00000290  65 72 20 69 73 20 69 6e  70 75 74 20 3f 22 3a 4c  |er is input ?":L|
000002a0  25 3d 34 30 0d 00 d2 16  20 f2 57 4f 52 44 5f 57  |%=40.... .WORD_W|
000002b0  52 41 50 28 46 24 2c 4c  25 29 0d 00 dc 0a 20 f2  |RAP(F$,L%).... .|
000002c0  5f 45 4e 44 0d 00 e6 2a  20 f1 8a 38 2c 31 29 3b  |_END...* ..8,1);|
000002d0  bd 28 31 33 34 29 3b 22  54 48 45 20 42 52 4f 4b  |.(134);"THE BROK|
000002e0  45 4e 20 43 41 4c 43 55  4c 41 54 4f 52 22 0d 00  |EN CALCULATOR"..|
000002f0  f0 06 20 3a 0d 00 fa 0d  20 4e 4f 31 25 3d 39 39  |.. :.... NO1%=99|
00000300  39 0d 01 04 06 20 f5 0d  01 0e 10 20 4e 4f 31 25  |9.... ..... NO1%|
00000310  3d 4e 4f 31 25 2b 31 0d  01 18 11 20 4e 4f 31 24  |=NO1%+1.... NO1$|
00000320  3d c3 28 4e 4f 31 25 29  0d 01 22 13 20 4e 4f 31  |=.(NO1%)..". NO1|
00000330  52 24 3d c2 4e 4f 31 24  2c 34 29 0d 01 2c 10 20  |R$=.NO1$,4)..,. |
00000340  4e 4f 32 25 3d 4e 4f 31  25 5e 32 0d 01 36 32 20  |NO2%=NO1%^2..62 |
00000350  f1 8a 31 2c 35 29 3b bd  28 31 33 31 29 3b 22 20  |..1,5);.(131);" |
00000360  20 20 20 20 20 20 4e 20  20 20 3d 20 20 20 20 20  |      N   =     |
00000370  22 3b bd 28 31 33 34 29  3b 4e 4f 31 25 0d 01 40  |";.(134);NO1%..@|
00000380  11 20 4e 4f 32 24 3d c3  28 4e 4f 32 25 29 0d 01  |. NO2$=.(NO2%)..|
00000390  4a 17 20 f1 8a 31 2c 37  29 22 20 20 20 20 20 20  |J. ..1,7)"      |
000003a0  20 20 20 32 22 0d 01 54  10 20 52 24 3d c2 4e 4f  |   2"..T. R$=.NO|
000003b0  32 24 2c 34 29 0d 01 5e  2a 20 e7 20 4e 4f 32 25  |2$,4)..^* . NO2%|
000003c0  3c 31 30 30 30 30 30 30  30 20 8c 20 53 24 3d 22  |<10000000 . S$="|
000003d0  20 20 20 22 20 3a 8b 20  53 24 3d 22 20 20 22 0d  |   " :. S$="  ".|
000003e0  01 68 22 20 f1 8a 31 2c  38 29 22 20 20 20 20 20  |.h" ..1,8)"     |
000003f0  20 20 20 4e 20 20 20 3d  22 2b 53 24 3b 4e 4f 32  |   N   ="+S$;NO2|
00000400  25 0d 01 72 25 20 f1 8a  31 2c 31 31 29 3b 22 57  |%..r% ..1,11);"W|
00000410  65 20 63 61 6e 20 73 65  65 20 20 3a 20 20 2e 2e  |e can see  :  ..|
00000420  2e 2e 22 3b 52 24 0d 01  7c 2b 20 f1 8a 37 2c 32  |..";R$..|+ ..7,2|
00000430  30 29 3b bd 28 31 33 34  29 3b 22 28 54 6f 20 73  |0);.(134);"(To s|
00000440  70 65 65 64 20 75 70 20  74 68 65 20 6c 6f 6f 70  |peed up the loop|
00000450  22 0d 01 86 31 20 f1 8a  34 2c 32 31 29 3b bd 28  |"...1 ..4,21);.(|
00000460  31 33 34 29 3b 22 64 65  6c 65 74 65 20 74 68 65  |134);"delete the|
00000470  20 52 45 4d 20 69 6e 20  6c 69 6e 65 20 34 30 30  | REM in line 400|
00000480  29 22 0d 01 90 0f 20 f4  20 47 4f 54 4f 20 34 32  |)".... . GOTO 42|
00000490  30 0d 01 9a 10 20 f2 5f  44 45 4c 41 59 28 35 30  |0.... ._DELAY(50|
000004a0  29 0d 01 a4 15 20 fd 20  bb 28 52 24 29 3d bb 28  |).... . .(R$)=.(|
000004b0  4e 4f 31 52 24 29 0d 01  ae 15 20 ef 32 33 3b 32  |NO1R$).... .23;2|
000004c0  39 31 39 34 3b 30 3b 30  3b 30 3b 0d 01 b8 07 20  |9194;0;0;0;.... |
000004d0  f1 27 0d 01 c2 07 20 ef  37 0d 01 cc 35 20 f1 8a  |.'.... .7...5 ..|
000004e0  30 2c 31 34 29 3b bd 28  31 33 31 29 3b 22 54 68  |0,14);.(131);"Th|
000004f0  65 20 6e 75 6d 62 65 72  20 20 3d 20 20 20 20 20  |e number  =     |
00000500  22 3b bd 28 31 33 34 29  3b bb 28 52 24 29 0d 01  |";.(134);.(R$)..|
00000510  d6 09 20 f1 27 27 27 0d  01 e0 06 20 e0 0d 01 ea  |.. .'''.... ....|
00000520  06 20 3a 0d 01 f4 10 20  dd f2 5f 43 4f 4e 54 49  |. :.... .._CONTI|
00000530  4e 55 45 0d 01 fe 06 20  f5 0d 02 08 2d 20 f1 8a  |NUE.... ....- ..|
00000540  37 2c 32 33 29 3b bd 28  31 33 30 29 3b 22 50 72  |7,23);.(130);"Pr|
00000550  65 73 73 20 53 50 41 43  45 20 74 6f 20 63 6f 6e  |ess SPACE to con|
00000560  74 69 6e 75 65 22 0d 02  12 0c 20 fd 20 be 3d 22  |tinue".... . .="|
00000570  20 22 0d 02 1c 05 db 0d  02 26 05 e1 0d 02 30 06  | ".......&....0.|
00000580  20 3a 0d 02 3a 11 20 dd  f2 5f 44 45 4c 41 59 28  | :..:. .._DELAY(|
00000590  54 25 29 0d 02 44 1b 20  4e 25 3d 91 20 3a 20 f5  |T%)..D. N%=. : .|
000005a0  20 3a 20 fd 20 91 2d 4e  25 20 3e 20 54 25 0d 02  | : . .-N% > T%..|
000005b0  4e 06 20 e1 0d 02 58 06  20 3a 0d 02 62 0c 20 dd  |N. ...X. :..b. .|
000005c0  f2 5f 4c 4f 47 4f 0d 02  6c 17 20 ef 31 32 2c 32  |._LOGO..l. .12,2|
000005d0  33 3b 38 32 30 32 3b 30  3b 30 3b 30 3b 0d 02 76  |3;8202;0;0;0;..v|
000005e0  13 20 ef 31 39 2c 31 32  38 2c 31 33 35 3b 30 3b  |. .19,128,135;0;|
000005f0  0d 02 80 0f 20 ef 31 39  2c 31 2c 32 3b 30 3b 0d  |.... .19,1,2;0;.|
00000600  02 8a 0f 20 f0 34 2c 31  36 30 2c 31 32 38 0d 02  |... .4,160,128..|
00000610  94 0f 20 f0 35 2c 31 36  30 2c 38 39 36 0d 02 9e  |.. .5,160,896...|
00000620  10 20 f0 35 2c 31 31 32  30 2c 38 39 36 0d 02 a8  |. .5,1120,896...|
00000630  10 20 f0 35 2c 31 31 32  30 2c 31 32 38 0d 02 b2  |. .5,1120,128...|
00000640  0f 20 f0 35 2c 31 36 30  2c 31 32 38 0d 02 bc 0f  |. .5,160,128....|
00000650  20 f0 34 2c 31 36 32 2c  31 33 32 0d 02 c6 0f 20  | .4,162,132.... |
00000660  f0 35 2c 31 36 32 2c 38  39 32 0d 02 d0 10 20 f0  |.5,162,892.... .|
00000670  35 2c 31 31 31 38 2c 38  39 32 0d 02 da 10 20 f0  |5,1118,892.... .|
00000680  35 2c 31 31 31 38 2c 31  33 32 0d 02 e4 0f 20 f0  |5,1118,132.... .|
00000690  35 2c 31 36 32 2c 31 33  32 0d 02 ee 0b 20 f0 30  |5,162,132.... .0|
000006a0  2c 32 2c 30 0d 02 f8 0f  20 f0 35 2c 31 36 34 2c  |,2,0.... .5,164,|
000006b0  38 39 32 0d 03 02 10 20  f0 34 2c 31 31 31 36 2c  |892.... .4,1116,|
000006c0  38 39 32 0d 03 0c 10 20  f0 35 2c 31 31 31 36 2c  |892.... .5,1116,|
000006d0  31 33 32 0d 03 16 0b 20  f0 30 2c 30 2c 34 0d 03  |132.... .0,0,4..|
000006e0  20 0f 20 f0 35 2c 31 36  34 2c 31 33 36 0d 03 2a  | . .5,164,136..*|
000006f0  0f 20 f0 35 2c 31 36 34  2c 38 38 38 0d 03 34 10  |. .5,164,888..4.|
00000700  20 f0 35 2c 31 31 31 36  2c 38 38 38 0d 03 3e 10  | .5,1116,888..>.|
00000710  20 f0 35 2c 31 31 31 36  2c 31 33 36 0d 03 48 0c  | .5,1116,136..H.|
00000720  20 f0 30 2c 2d 32 2c 30  0d 03 52 10 20 f0 35 2c  | .0,-2,0..R. .5,|
00000730  31 31 31 34 2c 38 38 38  0d 03 5c 0f 20 f0 34 2c  |1114,888..\. .4,|
00000740  31 36 38 2c 38 38 38 0d  03 66 0f 20 f0 35 2c 31  |168,888..f. .5,1|
00000750  36 38 2c 31 33 36 0d 03  70 11 20 ef 32 39 2c 36  |68,136..p. .29,6|
00000760  30 30 3b 37 30 30 3b 0d  03 7a 0b 20 f0 34 2c 30  |00;700;..z. .4,0|
00000770  2c 30 0d 03 84 06 20 f7  0d 03 8e 0c 20 f3 20 58  |,0.... ..... . X|
00000780  25 2c 59 25 0d 03 98 0d  20 f0 34 2c 58 25 2c 59  |%,Y%.... .4,X%,Y|
00000790  25 0d 03 a2 0b 20 49 3d  a6 28 35 29 0d 03 ac 0c  |%.... I=.(5)....|
000007a0  20 f3 20 58 25 2c 59 25  0d 03 b6 0e 20 f0 38 35  | . X%,Y%.... .85|
000007b0  2c 58 25 2c 59 25 0d 03  c0 0b 20 49 3d a6 28 35  |,X%,Y%.... I=.(5|
000007c0  29 0d 03 ca 09 20 50 25  3d 30 0d 03 d4 10 20 e3  |).... P%=0.... .|
000007d0  20 50 25 3d 31 20 b8 20  32 34 0d 03 de 0b 20 f0  | P%=1 . 24.... .|
000007e0  34 2c 30 2c 30 0d 03 e8  0c 20 f3 20 58 25 2c 59  |4,0,0.... . X%,Y|
000007f0  25 0d 03 f2 0e 20 f0 38  35 2c 58 25 2c 59 25 0d  |%.... .85,X%,Y%.|
00000800  03 fc 0b 20 49 3d a6 28  35 29 0d 04 06 0c 20 f3  |... I=.(5).... .|
00000810  20 58 25 2c 59 25 0d 04  10 0e 20 f0 38 35 2c 58  | X%,Y%.... .85,X|
00000820  25 2c 59 25 0d 04 1a 0b  20 49 3d a6 28 35 29 0d  |%,Y%.... I=.(5).|
00000830  04 24 06 20 ed 0d 04 2e  0b 20 f0 34 2c 30 2c 30  |.$. ..... .4,0,0|
00000840  0d 04 38 0c 20 f3 20 58  25 2c 59 25 0d 04 42 0e  |..8. . X%,Y%..B.|
00000850  20 f0 38 35 2c 58 25 2c  59 25 0d 04 4c 0b 20 49  | .85,X%,Y%..L. I|
00000860  3d a6 28 35 29 0d 04 56  0f f0 34 2c 2d 36 30 2c  |=.(5)..V..4,-60,|
00000870  2d 31 37 35 0d 04 60 08  50 25 3d 30 0d 04 6a 0b  |-175..`.P%=0..j.|
00000880  20 f7 20 8d 44 46 45 0d  04 74 0c e3 20 50 25 3d  | . .DFE..t.. P%=|
00000890  31 b8 39 0d 04 7e 0b f3  20 58 25 2c 59 25 0d 04  |1.9..~.. X%,Y%..|
000008a0  88 0c f0 35 2c 58 25 2c  59 25 0d 04 92 05 ed 0d  |...5,X%,Y%......|
000008b0  04 9c 0f f0 34 2c 31 35  30 2c 2d 31 39 38 0d 04  |....4,150,-198..|
000008c0  a6 08 50 25 3d 30 0d 04  b0 0a f7 20 8d 44 50 45  |..P%=0..... .DPE|
000008d0  0d 04 ba 0b e3 50 25 3d  31 b8 38 0d 04 c4 0b f3  |.....P%=1.8.....|
000008e0  20 58 25 2c 59 25 0d 04  ce 0d f0 20 35 2c 58 25  | X%,Y%..... 5,X%|
000008f0  2c 59 25 0d 04 d8 05 ed  0d 04 e2 0e 20 f0 34 2c  |,Y%......... .4,|
00000900  34 2c 2d 31 35 30 0d 04  ec 0f 20 f0 35 2c 32 34  |4,-150.... .5,24|
00000910  2c 2d 31 37 35 0d 04 f6  0f 20 f0 35 2c 35 30 2c  |,-175.... .5,50,|
00000920  2d 32 31 32 0d 05 00 0f  20 f0 35 2c 37 32 2c 2d  |-212.... .5,72,-|
00000930  31 36 38 0d 05 0a 10 20  f0 34 2c 2d 39 34 2c 2d  |168.... .4,-94,-|
00000940  34 30 30 0d 05 14 10 20  f0 35 2c 32 33 36 2c 2d  |400.... .5,236,-|
00000950  34 30 30 0d 05 1e 0c 20  f0 30 2c 2d 34 2c 30 0d  |400.... .0,-4,0.|
00000960  05 28 10 20 f0 35 2c 2d  39 34 2c 2d 34 30 30 0d  |.(. .5,-94,-400.|
00000970  05 32 e1 20 dc 30 2c 31  32 35 2c 32 35 2c 31 31  |.2. .0,125,25,11|
00000980  32 2c 35 30 2c 31 30 30  2c 37 35 2c 38 37 2c 31  |2,50,100,75,87,1|
00000990  30 30 2c 39 30 2c 31 32  35 2c 31 30 30 2c 31 35  |00,90,125,100,15|
000009a0  30 2c 31 31 30 2c 31 37  35 2c 31 30 30 2c 32 30  |0,110,175,100,20|
000009b0  30 2c 39 34 2c 32 32 35  2c 37 35 2c 32 35 30 2c  |0,94,225,75,250,|
000009c0  32 35 2c 32 35 30 2c 30  2c 32 35 30 2c 2d 32 35  |25,250,0,250,-25|
000009d0  2c 32 33 37 2c 2d 35 30  2c 32 34 38 2c 2d 37 35  |,237,-50,248,-75|
000009e0  2c 32 37 32 2c 2d 31 30  30 2c 32 38 34 2c 2d 31  |,272,-100,284,-1|
000009f0  32 35 2c 32 37 36 2c 2d  31 35 30 2c 32 32 30 2c  |25,276,-150,220,|
00000a00  2d 31 37 35 2c 32 30 30  2c 2d 31 38 38 2c 31 37  |-175,200,-188,17|
00000a10  35 2c 2d 31 39 32 2c 31  35 30 2c 2d 31 39 38 2c  |5,-192,150,-198,|
00000a20  31 32 35 2c 2d 32 30 30  2c 31 30 30 2c 2d 32 30  |125,-200,100,-20|
00000a30  35 2c 37 35 2c 2d 31 37  35 2c 35 30 2c 2d 31 38  |5,75,-175,50,-18|
00000a40  32 2c 32 35 2c 2d 31 36  34 2c 30 2c 2d 31 35 30  |2,25,-164,0,-150|
00000a50  0d 05 3c ce 20 dc 2d 32  35 2c 2d 31 35 36 2c 2d  |..<. .-25,-156,-|
00000a60  35 30 2c 2d 31 37 35 2c  2d 37 35 2c 2d 32 31 36  |50,-175,-75,-216|
00000a70  2c 2d 31 30 30 2c 2d 32  32 36 2c 2d 31 32 35 2c  |,-100,-226,-125,|
00000a80  2d 32 32 36 2c 2d 31 35  30 2c 2d 32 31 38 2c 2d  |-226,-150,-218,-|
00000a90  31 37 35 2c 2d 31 38 38  2c 2d 31 38 30 2c 2d 31  |175,-188,-180,-1|
00000aa0  35 30 2c 2d 31 38 34 2c  2d 31 32 35 2c 2d 31 38  |50,-184,-125,-18|
00000ab0  36 2c 2d 31 30 30 2c 2d  31 38 30 2c 2d 37 35 2c  |6,-100,-180,-75,|
00000ac0  2d 31 37 30 2c 2d 35 30  2c 2d 31 36 30 2c 2d 32  |-170,-50,-160,-2|
00000ad0  35 2c 2d 31 34 30 2c 30  2c 2d 31 34 30 2c 32 35  |5,-140,0,-140,25|
00000ae0  2c 2d 31 35 30 2c 35 30  2c 2d 31 33 36 2c 37 35  |,-150,50,-136,75|
00000af0  2c 2d 31 32 35 2c 38 30  2c 2d 31 30 30 2c 39 30  |,-125,80,-100,90|
00000b00  2c 2d 37 35 2c 31 31 32  2c 2d 35 30 2c 31 32 34  |,-75,112,-50,124|
00000b10  2c 2d 32 35 2c 31 32 38  2c 30 2c 31 32 35 0d 05  |,-25,128,0,125..|
00000b20  46 4d 20 dc 2d 32 30 2c  2d 32 30 30 2c 30 2c 2d  |FM .-20,-200,0,-|
00000b30  32 32 35 2c 31 32 2c 2d  32 35 30 2c 32 34 2c 2d  |225,12,-250,24,-|
00000b40  32 37 35 2c 32 34 2c 2d  33 30 30 2c 32 34 2c 2d  |275,24,-300,24,-|
00000b50  33 32 35 2c 32 34 2c 2d  33 35 30 2c 32 34 2c 2d  |325,24,-350,24,-|
00000b60  33 37 35 2c 31 38 2c 2d  34 30 30 0d 05 50 4d 20  |375,18,-400..PM |
00000b70  dc 31 32 30 2c 2d 32 32  35 2c 31 31 30 2c 2d 32  |.120,-225,110,-2|
00000b80  35 30 2c 31 30 34 2c 2d  32 37 35 2c 31 30 34 2c  |50,104,-275,104,|
00000b90  2d 33 30 30 2c 31 30 34  2c 2d 33 32 35 2c 31 30  |-300,104,-325,10|
00000ba0  34 2c 2d 33 35 30 2c 31  31 36 2c 2d 33 37 35 2c  |4,-350,116,-375,|
00000bb0  31 32 30 2c 2d 34 30 30  0d 05 5a 0d 20 49 3d a6  |120,-400..Z. I=.|
00000bc0  28 31 30 30 29 0d 05 64  1f 20 f1 8a 33 34 2c 32  |(100)..d. ..34,2|
00000bd0  34 29 3b 22 42 20 72 20  6f 20 61 20 64 20 4f 20  |4);"B r o a d O |
00000be0  61 20 6b 22 0d 05 6e 0d  20 49 3d a6 28 33 30 30  |a k"..n. I=.(300|
00000bf0  29 0d 05 78 08 20 ef 33  30 0d 05 82 06 20 e1 0d  |)..x. .30.... ..|
00000c00  05 8c 06 20 3a 0d 05 96  17 20 dd f2 57 4f 52 44  |... :.... ..WORD|
00000c10  5f 57 52 41 50 28 50 24  2c 4c 25 29 0d 05 a0 15  |_WRAP(P$,L%)....|
00000c20  20 ea 20 77 6f 72 64 24  2c 20 49 2c 20 64 6f 6e  | . word$, I, don|
00000c30  65 0d 05 aa 0d 20 64 6f  6e 65 20 3d 20 a3 0d 05  |e.... done = ...|
00000c40  b4 06 20 f5 0d 05 be 11  20 49 20 3d 20 a7 50 24  |.. ..... I = .P$|
00000c50  2c 22 20 22 29 0d 05 c8  13 20 77 6f 72 64 24 20  |," ").... word$ |
00000c60  3d 20 c0 50 24 2c 49 29  0d 05 d2 14 20 50 24 3d  |= .P$,I).... P$=|
00000c70  20 c2 50 24 2c a9 20 50  24 2d 49 29 0d 05 dc 18  | .P$,. P$-I)....|
00000c80  20 e7 20 50 24 3d 20 22  22 20 8c 20 64 6f 6e 65  | . P$= "" . done|
00000c90  20 3d 20 b9 0d 05 e6 22  20 e7 20 49 20 3d 20 30  | = ...." . I = 0|
00000ca0  20 8c 20 77 6f 72 64 24  20 3d 50 24 3a 20 64 6f  | . word$ =P$: do|
00000cb0  6e 65 20 3d 20 b9 0d 05  f0 17 20 e7 20 a9 20 77  |ne = ..... . . w|
00000cc0  6f 72 64 24 3e 4c 25 2d  9c 20 8c 20 f1 0d 05 fa  |ord$>L%-. . ....|
00000cd0  0e 20 f1 20 77 6f 72 64  24 20 3b 0d 06 04 10 20  |. . word$ ;.... |
00000ce0  fd 20 64 6f 6e 65 20 3a  20 f1 27 0d 06 0e 06 20  |. done : .'.... |
00000cf0  e1 0d 06 18 06 20 3a 0d  06 22 0b 20 dd f2 5f 45  |..... :..". .._E|
00000d00  4e 44 0d 06 2c 06 20 f5  0d 06 36 27 20 f1 8a 31  |ND..,. ...6' ..1|
00000d10  31 2c 32 30 29 3b bd 28  31 33 30 29 3b 22 50 72  |1,20);.(130);"Pr|
00000d20  65 73 73 20 27 45 27 20  74 6f 20 45 4e 44 22 0d  |ess 'E' to END".|
00000d30  06 40 2f 20 f1 8a 36 2c  32 31 29 3b bd 28 31 33  |.@/ ..6,21);.(13|
00000d40  30 29 3b 22 61 6e 64 20  63 61 6c 63 75 6c 61 74  |0);"and calculat|
00000d50  65 20 69 74 20 79 6f 75  72 73 65 6c 66 22 0d 06  |e it yourself"..|
00000d60  4a 34 20 f1 8a 33 2c 32  33 29 3b bd 28 31 33 30  |J4 ..3,23);.(130|
00000d70  29 3b 22 50 72 65 73 73  20 53 50 41 43 45 20 74  |);"Press SPACE t|
00000d80  6f 20 66 69 6e 64 20 74  68 65 20 61 6e 73 77 65  |o find the answe|
00000d90  72 22 0d 06 54 09 20 47  24 3d be 0d 06 5e 16 20  |r"..T. G$=...^. |
00000da0  fd 20 47 24 3d 22 20 22  20 84 20 47 24 3d 22 45  |. G$=" " . G$="E|
00000db0  22 0d 06 68 22 20 e7 20  47 24 3d 22 45 22 20 3a  |"..h" . G$="E" :|
00000dc0  ef 32 33 3b 32 39 31 39  34 3b 30 3b 30 3b 30 3b  |.23;29194;0;0;0;|
00000dd0  20 3a e0 0d 06 72 06 20  db 0d 06 7c 06 20 e1 0d  | :...r. ...|. ..|
00000de0  06 86 06 20 3a 0d 06 90  0d 20 dd f2 5f 54 49 54  |... :.... .._TIT|
00000df0  4c 45 0d 06 9a 1f 20 f4  20 54 69 74 6c 65 20 72  |LE.... . Title r|
00000e00  6f 75 74 69 6e 65 2c 20  33 20 73 65 63 6f 6e 64  |outine, 3 second|
00000e10  73 0d 06 a4 0e 20 74 69  6d 3d 91 2b 33 30 30 0d  |s.... tim=.+300.|
00000e20  06 ae 06 20 f5 0d 06 b8  46 20 f1 8a 31 31 2c 31  |... ....F ..11,1|
00000e30  32 29 3b bd 31 33 31 3b  bd 31 34 31 3b 22 42 20  |2);.131;.141;"B |
00000e40  52 20 4f 20 4b 20 45 20  4e 22 3a f1 8a 31 31 2c  |R O K E N":..11,|
00000e50  31 33 29 3b bd 31 33 31  3b bd 31 34 31 3b 22 42  |13);.131;.141;"B|
00000e60  20 52 20 4f 20 4b 20 45  20 4e 22 0d 06 c2 24 20  | R O K E N"...$ |
00000e70  f1 8a 31 30 2c 31 36 29  3b bd 31 33 34 3b 22 62  |..10,16);.134;"b|
00000e80  79 20 20 44 2e 4a 2e 20  41 6c 64 6f 75 73 22 0d  |y  D.J. Aldous".|
00000e90  06 cc 0c 20 fd 20 91 3e  74 69 6d 0d 06 d6 06 20  |... . .>tim.... |
00000ea0  db 0d 06 e0 06 20 e1 0d  ff                       |..... ...|
00000ea9