d� **********************
n� *       ARENA        *
x� *   by Daniel Tang   *
�� * (c) The Micro User *
�� **********************
�� � �7:�:�" at line ";�:�
��os("LOAD Combat")
�� �7:�inst:�1
��=&2A00:�setup
�� �chars:�screen
�� call:� C%=0 C%=1:�dH@
�� ?&8F=3 �draw:��
��explode:� n1%>9 � n2%>9
��end(n1%>9):� �
���setup:C%=0
�call=&2D46:x1=&72:y1=&73

x2=&74:y2=&75:n1%=0:n2%=0

�23;8202;0;0;0;

?&C70=&10:?&C72=&F6

"?&C73=&FF:?&C74=5:?&C76=2

,?&C80=&10:?&C82=&F6

6?&C83=&FF:?&C84=5:?&C86=2

@?&C90=&11:?&C92=&F6

J?&C93=&FF:?&C96=1:�

T��chars

^�A%=&B00�&C00:?A%=0:�

h$�23,128,&1F07;&7F3F;&FF7F;&FFFF;

r$�23,129,&F8E0;&FEFC;&FFFE;&FFFF;

|$�23,130,&FFFF;&7FFF;&3F7F;&071F;

�$�23,131,&FFFF;&FEFF;&FCFE;&E0F8;

�$�23,159,&FFFF;&FFFF;&FFFF;&FFFF;

�
c$=�159:�

�� �screen:�:�19,7,0;0;

�*� 1:�2"Player 1"�7"Games"�7"Player 2"

�� 2:�6;n1%�26;n2%

�� 7:d$=c$+c$

��128�37,c$)�129

��A%=2�28:�d$�35d$:�

��130�37,c$)�131

��19,7,7;0;:�

�� �explode:� 3,7

�V� ?&8F=1 X%=?x1*16:Y%=1024-(?y1*4):n2%=n2%+1 � X%=?x2*16:Y%=1024-(?y2*4):n1%=n1%+1
v=-15:i=0.125:s=30:d=0
� A%=220�90�-5:v=v+i:d=d+s
�dots:X%=X%+4:�dots:X%=X%-4
&� 1,0,A%,0:� &10,v,7,3
0�dots:X%=X%+4:�dots:X%=X%-4
:
s=s-1:�:�
D� �dots
N�69,X%,Y%+d:�69,X%,Y%+d+4
X�69,X%+d,Y%:�69,X%+d,Y%+4
b�69,X%,Y%-d:�69,X%,Y%-d+4
l�69,X%-d,Y%:�69,X%-d,Y%+4
v�
�� �draw
�� A%=1 � 3:� 2
��17,1)"Draw!"
�� 1,-15,210,2:�w(.45)
��17,1)�5:�w(.5)
��:�
�� �w(t):t=t*100+�
�
� � �>t:�
�� �inst:� Y%=0 � 1
��31,0,Y%,141,129,157,135
��14"Arena":�
��13"by Daniel Tang"
��''�4"Player 1 controls"
�'�9"A - Thrust down"
�9"Z - Thrust up"
�9"X - Fire"
 �''�4"Player 2 controls"
*�'�9"+ - Thrust down"
4�9"> - Thrust up"
>�9"< - Fire"
H�31,0,23,129,157,135
R�6"Do you want sound?";
\� A%=�"YyNn",�)
f� A%>0:�23;8202;0;0;0;
p�os("FX210,"+�(A%�2))
z�9,23)"Press space to go";
�� � �=32:�
�� �os($&700):� X%,Y%
�Y%=7:�&FFF7:�
�� �end(A%):�w(3):*FX21
� a$="You win Player "+�(2+A%)
�
�10,15);
�� A%=1 � � a$
�B%=��a$,A%):� B%
��0,15*(B%>32),2,1:�w(.5)
��:�w(3.5):�
�

