"�"�***�Ultra-sonic testing�***
�"�(C) by Ray Morris 1984
��ThE
((�23,240,24,60,126,127,254,126,124,24
2�:�7:�menu
<�A=�-64:� A>0 � A<3
F�1
P� A=1 �crt:�layout:�action
Z3� A=2 �crt:�layout1:�0,1:�probe(1,850):�action1
d�0
n
� �crt
x�19,1,2;0;19,3,6;0;
���0,3:�:�25,4,95;495;25,5,95;905;25,5,605;905;25,5,605;495;25,5,95;495;25,4,75;400;25,5,75;925;25,5,625;925;25,5,625;400;25,5,75;400;
�#�0,2:�5:�160,450:�"CRT Display"
��
�
� �layout
��23;8202;0;0;0;0;
��0,3
���25,4,800;700;25,5,1150;700;25,4,900;700;25,5,900;900;25,5,1050;900;25,5,1050;700;25,4,975;700;25,5,975;750;25,4,900;750;25,5,1050;750;25,4,975;900;25,5,975;950;
��0,2:�700,850:�"Probe"
��1125,680:�"Metal"
�+�150,70:�"ULTRASONIC THICKNESS TESTING"
�C�0,1:�50,300:�"Press 'A' or 'Z'":�50,250:�"to change thickness"
��
�
� �action


T%=500

�0,3:�4,800,T%:�5,1150,T%

�

"�1,-15,250,1

,� �(0)=65 � �up:*FX21,0

6� �(0)=90 � �down:*FX21,0

@X%=975:Y%=695:Y1%=975

J*DX%=100:DX1%=100:DY%=510:INC=-10:Inc=4

T�24,100;500;600;900;

^	�:�26

h;�0,1:�4,DX%,DY%:�5,DX%,DY%+350:�5,DX%+10,DY%:DX%=DX%+10

r�

|�71,X%,Y1%

�
�69,X%,Y%

�� Y%<T% � INC=-INC

�DX1%=DX%:DX%=DX%+Inc

�Y1%=Y%:Y%=Y%+INC

�e� Y%>=700 ��4,DX%,DY%:�5,DX%,DY%+180:�5,DX%+10,DY%:DX%=DX%+10:�5,600,DY%:� �4,DX1%,DY%:�5,DX%,DY%

�� Y%>700

�
� �(0)=32

��

�	� �up

��0,0:�4,800,T%:�5,1150,T%

�T%=T%+10

�� T%>650 � T%=650

��0,3:�4,800,T%:�5,1150,T%
�
� �down
�0,0:�4,800,T%:�5,1150,T%
&T%=T%-10:� T%<200 � T%=200
0�0,3:�4,800,T%:�5,1150,T%
:�
D� �menu
N�23;8202;0;0;0;0;
X)�I=2�3:�9,I)�141"�NON-DESTRUCTIVE":�
b"�I=5�6:�13,I)�141"�TESTING":�
l�11,7)"�by Ray Morris"
v��''"�This is a demonstration of the use of  �ultra-sonics in the measurement of     �the thickness of metals and quality    �of welds"
��'"�Please select -"
�#�'"�     A -�Thickness testing"
��'"�     B -�Weld testing"
�/�''"�Pressing spacebar will return to menu"
��
�� �layout1
�t�0,3:�25,4,200;300;25,5,1200;300;25,4,200;100;25,5,1200;100;25,4,500;300;25,5,550;100;25,4,650;300;25,5,600;100;
�5�0,1:�5:�800,420:�"45  Angle Probe":�865,435:�"o"
�N�850,500:�"Press < or >":�900,460:�"To move ":�0,2:�370,50:�"WELD SECTION"
�D�800,900:�"ULTRA-SONIC":�800,850:�"TESTING of":�900,800:�"WELDS"
��
�� �probe(D%,A%)
�7�4,A%-50,304:�D%,0,50:�D%,75,0:�D%,25,-25:�D%,0,-24
�
� �action1
RL%=850:inc=2:�19,1,2;0;
 "�5:�600,180:�240:�525,280:�240
