� STRAT1
� by Martin Sann
� (C) The Micro User
(�7
2�23;8202;0;0;0;
<p$=�150+�39,"p")
F`$=�150+�39,"`")
Pcl$=�20," ")
Z	�name
d	�init
n
�"strat2"
x:
�
��name
��0,0)`$
�� R%=0�1
�2�6,R%+1)�131+�141+"S  T  R  A  T  A  G  E  M"
�� R%
��13,3)"FOR TWO PLAYERS"
��0,4)p$
�
�0,20)`$
��6,21)"TYPE IN NAME OF "
�#�10,22)"AND THEN PRESS RETURN"
��0,23)p$;
�p1$=�in("FIRST PLAYER")
�p2$=�in("SECOND PLAYER")


$&380=p1$


$&38A=p2$

�

":

,
� �in(m$)

6� a$,i$,g%,l%

@�16,16)�8,�255)

J�22,21)m$

T�

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

h� l%=0 � g%=13:�7:�DTA

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

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

��16,16)i$

��s

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

�� g%=13 � l%>0

�=i$

�:

���s

��1,-10,180,2

��

�:

�
��init

�
?&368=&13

�"�23,48,28,34,65,65,65,65,34,28
�23,49,8,24,8,8,8,8,8,8
"�23,50,126,1,1,62,64,64,64,127
�23,51,62,1,1,14,1,1,1,62
&�23,52,2,6,10,18,34,127,2,2
0"�23,53,127,64,64,126,1,1,65,62
:#�23,54,62,64,64,126,65,65,65,62
D!�23,55,127,66,4,8,16,32,32,32
N"�23,56,62,65,65,62,65,65,65,62
X�23,57,62,65,65,63,1,1,1,62
b"�23,224,1,3,7,15,31,63,127,255
l+�23,225,128,192,224,240,248,252,254,255
v+�23,226,255,128,159,159,159,159,128,255
�'�23,227,255,1,249,249,249,249,1,255
�#�23,228,0,255,0,255,0,255,0,255
��23,229,0,0,3,6,6,6,3,0
�%�23,230,0,0,198,103,102,102,198,0
��23,231,0,0,192,96,0,0,0,0
��
�

00000000  0d 00 0a 0c f4 20 53 54  52 41 54 31 0d 00 14 14  |..... STRAT1....|
00000010  f4 20 62 79 20 4d 61 72  74 69 6e 20 53 61 6e 6e  |. by Martin Sann|
00000020  0d 00 1e 18 f4 20 28 43  29 20 54 68 65 20 4d 69  |..... (C) The Mi|
00000030  63 72 6f 20 55 73 65 72  0d 00 28 06 eb 37 0d 00  |cro User..(..7..|
00000040  32 13 ef 32 33 3b 38 32  30 32 3b 30 3b 30 3b 30  |2..23;8202;0;0;0|
00000050  3b 0d 00 3c 14 70 24 3d  bd 31 35 30 2b c4 33 39  |;..<.p$=.150+.39|
00000060  2c 22 70 22 29 0d 00 46  14 60 24 3d bd 31 35 30  |,"p")..F.`$=.150|
00000070  2b c4 33 39 2c 22 60 22  29 0d 00 50 10 63 6c 24  |+.39,"`")..P.cl$|
00000080  3d c4 32 30 2c 22 20 22  29 0d 00 5a 09 f2 6e 61  |=.20," ")..Z..na|
00000090  6d 65 0d 00 64 09 f2 69  6e 69 74 0d 00 6e 0d d7  |me..d..init..n..|
000000a0  22 73 74 72 61 74 32 22  0d 00 78 05 3a 0d 00 82  |"strat2"..x.:...|
000000b0  0a dd f2 6e 61 6d 65 0d  00 8c 0c f1 8a 30 2c 30  |...name......0,0|
000000c0  29 60 24 0d 00 96 0c e3  20 52 25 3d 30 b8 31 0d  |)`$..... R%=0.1.|
000000d0  00 a0 32 f1 8a 36 2c 52  25 2b 31 29 bd 31 33 31  |..2..6,R%+1).131|
000000e0  2b bd 31 34 31 2b 22 53  20 20 54 20 20 52 20 20  |+.141+"S  T  R  |
000000f0  41 20 20 54 20 20 41 20  20 47 20 20 45 20 20 4d  |A  T  A  G  E  M|
00000100  22 0d 00 aa 08 ed 20 52  25 0d 00 b4 1c f1 8a 31  |"..... R%......1|
00000110  33 2c 33 29 22 46 4f 52  20 54 57 4f 20 50 4c 41  |3,3)"FOR TWO PLA|
00000120  59 45 52 53 22 0d 00 be  0c f1 8a 30 2c 34 29 70  |YERS"......0,4)p|
00000130  24 0d 00 c8 0d f1 8a 30  2c 32 30 29 60 24 0d 00  |$......0,20)`$..|
00000140  d2 1d f1 8a 36 2c 32 31  29 22 54 59 50 45 20 49  |....6,21)"TYPE I|
00000150  4e 20 4e 41 4d 45 20 4f  46 20 22 0d 00 dc 23 f1  |N NAME OF "...#.|
00000160  8a 31 30 2c 32 32 29 22  41 4e 44 20 54 48 45 4e  |.10,22)"AND THEN|
00000170  20 50 52 45 53 53 20 52  45 54 55 52 4e 22 0d 00  | PRESS RETURN"..|
00000180  e6 0e f1 8a 30 2c 32 33  29 70 24 3b 0d 00 f0 1b  |....0,23)p$;....|
00000190  70 31 24 3d a4 69 6e 28  22 46 49 52 53 54 20 50  |p1$=.in("FIRST P|
000001a0  4c 41 59 45 52 22 29 0d  00 fa 1c 70 32 24 3d a4  |LAYER")....p2$=.|
000001b0  69 6e 28 22 53 45 43 4f  4e 44 20 50 4c 41 59 45  |in("SECOND PLAYE|
000001c0  52 22 29 0d 01 04 0d 24  26 33 38 30 3d 70 31 24  |R")....$&380=p1$|
000001d0  0d 01 0e 0d 24 26 33 38  41 3d 70 32 24 0d 01 18  |....$&38A=p2$...|
000001e0  05 e1 0d 01 22 05 3a 0d  01 2c 0d dd 20 a4 69 6e  |....".:..,.. .in|
000001f0  28 6d 24 29 0d 01 36 11  ea 20 61 24 2c 69 24 2c  |(m$)..6.. a$,i$,|
00000200  67 25 2c 6c 25 0d 01 40  14 f1 8a 31 36 2c 31 36  |g%,l%..@...16,16|
00000210  29 c4 38 2c bd 32 35 35  29 0d 01 4a 0e f1 8a 32  |).8,.255)..J...2|
00000220  32 2c 32 31 29 6d 24 0d  01 54 05 f5 0d 01 5e 18  |2,21)m$..T....^.|
00000230  f5 20 67 25 3d a5 3a 61  24 3d bd 67 25 3a 6c 25  |. g%=.:a$=.g%:l%|
00000240  3d a9 69 24 0d 01 68 1b  e7 20 6c 25 3d 30 20 80  |=.i$..h.. l%=0 .|
00000250  20 67 25 3d 31 33 3a ef  37 3a e5 8d 44 54 41 0d  | g%=13:.7:..DTA.|
00000260  01 72 26 fd 20 67 25 3d  31 33 20 84 20 67 25 3d  |.r&. g%=13 . g%=|
00000270  31 32 37 20 84 20 28 67  25 3e 36 34 20 80 20 67  |127 . (g%>64 . g|
00000280  25 3c 39 31 29 0d 01 7c  28 e7 20 67 25 3d 31 33  |%<91)..|(. g%=13|
00000290  20 84 20 67 25 3d 31 32  37 20 8b 20 e7 20 6c 25  | . g%=127 . . l%|
000002a0  3d 38 20 8b 20 69 24 3d  69 24 2b 61 24 0d 01 86  |=8 . i$=i$+a$...|
000002b0  0e f1 8a 31 36 2c 31 36  29 69 24 0d 01 90 06 f2  |...16,16)i$.....|
000002c0  73 0d 01 9a 31 e7 20 67  25 3d 31 32 37 20 e7 20  |s...1. g%=127 . |
000002d0  69 24 3e 22 22 20 f1 8a  31 35 2b 6c 25 2c 31 36  |i$>"" ..15+l%,16|
000002e0  29 bd 32 35 35 3a 69 24  3d c0 69 24 2c 6c 25 2d  |).255:i$=.i$,l%-|
000002f0  31 29 0d 01 a4 12 fd 20  67 25 3d 31 33 20 80 20  |1)..... g%=13 . |
00000300  6c 25 3e 30 0d 01 ae 07  3d 69 24 0d 01 b8 05 3a  |l%>0....=i$....:|
00000310  0d 01 c2 07 dd f2 73 0d  01 cc 10 d4 31 2c 2d 31  |......s.....1,-1|
00000320  30 2c 31 38 30 2c 32 0d  01 d6 05 e1 0d 01 e0 05  |0,180,2.........|
00000330  3a 0d 01 ea 0a dd f2 69  6e 69 74 0d 01 f4 0d 3f  |:......init....?|
00000340  26 33 36 38 3d 26 31 33  0d 01 fe 22 ef 32 33 2c  |&368=&13...".23,|
00000350  34 38 2c 32 38 2c 33 34  2c 36 35 2c 36 35 2c 36  |48,28,34,65,65,6|
00000360  35 2c 36 35 2c 33 34 2c  32 38 0d 02 08 1b ef 32  |5,65,34,28.....2|
00000370  33 2c 34 39 2c 38 2c 32  34 2c 38 2c 38 2c 38 2c  |3,49,8,24,8,8,8,|
00000380  38 2c 38 2c 38 0d 02 12  22 ef 32 33 2c 35 30 2c  |8,8,8...".23,50,|
00000390  31 32 36 2c 31 2c 31 2c  36 32 2c 36 34 2c 36 34  |126,1,1,62,64,64|
000003a0  2c 36 34 2c 31 32 37 0d  02 1c 1d ef 32 33 2c 35  |,64,127.....23,5|
000003b0  31 2c 36 32 2c 31 2c 31  2c 31 34 2c 31 2c 31 2c  |1,62,1,1,14,1,1,|
000003c0  31 2c 36 32 0d 02 26 1f  ef 32 33 2c 35 32 2c 32  |1,62..&..23,52,2|
000003d0  2c 36 2c 31 30 2c 31 38  2c 33 34 2c 31 32 37 2c  |,6,10,18,34,127,|
000003e0  32 2c 32 0d 02 30 22 ef  32 33 2c 35 33 2c 31 32  |2,2..0".23,53,12|
000003f0  37 2c 36 34 2c 36 34 2c  31 32 36 2c 31 2c 31 2c  |7,64,64,126,1,1,|
00000400  36 35 2c 36 32 0d 02 3a  23 ef 32 33 2c 35 34 2c  |65,62..:#.23,54,|
00000410  36 32 2c 36 34 2c 36 34  2c 31 32 36 2c 36 35 2c  |62,64,64,126,65,|
00000420  36 35 2c 36 35 2c 36 32  0d 02 44 21 ef 32 33 2c  |65,65,62..D!.23,|
00000430  35 35 2c 31 32 37 2c 36  36 2c 34 2c 38 2c 31 36  |55,127,66,4,8,16|
00000440  2c 33 32 2c 33 32 2c 33  32 0d 02 4e 22 ef 32 33  |,32,32,32..N".23|
00000450  2c 35 36 2c 36 32 2c 36  35 2c 36 35 2c 36 32 2c  |,56,62,65,65,62,|
00000460  36 35 2c 36 35 2c 36 35  2c 36 32 0d 02 58 1f ef  |65,65,65,62..X..|
00000470  32 33 2c 35 37 2c 36 32  2c 36 35 2c 36 35 2c 36  |23,57,62,65,65,6|
00000480  33 2c 31 2c 31 2c 31 2c  36 32 0d 02 62 22 ef 32  |3,1,1,1,62..b".2|
00000490  33 2c 32 32 34 2c 31 2c  33 2c 37 2c 31 35 2c 33  |3,224,1,3,7,15,3|
000004a0  31 2c 36 33 2c 31 32 37  2c 32 35 35 0d 02 6c 2b  |1,63,127,255..l+|
000004b0  ef 32 33 2c 32 32 35 2c  31 32 38 2c 31 39 32 2c  |.23,225,128,192,|
000004c0  32 32 34 2c 32 34 30 2c  32 34 38 2c 32 35 32 2c  |224,240,248,252,|
000004d0  32 35 34 2c 32 35 35 0d  02 76 2b ef 32 33 2c 32  |254,255..v+.23,2|
000004e0  32 36 2c 32 35 35 2c 31  32 38 2c 31 35 39 2c 31  |26,255,128,159,1|
000004f0  35 39 2c 31 35 39 2c 31  35 39 2c 31 32 38 2c 32  |59,159,159,128,2|
00000500  35 35 0d 02 80 27 ef 32  33 2c 32 32 37 2c 32 35  |55...'.23,227,25|
00000510  35 2c 31 2c 32 34 39 2c  32 34 39 2c 32 34 39 2c  |5,1,249,249,249,|
00000520  32 34 39 2c 31 2c 32 35  35 0d 02 8a 23 ef 32 33  |249,1,255...#.23|
00000530  2c 32 32 38 2c 30 2c 32  35 35 2c 30 2c 32 35 35  |,228,0,255,0,255|
00000540  2c 30 2c 32 35 35 2c 30  2c 32 35 35 0d 02 94 1b  |,0,255,0,255....|
00000550  ef 32 33 2c 32 32 39 2c  30 2c 30 2c 33 2c 36 2c  |.23,229,0,0,3,6,|
00000560  36 2c 36 2c 33 2c 30 0d  02 9e 25 ef 32 33 2c 32  |6,6,3,0...%.23,2|
00000570  33 30 2c 30 2c 30 2c 31  39 38 2c 31 30 33 2c 31  |30,0,0,198,103,1|
00000580  30 32 2c 31 30 32 2c 31  39 38 2c 30 0d 02 a8 1e  |02,102,198,0....|
00000590  ef 32 33 2c 32 33 31 2c  30 2c 30 2c 31 39 32 2c  |.23,231,0,0,192,|
000005a0  39 36 2c 30 2c 30 2c 30  2c 30 0d 02 b2 05 e1 0d  |96,0,0,0,0......|
000005b0  ff                                                |.|
000005b1