�7

*K.0RUN|M
'�10,0)�(141);�(131);"MULTI SPIRO" 
('�10,1)�(141);�(133);"MULTI SPIRO" 
22�2,3)"These three programs trace the path"   
</�"taken by a point on the circumferance of"
F3�0,5)"a wheel, rotating within one or more"   
P�"other wheels."
Z4�2,8)"In 'The Multi Spiro' you are prompted"   
d+�"to enter, first the size of the main"
n-�"outer wheel,then the size and speed of"
x�"the internal wheels."  
�B�2,13)"The size of the first wheel should be 500 or less."   
�3�2,16)"The size of the remainig wheels may be"
�/�0,17)"exact fractions of the first wheel"
�-�"(for the simplest trace) or any number"
�!�"less than the first wheel."
�0�0,21)"The speed should be less than 10."  
�2�0,23)"Touch any key to continue.         "; 
�O=�
��
�(�10,0)�(141);�(133);"MULTI SPIRO"  
�)�10,1)�(141);�(134);"MULTI SPIRO"   
�z�2,3)"To keep the drawing symmetrical and tosave time, the point and it's mirror    image are drawn alternatively."  
�g�2,7)"The drawing is complete when it       changes colour, or may be stopped by    typing 'S'."  

��2,11)"Depending on dimmensions entered, the drawing will occasionally 'over-draw'   itself. This is because after each full revolution of the outer wheel, the next four points to be traced are checked to"

1�0,16)"see if they have been drawn already."

-�2,18)"This sometimes causes a problem!"

"Z�2,20)"The original sizes and speeds of the  wheels may be recalled by typing 'D'."  

,3�0,23)"Touch any key to continue.         ";  

6O=� 

@�  

J'�10,0)�(141);�(134);"MULTI SPIRO" 

T(�10,1)�(141);�(131);"MULTI SPIRO"  

^��2,3)"The two remaining programs demonstratethe rotation of two wheels, together    with a trace of a point on the          circumferance of the inner one."    

ho�2,8)"The Basic version is slower but it    should be easier to adapt if required."                       

rj�2,11)"The machine code version stores the   co-ordinates of the 256 possible points of each wheel." 

|��2,15)"This, plus the use of integer         calculations only, helps to speed up therotation, but it looses out on complete accuracy."            

�5�0,23)"Touch any key to continue.         ";    

�O=�

��

�T$="THE MULTI-SPIRO"

�7�X%=0�1:�135;�157;�129;�141;�21-(�(T$)/2),X%);T$:�

��3,4);"�1 _ Introduction"

�!�3,6);"�2 _ The Multi-Spiro"

�*�3,8);"�3 _ Two wheel demo. (Basic) "

�2�3,10);"�4 _ Two wheel demo. (Machine code) "

�C�0,23);�129;�157;�135;�136;"Enter number of program required";

��:A=�-48:�A>0 � A<5

�� A � �THB,�TRB,�T\B,�TfB

��
�

�"MULTS2"

�"MULTS3"
&
�"MULTS4"
�

