Home » CEEFAX disks » telesoftware5.adl » 30-01-88/MULTS2

30-01-88/MULTS2

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware5.adl
Filename: 30-01-88/MULTS2
Read OK:
File size: 0F5E bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM       THE MULTI-SPIRO  
   20REM           by
   30REM       Mike Claxton
   40MODE7
   60M$="THE MULTI-SPIRO" 
   70PRINTTAB(9,1)CHR$(141);CHR$(129);M$   
   80PRINTTAB(9,2)CHR$(141);CHR$(130);M$   
   90PRINTTAB(10,3)CHR$(132);"|||||||||||||||"
  100PRINTTAB(2,5)CHR$(134);"Please be patient while sines and"  
  110PRINTTAB(2,6)CHR$(134);"cosines are calculated and stored." 
  120PROCinit  
  130PROCsincos
  140PRINTTAB(2,5)SPC(80)
  150PRINTTAB(2,10)SPC(40) 
  160:
  170REPEAT
  180PROCinit2
  190PRINTTAB(9,1)CHR$(141);CHR$(133);M$    
  200PRINTTAB(9,2)CHR$(141);CHR$(131);M$   
  210PRINTTAB(10,3)CHR$(129);"|||||||||||||||"     
  220PRINTTAB(1,16)CHR$(134);"There are six sample patterns,"   
  230PRINTTAB(1,17)CHR$(134);"Would you like one of them ?  (Y/N) ";  
  240A$=GET$
  250IF A$="Y" PROCsample ELSE PROCinput
  260MODE129
  270VDU29,640;512; 
  280IF A$="Y" PROCdisplay :VDU29,770;512;
  290PROCcalc
  300VDU23;8202;0;0;0   
  310CLS
  320PROCdraw  
  330MODE7
  340UNTIL FALSE
  350END
  360:
  370DEFPROCsincos 
  380PRINTTAB(1,10)CHR$(129);"+ + + + + + + + + + + + + + + + + +"  
  390Ang=0:Deg=PI/180
  400FOR I%=0 TO 90
  410X(I%)=SIN (Ang)
  420Ang=Ang+Deg
  430IFI%MOD6=0 PRINTTAB(35-I%/6*2,10)CHR$(131);"*"  
  440NEXT   
  450:
  460FORI%=0 TO 90
  470Y(I%)=X(90-I%)
  480NEXT
  490:
  500PRINTTAB(3,10)CHR$(131);"*"  
  510FORI%=90 TO 179
  520X(I%)=X(180-I%)   
  530Y(I%)=-Y(180-I%)  
  540NEXT
  550:
  560PRINTTAB(1,10)CHR$(131);"*" 
  570FORI%=180 TO 269
  580X(I%)=-X(I%-180) 
  590Y(I%)=-Y(I%-180)  
  600NEXT
  610:
  620FORI%=270 TO 359
  630X(I%)=-X(360-I%)  
  640Y(I%)=Y(360-I%)   
  650NEXT
  660ENDPROC
  670:
  680DEFPROCcalc 
  690FOR I%=2 TO N%-1 
  700W(I%)=W%(1)/W%(I%)
  710V(I%)=W%(1)/W%(I%)/S%(I%)
  720NEXT
  730:
  740W(1)=W%(1)/W%(2) 
  750FOR I%=1 TO N%-1
  760D%(I%)=W%(I%)-W%(I%+1) 
  770NEXT
  780ENDPROC  
  790:
  800DEFPROCdraw  
  810VDU19,3,3;0;  
  820MOVE0,W%(1)
  830A%=0  
  840XX%=0:YY%=W%(1):ZZ%=0
  850COLOUR3
  860:
  870REPEAT 
  880IFA%(1)MOD180=0:X%=0 :K%=0:R%=0 :PROCtest  
  890FOR I%=1 TO N%-1
  900A%(I%)=A%(I%)+S%(I%+1)
  910NEXT
  920:
  930AngT(1)=ABS((A%(1)*W(1)-A%(2))MOD360)
  940FOR I%=2 TO N%  
  950AngT(I%)=(ABS(AngT(I%-1)+A%(I%)*(W(I%)-V(I%))))MOD360
  960NEXT
  970:
  980FOR I%=1 TO N%-2
  990X%(I%)=D%(I%)*X(A%(I%)MOD360)
 1000Y%(I%)=D%(I%)*Y(A%(I%)MOD360) 
 1010P%(I%)=W%(I%+1)*X(AngT(I%)MOD360)  
 1020Q%(I%)=W%(I%+1)*Y(AngT(I%)MOD360)
 1030NEXT
 1040:
 1050X%=0:Y%=0
 1060FOR I%=2 TO N%-2
 1070X%=X%+X%(I%)
 1080Y%=Y%+Y%(I%) 
 1090NEXT
 1100:
 1110X%=X%(1)-P%(N%-2)-X% 
 1120Y%=Y%(1)+Q%(N%-2)+Y% 
 1130Z%=-X%
 1140I%=1
 1150x%(K%)=X%:y%(K%)=Y%
 1160IF K%<6:PROCtest  
 1170PLOT4,XX%,YY% 
 1180PLOT5,X%,Y%    
 1190PLOT4,ZZ%,YY%  
 1200PLOT5,Z%,Y% 
 1210XX%=X%:YY%=Y%:ZZ%=Z%
 1220*FX15,0
 1230stop%=INKEY(-82)  
 1240UNTIL fini%=1 OR stop%=-1
 1250:
 1260PRINTTAB(0,0)"Fini":VDU19,3,6;0; 
 1270O$=GET$
 1280IFO$="D" :PROCdisplay :O=GET 
 1290ENDPROC 
 1300:
 1310DEFPROCinit
 1320VDU19,3,3;0;
 1330REMVDU19,1,3,0,0,0  
 1340DIM X(360),Y(360)
 1350DIM 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)
 1360ENDPROC
 1370:
 1380DEFPROCinit2
 1390VDU19,3,3;0;
 1400Clear=1:ROT%=-1:R%=0 
 1410FOR I%=0TO10:A%(I%)=0:NEXT  
 1420fini%=0
 1430ENDPROC    
 1440:
 1450DEFPROCinput 
 1460CLS
 1470PRINTTAB(0,0)CHR$(132);CHR$(157);CHR$(132)
 1480PRINTTAB(10,0)CHR$(129);CHR$(157);CHR$(131);M$   
 1490PRINTTAB(30,0)CHR$(132);CHR$(157);CHR$(132)
 1500PRINTTAB(2,2)CHR$(134);"Enter size and speed of each wheel in" 
 1510PRINTTAB(0,3)CHR$(134);"turn, when you are ready to start,"  
 1520PRINTTAB(0,4)CHR$(134);"enter '0'."  
 1530PRINTTAB(0,6)CHR$(131);"Wheel No.1 - Size ";   
 1540INPUT" "W%(1)
 1550N%=1
 1560REPEAT
 1570N%=N%+1  
 1580PRINTTAB(0,(N%)*2+4)CHR$(131);"Wheel No.";N%;" - Size ";  
 1590INPUT" "W%(N%) 
 1600IF W%(N%)=0 GOTO1630 
 1610PRINTTAB(27,(N%)*2+4)CHR$(133)" Speed ";    
 1620INPUT" "S%(N%)  
 1630UNTIL S%(N%)=0 OR W%(N%)=0 OR N%>9
 1640CLS
 1650ENDPROC
 1660:
 1670DEFPROCtest
 1680X%=x%(K%)
 1690Y%=y%(K%)
 1700IF POINT(X%,Y%)=3 OR POINT(Z%,Y%)=3 R%=R%+1
 1710IF R%>4 fini%=1  
 1720K%=K%+1
 1730ENDPROC
 1740:
 1750DEFPROCdisplay  
 1760COLOUR5:PRINTTAB(0,1)"W1= ";W%(1)   
 1770FOR I%=2 TO N%-1
 1780COLOUR2:PRINTTAB(6,I%)"  S";I%;"= ";S%(I%)  
 1790COLOUR5:PRINTTAB(0,I%)"W";I%;"= ";W%(I%)   
 1800NEXT
 1810ENDPROC  
 1820:
 1830DEFPROCsample  
 1840PRINTTAB(5,19)"Enter number.  (1-6)";  
 1850O=GET 
 1860A%=O-48:N%=A%+2
 1870PRINTA%:O=GET 
 1880W%(1)=480
 1890IF A%=1 W%(2)=256:S%(2)=4 
 1900IF A%=2 W%(2)=240:S%(2)=4:W%(3)=80:S%(3)=1
 1910IF A%=3 W%(2)=360:S%(2)=5:W%(3)=240:S%(3)=2:W%(4)=60:S%(4)=1
 1920IF 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  
 1930IF 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 
 1940IF 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  
 1950ENDPROC  

�       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
30-01-88/MULTS2.m0
30-01-88/MULTS2.m1
30-01-88/MULTS2.m2
30-01-88/MULTS2.m4
30-01-88/MULTS2.m5