� Arena:6502
�
� Rob Walmsley
(�
2� (c) 26-7-90.
< 
F�7
P�23;8202;0;0;0;
Z�Env
d"�Title("          Arena:6502")
n�24,2);"By Rob Walmsley"
x�
�3�Just("    In the future, 2000 years from now")
�/�Just("the perfect society is formed. All")
�1�Just("ills are banished from the world and")
�4�Just("all is peaceful for 2512 years.        ")
�2�Just("    Unfortunatly the people get bored")
�/�Just("and the Arena:6502 is created. The")
�2�Just("Arena consists of several alien life-")
�4�Just("forms and a victim!.                   ")
�1�Just("    You are that victim, luckily the")
�2�Just("crystals you find in the Arena can be")
�4�Just("used to increase your fire power.      ")
��
�#�"               A - move left"

$�"               S - move right"

!�"               : - move up"

$�"               / - move down" 

"-�"           Space - Fire / Enter Arena" 

,+�6,24);"Hit space to enter the Arena";

6
���=32

@�=&3000

J
�"Arena1"

T�

^ 

h��Title(T$)

r!�0,0);�131;�157;�132;�141;T$

|!�0,1);�131;�157;�132;�141;T$

��

� 

���Just(T$)

�I%=1

�� �T$>38 �" ";T$;:�

�G�T$,I%,1)=" " ��T$,I%+1,1)<>" " T$=�T$,I%)+" "+�T$,�T$-I%):I%=I%+1

�I%=I%+1

��I%>�T$ I%=I%-�T$

�	�tnA

� 

�	��Env

�.�1,129,-15,-8,-3,10,10,10,96,0,0,-96,96,96

�/�2,1,-2,-2,-2,255,255,255,30,-2,-2,-2,100,5
)�3,0,0,0,0,0,0,0,121,-1,-1,-1,120,120
�
�

00000000  0d 00 0a 10 f4 20 41 72  65 6e 61 3a 36 35 30 32  |..... Arena:6502|
00000010  0d 00 14 05 f4 0d 00 1e  12 f4 20 52 6f 62 20 57  |.......... Rob W|
00000020  61 6c 6d 73 6c 65 79 0d  00 28 05 f4 0d 00 32 12  |almsley..(....2.|
00000030  f4 20 28 63 29 20 32 36  2d 37 2d 39 30 2e 0d 00  |. (c) 26-7-90...|
00000040  3c 05 20 0d 00 46 06 eb  37 0d 00 50 13 ef 32 33  |<. ..F..7..P..23|
00000050  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 0d 00 5a 08  |;8202;0;0;0;..Z.|
00000060  f2 45 6e 76 0d 00 64 22  f2 54 69 74 6c 65 28 22  |.Env..d".Title("|
00000070  20 20 20 20 20 20 20 20  20 20 41 72 65 6e 61 3a  |          Arena:|
00000080  36 35 30 32 22 29 0d 00  6e 1d f1 8a 32 34 2c 32  |6502")..n...24,2|
00000090  29 3b 22 42 79 20 52 6f  62 20 57 61 6c 6d 73 6c  |);"By Rob Walmsl|
000000a0  65 79 22 0d 00 78 05 f1  0d 00 82 33 f2 4a 75 73  |ey"..x.....3.Jus|
000000b0  74 28 22 20 20 20 20 49  6e 20 74 68 65 20 66 75  |t("    In the fu|
000000c0  74 75 72 65 2c 20 32 30  30 30 20 79 65 61 72 73  |ture, 2000 years|
000000d0  20 66 72 6f 6d 20 6e 6f  77 22 29 0d 00 8c 2f f2  | from now").../.|
000000e0  4a 75 73 74 28 22 74 68  65 20 70 65 72 66 65 63  |Just("the perfec|
000000f0  74 20 73 6f 63 69 65 74  79 20 69 73 20 66 6f 72  |t society is for|
00000100  6d 65 64 2e 20 41 6c 6c  22 29 0d 00 96 31 f2 4a  |med. All")...1.J|
00000110  75 73 74 28 22 69 6c 6c  73 20 61 72 65 20 62 61  |ust("ills are ba|
00000120  6e 69 73 68 65 64 20 66  72 6f 6d 20 74 68 65 20  |nished from the |
00000130  77 6f 72 6c 64 20 61 6e  64 22 29 0d 00 a0 34 f2  |world and")...4.|
00000140  4a 75 73 74 28 22 61 6c  6c 20 69 73 20 70 65 61  |Just("all is pea|
00000150  63 65 66 75 6c 20 66 6f  72 20 32 35 31 32 20 79  |ceful for 2512 y|
00000160  65 61 72 73 2e 20 20 20  20 20 20 20 20 22 29 0d  |ears.        ").|
00000170  00 aa 32 f2 4a 75 73 74  28 22 20 20 20 20 55 6e  |..2.Just("    Un|
00000180  66 6f 72 74 75 6e 61 74  6c 79 20 74 68 65 20 70  |fortunatly the p|
00000190  65 6f 70 6c 65 20 67 65  74 20 62 6f 72 65 64 22  |eople get bored"|
000001a0  29 0d 00 b4 2f f2 4a 75  73 74 28 22 61 6e 64 20  |).../.Just("and |
000001b0  74 68 65 20 41 72 65 6e  61 3a 36 35 30 32 20 69  |the Arena:6502 i|
000001c0  73 20 63 72 65 61 74 65  64 2e 20 54 68 65 22 29  |s created. The")|
000001d0  0d 00 be 32 f2 4a 75 73  74 28 22 41 72 65 6e 61  |...2.Just("Arena|
000001e0  20 63 6f 6e 73 69 73 74  73 20 6f 66 20 73 65 76  | consists of sev|
000001f0  65 72 61 6c 20 61 6c 69  65 6e 20 6c 69 66 65 2d  |eral alien life-|
00000200  22 29 0d 00 c8 34 f2 4a  75 73 74 28 22 66 6f 72  |")...4.Just("for|
00000210  6d 73 20 61 6e 64 20 61  20 76 69 63 74 69 6d 21  |ms and a victim!|
00000220  2e 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000230  20 20 20 20 22 29 0d 00  d2 31 f2 4a 75 73 74 28  |    ")...1.Just(|
00000240  22 20 20 20 20 59 6f 75  20 61 72 65 20 74 68 61  |"    You are tha|
00000250  74 20 76 69 63 74 69 6d  2c 20 6c 75 63 6b 69 6c  |t victim, luckil|
00000260  79 20 74 68 65 22 29 0d  00 dc 32 f2 4a 75 73 74  |y the")...2.Just|
00000270  28 22 63 72 79 73 74 61  6c 73 20 79 6f 75 20 66  |("crystals you f|
00000280  69 6e 64 20 69 6e 20 74  68 65 20 41 72 65 6e 61  |ind in the Arena|
00000290  20 63 61 6e 20 62 65 22  29 0d 00 e6 34 f2 4a 75  | can be")...4.Ju|
000002a0  73 74 28 22 75 73 65 64  20 74 6f 20 69 6e 63 72  |st("used to incr|
000002b0  65 61 73 65 20 79 6f 75  72 20 66 69 72 65 20 70  |ease your fire p|
000002c0  6f 77 65 72 2e 20 20 20  20 20 20 22 29 0d 00 f0  |ower.      ")...|
000002d0  05 f1 0d 00 fa 23 f1 22  20 20 20 20 20 20 20 20  |.....#."        |
000002e0  20 20 20 20 20 20 20 41  20 2d 20 6d 6f 76 65 20  |       A - move |
000002f0  6c 65 66 74 22 0d 01 04  24 f1 22 20 20 20 20 20  |left"...$."     |
00000300  20 20 20 20 20 20 20 20  20 20 53 20 2d 20 6d 6f  |          S - mo|
00000310  76 65 20 72 69 67 68 74  22 0d 01 0e 21 f1 22 20  |ve right"...!." |
00000320  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a 20  |              : |
00000330  2d 20 6d 6f 76 65 20 75  70 22 0d 01 18 24 f1 22  |- move up"...$."|
00000340  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2f  |               /|
00000350  20 2d 20 6d 6f 76 65 20  64 6f 77 6e 22 20 0d 01  | - move down" ..|
00000360  22 2d f1 22 20 20 20 20  20 20 20 20 20 20 20 53  |"-."           S|
00000370  70 61 63 65 20 2d 20 46  69 72 65 20 2f 20 45 6e  |pace - Fire / En|
00000380  74 65 72 20 41 72 65 6e  61 22 20 0d 01 2c 2b f1  |ter Arena" ..,+.|
00000390  8a 36 2c 32 34 29 3b 22  48 69 74 20 73 70 61 63  |.6,24);"Hit spac|
000003a0  65 20 74 6f 20 65 6e 74  65 72 20 74 68 65 20 41  |e to enter the A|
000003b0  72 65 6e 61 22 3b 0d 01  36 0a f5 fd a5 3d 33 32  |rena";..6....=32|
000003c0  0d 01 40 0b d0 3d 26 33  30 30 30 0d 01 4a 0d d7  |..@..=&3000..J..|
000003d0  22 41 72 65 6e 61 31 22  0d 01 54 05 e0 0d 01 5e  |"Arena1"..T....^|
000003e0  05 20 0d 01 68 0f dd f2  54 69 74 6c 65 28 54 24  |. ..h...Title(T$|
000003f0  29 0d 01 72 21 f1 8a 30  2c 30 29 3b bd 31 33 31  |)..r!..0,0);.131|
00000400  3b bd 31 35 37 3b bd 31  33 32 3b bd 31 34 31 3b  |;.157;.132;.141;|
00000410  54 24 0d 01 7c 21 f1 8a  30 2c 31 29 3b bd 31 33  |T$..|!..0,1);.13|
00000420  31 3b bd 31 35 37 3b bd  31 33 32 3b bd 31 34 31  |1;.157;.132;.141|
00000430  3b 54 24 0d 01 86 05 e1  0d 01 90 05 20 0d 01 9a  |;T$......... ...|
00000440  0e dd f2 4a 75 73 74 28  54 24 29 0d 01 a4 08 49  |...Just(T$)....I|
00000450  25 3d 31 0d 01 ae 17 e7  20 a9 54 24 3e 33 38 20  |%=1..... .T$>38 |
00000460  f1 22 20 22 3b 54 24 3b  3a e1 0d 01 b8 47 e7 c1  |." ";T$;:....G..|
00000470  54 24 2c 49 25 2c 31 29  3d 22 20 22 20 80 c1 54  |T$,I%,1)=" " ..T|
00000480  24 2c 49 25 2b 31 2c 31  29 3c 3e 22 20 22 20 54  |$,I%+1,1)<>" " T|
00000490  24 3d c0 54 24 2c 49 25  29 2b 22 20 22 2b c2 54  |$=.T$,I%)+" "+.T|
000004a0  24 2c a9 54 24 2d 49 25  29 3a 49 25 3d 49 25 2b  |$,.T$-I%):I%=I%+|
000004b0  31 0d 01 c2 0b 49 25 3d  49 25 2b 31 0d 01 cc 15  |1....I%=I%+1....|
000004c0  e7 49 25 3e a9 54 24 20  49 25 3d 49 25 2d a9 54  |.I%>.T$ I%=I%-.T|
000004d0  24 0d 01 d6 09 e5 8d 74  6e 41 0d 01 e0 05 20 0d  |$......tnA.... .|
000004e0  01 ea 09 dd f2 45 6e 76  0d 01 f4 2e e2 31 2c 31  |.....Env.....1,1|
000004f0  32 39 2c 2d 31 35 2c 2d  38 2c 2d 33 2c 31 30 2c  |29,-15,-8,-3,10,|
00000500  31 30 2c 31 30 2c 39 36  2c 30 2c 30 2c 2d 39 36  |10,10,96,0,0,-96|
00000510  2c 39 36 2c 39 36 0d 01  fe 2f e2 32 2c 31 2c 2d  |,96,96.../.2,1,-|
00000520  32 2c 2d 32 2c 2d 32 2c  32 35 35 2c 32 35 35 2c  |2,-2,-2,255,255,|
00000530  32 35 35 2c 33 30 2c 2d  32 2c 2d 32 2c 2d 32 2c  |255,30,-2,-2,-2,|
00000540  31 30 30 2c 35 0d 02 08  29 e2 33 2c 30 2c 30 2c  |100,5...).3,0,0,|
00000550  30 2c 30 2c 30 2c 30 2c  30 2c 31 32 31 2c 2d 31  |0,0,0,0,0,121,-1|
00000560  2c 2d 31 2c 2d 31 2c 31  32 30 2c 31 32 30 0d 02  |,-1,-1,120,120..|
00000570  12 05 e1 0d ff                                    |.....|
00000575