00000000  0d 00 0a 06 eb 37 0d 00  14 0d 2a 4b 2e 30 52 55  |.....7....*K.0RU|
00000010  4e 7c 4d 0d 00 1e 27 f1  8a 31 30 2c 30 29 bd 28  |N|M...'..10,0).(|
00000020  31 34 31 29 3b bd 28 31  33 31 29 3b 22 4d 55 4c  |141);.(131);"MUL|
00000030  54 49 20 53 50 49 52 4f  22 20 0d 00 28 27 f1 8a  |TI SPIRO" ..('..|
00000040  31 30 2c 31 29 bd 28 31  34 31 29 3b bd 28 31 33  |10,1).(141);.(13|
00000050  33 29 3b 22 4d 55 4c 54  49 20 53 50 49 52 4f 22  |3);"MULTI SPIRO"|
00000060  20 0d 00 32 32 f1 8a 32  2c 33 29 22 54 68 65 73  | ..22..2,3)"Thes|
00000070  65 20 74 68 72 65 65 20  70 72 6f 67 72 61 6d 73  |e three programs|
00000080  20 74 72 61 63 65 20 74  68 65 20 70 61 74 68 22  | trace the path"|
00000090  20 20 20 0d 00 3c 2f f1  22 74 61 6b 65 6e 20 62  |   ..</."taken b|
000000a0  79 20 61 20 70 6f 69 6e  74 20 6f 6e 20 74 68 65  |y a point on the|
000000b0  20 63 69 72 63 75 6d 66  65 72 61 6e 63 65 20 6f  | circumferance o|
000000c0  66 22 0d 00 46 33 f1 8a  30 2c 35 29 22 61 20 77  |f"..F3..0,5)"a w|
000000d0  68 65 65 6c 2c 20 72 6f  74 61 74 69 6e 67 20 77  |heel, rotating w|
000000e0  69 74 68 69 6e 20 6f 6e  65 20 6f 72 20 6d 6f 72  |ithin one or mor|
000000f0  65 22 20 20 20 0d 00 50  14 f1 22 6f 74 68 65 72  |e"   ..P.."other|
00000100  20 77 68 65 65 6c 73 2e  22 0d 00 5a 34 f1 8a 32  | wheels."..Z4..2|
00000110  2c 38 29 22 49 6e 20 27  54 68 65 20 4d 75 6c 74  |,8)"In 'The Mult|
00000120  69 20 53 70 69 72 6f 27  20 79 6f 75 20 61 72 65  |i Spiro' you are|
00000130  20 70 72 6f 6d 70 74 65  64 22 20 20 20 0d 00 64  | prompted"   ..d|
00000140  2b f1 22 74 6f 20 65 6e  74 65 72 2c 20 66 69 72  |+."to enter, fir|
00000150  73 74 20 74 68 65 20 73  69 7a 65 20 6f 66 20 74  |st the size of t|
00000160  68 65 20 6d 61 69 6e 22  0d 00 6e 2d f1 22 6f 75  |he main"..n-."ou|
00000170  74 65 72 20 77 68 65 65  6c 2c 74 68 65 6e 20 74  |ter wheel,then t|
00000180  68 65 20 73 69 7a 65 20  61 6e 64 20 73 70 65 65  |he size and spee|
00000190  64 20 6f 66 22 0d 00 78  1d f1 22 74 68 65 20 69  |d of"..x.."the i|
000001a0  6e 74 65 72 6e 61 6c 20  77 68 65 65 6c 73 2e 22  |nternal wheels."|
000001b0  20 20 0d 00 82 42 f1 8a  32 2c 31 33 29 22 54 68  |  ...B..2,13)"Th|
000001c0  65 20 73 69 7a 65 20 6f  66 20 74 68 65 20 66 69  |e size of the fi|
000001d0  72 73 74 20 77 68 65 65  6c 20 73 68 6f 75 6c 64  |rst wheel should|
000001e0  20 62 65 20 35 30 30 20  6f 72 20 6c 65 73 73 2e  | be 500 or less.|
000001f0  22 20 20 20 0d 00 8c 33  f1 8a 32 2c 31 36 29 22  |"   ...3..2,16)"|
00000200  54 68 65 20 73 69 7a 65  20 6f 66 20 74 68 65 20  |The size of the |
00000210  72 65 6d 61 69 6e 69 67  20 77 68 65 65 6c 73 20  |remainig wheels |
00000220  6d 61 79 20 62 65 22 0d  00 96 2f f1 8a 30 2c 31  |may be".../..0,1|
00000230  37 29 22 65 78 61 63 74  20 66 72 61 63 74 69 6f  |7)"exact fractio|
00000240  6e 73 20 6f 66 20 74 68  65 20 66 69 72 73 74 20  |ns of the first |
00000250  77 68 65 65 6c 22 0d 00  a0 2d f1 22 28 66 6f 72  |wheel"...-."(for|
00000260  20 74 68 65 20 73 69 6d  70 6c 65 73 74 20 74 72  | the simplest tr|
00000270  61 63 65 29 20 6f 72 20  61 6e 79 20 6e 75 6d 62  |ace) or any numb|
00000280  65 72 22 0d 00 aa 21 f1  22 6c 65 73 73 20 74 68  |er"...!."less th|
00000290  61 6e 20 74 68 65 20 66  69 72 73 74 20 77 68 65  |an the first whe|
000002a0  65 6c 2e 22 0d 00 b4 30  f1 8a 30 2c 32 31 29 22  |el."...0..0,21)"|
000002b0  54 68 65 20 73 70 65 65  64 20 73 68 6f 75 6c 64  |The speed should|
000002c0  20 62 65 20 6c 65 73 73  20 74 68 61 6e 20 31 30  | be less than 10|
000002d0  2e 22 20 20 0d 00 be 32  f1 8a 30 2c 32 33 29 22  |."  ...2..0,23)"|
000002e0  54 6f 75 63 68 20 61 6e  79 20 6b 65 79 20 74 6f  |Touch any key to|
000002f0  20 63 6f 6e 74 69 6e 75  65 2e 20 20 20 20 20 20  | continue.      |
00000300  20 20 20 22 3b 20 0d 00  c8 07 4f 3d a5 0d 00 d2  |   "; ....O=....|
00000310  05 db 0d 00 dc 28 f1 8a  31 30 2c 30 29 bd 28 31  |.....(..10,0).(1|
00000320  34 31 29 3b bd 28 31 33  33 29 3b 22 4d 55 4c 54  |41);.(133);"MULT|
00000330  49 20 53 50 49 52 4f 22  20 20 0d 00 e6 29 f1 8a  |I SPIRO"  ...)..|
00000340  31 30 2c 31 29 bd 28 31  34 31 29 3b bd 28 31 33  |10,1).(141);.(13|
00000350  34 29 3b 22 4d 55 4c 54  49 20 53 50 49 52 4f 22  |4);"MULTI SPIRO"|
00000360  20 20 20 0d 00 f0 7a f1  8a 32 2c 33 29 22 54 6f  |   ...z..2,3)"To|
00000370  20 6b 65 65 70 20 74 68  65 20 64 72 61 77 69 6e  | keep the drawin|
00000380  67 20 73 79 6d 6d 65 74  72 69 63 61 6c 20 61 6e  |g symmetrical an|
00000390  64 20 74 6f 73 61 76 65  20 74 69 6d 65 2c 20 74  |d tosave time, t|
000003a0  68 65 20 70 6f 69 6e 74  20 61 6e 64 20 69 74 27  |he point and it'|
000003b0  73 20 6d 69 72 72 6f 72  20 20 20 20 69 6d 61 67  |s mirror    imag|
000003c0  65 20 61 72 65 20 64 72  61 77 6e 20 61 6c 74 65  |e are drawn alte|
000003d0  72 6e 61 74 69 76 65 6c  79 2e 22 20 20 0d 00 fa  |rnatively."  ...|
000003e0  67 f1 8a 32 2c 37 29 22  54 68 65 20 64 72 61 77  |g..2,7)"The draw|
000003f0  69 6e 67 20 69 73 20 63  6f 6d 70 6c 65 74 65 20  |ing is complete |
00000400  77 68 65 6e 20 69 74 20  20 20 20 20 20 20 63 68  |when it       ch|
00000410  61 6e 67 65 73 20 63 6f  6c 6f 75 72 2c 20 6f 72  |anges colour, or|
00000420  20 6d 61 79 20 62 65 20  73 74 6f 70 70 65 64 20  | may be stopped |
00000430  62 79 20 20 20 20 74 79  70 69 6e 67 20 27 53 27  |by    typing 'S'|
00000440  2e 22 20 20 0d 01 04 d2  f1 8a 32 2c 31 31 29 22  |."  ......2,11)"|
00000450  44 65 70 65 6e 64 69 6e  67 20 6f 6e 20 64 69 6d  |Depending on dim|
00000460  6d 65 6e 73 69 6f 6e 73  20 65 6e 74 65 72 65 64  |mensions entered|
00000470  2c 20 74 68 65 20 64 72  61 77 69 6e 67 20 77 69  |, the drawing wi|
00000480  6c 6c 20 6f 63 63 61 73  69 6f 6e 61 6c 6c 79 20  |ll occasionally |
00000490  27 6f 76 65 72 2d 64 72  61 77 27 20 20 20 69 74  |'over-draw'   it|
000004a0  73 65 6c 66 2e 20 54 68  69 73 20 69 73 20 62 65  |self. This is be|
000004b0  63 61 75 73 65 20 61 66  74 65 72 20 65 61 63 68  |cause after each|
000004c0  20 66 75 6c 6c 20 72 65  76 6f 6c 75 74 69 6f 6e  | full revolution|
000004d0  20 6f 66 20 74 68 65 20  6f 75 74 65 72 20 77 68  | of the outer wh|
000004e0  65 65 6c 2c 20 74 68 65  20 6e 65 78 74 20 66 6f  |eel, the next fo|
000004f0  75 72 20 70 6f 69 6e 74  73 20 74 6f 20 62 65 20  |ur points to be |
00000500  74 72 61 63 65 64 20 61  72 65 20 63 68 65 63 6b  |traced are check|
00000510  65 64 20 74 6f 22 0d 01  0e 31 f1 8a 30 2c 31 36  |ed to"...1..0,16|
00000520  29 22 73 65 65 20 69 66  20 74 68 65 79 20 68 61  |)"see if they ha|
00000530  76 65 20 62 65 65 6e 20  64 72 61 77 6e 20 61 6c  |ve been drawn al|
00000540  72 65 61 64 79 2e 22 0d  01 18 2d f1 8a 32 2c 31  |ready."...-..2,1|
00000550  38 29 22 54 68 69 73 20  73 6f 6d 65 74 69 6d 65  |8)"This sometime|
00000560  73 20 63 61 75 73 65 73  20 61 20 70 72 6f 62 6c  |s causes a probl|
00000570  65 6d 21 22 0d 01 22 5a  f1 8a 32 2c 32 30 29 22  |em!".."Z..2,20)"|
00000580  54 68 65 20 6f 72 69 67  69 6e 61 6c 20 73 69 7a  |The original siz|
00000590  65 73 20 61 6e 64 20 73  70 65 65 64 73 20 6f 66  |es and speeds of|
000005a0  20 74 68 65 20 20 77 68  65 65 6c 73 20 6d 61 79  | the  wheels may|
000005b0  20 62 65 20 72 65 63 61  6c 6c 65 64 20 62 79 20  | be recalled by |
000005c0  74 79 70 69 6e 67 20 27  44 27 2e 22 20 20 0d 01  |typing 'D'."  ..|
000005d0  2c 33 f1 8a 30 2c 32 33  29 22 54 6f 75 63 68 20  |,3..0,23)"Touch |
000005e0  61 6e 79 20 6b 65 79 20  74 6f 20 63 6f 6e 74 69  |any key to conti|
000005f0  6e 75 65 2e 20 20 20 20  20 20 20 20 20 22 3b 20  |nue.         "; |
00000600  20 0d 01 36 08 4f 3d a5  20 0d 01 40 07 db 20 20  | ..6.O=. ..@..  |
00000610  0d 01 4a 27 f1 8a 31 30  2c 30 29 bd 28 31 34 31  |..J'..10,0).(141|
00000620  29 3b bd 28 31 33 34 29  3b 22 4d 55 4c 54 49 20  |);.(134);"MULTI |
00000630  53 50 49 52 4f 22 20 0d  01 54 28 f1 8a 31 30 2c  |SPIRO" ..T(..10,|
00000640  31 29 bd 28 31 34 31 29  3b bd 28 31 33 31 29 3b  |1).(141);.(131);|
00000650  22 4d 55 4c 54 49 20 53  50 49 52 4f 22 20 20 0d  |"MULTI SPIRO"  .|
00000660  01 5e a5 f1 8a 32 2c 33  29 22 54 68 65 20 74 77  |.^...2,3)"The tw|
00000670  6f 20 72 65 6d 61 69 6e  69 6e 67 20 70 72 6f 67  |o remaining prog|
00000680  72 61 6d 73 20 64 65 6d  6f 6e 73 74 72 61 74 65  |rams demonstrate|
00000690  74 68 65 20 72 6f 74 61  74 69 6f 6e 20 6f 66 20  |the rotation of |
000006a0  74 77 6f 20 77 68 65 65  6c 73 2c 20 74 6f 67 65  |two wheels, toge|
000006b0  74 68 65 72 20 20 20 20  77 69 74 68 20 61 20 74  |ther    with a t|
000006c0  72 61 63 65 20 6f 66 20  61 20 70 6f 69 6e 74 20  |race of a point |
000006d0  6f 6e 20 74 68 65 20 20  20 20 20 20 20 20 20 20  |on the          |
000006e0  63 69 72 63 75 6d 66 65  72 61 6e 63 65 20 6f 66  |circumferance of|
000006f0  20 74 68 65 20 69 6e 6e  65 72 20 6f 6e 65 2e 22  | the inner one."|
00000700  20 20 20 20 0d 01 68 6f  f1 8a 32 2c 38 29 22 54  |    ..ho..2,8)"T|
00000710  68 65 20 42 61 73 69 63  20 76 65 72 73 69 6f 6e  |he Basic version|
00000720  20 69 73 20 73 6c 6f 77  65 72 20 62 75 74 20 69  | is slower but i|
00000730  74 20 20 20 20 73 68 6f  75 6c 64 20 62 65 20 65  |t    should be e|
00000740  61 73 69 65 72 20 74 6f  20 61 64 61 70 74 20 69  |asier to adapt i|
00000750  66 20 72 65 71 75 69 72  65 64 2e 22 20 20 20 20  |f required."    |
00000760  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000770  20 20 20 0d 01 72 6a f1  8a 32 2c 31 31 29 22 54  |   ..rj..2,11)"T|
00000780  68 65 20 6d 61 63 68 69  6e 65 20 63 6f 64 65 20  |he machine code |
00000790  76 65 72 73 69 6f 6e 20  73 74 6f 72 65 73 20 74  |version stores t|
000007a0  68 65 20 20 20 63 6f 2d  6f 72 64 69 6e 61 74 65  |he   co-ordinate|
000007b0  73 20 6f 66 20 74 68 65  20 32 35 36 20 70 6f 73  |s of the 256 pos|
000007c0  73 69 62 6c 65 20 70 6f  69 6e 74 73 20 6f 66 20  |sible points of |
000007d0  65 61 63 68 20 77 68 65  65 6c 2e 22 20 0d 01 7c  |each wheel." ..||
000007e0  98 f1 8a 32 2c 31 35 29  22 54 68 69 73 2c 20 70  |...2,15)"This, p|
000007f0  6c 75 73 20 74 68 65 20  75 73 65 20 6f 66 20 69  |lus the use of i|
00000800  6e 74 65 67 65 72 20 20  20 20 20 20 20 20 20 63  |nteger         c|
00000810  61 6c 63 75 6c 61 74 69  6f 6e 73 20 6f 6e 6c 79  |alculations only|
00000820  2c 20 68 65 6c 70 73 20  74 6f 20 73 70 65 65 64  |, helps to speed|
00000830  20 75 70 20 74 68 65 72  6f 74 61 74 69 6f 6e 2c  | up therotation,|
00000840  20 62 75 74 20 69 74 20  6c 6f 6f 73 65 73 20 6f  | but it looses o|
00000850  75 74 20 6f 6e 20 63 6f  6d 70 6c 65 74 65 20 61  |ut on complete a|
00000860  63 63 75 72 61 63 79 2e  22 20 20 20 20 20 20 20  |ccuracy."       |
00000870  20 20 20 20 20 0d 01 86  35 f1 8a 30 2c 32 33 29  |     ...5..0,23)|
00000880  22 54 6f 75 63 68 20 61  6e 79 20 6b 65 79 20 74  |"Touch any key t|
00000890  6f 20 63 6f 6e 74 69 6e  75 65 2e 20 20 20 20 20  |o continue.     |
000008a0  20 20 20 20 22 3b 20 20  20 20 0d 01 90 07 4f 3d  |    ";    ....O=|
000008b0  a5 0d 01 9a 05 db 0d 01  a4 18 54 24 3d 22 54 48  |..........T$="TH|
000008c0  45 20 4d 55 4c 54 49 2d  53 50 49 52 4f 22 0d 01  |E MULTI-SPIRO"..|
000008d0  ae 37 e3 58 25 3d 30 b8  31 3a f1 bd 31 33 35 3b  |.7.X%=0.1:..135;|
000008e0  bd 31 35 37 3b bd 31 32  39 3b bd 31 34 31 3b 8a  |.157;.129;.141;.|
000008f0  32 31 2d 28 a9 28 54 24  29 2f 32 29 2c 58 25 29  |21-(.(T$)/2),X%)|
00000900  3b 54 24 3a ed 0d 01 b8  1e f1 8a 33 2c 34 29 3b  |;T$:.......3,4);|
00000910  22 83 31 20 5f 20 49 6e  74 72 6f 64 75 63 74 69  |".1 _ Introducti|
00000920  6f 6e 22 0d 01 c2 21 f1  8a 33 2c 36 29 3b 22 82  |on"...!..3,6);".|
00000930  32 20 5f 20 54 68 65 20  4d 75 6c 74 69 2d 53 70  |2 _ The Multi-Sp|
00000940  69 72 6f 22 0d 01 cc 2a  f1 8a 33 2c 38 29 3b 22  |iro"...*..3,8);"|
00000950  86 33 20 5f 20 54 77 6f  20 77 68 65 65 6c 20 64  |.3 _ Two wheel d|
00000960  65 6d 6f 2e 20 28 42 61  73 69 63 29 20 22 0d 01  |emo. (Basic) "..|
00000970  d6 32 f1 8a 33 2c 31 30  29 3b 22 85 34 20 5f 20  |.2..3,10);".4 _ |
00000980  54 77 6f 20 77 68 65 65  6c 20 64 65 6d 6f 2e 20  |Two wheel demo. |
00000990  28 4d 61 63 68 69 6e 65  20 63 6f 64 65 29 20 22  |(Machine code) "|
000009a0  0d 01 e0 43 f1 8a 30 2c  32 33 29 3b bd 31 32 39  |...C..0,23);.129|
000009b0  3b bd 31 35 37 3b bd 31  33 35 3b bd 31 33 36 3b  |;.157;.135;.136;|
000009c0  22 45 6e 74 65 72 20 6e  75 6d 62 65 72 20 6f 66  |"Enter number of|
000009d0  20 70 72 6f 67 72 61 6d  20 72 65 71 75 69 72 65  | program require|
000009e0  64 22 3b 0d 01 ea 17 f5  3a 41 3d a5 2d 34 38 3a  |d";.....:A=.-48:|
000009f0  fd 41 3e 30 20 80 20 41  3c 35 0d 01 f4 1d ee 20  |.A>0 . A<5..... |
00000a00  41 20 e5 20 8d 54 48 42  2c 8d 54 52 42 2c 8d 54  |A . .THB,.TRB,.T|
00000a10  5c 42 2c 8d 54 66 42 0d  01 fe 05 e0 0d 02 08 05  |\B,.TfB.........|
00000a20  f9 0d 02 12 0d d7 22 4d  55 4c 54 53 32 22 0d 02  |......"MULTS2"..|
00000a30  1c 0d d7 22 4d 55 4c 54  53 33 22 0d 02 26 0d d7  |..."MULTS3"..&..|
00000a40  22 4d 55 4c 54 53 34 22  0d ff                    |"MULTS4"..|
00000a4a