�       THE MULTI-SPIRO  
�           by
�       Mike Claxton
(�7
<M$="THE MULTI-SPIRO" 
F�9,1)�(141);�(129);M$   
P�9,2)�(141);�(130);M$   
Z#�10,3)�(132);"|||||||||||||||"
d6�2,5)�(134);"Please be patient while sines and"  
n6�2,6)�(134);"cosines are calculated and stored." 
x�init  
��sincos
��2,5)�(80)
��2,10)�(40) 
�:
��
�
�init2
��9,1)�(141);�(133);M$    
��9,2)�(141);�(131);M$   
�(�10,3)�(129);"|||||||||||||||"     
�5�1,16)�(134);"There are six sample patterns,"   
�;�1,17)�(134);"Would you like one of them ?  (Y/N) ";  
�A$=�
�� A$="Y" �sample � �input

�129

�29,640;512; 

#� A$="Y" �display :�29,770;512;

"	�calc

,�23;8202;0;0;0   

6�

@�draw  

J�7

T� �

^�

h:

r
��sincos 

|9�1,10)�(129);"+ + + + + + + + + + + + + + + + + +"  

�Ang=0:Deg=�/180

�� I%=0 � 90

�X(I%)=� (Ang)

�Ang=Ang+Deg

�'�I%�6=0 �35-I%/6*2,10)�(131);"*"  

��   

�:

��I%=0 � 90

�Y(I%)=X(90-I%)

��

�:

��3,10)�(131);"*"  

��I%=90 � 179
X(I%)=X(180-I%)   
Y(I%)=-Y(180-I%)  
�
&:
0�1,10)�(131);"*" 
:�I%=180 � 269
DX(I%)=-X(I%-180) 
NY(I%)=-Y(I%-180)  
X�
b:
l�I%=270 � 359
vX(I%)=-X(360-I%)  
�Y(I%)=Y(360-I%)   
��
��
�:
���calc 
�� I%=2 � N%-1 
�W(I%)=W%(1)/W%(I%)
�V(I%)=W%(1)/W%(I%)/S%(I%)
��
�:
�W(1)=W%(1)/W%(2) 
�� I%=1 � N%-1
�D%(I%)=W%(I%)-W%(I%+1) 
�
�  
:
 ��draw  
*�19,3,3;0;  
4�0,W%(1)
>
A%=0  
HXX%=0:YY%=W%(1):ZZ%=0
R�3
\:
f� 
p)�A%(1)�180=0:X%=0 :K%=0:R%=0 :�test  
z� I%=1 � N%-1
�A%(I%)=A%(I%)+S%(I%+1)
��
�:
�%AngT(1)=�((A%(1)*W(1)-A%(2))�360)
�� I%=2 � N%  
�5AngT(I%)=(�(AngT(I%-1)+A%(I%)*(W(I%)-V(I%))))�360
��
�:
�� I%=1 � N%-2
�X%(I%)=D%(I%)*X(A%(I%)�360)
� Y%(I%)=D%(I%)*Y(A%(I%)�360) 
�%P%(I%)=W%(I%+1)*X(AngT(I%)�360)  
�#Q%(I%)=W%(I%+1)*Y(AngT(I%)�360)
�
:

X%=0:Y%=0
$� I%=2 � N%-2
.X%=X%+X%(I%)
8Y%=Y%+Y%(I%) 
B�
L:
VX%=X%(1)-P%(N%-2)-X% 
`Y%=Y%(1)+Q%(N%-2)+Y% 
j
Z%=-X%
tI%=1
~x%(K%)=X%:y%(K%)=Y%
�� K%<6:�test  
��4,XX%,YY% 
��5,X%,Y%    
��4,ZZ%,YY%  
�
�5,Z%,Y% 
�XX%=X%:YY%=Y%:ZZ%=Z%
�*FX15,0
�stop%=�(-82)  
�� fini%=1 � stop%=-1
�:
��0,0)"Fini":�19,3,6;0; 
�O$=�
�O$="D" :�display :O=� 

� 
:

��init
(�19,3,3;0;
2�VDU19,1,3,0,0,0  
<� X(360),Y(360)
Fp� W%(10),S%(10),D%(10),A%(10),B%(10),X%(10),Y%(10),P%(10),Q%(10),AngC(10),AngT(10),W(10),V(10),x%(10),y%(10)
P�
Z:
d��init2
n�19,3,3;0;
xClear=1:ROT%=-1:R%=0 
�� I%=0�10:A%(I%)=0:�  
�fini%=0
�	�    
�:
���input 
��
��0,0)�(132);�(157);�(132)
�%�10,0)�(129);�(157);�(131);M$   
��30,0)�(132);�(157);�(132)
�9�2,2)�(134);"Enter size and speed of each wheel in" 
�7�0,3)�(134);"turn, when you are ready to start,"  
��0,4)�(134);"enter '0'."  
�)�0,6)�(131);"Wheel No.1 - Size ";   

�" "W%(1)
N%=1
�
"
N%=N%+1  
,4�0,(N%)*2+4)�(131);"Wheel No.";N%;" - Size ";  
6�" "W%(N%) 
@� W%(N%)=0 �D^F 
J&�27,(N%)*2+4)�(133)" Speed ";    
T�" "S%(N%)  
^ � S%(N%)=0 � W%(N%)=0 � N%>9
h�
r�
|:
�
��test
�
X%=x%(K%)
�
Y%=y%(K%)
�#� �X%,Y%)=3 � �Z%,Y%)=3 R%=R%+1
�� R%>4 fini%=1  
�K%=K%+1
��
�:
���display  
��5:�0,1)"W1= ";W%(1)   
�� I%=2 � N%-1
�$�2:�6,I%)"  S";I%;"= ";S%(I%)  
�#�5:�0,I%)"W";I%;"= ";W%(I%)   
�
�  
:
&��sample  
0$�5,19)"Enter number.  (1-6)";  
:O=� 
DA%=O-48:N%=A%+2
N�A%:O=� 
X
W%(1)=480
b� A%=1 W%(2)=256:S%(2)=4 
l-� A%=2 W%(2)=240:S%(2)=4:W%(3)=80:S%(3)=1
v?� A%=3 W%(2)=360:S%(2)=5:W%(3)=240:S%(3)=2:W%(4)=60:S%(4)=1
�]� A%=4 W%(1)=400:W%(2)=200:S%(2)=2:W%(3)=100:S%(3)=2:W%(4)=50:S%(4)=1:W%(5)=150:S%(5)=2  
�n� A%=5 W%(1)=200:W%(2)=400:S%(2)=4:W%(3)=100:S%(3)=1:W%(4)=200:S%(4)=1:W%(5)=50:S%(5)=2:W%(6)=100:S%(6)=2 
��� A%=6 W%(1)=100:W%(2)=300:S%(2)=2:W%(3)=150:S%(3)=4:W%(4)=100:S%(4)=2:W%(5)=50:S%(5)=1:W%(6)=100:S%(6)=4:W%(7)=50:S%(7)=1  
��  
�

00000000  0d 00 0a 1d f4 20 20 20  20 20 20 20 54 48 45 20  |.....       THE |
00000010  4d 55 4c 54 49 2d 53 50  49 52 4f 20 20 0d 00 14  |MULTI-SPIRO  ...|
00000020  12 f4 20 20 20 20 20 20  20 20 20 20 20 62 79 0d  |..           by.|
00000030  00 1e 18 f4 20 20 20 20  20 20 20 4d 69 6b 65 20  |....       Mike |
00000040  43 6c 61 78 74 6f 6e 0d  00 28 06 eb 37 0d 00 3c  |Claxton..(..7..<|
00000050  19 4d 24 3d 22 54 48 45  20 4d 55 4c 54 49 2d 53  |.M$="THE MULTI-S|
00000060  50 49 52 4f 22 20 0d 00  46 1d f1 8a 39 2c 31 29  |PIRO" ..F...9,1)|
00000070  bd 28 31 34 31 29 3b bd  28 31 32 39 29 3b 4d 24  |.(141);.(129);M$|
00000080  20 20 20 0d 00 50 1d f1  8a 39 2c 32 29 bd 28 31  |   ..P...9,2).(1|
00000090  34 31 29 3b bd 28 31 33  30 29 3b 4d 24 20 20 20  |41);.(130);M$   |
000000a0  0d 00 5a 23 f1 8a 31 30  2c 33 29 bd 28 31 33 32  |..Z#..10,3).(132|
000000b0  29 3b 22 7c 7c 7c 7c 7c  7c 7c 7c 7c 7c 7c 7c 7c  |);"||||||||||||||
000000c0  7c 7c 22 0d 00 64 36 f1  8a 32 2c 35 29 bd 28 31  |||"..d6..2,5).(1|
000000d0  33 34 29 3b 22 50 6c 65  61 73 65 20 62 65 20 70  |34);"Please be p|
000000e0  61 74 69 65 6e 74 20 77  68 69 6c 65 20 73 69 6e  |atient while sin|
000000f0  65 73 20 61 6e 64 22 20  20 0d 00 6e 36 f1 8a 32  |es and"  ..n6..2|
00000100  2c 36 29 bd 28 31 33 34  29 3b 22 63 6f 73 69 6e  |,6).(134);"cosin|
00000110  65 73 20 61 72 65 20 63  61 6c 63 75 6c 61 74 65  |es are calculate|
00000120  64 20 61 6e 64 20 73 74  6f 72 65 64 2e 22 20 0d  |d and stored." .|
00000130  00 78 0b f2 69 6e 69 74  20 20 0d 00 82 0b f2 73  |.x..init  .....s|
00000140  69 6e 63 6f 73 0d 00 8c  0f f1 8a 32 2c 35 29 89  |incos......2,5).|
00000150  28 38 30 29 0d 00 96 11  f1 8a 32 2c 31 30 29 89  |(80)......2,10).|
00000160  28 34 30 29 20 0d 00 a0  05 3a 0d 00 aa 05 f5 0d  |(40) ....:......|
00000170  00 b4 0a f2 69 6e 69 74  32 0d 00 be 1e f1 8a 39  |....init2......9|
00000180  2c 31 29 bd 28 31 34 31  29 3b bd 28 31 33 33 29  |,1).(141);.(133)|
00000190  3b 4d 24 20 20 20 20 0d  00 c8 1d f1 8a 39 2c 32  |;M$    ......9,2|
000001a0  29 bd 28 31 34 31 29 3b  bd 28 31 33 31 29 3b 4d  |).(141);.(131);M|
000001b0  24 20 20 20 0d 00 d2 28  f1 8a 31 30 2c 33 29 bd  |$   ...(..10,3).|
000001c0  28 31 32 39 29 3b 22 7c  7c 7c 7c 7c 7c 7c 7c 7c  |(129);"||||||||||
000001d0  7c 7c 7c 7c 7c 7c 22 20  20 20 20 20 0d 00 dc 35  |||||||"     ...5|
000001e0  f1 8a 31 2c 31 36 29 bd  28 31 33 34 29 3b 22 54  |..1,16).(134);"T|
000001f0  68 65 72 65 20 61 72 65  20 73 69 78 20 73 61 6d  |here are six sam|
00000200  70 6c 65 20 70 61 74 74  65 72 6e 73 2c 22 20 20  |ple patterns,"  |
00000210  20 0d 00 e6 3b f1 8a 31  2c 31 37 29 bd 28 31 33  | ...;..1,17).(13|
00000220  34 29 3b 22 57 6f 75 6c  64 20 79 6f 75 20 6c 69  |4);"Would you li|
00000230  6b 65 20 6f 6e 65 20 6f  66 20 74 68 65 6d 20 3f  |ke one of them ?|
00000240  20 20 28 59 2f 4e 29 20  22 3b 20 20 0d 00 f0 08  |  (Y/N) ";  ....|
00000250  41 24 3d be 0d 00 fa 1d  e7 20 41 24 3d 22 59 22  |A$=...... A$="Y"|
00000260  20 f2 73 61 6d 70 6c 65  20 8b 20 f2 69 6e 70 75  | .sample . .inpu|
00000270  74 0d 01 04 08 eb 31 32  39 0d 01 0e 11 ef 32 39  |t.....129.....29|
00000280  2c 36 34 30 3b 35 31 32  3b 20 0d 01 18 23 e7 20  |,640;512; ...#. |
00000290  41 24 3d 22 59 22 20 f2  64 69 73 70 6c 61 79 20  |A$="Y" .display |
000002a0  3a ef 32 39 2c 37 37 30  3b 35 31 32 3b 0d 01 22  |:.29,770;512;.."|
000002b0  09 f2 63 61 6c 63 0d 01  2c 15 ef 32 33 3b 38 32  |..calc..,..23;82|
000002c0  30 32 3b 30 3b 30 3b 30  20 20 20 0d 01 36 05 db  |02;0;0;0   ..6..|
000002d0  0d 01 40 0b f2 64 72 61  77 20 20 0d 01 4a 06 eb  |..@..draw  ..J..|
000002e0  37 0d 01 54 07 fd 20 a3  0d 01 5e 05 e0 0d 01 68  |7..T.. ...^....h|
000002f0  05 3a 0d 01 72 0d dd f2  73 69 6e 63 6f 73 20 0d  |.:..r...sincos .|
00000300  01 7c 39 f1 8a 31 2c 31  30 29 bd 28 31 32 39 29  |.|9..1,10).(129)|
00000310  3b 22 2b 20 2b 20 2b 20  2b 20 2b 20 2b 20 2b 20  |;"+ + + + + + + |
00000320  2b 20 2b 20 2b 20 2b 20  2b 20 2b 20 2b 20 2b 20  |+ + + + + + + + |
00000330  2b 20 2b 20 2b 22 20 20  0d 01 86 13 41 6e 67 3d  |+ + +"  ....Ang=|
00000340  30 3a 44 65 67 3d af 2f  31 38 30 0d 01 90 0f e3  |0:Deg=./180.....|
00000350  20 49 25 3d 30 20 b8 20  39 30 0d 01 9a 11 58 28  | I%=0 . 90....X(|
00000360  49 25 29 3d b5 20 28 41  6e 67 29 0d 01 a4 0f 41  |I%)=. (Ang)....A|
00000370  6e 67 3d 41 6e 67 2b 44  65 67 0d 01 ae 27 e7 49  |ng=Ang+Deg...'.I|
00000380  25 83 36 3d 30 20 f1 8a  33 35 2d 49 25 2f 36 2a  |%.6=0 ..35-I%/6*|
00000390  32 2c 31 30 29 bd 28 31  33 31 29 3b 22 2a 22 20  |2,10).(131);"*" |
000003a0  20 0d 01 b8 08 ed 20 20  20 0d 01 c2 05 3a 0d 01  | .....   ....:..|
000003b0  cc 0e e3 49 25 3d 30 20  b8 20 39 30 0d 01 d6 12  |...I%=0 . 90....|
000003c0  59 28 49 25 29 3d 58 28  39 30 2d 49 25 29 0d 01  |Y(I%)=X(90-I%)..|
000003d0  e0 05 ed 0d 01 ea 05 3a  0d 01 f4 17 f1 8a 33 2c  |.......:......3,|
000003e0  31 30 29 bd 28 31 33 31  29 3b 22 2a 22 20 20 0d  |10).(131);"*"  .|
000003f0  01 fe 10 e3 49 25 3d 39  30 20 b8 20 31 37 39 0d  |....I%=90 . 179.|
00000400  02 08 16 58 28 49 25 29  3d 58 28 31 38 30 2d 49  |...X(I%)=X(180-I|
00000410  25 29 20 20 20 0d 02 12  16 59 28 49 25 29 3d 2d  |%)   ....Y(I%)=-|
00000420  59 28 31 38 30 2d 49 25  29 20 20 0d 02 1c 05 ed  |Y(180-I%)  .....|
00000430  0d 02 26 05 3a 0d 02 30  16 f1 8a 31 2c 31 30 29  |..&.:..0...1,10)|
00000440  bd 28 31 33 31 29 3b 22  2a 22 20 0d 02 3a 11 e3  |.(131);"*" ..:..|
00000450  49 25 3d 31 38 30 20 b8  20 32 36 39 0d 02 44 15  |I%=180 . 269..D.|
00000460  58 28 49 25 29 3d 2d 58  28 49 25 2d 31 38 30 29  |X(I%)=-X(I%-180)|
00000470  20 0d 02 4e 16 59 28 49  25 29 3d 2d 59 28 49 25  | ..N.Y(I%)=-Y(I%|
00000480  2d 31 38 30 29 20 20 0d  02 58 05 ed 0d 02 62 05  |-180)  ..X....b.|
00000490  3a 0d 02 6c 11 e3 49 25  3d 32 37 30 20 b8 20 33  |:..l..I%=270 . 3|
000004a0  35 39 0d 02 76 16 58 28  49 25 29 3d 2d 58 28 33  |59..v.X(I%)=-X(3|
000004b0  36 30 2d 49 25 29 20 20  0d 02 80 16 59 28 49 25  |60-I%)  ....Y(I%|
000004c0  29 3d 59 28 33 36 30 2d  49 25 29 20 20 20 0d 02  |)=Y(360-I%)   ..|
000004d0  8a 05 ed 0d 02 94 05 e1  0d 02 9e 05 3a 0d 02 a8  |............:...|
000004e0  0b dd f2 63 61 6c 63 20  0d 02 b2 12 e3 20 49 25  |...calc ..... I%|
000004f0  3d 32 20 b8 20 4e 25 2d  31 20 0d 02 bc 16 57 28  |=2 . N%-1 ....W(|
00000500  49 25 29 3d 57 25 28 31  29 2f 57 25 28 49 25 29  |I%)=W%(1)/W%(I%)|
00000510  0d 02 c6 1d 56 28 49 25  29 3d 57 25 28 31 29 2f  |....V(I%)=W%(1)/|
00000520  57 25 28 49 25 29 2f 53  25 28 49 25 29 0d 02 d0  |W%(I%)/S%(I%)...|
00000530  05 ed 0d 02 da 05 3a 0d  02 e4 15 57 28 31 29 3d  |......:....W(1)=|
00000540  57 25 28 31 29 2f 57 25  28 32 29 20 0d 02 ee 11  |W%(1)/W%(2) ....|
00000550  e3 20 49 25 3d 31 20 b8  20 4e 25 2d 31 0d 02 f8  |. I%=1 . N%-1...|
00000560  1b 44 25 28 49 25 29 3d  57 25 28 49 25 29 2d 57  |.D%(I%)=W%(I%)-W|
00000570  25 28 49 25 2b 31 29 20  0d 03 02 05 ed 0d 03 0c  |%(I%+1) ........|
00000580  07 e1 20 20 0d 03 16 05  3a 0d 03 20 0c dd f2 64  |..  ....:.. ...d|
00000590  72 61 77 20 20 0d 03 2a  10 ef 31 39 2c 33 2c 33  |raw  ..*..19,3,3|
000005a0  3b 30 3b 20 20 0d 03 34  0c ec 30 2c 57 25 28 31  |;0;  ..4..0,W%(1|
000005b0  29 0d 03 3e 0a 41 25 3d  30 20 20 0d 03 48 19 58  |)..>.A%=0  ..H.X|
000005c0  58 25 3d 30 3a 59 59 25  3d 57 25 28 31 29 3a 5a  |X%=0:YY%=W%(1):Z|
000005d0  5a 25 3d 30 0d 03 52 06  fb 33 0d 03 5c 05 3a 0d  |Z%=0..R..3..\.:.|
000005e0  03 66 06 f5 20 0d 03 70  29 e7 41 25 28 31 29 83  |.f.. ..p).A%(1).|
000005f0  31 38 30 3d 30 3a 58 25  3d 30 20 3a 4b 25 3d 30  |180=0:X%=0 :K%=0|
00000600  3a 52 25 3d 30 20 3a f2  74 65 73 74 20 20 0d 03  |:R%=0 :.test  ..|
00000610  7a 11 e3 20 49 25 3d 31  20 b8 20 4e 25 2d 31 0d  |z.. I%=1 . N%-1.|
00000620  03 84 1a 41 25 28 49 25  29 3d 41 25 28 49 25 29  |...A%(I%)=A%(I%)|
00000630  2b 53 25 28 49 25 2b 31  29 0d 03 8e 05 ed 0d 03  |+S%(I%+1).......|
00000640  98 05 3a 0d 03 a2 25 41  6e 67 54 28 31 29 3d 94  |..:...%AngT(1)=.|
00000650  28 28 41 25 28 31 29 2a  57 28 31 29 2d 41 25 28  |((A%(1)*W(1)-A%(|
00000660  32 29 29 83 33 36 30 29  0d 03 ac 11 e3 20 49 25  |2)).360)..... I%|
00000670  3d 32 20 b8 20 4e 25 20  20 0d 03 b6 35 41 6e 67  |=2 . N%  ...5Ang|
00000680  54 28 49 25 29 3d 28 94  28 41 6e 67 54 28 49 25  |T(I%)=(.(AngT(I%|
00000690  2d 31 29 2b 41 25 28 49  25 29 2a 28 57 28 49 25  |-1)+A%(I%)*(W(I%|
000006a0  29 2d 56 28 49 25 29 29  29 29 83 33 36 30 0d 03  |)-V(I%)))).360..|
000006b0  c0 05 ed 0d 03 ca 05 3a  0d 03 d4 11 e3 20 49 25  |.......:..... I%|
000006c0  3d 31 20 b8 20 4e 25 2d  32 0d 03 de 1f 58 25 28  |=1 . N%-2....X%(|
000006d0  49 25 29 3d 44 25 28 49  25 29 2a 58 28 41 25 28  |I%)=D%(I%)*X(A%(|
000006e0  49 25 29 83 33 36 30 29  0d 03 e8 20 59 25 28 49  |I%).360)... Y%(I|
000006f0  25 29 3d 44 25 28 49 25  29 2a 59 28 41 25 28 49  |%)=D%(I%)*Y(A%(I|
00000700  25 29 83 33 36 30 29 20  0d 03 f2 25 50 25 28 49  |%).360) ...%P%(I|
00000710  25 29 3d 57 25 28 49 25  2b 31 29 2a 58 28 41 6e  |%)=W%(I%+1)*X(An|
00000720  67 54 28 49 25 29 83 33  36 30 29 20 20 0d 03 fc  |gT(I%).360)  ...|
00000730  23 51 25 28 49 25 29 3d  57 25 28 49 25 2b 31 29  |#Q%(I%)=W%(I%+1)|
00000740  2a 59 28 41 6e 67 54 28  49 25 29 83 33 36 30 29  |*Y(AngT(I%).360)|
00000750  0d 04 06 05 ed 0d 04 10  05 3a 0d 04 1a 0d 58 25  |.........:....X%|
00000760  3d 30 3a 59 25 3d 30 0d  04 24 11 e3 20 49 25 3d  |=0:Y%=0..$.. I%=|
00000770  32 20 b8 20 4e 25 2d 32  0d 04 2e 10 58 25 3d 58  |2 . N%-2....X%=X|
00000780  25 2b 58 25 28 49 25 29  0d 04 38 11 59 25 3d 59  |%+X%(I%)..8.Y%=Y|
00000790  25 2b 59 25 28 49 25 29  20 0d 04 42 05 ed 0d 04  |%+Y%(I%) ..B....|
000007a0  4c 05 3a 0d 04 56 19 58  25 3d 58 25 28 31 29 2d  |L.:..V.X%=X%(1)-|
000007b0  50 25 28 4e 25 2d 32 29  2d 58 25 20 0d 04 60 19  |P%(N%-2)-X% ..`.|
000007c0  59 25 3d 59 25 28 31 29  2b 51 25 28 4e 25 2d 32  |Y%=Y%(1)+Q%(N%-2|
000007d0  29 2b 59 25 20 0d 04 6a  0a 5a 25 3d 2d 58 25 0d  |)+Y% ..j.Z%=-X%.|
000007e0  04 74 08 49 25 3d 31 0d  04 7e 17 78 25 28 4b 25  |.t.I%=1..~.x%(K%|
000007f0  29 3d 58 25 3a 79 25 28  4b 25 29 3d 59 25 0d 04  |)=X%:y%(K%)=Y%..|
00000800  88 12 e7 20 4b 25 3c 36  3a f2 74 65 73 74 20 20  |... K%<6:.test  |
00000810  0d 04 92 0f f0 34 2c 58  58 25 2c 59 59 25 20 0d  |.....4,XX%,YY% .|
00000820  04 9c 10 f0 35 2c 58 25  2c 59 25 20 20 20 20 0d  |....5,X%,Y%    .|
00000830  04 a6 10 f0 34 2c 5a 5a  25 2c 59 59 25 20 20 0d  |....4,ZZ%,YY%  .|
00000840  04 b0 0d f0 35 2c 5a 25  2c 59 25 20 0d 04 ba 18  |....5,Z%,Y% ....|
00000850  58 58 25 3d 58 25 3a 59  59 25 3d 59 25 3a 5a 5a  |XX%=X%:YY%=Y%:ZZ|
00000860  25 3d 5a 25 0d 04 c4 0b  2a 46 58 31 35 2c 30 0d  |%=Z%....*FX15,0.|
00000870  04 ce 12 73 74 6f 70 25  3d a6 28 2d 38 32 29 20  |...stop%=.(-82) |
00000880  20 0d 04 d8 18 fd 20 66  69 6e 69 25 3d 31 20 84  | ..... fini%=1 .|
00000890  20 73 74 6f 70 25 3d 2d  31 0d 04 e2 05 3a 0d 04  | stop%=-1....:..|
000008a0  ec 1c f1 8a 30 2c 30 29  22 46 69 6e 69 22 3a ef  |....0,0)"Fini":.|
000008b0  31 39 2c 33 2c 36 3b 30  3b 20 0d 04 f6 08 4f 24  |19,3,6;0; ....O$|
000008c0  3d be 0d 05 00 1b e7 4f  24 3d 22 44 22 20 3a f2  |=......O$="D" :.|
000008d0  64 69 73 70 6c 61 79 20  3a 4f 3d a5 20 0d 05 0a  |display :O=. ...|
000008e0  06 e1 20 0d 05 14 05 3a  0d 05 1e 0a dd f2 69 6e  |.. ....:......in|
000008f0  69 74 0d 05 28 0e ef 31  39 2c 33 2c 33 3b 30 3b  |it..(..19,3,3;0;|
00000900  0d 05 32 16 f4 56 44 55  31 39 2c 31 2c 33 2c 30  |..2..VDU19,1,3,0|
00000910  2c 30 2c 30 20 20 0d 05  3c 13 de 20 58 28 33 36  |,0,0  ..<.. X(36|
00000920  30 29 2c 59 28 33 36 30  29 0d 05 46 70 de 20 57  |0),Y(360)..Fp. W|
00000930  25 28 31 30 29 2c 53 25  28 31 30 29 2c 44 25 28  |%(10),S%(10),D%(|
00000940  31 30 29 2c 41 25 28 31  30 29 2c 42 25 28 31 30  |10),A%(10),B%(10|
00000950  29 2c 58 25 28 31 30 29  2c 59 25 28 31 30 29 2c  |),X%(10),Y%(10),|
00000960  50 25 28 31 30 29 2c 51  25 28 31 30 29 2c 41 6e  |P%(10),Q%(10),An|
00000970  67 43 28 31 30 29 2c 41  6e 67 54 28 31 30 29 2c  |gC(10),AngT(10),|
00000980  57 28 31 30 29 2c 56 28  31 30 29 2c 78 25 28 31  |W(10),V(10),x%(1|
00000990  30 29 2c 79 25 28 31 30  29 0d 05 50 05 e1 0d 05  |0),y%(10)..P....|
000009a0  5a 05 3a 0d 05 64 0b dd  f2 69 6e 69 74 32 0d 05  |Z.:..d...init2..|
000009b0  6e 0e ef 31 39 2c 33 2c  33 3b 30 3b 0d 05 78 19  |n..19,3,3;0;..x.|
000009c0  43 6c 65 61 72 3d 31 3a  52 4f 54 25 3d 2d 31 3a  |Clear=1:ROT%=-1:|
000009d0  52 25 3d 30 20 0d 05 82  1a e3 20 49 25 3d 30 b8  |R%=0 ..... I%=0.|
000009e0  31 30 3a 41 25 28 49 25  29 3d 30 3a ed 20 20 0d  |10:A%(I%)=0:.  .|
000009f0  05 8c 0b 66 69 6e 69 25  3d 30 0d 05 96 09 e1 20  |...fini%=0..... |
00000a00  20 20 20 0d 05 a0 05 3a  0d 05 aa 0c dd f2 69 6e  |   ....:......in|
00000a10  70 75 74 20 0d 05 b4 05  db 0d 05 be 1e f1 8a 30  |put ...........0|
00000a20  2c 30 29 bd 28 31 33 32  29 3b bd 28 31 35 37 29  |,0).(132);.(157)|
00000a30  3b bd 28 31 33 32 29 0d  05 c8 25 f1 8a 31 30 2c  |;.(132)...%..10,|
00000a40  30 29 bd 28 31 32 39 29  3b bd 28 31 35 37 29 3b  |0).(129);.(157);|
00000a50  bd 28 31 33 31 29 3b 4d  24 20 20 20 0d 05 d2 1f  |.(131);M$   ....|
00000a60  f1 8a 33 30 2c 30 29 bd  28 31 33 32 29 3b bd 28  |..30,0).(132);.(|
00000a70  31 35 37 29 3b bd 28 31  33 32 29 0d 05 dc 39 f1  |157);.(132)...9.|
00000a80  8a 32 2c 32 29 bd 28 31  33 34 29 3b 22 45 6e 74  |.2,2).(134);"Ent|
00000a90  65 72 20 73 69 7a 65 20  61 6e 64 20 73 70 65 65  |er size and spee|
00000aa0  64 20 6f 66 20 65 61 63  68 20 77 68 65 65 6c 20  |d of each wheel |
00000ab0  69 6e 22 20 0d 05 e6 37  f1 8a 30 2c 33 29 bd 28  |in" ...7..0,3).(|
00000ac0  31 33 34 29 3b 22 74 75  72 6e 2c 20 77 68 65 6e  |134);"turn, when|
00000ad0  20 79 6f 75 20 61 72 65  20 72 65 61 64 79 20 74  | you are ready t|
00000ae0  6f 20 73 74 61 72 74 2c  22 20 20 0d 05 f0 1f f1  |o start,"  .....|
00000af0  8a 30 2c 34 29 bd 28 31  33 34 29 3b 22 65 6e 74  |.0,4).(134);"ent|
00000b00  65 72 20 27 30 27 2e 22  20 20 0d 05 fa 29 f1 8a  |er '0'."  ...)..|
00000b10  30 2c 36 29 bd 28 31 33  31 29 3b 22 57 68 65 65  |0,6).(131);"Whee|
00000b20  6c 20 4e 6f 2e 31 20 2d  20 53 69 7a 65 20 22 3b  |l No.1 - Size ";|
00000b30  20 20 20 0d 06 04 0d e8  22 20 22 57 25 28 31 29  |   ....." "W%(1)|
00000b40  0d 06 0e 08 4e 25 3d 31  0d 06 18 05 f5 0d 06 22  |....N%=1......."|
00000b50  0d 4e 25 3d 4e 25 2b 31  20 20 0d 06 2c 34 f1 8a  |.N%=N%+1  ..,4..|
00000b60  30 2c 28 4e 25 29 2a 32  2b 34 29 bd 28 31 33 31  |0,(N%)*2+4).(131|
00000b70  29 3b 22 57 68 65 65 6c  20 4e 6f 2e 22 3b 4e 25  |);"Wheel No.";N%|
00000b80  3b 22 20 2d 20 53 69 7a  65 20 22 3b 20 20 0d 06  |;" - Size ";  ..|
00000b90  36 0f e8 22 20 22 57 25  28 4e 25 29 20 0d 06 40  |6.." "W%(N%) ..@|
00000ba0  15 e7 20 57 25 28 4e 25  29 3d 30 20 e5 8d 44 5e  |.. W%(N%)=0 ..D^|
00000bb0  46 20 0d 06 4a 26 f1 8a  32 37 2c 28 4e 25 29 2a  |F ..J&..27,(N%)*|
00000bc0  32 2b 34 29 bd 28 31 33  33 29 22 20 53 70 65 65  |2+4).(133)" Spee|
00000bd0  64 20 22 3b 20 20 20 20  0d 06 54 10 e8 22 20 22  |d ";    ..T.." "|
00000be0  53 25 28 4e 25 29 20 20  0d 06 5e 20 fd 20 53 25  |S%(N%)  ..^ . S%|
00000bf0  28 4e 25 29 3d 30 20 84  20 57 25 28 4e 25 29 3d  |(N%)=0 . W%(N%)=|
00000c00  30 20 84 20 4e 25 3e 39  0d 06 68 05 db 0d 06 72  |0 . N%>9..h....r|
00000c10  05 e1 0d 06 7c 05 3a 0d  06 86 0a dd f2 74 65 73  |....|.:......tes|
00000c20  74 0d 06 90 0d 58 25 3d  78 25 28 4b 25 29 0d 06  |t....X%=x%(K%)..|
00000c30  9a 0d 59 25 3d 79 25 28  4b 25 29 0d 06 a4 23 e7  |..Y%=y%(K%)...#.|
00000c40  20 b0 58 25 2c 59 25 29  3d 33 20 84 20 b0 5a 25  | .X%,Y%)=3 . .Z%|
00000c50  2c 59 25 29 3d 33 20 52  25 3d 52 25 2b 31 0d 06  |,Y%)=3 R%=R%+1..|
00000c60  ae 14 e7 20 52 25 3e 34  20 66 69 6e 69 25 3d 31  |... R%>4 fini%=1|
00000c70  20 20 0d 06 b8 0b 4b 25  3d 4b 25 2b 31 0d 06 c2  |  ....K%=K%+1...|
00000c80  05 e1 0d 06 cc 05 3a 0d  06 d6 0f dd f2 64 69 73  |......:......dis|
00000c90  70 6c 61 79 20 20 0d 06  e0 1c fb 35 3a f1 8a 30  |play  .....5:..0|
00000ca0  2c 31 29 22 57 31 3d 20  22 3b 57 25 28 31 29 20  |,1)"W1= ";W%(1) |
00000cb0  20 20 0d 06 ea 11 e3 20  49 25 3d 32 20 b8 20 4e  |  ..... I%=2 . N|
00000cc0  25 2d 31 0d 06 f4 24 fb  32 3a f1 8a 36 2c 49 25  |%-1...$.2:..6,I%|
00000cd0  29 22 20 20 53 22 3b 49  25 3b 22 3d 20 22 3b 53  |)"  S";I%;"= ";S|
00000ce0  25 28 49 25 29 20 20 0d  06 fe 23 fb 35 3a f1 8a  |%(I%)  ...#.5:..|
00000cf0  30 2c 49 25 29 22 57 22  3b 49 25 3b 22 3d 20 22  |0,I%)"W";I%;"= "|
00000d00  3b 57 25 28 49 25 29 20  20 20 0d 07 08 05 ed 0d  |;W%(I%)   ......|
00000d10  07 12 07 e1 20 20 0d 07  1c 05 3a 0d 07 26 0e dd  |....  ....:..&..|
00000d20  f2 73 61 6d 70 6c 65 20  20 0d 07 30 24 f1 8a 35  |.sample  ..0$..5|
00000d30  2c 31 39 29 22 45 6e 74  65 72 20 6e 75 6d 62 65  |,19)"Enter numbe|
00000d40  72 2e 20 20 28 31 2d 36  29 22 3b 20 20 0d 07 3a  |r.  (1-6)";  ..:|
00000d50  08 4f 3d a5 20 0d 07 44  13 41 25 3d 4f 2d 34 38  |.O=. ..D.A%=O-48|
00000d60  3a 4e 25 3d 41 25 2b 32  0d 07 4e 0c f1 41 25 3a  |:N%=A%+2..N..A%:|
00000d70  4f 3d a5 20 0d 07 58 0d  57 25 28 31 29 3d 34 38  |O=. ..X.W%(1)=48|
00000d80  30 0d 07 62 1d e7 20 41  25 3d 31 20 57 25 28 32  |0..b.. A%=1 W%(2|
00000d90  29 3d 32 35 36 3a 53 25  28 32 29 3d 34 20 0d 07  |)=256:S%(2)=4 ..|
00000da0  6c 2d e7 20 41 25 3d 32  20 57 25 28 32 29 3d 32  |l-. A%=2 W%(2)=2|
00000db0  34 30 3a 53 25 28 32 29  3d 34 3a 57 25 28 33 29  |40:S%(2)=4:W%(3)|
00000dc0  3d 38 30 3a 53 25 28 33  29 3d 31 0d 07 76 3f e7  |=80:S%(3)=1..v?.|
00000dd0  20 41 25 3d 33 20 57 25  28 32 29 3d 33 36 30 3a  | A%=3 W%(2)=360:|
00000de0  53 25 28 32 29 3d 35 3a  57 25 28 33 29 3d 32 34  |S%(2)=5:W%(3)=24|
00000df0  30 3a 53 25 28 33 29 3d  32 3a 57 25 28 34 29 3d  |0:S%(3)=2:W%(4)=|
00000e00  36 30 3a 53 25 28 34 29  3d 31 0d 07 80 5d e7 20  |60:S%(4)=1...]. |
00000e10  41 25 3d 34 20 57 25 28  31 29 3d 34 30 30 3a 57  |A%=4 W%(1)=400:W|
00000e20  25 28 32 29 3d 32 30 30  3a 53 25 28 32 29 3d 32  |%(2)=200:S%(2)=2|
00000e30  3a 57 25 28 33 29 3d 31  30 30 3a 53 25 28 33 29  |:W%(3)=100:S%(3)|
00000e40  3d 32 3a 57 25 28 34 29  3d 35 30 3a 53 25 28 34  |=2:W%(4)=50:S%(4|
00000e50  29 3d 31 3a 57 25 28 35  29 3d 31 35 30 3a 53 25  |)=1:W%(5)=150:S%|
00000e60  28 35 29 3d 32 20 20 0d  07 8a 6e e7 20 41 25 3d  |(5)=2  ...n. A%=|
00000e70  35 20 57 25 28 31 29 3d  32 30 30 3a 57 25 28 32  |5 W%(1)=200:W%(2|
00000e80  29 3d 34 30 30 3a 53 25  28 32 29 3d 34 3a 57 25  |)=400:S%(2)=4:W%|
00000e90  28 33 29 3d 31 30 30 3a  53 25 28 33 29 3d 31 3a  |(3)=100:S%(3)=1:|
00000ea0  57 25 28 34 29 3d 32 30  30 3a 53 25 28 34 29 3d  |W%(4)=200:S%(4)=|
00000eb0  31 3a 57 25 28 35 29 3d  35 30 3a 53 25 28 35 29  |1:W%(5)=50:S%(5)|
00000ec0  3d 32 3a 57 25 28 36 29  3d 31 30 30 3a 53 25 28  |=2:W%(6)=100:S%(|
00000ed0  36 29 3d 32 20 0d 07 94  80 e7 20 41 25 3d 36 20  |6)=2 ..... A%=6 |
00000ee0  57 25 28 31 29 3d 31 30  30 3a 57 25 28 32 29 3d  |W%(1)=100:W%(2)=|
00000ef0  33 30 30 3a 53 25 28 32  29 3d 32 3a 57 25 28 33  |300:S%(2)=2:W%(3|
00000f00  29 3d 31 35 30 3a 53 25  28 33 29 3d 34 3a 57 25  |)=150:S%(3)=4:W%|
00000f10  28 34 29 3d 31 30 30 3a  53 25 28 34 29 3d 32 3a  |(4)=100:S%(4)=2:|
00000f20  57 25 28 35 29 3d 35 30  3a 53 25 28 35 29 3d 31  |W%(5)=50:S%(5)=1|
00000f30  3a 57 25 28 36 29 3d 31  30 30 3a 53 25 28 36 29  |:W%(6)=100:S%(6)|
00000f40  3d 34 3a 57 25 28 37 29  3d 35 30 3a 53 25 28 37  |=4:W%(7)=50:S%(7|
00000f50  29 3d 31 20 20 0d 07 9e  07 e1 20 20 0d ff        |)=1  .....  ..|
00000f5e