� ADDEND
� by Martin Sann
� (c) Electron User
(� 6 :� 23;8202;0;0;0;
2p$=�39,"-")
<�name:�init
F$&380=p1$:$&38A=p2$
P�"addend1"
Z�
d
��name
n�0,0)p$
x� R%=0�1
�#�11,R%+1)"A  D  D  E  N  D  A"
�� R%
��13,3)"FOR TWO PLAYERS"
��0,4)p$
�
�0,20)p$
�%�2,21)"Type in the name of the "
�#�10,22)"and then press Return"
��0,23)p$;
�p1$=�in("FIRST player")
�p2$=�in("SECOND player")
��
�
� �in(m$)
�� a$,i$,g%,l%

,� 23,255,255,255,255,255,255,255,255,255

�16,16)�8,�255)

�26,21)m$

"�

,� g%=�:a$=�g%:l%=�i$

6� l%=0 � g%=13:�7:�TbA

@&� g%=13 � g%=127 � (g%>64 � g%<91)

J(� g%=13 � g%=127 � � l%=8 � i$=i$+a$

T�16,16)i$

^�s

h1� g%=127 � i$>"" �15+l%,16)�255:i$=�i$,l%-1)

r� g%=13 � l%>0

|=i$

���s

��1,-10,180,2

��

�
��init

�
?&368=&13

�*�23,48,255,129,189,189,189,189,129,255

�*�23,49,255,247,231,247,247,247,227,255

�*�23,50,255,129,253,129,191,191,129,255

�*�23,51,255,129,253,225,253,253,129,255

�*�23,52,255,251,243,235,219,129,251,255

�*�23,53,255,129,191,129,253,253,129,255

�*�23,54,255,129,191,129,189,189,129,255

�*�23,55,255,129,251,247,239,239,239,255
*�23,56,255,129,189,129,189,189,129,255
*�23,57,255,129,189,129,253,253,129,255
�23,224,0,0,0,0,8,0,0,0
&#�23,225,15,15,15,15,15,15,15,15
0+�23,226,240,240,240,240,240,240,240,240
:�23,227,0,0,0,31,31,0,0,0
D%�23,228,32,48,56,252,252,56,48,32
N'�23,229,0,126,126,126,126,126,126,0
X�
�

