$*|"���DATASCOPE�(C)M.GOLDFINCH �

�*|"���TELESOFTWARE�v8.8�AUG'87 �           ���PAGE values:           �5�            ��&1300 BBC B 32K/DFS    �5�            ��&B00  +6502 TUBE       �5�            ��&1100 MASTER/ADFS      �5�
�*|"���Data:                  �5�            ��&900_&AFF BBC B 32K/DFS�5�            ��&800_&9FF +6502 TUBE   �5�            ��&E00_&FFF MASTER/ADFS  �5�
�*|"���Machine code:          �5�            ��&B00 BBC B 32K/DFS     �5�            ��&A00 +6502 TUBE        �5�            ��&1000 MASTER/ADFS      �5�           ���Other info @ line 3040.�5�
�>&1300��dtK

�Q%�R%�q%40�q%=&8D0
5�3,6:�a("FX225"):�Z%�a("L. "+"ScopeMC "+" "+�~V%)
��U%(580):�h:s%=0:g%=1:p%=0:i%=3:h%=�:r%=0:x%=0:B=7.41:T=1:CA%=0:JA%=0:TA%=0:`%=0:B%=1:D%=0:E%=3:F%=3:J%=0:L%=0:M%=4:N%=0:O%=0:P%=�:T%=1:Z%=0
(	���e
2��7+R%:�23,1,0;0;0;0;23,0,2,52;0;0;0;:�QA:�p:�E%=1�i(&95,&86,&84,&81):�f:�O:��E%=2�CA:�M%+R%:�23,0,10,67;0;0;0;:�4:�P:�g:�`:�H:��E%=3�DA:�CA:�M%+R%:�r:�G:��E%=4�DA:�CA:�M%+R%:�`:�28,0,31,39,2:�N
<�0:�
F4�0,2,0,6,0,7,7,0,2,0,4,3,3,4,7,4,4,2,2,4,6,4,6,5
P.�0,4,5,2,6,3,4,5,0,5,0,4,6,3,2,7,6,1,8,5,0
Z<�1,59.95,2,39.96,3,29.97,4,23.98,5,15.99,6,11.99,7,5.995
���n�BA%�0,4)"���"'"���"
�E�1,-8,158,4:�3,-8,161,4:�1,-8,132,8:�3,-8,135,8:�a("FX213,168"):�
���d(H%)o%=�(H%*100):�
��QA�a("FX202,32"):�
��CA�a("FX144,0,1"):�
$��a($q%)X%=q%:Y%=q%�256:�&FFF7:�
$7��c�:�19,0,4;0;19,1,6;0;:�2:�S(0):�:�20,19,1,2;0;:�
.���2 L%=�Y(0,0,"Disc catalogue"):�L%��S(�):�14:�0,0)Q$"drive no. 0_3 ":�_:�0,0)"Disc surface (";N%;") [shift] scrolls screen":�a("DR."+�N%):�a("."):�7:�15:�
8!��S(f%)�f%�129:�0:�128:�1:�
B��HA�M%=0 U%=2:�U%=1:�
L��_�N%=�-48:�7:�N%<4�N%>�:�
V&��g�29,108;72;:H%=600:K%=1160:�h%�
`}�0,H%:�0,0:�K%,0:�0,0:�i%<2��DtD��0,H%:�K%,H%:�K%,0:G%=0:�A%=120�480�120:�0,A%:�21,K%,A%:G%=G%+232:�G%,H%:�21,G%,0:�:�0,0
jR�i%<3��DtD�G%=0:�A%=60�540�60:�0,A%:�21,K%,A%:G%=G%+116:�G%,H%:�21,G%,0:�:�0,0
t=G%=0:�A%=60�H%�60:�0,A%:�20,A%:G%=G%+116:�G%,0:�G%,20:�:�
~-��b(lx%,by%,rx%,ty%)�28,lx%,by%,rx%,ty%:�
���l�26:�
�S��H�S(�):�Q$"Y axis scale":�S(0):�'"[1] lin"'"[2] log":c%=�C(2):�c%=1 s%=0�s%=�
��3:�:�v:�I:�J:�
�$��j�l:�3:�0,9)H$:�b(0,8,39,2):�
�U��AA�S(0):�"[1] Narrow"'"[2] Intermediate"'"[3] Wide"'"[4] Extra wide":N%=�C(4):�
����v�S(�):�j:�s%�"Scans @ 1 s _ 24hrs ONLY with log y axis":�d(4):�S(0):�5:��Q$"scan time range"':�S(0):�"[1] < 1 sec"'"[2] 1 sec _ 24hrs"
�c%=�C(2):�c%=2�5:�
�s�7:�:�"Fast scan range 0.1_0.99 sec":D$=�P(0,2,"Scan time :",1,3):T=�D$:�T>.99�T<.1��dND�r%=�:G$="sec":T%=1:�:�
�.��V�:L%=�Y(0,1,"Alter trace colour"):�L%�
��:��DP@:��G%,H%,K%:�G%=F%�G%=8:�19,1,H%;0;19,2,K%;0;:A%=1:�31,3,1:��A%:�"[";A%;"]":�31,4*A%,3,238,31,(A%*4)+3,1:A%=A%+1:�A%=4:g%=�C(3):�0,g%:�`:�
���UA `%=0:�Q%�R%��dvD��
���:L%=�Y(0,1,"Triggered scan mode"):�L%�:�TA%=�:`%=�:�:�'"[1] Set trigger window"'"[2] Set trigger level & +/- slope":c%=�C(2):�c%=2��T^E
f�:�'"Enter window limits":D$=�P(0,3,"lower voltage (0-1800 mv) ",1,4):UA%=�D$:�UA%>1800�UA%<0��T@E

�D$=�P(0,4,"higher voltage (0-1800 mv) ",1,4):VA%=�D$:�VA%>1800�VA%<0��TJE��UA%>=VA%�:�S(�):�''"Window too narrow: please reset ":�S(0):�d(4):�T@E
�:�
]TA%=0:�:D$=�P(0,2,"Enter trigger voltage (0 - 1800 mV ",1,4):WA%=�D$:�WA%>1800�WA%<0��T^E
(\�:�'"[1] Positive"'"[2] Negative trigger slope":c%=�C(2):�c%=1 XA%=�:P$="+"�XA%=0:P$="-"
2�:�
<���5�:r%=0:�"Scan range 1 sec _ 24hrs":�S(�):�'Q$"units Secs / Mins / Hrs":�S(0):�14,2)"ecs / "�21,2)"ins / "�28,2)"rs"�12,2)" ":�QA:�G$=�:�7:��"HMS",G$)<>0:�G$="H"G$="hrs"��G$="M"G$="mins "�G$="secs "
Fj�0,2)�39�17,2)G$:D$=�P(0,2,"Scan time : ",2,�G$-1):T%=�D$:x%=T%:�G$<4 T%=T%*3600��G$="mins "T%=T%*60
P�T%>86400�T%<1��DFE��:�
Z��6 I%=�-(!2�&FFFF):�
d���J�w:�`:�JA:�UA:�a("FX21"):�S(�):�29,108;72;:�0,0:�'"Key <space> or <'fire'> to record data":�S(0):�KA%=�0�3:j%=�0:�KA%>0�j%=&20:�:�S(�):�'"Scanning ADC port #1 [f7] > main menu":�CA%�'"Hold [S] to end scan"
nG�`%�TA%�22,3)"Window ";UA%;" _ ";VA%��`%�22,3)"Trigger @ ";P$;WA%
x�KA:�s%�U��T
�-�a("FX21"):�7:�M%<>1�19,0,D%;0;19,1,F%;0;
��0,0:�`:�0,1:�:�M%=1�V
��A:�E:�G:�
�4��KA�a("FX16,1"):�r%�a("FX190,8")��a("FX190,12")
��
�"��E�7:�f:�J%�L:���e:�E:�Th@
�+�:L%=�Y(0,1,"Store data on disc"):�L%�Q
�9�K:�`:�:L%=�Y(0,1,"Print data"):�L%�L��3:�a("FX21,3")
�6�:L%=�Y(0,1,"Plot more data on same axes"):�L%�:�J
��
�K��f�6:�I%>400��19,1,9;0;:�'"Memory LOW >save data":�d(9):�19,1,F%;0;:�
���`�b(0,0,39,0):�S(�):�:�6:�"mode";M%;"  pen    K ";I%/1000;"      Yf 0";:A%=581:�A%=A%-1:�U%(A%)>��A%<546:�U%(A%)>=0�8:�;U%(A%)�1*.003;
�,�;"v";:�S(0):�g%:�10,0)"   ";:�8,8,247;
k�S(�):�C%�14,0)"turbo mode  ";:�S(0):��Q%�14,0)"6502 on line";:�S(0):��R%�14,0)"shadow mode ";:�S(0)
�b(0,8,39,2):�
���JA CA%=0:�T%>5��:�'"[1] single"'"[2] continuous scan":c%=�C(2):�c%=1�:CA%=0:�CA%=�:�:�'"[1] storage"'"[2] erasure mode":c%=�C(2):�c%=1�:JA%=0:�JA%=�:�:�
"��3�s%H$="log":�H$="lin":�
,��8�u:MA%=0:��`%�TA
6�r%�y��s%�LA��MA
@�0,0:�-82MA%=�:JA%=0
J�JA%�NA
T�MA%:h%=0:�g:h%=�:�
^0��T�C%B=6.453��R%B=10.583��Q%B=7.41�B=12.149
h�CA%�8:��`%�TA
r�r%�y:��MA:�
|A��TA�TA%���1�36>=UA%��1�36<=VA%��XA%���1�36>=WA%����1�36<=WA%
��
�H��MA�X=0�1159�B/T%:U%(X�2)=�1�109:Y%=U%(X�2):�X,Y%:�Y%>596�19,1,1;0;
��:�
�1��U�C%B=15.055��R%B=22.191��Q%B=23.406�B=34.5
��CA%�8:��`%�TA
��r%�y:��LA:�
�Q��LA�X=0�1159�B/T%:U%(X�2)=(�(�1+55)-4)*85:Y%=U%(X�2):�X,Y%:�Y%>599�19,1,1;0;
��:�
�2��y�X=0�1159�B/T:U%(X�2)=�1�109:�X,U%(X�2):�:�
�i��A�:L%=�Y(0,1,"EDIT trace"):�L%��:�'"[1] ERASE trace"'"[2] REPLOT options":N%=�C(2):�N%=1�B:��D:�
�V��B�u:�:�29,108;72;:�0,0:�X=0�1159�D:�X,U%(X�2):�:�((D=1)�(D=2))�(Q%�R%)��dtF��d~F
�iL%=�Y(0,1,"Wide erase"):�L%:�:�0,g%:h%=0:�g:h%=�:��:�5:�0,0:�X%=0�1159�2:�X%-8,U%(X%�2)+8:�238:�:�4
��0,0:�0,1:h%=0:�g:h%=�:�
1��NA�0,0:�X=0�1159�D:�X,U%(X�2):�:�0,0:�0,1:�
���D�u:�:�'"[1] Overlay line with symbol"'"[2] Replot with symbol"'"[3] Special options":N%=�C(3):�N%=1�t:��N%=2�B:�t:��x:�
��t�M%=1�V
&g�:�'Q$"symbol":�z:�C:�5,29,108;72;:�0,g%:�0,0:�X=0�1159�D:�X-8,U%(X�2)+8:�223+N%:�:�0,0:�4,7:�:�A:�
0\��x�:�'"[1] Add text to graph area"'"[2] Convert to bargraph display":N%=�C(2):�N%=2�9:�
:�M%<>1��DbG
D-_A%=1:`A%=0:�:��=0:_A%=_A%+1:�_A%>3 _A%=1
ND�_A%:�0,2)"Key C to select TEXT colour":���>80��-83:�-83 `A%=�
X�`A%
bV�:�'"Set text origin using cursor keys"'"and key <T>":�q:�:I$=�P(0,1,"Text:",0,34)
l��M%<>1��DvG��:�0,_A%:L%=�Y(0,1,"Invert text background colour"):�L%�23,�,�;�;�;�;5:�v%,w%:�bA%=0��I$-1:�:�:�23,�,&8F8;&8E8;&E8E8;&F808;:�0,0
v:�5:�v%,w%:�I$:�4:�:L%=�Y(0,1,"Add more text"):�L%��TzG
��A:�
�n��G�:�7:�'"[1] main menu"'"[2] reset axes"'"[3] plot data using same axes":�J%�0,3)�78:N%=�C(2):�N%=�C(3)
�.J%=0:�N%=1���N%=2�l:�g:�`:�H:��g:�j:�I:�J
��
�<��C L%=0:�T%>6 L%=�Y(0,1,"Alter line definition")��r%=��
���L%�:��S(�):�'"[1] 20  [2] 30  [3] 40  [4] 50  [5] 75  [6] 100 [7] 200 points":�S(0):G%=�C(7):��DZ@:��K%,D:�K%=G%�K%=7:�:�
�f��9�u:�:�S(�):�'Q$"column spacing":�AA:H%=N%^3:�:�S(�):�'Q$"vertical pattern spacing":�AA:ZA%=N%*4
���:�S(�):�'Q$"fill pattern"':�S(0):�z:�BA:�:L%=�Y(0,1,"Superimpose"):�5,29,108;72;24,4;4;1156;596;:�X=0�1159�D*H%:�K%=YA%�U%(X�2)�ZA%:�X,K%:�L%�U%(X�2)>YA%�223+N%��U%(X�2)>YA%��X,K%)<1�223+N%
�$�,:�26,4,29,108;72;:�0,0:�`:�A:�
� ��w�Y%=0�580:U%(Y%)=�:�:�7:�
�j��BA��:L%=�Y(0,1,"Fill from X axis"):�L%YA%=0��:D$=�P(0,1,"Enter baseline (0-1800 mV) ",1,4):YA%=�D$�3
��YA%<600:�
�W��z _%=1:��"[";�(_%+64);"]";:�223+_%:_%=_%+1:�_%>29:�N%=�:�N%<95�N%>64:N%=N%-64:�:�
���q�5:�3,1:t%=500:u%=586:v%=t%:w%=u%:�25,4,v%;w%;251:��-122�t%<1140 t%=v%+4��-26�t%>-112 t%=v%-4��-58�u%<660 u%=w%+4��-42�u%>-44 u%=w%-4
T�25,4,v%;w%;251:�25,4,t%;u%;251:v%=t%:w%=u%:��-36:�25,4,v%;w%;251:�0,1:�0,0:�4:�
-ݤI(m%,n%)B$="":��n%,"_");:�31,�-n%,�;:�k
 �C$=�:k%=�C$:�k%=&D��TjH��k%=&7F�B$=""��T`H��k%=&7F B$=�B$,�B$-1):�C$;:�T`H��k%>&FC�k%<&20��B$=n%�7:�T`H��(k%>&2F�k%<&3A)�k%=&20�(m%=1��C$=&2E)�m%=0�C$;:B$=B$+C$:�T`H��n:�T`H
*=B$
4@ݤP(X%,Y%,L$,m%,n%)�S(�):�X%,Y%);L$;:�S(0):B$=�I(m%,n%):=B$
>��k�B$=�0:�B$="":�
HxݤY(NA%,OA%,L$)�a("FX21"):�NA%,OA%)�29:�S(�):�NA%,OA%);L$;"? (Y/N)":�S(0):�B$=�:��"yYnN",B$)<>0:�"yY",B$)=0�=0�=�
R-ݤC(PA%)�a("FX21"):�A$=�:�A$<1��A$>PA%�n
\�A$>"0"�A$<=�(48+PA%):=�A$
f���i(A%,G%,H%,K%)�:�&20,A%,&9D:�KA%=1�2:�31,0,KA%,G%,&9D,&8D,H%:�;n$;"  ";:�A%,&9D,31,15,KA%,K%:�:�31,1,3,A%:��36,V$);:�&9D:�0,4);:�
p���O:O%=�:�23,0,10,203;0;0;0;:�A%=6�23:�31,0,A%:�"��";:�31,38,A%:�"��";:�:�0,4)"���Experimental parameters ��"'" �"�25,V$)"�"
z��2,6)"�Enter details,"�2,7)"�or <�RETURN�> for next parameter":a$=�P(2,9,"��Data title���",0,20):b$=�P(2,11,"��Data type���",0,20):c$=�P(2,12,N$,0,19):d$=�P(2,13,N$,0,19):e$=�P(2,14,N$,0,19):f$=�P(2,15,"��Int.Amp gain���",2,3)
��g$=�P(2,16,"��Temp (C)���",2,2):h$=�P(2,17,"��Time���",2,5):i$=�P(2,18,"��Date���",2,8):j$=�P(2,19,"��User���",0,3):�7,23,1,0;0;0;0;:�2,21)"�����Parameters set��":�F:�
�H��p�i(&94,&82,&84,&81):�Y:BA%=�:E%=�C(6):BA%=0:�E%<5��E%=5�m:��R:�
����Y:�"������c�������73��� ��"'"�������������5%��� ��":�" �";�25,V$);"�":�$W%'"��"�35;"��"'$(W%+&28)" � ";�35,V$);"�"'$(W%+&50)"��"�36;"��"$(W%+&79)"� "�36,V$)"�"
���$(W%+&A2)'"��"�35;"��"'$(W%+&CA)'" �";�35,V$);"�  ";$(W%+&F2);:�" �";�36,V$);"�":�"���� f8 + f7 END program ��";�8';:�" �";�23,V$);"�":�O$;M$'" �";�35,V$);"�";:�30:�
�*��W�"���Information� �"'" �"�13,V$)"�"
�y�"���Current�data display MODE is"�6"��"'"���Free memory "�22"��"'"���Second processor status :"�9"��"'" �"�35,V$)"�"
�$�$(W%+&11B)�11$(W%+&15F)�17"��";
ʜ�$(W%+&19F)�16,16)"efined as required.   �����Data editing facilities include    �����bar graph, symbol overlay or       �����redrawing options."�17"��"
Ԁ�11:�"���Grid size, screen colours and trace�����colours (in Mode 1) can be altered.�� �"�36,V$)"�"'M$;'" �"�21,V$)"�";:�3:�
އ��X�"���Graphics mode ��"'" �"�15,V$)"�"'" ��"'"���Current mode is 4 ��"'" �"�19,V$)"�"'" ��"'" ��"Q$"required mode ��"'" �"�22"��"
��" ��> 1� mode 4�selected ��"'" ��> 2  mode 1�selected ��"'" ��> 3� mode 0�selected ��"'" �"�22"��"'" �"�22,V$)"�"'" ��"'"���6502 second processor off line ��"
�j�" �"�32,V$)"�"'" ��Modes 0 or 1 require TUBE or MASTER � �"�36,V$)"�"'" ��"'M$;'" �"�21,V$)"�";:�30:�
����Z�7:�3,4)"Set Data drive"�3,7)"Current drive : ";N%�2,10)"�"Q$"new data drive"�2,12)"�>0  drive 0�"'" ��>1  drive 1�"'" ��>2  drive 2�"'" ��>3  drive 3�":�_:�14,N%+12)"�selected"�19,7);N%:�a("DR."+�N%):�F:�
	~��I�l:�HA:�r%�20,30);T/2�39,30)"0"�36,30);T;:�11:��10*U%,30)�(29*U%);�22*U%-(�(�(x%/2))),30);x%/2�40*U%-(��(x%)),30);x%;
	u�M%=0�20,30)�59:�r%�41,30);T/2�79,30)"0"�76,30);T;:�11:��M%=0�44-(�(�(x%/2))),30);x%/2�80-(��(x%)),30);x%;:�11
	��29,108;72;11,5,25,4,0;-10;253,4:d%=�Y(0,3,"Relabel axes"):�d%�28,0,30,0,11:�:�7"volts":�l:�10*U%,31)�29;�20*U%,31)G$;:�11
	$��d%�2*U%,31)�37;:�b(0,30,0,10):�:�l:�29,108;72;:x$=�P(0,3,"X:",0,36):y$=�P(0,5,"Y:",0,19):�0,3)�(120*U%):�l%=1��y$:�0,(19-�y$�2)+l%)�y$,l%,1):�:�l%=1��x$:�(20*U%-�x$�2+l%),31)�x$,l%,1);:�:�11:�0,0
	.��26,24,40;0;100;688;:�:�l:�29,108;72;:d%=�Y(0,3,"Rescale Y axis"):�d%�5:�-68,616:�254,255:�-56,16:�253,4:�0,0:��0,3)�38:K$=�P(0,3,"Y min :",2,5):J$=�P(0,5,"Y max :",2,5)
	8*�0,0:AA%=�J$:y%=�K$:�AA%-y%<10�1:�TnI
	B�K%=(AA%-y%)/5:z%=y%-K%:�5:�A%=0�5:z%=z%+K%:G%=�A(z%):�-64,G%+16:�;z%�(10^(�J$-2)):�:�0,0:�4:H%=10^(�J$-2):�S(�):�4,9)"x";H%:�S(0):�0,3)�(120*U%):�
	L���1�24,400;700;1100;850;7,18,88,129,16:�17*U%,4)"values out of range"'�17*U%,6)"Ymax-Ymin >=10 only":�d(8):�0,5)�38:�18,0,128,16,26,29,108;72;:�
	V"ݤA(yv%)=600*(yv%-y%)/(AA%-y%)
	`.��F�26,23)"�����SPACE�> ��";:�11:���-99:�
	j5��7�S(�):�26,30)" � SPACE >";:�11:�S(0):���-99:�
	t/��m�i(&95,&86,&84,&81):�W:�6:�Q%I%=I%-9216
	~(�31,28,8:�Q%�"�on line"��"�off line"
	�,�32,6);M%�15,7);I%;" bytes /&";~I%:�F:�
	����h H$=�3," "):V$=H$:F$=�9," "):n$=�32," "):M$=n$:V$="p":H$="lin":N$="��Exp. details���":Q$="Select ":O$="���Auraria�v.8":T$=O$:M$="���(C) M.Goldfinch 1987��":n$="DATASCOPE   data analysis system":�
	�v��R�i(&94,&81,&87,&84):�X:�19,7);M%:�Q%�R%�OA��28,2,14,22,10:�:�''"��MODE4�ONLY ��"''"��as 32K RAM ��":�d(5):�:�l
	��Z:�
	���OA�Q%�24,18)"�on line�"
	�&e%=�C(3):�e%=1M%=4��e%=2 M%=1�M%=0
	�/�7,e%+11)"�"�14,e%+11)" "�19,7);M%:�d(4):�
	�,��o�F$=�P(0,3,"File name",0,9):�F$<>"":�
	�f��Q�b(0,8,39,0):�12,14:�2:�12,15:�`:�R%�s:�L%=�Y(0,1,"Store multiple data screen image"):�L%�s:�
	�5�:�o:�K:�M%=4 a%=&5800:b%=&2800�a%=&3000:b%=&5000
	��Q%a%=a%-&10000
	�S�a("SAVE "+F$+" "+�~a%+"+"+�~b%+" "+�0+" "+�0):�:�''F$;" data saved":�7:�d(5):�
