�>Tug
� Tug of war
� By Mike Cook
(� 12
2� MAT%(15)
<winThresh%=8
F�_TITLE
P�
ZRULE%=�(15)
dP1%=0:P2%=0:lw%=0
n1� �0,11)"Press the space bar to start a game"
x� � �(-99)
��_Start
��
�t%=�+100
��
�w%=�winner
�
� �>t%
�� w%=1 � P1%+=1
�� w%=2 � P2%+=1
�
�� w%=0 � lw%<>0 �
� � lw%=1 P1%+=1 � P2%+=1
� �
� lw%=w%

�




�_Rope

"-� P1%-P2%=winThresh% � P2%-P1%=winThresh%

,� P1%>P2% �

6�

@�"Player 1 is the winner"

J�

T�

^�"Player 2 is the winner"

h�

r� �

|�

�

�� �_Rope

�	� 0,3

�ȓȐ 60,200,1250,20

�	� 0,2

�ȓȐ 30,200,30,20

�ȓȐ 1250,200,30,20

�=� P1%-P2%=winThresh% � P2%-P1%=winThresh% � � 0,1 � � 0,0

�3ȓȐ 640-(P1%-P2%)*(580/(winThresh%)),200,30,20

�7�15,20)"Player 1 score ";P1%,"Player 2 score ";P2%

��

�

�
� �winner
� p%,a%,B%
a%=�getbits
B%=1
&� p%=0 � 3
0	� 0,7
:ȏ 320+p%*150,430,25
D"� (a% � B%)<>0 � � 0,1 � � 0,0
NȏȐ 320+p%*150,430,20
XB%=B%<<1
b�
la%=(a% � RULE%) � &F
v
=MAT%(a%)
�
�� �getbits
�� b%
�Ȏ Iface% �
�#� 1: ș"OS_Byte",150,&60 � ,,b%
�� 2:
�&       ș "IIC_Control",&71,PBK%,1
�       b%=?PBK%
�� 3:ș"Parallel_Op",0 � ,b%
��
�=b%
�
�� �_Init
Ȏ Iface% �
� 1:ș"OS_Byte",151,&62,0
� 2:
        � PBK% 3