*
�0,1:�
4"X%=RL%:Y%=295:X1%=1000:Y1%=295
>YINC=10:XINC=10:DDY%=660
HDX%=100:DY%=520
R�(0)=44 �left:*FX21,0
\�(0)=46 �right:*FX21,0
f�(0)=88 inc=inc+1:*FX21,0
p�(0)=90 inc=inc-1:*FX21,0
z� inc<1 inc=1
�� inc>600 inc=600
��24,100;500;600;900;:�:�26
�@�4,DX%,DY%:�5,DX%,DY%+250:DX%=DX%+inc:�5,DX%,DY%:DX%=DX%+inc
��1,-15,250,1
��
��71,X1%,Y1%
�
�69,X%,Y%
�X1%=X%:Y1%=Y%
�X%=X%-XINC:Y%=Y%-YINC
�� Y%<110 Y%=105:YINC=-YINC
�� Y%>295 Y%=295:YINC=-YINC
�4� �X%,Y%)=1 � YINC=-YINC:XINC=-XINC:�1,-15,250,1
�	�line
"DX%=DX%+inc:�DX%>600 � DX%=600
�71,X1%,Y1%
�X%>=RL% �peak
$�IFX%<200 THEN XINC=-XINC
.� X%<200 � X%>RL%
8�4,DX%,520:�5,600,520
B#�5:�600,180:�240:�525,280:�240 
L��(0)=32
V�
`� �peak
j�24,100;500;600;900;
t6�4,DX%,DY%:�5,DX%,DDY%:�5,DX%+inc,DY%:DDY%=DDY%-15
~	�26:�
�� �line
��24,100;500;600;900;
��4,DX%,DY%:�5,DX%+inc,DY%
�	�26:�
�� �left
� �probe(3,X%):�probe(1,X%-10)
�RL%=RL%-10
�� RL%<250 RL%=RL%+10
�� RL%>1100 �probe(3,X%+10)
��
�� �right
� �probe(3,X%):�probe(1,X%+10)
� RL%>1120 �

� RL%<260 �probe(3,X%-10)
RL%=RL%+10
�
( �7:�:�"�at Line�";�:*FX11,25
�

00000000  0d 00 0a 22 f4 22 83 2a  2a 2a 86 55 6c 74 72 61  |...".".***.Ultra|
00000010  2d 73 6f 6e 69 63 20 74  65 73 74 69 6e 67 83 2a  |-sonic testing.*|
00000020  2a 2a 0d 00 14 1d f4 22  81 28 43 29 20 62 79 20  |**.....".(C) by |
00000030  52 61 79 20 4d 6f 72 72  69 73 20 31 39 38 34 0d  |Ray Morris 1984.|
00000040  00 1e 0b ee 85 e5 8d 54  68 45 0d 00 28 28 ef 32  |.......ThE..((.2|
00000050  33 2c 32 34 30 2c 32 34  2c 36 30 2c 31 32 36 2c  |3,240,24,60,126,|
00000060  31 32 37 2c 32 35 34 2c  31 32 36 2c 31 32 34 2c  |127,254,126,124,|
00000070  32 34 0d 00 32 0e f5 3a  eb 37 3a f2 6d 65 6e 75  |24..2..:.7:.menu|
00000080  0d 00 3c 17 f5 41 3d a5  2d 36 34 3a fd 20 41 3e  |..<..A=.-64:. A>|
00000090  30 20 80 20 41 3c 33 0d  00 46 06 eb 31 0d 00 50  |0 . A<3..F..1..P|
000000a0  1e e7 20 41 3d 31 20 f2  63 72 74 3a f2 6c 61 79  |.. A=1 .crt:.lay|
000000b0  6f 75 74 3a f2 61 63 74  69 6f 6e 0d 00 5a 33 e7  |out:.action..Z3.|
000000c0  20 41 3d 32 20 f2 63 72  74 3a f2 6c 61 79 6f 75  | A=2 .crt:.layou|
000000d0  74 31 3a e6 30 2c 31 3a  f2 70 72 6f 62 65 28 31  |t1:.0,1:.probe(1|
000000e0  2c 38 35 30 29 3a f2 61  63 74 69 6f 6e 31 0d 00  |,850):.action1..|
000000f0  64 06 fd 30 0d 00 6e 0a  dd 20 f2 63 72 74 0d 00  |d..0..n.. .crt..|
00000100  78 17 ef 31 39 2c 31 2c  32 3b 30 3b 31 39 2c 33  |x..19,1,2;0;19,3|
00000110  2c 36 3b 30 3b 0d 00 82  88 e6 30 2c 33 3a db 3a  |,6;0;.....0,3:.:|
00000120  ef 32 35 2c 34 2c 39 35  3b 34 39 35 3b 32 35 2c  |.25,4,95;495;25,|
00000130  35 2c 39 35 3b 39 30 35  3b 32 35 2c 35 2c 36 30  |5,95;905;25,5,60|
00000140  35 3b 39 30 35 3b 32 35  2c 35 2c 36 30 35 3b 34  |5;905;25,5,605;4|
00000150  39 35 3b 32 35 2c 35 2c  39 35 3b 34 39 35 3b 32  |95;25,5,95;495;2|
00000160  35 2c 34 2c 37 35 3b 34  30 30 3b 32 35 2c 35 2c  |5,4,75;400;25,5,|
00000170  37 35 3b 39 32 35 3b 32  35 2c 35 2c 36 32 35 3b  |75;925;25,5,625;|
00000180  39 32 35 3b 32 35 2c 35  2c 36 32 35 3b 34 30 30  |925;25,5,625;400|
00000190  3b 32 35 2c 35 2c 37 35  3b 34 30 30 3b 0d 00 8c  |;25,5,75;400;...|
000001a0  23 e6 30 2c 32 3a ef 35  3a ec 31 36 30 2c 34 35  |#.0,2:.5:.160,45|
000001b0  30 3a f1 22 43 52 54 20  44 69 73 70 6c 61 79 22  |0:."CRT Display"|
000001c0  0d 00 96 05 e1 0d 00 a0  0d dd 20 f2 6c 61 79 6f  |.......... .layo|
000001d0  75 74 0d 00 aa 15 ef 32  33 3b 38 32 30 32 3b 30  |ut.....23;8202;0|
000001e0  3b 30 3b 30 3b 30 3b 0d  00 b4 08 e6 30 2c 33 0d  |;0;0;0;.....0,3.|
000001f0  00 be a5 ef 32 35 2c 34  2c 38 30 30 3b 37 30 30  |....25,4,800;700|
00000200  3b 32 35 2c 35 2c 31 31  35 30 3b 37 30 30 3b 32  |;25,5,1150;700;2|
00000210  35 2c 34 2c 39 30 30 3b  37 30 30 3b 32 35 2c 35  |5,4,900;700;25,5|
00000220  2c 39 30 30 3b 39 30 30  3b 32 35 2c 35 2c 31 30  |,900;900;25,5,10|
00000230  35 30 3b 39 30 30 3b 32  35 2c 35 2c 31 30 35 30  |50;900;25,5,1050|
00000240  3b 37 30 30 3b 32 35 2c  34 2c 39 37 35 3b 37 30  |;700;25,4,975;70|
00000250  30 3b 32 35 2c 35 2c 39  37 35 3b 37 35 30 3b 32  |0;25,5,975;750;2|
00000260  35 2c 34 2c 39 30 30 3b  37 35 30 3b 32 35 2c 35  |5,4,900;750;25,5|
00000270  2c 31 30 35 30 3b 37 35  30 3b 32 35 2c 34 2c 39  |,1050;750;25,4,9|
00000280  37 35 3b 39 30 30 3b 32  35 2c 35 2c 39 37 35 3b  |75;900;25,5,975;|
00000290  39 35 30 3b 0d 00 c8 1a  e6 30 2c 32 3a ec 37 30  |950;.....0,2:.70|
000002a0  30 2c 38 35 30 3a f1 22  50 72 6f 62 65 22 0d 00  |0,850:."Probe"..|
000002b0  d2 16 ec 31 31 32 35 2c  36 38 30 3a f1 22 4d 65  |...1125,680:."Me|
000002c0  74 61 6c 22 0d 00 dc 2b  ec 31 35 30 2c 37 30 3a  |tal"...+.150,70:|
000002d0  f1 22 55 4c 54 52 41 53  4f 4e 49 43 20 54 48 49  |."ULTRASONIC THI|
000002e0  43 4b 4e 45 53 53 20 54  45 53 54 49 4e 47 22 0d  |CKNESS TESTING".|
000002f0  00 e6 43 e6 30 2c 31 3a  ec 35 30 2c 33 30 30 3a  |..C.0,1:.50,300:|
00000300  f1 22 50 72 65 73 73 20  27 41 27 20 6f 72 20 27  |."Press 'A' or '|
00000310  5a 27 22 3a ec 35 30 2c  32 35 30 3a f1 22 74 6f  |Z'":.50,250:."to|
00000320  20 63 68 61 6e 67 65 20  74 68 69 63 6b 6e 65 73  | change thicknes|
00000330  73 22 0d 00 f0 05 e1 0d  00 fa 0d dd 20 f2 61 63  |s".......... .ac|
00000340  74 69 6f 6e 0d 01 04 0a  54 25 3d 35 30 30 0d 01  |tion....T%=500..|
00000350  0e 1d e6 30 2c 33 3a f0  34 2c 38 30 30 2c 54 25  |...0,3:.4,800,T%|
00000360  3a f0 35 2c 31 31 35 30  2c 54 25 0d 01 18 05 f5  |:.5,1150,T%.....|
00000370  0d 01 22 10 d4 31 2c 2d  31 35 2c 32 35 30 2c 31  |.."..1,-15,250,1|
00000380  0d 01 2c 1b e7 20 a6 28  30 29 3d 36 35 20 8c 20  |..,.. .(0)=65 . |
00000390  f2 75 70 3a 2a 46 58 32  31 2c 30 0d 01 36 1d e7  |.up:*FX21,0..6..|
000003a0  20 a6 28 30 29 3d 39 30  20 8c 20 f2 64 6f 77 6e  | .(0)=90 . .down|
000003b0  3a 2a 46 58 32 31 2c 30  0d 01 40 19 58 25 3d 39  |:*FX21,0..@.X%=9|
000003c0  37 35 3a 59 25 3d 36 39  35 3a 59 31 25 3d 39 37  |75:Y%=695:Y1%=97|
000003d0  35 0d 01 4a 2a 44 58 25  3d 31 30 30 3a 44 58 31  |5..J*DX%=100:DX1|
000003e0  25 3d 31 30 30 3a 44 59  25 3d 35 31 30 3a 49 4e  |%=100:DY%=510:IN|
000003f0  43 3d 2d 31 30 3a 49 6e  63 3d 34 0d 01 54 18 ef  |C=-10:Inc=4..T..|
00000400  32 34 2c 31 30 30 3b 35  30 30 3b 36 30 30 3b 39  |24,100;500;600;9|
00000410  30 30 3b 0d 01 5e 09 da  3a ef 32 36 0d 01 68 3b  |00;..^..:.26..h;|
00000420  e6 30 2c 31 3a f0 34 2c  44 58 25 2c 44 59 25 3a  |.0,1:.4,DX%,DY%:|
00000430  f0 35 2c 44 58 25 2c 44  59 25 2b 33 35 30 3a f0  |.5,DX%,DY%+350:.|
00000440  35 2c 44 58 25 2b 31 30  2c 44 59 25 3a 44 58 25  |5,DX%+10,DY%:DX%|
00000450  3d 44 58 25 2b 31 30 0d  01 72 05 f5 0d 01 7c 0e  |=DX%+10..r....|.|
00000460  f0 37 31 2c 58 25 2c 59  31 25 0d 01 86 0d f0 36  |.71,X%,Y1%.....6|
00000470  39 2c 58 25 2c 59 25 0d  01 90 16 e7 20 59 25 3c  |9,X%,Y%..... Y%<|
00000480  54 25 20 8c 20 49 4e 43  3d 2d 49 4e 43 0d 01 9a  |T% . INC=-INC...|
00000490  18 44 58 31 25 3d 44 58  25 3a 44 58 25 3d 44 58  |.DX1%=DX%:DX%=DX|
000004a0  25 2b 49 6e 63 0d 01 a4  14 59 31 25 3d 59 25 3a  |%+Inc....Y1%=Y%:|
000004b0  59 25 3d 59 25 2b 49 4e  43 0d 01 ae 65 e7 20 59  |Y%=Y%+INC...e. Y|
000004c0  25 3e 3d 37 30 30 20 8c  f0 34 2c 44 58 25 2c 44  |%>=700 ..4,DX%,D|
000004d0  59 25 3a f0 35 2c 44 58  25 2c 44 59 25 2b 31 38  |Y%:.5,DX%,DY%+18|
000004e0  30 3a f0 35 2c 44 58 25  2b 31 30 2c 44 59 25 3a  |0:.5,DX%+10,DY%:|
000004f0  44 58 25 3d 44 58 25 2b  31 30 3a f0 35 2c 36 30  |DX%=DX%+10:.5,60|
00000500  30 2c 44 59 25 3a 8b 20  f0 34 2c 44 58 31 25 2c  |0,DY%:. .4,DX1%,|
00000510  44 59 25 3a f0 35 2c 44  58 25 2c 44 59 25 0d 01  |DY%:.5,DX%,DY%..|
00000520  b8 0c fd 20 59 25 3e 37  30 30 0d 01 c2 0d fd 20  |... Y%>700..... |
00000530  a6 28 30 29 3d 33 32 0d  01 cc 05 e1 0d 01 d6 09  |.(0)=32.........|
00000540  dd 20 f2 75 70 0d 01 e0  1d e6 30 2c 30 3a f0 34  |. .up.....0,0:.4|
00000550  2c 38 30 30 2c 54 25 3a  f0 35 2c 31 31 35 30 2c  |,800,T%:.5,1150,|
00000560  54 25 0d 01 ea 0c 54 25  3d 54 25 2b 31 30 0d 01  |T%....T%=T%+10..|
00000570  f4 15 e7 20 54 25 3e 36  35 30 20 8c 20 54 25 3d  |... T%>650 . T%=|
00000580  36 35 30 0d 01 fe 1d e6  30 2c 33 3a f0 34 2c 38  |650.....0,3:.4,8|
00000590  30 30 2c 54 25 3a f0 35  2c 31 31 35 30 2c 54 25  |00,T%:.5,1150,T%|
000005a0  0d 02 08 05 e1 0d 02 12  0b dd 20 f2 64 6f 77 6e  |.......... .down|
000005b0  0d 02 1c 1d e6 30 2c 30  3a f0 34 2c 38 30 30 2c  |.....0,0:.4,800,|
000005c0  54 25 3a f0 35 2c 31 31  35 30 2c 54 25 0d 02 26  |T%:.5,1150,T%..&|
000005d0  1e 54 25 3d 54 25 2d 31  30 3a e7 20 54 25 3c 32  |.T%=T%-10:. T%<2|
000005e0  30 30 20 8c 20 54 25 3d  32 30 30 0d 02 30 1d e6  |00 . T%=200..0..|
000005f0  30 2c 33 3a f0 34 2c 38  30 30 2c 54 25 3a f0 35  |0,3:.4,800,T%:.5|
00000600  2c 31 31 35 30 2c 54 25  0d 02 3a 05 e1 0d 02 44  |,1150,T%..:....D|
00000610  0b dd 20 f2 6d 65 6e 75  0d 02 4e 15 ef 32 33 3b  |.. .menu..N..23;|
00000620  38 32 30 32 3b 30 3b 30  3b 30 3b 30 3b 0d 02 58  |8202;0;0;0;0;..X|
00000630  29 e3 49 3d 32 b8 33 3a  f1 8a 39 2c 49 29 bd 31  |).I=2.3:..9,I).1|
00000640  34 31 22 86 4e 4f 4e 2d  44 45 53 54 52 55 43 54  |41".NON-DESTRUCT|
00000650  49 56 45 22 3a ed 0d 02  62 22 e3 49 3d 35 b8 36  |IVE":...b".I=5.6|
00000660  3a f1 8a 31 33 2c 49 29  bd 31 34 31 22 86 54 45  |:..13,I).141".TE|
00000670  53 54 49 4e 47 22 3a ed  0d 02 6c 1b f1 8a 31 31  |STING":...l...11|
00000680  2c 37 29 22 81 62 79 20  52 61 79 20 4d 6f 72 72  |,7)".by Ray Morr|
00000690  69 73 22 0d 02 76 8a f1  27 27 22 83 54 68 69 73  |is"..v..''".This|
000006a0  20 69 73 20 61 20 64 65  6d 6f 6e 73 74 72 61 74  | is a demonstrat|
000006b0  69 6f 6e 20 6f 66 20 74  68 65 20 75 73 65 20 6f  |ion of the use o|
000006c0  66 20 20 83 75 6c 74 72  61 2d 73 6f 6e 69 63 73  |f  .ultra-sonics|
000006d0  20 69 6e 20 74 68 65 20  6d 65 61 73 75 72 65 6d  | in the measurem|
000006e0  65 6e 74 20 6f 66 20 20  20 20 20 83 74 68 65 20  |ent of     .the |
000006f0  74 68 69 63 6b 6e 65 73  73 20 6f 66 20 6d 65 74  |thickness of met|
00000700  61 6c 73 20 61 6e 64 20  71 75 61 6c 69 74 79 20  |als and quality |
00000710  20 20 20 83 6f 66 20 77  65 6c 64 73 22 0d 02 80  |   .of welds"...|
00000720  18 f1 27 22 85 50 6c 65  61 73 65 20 73 65 6c 65  |..'".Please sele|
00000730  63 74 20 2d 22 0d 02 8a  23 f1 27 22 86 20 20 20  |ct -"...#.'".   |
00000740  20 20 41 20 2d 82 54 68  69 63 6b 6e 65 73 73 20  |  A -.Thickness |
00000750  74 65 73 74 69 6e 67 22  0d 02 94 1e f1 27 22 86  |testing".....'".|
00000760  20 20 20 20 20 42 20 2d  82 57 65 6c 64 20 74 65  |     B -.Weld te|
00000770  73 74 69 6e 67 22 0d 02  9e 2f f1 27 27 22 85 50  |sting".../.''".P|
00000780  72 65 73 73 69 6e 67 20  73 70 61 63 65 62 61 72  |ressing spacebar|
00000790  20 77 69 6c 6c 20 72 65  74 75 72 6e 20 74 6f 20  | will return to |
000007a0  6d 65 6e 75 22 0d 02 a8  05 e1 0d 02 b2 0e dd 20  |menu".......... |
000007b0  f2 6c 61 79 6f 75 74 31  0d 02 bc 74 e6 30 2c 33  |.layout1...t.0,3|
000007c0  3a ef 32 35 2c 34 2c 32  30 30 3b 33 30 30 3b 32  |:.25,4,200;300;2|
000007d0  35 2c 35 2c 31 32 30 30  3b 33 30 30 3b 32 35 2c  |5,5,1200;300;25,|
000007e0  34 2c 32 30 30 3b 31 30  30 3b 32 35 2c 35 2c 31  |4,200;100;25,5,1|
000007f0  32 30 30 3b 31 30 30 3b  32 35 2c 34 2c 35 30 30  |200;100;25,4,500|
00000800  3b 33 30 30 3b 32 35 2c  35 2c 35 35 30 3b 31 30  |;300;25,5,550;10|
00000810  30 3b 32 35 2c 34 2c 36  35 30 3b 33 30 30 3b 32  |0;25,4,650;300;2|
00000820  35 2c 35 2c 36 30 30 3b  31 30 30 3b 0d 02 c6 35  |5,5,600;100;...5|
00000830  e6 30 2c 31 3a ef 35 3a  ec 38 30 30 2c 34 32 30  |.0,1:.5:.800,420|
00000840  3a f1 22 34 35 20 20 41  6e 67 6c 65 20 50 72 6f  |:."45  Angle Pro|
00000850  62 65 22 3a ec 38 36 35  2c 34 33 35 3a f1 22 6f  |be":.865,435:."o|
00000860  22 0d 02 d0 4e ec 38 35  30 2c 35 30 30 3a f1 22  |"...N.850,500:."|
00000870  50 72 65 73 73 20 3c 20  6f 72 20 3e 22 3a ec 39  |Press < or >":.9|
00000880  30 30 2c 34 36 30 3a f1  22 54 6f 20 6d 6f 76 65  |00,460:."To move|
00000890  20 22 3a e6 30 2c 32 3a  ec 33 37 30 2c 35 30 3a  | ":.0,2:.370,50:|
000008a0  f1 22 57 45 4c 44 20 53  45 43 54 49 4f 4e 22 0d  |."WELD SECTION".|
000008b0  02 da 44 ec 38 30 30 2c  39 30 30 3a f1 22 55 4c  |..D.800,900:."UL|
000008c0  54 52 41 2d 53 4f 4e 49  43 22 3a ec 38 30 30 2c  |TRA-SONIC":.800,|
000008d0  38 35 30 3a f1 22 54 45  53 54 49 4e 47 20 6f 66  |850:."TESTING of|
000008e0  22 3a ec 39 30 30 2c 38  30 30 3a f1 22 57 45 4c  |":.900,800:."WEL|
000008f0  44 53 22 0d 02 e4 05 e1  0d 02 ee 13 dd 20 f2 70  |DS".......... .p|
00000900  72 6f 62 65 28 44 25 2c  41 25 29 0d 02 f8 37 f0  |robe(D%,A%)...7.|
00000910  34 2c 41 25 2d 35 30 2c  33 30 34 3a f0 44 25 2c  |4,A%-50,304:.D%,|
00000920  30 2c 35 30 3a f0 44 25  2c 37 35 2c 30 3a f0 44  |0,50:.D%,75,0:.D|
00000930  25 2c 32 35 2c 2d 32 35  3a f0 44 25 2c 30 2c 2d  |%,25,-25:.D%,0,-|
00000940  32 34 0d 03 02 05 e1 0d  03 0c 0e dd 20 f2 61 63  |24.......... .ac|
00000950  74 69 6f 6e 31 0d 03 16  1c 52 4c 25 3d 38 35 30  |tion1....RL%=850|
00000960  3a 69 6e 63 3d 32 3a ef  31 39 2c 31 2c 32 3b 30  |:inc=2:.19,1,2;0|
00000970  3b 0d 03 20 22 ef 35 3a  ec 36 30 30 2c 31 38 30  |;.. ".5:.600,180|
00000980  3a ef 32 34 30 3a ec 35  32 35 2c 32 38 30 3a ef  |:.240:.525,280:.|
00000990  32 34 30 0d 03 2a 0a e6  30 2c 31 3a f5 0d 03 34  |240..*..0,1:...4|
000009a0  22 58 25 3d 52 4c 25 3a  59 25 3d 32 39 35 3a 58  |"X%=RL%:Y%=295:X|
000009b0  31 25 3d 31 30 30 30 3a  59 31 25 3d 32 39 35 0d  |1%=1000:Y1%=295.|
000009c0  03 3e 1c 59 49 4e 43 3d  31 30 3a 58 49 4e 43 3d  |.>.YINC=10:XINC=|
000009d0  31 30 3a 44 44 59 25 3d  36 36 30 0d 03 48 13 44  |10:DDY%=660..H.D|
000009e0  58 25 3d 31 30 30 3a 44  59 25 3d 35 32 30 0d 03  |X%=100:DY%=520..|
000009f0  52 1a e7 a6 28 30 29 3d  34 34 20 f2 6c 65 66 74  |R...(0)=44 .left|
00000a00  3a 2a 46 58 32 31 2c 30  0d 03 5c 1b e7 a6 28 30  |:*FX21,0..\...(0|
00000a10  29 3d 34 36 20 f2 72 69  67 68 74 3a 2a 46 58 32  |)=46 .right:*FX2|
00000a20  31 2c 30 0d 03 66 1e e7  a6 28 30 29 3d 38 38 20  |1,0..f...(0)=88 |
00000a30  69 6e 63 3d 69 6e 63 2b  31 3a 2a 46 58 32 31 2c  |inc=inc+1:*FX21,|
00000a40  30 0d 03 70 1e e7 a6 28  30 29 3d 39 30 20 69 6e  |0..p...(0)=90 in|
00000a50  63 3d 69 6e 63 2d 31 3a  2a 46 58 32 31 2c 30 0d  |c=inc-1:*FX21,0.|
00000a60  03 7a 11 e7 20 69 6e 63  3c 31 20 69 6e 63 3d 31  |.z.. inc<1 inc=1|
00000a70  0d 03 84 15 e7 20 69 6e  63 3e 36 30 30 20 69 6e  |..... inc>600 in|
00000a80  63 3d 36 30 30 0d 03 8e  1e ef 32 34 2c 31 30 30  |c=600.....24,100|
00000a90  3b 35 30 30 3b 36 30 30  3b 39 30 30 3b 3a da 3a  |;500;600;900;:.:|
00000aa0  ef 32 36 0d 03 98 40 f0  34 2c 44 58 25 2c 44 59  |.26...@.4,DX%,DY|
00000ab0  25 3a f0 35 2c 44 58 25  2c 44 59 25 2b 32 35 30  |%:.5,DX%,DY%+250|
00000ac0  3a 44 58 25 3d 44 58 25  2b 69 6e 63 3a f0 35 2c  |:DX%=DX%+inc:.5,|
00000ad0  44 58 25 2c 44 59 25 3a  44 58 25 3d 44 58 25 2b  |DX%,DY%:DX%=DX%+|
00000ae0  69 6e 63 0d 03 a2 10 d4  31 2c 2d 31 35 2c 32 35  |inc.....1,-15,25|
00000af0  30 2c 31 0d 03 ac 05 f5  0d 03 b6 0f f0 37 31 2c  |0,1..........71,|
00000b00  58 31 25 2c 59 31 25 0d  03 c0 0d f0 36 39 2c 58  |X1%,Y1%.....69,X|
00000b10  25 2c 59 25 0d 03 ca 11  58 31 25 3d 58 25 3a 59  |%,Y%....X1%=X%:Y|
00000b20  31 25 3d 59 25 0d 03 d4  19 58 25 3d 58 25 2d 58  |1%=Y%....X%=X%-X|
00000b30  49 4e 43 3a 59 25 3d 59  25 2d 59 49 4e 43 0d 03  |INC:Y%=Y%-YINC..|
00000b40  de 1e e7 20 59 25 3c 31  31 30 20 59 25 3d 31 30  |... Y%<110 Y%=10|
00000b50  35 3a 59 49 4e 43 3d 2d  59 49 4e 43 0d 03 e8 1e  |5:YINC=-YINC....|
00000b60  e7 20 59 25 3e 32 39 35  20 59 25 3d 32 39 35 3a  |. Y%>295 Y%=295:|
00000b70  59 49 4e 43 3d 2d 59 49  4e 43 0d 03 f2 34 e7 20  |YINC=-YINC...4. |
00000b80  b0 58 25 2c 59 25 29 3d  31 20 8c 20 59 49 4e 43  |.X%,Y%)=1 . YINC|
00000b90  3d 2d 59 49 4e 43 3a 58  49 4e 43 3d 2d 58 49 4e  |=-YINC:XINC=-XIN|
00000ba0  43 3a d4 31 2c 2d 31 35  2c 32 35 30 2c 31 0d 03  |C:.1,-15,250,1..|
00000bb0  fc 09 f2 6c 69 6e 65 0d  04 06 22 44 58 25 3d 44  |...line..."DX%=D|
00000bc0  58 25 2b 69 6e 63 3a e7  44 58 25 3e 36 30 30 20  |X%+inc:.DX%>600 |
00000bd0  8c 20 44 58 25 3d 36 30  30 0d 04 10 0f f0 37 31  |. DX%=600.....71|
00000be0  2c 58 31 25 2c 59 31 25  0d 04 1a 12 e7 58 25 3e  |,X1%,Y1%.....X%>|
00000bf0  3d 52 4c 25 20 f2 70 65  61 6b 0d 04 24 1d f4 49  |=RL% .peak..$..I|
00000c00  46 58 25 3c 32 30 30 20  54 48 45 4e 20 58 49 4e  |FX%<200 THEN XIN|
00000c10  43 3d 2d 58 49 4e 43 0d  04 2e 15 fd 20 58 25 3c  |C=-XINC..... X%<|
00000c20  32 30 30 20 84 20 58 25  3e 52 4c 25 0d 04 38 19  |200 . X%>RL%..8.|
00000c30  f0 34 2c 44 58 25 2c 35  32 30 3a f0 35 2c 36 30  |.4,DX%,520:.5,60|
00000c40  30 2c 35 32 30 0d 04 42  23 ef 35 3a ec 36 30 30  |0,520..B#.5:.600|
00000c50  2c 31 38 30 3a ef 32 34  30 3a ec 35 32 35 2c 32  |,180:.240:.525,2|
00000c60  38 30 3a ef 32 34 30 20  0d 04 4c 0c fd a6 28 30  |80:.240 ..L...(0|
00000c70  29 3d 33 32 0d 04 56 05  e1 0d 04 60 0b dd 20 f2  |)=32..V....`.. .|
00000c80  70 65 61 6b 0d 04 6a 18  ef 32 34 2c 31 30 30 3b  |peak..j..24,100;|
00000c90  35 30 30 3b 36 30 30 3b  39 30 30 3b 0d 04 74 36  |500;600;900;..t6|
00000ca0  f0 34 2c 44 58 25 2c 44  59 25 3a f0 35 2c 44 58  |.4,DX%,DY%:.5,DX|
00000cb0  25 2c 44 44 59 25 3a f0  35 2c 44 58 25 2b 69 6e  |%,DDY%:.5,DX%+in|
00000cc0  63 2c 44 59 25 3a 44 44  59 25 3d 44 44 59 25 2d  |c,DY%:DDY%=DDY%-|
00000cd0  31 35 0d 04 7e 09 ef 32  36 3a e1 0d 04 88 0b dd  |15..~..26:......|
00000ce0  20 f2 6c 69 6e 65 0d 04  92 18 ef 32 34 2c 31 30  | .line.....24,10|
00000cf0  30 3b 35 30 30 3b 36 30  30 3b 39 30 30 3b 0d 04  |0;500;600;900;..|
00000d00  9c 1d f0 34 2c 44 58 25  2c 44 59 25 3a f0 35 2c  |...4,DX%,DY%:.5,|
00000d10  44 58 25 2b 69 6e 63 2c  44 59 25 0d 04 a6 09 ef  |DX%+inc,DY%.....|
00000d20  32 36 3a e1 0d 04 b0 0b  dd 20 f2 6c 65 66 74 0d  |26:...... .left.|
00000d30  04 ba 20 f2 70 72 6f 62  65 28 33 2c 58 25 29 3a  |.. .probe(3,X%):|
00000d40  f2 70 72 6f 62 65 28 31  2c 58 25 2d 31 30 29 0d  |.probe(1,X%-10).|
00000d50  04 c4 0e 52 4c 25 3d 52  4c 25 2d 31 30 0d 04 ce  |...RL%=RL%-10...|
00000d60  18 e7 20 52 4c 25 3c 32  35 30 20 52 4c 25 3d 52  |.. RL%<250 RL%=R|
00000d70  4c 25 2b 31 30 0d 04 d8  1e e7 20 52 4c 25 3e 31  |L%+10..... RL%>1|
00000d80  31 30 30 20 f2 70 72 6f  62 65 28 33 2c 58 25 2b  |100 .probe(3,X%+|
00000d90  31 30 29 0d 04 e2 05 e1  0d 04 ec 0c dd 20 f2 72  |10).......... .r|
00000da0  69 67 68 74 0d 04 f6 20  f2 70 72 6f 62 65 28 33  |ight... .probe(3|
00000db0  2c 58 25 29 3a f2 70 72  6f 62 65 28 31 2c 58 25  |,X%):.probe(1,X%|
00000dc0  2b 31 30 29 0d 05 00 10  e7 20 52 4c 25 3e 31 31  |+10)..... RL%>11|
00000dd0  32 30 20 e1 0d 05 0a 1d  e7 20 52 4c 25 3c 32 36  |20 ...... RL%<26|
00000de0  30 20 f2 70 72 6f 62 65  28 33 2c 58 25 2d 31 30  |0 .probe(3,X%-10|
00000df0  29 0d 05 14 0e 52 4c 25  3d 52 4c 25 2b 31 30 0d  |)....RL%=RL%+10.|
00000e00  05 1e 05 e1 0d 05 28 20  eb 37 3a f6 3a f1 22 83  |......( .7:.:.".|
00000e10  61 74 20 4c 69 6e 65 86  22 3b 9e 3a 2a 46 58 31  |at Line.";.:*FX1|
00000e20  31 2c 32 35 0d ff                                 |1,25..|
00000e26