��N:��e:�N:�Th@

�J%=�:�c:�19,2,0;0;19,3,1;0;19,0,7;0;19,1,4;0;:�'"Recall mode [";M%;"] screen data image":�o:�:�M%=4 a%=&FFFF5800�a%=&FFFF3000
#�a("L."+F$+" "+�~a%):�E:�`:�G:�
b��s:R$="low":�7:�:�'Q$"disc storage resolution"''"[1] high"'"[2] low":B%=�C(2):�B%=1 R$="high"
(B��:�'R$;" resolution":�o:�O%T$=�P(0,3,"Title for data:",0,15)
26L%=�Y(0,3,"Update EXISTING file"):�L%S%=�F$�S%=�F$
<?�S%=0�:�''"File not present: open new file":�#0:�d(5):�S%>0
F1�#S%,O%:�O%�#S%,a$,b$,c$,d$,e$,f$,g$,h$,i$,j$
P\�#S%,B,r%,T,s%,G$,T$,B%,T%,x%:�u:�RA(D):�#S%:�:�7:�''"Data stored in ";F$:�d(5):B%=1:�:�
Z5��u�3:�r%D=B/T��T%<7�(T%<18�s%)D=(B/T%)*B%�D=B%*2
d�Q%�R%��DnJ��
n/�r%D=B/T��T%<4�(T%<12�s%)D=(B/T%)*B%�D=B%*2
x�
���r:��e:�r:�E:�Th@
��#0:�L%�c:�4:�P:�g
�Q�`:�w:�:�'"Load data":�o:S%=�F$:�#S%,O%:�O%�#S%,a$,b$,c$,d$,e$,f$,g$,h$,i$,j$
�:�#S%,B,r%,T,s%,G$,T$,B%,T%,x%:E$="high":�B%=2 E$="low"
�o�:�'"File name ";F$''E$;" resolution":�u:�29,108;72;:�0,0:�SA(D):�#S%:�0,0:�7:�d(2):�:�K:�:�j:�I:�`:�M:�E:�
�2��SA(C)�X=0�1159�C:�#S%,U%(X�2):�X,U%(X�2):�:�
�'��RA(C)�I=0�1159�C:�#S%,U%(I�2):�:�
���M:�A:�M%=1�V
�7�:L%=�Y(0,1,"Overlay further data from disc"):�L%�r
�<�A:�:L%=�Y(0,1,"Overlay NEW data from ADC"):�L%�:B%=1:�H
�
�`:�:�
�8��L L%=�:P%=0:�K:�J%��O%�:�F$<>""�''"File name ";F$
�'�J%L%=�Y(0,5,"Print"):�L%�0,5)�14;
	�L%�
?�a("FX21"):�29,0;0;:�V%!18<>&FFC984A5�'"Code error":�d(9):�
�V%
"'L%=�Y(0,5,"Repeat"):�L%��dzJ�P%=�:�
,��K�a("FX21"):�J%��O%�
6-�P%=��:L%=�Y(0,1,"View parameters"):�L%�
@j�:�a$�34,0)"time";'b$�34,1)h$;'c$'d$'e$'�31,5)i$;'"gain "f$�14,6)"temp ";g$;" C"�36,6)j$;:�11:�d(20):�
Je��4�g:�S(�):�'Q$"colours"''"[C] ";Q$" [D] Default  [+] Next colour":��DF@:K%=0:��D%,F%:�F%=5��DF@
T*�19,0,D%;0;19,1,F%;0;:�M%=1�19,3,F%;0;
^�d(1):�=0:��-83��-88��=200
h�-51 K%=�:�=200
r*��=200:��-83�K%=�:�K%=�F%=7:D%=128:�20
|�S(0):�
����P h%=0:�HA:�7:�:�S(�):�'Q$"graphics"�4*U%,30)"[1]"�15*U%,30)"[2]"�31*U%,30)"[3]":�S(0):�0,3)"[1] x & y axes"'"[2] wide"'"[3] fine grid"
�r�24,0;0;150;650;:i%=1:�g:�24,170;0;660;650;:i%=2:�g:�24,680;0;1160;650;:i%=3:�g:i%=�C(3):h%=�:�26,29,108;72;:�
����DA�i(&94,&87,&81,&85):�'"�����Option�";E%;"�sub_menu  �":�E%=3 L%=�Y(0,7,"��Load special�data points�editor")�L%=�Y(0,7,"��Load special�Mode 0/1/4�screen display��program")
�S�L%�a("DR.0"):�'"��Insert�DATASCOPE�master disc"'"��in DRIVE 0":�F:�"DScimag"��
���e�=17��-119��dVK��=17�
��E%>2�:�d(5):�
��>188�:�d(9):�
�":�3,7:�:�':�:�'"@ ";�:�d(8)
�"�a("FX4"):�a("FX12"):�22,7,7:�
��*|"���the introductory���REMS���+   ���certain sections of this program     ���only available with a�TUBE�/ MASTER  ���and the following section will all   ���be�automatically�DELETED�on running  ���the program unless a�6502 second
��*|"���processor�is on line or a     ���MASTER�series machine is in use.     ���Do not renumber this program as the  ���automatic deletion & downloading     ���sequence will no longer operate      ���correctly.
�	*FX18
�*KEY10*FX18|M
��3,7,22,7:�=&7C00:�0,1)"������Datascope� data analysis system��"'"������Datascope� data analysis system���"�0,6)"���BBC B�32K�system  �"�0,12)"���Program relocating...�please wait"
��&15:*K.0|!cI%=0|!8|!8P-|!|P|!|H4:I%!&1300=I%!|!|P:|!m|M|!P=&1300|MDEL.1,9|M140|MDEL.1240,1250|MDEL.1270,1330|M1390|M1540|MDEL.1660,1670|M1780|MDEL.1860,1880|M1900|M2320|MDEL.2480,2500|MDEL.3040,3110|M|!K|M|!y|M
*FX138,0,128
&�
�

00000000  0d 00 00 24 2a 7c 22 84  9d 86 44 41 54 41 53 43  |...$*|"...DATASC|
00000010  4f 50 45 83 28 43 29 4d  2e 47 4f 4c 44 46 49 4e  |OPE.(C)M.GOLDFIN|
00000020  43 48 20 9c 0d 00 01 c4  2a 7c 22 85 9d 83 54 45  |CH .....*|"...TE|
00000030  4c 45 53 4f 46 54 57 41  52 45 86 76 38 2e 38 87  |LESOFTWARE.v8.8.|
00000040  41 55 47 27 38 37 20 9c  20 20 20 20 20 20 20 20  |AUG'87 .        |
00000050  20 20 20 84 9d 83 50 41  47 45 20 76 61 6c 75 65  |   ...PAGE value|
00000060  73 3a 20 20 20 20 20 20  20 20 20 20 20 91 35 9c  |s:           .5.|
00000070  20 20 20 20 20 20 20 20  20 20 20 20 9d 84 26 31  |            ..&1|
00000080  33 30 30 20 42 42 43 20  42 20 33 32 4b 2f 44 46  |300 BBC B 32K/DF|
00000090  53 20 20 20 20 91 35 9c  20 20 20 20 20 20 20 20  |S    .5.        |
000000a0  20 20 20 20 9d 85 26 42  30 30 20 20 2b 36 35 30  |    ..&B00  +650|
000000b0  32 20 54 55 42 45 20 20  20 20 20 20 20 91 35 9c  |2 TUBE       .5.|
000000c0  20 20 20 20 20 20 20 20  20 20 20 20 9d 81 26 31  |            ..&1|
000000d0  31 30 30 20 4d 41 53 54  45 52 2f 41 44 46 53 20  |100 MASTER/ADFS |
000000e0  20 20 20 20 20 91 35 9c  0d 00 02 9c 2a 7c 22 84  |     .5.....*|".|
000000f0  9d 83 44 61 74 61 3a 20  20 20 20 20 20 20 20 20  |..Data:         |
00000100  20 20 20 20 20 20 20 20  20 91 35 9c 20 20 20 20  |         .5.    |
00000110  20 20 20 20 20 20 20 20  9d 84 26 39 30 30 5f 26  |        ..&900_&|
00000120  41 46 46 20 42 42 43 20  42 20 33 32 4b 2f 44 46  |AFF BBC B 32K/DF|
00000130  53 91 35 9c 20 20 20 20  20 20 20 20 20 20 20 20  |S.5.            |
00000140  9d 85 26 38 30 30 5f 26  39 46 46 20 2b 36 35 30  |..&800_&9FF +650|
00000150  32 20 54 55 42 45 20 20  20 91 35 9c 20 20 20 20  |2 TUBE   .5.    |
00000160  20 20 20 20 20 20 20 20  9d 81 26 45 30 30 5f 26  |        ..&E00_&|
00000170  46 46 46 20 4d 41 53 54  45 52 2f 41 44 46 53 20  |FFF MASTER/ADFS |
00000180  20 91 35 9c 0d 00 03 c4  2a 7c 22 84 9d 83 4d 61  | .5.....*|"...Ma|
00000190  63 68 69 6e 65 20 63 6f  64 65 3a 20 20 20 20 20  |chine code:     |
000001a0  20 20 20 20 20 91 35 9c  20 20 20 20 20 20 20 20  |     .5.        |
000001b0  20 20 20 20 9d 84 26 42  30 30 20 42 42 43 20 42  |    ..&B00 BBC B|
000001c0  20 33 32 4b 2f 44 46 53  20 20 20 20 20 91 35 9c  | 32K/DFS     .5.|
000001d0  20 20 20 20 20 20 20 20  20 20 20 20 9d 85 26 41  |            ..&A|
000001e0  30 30 20 2b 36 35 30 32  20 54 55 42 45 20 20 20  |00 +6502 TUBE   |
000001f0  20 20 20 20 20 91 35 9c  20 20 20 20 20 20 20 20  |     .5.        |
00000200  20 20 20 20 9d 81 26 31  30 30 30 20 4d 41 53 54  |    ..&1000 MAST|
00000210  45 52 2f 41 44 46 53 20  20 20 20 20 20 91 35 9c  |ER/ADFS      .5.|
00000220  20 20 20 20 20 20 20 20  20 20 20 84 9d 83 4f 74  |           ...Ot|
00000230  68 65 72 20 69 6e 66 6f  20 40 20 6c 69 6e 65 20  |her info @ line |
00000240  33 30 34 30 2e 91 35 9c  0d 00 05 11 e7 90 3e 26  |3040..5.......>&|
00000250  31 33 30 30 8c 8d 64 74  4b 0d 00 0a 17 e7 51 25  |1300..dtK.....Q%|
00000260  84 52 25 de 71 25 34 30  8b 71 25 3d 26 38 44 30  |.R%.q%40.q%=&8D0|
00000270  0d 00 14 35 ef 33 2c 36  3a f2 61 28 22 46 58 32  |...5.3,6:.a("FX2|
00000280  32 35 22 29 3a e7 5a 25  f2 61 28 22 4c 2e 20 22  |25"):.Z%.a("L. "|
00000290  2b 22 53 63 6f 70 65 4d  43 20 22 2b 22 20 22 2b  |+"ScopeMC "+" "+|
000002a0  c3 7e 56 25 29 0d 00 1e  90 de 55 25 28 35 38 30  |.~V%).....U%(580|
000002b0  29 3a f2 68 3a 73 25 3d  30 3a 67 25 3d 31 3a 70  |):.h:s%=0:g%=1:p|
000002c0  25 3d 30 3a 69 25 3d 33  3a 68 25 3d b9 3a 72 25  |%=0:i%=3:h%=.:r%|
000002d0  3d 30 3a 78 25 3d 30 3a  42 3d 37 2e 34 31 3a 54  |=0:x%=0:B=7.41:T|
000002e0  3d 31 3a 43 41 25 3d 30  3a 4a 41 25 3d 30 3a 54  |=1:CA%=0:JA%=0:T|
000002f0  41 25 3d 30 3a 60 25 3d  30 3a 42 25 3d 31 3a 44  |A%=0:`%=0:B%=1:D|
00000300  25 3d 30 3a 45 25 3d 33  3a 46 25 3d 33 3a 4a 25  |%=0:E%=3:F%=3:J%|
00000310  3d 30 3a 4c 25 3d 30 3a  4d 25 3d 34 3a 4e 25 3d  |=0:L%=0:M%=4:N%=|
00000320  30 3a 4f 25 3d 30 3a 50  25 3d b9 3a 54 25 3d 31  |0:O%=0:P%=.:T%=1|
00000330  3a 5a 25 3d 30 0d 00 28  09 f5 ee 85 f2 65 0d 00  |:Z%=0..(.....e..|
00000340  32 c5 eb 37 2b 52 25 3a  ef 32 33 2c 31 2c 30 3b  |2..7+R%:.23,1,0;|
00000350  30 3b 30 3b 30 3b 32 33  2c 30 2c 32 2c 35 32 3b  |0;0;0;23,0,2,52;|
00000360  30 3b 30 3b 30 3b 3a f2  51 41 3a f2 70 3a e7 45  |0;0;0;:.QA:.p:.E|
00000370  25 3d 31 f2 69 28 26 39  35 2c 26 38 36 2c 26 38  |%=1.i(&95,&86,&8|
00000380  34 2c 26 38 31 29 3a f2  66 3a f2 4f 3a 8b e7 45  |4,&81):.f:.O:..E|
00000390  25 3d 32 f2 43 41 3a eb  4d 25 2b 52 25 3a ef 32  |%=2.CA:.M%+R%:.2|
000003a0  33 2c 30 2c 31 30 2c 36  37 3b 30 3b 30 3b 30 3b  |3,0,10,67;0;0;0;|
000003b0  3a f2 34 3a f2 50 3a f2  67 3a f2 60 3a f2 48 3a  |:.4:.P:.g:.`:.H:|
000003c0  8b e7 45 25 3d 33 f2 44  41 3a f2 43 41 3a eb 4d  |..E%=3.DA:.CA:.M|
000003d0  25 2b 52 25 3a f2 72 3a  f2 47 3a 8b e7 45 25 3d  |%+R%:.r:.G:..E%=|
000003e0  34 f2 44 41 3a f2 43 41  3a eb 4d 25 2b 52 25 3a  |4.DA:.CA:.M%+R%:|
000003f0  f2 60 3a ef 32 38 2c 30  2c 33 31 2c 33 39 2c 32  |.`:.28,0,31,39,2|
00000400  3a f2 4e 0d 00 3c 08 fd  30 3a e0 0d 00 46 34 dc  |:.N..<..0:...F4.|
00000410  30 2c 32 2c 30 2c 36 2c  30 2c 37 2c 37 2c 30 2c  |0,2,0,6,0,7,7,0,|
00000420  32 2c 30 2c 34 2c 33 2c  33 2c 34 2c 37 2c 34 2c  |2,0,4,3,3,4,7,4,|
00000430  34 2c 32 2c 32 2c 34 2c  36 2c 34 2c 36 2c 35 0d  |4,2,2,4,6,4,6,5.|
00000440  00 50 2e dc 30 2c 34 2c  35 2c 32 2c 36 2c 33 2c  |.P..0,4,5,2,6,3,|
00000450  34 2c 35 2c 30 2c 35 2c  30 2c 34 2c 36 2c 33 2c  |4,5,0,5,0,4,6,3,|
00000460  32 2c 37 2c 36 2c 31 2c  38 2c 35 2c 30 0d 00 5a  |2,7,6,1,8,5,0..Z|
00000470  3c dc 31 2c 35 39 2e 39  35 2c 32 2c 33 39 2e 39  |<.1,59.95,2,39.9|
00000480  36 2c 33 2c 32 39 2e 39  37 2c 34 2c 32 33 2e 39  |6,3,29.97,4,23.9|
00000490  38 2c 35 2c 31 35 2e 39  39 2c 36 2c 31 31 2e 39  |8,5,15.99,6,11.9|
000004a0  39 2c 37 2c 35 2e 39 39  35 0d 03 e8 1c dd f2 6e  |9,7,5.995......n|
000004b0  e7 42 41 25 f1 8a 30 2c  34 29 22 97 9d 95 22 27  |.BA%..0,4)"..."'|
000004c0  22 97 9d 95 22 0d 03 f2  45 d4 31 2c 2d 38 2c 31  |"..."...E.1,-8,1|
000004d0  35 38 2c 34 3a d4 33 2c  2d 38 2c 31 36 31 2c 34  |58,4:.3,-8,161,4|
000004e0  3a d4 31 2c 2d 38 2c 31  33 32 2c 38 3a d4 33 2c  |:.1,-8,132,8:.3,|
000004f0  2d 38 2c 31 33 35 2c 38  3a f2 61 28 22 46 58 32  |-8,135,8:.a("FX2|
00000500  31 33 2c 31 36 38 22 29  3a e1 0d 03 fc 19 dd f2  |13,168"):.......|
00000510  64 28 48 25 29 6f 25 3d  a6 28 48 25 2a 31 30 30  |d(H%)o%=.(H%*100|
00000520  29 3a e1 0d 04 06 18 dd  f2 51 41 f2 61 28 22 46  |):.......QA.a("F|
00000530  58 32 30 32 2c 33 32 22  29 3a e1 0d 04 10 19 dd  |X202,32"):......|
00000540  f2 43 41 f2 61 28 22 46  58 31 34 34 2c 30 2c 31  |.CA.a("FX144,0,1|
00000550  22 29 3a e1 0d 04 1a 24  dd f2 61 28 24 71 25 29  |"):....$..a($q%)|
00000560  58 25 3d 71 25 3a 59 25  3d 71 25 81 32 35 36 3a  |X%=q%:Y%=q%.256:|
00000570  d6 26 46 46 46 37 3a e1  0d 04 24 37 dd f2 63 db  |.&FFF7:...$7..c.|
00000580  3a ef 31 39 2c 30 2c 34  3b 30 3b 31 39 2c 31 2c  |:.19,0,4;0;19,1,|
00000590  36 3b 30 3b 3a f2 32 3a  f2 53 28 30 29 3a db 3a  |6;0;:.2:.S(0):.:|
000005a0  ef 32 30 2c 31 39 2c 31  2c 32 3b 30 3b 3a e1 0d  |.20,19,1,2;0;:..|
000005b0  04 2e a3 dd f2 32 20 4c  25 3d a4 59 28 30 2c 30  |.....2 L%=.Y(0,0|
000005c0  2c 22 44 69 73 63 20 63  61 74 61 6c 6f 67 75 65  |,"Disc catalogue|
000005d0  22 29 3a e7 ac 4c 25 e1  8b f2 53 28 b9 29 3a ef  |"):..L%...S(.):.|
000005e0  31 34 3a f1 8a 30 2c 30  29 51 24 22 64 72 69 76  |14:..0,0)Q$"driv|
000005f0  65 20 6e 6f 2e 20 30 5f  33 20 22 3a f2 5f 3a f1  |e no. 0_3 ":._:.|
00000600  8a 30 2c 30 29 22 44 69  73 63 20 73 75 72 66 61  |.0,0)"Disc surfa|
00000610  63 65 20 28 22 3b 4e 25  3b 22 29 20 5b 73 68 69  |ce (";N%;") [shi|
00000620  66 74 5d 20 73 63 72 6f  6c 6c 73 20 73 63 72 65  |ft] scrolls scre|
00000630  65 6e 22 3a f2 61 28 22  44 52 2e 22 2b c3 4e 25  |en":.a("DR."+.N%|
00000640  29 3a f2 61 28 22 2e 22  29 3a f2 37 3a ef 31 35  |):.a("."):.7:.15|
00000650  3a e1 0d 04 38 21 dd f2  53 28 66 25 29 e7 66 25  |:...8!..S(f%).f%|
00000660  fb 31 32 39 3a fb 30 3a  e1 8b fb 31 32 38 3a fb  |.129:.0:...128:.|
00000670  31 3a e1 0d 04 42 1b dd  f2 48 41 e7 4d 25 3d 30  |1:...B...HA.M%=0|
00000680  20 55 25 3d 32 3a e1 8b  55 25 3d 31 3a e1 0d 04  | U%=2:..U%=1:...|
00000690  4c 1f dd f2 5f f5 4e 25  3d a5 2d 34 38 3a ef 37  |L..._.N%=.-48:.7|
000006a0  3a fd 4e 25 3c 34 80 4e  25 3e b9 3a e1 0d 04 56  |:.N%<4.N%>.:...V|
000006b0  26 dd f2 67 ef 32 39 2c  31 30 38 3b 37 32 3b 3a  |&..g.29,108;72;:|
000006c0  48 25 3d 36 30 30 3a 4b  25 3d 31 31 36 30 3a e7  |H%=600:K%=1160:.|
000006d0  68 25 db 0d 04 60 7d ec  30 2c 48 25 3a df 30 2c  |h%...`}.0,H%:.0,|
000006e0  30 3a ec 4b 25 2c 30 3a  df 30 2c 30 3a e7 69 25  |0:.K%,0:.0,0:.i%|
000006f0  3c 32 8c 8d 44 74 44 8b  ec 30 2c 48 25 3a df 4b  |<2..DtD..0,H%:.K|
00000700  25 2c 48 25 3a df 4b 25  2c 30 3a 47 25 3d 30 3a  |%,H%:.K%,0:G%=0:|
00000710  e3 41 25 3d 31 32 30 b8  34 38 30 88 31 32 30 3a  |.A%=120.480.120:|
00000720  ec 30 2c 41 25 3a f0 32  31 2c 4b 25 2c 41 25 3a  |.0,A%:.21,K%,A%:|
00000730  47 25 3d 47 25 2b 32 33  32 3a ec 47 25 2c 48 25  |G%=G%+232:.G%,H%|
00000740  3a f0 32 31 2c 47 25 2c  30 3a ed 3a ec 30 2c 30  |:.21,G%,0:.:.0,0|
00000750  0d 04 6a 52 e7 69 25 3c  33 8c 8d 44 74 44 8b 47  |..jR.i%<3..DtD.G|
00000760  25 3d 30 3a e3 41 25 3d  36 30 b8 35 34 30 88 36  |%=0:.A%=60.540.6|
00000770  30 3a ec 30 2c 41 25 3a  f0 32 31 2c 4b 25 2c 41  |0:.0,A%:.21,K%,A|
00000780  25 3a 47 25 3d 47 25 2b  31 31 36 3a ec 47 25 2c  |%:G%=G%+116:.G%,|
00000790  48 25 3a f0 32 31 2c 47  25 2c 30 3a ed 3a ec 30  |H%:.21,G%,0:.:.0|
000007a0  2c 30 0d 04 74 3d 47 25  3d 30 3a e3 41 25 3d 36  |,0..t=G%=0:.A%=6|
000007b0  30 b8 48 25 88 36 30 3a  ec 30 2c 41 25 3a df 32  |0.H%.60:.0,A%:.2|
000007c0  30 2c 41 25 3a 47 25 3d  47 25 2b 31 31 36 3a ec  |0,A%:G%=G%+116:.|
000007d0  47 25 2c 30 3a df 47 25  2c 32 30 3a ed 3a e1 0d  |G%,0:.G%,20:.:..|
000007e0  04 7e 2d dd f2 62 28 6c  78 25 2c 62 79 25 2c 72  |.~-..b(lx%,by%,r|
000007f0  78 25 2c 74 79 25 29 ef  32 38 2c 6c 78 25 2c 62  |x%,ty%).28,lx%,b|
00000800  79 25 2c 72 78 25 2c 74  79 25 3a e1 0d 04 88 0c  |y%,rx%,ty%:.....|
00000810  dd f2 6c ef 32 36 3a e1  0d 04 92 53 dd f2 48 f2  |..l.26:....S..H.|
00000820  53 28 b9 29 3a f1 51 24  22 59 20 61 78 69 73 20  |S(.):.Q$"Y axis |
00000830  73 63 61 6c 65 22 3a f2  53 28 30 29 3a f1 27 22  |scale":.S(0):.'"|
00000840  5b 31 5d 20 6c 69 6e 22  27 22 5b 32 5d 20 6c 6f  |[1] lin"'"[2] lo|
00000850  67 22 3a 63 25 3d a4 43  28 32 29 3a e7 63 25 3d  |g":c%=.C(2):.c%=|
00000860  31 20 73 25 3d 30 8b 73  25 3d b9 0d 04 9c 13 f2  |1 s%=0.s%=......|
00000870  33 3a db 3a f2 76 3a f2  49 3a f2 4a 3a e1 0d 04  |3:.:.v:.I:.J:...|
00000880  a6 24 dd f2 6a f2 6c 3a  f2 33 3a f1 8a 30 2c 39  |.$..j.l:.3:..0,9|
00000890  29 48 24 3a f2 62 28 30  2c 38 2c 33 39 2c 32 29  |)H$:.b(0,8,39,2)|
000008a0  3a e1 0d 04 b0 55 dd f2  41 41 f2 53 28 30 29 3a  |:....U..AA.S(0):|
000008b0  f1 22 5b 31 5d 20 4e 61  72 72 6f 77 22 27 22 5b  |."[1] Narrow"'"[|
000008c0  32 5d 20 49 6e 74 65 72  6d 65 64 69 61 74 65 22  |2] Intermediate"|
000008d0  27 22 5b 33 5d 20 57 69  64 65 22 27 22 5b 34 5d  |'"[3] Wide"'"[4]|
000008e0  20 45 78 74 72 61 20 77  69 64 65 22 3a 4e 25 3d  | Extra wide":N%=|
000008f0  a4 43 28 34 29 3a e1 0d  04 ba 8e dd f2 76 f2 53  |.C(4):.......v.S|
00000900  28 b9 29 3a f2 6a 3a e7  73 25 f1 22 53 63 61 6e  |(.):.j:.s%."Scan|
00000910  73 20 40 20 31 20 73 20  5f 20 32 34 68 72 73 20  |s @ 1 s _ 24hrs |
00000920  4f 4e 4c 59 20 77 69 74  68 20 6c 6f 67 20 79 20  |ONLY with log y |
00000930  61 78 69 73 22 3a f2 64  28 34 29 3a f2 53 28 30  |axis":.d(4):.S(0|
00000940  29 3a f2 35 3a e1 8b f1  51 24 22 73 63 61 6e 20  |):.5:...Q$"scan |
00000950  74 69 6d 65 20 72 61 6e  67 65 22 27 3a f2 53 28  |time range"':.S(|
00000960  30 29 3a f1 22 5b 31 5d  20 3c 20 31 20 73 65 63  |0):."[1] < 1 sec|
00000970  22 27 22 5b 32 5d 20 31  20 73 65 63 20 5f 20 32  |"'"[2] 1 sec _ 2|
00000980  34 68 72 73 22 0d 04 c4  16 63 25 3d a4 43 28 32  |4hrs"....c%=.C(2|
00000990  29 3a e7 63 25 3d 32 f2  35 3a e1 0d 04 ce 73 ef  |):.c%=2.5:....s.|
000009a0  37 3a db 3a f1 22 46 61  73 74 20 73 63 61 6e 20  |7:.:."Fast scan |
000009b0  72 61 6e 67 65 20 30 2e  31 5f 30 2e 39 39 20 73  |range 0.1_0.99 s|
000009c0  65 63 22 3a 44 24 3d a4  50 28 30 2c 32 2c 22 53  |ec":D$=.P(0,2,"S|
000009d0  63 61 6e 20 74 69 6d 65  20 3a 22 2c 31 2c 33 29  |can time :",1,3)|
000009e0  3a 54 3d bb 44 24 3a e7  54 3e 2e 39 39 84 54 3c  |:T=.D$:.T>.99.T<|
000009f0  2e 31 8c 8d 64 4e 44 8b  72 25 3d b9 3a 47 24 3d  |.1..dND.r%=.:G$=|
00000a00  22 73 65 63 22 3a 54 25  3d 31 3a db 3a e1 0d 04  |"sec":T%=1:.:...|
00000a10  d8 2e dd f2 56 db 3a 4c  25 3d a4 59 28 30 2c 31  |....V.:L%=.Y(0,1|
00000a20  2c 22 41 6c 74 65 72 20  74 72 61 63 65 20 63 6f  |,"Alter trace co|
00000a30  6c 6f 75 72 22 29 3a e7  ac 4c 25 e1 0d 04 e2 95  |lour"):..L%.....|
00000a40  db 3a f7 8d 44 50 40 3a  f5 f3 47 25 2c 48 25 2c  |.:..DP@:..G%,H%,|
00000a50  4b 25 3a fd 47 25 3d 46  25 84 47 25 3d 38 3a ef  |K%:.G%=F%.G%=8:.|
00000a60  31 39 2c 31 2c 48 25 3b  30 3b 31 39 2c 32 2c 4b  |19,1,H%;0;19,2,K|
00000a70  25 3b 30 3b 3a 41 25 3d  31 3a ef 33 31 2c 33 2c  |%;0;:A%=1:.31,3,|
00000a80  31 3a f5 fb 41 25 3a f1  22 5b 22 3b 41 25 3b 22  |1:..A%:."[";A%;"|
00000a90  5d 22 3a ef 33 31 2c 34  2a 41 25 2c 33 2c 32 33  |]":.31,4*A%,3,23|
00000aa0  38 2c 33 31 2c 28 41 25  2a 34 29 2b 33 2c 31 3a  |8,31,(A%*4)+3,1:|
00000ab0  41 25 3d 41 25 2b 31 3a  fd 41 25 3d 34 3a 67 25  |A%=A%+1:.A%=4:g%|
00000ac0  3d a4 43 28 33 29 3a e6  30 2c 67 25 3a f2 60 3a  |=.C(3):.0,g%:.`:|
00000ad0  e1 0d 04 ec 1b dd f2 55  41 20 60 25 3d 30 3a e7  |.......UA `%=0:.|
00000ae0  51 25 84 52 25 8c 8d 64  76 44 8b e1 0d 04 f6 8e  |Q%.R%..dvD......|
00000af0  db 3a 4c 25 3d a4 59 28  30 2c 31 2c 22 54 72 69  |.:L%=.Y(0,1,"Tri|
00000b00  67 67 65 72 65 64 20 73  63 61 6e 20 6d 6f 64 65  |ggered scan mode|
00000b10  22 29 3a e7 ac 4c 25 db  3a e1 8b 54 41 25 3d b9  |"):..L%.:..TA%=.|
00000b20  3a 60 25 3d b9 3a db 3a  f1 27 22 5b 31 5d 20 53  |:`%=.:.:.'"[1] S|
00000b30  65 74 20 74 72 69 67 67  65 72 20 77 69 6e 64 6f  |et trigger windo|
00000b40  77 22 27 22 5b 32 5d 20  53 65 74 20 74 72 69 67  |w"'"[2] Set trig|
00000b50  67 65 72 20 6c 65 76 65  6c 20 26 20 2b 2f 2d 20  |ger level & +/- |
00000b60  73 6c 6f 70 65 22 3a 63  25 3d a4 43 28 32 29 3a  |slope":c%=.C(2):|
00000b70  e7 63 25 3d 32 8c 8d 54  5e 45 0d 05 00 66 db 3a  |.c%=2..T^E...f.:|
00000b80  f1 27 22 45 6e 74 65 72  20 77 69 6e 64 6f 77 20  |.'"Enter window |
00000b90  6c 69 6d 69 74 73 22 3a  44 24 3d a4 50 28 30 2c  |limits":D$=.P(0,|
00000ba0  33 2c 22 6c 6f 77 65 72  20 76 6f 6c 74 61 67 65  |3,"lower voltage|
00000bb0  20 28 30 2d 31 38 30 30  20 6d 76 29 20 22 2c 31  | (0-1800 mv) ",1|
00000bc0  2c 34 29 3a 55 41 25 3d  bb 44 24 3a e7 55 41 25  |,4):UA%=.D$:.UA%|
00000bd0  3e 31 38 30 30 84 55 41  25 3c 30 8c 8d 54 40 45  |>1800.UA%<0..T@E|
00000be0  0d 05 0a 96 44 24 3d a4  50 28 30 2c 34 2c 22 68  |....D$=.P(0,4,"h|
00000bf0  69 67 68 65 72 20 76 6f  6c 74 61 67 65 20 28 30  |igher voltage (0|
00000c00  2d 31 38 30 30 20 6d 76  29 20 22 2c 31 2c 34 29  |-1800 mv) ",1,4)|
00000c10  3a 56 41 25 3d bb 44 24  3a e7 56 41 25 3e 31 38  |:VA%=.D$:.VA%>18|
00000c20  30 30 84 56 41 25 3c 30  8c 8d 54 4a 45 8b e7 55  |00.VA%<0..TJE..U|
00000c30  41 25 3e 3d 56 41 25 db  3a f2 53 28 b9 29 3a f1  |A%>=VA%.:.S(.):.|
00000c40  27 27 22 57 69 6e 64 6f  77 20 74 6f 6f 20 6e 61  |''"Window too na|
00000c50  72 72 6f 77 3a 20 70 6c  65 61 73 65 20 72 65 73  |rrow: please res|
00000c60  65 74 20 22 3a f2 53 28  30 29 3a f2 64 28 34 29  |et ":.S(0):.d(4)|
00000c70  3a e5 8d 54 40 45 0d 05  14 07 db 3a e1 0d 05 1e  |:..T@E.....:....|
00000c80  5d 54 41 25 3d 30 3a db  3a 44 24 3d a4 50 28 30  |]TA%=0:.:D$=.P(0|
00000c90  2c 32 2c 22 45 6e 74 65  72 20 74 72 69 67 67 65  |,2,"Enter trigge|
00000ca0  72 20 76 6f 6c 74 61 67  65 20 28 30 20 2d 20 31  |r voltage (0 - 1|
00000cb0  38 30 30 20 6d 56 20 22  2c 31 2c 34 29 3a 57 41  |800 mV ",1,4):WA|
00000cc0  25 3d bb 44 24 3a e7 57  41 25 3e 31 38 30 30 84  |%=.D$:.WA%>1800.|
00000cd0  57 41 25 3c 30 8c 8d 54  5e 45 0d 05 28 5c db 3a  |WA%<0..T^E..(\.:|
00000ce0  f1 27 22 5b 31 5d 20 50  6f 73 69 74 69 76 65 22  |.'"[1] Positive"|
00000cf0  27 22 5b 32 5d 20 4e 65  67 61 74 69 76 65 20 74  |'"[2] Negative t|
00000d00  72 69 67 67 65 72 20 73  6c 6f 70 65 22 3a 63 25  |rigger slope":c%|
00000d10  3d a4 43 28 32 29 3a e7  63 25 3d 31 20 58 41 25  |=.C(2):.c%=1 XA%|
00000d20  3d b9 3a 50 24 3d 22 2b  22 8b 58 41 25 3d 30 3a  |=.:P$="+".XA%=0:|
00000d30  50 24 3d 22 2d 22 0d 05  32 07 db 3a e1 0d 05 3c  |P$="-"..2..:...<|
00000d40  cd dd f2 35 db 3a 72 25  3d 30 3a f1 22 53 63 61  |...5.:r%=0:."Sca|
00000d50  6e 20 72 61 6e 67 65 20  31 20 73 65 63 20 5f 20  |n range 1 sec _ |
00000d60  32 34 68 72 73 22 3a f2  53 28 b9 29 3a f1 27 51  |24hrs":.S(.):.'Q|
00000d70  24 22 75 6e 69 74 73 20  53 65 63 73 20 2f 20 4d  |$"units Secs / M|
00000d80  69 6e 73 20 2f 20 48 72  73 22 3a f2 53 28 30 29  |ins / Hrs":.S(0)|
00000d90  3a f1 8a 31 34 2c 32 29  22 65 63 73 20 2f 20 22  |:..14,2)"ecs / "|
00000da0  8a 32 31 2c 32 29 22 69  6e 73 20 2f 20 22 8a 32  |.21,2)"ins / ".2|
00000db0  38 2c 32 29 22 72 73 22  8a 31 32 2c 32 29 22 20  |8,2)"rs".12,2)" |
00000dc0  22 3a f2 51 41 3a f5 47  24 3d be 3a ef 37 3a fd  |":.QA:.G$=.:.7:.|
00000dd0  a7 22 48 4d 53 22 2c 47  24 29 3c 3e 30 3a e7 47  |."HMS",G$)<>0:.G|
00000de0  24 3d 22 48 22 47 24 3d  22 68 72 73 22 8b e7 47  |$="H"G$="hrs"..G|
00000df0  24 3d 22 4d 22 47 24 3d  22 6d 69 6e 73 20 22 8b  |$="M"G$="mins ".|
00000e00  47 24 3d 22 73 65 63 73  20 22 0d 05 46 6a f1 8a  |G$="secs "..Fj..|
00000e10  30 2c 32 29 89 33 39 8a  31 37 2c 32 29 47 24 3a  |0,2).39.17,2)G$:|
00000e20  44 24 3d a4 50 28 30 2c  32 2c 22 53 63 61 6e 20  |D$=.P(0,2,"Scan |
00000e30  74 69 6d 65 20 3a 20 22  2c 32 2c a9 47 24 2d 31  |time : ",2,.G$-1|
00000e40  29 3a 54 25 3d bb 44 24  3a 78 25 3d 54 25 3a e7  |):T%=.D$:x%=T%:.|
00000e50  a9 47 24 3c 34 20 54 25  3d 54 25 2a 33 36 30 30  |.G$<4 T%=T%*3600|
00000e60  8b e7 47 24 3d 22 6d 69  6e 73 20 22 54 25 3d 54  |..G$="mins "T%=T|
00000e70  25 2a 36 30 0d 05 50 1b  e7 54 25 3e 38 36 34 30  |%*60..P..T%>8640|
00000e80  30 84 54 25 3c 31 8c 8d  44 46 45 8b db 3a e1 0d  |0.T%<1..DFE..:..|
00000e90  05 5a 19 dd f2 36 20 49  25 3d 93 2d 28 21 32 80  |.Z...6 I%=.-(!2.|
00000ea0  26 46 46 46 46 29 3a e1  0d 05 64 d4 dd f2 4a f2  |&FFFF):...d...J.|
00000eb0  77 3a f2 60 3a f2 4a 41  3a f2 55 41 3a f2 61 28  |w:.`:.JA:.UA:.a(|
00000ec0  22 46 58 32 31 22 29 3a  f2 53 28 b9 29 3a ef 32  |"FX21"):.S(.):.2|
00000ed0  39 2c 31 30 38 3b 37 32  3b 3a ec 30 2c 30 3a f1  |9,108;72;:.0,0:.|
00000ee0  27 22 4b 65 79 20 3c 73  70 61 63 65 3e 20 6f 72  |'"Key <space> or|
00000ef0  20 3c 27 66 69 72 65 27  3e 20 74 6f 20 72 65 63  | <'fire'> to rec|
00000f00  6f 72 64 20 64 61 74 61  22 3a f2 53 28 30 29 3a  |ord data":.S(0):|
00000f10  f5 4b 41 25 3d 96 30 80  33 3a 6a 25 3d a6 30 3a  |.KA%=.0.3:j%=.0:|
00000f20  fd 4b 41 25 3e 30 84 6a  25 3d 26 32 30 3a db 3a  |.KA%>0.j%=&20:.:|
00000f30  f2 53 28 b9 29 3a f1 27  22 53 63 61 6e 6e 69 6e  |.S(.):.'"Scannin|
00000f40  67 20 41 44 43 20 70 6f  72 74 20 23 31 20 5b 66  |g ADC port #1 [f|
00000f50  37 5d 20 3e 20 6d 61 69  6e 20 6d 65 6e 75 22 3a  |7] > main menu":|
00000f60  e7 43 41 25 f1 27 22 48  6f 6c 64 20 5b 53 5d 20  |.CA%.'"Hold [S] |
00000f70  74 6f 20 65 6e 64 20 73  63 61 6e 22 0d 05 6e 47  |to end scan"..nG|
00000f80  e7 60 25 80 54 41 25 f1  8a 32 32 2c 33 29 22 57  |.`%.TA%..22,3)"W|
00000f90  69 6e 64 6f 77 20 22 3b  55 41 25 3b 22 20 5f 20  |indow ";UA%;" _ |
00000fa0  22 3b 56 41 25 8b e7 60  25 f1 8a 32 32 2c 33 29  |";VA%..`%..22,3)|
00000fb0  22 54 72 69 67 67 65 72  20 40 20 22 3b 50 24 3b  |"Trigger @ ";P$;|
00000fc0  57 41 25 0d 05 78 10 f2  4b 41 3a e7 73 25 f2 55  |WA%..x..KA:.s%.U|
00000fd0  8b f2 54 0d 05 82 2d f2  61 28 22 46 58 32 31 22  |..T...-.a("FX21"|
00000fe0  29 3a ef 37 3a e7 4d 25  3c 3e 31 ef 31 39 2c 30  |):.7:.M%<>1.19,0|
00000ff0  2c 44 25 3b 30 3b 31 39  2c 31 2c 46 25 3b 30 3b  |,D%;0;19,1,F%;0;|
00001000  0d 05 8c 1a ec 30 2c 30  3a f2 60 3a e6 30 2c 31  |.....0,0:.`:.0,1|
00001010  3a db 3a e7 4d 25 3d 31  f2 56 0d 05 96 0e f2 41  |:.:.M%=1.V.....A|
00001020  3a f2 45 3a f2 47 3a e1  0d 05 a0 34 dd f2 4b 41  |:.E:.G:....4..KA|
00001030  f2 61 28 22 46 58 31 36  2c 31 22 29 3a e7 72 25  |.a("FX16,1"):.r%|
00001040  f2 61 28 22 46 58 31 39  30 2c 38 22 29 8b f2 61  |.a("FX190,8")..a|
00001050  28 22 46 58 31 39 30 2c  31 32 22 29 0d 05 aa 05  |("FX190,12")....|
00001060  e1 0d 05 b4 22 dd f2 45  ef 37 3a f2 66 3a e7 4a  |...."..E.7:.f:.J|
00001070  25 f2 4c 3a e1 8b ee 85  f2 65 3a f2 45 3a e5 8d  |%.L:.....e:.E:..|
00001080  54 68 40 0d 05 be 2b db  3a 4c 25 3d a4 59 28 30  |Th@...+.:L%=.Y(0|
00001090  2c 31 2c 22 53 74 6f 72  65 20 64 61 74 61 20 6f  |,1,"Store data o|
000010a0  6e 20 64 69 73 63 22 29  3a e7 4c 25 f2 51 0d 05  |n disc"):.L%.Q..|
000010b0  c8 39 f2 4b 3a f2 60 3a  db 3a 4c 25 3d a4 59 28  |.9.K:.`:.:L%=.Y(|
000010c0  30 2c 31 2c 22 50 72 69  6e 74 20 64 61 74 61 22  |0,1,"Print data"|
000010d0  29 3a e7 4c 25 f2 4c 8b  ef 33 3a f2 61 28 22 46  |):.L%.L..3:.a("F|
000010e0  58 32 31 2c 33 22 29 0d  05 d2 36 db 3a 4c 25 3d  |X21,3")...6.:L%=|
000010f0  a4 59 28 30 2c 31 2c 22  50 6c 6f 74 20 6d 6f 72  |.Y(0,1,"Plot mor|
00001100  65 20 64 61 74 61 20 6f  6e 20 73 61 6d 65 20 61  |e data on same a|
00001110  78 65 73 22 29 3a e7 4c  25 db 3a f2 4a 0d 05 dc  |xes"):.L%.:.J...|
00001120  05 e1 0d 05 e6 4b dd f2  66 f2 36 3a e7 49 25 3e  |.....K..f.6:.I%>|
00001130  34 30 30 e1 8b ef 31 39  2c 31 2c 39 3b 30 3b 3a  |400...19,1,9;0;:|
00001140  f1 27 22 4d 65 6d 6f 72  79 20 4c 4f 57 20 3e 73  |.'"Memory LOW >s|
00001150  61 76 65 20 64 61 74 61  22 3a f2 64 28 39 29 3a  |ave data":.d(9):|
00001160  ef 31 39 2c 31 2c 46 25  3b 30 3b 3a e1 0d 05 f0  |.19,1,F%;0;:....|
00001170  8c dd f2 60 f2 62 28 30  2c 30 2c 33 39 2c 30 29  |...`.b(0,0,39,0)|
00001180  3a f2 53 28 b9 29 3a db  3a f2 36 3a f1 22 6d 6f  |:.S(.):.:.6:."mo|
00001190  64 65 22 3b 4d 25 3b 22  20 20 70 65 6e 20 20 20  |de";M%;"  pen   |
000011a0  20 4b 20 22 3b 49 25 2f  31 30 30 30 3b 22 20 20  | K ";I%/1000;"  |
000011b0  20 20 20 20 59 66 20 30  22 3b 3a 41 25 3d 35 38  |    Yf 0";:A%=58|
000011c0  31 3a f5 41 25 3d 41 25  2d 31 3a fd 55 25 28 41  |1:.A%=A%-1:.U%(A|
000011d0  25 29 3e b9 84 41 25 3c  35 34 36 3a e7 55 25 28  |%)>..A%<546:.U%(|
000011e0  41 25 29 3e 3d 30 ef 38  3a f1 3b 55 25 28 41 25  |A%)>=0.8:.;U%(A%|
000011f0  29 81 31 2a 2e 30 30 33  3b 0d 05 fa 2c f1 3b 22  |).1*.003;...,.;"|
00001200  76 22 3b 3a f2 53 28 30  29 3a fb 67 25 3a f1 8a  |v";:.S(0):.g%:..|
00001210  31 30 2c 30 29 22 20 20  20 22 3b 3a ef 38 2c 38  |10,0)"   ";:.8,8|
00001220  2c 32 34 37 3b 0d 06 04  6b f2 53 28 b9 29 3a e7  |,247;...k.S(.):.|
00001230  43 25 f1 8a 31 34 2c 30  29 22 74 75 72 62 6f 20  |C%..14,0)"turbo |
00001240  6d 6f 64 65 20 20 22 3b  3a f2 53 28 30 29 3a 8b  |mode  ";:.S(0):.|
00001250  e7 51 25 f1 8a 31 34 2c  30 29 22 36 35 30 32 20  |.Q%..14,0)"6502 |
00001260  6f 6e 20 6c 69 6e 65 22  3b 3a f2 53 28 30 29 3a  |on line";:.S(0):|
00001270  8b e7 52 25 f1 8a 31 34  2c 30 29 22 73 68 61 64  |..R%..14,0)"shad|
00001280  6f 77 20 6d 6f 64 65 20  22 3b 3a f2 53 28 30 29  |ow mode ";:.S(0)|
00001290  0d 06 0e 12 f2 62 28 30  2c 38 2c 33 39 2c 32 29  |.....b(0,8,39,2)|
000012a0  3a e1 0d 06 18 a1 dd f2  4a 41 20 43 41 25 3d 30  |:.......JA CA%=0|
000012b0  3a e7 54 25 3e 35 e1 8b  db 3a f1 27 22 5b 31 5d  |:.T%>5...:.'"[1]|
000012c0  20 73 69 6e 67 6c 65 22  27 22 5b 32 5d 20 63 6f  | single"'"[2] co|
000012d0  6e 74 69 6e 75 6f 75 73  20 73 63 61 6e 22 3a 63  |ntinuous scan":c|
000012e0  25 3d a4 43 28 32 29 3a  e7 63 25 3d 31 db 3a 43  |%=.C(2):.c%=1.:C|
000012f0  41 25 3d 30 3a e1 8b 43  41 25 3d b9 3a db 3a f1  |A%=0:..CA%=.:.:.|
00001300  27 22 5b 31 5d 20 73 74  6f 72 61 67 65 22 27 22  |'"[1] storage"'"|
00001310  5b 32 5d 20 65 72 61 73  75 72 65 20 6d 6f 64 65  |[2] erasure mode|
00001320  22 3a 63 25 3d a4 43 28  32 29 3a e7 63 25 3d 31  |":c%=.C(2):.c%=1|
00001330  db 3a 4a 41 25 3d 30 3a  e1 8b 4a 41 25 3d b9 3a  |.:JA%=0:..JA%=.:|
00001340  db 3a e1 0d 06 22 1f dd  f2 33 e7 73 25 48 24 3d  |.:..."...3.s%H$=|
00001350  22 6c 6f 67 22 3a e1 8b  48 24 3d 22 6c 69 6e 22  |"log":..H$="lin"|
00001360  3a e1 0d 06 2c 17 dd f2  38 f2 75 3a 4d 41 25 3d  |:...,...8.u:MA%=|
00001370  30 3a f5 e7 60 25 f2 54  41 0d 06 36 14 e7 72 25  |0:..`%.TA..6..r%|
00001380  f2 79 8b e7 73 25 f2 4c  41 8b f2 4d 41 0d 06 40  |.y..s%.LA..MA..@|
00001390  19 ec 30 2c 30 3a e7 a6  2d 38 32 4d 41 25 3d b9  |..0,0:..-82MA%=.|
000013a0  3a 4a 41 25 3d 30 0d 06  4a 0b e7 4a 41 25 f2 4e  |:JA%=0..J..JA%.N|
000013b0  41 0d 06 54 17 fd 4d 41  25 3a 68 25 3d 30 3a f2  |A..T..MA%:h%=0:.|
000013c0  67 3a 68 25 3d b9 3a e1  0d 06 5e 30 dd f2 54 e7  |g:h%=.:...^0..T.|
000013d0  43 25 42 3d 36 2e 34 35  33 8b e7 52 25 42 3d 31  |C%B=6.453..R%B=1|
000013e0  30 2e 35 38 33 8b e7 51  25 42 3d 37 2e 34 31 8b  |0.583..Q%B=7.41.|
000013f0  42 3d 31 32 2e 31 34 39  0d 06 68 13 e7 43 41 25  |B=12.149..h..CA%|
00001400  f2 38 3a e1 8b e7 60 25  f2 54 41 0d 06 72 11 e7  |.8:...`%.TA..r..|
00001410  72 25 f2 79 3a e1 8b f2  4d 41 3a e1 0d 06 7c 41  |r%.y:...MA:...|A|
00001420  dd f2 54 41 e7 54 41 25  f5 fd 96 31 81 33 36 3e  |..TA.TA%...1.36>|
00001430  3d 55 41 25 80 96 31 81  33 36 3c 3d 56 41 25 8b  |=UA%..1.36<=VA%.|
00001440  e7 58 41 25 f5 fd 96 31  81 33 36 3e 3d 57 41 25  |.XA%...1.36>=WA%|
00001450  8b f5 fd 96 31 81 33 36  3c 3d 57 41 25 0d 06 86  |....1.36<=WA%...|
00001460  05 e1 0d 06 90 48 dd f2  4d 41 e3 58 3d 30 b8 31  |.....H..MA.X=0.1|
00001470  31 35 39 88 42 2f 54 25  3a 55 25 28 58 81 32 29  |159.B/T%:U%(X.2)|
00001480  3d 96 31 81 31 30 39 3a  59 25 3d 55 25 28 58 81  |=.1.109:Y%=U%(X.|
00001490  32 29 3a df 58 2c 59 25  3a e7 59 25 3e 35 39 36  |2):.X,Y%:.Y%>596|
000014a0  ef 31 39 2c 31 2c 31 3b  30 3b 0d 06 9a 07 ed 3a  |.19,1,1;0;.....:|
000014b0  e1 0d 06 a4 31 dd f2 55  e7 43 25 42 3d 31 35 2e  |....1..U.C%B=15.|
000014c0  30 35 35 8b e7 52 25 42  3d 32 32 2e 31 39 31 8b  |055..R%B=22.191.|
000014d0  e7 51 25 42 3d 32 33 2e  34 30 36 8b 42 3d 33 34  |.Q%B=23.406.B=34|
000014e0  2e 35 0d 06 ae 13 e7 43  41 25 f2 38 3a e1 8b e7  |.5.....CA%.8:...|
000014f0  60 25 f2 54 41 0d 06 b8  11 e7 72 25 f2 79 3a e1  |`%.TA.....r%.y:.|
00001500  8b f2 4c 41 3a e1 0d 06  c2 51 dd f2 4c 41 e3 58  |..LA:....Q..LA.X|
00001510  3d 30 b8 31 31 35 39 88  42 2f 54 25 3a 55 25 28  |=0.1159.B/T%:U%(|
00001520  58 81 32 29 3d 28 aa 28  96 31 2b 35 35 29 2d 34  |X.2)=(.(.1+55)-4|
00001530  29 2a 38 35 3a 59 25 3d  55 25 28 58 81 32 29 3a  |)*85:Y%=U%(X.2):|
00001540  df 58 2c 59 25 3a e7 59  25 3e 35 39 39 ef 31 39  |.X,Y%:.Y%>599.19|
00001550  2c 31 2c 31 3b 30 3b 0d  06 cc 07 ed 3a e1 0d 06  |,1,1;0;.....:...|
00001560  d6 32 dd f2 79 e3 58 3d  30 b8 31 31 35 39 88 42  |.2..y.X=0.1159.B|
00001570  2f 54 3a 55 25 28 58 81  32 29 3d 96 31 81 31 30  |/T:U%(X.2)=.1.10|
00001580  39 3a df 58 2c 55 25 28  58 81 32 29 3a ed 3a e1  |9:.X,U%(X.2):.:.|
00001590  0d 06 e0 69 dd f2 41 db  3a 4c 25 3d a4 59 28 30  |...i..A.:L%=.Y(0|
000015a0  2c 31 2c 22 45 44 49 54  20 74 72 61 63 65 22 29  |,1,"EDIT trace")|
000015b0  3a e7 ac 4c 25 e1 8b db  3a f1 27 22 5b 31 5d 20  |:..L%...:.'"[1] |
000015c0  45 52 41 53 45 20 74 72  61 63 65 22 27 22 5b 32  |ERASE trace"'"[2|
000015d0  5d 20 52 45 50 4c 4f 54  20 6f 70 74 69 6f 6e 73  |] REPLOT options|
000015e0  22 3a 4e 25 3d a4 43 28  32 29 3a e7 4e 25 3d 31  |":N%=.C(2):.N%=1|
000015f0  f2 42 3a e1 8b f2 44 3a  e1 0d 06 ea 56 dd f2 42  |.B:...D:....V..B|
00001600  f2 75 3a db 3a ef 32 39  2c 31 30 38 3b 37 32 3b  |.u:.:.29,108;72;|
00001610  3a e6 30 2c 30 3a e3 58  3d 30 b8 31 31 35 39 88  |:.0,0:.X=0.1159.|
00001620  44 3a df 58 2c 55 25 28  58 81 32 29 3a ed 3a e7  |D:.X,U%(X.2):.:.|
00001630  28 28 44 3d 31 29 84 28  44 3d 32 29 29 80 28 51  |((D=1).(D=2)).(Q|
00001640  25 84 52 25 29 8c 8d 64  74 46 8b 8d 64 7e 46 0d  |%.R%)..dtF..d~F.|
00001650  06 f4 69 4c 25 3d a4 59  28 30 2c 31 2c 22 57 69  |..iL%=.Y(0,1,"Wi|
00001660  64 65 20 65 72 61 73 65  22 29 3a e7 ac 4c 25 3a  |de erase"):..L%:|
00001670  db 3a e6 30 2c 67 25 3a  68 25 3d 30 3a f2 67 3a  |.:.0,g%:h%=0:.g:|
00001680  68 25 3d b9 3a e1 8b db  3a ef 35 3a ec 30 2c 30  |h%=.:...:.5:.0,0|
00001690  3a e3 58 25 3d 30 b8 31  31 35 39 88 32 3a ec 58  |:.X%=0.1159.2:.X|
000016a0  25 2d 38 2c 55 25 28 58  25 81 32 29 2b 38 3a ef  |%-8,U%(X%.2)+8:.|
000016b0  32 33 38 3a ed 3a ef 34  0d 06 fe 1c ec 30 2c 30  |238:.:.4.....0,0|
000016c0  3a e6 30 2c 31 3a 68 25  3d 30 3a f2 67 3a 68 25  |:.0,1:h%=0:.g:h%|
000016d0  3d b9 3a e1 0d 07 08 31  dd f2 4e 41 e6 30 2c 30  |=.:....1..NA.0,0|
000016e0  3a e3 58 3d 30 b8 31 31  35 39 88 44 3a df 58 2c  |:.X=0.1159.D:.X,|
000016f0  55 25 28 58 81 32 29 3a  ed 3a ec 30 2c 30 3a e6  |U%(X.2):.:.0,0:.|
00001700  30 2c 31 3a e1 0d 07 12  80 dd f2 44 f2 75 3a db  |0,1:.......D.u:.|
00001710  3a f1 27 22 5b 31 5d 20  4f 76 65 72 6c 61 79 20  |:.'"[1] Overlay |
00001720  6c 69 6e 65 20 77 69 74  68 20 73 79 6d 62 6f 6c  |line with symbol|
00001730  22 27 22 5b 32 5d 20 52  65 70 6c 6f 74 20 77 69  |"'"[2] Replot wi|
00001740  74 68 20 73 79 6d 62 6f  6c 22 27 22 5b 33 5d 20  |th symbol"'"[3] |
00001750  53 70 65 63 69 61 6c 20  6f 70 74 69 6f 6e 73 22  |Special options"|
00001760  3a 4e 25 3d a4 43 28 33  29 3a e7 4e 25 3d 31 f2  |:N%=.C(3):.N%=1.|
00001770  74 3a e1 8b e7 4e 25 3d  32 f2 42 3a f2 74 3a e1  |t:...N%=2.B:.t:.|
00001780  8b f2 78 3a e1 0d 07 1c  0e dd f2 74 e7 4d 25 3d  |..x:.......t.M%=|
00001790  31 f2 56 0d 07 26 67 db  3a f1 27 51 24 22 73 79  |1.V..&g.:.'Q$"sy|
000017a0  6d 62 6f 6c 22 3a f2 7a  3a f2 43 3a ef 35 2c 32  |mbol":.z:.C:.5,2|
000017b0  39 2c 31 30 38 3b 37 32  3b 3a e6 30 2c 67 25 3a  |9,108;72;:.0,g%:|
000017c0  ec 30 2c 30 3a e3 58 3d  30 b8 31 31 35 39 88 44  |.0,0:.X=0.1159.D|
000017d0  3a ec 58 2d 38 2c 55 25  28 58 81 32 29 2b 38 3a  |:.X-8,U%(X.2)+8:|
000017e0  ef 32 32 33 2b 4e 25 3a  ed 3a ec 30 2c 30 3a ef  |.223+N%:.:.0,0:.|
000017f0  34 2c 37 3a db 3a f2 41  3a e1 0d 07 30 5c dd f2  |4,7:.:.A:...0\..|
00001800  78 db 3a f1 27 22 5b 31  5d 20 41 64 64 20 74 65  |x.:.'"[1] Add te|
00001810  78 74 20 74 6f 20 67 72  61 70 68 20 61 72 65 61  |xt to graph area|
00001820  22 27 22 5b 32 5d 20 43  6f 6e 76 65 72 74 20 74  |"'"[2] Convert t|
00001830  6f 20 62 61 72 67 72 61  70 68 20 64 69 73 70 6c  |o bargraph displ|
00001840  61 79 22 3a 4e 25 3d a4  43 28 32 29 3a e7 4e 25  |ay":N%=.C(2):.N%|
00001850  3d 32 f2 39 3a e1 0d 07  3a 0f e7 4d 25 3c 3e 31  |=2.9:...:..M%<>1|
00001860  8c 8d 44 62 47 0d 07 44  2d 5f 41 25 3d 31 3a 60  |..DbG..D-_A%=1:`|
00001870  41 25 3d 30 3a db 3a f5  d1 3d 30 3a 5f 41 25 3d  |A%=0:.:..=0:_A%=|
00001880  5f 41 25 2b 31 3a e7 5f  41 25 3e 33 20 5f 41 25  |_A%+1:._A%>3 _A%|
00001890  3d 31 0d 07 4e 44 fb 5f  41 25 3a f1 8a 30 2c 32  |=1..ND._A%:..0,2|
000018a0  29 22 4b 65 79 20 43 20  74 6f 20 73 65 6c 65 63  |)"Key C to selec|
000018b0  74 20 54 45 58 54 20 63  6f 6c 6f 75 72 22 3a f5  |t TEXT colour":.|
000018c0  fd 91 3e 38 30 84 a6 2d  38 33 3a e7 a6 2d 38 33  |..>80..-83:..-83|
000018d0  20 60 41 25 3d b9 0d 07  58 08 fd 60 41 25 0d 07  | `A%=...X..`A%..|
000018e0  62 56 db 3a f1 27 22 53  65 74 20 74 65 78 74 20  |bV.:.'"Set text |
000018f0  6f 72 69 67 69 6e 20 75  73 69 6e 67 20 63 75 72  |origin using cur|
00001900  73 6f 72 20 6b 65 79 73  22 27 22 61 6e 64 20 6b  |sor keys"'"and k|
00001910  65 79 20 3c 54 3e 22 3a  f2 71 3a db 3a 49 24 3d  |ey <T>":.q:.:I$=|
00001920  a4 50 28 30 2c 31 2c 22  54 65 78 74 3a 22 2c 30  |.P(0,1,"Text:",0|
00001930  2c 33 34 29 0d 07 6c 91  e7 4d 25 3c 3e 31 8c 8d  |,34)..l..M%<>1..|
00001940  44 76 47 8b db 3a e6 30  2c 5f 41 25 3a 4c 25 3d  |DvG..:.0,_A%:L%=|
00001950  a4 59 28 30 2c 31 2c 22  49 6e 76 65 72 74 20 74  |.Y(0,1,"Invert t|
00001960  65 78 74 20 62 61 63 6b  67 72 6f 75 6e 64 20 63  |ext background c|
00001970  6f 6c 6f 75 72 22 29 3a  e7 4c 25 ef 32 33 2c b9  |olour"):.L%.23,.|
00001980  2c b9 3b b9 3b b9 3b b9  3b 35 3a ec 76 25 2c 77  |,.;.;.;.;5:.v%,w|
00001990  25 3a e3 62 41 25 3d 30  b8 a9 49 24 2d 31 3a ef  |%:.bA%=0..I$-1:.|
000019a0  b9 3a ed 3a ef 32 33 2c  b9 2c 26 38 46 38 3b 26  |.:.:.23,.,&8F8;&|
000019b0  38 45 38 3b 26 45 38 45  38 3b 26 46 38 30 38 3b  |8E8;&E8E8;&F808;|
000019c0  3a e6 30 2c 30 0d 07 76  3a ef 35 3a ec 76 25 2c  |:.0,0..v:.5:.v%,|
000019d0  77 25 3a f1 49 24 3a ef  34 3a db 3a 4c 25 3d a4  |w%:.I$:.4:.:L%=.|
000019e0  59 28 30 2c 31 2c 22 41  64 64 20 6d 6f 72 65 20  |Y(0,1,"Add more |
000019f0  74 65 78 74 22 29 3a e7  4c 25 8c 8d 54 7a 47 0d  |text"):.L%..TzG.|
00001a00  07 80 08 f2 41 3a e1 0d  07 8a 6e dd f2 47 db 3a  |....A:....n..G.:|
00001a10  ef 37 3a f1 27 22 5b 31  5d 20 6d 61 69 6e 20 6d  |.7:.'"[1] main m|
00001a20  65 6e 75 22 27 22 5b 32  5d 20 72 65 73 65 74 20  |enu"'"[2] reset |
00001a30  61 78 65 73 22 27 22 5b  33 5d 20 70 6c 6f 74 20  |axes"'"[3] plot |
00001a40  64 61 74 61 20 75 73 69  6e 67 20 73 61 6d 65 20  |data using same |
00001a50  61 78 65 73 22 3a e7 4a  25 f1 8a 30 2c 33 29 89  |axes":.J%..0,3).|
00001a60  37 38 3a 4e 25 3d a4 43  28 32 29 3a 8b 4e 25 3d  |78:N%=.C(2):.N%=|
00001a70  a4 43 28 33 29 0d 07 94  2e 4a 25 3d 30 3a e7 4e  |.C(3)....J%=0:.N|
00001a80  25 3d 31 f9 8b e7 4e 25  3d 32 f2 6c 3a f2 67 3a  |%=1...N%=2.l:.g:|
00001a90  f2 60 3a f2 48 3a e1 8b  f2 67 3a f2 6a 3a f2 49  |.`:.H:...g:.j:.I|
00001aa0  3a f2 4a 0d 07 9e 05 e1  0d 07 a8 3c dd f2 43 20  |:.J........<..C |
00001ab0  4c 25 3d 30 3a e7 54 25  3e 36 20 4c 25 3d a4 59  |L%=0:.T%>6 L%=.Y|
00001ac0  28 30 2c 31 2c 22 41 6c  74 65 72 20 6c 69 6e 65  |(0,1,"Alter line|
00001ad0  20 64 65 66 69 6e 69 74  69 6f 6e 22 29 8b e7 72  | definition")..r|
00001ae0  25 3d b9 e1 0d 07 b2 80  e7 ac 4c 25 db 3a e1 8b  |%=........L%.:..|
00001af0  f2 53 28 b9 29 3a f1 27  22 5b 31 5d 20 32 30 20  |.S(.):.'"[1] 20 |
00001b00  20 5b 32 5d 20 33 30 20  20 5b 33 5d 20 34 30 20  | [2] 30  [3] 40 |
00001b10  20 5b 34 5d 20 35 30 20  20 5b 35 5d 20 37 35 20  | [4] 50  [5] 75 |
00001b20  20 5b 36 5d 20 31 30 30  20 5b 37 5d 20 32 30 30  | [6] 100 [7] 200|
00001b30  20 70 6f 69 6e 74 73 22  3a f2 53 28 30 29 3a 47  | points":.S(0):G|
00001b40  25 3d a4 43 28 37 29 3a  f7 8d 44 5a 40 3a f5 f3  |%=.C(7):..DZ@:..|
00001b50  4b 25 2c 44 3a fd 4b 25  3d 47 25 84 4b 25 3d 37  |K%,D:.K%=G%.K%=7|
00001b60  3a db 3a e1 0d 07 bc 66  dd f2 39 f2 75 3a db 3a  |:.:....f..9.u:.:|
00001b70  f2 53 28 b9 29 3a f1 27  51 24 22 63 6f 6c 75 6d  |.S(.):.'Q$"colum|
00001b80  6e 20 73 70 61 63 69 6e  67 22 3a f2 41 41 3a 48  |n spacing":.AA:H|
00001b90  25 3d 4e 25 5e 33 3a db  3a f2 53 28 b9 29 3a f1  |%=N%^3:.:.S(.):.|
00001ba0  27 51 24 22 76 65 72 74  69 63 61 6c 20 70 61 74  |'Q$"vertical pat|
00001bb0  74 65 72 6e 20 73 70 61  63 69 6e 67 22 3a f2 41  |tern spacing":.A|
00001bc0  41 3a 5a 41 25 3d 4e 25  2a 34 0d 07 c6 c2 db 3a  |A:ZA%=N%*4.....:|
00001bd0  f2 53 28 b9 29 3a f1 27  51 24 22 66 69 6c 6c 20  |.S(.):.'Q$"fill |
00001be0  70 61 74 74 65 72 6e 22  27 3a f2 53 28 30 29 3a  |pattern"':.S(0):|
00001bf0  f2 7a 3a f2 42 41 3a db  3a 4c 25 3d a4 59 28 30  |.z:.BA:.:L%=.Y(0|
00001c00  2c 31 2c 22 53 75 70 65  72 69 6d 70 6f 73 65 22  |,1,"Superimpose"|
00001c10  29 3a ef 35 2c 32 39 2c  31 30 38 3b 37 32 3b 32  |):.5,29,108;72;2|
00001c20  34 2c 34 3b 34 3b 31 31  35 36 3b 35 39 36 3b 3a  |4,4;4;1156;596;:|
00001c30  e3 58 3d 30 b8 31 31 35  39 88 44 2a 48 25 3a e3  |.X=0.1159.D*H%:.|
00001c40  4b 25 3d 59 41 25 b8 55  25 28 58 81 32 29 88 5a  |K%=YA%.U%(X.2).Z|
00001c50  41 25 3a ec 58 2c 4b 25  3a e7 4c 25 80 55 25 28  |A%:.X,K%:.L%.U%(|
00001c60  58 81 32 29 3e 59 41 25  ef 32 32 33 2b 4e 25 8b  |X.2)>YA%.223+N%.|
00001c70  e7 55 25 28 58 81 32 29  3e 59 41 25 80 b0 58 2c  |.U%(X.2)>YA%..X,|
00001c80  4b 25 29 3c 31 ef 32 32  33 2b 4e 25 0d 07 d0 24  |K%)<1.223+N%...$|
00001c90  ed 2c 3a ef 32 36 2c 34  2c 32 39 2c 31 30 38 3b  |.,:.26,4,29,108;|
00001ca0  37 32 3b 3a ec 30 2c 30  3a f2 60 3a f2 41 3a e1  |72;:.0,0:.`:.A:.|
00001cb0  0d 07 da 20 dd f2 77 e3  59 25 3d 30 b8 35 38 30  |... ..w.Y%=0.580|
00001cc0  3a 55 25 28 59 25 29 3d  b9 3a ed 3a ef 37 3a e1  |:U%(Y%)=.:.:.7:.|
00001cd0  0d 07 e4 6a dd f2 42 41  f5 db 3a 4c 25 3d a4 59  |...j..BA..:L%=.Y|
00001ce0  28 30 2c 31 2c 22 46 69  6c 6c 20 66 72 6f 6d 20  |(0,1,"Fill from |
00001cf0  58 20 61 78 69 73 22 29  3a e7 4c 25 59 41 25 3d  |X axis"):.L%YA%=|
00001d00  30 8b db 3a 44 24 3d a4  50 28 30 2c 31 2c 22 45  |0..:D$=.P(0,1,"E|
00001d10  6e 74 65 72 20 62 61 73  65 6c 69 6e 65 20 28 30  |nter baseline (0|
00001d20  2d 31 38 30 30 20 6d 56  29 20 22 2c 31 2c 34 29  |-1800 mV) ",1,4)|
00001d30  3a 59 41 25 3d bb 44 24  81 33 0d 07 ee 0e fd 59  |:YA%=.D$.3.....Y|
00001d40  41 25 3c 36 30 30 3a e1  0d 07 f8 57 dd f2 7a 20  |A%<600:....W..z |
00001d50  5f 25 3d 31 3a f5 f1 22  5b 22 3b bd 28 5f 25 2b  |_%=1:.."[";.(_%+|
00001d60  36 34 29 3b 22 5d 22 3b  3a ef 32 32 33 2b 5f 25  |64);"]";:.223+_%|
00001d70  3a 5f 25 3d 5f 25 2b 31  3a fd 5f 25 3e 32 39 3a  |:_%=_%+1:._%>29:|
00001d80  f5 4e 25 3d a5 3a fd 4e  25 3c 39 35 80 4e 25 3e  |.N%=.:.N%<95.N%>|
00001d90  36 34 3a 4e 25 3d 4e 25  2d 36 34 3a db 3a e1 0d  |64:N%=N%-64:.:..|
00001da0  08 02 90 dd f2 71 ef 35  3a e6 33 2c 31 3a 74 25  |.....q.5:.3,1:t%|
00001db0  3d 35 30 30 3a 75 25 3d  35 38 36 3a 76 25 3d 74  |=500:u%=586:v%=t|
00001dc0  25 3a 77 25 3d 75 25 3a  ef 32 35 2c 34 2c 76 25  |%:w%=u%:.25,4,v%|
00001dd0  3b 77 25 3b 32 35 31 3a  f5 e7 a6 2d 31 32 32 80  |;w%;251:...-122.|
00001de0  74 25 3c 31 31 34 30 20  74 25 3d 76 25 2b 34 8b  |t%<1140 t%=v%+4.|
00001df0  e7 a6 2d 32 36 80 74 25  3e 2d 31 31 32 20 74 25  |..-26.t%>-112 t%|
00001e00  3d 76 25 2d 34 8b e7 a6  2d 35 38 80 75 25 3c 36  |=v%-4...-58.u%<6|
00001e10  36 30 20 75 25 3d 77 25  2b 34 8b e7 a6 2d 34 32  |60 u%=w%+4...-42|
00001e20  80 75 25 3e 2d 34 34 20  75 25 3d 77 25 2d 34 0d  |.u%>-44 u%=w%-4.|
00001e30  08 0c 54 ef 32 35 2c 34  2c 76 25 3b 77 25 3b 32  |..T.25,4,v%;w%;2|
00001e40  35 31 3a ef 32 35 2c 34  2c 74 25 3b 75 25 3b 32  |51:.25,4,t%;u%;2|
00001e50  35 31 3a 76 25 3d 74 25  3a 77 25 3d 75 25 3a fd  |51:v%=t%:w%=u%:.|
00001e60  a6 2d 33 36 3a ef 32 35  2c 34 2c 76 25 3b 77 25  |.-36:.25,4,v%;w%|
00001e70  3b 32 35 31 3a e6 30 2c  31 3a ec 30 2c 30 3a ef  |;251:.0,1:.0,0:.|
00001e80  34 3a e1 0d 08 16 2d dd  a4 49 28 6d 25 2c 6e 25  |4:....-..I(m%,n%|
00001e90  29 42 24 3d 22 22 3a f1  c4 6e 25 2c 22 5f 22 29  |)B$="":..n%,"_")|
00001ea0  3b 3a ef 33 31 2c b1 2d  6e 25 2c bc 3b 3a f2 6b  |;:.31,.-n%,.;:.k|
00001eb0  0d 08 20 b5 43 24 3d be  3a 6b 25 3d 97 43 24 3a  |.. .C$=.:k%=.C$:|
00001ec0  e7 6b 25 3d 26 44 8c 8d  54 6a 48 8b e7 6b 25 3d  |.k%=&D..TjH..k%=|
00001ed0  26 37 46 80 42 24 3d 22  22 8c 8d 54 60 48 8b e7  |&7F.B$=""..T`H..|
00001ee0  6b 25 3d 26 37 46 20 42  24 3d c0 42 24 2c a9 42  |k%=&7F B$=.B$,.B|
00001ef0  24 2d 31 29 3a f1 43 24  3b 3a e5 8d 54 60 48 8b  |$-1):.C$;:..T`H.|
00001f00  e7 6b 25 3e 26 46 43 84  6b 25 3c 26 32 30 84 a9  |.k%>&FC.k%<&20..|
00001f10  42 24 3d 6e 25 ef 37 3a  e5 8d 54 60 48 8b e7 28  |B$=n%.7:..T`H..(|
00001f20  6b 25 3e 26 32 46 80 6b  25 3c 26 33 41 29 84 6b  |k%>&2F.k%<&3A).k|
00001f30  25 3d 26 32 30 84 28 6d  25 3d 31 80 97 43 24 3d  |%=&20.(m%=1..C$=|
00001f40  26 32 45 29 84 6d 25 3d  30 f1 43 24 3b 3a 42 24  |&2E).m%=0.C$;:B$|
00001f50  3d 42 24 2b 43 24 3a e5  8d 54 60 48 8b f2 6e 3a  |=B$+C$:..T`H..n:|
00001f60  e5 8d 54 60 48 0d 08 2a  07 3d 42 24 0d 08 34 40  |..T`H..*.=B$..4@|
00001f70  dd a4 50 28 58 25 2c 59  25 2c 4c 24 2c 6d 25 2c  |..P(X%,Y%,L$,m%,|
00001f80  6e 25 29 f2 53 28 b9 29  3a f1 8a 58 25 2c 59 25  |n%).S(.):..X%,Y%|
00001f90  29 3b 4c 24 3b 3a f2 53  28 30 29 3a 42 24 3d a4  |);L$;:.S(0):B$=.|
00001fa0  49 28 6d 25 2c 6e 25 29  3a 3d 42 24 0d 08 3e 16  |I(m%,n%):=B$..>.|
00001fb0  dd f2 6b f5 42 24 3d bf  30 3a fd 42 24 3d 22 22  |..k.B$=.0:.B$=""|
00001fc0  3a e1 0d 08 48 78 dd a4  59 28 4e 41 25 2c 4f 41  |:...Hx..Y(NA%,OA|
00001fd0  25 2c 4c 24 29 f2 61 28  22 46 58 32 31 22 29 3a  |%,L$).a("FX21"):|
00001fe0  f1 8a 4e 41 25 2c 4f 41  25 29 89 32 39 3a f2 53  |..NA%,OA%).29:.S|
00001ff0  28 b9 29 3a f1 8a 4e 41  25 2c 4f 41 25 29 3b 4c  |(.):..NA%,OA%);L|
00002000  24 3b 22 3f 20 28 59 2f  4e 29 22 3a f2 53 28 30  |$;"? (Y/N)":.S(0|
00002010  29 3a f5 42 24 3d be 3a  fd a7 22 79 59 6e 4e 22  |):.B$=.:.."yYnN"|
00002020  2c 42 24 29 3c 3e 30 3a  e7 a7 22 79 59 22 2c 42  |,B$)<>0:.."yY",B|
00002030  24 29 3d 30 8c 3d 30 8b  3d b9 0d 08 52 2d dd a4  |$)=0.=0.=...R-..|
00002040  43 28 50 41 25 29 f2 61  28 22 46 58 32 31 22 29  |C(PA%).a("FX21")|
00002050  3a f5 41 24 3d be 3a e7  bb 41 24 3c 31 84 bb 41  |:.A$=.:..A$<1..A|
00002060  24 3e 50 41 25 f2 6e 0d  08 5c 1e fd 41 24 3e 22  |$>PA%.n..\..A$>"|
00002070  30 22 80 41 24 3c 3d bd  28 34 38 2b 50 41 25 29  |0".A$<=.(48+PA%)|
00002080  3a 3d bb 41 24 0d 08 66  88 dd f2 69 28 41 25 2c  |:=.A$..f...i(A%,|
00002090  47 25 2c 48 25 2c 4b 25  29 db 3a ef 26 32 30 2c  |G%,H%,K%).:.&20,|
000020a0  41 25 2c 26 39 44 3a e3  4b 41 25 3d 31 b8 32 3a  |A%,&9D:.KA%=1.2:|
000020b0  ef 33 31 2c 30 2c 4b 41  25 2c 47 25 2c 26 39 44  |.31,0,KA%,G%,&9D|
000020c0  2c 26 38 44 2c 48 25 3a  f1 3b 6e 24 3b 22 20 20  |,&8D,H%:.;n$;"  |
000020d0  22 3b 3a ef 41 25 2c 26  39 44 2c 33 31 2c 31 35  |";:.A%,&9D,31,15|
000020e0  2c 4b 41 25 2c 4b 25 3a  ed 3a ef 33 31 2c 31 2c  |,KA%,K%:.:.31,1,|
000020f0  33 2c 41 25 3a f1 c4 33  36 2c 56 24 29 3b 3a ef  |3,A%:..36,V$);:.|
00002100  26 39 44 3a f1 8a 30 2c  34 29 3b 3a e1 0d 08 70  |&9D:..0,4);:...p|
00002110  81 dd f2 4f 3a 4f 25 3d  b9 3a ef 32 33 2c 30 2c  |...O:O%=.:.23,0,|
00002120  31 30 2c 32 30 33 3b 30  3b 30 3b 30 3b 3a e3 41  |10,203;0;0;0;:.A|
00002130  25 3d 36 b8 32 33 3a ef  33 31 2c 30 2c 41 25 3a  |%=6.23:.31,0,A%:|
00002140  f1 22 84 9d 22 3b 3a ef  33 31 2c 33 38 2c 41 25  |."..";:.31,38,A%|
00002150  3a f1 22 85 9d 22 3b 3a  ed 3a f1 8a 30 2c 34 29  |:."..";:.:..0,4)|
00002160  22 82 9d 84 45 78 70 65  72 69 6d 65 6e 74 61 6c  |"...Experimental|
00002170  20 70 61 72 61 6d 65 74  65 72 73 20 85 9d 22 27  | parameters .."'|
00002180  22 20 95 22 c4 32 35 2c  56 24 29 22 9d 22 0d 08  |" .".25,V$)"."..|
00002190  7a e7 f1 8a 32 2c 36 29  22 86 45 6e 74 65 72 20  |z...2,6)".Enter |
000021a0  64 65 74 61 69 6c 73 2c  22 8a 32 2c 37 29 22 86  |details,".2,7)".|
000021b0  6f 72 20 3c 83 52 45 54  55 52 4e 86 3e 20 66 6f  |or <.RETURN.> fo|
000021c0  72 20 6e 65 78 74 20 70  61 72 61 6d 65 74 65 72  |r next parameter|
000021d0  22 3a 61 24 3d a4 50 28  32 2c 39 2c 22 86 9c 44  |":a$=.P(2,9,"..D|
000021e0  61 74 61 20 74 69 74 6c  65 84 9d 86 22 2c 30 2c  |ata title...",0,|
000021f0  32 30 29 3a 62 24 3d a4  50 28 32 2c 31 31 2c 22  |20):b$=.P(2,11,"|
00002200  86 9c 44 61 74 61 20 74  79 70 65 84 9d 86 22 2c  |..Data type...",|
00002210  30 2c 32 30 29 3a 63 24  3d a4 50 28 32 2c 31 32  |0,20):c$=.P(2,12|
00002220  2c 4e 24 2c 30 2c 31 39  29 3a 64 24 3d a4 50 28  |,N$,0,19):d$=.P(|
00002230  32 2c 31 33 2c 4e 24 2c  30 2c 31 39 29 3a 65 24  |2,13,N$,0,19):e$|
00002240  3d a4 50 28 32 2c 31 34  2c 4e 24 2c 30 2c 31 39  |=.P(2,14,N$,0,19|
00002250  29 3a 66 24 3d a4 50 28  32 2c 31 35 2c 22 87 9c  |):f$=.P(2,15,"..|
00002260  49 6e 74 2e 41 6d 70 20  67 61 69 6e 84 9d 87 22  |Int.Amp gain..."|
00002270  2c 32 2c 33 29 0d 08 84  ac 67 24 3d a4 50 28 32  |,2,3)....g$=.P(2|
00002280  2c 31 36 2c 22 87 9c 54  65 6d 70 20 28 43 29 84  |,16,"..Temp (C).|
00002290  9d 87 22 2c 32 2c 32 29  3a 68 24 3d a4 50 28 32  |..",2,2):h$=.P(2|
000022a0  2c 31 37 2c 22 86 9c 54  69 6d 65 84 9d 86 22 2c  |,17,"..Time...",|
000022b0  32 2c 35 29 3a 69 24 3d  a4 50 28 32 2c 31 38 2c  |2,5):i$=.P(2,18,|
000022c0  22 86 9c 44 61 74 65 84  9d 86 22 2c 32 2c 38 29  |"..Date...",2,8)|
000022d0  3a 6a 24 3d a4 50 28 32  2c 31 39 2c 22 82 9c 55  |:j$=.P(2,19,"..U|
000022e0  73 65 72 84 9d 82 22 2c  30 2c 33 29 3a ef 37 2c  |ser...",0,3):.7,|
000022f0  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 3a f1 8a  |23,1,0;0;0;0;:..|
00002300  32 2c 32 31 29 22 81 88  9c ff 89 50 61 72 61 6d  |2,21)".....Param|
00002310  65 74 65 72 73 20 73 65  74 84 9d 22 3a f2 46 3a  |eters set..":.F:|
00002320  e1 0d 08 8e 48 dd f2 70  f2 69 28 26 39 34 2c 26  |....H..p.i(&94,&|
00002330  38 32 2c 26 38 34 2c 26  38 31 29 3a f2 59 3a 42  |82,&84,&81):.Y:B|
00002340  41 25 3d b9 3a 45 25 3d  a4 43 28 36 29 3a 42 41  |A%=.:E%=.C(6):BA|
00002350  25 3d 30 3a e7 45 25 3c  35 e1 8b e7 45 25 3d 35  |%=0:.E%<5...E%=5|
00002360  f2 6d 3a e1 8b f2 52 3a  e1 0d 08 98 b4 dd f2 59  |.m:...R:.......Y|
00002370  3a f1 22 9a 9d 91 b7 f3  b7 fb eb b7 fb 63 f7 e3  |:."..........c..|
00002380  ff b7 b3 b7 b3 f7 e3 b7  37 33 b7 ef eb 20 94 9d  |........73... ..|
00002390  22 27 22 9a 9d 91 bd a4  b5 ee aa b5 ee aa ff ea  |"'".............|
000023a0  ff b5 a5 b5 fc ff ea b5  35 25 b5 fd ea 20 94 9d  |........5%... ..|
000023b0  22 3a f1 22 20 94 22 3b  c4 32 35 2c 56 24 29 3b  |":." .";.25,V$);|
000023c0  22 9d 22 3a f1 24 57 25  27 22 86 9d 22 89 33 35  |".":.$W%'"..".35|
000023d0  3b 22 84 9d 22 27 24 28  57 25 2b 26 32 38 29 22  |;".."'$(W%+&28)"|
000023e0  20 94 20 22 3b c4 33 35  2c 56 24 29 3b 22 9d 22  | . ";.35,V$);"."|
000023f0  27 24 28 57 25 2b 26 35  30 29 22 93 9d 22 89 33  |'$(W%+&50)"..".3|
00002400  36 3b 22 84 9d 22 24 28  57 25 2b 26 37 39 29 22  |6;".."$(W%+&79)"|
00002410  94 20 22 c4 33 36 2c 56  24 29 22 9d 22 0d 08 a2  |. ".36,V$)"."...|
00002420  aa f1 24 28 57 25 2b 26  41 32 29 27 22 96 9d 22  |..$(W%+&A2)'".."|
00002430  89 33 35 3b 22 84 9d 22  27 24 28 57 25 2b 26 43  |.35;".."'$(W%+&C|
00002440  41 29 27 22 20 94 22 3b  c4 33 35 2c 56 24 29 3b  |A)'" .";.35,V$);|
00002450  22 9d 20 20 22 3b 24 28  57 25 2b 26 46 32 29 3b  |".  ";$(W%+&F2);|
00002460  3a f1 22 20 94 22 3b c4  33 36 2c 56 24 29 3b 22  |:." .";.36,V$);"|
00002470  9d 22 3a f1 22 97 9d 81  ff 20 66 38 20 2b 20 66  |.":.".... f8 + f|
00002480  37 20 45 4e 44 20 70 72  6f 67 72 61 6d 20 94 9d  |7 END program ..|
00002490  22 3b 89 38 27 3b 3a f1  22 20 94 22 3b c4 32 33  |";.8';:." .";.23|
000024a0  2c 56 24 29 3b 22 9d 22  3a f1 4f 24 3b 4d 24 27  |,V$);".":.O$;M$'|
000024b0  22 20 94 22 3b c4 33 35  2c 56 24 29 3b 22 9d 22  |" .";.35,V$);"."|
000024c0  3b 3a ef 33 30 3a e1 0d  08 ac 2a dd f2 57 f1 22  |;:.30:....*..W."|
000024d0  87 9d 84 49 6e 66 6f 72  6d 61 74 69 6f 6e 85 20  |...Information. |
000024e0  9d 22 27 22 20 95 22 c4  31 33 2c 56 24 29 22 9d  |."'" .".13,V$)".|
000024f0  22 0d 08 b6 79 f1 22 81  9d 83 43 75 72 72 65 6e  |"...y."...Curren|
00002500  74 83 64 61 74 61 20 64  69 73 70 6c 61 79 20 4d  |t.data display M|
00002510  4f 44 45 20 69 73 22 89  36 22 85 9d 22 27 22 81  |ODE is".6".."'".|
00002520  9d 86 46 72 65 65 20 6d  65 6d 6f 72 79 20 22 89  |..Free memory ".|
00002530  32 32 22 85 9d 22 27 22  81 9d 82 53 65 63 6f 6e  |22".."'"...Secon|
00002540  64 20 70 72 6f 63 65 73  73 6f 72 20 73 74 61 74  |d processor stat|
00002550  75 73 20 3a 22 89 39 22  85 9d 22 27 22 20 95 22  |us :".9".."'" ."|
00002560  c4 33 35 2c 56 24 29 22  9d 22 0d 08 c0 24 f1 24  |.35,V$)"."...$.$|
00002570  28 57 25 2b 26 31 31 42  29 89 31 31 24 28 57 25  |(W%+&11B).11$(W%|
00002580  2b 26 31 35 46 29 89 31  37 22 85 9d 22 3b 0d 08  |+&15F).17"..";..|
00002590  ca 9c f1 24 28 57 25 2b  26 31 39 46 29 8a 31 36  |...$(W%+&19F).16|
000025a0  2c 31 36 29 22 65 66 69  6e 65 64 20 61 73 20 72  |,16)"efined as r|
000025b0  65 71 75 69 72 65 64 2e  20 20 20 85 9d 84 9d 86  |equired.   .....|
000025c0  44 61 74 61 20 65 64 69  74 69 6e 67 20 66 61 63  |Data editing fac|
000025d0  69 6c 69 74 69 65 73 20  69 6e 63 6c 75 64 65 20  |ilities include |
000025e0  20 20 20 85 9d 84 9d 86  62 61 72 20 67 72 61 70  |   .....bar grap|
000025f0  68 2c 20 73 79 6d 62 6f  6c 20 6f 76 65 72 6c 61  |h, symbol overla|
00002600  79 20 6f 72 20 20 20 20  20 20 20 85 9d 84 9d 86  |y or       .....|
00002610  72 65 64 72 61 77 69 6e  67 20 6f 70 74 69 6f 6e  |redrawing option|
00002620  73 2e 22 89 31 37 22 85  9d 22 0d 08 d4 80 ef 31  |s.".17"..".....1|
00002630  31 3a f1 22 84 9d 87 47  72 69 64 20 73 69 7a 65  |1:."...Grid size|
00002640  2c 20 73 63 72 65 65 6e  20 63 6f 6c 6f 75 72 73  |, screen colours|
00002650  20 61 6e 64 20 74 72 61  63 65 85 9d 84 9d 87 63  | and trace.....c|
00002660  6f 6c 6f 75 72 73 20 28  69 6e 20 4d 6f 64 65 20  |olours (in Mode |
00002670  31 29 20 63 61 6e 20 62  65 20 61 6c 74 65 72 65  |1) can be altere|
00002680  64 2e 85 9d 20 95 22 c4  33 36 2c 56 24 29 22 9d  |d... .".36,V$)".|
00002690  22 27 4d 24 3b 27 22 20  95 22 c4 32 31 2c 56 24  |"'M$;'" .".21,V$|
000026a0  29 22 9d 22 3b 3a ef 33  3a e1 0d 08 de 87 dd f2  |)".";:.3:.......|
000026b0  58 f1 22 83 9d 84 47 72  61 70 68 69 63 73 20 6d  |X."...Graphics m|
000026c0  6f 64 65 20 84 9d 22 27  22 20 94 22 c4 31 35 2c  |ode .."'" .".15,|
000026d0  56 24 29 22 9d 22 27 22  20 84 9d 22 27 22 85 9d  |V$)"."'" .."'"..|
000026e0  83 43 75 72 72 65 6e 74  20 6d 6f 64 65 20 69 73  |.Current mode is|
000026f0  20 34 20 84 9d 22 27 22  20 94 22 c4 31 39 2c 56  | 4 .."'" .".19,V|
00002700  24 29 22 9d 22 27 22 20  84 9d 22 27 22 20 9d 84  |$)"."'" .."'" ..|
00002710  22 51 24 22 72 65 71 75  69 72 65 64 20 6d 6f 64  |"Q$"required mod|
00002720  65 20 84 9d 22 27 22 20  9d 22 89 32 32 22 84 9d  |e .."'" .".22"..|
00002730  22 0d 08 e8 a3 f1 22 20  9d 81 3e 20 31 85 20 6d  |"....." ..> 1. m|
00002740  6f 64 65 20 34 98 73 65  6c 65 63 74 65 64 20 84  |ode 4.selected .|
00002750  9d 22 27 22 20 9d 81 3e  20 32 20 20 6d 6f 64 65  |."'" ..> 2  mode|
00002760  20 31 98 73 65 6c 65 63  74 65 64 20 84 9d 22 27  | 1.selected .."'|
00002770  22 20 9d 81 3e 20 33 84  20 6d 6f 64 65 20 30 98  |" ..> 3. mode 0.|
00002780  73 65 6c 65 63 74 65 64  20 84 9d 22 27 22 20 9d  |selected .."'" .|
00002790  22 89 32 32 22 84 9d 22  27 22 20 94 22 c4 32 32  |".22".."'" .".22|
000027a0  2c 56 24 29 22 9d 22 27  22 20 84 9d 22 27 22 82  |,V$)"."'" .."'".|
000027b0  9d 84 36 35 30 32 20 73  65 63 6f 6e 64 20 70 72  |..6502 second pr|
000027c0  6f 63 65 73 73 6f 72 20  6f 66 66 20 6c 69 6e 65  |ocessor off line|
000027d0  20 84 9d 22 0d 08 f2 6a  f1 22 20 94 22 c4 33 32  | .."...j." .".32|
000027e0  2c 56 24 29 22 9d 22 27  22 20 9d 84 4d 6f 64 65  |,V$)"."'" ..Mode|
000027f0  73 20 30 20 6f 72 20 31  20 72 65 71 75 69 72 65  |s 0 or 1 require|
00002800  20 54 55 42 45 20 6f 72  20 4d 41 53 54 45 52 20  | TUBE or MASTER |
00002810  9d 20 94 22 c4 33 36 2c  56 24 29 22 9d 22 27 22  |. .".36,V$)"."'"|
00002820  20 84 9d 22 27 4d 24 3b  27 22 20 94 22 c4 32 31  | .."'M$;'" .".21|
00002830  2c 56 24 29 22 9d 22 3b  3a ef 33 30 3a e1 0d 08  |,V$)".";:.30:...|
00002840  fc d6 dd f2 5a ef 37 3a  f1 8a 33 2c 34 29 22 53  |....Z.7:..3,4)"S|
00002850  65 74 20 44 61 74 61 20  64 72 69 76 65 22 8a 33  |et Data drive".3|
00002860  2c 37 29 22 43 75 72 72  65 6e 74 20 64 72 69 76  |,7)"Current driv|
00002870  65 20 3a 20 22 3b 4e 25  8a 32 2c 31 30 29 22 84  |e : ";N%.2,10)".|
00002880  22 51 24 22 6e 65 77 20  64 61 74 61 20 64 72 69  |"Q$"new data dri|
00002890  76 65 22 8a 32 2c 31 32  29 22 81 3e 30 20 20 64  |ve".2,12)".>0  d|
000028a0  72 69 76 65 20 30 98 22  27 22 20 9d 84 3e 31 20  |rive 0."'" ..>1 |
000028b0  20 64 72 69 76 65 20 31  98 22 27 22 20 9d 81 3e  | drive 1."'" ..>|
000028c0  32 20 20 64 72 69 76 65  20 32 98 22 27 22 20 9d  |2  drive 2."'" .|
000028d0  84 3e 33 20 20 64 72 69  76 65 20 33 98 22 3a f2  |.>3  drive 3.":.|
000028e0  5f 3a f1 8a 31 34 2c 4e  25 2b 31 32 29 22 88 73  |_:..14,N%+12)".s|
000028f0  65 6c 65 63 74 65 64 22  8a 31 39 2c 37 29 3b 4e  |elected".19,7);N|
00002900  25 3a f2 61 28 22 44 52  2e 22 2b c3 4e 25 29 3a  |%:.a("DR."+.N%):|
00002910  f2 46 3a e1 0d 09 06 7e  dd f2 49 f2 6c 3a f2 48  |.F:....~..I.l:.H|
00002920  41 3a e7 72 25 f1 8a 32  30 2c 33 30 29 3b 54 2f  |A:.r%..20,30);T/|
00002930  32 8a 33 39 2c 33 30 29  22 30 22 8a 33 36 2c 33  |2.39,30)"0".36,3|
00002940  30 29 3b 54 3b 3a ef 31  31 3a 8b f1 8a 31 30 2a  |0);T;:.11:...10*|
00002950  55 25 2c 33 30 29 89 28  32 39 2a 55 25 29 3b 8a  |U%,30).(29*U%);.|
00002960  32 32 2a 55 25 2d 28 a9  28 c3 28 78 25 2f 32 29  |22*U%-(.(.(x%/2)|
00002970  29 29 2c 33 30 29 3b 78  25 2f 32 8a 34 30 2a 55  |)),30);x%/2.40*U|
00002980  25 2d 28 a9 c3 28 78 25  29 29 2c 33 30 29 3b 78  |%-(..(x%)),30);x|
00002990  25 3b 0d 09 10 75 e7 4d  25 3d 30 f1 8a 32 30 2c  |%;...u.M%=0..20,|
000029a0  33 30 29 89 35 39 3a e7  72 25 f1 8a 34 31 2c 33  |30).59:.r%..41,3|
000029b0  30 29 3b 54 2f 32 8a 37  39 2c 33 30 29 22 30 22  |0);T/2.79,30)"0"|
000029c0  8a 37 36 2c 33 30 29 3b  54 3b 3a ef 31 31 3a 8b  |.76,30);T;:.11:.|
000029d0  e7 4d 25 3d 30 f1 8a 34  34 2d 28 a9 28 c3 28 78  |.M%=0..44-(.(.(x|
000029e0  25 2f 32 29 29 29 2c 33  30 29 3b 78 25 2f 32 8a  |%/2))),30);x%/2.|
000029f0  38 30 2d 28 a9 c3 28 78  25 29 29 2c 33 30 29 3b  |80-(..(x%)),30);|
00002a00  78 25 3b 3a ef 31 31 0d  09 1a 81 ef 32 39 2c 31  |x%;:.11.....29,1|
00002a10  30 38 3b 37 32 3b 31 31  2c 35 2c 32 35 2c 34 2c  |08;72;11,5,25,4,|
00002a20  30 3b 2d 31 30 3b 32 35  33 2c 34 3a 64 25 3d a4  |0;-10;253,4:d%=.|
00002a30  59 28 30 2c 33 2c 22 52  65 6c 61 62 65 6c 20 61  |Y(0,3,"Relabel a|
00002a40  78 65 73 22 29 3a e7 ac  64 25 ef 32 38 2c 30 2c  |xes"):..d%.28,0,|
00002a50  33 30 2c 30 2c 31 31 3a  db 3a f1 89 37 22 76 6f  |30,0,11:.:..7"vo|
00002a60  6c 74 73 22 3a f2 6c 3a  f1 8a 31 30 2a 55 25 2c  |lts":.l:..10*U%,|
00002a70  33 31 29 89 32 39 3b 8a  32 30 2a 55 25 2c 33 31  |31).29;.20*U%,31|
00002a80  29 47 24 3b 3a ef 31 31  0d 09 24 cc e7 64 25 f1  |)G$;:.11..$..d%.|
00002a90  8a 32 2a 55 25 2c 33 31  29 89 33 37 3b 3a f2 62  |.2*U%,31).37;:.b|
00002aa0  28 30 2c 33 30 2c 30 2c  31 30 29 3a db 3a f2 6c  |(0,30,0,10):.:.l|
00002ab0  3a ef 32 39 2c 31 30 38  3b 37 32 3b 3a 78 24 3d  |:.29,108;72;:x$=|
00002ac0  a4 50 28 30 2c 33 2c 22  58 3a 22 2c 30 2c 33 36  |.P(0,3,"X:",0,36|
00002ad0  29 3a 79 24 3d a4 50 28  30 2c 35 2c 22 59 3a 22  |):y$=.P(0,5,"Y:"|
00002ae0  2c 30 2c 31 39 29 3a f1  8a 30 2c 33 29 89 28 31  |,0,19):..0,3).(1|
00002af0  32 30 2a 55 25 29 3a e3  6c 25 3d 31 b8 a9 79 24  |20*U%):.l%=1..y$|
00002b00  3a f1 8a 30 2c 28 31 39  2d a9 79 24 81 32 29 2b  |:..0,(19-.y$.2)+|
00002b10  6c 25 29 c1 79 24 2c 6c  25 2c 31 29 3a ed 3a e3  |l%).y$,l%,1):.:.|
00002b20  6c 25 3d 31 b8 a9 78 24  3a f1 8a 28 32 30 2a 55  |l%=1..x$:..(20*U|
00002b30  25 2d a9 78 24 81 32 2b  6c 25 29 2c 33 31 29 c1  |%-.x$.2+l%),31).|
00002b40  78 24 2c 6c 25 2c 31 29  3b 3a ed 3a ef 31 31 3a  |x$,l%,1);:.:.11:|
00002b50  ec 30 2c 30 0d 09 2e b0  ef 32 36 2c 32 34 2c 34  |.0,0.....26,24,4|
00002b60  30 3b 30 3b 31 30 30 3b  36 38 38 3b 3a da 3a f2  |0;0;100;688;:.:.|
00002b70  6c 3a ef 32 39 2c 31 30  38 3b 37 32 3b 3a 64 25  |l:.29,108;72;:d%|
00002b80  3d a4 59 28 30 2c 33 2c  22 52 65 73 63 61 6c 65  |=.Y(0,3,"Rescale|
00002b90  20 59 20 61 78 69 73 22  29 3a e7 ac 64 25 ef 35  | Y axis"):..d%.5|
00002ba0  3a ec 2d 36 38 2c 36 31  36 3a ef 32 35 34 2c 32  |:.-68,616:.254,2|
00002bb0  35 35 3a ec 2d 35 36 2c  31 36 3a ef 32 35 33 2c  |55:.-56,16:.253,|
00002bc0  34 3a ec 30 2c 30 3a e1  8b f1 8a 30 2c 33 29 89  |4:.0,0:....0,3).|
00002bd0  33 38 3a 4b 24 3d a4 50  28 30 2c 33 2c 22 59 20  |38:K$=.P(0,3,"Y |
00002be0  6d 69 6e 20 3a 22 2c 32  2c 35 29 3a 4a 24 3d a4  |min :",2,5):J$=.|
00002bf0  50 28 30 2c 35 2c 22 59  20 6d 61 78 20 3a 22 2c  |P(0,5,"Y max :",|
00002c00  32 2c 35 29 0d 09 38 2a  ec 30 2c 30 3a 41 41 25  |2,5)..8*.0,0:AA%|
00002c10  3d bb 4a 24 3a 79 25 3d  bb 4b 24 3a e7 41 41 25  |=.J$:y%=.K$:.AA%|
00002c20  2d 79 25 3c 31 30 f2 31  3a e5 8d 54 6e 49 0d 09  |-y%<10.1:..TnI..|
00002c30  42 98 4b 25 3d 28 41 41  25 2d 79 25 29 2f 35 3a  |B.K%=(AA%-y%)/5:|
00002c40  7a 25 3d 79 25 2d 4b 25  3a ef 35 3a e3 41 25 3d  |z%=y%-K%:.5:.A%=|
00002c50  30 b8 35 3a 7a 25 3d 7a  25 2b 4b 25 3a 47 25 3d  |0.5:z%=z%+K%:G%=|
00002c60  a4 41 28 7a 25 29 3a ec  2d 36 34 2c 47 25 2b 31  |.A(z%):.-64,G%+1|
00002c70  36 3a f1 3b 7a 25 81 28  31 30 5e 28 a9 4a 24 2d  |6:.;z%.(10^(.J$-|
00002c80  32 29 29 3a ed 3a ec 30  2c 30 3a ef 34 3a 48 25  |2)):.:.0,0:.4:H%|
00002c90  3d 31 30 5e 28 a9 4a 24  2d 32 29 3a f2 53 28 b9  |=10^(.J$-2):.S(.|
00002ca0  29 3a f1 8a 34 2c 39 29  22 78 22 3b 48 25 3a f2  |):..4,9)"x";H%:.|
00002cb0  53 28 30 29 3a f1 8a 30  2c 33 29 89 28 31 32 30  |S(0):..0,3).(120|
00002cc0  2a 55 25 29 3a e1 0d 09  4c 96 dd f2 31 ef 32 34  |*U%):...L...1.24|
00002cd0  2c 34 30 30 3b 37 30 30  3b 31 31 30 30 3b 38 35  |,400;700;1100;85|
00002ce0  30 3b 37 2c 31 38 2c 38  38 2c 31 32 39 2c 31 36  |0;7,18,88,129,16|
00002cf0  3a f1 8a 31 37 2a 55 25  2c 34 29 22 76 61 6c 75  |:..17*U%,4)"valu|
00002d00  65 73 20 6f 75 74 20 6f  66 20 72 61 6e 67 65 22  |es out of range"|
00002d10  27 8a 31 37 2a 55 25 2c  36 29 22 59 6d 61 78 2d  |'.17*U%,6)"Ymax-|
00002d20  59 6d 69 6e 20 3e 3d 31  30 20 6f 6e 6c 79 22 3a  |Ymin >=10 only":|
00002d30  f2 64 28 38 29 3a f1 8a  30 2c 35 29 89 33 38 3a  |.d(8):..0,5).38:|
00002d40  ef 31 38 2c 30 2c 31 32  38 2c 31 36 2c 32 36 2c  |.18,0,128,16,26,|
00002d50  32 39 2c 31 30 38 3b 37  32 3b 3a e1 0d 09 56 22  |29,108;72;:...V"|
00002d60  dd a4 41 28 79 76 25 29  3d 36 30 30 2a 28 79 76  |..A(yv%)=600*(yv|
00002d70  25 2d 79 25 29 2f 28 41  41 25 2d 79 25 29 0d 09  |%-y%)/(AA%-y%)..|
00002d80  60 2e dd f2 46 f1 8a 32  36 2c 32 33 29 22 87 9d  |`...F..26,23)"..|
00002d90  84 ff 88 53 50 41 43 45  81 3e 20 9d 87 22 3b 3a  |...SPACE.> ..";:|
00002da0  ef 31 31 3a f5 fd a6 2d  39 39 3a e1 0d 09 6a 35  |.11:...-99:...j5|
00002db0  dd f2 37 f2 53 28 b9 29  3a f1 8a 32 36 2c 33 30  |..7.S(.):..26,30|
00002dc0  29 22 20 ee 20 53 50 41  43 45 20 3e 22 3b 3a ef  |)" . SPACE >";:.|
00002dd0  31 31 3a f2 53 28 30 29  3a f5 fd a6 2d 39 39 3a  |11:.S(0):...-99:|
00002de0  e1 0d 09 74 2f dd f2 6d  f2 69 28 26 39 35 2c 26  |...t/..m.i(&95,&|
00002df0  38 36 2c 26 38 34 2c 26  38 31 29 3a f2 57 3a f2  |86,&84,&81):.W:.|
00002e00  36 3a e7 ac 51 25 49 25  3d 49 25 2d 39 32 31 36  |6:..Q%I%=I%-9216|
00002e10  0d 09 7e 28 ef 33 31 2c  32 38 2c 38 3a e7 51 25  |..~(.31,28,8:.Q%|
00002e20  f1 22 82 6f 6e 20 6c 69  6e 65 22 8b f1 22 83 6f  |.".on line"..".o|
00002e30  66 66 20 6c 69 6e 65 22  0d 09 88 2c f1 8a 33 32  |ff line"...,..32|
00002e40  2c 36 29 3b 4d 25 8a 31  35 2c 37 29 3b 49 25 3b  |,6);M%.15,7);I%;|
00002e50  22 20 62 79 74 65 73 20  2f 26 22 3b 7e 49 25 3a  |" bytes /&";~I%:|
00002e60  f2 46 3a e1 0d 09 92 ca  dd f2 68 20 48 24 3d c4  |.F:.......h H$=.|
00002e70  33 2c 22 20 22 29 3a 56  24 3d 48 24 3a 46 24 3d  |3," "):V$=H$:F$=|
00002e80  c4 39 2c 22 20 22 29 3a  6e 24 3d c4 33 32 2c 22  |.9," "):n$=.32,"|
00002e90  20 22 29 3a 4d 24 3d 6e  24 3a 56 24 3d 22 70 22  | "):M$=n$:V$="p"|
00002ea0  3a 48 24 3d 22 6c 69 6e  22 3a 4e 24 3d 22 83 9c  |:H$="lin":N$="..|
00002eb0  45 78 70 2e 20 64 65 74  61 69 6c 73 84 9d 83 22  |Exp. details..."|
00002ec0  3a 51 24 3d 22 53 65 6c  65 63 74 20 22 3a 4f 24  |:Q$="Select ":O$|
00002ed0  3d 22 81 9d 83 41 75 72  61 72 69 61 82 76 2e 38  |="...Auraria.v.8|
00002ee0  22 3a 54 24 3d 4f 24 3a  4d 24 3d 22 82 9d 84 28  |":T$=O$:M$="...(|
00002ef0  43 29 20 4d 2e 47 6f 6c  64 66 69 6e 63 68 20 31  |C) M.Goldfinch 1|
00002f00  39 38 37 84 9d 22 3a 6e  24 3d 22 44 41 54 41 53  |987..":n$="DATAS|
00002f10  43 4f 50 45 20 20 20 64  61 74 61 20 61 6e 61 6c  |COPE   data anal|
00002f20  79 73 69 73 20 73 79 73  74 65 6d 22 3a e1 0d 09  |ysis system":...|
00002f30  9c 76 dd f2 52 f2 69 28  26 39 34 2c 26 38 31 2c  |.v..R.i(&94,&81,|
00002f40  26 38 37 2c 26 38 34 29  3a f2 58 3a f1 8a 31 39  |&87,&84):.X:..19|
00002f50  2c 37 29 3b 4d 25 3a e7  51 25 84 52 25 f2 4f 41  |,7);M%:.Q%.R%.OA|
00002f60  8b ef 32 38 2c 32 2c 31  34 2c 32 32 2c 31 30 3a  |..28,2,14,22,10:|
00002f70  db 3a f1 27 27 22 9c 82  4d 4f 44 45 34 86 4f 4e  |.:.''"..MODE4.ON|
00002f80  4c 59 20 87 9d 22 27 27  22 9c 83 61 73 20 33 32  |LY .."''"..as 32|
00002f90  4b 20 52 41 4d 20 87 9d  22 3a f2 64 28 35 29 3a  |K RAM ..":.d(5):|
00002fa0  db 3a f2 6c 0d 09 a6 08  f2 5a 3a e1 0d 09 b0 1e  |.:.l.....Z:.....|
00002fb0  dd f2 4f 41 e7 51 25 f1  8a 32 34 2c 31 38 29 22  |..OA.Q%..24,18)"|
00002fc0  88 6f 6e 20 6c 69 6e 65  89 22 0d 09 ba 26 65 25  |.on line."...&e%|
00002fd0  3d a4 43 28 33 29 3a e7  65 25 3d 31 4d 25 3d 34  |=.C(3):.e%=1M%=4|
00002fe0  8b e7 65 25 3d 32 20 4d  25 3d 31 8b 4d 25 3d 30  |..e%=2 M%=1.M%=0|
00002ff0  0d 09 c4 2f f1 8a 37 2c  65 25 2b 31 31 29 22 88  |.../..7,e%+11)".|
00003000  22 8a 31 34 2c 65 25 2b  31 31 29 22 20 22 8a 31  |".14,e%+11)" ".1|
00003010  39 2c 37 29 3b 4d 25 3a  f2 64 28 34 29 3a e1 0d  |9,7);M%:.d(4):..|
00003020  09 ce 2c dd f2 6f f5 46  24 3d a4 50 28 30 2c 33  |..,..o.F$=.P(0,3|
00003030  2c 22 46 69 6c 65 20 6e  61 6d 65 22 2c 30 2c 39  |,"File name",0,9|
00003040  29 3a fd 46 24 3c 3e 22  22 3a e1 0d 09 d8 66 dd  |):.F$<>"":....f.|
00003050  f2 51 f2 62 28 30 2c 38  2c 33 39 2c 30 29 3a ef  |.Q.b(0,8,39,0):.|
00003060  31 32 2c 31 34 3a f2 32  3a ef 31 32 2c 31 35 3a  |12,14:.2:.12,15:|
00003070  f2 60 3a e7 52 25 f2 73  3a e1 8b 4c 25 3d a4 59  |.`:.R%.s:..L%=.Y|
00003080  28 30 2c 31 2c 22 53 74  6f 72 65 20 6d 75 6c 74  |(0,1,"Store mult|
00003090  69 70 6c 65 20 64 61 74  61 20 73 63 72 65 65 6e  |iple data screen|
000030a0  20 69 6d 61 67 65 22 29  3a e7 ac 4c 25 f2 73 3a  | image"):..L%.s:|
000030b0  e1 0d 09 e2 35 db 3a f2  6f 3a f2 4b 3a e7 4d 25  |....5.:.o:.K:.M%|
000030c0  3d 34 20 61 25 3d 26 35  38 30 30 3a 62 25 3d 26  |=4 a%=&5800:b%=&|
000030d0  32 38 30 30 8b 61 25 3d  26 33 30 30 30 3a 62 25  |2800.a%=&3000:b%|
000030e0  3d 26 35 30 30 30 0d 09  ec 13 e7 51 25 61 25 3d  |=&5000.....Q%a%=|
000030f0  61 25 2d 26 31 30 30 30  30 0d 09 f6 53 f2 61 28  |a%-&10000...S.a(|
00003100  22 53 41 56 45 20 22 2b  46 24 2b 22 20 22 2b c3  |"SAVE "+F$+" "+.|
00003110  7e 61 25 2b 22 2b 22 2b  c3 7e 62 25 2b 22 20 22  |~a%+"+"+.~b%+" "|
00003120  2b c3 30 2b 22 20 22 2b  c3 30 29 3a db 3a f1 27  |+.0+" "+.0):.:.'|
00003130  27 46 24 3b 22 20 64 61  74 61 20 73 61 76 65 64  |'F$;" data saved|
00003140  22 3a ef 37 3a f2 64 28  35 29 3a e1 0d 0a 00 15  |":.7:.d(5):.....|
00003150  dd f2 4e 3a ee 85 f2 65  3a f2 4e 3a e5 8d 54 68  |..N:...e:.N:..Th|
00003160  40 0d 0a 0a 81 4a 25 3d  b9 3a f2 63 3a ef 31 39  |@....J%=.:.c:.19|
00003170  2c 32 2c 30 3b 30 3b 31  39 2c 33 2c 31 3b 30 3b  |,2,0;0;19,3,1;0;|
00003180  31 39 2c 30 2c 37 3b 30  3b 31 39 2c 31 2c 34 3b  |19,0,7;0;19,1,4;|
00003190  30 3b 3a f1 27 22 52 65  63 61 6c 6c 20 6d 6f 64  |0;:.'"Recall mod|
000031a0  65 20 5b 22 3b 4d 25 3b  22 5d 20 73 63 72 65 65  |e [";M%;"] scree|
000031b0  6e 20 64 61 74 61 20 69  6d 61 67 65 22 3a f2 6f  |n data image":.o|
000031c0  3a db 3a e7 4d 25 3d 34  20 61 25 3d 26 46 46 46  |:.:.M%=4 a%=&FFF|
000031d0  46 35 38 30 30 8b 61 25  3d 26 46 46 46 46 33 30  |F5800.a%=&FFFF30|
000031e0  30 30 0d 0a 14 23 f2 61  28 22 4c 2e 22 2b 46 24  |00...#.a("L."+F$|
000031f0  2b 22 20 22 2b c3 7e 61  25 29 3a f2 45 3a f2 60  |+" "+.~a%):.E:.`|
00003200  3a f2 47 3a e1 0d 0a 1e  62 dd f2 73 3a 52 24 3d  |:.G:....b..s:R$=|
00003210  22 6c 6f 77 22 3a ef 37  3a db 3a f1 27 51 24 22  |"low":.7:.:.'Q$"|
00003220  64 69 73 63 20 73 74 6f  72 61 67 65 20 72 65 73  |disc storage res|
00003230  6f 6c 75 74 69 6f 6e 22  27 27 22 5b 31 5d 20 68  |olution"''"[1] h|
00003240  69 67 68 22 27 22 5b 32  5d 20 6c 6f 77 22 3a 42  |igh"'"[2] low":B|
00003250  25 3d a4 43 28 32 29 3a  e7 42 25 3d 31 20 52 24  |%=.C(2):.B%=1 R$|
00003260  3d 22 68 69 67 68 22 0d  0a 28 42 f5 db 3a f1 27  |="high"..(B..:.'|
00003270  52 24 3b 22 20 72 65 73  6f 6c 75 74 69 6f 6e 22  |R$;" resolution"|
00003280  3a f2 6f 3a e7 ac 4f 25  54 24 3d a4 50 28 30 2c  |:.o:..O%T$=.P(0,|
00003290  33 2c 22 54 69 74 6c 65  20 66 6f 72 20 64 61 74  |3,"Title for dat|
000032a0  61 3a 22 2c 30 2c 31 35  29 0d 0a 32 36 4c 25 3d  |a:",0,15)..26L%=|
000032b0  a4 59 28 30 2c 33 2c 22  55 70 64 61 74 65 20 45  |.Y(0,3,"Update E|
000032c0  58 49 53 54 49 4e 47 20  66 69 6c 65 22 29 3a e7  |XISTING file"):.|
000032d0  4c 25 53 25 3d ad 46 24  8b 53 25 3d ae 46 24 0d  |L%S%=.F$.S%=.F$.|
000032e0  0a 3c 3f e7 53 25 3d 30  db 3a f1 27 27 22 46 69  |.<?.S%=0.:.''"Fi|
000032f0  6c 65 20 6e 6f 74 20 70  72 65 73 65 6e 74 3a 20  |le not present: |
00003300  6f 70 65 6e 20 6e 65 77  20 66 69 6c 65 22 3a d9  |open new file":.|
00003310  23 30 3a f2 64 28 35 29  3a fd 53 25 3e 30 0d 0a  |#0:.d(5):.S%>0..|
00003320  46 31 f1 23 53 25 2c 4f  25 3a e7 4f 25 f1 23 53  |F1.#S%,O%:.O%.#S|
00003330  25 2c 61 24 2c 62 24 2c  63 24 2c 64 24 2c 65 24  |%,a$,b$,c$,d$,e$|
00003340  2c 66 24 2c 67 24 2c 68  24 2c 69 24 2c 6a 24 0d  |,f$,g$,h$,i$,j$.|
00003350  0a 50 5c f1 23 53 25 2c  42 2c 72 25 2c 54 2c 73  |.P\.#S%,B,r%,T,s|
00003360  25 2c 47 24 2c 54 24 2c  42 25 2c 54 25 2c 78 25  |%,G$,T$,B%,T%,x%|
00003370  3a f2 75 3a f2 52 41 28  44 29 3a d9 23 53 25 3a  |:.u:.RA(D):.#S%:|
00003380  db 3a ef 37 3a f1 27 27  22 44 61 74 61 20 73 74  |.:.7:.''"Data st|
00003390  6f 72 65 64 20 69 6e 20  22 3b 46 24 3a f2 64 28  |ored in ";F$:.d(|
000033a0  35 29 3a 42 25 3d 31 3a  db 3a e1 0d 0a 5a 35 dd  |5):B%=1:.:...Z5.|
000033b0  f2 75 f2 33 3a e7 72 25  44 3d 42 2f 54 8b e7 54  |.u.3:.r%D=B/T..T|
000033c0  25 3c 37 84 28 54 25 3c  31 38 80 73 25 29 44 3d  |%<7.(T%<18.s%)D=|
000033d0  28 42 2f 54 25 29 2a 42  25 8b 44 3d 42 25 2a 32  |(B/T%)*B%.D=B%*2|
000033e0  0d 0a 64 11 e7 51 25 84  52 25 8c 8d 44 6e 4a 8b  |..d..Q%.R%..DnJ.|
000033f0  e1 0d 0a 6e 2f e7 72 25  44 3d 42 2f 54 8b e7 54  |...n/.r%D=B/T..T|
00003400  25 3c 34 84 28 54 25 3c  31 32 80 73 25 29 44 3d  |%<4.(T%<12.s%)D=|
00003410  28 42 2f 54 25 29 2a 42  25 8b 44 3d 42 25 2a 32  |(B/T%)*B%.D=B%*2|
00003420  0d 0a 78 05 e1 0d 0a 82  18 dd f2 72 3a ee 85 f2  |..x........r:...|
00003430  65 3a f2 72 3a f2 45 3a  e5 8d 54 68 40 0d 0a 8c  |e:.r:.E:..Th@...|
00003440  17 d9 23 30 3a e7 ac 4c  25 f2 63 3a f2 34 3a f2  |..#0:..L%.c:.4:.|
00003450  50 3a f2 67 0d 0a 96 51  f2 60 3a f2 77 3a db 3a  |P:.g...Q.`:.w:.:|
00003460  f1 27 22 4c 6f 61 64 20  64 61 74 61 22 3a f2 6f  |.'"Load data":.o|
00003470  3a 53 25 3d ad 46 24 3a  e8 23 53 25 2c 4f 25 3a  |:S%=.F$:.#S%,O%:|
00003480  e7 4f 25 e8 23 53 25 2c  61 24 2c 62 24 2c 63 24  |.O%.#S%,a$,b$,c$|
00003490  2c 64 24 2c 65 24 2c 66  24 2c 67 24 2c 68 24 2c  |,d$,e$,f$,g$,h$,|
000034a0  69 24 2c 6a 24 0d 0a a0  3a e8 23 53 25 2c 42 2c  |i$,j$...:.#S%,B,|
000034b0  72 25 2c 54 2c 73 25 2c  47 24 2c 54 24 2c 42 25  |r%,T,s%,G$,T$,B%|
000034c0  2c 54 25 2c 78 25 3a 45  24 3d 22 68 69 67 68 22  |,T%,x%:E$="high"|
000034d0  3a e7 42 25 3d 32 20 45  24 3d 22 6c 6f 77 22 0d  |:.B%=2 E$="low".|
000034e0  0a aa 6f db 3a f1 27 22  46 69 6c 65 20 6e 61 6d  |..o.:.'"File nam|
000034f0  65 20 22 3b 46 24 27 27  45 24 3b 22 20 72 65 73  |e ";F$''E$;" res|
00003500  6f 6c 75 74 69 6f 6e 22  3a f2 75 3a ef 32 39 2c  |olution":.u:.29,|
00003510  31 30 38 3b 37 32 3b 3a  ec 30 2c 30 3a f2 53 41  |108;72;:.0,0:.SA|
00003520  28 44 29 3a d9 23 53 25  3a ec 30 2c 30 3a ef 37  |(D):.#S%:.0,0:.7|
00003530  3a f2 64 28 32 29 3a db  3a f2 4b 3a db 3a f2 6a  |:.d(2):.:.K:.:.j|
00003540  3a f2 49 3a f2 60 3a f2  4d 3a f2 45 3a e1 0d 0a  |:.I:.`:.M:.E:...|
00003550  b4 32 dd f2 53 41 28 43  29 e3 58 3d 30 b8 31 31  |.2..SA(C).X=0.11|
00003560  35 39 88 43 3a e8 23 53  25 2c 55 25 28 58 81 32  |59.C:.#S%,U%(X.2|
00003570  29 3a df 58 2c 55 25 28  58 81 32 29 3a ed 3a e1  |):.X,U%(X.2):.:.|
00003580  0d 0a be 27 dd f2 52 41  28 43 29 e3 49 3d 30 b8  |...'..RA(C).I=0.|
00003590  31 31 35 39 88 43 3a f1  23 53 25 2c 55 25 28 49  |1159.C:.#S%,U%(I|
000035a0  81 32 29 3a ed 3a e1 0d  0a c8 12 dd f2 4d 3a f2  |.2):.:.......M:.|
000035b0  41 3a e7 4d 25 3d 31 f2  56 0d 0a d2 37 db 3a 4c  |A:.M%=1.V...7.:L|
000035c0  25 3d a4 59 28 30 2c 31  2c 22 4f 76 65 72 6c 61  |%=.Y(0,1,"Overla|
000035d0  79 20 66 75 72 74 68 65  72 20 64 61 74 61 20 66  |y further data f|
000035e0  72 6f 6d 20 64 69 73 63  22 29 3a e7 4c 25 f2 72  |rom disc"):.L%.r|
000035f0  0d 0a dc 3c f2 41 3a db  3a 4c 25 3d a4 59 28 30  |...<.A:.:L%=.Y(0|
00003600  2c 31 2c 22 4f 76 65 72  6c 61 79 20 4e 45 57 20  |,1,"Overlay NEW |
00003610  64 61 74 61 20 66 72 6f  6d 20 41 44 43 22 29 3a  |data from ADC"):|
00003620  e7 4c 25 db 3a 42 25 3d  31 3a f2 48 0d 0a e6 0a  |.L%.:B%=1:.H....|
00003630  f2 60 3a db 3a e1 0d 0a  f0 38 dd f2 4c 20 4c 25  |.`:.:....8..L L%|
00003640  3d b9 3a 50 25 3d 30 3a  f2 4b 3a e7 ac 4a 25 80  |=.:P%=0:.K:..J%.|
00003650  ac 4f 25 db 3a e7 46 24  3c 3e 22 22 f1 27 27 22  |.O%.:.F$<>"".''"|
00003660  46 69 6c 65 20 6e 61 6d  65 20 22 3b 46 24 0d 0a  |File name ";F$..|
00003670  fa 27 e7 4a 25 4c 25 3d  a4 59 28 30 2c 35 2c 22  |.'.J%L%=.Y(0,5,"|
00003680  50 72 69 6e 74 22 29 3a  e7 4c 25 f1 8a 30 2c 35  |Print"):.L%..0,5|
00003690  29 89 31 34 3b 0d 0b 04  09 e7 ac 4c 25 e1 0d 0b  |).14;......L%...|
000036a0  0e 3f f2 61 28 22 46 58  32 31 22 29 3a ef 32 39  |.?.a("FX21"):.29|
000036b0  2c 30 3b 30 3b 3a e7 56  25 21 31 38 3c 3e 26 46  |,0;0;:.V%!18<>&F|
000036c0  46 43 39 38 34 41 35 f1  27 22 43 6f 64 65 20 65  |FC984A5.'"Code e|
000036d0  72 72 6f 72 22 3a f2 64  28 39 29 3a e1 0d 0b 18  |rror":.d(9):....|
000036e0  07 d6 56 25 0d 0b 22 27  4c 25 3d a4 59 28 30 2c  |..V%.."'L%=.Y(0,|
000036f0  35 2c 22 52 65 70 65 61  74 22 29 3a e7 4c 25 8c  |5,"Repeat"):.L%.|
00003700  8d 64 7a 4a 8b 50 25 3d  b9 3a e1 0d 0b 2c 1c dd  |.dzJ.P%=.:...,..|
00003710  f2 4b f2 61 28 22 46 58  32 31 22 29 3a e7 4a 25  |.K.a("FX21"):.J%|
00003720  e1 8b e7 ac 4f 25 e1 0d  0b 36 2d e7 50 25 3d b9  |....O%...6-.P%=.|
00003730  db 3a 4c 25 3d a4 59 28  30 2c 31 2c 22 56 69 65  |.:L%=.Y(0,1,"Vie|
00003740  77 20 70 61 72 61 6d 65  74 65 72 73 22 29 3a e7  |w parameters"):.|
00003750  ac 4c 25 e1 0d 0b 40 6a  db 3a f1 61 24 8a 33 34  |.L%...@j.:.a$.34|
00003760  2c 30 29 22 74 69 6d 65  22 3b 27 62 24 8a 33 34  |,0)"time";'b$.34|
00003770  2c 31 29 68 24 3b 27 63  24 27 64 24 27 65 24 27  |,1)h$;'c$'d$'e$'|
00003780  8a 33 31 2c 35 29 69 24  3b 27 22 67 61 69 6e 20  |.31,5)i$;'"gain |
00003790  22 66 24 8a 31 34 2c 36  29 22 74 65 6d 70 20 22  |"f$.14,6)"temp "|
000037a0  3b 67 24 3b 22 20 43 22  8a 33 36 2c 36 29 6a 24  |;g$;" C".36,6)j$|
000037b0  3b 3a ef 31 31 3a f2 64  28 32 30 29 3a e1 0d 0b  |;:.11:.d(20):...|
000037c0  4a 65 dd f2 34 f2 67 3a  f2 53 28 b9 29 3a f1 27  |Je..4.g:.S(.):.'|
000037d0  51 24 22 63 6f 6c 6f 75  72 73 22 27 27 22 5b 43  |Q$"colours"''"[C|
000037e0  5d 20 22 3b 51 24 22 20  5b 44 5d 20 44 65 66 61  |] ";Q$" [D] Defa|
000037f0  75 6c 74 20 20 5b 2b 5d  20 4e 65 78 74 20 63 6f  |ult  [+] Next co|
00003800  6c 6f 75 72 22 3a f7 8d  44 46 40 3a 4b 25 3d 30  |lour":..DF@:K%=0|
00003810  3a f5 f3 44 25 2c 46 25  3a e7 46 25 3d 35 f7 8d  |:..D%,F%:.F%=5..|
00003820  44 46 40 0d 0b 54 2a ef  31 39 2c 30 2c 44 25 3b  |DF@..T*.19,0,D%;|
00003830  30 3b 31 39 2c 31 2c 46  25 3b 30 3b 3a e7 4d 25  |0;19,1,F%;0;:.M%|
00003840  3d 31 ef 31 39 2c 33 2c  46 25 3b 30 3b 0d 0b 5e  |=1.19,3,F%;0;..^|
00003850  1f f2 64 28 31 29 3a d1  3d 30 3a f5 e7 a6 2d 38  |..d(1):.=0:...-8|
00003860  33 84 a6 2d 38 38 8c d1  3d 32 30 30 0d 0b 68 14  |3..-88..=200..h.|
00003870  e7 a6 2d 35 31 20 4b 25  3d b9 3a d1 3d 32 30 30  |..-51 K%=.:.=200|
00003880  0d 0b 72 2a fd 91 3d 32  30 30 3a fd a6 2d 38 33  |..r*..=200:..-83|
00003890  84 4b 25 3d b9 3a e7 4b  25 3d b9 46 25 3d 37 3a  |.K%=.:.K%=.F%=7:|
000038a0  44 25 3d 31 32 38 3a ef  32 30 0d 0b 7c 0b f2 53  |D%=128:.20..|..S|
000038b0  28 30 29 3a e1 0d 0b 86  8e dd f2 50 20 68 25 3d  |(0):.......P h%=|
000038c0  30 3a f2 48 41 3a ef 37  3a db 3a f2 53 28 b9 29  |0:.HA:.7:.:.S(.)|
000038d0  3a f1 27 51 24 22 67 72  61 70 68 69 63 73 22 8a  |:.'Q$"graphics".|
000038e0  34 2a 55 25 2c 33 30 29  22 5b 31 5d 22 8a 31 35  |4*U%,30)"[1]".15|
000038f0  2a 55 25 2c 33 30 29 22  5b 32 5d 22 8a 33 31 2a  |*U%,30)"[2]".31*|
00003900  55 25 2c 33 30 29 22 5b  33 5d 22 3a f2 53 28 30  |U%,30)"[3]":.S(0|
00003910  29 3a f1 8a 30 2c 33 29  22 5b 31 5d 20 78 20 26  |):..0,3)"[1] x &|
00003920  20 79 20 61 78 65 73 22  27 22 5b 32 5d 20 77 69  | y axes"'"[2] wi|
00003930  64 65 22 27 22 5b 33 5d  20 66 69 6e 65 20 67 72  |de"'"[3] fine gr|
00003940  69 64 22 0d 0b 90 72 ef  32 34 2c 30 3b 30 3b 31  |id"...r.24,0;0;1|
00003950  35 30 3b 36 35 30 3b 3a  69 25 3d 31 3a f2 67 3a  |50;650;:i%=1:.g:|
00003960  ef 32 34 2c 31 37 30 3b  30 3b 36 36 30 3b 36 35  |.24,170;0;660;65|
00003970  30 3b 3a 69 25 3d 32 3a  f2 67 3a ef 32 34 2c 36  |0;:i%=2:.g:.24,6|
00003980  38 30 3b 30 3b 31 31 36  30 3b 36 35 30 3b 3a 69  |80;0;1160;650;:i|
00003990  25 3d 33 3a f2 67 3a 69  25 3d a4 43 28 33 29 3a  |%=3:.g:i%=.C(3):|
000039a0  68 25 3d b9 3a ef 32 36  2c 32 39 2c 31 30 38 3b  |h%=.:.26,29,108;|
000039b0  37 32 3b 3a e1 0d 0b 9a  b2 dd f2 44 41 f2 69 28  |72;:.......DA.i(|
000039c0  26 39 34 2c 26 38 37 2c  26 38 31 2c 26 38 35 29  |&94,&87,&81,&85)|
000039d0  3a f1 27 22 84 9d 83 ff  82 4f 70 74 69 6f 6e 87  |:.'".....Option.|
000039e0  22 3b 45 25 3b 22 86 73  75 62 5f 6d 65 6e 75 20  |";E%;".sub_menu |
000039f0  20 9c 22 3a e7 45 25 3d  33 20 4c 25 3d a4 59 28  | .":.E%=3 L%=.Y(|
00003a00  30 2c 37 2c 22 9d 84 4c  6f 61 64 20 73 70 65 63  |0,7,"..Load spec|
00003a10  69 61 6c 81 64 61 74 61  20 70 6f 69 6e 74 73 85  |ial.data points.|
00003a20  65 64 69 74 6f 72 22 29  8b 4c 25 3d a4 59 28 30  |editor").L%=.Y(0|
00003a30  2c 37 2c 22 9d 84 4c 6f  61 64 20 73 70 65 63 69  |,7,"..Load speci|
00003a40  61 6c 81 4d 6f 64 65 20  30 2f 31 2f 34 85 73 63  |al.Mode 0/1/4.sc|
00003a50  72 65 65 6e 20 64 69 73  70 6c 61 79 9d 85 70 72  |reen display..pr|
00003a60  6f 67 72 61 6d 22 29 0d  0b a4 53 e7 4c 25 f2 61  |ogram")...S.L%.a|
00003a70  28 22 44 52 2e 30 22 29  3a f1 27 22 9d 84 49 6e  |("DR.0"):.'"..In|
00003a80  73 65 72 74 85 44 41 54  41 53 43 4f 50 45 81 6d  |sert.DATASCOPE.m|
00003a90  61 73 74 65 72 20 64 69  73 63 22 27 22 9d 84 69  |aster disc"'"..i|
00003aa0  6e 20 44 52 49 56 45 20  30 22 3a f2 46 3a d7 22  |n DRIVE 0":.F:."|
00003ab0  44 53 63 69 6d 61 67 22  8b e1 0d 0b ae 1e dd f2  |DScimag"........|
00003ac0  65 e7 9f 3d 31 37 80 a6  2d 31 31 39 8c 8d 64 56  |e..=17..-119..dV|
00003ad0  4b 8b e7 9f 3d 31 37 f9  0d 0b b8 12 e7 45 25 3e  |K...=17......E%>|
00003ae0  32 f6 3a f2 64 28 35 29  3a e1 0d 0b c2 13 e7 9f  |2.:.d(5):.......|
00003af0  3e 31 38 38 f6 3a f2 64  28 39 29 3a e1 0d 0b cc  |>188.:.d(9):....|
00003b00  22 ee 85 87 3a ef 33 2c  37 3a db 3a f1 27 3a f6  |"...:.3,7:.:.':.|
00003b10  3a f1 27 22 40 20 22 3b  9e 3a f2 64 28 38 29 0d  |:.'"@ ";.:.d(8).|
00003b20  0b d6 22 f2 61 28 22 46  58 34 22 29 3a f2 61 28  |..".a("FX4"):.a(|
00003b30  22 46 58 31 32 22 29 3a  ef 32 32 2c 37 2c 37 3a  |"FX12"):.22,7,7:|
00003b40  e0 0d 0b e0 eb 2a 7c 22  81 9d 87 74 68 65 20 69  |.....*|"...the i|
00003b50  6e 74 72 6f 64 75 63 74  6f 72 79 84 9d 83 52 45  |ntroductory...RE|
00003b60  4d 53 81 9d 87 2b 20 20  20 81 9d 87 63 65 72 74  |MS...+   ...cert|
00003b70  61 69 6e 20 73 65 63 74  69 6f 6e 73 20 6f 66 20  |ain sections of |
00003b80  74 68 69 73 20 70 72 6f  67 72 61 6d 20 20 20 20  |this program    |
00003b90  20 81 9d 87 6f 6e 6c 79  20 61 76 61 69 6c 61 62  | ...only availab|
00003ba0  6c 65 20 77 69 74 68 20  61 83 54 55 42 45 82 2f  |le with a.TUBE./|
00003bb0  20 4d 41 53 54 45 52 20  20 81 9d 87 61 6e 64 20  | MASTER  ...and |
00003bc0  74 68 65 20 66 6f 6c 6c  6f 77 69 6e 67 20 73 65  |the following se|
00003bd0  63 74 69 6f 6e 20 77 69  6c 6c 20 61 6c 6c 20 20  |ction will all  |
00003be0  20 81 9d 87 62 65 87 61  75 74 6f 6d 61 74 69 63  | ...be.automatic|
00003bf0  61 6c 6c 79 82 44 45 4c  45 54 45 44 87 6f 6e 20  |ally.DELETED.on |
00003c00  72 75 6e 6e 69 6e 67 20  20 81 9d 87 74 68 65 20  |running  ...the |
00003c10  70 72 6f 67 72 61 6d 20  75 6e 6c 65 73 73 20 61  |program unless a|
00003c20  83 36 35 30 32 20 73 65  63 6f 6e 64 0d 0b ea d5  |.6502 second....|
00003c30  2a 7c 22 81 9d 83 70 72  6f 63 65 73 73 6f 72 87  |*|"...processor.|
00003c40  69 73 20 6f 6e 20 6c 69  6e 65 20 6f 72 20 61 20  |is on line or a |
00003c50  20 20 20 20 81 9d 86 4d  41 53 54 45 52 87 73 65  |    ...MASTER.se|
00003c60  72 69 65 73 20 6d 61 63  68 69 6e 65 20 69 73 20  |ries machine is |
00003c70  69 6e 20 75 73 65 2e 20  20 20 20 20 81 9d 83 44  |in use.     ...D|
00003c80  6f 20 6e 6f 74 20 72 65  6e 75 6d 62 65 72 20 74  |o not renumber t|
00003c90  68 69 73 20 70 72 6f 67  72 61 6d 20 61 73 20 74  |his program as t|
00003ca0  68 65 20 20 81 9d 83 61  75 74 6f 6d 61 74 69 63  |he  ...automatic|
00003cb0  20 64 65 6c 65 74 69 6f  6e 20 26 20 64 6f 77 6e  | deletion & down|
00003cc0  6c 6f 61 64 69 6e 67 20  20 20 20 20 81 9d 83 73  |loading     ...s|
00003cd0  65 71 75 65 6e 63 65 20  77 69 6c 6c 20 6e 6f 20  |equence will no |
00003ce0  6c 6f 6e 67 65 72 20 6f  70 65 72 61 74 65 20 20  |longer operate  |
00003cf0  20 20 20 20 81 9d 83 63  6f 72 72 65 63 74 6c 79  |    ...correctly|
00003d00  2e 0d 0b f4 09 2a 46 58  31 38 0d 0b fe 11 2a 4b  |.....*FX18....*K|
00003d10  45 59 31 30 2a 46 58 31  38 7c 4d 0d 0c 08 b9 ef  |EY10*FX18|M.....|
00003d20  33 2c 37 2c 32 32 2c 37  3a d3 3d 26 37 43 30 30  |3,7,22,7:.=&7C00|
00003d30  3a f1 8a 30 2c 31 29 22  84 9d 83 9d 84 8d 44 61  |:..0,1)"......Da|
00003d40  74 61 73 63 6f 70 65 81  20 64 61 74 61 20 61 6e  |tascope. data an|
00003d50  61 6c 79 73 69 73 20 73  79 73 74 65 6d 84 9d 22  |alysis system.."|
00003d60  27 22 84 9d 83 9d 84 8d  44 61 74 61 73 63 6f 70  |'"......Datascop|
00003d70  65 81 20 64 61 74 61 20  61 6e 61 6c 79 73 69 73  |e. data analysis|
00003d80  20 73 79 73 74 65 6d 84  9d 87 22 8a 30 2c 36 29  | system...".0,6)|
00003d90  22 82 9d 84 42 42 43 20  42 81 33 32 4b 84 73 79  |"...BBC B.32K.sy|
00003da0  73 74 65 6d 20 20 9c 22  8a 30 2c 31 32 29 22 84  |stem  .".0,12)".|
00003db0  9d 81 50 72 6f 67 72 61  6d 20 72 65 6c 6f 63 61  |..Program reloca|
00003dc0  74 69 6e 67 2e 2e 2e 83  70 6c 65 61 73 65 20 77  |ting....please w|
00003dd0  61 69 74 22 0d 0c 12 d7  ef 26 31 35 3a 2a 4b 2e  |ait".....&15:*K.|
00003de0  30 7c 21 63 49 25 3d 30  7c 21 38 7c 21 38 50 2d  |0|!cI%=0|!8|!8P-|
00003df0  7c 21 7c 50 7c 21 7c 48  34 3a 49 25 21 26 31 33  ||!|P|!|H4:I%!&13|
00003e00  30 30 3d 49 25 21 7c 21  7c 50 3a 7c 21 6d 7c 4d  |00=I%!|!|P:|!m|M|
00003e10  7c 21 50 3d 26 31 33 30  30 7c 4d 44 45 4c 2e 31  ||!P=&1300|MDEL.1|
00003e20  2c 39 7c 4d 31 34 30 7c  4d 44 45 4c 2e 31 32 34  |,9|M140|MDEL.124|
00003e30  30 2c 31 32 35 30 7c 4d  44 45 4c 2e 31 32 37 30  |0,1250|MDEL.1270|
00003e40  2c 31 33 33 30 7c 4d 31  33 39 30 7c 4d 31 35 34  |,1330|M1390|M154|
00003e50  30 7c 4d 44 45 4c 2e 31  36 36 30 2c 31 36 37 30  |0|MDEL.1660,1670|
00003e60  7c 4d 31 37 38 30 7c 4d  44 45 4c 2e 31 38 36 30  ||M1780|MDEL.1860|
00003e70  2c 31 38 38 30 7c 4d 31  39 30 30 7c 4d 32 33 32  |,1880|M1900|M232|
00003e80  30 7c 4d 44 45 4c 2e 32  34 38 30 2c 32 35 30 30  |0|MDEL.2480,2500|
00003e90  7c 4d 44 45 4c 2e 33 30  34 30 2c 33 31 31 30 7c  ||MDEL.3040,3110||
00003ea0  4d 7c 21 4b 7c 4d 7c 21  79 7c 4d 0d 0c 1c 10 2a  |M|!K|M|!y|M....*|
00003eb0  46 58 31 33 38 2c 30 2c  31 32 38 0d 0c 26 05 e0  |FX138,0,128..&..|
00003ec0  0d ff                                             |..|
00003ec2