00000000  0d 00 0a 0c f4 20 41 44  44 45 4e 44 0d 00 14 14  |..... ADDEND....|
00000010  f4 20 62 79 20 4d 61 72  74 69 6e 20 53 61 6e 6e  |. by Martin Sann|
00000020  0d 00 1e 17 f4 20 28 63  29 20 45 6c 65 63 74 72  |..... (c) Electr|
00000030  6f 6e 20 55 73 65 72 0d  00 28 19 eb 20 36 20 3a  |on User..(.. 6 :|
00000040  ef 20 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |. 23;8202;0;0;0;|
00000050  0d 00 32 0f 70 24 3d c4  33 39 2c 22 2d 22 29 0d  |..2.p$=.39,"-").|
00000060  00 3c 0f f2 6e 61 6d 65  3a f2 69 6e 69 74 0d 00  |.<..name:.init..|
00000070  46 17 24 26 33 38 30 3d  70 31 24 3a 24 26 33 38  |F.$&380=p1$:$&38|
00000080  41 3d 70 32 24 0d 00 50  0e d7 22 61 64 64 65 6e  |A=p2$..P.."adden|
00000090  64 31 22 0d 00 5a 05 e0  0d 00 64 0a dd f2 6e 61  |d1"..Z....d...na|
000000a0  6d 65 0d 00 6e 0c f1 8a  30 2c 30 29 70 24 0d 00  |me..n...0,0)p$..|
000000b0  78 0c e3 20 52 25 3d 30  b8 31 0d 00 82 23 f1 8a  |x.. R%=0.1...#..|
000000c0  31 31 2c 52 25 2b 31 29  22 41 20 20 44 20 20 44  |11,R%+1)"A  D  D|
000000d0  20 20 45 20 20 4e 20 20  44 20 20 41 22 0d 00 8c  |  E  N  D  A"...|
000000e0  08 ed 20 52 25 0d 00 96  1c f1 8a 31 33 2c 33 29  |.. R%......13,3)|
000000f0  22 46 4f 52 20 54 57 4f  20 50 4c 41 59 45 52 53  |"FOR TWO PLAYERS|
00000100  22 0d 00 a0 0c f1 8a 30  2c 34 29 70 24 0d 00 aa  |"......0,4)p$...|
00000110  0d f1 8a 30 2c 32 30 29  70 24 0d 00 b4 25 f1 8a  |...0,20)p$...%..|
00000120  32 2c 32 31 29 22 54 79  70 65 20 69 6e 20 74 68  |2,21)"Type in th|
00000130  65 20 6e 61 6d 65 20 6f  66 20 74 68 65 20 22 0d  |e name of the ".|
00000140  00 be 23 f1 8a 31 30 2c  32 32 29 22 61 6e 64 20  |..#..10,22)"and |
00000150  74 68 65 6e 20 70 72 65  73 73 20 52 65 74 75 72  |then press Retur|
00000160  6e 22 0d 00 c8 0e f1 8a  30 2c 32 33 29 70 24 3b  |n"......0,23)p$;|
00000170  0d 00 d2 1b 70 31 24 3d  a4 69 6e 28 22 46 49 52  |....p1$=.in("FIR|
00000180  53 54 20 70 6c 61 79 65  72 22 29 0d 00 dc 1c 70  |ST player")....p|
00000190  32 24 3d a4 69 6e 28 22  53 45 43 4f 4e 44 20 70  |2$=.in("SECOND p|
000001a0  6c 61 79 65 72 22 29 0d  00 e6 05 e1 0d 00 f0 0d  |layer").........|
000001b0  dd 20 a4 69 6e 28 6d 24  29 0d 00 fa 11 ea 20 61  |. .in(m$)..... a|
000001c0  24 2c 69 24 2c 67 25 2c  6c 25 0d 01 04 2c ef 20  |$,i$,g%,l%...,. |
000001d0  32 33 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |23,255,255,255,2|
000001e0  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
000001f0  35 35 2c 32 35 35 0d 01  0e 14 f1 8a 31 36 2c 31  |55,255......16,1|
00000200  36 29 c4 38 2c bd 32 35  35 29 0d 01 18 0e f1 8a  |6).8,.255)......|
00000210  32 36 2c 32 31 29 6d 24  0d 01 22 05 f5 0d 01 2c  |26,21)m$.."....,|
00000220  18 f5 20 67 25 3d a5 3a  61 24 3d bd 67 25 3a 6c  |.. g%=.:a$=.g%:l|
00000230  25 3d a9 69 24 0d 01 36  1b e7 20 6c 25 3d 30 20  |%=.i$..6.. l%=0 |
00000240  80 20 67 25 3d 31 33 3a  ef 37 3a e5 8d 54 62 41  |. g%=13:.7:..TbA|
00000250  0d 01 40 26 fd 20 67 25  3d 31 33 20 84 20 67 25  |..@&. g%=13 . g%|
00000260  3d 31 32 37 20 84 20 28  67 25 3e 36 34 20 80 20  |=127 . (g%>64 . |
00000270  67 25 3c 39 31 29 0d 01  4a 28 e7 20 67 25 3d 31  |g%<91)..J(. g%=1|
00000280  33 20 84 20 67 25 3d 31  32 37 20 8b 20 e7 20 6c  |3 . g%=127 . . l|
00000290  25 3d 38 20 8b 20 69 24  3d 69 24 2b 61 24 0d 01  |%=8 . i$=i$+a$..|
000002a0  54 0e f1 8a 31 36 2c 31  36 29 69 24 0d 01 5e 06  |T...16,16)i$..^.|
000002b0  f2 73 0d 01 68 31 e7 20  67 25 3d 31 32 37 20 e7  |.s..h1. g%=127 .|
000002c0  20 69 24 3e 22 22 20 f1  8a 31 35 2b 6c 25 2c 31  | i$>"" ..15+l%,1|
000002d0  36 29 bd 32 35 35 3a 69  24 3d c0 69 24 2c 6c 25  |6).255:i$=.i$,l%|
000002e0  2d 31 29 0d 01 72 12 fd  20 67 25 3d 31 33 20 80  |-1)..r.. g%=13 .|
000002f0  20 6c 25 3e 30 0d 01 7c  07 3d 69 24 0d 01 86 07  | l%>0..|.=i$....|
00000300  dd f2 73 0d 01 90 10 d4  31 2c 2d 31 30 2c 31 38  |..s.....1,-10,18|
00000310  30 2c 32 0d 01 9a 05 e1  0d 01 a4 0a dd f2 69 6e  |0,2...........in|
00000320  69 74 0d 01 ae 0d 3f 26  33 36 38 3d 26 31 33 0d  |it....?&368=&13.|
00000330  01 b8 2a ef 32 33 2c 34  38 2c 32 35 35 2c 31 32  |..*.23,48,255,12|
00000340  39 2c 31 38 39 2c 31 38  39 2c 31 38 39 2c 31 38  |9,189,189,189,18|
00000350  39 2c 31 32 39 2c 32 35  35 0d 01 c2 2a ef 32 33  |9,129,255...*.23|
00000360  2c 34 39 2c 32 35 35 2c  32 34 37 2c 32 33 31 2c  |,49,255,247,231,|
00000370  32 34 37 2c 32 34 37 2c  32 34 37 2c 32 32 37 2c  |247,247,247,227,|
00000380  32 35 35 0d 01 cc 2a ef  32 33 2c 35 30 2c 32 35  |255...*.23,50,25|
00000390  35 2c 31 32 39 2c 32 35  33 2c 31 32 39 2c 31 39  |5,129,253,129,19|
000003a0  31 2c 31 39 31 2c 31 32  39 2c 32 35 35 0d 01 d6  |1,191,129,255...|
000003b0  2a ef 32 33 2c 35 31 2c  32 35 35 2c 31 32 39 2c  |*.23,51,255,129,|
000003c0  32 35 33 2c 32 32 35 2c  32 35 33 2c 32 35 33 2c  |253,225,253,253,|
000003d0  31 32 39 2c 32 35 35 0d  01 e0 2a ef 32 33 2c 35  |129,255...*.23,5|
000003e0  32 2c 32 35 35 2c 32 35  31 2c 32 34 33 2c 32 33  |2,255,251,243,23|
000003f0  35 2c 32 31 39 2c 31 32  39 2c 32 35 31 2c 32 35  |5,219,129,251,25|
00000400  35 0d 01 ea 2a ef 32 33  2c 35 33 2c 32 35 35 2c  |5...*.23,53,255,|
00000410  31 32 39 2c 31 39 31 2c  31 32 39 2c 32 35 33 2c  |129,191,129,253,|
00000420  32 35 33 2c 31 32 39 2c  32 35 35 0d 01 f4 2a ef  |253,129,255...*.|
00000430  32 33 2c 35 34 2c 32 35  35 2c 31 32 39 2c 31 39  |23,54,255,129,19|
00000440  31 2c 31 32 39 2c 31 38  39 2c 31 38 39 2c 31 32  |1,129,189,189,12|
00000450  39 2c 32 35 35 0d 01 fe  2a ef 32 33 2c 35 35 2c  |9,255...*.23,55,|
00000460  32 35 35 2c 31 32 39 2c  32 35 31 2c 32 34 37 2c  |255,129,251,247,|
00000470  32 33 39 2c 32 33 39 2c  32 33 39 2c 32 35 35 0d  |239,239,239,255.|
00000480  02 08 2a ef 32 33 2c 35  36 2c 32 35 35 2c 31 32  |..*.23,56,255,12|
00000490  39 2c 31 38 39 2c 31 32  39 2c 31 38 39 2c 31 38  |9,189,129,189,18|
000004a0  39 2c 31 32 39 2c 32 35  35 0d 02 12 2a ef 32 33  |9,129,255...*.23|
000004b0  2c 35 37 2c 32 35 35 2c  31 32 39 2c 31 38 39 2c  |,57,255,129,189,|
000004c0  31 32 39 2c 32 35 33 2c  32 35 33 2c 31 32 39 2c  |129,253,253,129,|
000004d0  32 35 35 0d 02 1c 1b ef  32 33 2c 32 32 34 2c 30  |255.....23,224,0|
000004e0  2c 30 2c 30 2c 30 2c 38  2c 30 2c 30 2c 30 0d 02  |,0,0,0,8,0,0,0..|
000004f0  26 23 ef 32 33 2c 32 32  35 2c 31 35 2c 31 35 2c  |&#.23,225,15,15,|
00000500  31 35 2c 31 35 2c 31 35  2c 31 35 2c 31 35 2c 31  |15,15,15,15,15,1|
00000510  35 0d 02 30 2b ef 32 33  2c 32 32 36 2c 32 34 30  |5..0+.23,226,240|
00000520  2c 32 34 30 2c 32 34 30  2c 32 34 30 2c 32 34 30  |,240,240,240,240|
00000530  2c 32 34 30 2c 32 34 30  2c 32 34 30 0d 02 3a 1d  |,240,240,240..:.|
00000540  ef 32 33 2c 32 32 37 2c  30 2c 30 2c 30 2c 33 31  |.23,227,0,0,0,31|
00000550  2c 33 31 2c 30 2c 30 2c  30 0d 02 44 25 ef 32 33  |,31,0,0,0..D%.23|
00000560  2c 32 32 38 2c 33 32 2c  34 38 2c 35 36 2c 32 35  |,228,32,48,56,25|
00000570  32 2c 32 35 32 2c 35 36  2c 34 38 2c 33 32 0d 02  |2,252,56,48,32..|
00000580  4e 27 ef 32 33 2c 32 32  39 2c 30 2c 31 32 36 2c  |N'.23,229,0,126,|
00000590  31 32 36 2c 31 32 36 2c  31 32 36 2c 31 32 36 2c  |126,126,126,126,|
000005a0  31 32 36 2c 30 0d 02 58  05 e1 0d ff              |126,0..X....|
000005ac