� > $.!DataVis.!dv4
ș "Wimp_CommandWindow",-1
� 15:� 180:�
��t|L
(ȗ �:�:FG%=180
2�ME$(20)
<k�MAC$(99):�MAL$(99):MAI%=0:VA%=1:�OP$(8):SPM$="0 0  000000":�FU$(5):�I=1�8:�OP$(I):�I:�I=1�5:�FU$(I):�I
Fm�"Text","Multi-Text","Pop-up Window","Default Value","Range Check","Required Values","Rounding","Formula"
P"�"SUM","AVG","MAX","MIN","STD"
Zf�"CLOSE":X=��MyFile("NIM"):�#X,FI$,ST$,DA$,DR$,ZZ$,MD$:�"CLOSE":FO$=FI$+"A":ST$="1":STO$=ST$:�DNB
d��MAIN:go%=0
nA�ST$="1"� TA$=FI$+"N":X=��MyFile(TA$):�#X,DI$:�Dir(DI$):�tj@
x	�tL@
�a�ERWIN:�180:�20,12);"Cannot read the file :";FI$;�20,14);"(file empty)":�FG%:�7:�MKLIK:�t@L
�7�ST$="2"� TA$=FI$+"N":X=��MyFile(TA$):�#X,DI$:�tj@
�5��MKLIK:�:ȗ U,U,BUT:�BUT=0:�:ȗ U,U,BUT:�BUT=4:�
�1��ERWIN:X=19:Y=11:W%=40:L%=3:�180:�LWN:�FG%:�
�u�#0:X=��MyFile(FO$):�#X=0:�#X,ZZ$:NOF%=�(ZZ$):�#X=5:�#X,ZZ$:NOR%=�(ZZ$):�#X=15:�#X,ZZ$:REC%=�(ZZ$):�#X=45:�#X,SO$
�;�#X=28:�#X,VA$:�VA$="0"�TA$=FI$+"E":N=��MyFile(TA$):�#N
��VA$="1"�MAI%=1:�dR@
�go%=1:�
҈TA$=FI$+"E":�"CLOSE":X=��MyFile(TA$):�#X,MAC$(0):�#X,MAL$(0):�I=1��(�MAC$(0),2)):�#X,MAC$(I):�#X,MAL$(I):�I:VA%=I:SPM$=MAC$(0):�dH@
���FOPOUT
�.�"CLOSE":X=��MyFile(FO$):POI=(CF%-1)*61+63
��#X=POI:�#X,FL$
� �#X=POI+22:�#X,ZZ$:X1=�(ZZ$)

 �#X=POI+26:�#X,ZZ$:Y1=�(ZZ$)

 �#X=POI+30:�#X,ZZ$:X2=�(ZZ$)

 �#X=POI+34:�#X,ZZ$:Y2=�(ZZ$)

"�#X=POI+38:�#X,TY$

,!�#X=POI+41:�#X,ZZ$:IN%=�(ZZ$)

6!�#X=POI+46:�#X,ZZ$:TI%=�(ZZ$)

@�#X=POI+54:�#X,TR$

J�#X=POI+58:�#X,NP$

T�

^	��LWN

hy�X,Y);�(154);�W%,�(159));�(158):�I=Y+1�Y+L%:�X,I);�(155);�W%," ");�(157):�I:�X,Y+(L%+1));�(156);�W%,�(160));�(161)

r�

|
��TIME

�^S%=(� �100)�60:M%=(� �6000)�60:H%=(� �360000)�24:�73,0);":";�76,0);":":�S%<10��77,0);"0"

��M%<10��74,0);"0"

��H%<10��71,0);"0"

�=�73-�(�(H%)),0);H%;�76-�(�(M%)),0);M%;�79-�(�(S%)),0);S%

��

�
��TEXT

�
T$="":L=0

��L<L%��X,Y);�(255)

�IN=�

��IN=13�NP%=0:�TzB

��IN=127��T\B

��IN=9�NP%=1:�TzB

��L=L%��dVA
(�X,Y);�(IN):T$=T$+�(IN):L=L+1:X=X+1
	�dLA
�L=0��dBA
&$�X,Y);" ":X=X-1:L=L-1:T$=�T$,L)
0	�dLA
:�X,Y);" "
D�
N	�MAIN
XTX=47:Y=13:W%=22:L%=5:�LWN:SEQ=1:FIELD=SEQ:YEAR=SEQ:DAY=SEQ:MONTH=SEQ:QUARTER=SEQ
b
MFY%=0
l�ME$(1)="Create Macro":ME$(2)="Erase Macro":ME$(3)="Erase all Macros":ME$(4)="Entry Configuration":ME$(5)="Quit":X=48:Y=14:L%=5:�SELECT
v�SEL%=1 �VA%<99��t|B
��SEL%=5��dtK
��SEL%=4��tVE
��SEL%=2��DZJ
��SEL%=3��dLK
�	�DlB
��
���:�2,2);"Create Macro No. ";VA%;�2,3);�19,�(241)):�SEL:X=2:Y=4:W%=24:L%=4:�LWN:�3,5);"  Select Execute Point:":ME$(1)="On Entry":ME$(2)="On Exit":ME$(3)="Quit":X=3:Y=6:L%=3:�SELECT
��SEL%=3��DXB
�/�SEL%=1�MOA$="11100001":ACT$="I":L%=7:�dnB
�0�SEL%=2�MOA$="11111110":ACT$="O":L%=10:�dnB
�	�dFB
�S�#A=(SF%-1)*61+117:�#A,CH$:�ACT$="I"��CH$,1)="1"��CH$,1)="2"��1,-15,200,2:�DXB
�8�ACT$="O"��CH$,1)="1"��CH$,1)="2"��1,-15,200,2:�DXB
?X=2:Y=10:W%=32:�LWN:�3,11);"Macro Options Available:":L=13
2�I=1�15:�MOA$,I,1)="1"�ME$(L-12)=OP$(I):L=L+1
�I:ME$(L-12)="Quit":L%=L-12
 X=3:Y=13:�SELECT:AS=SEL%
*.�ACT$="I"� � AS � �DRC,�TPD,�dbD,�T`H,�DXB
47� AS � �DRC,�TPD,�dbD,�TlF,�D@F,�t|G,�ddG,�T`H,�DXB
>�MFY%=0��DXB
H,VA%=SP%:�:�2,2);"Macro modified.":�DXB
RP�:X=2:Y=2:W%=29:L%=3:�LWN:�3,3);"Enter Co-ordinates:";�3,4);"X=";�3,5);"Y="
\;X=5:Y=4:L%=2:�TEXT:X2=�(T$):X=5:Y=X:L%=2:�TEXT:Y2=�(T$)
fG�2,8);"Enter Text: (maximum 200 characters)":X=2:Y=10:L%=200:�TEXT
p-�CONV(X2,2):T1$=STN$:�CONV(Y2,2):T2$=STN$
z2MAC$(VA%)=T1$+T2$+T$:�MAL("A"):VA%=VA%+1:�T~C
���MAL(TP$)
�Z�CONV(SF%,3):MAL$(VA%)=STN$+ACT$+TP$:�ACT$="I"�TT$=�TR$,1):TS$=�TR$,1):�TT:TR$=TS$+TT$
�5�ACT$="O"�TT$=�TR$,1):TS$=�TR$,1):�TT:TR$=TT$+TS$
�'�#A=(SF%-1)*61+117:�#A,TR$:�"CLOSE"
�MAI%=1:�
�>��CONV(VL,ML):STN$=�(VL):�(STN$)>ML �STN$=�STN$,ML):�dJC
�+STN$=�(VL):STN$=STN$+�(ML-�(STN$))," ")
��
���CONT(VL$,ML)
�)STN$=VL$:STN$=STN$+�(ML-�(STN$))," ")
��
���TT:�TS$="3"�TS$="2"
��TS$="0"�TS$="1"
�
f�:X=2:Y=2:W%=29:L%=2:�LWN:�3,3);"How Many Items of Text? (1-9)":X=3:Y=4:L%=1:�TEXT:�(T$)=0��DXB
NT%=�(T$):MT$=""
$�F=1�NT%
.DX=2:Y=7:W%=35:L%=8:�LWN:�3,8);"Text Item #";F;�3,9);�35,�(241))
8s�3,10);"Enter Co-ordinates:";�3,11);"X=";�3,12);"Y=":X=5:Y=11:L%=2:�TEXT:X2=�(T$):X=5:Y=12:L%=2:�TEXT:Y2=�(T$)
BF�3,13);"Enter Text: (maximum 20 characters)":X=3:Y=14:L%=20:�TEXT
LO�CONV(X2,2):T1$=STN$:�CONV(Y2,2):T2$=STN$:�CONT(T$,20):MT$=MT$+T1$+T2$+STN$
V�F
`2MAC$(VA%)=�(NT%)+MT$:�MAL("B"):VA%=VA%+1:�T~C
jh��STAN:�23,154,255,128,191,160,160,160,160,160,23,159,255,0,255,0,0,0,0,0,23,158,255,1,253,5,5,5,5,5
t��23,155,160,160,160,160,160,160,160,160,23,157,5,5,5,5,5,5,5,5,23,156,160,160,160,160,160,191,128,255,23,160,0,0,0,0,0,255,0,255,23,161,5,5,5,5,5,253,1,255
~�
����SHAD:�23,157,7,7,7,7,7,7,7,7,23,158,0,0,252,4,7,7,7,7,23,159,0,0,255,0,0,0,0,0,23,160,0,0,0,0,0,255,255,255,23,161,7,7,7,7,7,255,255,255,23,162,0,0,0,255,255,0,0,0
�a�23,154,0,0,63,32,32,32,32,32,23,155,32,32,32,32,32,32,32,32,23,156,32,32,32,32,32,63,15,15:�
����SLINE:�23,154,255,128,128,128,128,128,128,128,23,155,128,128,128,128,128,128,128,128,23,156,128,128,128,128,128,128,128,255,23,160,0,0,0,0,0,0,0,255,23,161,1,1,1,1,1,1,1,255,23,157,1,1,1,1,1,1,1,1
�8�23,158,255,1,1,1,1,1,1,1,23,159,255,0,0,0,0,0,0,0:�
����INVE:�23,154,255,255,192,223,223,223,223,223,23,155,223,223,223,223,223,223,223,223,23,156,223,223,223,223,223,192,255,255,23,160,255,255,255,255,255,0,255,255,23,161,251,251,251,251,251,3,255,255
�w�23,157,251,251,251,251,251,251,251,251,23,158,255,255,3,251,251,251,251,251,23,159,255,255,0,255,255,255,255,255:�
�<��GREY:�I=154�161:�23,I,85,170,85,170,85,170,85,170:�I:�
����THDI:�23,154,255,192,160,144,136,132,130,129,23,155,129,129,129,129,129,129,129,129,23,156,129,131,135,143,159,191,255,255,23,160,255,255,255,255,255,255,255,255,23,161,127,191,223,239,247,251,253,255
�h�23,157,255,255,255,255,255,255,255,255,23,158,255,3,7,15,31,63,127,255,23,159,255,0,0,0,0,0,0,255:�
�A�:X=1:Y=1:W%=49:L%=9:�LWN:�3,2);"Select a Window Style:":�44
�X=3:Y=4:W%=4:L%=4:�LWN:X=11:Y=4:W%=4:L%=4:�SHAD:�LWN:X=20:�SLINE:�LWN:X=28:�INVE:�LWN:X=36:�GREY:�LWN:X=44:�THDI:�LWN:�STAN
�X=3:Y=4:W%=4:L%=4:�LWN:X=11:Y=4:W%=4:L%=4:�SHAD:�LWN:X=20:�SLINE:�LWN:X=28:�INVE:�LWN:X=36:�GREY:�LWN:X=44:�THDI:�LWN:�STAN
8ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��T@E

"�XP>=3 � XP<=6 � ST$="1":�DPE
$�XP>=11 � XP<=14 � ST$="2":�DPE
$�XP>=20 � XP<=23 � ST$="3":�DPE
($�XP>=28 � XP<=31 � ST$="4":�DPE
2$�XP>=39 � XP<=39 � ST$="5":�DPE
<$�XP>=44 � XP<=47 � ST$="6":�DPE
F	�T@E
P��7:�127:X=1:Y=15:W%=25:L%=6:�LWN:�2,16);"Enter Window Coordinates:";�2,18);"X=";�2,19);"Y=";�2,20);"WIDTH=";�2,21);"LENGTH="
ZhX=4:Y=18:L%=2:�TEXT:X1=�(T$):X=4:Y=19:�TEXT:X2=�(T$):X=8:Y=20:�TEXT:X3=�(T$):X=9:Y=21:�TEXT:X4=�(T$)
d�X=30:Y=15:W%=24:L%=5:�LWN:�31,16);"Enter Accompanying Text:";�31,18);"X=";�31,19);"Y=":X=33:Y=18:L%=2:�TEXT:X5=�(T$):X=33:Y=19:L%=2:�TEXT:X6=�(T$)
nX=31:Y=20:L%=20:�TEXT
x��CONV(X1,2):MAC$(VA%)=MAC$(VA%)+ST$+STN$:�CONV(X2,2):MAC$(VA%)=MAC$(VA%)+STN$:�CONV(X3,2):MAC$(VA%)=MAC$(VA%)+STN$:�CONV(X4,2):MAC$(VA%)=MAC$(VA%)+STN$:�CONV(X5,2):MAC$(VA%)=MAC$(VA%)+STN$:�CONV(X6,2)
�BMAC$(VA%)=MAC$(VA%)+STN$:�CONT(T$,20):MAC$(VA%)=MAC$(VA%)+STN$
��MAL("C"):VA%=VA%+1:�T~C
�S�MAI%=0��DXB:��:�128:X=2:Y=2:W%=30:L%=9:�LWN:�3,3);"Set Each Option: ";�(132)
��3,4);�30,�(241))
���3,6);"Entry Page";�3,7);"Beep on RETURN";�3,8);"Invert Field Titles";�3,9);"Encase Entry";�3,10);"Hard Copy";�3,11);"Set Master Title"
�>L=6:�I=6�11:�SPM$,I,1)="1"��31,L);�(133):��31,L);�(130)
�L=L+1:�I
�8ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��dHE
� �XP=20 � YP=3 ��7:�FG%:�DXB
��YP<6 � YP>11��dHE:��7
�xBIT%=YP:I$=�(BIT%-5):BIT$=�SPM$,BIT%,1):T1$=�SPM$,BIT%-1):T2$=�SPM$,BIT%+1,�(SPM$)-BIT%):�BIT$="0"�BIT$="1"�BIT$="0"
�!�I$="6"��SPM$,11,1)="0"��TbF
�?�I$="6"��SPM$,11,1)="1"�SPM$=�SPM$,11):T2$=�SPM$,(11-BIT%))
SPM$=T1$+BIT$+T2$
�:ȗ U,U,BUT:�BUT=0
	�ttE
"qX=0:Y=14:L%=2:W%=78:�LWN:�1,15);"Enter Master Title:":X=1:Y=16:L%=78:�TEXT:�FG%:�:SPM$=T1$+BIT$+T2$+T$:�tVE
,�TY$="5"�TY$="6"��T~C
6��:X=2:Y=2:W%=65:L%=2:�LWN:�3,3);"Enter default value for ";FL$;":":�#A=(SF%-1)*61+104:�#A,IN$:X=3:Y=4:L%=�(IN$):�TEXT:MAC$(VA%)=T$:�MAL("D"):VA%=VA%+1:�T~C
@�TY$="5"�TY$="6"��T~C
Jx�:X=2:Y=2:W%=60:L%=4:�LWN:�3,3);"Define valid range for ";FL$;":";�3,5)"Enter low value:";�3,6);"Enter high value:"
T&X=21:Y=5:L%=12:�TY$="5"��TY5:�DhF
^�TY$="6"��TY6:�DhF
h6�TEXT:T1=�(T$):T1$=T$:Y=6:X=21:�TY$="5"��TY5:�tFF
r�TY$="6"��TY6:�tFF
|�TEXT:T2=�(T$):T2$=T$
�2T2$=T$:�TY$="6"�TY$="5"�MAC$(VA%)=T1$+T$:�tnF
��T1$=""�T1=-99999999
��T2$=""�T2=99999999
�O�CONV(T1,12):MAC$(VA%)=MAC$(VA%)+STN$:�CONV(T2,12):MAC$(VA%)=MAC$(VA%)+STN$
�
I$="1"
�4MAC$(VA%)=MAC$(VA%)+I$:�MAL("E"):VA%=VA%+1:�T~C
��
�	��TY5
��X2,Y2);"../../..":N$=""
�X3=X2:�DAT:�DE=1��dVF
�'N$=N$+DAT$:X3=X2+3:�DAT:�DE=1��dVF
�/N$=N$+"/"+DAT$+"/":X3=X2+6:�DAT:�DE=1��dVF
�N$=N$+DAT$
IN=�:�CHEK:�IN=13��T\G
�IN=127��dVF��THG
�
&	��DAT
0DE=0:DAT$="":X4=X3
:IN=�:�IN=127�DE=1:�DbG
D#�IN<48�IN>57��1,-15,100,2:�TzG
N;�X3,Y2);�(IN):DAT$=DAT$+�(IN):X3=X3+1:�X3>(X4+1)��DbG
X	�TzG
b�
l	��TY6
v�X2,Y2);"..:..":N$=""
�X3=X2:�DAT:�DE=1��DvG
�N$=N$+DAT$+":":X3=X2+3:�DAT
�N$=N$+DAT$
�IN=�:�CHEK:�IN=13��trG
��IN=127��DvG��t^G
��
�v�:X=2:Y=2:W%=47:L%=2:�LWN:�3,3);"How many values (1-16) for ";FL$;"?:":X=3:Y=4:L%=2:�TEXT:�(T$)=0��(T$)>16��DXB
�EX=10:Y=7:L%=�(T$):W%=28:�LWN:�CONT(T$,2):MAC$(VA%)=MAC$(VA%)+STN$
�m�I=1��(T$):�11,I+7);"Enter value ";I;":":X=27:Y=I+7:L%=12:�TEXT:�CONT(T$,12):MAC$(VA%)=MAC$(VA%)+STN$:�I
��MAL("F"):VA%=VA%+1:�T~C
��
�GX=2:Y=8:W%=70:L%=2:�LWN:�3,9);"Enter rounding figure for ";FL$;":"
�2X=3:Y=10:L%=1:�TEXT:TRIM%=�(T$):�TRIM%>8��dxG
0MAC$(VA%)=�(TRIM%):�MAL("G"):VA%=VA%+1:�T~C
�X=2:Y=8:W%=70:L%=2:�LWN:�3,9);"Enter number of decimal places all numeric fields will be Trimmed to:":X=3:Y=10:L%=1:�TEXT:TRIM%=�(T$):�TRIM%>8��TLH
=T1$=�SPM$,2):T2$=�SPM$,4,�(SPM$)-3):SPM$=T1$+T$+T2$:�T~C
  �TY$="0"�TY$="5"��TjH��T~C
*�:X=2:Y=2:W%=60:L%=5:�LWN
4�TY$="5"��tfI
>@�3,3);"Please enter Formula for ";FL$;":";�3,5);"#";SF%;"="
H$X=8:Y=5:L%=50:�TEXT:�T$=""��T~C
RF�3,7);"Please wait: checking Formula.        ":MF%=SF%-1:�FORTRAN
\`�ER%=1��3,7);"FORMULA ERROR! PLEASE RE-ENTER           ":�1,-15,170,8:�8,5);�50," "):�DHH
f*MAC$(VA%)=T$:�MAL("H"):VA%=VA%+1:�T~C
p��FORTRAN:ER%=0
z�F=1�5:�T$,3)=FU$(F)��TdI
��F
�*FTR$="":�I=1��(T$):�T$,I,1)="#"��tbH
�FTR$=FTR$+�T$,I,1):�dhH
��I=�(T$)��TPI
�L=I+1:FT$=""
�9�(�T$,L,1))>47��(�T$,L,1))<58�FT$=FT$+�T$,L,1)��dTH
�L=L+1:�L>�(T$)��dTH
�	�tvH
��(FT$)=0��(FT$)>MF%��TPI
�FTR$=FTR$+"1":I=L-1
��I
���TPI
�FT=�(FTR$)
	�
		ER%=1
		�D\H
	$ �(T$)=3��T$,4,1)<>"#"��TPI
	.AM$=�T$,3):L=5:�FGET:�CONV(�(FT$),3):FTR$=M$+STN$:�LE%=1��TPI
	8�L=�(T$)��TPI
	BTL=L+1:�FGET:�CONV(�(FT$),3):FTR$=FTR$+STN$:T$=FTR$:T1=�(�T$,4,3)):T2=�(�T$,7,3))
	L�T2<=T1 ��TPI
	V	�TFI
	`��FGET:FT$="":LE%=0
	j3�(�T$,L,1))>47��(�T$,L,1))<58�FT$=FT$+�T$,L,1)
	t�L=�(T$)�LE%=1:�tRI
	~�T$,L,1)="#"��tRI
	�L=L+1:�DjI
	��(FT$)=0��(FT$)>MF%��TPI
	��
	�f�3,3);"Please enter Date Formula for ";FL$;":";�3,5);"#";SF%;"=":X=8:Y=5:L%=50:�TEXT:�T$=""��T~C
	�3�3,7);"Please wait: checking Formula.        "
	�"�T$="TODAY"�MAC$(VA%)=T$:�DPJ
	�*�T$,6)="TODAY+"��T$,6)="TODAY-"��dbI
	��T$,1)="#"��T@J
	�Y�3,7);"FORMULA ERROR! PLEASE RE-ENTER           ":�1,-15,170,8:�8,5);�50," "):�tfI
	��(T$)=6��dXI
	�FT$=�T$,7,(�(T$)-6))
	�$MAC$(VA%)="T"+�T$,6,1)+FT$:�DPJ