*       � SET ALL BITS HIGH
4       ?PBK%=&FF
>&       ș "IIC_Control",&70,PBK%,1
H� 3:
R$       ș"Parallel_Op",2,&20,&DF
\�
f
� �tXC
p� A%=0 � 15
z� MAT%(A%)
��
��
�&�  1,0,2,0,2,1,0,0,0,0,1,2,0,2,0,1
�
�
� �_TITLE
��"Tug of War"
��"By Mike Cook"
��
�,�"You need special hardware to run this"
�7�"Please enter the type of interface you are using"
��
��" 1 - User Port"
��" 2 - IIC interface"
'�" 3 - Bi directional printer port"
�" 4 - None"
� Iface%
$� Iface%<5 � Iface%>0
.*� Iface%=4 � �"Sorry you can't play":�
8
�_Init
B�
L
V
� �_Start
`�
j�"Tug of War"
t�"By Mike Cook"
~� �0,11)�(40)
��
�-� �0,13)"Starting the game in   seconds";
�T%=�+400
�l%=0
��
�b%=(T%-�)/100
�"� b%<>l% � l%=b%: � 1,-15,80,1
��21,13);b%
�
� �>T%
�� �0,13)�(40)
�
�_Rope
��
�

00000000  0d 00 0a 09 f4 3e 54 75  67 0d 00 14 10 f4 20 54  |.....>Tug..... T|
00000010  75 67 20 6f 66 20 77 61  72 0d 00 1e 12 f4 20 42  |ug of war..... B|
00000020  79 20 4d 69 6b 65 20 43  6f 6f 6b 0d 00 28 08 eb  |y Mike Cook..(..|
00000030  20 31 32 0d 00 32 0e de  20 4d 41 54 25 28 31 35  | 12..2.. MAT%(15|
00000040  29 0d 00 3c 10 77 69 6e  54 68 72 65 73 68 25 3d  |)..<.winThresh%=|
00000050  38 0d 00 46 0b f2 5f 54  49 54 4c 45 0d 00 50 05  |8..F.._TITLE..P.|
00000060  f5 0d 00 5a 0f 52 55 4c  45 25 3d b3 28 31 35 29  |...Z.RULE%=.(15)|
00000070  0d 00 64 15 50 31 25 3d  30 3a 50 32 25 3d 30 3a  |..d.P1%=0:P2%=0:|
00000080  6c 77 25 3d 30 0d 00 6e  31 f1 20 8a 30 2c 31 31  |lw%=0..n1. .0,11|
00000090  29 22 50 72 65 73 73 20  74 68 65 20 73 70 61 63  |)"Press the spac|
000000a0  65 20 62 61 72 20 74 6f  20 73 74 61 72 74 20 61  |e bar to start a|
000000b0  20 67 61 6d 65 22 0d 00  78 0e f5 20 fd 20 a6 28  | game"..x.. . .(|
000000c0  2d 39 39 29 0d 00 82 0b  f2 5f 53 74 61 72 74 0d  |-99)....._Start.|
000000d0  00 8c 05 f5 0d 00 96 0c  74 25 3d 91 2b 31 30 30  |........t%=.+100|
000000e0  0d 00 a0 05 f5 0d 00 aa  0e 77 25 3d a4 77 69 6e  |.........w%=.win|
000000f0  6e 65 72 0d 00 b4 0a fd  20 91 3e 74 25 0d 00 be  |ner..... .>t%...|
00000100  13 e7 20 77 25 3d 31 20  8c 20 50 31 25 2b 3d 31  |.. w%=1 . P1%+=1|
00000110  0d 00 c8 13 e7 20 77 25  3d 32 20 8c 20 50 32 25  |..... w%=2 . P2%|
00000120  2b 3d 31 0d 00 d2 04 0d  00 dc 15 e7 20 77 25 3d  |+=1......... w%=|
00000130  30 20 80 20 6c 77 25 3c  3e 30 20 8c 0d 00 e6 1c  |0 . lw%<>0 .....|
00000140  20 e7 20 6c 77 25 3d 31  20 50 31 25 2b 3d 31 20  | . lw%=1 P1%+=1 |
00000150  8b 20 50 32 25 2b 3d 31  0d 00 f0 06 20 cc 0d 00  |. P2%+=1.... ...|
00000160  fa 0b 20 6c 77 25 3d 77  25 0d 01 04 05 cd 0d 01  |.. lw%=w%.......|
00000170  0e 04 0d 01 18 0a f2 5f  52 6f 70 65 0d 01 22 2d  |......._Rope.."-|
00000180  fd 20 50 31 25 2d 50 32  25 3d 77 69 6e 54 68 72  |. P1%-P2%=winThr|
00000190  65 73 68 25 20 84 20 50  32 25 2d 50 31 25 3d 77  |esh% . P2%-P1%=w|
000001a0  69 6e 54 68 72 65 73 68  25 0d 01 2c 0f e7 20 50  |inThresh%..,.. P|
000001b0  31 25 3e 50 32 25 20 8c  0d 01 36 05 f1 0d 01 40  |1%>P2% ...6....@|
000001c0  1d f1 22 50 6c 61 79 65  72 20 31 20 69 73 20 74  |.."Player 1 is t|
000001d0  68 65 20 77 69 6e 6e 65  72 22 0d 01 4a 05 cc 0d  |he winner"..J...|
000001e0  01 54 05 f1 0d 01 5e 1d  f1 22 50 6c 61 79 65 72  |.T....^.."Player|
000001f0  20 32 20 69 73 20 74 68  65 20 77 69 6e 6e 65 72  | 2 is the winner|
00000200  22 0d 01 68 05 cd 0d 01  72 07 fd 20 a3 0d 01 7c  |"..h....r.. ...||
00000210  05 e0 0d 01 86 04 0d 01  90 0c dd 20 f2 5f 52 6f  |........... ._Ro|
00000220  70 65 0d 01 9a 09 e6 20  30 2c 33 0d 01 a4 17 c8  |pe..... 0,3.....|
00000230  93 c8 90 20 36 30 2c 32  30 30 2c 31 32 35 30 2c  |... 60,200,1250,|
00000240  32 30 0d 01 ae 09 e6 20  30 2c 32 0d 01 b8 15 c8  |20..... 0,2.....|
00000250  93 c8 90 20 33 30 2c 32  30 30 2c 33 30 2c 32 30  |... 30,200,30,20|
00000260  0d 01 c2 17 c8 93 c8 90  20 31 32 35 30 2c 32 30  |........ 1250,20|
00000270  30 2c 33 30 2c 32 30 0d  01 cc 3d e7 20 50 31 25  |0,30,20...=. P1%|
00000280  2d 50 32 25 3d 77 69 6e  54 68 72 65 73 68 25 20  |-P2%=winThresh% |
00000290  84 20 50 32 25 2d 50 31  25 3d 77 69 6e 54 68 72  |. P2%-P1%=winThr|
000002a0  65 73 68 25 20 8c 20 e6  20 30 2c 31 20 8b 20 e6  |esh% . . 0,1 . .|
000002b0  20 30 2c 30 0d 01 d6 33  c8 93 c8 90 20 36 34 30  | 0,0...3.... 640|
000002c0  2d 28 50 31 25 2d 50 32  25 29 2a 28 35 38 30 2f  |-(P1%-P2%)*(580/|
000002d0  28 77 69 6e 54 68 72 65  73 68 25 29 29 2c 32 30  |(winThresh%)),20|
000002e0  30 2c 33 30 2c 32 30 0d  01 e0 37 f1 8a 31 35 2c  |0,30,20...7..15,|
000002f0  32 30 29 22 50 6c 61 79  65 72 20 31 20 73 63 6f  |20)"Player 1 sco|
00000300  72 65 20 22 3b 50 31 25  2c 22 50 6c 61 79 65 72  |re ";P1%,"Player|
00000310  20 32 20 73 63 6f 72 65  20 22 3b 50 32 25 0d 01  | 2 score ";P2%..|
00000320  ea 05 e1 0d 01 f4 04 0d  01 fe 0d dd 20 a4 77 69  |............ .wi|
00000330  6e 6e 65 72 0d 02 08 0e  ea 20 70 25 2c 61 25 2c  |nner..... p%,a%,|
00000340  42 25 0d 02 12 0f 61 25  3d a4 67 65 74 62 69 74  |B%....a%=.getbit|
00000350  73 0d 02 1c 08 42 25 3d  31 0d 02 26 0e e3 20 70  |s....B%=1..&.. p|
00000360  25 3d 30 20 b8 20 33 0d  02 30 09 e6 20 30 2c 37  |%=0 . 3..0.. 0,7|
00000370  0d 02 3a 18 c8 8f 20 33  32 30 2b 70 25 2a 31 35  |..:... 320+p%*15|
00000380  30 2c 34 33 30 2c 32 35  0d 02 44 22 e7 20 28 61  |0,430,25..D". (a|
00000390  25 20 80 20 42 25 29 3c  3e 30 20 8c 20 e6 20 30  |% . B%)<>0 . . 0|
000003a0  2c 31 20 8b 20 e6 20 30  2c 30 0d 02 4e 1a c8 8f  |,1 . . 0,0..N...|
000003b0  c8 90 20 33 32 30 2b 70  25 2a 31 35 30 2c 34 33  |.. 320+p%*150,43|
000003c0  30 2c 32 30 0d 02 58 0c  42 25 3d 42 25 3c 3c 31  |0,20..X.B%=B%<<1|
000003d0  0d 02 62 05 ed 0d 02 6c  18 61 25 3d 28 61 25 20  |..b....l.a%=(a% |
000003e0  82 20 52 55 4c 45 25 29  20 80 20 26 46 0d 02 76  |. RULE%) . &F..v|
000003f0  0d 3d 4d 41 54 25 28 61  25 29 0d 02 80 04 0d 02  |.=MAT%(a%)......|
00000400  8a 0e dd 20 a4 67 65 74  62 69 74 73 0d 02 94 08  |... .getbits....|
00000410  ea 20 62 25 0d 02 9e 0f  c8 8e 20 49 66 61 63 65  |. b%...... Iface|
00000420  25 20 ca 0d 02 a8 23 c9  20 31 3a 20 c8 99 22 4f  |% ....#. 1: .."O|
00000430  53 5f 42 79 74 65 22 2c  31 35 30 2c 26 36 30 20  |S_Byte",150,&60 |
00000440  b8 20 2c 2c 62 25 0d 02  b2 08 c9 20 32 3a 0d 02  |. ,,b%..... 2:..|
00000450  bc 26 20 20 20 20 20 20  20 c8 99 20 22 49 49 43  |.&       .. "IIC|
00000460  5f 43 6f 6e 74 72 6f 6c  22 2c 26 37 31 2c 50 42  |_Control",&71,PB|
00000470  4b 25 2c 31 0d 02 c6 13  20 20 20 20 20 20 20 62  |K%,1....       b|
00000480  25 3d 3f 50 42 4b 25 0d  02 d0 1f c9 20 33 3a c8  |%=?PBK%..... 3:.|
00000490  99 22 50 61 72 61 6c 6c  65 6c 5f 4f 70 22 2c 30  |."Parallel_Op",0|
000004a0  20 b8 20 2c 62 25 0d 02  da 05 cb 0d 02 e4 07 3d  | . ,b%.........=|
000004b0  62 25 0d 02 ee 04 0d 02  f8 0c dd 20 f2 5f 49 6e  |b%......... ._In|
000004c0  69 74 0d 03 02 0f c8 8e  20 49 66 61 63 65 25 20  |it...... Iface% |
000004d0  ca 0d 03 0c 1d c9 20 31  3a c8 99 22 4f 53 5f 42  |...... 1:.."OS_B|
000004e0  79 74 65 22 2c 31 35 31  2c 26 36 32 2c 30 0d 03  |yte",151,&62,0..|
000004f0  16 08 c9 20 32 3a 0d 03  20 13 20 20 20 20 20 20  |... 2:.. .      |
00000500  20 de 20 50 42 4b 25 20  33 0d 03 2a 1e 20 20 20  | . PBK% 3..*.   |
00000510  20 20 20 20 f4 20 53 45  54 20 41 4c 4c 20 42 49  |    . SET ALL BI|
00000520  54 53 20 48 49 47 48 0d  03 34 14 20 20 20 20 20  |TS HIGH..4.     |
00000530  20 20 3f 50 42 4b 25 3d  26 46 46 0d 03 3e 26 20  |  ?PBK%=&FF..>& |
00000540  20 20 20 20 20 20 c8 99  20 22 49 49 43 5f 43 6f  |      .. "IIC_Co|
00000550  6e 74 72 6f 6c 22 2c 26  37 30 2c 50 42 4b 25 2c  |ntrol",&70,PBK%,|
00000560  31 0d 03 48 08 c9 20 33  3a 0d 03 52 24 20 20 20  |1..H.. 3:..R$   |
00000570  20 20 20 20 c8 99 22 50  61 72 61 6c 6c 65 6c 5f  |    .."Parallel_|
00000580  4f 70 22 2c 32 2c 26 32  30 2c 26 44 46 0d 03 5c  |Op",2,&20,&DF..\|
00000590  05 cb 0d 03 66 0a f7 20  8d 74 58 43 0d 03 70 0f  |....f.. .tXC..p.|
000005a0  e3 20 41 25 3d 30 20 b8  20 31 35 0d 03 7a 0e f3  |. A%=0 . 15..z..|
000005b0  20 4d 41 54 25 28 41 25  29 0d 03 84 05 ed 0d 03  | MAT%(A%).......|
000005c0  8e 05 e1 0d 03 98 26 dc  20 20 31 2c 30 2c 32 2c  |......&.  1,0,2,|
000005d0  30 2c 32 2c 31 2c 30 2c  30 2c 30 2c 30 2c 31 2c  |0,2,1,0,0,0,0,1,|
000005e0  32 2c 30 2c 32 2c 30 2c  31 0d 03 a2 04 0d 03 ac  |2,0,2,0,1.......|
000005f0  0d dd 20 f2 5f 54 49 54  4c 45 0d 03 b6 11 f1 22  |.. ._TITLE....."|
00000600  54 75 67 20 6f 66 20 57  61 72 22 0d 03 c0 13 f1  |Tug of War".....|
00000610  22 42 79 20 4d 69 6b 65  20 43 6f 6f 6b 22 0d 03  |"By Mike Cook"..|
00000620  ca 05 f5 0d 03 d4 2c f1  22 59 6f 75 20 6e 65 65  |......,."You nee|
00000630  64 20 73 70 65 63 69 61  6c 20 68 61 72 64 77 61  |d special hardwa|
00000640  72 65 20 74 6f 20 72 75  6e 20 74 68 69 73 22 0d  |re to run this".|
00000650  03 de 37 f1 22 50 6c 65  61 73 65 20 65 6e 74 65  |..7."Please ente|
00000660  72 20 74 68 65 20 74 79  70 65 20 6f 66 20 69 6e  |r the type of in|
00000670  74 65 72 66 61 63 65 20  79 6f 75 20 61 72 65 20  |terface you are |
00000680  75 73 69 6e 67 22 0d 03  e8 05 f1 0d 03 f2 15 f1  |using"..........|
00000690  22 20 31 20 2d 20 55 73  65 72 20 50 6f 72 74 22  |" 1 - User Port"|
000006a0  0d 03 fc 19 f1 22 20 32  20 2d 20 49 49 43 20 69  |....." 2 - IIC i|
000006b0  6e 74 65 72 66 61 63 65  22 0d 04 06 27 f1 22 20  |nterface"...'." |
000006c0  33 20 2d 20 42 69 20 64  69 72 65 63 74 69 6f 6e  |3 - Bi direction|
000006d0  61 6c 20 70 72 69 6e 74  65 72 20 70 6f 72 74 22  |al printer port"|
000006e0  0d 04 10 10 f1 22 20 34  20 2d 20 4e 6f 6e 65 22  |....." 4 - None"|
000006f0  0d 04 1a 0c e8 20 49 66  61 63 65 25 0d 04 24 19  |..... Iface%..$.|
00000700  fd 20 49 66 61 63 65 25  3c 35 20 80 20 49 66 61  |. Iface%<5 . Ifa|
00000710  63 65 25 3e 30 0d 04 2e  2a e7 20 49 66 61 63 65  |ce%>0...*. Iface|
00000720  25 3d 34 20 8c 20 f1 22  53 6f 72 72 79 20 79 6f  |%=4 . ."Sorry yo|
00000730  75 20 63 61 6e 27 74 20  70 6c 61 79 22 3a e0 0d  |u can't play":..|
00000740  04 38 0a f2 5f 49 6e 69  74 0d 04 42 05 e1 0d 04  |.8.._Init..B....|
00000750  4c 04 0d 04 56 0d dd 20  f2 5f 53 74 61 72 74 0d  |L...V.. ._Start.|
00000760  04 60 05 db 0d 04 6a 11  f1 22 54 75 67 20 6f 66  |.`....j.."Tug of|
00000770  20 57 61 72 22 0d 04 74  13 f1 22 42 79 20 4d 69  | War"..t.."By Mi|
00000780  6b 65 20 43 6f 6f 6b 22  0d 04 7e 11 f1 20 8a 30  |ke Cook"..~.. .0|
00000790  2c 31 31 29 89 28 34 30  29 0d 04 88 05 f1 0d 04  |,11).(40).......|
000007a0  92 2d f1 20 8a 30 2c 31  33 29 22 53 74 61 72 74  |.-. .0,13)"Start|
000007b0  69 6e 67 20 74 68 65 20  67 61 6d 65 20 69 6e 20  |ing the game in |
000007c0  20 20 73 65 63 6f 6e 64  73 22 3b 0d 04 9c 0c 54  |  seconds";....T|
000007d0  25 3d 91 2b 34 30 30 0d  04 a6 08 6c 25 3d 30 0d  |%=.+400....l%=0.|
000007e0  04 b0 05 f5 0d 04 ba 11  62 25 3d 28 54 25 2d 91  |........b%=(T%-.|
000007f0  29 2f 31 30 30 0d 04 c4  22 e7 20 62 25 3c 3e 6c  |)/100...". b%<>l|
00000800  25 20 8c 20 6c 25 3d 62  25 3a 20 d4 20 31 2c 2d  |% . l%=b%: . 1,-|
00000810  31 35 2c 38 30 2c 31 0d  04 ce 0f f1 8a 32 31 2c  |15,80,1......21,|
00000820  31 33 29 3b 62 25 0d 04  d8 0a fd 20 91 3e 54 25  |13);b%..... .>T%|
00000830  0d 04 e2 11 f1 20 8a 30  2c 31 33 29 89 28 34 30  |..... .0,13).(40|
00000840  29 0d 04 ec 0a f2 5f 52  6f 70 65 0d 04 f6 05 e1  |)....._Rope.....|
00000850  0d ff                                             |..|
00000852