� Juggle by Mike Cook

 � !Juggling original program
(� by Nick Craig-Wood
2
<A� This juggles patterns in the Cambridge Jugglers Association
F� standard juggling format
P
Z%� starting hand is right hand = 0
d
nm%=�
x� taskid%4:$taskid%="TASK"
�Cș "Wimp_Initialise",200,!taskid%,"Juggle" � version%,taskhand%
�D� q% &300,temp% 256,buffers% 512,menu% 500 ,Lmenu% 500,cbox% 512
�� ww% 256 ,TextWarn% 256
�4ș "Wimp_OpenTemplate",,"<Juggle$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�
�<ș "Wimp_LoadTemplate",,q%,cbox%,cbox%+512,-1,"Custom",0
�(ș "Wimp_CreateWindow",,q% � custom%
�
�9ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
�)q%!108=TextWarn%:q%!112=-1:q%!116=300

 XQ%=q%!8-q%!0:YQ%=q%!12-q%!4

*ș "Wimp_CreateWindow",,q% � warningW%



"ș "Wimp_CloseTemplate"

,
ref%=0

6� � �errorbox

@K� pat$(7,9),I% &300,Smenu% 290,Cmenu% 290,Fmenu% 290,Imenu% 290,IMP$(9)

Jjugicon%=�icon

T�_SETUP

^

h�

rJ  ș "Wimp_Poll",�((3<<17)�(1<<9)�(1<<6)�(1<<1)�(1<<8)�(1<<3)),q% � A%

|

�
  Ȏ A% �

�$  � 1:ș "Wimp_RedrawWindow",,q%

�#  � 3:ș "Wimp_CloseWindow",,q%

�  � 6:�_do_click(q%)

�  � 8:�_do_Key(q%)

�  � 9:�_do_menu(q%)

�  � 17,18:�receive(q%)

�  �

�� �

�

�� �_do_menu(q%)

�� T%

�T%=q%!0
� T%=9 � �die
,� T%>0 � T%<8 � p$=pat$(T%-1,q%!4):�_JUG

&�
0
:
� �_SETUP
D screeny%=1024: screenx%=1280
N%bally%=screeny%/40: ballx%=bally%
Xrhand%=ballx%*4
b(lx%=0.25*screenx%: rx%=0.75*screenx%
l$lx0%=lx%+rhand%: lx1%=lx%-rhand%
v$rx0%=rx%-rhand%: rx1%=rx%+rhand%
�
�midx%=0.5*screenx%
�chesty%=0.7*screeny%
�shoulderx%=0.15*screenx%
�shouldery%=0.65*screeny%
�elbowx%=0.25*screenx%
�elbowy%=0.37*screeny%
�headd%=0.12*screeny%
�heady%=screeny%-headd%
�bottomy%=0
�heighty%=0.8*screeny%
�basey%=rhand%+bally%
�

rtick%=32
tickspeed%=2
 tickspeed%=2  : � test speed
 
nmax%=250
*"� pattern%(nmax%)   :� pattern
4*� height%(9)        :� height of throw
>4� ticks%(9)         :� current position of throw
H(� hands%(9)         :� starting hand
R>� pos%(9)           :� position in pattern ball was thrown
\
f� trackx%(9,rtick%*9)
p� tracky%(9,rtick%*9)
z� handx%(1,2*rtick%)
�� handy%(1,2*rtick%)
�r2%=2*rtick%
�
�SpriteAreaSize=160*1024
�� SpriteArea SpriteAreaSize
�� sprite%(9)
�SpriteArea!0=SpriteAreaSize
�SpriteArea!8=16
�SpriteOp=&2E
� ș SpriteOp,9+256,SpriteArea
�;ș SpriteOp,10+256,SpriteArea,"<Juggle$Dir>.JugSprites"
�� i%=1 � 9
�B  ș SpriteOp,24+256,SpriteArea,"ball"+�(i%) � ,,sprite%(i%-1)
� i%
%p$="4" : � Default Juggle pattern
� i%=0 � 6
$� j%=0 � 8
.� pat$(i%,j%)
8�:�
B� Learning 3 balls
L(� 300,330222,3302,2330,330,522,3,0,0
V� Learning 4 balls
`"� 40,04,4440,441,4404,4,53,0,0
j� Learning 5 balls
t)� 51,55500,50505,552,5551,55550,5,0,0
~
� Showers
�� 31,51,71,91,0,0,0,0,0
�
� Cascade
�� 1,2,3,4,5,6,7,8,9
�	� FUN
�(� 423,55500,51,531,504,612,71,53,633
�� IMPOSSIBLE
�-� 123456789, 97531, 678, 747, 234,0,0,0,0
�
�IMP$(0)="The Lot"
�IMP$(1)="The Crash"
�IMP$(2)="Zero G"
�IMP$(3)="The Flash"
IMP$(4)="The Flip"

�setupmenu

�
(
2� possible attributes
<
F� �_JUG
P  �getpattern
Z
� ok �
d
  m%=�
n  ș "Wimp_SetMode",15
x9  *SCREENSIZE 360K *ERROR 0 320K SCREEN MEMORY NEEDED
�  �resetbanks
�	  � 5
�  �track
�
  �juggle
�  �resetbanks
�  ș "Wimp_SetMode",m%
�  ș "Wimp_CreateMenu",,-1
��
�,  ș "Wimp_ForceRedraw",-1,0,0,3000,3000
��
�
�� �getpattern
�    ok=�
5    � �p$>nmax% � �_Warn("Pattern too big"): ok=�
    plen%=0
    � i%=1 � �p$
"      a$=�p$,i%,1)
,"      pattern%(plen%)=�a$-�"0"
6      plen%+=1
@    � i%
J
T    � plen%=0 �
^      pattern%(0)=3
h      plen%=1
r	    �
|
�    � (plen% � 1) �
�      � 2*plen%>nmax% �
�%        �_Warn("Pattern too big")
�        ok=�
�      �
�        � i%=0 � plen%-1
�-          pattern%(plen%+i%)=pattern%(i%)
�        � i%
�        plen%=2*plen%
�      �
�	    �
�
�    func=0
    ȕ func<>-1 � ok
      func+=1
      Ȏ func �
&        � 1: ok=�getsum
0        � 2: ok=�getav
:        � 3: ok=�validpat
D        : func=-1
N      �
X	    �
b  � max%>1 �
l0    yscale=heighty%/0.25/((max%-1)*(max%-1))
v  �
�    yscale=heighty%
�  �
��
�
�
� �getsum
�
  ok=�
�  sum=0: max%=-1
�  � i%=0 � plen%-1
�    a%=pattern%(i%)
�    sum+=a%
�    � a%>max% � max%=a%
�
  � i%
�=ok

� �getav

  ok=�
   nb=sum/plen%
*  � nb-�(nb)<>0 �
4-    �_Warn("This needs "+�(nb)+" balls!")
>    ok=�
H  �
R  nball%=�(nb)
\=ok
f
p� �validpat
z
  ok=�
�  � plen%>1 �
�    � i%=0 � plen%-2
�      � j%=i%+1 � plen%-1
�4        � pattern%(i%)+i%=pattern%(j%)+j% � ok=�
�      � j%
�    � i%
�  �
�  � � ok �
�.    �_Warn("This needs multiple catching")
�  �
�=ok
�
�
� �juggle
	� mx%,my%,mb%
	  height%()=-1
	  ticks%()=0
	$  p%=-1
	.
  hand%=0
	8  MREL=�
	B
	L�
	V    dtick=1/rtick%
	`	    �
	j      �tickjuggle
	t      hand%=1-hand%
	~'      � MREL ȗ mx%,my%,mb% � mb%=0
	�    � mb%<>0
	�
	�    MREL=�
	�+    � mx%<80 � my%<80 � mego=� � mego=�
	�j    � mx%<114 � my%>100 � my%<160 � tickspeed%=2*tickspeed%:� tickspeed%>=rtick% � tickspeed%=rtick%/2
	�]    � mx%<114 � my%>200 � my%<260 � tickspeed%=tickspeed%/2:� tickspeed%<1 � tickspeed%=1
	�   �  mego
	�
	��
	�
	�� �tickjuggle
	�� mx%,my%,mb%
  p%=(p%+1) � plen%

  h%=pattern%(p%)
  ticks%()=ticks%()+rtick%
  � h%>0 �
(E    � find out which ball has landed, and throw a new one if nec.
2    b%=-1: c%=-1
<    � i%=0 � nball%-1
F,      � ticks%(i%)>=rtick%*height%(i%) �
P,        � height%(i%)>=0 � b%=i% � c%=i%
Z      �
d    � i%
n    � b%=-1 � b%=c%
x    � b%<>-1 �
�      height%(b%)=h%
�      ticks%(b%)=0
�      pos%(b%)=p%
�      hands%(b%)=hand%
�	    �
�  �
�
�(  � ptick%=0 � rtick%-1 � tickspeed%
�  ȗ mx%,my%,mb%
�  � mb%=0 � MREL=�
�  � mb%<>0 � MREL � �
�    �startupdate
�	    �

    � 63 Ȝ 255
    d%=rhand%/2
"    t%=ptick%+rtick%*hand%
,
6    � 170,0
@4    ș"OS_SpriteOp",256+28,SpriteArea,"body",,,0
J
T,    �  handx%(1,t%)-60,handy%(1,t%)-d%/2
^4    ș"OS_SpriteOp",256+28,SpriteArea,"left",,,8
h
r,    � handx%(0,t%)-100,handy%(0,t%)-d%/2
|5    ș"OS_SpriteOp",256+28,SpriteArea,"right",,,8
�
�    � 10,40
�    �"STOP"
�    ȓ 0,0,80,60
�    � 10,140
�    �"Faster"
�    ȓ 0,100,114,60
�    � 10,240
�    �"Slower"
�    ȓ 0,200,114,60
�
�   � 0,1000
�   � p$

    � i%=0 � nball%-1
      � height%(i%)>=0 �
&         t%=ticks%(i%)+ptick%
0        h%=height%(i%)
:        x%=trackx%(h%,t%)
D        y%=tracky%(h%,t%)
N)        � hands%(i%) � x%=screenx%-x%
XC        ș SpriteOp,34+512,SpriteArea,sprite%(i%),x%-32,y%-16,8
b      �
l    � i%
v
�    �endupdate
�  � ptick%
��
�
�
�7� This makes the tracks for the hands and the balls
�
�� �track
�  � first track the hands
�  � ptick%=0 � r2%-1
�    t=�*ptick%/rtick%
�
�,    handx%(0,ptick%)=rx%-(rhand%*�(t))/2

*    handy%(0,ptick%)=basey%-74-30*�(t)



1    handx%(1,ptick%)=lx%-((rhand%*�(t))/3)-20

 *    handy%(1,ptick%)=basey%+30*�(t)-80

*

4  � ptick%

>

H   � now make each ball track

R

\  � p%=1 � 9

f   � �p$,�(p%)) �

p
    sh%=0

z
    h%=p%

�(    � (h% � 1) � fh%=1-sh% � fh%=sh%

�

�D    � This makes the tracks for throw from sh% to fh%, height h%

�    � In position p%

�

�    � h%>1 �

�      k0%=rtick%/2

�(      k1%=(h%*rtick%-rtick%/2) � r2%

�	    �

�      k0%=0

�      k1%=rtick%

�	    �

�0    sx%=handx%(sh%,k0%): sy%=handy%(sh%,k0%)
0    fx%=handx%(fh%,k1%): fy%=handy%(fh%,k1%)

    Ȏ h% �
$
.    � 3,4,5,6,7,8,9:
8"      � ptick%=0 � h%*rtick%-1
B        ti=ptick%/rtick%
L        q%=ptick% � r2%
V        � ti<0.5 �
`          x%=handx%(sh%,q%)
j          y%=handy%(sh%,q%)
t
        �
~          � ti>h%-0.5 �
�!            x%=handx%(fh%,q%)
�!            y%=handy%(fh%,q%)
�          �
�!            t=(ti-0.5)/(h%-1)
�?            y%=(fy%-sy%)*t+sy%+yscale*t*(1-t)*(h%-1)*(h%-1)
�"            x%=(fx%-sx%)*t+sx%
�          �
�
        �
�!        trackx%(p%,ptick%)=x%
�!        tracky%(p%,ptick%)=y%
�      � ptick%
�
    � 2:

"      � ptick%=0 � h%*rtick%-1
1        trackx%(p%,ptick%)=handx%(sh%,ptick%)
1        tracky%(p%,ptick%)=handy%(sh%,ptick%)
(      � ptick%
2
<    � 1:
F      � ptick%=0 � rtick%-1
P        t=ptick%/rtick%
Z.        trackx%(p%,ptick%)=(fx%-sx%)*t+sx%
d?        tracky%(p%,ptick%)=(fy%-sy%)*t+sy%+2*yscale*t*(1-t)
n      � ptick%
x
�	    �
�   �
�
  � p%
��
�
�� �resetbanks
�.  ș "OS_Byte",19        :� wait for Vsync
�2  ș "OS_Byte",112,0     :� reset logical bank
�3  ș "OS_Byte",113,0     :� reset physical bank
�
  bank%=1
��
�
�� �startupdate
  bank%=3-bank%
3  ș "OS_Byte",112,bank% :� change logical bank
�
"
,� �endupdate
6.  ș "OS_Byte",19        :� wait for Vsync
@4  ș "OS_Byte",113,bank% :� change physical bank
J�
T
^� �_do_Key(q%)
h� q%!0=custom% �
r� q%!24=13 � �_GetPat:�_JUG
|�
��
�
�� �_do_click(q%)
�!� q%!12=-2 � q%!16=jugicon% �
�5� q%!8=2 � ș"Wimp_CreateMenu",,menu%,q%!0-64,500
�� q%!8=4 � �_JUG
��
�$� q%!12=custom% � �_GetPat:�_JUG
�� q%!12=warningW% �
�%                   q%!0=warningW%
�/                   ș"Wimp_CloseWindow",,q%
�*                   ȗ ȓ 0,0,3000,3000
�                   �
�
�

&
ݤicon
0q%!0=-1
:
q%!4=0
Dq%!8=0 : � Y DIRECTION
Nq%!12=72 : � X DIRECTION
Xq%!16=96
bq%!20=&2002
l$(q%+24)="!Juggle"
v$ș "Wimp_CreateIcon",,q% � icon%
�
=icon%
�
���setupmenu
�� m%
�$menu%="Juggle"
�menu%?12=7
�menu%?13=2
�menu%?14=7
�menu%?15=0
�menu%!16=176
�menu%!20=40
�menu%!24=0
�m%=menu%+28

m%!0=0
m%!4=info%
m%!8=(7<<24)� %10001
 $(m%+12)="Info"
*
4
m%+=24
>
m%!0=0
Hm%!4=Lmenu%
Rm%!8=(7<<24)� %10001
\$(m%+12)="3 Balls"
f
p
m%+=24
z
m%!0=0
�m%!4=Lmenu%
�m%!8=(7<<24)� %10001
�$(m%+12)="4 Balls"
�
�
m%+=24
�
m%!0=0
�m%!4=Lmenu%
�m%!8=(7<<24)� %10001
�$(m%+12)="5 Balls"
�
�
m%+=24
�
m%!0=0
�m%!4=Smenu%
m%!8=(7<<24)� %10001
$(m%+12)="Shower"

$
m%+=24
.
m%!0=0
8m%!4=Cmenu%
Bm%!8=(7<<24)� %10001
L$(m%+12)="Cascade"
V
`
m%+=24
j
m%!0=0
tm%!4=Fmenu%
~m%!8=(7<<24)� %10001
�$(m%+12)="Fun"
�
�
m%+=24
�
m%!0=0
�m%!4=Imenu%
�m%!8=(7<<24)� %10001
�$(m%+12)="Impossible"
�
�
m%+=24
�
m%!0=0
�m%!4=custom%
�m%!8=(7<<24)� %10001
$(m%+12)="Custom"



m%+=24
m%!0=&80
(
m%!4=0
2m%!8=(7<<24)� %10001
<$(m%+12)="Quit"
F
P� Make Lesson Sub Menu
Z$Lmenu%="Lessons"
dLmenu%?12=7
nLmenu%?13=2
xLmenu%?14=7
�Lmenu%?15=0
�Lmenu%!16=128
�Lmenu%!20=40
�Lmenu%!24=0
�m%=Lmenu%+4
�
�� H%=1 � 7
�
m%+=24
�� H%=7 � m%!0=&80 � m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %11001
�$(m%+12)="Lesson "+�(H%)
��

� Make Shower Sub Menu
$Smenu%="Showers"
"Smenu%?12=7
,Smenu%?13=2
6Smenu%?14=7
@Smenu%?15=0
JSmenu%!16=128
TSmenu%!20=40
^Smenu%!24=0
hm%=Smenu%+4
r
|� H%=2 � 5
�
m%+=24
�� H%=5 � m%!0=&80 � m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %11001
�$(m%+12)=�(H%)+" Balls"
��
�
�� Make Cascade Sub Menu
�$Cmenu%="Cascade"
�Cmenu%?12=7
�Cmenu%?13=2
�Cmenu%?14=7
�Cmenu%?15=0
Cmenu%!16=128
Cmenu%!20=40
Cmenu%!24=0
&m%=Cmenu%+4
0
:� H%=1 � 9
D
m%+=24
N� H%=9 � m%!0=&80 � m%!0=0
X
m%!4=0
bm%!8=(7<<24)� %10001
l=� H%=1 � $(m%+12)=�(H%)+" Ball" � $(m%+12)=�(H%)+" Balls"
v�
�
�� Make Fun Sub Menu
�$Fmenu%="Fun"
�Fmenu%?12=7
�Fmenu%?13=2
�Fmenu%?14=7
�Fmenu%?15=0
�Fmenu%!16=92
�Fmenu%!20=40
�Fmenu%!24=0
�m%=Fmenu%+4
�
�� H%=0 � 8

m%+=24
� H%=8 � m%!0=&80 � m%!0=0

m%!4=0
 m%!8=(7<<24)� %10001
*$(m%+12)=pat$(5,H%)
4�
>
H� Make Impossible Sub Menu
R$Imenu%="Impossible"
\Imenu%?12=7
fImenu%?13=2
pImenu%?14=7
zImenu%?15=0
�Imenu%!16=152
�Imenu%!20=40
�Imenu%!24=0
�m%=Imenu%+4
�
�� H%=0 � 4
�
m%+=24
�� H%=4 � m%!0=&80 � m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)=IMP$(H%)
��
��


� �receive(q%)
$� A%
.Ȏ q%!16 �
8� 0:�die
B2� 3:� q%!20=-2 � q%!24=jugicon% � q%!40=&FFB �
L        �_JUG
V        ref%=0
`       �
j� &502:Ȏ � �
tj       � q%!32=-2 � q%!36=jugicon%:mes$="This is the Juggle Tutor icon.|MClick for a Juggling lession"
~       :mes$=""
�       �
�    � mes$<>"" �
�    q%!12=q%!8
�    $(q%+20)=mes$+�0
�    q%!0=(20+�mes$+4)� � 3
�    q%!16=&503
�(    ș "Wimp_SendMessage",18,q%,q%!4
��
��
�
�� �_Dack
�sendth%=q%!4
myref%=q%!8

"ș "Wimp_GetPointerInfo",,q%+8
q%!28=q%!8
q%!32=q%!12
(q%!0=(44+�n$+4)� � 3
2q%!12=myref%
<q%!16=4
Fq%!36=-1
Pq%!40=&FF9
Z$(q%+44)=n$+�0
d'ș "Wimp_SendMessage",17,q%,sendth%
n�
x�
�
�� �errorbox
�ș "Wimp_DragBox",,-1
�2!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
�-ș "Wimp_ReportError",buffers%,1,"Juggle"
��die
��
�
�	��die
�*ș "Wimp_CloseDown",taskhand%,!taskid%
�� � <> m% � � m%
��
��

� �_GetPat
� T%,A%,F$
"	F$=""
,I%!0=custom%:I%!4=1
6ș "Wimp_GetIconState",,I%
@T%=I%!28
J	T%-=1
T�
^	T%+=1
hF$=F$+�(?T%)
r� ?T%=13
|p$=�F$,1,�(F$)-1)
��
�
�� �_Warn(t$)
�X!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
�$TextWarn%=t$
�TextWarn%?�(t$)=0
�� 7
�ș "Wimp_OpenWindow",,q%
�ȗ ȓ 200,200,XQ%,YQ%
��
�

00000000  0d 00 0a 19 f4 20 4a 75  67 67 6c 65 20 62 79 20  |..... Juggle by |
00000010  4d 69 6b 65 20 43 6f 6f  6b 0d 00 14 04 0d 00 1e  |Mike Cook.......|
00000020  20 f4 20 21 4a 75 67 67  6c 69 6e 67 20 6f 72 69  | . !Juggling ori|
00000030  67 69 6e 61 6c 20 70 72  6f 67 72 61 6d 0d 00 28  |ginal program..(|
00000040  18 f4 20 62 79 20 4e 69  63 6b 20 43 72 61 69 67  |.. by Nick Craig|
00000050  2d 57 6f 6f 64 0d 00 32  04 0d 00 3c 41 f4 20 54  |-Wood..2...<A. T|
00000060  68 69 73 20 6a 75 67 67  6c 65 73 20 70 61 74 74  |his juggles patt|
00000070  65 72 6e 73 20 69 6e 20  74 68 65 20 43 61 6d 62  |erns in the Camb|
00000080  72 69 64 67 65 20 4a 75  67 67 6c 65 72 73 20 41  |ridge Jugglers A|
00000090  73 73 6f 63 69 61 74 69  6f 6e 0d 00 46 1e f4 20  |ssociation..F.. |
000000a0  73 74 61 6e 64 61 72 64  20 6a 75 67 67 6c 69 6e  |standard jugglin|
000000b0  67 20 66 6f 72 6d 61 74  0d 00 50 04 0d 00 5a 25  |g format..P...Z%|
000000c0  f4 20 73 74 61 72 74 69  6e 67 20 68 61 6e 64 20  |. starting hand |
000000d0  69 73 20 72 69 67 68 74  20 68 61 6e 64 20 3d 20  |is right hand = |
000000e0  30 0d 00 64 04 0d 00 6e  08 6d 25 3d eb 0d 00 78  |0..d...n.m%=...x|
000000f0  1e de 20 74 61 73 6b 69  64 25 34 3a 24 74 61 73  |.. taskid%4:$tas|
00000100  6b 69 64 25 3d 22 54 41  53 4b 22 0d 00 82 43 c8  |kid%="TASK"...C.|
00000110  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
00000120  73 65 22 2c 32 30 30 2c  21 74 61 73 6b 69 64 25  |se",200,!taskid%|
00000130  2c 22 4a 75 67 67 6c 65  22 20 b8 20 76 65 72 73  |,"Juggle" . vers|
00000140  69 6f 6e 25 2c 74 61 73  6b 68 61 6e 64 25 0d 00  |ion%,taskhand%..|
00000150  8c 44 de 20 71 25 20 26  33 30 30 2c 74 65 6d 70  |.D. q% &300,temp|
00000160  25 20 32 35 36 2c 62 75  66 66 65 72 73 25 20 35  |% 256,buffers% 5|
00000170  31 32 2c 6d 65 6e 75 25  20 35 30 30 20 2c 4c 6d  |12,menu% 500 ,Lm|
00000180  65 6e 75 25 20 35 30 30  2c 63 62 6f 78 25 20 35  |enu% 500,cbox% 5|
00000190  31 32 0d 00 96 1c de 20  77 77 25 20 32 35 36 20  |12..... ww% 256 |
000001a0  2c 54 65 78 74 57 61 72  6e 25 20 32 35 36 0d 00  |,TextWarn% 256..|
000001b0  a0 34 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 54  |.4.. "Wimp_OpenT|
000001c0  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 4a 75 67 67  |emplate",,"<Jugg|
000001d0  6c 65 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |le$Dir>.Template|
000001e0  73 22 0d 00 aa 29 ee 20  85 20 c8 99 20 22 57 69  |s"...). . .. "Wi|
000001f0  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000200  22 3a f2 65 72 72 6f 72  62 6f 78 0d 00 b4 3a c8  |":.errorbox...:.|
00000210  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000220  6c 61 74 65 22 2c 2c 71  25 2c 74 65 6d 70 25 2c  |late",,q%,temp%,|
00000230  74 65 6d 70 25 2b 32 35  36 2c 2d 31 2c 22 49 6e  |temp%+256,-1,"In|
00000240  66 6f 22 2c 30 0d 00 be  26 c8 99 20 22 57 69 6d  |fo",0...&.. "Wim|
00000250  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000260  2c 71 25 20 b8 20 69 6e  66 6f 25 0d 00 c8 04 0d  |,q% . info%.....|
00000270  00 d2 3c c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..<.. "Wimp_Load|
00000280  54 65 6d 70 6c 61 74 65  22 2c 2c 71 25 2c 63 62  |Template",,q%,cb|
00000290  6f 78 25 2c 63 62 6f 78  25 2b 35 31 32 2c 2d 31  |ox%,cbox%+512,-1|
000002a0  2c 22 43 75 73 74 6f 6d  22 2c 30 0d 00 dc 28 c8  |,"Custom",0...(.|
000002b0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
000002c0  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 63 75 73 74  |ndow",,q% . cust|
000002d0  6f 6d 25 0d 00 e6 04 0d  00 f0 39 c8 99 20 22 57  |om%.......9.. "W|
000002e0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
000002f0  22 2c 2c 71 25 2c 77 77  25 2c 77 77 25 2b 32 35  |",,q%,ww%,ww%+25|
00000300  36 2c 2d 31 2c 22 57 61  72 6e 69 6e 67 22 2c 30  |6,-1,"Warning",0|
00000310  0d 00 fa 29 71 25 21 31  30 38 3d 54 65 78 74 57  |...)q%!108=TextW|
00000320  61 72 6e 25 3a 71 25 21  31 31 32 3d 2d 31 3a 71  |arn%:q%!112=-1:q|
00000330  25 21 31 31 36 3d 33 30  30 0d 01 04 20 58 51 25  |%!116=300... XQ%|
00000340  3d 71 25 21 38 2d 71 25  21 30 3a 59 51 25 3d 71  |=q%!8-q%!0:YQ%=q|
00000350  25 21 31 32 2d 71 25 21  34 0d 01 0e 2a c8 99 20  |%!12-q%!4...*.. |
00000360  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000370  6f 77 22 2c 2c 71 25 20  b8 20 77 61 72 6e 69 6e  |ow",,q% . warnin|
00000380  67 57 25 0d 01 18 04 0d  01 22 1b c8 99 20 22 57  |gW%......"... "W|
00000390  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
000003a0  65 22 0d 01 2c 0a 72 65  66 25 3d 30 0d 01 36 11  |e"..,.ref%=0..6.|
000003b0  ee 20 85 20 f2 65 72 72  6f 72 62 6f 78 0d 01 40  |. . .errorbox..@|
000003c0  4b de 20 70 61 74 24 28  37 2c 39 29 2c 49 25 20  |K. pat$(7,9),I% |
000003d0  26 33 30 30 2c 53 6d 65  6e 75 25 20 32 39 30 2c  |&300,Smenu% 290,|
000003e0  43 6d 65 6e 75 25 20 32  39 30 2c 46 6d 65 6e 75  |Cmenu% 290,Fmenu|
000003f0  25 20 32 39 30 2c 49 6d  65 6e 75 25 20 32 39 30  |% 290,Imenu% 290|
00000400  2c 49 4d 50 24 28 39 29  0d 01 4a 12 6a 75 67 69  |,IMP$(9)..J.jugi|
00000410  63 6f 6e 25 3d a4 69 63  6f 6e 0d 01 54 0b f2 5f  |con%=.icon..T.._|
00000420  53 45 54 55 50 0d 01 5e  04 0d 01 68 05 f5 0d 01  |SETUP..^...h....|
00000430  72 4a 20 20 c8 99 20 22  57 69 6d 70 5f 50 6f 6c  |rJ  .. "Wimp_Pol|
00000440  6c 22 2c ac 28 28 33 3c  3c 31 37 29 84 28 31 3c  |l",.((3<<17).(1<|
00000450  3c 39 29 84 28 31 3c 3c  36 29 84 28 31 3c 3c 31  |<9).(1<<6).(1<<1|
00000460  29 84 28 31 3c 3c 38 29  84 28 31 3c 3c 33 29 29  |).(1<<8).(1<<3))|
00000470  2c 71 25 20 b8 20 41 25  0d 01 7c 04 0d 01 86 0d  |,q% . A%..|.....|
00000480  20 20 c8 8e 20 41 25 20  ca 0d 01 90 24 20 20 c9  |  .. A% ....$  .|
00000490  20 31 3a c8 99 20 22 57  69 6d 70 5f 52 65 64 72  | 1:.. "Wimp_Redr|
000004a0  61 77 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 01 9a  |awWindow",,q%...|
000004b0  23 20 20 c9 20 33 3a c8  99 20 22 57 69 6d 70 5f  |#  . 3:.. "Wimp_|
000004c0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |CloseWindow",,q%|
000004d0  0d 01 a4 18 20 20 c9 20  36 3a f2 5f 64 6f 5f 63  |....  . 6:._do_c|
000004e0  6c 69 63 6b 28 71 25 29  0d 01 ae 16 20 20 c9 20  |lick(q%)....  . |
000004f0  38 3a f2 5f 64 6f 5f 4b  65 79 28 71 25 29 0d 01  |8:._do_Key(q%)..|
00000500  b8 17 20 20 c9 20 39 3a  f2 5f 64 6f 5f 6d 65 6e  |..  . 9:._do_men|
00000510  75 28 71 25 29 0d 01 c2  1a 20 20 c9 20 31 37 2c  |u(q%)....  . 17,|
00000520  31 38 3a f2 72 65 63 65  69 76 65 28 71 25 29 0d  |18:.receive(q%).|
00000530  01 cc 07 20 20 cb 0d 01  d6 07 fd 20 a3 0d 01 e0  |...  ...... ....|
00000540  04 0d 01 ea 13 dd 20 f2  5f 64 6f 5f 6d 65 6e 75  |...... ._do_menu|
00000550  28 71 25 29 0d 01 f4 08  ea 20 54 25 0d 01 fe 0b  |(q%)..... T%....|
00000560  54 25 3d 71 25 21 30 0d  02 08 11 e7 20 54 25 3d  |T%=q%!0..... T%=|
00000570  39 20 8c 20 f2 64 69 65  0d 02 12 2c e7 20 54 25  |9 . .die...,. T%|
00000580  3e 30 20 80 20 54 25 3c  38 20 8c 20 70 24 3d 70  |>0 . T%<8 . p$=p|
00000590  61 74 24 28 54 25 2d 31  2c 71 25 21 34 29 3a f2  |at$(T%-1,q%!4):.|
000005a0  5f 4a 55 47 0d 02 1c 04  0d 02 26 05 e1 0d 02 30  |_JUG......&....0|
000005b0  04 0d 02 3a 0d dd 20 f2  5f 53 45 54 55 50 0d 02  |...:.. ._SETUP..|
000005c0  44 20 73 63 72 65 65 6e  79 25 3d 31 30 32 34 3a  |D screeny%=1024:|
000005d0  20 73 63 72 65 65 6e 78  25 3d 31 32 38 30 0d 02  | screenx%=1280..|
000005e0  4e 25 62 61 6c 6c 79 25  3d 73 63 72 65 65 6e 79  |N%bally%=screeny|
000005f0  25 2f 34 30 3a 20 62 61  6c 6c 78 25 3d 62 61 6c  |%/40: ballx%=bal|
00000600  6c 79 25 0d 02 58 13 72  68 61 6e 64 25 3d 62 61  |ly%..X.rhand%=ba|
00000610  6c 6c 78 25 2a 34 0d 02  62 28 6c 78 25 3d 30 2e  |llx%*4..b(lx%=0.|
00000620  32 35 2a 73 63 72 65 65  6e 78 25 3a 20 72 78 25  |25*screenx%: rx%|
00000630  3d 30 2e 37 35 2a 73 63  72 65 65 6e 78 25 0d 02  |=0.75*screenx%..|
00000640  6c 24 6c 78 30 25 3d 6c  78 25 2b 72 68 61 6e 64  |l$lx0%=lx%+rhand|
00000650  25 3a 20 6c 78 31 25 3d  6c 78 25 2d 72 68 61 6e  |%: lx1%=lx%-rhan|
00000660  64 25 0d 02 76 24 72 78  30 25 3d 72 78 25 2d 72  |d%..v$rx0%=rx%-r|
00000670  68 61 6e 64 25 3a 20 72  78 31 25 3d 72 78 25 2b  |hand%: rx1%=rx%+|
00000680  72 68 61 6e 64 25 0d 02  80 04 0d 02 8a 16 6d 69  |rhand%........mi|
00000690  64 78 25 3d 30 2e 35 2a  73 63 72 65 65 6e 78 25  |dx%=0.5*screenx%|
000006a0  0d 02 94 18 63 68 65 73  74 79 25 3d 30 2e 37 2a  |....chesty%=0.7*|
000006b0  73 63 72 65 65 6e 79 25  0d 02 9e 1c 73 68 6f 75  |screeny%....shou|
000006c0  6c 64 65 72 78 25 3d 30  2e 31 35 2a 73 63 72 65  |lderx%=0.15*scre|
000006d0  65 6e 78 25 0d 02 a8 1c  73 68 6f 75 6c 64 65 72  |enx%....shoulder|
000006e0  79 25 3d 30 2e 36 35 2a  73 63 72 65 65 6e 79 25  |y%=0.65*screeny%|
000006f0  0d 02 b2 19 65 6c 62 6f  77 78 25 3d 30 2e 32 35  |....elbowx%=0.25|
00000700  2a 73 63 72 65 65 6e 78  25 0d 02 bc 19 65 6c 62  |*screenx%....elb|
00000710  6f 77 79 25 3d 30 2e 33  37 2a 73 63 72 65 65 6e  |owy%=0.37*screen|
00000720  79 25 0d 02 c6 18 68 65  61 64 64 25 3d 30 2e 31  |y%....headd%=0.1|
00000730  32 2a 73 63 72 65 65 6e  79 25 0d 02 d0 1a 68 65  |2*screeny%....he|
00000740  61 64 79 25 3d 73 63 72  65 65 6e 79 25 2d 68 65  |ady%=screeny%-he|
00000750  61 64 64 25 0d 02 da 0e  62 6f 74 74 6f 6d 79 25  |add%....bottomy%|
00000760  3d 30 0d 02 e4 19 68 65  69 67 68 74 79 25 3d 30  |=0....heighty%=0|
00000770  2e 38 2a 73 63 72 65 65  6e 79 25 0d 02 ee 18 62  |.8*screeny%....b|
00000780  61 73 65 79 25 3d 72 68  61 6e 64 25 2b 62 61 6c  |asey%=rhand%+bal|
00000790  6c 79 25 0d 02 f8 04 0d  03 02 0d 72 74 69 63 6b  |ly%........rtick|
000007a0  25 3d 33 32 0d 03 0c 10  74 69 63 6b 73 70 65 65  |%=32....tickspee|
000007b0  64 25 3d 32 0d 03 16 20  74 69 63 6b 73 70 65 65  |d%=2... tickspee|
000007c0  64 25 3d 32 20 20 3a 20  f4 20 74 65 73 74 20 73  |d%=2  : . test s|
000007d0  70 65 65 64 0d 03 20 0d  6e 6d 61 78 25 3d 32 35  |peed.. .nmax%=25|
000007e0  30 0d 03 2a 22 de 20 70  61 74 74 65 72 6e 25 28  |0..*". pattern%(|
000007f0  6e 6d 61 78 25 29 20 20  20 3a f4 20 70 61 74 74  |nmax%)   :. patt|
00000800  65 72 6e 0d 03 34 2a de  20 68 65 69 67 68 74 25  |ern..4*. height%|
00000810  28 39 29 20 20 20 20 20  20 20 20 3a f4 20 68 65  |(9)        :. he|
00000820  69 67 68 74 20 6f 66 20  74 68 72 6f 77 0d 03 3e  |ight of throw..>|
00000830  34 de 20 74 69 63 6b 73  25 28 39 29 20 20 20 20  |4. ticks%(9)    |
00000840  20 20 20 20 20 3a f4 20  63 75 72 72 65 6e 74 20  |     :. current |
00000850  70 6f 73 69 74 69 6f 6e  20 6f 66 20 74 68 72 6f  |position of thro|
00000860  77 0d 03 48 28 de 20 68  61 6e 64 73 25 28 39 29  |w..H(. hands%(9)|
00000870  20 20 20 20 20 20 20 20  20 3a f4 20 73 74 61 72  |         :. star|
00000880  74 69 6e 67 20 68 61 6e  64 0d 03 52 3e de 20 70  |ting hand..R>. p|
00000890  6f 73 25 28 39 29 20 20  20 20 20 20 20 20 20 20  |os%(9)          |
000008a0  20 3a f4 20 70 6f 73 69  74 69 6f 6e 20 69 6e 20  | :. position in |
000008b0  70 61 74 74 65 72 6e 20  62 61 6c 6c 20 77 61 73  |pattern ball was|
000008c0  20 74 68 72 6f 77 6e 0d  03 5c 04 0d 03 66 19 de  | thrown..\...f..|
000008d0  20 74 72 61 63 6b 78 25  28 39 2c 72 74 69 63 6b  | trackx%(9,rtick|
000008e0  25 2a 39 29 0d 03 70 19  de 20 74 72 61 63 6b 79  |%*9)..p.. tracky|
000008f0  25 28 39 2c 72 74 69 63  6b 25 2a 39 29 0d 03 7a  |%(9,rtick%*9)..z|
00000900  18 de 20 68 61 6e 64 78  25 28 31 2c 32 2a 72 74  |.. handx%(1,2*rt|
00000910  69 63 6b 25 29 0d 03 84  18 de 20 68 61 6e 64 79  |ick%)..... handy|
00000920  25 28 31 2c 32 2a 72 74  69 63 6b 25 29 0d 03 8e  |%(1,2*rtick%)...|
00000930  10 72 32 25 3d 32 2a 72  74 69 63 6b 25 0d 03 98  |.r2%=2*rtick%...|
00000940  04 0d 03 a2 1b 53 70 72  69 74 65 41 72 65 61 53  |.....SpriteAreaS|
00000950  69 7a 65 3d 31 36 30 2a  31 30 32 34 0d 03 ac 1f  |ize=160*1024....|
00000960  de 20 53 70 72 69 74 65  41 72 65 61 20 53 70 72  |. SpriteArea Spr|
00000970  69 74 65 41 72 65 61 53  69 7a 65 0d 03 b6 10 de  |iteAreaSize.....|
00000980  20 73 70 72 69 74 65 25  28 39 29 0d 03 c0 1f 53  | sprite%(9)....S|
00000990  70 72 69 74 65 41 72 65  61 21 30 3d 53 70 72 69  |priteArea!0=Spri|
000009a0  74 65 41 72 65 61 53 69  7a 65 0d 03 ca 13 53 70  |teAreaSize....Sp|
000009b0  72 69 74 65 41 72 65 61  21 38 3d 31 36 0d 03 d4  |riteArea!8=16...|
000009c0  10 53 70 72 69 74 65 4f  70 3d 26 32 45 0d 03 de  |.SpriteOp=&2E...|
000009d0  20 c8 99 20 53 70 72 69  74 65 4f 70 2c 39 2b 32  | .. SpriteOp,9+2|
000009e0  35 36 2c 53 70 72 69 74  65 41 72 65 61 0d 03 e8  |56,SpriteArea...|
000009f0  3b c8 99 20 53 70 72 69  74 65 4f 70 2c 31 30 2b  |;.. SpriteOp,10+|
00000a00  32 35 36 2c 53 70 72 69  74 65 41 72 65 61 2c 22  |256,SpriteArea,"|
00000a10  3c 4a 75 67 67 6c 65 24  44 69 72 3e 2e 4a 75 67  |<Juggle$Dir>.Jug|
00000a20  53 70 72 69 74 65 73 22  0d 03 f2 0e e3 20 69 25  |Sprites"..... i%|
00000a30  3d 31 20 b8 20 39 0d 03  fc 42 20 20 c8 99 20 53  |=1 . 9...B  .. S|
00000a40  70 72 69 74 65 4f 70 2c  32 34 2b 32 35 36 2c 53  |priteOp,24+256,S|
00000a50  70 72 69 74 65 41 72 65  61 2c 22 62 61 6c 6c 22  |priteArea,"ball"|
00000a60  2b c3 28 69 25 29 20 b8  20 2c 2c 73 70 72 69 74  |+.(i%) . ,,sprit|
00000a70  65 25 28 69 25 2d 31 29  0d 04 06 08 ed 20 69 25  |e%(i%-1)..... i%|
00000a80  0d 04 10 25 70 24 3d 22  34 22 20 3a 20 f4 20 44  |...%p$="4" : . D|
00000a90  65 66 61 75 6c 74 20 4a  75 67 67 6c 65 20 70 61  |efault Juggle pa|
00000aa0  74 74 65 72 6e 0d 04 1a  0e e3 20 69 25 3d 30 20  |ttern..... i%=0 |
00000ab0  b8 20 36 0d 04 24 0e e3  20 6a 25 3d 30 20 b8 20  |. 6..$.. j%=0 . |
00000ac0  38 0d 04 2e 11 f3 20 70  61 74 24 28 69 25 2c 6a  |8..... pat$(i%,j|
00000ad0  25 29 0d 04 38 07 ed 3a  ed 0d 04 42 16 f4 20 4c  |%)..8..:...B.. L|
00000ae0  65 61 72 6e 69 6e 67 20  33 20 62 61 6c 6c 73 0d  |earning 3 balls.|
00000af0  04 4c 28 dc 20 33 30 30  2c 33 33 30 32 32 32 2c  |.L(. 300,330222,|
00000b00  33 33 30 32 2c 32 33 33  30 2c 33 33 30 2c 35 32  |3302,2330,330,52|
00000b10  32 2c 33 2c 30 2c 30 0d  04 56 16 f4 20 4c 65 61  |2,3,0,0..V.. Lea|
00000b20  72 6e 69 6e 67 20 34 20  62 61 6c 6c 73 0d 04 60  |rning 4 balls..`|
00000b30  22 dc 20 34 30 2c 30 34  2c 34 34 34 30 2c 34 34  |". 40,04,4440,44|
00000b40  31 2c 34 34 30 34 2c 34  2c 35 33 2c 30 2c 30 0d  |1,4404,4,53,0,0.|
00000b50  04 6a 16 f4 20 4c 65 61  72 6e 69 6e 67 20 35 20  |.j.. Learning 5 |
00000b60  62 61 6c 6c 73 0d 04 74  29 dc 20 35 31 2c 35 35  |balls..t). 51,55|
00000b70  35 30 30 2c 35 30 35 30  35 2c 35 35 32 2c 35 35  |500,50505,552,55|
00000b80  35 31 2c 35 35 35 35 30  2c 35 2c 30 2c 30 0d 04  |51,55550,5,0,0..|
00000b90  7e 0d f4 20 53 68 6f 77  65 72 73 0d 04 88 1b dc  |~.. Showers.....|
00000ba0  20 33 31 2c 35 31 2c 37  31 2c 39 31 2c 30 2c 30  | 31,51,71,91,0,0|
00000bb0  2c 30 2c 30 2c 30 0d 04  92 0d f4 20 43 61 73 63  |,0,0,0..... Casc|
00000bc0  61 64 65 0d 04 9c 17 dc  20 31 2c 32 2c 33 2c 34  |ade..... 1,2,3,4|
00000bd0  2c 35 2c 36 2c 37 2c 38  2c 39 0d 04 a6 09 f4 20  |,5,6,7,8,9..... |
00000be0  46 55 4e 0d 04 b0 28 dc  20 34 32 33 2c 35 35 35  |FUN...(. 423,555|
00000bf0  30 30 2c 35 31 2c 35 33  31 2c 35 30 34 2c 36 31  |00,51,531,504,61|
00000c00  32 2c 37 31 2c 35 33 2c  36 33 33 0d 04 ba 10 f4  |2,71,53,633.....|
00000c10  20 49 4d 50 4f 53 53 49  42 4c 45 0d 04 c4 2d dc  | IMPOSSIBLE...-.|
00000c20  20 31 32 33 34 35 36 37  38 39 2c 20 39 37 35 33  | 123456789, 9753|
00000c30  31 2c 20 36 37 38 2c 20  37 34 37 2c 20 32 33 34  |1, 678, 747, 234|
00000c40  2c 30 2c 30 2c 30 2c 30  0d 04 ce 04 0d 04 d8 15  |,0,0,0,0........|
00000c50  49 4d 50 24 28 30 29 3d  22 54 68 65 20 4c 6f 74  |IMP$(0)="The Lot|
00000c60  22 0d 04 e2 17 49 4d 50  24 28 31 29 3d 22 54 68  |"....IMP$(1)="Th|
00000c70  65 20 43 72 61 73 68 22  0d 04 ec 14 49 4d 50 24  |e Crash"....IMP$|
00000c80  28 32 29 3d 22 5a 65 72  6f 20 47 22 0d 04 f6 17  |(2)="Zero G"....|
00000c90  49 4d 50 24 28 33 29 3d  22 54 68 65 20 46 6c 61  |IMP$(3)="The Fla|
00000ca0  73 68 22 0d 05 00 16 49  4d 50 24 28 34 29 3d 22  |sh"....IMP$(4)="|
00000cb0  54 68 65 20 46 6c 69 70  22 0d 05 0a 0e f2 73 65  |The Flip".....se|
00000cc0  74 75 70 6d 65 6e 75 0d  05 14 04 0d 05 1e 05 e1  |tupmenu.........|
00000cd0  0d 05 28 04 0d 05 32 19  f4 20 70 6f 73 73 69 62  |..(...2.. possib|
00000ce0  6c 65 20 61 74 74 72 69  62 75 74 65 73 0d 05 3c  |le attributes..<|
00000cf0  04 0d 05 46 0b dd 20 f2  5f 4a 55 47 0d 05 50 11  |...F.. ._JUG..P.|
00000d00  20 20 f2 67 65 74 70 61  74 74 65 72 6e 0d 05 5a  |  .getpattern..Z|
00000d10  0a e7 20 6f 6b 20 8c 0d  05 64 0a 20 20 6d 25 3d  |.. ok ...d.  m%=|
00000d20  eb 0d 05 6e 1a 20 20 c8  99 20 22 57 69 6d 70 5f  |...n.  .. "Wimp_|
00000d30  53 65 74 4d 6f 64 65 22  2c 31 35 0d 05 78 39 20  |SetMode",15..x9 |
00000d40  20 2a 53 43 52 45 45 4e  53 49 5a 45 20 33 36 30  | *SCREENSIZE 360|
00000d50  4b 20 2a 45 52 52 4f 52  20 30 20 33 32 30 4b 20  |K *ERROR 0 320K |
00000d60  53 43 52 45 45 4e 20 4d  45 4d 4f 52 59 20 4e 45  |SCREEN MEMORY NE|
00000d70  45 44 45 44 0d 05 82 11  20 20 f2 72 65 73 65 74  |EDED....  .reset|
00000d80  62 61 6e 6b 73 0d 05 8c  09 20 20 ef 20 35 0d 05  |banks....  . 5..|
00000d90  96 0c 20 20 f2 74 72 61  63 6b 0d 05 a0 0d 20 20  |..  .track....  |
00000da0  f2 6a 75 67 67 6c 65 0d  05 aa 11 20 20 f2 72 65  |.juggle....  .re|
00000db0  73 65 74 62 61 6e 6b 73  0d 05 b4 1a 20 20 c8 99  |setbanks....  ..|
00000dc0  20 22 57 69 6d 70 5f 53  65 74 4d 6f 64 65 22 2c  | "Wimp_SetMode",|
00000dd0  6d 25 0d 05 be 1e 20 20  c8 99 20 22 57 69 6d 70  |m%....  .. "Wimp|
00000de0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 2d 31  |_CreateMenu",,-1|
00000df0  0d 05 c8 05 cd 0d 05 d2  2c 20 20 c8 99 20 22 57  |........,  .. "W|
00000e00  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00000e10  2c 2d 31 2c 30 2c 30 2c  33 30 30 30 2c 33 30 30  |,-1,0,0,3000,300|
00000e20  30 0d 05 dc 05 e1 0d 05  e6 04 0d 05 f0 11 dd 20  |0.............. |
00000e30  f2 67 65 74 70 61 74 74  65 72 6e 0d 05 fa 0c 20  |.getpattern.... |
00000e40  20 20 20 6f 6b 3d b9 0d  06 04 35 20 20 20 20 e7  |   ok=....5    .|
00000e50  20 a9 70 24 3e 6e 6d 61  78 25 20 8c 20 f2 5f 57  | .p$>nmax% . ._W|
00000e60  61 72 6e 28 22 50 61 74  74 65 72 6e 20 74 6f 6f  |arn("Pattern too|
00000e70  20 62 69 67 22 29 3a 20  6f 6b 3d a3 0d 06 0e 0f  | big"): ok=.....|
00000e80  20 20 20 20 70 6c 65 6e  25 3d 30 0d 06 18 14 20  |    plen%=0.... |
00000e90  20 20 20 e3 20 69 25 3d  31 20 b8 20 a9 70 24 0d  |   . i%=1 . .p$.|
00000ea0  06 22 16 20 20 20 20 20  20 61 24 3d c1 70 24 2c  |.".      a$=.p$,|
00000eb0  69 25 2c 31 29 0d 06 2c  22 20 20 20 20 20 20 70  |i%,1)..,"      p|
00000ec0  61 74 74 65 72 6e 25 28  70 6c 65 6e 25 29 3d 97  |attern%(plen%)=.|
00000ed0  61 24 2d 97 22 30 22 0d  06 36 12 20 20 20 20 20  |a$-."0"..6.     |
00000ee0  20 70 6c 65 6e 25 2b 3d  31 0d 06 40 0c 20 20 20  | plen%+=1..@.   |
00000ef0  20 ed 20 69 25 0d 06 4a  04 0d 06 54 13 20 20 20  | . i%..J...T.   |
00000f00  20 e7 20 70 6c 65 6e 25  3d 30 20 8c 0d 06 5e 17  | . plen%=0 ...^.|
00000f10  20 20 20 20 20 20 70 61  74 74 65 72 6e 25 28 30  |      pattern%(0|
00000f20  29 3d 33 0d 06 68 11 20  20 20 20 20 20 70 6c 65  |)=3..h.      ple|
00000f30  6e 25 3d 31 0d 06 72 09  20 20 20 20 cd 0d 06 7c  |n%=1..r.    ...||
00000f40  04 0d 06 86 17 20 20 20  20 e7 20 28 70 6c 65 6e  |.....    . (plen|
00000f50  25 20 80 20 31 29 20 8c  0d 06 90 1b 20 20 20 20  |% . 1) .....    |
00000f60  20 20 e7 20 32 2a 70 6c  65 6e 25 3e 6e 6d 61 78  |  . 2*plen%>nmax|
00000f70  25 20 8c 0d 06 9a 25 20  20 20 20 20 20 20 20 f2  |% ....%        .|
00000f80  5f 57 61 72 6e 28 22 50  61 74 74 65 72 6e 20 74  |_Warn("Pattern t|
00000f90  6f 6f 20 62 69 67 22 29  0d 06 a4 10 20 20 20 20  |oo big")....    |
00000fa0  20 20 20 20 6f 6b 3d a3  0d 06 ae 0b 20 20 20 20  |    ok=.....    |
00000fb0  20 20 cc 0d 06 b8 1c 20  20 20 20 20 20 20 20 e3  |  .....        .|
00000fc0  20 69 25 3d 30 20 b8 20  70 6c 65 6e 25 2d 31 0d  | i%=0 . plen%-1.|
00000fd0  06 c2 2d 20 20 20 20 20  20 20 20 20 20 70 61 74  |..-          pat|
00000fe0  74 65 72 6e 25 28 70 6c  65 6e 25 2b 69 25 29 3d  |tern%(plen%+i%)=|
00000ff0  70 61 74 74 65 72 6e 25  28 69 25 29 0d 06 cc 10  |pattern%(i%)....|
00001000  20 20 20 20 20 20 20 20  ed 20 69 25 0d 06 d6 19  |        . i%....|
00001010  20 20 20 20 20 20 20 20  70 6c 65 6e 25 3d 32 2a  |        plen%=2*|
00001020  70 6c 65 6e 25 0d 06 e0  0b 20 20 20 20 20 20 cd  |plen%....      .|
00001030  0d 06 ea 09 20 20 20 20  cd 0d 06 f4 04 0d 06 fe  |....    ........|
00001040  0e 20 20 20 20 66 75 6e  63 3d 30 0d 07 08 18 20  |.    func=0.... |
00001050  20 20 20 c8 95 20 66 75  6e 63 3c 3e 2d 31 20 80  |   .. func<>-1 .|
00001060  20 6f 6b 0d 07 12 11 20  20 20 20 20 20 66 75 6e  | ok....      fun|
00001070  63 2b 3d 31 0d 07 1c 13  20 20 20 20 20 20 c8 8e  |c+=1....      ..|
00001080  20 66 75 6e 63 20 ca 0d  07 26 1b 20 20 20 20 20  | func ...&.     |
00001090  20 20 20 c9 20 31 3a 20  6f 6b 3d a4 67 65 74 73  |   . 1: ok=.gets|
000010a0  75 6d 0d 07 30 1a 20 20  20 20 20 20 20 20 c9 20  |um..0.        . |
000010b0  32 3a 20 6f 6b 3d a4 67  65 74 61 76 0d 07 3a 1d  |2: ok=.getav..:.|
000010c0  20 20 20 20 20 20 20 20  c9 20 33 3a 20 6f 6b 3d  |        . 3: ok=|
000010d0  a4 76 61 6c 69 64 70 61  74 0d 07 44 16 20 20 20  |.validpat..D.   |
000010e0  20 20 20 20 20 7f 3a 20  66 75 6e 63 3d 2d 31 0d  |     .: func=-1.|
000010f0  07 4e 0b 20 20 20 20 20  20 cb 0d 07 58 09 20 20  |.N.      ...X.  |
00001100  20 20 ce 0d 07 62 10 20  20 e7 20 6d 61 78 25 3e  |  ...b.  . max%>|
00001110  31 20 8c 0d 07 6c 30 20  20 20 20 79 73 63 61 6c  |1 ...l0    yscal|
00001120  65 3d 68 65 69 67 68 74  79 25 2f 30 2e 32 35 2f  |e=heighty%/0.25/|
00001130  28 28 6d 61 78 25 2d 31  29 2a 28 6d 61 78 25 2d  |((max%-1)*(max%-|
00001140  31 29 29 0d 07 76 07 20  20 cc 0d 07 80 17 20 20  |1))..v.  .....  |
00001150  20 20 79 73 63 61 6c 65  3d 68 65 69 67 68 74 79  |  yscale=heighty|
00001160  25 0d 07 8a 07 20 20 cd  0d 07 94 05 e1 0d 07 9e  |%....  .........|
00001170  04 0d 07 a8 0d dd 20 a4  67 65 74 73 75 6d 0d 07  |...... .getsum..|
00001180  b2 0a 20 20 6f 6b 3d b9  0d 07 bc 14 20 20 73 75  |..  ok=.....  su|
00001190  6d 3d 30 3a 20 6d 61 78  25 3d 2d 31 0d 07 c6 16  |m=0: max%=-1....|
000011a0  20 20 e3 20 69 25 3d 30  20 b8 20 70 6c 65 6e 25  |  . i%=0 . plen%|
000011b0  2d 31 0d 07 d0 17 20 20  20 20 61 25 3d 70 61 74  |-1....    a%=pat|
000011c0  74 65 72 6e 25 28 69 25  29 0d 07 da 0f 20 20 20  |tern%(i%)....   |
000011d0  20 73 75 6d 2b 3d 61 25  0d 07 e4 1b 20 20 20 20  | sum+=a%....    |
000011e0  e7 20 61 25 3e 6d 61 78  25 20 8c 20 6d 61 78 25  |. a%>max% . max%|
000011f0  3d 61 25 0d 07 ee 0a 20  20 ed 20 69 25 0d 07 f8  |=a%....  . i%...|
00001200  07 3d 6f 6b 0d 08 02 04  0d 08 0c 0c dd 20 a4 67  |.=ok......... .g|
00001210  65 74 61 76 0d 08 16 0a  20 20 6f 6b 3d b9 0d 08  |etav....  ok=...|
00001220  20 12 20 20 6e 62 3d 73  75 6d 2f 70 6c 65 6e 25  | .  nb=sum/plen%|
00001230  0d 08 2a 15 20 20 e7 20  6e 62 2d a8 28 6e 62 29  |..*.  . nb-.(nb)|
00001240  3c 3e 30 20 8c 0d 08 34  2d 20 20 20 20 f2 5f 57  |<>0 ...4-    ._W|
00001250  61 72 6e 28 22 54 68 69  73 20 6e 65 65 64 73 20  |arn("This needs |
00001260  22 2b c3 28 6e 62 29 2b  22 20 62 61 6c 6c 73 21  |"+.(nb)+" balls!|
00001270  22 29 0d 08 3e 0c 20 20  20 20 6f 6b 3d a3 0d 08  |")..>.    ok=...|
00001280  48 07 20 20 cd 0d 08 52  12 20 20 6e 62 61 6c 6c  |H.  ...R.  nball|
00001290  25 3d a8 28 6e 62 29 0d  08 5c 07 3d 6f 6b 0d 08  |%=.(nb)..\.=ok..|
000012a0  66 04 0d 08 70 0f dd 20  a4 76 61 6c 69 64 70 61  |f...p.. .validpa|
000012b0  74 0d 08 7a 0a 20 20 6f  6b 3d b9 0d 08 84 11 20  |t..z.  ok=..... |
000012c0  20 e7 20 70 6c 65 6e 25  3e 31 20 8c 0d 08 8e 18  | . plen%>1 .....|
000012d0  20 20 20 20 e3 20 69 25  3d 30 20 b8 20 70 6c 65  |    . i%=0 . ple|
000012e0  6e 25 2d 32 0d 08 98 1d  20 20 20 20 20 20 e3 20  |n%-2....      . |
000012f0  6a 25 3d 69 25 2b 31 20  b8 20 70 6c 65 6e 25 2d  |j%=i%+1 . plen%-|
00001300  31 0d 08 a2 34 20 20 20  20 20 20 20 20 e7 20 70  |1...4        . p|
00001310  61 74 74 65 72 6e 25 28  69 25 29 2b 69 25 3d 70  |attern%(i%)+i%=p|
00001320  61 74 74 65 72 6e 25 28  6a 25 29 2b 6a 25 20 8c  |attern%(j%)+j% .|
00001330  20 6f 6b 3d a3 0d 08 ac  0e 20 20 20 20 20 20 ed  | ok=.....      .|
00001340  20 6a 25 0d 08 b6 0c 20  20 20 20 ed 20 69 25 0d  | j%....    . i%.|
00001350  08 c0 07 20 20 cd 0d 08  ca 0e 20 20 e7 20 ac 20  |...  .....  . . |
00001360  6f 6b 20 8c 0d 08 d4 2e  20 20 20 20 f2 5f 57 61  |ok .....    ._Wa|
00001370  72 6e 28 22 54 68 69 73  20 6e 65 65 64 73 20 6d  |rn("This needs m|
00001380  75 6c 74 69 70 6c 65 20  63 61 74 63 68 69 6e 67  |ultiple catching|
00001390  22 29 0d 08 de 07 20 20  cd 0d 08 e8 07 3d 6f 6b  |")....  .....=ok|
000013a0  0d 08 f2 04 0d 08 fc 0d  dd 20 f2 6a 75 67 67 6c  |......... .juggl|
000013b0  65 0d 09 06 11 ea 20 6d  78 25 2c 6d 79 25 2c 6d  |e..... mx%,my%,m|
000013c0  62 25 0d 09 10 12 20 20  68 65 69 67 68 74 25 28  |b%....  height%(|
000013d0  29 3d 2d 31 0d 09 1a 10  20 20 74 69 63 6b 73 25  |)=-1....  ticks%|
000013e0  28 29 3d 30 0d 09 24 0b  20 20 70 25 3d 2d 31 0d  |()=0..$.  p%=-1.|
000013f0  09 2e 0d 20 20 68 61 6e  64 25 3d 30 0d 09 38 0c  |...  hand%=0..8.|
00001400  20 20 4d 52 45 4c 3d b9  0d 09 42 04 0d 09 4c 05  |  MREL=...B...L.|
00001410  f5 0d 09 56 16 20 20 20  20 64 74 69 63 6b 3d 31  |...V.    dtick=1|
00001420  2f 72 74 69 63 6b 25 0d  09 60 09 20 20 20 20 f5  |/rtick%..`.    .|
00001430  0d 09 6a 15 20 20 20 20  20 20 f2 74 69 63 6b 6a  |..j.      .tickj|
00001440  75 67 67 6c 65 0d 09 74  17 20 20 20 20 20 20 68  |uggle..t.      h|
00001450  61 6e 64 25 3d 31 2d 68  61 6e 64 25 0d 09 7e 27  |and%=1-hand%..~'|
00001460  20 20 20 20 20 20 e7 20  4d 52 45 4c 20 c8 97 20  |      . MREL .. |
00001470  6d 78 25 2c 6d 79 25 2c  6d 62 25 20 8b 20 6d 62  |mx%,my%,mb% . mb|
00001480  25 3d 30 0d 09 88 10 20  20 20 20 fd 20 6d 62 25  |%=0....    . mb%|
00001490  3c 3e 30 0d 09 92 04 0d  09 9c 0e 20 20 20 20 4d  |<>0........    M|
000014a0  52 45 4c 3d a3 0d 09 a6  2b 20 20 20 20 e7 20 6d  |REL=....+    . m|
000014b0  78 25 3c 38 30 20 80 20  6d 79 25 3c 38 30 20 8c  |x%<80 . my%<80 .|
000014c0  20 6d 65 67 6f 3d b9 20  8b 20 6d 65 67 6f 3d a3  | mego=. . mego=.|
000014d0  0d 09 b0 6a 20 20 20 20  e7 20 6d 78 25 3c 31 31  |...j    . mx%<11|
000014e0  34 20 80 20 6d 79 25 3e  31 30 30 20 80 20 6d 79  |4 . my%>100 . my|
000014f0  25 3c 31 36 30 20 8c 20  74 69 63 6b 73 70 65 65  |%<160 . tickspee|
00001500  64 25 3d 32 2a 74 69 63  6b 73 70 65 65 64 25 3a  |d%=2*tickspeed%:|
00001510  e7 20 74 69 63 6b 73 70  65 65 64 25 3e 3d 72 74  |. tickspeed%>=rt|
00001520  69 63 6b 25 20 8c 20 74  69 63 6b 73 70 65 65 64  |ick% . tickspeed|
00001530  25 3d 72 74 69 63 6b 25  2f 32 0d 09 ba 5d 20 20  |%=rtick%/2...]  |
00001540  20 20 e7 20 6d 78 25 3c  31 31 34 20 80 20 6d 79  |  . mx%<114 . my|
00001550  25 3e 32 30 30 20 80 20  6d 79 25 3c 32 36 30 20  |%>200 . my%<260 |
00001560  8c 20 74 69 63 6b 73 70  65 65 64 25 3d 74 69 63  |. tickspeed%=tic|
00001570  6b 73 70 65 65 64 25 2f  32 3a e7 20 74 69 63 6b  |kspeed%/2:. tick|
00001580  73 70 65 65 64 25 3c 31  20 8c 20 74 69 63 6b 73  |speed%<1 . ticks|
00001590  70 65 65 64 25 3d 31 0d  09 c4 0e 20 20 20 fd 20  |peed%=1....   . |
000015a0  20 6d 65 67 6f 0d 09 ce  04 0d 09 d8 05 e1 0d 09  | mego...........|
000015b0  e2 04 0d 09 ec 11 dd 20  f2 74 69 63 6b 6a 75 67  |....... .tickjug|
000015c0  67 6c 65 0d 09 f6 11 ea  20 6d 78 25 2c 6d 79 25  |gle..... mx%,my%|
000015d0  2c 6d 62 25 0d 0a 00 17  20 20 70 25 3d 28 70 25  |,mb%....  p%=(p%|
000015e0  2b 31 29 20 83 20 70 6c  65 6e 25 0d 0a 0a 15 20  |+1) . plen%.... |
000015f0  20 68 25 3d 70 61 74 74  65 72 6e 25 28 70 25 29  | h%=pattern%(p%)|
00001600  0d 0a 14 1e 20 20 74 69  63 6b 73 25 28 29 3d 74  |....  ticks%()=t|
00001610  69 63 6b 73 25 28 29 2b  72 74 69 63 6b 25 0d 0a  |icks%()+rtick%..|
00001620  1e 0e 20 20 e7 20 68 25  3e 30 20 8c 0d 0a 28 45  |..  . h%>0 ...(E|
00001630  20 20 20 20 f4 20 66 69  6e 64 20 6f 75 74 20 77  |    . find out w|
00001640  68 69 63 68 20 62 61 6c  6c 20 68 61 73 20 6c 61  |hich ball has la|
00001650  6e 64 65 64 2c 20 61 6e  64 20 74 68 72 6f 77 20  |nded, and throw |
00001660  61 20 6e 65 77 20 6f 6e  65 20 69 66 20 6e 65 63  |a new one if nec|
00001670  2e 0d 0a 32 14 20 20 20  20 62 25 3d 2d 31 3a 20  |...2.    b%=-1: |
00001680  63 25 3d 2d 31 0d 0a 3c  19 20 20 20 20 e3 20 69  |c%=-1..<.    . i|
00001690  25 3d 30 20 b8 20 6e 62  61 6c 6c 25 2d 31 0d 0a  |%=0 . nball%-1..|
000016a0  46 2c 20 20 20 20 20 20  e7 20 74 69 63 6b 73 25  |F,      . ticks%|
000016b0  28 69 25 29 3e 3d 72 74  69 63 6b 25 2a 68 65 69  |(i%)>=rtick%*hei|
000016c0  67 68 74 25 28 69 25 29  20 8c 0d 0a 50 2c 20 20  |ght%(i%) ...P,  |
000016d0  20 20 20 20 20 20 e7 20  68 65 69 67 68 74 25 28  |      . height%(|
000016e0  69 25 29 3e 3d 30 20 8c  20 62 25 3d 69 25 20 8b  |i%)>=0 . b%=i% .|
000016f0  20 63 25 3d 69 25 0d 0a  5a 0b 20 20 20 20 20 20  | c%=i%..Z.      |
00001700  cd 0d 0a 64 0c 20 20 20  20 ed 20 69 25 0d 0a 6e  |...d.    . i%..n|
00001710  17 20 20 20 20 e7 20 62  25 3d 2d 31 20 8c 20 62  |.    . b%=-1 . b|
00001720  25 3d 63 25 0d 0a 78 12  20 20 20 20 e7 20 62 25  |%=c%..x.    . b%|
00001730  3c 3e 2d 31 20 8c 0d 0a  82 18 20 20 20 20 20 20  |<>-1 .....      |
00001740  68 65 69 67 68 74 25 28  62 25 29 3d 68 25 0d 0a  |height%(b%)=h%..|
00001750  8c 16 20 20 20 20 20 20  74 69 63 6b 73 25 28 62  |..      ticks%(b|
00001760  25 29 3d 30 0d 0a 96 15  20 20 20 20 20 20 70 6f  |%)=0....      po|
00001770  73 25 28 62 25 29 3d 70  25 0d 0a a0 1a 20 20 20  |s%(b%)=p%....   |
00001780  20 20 20 68 61 6e 64 73  25 28 62 25 29 3d 68 61  |   hands%(b%)=ha|
00001790  6e 64 25 0d 0a aa 09 20  20 20 20 cd 0d 0a b4 07  |nd%....    .....|
000017a0  20 20 cd 0d 0a be 04 0d  0a c8 28 20 20 e3 20 70  |  ........(  . p|
000017b0  74 69 63 6b 25 3d 30 20  b8 20 72 74 69 63 6b 25  |tick%=0 . rtick%|
000017c0  2d 31 20 88 20 74 69 63  6b 73 70 65 65 64 25 0d  |-1 . tickspeed%.|
000017d0  0a d2 14 20 20 c8 97 20  6d 78 25 2c 6d 79 25 2c  |...  .. mx%,my%,|
000017e0  6d 62 25 0d 0a dc 16 20  20 e7 20 6d 62 25 3d 30  |mb%....  . mb%=0|
000017f0  20 8c 20 4d 52 45 4c 3d  b9 0d 0a e6 19 20 20 e7  | . MREL=.....  .|
00001800  20 6d 62 25 3c 3e 30 20  80 20 4d 52 45 4c 20 8c  | mb%<>0 . MREL .|
00001810  20 e1 0d 0a f0 14 20 20  20 20 f2 73 74 61 72 74  | .....    .start|
00001820  75 70 64 61 74 65 0d 0a  fa 09 20 20 20 20 db 0d  |update....    ..|
00001830  0b 04 04 0d 0b 0e 13 20  20 20 20 e6 20 36 33 20  |.......    . 63 |
00001840  c8 9c 20 32 35 35 0d 0b  18 13 20 20 20 20 64 25  |.. 255....    d%|
00001850  3d 72 68 61 6e 64 25 2f  32 0d 0b 22 1e 20 20 20  |=rhand%/2..".   |
00001860  20 74 25 3d 70 74 69 63  6b 25 2b 72 74 69 63 6b  | t%=ptick%+rtick|
00001870  25 2a 68 61 6e 64 25 0d  0b 2c 04 0d 0b 36 0f 20  |%*hand%..,...6. |
00001880  20 20 20 ec 20 31 37 30  2c 30 0d 0b 40 34 20 20  |   . 170,0..@4  |
00001890  20 20 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |  .."OS_SpriteOp|
000018a0  22 2c 32 35 36 2b 32 38  2c 53 70 72 69 74 65 41  |",256+28,SpriteA|
000018b0  72 65 61 2c 22 62 6f 64  79 22 2c 2c 2c 30 0d 0b  |rea,"body",,,0..|
000018c0  4a 04 0d 0b 54 2c 20 20  20 20 ec 20 20 68 61 6e  |J...T,    .  han|
000018d0  64 78 25 28 31 2c 74 25  29 2d 36 30 2c 68 61 6e  |dx%(1,t%)-60,han|
000018e0  64 79 25 28 31 2c 74 25  29 2d 64 25 2f 32 0d 0b  |dy%(1,t%)-d%/2..|
000018f0  5e 34 20 20 20 20 c8 99  22 4f 53 5f 53 70 72 69  |^4    .."OS_Spri|
00001900  74 65 4f 70 22 2c 32 35  36 2b 32 38 2c 53 70 72  |teOp",256+28,Spr|
00001910  69 74 65 41 72 65 61 2c  22 6c 65 66 74 22 2c 2c  |iteArea,"left",,|
00001920  2c 38 0d 0b 68 04 0d 0b  72 2c 20 20 20 20 ec 20  |,8..h...r,    . |
00001930  68 61 6e 64 78 25 28 30  2c 74 25 29 2d 31 30 30  |handx%(0,t%)-100|
00001940  2c 68 61 6e 64 79 25 28  30 2c 74 25 29 2d 64 25  |,handy%(0,t%)-d%|
00001950  2f 32 0d 0b 7c 35 20 20  20 20 c8 99 22 4f 53 5f  |/2..|5    .."OS_|
00001960  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 32 38  |SpriteOp",256+28|
00001970  2c 53 70 72 69 74 65 41  72 65 61 2c 22 72 69 67  |,SpriteArea,"rig|
00001980  68 74 22 2c 2c 2c 38 0d  0b 86 04 0d 0b 90 0f 20  |ht",,,8........ |
00001990  20 20 20 ec 20 31 30 2c  34 30 0d 0b 9a 0f 20 20  |   . 10,40....  |
000019a0  20 20 f1 22 53 54 4f 50  22 0d 0b a4 14 20 20 20  |  ."STOP"....   |
000019b0  20 c8 93 20 30 2c 30 2c  38 30 2c 36 30 0d 0b ae  | .. 0,0,80,60...|
000019c0  10 20 20 20 20 ec 20 31  30 2c 31 34 30 0d 0b b8  |.    . 10,140...|
000019d0  11 20 20 20 20 f1 22 46  61 73 74 65 72 22 0d 0b  |.    ."Faster"..|
000019e0  c2 17 20 20 20 20 c8 93  20 30 2c 31 30 30 2c 31  |..    .. 0,100,1|
000019f0  31 34 2c 36 30 0d 0b cc  10 20 20 20 20 ec 20 31  |14,60....    . 1|
00001a00  30 2c 32 34 30 0d 0b d6  11 20 20 20 20 f1 22 53  |0,240....    ."S|
00001a10  6c 6f 77 65 72 22 0d 0b  e0 17 20 20 20 20 c8 93  |lower"....    ..|
00001a20  20 30 2c 32 30 30 2c 31  31 34 2c 36 30 0d 0b ea  | 0,200,114,60...|
00001a30  04 0d 0b f4 0f 20 20 20  ec 20 30 2c 31 30 30 30  |.....   . 0,1000|
00001a40  0d 0b fe 0b 20 20 20 f1  20 70 24 0d 0c 08 04 0d  |....   . p$.....|
00001a50  0c 12 19 20 20 20 20 e3  20 69 25 3d 30 20 b8 20  |...    . i%=0 . |
00001a60  6e 62 61 6c 6c 25 2d 31  0d 0c 1c 1c 20 20 20 20  |nball%-1....    |
00001a70  20 20 e7 20 68 65 69 67  68 74 25 28 69 25 29 3e  |  . height%(i%)>|
00001a80  3d 30 20 8c 0d 0c 26 20  20 20 20 20 20 20 20 20  |=0 ...&         |
00001a90  74 25 3d 74 69 63 6b 73  25 28 69 25 29 2b 70 74  |t%=ticks%(i%)+pt|
00001aa0  69 63 6b 25 0d 0c 30 1a  20 20 20 20 20 20 20 20  |ick%..0.        |
00001ab0  68 25 3d 68 65 69 67 68  74 25 28 69 25 29 0d 0c  |h%=height%(i%)..|
00001ac0  3a 1d 20 20 20 20 20 20  20 20 78 25 3d 74 72 61  |:.        x%=tra|
00001ad0  63 6b 78 25 28 68 25 2c  74 25 29 0d 0c 44 1d 20  |ckx%(h%,t%)..D. |
00001ae0  20 20 20 20 20 20 20 79  25 3d 74 72 61 63 6b 79  |       y%=tracky|
00001af0  25 28 68 25 2c 74 25 29  0d 0c 4e 29 20 20 20 20  |%(h%,t%)..N)    |
00001b00  20 20 20 20 e7 20 68 61  6e 64 73 25 28 69 25 29  |    . hands%(i%)|
00001b10  20 8c 20 78 25 3d 73 63  72 65 65 6e 78 25 2d 78  | . x%=screenx%-x|
00001b20  25 0d 0c 58 43 20 20 20  20 20 20 20 20 c8 99 20  |%..XC        .. |
00001b30  53 70 72 69 74 65 4f 70  2c 33 34 2b 35 31 32 2c  |SpriteOp,34+512,|
00001b40  53 70 72 69 74 65 41 72  65 61 2c 73 70 72 69 74  |SpriteArea,sprit|
00001b50  65 25 28 69 25 29 2c 78  25 2d 33 32 2c 79 25 2d  |e%(i%),x%-32,y%-|
00001b60  31 36 2c 38 0d 0c 62 0b  20 20 20 20 20 20 cd 0d  |16,8..b.      ..|
00001b70  0c 6c 0c 20 20 20 20 ed  20 69 25 0d 0c 76 04 0d  |.l.    . i%..v..|
00001b80  0c 80 12 20 20 20 20 f2  65 6e 64 75 70 64 61 74  |...    .endupdat|
00001b90  65 0d 0c 8a 0e 20 20 ed  20 70 74 69 63 6b 25 0d  |e....  . ptick%.|
00001ba0  0c 94 05 e1 0d 0c 9e 04  0d 0c a8 04 0d 0c b2 37  |...............7|
00001bb0  f4 20 54 68 69 73 20 6d  61 6b 65 73 20 74 68 65  |. This makes the|
00001bc0  20 74 72 61 63 6b 73 20  66 6f 72 20 74 68 65 20  | tracks for the |
00001bd0  68 61 6e 64 73 20 61 6e  64 20 74 68 65 20 62 61  |hands and the ba|
00001be0  6c 6c 73 0d 0c bc 04 0d  0c c6 0c dd 20 f2 74 72  |lls......... .tr|
00001bf0  61 63 6b 0d 0c d0 1d 20  20 f4 20 66 69 72 73 74  |ack....  . first|
00001c00  20 74 72 61 63 6b 20 74  68 65 20 68 61 6e 64 73  | track the hands|
00001c10  0d 0c da 18 20 20 e3 20  70 74 69 63 6b 25 3d 30  |....  . ptick%=0|
00001c20  20 b8 20 72 32 25 2d 31  0d 0c e4 19 20 20 20 20  | . r2%-1....    |
00001c30  74 3d af 2a 70 74 69 63  6b 25 2f 72 74 69 63 6b  |t=.*ptick%/rtick|
00001c40  25 0d 0c ee 04 0d 0c f8  2c 20 20 20 20 68 61 6e  |%.......,    han|
00001c50  64 78 25 28 30 2c 70 74  69 63 6b 25 29 3d 72 78  |dx%(0,ptick%)=rx|
00001c60  25 2d 28 72 68 61 6e 64  25 2a b5 28 74 29 29 2f  |%-(rhand%*.(t))/|
00001c70  32 0d 0d 02 2a 20 20 20  20 68 61 6e 64 79 25 28  |2...*    handy%(|
00001c80  30 2c 70 74 69 63 6b 25  29 3d 62 61 73 65 79 25  |0,ptick%)=basey%|
00001c90  2d 37 34 2d 33 30 2a b5  28 74 29 0d 0d 0c 04 0d  |-74-30*.(t).....|
00001ca0  0d 16 31 20 20 20 20 68  61 6e 64 78 25 28 31 2c  |..1    handx%(1,|
00001cb0  70 74 69 63 6b 25 29 3d  6c 78 25 2d 28 28 72 68  |ptick%)=lx%-((rh|
00001cc0  61 6e 64 25 2a b5 28 74  29 29 2f 33 29 2d 32 30  |and%*.(t))/3)-20|
00001cd0  0d 0d 20 2a 20 20 20 20  68 61 6e 64 79 25 28 31  |.. *    handy%(1|
00001ce0  2c 70 74 69 63 6b 25 29  3d 62 61 73 65 79 25 2b  |,ptick%)=basey%+|
00001cf0  33 30 2a b5 28 74 29 2d  38 30 0d 0d 2a 04 0d 0d  |30*.(t)-80..*...|
00001d00  34 0e 20 20 ed 20 70 74  69 63 6b 25 0d 0d 3e 04  |4.  . ptick%..>.|
00001d10  0d 0d 48 20 20 20 f4 20  6e 6f 77 20 6d 61 6b 65  |..H   . now make|
00001d20  20 65 61 63 68 20 62 61  6c 6c 20 74 72 61 63 6b  | each ball track|
00001d30  0d 0d 52 04 0d 0d 5c 10  20 20 e3 20 70 25 3d 31  |..R...\.  . p%=1|
00001d40  20 b8 20 39 0d 0d 66 15  20 20 20 e7 20 a7 70 24  | . 9..f.   . .p$|
00001d50  2c c3 28 70 25 29 29 20  8c 0d 0d 70 0d 20 20 20  |,.(p%)) ...p.   |
00001d60  20 73 68 25 3d 30 0d 0d  7a 0d 20 20 20 20 68 25  | sh%=0..z.    h%|
00001d70  3d 70 25 0d 0d 84 28 20  20 20 20 e7 20 28 68 25  |=p%...(    . (h%|
00001d80  20 80 20 31 29 20 8c 20  66 68 25 3d 31 2d 73 68  | . 1) . fh%=1-sh|
00001d90  25 20 8b 20 66 68 25 3d  73 68 25 0d 0d 8e 04 0d  |% . fh%=sh%.....|
00001da0  0d 98 44 20 20 20 20 f4  20 54 68 69 73 20 6d 61  |..D    . This ma|
00001db0  6b 65 73 20 74 68 65 20  74 72 61 63 6b 73 20 66  |kes the tracks f|
00001dc0  6f 72 20 74 68 72 6f 77  20 66 72 6f 6d 20 73 68  |or throw from sh|
00001dd0  25 20 74 6f 20 66 68 25  2c 20 68 65 69 67 68 74  |% to fh%, height|
00001de0  20 68 25 0d 0d a2 18 20  20 20 20 f4 20 49 6e 20  | h%....    . In |
00001df0  70 6f 73 69 74 69 6f 6e  20 70 25 0d 0d ac 04 0d  |position p%.....|
00001e00  0d b6 10 20 20 20 20 e7  20 68 25 3e 31 20 8c 0d  |...    . h%>1 ..|
00001e10  0d c0 16 20 20 20 20 20  20 6b 30 25 3d 72 74 69  |...      k0%=rti|
00001e20  63 6b 25 2f 32 0d 0d ca  28 20 20 20 20 20 20 6b  |ck%/2...(      k|
00001e30  31 25 3d 28 68 25 2a 72  74 69 63 6b 25 2d 72 74  |1%=(h%*rtick%-rt|
00001e40  69 63 6b 25 2f 32 29 20  83 20 72 32 25 0d 0d d4  |ick%/2) . r2%...|
00001e50  09 20 20 20 20 cc 0d 0d  de 0f 20 20 20 20 20 20  |.    .....      |
00001e60  6b 30 25 3d 30 0d 0d e8  14 20 20 20 20 20 20 6b  |k0%=0....      k|
00001e70  31 25 3d 72 74 69 63 6b  25 0d 0d f2 09 20 20 20  |1%=rtick%....   |
00001e80  20 cd 0d 0d fc 30 20 20  20 20 73 78 25 3d 68 61  | ....0    sx%=ha|
00001e90  6e 64 78 25 28 73 68 25  2c 6b 30 25 29 3a 20 73  |ndx%(sh%,k0%): s|
00001ea0  79 25 3d 68 61 6e 64 79  25 28 73 68 25 2c 6b 30  |y%=handy%(sh%,k0|
00001eb0  25 29 0d 0e 06 30 20 20  20 20 66 78 25 3d 68 61  |%)...0    fx%=ha|
00001ec0  6e 64 78 25 28 66 68 25  2c 6b 31 25 29 3a 20 66  |ndx%(fh%,k1%): f|
00001ed0  79 25 3d 68 61 6e 64 79  25 28 66 68 25 2c 6b 31  |y%=handy%(fh%,k1|
00001ee0  25 29 0d 0e 10 04 0d 0e  1a 0f 20 20 20 20 c8 8e  |%)........    ..|
00001ef0  20 68 25 20 ca 0d 0e 24  04 0d 0e 2e 18 20 20 20  | h% ...$.....   |
00001f00  20 c9 20 33 2c 34 2c 35  2c 36 2c 37 2c 38 2c 39  | . 3,4,5,6,7,8,9|
00001f10  3a 0d 0e 38 22 20 20 20  20 20 20 e3 20 70 74 69  |:..8"      . pti|
00001f20  63 6b 25 3d 30 20 b8 20  68 25 2a 72 74 69 63 6b  |ck%=0 . h%*rtick|
00001f30  25 2d 31 0d 0e 42 1c 20  20 20 20 20 20 20 20 74  |%-1..B.        t|
00001f40  69 3d 70 74 69 63 6b 25  2f 72 74 69 63 6b 25 0d  |i=ptick%/rtick%.|
00001f50  0e 4c 1b 20 20 20 20 20  20 20 20 71 25 3d 70 74  |.L.        q%=pt|
00001f60  69 63 6b 25 20 83 20 72  32 25 0d 0e 56 16 20 20  |ick% . r2%..V.  |
00001f70  20 20 20 20 20 20 e7 20  74 69 3c 30 2e 35 20 8c  |      . ti<0.5 .|
00001f80  0d 0e 60 1f 20 20 20 20  20 20 20 20 20 20 78 25  |..`.          x%|
00001f90  3d 68 61 6e 64 78 25 28  73 68 25 2c 71 25 29 0d  |=handx%(sh%,q%).|
00001fa0  0e 6a 1f 20 20 20 20 20  20 20 20 20 20 79 25 3d  |.j.          y%=|
00001fb0  68 61 6e 64 79 25 28 73  68 25 2c 71 25 29 0d 0e  |handy%(sh%,q%)..|
00001fc0  74 0d 20 20 20 20 20 20  20 20 cc 0d 0e 7e 1b 20  |t.        ...~. |
00001fd0  20 20 20 20 20 20 20 20  20 e7 20 74 69 3e 68 25  |         . ti>h%|
00001fe0  2d 30 2e 35 20 8c 0d 0e  88 21 20 20 20 20 20 20  |-0.5 ....!      |
00001ff0  20 20 20 20 20 20 78 25  3d 68 61 6e 64 78 25 28  |      x%=handx%(|
00002000  66 68 25 2c 71 25 29 0d  0e 92 21 20 20 20 20 20  |fh%,q%)...!     |
00002010  20 20 20 20 20 20 20 79  25 3d 68 61 6e 64 79 25  |       y%=handy%|
00002020  28 66 68 25 2c 71 25 29  0d 0e 9c 0f 20 20 20 20  |(fh%,q%)....    |
00002030  20 20 20 20 20 20 cc 0d  0e a6 21 20 20 20 20 20  |      ....!     |
00002040  20 20 20 20 20 20 20 74  3d 28 74 69 2d 30 2e 35  |       t=(ti-0.5|
00002050  29 2f 28 68 25 2d 31 29  0d 0e b0 3f 20 20 20 20  |)/(h%-1)...?    |
00002060  20 20 20 20 20 20 20 20  79 25 3d 28 66 79 25 2d  |        y%=(fy%-|
00002070  73 79 25 29 2a 74 2b 73  79 25 2b 79 73 63 61 6c  |sy%)*t+sy%+yscal|
00002080  65 2a 74 2a 28 31 2d 74  29 2a 28 68 25 2d 31 29  |e*t*(1-t)*(h%-1)|
00002090  2a 28 68 25 2d 31 29 0d  0e ba 22 20 20 20 20 20  |*(h%-1)..."     |
000020a0  20 20 20 20 20 20 20 78  25 3d 28 66 78 25 2d 73  |       x%=(fx%-s|
000020b0  78 25 29 2a 74 2b 73 78  25 0d 0e c4 0f 20 20 20  |x%)*t+sx%....   |
000020c0  20 20 20 20 20 20 20 cd  0d 0e ce 0d 20 20 20 20  |       .....    |
000020d0  20 20 20 20 cd 0d 0e d8  21 20 20 20 20 20 20 20  |    ....!       |
000020e0  20 74 72 61 63 6b 78 25  28 70 25 2c 70 74 69 63  | trackx%(p%,ptic|
000020f0  6b 25 29 3d 78 25 0d 0e  e2 21 20 20 20 20 20 20  |k%)=x%...!      |
00002100  20 20 74 72 61 63 6b 79  25 28 70 25 2c 70 74 69  |  tracky%(p%,pti|
00002110  63 6b 25 29 3d 79 25 0d  0e ec 12 20 20 20 20 20  |ck%)=y%....     |
00002120  20 ed 20 70 74 69 63 6b  25 0d 0e f6 04 0d 0f 00  | . ptick%.......|
00002130  0c 20 20 20 20 c9 20 32  3a 0d 0f 0a 22 20 20 20  |.    . 2:..."   |
00002140  20 20 20 e3 20 70 74 69  63 6b 25 3d 30 20 b8 20  |   . ptick%=0 . |
00002150  68 25 2a 72 74 69 63 6b  25 2d 31 0d 0f 14 31 20  |h%*rtick%-1...1 |
00002160  20 20 20 20 20 20 20 74  72 61 63 6b 78 25 28 70  |       trackx%(p|
00002170  25 2c 70 74 69 63 6b 25  29 3d 68 61 6e 64 78 25  |%,ptick%)=handx%|
00002180  28 73 68 25 2c 70 74 69  63 6b 25 29 0d 0f 1e 31  |(sh%,ptick%)...1|
00002190  20 20 20 20 20 20 20 20  74 72 61 63 6b 79 25 28  |        tracky%(|
000021a0  70 25 2c 70 74 69 63 6b  25 29 3d 68 61 6e 64 79  |p%,ptick%)=handy|
000021b0  25 28 73 68 25 2c 70 74  69 63 6b 25 29 0d 0f 28  |%(sh%,ptick%)..(|
000021c0  12 20 20 20 20 20 20 ed  20 70 74 69 63 6b 25 0d  |.      . ptick%.|
000021d0  0f 32 04 0d 0f 3c 0c 20  20 20 20 c9 20 31 3a 0d  |.2...<.    . 1:.|
000021e0  0f 46 1f 20 20 20 20 20  20 e3 20 70 74 69 63 6b  |.F.      . ptick|
000021f0  25 3d 30 20 b8 20 72 74  69 63 6b 25 2d 31 0d 0f  |%=0 . rtick%-1..|
00002200  50 1b 20 20 20 20 20 20  20 20 74 3d 70 74 69 63  |P.        t=ptic|
00002210  6b 25 2f 72 74 69 63 6b  25 0d 0f 5a 2e 20 20 20  |k%/rtick%..Z.   |
00002220  20 20 20 20 20 74 72 61  63 6b 78 25 28 70 25 2c  |     trackx%(p%,|
00002230  70 74 69 63 6b 25 29 3d  28 66 78 25 2d 73 78 25  |ptick%)=(fx%-sx%|
00002240  29 2a 74 2b 73 78 25 0d  0f 64 3f 20 20 20 20 20  |)*t+sx%..d?     |
00002250  20 20 20 74 72 61 63 6b  79 25 28 70 25 2c 70 74  |   tracky%(p%,pt|
00002260  69 63 6b 25 29 3d 28 66  79 25 2d 73 79 25 29 2a  |ick%)=(fy%-sy%)*|
00002270  74 2b 73 79 25 2b 32 2a  79 73 63 61 6c 65 2a 74  |t+sy%+2*yscale*t|
00002280  2a 28 31 2d 74 29 0d 0f  6e 12 20 20 20 20 20 20  |*(1-t)..n.      |
00002290  ed 20 70 74 69 63 6b 25  0d 0f 78 04 0d 0f 82 09  |. ptick%..x.....|
000022a0  20 20 20 20 cb 0d 0f 8c  08 20 20 20 cd 0d 0f 96  |    .....   ....|
000022b0  0a 20 20 ed 20 70 25 0d  0f a0 05 e1 0d 0f aa 04  |.  . p%.........|
000022c0  0d 0f b4 11 dd 20 f2 72  65 73 65 74 62 61 6e 6b  |..... .resetbank|
000022d0  73 0d 0f be 2e 20 20 c8  99 20 22 4f 53 5f 42 79  |s....  .. "OS_By|
000022e0  74 65 22 2c 31 39 20 20  20 20 20 20 20 20 3a f4  |te",19        :.|
000022f0  20 77 61 69 74 20 66 6f  72 20 56 73 79 6e 63 0d  | wait for Vsync.|
00002300  0f c8 32 20 20 c8 99 20  22 4f 53 5f 42 79 74 65  |..2  .. "OS_Byte|
00002310  22 2c 31 31 32 2c 30 20  20 20 20 20 3a f4 20 72  |",112,0     :. r|
00002320  65 73 65 74 20 6c 6f 67  69 63 61 6c 20 62 61 6e  |eset logical ban|
00002330  6b 0d 0f d2 33 20 20 c8  99 20 22 4f 53 5f 42 79  |k...3  .. "OS_By|
00002340  74 65 22 2c 31 31 33 2c  30 20 20 20 20 20 3a f4  |te",113,0     :.|
00002350  20 72 65 73 65 74 20 70  68 79 73 69 63 61 6c 20  | reset physical |
00002360  62 61 6e 6b 0d 0f dc 0d  20 20 62 61 6e 6b 25 3d  |bank....  bank%=|
00002370  31 0d 0f e6 05 e1 0d 0f  f0 04 0d 0f fa 12 dd 20  |1.............. |
00002380  f2 73 74 61 72 74 75 70  64 61 74 65 0d 10 04 13  |.startupdate....|
00002390  20 20 62 61 6e 6b 25 3d  33 2d 62 61 6e 6b 25 0d  |  bank%=3-bank%.|
000023a0  10 0e 33 20 20 c8 99 20  22 4f 53 5f 42 79 74 65  |..3  .. "OS_Byte|
000023b0  22 2c 31 31 32 2c 62 61  6e 6b 25 20 3a f4 20 63  |",112,bank% :. c|
000023c0  68 61 6e 67 65 20 6c 6f  67 69 63 61 6c 20 62 61  |hange logical ba|
000023d0  6e 6b 0d 10 18 05 e1 0d  10 22 04 0d 10 2c 10 dd  |nk......."...,..|
000023e0  20 f2 65 6e 64 75 70 64  61 74 65 0d 10 36 2e 20  | .endupdate..6. |
000023f0  20 c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 39  | .. "OS_Byte",19|
00002400  20 20 20 20 20 20 20 20  3a f4 20 77 61 69 74 20  |        :. wait |
00002410  66 6f 72 20 56 73 79 6e  63 0d 10 40 34 20 20 c8  |for Vsync..@4  .|
00002420  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 33 2c  |. "OS_Byte",113,|
00002430  62 61 6e 6b 25 20 3a f4  20 63 68 61 6e 67 65 20  |bank% :. change |
00002440  70 68 79 73 69 63 61 6c  20 62 61 6e 6b 0d 10 4a  |physical bank..J|
00002450  05 e1 0d 10 54 04 0d 10  5e 12 dd 20 f2 5f 64 6f  |....T...^.. ._do|
00002460  5f 4b 65 79 28 71 25 29  0d 10 68 14 e7 20 71 25  |_Key(q%)..h.. q%|
00002470  21 30 3d 63 75 73 74 6f  6d 25 20 8c 0d 10 72 1f  |!0=custom% ...r.|
00002480  e7 20 71 25 21 32 34 3d  31 33 20 8c 20 f2 5f 47  |. q%!24=13 . ._G|
00002490  65 74 50 61 74 3a f2 5f  4a 55 47 0d 10 7c 05 cd  |etPat:._JUG..|..|
000024a0  0d 10 86 05 e1 0d 10 90  04 0d 10 9a 14 dd 20 f2  |.............. .|
000024b0  5f 64 6f 5f 63 6c 69 63  6b 28 71 25 29 0d 10 a4  |_do_click(q%)...|
000024c0  21 e7 20 71 25 21 31 32  3d 2d 32 20 80 20 71 25  |!. q%!12=-2 . q%|
000024d0  21 31 36 3d 6a 75 67 69  63 6f 6e 25 20 8c 0d 10  |!16=jugicon% ...|
000024e0  ae 35 e7 20 71 25 21 38  3d 32 20 8c 20 c8 99 22  |.5. q%!8=2 . .."|
000024f0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00002500  2c 2c 6d 65 6e 75 25 2c  71 25 21 30 2d 36 34 2c  |,,menu%,q%!0-64,|
00002510  35 30 30 0d 10 b8 14 e7  20 71 25 21 38 3d 34 20  |500..... q%!8=4 |
00002520  8c 20 f2 5f 4a 55 47 0d  10 c2 05 cc 0d 10 cc 24  |. ._JUG........$|
00002530  e7 20 71 25 21 31 32 3d  63 75 73 74 6f 6d 25 20  |. q%!12=custom% |
00002540  8c 20 f2 5f 47 65 74 50  61 74 3a f2 5f 4a 55 47  |. ._GetPat:._JUG|
00002550  0d 10 d6 17 e7 20 71 25  21 31 32 3d 77 61 72 6e  |..... q%!12=warn|
00002560  69 6e 67 57 25 20 8c 0d  10 e0 25 20 20 20 20 20  |ingW% ....%     |
00002570  20 20 20 20 20 20 20 20  20 20 20 20 20 20 71 25  |              q%|
00002580  21 30 3d 77 61 72 6e 69  6e 67 57 25 0d 10 ea 2f  |!0=warningW%.../|
00002590  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000025a0  20 20 20 c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |   .."Wimp_Close|
000025b0  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 10 f4 2a 20  |Window",,q%...* |
000025c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000025d0  20 20 c8 97 20 c8 93 20  30 2c 30 2c 33 30 30 30  |  .. .. 0,0,3000|
000025e0  2c 33 30 30 30 0d 10 fe  18 20 20 20 20 20 20 20  |,3000....       |
000025f0  20 20 20 20 20 20 20 20  20 20 20 20 cd 0d 11 08  |            ....|
00002600  05 cd 0d 11 12 05 e1 0d  11 1c 04 0d 11 26 0a dd  |.............&..|
00002610  a4 69 63 6f 6e 0d 11 30  0b 71 25 21 30 3d 2d 31  |.icon..0.q%!0=-1|
00002620  0d 11 3a 0a 71 25 21 34  3d 30 0d 11 44 1a 71 25  |..:.q%!4=0..D.q%|
00002630  21 38 3d 30 20 3a 20 f4  20 59 20 44 49 52 45 43  |!8=0 : . Y DIREC|
00002640  54 49 4f 4e 0d 11 4e 1c  71 25 21 31 32 3d 37 32  |TION..N.q%!12=72|
00002650  20 3a 20 f4 20 58 20 44  49 52 45 43 54 49 4f 4e  | : . X DIRECTION|
00002660  0d 11 58 0c 71 25 21 31  36 3d 39 36 0d 11 62 0f  |..X.q%!16=96..b.|
00002670  71 25 21 32 30 3d 26 32  30 30 32 0d 11 6c 16 24  |q%!20=&2002..l.$|
00002680  28 71 25 2b 32 34 29 3d  22 21 4a 75 67 67 6c 65  |(q%+24)="!Juggle|
00002690  22 0d 11 76 24 c8 99 20  22 57 69 6d 70 5f 43 72  |"..v$.. "Wimp_Cr|
000026a0  65 61 74 65 49 63 6f 6e  22 2c 2c 71 25 20 b8 20  |eateIcon",,q% . |
000026b0  69 63 6f 6e 25 0d 11 80  0a 3d 69 63 6f 6e 25 0d  |icon%....=icon%.|
000026c0  11 8a 04 0d 11 94 0f dd  f2 73 65 74 75 70 6d 65  |.........setupme|
000026d0  6e 75 0d 11 9e 08 ea 20  6d 25 0d 11 a8 13 24 6d  |nu..... m%....$m|
000026e0  65 6e 75 25 3d 22 4a 75  67 67 6c 65 22 0d 11 b2  |enu%="Juggle"...|
000026f0  0e 6d 65 6e 75 25 3f 31  32 3d 37 0d 11 bc 0e 6d  |.menu%?12=7....m|
00002700  65 6e 75 25 3f 31 33 3d  32 0d 11 c6 0e 6d 65 6e  |enu%?13=2....men|
00002710  75 25 3f 31 34 3d 37 0d  11 d0 0e 6d 65 6e 75 25  |u%?14=7....menu%|
00002720  3f 31 35 3d 30 0d 11 da  10 6d 65 6e 75 25 21 31  |?15=0....menu%!1|
00002730  36 3d 31 37 36 0d 11 e4  0f 6d 65 6e 75 25 21 32  |6=176....menu%!2|
00002740  30 3d 34 30 0d 11 ee 0e  6d 65 6e 75 25 21 32 34  |0=40....menu%!24|
00002750  3d 30 0d 11 f8 0f 6d 25  3d 6d 65 6e 75 25 2b 32  |=0....m%=menu%+2|
00002760  38 0d 12 02 0a 6d 25 21  30 3d 30 0d 12 0c 0e 6d  |8....m%!0=0....m|
00002770  25 21 34 3d 69 6e 66 6f  25 0d 12 16 18 6d 25 21  |%!4=info%....m%!|
00002780  38 3d 28 37 3c 3c 32 34  29 84 20 25 31 30 30 30  |8=(7<<24). %1000|
00002790  31 0d 12 20 13 24 28 6d  25 2b 31 32 29 3d 22 49  |1.. .$(m%+12)="I|
000027a0  6e 66 6f 22 0d 12 2a 04  0d 12 34 0a 6d 25 2b 3d  |nfo"..*...4.m%+=|
000027b0  32 34 0d 12 3e 0a 6d 25  21 30 3d 30 0d 12 48 0f  |24..>.m%!0=0..H.|
000027c0  6d 25 21 34 3d 4c 6d 65  6e 75 25 0d 12 52 18 6d  |m%!4=Lmenu%..R.m|
000027d0  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 30  |%!8=(7<<24). %10|
000027e0  30 30 31 0d 12 5c 16 24  28 6d 25 2b 31 32 29 3d  |001..\.$(m%+12)=|
000027f0  22 33 20 42 61 6c 6c 73  22 0d 12 66 04 0d 12 70  |"3 Balls"..f...p|
00002800  0a 6d 25 2b 3d 32 34 0d  12 7a 0a 6d 25 21 30 3d  |.m%+=24..z.m%!0=|
00002810  30 0d 12 84 0f 6d 25 21  34 3d 4c 6d 65 6e 75 25  |0....m%!4=Lmenu%|
00002820  0d 12 8e 18 6d 25 21 38  3d 28 37 3c 3c 32 34 29  |....m%!8=(7<<24)|
00002830  84 20 25 31 30 30 30 31  0d 12 98 16 24 28 6d 25  |. %10001....$(m%|
00002840  2b 31 32 29 3d 22 34 20  42 61 6c 6c 73 22 0d 12  |+12)="4 Balls"..|
00002850  a2 04 0d 12 ac 0a 6d 25  2b 3d 32 34 0d 12 b6 0a  |......m%+=24....|
00002860  6d 25 21 30 3d 30 0d 12  c0 0f 6d 25 21 34 3d 4c  |m%!0=0....m%!4=L|
00002870  6d 65 6e 75 25 0d 12 ca  18 6d 25 21 38 3d 28 37  |menu%....m%!8=(7|
00002880  3c 3c 32 34 29 84 20 25  31 30 30 30 31 0d 12 d4  |<<24). %10001...|
00002890  16 24 28 6d 25 2b 31 32  29 3d 22 35 20 42 61 6c  |.$(m%+12)="5 Bal|
000028a0  6c 73 22 0d 12 de 04 0d  12 e8 0a 6d 25 2b 3d 32  |ls"........m%+=2|
000028b0  34 0d 12 f2 0a 6d 25 21  30 3d 30 0d 12 fc 0f 6d  |4....m%!0=0....m|
000028c0  25 21 34 3d 53 6d 65 6e  75 25 0d 13 06 18 6d 25  |%!4=Smenu%....m%|
000028d0  21 38 3d 28 37 3c 3c 32  34 29 84 20 25 31 30 30  |!8=(7<<24). %100|
000028e0  30 31 0d 13 10 15 24 28  6d 25 2b 31 32 29 3d 22  |01....$(m%+12)="|
000028f0  53 68 6f 77 65 72 22 0d  13 1a 04 0d 13 24 0a 6d  |Shower"......$.m|
00002900  25 2b 3d 32 34 0d 13 2e  0a 6d 25 21 30 3d 30 0d  |%+=24....m%!0=0.|
00002910  13 38 0f 6d 25 21 34 3d  43 6d 65 6e 75 25 0d 13  |.8.m%!4=Cmenu%..|
00002920  42 18 6d 25 21 38 3d 28  37 3c 3c 32 34 29 84 20  |B.m%!8=(7<<24). |
00002930  25 31 30 30 30 31 0d 13  4c 16 24 28 6d 25 2b 31  |%10001..L.$(m%+1|
00002940  32 29 3d 22 43 61 73 63  61 64 65 22 0d 13 56 04  |2)="Cascade"..V.|
00002950  0d 13 60 0a 6d 25 2b 3d  32 34 0d 13 6a 0a 6d 25  |..`.m%+=24..j.m%|
00002960  21 30 3d 30 0d 13 74 0f  6d 25 21 34 3d 46 6d 65  |!0=0..t.m%!4=Fme|
00002970  6e 75 25 0d 13 7e 18 6d  25 21 38 3d 28 37 3c 3c  |nu%..~.m%!8=(7<<|
00002980  32 34 29 84 20 25 31 30  30 30 31 0d 13 88 12 24  |24). %10001....$|
00002990  28 6d 25 2b 31 32 29 3d  22 46 75 6e 22 0d 13 92  |(m%+12)="Fun"...|
000029a0  04 0d 13 9c 0a 6d 25 2b  3d 32 34 0d 13 a6 0a 6d  |.....m%+=24....m|
000029b0  25 21 30 3d 30 0d 13 b0  0f 6d 25 21 34 3d 49 6d  |%!0=0....m%!4=Im|
000029c0  65 6e 75 25 0d 13 ba 18  6d 25 21 38 3d 28 37 3c  |enu%....m%!8=(7<|
000029d0  3c 32 34 29 84 20 25 31  30 30 30 31 0d 13 c4 19  |<24). %10001....|
000029e0  24 28 6d 25 2b 31 32 29  3d 22 49 6d 70 6f 73 73  |$(m%+12)="Imposs|
000029f0  69 62 6c 65 22 0d 13 ce  04 0d 13 d8 0a 6d 25 2b  |ible"........m%+|
00002a00  3d 32 34 0d 13 e2 0a 6d  25 21 30 3d 30 0d 13 ec  |=24....m%!0=0...|
00002a10  10 6d 25 21 34 3d 63 75  73 74 6f 6d 25 0d 13 f6  |.m%!4=custom%...|
00002a20  18 6d 25 21 38 3d 28 37  3c 3c 32 34 29 84 20 25  |.m%!8=(7<<24). %|
00002a30  31 30 30 30 31 0d 14 00  15 24 28 6d 25 2b 31 32  |10001....$(m%+12|
00002a40  29 3d 22 43 75 73 74 6f  6d 22 0d 14 0a 04 0d 14  |)="Custom"......|
00002a50  14 0a 6d 25 2b 3d 32 34  0d 14 1e 0c 6d 25 21 30  |..m%+=24....m%!0|
00002a60  3d 26 38 30 0d 14 28 0a  6d 25 21 34 3d 30 0d 14  |=&80..(.m%!4=0..|
00002a70  32 18 6d 25 21 38 3d 28  37 3c 3c 32 34 29 84 20  |2.m%!8=(7<<24). |
00002a80  25 31 30 30 30 31 0d 14  3c 13 24 28 6d 25 2b 31  |%10001..<.$(m%+1|
00002a90  32 29 3d 22 51 75 69 74  22 0d 14 46 04 0d 14 50  |2)="Quit"..F...P|
00002aa0  1a f4 20 4d 61 6b 65 20  4c 65 73 73 6f 6e 20 53  |.. Make Lesson S|
00002ab0  75 62 20 4d 65 6e 75 0d  14 5a 15 24 4c 6d 65 6e  |ub Menu..Z.$Lmen|
00002ac0  75 25 3d 22 4c 65 73 73  6f 6e 73 22 0d 14 64 0f  |u%="Lessons"..d.|
00002ad0  4c 6d 65 6e 75 25 3f 31  32 3d 37 0d 14 6e 0f 4c  |Lmenu%?12=7..n.L|
00002ae0  6d 65 6e 75 25 3f 31 33  3d 32 0d 14 78 0f 4c 6d  |menu%?13=2..x.Lm|
00002af0  65 6e 75 25 3f 31 34 3d  37 0d 14 82 0f 4c 6d 65  |enu%?14=7....Lme|
00002b00  6e 75 25 3f 31 35 3d 30  0d 14 8c 11 4c 6d 65 6e  |nu%?15=0....Lmen|
00002b10  75 25 21 31 36 3d 31 32  38 0d 14 96 10 4c 6d 65  |u%!16=128....Lme|
00002b20  6e 75 25 21 32 30 3d 34  30 0d 14 a0 0f 4c 6d 65  |nu%!20=40....Lme|
00002b30  6e 75 25 21 32 34 3d 30  0d 14 aa 0f 6d 25 3d 4c  |nu%!24=0....m%=L|
00002b40  6d 65 6e 75 25 2b 34 0d  14 b4 04 0d 14 be 0e e3  |menu%+4.........|
00002b50  20 48 25 3d 31 20 b8 20  37 0d 14 c8 0a 6d 25 2b  | H%=1 . 7....m%+|
00002b60  3d 32 34 0d 14 d2 1e e7  20 48 25 3d 37 20 8c 20  |=24..... H%=7 . |
00002b70  6d 25 21 30 3d 26 38 30  20 8b 20 6d 25 21 30 3d  |m%!0=&80 . m%!0=|
00002b80  30 0d 14 dc 0a 6d 25 21  34 3d 30 0d 14 e6 18 6d  |0....m%!4=0....m|
00002b90  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 31  |%!8=(7<<24). %11|
00002ba0  30 30 31 0d 14 f0 1c 24  28 6d 25 2b 31 32 29 3d  |001....$(m%+12)=|
00002bb0  22 4c 65 73 73 6f 6e 20  22 2b c3 28 48 25 29 0d  |"Lesson "+.(H%).|
00002bc0  14 fa 05 ed 0d 15 04 04  0d 15 0e 1a f4 20 4d 61  |............. Ma|
00002bd0  6b 65 20 53 68 6f 77 65  72 20 53 75 62 20 4d 65  |ke Shower Sub Me|
00002be0  6e 75 0d 15 18 15 24 53  6d 65 6e 75 25 3d 22 53  |nu....$Smenu%="S|
00002bf0  68 6f 77 65 72 73 22 0d  15 22 0f 53 6d 65 6e 75  |howers"..".Smenu|
00002c00  25 3f 31 32 3d 37 0d 15  2c 0f 53 6d 65 6e 75 25  |%?12=7..,.Smenu%|
00002c10  3f 31 33 3d 32 0d 15 36  0f 53 6d 65 6e 75 25 3f  |?13=2..6.Smenu%?|
00002c20  31 34 3d 37 0d 15 40 0f  53 6d 65 6e 75 25 3f 31  |14=7..@.Smenu%?1|
00002c30  35 3d 30 0d 15 4a 11 53  6d 65 6e 75 25 21 31 36  |5=0..J.Smenu%!16|
00002c40  3d 31 32 38 0d 15 54 10  53 6d 65 6e 75 25 21 32  |=128..T.Smenu%!2|
00002c50  30 3d 34 30 0d 15 5e 0f  53 6d 65 6e 75 25 21 32  |0=40..^.Smenu%!2|
00002c60  34 3d 30 0d 15 68 0f 6d  25 3d 53 6d 65 6e 75 25  |4=0..h.m%=Smenu%|
00002c70  2b 34 0d 15 72 04 0d 15  7c 0e e3 20 48 25 3d 32  |+4..r...|.. H%=2|
00002c80  20 b8 20 35 0d 15 86 0a  6d 25 2b 3d 32 34 0d 15  | . 5....m%+=24..|
00002c90  90 1e e7 20 48 25 3d 35  20 8c 20 6d 25 21 30 3d  |... H%=5 . m%!0=|
00002ca0  26 38 30 20 8b 20 6d 25  21 30 3d 30 0d 15 9a 0a  |&80 . m%!0=0....|
00002cb0  6d 25 21 34 3d 30 0d 15  a4 18 6d 25 21 38 3d 28  |m%!4=0....m%!8=(|
00002cc0  37 3c 3c 32 34 29 84 20  25 31 31 30 30 31 0d 15  |7<<24). %11001..|
00002cd0  ae 1b 24 28 6d 25 2b 31  32 29 3d c3 28 48 25 29  |..$(m%+12)=.(H%)|
00002ce0  2b 22 20 42 61 6c 6c 73  22 0d 15 b8 05 ed 0d 15  |+" Balls".......|
00002cf0  c2 04 0d 15 cc 1b f4 20  4d 61 6b 65 20 43 61 73  |....... Make Cas|
00002d00  63 61 64 65 20 53 75 62  20 4d 65 6e 75 0d 15 d6  |cade Sub Menu...|
00002d10  15 24 43 6d 65 6e 75 25  3d 22 43 61 73 63 61 64  |.$Cmenu%="Cascad|
00002d20  65 22 0d 15 e0 0f 43 6d  65 6e 75 25 3f 31 32 3d  |e"....Cmenu%?12=|
00002d30  37 0d 15 ea 0f 43 6d 65  6e 75 25 3f 31 33 3d 32  |7....Cmenu%?13=2|
00002d40  0d 15 f4 0f 43 6d 65 6e  75 25 3f 31 34 3d 37 0d  |....Cmenu%?14=7.|
00002d50  15 fe 0f 43 6d 65 6e 75  25 3f 31 35 3d 30 0d 16  |...Cmenu%?15=0..|
00002d60  08 11 43 6d 65 6e 75 25  21 31 36 3d 31 32 38 0d  |..Cmenu%!16=128.|
00002d70  16 12 10 43 6d 65 6e 75  25 21 32 30 3d 34 30 0d  |...Cmenu%!20=40.|
00002d80  16 1c 0f 43 6d 65 6e 75  25 21 32 34 3d 30 0d 16  |...Cmenu%!24=0..|
00002d90  26 0f 6d 25 3d 43 6d 65  6e 75 25 2b 34 0d 16 30  |&.m%=Cmenu%+4..0|
00002da0  04 0d 16 3a 0e e3 20 48  25 3d 31 20 b8 20 39 0d  |...:.. H%=1 . 9.|
00002db0  16 44 0a 6d 25 2b 3d 32  34 0d 16 4e 1e e7 20 48  |.D.m%+=24..N.. H|
00002dc0  25 3d 39 20 8c 20 6d 25  21 30 3d 26 38 30 20 8b  |%=9 . m%!0=&80 .|
00002dd0  20 6d 25 21 30 3d 30 0d  16 58 0a 6d 25 21 34 3d  | m%!0=0..X.m%!4=|
00002de0  30 0d 16 62 18 6d 25 21  38 3d 28 37 3c 3c 32 34  |0..b.m%!8=(7<<24|
00002df0  29 84 20 25 31 30 30 30  31 0d 16 6c 3d e7 20 48  |). %10001..l=. H|
00002e00  25 3d 31 20 8c 20 24 28  6d 25 2b 31 32 29 3d c3  |%=1 . $(m%+12)=.|
00002e10  28 48 25 29 2b 22 20 42  61 6c 6c 22 20 8b 20 24  |(H%)+" Ball" . $|
00002e20  28 6d 25 2b 31 32 29 3d  c3 28 48 25 29 2b 22 20  |(m%+12)=.(H%)+" |
00002e30  42 61 6c 6c 73 22 0d 16  76 05 ed 0d 16 80 04 0d  |Balls"..v.......|
00002e40  16 8a 17 f4 20 4d 61 6b  65 20 46 75 6e 20 53 75  |.... Make Fun Su|
00002e50  62 20 4d 65 6e 75 0d 16  94 11 24 46 6d 65 6e 75  |b Menu....$Fmenu|
00002e60  25 3d 22 46 75 6e 22 0d  16 9e 0f 46 6d 65 6e 75  |%="Fun"....Fmenu|
00002e70  25 3f 31 32 3d 37 0d 16  a8 0f 46 6d 65 6e 75 25  |%?12=7....Fmenu%|
00002e80  3f 31 33 3d 32 0d 16 b2  0f 46 6d 65 6e 75 25 3f  |?13=2....Fmenu%?|
00002e90  31 34 3d 37 0d 16 bc 0f  46 6d 65 6e 75 25 3f 31  |14=7....Fmenu%?1|
00002ea0  35 3d 30 0d 16 c6 10 46  6d 65 6e 75 25 21 31 36  |5=0....Fmenu%!16|
00002eb0  3d 39 32 0d 16 d0 10 46  6d 65 6e 75 25 21 32 30  |=92....Fmenu%!20|
00002ec0  3d 34 30 0d 16 da 0f 46  6d 65 6e 75 25 21 32 34  |=40....Fmenu%!24|
00002ed0  3d 30 0d 16 e4 0f 6d 25  3d 46 6d 65 6e 75 25 2b  |=0....m%=Fmenu%+|
00002ee0  34 0d 16 ee 04 0d 16 f8  0e e3 20 48 25 3d 30 20  |4......... H%=0 |
00002ef0  b8 20 38 0d 17 02 0a 6d  25 2b 3d 32 34 0d 17 0c  |. 8....m%+=24...|
00002f00  1e e7 20 48 25 3d 38 20  8c 20 6d 25 21 30 3d 26  |.. H%=8 . m%!0=&|
00002f10  38 30 20 8b 20 6d 25 21  30 3d 30 0d 17 16 0a 6d  |80 . m%!0=0....m|
00002f20  25 21 34 3d 30 0d 17 20  18 6d 25 21 38 3d 28 37  |%!4=0.. .m%!8=(7|
00002f30  3c 3c 32 34 29 84 20 25  31 30 30 30 31 0d 17 2a  |<<24). %10001..*|
00002f40  17 24 28 6d 25 2b 31 32  29 3d 70 61 74 24 28 35  |.$(m%+12)=pat$(5|
00002f50  2c 48 25 29 0d 17 34 05  ed 0d 17 3e 04 0d 17 48  |,H%)..4....>...H|
00002f60  1e f4 20 4d 61 6b 65 20  49 6d 70 6f 73 73 69 62  |.. Make Impossib|
00002f70  6c 65 20 53 75 62 20 4d  65 6e 75 0d 17 52 18 24  |le Sub Menu..R.$|
00002f80  49 6d 65 6e 75 25 3d 22  49 6d 70 6f 73 73 69 62  |Imenu%="Impossib|
00002f90  6c 65 22 0d 17 5c 0f 49  6d 65 6e 75 25 3f 31 32  |le"..\.Imenu%?12|
00002fa0  3d 37 0d 17 66 0f 49 6d  65 6e 75 25 3f 31 33 3d  |=7..f.Imenu%?13=|
00002fb0  32 0d 17 70 0f 49 6d 65  6e 75 25 3f 31 34 3d 37  |2..p.Imenu%?14=7|
00002fc0  0d 17 7a 0f 49 6d 65 6e  75 25 3f 31 35 3d 30 0d  |..z.Imenu%?15=0.|
00002fd0  17 84 11 49 6d 65 6e 75  25 21 31 36 3d 31 35 32  |...Imenu%!16=152|
00002fe0  0d 17 8e 10 49 6d 65 6e  75 25 21 32 30 3d 34 30  |....Imenu%!20=40|
00002ff0  0d 17 98 0f 49 6d 65 6e  75 25 21 32 34 3d 30 0d  |....Imenu%!24=0.|
00003000  17 a2 0f 6d 25 3d 49 6d  65 6e 75 25 2b 34 0d 17  |...m%=Imenu%+4..|
00003010  ac 04 0d 17 b6 0e e3 20  48 25 3d 30 20 b8 20 34  |....... H%=0 . 4|
00003020  0d 17 c0 0a 6d 25 2b 3d  32 34 0d 17 ca 1e e7 20  |....m%+=24..... |
00003030  48 25 3d 34 20 8c 20 6d  25 21 30 3d 26 38 30 20  |H%=4 . m%!0=&80 |
00003040  8b 20 6d 25 21 30 3d 30  0d 17 d4 0a 6d 25 21 34  |. m%!0=0....m%!4|
00003050  3d 30 0d 17 de 18 6d 25  21 38 3d 28 37 3c 3c 32  |=0....m%!8=(7<<2|
00003060  34 29 84 20 25 31 30 30  30 31 0d 17 e8 15 24 28  |4). %10001....$(|
00003070  6d 25 2b 31 32 29 3d 49  4d 50 24 28 48 25 29 0d  |m%+12)=IMP$(H%).|
00003080  17 f2 05 ed 0d 17 fc 05  e1 0d 18 06 04 0d 18 10  |................|
00003090  04 0d 18 1a 12 dd 20 f2  72 65 63 65 69 76 65 28  |...... .receive(|
000030a0  71 25 29 0d 18 24 08 ea  20 41 25 0d 18 2e 0e c8  |q%)..$.. A%.....|
000030b0  8e 20 71 25 21 31 36 20  ca 0d 18 38 0c c9 20 30  |. q%!16 ...8.. 0|
000030c0  3a f2 64 69 65 0d 18 42  32 c9 20 33 3a e7 20 71  |:.die..B2. 3:. q|
000030d0  25 21 32 30 3d 2d 32 20  80 20 71 25 21 32 34 3d  |%!20=-2 . q%!24=|
000030e0  6a 75 67 69 63 6f 6e 25  20 80 20 71 25 21 34 30  |jugicon% . q%!40|
000030f0  3d 26 46 46 42 20 8c 0d  18 4c 11 20 20 20 20 20  |=&FFB ...L.     |
00003100  20 20 20 f2 5f 4a 55 47  0d 18 56 12 20 20 20 20  |   ._JUG..V.    |
00003110  20 20 20 20 72 65 66 25  3d 30 0d 18 60 0c 20 20  |    ref%=0..`.  |
00003120  20 20 20 20 20 cd 0d 18  6a 11 c9 20 26 35 30 32  |     ...j.. &502|
00003130  3a c8 8e 20 b9 20 ca 0d  18 74 6a 20 20 20 20 20  |:.. . ...tj     |
00003140  20 20 c9 20 71 25 21 33  32 3d 2d 32 20 80 20 71  |  . q%!32=-2 . q|
00003150  25 21 33 36 3d 6a 75 67  69 63 6f 6e 25 3a 6d 65  |%!36=jugicon%:me|
00003160  73 24 3d 22 54 68 69 73  20 69 73 20 74 68 65 20  |s$="This is the |
00003170  4a 75 67 67 6c 65 20 54  75 74 6f 72 20 69 63 6f  |Juggle Tutor ico|
00003180  6e 2e 7c 4d 43 6c 69 63  6b 20 66 6f 72 20 61 20  |n.|MClick for a |
00003190  4a 75 67 67 6c 69 6e 67  20 6c 65 73 73 69 6f 6e  |Juggling lession|
000031a0  22 0d 18 7e 14 20 20 20  20 20 20 20 7f 3a 6d 65  |"..~.       .:me|
000031b0  73 24 3d 22 22 0d 18 88  0c 20 20 20 20 20 20 20  |s$=""....       |
000031c0  cb 0d 18 92 14 20 20 20  20 e7 20 6d 65 73 24 3c  |.....    . mes$<|
000031d0  3e 22 22 20 8c 0d 18 9c  12 20 20 20 20 71 25 21  |>"" .....    q%!|
000031e0  31 32 3d 71 25 21 38 0d  18 a6 18 20 20 20 20 24  |12=q%!8....    $|
000031f0  28 71 25 2b 32 30 29 3d  6d 65 73 24 2b bd 30 0d  |(q%+20)=mes$+.0.|
00003200  18 b0 1e 20 20 20 20 71  25 21 30 3d 28 32 30 2b  |...    q%!0=(20+|
00003210  a9 6d 65 73 24 2b 34 29  80 20 ac 20 33 0d 18 ba  |.mes$+4). . 3...|
00003220  12 20 20 20 20 71 25 21  31 36 3d 26 35 30 33 0d  |.    q%!16=&503.|
00003230  18 c4 28 20 20 20 20 c8  99 20 22 57 69 6d 70 5f  |..(    .. "Wimp_|
00003240  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 38 2c  |SendMessage",18,|
00003250  71 25 2c 71 25 21 34 0d  18 ce 05 cb 0d 18 d8 05  |q%,q%!4.........|
00003260  e1 0d 18 e2 04 0d 18 ec  0c dd 20 f2 5f 44 61 63  |.......... ._Dac|
00003270  6b 0d 18 f6 10 73 65 6e  64 74 68 25 3d 71 25 21  |k....sendth%=q%!|
00003280  34 0d 19 00 0f 6d 79 72  65 66 25 3d 71 25 21 38  |4....myref%=q%!8|
00003290  0d 19 0a 22 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...".. "Wimp_Get|
000032a0  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 71 25  |PointerInfo",,q%|
000032b0  2b 38 0d 19 14 0e 71 25  21 32 38 3d 71 25 21 38  |+8....q%!28=q%!8|
000032c0  0d 19 1e 0f 71 25 21 33  32 3d 71 25 21 31 32 0d  |....q%!32=q%!12.|
000032d0  19 28 18 71 25 21 30 3d  28 34 34 2b a9 6e 24 2b  |.(.q%!0=(44+.n$+|
000032e0  34 29 80 20 ac 20 33 0d  19 32 10 71 25 21 31 32  |4). . 3..2.q%!12|
000032f0  3d 6d 79 72 65 66 25 0d  19 3c 0b 71 25 21 31 36  |=myref%..<.q%!16|
00003300  3d 34 0d 19 46 0c 71 25  21 33 36 3d 2d 31 0d 19  |=4..F.q%!36=-1..|
00003310  50 0e 71 25 21 34 30 3d  26 46 46 39 0d 19 5a 12  |P.q%!40=&FF9..Z.|
00003320  24 28 71 25 2b 34 34 29  3d 6e 24 2b bd 30 0d 19  |$(q%+44)=n$+.0..|
00003330  64 27 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |d'.. "Wimp_SendM|
00003340  65 73 73 61 67 65 22 2c  31 37 2c 71 25 2c 73 65  |essage",17,q%,se|
00003350  6e 64 74 68 25 0d 19 6e  05 cd 0d 19 78 05 e1 0d  |ndth%..n....x...|
00003360  19 82 04 0d 19 8c 0f dd  20 f2 65 72 72 6f 72 62  |........ .errorb|
00003370  6f 78 0d 19 96 19 c8 99  20 22 57 69 6d 70 5f 44  |ox...... "Wimp_D|
00003380  72 61 67 42 6f 78 22 2c  2c 2d 31 0d 19 a0 32 21  |ragBox",,-1...2!|
00003390  62 75 66 66 65 72 73 25  3d 9f 3a 24 28 62 75 66  |buffers%=.:$(buf|
000033a0  66 65 72 73 25 2b 34 29  3d f6 24 2b 22 20 61 74  |fers%+4)=.$+" at|
000033b0  20 6c 69 6e 65 20 22 2b  c3 9e 2b bd 30 0d 19 aa  | line "+..+.0...|
000033c0  2d c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |-.. "Wimp_Report|
000033d0  45 72 72 6f 72 22 2c 62  75 66 66 65 72 73 25 2c  |Error",buffers%,|
000033e0  31 2c 22 4a 75 67 67 6c  65 22 0d 19 b4 08 f2 64  |1,"Juggle".....d|
000033f0  69 65 0d 19 be 05 e1 0d  19 c8 04 0d 19 d2 09 dd  |ie..............|
00003400  f2 64 69 65 0d 19 dc 2a  c8 99 20 22 57 69 6d 70  |.die...*.. "Wimp|
00003410  5f 43 6c 6f 73 65 44 6f  77 6e 22 2c 74 61 73 6b  |_CloseDown",task|
00003420  68 61 6e 64 25 2c 21 74  61 73 6b 69 64 25 0d 19  |hand%,!taskid%..|
00003430  e6 14 e7 20 eb 20 3c 3e  20 6d 25 20 8c 20 eb 20  |... . <> m% . . |
00003440  6d 25 0d 19 f0 05 e0 0d  19 fa 05 e1 0d 1a 04 04  |m%..............|
00003450  0d 1a 0e 0e dd 20 f2 5f  47 65 74 50 61 74 0d 1a  |..... ._GetPat..|
00003460  18 0e ea 20 54 25 2c 41  25 2c 46 24 0d 1a 22 09  |... T%,A%,F$..".|
00003470  46 24 3d 22 22 0d 1a 2c  17 49 25 21 30 3d 63 75  |F$=""..,.I%!0=cu|
00003480  73 74 6f 6d 25 3a 49 25  21 34 3d 31 0d 1a 36 1e  |stom%:I%!4=1..6.|
00003490  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
000034a0  53 74 61 74 65 22 2c 2c  49 25 0d 1a 40 0c 54 25  |State",,I%..@.T%|
000034b0  3d 49 25 21 32 38 0d 1a  4a 09 54 25 2d 3d 31 0d  |=I%!28..J.T%-=1.|
000034c0  1a 54 05 f5 0d 1a 5e 09  54 25 2b 3d 31 0d 1a 68  |.T....^.T%+=1..h|
000034d0  10 46 24 3d 46 24 2b bd  28 3f 54 25 29 0d 1a 72  |.F$=F$+.(?T%)..r|
000034e0  0c fd 20 3f 54 25 3d 31  33 0d 1a 7c 15 70 24 3d  |.. ?T%=13..|.p$=|
000034f0  c1 46 24 2c 31 2c a9 28  46 24 29 2d 31 29 0d 1a  |.F$,1,.(F$)-1)..|
00003500  86 05 e1 0d 1a 90 04 0d  1a 9a 10 dd 20 f2 5f 57  |............ ._W|
00003510  61 72 6e 28 74 24 29 0d  1a a4 58 21 71 25 3d 77  |arn(t$)...X!q%=w|
00003520  61 72 6e 69 6e 67 57 25  3a 71 25 21 34 3d 32 30  |arningW%:q%!4=20|
00003530  30 3a 71 25 21 38 3d 32  30 30 3a 71 25 21 31 32  |0:q%!8=200:q%!12|
00003540  3d 32 30 30 2b 58 51 25  3a 71 25 21 31 36 3d 32  |=200+XQ%:q%!16=2|
00003550  30 30 2b 59 51 25 3a 71  25 21 32 30 3d 30 3a 71  |00+YQ%:q%!20=0:q|
00003560  25 21 32 34 3d 30 3a 71  25 21 32 38 3d 2d 31 0d  |%!24=0:q%!28=-1.|
00003570  1a ae 11 24 54 65 78 74  57 61 72 6e 25 3d 74 24  |...$TextWarn%=t$|
00003580  0d 1a b8 15 54 65 78 74  57 61 72 6e 25 3f a9 28  |....TextWarn%?.(|
00003590  74 24 29 3d 30 0d 1a c2  07 ef 20 37 0d 1a cc 1c  |t$)=0..... 7....|
000035a0  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
000035b0  64 6f 77 22 2c 2c 71 25  0d 1a d6 19 c8 97 20 c8  |dow",,q%...... .|
000035c0  93 20 32 30 30 2c 32 30  30 2c 58 51 25 2c 59 51  |. 200,200,XQ%,YQ|
000035d0  25 0d 1a e0 05 e1 0d ff                           |%.......|
000035d8