� Juggler
� By Philip Mellor (age 14)
:
(� 15:� 9:�=0
2� � �:�" - ";�:�
<balls=7
F� I=1 � balls
P� r,g,b
Z
� I,r,g,b
d� r=0 r=170
n� b=0 b=170
x� g=0 g=170
�� I+7,r,g,b
��
�
� 255,0,0
�
� 0,255,0
�� 255,255,0
�
� 0,0,255
�� 255,0,255
�� 0,255,255
�� 255,255,255
�3� bx(balls),by(balls),xgrav(balls),ygrav(balls)
�light=2
��
� bady=600+(balls*300):score=0

� I=1 � balls

6bx(I)=�(1279):by(I)=bady:xgrav(I)=0:ygrav(I)=-�(1)


bady-=300

"�

,repel=32:y=200

6fr=1

@ȗ ȓ 0,175,1279,128

J�

T	out=0

^speed=�

h�=0

rș "OS_Byte",112,fr:�

|ȗ x,y,z

�� z=1 light=3-light

�� I=1 � balls

�� by(I)<0 by(I)=0

� �0,I:ȏ Ȑ bx(I),by(I),repel

�B� light=1 �0,I+7:ȏ Ȑ bx(I)+(repel/2),by(I)+(repel/2),repel/3

�
a=x-bx(I)

�
b=y-by(I)

�
c=repel*2

�� a*a+b*b<c*c �

�score+=1

�ygrav(I)=�(ygrav(I))

�� ygrav(I)>32 ygrav(I)=32

�ygrav(I)+=�(16)+12
xgrav(I)+=�(8)-�(8)
4� bx(I)<(x-20) � bx(I)>(x+20) xgrav(I)=-xgrav(I)
�
& � bx(I)<0 xgrav(I)=-xgrav(I)
0#� bx(I)>1279 xgrav(I)=-xgrav(I)
:/� ygrav(I)<-(10+score) ygrav(I)=-(10+score)
Dbx(I)+=xgrav(I)*(speed/3)
Nby(I)+=ygrav(I)*(speed/3)
X� by(I)<0 by(I)=0
b� by(I)<=0 out+=1
l�
v� I=1 � balls
�ygrav(I)-=2
��
��5
�� I=1 � balls
��0,I
�3� by(I)>0 � ygrav(I)>=0 � bx(I)-16,1020:�(139)
�2� by(I)>0 � ygrav(I)<0 � bx(I)-16,1020:�(138)
��
��4:�
��0,7:ȏ Ȑ x,y,repel
��0,31);score;
�)ș "OS_Byte",113,fr:fr+=1:� fr>3 fr=1
�� out=balls-1 � z=4
�15,10);"GAME  OVER"
�14,12);"Press Select"
�
 ȗ mx,my,mz
*� mz<>0 � z=4
4� 0
>�
�

00000000  0d 00 0a 0d f4 20 4a 75  67 67 6c 65 72 0d 00 14  |..... Juggler...|
00000010  1f f4 20 42 79 20 50 68  69 6c 69 70 20 4d 65 6c  |.. By Philip Mel|
00000020  6c 6f 72 20 28 61 67 65  20 31 34 29 0d 00 1e 05  |lor (age 14)....|
00000030  3a 0d 00 28 10 eb 20 31  35 3a eb 20 39 3a d1 3d  |:..(.. 15:. 9:.=|
00000040  30 0d 00 32 14 ee 20 85  20 f6 3a f1 22 20 2d 20  |0..2.. . .:." - |
00000050  22 3b 9e 3a e0 0d 00 3c  0b 62 61 6c 6c 73 3d 37  |";.:...<.balls=7|
00000060  0d 00 46 11 e3 20 49 3d  31 20 b8 20 62 61 6c 6c  |..F.. I=1 . ball|
00000070  73 0d 00 50 0b f3 20 72  2c 67 2c 62 0d 00 5a 0d  |s..P.. r,g,b..Z.|
00000080  fb 20 49 2c 72 2c 67 2c  62 0d 00 64 0f e7 20 72  |. I,r,g,b..d.. r|
00000090  3d 30 20 72 3d 31 37 30  0d 00 6e 0f e7 20 62 3d  |=0 r=170..n.. b=|
000000a0  30 20 62 3d 31 37 30 0d  00 78 0f e7 20 67 3d 30  |0 b=170..x.. g=0|
000000b0  20 67 3d 31 37 30 0d 00  82 0f fb 20 49 2b 37 2c  | g=170..... I+7,|
000000c0  72 2c 67 2c 62 0d 00 8c  05 ed 0d 00 96 0d dc 20  |r,g,b.......... |
000000d0  32 35 35 2c 30 2c 30 0d  00 a0 0d dc 20 30 2c 32  |255,0,0..... 0,2|
000000e0  35 35 2c 30 0d 00 aa 0f  dc 20 32 35 35 2c 32 35  |55,0..... 255,25|
000000f0  35 2c 30 0d 00 b4 0d dc  20 30 2c 30 2c 32 35 35  |5,0..... 0,0,255|
00000100  0d 00 be 0f dc 20 32 35  35 2c 30 2c 32 35 35 0d  |..... 255,0,255.|
00000110  00 c8 0f dc 20 30 2c 32  35 35 2c 32 35 35 0d 00  |.... 0,255,255..|
00000120  d2 11 dc 20 32 35 35 2c  32 35 35 2c 32 35 35 0d  |... 255,255,255.|
00000130  00 dc 33 de 20 62 78 28  62 61 6c 6c 73 29 2c 62  |..3. bx(balls),b|
00000140  79 28 62 61 6c 6c 73 29  2c 78 67 72 61 76 28 62  |y(balls),xgrav(b|
00000150  61 6c 6c 73 29 2c 79 67  72 61 76 28 62 61 6c 6c  |alls),ygrav(ball|
00000160  73 29 0d 00 e6 0b 6c 69  67 68 74 3d 32 0d 00 f0  |s)....light=2...|
00000170  05 f5 0d 00 fa 20 62 61  64 79 3d 36 30 30 2b 28  |..... bady=600+(|
00000180  62 61 6c 6c 73 2a 33 30  30 29 3a 73 63 6f 72 65  |balls*300):score|
00000190  3d 30 0d 01 04 11 e3 20  49 3d 31 20 b8 20 62 61  |=0..... I=1 . ba|
000001a0  6c 6c 73 0d 01 0e 36 62  78 28 49 29 3d b3 28 31  |lls...6bx(I)=.(1|
000001b0  32 37 39 29 3a 62 79 28  49 29 3d 62 61 64 79 3a  |279):by(I)=bady:|
000001c0  78 67 72 61 76 28 49 29  3d 30 3a 79 67 72 61 76  |xgrav(I)=0:ygrav|
000001d0  28 49 29 3d 2d b3 28 31  29 0d 01 18 0d 62 61 64  |(I)=-.(1)....bad|
000001e0  79 2d 3d 33 30 30 0d 01  22 05 ed 0d 01 2c 12 72  |y-=300.."....,.r|
000001f0  65 70 65 6c 3d 33 32 3a  79 3d 32 30 30 0d 01 36  |epel=32:y=200..6|
00000200  08 66 72 3d 31 0d 01 40  18 c8 97 20 c8 93 20 30  |.fr=1..@... .. 0|
00000210  2c 31 37 35 2c 31 32 37  39 2c 31 32 38 0d 01 4a  |,175,1279,128..J|
00000220  05 f5 0d 01 54 09 6f 75  74 3d 30 0d 01 5e 0b 73  |....T.out=0..^.s|
00000230  70 65 65 64 3d 91 0d 01  68 07 d1 3d 30 0d 01 72  |peed=...h..=0..r|
00000240  19 c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |... "OS_Byte",11|
00000250  32 2c 66 72 3a db 0d 01  7c 0c c8 97 20 78 2c 79  |2,fr:...|... x,y|
00000260  2c 7a 0d 01 86 17 e7 20  7a 3d 31 20 6c 69 67 68  |,z..... z=1 ligh|
00000270  74 3d 33 2d 6c 69 67 68  74 0d 01 90 11 e3 20 49  |t=3-light..... I|
00000280  3d 31 20 b8 20 62 61 6c  6c 73 0d 01 9a 15 e7 20  |=1 . balls..... |
00000290  62 79 28 49 29 3c 30 20  62 79 28 49 29 3d 30 0d  |by(I)<0 by(I)=0.|
000002a0  01 a4 20 e6 30 2c 49 3a  c8 8f 20 c8 90 20 62 78  |.. .0,I:.. .. bx|
000002b0  28 49 29 2c 62 79 28 49  29 2c 72 65 70 65 6c 0d  |(I),by(I),repel.|
000002c0  01 ae 42 e7 20 6c 69 67  68 74 3d 31 20 e6 30 2c  |..B. light=1 .0,|
000002d0  49 2b 37 3a c8 8f 20 c8  90 20 62 78 28 49 29 2b  |I+7:.. .. bx(I)+|
000002e0  28 72 65 70 65 6c 2f 32  29 2c 62 79 28 49 29 2b  |(repel/2),by(I)+|
000002f0  28 72 65 70 65 6c 2f 32  29 2c 72 65 70 65 6c 2f  |(repel/2),repel/|
00000300  33 0d 01 b8 0d 61 3d 78  2d 62 78 28 49 29 0d 01  |3....a=x-bx(I)..|
00000310  c2 0d 62 3d 79 2d 62 79  28 49 29 0d 01 cc 0d 63  |..b=y-by(I)....c|
00000320  3d 72 65 70 65 6c 2a 32  0d 01 d6 13 e7 20 61 2a  |=repel*2..... a*|
00000330  61 2b 62 2a 62 3c 63 2a  63 20 8c 0d 01 e0 0c 73  |a+b*b<c*c .....s|
00000340  63 6f 72 65 2b 3d 31 0d  01 ea 18 79 67 72 61 76  |core+=1....ygrav|
00000350  28 49 29 3d 94 28 79 67  72 61 76 28 49 29 29 0d  |(I)=.(ygrav(I)).|
00000360  01 f4 1d e7 20 79 67 72  61 76 28 49 29 3e 33 32  |.... ygrav(I)>32|
00000370  20 79 67 72 61 76 28 49  29 3d 33 32 0d 01 fe 16  | ygrav(I)=32....|
00000380  79 67 72 61 76 28 49 29  2b 3d b3 28 31 36 29 2b  |ygrav(I)+=.(16)+|
00000390  31 32 0d 02 08 17 78 67  72 61 76 28 49 29 2b 3d  |12....xgrav(I)+=|
000003a0  b3 28 38 29 2d b3 28 38  29 0d 02 12 34 e7 20 62  |.(8)-.(8)...4. b|
000003b0  78 28 49 29 3c 28 78 2d  32 30 29 20 84 20 62 78  |x(I)<(x-20) . bx|
000003c0  28 49 29 3e 28 78 2b 32  30 29 20 78 67 72 61 76  |(I)>(x+20) xgrav|
000003d0  28 49 29 3d 2d 78 67 72  61 76 28 49 29 0d 02 1c  |(I)=-xgrav(I)...|
000003e0  05 cd 0d 02 26 20 e7 20  62 78 28 49 29 3c 30 20  |....& . bx(I)<0 |
000003f0  78 67 72 61 76 28 49 29  3d 2d 78 67 72 61 76 28  |xgrav(I)=-xgrav(|
00000400  49 29 0d 02 30 23 e7 20  62 78 28 49 29 3e 31 32  |I)..0#. bx(I)>12|
00000410  37 39 20 78 67 72 61 76  28 49 29 3d 2d 78 67 72  |79 xgrav(I)=-xgr|
00000420  61 76 28 49 29 0d 02 3a  2f e7 20 79 67 72 61 76  |av(I)..:/. ygrav|
00000430  28 49 29 3c 2d 28 31 30  2b 73 63 6f 72 65 29 20  |(I)<-(10+score) |
00000440  79 67 72 61 76 28 49 29  3d 2d 28 31 30 2b 73 63  |ygrav(I)=-(10+sc|
00000450  6f 72 65 29 0d 02 44 1d  62 78 28 49 29 2b 3d 78  |ore)..D.bx(I)+=x|
00000460  67 72 61 76 28 49 29 2a  28 73 70 65 65 64 2f 33  |grav(I)*(speed/3|
00000470  29 0d 02 4e 1d 62 79 28  49 29 2b 3d 79 67 72 61  |)..N.by(I)+=ygra|
00000480  76 28 49 29 2a 28 73 70  65 65 64 2f 33 29 0d 02  |v(I)*(speed/3)..|
00000490  58 15 e7 20 62 79 28 49  29 3c 30 20 62 79 28 49  |X.. by(I)<0 by(I|
000004a0  29 3d 30 0d 02 62 15 e7  20 62 79 28 49 29 3c 3d  |)=0..b.. by(I)<=|
000004b0  30 20 6f 75 74 2b 3d 31  0d 02 6c 05 ed 0d 02 76  |0 out+=1..l....v|
000004c0  11 e3 20 49 3d 31 20 b8  20 62 61 6c 6c 73 0d 02  |.. I=1 . balls..|
000004d0  80 0f 79 67 72 61 76 28  49 29 2d 3d 32 0d 02 8a  |..ygrav(I)-=2...|
000004e0  05 ed 0d 02 94 06 ef 35  0d 02 9e 11 e3 20 49 3d  |.......5..... I=|
000004f0  31 20 b8 20 62 61 6c 6c  73 0d 02 a8 08 e6 30 2c  |1 . balls.....0,|
00000500  49 0d 02 b2 33 e7 20 62  79 28 49 29 3e 30 20 80  |I...3. by(I)>0 .|
00000510  20 79 67 72 61 76 28 49  29 3e 3d 30 20 ec 20 62  | ygrav(I)>=0 . b|
00000520  78 28 49 29 2d 31 36 2c  31 30 32 30 3a f1 bd 28  |x(I)-16,1020:..(|
00000530  31 33 39 29 0d 02 bc 32  e7 20 62 79 28 49 29 3e  |139)...2. by(I)>|
00000540  30 20 80 20 79 67 72 61  76 28 49 29 3c 30 20 ec  |0 . ygrav(I)<0 .|
00000550  20 62 78 28 49 29 2d 31  36 2c 31 30 32 30 3a f1  | bx(I)-16,1020:.|
00000560  bd 28 31 33 38 29 0d 02  c6 05 ed 0d 02 d0 08 ef  |.(138)..........|
00000570  34 3a 87 0d 02 da 18 e6  30 2c 37 3a c8 8f 20 c8  |4:......0,7:.. .|
00000580  90 20 78 2c 79 2c 72 65  70 65 6c 0d 02 e4 12 f1  |. x,y,repel.....|
00000590  8a 30 2c 33 31 29 3b 73  63 6f 72 65 3b 0d 02 ee  |.0,31);score;...|
000005a0  29 c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |).. "OS_Byte",11|
000005b0  33 2c 66 72 3a 66 72 2b  3d 31 3a e7 20 66 72 3e  |3,fr:fr+=1:. fr>|
000005c0  33 20 66 72 3d 31 0d 02  f8 17 fd 20 6f 75 74 3d  |3 fr=1..... out=|
000005d0  62 61 6c 6c 73 2d 31 20  84 20 7a 3d 34 0d 03 02  |balls-1 . z=4...|
000005e0  19 f1 8a 31 35 2c 31 30  29 3b 22 47 41 4d 45 20  |...15,10);"GAME |
000005f0  20 4f 56 45 52 22 0d 03  0c 1b f1 8a 31 34 2c 31  | OVER"......14,1|
00000600  32 29 3b 22 50 72 65 73  73 20 53 65 6c 65 63 74  |2);"Press Select|
00000610  22 0d 03 16 05 f5 0d 03  20 0f c8 97 20 6d 78 2c  |"....... ... mx,|
00000620  6d 79 2c 6d 7a 0d 03 2a  11 fd 20 6d 7a 3c 3e 30  |my,mz..*.. mz<>0|
00000630  20 84 20 7a 3d 34 0d 03  34 07 fd 20 30 0d 03 3e  | . z=4..4.. 0..>|
00000640  05 e0 0d ff                                       |....|
00000644