L=2:FT$="":�T$="#"��dXI

(�(�T$,L,1))<48��(�T$,L,1))>57��ThJ
FT$=FT$+�T$,L,1):L=L+1
�L>�(T$)��dXI��TJJ
(*�T$,L,1)="+"��T$,L,1)="-"��TrJ��dXI
2�L=�(T$)��dXI
<4�CONV(�(FT$),3):�(STN$)>(SF%-1)��(STN$)=0��dXI
F;MAC$(VA%)="#"+STN$+�T$,L,1)+�T$,(L+1),�(T$)-(�(FT$)+2))
P�MAL("H"):VA%=VA%+1:�T~C
Z�MAI%=0��DXB
d~�:�2,2);"Erase Macro";�2,3);�11,�(241));�2,5);"Select a field upon which the Macro";�2,6);"you wish to erase works:":�SEL
n�X=2:Y=8:W%=24:L%=4:�LWN:�3,9);"  Select Execute Point:":ME$(1)="On Entry":ME$(2)="On Exit":ME$(3)="Quit":X=3:Y=10:L%=3:�SELECT
xI$=�(SEL%):�I$="3"��DXB
�3CF%=SF%:�FOPOUT:�I$="1"�TI$=�TR$,1)�TI$=�TR$,1)
��TI$="0"�TI$="3"��DXB
�9�CONV(SF%,3):SE$=STN$:�I$="1"�SE$=SE$+"I"�SE$=SE$+"O"
�L=1
��MAL$(L),4)=SE$��dHJ
�L=L+1:�L=VA%��DXB
�	�tjJ
�J�L=1�VA%=2�VA%=1:�#A=28:�#A,"0":�J=0�40:MAC$(J)="":MAL$(J)="":�J:�TbK
�� 1,-15,200,5
�6�L=VA%-1�VA%=VA%-1:MAC$(VA%)="":MAL$(VA%)="":�dpJ
�\�J=L �(VA%-2):MAC$(J)=MAC$(J+1):MAL$(J)=MAL$(J+1):�J:VA%=VA%-1:MAC$(VA%)="":MAL$(VA%)=""
��TI$="1"�TI$="0"
��TI$="2"�TI$="3"
�I$="1"�TR$=TI$+�TR$,1)
�I$="2"�TR$=�TR$,1)+TI$
1�#A=(SF%-1)*61+117:�#A,TR$:�1,-15,100,1:�DXB
">�I=1�NOF%:�#A=(I-1)*61+117:�#A,TR$:T1$=�TR$,1):T2$=�TR$,1)
,�T1$="1"�T1$="0"
6�T1$="2"�T1$="3"
@�T2$="1"�T2$="0"
J�T2$="2"�T2$="3"
T�TR$=T1$+T2$:�#A=(I-1)*61+117:�#A,TR$:�I:SPM$="0 0  000000":MAI%=0:�"CLOSE":�"REMOVE <DataVision$Dir>."+FI$+"E":�:�2,2);"All Macros have been Erased.":�DXB
^�MAI%=0��DXB
h��:�2,2);"Modify Macro";�2,3);�12,�(241));�2,5);"Select a field upon which the Macro";�2,6);"you wish to Modify works:":�SEL
r�X=2:Y=8:W%=24:L%=4:�LWN:�3,9);"  Select Execute Point:":ME$(1)="On Entry":ME$(2)="On Exit":ME$(3)="Quit":X=3:Y=10:L%=3:�SELECT:I$=�(SEL%):�I$="3"��DXB
|3CF%=SF%:�FOPOUT:�I$="1"�TI$=�TR$,1)�TI$=�TR$,1)
��TI$="0"�TI$="3"��DXB
�9�CONV(SF%,3):SE$=STN$:�I$="1"�SE$=SE$+"I"�SE$=SE$+"O"
�L=1:ACT$=I$
��MAL$(L),4)=SE$��dBK
�L=L+1:�L=VA%��DXB
�	�tdK
�ISP%=VA%:AS=�(�MAL$(L),1))-64:MAC$(L)="":MAL$(L)="":VA%=L:MFY%=1:�TtC
��MAI%=0��DXB
�u�:�2,2);"Erase All Macros";�2,3);�16,�(241));�2,5);"Are you sure you want to erase all macros?";:�YN:�YN=0��DXB
�,L=1:VA%=2:�"CLOSE":A=��MyFile(FO$):�dHJ
�	�tGE
��:�MAI%=0��t@L
�:�CONV((VA%-1),2):T1$=�SPM$,�(SPM$)-2):MAC$(0)=STN$+T1$
P�"CLOSE":TA$=FI$+"E":X=��MyFile(TA$):�I=0�(VA%-1):�#X,MAC$(I):�#X,MAL$(I):�I
4�"CLOSE":X=��MyFile(FO$):�#X=28:�#X,"1":�"CLOSE"
	�t@L
&.��SELECT:ED%=Y+(L%-1):BG%=X+(W%-1):SSEL%=1
0>�I=1�L%:�X,Y+(I-1));"  ";ME$(I);�(W%-2)-�(ME$(I))," "):�I
:+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
D�YP<Y � YP>ED%��TpL
N�XP<X � XP>BG%��TpL
XrSEL%=(YP-Y)+1:�CLEA:� 131:�127:�X,YP);"  ";ME$(SEL%);�(W%-2)-�(ME$(SEL%))," "):� FG%:�127:�BUT=4��DbL:��TzL
b�7:�
lR��CLEA:�SSEL%<>SEL%��I=1�L%:�X,Y+(I-1));"  ";ME$(I);�(W%-2)-�(ME$(I))," "):�I
vSSEL%=SEL%:�
� 
� 
� 
� 
�	 � #0
�
 �Quit
��=17��3:� #0:�26:�Quit
��go%=0��dnL
�FG%=180
�R�ERWIN:�180:�20,12);"System Reported Error #";�;":";�20,14);�$:�7:�FG%:�MKLIK
��"CLOSE":�3:�26:�DXB
�{�ERWIN:�180:�20,12);"Cannot read the file :";FI$;�20,14);"(does not exist/not a DataVision file)":�FG%:�7:�MKLIK:�t@L
�	��SEL

o�128:FG%=128:X=50:Y=2:W%=21:L%=23:�LWN:�FG%:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241))

6SSF%=1:SF%=1:Y2=6:SR%=SF%:�"CLOSE":A=��MyFile(FO$)

!FR%=SR%+19:�FR%>NOF%�FR%=NOF%

 {L=6:LL=1:�I=SR%�FR%:�#A=(I-1)*61+63:�#A,FL$:�52,L);FL$:ME$(LL)=FL$:L=L+1:LL=LL+1:�I:� LL<21 � � I=LL �20:ME$(I)=" ":�I

*+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)

4 �XP=67 � YP=3 � BUT=4 ��D\M

> �XP=69 � YP=3 � BUT=4 ��DpM

H@� XP>71 � XP<51 � YP>25 � YP<6 �SSF%=0:�CLEAF:SSF%=SF%:�TjM

RrYP=YP-5:SF%=(YP+SR%)-1:�CLEAF:�131:�52,YP+5);ME$(YP);�(20-�(ME$(YP))):�FG%:�BUT=4 � SF%<(NOF%+1)��tDM:��TjM

\�FR%=NOF%��TjM

fnSR%=SR%+20:X=50:Y=2:W%=21:L%=23:�LWN:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241)):�TVM

p�SR%=1��TjM

znSR%=SR%-20:X=50:Y=2:W%=21:L%=23:�LWN:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241)):�TVM

�e�7:�#A=(SF%-1)*61+63:�#A,FL$:�#A=(SF%-1)*61+101:�#A,TY$:�#A=(SF%-1)*61+117:�#A,TR$:�180:FG%=180:�

�B��CLEAF:�SSF%<>SF%��I=1�20:�52,I+5);ME$(I);�(20-�(ME$(I))):�I

�SSF%=SF%:�

�,��YN:xp=�:yp=�:�" ";:�131:�"YES/NO":�FG%

�8ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��tlM

��YP<>yp ��tlM

�+�XP=xp+1 � XP=xp+2 � XP=xp+3�YN=1:�d^M

�"�XP=xp+5 � XP=xp+6 �YN=0:�d^M

�	�tlM

��xp,yp);" YES/NO":�7:�

�ݤMyFile(file$)

�
=file$

�� �Quit
ș "Wimp_CommandWindow",-1
Ș
�
�@
��Dir(d$)
�J)� d$ <> "" � � "Dir "+�MyFile(�d$,2))
�T�
�

00000000  0d 00 0a 17 f4 20 3e 20  24 2e 21 44 61 74 61 56  |..... > $.!DataV|
00000010  69 73 2e 21 64 76 34 0d  00 0f 1e c8 99 20 22 57  |is.!dv4...... "W|
00000020  69 6d 70 5f 43 6f 6d 6d  61 6e 64 57 69 6e 64 6f  |imp_CommandWindo|
00000030  77 22 2c 2d 31 0d 00 14  10 eb 20 31 35 3a fb 20  |w",-1..... 15:. |
00000040  31 38 30 3a db 0d 00 1e  0b ee 85 e5 8d 74 7c 4c  |180:.........t|L|
00000050  0d 00 28 12 c8 97 20 ee  3a 87 3a 46 47 25 3d 31  |..(... .:.:FG%=1|
00000060  38 30 0d 00 32 0c de 4d  45 24 28 32 30 29 0d 00  |80..2..ME$(20)..|
00000070  3c 6b de 4d 41 43 24 28  39 39 29 3a de 4d 41 4c  |<k.MAC$(99):.MAL|
00000080  24 28 39 39 29 3a 4d 41  49 25 3d 30 3a 56 41 25  |$(99):MAI%=0:VA%|
00000090  3d 31 3a de 4f 50 24 28  38 29 3a 53 50 4d 24 3d  |=1:.OP$(8):SPM$=|
000000a0  22 30 20 30 20 20 30 30  30 30 30 30 22 3a de 46  |"0 0  000000":.F|
000000b0  55 24 28 35 29 3a e3 49  3d 31 b8 38 3a f3 4f 50  |U$(5):.I=1.8:.OP|
000000c0  24 28 49 29 3a ed 49 3a  e3 49 3d 31 b8 35 3a f3  |$(I):.I:.I=1.5:.|
000000d0  46 55 24 28 49 29 3a ed  49 0d 00 46 6d dc 22 54  |FU$(I):.I..Fm."T|
000000e0  65 78 74 22 2c 22 4d 75  6c 74 69 2d 54 65 78 74  |ext","Multi-Text|
000000f0  22 2c 22 50 6f 70 2d 75  70 20 57 69 6e 64 6f 77  |","Pop-up Window|
00000100  22 2c 22 44 65 66 61 75  6c 74 20 56 61 6c 75 65  |","Default Value|
00000110  22 2c 22 52 61 6e 67 65  20 43 68 65 63 6b 22 2c  |","Range Check",|
00000120  22 52 65 71 75 69 72 65  64 20 56 61 6c 75 65 73  |"Required Values|
00000130  22 2c 22 52 6f 75 6e 64  69 6e 67 22 2c 22 46 6f  |","Rounding","Fo|
00000140  72 6d 75 6c 61 22 0d 00  50 22 dc 22 53 55 4d 22  |rmula"..P"."SUM"|
00000150  2c 22 41 56 47 22 2c 22  4d 41 58 22 2c 22 4d 49  |,"AVG","MAX","MI|
00000160  4e 22 2c 22 53 54 44 22  0d 00 5a 66 ff 22 43 4c  |N","STD"..Zf."CL|
00000170  4f 53 45 22 3a 58 3d ad  a4 4d 79 46 69 6c 65 28  |OSE":X=..MyFile(|
00000180  22 4e 49 4d 22 29 3a e8  23 58 2c 46 49 24 2c 53  |"NIM"):.#X,FI$,S|
00000190  54 24 2c 44 41 24 2c 44  52 24 2c 5a 5a 24 2c 4d  |T$,DA$,DR$,ZZ$,M|
000001a0  44 24 3a ff 22 43 4c 4f  53 45 22 3a 46 4f 24 3d  |D$:."CLOSE":FO$=|
000001b0  46 49 24 2b 22 41 22 3a  53 54 24 3d 22 31 22 3a  |FI$+"A":ST$="1":|
000001c0  53 54 4f 24 3d 53 54 24  3a e5 8d 44 4e 42 0d 00  |STO$=ST$:..DNB..|
000001d0  64 10 dd f2 4d 41 49 4e  3a 67 6f 25 3d 30 0d 00  |d...MAIN:go%=0..|
000001e0  6e 41 e7 53 54 24 3d 22  31 22 8c 20 54 41 24 3d  |nA.ST$="1". TA$=|
000001f0  46 49 24 2b 22 4e 22 3a  58 3d ad a4 4d 79 46 69  |FI$+"N":X=..MyFi|
00000200  6c 65 28 54 41 24 29 3a  e8 23 58 2c 44 49 24 3a  |le(TA$):.#X,DI$:|
00000210  f2 44 69 72 28 44 49 24  29 3a e5 8d 74 6a 40 0d  |.Dir(DI$):..tj@.|
00000220  00 78 09 e5 8d 74 4c 40  0d 00 82 61 f2 45 52 57  |.x...tL@...a.ERW|
00000230  49 4e 3a fb 31 38 30 3a  f1 8a 32 30 2c 31 32 29  |IN:.180:..20,12)|
00000240  3b 22 43 61 6e 6e 6f 74  20 72 65 61 64 20 74 68  |;"Cannot read th|
00000250  65 20 66 69 6c 65 20 3a  22 3b 46 49 24 3b 8a 32  |e file :";FI$;.2|
00000260  30 2c 31 34 29 3b 22 28  66 69 6c 65 20 65 6d 70  |0,14);"(file emp|
00000270  74 79 29 22 3a fb 46 47  25 3a ef 37 3a f2 4d 4b  |ty)":.FG%:.7:.MK|
00000280  4c 49 4b 3a e5 8d 74 40  4c 0d 00 8c 37 e7 53 54  |LIK:..t@L...7.ST|
00000290  24 3d 22 32 22 8c 20 54  41 24 3d 46 49 24 2b 22  |$="2". TA$=FI$+"|
000002a0  4e 22 3a 58 3d ad a4 4d  79 46 69 6c 65 28 54 41  |N":X=..MyFile(TA|
000002b0  24 29 3a e8 23 58 2c 44  49 24 3a e5 8d 74 6a 40  |$):.#X,DI$:..tj@|
000002c0  0d 00 96 35 dd f2 4d 4b  4c 49 4b 3a f5 3a c8 97  |...5..MKLIK:.:..|
000002d0  20 55 2c 55 2c 42 55 54  3a fd 42 55 54 3d 30 3a  | U,U,BUT:.BUT=0:|
000002e0  f5 3a c8 97 20 55 2c 55  2c 42 55 54 3a fd 42 55  |.:.. U,U,BUT:.BU|
000002f0  54 3d 34 3a e1 0d 00 a0  31 dd f2 45 52 57 49 4e  |T=4:....1..ERWIN|
00000300  3a 58 3d 31 39 3a 59 3d  31 31 3a 57 25 3d 34 30  |:X=19:Y=11:W%=40|
00000310  3a 4c 25 3d 33 3a fb 31  38 30 3a f2 4c 57 4e 3a  |:L%=3:.180:.LWN:|
00000320  fb 46 47 25 3a e1 0d 00  aa 75 d9 23 30 3a 58 3d  |.FG%:....u.#0:X=|
00000330  ad a4 4d 79 46 69 6c 65  28 46 4f 24 29 3a cf 23  |..MyFile(FO$):.#|
00000340  58 3d 30 3a e8 23 58 2c  5a 5a 24 3a 4e 4f 46 25  |X=0:.#X,ZZ$:NOF%|
00000350  3d bb 28 5a 5a 24 29 3a  cf 23 58 3d 35 3a e8 23  |=.(ZZ$):.#X=5:.#|
00000360  58 2c 5a 5a 24 3a 4e 4f  52 25 3d bb 28 5a 5a 24  |X,ZZ$:NOR%=.(ZZ$|
00000370  29 3a cf 23 58 3d 31 35  3a e8 23 58 2c 5a 5a 24  |):.#X=15:.#X,ZZ$|
00000380  3a 52 45 43 25 3d bb 28  5a 5a 24 29 3a cf 23 58  |:REC%=.(ZZ$):.#X|
00000390  3d 34 35 3a e8 23 58 2c  53 4f 24 0d 00 b4 3b cf  |=45:.#X,SO$...;.|
000003a0  23 58 3d 32 38 3a e8 23  58 2c 56 41 24 3a e7 56  |#X=28:.#X,VA$:.V|
000003b0  41 24 3d 22 30 22 8c 54  41 24 3d 46 49 24 2b 22  |A$="0".TA$=FI$+"|
000003c0  45 22 3a 4e 3d ae a4 4d  79 46 69 6c 65 28 54 41  |E":N=..MyFile(TA|
000003d0  24 29 3a d9 23 4e 0d 00  be 19 e7 56 41 24 3d 22  |$):.#N.....VA$="|
000003e0  31 22 8c 4d 41 49 25 3d  31 3a e5 8d 64 52 40 0d  |1".MAI%=1:..dR@.|
000003f0  00 c8 0b 67 6f 25 3d 31  3a e1 0d 00 d2 88 54 41  |...go%=1:.....TA|
00000400  24 3d 46 49 24 2b 22 45  22 3a ff 22 43 4c 4f 53  |$=FI$+"E":."CLOS|
00000410  45 22 3a 58 3d ad a4 4d  79 46 69 6c 65 28 54 41  |E":X=..MyFile(TA|
00000420  24 29 3a e8 23 58 2c 4d  41 43 24 28 30 29 3a e8  |$):.#X,MAC$(0):.|
00000430  23 58 2c 4d 41 4c 24 28  30 29 3a e3 49 3d 31 b8  |#X,MAL$(0):.I=1.|
00000440  bb 28 c0 4d 41 43 24 28  30 29 2c 32 29 29 3a e8  |.(.MAC$(0),2)):.|
00000450  23 58 2c 4d 41 43 24 28  49 29 3a e8 23 58 2c 4d  |#X,MAC$(I):.#X,M|
00000460  41 4c 24 28 49 29 3a ed  49 3a 56 41 25 3d 49 3a  |AL$(I):.I:VA%=I:|
00000470  53 50 4d 24 3d 4d 41 43  24 28 30 29 3a e5 8d 64  |SPM$=MAC$(0):..d|
00000480  48 40 0d 00 dc 0c dd f2  46 4f 50 4f 55 54 0d 00  |H@......FOPOUT..|
00000490  e6 2e ff 22 43 4c 4f 53  45 22 3a 58 3d ad a4 4d  |..."CLOSE":X=..M|
000004a0  79 46 69 6c 65 28 46 4f  24 29 3a 50 4f 49 3d 28  |yFile(FO$):POI=(|
000004b0  43 46 25 2d 31 29 2a 36  31 2b 36 33 0d 00 f0 13  |CF%-1)*61+63....|
000004c0  cf 23 58 3d 50 4f 49 3a  e8 23 58 2c 46 4c 24 0d  |.#X=POI:.#X,FL$.|
000004d0  00 fa 20 cf 23 58 3d 50  4f 49 2b 32 32 3a e8 23  |.. .#X=POI+22:.#|
000004e0  58 2c 5a 5a 24 3a 58 31  3d bb 28 5a 5a 24 29 0d  |X,ZZ$:X1=.(ZZ$).|
000004f0  01 04 20 cf 23 58 3d 50  4f 49 2b 32 36 3a e8 23  |.. .#X=POI+26:.#|
00000500  58 2c 5a 5a 24 3a 59 31  3d bb 28 5a 5a 24 29 0d  |X,ZZ$:Y1=.(ZZ$).|
00000510  01 0e 20 cf 23 58 3d 50  4f 49 2b 33 30 3a e8 23  |.. .#X=POI+30:.#|
00000520  58 2c 5a 5a 24 3a 58 32  3d bb 28 5a 5a 24 29 0d  |X,ZZ$:X2=.(ZZ$).|
00000530  01 18 20 cf 23 58 3d 50  4f 49 2b 33 34 3a e8 23  |.. .#X=POI+34:.#|
00000540  58 2c 5a 5a 24 3a 59 32  3d bb 28 5a 5a 24 29 0d  |X,ZZ$:Y2=.(ZZ$).|
00000550  01 22 16 cf 23 58 3d 50  4f 49 2b 33 38 3a e8 23  |."..#X=POI+38:.#|
00000560  58 2c 54 59 24 0d 01 2c  21 cf 23 58 3d 50 4f 49  |X,TY$..,!.#X=POI|
00000570  2b 34 31 3a e8 23 58 2c  5a 5a 24 3a 49 4e 25 3d  |+41:.#X,ZZ$:IN%=|
00000580  bb 28 5a 5a 24 29 0d 01  36 21 cf 23 58 3d 50 4f  |.(ZZ$)..6!.#X=PO|
00000590  49 2b 34 36 3a e8 23 58  2c 5a 5a 24 3a 54 49 25  |I+46:.#X,ZZ$:TI%|
000005a0  3d bb 28 5a 5a 24 29 0d  01 40 16 cf 23 58 3d 50  |=.(ZZ$)..@..#X=P|
000005b0  4f 49 2b 35 34 3a e8 23  58 2c 54 52 24 0d 01 4a  |OI+54:.#X,TR$..J|
000005c0  16 cf 23 58 3d 50 4f 49  2b 35 38 3a e8 23 58 2c  |..#X=POI+58:.#X,|
000005d0  4e 50 24 0d 01 54 05 e1  0d 01 5e 09 dd f2 4c 57  |NP$..T....^...LW|
000005e0  4e 0d 01 68 79 f1 8a 58  2c 59 29 3b bd 28 31 35  |N..hy..X,Y);.(15|
000005f0  34 29 3b c4 57 25 2c bd  28 31 35 39 29 29 3b bd  |4);.W%,.(159));.|
00000600  28 31 35 38 29 3a e3 49  3d 59 2b 31 b8 59 2b 4c  |(158):.I=Y+1.Y+L|
00000610  25 3a f1 8a 58 2c 49 29  3b bd 28 31 35 35 29 3b  |%:..X,I);.(155);|
00000620  c4 57 25 2c 22 20 22 29  3b bd 28 31 35 37 29 3a  |.W%," ");.(157):|
00000630  ed 49 3a f1 8a 58 2c 59  2b 28 4c 25 2b 31 29 29  |.I:..X,Y+(L%+1))|
00000640  3b bd 28 31 35 36 29 3b  c4 57 25 2c bd 28 31 36  |;.(156);.W%,.(16|
00000650  30 29 29 3b bd 28 31 36  31 29 0d 01 72 05 e1 0d  |0));.(161)..r...|
00000660  01 7c 0a dd f2 54 49 4d  45 0d 01 86 5e 53 25 3d  |.|...TIME...^S%=|
00000670  28 91 20 81 31 30 30 29  83 36 30 3a 4d 25 3d 28  |(. .100).60:M%=(|
00000680  91 20 81 36 30 30 30 29  83 36 30 3a 48 25 3d 28  |. .6000).60:H%=(|
00000690  91 20 81 33 36 30 30 30  30 29 83 32 34 3a f1 8a  |. .360000).24:..|
000006a0  37 33 2c 30 29 3b 22 3a  22 3b 8a 37 36 2c 30 29  |73,0);":";.76,0)|
000006b0  3b 22 3a 22 3a e7 53 25  3c 31 30 8c f1 8a 37 37  |;":":.S%<10...77|
000006c0  2c 30 29 3b 22 30 22 0d  01 90 16 e7 4d 25 3c 31  |,0);"0".....M%<1|
000006d0  30 8c f1 8a 37 34 2c 30  29 3b 22 30 22 0d 01 9a  |0...74,0);"0"...|
000006e0  16 e7 48 25 3c 31 30 8c  f1 8a 37 31 2c 30 29 3b  |..H%<10...71,0);|
000006f0  22 30 22 0d 01 a4 3d f1  8a 37 33 2d a9 28 c3 28  |"0"...=..73-.(.(|
00000700  48 25 29 29 2c 30 29 3b  48 25 3b 8a 37 36 2d a9  |H%)),0);H%;.76-.|
00000710  28 c3 28 4d 25 29 29 2c  30 29 3b 4d 25 3b 8a 37  |(.(M%)),0);M%;.7|
00000720  39 2d a9 28 c3 28 53 25  29 29 2c 30 29 3b 53 25  |9-.(.(S%)),0);S%|
00000730  0d 01 ae 05 e1 0d 01 b8  0a dd f2 54 45 58 54 0d  |...........TEXT.|
00000740  01 c2 0d 54 24 3d 22 22  3a 4c 3d 30 0d 01 cc 17  |...T$="":L=0....|
00000750  e7 4c 3c 4c 25 8c f1 8a  58 2c 59 29 3b bd 28 32  |.L<L%...X,Y);.(2|
00000760  35 35 29 0d 01 d6 08 49  4e 3d a5 0d 01 e0 16 e7  |55)....IN=......|
00000770  49 4e 3d 31 33 8c 4e 50  25 3d 30 3a e5 8d 54 7a  |IN=13.NP%=0:..Tz|
00000780  42 0d 01 ea 11 e7 49 4e  3d 31 32 37 8c e5 8d 54  |B.....IN=127...T|
00000790  5c 42 0d 01 f4 15 e7 49  4e 3d 39 8c 4e 50 25 3d  |\B.....IN=9.NP%=|
000007a0  31 3a e5 8d 54 7a 42 0d  01 fe 0f e7 4c 3d 4c 25  |1:..TzB.....L=L%|
000007b0  8c e5 8d 64 56 41 0d 02  08 28 f1 8a 58 2c 59 29  |...dVA...(..X,Y)|
000007c0  3b bd 28 49 4e 29 3a 54  24 3d 54 24 2b bd 28 49  |;.(IN):T$=T$+.(I|
000007d0  4e 29 3a 4c 3d 4c 2b 31  3a 58 3d 58 2b 31 0d 02  |N):L=L+1:X=X+1..|
000007e0  12 09 e5 8d 64 4c 41 0d  02 1c 0e e7 4c 3d 30 8c  |....dLA.....L=0.|
000007f0  e5 8d 64 42 41 0d 02 26  24 f1 8a 58 2c 59 29 3b  |..dBA..&$..X,Y);|
00000800  22 20 22 3a 58 3d 58 2d  31 3a 4c 3d 4c 2d 31 3a  |" ":X=X-1:L=L-1:|
00000810  54 24 3d c0 54 24 2c 4c  29 0d 02 30 09 e5 8d 64  |T$=.T$,L)..0...d|
00000820  4c 41 0d 02 3a 0e f1 8a  58 2c 59 29 3b 22 20 22  |LA..:...X,Y);" "|
00000830  0d 02 44 05 e1 0d 02 4e  09 f2 4d 41 49 4e 0d 02  |..D....N..MAIN..|
00000840  58 54 58 3d 34 37 3a 59  3d 31 33 3a 57 25 3d 32  |XTX=47:Y=13:W%=2|
00000850  32 3a 4c 25 3d 35 3a f2  4c 57 4e 3a 53 45 51 3d  |2:L%=5:.LWN:SEQ=|
00000860  31 3a 46 49 45 4c 44 3d  53 45 51 3a 59 45 41 52  |1:FIELD=SEQ:YEAR|
00000870  3d 53 45 51 3a 44 41 59  3d 53 45 51 3a 4d 4f 4e  |=SEQ:DAY=SEQ:MON|
00000880  54 48 3d 53 45 51 3a 51  55 41 52 54 45 52 3d 53  |TH=SEQ:QUARTER=S|
00000890  45 51 0d 02 62 0a 4d 46  59 25 3d 30 0d 02 6c 8a  |EQ..b.MFY%=0..l.|
000008a0  4d 45 24 28 31 29 3d 22  43 72 65 61 74 65 20 4d  |ME$(1)="Create M|
000008b0  61 63 72 6f 22 3a 4d 45  24 28 32 29 3d 22 45 72  |acro":ME$(2)="Er|
000008c0  61 73 65 20 4d 61 63 72  6f 22 3a 4d 45 24 28 33  |ase Macro":ME$(3|
000008d0  29 3d 22 45 72 61 73 65  20 61 6c 6c 20 4d 61 63  |)="Erase all Mac|
000008e0  72 6f 73 22 3a 4d 45 24  28 34 29 3d 22 45 6e 74  |ros":ME$(4)="Ent|
000008f0  72 79 20 43 6f 6e 66 69  67 75 72 61 74 69 6f 6e  |ry Configuration|
00000900  22 3a 4d 45 24 28 35 29  3d 22 51 75 69 74 22 3a  |":ME$(5)="Quit":|
00000910  58 3d 34 38 3a 59 3d 31  34 3a 4c 25 3d 35 3a f2  |X=48:Y=14:L%=5:.|
00000920  53 45 4c 45 43 54 0d 02  76 19 e7 53 45 4c 25 3d  |SELECT..v..SEL%=|
00000930  31 20 80 56 41 25 3c 39  39 8c e5 8d 74 7c 42 0d  |1 .VA%<99...t|B.|
00000940  02 80 11 e7 53 45 4c 25  3d 35 8c e5 8d 64 74 4b  |....SEL%=5...dtK|
00000950  0d 02 8a 11 e7 53 45 4c  25 3d 34 8c e5 8d 74 56  |.....SEL%=4...tV|
00000960  45 0d 02 94 11 e7 53 45  4c 25 3d 32 8c e5 8d 44  |E.....SEL%=2...D|
00000970  5a 4a 0d 02 9e 11 e7 53  45 4c 25 3d 33 8c e5 8d  |ZJ.....SEL%=3...|
00000980  64 4c 4b 0d 02 a8 09 e5  8d 44 6c 42 0d 02 b2 05  |dLK......DlB....|
00000990  fa 0d 02 bc ba db 3a f1  8a 32 2c 32 29 3b 22 43  |......:..2,2);"C|
000009a0  72 65 61 74 65 20 4d 61  63 72 6f 20 4e 6f 2e 20  |reate Macro No. |
000009b0  22 3b 56 41 25 3b 8a 32  2c 33 29 3b c4 31 39 2c  |";VA%;.2,3);.19,|
000009c0  bd 28 32 34 31 29 29 3a  f2 53 45 4c 3a 58 3d 32  |.(241)):.SEL:X=2|
000009d0  3a 59 3d 34 3a 57 25 3d  32 34 3a 4c 25 3d 34 3a  |:Y=4:W%=24:L%=4:|
000009e0  f2 4c 57 4e 3a f1 8a 33  2c 35 29 3b 22 20 20 53  |.LWN:..3,5);"  S|
000009f0  65 6c 65 63 74 20 45 78  65 63 75 74 65 20 50 6f  |elect Execute Po|
00000a00  69 6e 74 3a 22 3a 4d 45  24 28 31 29 3d 22 4f 6e  |int:":ME$(1)="On|
00000a10  20 45 6e 74 72 79 22 3a  4d 45 24 28 32 29 3d 22  | Entry":ME$(2)="|
00000a20  4f 6e 20 45 78 69 74 22  3a 4d 45 24 28 33 29 3d  |On Exit":ME$(3)=|
00000a30  22 51 75 69 74 22 3a 58  3d 33 3a 59 3d 36 3a 4c  |"Quit":X=3:Y=6:L|
00000a40  25 3d 33 3a f2 53 45 4c  45 43 54 0d 02 c6 11 e7  |%=3:.SELECT.....|
00000a50  53 45 4c 25 3d 33 8c e5  8d 44 58 42 0d 02 d0 2f  |SEL%=3...DXB.../|
00000a60  e7 53 45 4c 25 3d 31 8c  4d 4f 41 24 3d 22 31 31  |.SEL%=1.MOA$="11|
00000a70  31 30 30 30 30 31 22 3a  41 43 54 24 3d 22 49 22  |100001":ACT$="I"|
00000a80  3a 4c 25 3d 37 3a e5 8d  64 6e 42 0d 02 da 30 e7  |:L%=7:..dnB...0.|
00000a90  53 45 4c 25 3d 32 8c 4d  4f 41 24 3d 22 31 31 31  |SEL%=2.MOA$="111|
00000aa0  31 31 31 31 30 22 3a 41  43 54 24 3d 22 4f 22 3a  |11110":ACT$="O":|
00000ab0  4c 25 3d 31 30 3a e5 8d  64 6e 42 0d 02 e4 09 e5  |L%=10:..dnB.....|
00000ac0  8d 64 46 42 0d 02 ee 53  cf 23 41 3d 28 53 46 25  |.dFB...S.#A=(SF%|
00000ad0  2d 31 29 2a 36 31 2b 31  31 37 3a e8 23 41 2c 43  |-1)*61+117:.#A,C|
00000ae0  48 24 3a e7 41 43 54 24  3d 22 49 22 80 c0 43 48  |H$:.ACT$="I"..CH|
00000af0  24 2c 31 29 3d 22 31 22  84 c0 43 48 24 2c 31 29  |$,1)="1"..CH$,1)|
00000b00  3d 22 32 22 8c d4 31 2c  2d 31 35 2c 32 30 30 2c  |="2"..1,-15,200,|
00000b10  32 3a e5 8d 44 58 42 0d  02 f8 38 e7 41 43 54 24  |2:..DXB...8.ACT$|
00000b20  3d 22 4f 22 80 c2 43 48  24 2c 31 29 3d 22 31 22  |="O"..CH$,1)="1"|
00000b30  84 c2 43 48 24 2c 31 29  3d 22 32 22 8c d4 31 2c  |..CH$,1)="2"..1,|
00000b40  2d 31 35 2c 32 30 30 2c  32 3a e5 8d 44 58 42 0d  |-15,200,2:..DXB.|
00000b50  03 02 3f 58 3d 32 3a 59  3d 31 30 3a 57 25 3d 33  |..?X=2:Y=10:W%=3|
00000b60  32 3a f2 4c 57 4e 3a f1  8a 33 2c 31 31 29 3b 22  |2:.LWN:..3,11);"|
00000b70  4d 61 63 72 6f 20 4f 70  74 69 6f 6e 73 20 41 76  |Macro Options Av|
00000b80  61 69 6c 61 62 6c 65 3a  22 3a 4c 3d 31 33 0d 03  |ailable:":L=13..|
00000b90  0c 32 e3 49 3d 31 b8 31  35 3a e7 c1 4d 4f 41 24  |.2.I=1.15:..MOA$|
00000ba0  2c 49 2c 31 29 3d 22 31  22 8c 4d 45 24 28 4c 2d  |,I,1)="1".ME$(L-|
00000bb0  31 32 29 3d 4f 50 24 28  49 29 3a 4c 3d 4c 2b 31  |12)=OP$(I):L=L+1|
00000bc0  0d 03 16 1f ed 49 3a 4d  45 24 28 4c 2d 31 32 29  |.....I:ME$(L-12)|
00000bd0  3d 22 51 75 69 74 22 3a  4c 25 3d 4c 2d 31 32 0d  |="Quit":L%=L-12.|
00000be0  03 20 1c 58 3d 33 3a 59  3d 31 33 3a f2 53 45 4c  |. .X=3:Y=13:.SEL|
00000bf0  45 43 54 3a 41 53 3d 53  45 4c 25 0d 03 2a 2e e7  |ECT:AS=SEL%..*..|
00000c00  41 43 54 24 3d 22 49 22  8c 20 ee 20 41 53 20 e5  |ACT$="I". . AS .|
00000c10  20 8d 44 52 43 2c 8d 54  50 44 2c 8d 64 62 44 2c  | .DRC,.TPD,.dbD,|
00000c20  8d 54 60 48 2c 8d 44 58  42 0d 03 34 37 ee 20 41  |.T`H,.DXB..47. A|
00000c30  53 20 e5 20 8d 44 52 43  2c 8d 54 50 44 2c 8d 64  |S . .DRC,.TPD,.d|
00000c40  62 44 2c 8d 54 6c 46 2c  8d 44 40 46 2c 8d 74 7c  |bD,.TlF,.D@F,.t||
00000c50  47 2c 8d 64 64 47 2c 8d  54 60 48 2c 8d 44 58 42  |G,.ddG,.T`H,.DXB|
00000c60  0d 03 3e 11 e7 4d 46 59  25 3d 30 8c e5 8d 44 58  |..>..MFY%=0...DX|
00000c70  42 0d 03 48 2c 56 41 25  3d 53 50 25 3a db 3a f1  |B..H,VA%=SP%:.:.|
00000c80  8a 32 2c 32 29 3b 22 4d  61 63 72 6f 20 6d 6f 64  |.2,2);"Macro mod|
00000c90  69 66 69 65 64 2e 22 3a  e5 8d 44 58 42 0d 03 52  |ified.":..DXB..R|
00000ca0  50 db 3a 58 3d 32 3a 59  3d 32 3a 57 25 3d 32 39  |P.:X=2:Y=2:W%=29|
00000cb0  3a 4c 25 3d 33 3a f2 4c  57 4e 3a f1 8a 33 2c 33  |:L%=3:.LWN:..3,3|
00000cc0  29 3b 22 45 6e 74 65 72  20 43 6f 2d 6f 72 64 69  |);"Enter Co-ordi|
00000cd0  6e 61 74 65 73 3a 22 3b  8a 33 2c 34 29 3b 22 58  |nates:";.3,4);"X|
00000ce0  3d 22 3b 8a 33 2c 35 29  3b 22 59 3d 22 0d 03 5c  |=";.3,5);"Y="..\|
00000cf0  3b 58 3d 35 3a 59 3d 34  3a 4c 25 3d 32 3a f2 54  |;X=5:Y=4:L%=2:.T|
00000d00  45 58 54 3a 58 32 3d bb  28 54 24 29 3a 58 3d 35  |EXT:X2=.(T$):X=5|
00000d10  3a 59 3d 58 3a 4c 25 3d  32 3a f2 54 45 58 54 3a  |:Y=X:L%=2:.TEXT:|
00000d20  59 32 3d bb 28 54 24 29  0d 03 66 47 f1 8a 32 2c  |Y2=.(T$)..fG..2,|
00000d30  38 29 3b 22 45 6e 74 65  72 20 54 65 78 74 3a 20  |8);"Enter Text: |
00000d40  28 6d 61 78 69 6d 75 6d  20 32 30 30 20 63 68 61  |(maximum 200 cha|
00000d50  72 61 63 74 65 72 73 29  22 3a 58 3d 32 3a 59 3d  |racters)":X=2:Y=|
00000d60  31 30 3a 4c 25 3d 32 30  30 3a f2 54 45 58 54 0d  |10:L%=200:.TEXT.|
00000d70  03 70 2d f2 43 4f 4e 56  28 58 32 2c 32 29 3a 54  |.p-.CONV(X2,2):T|
00000d80  31 24 3d 53 54 4e 24 3a  f2 43 4f 4e 56 28 59 32  |1$=STN$:.CONV(Y2|
00000d90  2c 32 29 3a 54 32 24 3d  53 54 4e 24 0d 03 7a 32  |,2):T2$=STN$..z2|
00000da0  4d 41 43 24 28 56 41 25  29 3d 54 31 24 2b 54 32  |MAC$(VA%)=T1$+T2|
00000db0  24 2b 54 24 3a f2 4d 41  4c 28 22 41 22 29 3a 56  |$+T$:.MAL("A"):V|
00000dc0  41 25 3d 56 41 25 2b 31  3a e5 8d 54 7e 43 0d 03  |A%=VA%+1:..T~C..|
00000dd0  84 0e dd f2 4d 41 4c 28  54 50 24 29 0d 03 8e 5a  |....MAL(TP$)...Z|
00000de0  f2 43 4f 4e 56 28 53 46  25 2c 33 29 3a 4d 41 4c  |.CONV(SF%,3):MAL|
00000df0  24 28 56 41 25 29 3d 53  54 4e 24 2b 41 43 54 24  |$(VA%)=STN$+ACT$|
00000e00  2b 54 50 24 3a e7 41 43  54 24 3d 22 49 22 8c 54  |+TP$:.ACT$="I".T|
00000e10  54 24 3d c2 54 52 24 2c  31 29 3a 54 53 24 3d c0  |T$=.TR$,1):TS$=.|
00000e20  54 52 24 2c 31 29 3a f2  54 54 3a 54 52 24 3d 54  |TR$,1):.TT:TR$=T|
00000e30  53 24 2b 54 54 24 0d 03  98 35 e7 41 43 54 24 3d  |S$+TT$...5.ACT$=|
00000e40  22 4f 22 8c 54 54 24 3d  c0 54 52 24 2c 31 29 3a  |"O".TT$=.TR$,1):|
00000e50  54 53 24 3d c2 54 52 24  2c 31 29 3a f2 54 54 3a  |TS$=.TR$,1):.TT:|
00000e60  54 52 24 3d 54 54 24 2b  54 53 24 0d 03 a2 27 cf  |TR$=TT$+TS$...'.|
00000e70  23 41 3d 28 53 46 25 2d  31 29 2a 36 31 2b 31 31  |#A=(SF%-1)*61+11|
00000e80  37 3a f1 23 41 2c 54 52  24 3a ff 22 43 4c 4f 53  |7:.#A,TR$:."CLOS|
00000e90  45 22 0d 03 ac 0c 4d 41  49 25 3d 31 3a e1 0d 03  |E"....MAI%=1:...|
00000ea0  b6 3e dd f2 43 4f 4e 56  28 56 4c 2c 4d 4c 29 3a  |.>..CONV(VL,ML):|
00000eb0  53 54 4e 24 3d c3 28 56  4c 29 3a e7 a9 28 53 54  |STN$=.(VL):..(ST|
00000ec0  4e 24 29 3e 4d 4c 20 8c  53 54 4e 24 3d c0 53 54  |N$)>ML .STN$=.ST|
00000ed0  4e 24 2c 4d 4c 29 3a e5  8d 64 4a 43 0d 03 c0 2b  |N$,ML):..dJC...+|
00000ee0  53 54 4e 24 3d c3 28 56  4c 29 3a 53 54 4e 24 3d  |STN$=.(VL):STN$=|
00000ef0  53 54 4e 24 2b c4 28 4d  4c 2d a9 28 53 54 4e 24  |STN$+.(ML-.(STN$|
00000f00  29 29 2c 22 20 22 29 0d  03 ca 05 e1 0d 03 d4 12  |))," ").........|
00000f10  dd f2 43 4f 4e 54 28 56  4c 24 2c 4d 4c 29 0d 03  |..CONT(VL$,ML)..|
00000f20  de 29 53 54 4e 24 3d 56  4c 24 3a 53 54 4e 24 3d  |.)STN$=VL$:STN$=|
00000f30  53 54 4e 24 2b c4 28 4d  4c 2d a9 28 53 54 4e 24  |STN$+.(ML-.(STN$|
00000f40  29 29 2c 22 20 22 29 0d  03 e8 05 e1 0d 03 f2 19  |))," ").........|
00000f50  dd f2 54 54 3a e7 54 53  24 3d 22 33 22 8c 54 53  |..TT:.TS$="3".TS|
00000f60  24 3d 22 32 22 0d 03 fc  14 e7 54 53 24 3d 22 30  |$="2".....TS$="0|
00000f70  22 8c 54 53 24 3d 22 31  22 0d 04 06 05 e1 0d 04  |".TS$="1".......|
00000f80  10 66 db 3a 58 3d 32 3a  59 3d 32 3a 57 25 3d 32  |.f.:X=2:Y=2:W%=2|
00000f90  39 3a 4c 25 3d 32 3a f2  4c 57 4e 3a f1 8a 33 2c  |9:L%=2:.LWN:..3,|
00000fa0  33 29 3b 22 48 6f 77 20  4d 61 6e 79 20 49 74 65  |3);"How Many Ite|
00000fb0  6d 73 20 6f 66 20 54 65  78 74 3f 20 28 31 2d 39  |ms of Text? (1-9|
00000fc0  29 22 3a 58 3d 33 3a 59  3d 34 3a 4c 25 3d 31 3a  |)":X=3:Y=4:L%=1:|
00000fd0  f2 54 45 58 54 3a e7 bb  28 54 24 29 3d 30 8c e5  |.TEXT:..(T$)=0..|
00000fe0  8d 44 58 42 0d 04 1a 14  4e 54 25 3d bb 28 54 24  |.DXB....NT%=.(T$|
00000ff0  29 3a 4d 54 24 3d 22 22  0d 04 24 0c e3 46 3d 31  |):MT$=""..$..F=1|
00001000  b8 4e 54 25 0d 04 2e 44  58 3d 32 3a 59 3d 37 3a  |.NT%...DX=2:Y=7:|
00001010  57 25 3d 33 35 3a 4c 25  3d 38 3a f2 4c 57 4e 3a  |W%=35:L%=8:.LWN:|
00001020  f1 8a 33 2c 38 29 3b 22  54 65 78 74 20 49 74 65  |..3,8);"Text Ite|
00001030  6d 20 23 22 3b 46 3b 8a  33 2c 39 29 3b c4 33 35  |m #";F;.3,9);.35|
00001040  2c bd 28 32 34 31 29 29  0d 04 38 73 f1 8a 33 2c  |,.(241))..8s..3,|
00001050  31 30 29 3b 22 45 6e 74  65 72 20 43 6f 2d 6f 72  |10);"Enter Co-or|
00001060  64 69 6e 61 74 65 73 3a  22 3b 8a 33 2c 31 31 29  |dinates:";.3,11)|
00001070  3b 22 58 3d 22 3b 8a 33  2c 31 32 29 3b 22 59 3d  |;"X=";.3,12);"Y=|
00001080  22 3a 58 3d 35 3a 59 3d  31 31 3a 4c 25 3d 32 3a  |":X=5:Y=11:L%=2:|
00001090  f2 54 45 58 54 3a 58 32  3d bb 28 54 24 29 3a 58  |.TEXT:X2=.(T$):X|
000010a0  3d 35 3a 59 3d 31 32 3a  4c 25 3d 32 3a f2 54 45  |=5:Y=12:L%=2:.TE|
000010b0  58 54 3a 59 32 3d bb 28  54 24 29 0d 04 42 46 f1  |XT:Y2=.(T$)..BF.|
000010c0  8a 33 2c 31 33 29 3b 22  45 6e 74 65 72 20 54 65  |.3,13);"Enter Te|
000010d0  78 74 3a 20 28 6d 61 78  69 6d 75 6d 20 32 30 20  |xt: (maximum 20 |
000010e0  63 68 61 72 61 63 74 65  72 73 29 22 3a 58 3d 33  |characters)":X=3|
000010f0  3a 59 3d 31 34 3a 4c 25  3d 32 30 3a f2 54 45 58  |:Y=14:L%=20:.TEX|
00001100  54 0d 04 4c 4f f2 43 4f  4e 56 28 58 32 2c 32 29  |T..LO.CONV(X2,2)|
00001110  3a 54 31 24 3d 53 54 4e  24 3a f2 43 4f 4e 56 28  |:T1$=STN$:.CONV(|
00001120  59 32 2c 32 29 3a 54 32  24 3d 53 54 4e 24 3a f2  |Y2,2):T2$=STN$:.|
00001130  43 4f 4e 54 28 54 24 2c  32 30 29 3a 4d 54 24 3d  |CONT(T$,20):MT$=|
00001140  4d 54 24 2b 54 31 24 2b  54 32 24 2b 53 54 4e 24  |MT$+T1$+T2$+STN$|
00001150  0d 04 56 06 ed 46 0d 04  60 32 4d 41 43 24 28 56  |..V..F..`2MAC$(V|
00001160  41 25 29 3d c3 28 4e 54  25 29 2b 4d 54 24 3a f2  |A%)=.(NT%)+MT$:.|
00001170  4d 41 4c 28 22 42 22 29  3a 56 41 25 3d 56 41 25  |MAL("B"):VA%=VA%|
00001180  2b 31 3a e5 8d 54 7e 43  0d 04 6a 68 dd f2 53 54  |+1:..T~C..jh..ST|
00001190  41 4e 3a ef 32 33 2c 31  35 34 2c 32 35 35 2c 31  |AN:.23,154,255,1|
000011a0  32 38 2c 31 39 31 2c 31  36 30 2c 31 36 30 2c 31  |28,191,160,160,1|
000011b0  36 30 2c 31 36 30 2c 31  36 30 2c 32 33 2c 31 35  |60,160,160,23,15|
000011c0  39 2c 32 35 35 2c 30 2c  32 35 35 2c 30 2c 30 2c  |9,255,0,255,0,0,|
000011d0  30 2c 30 2c 30 2c 32 33  2c 31 35 38 2c 32 35 35  |0,0,0,23,158,255|
000011e0  2c 31 2c 32 35 33 2c 35  2c 35 2c 35 2c 35 2c 35  |,1,253,5,5,5,5,5|
000011f0  0d 04 74 9f ef 32 33 2c  31 35 35 2c 31 36 30 2c  |..t..23,155,160,|
00001200  31 36 30 2c 31 36 30 2c  31 36 30 2c 31 36 30 2c  |160,160,160,160,|
00001210  31 36 30 2c 31 36 30 2c  31 36 30 2c 32 33 2c 31  |160,160,160,23,1|
00001220  35 37 2c 35 2c 35 2c 35  2c 35 2c 35 2c 35 2c 35  |57,5,5,5,5,5,5,5|
00001230  2c 35 2c 32 33 2c 31 35  36 2c 31 36 30 2c 31 36  |,5,23,156,160,16|
00001240  30 2c 31 36 30 2c 31 36  30 2c 31 36 30 2c 31 39  |0,160,160,160,19|
00001250  31 2c 31 32 38 2c 32 35  35 2c 32 33 2c 31 36 30  |1,128,255,23,160|
00001260  2c 30 2c 30 2c 30 2c 30  2c 30 2c 32 35 35 2c 30  |,0,0,0,0,0,255,0|
00001270  2c 32 35 35 2c 32 33 2c  31 36 31 2c 35 2c 35 2c  |,255,23,161,5,5,|
00001280  35 2c 35 2c 35 2c 32 35  33 2c 31 2c 32 35 35 0d  |5,5,5,253,1,255.|
00001290  04 7e 05 e1 0d 04 88 a9  dd f2 53 48 41 44 3a ef  |.~........SHAD:.|
000012a0  32 33 2c 31 35 37 2c 37  2c 37 2c 37 2c 37 2c 37  |23,157,7,7,7,7,7|
000012b0  2c 37 2c 37 2c 37 2c 32  33 2c 31 35 38 2c 30 2c  |,7,7,7,23,158,0,|
000012c0  30 2c 32 35 32 2c 34 2c  37 2c 37 2c 37 2c 37 2c  |0,252,4,7,7,7,7,|
000012d0  32 33 2c 31 35 39 2c 30  2c 30 2c 32 35 35 2c 30  |23,159,0,0,255,0|
000012e0  2c 30 2c 30 2c 30 2c 30  2c 32 33 2c 31 36 30 2c  |,0,0,0,0,23,160,|
000012f0  30 2c 30 2c 30 2c 30 2c  30 2c 32 35 35 2c 32 35  |0,0,0,0,0,255,25|
00001300  35 2c 32 35 35 2c 32 33  2c 31 36 31 2c 37 2c 37  |5,255,23,161,7,7|
00001310  2c 37 2c 37 2c 37 2c 32  35 35 2c 32 35 35 2c 32  |,7,7,7,255,255,2|
00001320  35 35 2c 32 33 2c 31 36  32 2c 30 2c 30 2c 30 2c  |55,23,162,0,0,0,|
00001330  32 35 35 2c 32 35 35 2c  30 2c 30 2c 30 0d 04 92  |255,255,0,0,0...|
00001340  61 ef 32 33 2c 31 35 34  2c 30 2c 30 2c 36 33 2c  |a.23,154,0,0,63,|
00001350  33 32 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 32  |32,32,32,32,32,2|
00001360  33 2c 31 35 35 2c 33 32  2c 33 32 2c 33 32 2c 33  |3,155,32,32,32,3|
00001370  32 2c 33 32 2c 33 32 2c  33 32 2c 33 32 2c 32 33  |2,32,32,32,32,23|
00001380  2c 31 35 36 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |,156,32,32,32,32|
00001390  2c 33 32 2c 36 33 2c 31  35 2c 31 35 3a e1 0d 04  |,32,63,15,15:...|
000013a0  9c ca dd f2 53 4c 49 4e  45 3a ef 32 33 2c 31 35  |....SLINE:.23,15|
000013b0  34 2c 32 35 35 2c 31 32  38 2c 31 32 38 2c 31 32  |4,255,128,128,12|
000013c0  38 2c 31 32 38 2c 31 32  38 2c 31 32 38 2c 31 32  |8,128,128,128,12|
000013d0  38 2c 32 33 2c 31 35 35  2c 31 32 38 2c 31 32 38  |8,23,155,128,128|
000013e0  2c 31 32 38 2c 31 32 38  2c 31 32 38 2c 31 32 38  |,128,128,128,128|
000013f0  2c 31 32 38 2c 31 32 38  2c 32 33 2c 31 35 36 2c  |,128,128,23,156,|
00001400  31 32 38 2c 31 32 38 2c  31 32 38 2c 31 32 38 2c  |128,128,128,128,|
00001410  31 32 38 2c 31 32 38 2c  31 32 38 2c 32 35 35 2c  |128,128,128,255,|
00001420  32 33 2c 31 36 30 2c 30  2c 30 2c 30 2c 30 2c 30  |23,160,0,0,0,0,0|
00001430  2c 30 2c 30 2c 32 35 35  2c 32 33 2c 31 36 31 2c  |,0,0,255,23,161,|
00001440  31 2c 31 2c 31 2c 31 2c  31 2c 31 2c 31 2c 32 35  |1,1,1,1,1,1,1,25|
00001450  35 2c 32 33 2c 31 35 37  2c 31 2c 31 2c 31 2c 31  |5,23,157,1,1,1,1|
00001460  2c 31 2c 31 2c 31 2c 31  0d 04 a6 38 ef 32 33 2c  |,1,1,1,1...8.23,|
00001470  31 35 38 2c 32 35 35 2c  31 2c 31 2c 31 2c 31 2c  |158,255,1,1,1,1,|
00001480  31 2c 31 2c 31 2c 32 33  2c 31 35 39 2c 32 35 35  |1,1,1,23,159,255|
00001490  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 3a e1  |,0,0,0,0,0,0,0:.|
000014a0  0d 04 b0 ca dd f2 49 4e  56 45 3a ef 32 33 2c 31  |......INVE:.23,1|
000014b0  35 34 2c 32 35 35 2c 32  35 35 2c 31 39 32 2c 32  |54,255,255,192,2|
000014c0  32 33 2c 32 32 33 2c 32  32 33 2c 32 32 33 2c 32  |23,223,223,223,2|
000014d0  32 33 2c 32 33 2c 31 35  35 2c 32 32 33 2c 32 32  |23,23,155,223,22|
000014e0  33 2c 32 32 33 2c 32 32  33 2c 32 32 33 2c 32 32  |3,223,223,223,22|
000014f0  33 2c 32 32 33 2c 32 32  33 2c 32 33 2c 31 35 36  |3,223,223,23,156|
00001500  2c 32 32 33 2c 32 32 33  2c 32 32 33 2c 32 32 33  |,223,223,223,223|
00001510  2c 32 32 33 2c 31 39 32  2c 32 35 35 2c 32 35 35  |,223,192,255,255|
00001520  2c 32 33 2c 31 36 30 2c  32 35 35 2c 32 35 35 2c  |,23,160,255,255,|
00001530  32 35 35 2c 32 35 35 2c  32 35 35 2c 30 2c 32 35  |255,255,255,0,25|
00001540  35 2c 32 35 35 2c 32 33  2c 31 36 31 2c 32 35 31  |5,255,23,161,251|
00001550  2c 32 35 31 2c 32 35 31  2c 32 35 31 2c 32 35 31  |,251,251,251,251|
00001560  2c 33 2c 32 35 35 2c 32  35 35 0d 04 ba 77 ef 32  |,3,255,255...w.2|
00001570  33 2c 31 35 37 2c 32 35  31 2c 32 35 31 2c 32 35  |3,157,251,251,25|
00001580  31 2c 32 35 31 2c 32 35  31 2c 32 35 31 2c 32 35  |1,251,251,251,25|
00001590  31 2c 32 35 31 2c 32 33  2c 31 35 38 2c 32 35 35  |1,251,23,158,255|
000015a0  2c 32 35 35 2c 33 2c 32  35 31 2c 32 35 31 2c 32  |,255,3,251,251,2|
000015b0  35 31 2c 32 35 31 2c 32  35 31 2c 32 33 2c 31 35  |51,251,251,23,15|
000015c0  39 2c 32 35 35 2c 32 35  35 2c 30 2c 32 35 35 2c  |9,255,255,0,255,|
000015d0  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 3a  |255,255,255,255:|
000015e0  e1 0d 04 c4 3c dd f2 47  52 45 59 3a e3 49 3d 31  |....<..GREY:.I=1|
000015f0  35 34 b8 31 36 31 3a ef  32 33 2c 49 2c 38 35 2c  |54.161:.23,I,85,|
00001600  31 37 30 2c 38 35 2c 31  37 30 2c 38 35 2c 31 37  |170,85,170,85,17|
00001610  30 2c 38 35 2c 31 37 30  3a ed 49 3a e1 0d 04 ce  |0,85,170:.I:....|
00001620  ce dd f2 54 48 44 49 3a  ef 32 33 2c 31 35 34 2c  |...THDI:.23,154,|
00001630  32 35 35 2c 31 39 32 2c  31 36 30 2c 31 34 34 2c  |255,192,160,144,|
00001640  31 33 36 2c 31 33 32 2c  31 33 30 2c 31 32 39 2c  |136,132,130,129,|
00001650  32 33 2c 31 35 35 2c 31  32 39 2c 31 32 39 2c 31  |23,155,129,129,1|
00001660  32 39 2c 31 32 39 2c 31  32 39 2c 31 32 39 2c 31  |29,129,129,129,1|
00001670  32 39 2c 31 32 39 2c 32  33 2c 31 35 36 2c 31 32  |29,129,23,156,12|
00001680  39 2c 31 33 31 2c 31 33  35 2c 31 34 33 2c 31 35  |9,131,135,143,15|
00001690  39 2c 31 39 31 2c 32 35  35 2c 32 35 35 2c 32 33  |9,191,255,255,23|
000016a0  2c 31 36 30 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,160,255,255,255|
000016b0  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
000016c0  2c 32 35 35 2c 32 33 2c  31 36 31 2c 31 32 37 2c  |,255,23,161,127,|
000016d0  31 39 31 2c 32 32 33 2c  32 33 39 2c 32 34 37 2c  |191,223,239,247,|
000016e0  32 35 31 2c 32 35 33 2c  32 35 35 0d 04 d8 68 ef  |251,253,255...h.|
000016f0  32 33 2c 31 35 37 2c 32  35 35 2c 32 35 35 2c 32  |23,157,255,255,2|
00001700  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
00001710  35 35 2c 32 35 35 2c 32  33 2c 31 35 38 2c 32 35  |55,255,23,158,25|
00001720  35 2c 33 2c 37 2c 31 35  2c 33 31 2c 36 33 2c 31  |5,3,7,15,31,63,1|
00001730  32 37 2c 32 35 35 2c 32  33 2c 31 35 39 2c 32 35  |27,255,23,159,25|
00001740  35 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 32 35  |5,0,0,0,0,0,0,25|
00001750  35 3a e1 0d 04 e2 41 db  3a 58 3d 31 3a 59 3d 31  |5:....A.:X=1:Y=1|
00001760  3a 57 25 3d 34 39 3a 4c  25 3d 39 3a f2 4c 57 4e  |:W%=49:L%=9:.LWN|
00001770  3a f1 8a 33 2c 32 29 3b  22 53 65 6c 65 63 74 20  |:..3,2);"Select |
00001780  61 20 57 69 6e 64 6f 77  20 53 74 79 6c 65 3a 22  |a Window Style:"|
00001790  3a fb 34 34 0d 04 ec 7f  58 3d 33 3a 59 3d 34 3a  |:.44....X=3:Y=4:|
000017a0  57 25 3d 34 3a 4c 25 3d  34 3a f2 4c 57 4e 3a 58  |W%=4:L%=4:.LWN:X|
000017b0  3d 31 31 3a 59 3d 34 3a  57 25 3d 34 3a 4c 25 3d  |=11:Y=4:W%=4:L%=|
000017c0  34 3a f2 53 48 41 44 3a  f2 4c 57 4e 3a 58 3d 32  |4:.SHAD:.LWN:X=2|
000017d0  30 3a f2 53 4c 49 4e 45  3a f2 4c 57 4e 3a 58 3d  |0:.SLINE:.LWN:X=|
000017e0  32 38 3a f2 49 4e 56 45  3a f2 4c 57 4e 3a 58 3d  |28:.INVE:.LWN:X=|
000017f0  33 36 3a f2 47 52 45 59  3a f2 4c 57 4e 3a 58 3d  |36:.GREY:.LWN:X=|
00001800  34 34 3a f2 54 48 44 49  3a f2 4c 57 4e 3a f2 53  |44:.THDI:.LWN:.S|
00001810  54 41 4e 0d 04 f6 7f 58  3d 33 3a 59 3d 34 3a 57  |TAN....X=3:Y=4:W|
00001820  25 3d 34 3a 4c 25 3d 34  3a f2 4c 57 4e 3a 58 3d  |%=4:L%=4:.LWN:X=|
00001830  31 31 3a 59 3d 34 3a 57  25 3d 34 3a 4c 25 3d 34  |11:Y=4:W%=4:L%=4|
00001840  3a f2 53 48 41 44 3a f2  4c 57 4e 3a 58 3d 32 30  |:.SHAD:.LWN:X=20|
00001850  3a f2 53 4c 49 4e 45 3a  f2 4c 57 4e 3a 58 3d 32  |:.SLINE:.LWN:X=2|
00001860  38 3a f2 49 4e 56 45 3a  f2 4c 57 4e 3a 58 3d 33  |8:.INVE:.LWN:X=3|
00001870  36 3a f2 47 52 45 59 3a  f2 4c 57 4e 3a 58 3d 34  |6:.GREY:.LWN:X=4|
00001880  34 3a f2 54 48 44 49 3a  f2 4c 57 4e 3a f2 53 54  |4:.THDI:.LWN:.ST|
00001890  41 4e 0d 05 00 38 c8 97  20 58 50 2c 59 50 2c 42  |AN...8.. XP,YP,B|
000018a0  55 54 3a 58 50 3d a8 28  58 50 2f 31 36 29 3a 59  |UT:XP=.(XP/16):Y|
000018b0  50 3d 33 31 2d a8 28 59  50 2f 33 32 29 3a e7 42  |P=31-.(YP/32):.B|
000018c0  55 54 3d 30 8c e5 8d 54  40 45 0d 05 0a 22 e7 58  |UT=0...T@E...".X|
000018d0  50 3e 3d 33 20 80 20 58  50 3c 3d 36 20 8c 20 53  |P>=3 . XP<=6 . S|
000018e0  54 24 3d 22 31 22 3a e5  8d 44 50 45 0d 05 14 24  |T$="1":..DPE...$|
000018f0  e7 58 50 3e 3d 31 31 20  80 20 58 50 3c 3d 31 34  |.XP>=11 . XP<=14|
00001900  20 8c 20 53 54 24 3d 22  32 22 3a e5 8d 44 50 45  | . ST$="2":..DPE|
00001910  0d 05 1e 24 e7 58 50 3e  3d 32 30 20 80 20 58 50  |...$.XP>=20 . XP|
00001920  3c 3d 32 33 20 8c 20 53  54 24 3d 22 33 22 3a e5  |<=23 . ST$="3":.|
00001930  8d 44 50 45 0d 05 28 24  e7 58 50 3e 3d 32 38 20  |.DPE..($.XP>=28 |
00001940  80 20 58 50 3c 3d 33 31  20 8c 20 53 54 24 3d 22  |. XP<=31 . ST$="|
00001950  34 22 3a e5 8d 44 50 45  0d 05 32 24 e7 58 50 3e  |4":..DPE..2$.XP>|
00001960  3d 33 39 20 80 20 58 50  3c 3d 33 39 20 8c 20 53  |=39 . XP<=39 . S|
00001970  54 24 3d 22 35 22 3a e5  8d 44 50 45 0d 05 3c 24  |T$="5":..DPE..<$|
00001980  e7 58 50 3e 3d 34 34 20  80 20 58 50 3c 3d 34 37  |.XP>=44 . XP<=47|
00001990  20 8c 20 53 54 24 3d 22  36 22 3a e5 8d 44 50 45  | . ST$="6":..DPE|
000019a0  0d 05 46 09 e5 8d 54 40  45 0d 05 50 81 ef 37 3a  |..F...T@E..P..7:|
000019b0  fb 31 32 37 3a 58 3d 31  3a 59 3d 31 35 3a 57 25  |.127:X=1:Y=15:W%|
000019c0  3d 32 35 3a 4c 25 3d 36  3a f2 4c 57 4e 3a f1 8a  |=25:L%=6:.LWN:..|
000019d0  32 2c 31 36 29 3b 22 45  6e 74 65 72 20 57 69 6e  |2,16);"Enter Win|
000019e0  64 6f 77 20 43 6f 6f 72  64 69 6e 61 74 65 73 3a  |dow Coordinates:|
000019f0  22 3b 8a 32 2c 31 38 29  3b 22 58 3d 22 3b 8a 32  |";.2,18);"X=";.2|
00001a00  2c 31 39 29 3b 22 59 3d  22 3b 8a 32 2c 32 30 29  |,19);"Y=";.2,20)|
00001a10  3b 22 57 49 44 54 48 3d  22 3b 8a 32 2c 32 31 29  |;"WIDTH=";.2,21)|
00001a20  3b 22 4c 45 4e 47 54 48  3d 22 0d 05 5a 68 58 3d  |;"LENGTH="..ZhX=|
00001a30  34 3a 59 3d 31 38 3a 4c  25 3d 32 3a f2 54 45 58  |4:Y=18:L%=2:.TEX|
00001a40  54 3a 58 31 3d bb 28 54  24 29 3a 58 3d 34 3a 59  |T:X1=.(T$):X=4:Y|
00001a50  3d 31 39 3a f2 54 45 58  54 3a 58 32 3d bb 28 54  |=19:.TEXT:X2=.(T|
00001a60  24 29 3a 58 3d 38 3a 59  3d 32 30 3a f2 54 45 58  |$):X=8:Y=20:.TEX|
00001a70  54 3a 58 33 3d bb 28 54  24 29 3a 58 3d 39 3a 59  |T:X3=.(T$):X=9:Y|
00001a80  3d 32 31 3a f2 54 45 58  54 3a 58 34 3d bb 28 54  |=21:.TEXT:X4=.(T|
00001a90  24 29 0d 05 64 97 58 3d  33 30 3a 59 3d 31 35 3a  |$)..d.X=30:Y=15:|
00001aa0  57 25 3d 32 34 3a 4c 25  3d 35 3a f2 4c 57 4e 3a  |W%=24:L%=5:.LWN:|
00001ab0  f1 8a 33 31 2c 31 36 29  3b 22 45 6e 74 65 72 20  |..31,16);"Enter |
00001ac0  41 63 63 6f 6d 70 61 6e  79 69 6e 67 20 54 65 78  |Accompanying Tex|
00001ad0  74 3a 22 3b 8a 33 31 2c  31 38 29 3b 22 58 3d 22  |t:";.31,18);"X="|
00001ae0  3b 8a 33 31 2c 31 39 29  3b 22 59 3d 22 3a 58 3d  |;.31,19);"Y=":X=|
00001af0  33 33 3a 59 3d 31 38 3a  4c 25 3d 32 3a f2 54 45  |33:Y=18:L%=2:.TE|
00001b00  58 54 3a 58 35 3d bb 28  54 24 29 3a 58 3d 33 33  |XT:X5=.(T$):X=33|
00001b10  3a 59 3d 31 39 3a 4c 25  3d 32 3a f2 54 45 58 54  |:Y=19:L%=2:.TEXT|
00001b20  3a 58 36 3d bb 28 54 24  29 0d 05 6e 19 58 3d 33  |:X6=.(T$)..n.X=3|
00001b30  31 3a 59 3d 32 30 3a 4c  25 3d 32 30 3a f2 54 45  |1:Y=20:L%=20:.TE|
00001b40  58 54 0d 05 78 cc f2 43  4f 4e 56 28 58 31 2c 32  |XT..x..CONV(X1,2|
00001b50  29 3a 4d 41 43 24 28 56  41 25 29 3d 4d 41 43 24  |):MAC$(VA%)=MAC$|
00001b60  28 56 41 25 29 2b 53 54  24 2b 53 54 4e 24 3a f2  |(VA%)+ST$+STN$:.|
00001b70  43 4f 4e 56 28 58 32 2c  32 29 3a 4d 41 43 24 28  |CONV(X2,2):MAC$(|
00001b80  56 41 25 29 3d 4d 41 43  24 28 56 41 25 29 2b 53  |VA%)=MAC$(VA%)+S|
00001b90  54 4e 24 3a f2 43 4f 4e  56 28 58 33 2c 32 29 3a  |TN$:.CONV(X3,2):|
00001ba0  4d 41 43 24 28 56 41 25  29 3d 4d 41 43 24 28 56  |MAC$(VA%)=MAC$(V|
00001bb0  41 25 29 2b 53 54 4e 24  3a f2 43 4f 4e 56 28 58  |A%)+STN$:.CONV(X|
00001bc0  34 2c 32 29 3a 4d 41 43  24 28 56 41 25 29 3d 4d  |4,2):MAC$(VA%)=M|
00001bd0  41 43 24 28 56 41 25 29  2b 53 54 4e 24 3a f2 43  |AC$(VA%)+STN$:.C|
00001be0  4f 4e 56 28 58 35 2c 32  29 3a 4d 41 43 24 28 56  |ONV(X5,2):MAC$(V|
00001bf0  41 25 29 3d 4d 41 43 24  28 56 41 25 29 2b 53 54  |A%)=MAC$(VA%)+ST|
00001c00  4e 24 3a f2 43 4f 4e 56  28 58 36 2c 32 29 0d 05  |N$:.CONV(X6,2)..|
00001c10  82 42 4d 41 43 24 28 56  41 25 29 3d 4d 41 43 24  |.BMAC$(VA%)=MAC$|
00001c20  28 56 41 25 29 2b 53 54  4e 24 3a f2 43 4f 4e 54  |(VA%)+STN$:.CONT|
00001c30  28 54 24 2c 32 30 29 3a  4d 41 43 24 28 56 41 25  |(T$,20):MAC$(VA%|
00001c40  29 3d 4d 41 43 24 28 56  41 25 29 2b 53 54 4e 24  |)=MAC$(VA%)+STN$|
00001c50  0d 05 8c 1d f2 4d 41 4c  28 22 43 22 29 3a 56 41  |.....MAL("C"):VA|
00001c60  25 3d 56 41 25 2b 31 3a  e5 8d 54 7e 43 0d 05 96  |%=VA%+1:..T~C...|
00001c70  53 e7 4d 41 49 25 3d 30  8c e5 8d 44 58 42 3a 8b  |S.MAI%=0...DXB:.|
00001c80  db 3a fb 31 32 38 3a 58  3d 32 3a 59 3d 32 3a 57  |.:.128:X=2:Y=2:W|
00001c90  25 3d 33 30 3a 4c 25 3d  39 3a f2 4c 57 4e 3a f1  |%=30:L%=9:.LWN:.|
00001ca0  8a 33 2c 33 29 3b 22 53  65 74 20 45 61 63 68 20  |.3,3);"Set Each |
00001cb0  4f 70 74 69 6f 6e 3a 20  22 3b bd 28 31 33 32 29  |Option: ";.(132)|
00001cc0  0d 05 a0 16 f1 8a 33 2c  34 29 3b c4 33 30 2c bd  |......3,4);.30,.|
00001cd0  28 32 34 31 29 29 0d 05  aa 8c f1 8a 33 2c 36 29  |(241))......3,6)|
00001ce0  3b 22 45 6e 74 72 79 20  50 61 67 65 22 3b 8a 33  |;"Entry Page";.3|
00001cf0  2c 37 29 3b 22 42 65 65  70 20 6f 6e 20 52 45 54  |,7);"Beep on RET|
00001d00  55 52 4e 22 3b 8a 33 2c  38 29 3b 22 49 6e 76 65  |URN";.3,8);"Inve|
00001d10  72 74 20 46 69 65 6c 64  20 54 69 74 6c 65 73 22  |rt Field Titles"|
00001d20  3b 8a 33 2c 39 29 3b 22  45 6e 63 61 73 65 20 45  |;.3,9);"Encase E|
00001d30  6e 74 72 79 22 3b 8a 33  2c 31 30 29 3b 22 48 61  |ntry";.3,10);"Ha|
00001d40  72 64 20 43 6f 70 79 22  3b 8a 33 2c 31 31 29 3b  |rd Copy";.3,11);|
00001d50  22 53 65 74 20 4d 61 73  74 65 72 20 54 69 74 6c  |"Set Master Titl|
00001d60  65 22 0d 05 b4 3e 4c 3d  36 3a e3 49 3d 36 b8 31  |e"...>L=6:.I=6.1|
00001d70  31 3a e7 c1 53 50 4d 24  2c 49 2c 31 29 3d 22 31  |1:..SPM$,I,1)="1|
00001d80  22 8c f1 8a 33 31 2c 4c  29 3b bd 28 31 33 33 29  |"...31,L);.(133)|
00001d90  3a 8b f1 8a 33 31 2c 4c  29 3b bd 28 31 33 30 29  |:...31,L);.(130)|
00001da0  0d 05 be 0c 4c 3d 4c 2b  31 3a ed 49 0d 05 c8 38  |....L=L+1:.I...8|
00001db0  c8 97 20 58 50 2c 59 50  2c 42 55 54 3a 58 50 3d  |.. XP,YP,BUT:XP=|
00001dc0  a8 28 58 50 2f 31 36 29  3a 59 50 3d 33 31 2d a8  |.(XP/16):YP=31-.|
00001dd0  28 59 50 2f 33 32 29 3a  e7 42 55 54 3d 30 8c e5  |(YP/32):.BUT=0..|
00001de0  8d 64 48 45 0d 05 d2 20  e7 58 50 3d 32 30 20 80  |.dHE... .XP=20 .|
00001df0  20 59 50 3d 33 20 8c ef  37 3a fb 46 47 25 3a e5  | YP=3 ..7:.FG%:.|
00001e00  8d 44 58 42 0d 05 dc 1b  e7 59 50 3c 36 20 84 20  |.DXB.....YP<6 . |
00001e10  59 50 3e 31 31 8c e5 8d  64 48 45 3a 8b ef 37 0d  |YP>11...dHE:..7.|
00001e20  05 e6 78 42 49 54 25 3d  59 50 3a 49 24 3d c3 28  |..xBIT%=YP:I$=.(|
00001e30  42 49 54 25 2d 35 29 3a  42 49 54 24 3d c1 53 50  |BIT%-5):BIT$=.SP|
00001e40  4d 24 2c 42 49 54 25 2c  31 29 3a 54 31 24 3d c0  |M$,BIT%,1):T1$=.|
00001e50  53 50 4d 24 2c 42 49 54  25 2d 31 29 3a 54 32 24  |SPM$,BIT%-1):T2$|
00001e60  3d c1 53 50 4d 24 2c 42  49 54 25 2b 31 2c a9 28  |=.SPM$,BIT%+1,.(|
00001e70  53 50 4d 24 29 2d 42 49  54 25 29 3a e7 42 49 54  |SPM$)-BIT%):.BIT|
00001e80  24 3d 22 30 22 8c 42 49  54 24 3d 22 31 22 8b 42  |$="0".BIT$="1".B|
00001e90  49 54 24 3d 22 30 22 0d  05 f0 21 e7 49 24 3d 22  |IT$="0"...!.I$="|
00001ea0  36 22 80 c1 53 50 4d 24  2c 31 31 2c 31 29 3d 22  |6"..SPM$,11,1)="|
00001eb0  30 22 8c e5 8d 54 62 46  0d 05 fa 3f e7 49 24 3d  |0"...TbF...?.I$=|
00001ec0  22 36 22 80 c1 53 50 4d  24 2c 31 31 2c 31 29 3d  |"6"..SPM$,11,1)=|
00001ed0  22 31 22 8c 53 50 4d 24  3d c0 53 50 4d 24 2c 31  |"1".SPM$=.SPM$,1|
00001ee0  31 29 3a 54 32 24 3d c2  53 50 4d 24 2c 28 31 31  |1):T2$=.SPM$,(11|
00001ef0  2d 42 49 54 25 29 29 0d  06 04 15 53 50 4d 24 3d  |-BIT%))....SPM$=|
00001f00  54 31 24 2b 42 49 54 24  2b 54 32 24 0d 06 0e 17  |T1$+BIT$+T2$....|
00001f10  f5 3a c8 97 20 55 2c 55  2c 42 55 54 3a fd 42 55  |.:.. U,U,BUT:.BU|
00001f20  54 3d 30 0d 06 18 09 e5  8d 74 74 45 0d 06 22 71  |T=0......ttE.."q|
00001f30  58 3d 30 3a 59 3d 31 34  3a 4c 25 3d 32 3a 57 25  |X=0:Y=14:L%=2:W%|
00001f40  3d 37 38 3a f2 4c 57 4e  3a f1 8a 31 2c 31 35 29  |=78:.LWN:..1,15)|
00001f50  3b 22 45 6e 74 65 72 20  4d 61 73 74 65 72 20 54  |;"Enter Master T|
00001f60  69 74 6c 65 3a 22 3a 58  3d 31 3a 59 3d 31 36 3a  |itle:":X=1:Y=16:|
00001f70  4c 25 3d 37 38 3a f2 54  45 58 54 3a fb 46 47 25  |L%=78:.TEXT:.FG%|
00001f80  3a db 3a 53 50 4d 24 3d  54 31 24 2b 42 49 54 24  |:.:SPM$=T1$+BIT$|
00001f90  2b 54 32 24 2b 54 24 3a  e5 8d 74 56 45 0d 06 2c  |+T2$+T$:..tVE..,|
00001fa0  1a e7 54 59 24 3d 22 35  22 84 54 59 24 3d 22 36  |..TY$="5".TY$="6|
00001fb0  22 8c e5 8d 54 7e 43 0d  06 36 a1 db 3a 58 3d 32  |"...T~C..6..:X=2|
00001fc0  3a 59 3d 32 3a 57 25 3d  36 35 3a 4c 25 3d 32 3a  |:Y=2:W%=65:L%=2:|
00001fd0  f2 4c 57 4e 3a f1 8a 33  2c 33 29 3b 22 45 6e 74  |.LWN:..3,3);"Ent|
00001fe0  65 72 20 64 65 66 61 75  6c 74 20 76 61 6c 75 65  |er default value|
00001ff0  20 66 6f 72 20 22 3b 46  4c 24 3b 22 3a 22 3a cf  | for ";FL$;":":.|
00002000  23 41 3d 28 53 46 25 2d  31 29 2a 36 31 2b 31 30  |#A=(SF%-1)*61+10|
00002010  34 3a e8 23 41 2c 49 4e  24 3a 58 3d 33 3a 59 3d  |4:.#A,IN$:X=3:Y=|
00002020  34 3a 4c 25 3d bb 28 49  4e 24 29 3a f2 54 45 58  |4:L%=.(IN$):.TEX|
00002030  54 3a 4d 41 43 24 28 56  41 25 29 3d 54 24 3a f2  |T:MAC$(VA%)=T$:.|
00002040  4d 41 4c 28 22 44 22 29  3a 56 41 25 3d 56 41 25  |MAL("D"):VA%=VA%|
00002050  2b 31 3a e5 8d 54 7e 43  0d 06 40 1a e7 54 59 24  |+1:..T~C..@..TY$|
00002060  3d 22 35 22 84 54 59 24  3d 22 36 22 8c e5 8d 54  |="5".TY$="6"...T|
00002070  7e 43 0d 06 4a 78 db 3a  58 3d 32 3a 59 3d 32 3a  |~C..Jx.:X=2:Y=2:|
00002080  57 25 3d 36 30 3a 4c 25  3d 34 3a f2 4c 57 4e 3a  |W%=60:L%=4:.LWN:|
00002090  f1 8a 33 2c 33 29 3b 22  44 65 66 69 6e 65 20 76  |..3,3);"Define v|
000020a0  61 6c 69 64 20 72 61 6e  67 65 20 66 6f 72 20 22  |alid range for "|
000020b0  3b 46 4c 24 3b 22 3a 22  3b 8a 33 2c 35 29 22 45  |;FL$;":";.3,5)"E|
000020c0  6e 74 65 72 20 6c 6f 77  20 76 61 6c 75 65 3a 22  |nter low value:"|
000020d0  3b 8a 33 2c 36 29 3b 22  45 6e 74 65 72 20 68 69  |;.3,6);"Enter hi|
000020e0  67 68 20 76 61 6c 75 65  3a 22 0d 06 54 26 58 3d  |gh value:"..T&X=|
000020f0  32 31 3a 59 3d 35 3a 4c  25 3d 31 32 3a e7 54 59  |21:Y=5:L%=12:.TY|
00002100  24 3d 22 35 22 8c f2 54  59 35 3a e5 8d 44 68 46  |$="5"..TY5:..DhF|
00002110  0d 06 5e 17 e7 54 59 24  3d 22 36 22 8c f2 54 59  |..^..TY$="6"..TY|
00002120  36 3a e5 8d 44 68 46 0d  06 68 36 f2 54 45 58 54  |6:..DhF..h6.TEXT|
00002130  3a 54 31 3d bb 28 54 24  29 3a 54 31 24 3d 54 24  |:T1=.(T$):T1$=T$|
00002140  3a 59 3d 36 3a 58 3d 32  31 3a e7 54 59 24 3d 22  |:Y=6:X=21:.TY$="|
00002150  35 22 8c f2 54 59 35 3a  e5 8d 74 46 46 0d 06 72  |5"..TY5:..tFF..r|
00002160  17 e7 54 59 24 3d 22 36  22 8c f2 54 59 36 3a e5  |..TY$="6"..TY6:.|
00002170  8d 74 46 46 0d 06 7c 19  f2 54 45 58 54 3a 54 32  |.tFF..|..TEXT:T2|
00002180  3d bb 28 54 24 29 3a 54  32 24 3d 54 24 0d 06 86  |=.(T$):T2$=T$...|
00002190  32 54 32 24 3d 54 24 3a  e7 54 59 24 3d 22 36 22  |2T2$=T$:.TY$="6"|
000021a0  84 54 59 24 3d 22 35 22  8c 4d 41 43 24 28 56 41  |.TY$="5".MAC$(VA|
000021b0  25 29 3d 54 31 24 2b 54  24 3a e5 8d 74 6e 46 0d  |%)=T1$+T$:..tnF.|
000021c0  06 90 18 e7 54 31 24 3d  22 22 8c 54 31 3d 2d 39  |....T1$="".T1=-9|
000021d0  39 39 39 39 39 39 39 0d  06 9a 17 e7 54 32 24 3d  |9999999.....T2$=|
000021e0  22 22 8c 54 32 3d 39 39  39 39 39 39 39 39 0d 06  |"".T2=99999999..|
000021f0  a4 4f f2 43 4f 4e 56 28  54 31 2c 31 32 29 3a 4d  |.O.CONV(T1,12):M|
00002200  41 43 24 28 56 41 25 29  3d 4d 41 43 24 28 56 41  |AC$(VA%)=MAC$(VA|
00002210  25 29 2b 53 54 4e 24 3a  f2 43 4f 4e 56 28 54 32  |%)+STN$:.CONV(T2|
00002220  2c 31 32 29 3a 4d 41 43  24 28 56 41 25 29 3d 4d  |,12):MAC$(VA%)=M|
00002230  41 43 24 28 56 41 25 29  2b 53 54 4e 24 0d 06 ae  |AC$(VA%)+STN$...|
00002240  0a 49 24 3d 22 31 22 0d  06 b8 34 4d 41 43 24 28  |.I$="1"...4MAC$(|
00002250  56 41 25 29 3d 4d 41 43  24 28 56 41 25 29 2b 49  |VA%)=MAC$(VA%)+I|
00002260  24 3a f2 4d 41 4c 28 22  45 22 29 3a 56 41 25 3d  |$:.MAL("E"):VA%=|
00002270  56 41 25 2b 31 3a e5 8d  54 7e 43 0d 06 c2 05 fa  |VA%+1:..T~C.....|
00002280  0d 06 cc 09 dd f2 54 59  35 0d 06 d6 1d f1 8a 58  |......TY5......X|
00002290  32 2c 59 32 29 3b 22 2e  2e 2f 2e 2e 2f 2e 2e 22  |2,Y2);"../../.."|
000022a0  3a 4e 24 3d 22 22 0d 06  e0 1a 58 33 3d 58 32 3a  |:N$=""....X3=X2:|
000022b0  f2 44 41 54 3a e7 44 45  3d 31 8c e5 8d 64 56 46  |.DAT:.DE=1...dVF|
000022c0  0d 06 ea 27 4e 24 3d 4e  24 2b 44 41 54 24 3a 58  |...'N$=N$+DAT$:X|
000022d0  33 3d 58 32 2b 33 3a f2  44 41 54 3a e7 44 45 3d  |3=X2+3:.DAT:.DE=|
000022e0  31 8c e5 8d 64 56 46 0d  06 f4 2f 4e 24 3d 4e 24  |1...dVF.../N$=N$|
000022f0  2b 22 2f 22 2b 44 41 54  24 2b 22 2f 22 3a 58 33  |+"/"+DAT$+"/":X3|
00002300  3d 58 32 2b 36 3a f2 44  41 54 3a e7 44 45 3d 31  |=X2+6:.DAT:.DE=1|
00002310  8c e5 8d 64 56 46 0d 06  fe 0e 4e 24 3d 4e 24 2b  |...dVF....N$=N$+|
00002320  44 41 54 24 0d 07 08 1b  49 4e 3d a5 3a f2 43 48  |DAT$....IN=.:.CH|
00002330  45 4b 3a e7 49 4e 3d 31  33 8c e5 8d 54 5c 47 0d  |EK:.IN=13...T\G.|
00002340  07 12 17 e7 49 4e 3d 31  32 37 8c e5 8d 64 56 46  |....IN=127...dVF|
00002350  8b e5 8d 54 48 47 0d 07  1c 05 e1 0d 07 26 09 dd  |...THG.......&..|
00002360  f2 44 41 54 0d 07 30 16  44 45 3d 30 3a 44 41 54  |.DAT..0.DE=0:DAT|
00002370  24 3d 22 22 3a 58 34 3d  58 33 0d 07 3a 1b 49 4e  |$="":X4=X3..:.IN|
00002380  3d a5 3a e7 49 4e 3d 31  32 37 8c 44 45 3d 31 3a  |=.:.IN=127.DE=1:|
00002390  e5 8d 44 62 47 0d 07 44  23 e7 49 4e 3c 34 38 84  |..DbG..D#.IN<48.|
000023a0  49 4e 3e 35 37 8c d4 31  2c 2d 31 35 2c 31 30 30  |IN>57..1,-15,100|
000023b0  2c 32 3a e5 8d 54 7a 47  0d 07 4e 3b f1 8a 58 33  |,2:..TzG..N;..X3|
000023c0  2c 59 32 29 3b bd 28 49  4e 29 3a 44 41 54 24 3d  |,Y2);.(IN):DAT$=|
000023d0  44 41 54 24 2b bd 28 49  4e 29 3a 58 33 3d 58 33  |DAT$+.(IN):X3=X3|
000023e0  2b 31 3a e7 58 33 3e 28  58 34 2b 31 29 8c e5 8d  |+1:.X3>(X4+1)...|
000023f0  44 62 47 0d 07 58 09 e5  8d 54 7a 47 0d 07 62 05  |DbG..X...TzG..b.|
00002400  e1 0d 07 6c 09 dd f2 54  59 36 0d 07 76 1a f1 8a  |...l...TY6..v...|
00002410  58 32 2c 59 32 29 3b 22  2e 2e 3a 2e 2e 22 3a 4e  |X2,Y2);"..:..":N|
00002420  24 3d 22 22 0d 07 80 1a  58 33 3d 58 32 3a f2 44  |$=""....X3=X2:.D|
00002430  41 54 3a e7 44 45 3d 31  8c e5 8d 44 76 47 0d 07  |AT:.DE=1...DvG..|
00002440  8a 1f 4e 24 3d 4e 24 2b  44 41 54 24 2b 22 3a 22  |..N$=N$+DAT$+":"|
00002450  3a 58 33 3d 58 32 2b 33  3a f2 44 41 54 0d 07 94  |:X3=X2+3:.DAT...|
00002460  0e 4e 24 3d 4e 24 2b 44  41 54 24 0d 07 9e 1b 49  |.N$=N$+DAT$....I|
00002470  4e 3d a5 3a f2 43 48 45  4b 3a e7 49 4e 3d 31 33  |N=.:.CHEK:.IN=13|
00002480  8c e5 8d 74 72 47 0d 07  a8 17 e7 49 4e 3d 31 32  |...trG.....IN=12|
00002490  37 8c e5 8d 44 76 47 8b  e5 8d 74 5e 47 0d 07 b2  |7...DvG...t^G...|
000024a0  05 e1 0d 07 bc 76 db 3a  58 3d 32 3a 59 3d 32 3a  |.....v.:X=2:Y=2:|
000024b0  57 25 3d 34 37 3a 4c 25  3d 32 3a f2 4c 57 4e 3a  |W%=47:L%=2:.LWN:|
000024c0  f1 8a 33 2c 33 29 3b 22  48 6f 77 20 6d 61 6e 79  |..3,3);"How many|
000024d0  20 76 61 6c 75 65 73 20  28 31 2d 31 36 29 20 66  | values (1-16) f|
000024e0  6f 72 20 22 3b 46 4c 24  3b 22 3f 3a 22 3a 58 3d  |or ";FL$;"?:":X=|
000024f0  33 3a 59 3d 34 3a 4c 25  3d 32 3a f2 54 45 58 54  |3:Y=4:L%=2:.TEXT|
00002500  3a e7 bb 28 54 24 29 3d  30 84 bb 28 54 24 29 3e  |:..(T$)=0..(T$)>|
00002510  31 36 8c e5 8d 44 58 42  0d 07 c6 45 58 3d 31 30  |16...DXB...EX=10|
00002520  3a 59 3d 37 3a 4c 25 3d  bb 28 54 24 29 3a 57 25  |:Y=7:L%=.(T$):W%|
00002530  3d 32 38 3a f2 4c 57 4e  3a f2 43 4f 4e 54 28 54  |=28:.LWN:.CONT(T|
00002540  24 2c 32 29 3a 4d 41 43  24 28 56 41 25 29 3d 4d  |$,2):MAC$(VA%)=M|
00002550  41 43 24 28 56 41 25 29  2b 53 54 4e 24 0d 07 d0  |AC$(VA%)+STN$...|
00002560  6d e3 49 3d 31 b8 bb 28  54 24 29 3a f1 8a 31 31  |m.I=1..(T$):..11|
00002570  2c 49 2b 37 29 3b 22 45  6e 74 65 72 20 76 61 6c  |,I+7);"Enter val|
00002580  75 65 20 22 3b 49 3b 22  3a 22 3a 58 3d 32 37 3a  |ue ";I;":":X=27:|
00002590  59 3d 49 2b 37 3a 4c 25  3d 31 32 3a f2 54 45 58  |Y=I+7:L%=12:.TEX|
000025a0  54 3a f2 43 4f 4e 54 28  54 24 2c 31 32 29 3a 4d  |T:.CONT(T$,12):M|
000025b0  41 43 24 28 56 41 25 29  3d 4d 41 43 24 28 56 41  |AC$(VA%)=MAC$(VA|
000025c0  25 29 2b 53 54 4e 24 3a  ed 49 0d 07 da 1d f2 4d  |%)+STN$:.I.....M|
000025d0  41 4c 28 22 46 22 29 3a  56 41 25 3d 56 41 25 2b  |AL("F"):VA%=VA%+|
000025e0  31 3a e5 8d 54 7e 43 0d  07 e4 05 db 0d 07 ee 47  |1:..T~C........G|
000025f0  58 3d 32 3a 59 3d 38 3a  57 25 3d 37 30 3a 4c 25  |X=2:Y=8:W%=70:L%|
00002600  3d 32 3a f2 4c 57 4e 3a  f1 8a 33 2c 39 29 3b 22  |=2:.LWN:..3,9);"|
00002610  45 6e 74 65 72 20 72 6f  75 6e 64 69 6e 67 20 66  |Enter rounding f|
00002620  69 67 75 72 65 20 66 6f  72 20 22 3b 46 4c 24 3b  |igure for ";FL$;|
00002630  22 3a 22 0d 07 f8 32 58  3d 33 3a 59 3d 31 30 3a  |":"...2X=3:Y=10:|
00002640  4c 25 3d 31 3a f2 54 45  58 54 3a 54 52 49 4d 25  |L%=1:.TEXT:TRIM%|
00002650  3d bb 28 54 24 29 3a e7  54 52 49 4d 25 3e 38 8c  |=.(T$):.TRIM%>8.|
00002660  e5 8d 64 78 47 0d 08 02  30 4d 41 43 24 28 56 41  |..dxG...0MAC$(VA|
00002670  25 29 3d c3 28 54 52 49  4d 25 29 3a f2 4d 41 4c  |%)=.(TRIM%):.MAL|
00002680  28 22 47 22 29 3a 56 41  25 3d 56 41 25 2b 31 3a  |("G"):VA%=VA%+1:|
00002690  e5 8d 54 7e 43 0d 08 0c  99 58 3d 32 3a 59 3d 38  |..T~C....X=2:Y=8|
000026a0  3a 57 25 3d 37 30 3a 4c  25 3d 32 3a f2 4c 57 4e  |:W%=70:L%=2:.LWN|
000026b0  3a f1 8a 33 2c 39 29 3b  22 45 6e 74 65 72 20 6e  |:..3,9);"Enter n|
000026c0  75 6d 62 65 72 20 6f 66  20 64 65 63 69 6d 61 6c  |umber of decimal|
000026d0  20 70 6c 61 63 65 73 20  61 6c 6c 20 6e 75 6d 65  | places all nume|
000026e0  72 69 63 20 66 69 65 6c  64 73 20 77 69 6c 6c 20  |ric fields will |
000026f0  62 65 20 54 72 69 6d 6d  65 64 20 74 6f 3a 22 3a  |be Trimmed to:":|
00002700  58 3d 33 3a 59 3d 31 30  3a 4c 25 3d 31 3a f2 54  |X=3:Y=10:L%=1:.T|
00002710  45 58 54 3a 54 52 49 4d  25 3d bb 28 54 24 29 3a  |EXT:TRIM%=.(T$):|
00002720  e7 54 52 49 4d 25 3e 38  8c e5 8d 54 4c 48 0d 08  |.TRIM%>8...TLH..|
00002730  16 3d 54 31 24 3d c0 53  50 4d 24 2c 32 29 3a 54  |.=T1$=.SPM$,2):T|
00002740  32 24 3d c1 53 50 4d 24  2c 34 2c a9 28 53 50 4d  |2$=.SPM$,4,.(SPM|
00002750  24 29 2d 33 29 3a 53 50  4d 24 3d 54 31 24 2b 54  |$)-3):SPM$=T1$+T|
00002760  24 2b 54 32 24 3a e5 8d  54 7e 43 0d 08 20 20 e7  |$+T2$:..T~C..  .|
00002770  54 59 24 3d 22 30 22 84  54 59 24 3d 22 35 22 8c  |TY$="0".TY$="5".|
00002780  e5 8d 54 6a 48 8b e5 8d  54 7e 43 0d 08 2a 1d db  |..TjH...T~C..*..|
00002790  3a 58 3d 32 3a 59 3d 32  3a 57 25 3d 36 30 3a 4c  |:X=2:Y=2:W%=60:L|
000027a0  25 3d 35 3a f2 4c 57 4e  0d 08 34 12 e7 54 59 24  |%=5:.LWN..4..TY$|
000027b0  3d 22 35 22 8c e5 8d 74  66 49 0d 08 3e 40 f1 8a  |="5"...tfI..>@..|
000027c0  33 2c 33 29 3b 22 50 6c  65 61 73 65 20 65 6e 74  |3,3);"Please ent|
000027d0  65 72 20 46 6f 72 6d 75  6c 61 20 66 6f 72 20 22  |er Formula for "|
000027e0  3b 46 4c 24 3b 22 3a 22  3b 8a 33 2c 35 29 3b 22  |;FL$;":";.3,5);"|
000027f0  23 22 3b 53 46 25 3b 22  3d 22 0d 08 48 24 58 3d  |#";SF%;"="..H$X=|
00002800  38 3a 59 3d 35 3a 4c 25  3d 35 30 3a f2 54 45 58  |8:Y=5:L%=50:.TEX|
00002810  54 3a e7 54 24 3d 22 22  8c e5 8d 54 7e 43 0d 08  |T:.T$=""...T~C..|
00002820  52 46 f1 8a 33 2c 37 29  3b 22 50 6c 65 61 73 65  |RF..3,7);"Please|
00002830  20 77 61 69 74 3a 20 63  68 65 63 6b 69 6e 67 20  | wait: checking |
00002840  46 6f 72 6d 75 6c 61 2e  20 20 20 20 20 20 20 20  |Formula.        |
00002850  22 3a 4d 46 25 3d 53 46  25 2d 31 3a f2 46 4f 52  |":MF%=SF%-1:.FOR|
00002860  54 52 41 4e 0d 08 5c 60  e7 45 52 25 3d 31 8c f1  |TRAN..\`.ER%=1..|
00002870  8a 33 2c 37 29 3b 22 46  4f 52 4d 55 4c 41 20 45  |.3,7);"FORMULA E|
00002880  52 52 4f 52 21 20 50 4c  45 41 53 45 20 52 45 2d  |RROR! PLEASE RE-|
00002890  45 4e 54 45 52 20 20 20  20 20 20 20 20 20 20 20  |ENTER           |
000028a0  22 3a d4 31 2c 2d 31 35  2c 31 37 30 2c 38 3a f1  |":.1,-15,170,8:.|
000028b0  8a 38 2c 35 29 3b c4 35  30 2c 22 20 22 29 3a e5  |.8,5);.50," "):.|
000028c0  8d 44 48 48 0d 08 66 2a  4d 41 43 24 28 56 41 25  |.DHH..f*MAC$(VA%|
000028d0  29 3d 54 24 3a f2 4d 41  4c 28 22 48 22 29 3a 56  |)=T$:.MAL("H"):V|
000028e0  41 25 3d 56 41 25 2b 31  3a e5 8d 54 7e 43 0d 08  |A%=VA%+1:..T~C..|
000028f0  70 13 dd f2 46 4f 52 54  52 41 4e 3a 45 52 25 3d  |p...FORTRAN:ER%=|
00002900  30 0d 08 7a 1f e3 46 3d  31 b8 35 3a e7 c0 54 24  |0..z..F=1.5:..T$|
00002910  2c 33 29 3d 46 55 24 28  46 29 8c e5 8d 54 64 49  |,3)=FU$(F)...TdI|
00002920  0d 08 84 06 ed 46 0d 08  8e 2a 46 54 52 24 3d 22  |.....F...*FTR$="|
00002930  22 3a e3 49 3d 31 b8 a9  28 54 24 29 3a e7 c1 54  |":.I=1..(T$):..T|
00002940  24 2c 49 2c 31 29 3d 22  23 22 8c e5 8d 74 62 48  |$,I,1)="#"...tbH|
00002950  0d 08 98 1c 46 54 52 24  3d 46 54 52 24 2b c1 54  |....FTR$=FTR$+.T|
00002960  24 2c 49 2c 31 29 3a e5  8d 64 68 48 0d 08 a2 12  |$,I,1):..dhH....|
00002970  e7 49 3d a9 28 54 24 29  8c e5 8d 54 50 49 0d 08  |.I=.(T$)...TPI..|
00002980  ac 10 4c 3d 49 2b 31 3a  46 54 24 3d 22 22 0d 08  |..L=I+1:FT$=""..|
00002990  b6 39 e7 97 28 c1 54 24  2c 4c 2c 31 29 29 3e 34  |.9..(.T$,L,1))>4|
000029a0  37 80 97 28 c1 54 24 2c  4c 2c 31 29 29 3c 35 38  |7..(.T$,L,1))<58|
000029b0  8c 46 54 24 3d 46 54 24  2b c1 54 24 2c 4c 2c 31  |.FT$=FT$+.T$,L,1|
000029c0  29 8b e5 8d 64 54 48 0d  08 c0 18 4c 3d 4c 2b 31  |)...dTH....L=L+1|
000029d0  3a e7 4c 3e a9 28 54 24  29 8c e5 8d 64 54 48 0d  |:.L>.(T$)...dTH.|
000029e0  08 ca 09 e5 8d 74 76 48  0d 08 d4 1e e7 bb 28 46  |.....tvH......(F|
000029f0  54 24 29 3d 30 84 bb 28  46 54 24 29 3e 4d 46 25  |T$)=0..(FT$)>MF%|
00002a00  8c e5 8d 54 50 49 0d 08  de 17 46 54 52 24 3d 46  |...TPI....FTR$=F|
00002a10  54 52 24 2b 22 31 22 3a  49 3d 4c 2d 31 0d 08 e8  |TR$+"1":I=L-1...|
00002a20  06 ed 49 0d 08 f2 0b ee  85 e5 8d 54 50 49 0d 08  |..I........TPI..|
00002a30  fc 0e 46 54 3d a0 28 46  54 52 24 29 0d 09 06 05  |..FT=.(FTR$)....|
00002a40  e1 0d 09 10 09 45 52 25  3d 31 0d 09 1a 09 e5 8d  |.....ER%=1......|
00002a50  44 5c 48 0d 09 24 20 e7  a9 28 54 24 29 3d 33 84  |D\H..$ ..(T$)=3.|
00002a60  c1 54 24 2c 34 2c 31 29  3c 3e 22 23 22 8c e5 8d  |.T$,4,1)<>"#"...|
00002a70  54 50 49 0d 09 2e 41 4d  24 3d c0 54 24 2c 33 29  |TPI...AM$=.T$,3)|
00002a80  3a 4c 3d 35 3a f2 46 47  45 54 3a f2 43 4f 4e 56  |:L=5:.FGET:.CONV|
00002a90  28 bb 28 46 54 24 29 2c  33 29 3a 46 54 52 24 3d  |(.(FT$),3):FTR$=|
00002aa0  4d 24 2b 53 54 4e 24 3a  e7 4c 45 25 3d 31 8c e5  |M$+STN$:.LE%=1..|
00002ab0  8d 54 50 49 0d 09 38 12  e7 4c 3d a9 28 54 24 29  |.TPI..8..L=.(T$)|
00002ac0  8c e5 8d 54 50 49 0d 09  42 54 4c 3d 4c 2b 31 3a  |...TPI..BTL=L+1:|
00002ad0  f2 46 47 45 54 3a f2 43  4f 4e 56 28 bb 28 46 54  |.FGET:.CONV(.(FT|
00002ae0  24 29 2c 33 29 3a 46 54  52 24 3d 46 54 52 24 2b  |$),3):FTR$=FTR$+|
00002af0  53 54 4e 24 3a 54 24 3d  46 54 52 24 3a 54 31 3d  |STN$:T$=FTR$:T1=|
00002b00  bb 28 c1 54 24 2c 34 2c  33 29 29 3a 54 32 3d bb  |.(.T$,4,3)):T2=.|
00002b10  28 c1 54 24 2c 37 2c 33  29 29 0d 09 4c 12 e7 54  |(.T$,7,3))..L..T|
00002b20  32 3c 3d 54 31 20 8c e5  8d 54 50 49 0d 09 56 09  |2<=T1 ...TPI..V.|
00002b30  e5 8d 54 46 49 0d 09 60  17 dd f2 46 47 45 54 3a  |..TFI..`...FGET:|
00002b40  46 54 24 3d 22 22 3a 4c  45 25 3d 30 0d 09 6a 33  |FT$="":LE%=0..j3|
00002b50  e7 97 28 c1 54 24 2c 4c  2c 31 29 29 3e 34 37 80  |..(.T$,L,1))>47.|
00002b60  97 28 c1 54 24 2c 4c 2c  31 29 29 3c 35 38 8c 46  |.(.T$,L,1))<58.F|
00002b70  54 24 3d 46 54 24 2b c1  54 24 2c 4c 2c 31 29 0d  |T$=FT$+.T$,L,1).|
00002b80  09 74 18 e7 4c 3d a9 28  54 24 29 8c 4c 45 25 3d  |.t..L=.(T$).LE%=|
00002b90  31 3a e5 8d 74 52 49 0d  09 7e 17 e7 c1 54 24 2c  |1:..tRI..~...T$,|
00002ba0  4c 2c 31 29 3d 22 23 22  8c e5 8d 74 52 49 0d 09  |L,1)="#"...tRI..|
00002bb0  88 0f 4c 3d 4c 2b 31 3a  e5 8d 44 6a 49 0d 09 92  |..L=L+1:..DjI...|
00002bc0  1e e7 bb 28 46 54 24 29  3d 30 84 bb 28 46 54 24  |...(FT$)=0..(FT$|
00002bd0  29 3e 4d 46 25 8c e5 8d  54 50 49 0d 09 9c 05 e1  |)>MF%...TPI.....|
00002be0  0d 09 a6 66 f1 8a 33 2c  33 29 3b 22 50 6c 65 61  |...f..3,3);"Plea|
00002bf0  73 65 20 65 6e 74 65 72  20 44 61 74 65 20 46 6f  |se enter Date Fo|
00002c00  72 6d 75 6c 61 20 66 6f  72 20 22 3b 46 4c 24 3b  |rmula for ";FL$;|
00002c10  22 3a 22 3b 8a 33 2c 35  29 3b 22 23 22 3b 53 46  |":";.3,5);"#";SF|
00002c20  25 3b 22 3d 22 3a 58 3d  38 3a 59 3d 35 3a 4c 25  |%;"=":X=8:Y=5:L%|
00002c30  3d 35 30 3a f2 54 45 58  54 3a e7 54 24 3d 22 22  |=50:.TEXT:.T$=""|
00002c40  8c e5 8d 54 7e 43 0d 09  b0 33 f1 8a 33 2c 37 29  |...T~C...3..3,7)|
00002c50  3b 22 50 6c 65 61 73 65  20 77 61 69 74 3a 20 63  |;"Please wait: c|
00002c60  68 65 63 6b 69 6e 67 20  46 6f 72 6d 75 6c 61 2e  |hecking Formula.|
00002c70  20 20 20 20 20 20 20 20  22 0d 09 ba 22 e7 54 24  |        "...".T$|
00002c80  3d 22 54 4f 44 41 59 22  8c 4d 41 43 24 28 56 41  |="TODAY".MAC$(VA|
00002c90  25 29 3d 54 24 3a e5 8d  44 50 4a 0d 09 c4 2a e7  |%)=T$:..DPJ...*.|
00002ca0  c0 54 24 2c 36 29 3d 22  54 4f 44 41 59 2b 22 84  |.T$,6)="TODAY+".|
00002cb0  c0 54 24 2c 36 29 3d 22  54 4f 44 41 59 2d 22 8c  |.T$,6)="TODAY-".|
00002cc0  e5 8d 64 62 49 0d 09 ce  15 e7 c0 54 24 2c 31 29  |..dbI......T$,1)|
00002cd0  3d 22 23 22 8c e5 8d 54  40 4a 0d 09 d8 59 f1 8a  |="#"...T@J...Y..|
00002ce0  33 2c 37 29 3b 22 46 4f  52 4d 55 4c 41 20 45 52  |3,7);"FORMULA ER|
00002cf0  52 4f 52 21 20 50 4c 45  41 53 45 20 52 45 2d 45  |ROR! PLEASE RE-E|
00002d00  4e 54 45 52 20 20 20 20  20 20 20 20 20 20 20 22  |NTER           "|
00002d10  3a d4 31 2c 2d 31 35 2c  31 37 30 2c 38 3a f1 8a  |:.1,-15,170,8:..|
00002d20  38 2c 35 29 3b c4 35 30  2c 22 20 22 29 3a e5 8d  |8,5);.50," "):..|
00002d30  74 66 49 0d 09 e2 12 e7  a9 28 54 24 29 3d 36 8c  |tfI......(T$)=6.|
00002d40  e5 8d 64 58 49 0d 09 ec  18 46 54 24 3d c1 54 24  |..dXI....FT$=.T$|
00002d50  2c 37 2c 28 a9 28 54 24  29 2d 36 29 29 0d 09 f6  |,7,(.(T$)-6))...|
00002d60  24 4d 41 43 24 28 56 41  25 29 3d 22 54 22 2b c1  |$MAC$(VA%)="T"+.|
00002d70  54 24 2c 36 2c 31 29 2b  46 54 24 3a e5 8d 44 50  |T$,6,1)+FT$:..DP|
00002d80  4a 0d 0a 00 1c 4c 3d 32  3a 46 54 24 3d 22 22 3a  |J....L=2:FT$="":|
00002d90  e7 54 24 3d 22 23 22 8c  e5 8d 64 58 49 0d 0a 0a  |.T$="#"...dXI...|
00002da0  28 e7 97 28 c1 54 24 2c  4c 2c 31 29 29 3c 34 38  |(..(.T$,L,1))<48|
00002db0  84 97 28 c1 54 24 2c 4c  2c 31 29 29 3e 35 37 8c  |..(.T$,L,1))>57.|
00002dc0  e5 8d 54 68 4a 0d 0a 14  1a 46 54 24 3d 46 54 24  |..ThJ....FT$=FT$|
00002dd0  2b c1 54 24 2c 4c 2c 31  29 3a 4c 3d 4c 2b 31 0d  |+.T$,L,1):L=L+1.|
00002de0  0a 1e 18 e7 4c 3e a9 28  54 24 29 8c e5 8d 64 58  |....L>.(T$)...dX|
00002df0  49 8b e5 8d 54 4a 4a 0d  0a 28 2a e7 c1 54 24 2c  |I...TJJ..(*..T$,|
00002e00  4c 2c 31 29 3d 22 2b 22  84 c1 54 24 2c 4c 2c 31  |L,1)="+"..T$,L,1|
00002e10  29 3d 22 2d 22 8c e5 8d  54 72 4a 8b e5 8d 64 58  |)="-"...TrJ...dX|
00002e20  49 0d 0a 32 12 e7 4c 3d  a9 28 54 24 29 8c e5 8d  |I..2..L=.(T$)...|
00002e30  64 58 49 0d 0a 3c 34 f2  43 4f 4e 56 28 bb 28 46  |dXI..<4.CONV(.(F|
00002e40  54 24 29 2c 33 29 3a e7  bb 28 53 54 4e 24 29 3e  |T$),3):..(STN$)>|
00002e50  28 53 46 25 2d 31 29 84  bb 28 53 54 4e 24 29 3d  |(SF%-1)..(STN$)=|
00002e60  30 8c e5 8d 64 58 49 0d  0a 46 3b 4d 41 43 24 28  |0...dXI..F;MAC$(|
00002e70  56 41 25 29 3d 22 23 22  2b 53 54 4e 24 2b c1 54  |VA%)="#"+STN$+.T|
00002e80  24 2c 4c 2c 31 29 2b c1  54 24 2c 28 4c 2b 31 29  |$,L,1)+.T$,(L+1)|
00002e90  2c a9 28 54 24 29 2d 28  a9 28 46 54 24 29 2b 32  |,.(T$)-(.(FT$)+2|
00002ea0  29 29 0d 0a 50 1d f2 4d  41 4c 28 22 48 22 29 3a  |))..P..MAL("H"):|
00002eb0  56 41 25 3d 56 41 25 2b  31 3a e5 8d 54 7e 43 0d  |VA%=VA%+1:..T~C.|
00002ec0  0a 5a 11 e7 4d 41 49 25  3d 30 8c e5 8d 44 58 42  |.Z..MAI%=0...DXB|
00002ed0  0d 0a 64 7e db 3a f1 8a  32 2c 32 29 3b 22 45 72  |..d~.:..2,2);"Er|
00002ee0  61 73 65 20 4d 61 63 72  6f 22 3b 8a 32 2c 33 29  |ase Macro";.2,3)|
00002ef0  3b c4 31 31 2c bd 28 32  34 31 29 29 3b 8a 32 2c  |;.11,.(241));.2,|
00002f00  35 29 3b 22 53 65 6c 65  63 74 20 61 20 66 69 65  |5);"Select a fie|
00002f10  6c 64 20 75 70 6f 6e 20  77 68 69 63 68 20 74 68  |ld upon which th|
00002f20  65 20 4d 61 63 72 6f 22  3b 8a 32 2c 36 29 3b 22  |e Macro";.2,6);"|
00002f30  79 6f 75 20 77 69 73 68  20 74 6f 20 65 72 61 73  |you wish to eras|
00002f40  65 20 77 6f 72 6b 73 3a  22 3a f2 53 45 4c 0d 0a  |e works:":.SEL..|
00002f50  6e 83 58 3d 32 3a 59 3d  38 3a 57 25 3d 32 34 3a  |n.X=2:Y=8:W%=24:|
00002f60  4c 25 3d 34 3a f2 4c 57  4e 3a f1 8a 33 2c 39 29  |L%=4:.LWN:..3,9)|
00002f70  3b 22 20 20 53 65 6c 65  63 74 20 45 78 65 63 75  |;"  Select Execu|
00002f80  74 65 20 50 6f 69 6e 74  3a 22 3a 4d 45 24 28 31  |te Point:":ME$(1|
00002f90  29 3d 22 4f 6e 20 45 6e  74 72 79 22 3a 4d 45 24  |)="On Entry":ME$|
00002fa0  28 32 29 3d 22 4f 6e 20  45 78 69 74 22 3a 4d 45  |(2)="On Exit":ME|
00002fb0  24 28 33 29 3d 22 51 75  69 74 22 3a 58 3d 33 3a  |$(3)="Quit":X=3:|
00002fc0  59 3d 31 30 3a 4c 25 3d  33 3a f2 53 45 4c 45 43  |Y=10:L%=3:.SELEC|
00002fd0  54 0d 0a 78 1c 49 24 3d  c3 28 53 45 4c 25 29 3a  |T..x.I$=.(SEL%):|
00002fe0  e7 49 24 3d 22 33 22 8c  e5 8d 44 58 42 0d 0a 82  |.I$="3"...DXB...|
00002ff0  33 43 46 25 3d 53 46 25  3a f2 46 4f 50 4f 55 54  |3CF%=SF%:.FOPOUT|
00003000  3a e7 49 24 3d 22 31 22  8c 54 49 24 3d c0 54 52  |:.I$="1".TI$=.TR|
00003010  24 2c 31 29 8b 54 49 24  3d c2 54 52 24 2c 31 29  |$,1).TI$=.TR$,1)|
00003020  0d 0a 8c 1a e7 54 49 24  3d 22 30 22 84 54 49 24  |.....TI$="0".TI$|
00003030  3d 22 33 22 8c e5 8d 44  58 42 0d 0a 96 39 f2 43  |="3"...DXB...9.C|
00003040  4f 4e 56 28 53 46 25 2c  33 29 3a 53 45 24 3d 53  |ONV(SF%,3):SE$=S|
00003050  54 4e 24 3a e7 49 24 3d  22 31 22 8c 53 45 24 3d  |TN$:.I$="1".SE$=|
00003060  53 45 24 2b 22 49 22 8b  53 45 24 3d 53 45 24 2b  |SE$+"I".SE$=SE$+|
00003070  22 4f 22 0d 0a a0 07 4c  3d 31 0d 0a aa 1a e7 c0  |"O"....L=1......|
00003080  4d 41 4c 24 28 4c 29 2c  34 29 3d 53 45 24 8c e5  |MAL$(L),4)=SE$..|
00003090  8d 64 48 4a 0d 0a b4 16  4c 3d 4c 2b 31 3a e7 4c  |.dHJ....L=L+1:.L|
000030a0  3d 56 41 25 8c e5 8d 44  58 42 0d 0a be 09 e5 8d  |=VA%...DXB......|
000030b0  74 6a 4a 0d 0a c8 4a e7  4c 3d 31 80 56 41 25 3d  |tjJ...J.L=1.VA%=|
000030c0  32 8c 56 41 25 3d 31 3a  cf 23 41 3d 32 38 3a f1  |2.VA%=1:.#A=28:.|
000030d0  23 41 2c 22 30 22 3a e3  4a 3d 30 b8 34 30 3a 4d  |#A,"0":.J=0.40:M|
000030e0  41 43 24 28 4a 29 3d 22  22 3a 4d 41 4c 24 28 4a  |AC$(J)="":MAL$(J|
000030f0  29 3d 22 22 3a ed 4a 3a  e5 8d 54 62 4b 0d 0a d2  |)="":.J:..TbK...|
00003100  11 d4 20 31 2c 2d 31 35  2c 32 30 30 2c 35 0d 0a  |.. 1,-15,200,5..|
00003110  dc 36 e7 4c 3d 56 41 25  2d 31 8c 56 41 25 3d 56  |.6.L=VA%-1.VA%=V|
00003120  41 25 2d 31 3a 4d 41 43  24 28 56 41 25 29 3d 22  |A%-1:MAC$(VA%)="|
00003130  22 3a 4d 41 4c 24 28 56  41 25 29 3d 22 22 3a e5  |":MAL$(VA%)="":.|
00003140  8d 64 70 4a 0d 0a e6 5c  e3 4a 3d 4c 20 b8 28 56  |.dpJ...\.J=L .(V|
00003150  41 25 2d 32 29 3a 4d 41  43 24 28 4a 29 3d 4d 41  |A%-2):MAC$(J)=MA|
00003160  43 24 28 4a 2b 31 29 3a  4d 41 4c 24 28 4a 29 3d  |C$(J+1):MAL$(J)=|
00003170  4d 41 4c 24 28 4a 2b 31  29 3a ed 4a 3a 56 41 25  |MAL$(J+1):.J:VA%|
00003180  3d 56 41 25 2d 31 3a 4d  41 43 24 28 56 41 25 29  |=VA%-1:MAC$(VA%)|
00003190  3d 22 22 3a 4d 41 4c 24  28 56 41 25 29 3d 22 22  |="":MAL$(VA%)=""|
000031a0  0d 0a f0 14 e7 54 49 24  3d 22 31 22 8c 54 49 24  |.....TI$="1".TI$|
000031b0  3d 22 30 22 0d 0a fa 14  e7 54 49 24 3d 22 32 22  |="0".....TI$="2"|
000031c0  8c 54 49 24 3d 22 33 22  0d 0b 04 1b e7 49 24 3d  |.TI$="3".....I$=|
000031d0  22 31 22 8c 54 52 24 3d  54 49 24 2b c2 54 52 24  |"1".TR$=TI$+.TR$|
000031e0  2c 31 29 0d 0b 0e 1b e7  49 24 3d 22 32 22 8c 54  |,1).....I$="2".T|
000031f0  52 24 3d c0 54 52 24 2c  31 29 2b 54 49 24 0d 0b  |R$=.TR$,1)+TI$..|
00003200  18 31 cf 23 41 3d 28 53  46 25 2d 31 29 2a 36 31  |.1.#A=(SF%-1)*61|
00003210  2b 31 31 37 3a f1 23 41  2c 54 52 24 3a d4 31 2c  |+117:.#A,TR$:.1,|
00003220  2d 31 35 2c 31 30 30 2c  31 3a e5 8d 44 58 42 0d  |-15,100,1:..DXB.|
00003230  0b 22 3e e3 49 3d 31 b8  4e 4f 46 25 3a cf 23 41  |.">.I=1.NOF%:.#A|
00003240  3d 28 49 2d 31 29 2a 36  31 2b 31 31 37 3a e8 23  |=(I-1)*61+117:.#|
00003250  41 2c 54 52 24 3a 54 31  24 3d c0 54 52 24 2c 31  |A,TR$:T1$=.TR$,1|
00003260  29 3a 54 32 24 3d c2 54  52 24 2c 31 29 0d 0b 2c  |):T2$=.TR$,1)..,|
00003270  14 e7 54 31 24 3d 22 31  22 8c 54 31 24 3d 22 30  |..T1$="1".T1$="0|
00003280  22 0d 0b 36 14 e7 54 31  24 3d 22 32 22 8c 54 31  |"..6..T1$="2".T1|
00003290  24 3d 22 33 22 0d 0b 40  14 e7 54 32 24 3d 22 31  |$="3"..@..T2$="1|
000032a0  22 8c 54 32 24 3d 22 30  22 0d 0b 4a 14 e7 54 32  |".T2$="0"..J..T2|
000032b0  24 3d 22 32 22 8c 54 32  24 3d 22 33 22 0d 0b 54  |$="2".T2$="3"..T|
000032c0  a0 54 52 24 3d 54 31 24  2b 54 32 24 3a cf 23 41  |.TR$=T1$+T2$:.#A|
000032d0  3d 28 49 2d 31 29 2a 36  31 2b 31 31 37 3a f1 23  |=(I-1)*61+117:.#|
000032e0  41 2c 54 52 24 3a ed 49  3a 53 50 4d 24 3d 22 30  |A,TR$:.I:SPM$="0|
000032f0  20 30 20 20 30 30 30 30  30 30 22 3a 4d 41 49 25  | 0  000000":MAI%|
00003300  3d 30 3a ff 22 43 4c 4f  53 45 22 3a ff 22 52 45  |=0:."CLOSE":."RE|
00003310  4d 4f 56 45 20 3c 44 61  74 61 56 69 73 69 6f 6e  |MOVE <DataVision|
00003320  24 44 69 72 3e 2e 22 2b  46 49 24 2b 22 45 22 3a  |$Dir>."+FI$+"E":|
00003330  db 3a f1 8a 32 2c 32 29  3b 22 41 6c 6c 20 4d 61  |.:..2,2);"All Ma|
00003340  63 72 6f 73 20 68 61 76  65 20 62 65 65 6e 20 45  |cros have been E|
00003350  72 61 73 65 64 2e 22 3a  e5 8d 44 58 42 0d 0b 5e  |rased.":..DXB..^|
00003360  11 e7 4d 41 49 25 3d 30  8c e5 8d 44 58 42 0d 0b  |..MAI%=0...DXB..|
00003370  68 80 db 3a f1 8a 32 2c  32 29 3b 22 4d 6f 64 69  |h..:..2,2);"Modi|
00003380  66 79 20 4d 61 63 72 6f  22 3b 8a 32 2c 33 29 3b  |fy Macro";.2,3);|
00003390  c4 31 32 2c bd 28 32 34  31 29 29 3b 8a 32 2c 35  |.12,.(241));.2,5|
000033a0  29 3b 22 53 65 6c 65 63  74 20 61 20 66 69 65 6c  |);"Select a fiel|
000033b0  64 20 75 70 6f 6e 20 77  68 69 63 68 20 74 68 65  |d upon which the|
000033c0  20 4d 61 63 72 6f 22 3b  8a 32 2c 36 29 3b 22 79  | Macro";.2,6);"y|
000033d0  6f 75 20 77 69 73 68 20  74 6f 20 4d 6f 64 69 66  |ou wish to Modif|
000033e0  79 20 77 6f 72 6b 73 3a  22 3a f2 53 45 4c 0d 0b  |y works:":.SEL..|
000033f0  72 9c 58 3d 32 3a 59 3d  38 3a 57 25 3d 32 34 3a  |r.X=2:Y=8:W%=24:|
00003400  4c 25 3d 34 3a f2 4c 57  4e 3a f1 8a 33 2c 39 29  |L%=4:.LWN:..3,9)|
00003410  3b 22 20 20 53 65 6c 65  63 74 20 45 78 65 63 75  |;"  Select Execu|
00003420  74 65 20 50 6f 69 6e 74  3a 22 3a 4d 45 24 28 31  |te Point:":ME$(1|
00003430  29 3d 22 4f 6e 20 45 6e  74 72 79 22 3a 4d 45 24  |)="On Entry":ME$|
00003440  28 32 29 3d 22 4f 6e 20  45 78 69 74 22 3a 4d 45  |(2)="On Exit":ME|
00003450  24 28 33 29 3d 22 51 75  69 74 22 3a 58 3d 33 3a  |$(3)="Quit":X=3:|
00003460  59 3d 31 30 3a 4c 25 3d  33 3a f2 53 45 4c 45 43  |Y=10:L%=3:.SELEC|
00003470  54 3a 49 24 3d c3 28 53  45 4c 25 29 3a e7 49 24  |T:I$=.(SEL%):.I$|
00003480  3d 22 33 22 8c e5 8d 44  58 42 0d 0b 7c 33 43 46  |="3"...DXB..|3CF|
00003490  25 3d 53 46 25 3a f2 46  4f 50 4f 55 54 3a e7 49  |%=SF%:.FOPOUT:.I|
000034a0  24 3d 22 31 22 8c 54 49  24 3d c0 54 52 24 2c 31  |$="1".TI$=.TR$,1|
000034b0  29 8b 54 49 24 3d c2 54  52 24 2c 31 29 0d 0b 86  |).TI$=.TR$,1)...|
000034c0  1a e7 54 49 24 3d 22 30  22 84 54 49 24 3d 22 33  |..TI$="0".TI$="3|
000034d0  22 8c e5 8d 44 58 42 0d  0b 90 39 f2 43 4f 4e 56  |"...DXB...9.CONV|
000034e0  28 53 46 25 2c 33 29 3a  53 45 24 3d 53 54 4e 24  |(SF%,3):SE$=STN$|
000034f0  3a e7 49 24 3d 22 31 22  8c 53 45 24 3d 53 45 24  |:.I$="1".SE$=SE$|
00003500  2b 22 49 22 8b 53 45 24  3d 53 45 24 2b 22 4f 22  |+"I".SE$=SE$+"O"|
00003510  0d 0b 9a 0f 4c 3d 31 3a  41 43 54 24 3d 49 24 0d  |....L=1:ACT$=I$.|
00003520  0b a4 1a e7 c0 4d 41 4c  24 28 4c 29 2c 34 29 3d  |.....MAL$(L),4)=|
00003530  53 45 24 8c e5 8d 64 42  4b 0d 0b ae 16 4c 3d 4c  |SE$...dBK....L=L|
00003540  2b 31 3a e7 4c 3d 56 41  25 8c e5 8d 44 58 42 0d  |+1:.L=VA%...DXB.|
00003550  0b b8 09 e5 8d 74 64 4b  0d 0b c2 49 53 50 25 3d  |.....tdK...ISP%=|
00003560  56 41 25 3a 41 53 3d 97  28 c2 4d 41 4c 24 28 4c  |VA%:AS=.(.MAL$(L|
00003570  29 2c 31 29 29 2d 36 34  3a 4d 41 43 24 28 4c 29  |),1))-64:MAC$(L)|
00003580  3d 22 22 3a 4d 41 4c 24  28 4c 29 3d 22 22 3a 56  |="":MAL$(L)="":V|
00003590  41 25 3d 4c 3a 4d 46 59  25 3d 31 3a e5 8d 54 74  |A%=L:MFY%=1:..Tt|
000035a0  43 0d 0b cc 11 e7 4d 41  49 25 3d 30 8c e5 8d 44  |C.....MAI%=0...D|
000035b0  58 42 0d 0b d6 75 db 3a  f1 8a 32 2c 32 29 3b 22  |XB...u.:..2,2);"|
000035c0  45 72 61 73 65 20 41 6c  6c 20 4d 61 63 72 6f 73  |Erase All Macros|
000035d0  22 3b 8a 32 2c 33 29 3b  c4 31 36 2c bd 28 32 34  |";.2,3);.16,.(24|
000035e0  31 29 29 3b 8a 32 2c 35  29 3b 22 41 72 65 20 79  |1));.2,5);"Are y|
000035f0  6f 75 20 73 75 72 65 20  79 6f 75 20 77 61 6e 74  |ou sure you want|
00003600  20 74 6f 20 65 72 61 73  65 20 61 6c 6c 20 6d 61  | to erase all ma|
00003610  63 72 6f 73 3f 22 3b 3a  f2 59 4e 3a e7 59 4e 3d  |cros?";:.YN:.YN=|
00003620  30 8c e5 8d 44 58 42 0d  0b e0 2c 4c 3d 31 3a 56  |0...DXB...,L=1:V|
00003630  41 25 3d 32 3a ff 22 43  4c 4f 53 45 22 3a 41 3d  |A%=2:."CLOSE":A=|
00003640  ad a4 4d 79 46 69 6c 65  28 46 4f 24 29 3a e5 8d  |..MyFile(FO$):..|
00003650  64 48 4a 0d 0b ea 09 e5  8d 74 47 45 0d 0b f4 13  |dHJ......tGE....|
00003660  db 3a e7 4d 41 49 25 3d  30 8c e5 8d 74 40 4c 0d  |.:.MAI%=0...t@L.|
00003670  0b fe 3a f2 43 4f 4e 56  28 28 56 41 25 2d 31 29  |..:.CONV((VA%-1)|
00003680  2c 32 29 3a 54 31 24 3d  c2 53 50 4d 24 2c a9 28  |,2):T1$=.SPM$,.(|
00003690  53 50 4d 24 29 2d 32 29  3a 4d 41 43 24 28 30 29  |SPM$)-2):MAC$(0)|
000036a0  3d 53 54 4e 24 2b 54 31  24 0d 0c 08 50 ff 22 43  |=STN$+T1$...P."C|
000036b0  4c 4f 53 45 22 3a 54 41  24 3d 46 49 24 2b 22 45  |LOSE":TA$=FI$+"E|
000036c0  22 3a 58 3d ae a4 4d 79  46 69 6c 65 28 54 41 24  |":X=..MyFile(TA$|
000036d0  29 3a e3 49 3d 30 b8 28  56 41 25 2d 31 29 3a f1  |):.I=0.(VA%-1):.|
000036e0  23 58 2c 4d 41 43 24 28  49 29 3a f1 23 58 2c 4d  |#X,MAC$(I):.#X,M|
000036f0  41 4c 24 28 49 29 3a ed  49 0d 0c 12 34 ff 22 43  |AL$(I):.I...4."C|
00003700  4c 4f 53 45 22 3a 58 3d  ad a4 4d 79 46 69 6c 65  |LOSE":X=..MyFile|
00003710  28 46 4f 24 29 3a cf 23  58 3d 32 38 3a f1 23 58  |(FO$):.#X=28:.#X|
00003720  2c 22 31 22 3a ff 22 43  4c 4f 53 45 22 0d 0c 1c  |,"1":."CLOSE"...|
00003730  09 e5 8d 74 40 4c 0d 0c  26 2e dd f2 53 45 4c 45  |...t@L..&...SELE|
00003740  43 54 3a 45 44 25 3d 59  2b 28 4c 25 2d 31 29 3a  |CT:ED%=Y+(L%-1):|
00003750  42 47 25 3d 58 2b 28 57  25 2d 31 29 3a 53 53 45  |BG%=X+(W%-1):SSE|
00003760  4c 25 3d 31 0d 0c 30 3e  e3 49 3d 31 b8 4c 25 3a  |L%=1..0>.I=1.L%:|
00003770  f1 8a 58 2c 59 2b 28 49  2d 31 29 29 3b 22 20 20  |..X,Y+(I-1));"  |
00003780  22 3b 4d 45 24 28 49 29  3b c4 28 57 25 2d 32 29  |";ME$(I);.(W%-2)|
00003790  2d a9 28 4d 45 24 28 49  29 29 2c 22 20 22 29 3a  |-.(ME$(I))," "):|
000037a0  ed 49 0d 0c 3a 2b c8 97  20 58 50 2c 59 50 2c 42  |.I..:+.. XP,YP,B|
000037b0  55 54 3a 58 50 3d a8 28  58 50 2f 31 36 29 3a 59  |UT:XP=.(XP/16):Y|
000037c0  50 3d 33 31 2d a8 28 59  50 2f 33 32 29 0d 0c 44  |P=31-.(YP/32)..D|
000037d0  18 e7 59 50 3c 59 20 84  20 59 50 3e 45 44 25 8c  |..YP<Y . YP>ED%.|
000037e0  e5 8d 54 70 4c 0d 0c 4e  18 e7 58 50 3c 58 20 84  |..TpL..N..XP<X .|
000037f0  20 58 50 3e 42 47 25 8c  e5 8d 54 70 4c 0d 0c 58  | XP>BG%...TpL..X|
00003800  72 53 45 4c 25 3d 28 59  50 2d 59 29 2b 31 3a f2  |rSEL%=(YP-Y)+1:.|
00003810  43 4c 45 41 3a fb 20 31  33 31 3a fb 31 32 37 3a  |CLEA:. 131:.127:|
00003820  f1 8a 58 2c 59 50 29 3b  22 20 20 22 3b 4d 45 24  |..X,YP);"  ";ME$|
00003830  28 53 45 4c 25 29 3b c4  28 57 25 2d 32 29 2d a9  |(SEL%);.(W%-2)-.|
00003840  28 4d 45 24 28 53 45 4c  25 29 29 2c 22 20 22 29  |(ME$(SEL%))," ")|
00003850  3a fb 20 46 47 25 3a fb  31 32 37 3a e7 42 55 54  |:. FG%:.127:.BUT|
00003860  3d 34 8c e5 8d 44 62 4c  3a 8b e5 8d 54 7a 4c 0d  |=4...DbL:...TzL.|
00003870  0c 62 08 ef 37 3a e1 0d  0c 6c 52 dd f2 43 4c 45  |.b..7:...lR..CLE|
00003880  41 3a e7 53 53 45 4c 25  3c 3e 53 45 4c 25 8c e3  |A:.SSEL%<>SEL%..|
00003890  49 3d 31 b8 4c 25 3a f1  8a 58 2c 59 2b 28 49 2d  |I=1.L%:..X,Y+(I-|
000038a0  31 29 29 3b 22 20 20 22  3b 4d 45 24 28 49 29 3b  |1));"  ";ME$(I);|
000038b0  c4 28 57 25 2d 32 29 2d  a9 28 4d 45 24 28 49 29  |.(W%-2)-.(ME$(I)|
000038c0  29 2c 22 20 22 29 3a ed  49 0d 0c 76 10 53 53 45  |)," "):.I..v.SSE|
000038d0  4c 25 3d 53 45 4c 25 3a  e1 0d 0c 80 05 20 0d 0c  |L%=SEL%:..... ..|
000038e0  8a 05 20 0d 0c 94 05 20  0d 0c 9e 05 20 0d 0c a8  |.. .... .... ...|
000038f0  09 20 d9 20 23 30 0d 0c  b2 0a 20 f2 51 75 69 74  |. . #0.... .Quit|
00003900  0d 0c bc 1b e7 9f 3d 31  37 8c ef 33 3a d9 20 23  |......=17..3:. #|
00003910  30 3a ef 32 36 3a f2 51  75 69 74 0d 0c c6 10 e7  |0:.26:.Quit.....|
00003920  67 6f 25 3d 30 8c e5 8d  64 6e 4c 0d 0c d0 0b 46  |go%=0...dnL....F|
00003930  47 25 3d 31 38 30 0d 0c  da 52 f2 45 52 57 49 4e  |G%=180...R.ERWIN|
00003940  3a fb 31 38 30 3a f1 8a  32 30 2c 31 32 29 3b 22  |:.180:..20,12);"|
00003950  53 79 73 74 65 6d 20 52  65 70 6f 72 74 65 64 20  |System Reported |
00003960  45 72 72 6f 72 20 23 22  3b 9f 3b 22 3a 22 3b 8a  |Error #";.;":";.|
00003970  32 30 2c 31 34 29 3b f6  24 3a ef 37 3a fb 46 47  |20,14);.$:.7:.FG|
00003980  25 3a f2 4d 4b 4c 49 4b  0d 0c e4 19 ff 22 43 4c  |%:.MKLIK....."CL|
00003990  4f 53 45 22 3a ef 33 3a  ef 32 36 3a e5 8d 44 58  |OSE":.3:.26:..DX|
000039a0  42 0d 0c ee 7b f2 45 52  57 49 4e 3a fb 31 38 30  |B...{.ERWIN:.180|
000039b0  3a f1 8a 32 30 2c 31 32  29 3b 22 43 61 6e 6e 6f  |:..20,12);"Canno|
000039c0  74 20 72 65 61 64 20 74  68 65 20 66 69 6c 65 20  |t read the file |
000039d0  3a 22 3b 46 49 24 3b 8a  32 30 2c 31 34 29 3b 22  |:";FI$;.20,14);"|
000039e0  28 64 6f 65 73 20 6e 6f  74 20 65 78 69 73 74 2f  |(does not exist/|
000039f0  6e 6f 74 20 61 20 44 61  74 61 56 69 73 69 6f 6e  |not a DataVision|
00003a00  20 66 69 6c 65 29 22 3a  fb 46 47 25 3a ef 37 3a  | file)":.FG%:.7:|
00003a10  f2 4d 4b 4c 49 4b 3a e5  8d 74 40 4c 0d 0c f8 09  |.MKLIK:..t@L....|
00003a20  dd f2 53 45 4c 0d 0d 02  6f fb 31 32 38 3a 46 47  |..SEL...o.128:FG|
00003a30  25 3d 31 32 38 3a 58 3d  35 30 3a 59 3d 32 3a 57  |%=128:X=50:Y=2:W|
00003a40  25 3d 32 31 3a 4c 25 3d  32 33 3a f2 4c 57 4e 3a  |%=21:L%=23:.LWN:|
00003a50  fb 46 47 25 3a f1 8a 35  31 2c 33 29 3b 22 53 65  |.FG%:..51,3);"Se|
00003a60  6c 65 63 74 20 61 20 46  69 65 6c 64 3a 20 22 3b  |lect a Field: ";|
00003a70  bd 28 31 33 38 29 3b 22  20 22 3b bd 28 31 33 39  |.(138);" ";.(139|
00003a80  29 3b 8a 35 31 2c 34 29  3b c4 32 31 2c bd 28 32  |);.51,4);.21,.(2|
00003a90  34 31 29 29 0d 0d 0c 36  53 53 46 25 3d 31 3a 53  |41))...6SSF%=1:S|
00003aa0  46 25 3d 31 3a 59 32 3d  36 3a 53 52 25 3d 53 46  |F%=1:Y2=6:SR%=SF|
00003ab0  25 3a ff 22 43 4c 4f 53  45 22 3a 41 3d ad a4 4d  |%:."CLOSE":A=..M|
00003ac0  79 46 69 6c 65 28 46 4f  24 29 0d 0d 16 21 46 52  |yFile(FO$)...!FR|
00003ad0  25 3d 53 52 25 2b 31 39  3a e7 46 52 25 3e 4e 4f  |%=SR%+19:.FR%>NO|
00003ae0  46 25 8c 46 52 25 3d 4e  4f 46 25 0d 0d 20 7b 4c  |F%.FR%=NOF%.. {L|
00003af0  3d 36 3a 4c 4c 3d 31 3a  e3 49 3d 53 52 25 b8 46  |=6:LL=1:.I=SR%.F|
00003b00  52 25 3a cf 23 41 3d 28  49 2d 31 29 2a 36 31 2b  |R%:.#A=(I-1)*61+|
00003b10  36 33 3a e8 23 41 2c 46  4c 24 3a f1 8a 35 32 2c  |63:.#A,FL$:..52,|
00003b20  4c 29 3b 46 4c 24 3a 4d  45 24 28 4c 4c 29 3d 46  |L);FL$:ME$(LL)=F|
00003b30  4c 24 3a 4c 3d 4c 2b 31  3a 4c 4c 3d 4c 4c 2b 31  |L$:L=L+1:LL=LL+1|
00003b40  3a ed 49 3a e7 20 4c 4c  3c 32 31 20 8c 20 e3 20  |:.I:. LL<21 . . |
00003b50  49 3d 4c 4c 20 b8 32 30  3a 4d 45 24 28 49 29 3d  |I=LL .20:ME$(I)=|
00003b60  22 20 22 3a ed 49 0d 0d  2a 2b c8 97 20 58 50 2c  |" ":.I..*+.. XP,|
00003b70  59 50 2c 42 55 54 3a 58  50 3d a8 28 58 50 2f 31  |YP,BUT:XP=.(XP/1|
00003b80  36 29 3a 59 50 3d 33 31  2d a8 28 59 50 2f 33 32  |6):YP=31-.(YP/32|
00003b90  29 0d 0d 34 20 e7 58 50  3d 36 37 20 80 20 59 50  |)..4 .XP=67 . YP|
00003ba0  3d 33 20 80 20 42 55 54  3d 34 20 8c e5 8d 44 5c  |=3 . BUT=4 ...D\|
00003bb0  4d 0d 0d 3e 20 e7 58 50  3d 36 39 20 80 20 59 50  |M..> .XP=69 . YP|
00003bc0  3d 33 20 80 20 42 55 54  3d 34 20 8c e5 8d 44 70  |=3 . BUT=4 ...Dp|
00003bd0  4d 0d 0d 48 40 e7 20 58  50 3e 37 31 20 84 20 58  |M..H@. XP>71 . X|
00003be0  50 3c 35 31 20 84 20 59  50 3e 32 35 20 84 20 59  |P<51 . YP>25 . Y|
00003bf0  50 3c 36 20 8c 53 53 46  25 3d 30 3a f2 43 4c 45  |P<6 .SSF%=0:.CLE|
00003c00  41 46 3a 53 53 46 25 3d  53 46 25 3a e5 8d 54 6a  |AF:SSF%=SF%:..Tj|
00003c10  4d 0d 0d 52 72 59 50 3d  59 50 2d 35 3a 53 46 25  |M..RrYP=YP-5:SF%|
00003c20  3d 28 59 50 2b 53 52 25  29 2d 31 3a f2 43 4c 45  |=(YP+SR%)-1:.CLE|
00003c30  41 46 3a fb 31 33 31 3a  f1 8a 35 32 2c 59 50 2b  |AF:.131:..52,YP+|
00003c40  35 29 3b 4d 45 24 28 59  50 29 3b 89 28 32 30 2d  |5);ME$(YP);.(20-|
00003c50  a9 28 4d 45 24 28 59 50  29 29 29 3a fb 46 47 25  |.(ME$(YP))):.FG%|
00003c60  3a e7 42 55 54 3d 34 20  80 20 53 46 25 3c 28 4e  |:.BUT=4 . SF%<(N|
00003c70  4f 46 25 2b 31 29 8c e5  8d 74 44 4d 3a 8b e5 8d  |OF%+1)...tDM:...|
00003c80  54 6a 4d 0d 0d 5c 13 e7  46 52 25 3d 4e 4f 46 25  |TjM..\..FR%=NOF%|
00003c90  8c e5 8d 54 6a 4d 0d 0d  66 6e 53 52 25 3d 53 52  |...TjM..fnSR%=SR|
00003ca0  25 2b 32 30 3a 58 3d 35  30 3a 59 3d 32 3a 57 25  |%+20:X=50:Y=2:W%|
00003cb0  3d 32 31 3a 4c 25 3d 32  33 3a f2 4c 57 4e 3a f1  |=21:L%=23:.LWN:.|
00003cc0  8a 35 31 2c 33 29 3b 22  53 65 6c 65 63 74 20 61  |.51,3);"Select a|
00003cd0  20 46 69 65 6c 64 3a 20  22 3b bd 28 31 33 38 29  | Field: ";.(138)|
00003ce0  3b 22 20 22 3b bd 28 31  33 39 29 3b 8a 35 31 2c  |;" ";.(139);.51,|
00003cf0  34 29 3b c4 32 31 2c bd  28 32 34 31 29 29 3a e5  |4);.21,.(241)):.|
00003d00  8d 54 56 4d 0d 0d 70 10  e7 53 52 25 3d 31 8c e5  |.TVM..p..SR%=1..|
00003d10  8d 54 6a 4d 0d 0d 7a 6e  53 52 25 3d 53 52 25 2d  |.TjM..znSR%=SR%-|
00003d20  32 30 3a 58 3d 35 30 3a  59 3d 32 3a 57 25 3d 32  |20:X=50:Y=2:W%=2|
00003d30  31 3a 4c 25 3d 32 33 3a  f2 4c 57 4e 3a f1 8a 35  |1:L%=23:.LWN:..5|
00003d40  31 2c 33 29 3b 22 53 65  6c 65 63 74 20 61 20 46  |1,3);"Select a F|
00003d50  69 65 6c 64 3a 20 22 3b  bd 28 31 33 38 29 3b 22  |ield: ";.(138);"|
00003d60  20 22 3b bd 28 31 33 39  29 3b 8a 35 31 2c 34 29  | ";.(139);.51,4)|
00003d70  3b c4 32 31 2c bd 28 32  34 31 29 29 3a e5 8d 54  |;.21,.(241)):..T|
00003d80  56 4d 0d 0d 84 65 ef 37  3a cf 23 41 3d 28 53 46  |VM...e.7:.#A=(SF|
00003d90  25 2d 31 29 2a 36 31 2b  36 33 3a e8 23 41 2c 46  |%-1)*61+63:.#A,F|
00003da0  4c 24 3a cf 23 41 3d 28  53 46 25 2d 31 29 2a 36  |L$:.#A=(SF%-1)*6|
00003db0  31 2b 31 30 31 3a e8 23  41 2c 54 59 24 3a cf 23  |1+101:.#A,TY$:.#|
00003dc0  41 3d 28 53 46 25 2d 31  29 2a 36 31 2b 31 31 37  |A=(SF%-1)*61+117|
00003dd0  3a e8 23 41 2c 54 52 24  3a fb 31 38 30 3a 46 47  |:.#A,TR$:.180:FG|
00003de0  25 3d 31 38 30 3a e1 0d  0d 8e 42 dd f2 43 4c 45  |%=180:....B..CLE|
00003df0  41 46 3a e7 53 53 46 25  3c 3e 53 46 25 8c e3 49  |AF:.SSF%<>SF%..I|
00003e00  3d 31 b8 32 30 3a f1 8a  35 32 2c 49 2b 35 29 3b  |=1.20:..52,I+5);|
00003e10  4d 45 24 28 49 29 3b 89  28 32 30 2d a9 28 4d 45  |ME$(I);.(20-.(ME|
00003e20  24 28 49 29 29 29 3a ed  49 0d 0d 98 0e 53 53 46  |$(I))):.I....SSF|
00003e30  25 3d 53 46 25 3a e1 0d  0d a2 2c dd f2 59 4e 3a  |%=SF%:....,..YN:|
00003e40  78 70 3d b1 3a 79 70 3d  bc 3a f1 22 20 22 3b 3a  |xp=.:yp=.:." ";:|
00003e50  fb 31 33 31 3a f1 22 59  45 53 2f 4e 4f 22 3a fb  |.131:."YES/NO":.|
00003e60  46 47 25 0d 0d ac 38 c8  97 20 58 50 2c 59 50 2c  |FG%...8.. XP,YP,|
00003e70  42 55 54 3a 58 50 3d a8  28 58 50 2f 31 36 29 3a  |BUT:XP=.(XP/16):|
00003e80  59 50 3d 33 31 2d a8 28  59 50 2f 33 32 29 3a e7  |YP=31-.(YP/32):.|
00003e90  42 55 54 3d 30 8c e5 8d  74 6c 4d 0d 0d b6 12 e7  |BUT=0...tlM.....|
00003ea0  59 50 3c 3e 79 70 20 8c  e5 8d 74 6c 4d 0d 0d c0  |YP<>yp ...tlM...|
00003eb0  2b e7 58 50 3d 78 70 2b  31 20 84 20 58 50 3d 78  |+.XP=xp+1 . XP=x|
00003ec0  70 2b 32 20 84 20 58 50  3d 78 70 2b 33 8c 59 4e  |p+2 . XP=xp+3.YN|
00003ed0  3d 31 3a e5 8d 64 5e 4d  0d 0d ca 22 e7 58 50 3d  |=1:..d^M...".XP=|
00003ee0  78 70 2b 35 20 84 20 58  50 3d 78 70 2b 36 20 8c  |xp+5 . XP=xp+6 .|
00003ef0  59 4e 3d 30 3a e5 8d 64  5e 4d 0d 0d d4 09 e5 8d  |YN=0:..d^M......|
00003f00  74 6c 4d 0d 0d de 1b f1  8a 78 70 2c 79 70 29 3b  |tlM......xp,yp);|
00003f10  22 20 59 45 53 2f 4e 4f  22 3a ef 37 3a e1 0d 0d  |" YES/NO":.7:...|
00003f20  e8 13 dd a4 4d 79 46 69  6c 65 28 66 69 6c 65 24  |....MyFile(file$|
00003f30  29 0d 0d f2 0a 3d 66 69  6c 65 24 0d 0d fc 0b dd  |)....=file$.....|
00003f40  20 f2 51 75 69 74 0d 0e  06 1e c8 99 20 22 57 69  | .Quit...... "Wi|
00003f50  6d 70 5f 43 6f 6d 6d 61  6e 64 57 69 6e 64 6f 77  |mp_CommandWindow|
00003f60  22 2c 2d 31 0d 0e 10 06  c8 98 0d 0e 1a 05 e1 0d  |",-1............|
00003f70  9c 40 0d dd f2 44 69 72  28 64 24 29 0d 9c 4a 29  |.@...Dir(d$)..J)|
00003f80  e7 20 64 24 20 3c 3e 20  22 22 20 8c 20 ff 20 22  |. d$ <> "" . . "|
00003f90  44 69 72 20 22 2b a4 4d  79 46 69 6c 65 28 c1 64  |Dir "+.MyFile(.d|
00003fa0  24 2c 32 29 29 0d 9c 54  05 e1 0d ff              |$,2))..T....|
00003fac