� MAKING WAVES
� by P.L.Houghton
� (c) The Micro User
(�135:�=&8000:M%=128:�M%=4
2�M%:�screen
<�23;8202;0;0;0;30
F.�"Complex Waves from Sinusoidal Signals":�
P�axis(1,1):�DC_COMP
Z�F%(J%)=�val("Please enter the frequency as a multiple of the fundamental (1 for fundamental, 2 for 2nd harmonic etc.) then press Return")
d�V(J%)=�val("Enter the peak value of the waveform & press Return (a value of 200 is suggested for the fundamental then other harmonics may be easily scaled)")
niP%(J%)=�val("Enter any phase shift from fundamental (in degrees between 0 and 359) and press Return")
x�wave("Now plotting y=")
�W�y("Draw another frequency")J%=J%+1:V(J%+1)=-999:F%(J%+1)=-999:P%(J%+1)=-999:�DZ@
�4�:笤y("View the resultant complex wave") � �tj@
�$�:�y("Clear components first")�
�
�SUM_WAVE
�'�y("Do you want a printout")�print
��:�
�,�y("Clear components & re-plot")�:�t`@
��:�y("Run program again")�
��:�"BYE":�:�
�
� �screen
��M%=4J%=39:�J%=79
��28,0,6,J%,0,12
�� A%(1279),V(20),F%(20)
�� P%(20),G%(359)
�V(0)=100:V(1)=-999:F%(0)=1

!F%(1)=-999:P%(0)=0:P%(1)=-999


J%=0:�

��axis(L%,I%)

�@%,J%,K%,S%,T%

"�0,1:�0,0:�0,800

,�0,400:�1279,400:�0,0

6�1279,0

@"�M%=4K%=120:J%=-48:�K%=90:J%=0

J�S%=0�1170�K%:�S%,0

T�S%,20:�S%+J%,50:�5

^�;S%;:�4:�

h�0,L%:�1279,0:� 1279,800

r�1260,0

|� T%=0 � 800 � 50

��1260,T%:�1279,T%

��M%=4J%=0:�J%=48

��1132+J%,T%+16:�5

��(T%-400)/I%:�4:�:�

�� �wave(A$):�

�!�"Calculating...please wait";

�� X%=0 � 359

�$H=(P%(J%)+(F%(J%)*X%))*1.7453E-2

�G%(X%)=V(J%)*�H

��69,X%,G%(X%)+400

�A%(X%)=A%(X%)+G%(X%):�:�

�
�A$�W(J%)

�� C%=360 � 1440 � 360

��X%=0+C%�359+C%
I�X%<1171A%(X%)=A%(X%)+G%(X%-C%):�69,X%,G%(X%-C%)+400:�X%=1799:C%=1440
	�:�:�
5ݤW(J%)=�s(V(J%))+"sin("+�F%(J%)+"x+"+�P%(J%)+")"
&Qݤs(V)�L%,v$:v$=è(V*100):L%=�v$:�L%>2:=�v$,L%-2)+"."+�v$,2)�="0."+�"0"+v$,2)
0� �DC_COMP
:2D=�val("Please enter DC level & press Return")
D9�D:Y%=�D:�X%=0�1170:A%(X%)=A%(X%)+Y%:� 69,X%,Y%+400:�
N�
X� �SUM_WAVE:�axis(1,1):�
b;�out("Plotting resultant complex waveform:"):T$="y="+�D
lJ%=0:� T$=T$+" + "+�W(J%)
vJ%=J%+1:� V(J%)=-999
��:�out(T$)
��0,400:�0,1:�X%=0�1170
��X%,A%(X%)+400:�:�
�� �PRINT
�*GDUMP 0 1 1 1
��
�ݤy(T$)�out(T$+"? (y/n)")
� �I%:�I%=�"YyNn",�):�I%:=I%<3
�$ݤval(T$)�V:�:�out(T$):�'"?"V:=V
���out(T$)�L%,W%
��M%=4:W%=40:�W%=80
�� w$=�w:L%=�w$
��+L%>=W%-1��>0�" ";
�w$;:�T$="":�
ݤw:�L%
L%=�T$+" "," ")
 w$=�T$,1,L%-1)
*T$=�T$,L%+1):=w$
�

00000000  0d 00 0a 12 f4 20 4d 41  4b 49 4e 47 20 57 41 56  |..... MAKING WAV|
00000010  45 53 0d 00 14 15 f4 20  62 79 20 50 2e 4c 2e 48  |ES..... by P.L.H|
00000020  6f 75 67 68 74 6f 6e 0d  00 1e 18 f4 20 28 63 29  |oughton..... (c)|
00000030  20 54 68 65 20 4d 69 63  72 6f 20 55 73 65 72 0d  | The Micro User.|
00000040  00 28 1e eb 31 33 35 3a  e7 93 3d 26 38 30 30 30  |.(..135:..=&8000|
00000050  3a 4d 25 3d 31 32 38 3a  8b 4d 25 3d 34 0d 00 32  |:M%=128:.M%=4..2|
00000060  0f eb 4d 25 3a f2 73 63  72 65 65 6e 0d 00 3c 15  |..M%:.screen..<.|
00000070  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 33  |.23;8202;0;0;0;3|
00000080  30 0d 00 46 2e f1 22 43  6f 6d 70 6c 65 78 20 57  |0..F.."Complex W|
00000090  61 76 65 73 20 66 72 6f  6d 20 53 69 6e 75 73 6f  |aves from Sinuso|
000000a0  69 64 61 6c 20 53 69 67  6e 61 6c 73 22 3a f1 0d  |idal Signals":..|
000000b0  00 50 17 f2 61 78 69 73  28 31 2c 31 29 3a f2 44  |.P..axis(1,1):.D|
000000c0  43 5f 43 4f 4d 50 0d 00  5a 8d 46 25 28 4a 25 29  |C_COMP..Z.F%(J%)|
000000d0  3d a4 76 61 6c 28 22 50  6c 65 61 73 65 20 65 6e  |=.val("Please en|
000000e0  74 65 72 20 74 68 65 20  66 72 65 71 75 65 6e 63  |ter the frequenc|
000000f0  79 20 61 73 20 61 20 6d  75 6c 74 69 70 6c 65 20  |y as a multiple |
00000100  6f 66 20 74 68 65 20 66  75 6e 64 61 6d 65 6e 74  |of the fundament|
00000110  61 6c 20 28 31 20 66 6f  72 20 66 75 6e 64 61 6d  |al (1 for fundam|
00000120  65 6e 74 61 6c 2c 20 32  20 66 6f 72 20 32 6e 64  |ental, 2 for 2nd|
00000130  20 68 61 72 6d 6f 6e 69  63 20 65 74 63 2e 29 20  | harmonic etc.) |
00000140  74 68 65 6e 20 70 72 65  73 73 20 52 65 74 75 72  |then press Retur|
00000150  6e 22 29 0d 00 64 a1 56  28 4a 25 29 3d a4 76 61  |n")..d.V(J%)=.va|
00000160  6c 28 22 45 6e 74 65 72  20 74 68 65 20 70 65 61  |l("Enter the pea|
00000170  6b 20 76 61 6c 75 65 20  6f 66 20 74 68 65 20 77  |k value of the w|
00000180  61 76 65 66 6f 72 6d 20  26 20 70 72 65 73 73 20  |aveform & press |
00000190  52 65 74 75 72 6e 20 28  61 20 76 61 6c 75 65 20  |Return (a value |
000001a0  6f 66 20 32 30 30 20 69  73 20 73 75 67 67 65 73  |of 200 is sugges|
000001b0  74 65 64 20 66 6f 72 20  74 68 65 20 66 75 6e 64  |ted for the fund|
000001c0  61 6d 65 6e 74 61 6c 20  74 68 65 6e 20 6f 74 68  |amental then oth|
000001d0  65 72 20 68 61 72 6d 6f  6e 69 63 73 20 6d 61 79  |er harmonics may|
000001e0  20 62 65 20 65 61 73 69  6c 79 20 73 63 61 6c 65  | be easily scale|
000001f0  64 29 22 29 0d 00 6e 69  50 25 28 4a 25 29 3d a4  |d)")..niP%(J%)=.|
00000200  76 61 6c 28 22 45 6e 74  65 72 20 61 6e 79 20 70  |val("Enter any p|
00000210  68 61 73 65 20 73 68 69  66 74 20 66 72 6f 6d 20  |hase shift from |
00000220  66 75 6e 64 61 6d 65 6e  74 61 6c 20 28 69 6e 20  |fundamental (in |
00000230  64 65 67 72 65 65 73 20  62 65 74 77 65 65 6e 20  |degrees between |
00000240  30 20 61 6e 64 20 33 35  39 29 20 61 6e 64 20 70  |0 and 359) and p|
00000250  72 65 73 73 20 52 65 74  75 72 6e 22 29 0d 00 78  |ress Return")..x|
00000260  1c f2 77 61 76 65 28 22  4e 6f 77 20 70 6c 6f 74  |..wave("Now plot|
00000270  74 69 6e 67 20 79 3d 22  29 0d 00 82 57 e7 a4 79  |ting y=")...W..y|
00000280  28 22 44 72 61 77 20 61  6e 6f 74 68 65 72 20 66  |("Draw another f|
00000290  72 65 71 75 65 6e 63 79  22 29 4a 25 3d 4a 25 2b  |requency")J%=J%+|
000002a0  31 3a 56 28 4a 25 2b 31  29 3d 2d 39 39 39 3a 46  |1:V(J%+1)=-999:F|
000002b0  25 28 4a 25 2b 31 29 3d  2d 39 39 39 3a 50 25 28  |%(J%+1)=-999:P%(|
000002c0  4a 25 2b 31 29 3d 2d 39  39 39 3a e5 8d 44 5a 40  |J%+1)=-999:..DZ@|
000002d0  0d 00 8c 34 db 3a e7 ac  a4 79 28 22 56 69 65 77  |...4.:...y("View|
000002e0  20 74 68 65 20 72 65 73  75 6c 74 61 6e 74 20 63  | the resultant c|
000002f0  6f 6d 70 6c 65 78 20 77  61 76 65 22 29 20 8c 20  |omplex wave") . |
00000300  8d 74 6a 40 0d 00 96 24  db 3a e7 a4 79 28 22 43  |.tj@...$.:..y("C|
00000310  6c 65 61 72 20 63 6f 6d  70 6f 6e 65 6e 74 73 20  |lear components |
00000320  66 69 72 73 74 22 29 da  0d 00 a0 0d f2 53 55 4d  |first")......SUM|
00000330  5f 57 41 56 45 0d 00 aa  27 e7 a4 79 28 22 44 6f  |_WAVE...'..y("Do|
00000340  20 79 6f 75 20 77 61 6e  74 20 61 20 70 72 69 6e  | you want a prin|
00000350  74 6f 75 74 22 29 f2 70  72 69 6e 74 0d 00 b4 07  |tout").print....|
00000360  db 3a f1 0d 00 be 2c e7  a4 79 28 22 43 6c 65 61  |.:....,..y("Clea|
00000370  72 20 63 6f 6d 70 6f 6e  65 6e 74 73 20 26 20 72  |r components & r|
00000380  65 2d 70 6c 6f 74 22 29  da 3a e5 8d 74 60 40 0d  |e-plot").:..t`@.|
00000390  00 c8 1f db 3a e7 a4 79  28 22 52 75 6e 20 70 72  |....:..y("Run pr|
000003a0  6f 67 72 61 6d 20 61 67  61 69 6e 22 29 f9 0d 00  |ogram again")...|
000003b0  d2 10 db 3a f1 22 42 59  45 22 3a f1 3a e0 0d 00  |...:."BYE":.:...|
000003c0  dc 0d dd 20 f2 73 63 72  65 65 6e 0d 00 e0 15 e7  |... .screen.....|
000003d0  4d 25 3d 34 4a 25 3d 33  39 3a 8b 4a 25 3d 37 39  |M%=4J%=39:.J%=79|
000003e0  0d 00 e1 13 ef 32 38 2c  30 2c 36 2c 4a 25 2c 30  |.....28,0,6,J%,0|
000003f0  2c 31 32 0d 00 e6 1b de  20 41 25 28 31 32 37 39  |,12..... A%(1279|
00000400  29 2c 56 28 32 30 29 2c  46 25 28 32 30 29 0d 00  |),V(20),F%(20)..|
00000410  f0 14 de 20 50 25 28 32  30 29 2c 47 25 28 33 35  |... P%(20),G%(35|
00000420  39 29 0d 00 fa 1e 56 28  30 29 3d 31 30 30 3a 56  |9)....V(0)=100:V|
00000430  28 31 29 3d 2d 39 39 39  3a 46 25 28 30 29 3d 31  |(1)=-999:F%(0)=1|
00000440  0d 01 04 21 46 25 28 31  29 3d 2d 39 39 39 3a 50  |...!F%(1)=-999:P|
00000450  25 28 30 29 3d 30 3a 50  25 28 31 29 3d 2d 39 39  |%(0)=0:P%(1)=-99|
00000460  39 0d 01 0e 0a 4a 25 3d  30 3a e1 0d 01 18 11 dd  |9....J%=0:......|
00000470  f2 61 78 69 73 28 4c 25  2c 49 25 29 0d 01 1d 13  |.axis(L%,I%)....|
00000480  ea 40 25 2c 4a 25 2c 4b  25 2c 53 25 2c 54 25 0d  |.@%,J%,K%,S%,T%.|
00000490  01 22 14 e6 30 2c 31 3a  ec 30 2c 30 3a df 30 2c  |."..0,1:.0,0:.0,|
000004a0  38 30 30 0d 01 2c 19 ec  30 2c 34 30 30 3a df 31  |800..,..0,400:.1|
000004b0  32 37 39 2c 34 30 30 3a  ec 30 2c 30 0d 01 36 0b  |279,400:.0,0..6.|
000004c0  df 31 32 37 39 2c 30 0d  01 40 22 e7 4d 25 3d 34  |.1279,0..@".M%=4|
000004d0  4b 25 3d 31 32 30 3a 4a  25 3d 2d 34 38 3a 8b 4b  |K%=120:J%=-48:.K|
000004e0  25 3d 39 30 3a 4a 25 3d  30 0d 01 4a 17 e3 53 25  |%=90:J%=0..J..S%|
000004f0  3d 30 b8 31 31 37 30 88  4b 25 3a ec 53 25 2c 30  |=0.1170.K%:.S%,0|
00000500  0d 01 54 17 df 53 25 2c  32 30 3a ec 53 25 2b 4a  |..T..S%,20:.S%+J|
00000510  25 2c 35 30 3a ef 35 0d  01 5e 0e f1 3b 53 25 3b  |%,50:.5..^..;S%;|
00000520  3a ef 34 3a ed 0d 01 68  1c e6 30 2c 4c 25 3a ec  |:.4:...h..0,L%:.|
00000530  31 32 37 39 2c 30 3a df  20 31 32 37 39 2c 38 30  |1279,0:. 1279,80|
00000540  30 0d 01 72 0b ec 31 32  36 30 2c 30 0d 01 7c 15  |0..r..1260,0..|.|
00000550  e3 20 54 25 3d 30 20 b8  20 38 30 30 20 88 20 35  |. T%=0 . 800 . 5|
00000560  30 0d 01 86 15 ec 31 32  36 30 2c 54 25 3a df 31  |0.....1260,T%:.1|
00000570  32 37 39 2c 54 25 0d 01  8b 14 e7 4d 25 3d 34 4a  |279,T%.....M%=4J|
00000580  25 3d 30 3a 8b 4a 25 3d  34 38 0d 01 90 15 ec 31  |%=0:.J%=48.....1|
00000590  31 33 32 2b 4a 25 2c 54  25 2b 31 36 3a ef 35 0d  |132+J%,T%+16:.5.|
000005a0  01 9a 17 f1 28 54 25 2d  34 30 30 29 2f 49 25 3a  |....(T%-400)/I%:|
000005b0  ef 34 3a ed 3a e1 0d 01  a4 11 dd 20 f2 77 61 76  |.4:.:...... .wav|
000005c0  65 28 41 24 29 3a db 0d  01 ae 21 f1 22 43 61 6c  |e(A$):....!."Cal|
000005d0  63 75 6c 61 74 69 6e 67  2e 2e 2e 70 6c 65 61 73  |culating...pleas|
000005e0  65 20 77 61 69 74 22 3b  0d 01 b8 10 e3 20 58 25  |e wait";..... X%|
000005f0  3d 30 20 b8 20 33 35 39  0d 01 c2 24 48 3d 28 50  |=0 . 359...$H=(P|
00000600  25 28 4a 25 29 2b 28 46  25 28 4a 25 29 2a 58 25  |%(J%)+(F%(J%)*X%|
00000610  29 29 2a 31 2e 37 34 35  33 45 2d 32 0d 01 cc 13  |))*1.7453E-2....|
00000620  47 25 28 58 25 29 3d 56  28 4a 25 29 2a b5 48 0d  |G%(X%)=V(J%)*.H.|
00000630  01 d6 15 f0 36 39 2c 58  25 2c 47 25 28 58 25 29  |....69,X%,G%(X%)|
00000640  2b 34 30 30 0d 01 e0 1c  41 25 28 58 25 29 3d 41  |+400....A%(X%)=A|
00000650  25 28 58 25 29 2b 47 25  28 58 25 29 3a ed 3a db  |%(X%)+G%(X%):.:.|
00000660  0d 01 ea 0d f1 41 24 a4  57 28 4a 25 29 0d 01 f4  |.....A$.W(J%)...|
00000670  19 e3 20 43 25 3d 33 36  30 20 b8 20 31 34 34 30  |.. C%=360 . 1440|
00000680  20 88 20 33 36 30 0d 01  fe 13 e3 58 25 3d 30 2b  | . 360.....X%=0+|
00000690  43 25 b8 33 35 39 2b 43  25 0d 02 08 49 e7 58 25  |C%.359+C%...I.X%|
000006a0  3c 31 31 37 31 41 25 28  58 25 29 3d 41 25 28 58  |<1171A%(X%)=A%(X|
000006b0  25 29 2b 47 25 28 58 25  2d 43 25 29 3a f0 36 39  |%)+G%(X%-C%):.69|
000006c0  2c 58 25 2c 47 25 28 58  25 2d 43 25 29 2b 34 30  |,X%,G%(X%-C%)+40|
000006d0  30 3a 8b 58 25 3d 31 37  39 39 3a 43 25 3d 31 34  |0:.X%=1799:C%=14|
000006e0  34 30 0d 02 12 09 ed 3a  ed 3a e1 0d 02 1c 35 dd  |40.....:.:....5.|
000006f0  a4 57 28 4a 25 29 3d a4  73 28 56 28 4a 25 29 29  |.W(J%)=.s(V(J%))|
00000700  2b 22 73 69 6e 28 22 2b  c3 46 25 28 4a 25 29 2b  |+"sin("+.F%(J%)+|
00000710  22 78 2b 22 2b c3 50 25  28 4a 25 29 2b 22 29 22  |"x+"+.P%(J%)+")"|
00000720  0d 02 26 51 dd a4 73 28  56 29 ea 4c 25 2c 76 24  |..&Q..s(V).L%,v$|
00000730  3a 76 24 3d c3 a8 28 56  2a 31 30 30 29 3a 4c 25  |:v$=..(V*100):L%|
00000740  3d a9 76 24 3a e7 4c 25  3e 32 3a 3d c0 76 24 2c  |=.v$:.L%>2:=.v$,|
00000750  4c 25 2d 32 29 2b 22 2e  22 2b c2 76 24 2c 32 29  |L%-2)+"."+.v$,2)|
00000760  8b 3d 22 30 2e 22 2b c2  22 30 22 2b 76 24 2c 32  |.="0."+."0"+v$,2|
00000770  29 0d 02 30 0e dd 20 f2  44 43 5f 43 4f 4d 50 0d  |)..0.. .DC_COMP.|
00000780  02 3a 32 44 3d a4 76 61  6c 28 22 50 6c 65 61 73  |.:2D=.val("Pleas|
00000790  65 20 65 6e 74 65 72 20  44 43 20 6c 65 76 65 6c  |e enter DC level|
000007a0  20 26 20 70 72 65 73 73  20 52 65 74 75 72 6e 22  | & press Return"|
000007b0  29 0d 02 44 39 e7 44 3a  59 25 3d a8 44 3a e3 58  |)..D9.D:Y%=.D:.X|
000007c0  25 3d 30 b8 31 31 37 30  3a 41 25 28 58 25 29 3d  |%=0.1170:A%(X%)=|
000007d0  41 25 28 58 25 29 2b 59  25 3a f0 20 36 39 2c 58  |A%(X%)+Y%:. 69,X|
000007e0  25 2c 59 25 2b 34 30 30  3a ed 0d 02 4e 05 e1 0d  |%,Y%+400:...N...|
000007f0  02 58 1c dd 20 f2 53 55  4d 5f 57 41 56 45 3a f2  |.X.. .SUM_WAVE:.|
00000800  61 78 69 73 28 31 2c 31  29 3a db 0d 02 62 3b f2  |axis(1,1):...b;.|
00000810  6f 75 74 28 22 50 6c 6f  74 74 69 6e 67 20 72 65  |out("Plotting re|
00000820  73 75 6c 74 61 6e 74 20  63 6f 6d 70 6c 65 78 20  |sultant complex |
00000830  77 61 76 65 66 6f 72 6d  3a 22 29 3a 54 24 3d 22  |waveform:"):T$="|
00000840  79 3d 22 2b c3 44 0d 02  6c 1d 4a 25 3d 30 3a f5  |y="+.D..l.J%=0:.|
00000850  20 54 24 3d 54 24 2b 22  20 2b 20 22 2b a4 57 28  | T$=T$+" + "+.W(|
00000860  4a 25 29 0d 02 76 18 4a  25 3d 4a 25 2b 31 3a fd  |J%)..v.J%=J%+1:.|
00000870  20 56 28 4a 25 29 3d 2d  39 39 39 0d 02 80 0e f1  | V(J%)=-999.....|
00000880  3a f2 6f 75 74 28 54 24  29 0d 02 8a 1a ec 30 2c  |:.out(T$).....0,|
00000890  34 30 30 3a e6 30 2c 31  3a e3 58 25 3d 30 b8 31  |400:.0,1:.X%=0.1|
000008a0  31 37 30 0d 02 94 16 df  58 25 2c 41 25 28 58 25  |170.....X%,A%(X%|
000008b0  29 2b 34 30 30 3a ed 3a  e1 0d 02 9e 0c dd 20 f2  |)+400:.:...... .|
000008c0  50 52 49 4e 54 0d 02 a8  12 2a 47 44 55 4d 50 20  |PRINT....*GDUMP |
000008d0  30 20 31 20 31 20 31 0d  02 b2 05 e1 0d 02 bc 1d  |0 1 1 1.........|
000008e0  dd a4 79 28 54 24 29 f2  6f 75 74 28 54 24 2b 22  |..y(T$).out(T$+"|
000008f0  3f 20 28 79 2f 6e 29 22  29 0d 02 c6 20 ea 49 25  |? (y/n)")... .I%|
00000900  3a f5 49 25 3d a7 22 59  79 4e 6e 22 2c be 29 3a  |:.I%=."YyNn",.):|
00000910  fd 49 25 3a 3d 49 25 3c  33 0d 02 d0 24 dd a4 76  |.I%:=I%<3...$..v|
00000920  61 6c 28 54 24 29 ea 56  3a db 3a f2 6f 75 74 28  |al(T$).V:.:.out(|
00000930  54 24 29 3a e8 27 22 3f  22 56 3a 3d 56 0d 02 da  |T$):.'"?"V:=V...|
00000940  13 dd f2 6f 75 74 28 54  24 29 ea 4c 25 2c 57 25  |...out(T$).L%,W%|
00000950  0d 02 e4 16 e7 4d 25 3d  34 3a 57 25 3d 34 30 3a  |.....M%=4:W%=40:|
00000960  8b 57 25 3d 38 30 0d 02  ee 12 f5 20 77 24 3d a4  |.W%=80..... w$=.|
00000970  77 3a 4c 25 3d a9 77 24  0d 02 f8 1a e7 9c 2b 4c  |w:L%=.w$......+L|
00000980  25 3e 3d 57 25 2d 31 f1  8b e7 9c 3e 30 f1 22 20  |%>=W%-1....>0." |
00000990  22 3b 0d 03 02 11 f1 77  24 3b 3a fd 54 24 3d 22  |";.....w$;:.T$="|
000009a0  22 3a e1 0d 03 0c 0b dd  a4 77 3a ea 4c 25 0d 03  |":.......w:.L%..|
000009b0  16 13 4c 25 3d a7 54 24  2b 22 20 22 2c 22 20 22  |..L%=.T$+" "," "|
000009c0  29 0d 03 20 12 77 24 3d  c1 54 24 2c 31 2c 4c 25  |).. .w$=.T$,1,L%|
000009d0  2d 31 29 0d 03 2a 14 54  24 3d c1 54 24 2c 4c 25  |-1)..*.T$=.T$,L%|
000009e0  2b 31 29 3a 3d 77 24 0d  ff                       |+1):=w$..|
000009e9