00000000  0d 00 64 1c f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..d.. **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 6e 1c  |************..n.|
00000020  f4 20 2a 20 20 20 20 20  20 20 41 52 45 4e 41 20  |. *       ARENA |
00000030  20 20 20 20 20 20 20 2a  0d 00 78 1c f4 20 2a 20  |       *..x.. * |
00000040  20 20 62 79 20 44 61 6e  69 65 6c 20 54 61 6e 67  |  by Daniel Tang|
00000050  20 20 20 2a 0d 00 82 1c  f4 20 2a 20 28 63 29 20  |   *..... * (c) |
00000060  54 68 65 20 4d 69 63 72  6f 20 55 73 65 72 20 2a  |The Micro User *|
00000070  0d 00 8c 1c f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..... **********|
00000080  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 96 1d  |************....|
00000090  ee 20 85 20 eb 37 3a f6  3a f1 22 20 61 74 20 6c  |. . .7:.:." at l|
000000a0  69 6e 65 20 22 3b 9e 3a  e0 0d 00 a0 16 f2 6f 73  |ine ";.:......os|
000000b0  28 22 4c 4f 41 44 20 43  6f 6d 62 61 74 22 29 0d  |("LOAD Combat").|
000000c0  00 aa 11 f5 20 eb 37 3a  f2 69 6e 73 74 3a eb 31  |.... .7:.inst:.1|
000000d0  0d 00 b4 12 d3 3d 26 32  41 30 30 3a f2 73 65 74  |.....=&2A00:.set|
000000e0  75 70 0d 00 be 14 f5 20  f2 63 68 61 72 73 3a f2  |up..... .chars:.|
000000f0  73 63 72 65 65 6e 0d 00  c8 1c d6 20 63 61 6c 6c  |screen..... call|
00000100  3a e7 20 43 25 3d 30 20  43 25 3d 31 3a e5 8d 64  |:. C%=0 C%=1:..d|
00000110  48 40 0d 00 d2 15 e7 20  3f 26 38 46 3d 33 20 f2  |H@..... ?&8F=3 .|
00000120  64 72 61 77 3a fd a3 0d  00 dc 1c f2 65 78 70 6c  |draw:.......expl|
00000130  6f 64 65 3a fd 20 6e 31  25 3e 39 20 84 20 6e 32  |ode:. n1%>9 . n2|
00000140  25 3e 39 0d 00 e6 13 f2  65 6e 64 28 6e 31 25 3e  |%>9.....end(n1%>|
00000150  39 29 3a fd 20 a3 0d 00  f0 10 dd f2 73 65 74 75  |9):. .......setu|
00000160  70 3a 43 25 3d 30 0d 00  fa 1c 63 61 6c 6c 3d 26  |p:C%=0....call=&|
00000170  32 44 34 36 3a 78 31 3d  26 37 32 3a 79 31 3d 26  |2D46:x1=&72:y1=&|
00000180  37 33 0d 01 04 1d 78 32  3d 26 37 34 3a 79 32 3d  |73....x2=&74:y2=|
00000190  26 37 35 3a 6e 31 25 3d  30 3a 6e 32 25 3d 30 0d  |&75:n1%=0:n2%=0.|
000001a0  01 0e 13 ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |....23;8202;0;0;|
000001b0  30 3b 0d 01 18 17 3f 26  43 37 30 3d 26 31 30 3a  |0;....?&C70=&10:|
000001c0  3f 26 43 37 32 3d 26 46  36 0d 01 22 1d 3f 26 43  |?&C72=&F6..".?&C|
000001d0  37 33 3d 26 46 46 3a 3f  26 43 37 34 3d 35 3a 3f  |73=&FF:?&C74=5:?|
000001e0  26 43 37 36 3d 32 0d 01  2c 17 3f 26 43 38 30 3d  |&C76=2..,.?&C80=|
000001f0  26 31 30 3a 3f 26 43 38  32 3d 26 46 36 0d 01 36  |&10:?&C82=&F6..6|
00000200  1d 3f 26 43 38 33 3d 26  46 46 3a 3f 26 43 38 34  |.?&C83=&FF:?&C84|
00000210  3d 35 3a 3f 26 43 38 36  3d 32 0d 01 40 17 3f 26  |=5:?&C86=2..@.?&|
00000220  43 39 30 3d 26 31 31 3a  3f 26 43 39 32 3d 26 46  |C90=&11:?&C92=&F|
00000230  36 0d 01 4a 17 3f 26 43  39 33 3d 26 46 46 3a 3f  |6..J.?&C93=&FF:?|
00000240  26 43 39 36 3d 31 3a e1  0d 01 54 0b dd f2 63 68  |&C96=1:...T...ch|
00000250  61 72 73 0d 01 5e 19 e3  41 25 3d 26 42 30 30 b8  |ars..^..A%=&B00.|
00000260  26 43 30 30 3a 3f 41 25  3d 30 3a ed 0d 01 68 24  |&C00:?A%=0:...h$|
00000270  ef 32 33 2c 31 32 38 2c  26 31 46 30 37 3b 26 37  |.23,128,&1F07;&7|
00000280  46 33 46 3b 26 46 46 37  46 3b 26 46 46 46 46 3b  |F3F;&FF7F;&FFFF;|
00000290  0d 01 72 24 ef 32 33 2c  31 32 39 2c 26 46 38 45  |..r$.23,129,&F8E|
000002a0  30 3b 26 46 45 46 43 3b  26 46 46 46 45 3b 26 46  |0;&FEFC;&FFFE;&F|
000002b0  46 46 46 3b 0d 01 7c 24  ef 32 33 2c 31 33 30 2c  |FFF;..|$.23,130,|
000002c0  26 46 46 46 46 3b 26 37  46 46 46 3b 26 33 46 37  |&FFFF;&7FFF;&3F7|
000002d0  46 3b 26 30 37 31 46 3b  0d 01 86 24 ef 32 33 2c  |F;&071F;...$.23,|
000002e0  31 33 31 2c 26 46 46 46  46 3b 26 46 45 46 46 3b  |131,&FFFF;&FEFF;|
000002f0  26 46 43 46 45 3b 26 45  30 46 38 3b 0d 01 90 24  |&FCFE;&E0F8;...$|
00000300  ef 32 33 2c 31 35 39 2c  26 46 46 46 46 3b 26 46  |.23,159,&FFFF;&F|
00000310  46 46 46 3b 26 46 46 46  46 3b 26 46 46 46 46 3b  |FFF;&FFFF;&FFFF;|
00000320  0d 01 9a 0d 63 24 3d bd  31 35 39 3a e1 0d 01 a4  |....c$=.159:....|
00000330  1a dd 20 f2 73 63 72 65  65 6e 3a db 3a ef 31 39  |.. .screen:.:.19|
00000340  2c 37 2c 30 3b 30 3b 0d  01 ae 2a fb 20 31 3a f1  |,7,0;0;...*. 1:.|
00000350  89 32 22 50 6c 61 79 65  72 20 31 22 89 37 22 47  |.2"Player 1".7"G|
00000360  61 6d 65 73 22 89 37 22  50 6c 61 79 65 72 20 32  |ames".7"Player 2|
00000370  22 0d 01 b8 16 fb 20 32  3a f1 89 36 3b 6e 31 25  |"..... 2:..6;n1%|
00000380  89 32 36 3b 6e 32 25 0d  01 c2 10 fb 20 37 3a 64  |.26;n2%..... 7:d|
00000390  24 3d 63 24 2b 63 24 0d  01 cc 14 f1 bd 31 32 38  |$=c$+c$......128|
000003a0  c4 33 37 2c 63 24 29 bd  31 32 39 0d 01 d6 17 e3  |.37,c$).129.....|
000003b0  41 25 3d 32 b8 32 38 3a  f1 64 24 89 33 35 64 24  |A%=2.28:.d$.35d$|
000003c0  3a ed 0d 01 e0 14 f1 bd  31 33 30 c4 33 37 2c 63  |:.......130.37,c|
000003d0  24 29 bd 31 33 31 0d 01  ea 10 ef 31 39 2c 37 2c  |$).131.....19,7,|
000003e0  37 3b 30 3b 3a e1 0d 01  f4 14 dd 20 f2 65 78 70  |7;0;:...... .exp|
000003f0  6c 6f 64 65 3a e6 20 33  2c 37 0d 01 fe 56 e7 20  |lode:. 3,7...V. |
00000400  3f 26 38 46 3d 31 20 58  25 3d 3f 78 31 2a 31 36  |?&8F=1 X%=?x1*16|
00000410  3a 59 25 3d 31 30 32 34  2d 28 3f 79 31 2a 34 29  |:Y%=1024-(?y1*4)|
00000420  3a 6e 32 25 3d 6e 32 25  2b 31 20 8b 20 58 25 3d  |:n2%=n2%+1 . X%=|
00000430  3f 78 32 2a 31 36 3a 59  25 3d 31 30 32 34 2d 28  |?x2*16:Y%=1024-(|
00000440  3f 79 32 2a 34 29 3a 6e  31 25 3d 6e 31 25 2b 31  |?y2*4):n1%=n1%+1|
00000450  0d 02 08 1a 76 3d 2d 31  35 3a 69 3d 30 2e 31 32  |....v=-15:i=0.12|
00000460  35 3a 73 3d 33 30 3a 64  3d 30 0d 02 12 1e e3 20  |5:s=30:d=0..... |
00000470  41 25 3d 32 32 30 b8 39  30 88 2d 35 3a 76 3d 76  |A%=220.90.-5:v=v|
00000480  2b 69 3a 64 3d 64 2b 73  0d 02 1c 1f f2 64 6f 74  |+i:d=d+s.....dot|
00000490  73 3a 58 25 3d 58 25 2b  34 3a f2 64 6f 74 73 3a  |s:X%=X%+4:.dots:|
000004a0  58 25 3d 58 25 2d 34 0d  02 26 1a d4 20 31 2c 30  |X%=X%-4..&.. 1,0|
000004b0  2c 41 25 2c 30 3a d4 20  26 31 30 2c 76 2c 37 2c  |,A%,0:. &10,v,7,|
000004c0  33 0d 02 30 1f f2 64 6f  74 73 3a 58 25 3d 58 25  |3..0..dots:X%=X%|
000004d0  2b 34 3a f2 64 6f 74 73  3a 58 25 3d 58 25 2d 34  |+4:.dots:X%=X%-4|
000004e0  0d 02 3a 0d 73 3d 73 2d  31 3a ed 3a e1 0d 02 44  |..:.s=s-1:.:...D|
000004f0  0b dd 20 f2 64 6f 74 73  0d 02 4e 1d f0 36 39 2c  |.. .dots..N..69,|
00000500  58 25 2c 59 25 2b 64 3a  f0 36 39 2c 58 25 2c 59  |X%,Y%+d:.69,X%,Y|
00000510  25 2b 64 2b 34 0d 02 58  1d f0 36 39 2c 58 25 2b  |%+d+4..X..69,X%+|
00000520  64 2c 59 25 3a f0 36 39  2c 58 25 2b 64 2c 59 25  |d,Y%:.69,X%+d,Y%|
00000530  2b 34 0d 02 62 1d f0 36  39 2c 58 25 2c 59 25 2d  |+4..b..69,X%,Y%-|
00000540  64 3a f0 36 39 2c 58 25  2c 59 25 2d 64 2b 34 0d  |d:.69,X%,Y%-d+4.|
00000550  02 6c 1d f0 36 39 2c 58  25 2d 64 2c 59 25 3a f0  |.l..69,X%-d,Y%:.|
00000560  36 39 2c 58 25 2d 64 2c  59 25 2b 34 0d 02 76 05  |69,X%-d,Y%+4..v.|
00000570  e1 0d 02 80 0b dd 20 f2  64 72 61 77 0d 02 8a 12  |...... .draw....|
00000580  e3 20 41 25 3d 31 20 b8  20 33 3a fb 20 32 0d 02  |. A%=1 . 3:. 2..|
00000590  94 12 f1 8a 31 37 2c 31  29 22 44 72 61 77 21 22  |....17,1)"Draw!"|
000005a0  0d 02 9e 19 d4 20 31 2c  2d 31 35 2c 32 31 30 2c  |..... 1,-15,210,|
000005b0  32 3a f2 77 28 2e 34 35  29 0d 02 a8 14 f1 8a 31  |2:.w(.45)......1|
000005c0  37 2c 31 29 89 35 3a f2  77 28 2e 35 29 0d 02 b2  |7,1).5:.w(.5)...|
000005d0  07 ed 3a e1 0d 02 bc 15  dd 20 f2 77 28 74 29 3a  |..:...... .w(t):|
000005e0  74 3d 74 2a 31 30 30 2b  91 0d 02 c6 0d f5 20 fd  |t=t*100+...... .|
000005f0  20 91 3e 74 3a e1 0d 02  d0 16 dd 20 f2 69 6e 73  | .>t:...... .ins|
00000600  74 3a e3 20 59 25 3d 30  20 b8 20 31 0d 02 da 1c  |t:. Y%=0 . 1....|
00000610  ef 33 31 2c 30 2c 59 25  2c 31 34 31 2c 31 32 39  |.31,0,Y%,141,129|
00000620  2c 31 35 37 2c 31 33 35  0d 02 e4 11 f1 89 31 34  |,157,135......14|
00000630  22 41 72 65 6e 61 22 3a  ed 0d 02 ee 18 f1 89 31  |"Arena":.......1|
00000640  33 22 62 79 20 44 61 6e  69 65 6c 20 54 61 6e 67  |3"by Daniel Tang|
00000650  22 0d 02 f8 1c f1 27 27  89 34 22 50 6c 61 79 65  |".....''.4"Playe|
00000660  72 20 31 20 63 6f 6e 74  72 6f 6c 73 22 0d 03 02  |r 1 controls"...|
00000670  19 f1 27 89 39 22 41 20  2d 20 54 68 72 75 73 74  |..'.9"A - Thrust|
00000680  20 64 6f 77 6e 22 0d 03  0c 16 f1 89 39 22 5a 20  | down"......9"Z |
00000690  2d 20 54 68 72 75 73 74  20 75 70 22 0d 03 16 11  |- Thrust up"....|
000006a0  f1 89 39 22 58 20 2d 20  46 69 72 65 22 0d 03 20  |..9"X - Fire".. |
000006b0  1c f1 27 27 89 34 22 50  6c 61 79 65 72 20 32 20  |..''.4"Player 2 |
000006c0  63 6f 6e 74 72 6f 6c 73  22 0d 03 2a 19 f1 27 89  |controls"..*..'.|
000006d0  39 22 2b 20 2d 20 54 68  72 75 73 74 20 64 6f 77  |9"+ - Thrust dow|
000006e0  6e 22 0d 03 34 16 f1 89  39 22 3e 20 2d 20 54 68  |n"..4...9"> - Th|
000006f0  72 75 73 74 20 75 70 22  0d 03 3e 11 f1 89 39 22  |rust up"..>...9"|
00000700  3c 20 2d 20 46 69 72 65  22 0d 03 48 18 ef 33 31  |< - Fire"..H..31|
00000710  2c 30 2c 32 33 2c 31 32  39 2c 31 35 37 2c 31 33  |,0,23,129,157,13|
00000720  35 0d 03 52 1c f1 89 36  22 44 6f 20 79 6f 75 20  |5..R...6"Do you |
00000730  77 61 6e 74 20 73 6f 75  6e 64 3f 22 3b 0d 03 5c  |want sound?";..\|
00000740  13 f5 20 41 25 3d a7 22  59 79 4e 6e 22 2c be 29  |.. A%=."YyNn",.)|
00000750  0d 03 66 1a fd 20 41 25  3e 30 3a ef 32 33 3b 38  |..f.. A%>0:.23;8|
00000760  32 30 32 3b 30 3b 30 3b  30 3b 0d 03 70 19 f2 6f  |202;0;0;0;..p..o|
00000770  73 28 22 46 58 32 31 30  2c 22 2b c3 28 41 25 81  |s("FX210,"+.(A%.|
00000780  32 29 29 0d 03 7a 1f f1  8a 39 2c 32 33 29 22 50  |2))..z...9,23)"P|
00000790  72 65 73 73 20 73 70 61  63 65 20 74 6f 20 67 6f  |ress space to go|
000007a0  22 3b 0d 03 84 0e f5 20  fd 20 a5 3d 33 32 3a e1  |";..... . .=32:.|
000007b0  0d 03 8e 18 dd 20 f2 6f  73 28 24 26 37 30 30 29  |..... .os($&700)|
000007c0  3a ea 20 58 25 2c 59 25  0d 03 98 11 59 25 3d 37  |:. X%,Y%....Y%=7|
000007d0  3a d6 26 46 46 46 37 3a  e1 0d 03 a2 1a dd 20 f2  |:.&FFF7:...... .|
000007e0  65 6e 64 28 41 25 29 3a  f2 77 28 33 29 3a 2a 46  |end(A%):.w(3):*F|
000007f0  58 32 31 0d 03 ac 20 61  24 3d 22 59 6f 75 20 77  |X21... a$="You w|
00000800  69 6e 20 50 6c 61 79 65  72 20 22 2b c3 28 32 2b  |in Player "+.(2+|
00000810  41 25 29 0d 03 b6 0d f1  8a 31 30 2c 31 35 29 3b  |A%)......10,15);|
00000820  0d 03 c0 11 e3 20 41 25  3d 31 20 b8 20 a9 20 61  |..... A%=1 . . a|
00000830  24 0d 03 ca 14 42 25 3d  97 c1 61 24 2c 41 25 29  |$....B%=..a$,A%)|
00000840  3a ef 20 42 25 0d 03 d4  1c d4 30 2c 31 35 2a 28  |:. B%.....0,15*(|
00000850  42 25 3e 33 32 29 2c 32  2c 31 3a f2 77 28 2e 35  |B%>32),2,1:.w(.5|
00000860  29 0d 03 de 0f ed 3a f2  77 28 33 2e 35 29 3a e1  |).....:.w(3.5):.|
00000870  0d ff                                             |..|
00000872