Home » Archimedes archive » Archimedes World » AW-1996-07.adf » !Juggle/Juggle

!Juggle/Juggle

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 » Archimedes archive » Archimedes World » AW-1996-07.adf
Filename: !Juggle/Juggle
Read OK:
File size: 308B bytes
Load address: FFF3FB46
Exec address: CCA3238E
File contents
�!Juggle`0� �p`0F��㶈��!Boot!} ��5!F�) ��ICONspRITES <Obey$Dir>.!Sprites

�!Help�� aj[��	F���e#��3J�9æb�8"'�0m@L��N�3e(`R&�7 ��F A�w��AM�9$M�I��L�:"�A�M1[��9f
�7 W8� �4c���N��h��4��js��)sD7d��)8�NK�%�Ҵ	':e>�E�j��g��ɪT�Q�n޸U
�!�9,@Խ�$�2t¤a307uڈ�{�1a�p16N�4c�A�%6a�1x�AƓ��}y��ܘM���H%+�%e���S�ǃW���s֖i�V�]�IG�F~�L�:��ׁ�7-�7w@��#g��kD�H��q3��s���c������r
Tw�L5�EVZ�}��aT�~���i���Fv���{�1V�ny&��h��_���t;5g�K����`u�ْl৤s.�H��R����t'L5Ur��s�Y���auP��ݘe�pi(���y[n��v�0�J�qG�%�ٖH�iF���8�n5�e� 8�h�q�eH���4�I�Zg���&i+���j�����:�)����Gw��kn�٪�Q�
�k*Y��
8��o-hPb�a�AC”�jG���Bw�g�r�c]��Xd]X��y�w\�n��T!�T|�[��\F��5F;�����VT|mٕ����^c:ju�a���z���c������UXc�E���ey��ٲ���nL��Ң�4�x���A;*��s<�k�l�ّ�ei�D`x�6�FHyX5�7�Fj�����a��ud��֤�E]XhX�_�ι,7�_�lxh]ydG��ӊ:x9���FXa\V]wS�E_B`�N*
���)�Ѥj�e��չ�ZC�#�.�鷫~��W���cwT�K!g���=��mu
������\T��D�gJ�t�����e��R��������Z��3L����'��	Ҳrk$��]>s*^�5����s��!5i�N�`��M�%�����q��#sP����PNEr��0�6ё�t�n�t�w��E�S�xg���A�h�2ܡ1>I��𽋁�_Y����@p+�Q	K�32���y|���`�C�T�	q"����~PTK�Rc7��$|�iH
���mfm9�N�l	����N8⑂u�1od_�>�ё����e�T�)C�LD�%���!@�iJ��KM~WG� Uz����*��q\��Y�v����2�[�"E�k��3|�C���f�QQ�xT�(íd�+��GT"���^�� !�Y�Vk�N6��G�zF'~���q��i H�ԕ�D0-Q��X��$���|�F5]f���	AMJR���S:��M��a�B"�*]�giX�T�b�8t������sQ�	�c�΀!�8"�F"��
�!RunP} ���qXF�0\��I�<q2��$T�L�㉘2yHI#LJ�S��IC��S�P��Ι3l�H���!ĕ	2% �q�pdX�dJ�Ǽ!SF�!Sprites�y '}|�F���*�{�� ��BM�3gؔ)(�@A�(Ȣ �dI�$�;(7�,���zP�l��&�����)I���]�r�y�Ϛ�vm
zG�ɣ5wI
�ǩ@8F�&��4�P�YJ��5#V�c�~-x�hڱU��}+��Ȟ���ݳ�"޴|g�D$�o_�(�\̘��$�{0R2Ex�3��hY f͙v�:4�ΥASF�:�jȤ[C�[�iزC��z�m޿=��@m͢!<�\`qΏ)g|�X2��g��1i�`�
�_Pd�͖��������i~P��ˬ��*� `��DD}�;��`A�@(�{��.��a�ġs��{���O(���,���0�(�gL�!�1�UDDU��_	(RaEV�'�a��"K���1�A��A��T��6��D�&�2A�.Z�bu���7��#a��I��Q��jҰ�c�a�76�b���xh��Vji��!Sprites22�� �p<F���r���� �BM�3gؔ)(�@�(Ȫ �7P�G���L�r�K.w�Dsf�;8���Ϟ?g tFƌD2	L
��;�N2�*�[A�P��t*�
"�^��i�,L�g��]˶�۷���	��)UxU���"D��f���_�xi�U�0b���v�h�L�)6�l��Ɏq��t9�@ЇE�V|�ߘ�3nv۳fʈD�\9.nݣm���so��_'}@r�˦=x���a_'�]zF��w�>��񨫏?[�ɩÏGN��{����^9�w�^pɵ\&��Z'-ؠ�R�Ih�T�����f�I��!I�X�#�a�'�� �,��`�-�(#��hb�6#�:�c�8��c�(Y$�K*�#�O:	�8�xa�V�Hc�	9��m	f�C��c�%�X��!���i��&�G}��o�DC@�1�lPPj-�ѡ1�a�*Y�(L/�d�R��Ӂ>U��E5[L�TTM=%�T�VuUA\���W=�:�Xf킖��뮼�����w�1��Ȇp�2TAeTa�O%�J�eX���q®tp�k�
+�Q���RA��s�k3A����03�z�!ԁ��R��kW�0�
VE#D0F
B�K���q�S �q��~�,�"�l�ɾ�Code�"} S����"F������

� > Juggle
� v1.00  (26-March-1996)
� By Graham S Savage
(� Copyright 1996
2:
<� � �error : �
Fquit%=�
P	�init
Z<mark%=3:menu_item%=0:hands_on%=�:pattern_on%=�:num_on%=�
d� � �error
n�
x%  �menu:� � quit% �juggle_pattern
�� quit%
�� 0:� "Keep Juggling!"
��
�:
�� �error
�� � <> 17 �
�	  � 0
�  � "Error"
�  �
�	  � �
��
��
�:
� �patterns
&� "`3 ball cascade - Step by step"
*� "One ball from a 3 ball cascade",300
"+� "Two balls from a 3 ball cascade",330
,� "3 ball cascade",3
6'� "`4 ball fountain - Step by step"
@+� "Two balls in one hand - right", 4040
J*� "Two balls in one hand - left", 0404
T2� "Two in one, one in the other - right", 4440
^1� "Two in one, one in the other - left", 0444
h� "4 ball fountain",4
r&� "`5 ball cascade - Step by step"
|� "Two balls", 50500
�� "Three balls", 52512
�� "Three ball chase", 50505
�� "Three ball flash", 55500
�� "Four balls", 55550
�� "5 ball cascade", 5
�� "`More advanced patterns"
�� "6 ball fountain",6
�� "7 ball cascade",7
�� "8 ball fountain",8
�� "9 ball cascade",9
�&� "3 cascade -> 3 flash",333355500
�,� "Crossing a 4 ball fountain",444447333
�+� "3 in one hand, two in the other", 64
� "`Site swap patterns"
� "441", 441
� "450", 450
&� "453", 453
0� "501", 501
:� "531", 531
D� "561", 561
N� "720", 720
X� "741", 741
b� "744", 744
l� "753", 753
v� "6424", 6424
�� "`Showers"
�� "2 ball shower", 31
�� "3 ball shower", 51
�� "4 ball shower", 71
�� "5 ball shower", 91
�� "    ",3
�
�� "`'''"
��
�:
�
� �set_up
��create_colour_table
� screeny%=1024: screenx%=1280
%bally%=screeny%/40: ballx%=bally%
&rhand%=ballx%*4:midx%=0.5*screenx%
6heighty%=0.8*screeny%:basey%=125:gf%=128:nmax%=250
 6� ga%(nmax%)  :� gb%(9):� gc%(9):� gd%(9):� ge%(9)
*?� gk%(9,gf%*9):� gl%(9,gf%*9):� gh%(1,2*gf%):� gi%(1,2*gf%)
4gf%=50:r2%=2*gf%
>�
H:
R� �string_to_pattern
\:� �p$>nmax% � �_error("str2pat",p$,"Pattern too big!")
f	gj%=0
p� i%=1 � �p$
z  a$=�p$,i%,1)
�  ga%(gj%)=�(a$)
�  gj%+=1
�� i%
�
� gj%=0 �
�  ga%(0)=3
�  gj%=1
��
�� (gj% � 1) �
�  � 2*gj%>nmax% �
�0    �_error("str2pat",p$,"Pattern too big!")
�    ok=�
�  �
�    � i%=0 � gj%-1
      ga%(gj%+i%)=ga%(i%)
    � i%
    gj%=2*gj%
$  �
.�
83�sum_the_pattern          : � Internal checking
B,�find_number_of_balls     : � (Probably)
L�validiate_the_pattern    :
V� max%>1 �
`*  gm=heighty%/0.25/((max%-1)*(max%-1))
j�
t  gm=heighty%
~�
��
�:
�� �sum_the_pattern  
�  sum=0: max%=-1
�  � i%=0 � gj%-1
�    a%=ga%(i%):sum+=a%
�    � a%>max% � max%=a%
�
  � i%
��
�:
�� �find_number_of_balls
�nb=sum/gj%
� nb-�(nb)<>0 �

:  �_error("Find_Num",p$,"This needs "+�(nb)+" balls!")
�
nball%=�(nb)
(�
2:
<� �validiate_the_pattern
F
� gj%>1 �
P  � i%=0 � gj%-2
Z    � j%=i%+1 � gj%-1
dV      � ga%(i%)+i%=ga%(j%)+j% � �_error("Valid",p$,"This needs multiple catching")
n    � j%
x
  � i%
��
��
�:
�� �calc_hand_poss
�� 13
�� gg%=0 � r2%-1
�  t=�*gg%/gf%
�\  gh%(0,gg%)=midx% + 30*(12-max%) - 7*(12-max%)*�(t):gi%(0,gg%)=basey%+(12-nmax%)*�(t)/6
�\  gh%(1,gg%)=midx% - 30*(12-max%) - 7*(12-max%)*�(t):gi%(1,gg%)=basey%-(12-nmax%)*�(t)/6
��
�`shouldery%=basey%+(12-max%)*15:shoulderx1%=midx%+18*(12-max%):shoulderx2%=midx%-18*(12-max%)
��
�:
� �_error(A$,B$,C$)
1� 0:� "Internal error - program terminating."
8� '"Details :":� "PROC      :";A$:� "PATTERN   :";B$
"� "MORE INFO :";C$:�
,�
6:
@� �init
J�set_up:� 15:� 13:�
T� patterns$(100,1)
^� �TJ@:c%=0
h�
r
  � a$
|  patterns$(c%,1)="zzz"
�  � �a$,1)<>"`" �
�    � b$:patterns$(c%,1)=b$
�   �
�    a$=�a$,2,256)
�  �
�  patterns$(c%,0)=a$:c%+=1
�� a$="'''"
̃� juggle% 6000:juggle%!0=6000:juggle%!8=16:ș "OS_SpriteOp",256+9,juggle%:ș "OS_SpriteOp",256+10,juggle%,"<Juggle$Dir>.Sprite"
��
�:
�� �juggle_pattern
�>�string_to_pattern:�calc_hand_poss:�calc_balls_pos:�juggle
��
:
��calc_balls_pos
7� Only do it for the balls that are in the pattern!
&� p%=1 � 9
0 � �p$,�(p%)) �
:  sh%=0:h%=p%
D&  � (h% � 1) � fh%=1-sh% � fh%=sh%
N  � h%>1 �
X*    k0%=gf%/2:k1%=(h%*gf%-gf%/2) � r2%
b  �
l    k0%=0:k1%=gf%
v  �
�K  sx%=gh%(sh%,k0%): sy%=gi%(sh%,k0%):fx%=gh%(fh%,k1%): fy%=gi%(fh%,k1%)
�
  Ȏ h% �
�  � 3,4,5,6,7,8,9:
�    � gg%=0 � h%*gf%-1
�      ti=gg%/gf%
�      q%=gg% � r2%
�      � ti<0.5 �
�)        x%=gh%(sh%,q%):y%=gi%(sh%,q%)
�      �
�        � ti>h%-0.5 �
�+          x%=gh%(fh%,q%):y%=gi%(fh%,q%)
�
        �
�^          t=(ti-0.5)/(h%-1):y%=(fy%-sy%)*t+sy%+gm*t*(1-t)*(h%-1)*(h%-1):x%=(fx%-sx%)*t+sx%

        �
      �
'      gk%(p%,gg%)=x%:gl%(p%,gg%)=y%
 
    � gg%
*
  � 2:
4    � gg%=0 � h%*gf%-1
>"      gk%(p%,gg%)=gh%(sh%,gg%)
H"      gl%(p%,gg%)=gi%(sh%,gg%)
R
    � gg%
\
  � 1:
f    � gg%=0 � gf%-1
p      t=gg%/gf%
z%      gk%(p%,gg%)=(fx%-sx%)*t+sx%
�2      gl%(p%,gg%)=(fy%-sy%)*t+sy%+2*gm*t*(1-t)
�
    � gg%
�  �
� �
�� p%
��
�:
�� �t
�Lss%=4*((0.5*�(gm)*�(gm)) � 4):p%=(p%+1) � gj%:h%=ga%(p%):gc%()=gc%()+gf%
�� h%>0 �
�  b%=-1: c%=-1
�  � i%=0 � nball%-1
�     � gc%(i%)>=gf%*gb%(i%) �
	&      � gb%(i%)>=0 � b%=i% � c%=i%
		    �
	
  � i%
	$  � b%=-1 � b%=c%
	.  � b%<>-1 �
	85    gb%(b%)=h%:gc%(b%)=0:ge%(b%)=p%:gd%(b%)=hand%
	B  �
	L�
	V� gg%=0 � gf%-1
	`  � � -74 menu%=� :�
	j  ș 6,112,bank%:� 0 Ȝ 0:�
	t'  � 60:d%=rhand%/2:t%=gg%+gf%*hand%
	~  � pattern_on% � �0,0) p$
	�*  � num_on% � �0,1) �(nball%)+" balls"
	�  � i%=0 � nball%-1
	�    � gb%(i%)>=0 �
	�Z      t%=gc%(i%)+gg%:h%=gb%(i%):x%=gk%(h%,t%):y%=gl%(h%,t%):� gd%(i%) � x%=screenx%-x%
	�      ȏ x%,y%,ss%
	�	    �
	�
  � i%
	�  � %101011
	�  � hand%=0 �
	�3    hx0%=gh%(0, gg%)-ss%/2:hy0%=gi%(0, gg%)-ss%
	�  �
	�;    hx0%=gh%(0, gg%+gf%)-ss%/2:hy0%=gi%(0, gg%+gf%)-ss%
  �

4  � LINE shoulderx1%, shouldery%, hx0%+ss%, hy0%
  � hand%=0 �
3    hx1%=gh%(1, gg%)-ss%/2:hy1%=gi%(1, gg%)-ss%
(  �
2;    hx1%=gh%(1, gg%+gf%)-ss%/2:hy1%=gi%(1, gg%+gf%)-ss%
<  �
F  � hands_on% �
P;    � hx1%,hy1%,hx1%+ss%,hy1%:� hx0%,hy0%,hx0%+ss%,hy0%
Z  �
d0  � LINE shoulderx2%, shouldery%, hx1%, hy1%
n  Ȗ
x2  ș 6,113,bank%:bank%=bank% � 3:� � -99 �wait
�	� gg%
��
�:
�
� �juggle
��:� 13:bank%=2
�Dș 6,112,bank%:�:ș 6,113,bank%:gb%()=-1:gc%()=0:p%=-1:hand%=0:�
��
�  dtick=1/gf%
�  �
�     menu%=�:�t:hand%=1-hand%
�
  � menu%
��  menu%
��
:
� �wait
�:� � � -99
"ȗ �:�:� � -99
,�:� � � -99
6ȗ �
@�
J:
T8� --------------------------------------------------
^7� =================================================
h8� --------------------------------------------------
r:
|� �menu
�&flag%=�:� 15:� 12:�:bank%=1:�:c%=0
��
�  ș 6,112,bank%
�  �
�8  ș "OS_SpriteOp",256+34,juggle%,"juggle",800,880,0
�)  � c%=(menu_item%) � (menu_item%+31)
�!    � patterns$(c%,1)="zzz" �
�
      � 6
�
     �
�
      � 7
�	    �
�,    � �3,c%-menu_item%) patterns$(c%,0);
�  �
	  � 6
<  � 700,0,700,1024:� 700,240,1300,240:� 700,620,1300,620
	  � 6
&1  � �50,13)"Speed";:� �50,16)"Display hands";
0E  � �50,19)"Display pattern";:� �50,22)"Display number of balls";
:	  � 7
D  � �50,14)�(gf%);
N2  � hands_on% � � �50,17)"Yes" � � �50,17)"No"
X4  � pattern_on% � � �50,20)"Yes" � � �50,20)"No"
b0  � num_on% � � �50,23)"Yes" � � �50,23)"No"
l%  � �50,6) "  By Graham S Savage"
v%  � �50,7) "  --Copyright 1996--"
�-  � *****                               /
�=  � *   *     =============            < ================
�-  � *****                               \
�-  � �50,25) "� and � to select pattern.";
�+  � �50,26) "� and � to alter speed.�";
�%  � �50,27) "H to toggle hands.";
�'  � �50,28) "P to toggle pattern.";
�/  � �50,29) "B to toggle number of balls.";
�  � �50,30) "Q to quit.";
�#  � �50,31) "Return to start.";
�  Ȗ
�
  flag%=�
�  � � -58  �

    mark%-=1

6    � patterns$(mark%+menu_item%,1)="zzz" mark%-=1

#    � mark%<=0 � menu_item%>0 �

       menu_item%-=1

*      mark%+=1

4	    �

>    � mark%<1 � mark%=1

H    flag%=�

R  �

\  � � -42  �

f    mark%+=1

p6    � patterns$(mark%+menu_item%,1)="zzz" mark%+=1

z%    � mark%>=31 � menu_item%<11 �

�       menu_item%+=1:mark%-=1

�	    �

�    � mark%>31 � mark%=31

�    flag%=�

�  �

�  � � -26 �

�(    flag%=�:gf%-=1:� gf%<20 � gf%=20

�  �

�  � � -122 �

�*    flag%=�:gf%+=1:� gf%>127 � gf%=127

�  �

�'  � � -85 � hands_on% = � hands_on%

�+  � � -56 � pattern_on% = � pattern_on%
$  � � -101 � num_on% = � num_on%
  r2%=gf%*2
  � �0, mark%)"->";
$  � � -17 � quit%=�
.'  Ȗ:ș 6,113,bank%:bank%=bank% � 3
8� quit% � (� -74)
B$p$=patterns$(mark%+menu_item%,1)
L�
V:
`� �create_colour_table
a	� GSS
j�
t
~
��Sprite} �|F���~��� ��)��Ι3l�,h�`��d�� ��@��9�A�''�\I�J�-A�D��ș5m�	gA".u�iӥO�B��L��N�O�:s�ΪQiJM�iԐG�*���iٰA�j�&Ԩ^c��v�X�Z�mW�ɩr�bL7k^�vM�1c��Ɗ|���]�k1'���`�ɒ|�9shӥ7{>͙�jȣ1�n���lԎ]����t�޲�_�=���ݿk�V��8���E�\5�;w�Į�$w���_;^+���7�/�|v��ɿ?_>����Ol <�����~���7 {nנwb�_|R�`w롇a��w`�wL蠅���yZء�$Bas�1g\��&s��8��4޸\�9�Ut?���6:Ǜ��Y��G*)d��i$mEJ�d��M���\�d�]nibz��W]%
�&bvWbm�9�ae�uU��9מW5RXV锧P��'��*�Kh�	(��R���Z*hSn:
@�/-�h�$��飃�覩��槫��*��
00000000  1a 82 21 4a 75 67 67 6c  65 00 00 00 00 00 00 60  |..!Juggle......`|
00000010  30 00 00 a3 20 b2 70 00  00 60 30 00 00 46 dc fd  |0... .p..`0..F..|
00000020  ff e3 b6 88 c8 00 00 00  00 1a 82 21 42 6f 6f 74  |...........!Boot|
00000030  00 00 00 00 00 00 00 00  21 00 00 00 7d 20 16 87  |........!...} ..|
00000040  cc 35 21 00 00 00 46 eb  ff ff 29 20 92 b6 03 00  |.5!...F...) ....|
00000050  00 00 49 43 4f 4e 73 70  52 49 54 45 53 20 3c 4f  |..ICONspRITES <O|
00000060  62 65 79 24 44 69 72 3e  2e 21 53 70 72 69 74 65  |bey$Dir>.!Sprite|
00000070  73 0a 0a 1a ff 21 48 65  6c 70 00 00 00 00 00 00  |s....!Help......|
00000080  00 00 87 05 00 00 ab 20  61 6a 5b f3 e5 09 00 00  |....... aj[.....|
00000090  46 ff ff ff 65 23 a3 cc  33 00 00 00 10 4a ea 9c  |F...e#..3....J..|
000000a0  39 c3 a6 0c 08 05 62 f2  80 38 22 27 0c 9a 30 6d  |9.....b..8"'..0m|
000000b0  40 4c 91 18 c6 4e 98 33  65 14 28 60 52 26 8c 1c  |@L...N.3e.(`R&..|
000000c0  37 20 e8 bc 01 a1 46 20  41 83 77 d2 d0 41 13 12  |7 ....F A.w..A..|
000000d0  4d 9a 39 24 4d b2 49 e3  e6 4c c8 3a 22 e5 b8 00  |M.9$M.I..L.:"...|
000000e0  41 e4 4d 1d 31 05 5b 8c  99 39 66 0d 88 37 20 57  |A.M.1.[..9f..7 W|
000000f0  1a 0c 38 b0 20 88 34 63  90 86 1c f9 06 4e 99 a4  |..8. .4c.....N..|
00000100  68 96 ca 34 d8 e6 6a 1d  10 73 c6 c8 29 73 15 44  |h..4..j..s..)s.D|
00000110  18 37 64 c0 96 29 38 86  4e 4b 83 25 9b d2 b4 09  |.7d..)8.NK.%....|
00000120  27 0c 1d 3a 65 3e 9a 45  0b d6 6a 99 b4 67 d3 de  |'..:e>.E..j..g..|
00000130  c9 aa 54 ce 51 c3 6e de  b8 55 0a e2 21 da 39 2c  |..T.Q.n..U..!.9,|
00000140  40 d4 bd 9b 17 24 99 32  74 c2 a4 61 03 33 30 08  |@....$.2t..a.30.|
00000150  37 75 da 88 c9 7b d4 0c  08 31 61 d8 70 06 31 36  |7u...{...1a.p.16|
00000160  4e 9d 34 63 01 8f 05 41  e6 25 1c 36 61 f2 fc 05  |N.4c...A.%.6a...|
00000170  31 78 b3 41 c6 93 f1 ea  7d 79 ba cc dc 98 4d ff  |1x.A....}y....M.|
00000180  ba d0 48 25 2b 88 25 65  f2 cc d1 08 02 04 53 82  |..H%+.%e......S.|
00000190  c7 83 57 06 d1 02 04 95  91 73 d6 96 69 fb 56 b2  |..W......s..i.V.|
000001a0  5d e1 49 47 8e 46 7e 92  4c e4 3a e1 cb d7 81 b3  |].IG.F~.L.:.....|
000001b0  37 2d 99 37 77 40 8e a9  23 67 ce 1b c3 6b 44 07  |7-.7w@..#g...kD.|
000001c0  93 48 8d a5 71 06 1a 33  1d b8 98 73 da e9 e5 19  |.H..q..3...s....|
000001d0  1c 63 cd 01 93 14 98 f1  e7 c6 72 0a 54 77 dd 4c  |.c........r.Tw.L|
000001e0  35 f5 45 56 5a dd 7d 07  c2 18 8e 61 54 de 1c 7e  |5.EVZ.}....aT..~|
000001f0  a5 f5 86 69 8c 9d 95 46  1b 76 a5 81 d4 7b f1 31  |...i...F.v...{.1|
00000200  56 90 19 6e 79 26 87 81  68 b8 b5 5f 7f ff 81 10  |V..ny&..h.._....|
00000210  a0 74 3b 35 67 90 4b 07  92 c6 18 8a 1f 82 60 11  |.t;5g.K.......`.|
00000220  1b 75 94 11 d9 92 6c e0  a7 a4 73 2e c2 48 87 8c  |.u....l...s..H..|
00000230  17 52 07 02 12 81 c1 d4  1d 14 11 c2 74 02 12 27  |.R..........t..'|
00000240  4c 35 55 72 e5 9d e0 18  19 73 a4 59 1b 8a b8 e5  |L5Ur.....s.Y....|
00000250  81 61 75 50 9c b7 dd 98  65 82 70 02 14 69 12 28  |.auP....e.p..i.(|
00000260  12 9b 8c cd 79 5b 6e a5  95 17 17 76 1d 9e 30 87  |....y[n....v..0.|
00000270  4a 06 cd 71 47 18 f4 25  96 d9 96 48 a5 69 46 90  |J..qG..%...H.iF.|
00000280  8c fd 38 96 1b 6e 35 d8  65 86 20 38 11 da 68 fd  |..8..n5.e. 8..h.|
00000290  71 07 02 99 65 48 e8 a7  10 81 8e 34 e8 49 e5 19  |q...eH.....4.I..|
000002a0  5a 67 a2 8c 81 26 1a 69  2b 9e 96 da 6a ad bd 16  |Zg...&.i+...j...|
000002b0  9b 9a 8b 3a d5 29 7f 9f  86 aa e7 47 77 82 10 c5  |...:.).....Gw...|
000002c0  6b 6e f1 d9 aa 99 51 c4  0a 82 6b 2a 59 b7 15 a9  |kn....Q...k*Y...|
000002d0  0a 38 a1 d8 6f 0f 2d 68  50 18 62 bc 61 87 41 43  |.8..o.-hP.b.a.AC|
000002e0  c2 94 92 6a 47 b9 c1 86  42 77 fc 67 94 19 72 bc  |...jG...Bw.g..r.|
000002f0  11 11 63 5d 81 06 96 58  64 5d 58 9d 97 79 c2 77  |..c]...Xd]X..y.w|
00000300  5c 8b 6e bc 18 a3 54 21  8e 54 17 7c e0 8e 5b b0  |\.n...T!.T.|..[.|
00000310  96 5c 46 06 e1 b4 12 d5  35 46 19 3b b1 ea ea 14  |.\F.....5F.;....|
00000320  16 8f ab 56 54 7c 6d d9  95 9a 11 86 d6 f0 5e 06  |...VT|m.......^.|
00000330  63 3a 6a 75 14 d2 61 a1  9a f8 7a a5 aa 88 63 b9  |c:ju..a...z...c.|
00000340  ac 97 a0 ce e5 fb 55 58  63 95 45 af bd e5 65 79  |......UXc.E...ey|
00000350  b0 1b 12 f7 d9 b2 85 18  1a b9 ea b2 6e 4c a7 80  |............nL..|
00000360  d2 a2 c2 34 d3 1c 78 a9  88 95 41 3b 2a 88 ab 73  |...4..x...A;*..s|
00000370  3c f7 6b d6 6c b5 d9 91  c6 65 69 d1 44 60 78 e7  |<.k.l....ei.D`x.|
00000380  36 c4 46 48 79 58 35 87  0e 37 e5 94 46 6a 90 81  |6.FHyX5..7..Fj..|
00000390  d0 c6 7f e3 92 61 91 1b  17 a7 15 75 64 8f e2 05  |.....a.....ud...|
000003a0  d6 a4 f4 45 5d 1f 58 68  58 d9 5f d2 ce b9 2c 37  |...E].XhX._...,7|
000003b0  dd 5f 9f 6c 78 1d 68 5d  79 64 47 b5 d5 04 d3 8a  |._.lx.h]ydG.....|
000003c0  3a 78 39 83 af ec 8e 11  46 58 61 5c 56 5d 77 53  |:x9.....FXa\V]wS|
000003d0  e0 45 5f 42 60 a9 4e 2a  0d a0 af bd 29 e5 99 d1  |.E_B`.N*....)...|
000003e0  a4 6a ea 65 ac ae 10 d5  b9 93 5a 43 ec 23 8e 2e  |.j.e......ZC.#..|
000003f0  ba e9 b7 ab 7e da ee ae  57 f7 af d2 63 77 54 9c  |....~...W...cwT.|
00000400  4b 21 67 15 9f e1 c4 3d  da c6 6d 06 75 17 15 1c  |K!g....=..m.u...|
00000410  0a b5 d8 16 97 9b b3 e8  5c 54 d7 e3 44 9a 67 4a  |........\T..D.gJ|
00000420  81 74 f7 b9 ed c2 ec 9c  1b 65 e0 e1 16 52 18 83  |.t.......e...R..|
00000430  10 04 8e a4 91 8f fd 96  1d fe 5a de e4 95 33 4c  |..........Z...3L|
00000440  18 1a 83 b9 e3 e4 c1 27  88 f3 09 1b d2 b2 1e 72  |.......'.......r|
00000450  19 6b 24 c5 02 97 5d 3e  73 2a 5e 99 06 35 aa 81  |.k$...]>s*^..5..|
00000460  89 ed 18 73 02 f8 d4 21  35 69 12 d5 4e 90 60 a5  |...s...!5i..N.`.|
00000470  b4 4d c9 25 1a 84 89 a5  ae 05 ad 71 c1 a4 23 73  |.M.%.......q..#s|
00000480  50 c8 e8 9e e2 16 ff 50  0e 4e 45 72 ce e7 30 b8  |P......P.NEr..0.|
00000490  36 d1 91 ce 74 c4 19 0b  6e b6 74 ae 77 81 e5 45  |6...t...n.t.w..E|
000004a0  d8 53 13 8c 78 67 98 ee  84 01 7f 86 41 8a 11 07  |.S..xg......A...|
000004b0  68 86 32 dc a1 31 3e 49  15 84 c2 f0 bd 8b 81 e0  |h.2..1>I........|
000004c0  80 5f 59 d7 da 1a 08 94  df 40 70 2b bc 51 09 4b  |._Y......@p+.Q.K|
000004d0  fc 33 32 90 99 a1 79 7c  ab 9f d2 60 c7 43 10 cc  |.32...y|...`.C..|
000004e0  0e 54 9a 01 09 71 1e 22  87 cb e8 c4 7e 50 54 4b  |.T...q."....~PTK|
000004f0  da 52 63 37 a4 ac 24 7c  92 69 48 17 0d 92 84 d6  |.Rc7..$|.iH.....|
00000500  6d 66 6d 0f 39 97 1b 4e  e0 16 6c 09 ee 0c 8a a1  |mfm.9..N..l.....|
00000510  e1 4e 38 e2 91 82 75 88  31 6f 64 5f 1d a9 07 13  |.N8...u.1od_....|
00000520  3e fa d1 91 aa d9 c9 14  ec 65 10 ab 54 c5 29 43  |>........e..T.)C|
00000530  d1 4c 44 b2 25 ba a4 84  21 40 85 04 15 1a 10 69  |.LD.%...!@.....i|
00000540  4a de c8 4b 4d 18 11 17  08 7e 57 47 1f 0e cf 20  |J..KM....~WG... |
00000550  55 7a c3 1a b2 93 97 2a  b6 85 71 5c c1 9b 59 f4  |Uz.....*..q\..Y.|
00000560  76 96 be 99 87 32 1f a9  5b e0 22 45 b8 6b a2 a7  |v....2..[."E.k..|
00000570  33 7c 99 43 e2 ee 90 97  ce cc 66 80 51 51 cd 78  |3|.C......f.QQ.x|
00000580  54 96 28 c3 ad 64 82 2b  aa a2 00 47 54 22 83 fc  |T.(..d.+...GT"..|
00000590  ec 5e ce f1 20 21 8d 59  ba 56 1d ee 8e b5 6b da  |.^.. !.Y.V....k.|
000005a0  4e 36 84 92 47 1e f1 7a  46 14 27 7e be 88 c0 71  |N6..G..zF.'~...q|
000005b0  fe 8f 69 20 48 e6 1a d4  95 15 90 44 30 2d 51 91  |..i H......D0-Q.|
000005c0  c3 58 da f2 ae 9d 24 81  0e 8e 02 c1 7c d4 04 46  |.X....$.....|..F|
000005d0  35 5d 66 0c cd c3 e2 15  09 14 41 4d 4a 04 52 83  |5]f.......AMJ.R.|
000005e0  a3 d4 53 3a f3 19 c5 0c  4d a4 e1 61 a0 42 22 98  |..S:....M..a.B".|
000005f0  2a 02 5d 86 67 69 58 8f  54 ea 62 15 c3 38 74 80  |*.].giX.T.b..8t.|
00000600  a2 9a a9 9a d6 73 51 0c  81 09 0e dc 63 0f 87 ce  |.....sQ.....c...|
00000610  80 21 86 38 04 22 14 b1  08 46 22 13 83 1c e4 c0  |.!.8."...F".....|
00000620  06 0a 00 1a ff 21 52 75  6e 00 00 00 00 00 00 00  |.....!Run.......|
00000630  00 00 50 00 00 00 7d 20  a9 9a 94 71 58 00 00 00  |..P...} ...qX...|
00000640  46 eb ff ff 30 5c 9f b6  03 00 00 00 10 49 86 3c  |F...0\.......I.<|
00000650  71 32 07 8e 94 24 54 8a  4c 01 c1 e3 89 98 32 79  |q2...$T.L.....2y|
00000660  48 10 49 23 c7 87 8b 10  53 e0 c8 49 43 a7 cc 1c  |H.I#....S..IC...|
00000670  05 53 8a 50 01 a1 a4 ce  99 33 6c ca 48 a4 c8 d0  |.S.P.....3l.H...|
00000680  21 c4 95 15 15 08 09 32  25 20 88 16 71 ea 70 64  |!......2% ..q.pd|
00000690  58 f2 64 4a 98 16 c7 bc  21 53 46 01 1a ff 21 53  |X.dJ....!SF...!S|
000006a0  70 72 69 74 65 73 00 00  00 00 00 df 01 00 00 79  |prites.........y|
000006b0  20 27 7d 7c e5 14 05 00  00 46 f9 ff ff 2a de 7b  | '}|.....F...*.{|
000006c0  b4 03 00 00 00 10 02 00  08 84 20 10 00 86 02 02  |.......... .....|
000006d0  a9 05 04 10 42 4d 9d 33  67 d8 94 29 28 90 40 41  |....BM.3g..)(.@A|
000006e0  82 14 05 1e 28 c8 a2 20  a0 00 02 19 64 1c 49 b2  |....(.. ....d.I.|
000006f0  24 c5 3b 28 37 9a 2c 08  07 a5 aa 97 7a 50 ae 6c  |$.;(7.,.....zP.l|
00000700  89 a8 26 aa 97 99 f2 dc  29 49 b3 a6 cf 5d 99 72  |..&.....)I...].r|
00000710  ee 1c 79 e7 90 cf 9a b8  76 6d 0a 7a 47 e5 c9 a3  |..y.....vm.zG...|
00000720  35 77 49 0d 9a c7 a9 40  38 46 8f 26 95 ba 34 d3  |5wI....@8F.&..4.|
00000730  50 96 59 7f 4a e5 ea 35  23 56 ad 63 c9 7e 2d 78  |P.Y.J..5#V.c.~-x|
00000740  e7 68 da b1 55 89 86 7d  2b b5 e9 c8 9e 88 b6 8e  |.h..U..}+.......|
00000750  dd b3 96 22 de b4 7c 67  a2 44 24 95 6f 5f 93 28  |..."..|g.D$.o_.(|
00000760  ed ae 5c cc 98 f1 bf c7  24 1f ff 7b 30 52 32 45  |..\.....$..{0R2E|
00000770  78 92 33 ff a3 68 59 20  66 cd 99 0b 76 fe 0c 3a  |x.3..hY f...v..:|
00000780  34 80 ce a5 41 53 46 9d  3a f3 6a c8 a4 5b 43 b6  |4...ASF.:.j..[C.|
00000790  1c 5b f6 69 d8 b2 43 b3  ce fd 7a f3 6d de bf 3d  |.[.i..C...z.m..=|
000007a0  e7 f6 dd 19 40 6d cd a2  21 17 3c ae 5c 60 71 ce  |....@m..!.<.\`q.|
000007b0  8f 29 67 7c de 58 32 8d  85 67 e6 cc 31 69 a0 60  |.)g|.X2..g..1i.`|
000007c0  03 92 0b 0a b2 12 5f 50  64 f2 cd 96 bb a9 07 a0  |......_Pd.......|
000007d0  be 1b 80 b1 ef a5 02 08  9a 69 7e 50 00 89 f1 cb  |.........i~P....|
000007e0  ac c2 1f 00 ff 2a 00 cc  20 60 80 03 9a 44 44 7d  |.....*.. `...DD}|
000007f0  00 1c 08 80 3b ee 08 c4  60 41 cc 40 28 90 7b 13  |....;...`A.@(.{.|
00000800  16 c4 e0 2e 0b ba 83 61  15 88 08 c4 a1 73 18 9e  |.......a.....s..|
00000810  16 e2 7b be ed f2 4f 04  28 a6 a8 e2 8a 2c b6 e8  |..{...O.(....,..|
00000820  e2 8b 30 aa 28 c5 1d 67  4c 10 e3 8d 21 dc 31 82  |..0.(..gL...!.1.|
00000830  0c 55 44 10 44 19 55 98  c1 5f 09 28 52 61 45 19  |.UD.D.U.._.(RaE.|
00000840  56 f0 27 01 8b 61 9c a0  22 1d 4b ae 18 84 93 31  |V.'..a..".K....1|
00000850  ca 41 81 8a 41 14 11 a5  8a 54 90 10 e3 1c 36 aa  |.A..A....T....6.|
00000860  18 c2 0c 44 d0 10 26 8a  32 0c 41 c4 0c 2e 5a e9  |...D..&.2.A...Z.|
00000870  62 08 75 9c 99 a2 14 37  b4 18 c5 15 23 0c 61 83  |b.u....7....#.a.|
00000880  15 02 92 49 c4 08 11 8c  51 83 80 6a d2 b0 e5 8a  |...I....Q..j....|
00000890  63 dc 61 c4 14 37 36 8a  62 8f 8e de 78 68 a4 94  |c.a..76.b...xh..|
000008a0  56 6a 69 8b 1a ff 21 53  70 72 69 74 65 73 32 32  |Vji...!Sprites22|
000008b0  00 00 00 95 02 00 00 a3  20 90 70 14 14 3c 08 00  |........ .p..<..|
000008c0  00 46 f9 ff ff 72 9e 88  c8 03 00 00 00 10 02 00  |.F...r..........|
000008d0  08 84 20 10 00 10 04 02  f9 15 10 18 42 4d 9d 33  |.. .........BM.3|
000008e0  67 d8 94 29 28 90 40 c1  10 14 0b 1e 28 c8 aa 20  |g..)(.@.....(.. |
000008f0  95 01 02 37 50 fc 47 12  00 c9 7f 00 ba a9 4c b9  |...7P.G.......L.|
00000900  72 97 4b 00 2e 77 01 c8  44 73 66 cd 3b 38 01 e0  |r.K..w..Dsf.;8..|
00000910  bc 03 a0 8a cf 9e 3f 67  08 05 20 74 46 c6 8c 44  |......?g.. tF..D|
00000920  32 09 4c 0a c0 9d 3b 81  4e 0b 32 93 2a b0 5b 41  |2.L...;.N.2.*.[A|
00000930  ab 50 dd c9 74 2a b3 0a  22 81 5e 05 fe 93 69 92  |.P..t*..".^...i.|
00000940  2c 4c 94 67 8f aa 5d cb  b6 ad db b7 05 e1 ec e4  |,L.g..].........|
00000950  09 f7 ce 29 55 78 55 dd  d9 d8 16 0e 22 44 a8 f2  |...)UxU....."D..|
00000960  66 ca e3 f6 d0 5f c0 78  69 f2 55 eb f7 30 62 9a  |f...._.xi.U..0b.|
00000970  84 d7 1a 76 8c 68 17 cd  4c 8b 29 36 a6 6c 19 b2  |...v.h..L.)6.l..|
00000980  da c9 8e 71 ed da 74 39  b3 40 d0 87 45 93 56 7c  |...q..t9.@..E.V||
00000990  14 f5 df 98 a5 33 6e 76  0c db b3 66 ca 88 44 bb  |.....3nv...f..D.|
000009a0  5c 1d 39 2e 6e dd a3 6d  fb e6 1c b3 73 6f 81 b3  |\.9.n..m....so..|
000009b0  5f 17 27 7d 1c 40 72 e0  bb 07 cb a6 0c 3d 78 f3  |_.'}.@r......=x.|
000009c0  e4 c5 61 5f 27 9e 5d 7a  46 d4 d9 77 9b 06 00 3e  |..a_'.]zF..w...>|
000009d0  fc a6 f1 a8 ab 8f 1e 3f  5b fd 1e c9 a9 c3 8f 47  |.......?[......G|
000009e0  4e bb f8 7b b6 a0 b3 cf  1f 5e 39 e6 fd b6 77 18  |N..{.....^9...w.|
000009f0  16 d3 5e 70 c9 b5 13 5c  08 26 a8 e0 5a 27 2d d8  |..^p...\.&..Z'-.|
00000a00  a0 82 0f 52 04 cf 49 68  8d 54 92 85 14 fe f3 00  |...R..Ih.T......|
00000a10  86 12 66 18 a1 49 17 8a  e5 21 49 1b 8a 58 e1 84  |..f..I...!I..X..|
00000a20  23 86 18 61 8a 27 95 f8  20 8a 2c a2 f5 60 8c 2d  |#..a.'.. .,..`.-|
00000a30  82 28 23 8d 1a da 68 62  8c 1b 36 08 23 8d 3a fe  |.(#...hb..6.#.:.|
00000a40  18 63 90 38 96 e4 63 91  28 1d 59 24 91 4b 2a 89  |.c.8..c.(.Y$.K*.|
00000a50  23 93 4f 3a 09 e4 8c 38  f6 78 61 91 56 de 48 63  |#.O:...8.xa.V.Hc|
00000a60  96 02 09 39 a2 89 05 6d  09 66 97 43 8e b9 63 86  |...9...m.f.C..c.|
00000a70  25 ea 58 90 97 21 aa 19  a6 87 69 ba b9 26 85 47  |%.X..!....i..&.G|
00000a80  7d 08 97 9d 6f 9d 44 43  40 00 9c 31 c7 1c 6c 19  |}...o.DC@..1..l.|
00000a90  50 50 03 6a 2d c0 d1 a1  02 31 c0 61 83 2a 59 d5  |PP.j-....1.a.*Y.|
00000aa0  28 4c 2f c5 64 93 52 97  e9 94 d3 81 3e 55 01 94  |(L/.d.R.....>U..|
00000ab0  a6 45 11 35 14 5b 4c 01  c0 54 54 4d 3d 25 d0 54  |.E.5.[L..TTM=%.T|
00000ac0  a7 56 75 55 41 5c 95 da  d5 57 3d c1 3a 96 58 66  |.VuUA\...W=.:.Xf|
00000ad0  ed 82 96 ad 11 e4 aa eb  ae bc f6 ea eb af c0 06  |................|
00000ae0  bb ab 14 77 9c 31 81 b0  c8 86 70 c7 08 32 54 11  |...w.1....p..2T.|
00000af0  41 10 65 54 61 86 4f 25  e4 4a 85 15 65 58 e1 93  |A.eTa.O%.J..eX..|
00000b00  04 bd 86 71 c2 ae 74 70  cb 6b 10 df 0a 2b 07 05  |...q..tp.k...+..|
00000b10  bb 06 51 84 b8 bb 52 41  82 b0 73 1c bb 6b 08 33  |..Q...RA..s..k.3|
00000b20  10 41 83 bc b9 ca 30 04  11 33 fc 7a ee af 21 d4  |.A....0..3.z..!.|
00000b30  81 af ae 52 dc e0 6b 14  57 8c 30 84 0d 56 14 45  |...R..k.W.0..V.E|
00000b40  04 11 23 44 30 46 0d 42  ed 4b 03 bb bc 8e 71 87  |..#D0F.B.K....q.|
00000b50  11 53 20 eb 71 ae ce 7e  8c 2c c6 22 97 6c f2 c9  |.S .q..~.,.".l..|
00000b60  be 02 1a 82 43 6f 64 65  00 00 00 00 00 00 00 00  |....Code........|
00000b70  00 d1 22 00 00 7d 20 53  9a 81 f1 d1 22 00 00 46  |.."..} S...."..F|
00000b80  f8 ff ff ed 1d 9f b6 03  00 00 00 0d 00 0a 0e f4  |................|
00000b90  20 3e 20 4a 75 67 67 6c  65 0d 00 14 1c f4 20 76  | > Juggle..... v|
00000ba0  31 2e 30 30 20 20 28 32  36 2d 4d 61 72 63 68 2d  |1.00  (26-March-|
00000bb0  31 39 39 36 29 0d 00 1e  18 f4 20 42 79 20 47 72  |1996)..... By Gr|
00000bc0  61 68 61 6d 20 53 20 53  61 76 61 67 65 0d 00 28  |aham S Savage..(|
00000bd0  14 f4 20 43 6f 70 79 72  69 67 68 74 20 31 39 39  |.. Copyright 199|
00000be0  36 0d 00 32 05 3a 0d 00  3c 12 ee 20 85 20 f2 65  |6..2.:..<.. . .e|
00000bf0  72 72 6f 72 20 3a 20 e0  0d 00 46 0b 71 75 69 74  |rror : ...F.quit|
00000c00  25 3d a3 0d 00 50 09 f2  69 6e 69 74 0d 00 5a 3c  |%=...P..init..Z<|
00000c10  6d 61 72 6b 25 3d 33 3a  6d 65 6e 75 5f 69 74 65  |mark%=3:menu_ite|
00000c20  6d 25 3d 30 3a 68 61 6e  64 73 5f 6f 6e 25 3d b9  |m%=0:hands_on%=.|
00000c30  3a 70 61 74 74 65 72 6e  5f 6f 6e 25 3d b9 3a 6e  |:pattern_on%=.:n|
00000c40  75 6d 5f 6f 6e 25 3d b9  0d 00 64 0e ee 20 85 20  |um_on%=...d.. . |
00000c50  f2 65 72 72 6f 72 0d 00  6e 05 f5 0d 00 78 25 20  |.error..n....x% |
00000c60  20 f2 6d 65 6e 75 3a e7  20 ac 20 71 75 69 74 25  | .menu:. . quit%|
00000c70  20 f2 6a 75 67 67 6c 65  5f 70 61 74 74 65 72 6e  | .juggle_pattern|
00000c80  0d 00 82 0b fd 20 71 75  69 74 25 0d 00 8c 1a eb  |..... quit%.....|
00000c90  20 30 3a f1 20 22 4b 65  65 70 20 4a 75 67 67 6c  | 0:. "Keep Juggl|
00000ca0  69 6e 67 21 22 0d 00 96  05 e0 0d 00 a0 05 3a 0d  |ing!".........:.|
00000cb0  00 aa 0c dd 20 f2 65 72  72 6f 72 0d 00 b4 0f e7  |.... .error.....|
00000cc0  20 9f 20 3c 3e 20 31 37  20 8c 0d 00 be 09 20 20  | . <> 17 .....  |
00000cd0  eb 20 30 0d 00 c8 0f 20  20 f1 20 22 45 72 72 6f  |. 0....  . "Erro|
00000ce0  72 22 0d 00 d2 07 20 20  f6 0d 00 dc 09 20 20 f1  |r"....  .....  .|
00000cf0  20 9e 0d 00 e6 05 cd 0d  00 f0 05 e1 0d 00 fa 05  | ...............|
00000d00  3a 0d 01 04 0f dd 20 f2  70 61 74 74 65 72 6e 73  |:..... .patterns|
00000d10  0d 01 0e 26 dc 20 22 60  33 20 62 61 6c 6c 20 63  |...&. "`3 ball c|
00000d20  61 73 63 61 64 65 20 2d  20 53 74 65 70 20 62 79  |ascade - Step by|
00000d30  20 73 74 65 70 22 0d 01  18 2a dc 20 22 4f 6e 65  | step"...*. "One|
00000d40  20 62 61 6c 6c 20 66 72  6f 6d 20 61 20 33 20 62  | ball from a 3 b|
00000d50  61 6c 6c 20 63 61 73 63  61 64 65 22 2c 33 30 30  |all cascade",300|
00000d60  0d 01 22 2b dc 20 22 54  77 6f 20 62 61 6c 6c 73  |.."+. "Two balls|
00000d70  20 66 72 6f 6d 20 61 20  33 20 62 61 6c 6c 20 63  | from a 3 ball c|
00000d80  61 73 63 61 64 65 22 2c  33 33 30 0d 01 2c 18 dc  |ascade",330..,..|
00000d90  20 22 33 20 62 61 6c 6c  20 63 61 73 63 61 64 65  | "3 ball cascade|
00000da0  22 2c 33 0d 01 36 27 dc  20 22 60 34 20 62 61 6c  |",3..6'. "`4 bal|
00000db0  6c 20 66 6f 75 6e 74 61  69 6e 20 2d 20 53 74 65  |l fountain - Ste|
00000dc0  70 20 62 79 20 73 74 65  70 22 0d 01 40 2b dc 20  |p by step"..@+. |
00000dd0  22 54 77 6f 20 62 61 6c  6c 73 20 69 6e 20 6f 6e  |"Two balls in on|
00000de0  65 20 68 61 6e 64 20 2d  20 72 69 67 68 74 22 2c  |e hand - right",|
00000df0  20 34 30 34 30 0d 01 4a  2a dc 20 22 54 77 6f 20  | 4040..J*. "Two |
00000e00  62 61 6c 6c 73 20 69 6e  20 6f 6e 65 20 68 61 6e  |balls in one han|
00000e10  64 20 2d 20 6c 65 66 74  22 2c 20 30 34 30 34 0d  |d - left", 0404.|
00000e20  01 54 32 dc 20 22 54 77  6f 20 69 6e 20 6f 6e 65  |.T2. "Two in one|
00000e30  2c 20 6f 6e 65 20 69 6e  20 74 68 65 20 6f 74 68  |, one in the oth|
00000e40  65 72 20 2d 20 72 69 67  68 74 22 2c 20 34 34 34  |er - right", 444|
00000e50  30 0d 01 5e 31 dc 20 22  54 77 6f 20 69 6e 20 6f  |0..^1. "Two in o|
00000e60  6e 65 2c 20 6f 6e 65 20  69 6e 20 74 68 65 20 6f  |ne, one in the o|
00000e70  74 68 65 72 20 2d 20 6c  65 66 74 22 2c 20 30 34  |ther - left", 04|
00000e80  34 34 0d 01 68 19 dc 20  22 34 20 62 61 6c 6c 20  |44..h.. "4 ball |
00000e90  66 6f 75 6e 74 61 69 6e  22 2c 34 0d 01 72 26 dc  |fountain",4..r&.|
00000ea0  20 22 60 35 20 62 61 6c  6c 20 63 61 73 63 61 64  | "`5 ball cascad|
00000eb0  65 20 2d 20 53 74 65 70  20 62 79 20 73 74 65 70  |e - Step by step|
00000ec0  22 0d 01 7c 18 dc 20 22  54 77 6f 20 62 61 6c 6c  |"..|.. "Two ball|
00000ed0  73 22 2c 20 35 30 35 30  30 0d 01 86 1a dc 20 22  |s", 50500..... "|
00000ee0  54 68 72 65 65 20 62 61  6c 6c 73 22 2c 20 35 32  |Three balls", 52|
00000ef0  35 31 32 0d 01 90 1f dc  20 22 54 68 72 65 65 20  |512..... "Three |
00000f00  62 61 6c 6c 20 63 68 61  73 65 22 2c 20 35 30 35  |ball chase", 505|
00000f10  30 35 0d 01 9a 1f dc 20  22 54 68 72 65 65 20 62  |05..... "Three b|
00000f20  61 6c 6c 20 66 6c 61 73  68 22 2c 20 35 35 35 30  |all flash", 5550|
00000f30  30 0d 01 a4 19 dc 20 22  46 6f 75 72 20 62 61 6c  |0..... "Four bal|
00000f40  6c 73 22 2c 20 35 35 35  35 30 0d 01 ae 19 dc 20  |ls", 55550..... |
00000f50  22 35 20 62 61 6c 6c 20  63 61 73 63 61 64 65 22  |"5 ball cascade"|
00000f60  2c 20 35 0d 01 b8 1f dc  20 22 60 4d 6f 72 65 20  |, 5..... "`More |
00000f70  61 64 76 61 6e 63 65 64  20 70 61 74 74 65 72 6e  |advanced pattern|
00000f80  73 22 0d 01 c2 19 dc 20  22 36 20 62 61 6c 6c 20  |s"..... "6 ball |
00000f90  66 6f 75 6e 74 61 69 6e  22 2c 36 0d 01 cc 18 dc  |fountain",6.....|
00000fa0  20 22 37 20 62 61 6c 6c  20 63 61 73 63 61 64 65  | "7 ball cascade|
00000fb0  22 2c 37 0d 01 d6 19 dc  20 22 38 20 62 61 6c 6c  |",7..... "8 ball|
00000fc0  20 66 6f 75 6e 74 61 69  6e 22 2c 38 0d 01 e0 18  | fountain",8....|
00000fd0  dc 20 22 39 20 62 61 6c  6c 20 63 61 73 63 61 64  |. "9 ball cascad|
00000fe0  65 22 2c 39 0d 01 ea 26  dc 20 22 33 20 63 61 73  |e",9...&. "3 cas|
00000ff0  63 61 64 65 20 2d 3e 20  33 20 66 6c 61 73 68 22  |cade -> 3 flash"|
00001000  2c 33 33 33 33 35 35 35  30 30 0d 01 f4 2c dc 20  |,333355500...,. |
00001010  22 43 72 6f 73 73 69 6e  67 20 61 20 34 20 62 61  |"Crossing a 4 ba|
00001020  6c 6c 20 66 6f 75 6e 74  61 69 6e 22 2c 34 34 34  |ll fountain",444|
00001030  34 34 37 33 33 33 0d 01  fe 2b dc 20 22 33 20 69  |447333...+. "3 i|
00001040  6e 20 6f 6e 65 20 68 61  6e 64 2c 20 74 77 6f 20  |n one hand, two |
00001050  69 6e 20 74 68 65 20 6f  74 68 65 72 22 2c 20 36  |in the other", 6|
00001060  34 0d 02 08 1b dc 20 22  60 53 69 74 65 20 73 77  |4..... "`Site sw|
00001070  61 70 20 70 61 74 74 65  72 6e 73 22 0d 02 12 10  |ap patterns"....|
00001080  dc 20 22 34 34 31 22 2c  20 34 34 31 0d 02 1c 10  |. "441", 441....|
00001090  dc 20 22 34 35 30 22 2c  20 34 35 30 0d 02 26 10  |. "450", 450..&.|
000010a0  dc 20 22 34 35 33 22 2c  20 34 35 33 0d 02 30 10  |. "453", 453..0.|
000010b0  dc 20 22 35 30 31 22 2c  20 35 30 31 0d 02 3a 10  |. "501", 501..:.|
000010c0  dc 20 22 35 33 31 22 2c  20 35 33 31 0d 02 44 10  |. "531", 531..D.|
000010d0  dc 20 22 35 36 31 22 2c  20 35 36 31 0d 02 4e 10  |. "561", 561..N.|
000010e0  dc 20 22 37 32 30 22 2c  20 37 32 30 0d 02 58 10  |. "720", 720..X.|
000010f0  dc 20 22 37 34 31 22 2c  20 37 34 31 0d 02 62 10  |. "741", 741..b.|
00001100  dc 20 22 37 34 34 22 2c  20 37 34 34 0d 02 6c 10  |. "744", 744..l.|
00001110  dc 20 22 37 35 33 22 2c  20 37 35 33 0d 02 76 12  |. "753", 753..v.|
00001120  dc 20 22 36 34 32 34 22  2c 20 36 34 32 34 0d 02  |. "6424", 6424..|
00001130  80 10 dc 20 22 60 53 68  6f 77 65 72 73 22 0d 02  |... "`Showers"..|
00001140  8a 19 dc 20 22 32 20 62  61 6c 6c 20 73 68 6f 77  |... "2 ball show|
00001150  65 72 22 2c 20 33 31 0d  02 94 19 dc 20 22 33 20  |er", 31..... "3 |
00001160  62 61 6c 6c 20 73 68 6f  77 65 72 22 2c 20 35 31  |ball shower", 51|
00001170  0d 02 9e 19 dc 20 22 34  20 62 61 6c 6c 20 73 68  |..... "4 ball sh|
00001180  6f 77 65 72 22 2c 20 37  31 0d 02 a8 19 dc 20 22  |ower", 71..... "|
00001190  35 20 62 61 6c 6c 20 73  68 6f 77 65 72 22 2c 20  |5 ball shower", |
000011a0  39 31 0d 02 b2 0e dc 20  22 20 20 20 20 22 2c 33  |91..... "    ",3|
000011b0  0d 02 bc 04 0d 02 c6 0c  dc 20 22 60 27 27 27 22  |......... "`'''"|
000011c0  0d 02 d0 05 e1 0d 02 da  05 3a 0d 02 e4 0d dd 20  |.........:..... |
000011d0  f2 73 65 74 5f 75 70 0d  02 ee 18 f2 63 72 65 61  |.set_up.....crea|
000011e0  74 65 5f 63 6f 6c 6f 75  72 5f 74 61 62 6c 65 0d  |te_colour_table.|
000011f0  02 f8 20 73 63 72 65 65  6e 79 25 3d 31 30 32 34  |.. screeny%=1024|
00001200  3a 20 73 63 72 65 65 6e  78 25 3d 31 32 38 30 0d  |: screenx%=1280.|
00001210  03 02 25 62 61 6c 6c 79  25 3d 73 63 72 65 65 6e  |..%bally%=screen|
00001220  79 25 2f 34 30 3a 20 62  61 6c 6c 78 25 3d 62 61  |y%/40: ballx%=ba|
00001230  6c 6c 79 25 0d 03 0c 26  72 68 61 6e 64 25 3d 62  |lly%...&rhand%=b|
00001240  61 6c 6c 78 25 2a 34 3a  6d 69 64 78 25 3d 30 2e  |allx%*4:midx%=0.|
00001250  35 2a 73 63 72 65 65 6e  78 25 0d 03 16 36 68 65  |5*screenx%...6he|
00001260  69 67 68 74 79 25 3d 30  2e 38 2a 73 63 72 65 65  |ighty%=0.8*scree|
00001270  6e 79 25 3a 62 61 73 65  79 25 3d 31 32 35 3a 67  |ny%:basey%=125:g|
00001280  66 25 3d 31 32 38 3a 6e  6d 61 78 25 3d 32 35 30  |f%=128:nmax%=250|
00001290  0d 03 20 36 de 20 67 61  25 28 6e 6d 61 78 25 29  |.. 6. ga%(nmax%)|
000012a0  20 20 3a de 20 67 62 25  28 39 29 3a de 20 67 63  |  :. gb%(9):. gc|
000012b0  25 28 39 29 3a de 20 67  64 25 28 39 29 3a de 20  |%(9):. gd%(9):. |
000012c0  67 65 25 28 39 29 0d 03  2a 3f de 20 67 6b 25 28  |ge%(9)..*?. gk%(|
000012d0  39 2c 67 66 25 2a 39 29  3a de 20 67 6c 25 28 39  |9,gf%*9):. gl%(9|
000012e0  2c 67 66 25 2a 39 29 3a  de 20 67 68 25 28 31 2c  |,gf%*9):. gh%(1,|
000012f0  32 2a 67 66 25 29 3a de  20 67 69 25 28 31 2c 32  |2*gf%):. gi%(1,2|
00001300  2a 67 66 25 29 0d 03 34  14 67 66 25 3d 35 30 3a  |*gf%)..4.gf%=50:|
00001310  72 32 25 3d 32 2a 67 66  25 0d 03 3e 05 e1 0d 03  |r2%=2*gf%..>....|
00001320  48 05 3a 0d 03 52 18 dd  20 f2 73 74 72 69 6e 67  |H.:..R.. .string|
00001330  5f 74 6f 5f 70 61 74 74  65 72 6e 0d 03 5c 3a e7  |_to_pattern..\:.|
00001340  20 a9 70 24 3e 6e 6d 61  78 25 20 8c 20 f2 5f 65  | .p$>nmax% . ._e|
00001350  72 72 6f 72 28 22 73 74  72 32 70 61 74 22 2c 70  |rror("str2pat",p|
00001360  24 2c 22 50 61 74 74 65  72 6e 20 74 6f 6f 20 62  |$,"Pattern too b|
00001370  69 67 21 22 29 0d 03 66  09 67 6a 25 3d 30 0d 03  |ig!")..f.gj%=0..|
00001380  70 10 e3 20 69 25 3d 31  20 b8 20 a9 70 24 0d 03  |p.. i%=1 . .p$..|
00001390  7a 12 20 20 61 24 3d c1  70 24 2c 69 25 2c 31 29  |z.  a$=.p$,i%,1)|
000013a0  0d 03 84 14 20 20 67 61  25 28 67 6a 25 29 3d bb  |....  ga%(gj%)=.|
000013b0  28 61 24 29 0d 03 8e 0c  20 20 67 6a 25 2b 3d 31  |(a$)....  gj%+=1|
000013c0  0d 03 98 08 ed 20 69 25  0d 03 a2 0d e7 20 67 6a  |..... i%..... gj|
000013d0  25 3d 30 20 8c 0d 03 ac  0e 20 20 67 61 25 28 30  |%=0 .....  ga%(0|
000013e0  29 3d 33 0d 03 b6 0b 20  20 67 6a 25 3d 31 0d 03  |)=3....  gj%=1..|
000013f0  c0 05 cd 0d 03 ca 11 e7  20 28 67 6a 25 20 80 20  |........ (gj% . |
00001400  31 29 20 8c 0d 03 d4 15  20 20 e7 20 32 2a 67 6a  |1) .....  . 2*gj|
00001410  25 3e 6e 6d 61 78 25 20  8c 0d 03 de 30 20 20 20  |%>nmax% ....0   |
00001420  20 f2 5f 65 72 72 6f 72  28 22 73 74 72 32 70 61  | ._error("str2pa|
00001430  74 22 2c 70 24 2c 22 50  61 74 74 65 72 6e 20 74  |t",p$,"Pattern t|
00001440  6f 6f 20 62 69 67 21 22  29 0d 03 e8 0c 20 20 20  |oo big!")....   |
00001450  20 6f 6b 3d a3 0d 03 f2  07 20 20 cc 0d 03 fc 16  | ok=.....  .....|
00001460  20 20 20 20 e3 20 69 25  3d 30 20 b8 20 67 6a 25  |    . i%=0 . gj%|
00001470  2d 31 0d 04 06 1d 20 20  20 20 20 20 67 61 25 28  |-1....      ga%(|
00001480  67 6a 25 2b 69 25 29 3d  67 61 25 28 69 25 29 0d  |gj%+i%)=ga%(i%).|
00001490  04 10 0c 20 20 20 20 ed  20 69 25 0d 04 1a 11 20  |...    . i%.... |
000014a0  20 20 20 67 6a 25 3d 32  2a 67 6a 25 0d 04 24 07  |   gj%=2*gj%..$.|
000014b0  20 20 cd 0d 04 2e 05 cd  0d 04 38 33 f2 73 75 6d  |  ........83.sum|
000014c0  5f 74 68 65 5f 70 61 74  74 65 72 6e 20 20 20 20  |_the_pattern    |
000014d0  20 20 20 20 20 20 3a 20  f4 20 49 6e 74 65 72 6e  |      : . Intern|
000014e0  61 6c 20 63 68 65 63 6b  69 6e 67 0d 04 42 2c f2  |al checking..B,.|
000014f0  66 69 6e 64 5f 6e 75 6d  62 65 72 5f 6f 66 5f 62  |find_number_of_b|
00001500  61 6c 6c 73 20 20 20 20  20 3a 20 f4 20 28 50 72  |alls     : . (Pr|
00001510  6f 62 61 62 6c 79 29 0d  04 4c 1f f2 76 61 6c 69  |obably)..L..vali|
00001520  64 69 61 74 65 5f 74 68  65 5f 70 61 74 74 65 72  |diate_the_patter|
00001530  6e 20 20 20 20 3a 0d 04  56 0e e7 20 6d 61 78 25  |n    :..V.. max%|
00001540  3e 31 20 8c 0d 04 60 2a  20 20 67 6d 3d 68 65 69  |>1 ...`*  gm=hei|
00001550  67 68 74 79 25 2f 30 2e  32 35 2f 28 28 6d 61 78  |ghty%/0.25/((max|
00001560  25 2d 31 29 2a 28 6d 61  78 25 2d 31 29 29 0d 04  |%-1)*(max%-1))..|
00001570  6a 05 cc 0d 04 74 11 20  20 67 6d 3d 68 65 69 67  |j....t.  gm=heig|
00001580  68 74 79 25 0d 04 7e 05  cd 0d 04 88 05 e1 0d 04  |hty%..~.........|
00001590  92 05 3a 0d 04 9c 18 dd  20 f2 73 75 6d 5f 74 68  |..:..... .sum_th|
000015a0  65 5f 70 61 74 74 65 72  6e 20 20 0d 04 a6 14 20  |e_pattern  .... |
000015b0  20 73 75 6d 3d 30 3a 20  6d 61 78 25 3d 2d 31 0d  | sum=0: max%=-1.|
000015c0  04 b0 14 20 20 e3 20 69  25 3d 30 20 b8 20 67 6a  |...  . i%=0 . gj|
000015d0  25 2d 31 0d 04 ba 1a 20  20 20 20 61 25 3d 67 61  |%-1....    a%=ga|
000015e0  25 28 69 25 29 3a 73 75  6d 2b 3d 61 25 0d 04 c4  |%(i%):sum+=a%...|
000015f0  1b 20 20 20 20 e7 20 61  25 3e 6d 61 78 25 20 8c  |.    . a%>max% .|
00001600  20 6d 61 78 25 3d 61 25  0d 04 ce 0a 20 20 ed 20  | max%=a%....  . |
00001610  69 25 0d 04 d8 05 e1 0d  04 e2 05 3a 0d 04 ec 1b  |i%.........:....|
00001620  dd 20 f2 66 69 6e 64 5f  6e 75 6d 62 65 72 5f 6f  |. .find_number_o|
00001630  66 5f 62 61 6c 6c 73 0d  04 f6 0e 6e 62 3d 73 75  |f_balls....nb=su|
00001640  6d 2f 67 6a 25 0d 05 00  13 e7 20 6e 62 2d a8 28  |m/gj%..... nb-.(|
00001650  6e 62 29 3c 3e 30 20 8c  0d 05 0a 3a 20 20 f2 5f  |nb)<>0 ....:  ._|
00001660  65 72 72 6f 72 28 22 46  69 6e 64 5f 4e 75 6d 22  |error("Find_Num"|
00001670  2c 70 24 2c 22 54 68 69  73 20 6e 65 65 64 73 20  |,p$,"This needs |
00001680  22 2b c3 28 6e 62 29 2b  22 20 62 61 6c 6c 73 21  |"+.(nb)+" balls!|
00001690  22 29 0d 05 14 05 cd 0d  05 1e 10 6e 62 61 6c 6c  |").........nball|
000016a0  25 3d a8 28 6e 62 29 0d  05 28 05 e1 0d 05 32 05  |%=.(nb)..(....2.|
000016b0  3a 0d 05 3c 1c dd 20 f2  76 61 6c 69 64 69 61 74  |:..<.. .validiat|
000016c0  65 5f 74 68 65 5f 70 61  74 74 65 72 6e 0d 05 46  |e_the_pattern..F|
000016d0  0d e7 20 67 6a 25 3e 31  20 8c 0d 05 50 14 20 20  |.. gj%>1 ...P.  |
000016e0  e3 20 69 25 3d 30 20 b8  20 67 6a 25 2d 32 0d 05  |. i%=0 . gj%-2..|
000016f0  5a 19 20 20 20 20 e3 20  6a 25 3d 69 25 2b 31 20  |Z.    . j%=i%+1 |
00001700  b8 20 67 6a 25 2d 31 0d  05 64 56 20 20 20 20 20  |. gj%-1..dV     |
00001710  20 e7 20 67 61 25 28 69  25 29 2b 69 25 3d 67 61  | . ga%(i%)+i%=ga|
00001720  25 28 6a 25 29 2b 6a 25  20 8c 20 f2 5f 65 72 72  |%(j%)+j% . ._err|
00001730  6f 72 28 22 56 61 6c 69  64 22 2c 70 24 2c 22 54  |or("Valid",p$,"T|
00001740  68 69 73 20 6e 65 65 64  73 20 6d 75 6c 74 69 70  |his needs multip|
00001750  6c 65 20 63 61 74 63 68  69 6e 67 22 29 0d 05 6e  |le catching")..n|
00001760  0c 20 20 20 20 ed 20 6a  25 0d 05 78 0a 20 20 ed  |.    . j%..x.  .|
00001770  20 69 25 0d 05 82 05 cd  0d 05 8c 05 e1 0d 05 96  | i%.............|
00001780  05 3a 0d 05 a0 15 dd 20  f2 63 61 6c 63 5f 68 61  |.:..... .calc_ha|
00001790  6e 64 5f 70 6f 73 73 0d  05 aa 08 eb 20 31 33 0d  |nd_poss..... 13.|
000017a0  05 b4 13 e3 20 67 67 25  3d 30 20 b8 20 72 32 25  |.... gg%=0 . r2%|
000017b0  2d 31 0d 05 be 11 20 20  74 3d af 2a 67 67 25 2f  |-1....  t=.*gg%/|
000017c0  67 66 25 0d 05 c8 5c 20  20 67 68 25 28 30 2c 67  |gf%...\  gh%(0,g|
000017d0  67 25 29 3d 6d 69 64 78  25 20 2b 20 33 30 2a 28  |g%)=midx% + 30*(|
000017e0  31 32 2d 6d 61 78 25 29  20 2d 20 37 2a 28 31 32  |12-max%) - 7*(12|
000017f0  2d 6d 61 78 25 29 2a b5  28 74 29 3a 67 69 25 28  |-max%)*.(t):gi%(|
00001800  30 2c 67 67 25 29 3d 62  61 73 65 79 25 2b 28 31  |0,gg%)=basey%+(1|
00001810  32 2d 6e 6d 61 78 25 29  2a 9b 28 74 29 2f 36 0d  |2-nmax%)*.(t)/6.|
00001820  05 d2 5c 20 20 67 68 25  28 31 2c 67 67 25 29 3d  |..\  gh%(1,gg%)=|
00001830  6d 69 64 78 25 20 2d 20  33 30 2a 28 31 32 2d 6d  |midx% - 30*(12-m|
00001840  61 78 25 29 20 2d 20 37  2a 28 31 32 2d 6d 61 78  |ax%) - 7*(12-max|
00001850  25 29 2a b5 28 74 29 3a  67 69 25 28 31 2c 67 67  |%)*.(t):gi%(1,gg|
00001860  25 29 3d 62 61 73 65 79  25 2d 28 31 32 2d 6e 6d  |%)=basey%-(12-nm|
00001870  61 78 25 29 2a 9b 28 74  29 2f 36 0d 05 dc 05 ed  |ax%)*.(t)/6.....|
00001880  0d 05 e6 60 73 68 6f 75  6c 64 65 72 79 25 3d 62  |...`shouldery%=b|
00001890  61 73 65 79 25 2b 28 31  32 2d 6d 61 78 25 29 2a  |asey%+(12-max%)*|
000018a0  31 35 3a 73 68 6f 75 6c  64 65 72 78 31 25 3d 6d  |15:shoulderx1%=m|
000018b0  69 64 78 25 2b 31 38 2a  28 31 32 2d 6d 61 78 25  |idx%+18*(12-max%|
000018c0  29 3a 73 68 6f 75 6c 64  65 72 78 32 25 3d 6d 69  |):shoulderx2%=mi|
000018d0  64 78 25 2d 31 38 2a 28  31 32 2d 6d 61 78 25 29  |dx%-18*(12-max%)|
000018e0  0d 05 f0 05 e1 0d 05 fa  05 3a 0d 06 04 17 dd 20  |.........:..... |
000018f0  f2 5f 65 72 72 6f 72 28  41 24 2c 42 24 2c 43 24  |._error(A$,B$,C$|
00001900  29 0d 06 0e 31 eb 20 30  3a f1 20 22 49 6e 74 65  |)...1. 0:. "Inte|
00001910  72 6e 61 6c 20 65 72 72  6f 72 20 2d 20 70 72 6f  |rnal error - pro|
00001920  67 72 61 6d 20 74 65 72  6d 69 6e 61 74 69 6e 67  |gram terminating|
00001930  2e 22 0d 06 18 38 f1 20  27 22 44 65 74 61 69 6c  |."...8. '"Detail|
00001940  73 20 3a 22 3a f1 20 22  50 52 4f 43 20 20 20 20  |s :":. "PROC    |
00001950  20 20 3a 22 3b 41 24 3a  f1 20 22 50 41 54 54 45  |  :";A$:. "PATTE|
00001960  52 4e 20 20 20 3a 22 3b  42 24 0d 06 22 18 f1 20  |RN   :";B$..".. |
00001970  22 4d 4f 52 45 20 49 4e  46 4f 20 3a 22 3b 43 24  |"MORE INFO :";C$|
00001980  3a fa 0d 06 2c 05 e1 0d  06 36 05 3a 0d 06 40 0b  |:...,....6.:..@.|
00001990  dd 20 f2 69 6e 69 74 0d  06 4a 17 f2 73 65 74 5f  |. .init..J..set_|
000019a0  75 70 3a eb 20 31 35 3a  eb 20 31 33 3a 87 0d 06  |up:. 15:. 13:...|
000019b0  54 16 de 20 70 61 74 74  65 72 6e 73 24 28 31 30  |T.. patterns$(10|
000019c0  30 2c 31 29 0d 06 5e 0f  f7 20 8d 54 4a 40 3a 63  |0,1)..^.. .TJ@:c|
000019d0  25 3d 30 0d 06 68 05 f5  0d 06 72 0a 20 20 f3 20  |%=0..h....r.  . |
000019e0  61 24 0d 06 7c 1b 20 20  70 61 74 74 65 72 6e 73  |a$..|.  patterns|
000019f0  24 28 63 25 2c 31 29 3d  22 7a 7a 7a 22 0d 06 86  |$(c%,1)="zzz"...|
00001a00  15 20 20 e7 20 c0 61 24  2c 31 29 3c 3e 22 60 22  |.  . .a$,1)<>"`"|
00001a10  20 8c 0d 06 90 1f 20 20  20 20 f3 20 62 24 3a 70  | .....    . b$:p|
00001a20  61 74 74 65 72 6e 73 24  28 63 25 2c 31 29 3d 62  |atterns$(c%,1)=b|
00001a30  24 0d 06 9a 08 20 20 20  cc 0d 06 a4 15 20 20 20  |$....   .....   |
00001a40  20 61 24 3d c1 61 24 2c  32 2c 32 35 36 29 0d 06  | a$=.a$,2,256)..|
00001a50  ae 07 20 20 cd 0d 06 b8  1e 20 20 70 61 74 74 65  |..  .....  patte|
00001a60  72 6e 73 24 28 63 25 2c  30 29 3d 61 24 3a 63 25  |rns$(c%,0)=a$:c%|
00001a70  2b 3d 31 0d 06 c2 0e fd  20 61 24 3d 22 27 27 27  |+=1..... a$="'''|
00001a80  22 0d 06 cc 83 de 20 6a  75 67 67 6c 65 25 20 36  |"..... juggle% 6|
00001a90  30 30 30 3a 6a 75 67 67  6c 65 25 21 30 3d 36 30  |000:juggle%!0=60|
00001aa0  30 30 3a 6a 75 67 67 6c  65 25 21 38 3d 31 36 3a  |00:juggle%!8=16:|
00001ab0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00001ac0  2c 32 35 36 2b 39 2c 6a  75 67 67 6c 65 25 3a c8  |,256+9,juggle%:.|
00001ad0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00001ae0  32 35 36 2b 31 30 2c 6a  75 67 67 6c 65 25 2c 22  |256+10,juggle%,"|
00001af0  3c 4a 75 67 67 6c 65 24  44 69 72 3e 2e 53 70 72  |<Juggle$Dir>.Spr|
00001b00  69 74 65 22 0d 06 d6 05  e1 0d 06 e0 05 3a 0d 06  |ite".........:..|
00001b10  ea 15 dd 20 f2 6a 75 67  67 6c 65 5f 70 61 74 74  |... .juggle_patt|
00001b20  65 72 6e 0d 06 f4 3e f2  73 74 72 69 6e 67 5f 74  |ern...>.string_t|
00001b30  6f 5f 70 61 74 74 65 72  6e 3a f2 63 61 6c 63 5f  |o_pattern:.calc_|
00001b40  68 61 6e 64 5f 70 6f 73  73 3a f2 63 61 6c 63 5f  |hand_poss:.calc_|
00001b50  62 61 6c 6c 73 5f 70 6f  73 3a f2 6a 75 67 67 6c  |balls_pos:.juggl|
00001b60  65 0d 06 fe 05 e1 0d 07  08 05 3a 0d 07 12 14 dd  |e.........:.....|
00001b70  f2 63 61 6c 63 5f 62 61  6c 6c 73 5f 70 6f 73 0d  |.calc_balls_pos.|
00001b80  07 1c 37 f4 20 4f 6e 6c  79 20 64 6f 20 69 74 20  |..7. Only do it |
00001b90  66 6f 72 20 74 68 65 20  62 61 6c 6c 73 20 74 68  |for the balls th|
00001ba0  61 74 20 61 72 65 20 69  6e 20 74 68 65 20 70 61  |at are in the pa|
00001bb0  74 74 65 72 6e 21 0d 07  26 0e e3 20 70 25 3d 31  |ttern!..&.. p%=1|
00001bc0  20 b8 20 39 0d 07 30 13  20 e7 20 a7 70 24 2c c3  | . 9..0. . .p$,.|
00001bd0  28 70 25 29 29 20 8c 0d  07 3a 11 20 20 73 68 25  |(p%)) ...:.  sh%|
00001be0  3d 30 3a 68 25 3d 70 25  0d 07 44 26 20 20 e7 20  |=0:h%=p%..D&  . |
00001bf0  28 68 25 20 80 20 31 29  20 8c 20 66 68 25 3d 31  |(h% . 1) . fh%=1|
00001c00  2d 73 68 25 20 8b 20 66  68 25 3d 73 68 25 0d 07  |-sh% . fh%=sh%..|
00001c10  4e 0e 20 20 e7 20 68 25  3e 31 20 8c 0d 07 58 2a  |N.  . h%>1 ...X*|
00001c20  20 20 20 20 6b 30 25 3d  67 66 25 2f 32 3a 6b 31  |    k0%=gf%/2:k1|
00001c30  25 3d 28 68 25 2a 67 66  25 2d 67 66 25 2f 32 29  |%=(h%*gf%-gf%/2)|
00001c40  20 83 20 72 32 25 0d 07  62 07 20 20 cc 0d 07 6c  | . r2%..b.  ...l|
00001c50  15 20 20 20 20 6b 30 25  3d 30 3a 6b 31 25 3d 67  |.    k0%=0:k1%=g|
00001c60  66 25 0d 07 76 07 20 20  cd 0d 07 80 4b 20 20 73  |f%..v.  ....K  s|
00001c70  78 25 3d 67 68 25 28 73  68 25 2c 6b 30 25 29 3a  |x%=gh%(sh%,k0%):|
00001c80  20 73 79 25 3d 67 69 25  28 73 68 25 2c 6b 30 25  | sy%=gi%(sh%,k0%|
00001c90  29 3a 66 78 25 3d 67 68  25 28 66 68 25 2c 6b 31  |):fx%=gh%(fh%,k1|
00001ca0  25 29 3a 20 66 79 25 3d  67 69 25 28 66 68 25 2c  |%): fy%=gi%(fh%,|
00001cb0  6b 31 25 29 0d 07 8a 0d  20 20 c8 8e 20 68 25 20  |k1%)....  .. h% |
00001cc0  ca 0d 07 94 16 20 20 c9  20 33 2c 34 2c 35 2c 36  |.....  . 3,4,5,6|
00001cd0  2c 37 2c 38 2c 39 3a 0d  07 9e 1a 20 20 20 20 e3  |,7,8,9:....    .|
00001ce0  20 67 67 25 3d 30 20 b8  20 68 25 2a 67 66 25 2d  | gg%=0 . h%*gf%-|
00001cf0  31 0d 07 a8 14 20 20 20  20 20 20 74 69 3d 67 67  |1....      ti=gg|
00001d00  25 2f 67 66 25 0d 07 b2  16 20 20 20 20 20 20 71  |%/gf%....      q|
00001d10  25 3d 67 67 25 20 83 20  72 32 25 0d 07 bc 14 20  |%=gg% . r2%.... |
00001d20  20 20 20 20 20 e7 20 74  69 3c 30 2e 35 20 8c 0d  |     . ti<0.5 ..|
00001d30  07 c6 29 20 20 20 20 20  20 20 20 78 25 3d 67 68  |..)        x%=gh|
00001d40  25 28 73 68 25 2c 71 25  29 3a 79 25 3d 67 69 25  |%(sh%,q%):y%=gi%|
00001d50  28 73 68 25 2c 71 25 29  0d 07 d0 0b 20 20 20 20  |(sh%,q%)....    |
00001d60  20 20 cc 0d 07 da 19 20  20 20 20 20 20 20 20 e7  |  .....        .|
00001d70  20 74 69 3e 68 25 2d 30  2e 35 20 8c 0d 07 e4 2b  | ti>h%-0.5 ....+|
00001d80  20 20 20 20 20 20 20 20  20 20 78 25 3d 67 68 25  |          x%=gh%|
00001d90  28 66 68 25 2c 71 25 29  3a 79 25 3d 67 69 25 28  |(fh%,q%):y%=gi%(|
00001da0  66 68 25 2c 71 25 29 0d  07 ee 0d 20 20 20 20 20  |fh%,q%)....     |
00001db0  20 20 20 cc 0d 07 f8 5e  20 20 20 20 20 20 20 20  |   ....^        |
00001dc0  20 20 74 3d 28 74 69 2d  30 2e 35 29 2f 28 68 25  |  t=(ti-0.5)/(h%|
00001dd0  2d 31 29 3a 79 25 3d 28  66 79 25 2d 73 79 25 29  |-1):y%=(fy%-sy%)|
00001de0  2a 74 2b 73 79 25 2b 67  6d 2a 74 2a 28 31 2d 74  |*t+sy%+gm*t*(1-t|
00001df0  29 2a 28 68 25 2d 31 29  2a 28 68 25 2d 31 29 3a  |)*(h%-1)*(h%-1):|
00001e00  78 25 3d 28 66 78 25 2d  73 78 25 29 2a 74 2b 73  |x%=(fx%-sx%)*t+s|
00001e10  78 25 0d 08 02 0d 20 20  20 20 20 20 20 20 cd 0d  |x%....        ..|
00001e20  08 0c 0b 20 20 20 20 20  20 cd 0d 08 16 27 20 20  |...      ....'  |
00001e30  20 20 20 20 67 6b 25 28  70 25 2c 67 67 25 29 3d  |    gk%(p%,gg%)=|
00001e40  78 25 3a 67 6c 25 28 70  25 2c 67 67 25 29 3d 79  |x%:gl%(p%,gg%)=y|
00001e50  25 0d 08 20 0d 20 20 20  20 ed 20 67 67 25 0d 08  |%.. .    . gg%..|
00001e60  2a 0a 20 20 c9 20 32 3a  0d 08 34 1a 20 20 20 20  |*.  . 2:..4.    |
00001e70  e3 20 67 67 25 3d 30 20  b8 20 68 25 2a 67 66 25  |. gg%=0 . h%*gf%|
00001e80  2d 31 0d 08 3e 22 20 20  20 20 20 20 67 6b 25 28  |-1..>"      gk%(|
00001e90  70 25 2c 67 67 25 29 3d  67 68 25 28 73 68 25 2c  |p%,gg%)=gh%(sh%,|
00001ea0  67 67 25 29 0d 08 48 22  20 20 20 20 20 20 67 6c  |gg%)..H"      gl|
00001eb0  25 28 70 25 2c 67 67 25  29 3d 67 69 25 28 73 68  |%(p%,gg%)=gi%(sh|
00001ec0  25 2c 67 67 25 29 0d 08  52 0d 20 20 20 20 ed 20  |%,gg%)..R.    . |
00001ed0  67 67 25 0d 08 5c 0a 20  20 c9 20 31 3a 0d 08 66  |gg%..\.  . 1:..f|
00001ee0  17 20 20 20 20 e3 20 67  67 25 3d 30 20 b8 20 67  |.    . gg%=0 . g|
00001ef0  66 25 2d 31 0d 08 70 13  20 20 20 20 20 20 74 3d  |f%-1..p.      t=|
00001f00  67 67 25 2f 67 66 25 0d  08 7a 25 20 20 20 20 20  |gg%/gf%..z%     |
00001f10  20 67 6b 25 28 70 25 2c  67 67 25 29 3d 28 66 78  | gk%(p%,gg%)=(fx|
00001f20  25 2d 73 78 25 29 2a 74  2b 73 78 25 0d 08 84 32  |%-sx%)*t+sx%...2|
00001f30  20 20 20 20 20 20 67 6c  25 28 70 25 2c 67 67 25  |      gl%(p%,gg%|
00001f40  29 3d 28 66 79 25 2d 73  79 25 29 2a 74 2b 73 79  |)=(fy%-sy%)*t+sy|
00001f50  25 2b 32 2a 67 6d 2a 74  2a 28 31 2d 74 29 0d 08  |%+2*gm*t*(1-t)..|
00001f60  8e 0d 20 20 20 20 ed 20  67 67 25 0d 08 98 07 20  |..    . gg%.... |
00001f70  20 cb 0d 08 a2 06 20 cd  0d 08 ac 08 ed 20 70 25  | ..... ...... p%|
00001f80  0d 08 b6 05 e1 0d 08 c0  05 3a 0d 08 ca 08 dd 20  |.........:..... |
00001f90  f2 74 0d 08 d4 4c 73 73  25 3d 34 2a 28 28 30 2e  |.t...Lss%=4*((0.|
00001fa0  35 2a aa 28 67 6d 29 2a  aa 28 67 6d 29 29 20 81  |5*.(gm)*.(gm)) .|
00001fb0  20 34 29 3a 70 25 3d 28  70 25 2b 31 29 20 83 20  | 4):p%=(p%+1) . |
00001fc0  67 6a 25 3a 68 25 3d 67  61 25 28 70 25 29 3a 67  |gj%:h%=ga%(p%):g|
00001fd0  63 25 28 29 3d 67 63 25  28 29 2b 67 66 25 0d 08  |c%()=gc%()+gf%..|
00001fe0  de 0c e7 20 68 25 3e 30  20 8c 0d 08 e8 12 20 20  |... h%>0 .....  |
00001ff0  62 25 3d 2d 31 3a 20 63  25 3d 2d 31 0d 08 f2 17  |b%=-1: c%=-1....|
00002000  20 20 e3 20 69 25 3d 30  20 b8 20 6e 62 61 6c 6c  |  . i%=0 . nball|
00002010  25 2d 31 0d 08 fc 20 20  20 20 20 e7 20 67 63 25  |%-1...     . gc%|
00002020  28 69 25 29 3e 3d 67 66  25 2a 67 62 25 28 69 25  |(i%)>=gf%*gb%(i%|
00002030  29 20 8c 0d 09 06 26 20  20 20 20 20 20 e7 20 67  |) ....&      . g|
00002040  62 25 28 69 25 29 3e 3d  30 20 8c 20 62 25 3d 69  |b%(i%)>=0 . b%=i|
00002050  25 20 8b 20 63 25 3d 69  25 0d 09 10 09 20 20 20  |% . c%=i%....   |
00002060  20 cd 0d 09 1a 0a 20 20  ed 20 69 25 0d 09 24 15  | .....  . i%..$.|
00002070  20 20 e7 20 62 25 3d 2d  31 20 8c 20 62 25 3d 63  |  . b%=-1 . b%=c|
00002080  25 0d 09 2e 10 20 20 e7  20 62 25 3c 3e 2d 31 20  |%....  . b%<>-1 |
00002090  8c 0d 09 38 35 20 20 20  20 67 62 25 28 62 25 29  |...85    gb%(b%)|
000020a0  3d 68 25 3a 67 63 25 28  62 25 29 3d 30 3a 67 65  |=h%:gc%(b%)=0:ge|
000020b0  25 28 62 25 29 3d 70 25  3a 67 64 25 28 62 25 29  |%(b%)=p%:gd%(b%)|
000020c0  3d 68 61 6e 64 25 0d 09  42 07 20 20 cd 0d 09 4c  |=hand%..B.  ...L|
000020d0  05 cd 0d 09 56 13 e3 20  67 67 25 3d 30 20 b8 20  |....V.. gg%=0 . |
000020e0  67 66 25 2d 31 0d 09 60  18 20 20 e7 20 a6 20 2d  |gf%-1..`.  . . -|
000020f0  37 34 20 6d 65 6e 75 25  3d b9 20 3a e1 0d 09 6a  |74 menu%=. :...j|
00002100  1f 20 20 c8 99 20 36 2c  31 31 32 2c 62 61 6e 6b  |.  .. 6,112,bank|
00002110  25 3a e6 20 30 20 c8 9c  20 30 3a db 0d 09 74 27  |%:. 0 .. 0:...t'|
00002120  20 20 e6 20 36 30 3a 64  25 3d 72 68 61 6e 64 25  |  . 60:d%=rhand%|
00002130  2f 32 3a 74 25 3d 67 67  25 2b 67 66 25 2a 68 61  |/2:t%=gg%+gf%*ha|
00002140  6e 64 25 0d 09 7e 1e 20  20 e7 20 70 61 74 74 65  |nd%..~.  . patte|
00002150  72 6e 5f 6f 6e 25 20 f1  20 8a 30 2c 30 29 20 70  |rn_on% . .0,0) p|
00002160  24 0d 09 88 2a 20 20 e7  20 6e 75 6d 5f 6f 6e 25  |$...*  . num_on%|
00002170  20 f1 20 8a 30 2c 31 29  20 c3 28 6e 62 61 6c 6c  | . .0,1) .(nball|
00002180  25 29 2b 22 20 62 61 6c  6c 73 22 0d 09 92 17 20  |%)+" balls".... |
00002190  20 e3 20 69 25 3d 30 20  b8 20 6e 62 61 6c 6c 25  | . i%=0 . nball%|
000021a0  2d 31 0d 09 9c 16 20 20  20 20 e7 20 67 62 25 28  |-1....    . gb%(|
000021b0  69 25 29 3e 3d 30 20 8c  0d 09 a6 5a 20 20 20 20  |i%)>=0 ....Z    |
000021c0  20 20 74 25 3d 67 63 25  28 69 25 29 2b 67 67 25  |  t%=gc%(i%)+gg%|
000021d0  3a 68 25 3d 67 62 25 28  69 25 29 3a 78 25 3d 67  |:h%=gb%(i%):x%=g|
000021e0  6b 25 28 68 25 2c 74 25  29 3a 79 25 3d 67 6c 25  |k%(h%,t%):y%=gl%|
000021f0  28 68 25 2c 74 25 29 3a  e7 20 67 64 25 28 69 25  |(h%,t%):. gd%(i%|
00002200  29 20 8c 20 78 25 3d 73  63 72 65 65 6e 78 25 2d  |) . x%=screenx%-|
00002210  78 25 0d 09 b0 16 20 20  20 20 20 20 c8 8f 20 78  |x%....      .. x|
00002220  25 2c 79 25 2c 73 73 25  0d 09 ba 09 20 20 20 20  |%,y%,ss%....    |
00002230  cd 0d 09 c4 0a 20 20 ed  20 69 25 0d 09 ce 0f 20  |.....  . i%.... |
00002240  20 e6 20 25 31 30 31 30  31 31 0d 09 d8 11 20 20  | . %101011....  |
00002250  e7 20 68 61 6e 64 25 3d  30 20 8c 0d 09 e2 33 20  |. hand%=0 ....3 |
00002260  20 20 20 68 78 30 25 3d  67 68 25 28 30 2c 20 67  |   hx0%=gh%(0, g|
00002270  67 25 29 2d 73 73 25 2f  32 3a 68 79 30 25 3d 67  |g%)-ss%/2:hy0%=g|
00002280  69 25 28 30 2c 20 67 67  25 29 2d 73 73 25 0d 09  |i%(0, gg%)-ss%..|
00002290  ec 07 20 20 cc 0d 09 f6  3b 20 20 20 20 68 78 30  |..  ....;    hx0|
000022a0  25 3d 67 68 25 28 30 2c  20 67 67 25 2b 67 66 25  |%=gh%(0, gg%+gf%|
000022b0  29 2d 73 73 25 2f 32 3a  68 79 30 25 3d 67 69 25  |)-ss%/2:hy0%=gi%|
000022c0  28 30 2c 20 67 67 25 2b  67 66 25 29 2d 73 73 25  |(0, gg%+gf%)-ss%|
000022d0  0d 0a 00 07 20 20 cd 0d  0a 0a 34 20 20 f4 20 4c  |....  ....4  . L|
000022e0  49 4e 45 20 73 68 6f 75  6c 64 65 72 78 31 25 2c  |INE shoulderx1%,|
000022f0  20 73 68 6f 75 6c 64 65  72 79 25 2c 20 68 78 30  | shouldery%, hx0|
00002300  25 2b 73 73 25 2c 20 68  79 30 25 0d 0a 14 11 20  |%+ss%, hy0%.... |
00002310  20 e7 20 68 61 6e 64 25  3d 30 20 8c 0d 0a 1e 33  | . hand%=0 ....3|
00002320  20 20 20 20 68 78 31 25  3d 67 68 25 28 31 2c 20  |    hx1%=gh%(1, |
00002330  67 67 25 29 2d 73 73 25  2f 32 3a 68 79 31 25 3d  |gg%)-ss%/2:hy1%=|
00002340  67 69 25 28 31 2c 20 67  67 25 29 2d 73 73 25 0d  |gi%(1, gg%)-ss%.|
00002350  0a 28 07 20 20 cc 0d 0a  32 3b 20 20 20 20 68 78  |.(.  ...2;    hx|
00002360  31 25 3d 67 68 25 28 31  2c 20 67 67 25 2b 67 66  |1%=gh%(1, gg%+gf|
00002370  25 29 2d 73 73 25 2f 32  3a 68 79 31 25 3d 67 69  |%)-ss%/2:hy1%=gi|
00002380  25 28 31 2c 20 67 67 25  2b 67 66 25 29 2d 73 73  |%(1, gg%+gf%)-ss|
00002390  25 0d 0a 3c 07 20 20 cd  0d 0a 46 13 20 20 e7 20  |%..<.  ...F.  . |
000023a0  68 61 6e 64 73 5f 6f 6e  25 20 8c 0d 0a 50 3b 20  |hands_on% ...P; |
000023b0  20 20 20 86 20 68 78 31  25 2c 68 79 31 25 2c 68  |   . hx1%,hy1%,h|
000023c0  78 31 25 2b 73 73 25 2c  68 79 31 25 3a 86 20 68  |x1%+ss%,hy1%:. h|
000023d0  78 30 25 2c 68 79 30 25  2c 68 78 30 25 2b 73 73  |x0%,hy0%,hx0%+ss|
000023e0  25 2c 68 79 30 25 0d 0a  5a 07 20 20 cd 0d 0a 64  |%,hy0%..Z.  ...d|
000023f0  30 20 20 f4 20 4c 49 4e  45 20 73 68 6f 75 6c 64  |0  . LINE should|
00002400  65 72 78 32 25 2c 20 73  68 6f 75 6c 64 65 72 79  |erx2%, shouldery|
00002410  25 2c 20 68 78 31 25 2c  20 68 79 31 25 0d 0a 6e  |%, hx1%, hy1%..n|
00002420  08 20 20 c8 96 0d 0a 78  32 20 20 c8 99 20 36 2c  |.  ....x2  .. 6,|
00002430  31 31 33 2c 62 61 6e 6b  25 3a 62 61 6e 6b 25 3d  |113,bank%:bank%=|
00002440  62 61 6e 6b 25 20 82 20  33 3a e7 20 a6 20 2d 39  |bank% . 3:. . -9|
00002450  39 20 f2 77 61 69 74 0d  0a 82 09 ed 20 67 67 25  |9 .wait..... gg%|
00002460  0d 0a 8c 05 e1 0d 0a 96  05 3a 0d 0a a0 0d dd 20  |.........:..... |
00002470  f2 6a 75 67 67 6c 65 0d  0a aa 12 db 3a eb 20 31  |.juggle.....:. 1|
00002480  33 3a 62 61 6e 6b 25 3d  32 0d 0a b4 44 c8 99 20  |3:bank%=2...D.. |
00002490  36 2c 31 31 32 2c 62 61  6e 6b 25 3a db 3a c8 99  |6,112,bank%:.:..|
000024a0  20 36 2c 31 31 33 2c 62  61 6e 6b 25 3a 67 62 25  | 6,113,bank%:gb%|
000024b0  28 29 3d 2d 31 3a 67 63  25 28 29 3d 30 3a 70 25  |()=-1:gc%()=0:p%|
000024c0  3d 2d 31 3a 68 61 6e 64  25 3d 30 3a 87 0d 0a be  |=-1:hand%=0:....|
000024d0  05 f5 0d 0a c8 11 20 20  64 74 69 63 6b 3d 31 2f  |......  dtick=1/|
000024e0  67 66 25 0d 0a d2 07 20  20 f5 0d 0a dc 20 20 20  |gf%....  ....   |
000024f0  20 20 6d 65 6e 75 25 3d  a3 3a f2 74 3a 68 61 6e  |  menu%=.:.t:han|
00002500  64 25 3d 31 2d 68 61 6e  64 25 0d 0a e6 0d 20 20  |d%=1-hand%....  |
00002510  fd 20 6d 65 6e 75 25 0d  0a f0 0c fd 20 20 6d 65  |. menu%.....  me|
00002520  6e 75 25 0d 0a fa 05 e1  0d 0b 04 05 3a 0d 0b 0e  |nu%.........:...|
00002530  0b dd 20 f2 77 61 69 74  0d 0b 18 0f f5 3a fd 20  |.. .wait.....:. |
00002540  ac 20 a6 20 2d 39 39 0d  0b 22 12 c8 97 20 ee 3a  |. . -99.."... .:|
00002550  f5 3a fd 20 a6 20 2d 39  39 0d 0b 2c 0f f5 3a fd  |.:. . -99..,..:.|
00002560  20 ac 20 a6 20 2d 39 39  0d 0b 36 08 c8 97 20 87  | . . -99..6... .|
00002570  0d 0b 40 05 e1 0d 0b 4a  05 3a 0d 0b 54 38 f4 20  |..@....J.:..T8. |
00002580  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000025b0  2d 2d 0d 0b 5e 37 f4 20  3d 3d 3d 3d 3d 3d 3d 3d  |--..^7. ========|
000025c0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000025e0  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 0b 68 38 f4 20 2d  |=========..h8. -|
000025f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002620  2d 0d 0b 72 05 3a 0d 0b  7c 0b dd 20 f2 6d 65 6e  |-..r.:..|.. .men|
00002630  75 0d 0b 86 26 66 6c 61  67 25 3d a3 3a eb 20 31  |u...&flag%=.:. 1|
00002640  35 3a eb 20 31 32 3a db  3a 62 61 6e 6b 25 3d 31  |5:. 12:.:bank%=1|
00002650  3a 87 3a 63 25 3d 30 0d  0b 90 05 f5 0d 0b 9a 14  |:.:c%=0.........|
00002660  20 20 c8 99 20 36 2c 31  31 32 2c 62 61 6e 6b 25  |  .. 6,112,bank%|
00002670  0d 0b a4 07 20 20 db 0d  0b ae 38 20 20 c8 99 20  |....  ....8  .. |
00002680  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00002690  36 2b 33 34 2c 6a 75 67  67 6c 65 25 2c 22 6a 75  |6+34,juggle%,"ju|
000026a0  67 67 6c 65 22 2c 38 30  30 2c 38 38 30 2c 30 0d  |ggle",800,880,0.|
000026b0  0b b8 29 20 20 e3 20 63  25 3d 28 6d 65 6e 75 5f  |..)  . c%=(menu_|
000026c0  69 74 65 6d 25 29 20 b8  20 28 6d 65 6e 75 5f 69  |item%) . (menu_i|
000026d0  74 65 6d 25 2b 33 31 29  0d 0b c2 21 20 20 20 20  |tem%+31)...!    |
000026e0  e7 20 70 61 74 74 65 72  6e 73 24 28 63 25 2c 31  |. patterns$(c%,1|
000026f0  29 3d 22 7a 7a 7a 22 20  8c 0d 0b cc 0d 20 20 20  |)="zzz" .....   |
00002700  20 20 20 fb 20 36 0d 0b  d6 0a 20 20 20 20 20 cc  |   . 6....     .|
00002710  0d 0b e0 0d 20 20 20 20  20 20 fb 20 37 0d 0b ea  |....      . 7...|
00002720  09 20 20 20 20 cd 0d 0b  f4 2c 20 20 20 20 f1 20  |.    ....,    . |
00002730  8a 33 2c 63 25 2d 6d 65  6e 75 5f 69 74 65 6d 25  |.3,c%-menu_item%|
00002740  29 20 70 61 74 74 65 72  6e 73 24 28 63 25 2c 30  |) patterns$(c%,0|
00002750  29 3b 0d 0b fe 07 20 20  ed 0d 0c 08 09 20 20 e6  |);....  .....  .|
00002760  20 36 0d 0c 12 3c 20 20  86 20 37 30 30 2c 30 2c  | 6...<  . 700,0,|
00002770  37 30 30 2c 31 30 32 34  3a 86 20 37 30 30 2c 32  |700,1024:. 700,2|
00002780  34 30 2c 31 33 30 30 2c  32 34 30 3a 86 20 37 30  |40,1300,240:. 70|
00002790  30 2c 36 32 30 2c 31 33  30 30 2c 36 32 30 0d 0c  |0,620,1300,620..|
000027a0  1c 09 20 20 fb 20 36 0d  0c 26 31 20 20 f1 20 8a  |..  . 6..&1  . .|
000027b0  35 30 2c 31 33 29 22 53  70 65 65 64 22 3b 3a f1  |50,13)"Speed";:.|
000027c0  20 8a 35 30 2c 31 36 29  22 44 69 73 70 6c 61 79  | .50,16)"Display|
000027d0  20 68 61 6e 64 73 22 3b  0d 0c 30 45 20 20 f1 20  | hands";..0E  . |
000027e0  8a 35 30 2c 31 39 29 22  44 69 73 70 6c 61 79 20  |.50,19)"Display |
000027f0  70 61 74 74 65 72 6e 22  3b 3a f1 20 8a 35 30 2c  |pattern";:. .50,|
00002800  32 32 29 22 44 69 73 70  6c 61 79 20 6e 75 6d 62  |22)"Display numb|
00002810  65 72 20 6f 66 20 62 61  6c 6c 73 22 3b 0d 0c 3a  |er of balls";..:|
00002820  09 20 20 fb 20 37 0d 0c  44 16 20 20 f1 20 8a 35  |.  . 7..D.  . .5|
00002830  30 2c 31 34 29 c3 28 67  66 25 29 3b 0d 0c 4e 32  |0,14).(gf%);..N2|
00002840  20 20 e7 20 68 61 6e 64  73 5f 6f 6e 25 20 8c 20  |  . hands_on% . |
00002850  f1 20 8a 35 30 2c 31 37  29 22 59 65 73 22 20 8b  |. .50,17)"Yes" .|
00002860  20 f1 20 8a 35 30 2c 31  37 29 22 4e 6f 22 0d 0c  | . .50,17)"No"..|
00002870  58 34 20 20 e7 20 70 61  74 74 65 72 6e 5f 6f 6e  |X4  . pattern_on|
00002880  25 20 8c 20 f1 20 8a 35  30 2c 32 30 29 22 59 65  |% . . .50,20)"Ye|
00002890  73 22 20 8b 20 f1 20 8a  35 30 2c 32 30 29 22 4e  |s" . . .50,20)"N|
000028a0  6f 22 0d 0c 62 30 20 20  e7 20 6e 75 6d 5f 6f 6e  |o"..b0  . num_on|
000028b0  25 20 8c 20 f1 20 8a 35  30 2c 32 33 29 22 59 65  |% . . .50,23)"Ye|
000028c0  73 22 20 8b 20 f1 20 8a  35 30 2c 32 33 29 22 4e  |s" . . .50,23)"N|
000028d0  6f 22 0d 0c 6c 25 20 20  f1 20 8a 35 30 2c 36 29  |o"..l%  . .50,6)|
000028e0  20 22 20 20 42 79 20 47  72 61 68 61 6d 20 53 20  | "  By Graham S |
000028f0  53 61 76 61 67 65 22 0d  0c 76 25 20 20 f1 20 8a  |Savage"..v%  . .|
00002900  35 30 2c 37 29 20 22 20  20 2d 2d 43 6f 70 79 72  |50,7) "  --Copyr|
00002910  69 67 68 74 20 31 39 39  36 2d 2d 22 0d 0c 80 2d  |ight 1996--"...-|
00002920  20 20 f4 20 2a 2a 2a 2a  2a 20 20 20 20 20 20 20  |  . *****       |
00002930  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002940  20 20 20 20 20 20 20 20  2f 0d 0c 8a 3d 20 20 f4  |        /...=  .|
00002950  20 2a 20 20 20 2a 20 20  20 20 20 3d 3d 3d 3d 3d  | *   *     =====|
00002960  3d 3d 3d 3d 3d 3d 3d 3d  20 20 20 20 20 20 20 20  |========        |
00002970  20 20 20 20 3c 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |    < ==========|
00002980  3d 3d 3d 3d 3d 3d 0d 0c  94 2d 20 20 f4 20 2a 2a  |======...-  . **|
00002990  2a 2a 2a 20 20 20 20 20  20 20 20 20 20 20 20 20  |***             |
000029a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000029b0  20 20 5c 0d 0c 9e 2d 20  20 f1 20 8a 35 30 2c 32  |  \...-  . .50,2|
000029c0  35 29 20 22 8b 20 61 6e  64 20 8a 20 74 6f 20 73  |5) ". and . to s|
000029d0  65 6c 65 63 74 20 70 61  74 74 65 72 6e 2e 22 3b  |elect pattern.";|
000029e0  0d 0c a8 2b 20 20 f1 20  8a 35 30 2c 32 36 29 20  |...+  . .50,26) |
000029f0  22 88 20 61 6e 64 20 89  20 74 6f 20 61 6c 74 65  |". and . to alte|
00002a00  72 20 73 70 65 65 64 2e  89 22 3b 0d 0c b2 25 20  |r speed..";...% |
00002a10  20 f1 20 8a 35 30 2c 32  37 29 20 22 48 20 74 6f  | . .50,27) "H to|
00002a20  20 74 6f 67 67 6c 65 20  68 61 6e 64 73 2e 22 3b  | toggle hands.";|
00002a30  0d 0c bc 27 20 20 f1 20  8a 35 30 2c 32 38 29 20  |...'  . .50,28) |
00002a40  22 50 20 74 6f 20 74 6f  67 67 6c 65 20 70 61 74  |"P to toggle pat|
00002a50  74 65 72 6e 2e 22 3b 0d  0c c6 2f 20 20 f1 20 8a  |tern.";.../  . .|
00002a60  35 30 2c 32 39 29 20 22  42 20 74 6f 20 74 6f 67  |50,29) "B to tog|
00002a70  67 6c 65 20 6e 75 6d 62  65 72 20 6f 66 20 62 61  |gle number of ba|
00002a80  6c 6c 73 2e 22 3b 0d 0c  d0 1d 20 20 f1 20 8a 35  |lls.";....  . .5|
00002a90  30 2c 33 30 29 20 22 51  20 74 6f 20 71 75 69 74  |0,30) "Q to quit|
00002aa0  2e 22 3b 0d 0c da 23 20  20 f1 20 8a 35 30 2c 33  |.";...#  . .50,3|
00002ab0  31 29 20 22 52 65 74 75  72 6e 20 74 6f 20 73 74  |1) "Return to st|
00002ac0  61 72 74 2e 22 3b 0d 0c  e4 08 20 20 c8 96 0d 0c  |art.";....  ....|
00002ad0  ee 0d 20 20 66 6c 61 67  25 3d a3 0d 0c f8 10 20  |..  flag%=..... |
00002ae0  20 e7 20 a6 20 2d 35 38  20 20 8c 0d 0d 02 10 20  | . . -58  ..... |
00002af0  20 20 20 6d 61 72 6b 25  2d 3d 31 0d 0d 0c 36 20  |   mark%-=1...6 |
00002b00  20 20 20 e7 20 70 61 74  74 65 72 6e 73 24 28 6d  |   . patterns$(m|
00002b10  61 72 6b 25 2b 6d 65 6e  75 5f 69 74 65 6d 25 2c  |ark%+menu_item%,|
00002b20  31 29 3d 22 7a 7a 7a 22  20 6d 61 72 6b 25 2d 3d  |1)="zzz" mark%-=|
00002b30  31 0d 0d 16 23 20 20 20  20 e7 20 6d 61 72 6b 25  |1...#    . mark%|
00002b40  3c 3d 30 20 80 20 6d 65  6e 75 5f 69 74 65 6d 25  |<=0 . menu_item%|
00002b50  3e 30 20 8c 0d 0d 20 17  20 20 20 20 20 20 6d 65  |>0 ... .      me|
00002b60  6e 75 5f 69 74 65 6d 25  2d 3d 31 0d 0d 2a 12 20  |nu_item%-=1..*. |
00002b70  20 20 20 20 20 6d 61 72  6b 25 2b 3d 31 0d 0d 34  |     mark%+=1..4|
00002b80  09 20 20 20 20 cd 0d 0d  3e 1b 20 20 20 20 e7 20  |.    ...>.    . |
00002b90  6d 61 72 6b 25 3c 31 20  8c 20 6d 61 72 6b 25 3d  |mark%<1 . mark%=|
00002ba0  31 0d 0d 48 0f 20 20 20  20 66 6c 61 67 25 3d b9  |1..H.    flag%=.|
00002bb0  0d 0d 52 07 20 20 cd 0d  0d 5c 10 20 20 e7 20 a6  |..R.  ...\.  . .|
00002bc0  20 2d 34 32 20 20 8c 0d  0d 66 10 20 20 20 20 6d  | -42  ...f.    m|
00002bd0  61 72 6b 25 2b 3d 31 0d  0d 70 36 20 20 20 20 e7  |ark%+=1..p6    .|
00002be0  20 70 61 74 74 65 72 6e  73 24 28 6d 61 72 6b 25  | patterns$(mark%|
00002bf0  2b 6d 65 6e 75 5f 69 74  65 6d 25 2c 31 29 3d 22  |+menu_item%,1)="|
00002c00  7a 7a 7a 22 20 6d 61 72  6b 25 2b 3d 31 0d 0d 7a  |zzz" mark%+=1..z|
00002c10  25 20 20 20 20 e7 20 6d  61 72 6b 25 3e 3d 33 31  |%    . mark%>=31|
00002c20  20 80 20 6d 65 6e 75 5f  69 74 65 6d 25 3c 31 31  | . menu_item%<11|
00002c30  20 8c 0d 0d 84 20 20 20  20 20 20 20 6d 65 6e 75  | ....       menu|
00002c40  5f 69 74 65 6d 25 2b 3d  31 3a 6d 61 72 6b 25 2d  |_item%+=1:mark%-|
00002c50  3d 31 0d 0d 8e 09 20 20  20 20 cd 0d 0d 98 1d 20  |=1....    ..... |
00002c60  20 20 20 e7 20 6d 61 72  6b 25 3e 33 31 20 8c 20  |   . mark%>31 . |
00002c70  6d 61 72 6b 25 3d 33 31  0d 0d a2 0f 20 20 20 20  |mark%=31....    |
00002c80  66 6c 61 67 25 3d b9 0d  0d ac 07 20 20 cd 0d 0d  |flag%=.....  ...|
00002c90  b6 0f 20 20 e7 20 a6 20  2d 32 36 20 8c 0d 0d c0  |..  . . -26 ....|
00002ca0  28 20 20 20 20 66 6c 61  67 25 3d b9 3a 67 66 25  |(    flag%=.:gf%|
00002cb0  2d 3d 31 3a e7 20 67 66  25 3c 32 30 20 8c 20 67  |-=1:. gf%<20 . g|
00002cc0  66 25 3d 32 30 0d 0d ca  07 20 20 cd 0d 0d d4 10  |f%=20....  .....|
00002cd0  20 20 e7 20 a6 20 2d 31  32 32 20 8c 0d 0d de 2a  |  . . -122 ....*|
00002ce0  20 20 20 20 66 6c 61 67  25 3d b9 3a 67 66 25 2b  |    flag%=.:gf%+|
00002cf0  3d 31 3a e7 20 67 66 25  3e 31 32 37 20 8c 20 67  |=1:. gf%>127 . g|
00002d00  66 25 3d 31 32 37 0d 0d  e8 07 20 20 cd 0d 0d f2  |f%=127....  ....|
00002d10  27 20 20 e7 20 a6 20 2d  38 35 20 8c 20 68 61 6e  |'  . . -85 . han|
00002d20  64 73 5f 6f 6e 25 20 3d  20 ac 20 68 61 6e 64 73  |ds_on% = . hands|
00002d30  5f 6f 6e 25 0d 0d fc 2b  20 20 e7 20 a6 20 2d 35  |_on%...+  . . -5|
00002d40  36 20 8c 20 70 61 74 74  65 72 6e 5f 6f 6e 25 20  |6 . pattern_on% |
00002d50  3d 20 ac 20 70 61 74 74  65 72 6e 5f 6f 6e 25 0d  |= . pattern_on%.|
00002d60  0e 06 24 20 20 e7 20 a6  20 2d 31 30 31 20 8c 20  |..$  . . -101 . |
00002d70  6e 75 6d 5f 6f 6e 25 20  3d 20 ac 20 6e 75 6d 5f  |num_on% = . num_|
00002d80  6f 6e 25 0d 0e 10 0f 20  20 72 32 25 3d 67 66 25  |on%....  r2%=gf%|
00002d90  2a 32 0d 0e 1a 17 20 20  f1 20 8a 30 2c 20 6d 61  |*2....  . .0, ma|
00002da0  72 6b 25 29 22 2d 3e 22  3b 0d 0e 24 17 20 20 e7  |rk%)"->";..$.  .|
00002db0  20 a6 20 2d 31 37 20 8c  20 71 75 69 74 25 3d b9  | . -17 . quit%=.|
00002dc0  0d 0e 2e 27 20 20 c8 96  3a c8 99 20 36 2c 31 31  |...'  ..:.. 6,11|
00002dd0  33 2c 62 61 6e 6b 25 3a  62 61 6e 6b 25 3d 62 61  |3,bank%:bank%=ba|
00002de0  6e 6b 25 20 82 20 33 0d  0e 38 15 fd 20 71 75 69  |nk% . 3..8.. qui|
00002df0  74 25 20 84 20 28 a6 20  2d 37 34 29 0d 0e 42 24  |t% . (. -74)..B$|
00002e00  70 24 3d 70 61 74 74 65  72 6e 73 24 28 6d 61 72  |p$=patterns$(mar|
00002e10  6b 25 2b 6d 65 6e 75 5f  69 74 65 6d 25 2c 31 29  |k%+menu_item%,1)|
00002e20  0d 0e 4c 05 e1 0d 0e 56  05 3a 0d 0e 60 1a dd 20  |..L....V.:..`.. |
00002e30  f2 63 72 65 61 74 65 5f  63 6f 6c 6f 75 72 5f 74  |.create_colour_t|
00002e40  61 62 6c 65 0d 0e 61 09  f4 20 47 53 53 0d 0e 6a  |able..a.. GSS..j|
00002e50  05 e1 0d 0e 74 04 0d 0e  7e 04 0d ff 1a ff 53 70  |....t...~.....Sp|
00002e60  72 69 74 65 00 00 00 00  00 00 00 02 02 00 00 7d  |rite...........}|
00002e70  20 fa 7c 19 0e 00 0b 00  00 46 f9 ff ff 7e 16 8b  | .|......F...~..|
00002e80  b6 03 00 00 00 10 01 00  08 84 20 10 00 81 05 02  |.......... .....|
00002e90  e9 29 10 a8 a6 ce 99 33  6c ca 14 2c 68 a1 60 87  |.).....3l..,h.`.|
00002ea0  89 05 1f 14 64 b1 b1 20  83 89 40 88 88 1c 39 12  |....d.. ..@...9.|
00002eb0  a3 41 93 27 27 92 5c 49  00 e3 4a 92 2d 41 c6 44  |.A.''.\I..J.-A.D|
00002ec0  a9 f2 a5 c8 99 35 6d 12  c1 09 04 67 41 22 2e 75  |.....5m....gA".u|
00002ed0  02 cd 69 d3 a5 4f 9a 42  87 82 4c aa 14 c0 4e 94  |..i..O.B..L...N.|
00002ee0  4f 05 86 14 3a 73 aa ce  aa 51 69 4a 4d ea 93 69  |O...:s...QiJM..i|
00002ef0  d4 90 47 9d 2a f5 fa 93  69 d9 b0 41 93 6a 15 1b  |..G.*...i..A.j..|
00002f00  f6 26 d4 a8 5e 63 c6 15  e8 76 ad 58 ae 5a eb 06  |.&..^c...v.X.Z..|
00002f10  6d 0b 57 a4 c9 a9 72 fd  62 04 4c 37 6b 5e c1 76  |m.W...r.b.L7k^.v|
00002f20  4d 9a 31 63 00 e5 e2 c6  8a 19 0b 7c 9c 98 b2 5d  |M.1c.......|...]|
00002f30  cb 6b 31 27 9e a8 b9 60  e7 c9 92 01 7c 8e 0c 39  |.k1'...`....|..9|
00002f40  73 68 d3 a5 37 7b 3e cd  99 f5 6a c8 a3 31 c6 6e  |sh..7{>...j..1.n|
00002f50  9d 9a e6 6c d4 8e 5d 83  86 ad 9b 74 e5 de b2 81  |...l..]....t....|
00002f60  5f ee 3d da f2 ed dd bf  6b e7 56 be b9 38 f1 d0  |_.=.....k.V..8..|
00002f70  c7 45 0b 7f 9d 5c 35 c6  3b 77 0e a0 c4 ae dd 24  |.E...\5.;w.....$|
00002f80  77 81 df ed 86 5f 3b 5e  2b f6 f3 e8 37 97 2f b8  |w...._;^+...7./.|
00002f90  1e 7c 76 f7 dd c9 bf 17  3f 5f 3e fa f3 ea eb 4f  |.|v.....?_>....O|
00002fa0  6c 0f 20 3c ff eb fa d1  f4 df 7e f7 e1 97 18 7f  |l. <......~.....|
00002fb0  08 ce 37 20 7b 01 6e d7  a0 77 05 62 97 5f 7c 04  |..7 {.n..w.b._|.|
00002fc0  52 c8 60 77 eb a1 87 61  80 1a c2 77 60 84 77 4c  |R.`w...a...w`.wL|
00002fd0  e8 a0 85 1e f6 c7 e1 79  1b 5a d8 a1 89 24 42 18  |.......y.Z...$B.|
00002fe0  61 73 cf 31 67 5c 8c c8  f9 26 1d 73 c1 e1 38 9c  |as.1g\...&.s..8.|
00002ff0  8c 34 de b8 5c 8d 39 02  a9 55 74 3f da 18 a4 8f  |.4..\.9..Ut?....|
00003000  36 3a c7 9b 8e d4 59 d7  e4 91 47 2a 29 64 93 d1  |6:....Y...G*)d..|
00003010  11 69 24 6d 45 4a 89 64  94 d3 4d a9 9a 96 5c f2  |.i$mEJ.d..M...\.|
00003020  b8 64 96 5d 6e 69 17 62  7a e5 f4 57 5d 25 0d c6  |.d.]ni.bz..W]%..|
00003030  26 62 05 11 76 57 62 6d  d2 39 96 61 65 e1 75 17  |&b..vWbm.9.ae.u.|
00003040  55 85 e9 39 d7 9e 57 11  35 52 58 56 e9 94 a7 50  |U..9..W.5RXV...P|
00003050  87 1a da 27 a2 8b 2a 1a  e7 4b 68 e9 09 28 a4 89  |...'..*..Kh..(..|
00003060  52 ba 15 9f 8d 5a 2a 68  53 6e 3a 0a 40 a1 2f 2d  |R....Z*hSn:.@./-|
00003070  c5 68 a5 24 89 ea e9 a3  83 ae 15 e8 a6 a9 b2 9a  |.h.$............|
00003080  e6 a7 ab 92 fa 2a 00 1a  80 1a 80                 |.....*.....|
0000308b