� > $.!DataVis.!dv15
ș"Wimp_CommandWindow",-1
� 15:� 180:�

�:FG%=180
M�"CLOSE":X=�(�MyFile("NIM")):�#X,ZZ$,ZZ$,DA$,ZZ$,ZZ$,MD$:�"CLOSE":da$=DA$
ȗ�:�:FIL$="Untitled"
	 nol%=�-�:nol%=(nol%/140)-350

9� � :� 1,"Not enough memory to start ReportWriter"
N�L$(nol%):�W$(87):�S$(35):�P$(15):PO%=0:MV%=35:E=1730:G=2020:K=2030:H=3100

'CO$="Untitled":�ME$(13):d$="^##@(*"
r�O(9):�A(35):�G%(10):�C%(30):ML%=0:GSB%=0:FO%=0:PG%=2:SEG$="312831303130313130313031":PD1=1:e=21500:LO%=�("2")
�I=1�59:�W$(I):�I
( ��dTC
2�FG%:�127:�T`C
d��"LET","PRINT","IF","ACCEPT","GET",d$,d$,"GOTO",d$,d$,"WHILE","ENDWHILE","OPEN",d$,d$,d$,"FIND","SEEK","ACCEPTDATE","ACCEPTTIME","MODE",d$,d$,d$,d$,"CLS"
i��"EXIT","SELCLIST","SELLIST","CLIST","LIST",d$,d$,d$,"FIELDS","GETKEY","MENUKEY","SUM","AVG","MAX","MIN",d$,d$,"CDAT","DATC","SUBSTR","SCRNOUT","TRIM","SEG","RSEG","TODAY","NOW",d$
j� d$,d$
n�d$,"POPUP","COLOUR",d$
�&��GNAME:FIL$=�T$,S):�FIL$=""��TeC
��
�	��LWN
�{�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):�

�4��CONV(V1$,V2%):�(V1$)>V2%�STN$=�V1$,V2%):�dGA

�STN$=V1$+�(V2%-�(V1$))," ")

��

�	�TeC
�:�GNAME
�I=1�nol%:L$(I)="":�I
qX=�FIL$:�#X,C$:�127:�"Loading ";FIL$;"...":�I=1�nol%:L$(I)="":�I:�I=1��(C$):�#X,L$(I):�I:�"Loaded":�45:*CLOSE
PO%=1:CO$=FIL$:�TeC
L=nol%:�PO%=0��dtA
�L$(L)<>""��T\B
L=L-1:�L=0��TeC:��TYB
L$(0)=�(L):CO$=FIL$
]�127:�"Saving ";FIL$;"...":X=�FIL$:�I=0��(L$(0)):�#X,L$(I):�I:�"CLOSE":�"Saved":�45:�TeC
&��TpB
(�:�0,7);:�""+T$:
+	�dyA
0
2	�dyA
5�PO%=0��TeC
7�127
:H�"Current listing of ";CO$;":"':�I=1�nol%:�L$(I)<>""���(I);" ";L$(I)
?�I:�':�3:�45:�TeC
D*�:�2:�I=1�150:�L$(I)<>""��I;"  ";L$(I)
I�I:�3:�dtA
2�:�0,31);"":�I=1�150:�L$(I)<>""��I;"  ";L$(I)
�(0)=�(13)�I=150
�I:�''':Y=29:�drC
 w�:X=0:Y=3:W%=78:L%=24:�180:�LWN:�28,1,27,78,4:�128:�:�131:�"DataVision Report Writer/Enquiry Language";�(37):�128:�
"C�'"Available memory: ";nol%*140;" bytes / ";nol%;" lines free"'
%#�120:�3:� � ">" T$:�T$=""��TeC
'"�T$,1)="*"��127:�T$:�45:�TeC
*�T$="LIST"�T$="L."��TuB
/ �T$="PRINT"�T$="P."��2:�TuB
1&�T$,7)="LIST IF"�S=9:�GNAME:�TnD
2$�T$,5)="L. IF"�S=6:�GNAME:�TnD
4#�T$,4)="LOAD"�S=6:�GNAME:�TTB
9#�T$,4)="SAVE"�S=6:�GNAME:�TWB
>>�T$="NEW"��I=1�nol%:L$(I)="":�I:PO%=0:CO$="Untitled":�TeC
C!�T$="TIME"��127:�$:�45:�TeC
H$�T$,5)="TSAVE"�S=7:�GNAME:�DLD
M"�T$,3)="RUN"�S=5:�GNAME:�`^N
R�T$,4)="QUIT"��d@C
W�T$="nimStop_delg"��dJC
\%�T$,6)="INSERT"�S=8:�GNAME:�dhC
a%�T$,6)="DELETE"�S=8:�GNAME:�T_D
�L=�T$," "):�L=0��tlC
�BLL=�(�T$,(L-1))):�LL<1�LL>nol% ��127:�"Mistake":�128:�45:�TeC
�?N$=�T$,L+1,1):�N$=" "�N$=""��127:�"Bad line":�128:�45:�TeC
�L$(LL)=�T$,L+1):PO%=1:�TeC
� LL=�(T$):�LL<1�LL>nol%��tvC
�8L$(LL)="":�127:�"Line ";LL;" removed":�128:�45:�TeC
�"�127:�"Mistake":�128:�45:�TeC
�!FIL$=�T$,6):�FIL$=""�FIL$=MD$
��127:�Quit
��
�0�28,1,27,78,4:�128:�"CLOSE":�3:�=17��:�TeC
�B�=222��127:�"Error #222: File '";FIL$;"' not found":�45:�TeC
�'�127:�"Error #";�;": ";�$:�45:�TeC
�JL%=�FIL$,","):�JL%=0��TeC
�LBASE%=�(�FIL$,JL%-1)):INC%=�(�FIL$,JL%+1)):�BASE%>=nol% � BASE%<1 ��TeC
��I=nol% � 1 �-1
�D�L$(I)=""��TZD:�X=I+INC%:�X>nol%��"Failed at line ";I:I=1:�TZD
�'�I>=BASE%�L$(X)=L$(I):L$(I)="":�X=I

:JL%=�L$(X),"GOTO"):�JL%=0��TZD:�LIN%=�(�L$(X),JL%+5))
5�LIN%>=BASE%�L$(X)=�L$(X),JL%+3)+" "+�(LIN%+INC%)
�I:�TeC
gJL%=�FIL$,","):�JL%=0��TeC:�BASE%=�(�FIL$,JL%-1)):INC%=�(�FIL$,JL%+1)):�INC%>nol% � BASE%<1 ��TeC
$�BASE%>INC% ��TeC
&�BASE%=1 � INC%=nol% ��TeC
)#�I=BASE%�INC%:L$(I)="":�I:�TeC
.�PO%=0��TeC
0e�127:�"Current listing of ";CO$;":"':�I=1�nol%:�L$(I)<>""�JL%=�L$(I),FIL$):�JL%>0���(I);" ";L$(I)
3�I:�':�45:�TeC
J�
K=�  *** THIS IS THE COMPILER *** BY JONATHAN S. PALMER ***
LCOMFIL$=FIL$:�127
Q�PO%=0��dtA
R�"Tokenising ";CO$;"..."
V
L=nol%
W�L$(L)<>""�ML%=L:�D[D
XL=L-1:�L=0��dtA��DWD
[6�I=1�ML%:�CONV(�(I),3):�L$(I)<>""�L$(I)=L$(I)+STN$
`�I
eLL=1:L=1
j#�L$(L)<>""�L$(LL)=L$(L):LL=LL+1
oL=L+1:�L>ML%��DtD��DjD
tML%=LL-1:�ML%=0��dtA
v8�I=1�ML%:PLN$=�L$(I),3):�L$(I),5)="GOTO "�T=1:�D~D
y�L$(I),3)="IF "��tMD
z�L$(I),7)="MENUKEY"��tcD
{!�L$(I),6)="GOSUB "�T=2:�D~D
|�I:�tpD
~�T=1�T$="(":T=6:�T$=")":T=7
��(L$(I))=T ��taD
�1NO$=�L$(I),T):NO$=�NO$,(�(NO$)-3)):NO%=�(NO$)
�#�NO%<1�NO%>nol%�I=�(PLN$):�taD
�L=1
�2N1%=�(�L$(L),3)):�N1%=NO%�L$(I)=T$+�(L)+PLN$:�
�'L=L+1:�L>ML%�I=�(PLN$):�taD:��tHD
�@T=1:X=�L$(I),"GOTO "):�X=0�T=2:X=�L$(I),"GOSUB "):�X=0��D{D
�#SP$=�L$(I),X-1):L$(I)=�L$(I),X)
��D~D:L$(I)=SP$+L$(I):�D|D
�>�'"Tokenisation Error at line ";I';"'";L$(I);"'":�45:�TeC
�K�'"Tokenisation Error at line ";I';"'";�L$(I),�(L$(I))-3);"'":�45:�TeC
�<�CGET(�L$(I),9,�(L$(I))-11)):�(COM%/2-�(COM%/2))>0��taD
�5�PGET(COM%,�L$(I),9,�(L$(I))-11)):�J=2�COM%�2:L=1
�3N1%=�(�L$(L),3)):�N1%=�(P$(J))�P$(J)=�(L):�tjD
�'L=L+1:�L>ML%�I=�(PLN$):�taD:��tfD
��J
�0�PPAD(COM%):L$(I)="E"+�(252)+PAD$+PLN$:�D|D
�(�I=1�ML%:L$(I)=�L$(I),�(L$(I))-3):�I
��I=1�ML%:DB%=0
�+�L$(I),1)="*"�L$(I)=�(251)+L$(I):�dvD
�&�L$(I),1)="("��L$(I),1)=")"��dvD
��L$(I),2)="E"+�(252)��dvD
�FO%=0:�F=1�59
�6�L$(I),�(W$(F))+1)=W$(F)+" "�FO%=1:O=F:F=59:�dID
�*�L$(I),�(W$(F)))=W$(F)�FO%=2:O=F:F=59
��F:�FO%=0��t\D��dbD
��� O � �TTE,�tBE,�ttE,�TNF,�D@F,�DOF,�tnF,�t\D,�t\D,E,1740,E,1800,1815,1820,1825,1830,1840,0,0,1880,1900,E,E,1920,E,E,1930,1970,1980,1990,E,E,E,2000,2010,0,G,G,G,G,G,G,K,K,H,H,2050,2060,2070,2080,2090,E,3000,3000,E,3020,3030,E
��DB%=1��d\E
��I
4�"Tokenisation complete. Saving as ";COMFIL$:�45
m�"CLOSE":X=�COMFIL$:�CONV(�(ML%),3):L$(0)=STN$+"*COMPILED*":�I=0�ML%:�#X,L$(I):�I:�"CLOSE":T$="NEW":�T~C
�FO%=2��(L$(I))=4��t\D
N1$=�L$(I),5):Y=1
 N2$=�N1$,Y,1):�N2$="="��ThE
 �Y>�(N1$)��t\D
"Y=Y+1:�T^E
(�Y=1�Y>4��t\D
*6N3$=�N1$,Y-1):�N3$,1)="$"��N3$,1)="&"��TmE��t\D
-5�CONV(N3$,3):N4$=STN$:N5$=�N1$,Y+1):�N5$=""��t\D
/�N4$,1)="$"��TwE
2L$(I)="!"+N4$+N5$:�dvD
7!�SGET:L$(I)="!"+N4$+NA$:�dvD
<��SGET:NA$="":Y=1:X=Y
>&�N5$,X,1)="$"��N5$,X,1)="&"��DUE
? �N5$,X,1)=�(34)�Y=Y+1:�DAE
@	�t\D
A�Y>�(N5$)��DxE
C�N5$,Y,1)=�(34)��DKE
F!NA$=NA$+�N5$,Y,1):Y=Y+1:�DAE
K�Y=�(N5$)��DxE
M2Y=Y+1:�N5$,Y,1)="$"��N5$,Y,1)="&"��DUE��t\D
U�N5$,Y,1)="$"�TY%=1�TY%=2
WAY=Y+1:N6$=�N5$,Y,2):AS%=�(�N6$,1)):�AS%<48�AS%>57�Y=Y+1�Y=Y+2
Z#N2%=�(N6$):�N2%<0�N2%>MV%��t\D
\"�TY%=1�AS%=N2%+128�AS%=N2%+179
^"NA$=NA$+�(AS%):�Y>�(N5$)��DxE
a
X=Y:�T~E
x�
��(L$(I))=6��t\D
��FO%=2�L$(I)=�(34):�dvD
��L$(I),7,1)="@"��tjE
�+N5$=�L$(I),7):�N5$=""�L$(I)=�(34):�dvD
�&�SGET:L$(I)=�(34)+�(255)+NA$:�dvD
�2��GET:N1$=�L$(I),Y,2):��N1$,1)=","�Y=Y+2�Y=Y+3
�<N2$=�L$(I),Y,2):�(�N2$,1))<48��(�N2$,1))>57�Y=Y+1�Y=Y+2
��N1$=""�N2$=""��t\D
�KN1$=�(�(N1$)):N2$=�(�(N2$)):�CONV(N1$,2):N1$=STN$:�CONV(N2$,2):N2$=STN$
��
�EY=8:�GET:N5$=�L$(I),Y):�SGET:L$(I)=�(34)+�(254)+N1$+N2$+NA$:�dvD
��FO%=2��(L$(I))=3��t\D
�%N1%=�L$(I)," THEN "):�N1%=0��t\D
�-N2%=�L$(I),"<>"):�N2%>0�OP%=2:TY%=6:�dHE
�-N2%=�L$(I),"<="):�N2%>0�OP%=2:TY%=5:�dHE
�-N2%=�L$(I),">="):�N2%>0�OP%=2:TY%=4:�dHE
�,N2%=�L$(I),">"):�N2%>0�OP%=1:TY%=3:�dHE
�,N2%=�L$(I),"<"):�N2%>0�OP%=1:TY%=2:�dHE
�,N2%=�L$(I),"="):�N2%>0�OP%=1:TY%=1:�dHE
�	�t\D
�IT%=1:TYSAS%=TY%
�YN1$=�L$(I),4,N2%-4):N2$=�L$(I),(N2%+OP%),(N1%-N2%)-1):��N2$,1)=" "�N2$=�N2$,�(N2$)-1)
��N1$=""�N2$=""��t\D
��(N1$)>29��(N2$)>29��t\D
�N1$,1)="$"��N1$,1)=�(34)�N5$=N1$:�SGET:N1$=NA$:N5$=N2$:�SGET:N2$=NA$:IT%=2:N1$=N1$+�(253):N2$=N2$+�(253):�CONV(N1$,30):DB1$=STN$:�CONV(N2$,30):DB2$=STN$:�dRE
�V�CONV(N1$,29):DB1$=STN$:�CONV(N2$,29):DB2$=STN$:�IT%=1�DB1$=DB1$+" ":DB2$=DB2$+" "
�HDB$=�L$(I),(N1%+6)):N4$=�L$(I),N1%-1):�DB$,1)="("��DB$,1)=")"��dfE
�9�DB$,2)="IF"��DB$,2)="WHILE"��DB$,2)="MENUKEY"��t\D
�DB%=1:L$(I)=DB$:�dDD
�
DB$=L$(I)
�8L$(I)="#"+�(IT%)+�(TYSAS%)+DB1$+DB2$+DB$:DB%=0:�dvD
�FO%=2��TlF
�(L$(I))=7��t\D
�L$(I),8,1)="@"��TbF
6N3$=�L$(I),8):�N3$,1)="$"��N3$,1)="&"��TXF��t\D
L$(I)="$"+�(255)+N3$:�dvD
"?Y=9:�GET:N3$=�L$(I),Y):�N3$,1)="$"��N3$,1)="&"��TgF��t\D
'&L$(I)="$"+�(254)+N1$+N2$+N3$:�dvD
,(�L$(I),11)="ACCEPTDATE "�O=19:�TzG
.(�L$(I),11)="ACCEPTTIME "�O=20:�TzG
1	�t\D
@�FO%=2��D^F
BS�CGET(�L$(I),5)):�COM%=2��RELE:�PGET(COM%,�L$(I),5)):�PCHK("FX"):�PPAD(2):�DJF
EC�COM%=3��RELE:�PGET(COM%,�L$(I),5)):�PCHK("FXY"):�PPAD(3):�DJF
G	�t\D
JL$(I)="%"+PAD$:�dvD
O�FO%=2��(L$(I))=3��t\D
T1�RELE:�PGET(2,�L$(I),5)):�PCHK("FX"):�PPAD(2)
YL$(I)="&"+PAD$:�dvD
^#�L$(I),6)="GETKEY"�FO%=1:�dZG
`	�t\D
hP��PPAD(PP%):PAD$="":�J=1�PP%:�CONV(P$(J),12):P$(J)=STN$:PAD$=PAD$+P$(J):�J:�
o ��RELE:�J=1�15:P$(J)="":�J:�
r��PGET(MP%,PG$):L=1
t�L=MP%�P$(L)=PG$:�tAF
wMF%=�PG$,","):�MF%=0��t\D
y3P$(L)=�PG$,(MF%-1)):�P$(L)=""��(P$(L))>12��t\D
|!PG$=�PG$,(MF%+1)):L=L+1:�DtF
��
���PCHK(PC$)
�?�J=1��(PC$):PC1$=�PC$,J,1):PC2%=�(�P$(J),2)):PC3$=�P$(J),1)
��PC1$="F"��tUF
��PC1$="S"��tZF
��PC1$="A"��t_F
��PC1$="X"��tdF
��PC3$="#"��t\D
�	�tiF
��PC3$<>"#"��t\D
��PC2%<1�PC2%>999��t\D
�	�tiF
��PC3$<>"$"��t\D
��PC2%<0�PC2%>MV%��t\D
�	�tiF
��PC3$<>"&"��t\D
��PC2%<0�PC2%>MV%��t\D
�	�tiF
��PC3$="$"��tgF
��PC3$="&"��tgF
�	�t\D
��PC2%<0�PC2%>MV%��t\D
��J:�
��FO%=2��(L$(I))=5��t\D
��L$(I),6,1)="@"��txF
�$L$(I)="'"+�(255)+�L$(I),6):�dvD
�5Y=7:�GET:L$(I)="'"+�(254)+N1$+N2$+�L$(I),Y):�dvD
��O=56��t@L
�L$(I)=�(O+32):�dvD
��FO%=2��(L$(I))=6��t\D
�-N2%=�L$(I),"<>"):�N2%>0�OP%=2:TY%=6:�d`F
�-N2%=�L$(I),"<="):�N2%>0�OP%=2:TY%=5:�d`F
�-N2%=�L$(I),">="):�N2%>0�OP%=2:TY%=4:�d`F
�,N2%=�L$(I),">"):�N2%>0�OP%=1:TY%=3:�d`F
�,N2%=�L$(I),"<"):�N2%>0�OP%=1:TY%=2:�d`F
�,N2%=�L$(I),"="):�N2%>0�OP%=1:TY%=1:�d`F
�	�t\D
�nN1%=�(L$(I))+1:IT%=1:N1$=�L$(I),7,N2%-7):N2$=�L$(I),(N2%+OP%),(N1%-N2%)-1):��N2$,1)=" "�N2$=�N2$,�(N2$)-1)
��N1$=""�N2$=""��t\D
��(N1$)>29��(N2$)>29��t\D
��N1$,1)="$"��N1$,1)=�(34)�N5$=N1$:�SGET:N1$=NA$:N5$=N2$:�SGET:N2$=NA$:IT%=2:N1$=N1$+�(253):N2$=N2$+�(253):�CONV(N1$,30):DB1$=STN$:�CONV(N2$,30):DB2$=STN$:�dtF
�V�CONV(N1$,29):DB1$=STN$:�CONV(N2$,29):DB2$=STN$:�IT%=1�DB1$=DB1$+" ":DB2$=DB2$+" "
�+L$(I)="+"+�(IT%)+�(TY%)+DB1$+DB2$:�dvD
�FO%=2��(L$(I))=5��t\D

"Y=6:�FGET:L$(I)="-"+FIL$:�dvD
3��FGET:FIL$=�L$(I),Y):�FIL$=""��(FIL$)>10��t\D
�
%�FO%=2��(L$(I))=7�L$(I)=":":�dvD
"Y=8:�FGET:L$(I)="."+FIL$:�dvD
�FO%=2��(L$(I))=8��t\D
"Y=9:�FGET:L$(I)="/"+FIL$:�dvD
!�FO%=2��(L$(I))=10��t\D
##Y=10:�FGET:L$(I)="0"+FIL$:�dvD
&�FO%=2��(L$(I))=5��t\D
)2�RELE:�PGET(3,�L$(I),6)):�PCHK("FXY"):�PPAD(3)
-L$(I)="1"+PAD$:�dvD
0�FO%=2��(L$(I))=5��t\D
32�RELE:�PGET(3,�L$(I),6)):�PCHK("FXY"):�PPAD(3)
7L$(I)="2"+PAD$:�dvD
:�(L$(I))=11��t\D
?�L$(I),12,1)="@"��DNG
B7N3$=�L$(I),12):�N3$,1)="$"��N3$,1)="&"��DDG��t\D
D"L$(I)=�(O+32)+�(255)+N3$:�dvD
N@Y=13:�GET:N3$=�L$(I),Y):�N3$,1)="$"��N3$,1)="&"��DSG��t\D
S*L$(I)=�(O+32)+�(254)+N1$+N2$+N3$:�dvD
X�FO%=2�L$(I)="5":�dvD
]"Y=6:�FGET:L$(I)="5"+FIL$:�dvD
_�SET$=W$(L)��DgG
bL=L+1:�L=78��t\D��D_G
gL$(I)="5"+�(L-59):�dvD
l�FO%=2�L$(I)="61"
q0�RELE:�PGET(1,�L$(I),8)):�PCHK("Y"):�PPAD(1)
vL$(I)="6"+PAD$:�dvD
��FO%=2��t\D
�"Y=6:�FGET:L$(I)="9"+FIL$:�dvD
��FO%=2��(L$(I))=9��t\D
�J�CGET(�L$(I),10)):�PGET(COM%,�L$(I),10)):�PCHK(�COM%,"Y")):�PPAD(COM%)
�L$(I)="<"+PAD$:�dvD
���CGET(CG$):CO%=1:COM%=0
�0CO1%=�CG$,",",CO%):�CO1%=0�COM%=COM%+1:�thG
� COM%=COM%+1:CO%=CO1%+1:�tcG
��COM%>15��t\D
��
��FO%=2��(L$(I))=8��t\D
�]�CGET(�L$(I),9)):�PGET(COM%,�L$(I),9)):�PCHK(�COM%,"Y")):�PPAD(COM%):L$(I)="="+PAD$:�dvD
��FO%=2�L$(I)=">":�dvD
�"Y=7:�FGET:L$(I)=">"+FIL$:�dvD
��FO%=2�L$(I)="?":�dvD
�"Y=6:�FGET:L$(I)="?"+FIL$:�dvD
��FO%=2��(L$(I))=7��t\D
�FIL$=�L$(I),8)
�L$(I)="C"+FIL$:�dvD
��FO%=2��(L$(I))=7��t\D
�4Y=8:�FGET:�FIL$,1)="$"��FIL$,1)="&"��daG��t\D
�L$(I)="D"+FIL$:�dvD
��FO%=2��(L$(I))=4��t\D
�J�RELE:�PGET(2,�L$(I),5)):�PCHK("FX"):�PPAD(2):L$(I)=�(O+32)+PAD$:�dvD
��FO%=2��(L$(I))=5��t\D
�F�RELE:�PGET(2,�L$(I),6)):�L$(I),4)="DATC"��PCHK("AS")��PCHK("SA")
�%�PPAD(2):L$(I)=�(O+32)+PAD$:�dvD
�FO%=2��(L$(I))=5��t\D
H�RELE:�PGET(4,�L$(I),6)):�PCHK("AYSY"):�PPAD(4):L$(I)="P"+PAD$:�dvD
�FO%=2��(L$(I))=4��t\D
H�RELE:�PGET(4,�L$(I),5)):�PCHK("SSYY"):�PPAD(4):L$(I)="Q"+PAD$:�dvD
�FO%=2��(L$(I))=5��t\D
G�RELE:�PGET(3,�L$(I),6)):�PCHK("SSY"):�PPAD(3):L$(I)="R"+PAD$:�dvD
 �FO%=2��(L$(I))=6��t\D
"E�RELE:�PGET(1,�L$(I),7)):�PCHK("S"):�PPAD(1):L$(I)="S"+PAD$:�dvD
*�FO%=2��(L$(I))=4��t\D
,E�RELE:�PGET(1,�L$(I),5)):�PCHK("S"):�PPAD(1):L$(I)="T"+PAD$:�dvD
�L$(I)=�(O+32):�dvD
��FO%=2��(L$(I))=6��t\D
�H�RELE:�PGET(4,�L$(I),7)):�PCHK("YYYY"):�PPAD(4):L$(I)="Y"+PAD$:�dvD
��FO%=2��(L$(I))=7��t\D
�"Y=8:�FGET:L$(I)="Z"+FIL$:�dvD
�O=47��TzL
!�FO%=2��(L$(I))=7��t\D
&G�RELE:�PGET(3,�L$(I),8)):�PCHK("ASS"):�PPAD(3):L$(I)="N"+PAD$:�dvD
:�FO%=2��(L$(I))=8��t\D
=]�CGET(�L$(I),9)):�PGET(COM%,�L$(I),9)):�PCHK(�COM%,"Y")):�PPAD(COM%):L$(I)="O"+PAD$:�dvD
��FO%=2��(L$(I))=7��t\D
�N5$=�L$(I),8):�N5$=""��t\D
��SGET:L$(I)="X"+NA$:�dvD
$S��SELECT:�"FX4,1":ED%=Y+(L%-1):BG%=X+(W%-1):�I=1�L%:�X,Y+(I-1));"  ";ME$(I):�I
3+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
8�BUT=4��T}S:��TsS
=�YP<Y � YP>ED%��TsS
@�XP<X � XP>BG%��TsS
BSEL%=(YP-Y)+1:�
�
��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%
��
X � �dTC
N ��"CLOSE":X=�(�MyFile("NIM")):�#X,ZZ$,ZZ$,DA$,ZZ$,ZZ$,ZZ$:�"CLOSE":�O(9):�L$(150):�S$(35):�A(35):�G%(10):�P$(15):�C%(30):ML%=0:GSB%=0:FO%=0:PG%=2:SEG$="312831303130313130313031"
N%ePD1=1:E=1500:LO%=�("2"):YEAR=�(�DA$,7,2)):MONTH=�(�DA$,4,2)):DAY=�(�DA$,1,2)):�MONTH<4� QUARTER=1
N*�MONTH>9�QUARTER=4
N/(�MONTH>3�MONTH<7�QUARTER=2�QUARTER=3
N44��CONV(V1$,V2%):�(V1$)>V2%�STN$=�V1$,V2%):�P~N
N9STN$=V1$+�(V2%-�(V1$))," ")
N>�
NC��EL
NH�O(5)=1�EL%=39
NM�O(5)=2�EL%=79
NR�O(5)=3�EL%=131
NW�
N\��TEXT:�EL
Na
T$="":L=0
Nf�L<L%��X,Y);�(255)
NkIN=�
Np�IN=13��p]N
Nu�IN=127��pNN
N�L=L%��@kN
N�9�X,Y);�(IN):T$=T$+�(IN):L=L+1:X=X+1:�X>EL%�X=0:Y=Y+1
N�	�@fN
N��L=0��@aN
N�5�X,Y);" ":X=X-1:L=L-1:T$=�T$,L):�X<0�X=EL%:Y=Y-1
N�	�@fN
N�N$=T$:�X,Y);" ":�
N��
N��
N���p{N
N��:�0,7);:�""+T$:
N�	�pgN
N�
N�	�pbN
N�E��FCH:�FO%=0��ERROR("No file open"):��NOR%=0��ERROR("File empty")
N�F�A(35)>NOR%�A(35)=0��ERROR("Record control variable out of range")
N��
N���`rN
N��:�"CLOSE":�GNAME
N�XX=�FIL$:�#X,L$(0):�L$(0),4)<>"*COMPILED*"��127:�"Not a tokenised program":�45:�TeC
N�UML%=�(L$(0)):�I=1�ML%:�#X,L$(I):�I:�I=1�30:A(I)=0:S$(I)="":�I:�J=1�15:P$(J)="":�J
N��"CLOSE":��`|N
N�)�26:�FG%:�127:�:O(5)=2:O(2)=1:�:�PFO
N���@fX
N�	�pbN
N��3:�26:�ERROR(�$)
O
�128:ȗ �:�:�pbN
O	SC%=1
O DB%=0:DA$=da$:�SC%>ML%��PxO
OFIR$=L$(SC%)
OAS%=�(�FIR$,1))-32
O�AS%=219��P}O
O�AS%>37�AS%=AS%-37:�PiO
O$�� AS% � �@eO,�PTP,�PrP,�pjP,�`WP,�`zP,�PqQ,�P{Q,�@@Q,�@JQ,�@TQ,�pAQ,�pKQ,�p}Q,�`VQ,�``Q,�`eQ,�PkR,�@IR,�@XR,�`_R,�P`S,�PtS,�@MS,�@XW,�@\S,�@aS,�@fS,�pIS,�`@S,�`@S,�pbN,�`zU,�TxX,�@oT,�@GT,�@[T,
O)v� AS% � e,e,e,e,e,e,21640,21655,21795,21800,21815,21830,21840,21845,21850,21855,21860,21860,22245,21875,21880,1625
O.�DB%=1��@UP
O3SC%=SC%+1:�PKO
O8)SC%=SC%-1:�ERROR("Program run ended")
O=OS$=�L$(SC%),2)
OB"X=�OS$,":"):�X=0��""+OS$:�PnO
OG-�""+�OS$,X-1):OS$=�OS$,X+1):�OS$=""��PnO
OL	�@BO
OQ���ERROR(ER$):�3:�'ER$;" at line ";SC%;".":I$=�:�15:�FG%:�127:�19,1,24,0,69,200:�I=1�nol%:L$(I)="":�I:PO%=0:CO$="Untitled":�:��dTC
OS	�T`C
OV�128:�pbN
O[@��VRCHK:�VR%<0�VR%>35��ERROR("Variable number out of range")
O`�
Oe�FIR$,2,1)="$"��`SO
OjVR%=�(�FIR$,3,2)):�VRCHK
Oo&�FORTRAN(�FIR$,5)):A(VR%)=FT:�PnO
Ot��FORTRAN(FO$):FT$="":L=1
Oy�FO$,L,1)="&"�L=L+1:�pRO
O~�FO$,L,1)="$"�L=L+1:�pfO
O�FT$=FT$+�FO$,L,1)
O�L=L+1:�L>�(FO$)��pzO
O�	�@yO
O�8FT1$=�FO$,L,2):�FT1$=""��ERROR("Variable not found")
O�.�(�FT1$,1))<48��(�FT1$,1))>57� L=L:�L=L+1
O�@�(FT1$)<0��(FT1$)>35��ERROR("Variable number out of range")
O�FT$=FT$+�(A(�(FT1$))):�pHO
O�8FT1$=�FO$,L,2):�FT1$=""��ERROR("Variable not found")
O�<�(�FT1$,1))<48��(�FT1$,1))>57� L=L:FT1$=�FT1$,1):�L=L+1
O�@�(FT1$)<0��(FT1$)>35��ERROR("Variable number out of range")
O�%FT$=FT$+"VAL(S$("+FT1$+"))":�pHO
O���`IO
O�FT=�(FT$):��@fX
O��
O���@fX
O��ERROR("Error in formula")
O�VR%=�(�FIR$,3,2)):�VRCHK
O�&�SGET2(�FIR$,5)):S$(VR%)=FT$:�PnO
O���SGET2(FO$):FT$="":L=1
O��(�FO$,L,1))>127��`{O
O�FT$=FT$+�FO$,L,1)
O�L=L+1:�L>�(FO$)��`vO
O�	�`bO
O��
O�A=�(�FO$,L,1))
P*�(A>=164�A<=178)�(A>=215�A<=255)��`gO
P"�A<164�FT$=FT$+S$(A-128):�`lO
P
$�A<215�FT$=FT$+�(A(A-179)):�`lO
P	�`gO
P�FIR$=�(34)��:�PnO
PR�FIR$,2,1)=�(254)��(�FIR$,3,2)),�(�FIR$,5,2)));:�SGET2(�FIR$,7)):�FT$:�PnO
P�SGET2(�FIR$,3)):�FT$:�PnO
P#E��STRIM(STM$):�I=30�1�-1:�STM$,I,1)=�(253)�STP$=�STM$,(I-1)):I=1
P(�I
P-�
P28TY%=�(�FIR$,3,1)):DB1$=�FIR$,4,30):DB2$=�FIR$,34,30)
P7E�FIR$,2,1)="1"��FORTRAN(DB1$):DB1=FT:�FORTRAN(DB2$):DB2=FT:�@AP
P<]�STRIM(DB1$):DB1$=STP$:�STRIM(DB2$):DB2$=STP$:�SGET2(DB1$):DB1$=FT$:�SGET2(DB2$):DB2$=FT$
PA�L$(SC%),2,1)="1"��COMVAR
PF�L$(SC%),2,1)="2"��COMSTR
PKMFIR2$=L$(SC%):FIR2%=SC%:�COM%=1�L$(SC%)=�L$(SC%),64):�L$(SC%)=FIR2$:�PnO
PPDB%=1:�PPO
PUDB%=0:L$(FIR2%)=FIR2$:�PnO
PZ��COMVAR:COM%=0
P_�TY%=1��DB1=DB2 �COM%=1
Pd�TY%=2��DB1<DB2 �COM%=1
Pi�TY%=3��DB1>DB2 �COM%=1
Pn�TY%=4��DB1>=DB2 �COM%=1
Ps�TY%=5��DB1<=DB2 �COM%=1
Px�TY%=6��DB1<>DB2 �COM%=1
P}�
P���COMSTR:COM%=0
P��TY%=1��DB1$=DB2$�COM%=1
P��TY%=2��DB1$<DB2$�COM%=1
P��TY%=3��DB1$>DB2$�COM%=1
P��TY%=4��DB1$>=DB2$�COM%=1
P��TY%=5��DB1$<=DB2$�COM%=1
P��TY%=6��DB1$<>DB2$�COM%=1
P��
P�FX=�:Y=�:L=3:�FIR$,2,1)=�(254)�X=�(�FIR$,3,2)):Y=�(�FIR$,5,2)):L=7
P��Y>29��'':Y=29
P� VR%=�(�FIR$,(L+1),2)):�VRCHK
P�AY%=0:�FIR$,L,1)="$"�AY%=1
P��FIR$,L,1)="&"�AY%=2
P��AY%=0��ERROR("Bad Accept")
P��AY%=1�L%=255:�L%=18
P�(�TEXT:�AY%=1�S$(VR%)=T$�A(VR%)=�(T$)
P�	�PnO
P��FCH
P�3�PGET2:N1%=�(�P$(1),2)):VR%=�(�P$(2),2)):�VRCHK
P�0�N1%=0�N1%>NOF%��ERROR("Field out of range")
P�9CR%=A(35):�SO$="1"��#C=(CR%*REC%)-10:�#C,N$:CR%=�(N$)
P�`�#B=(N1%-1)*61+109:�#B,TI$:�#C=(CR%-1)*REC%+�(TI$):�#C,N$:�P$(2),1)="&"� A(VR%)=�(N$):�PnO
P�Q�#B=(N1%-1)*61+104:�#B,IN$:�P$(3),1)="L"�S$(VR%)=Ļ(IN$)-�(N$)," ")+N$:�PnO
P�H�P$(3),1)="T"�S$(VR%)=N$+Ļ(IN$)-�(N$)," "):�PnO:�S$(VR%)=N$:�PnO
P��FCH
P�0�FI%=1��ERROR("File not opened to write to")
Q[�PGET2:N1%=�(�P$(1),2)):VR%=�(�P$(2),2)):�VRCHK:�P$(2),1)="$"�C$=S$(VR%):�C$=�(A(VR%))
Q	0�N1%=0�N1%>NOF%��ERROR("Field out of range")
Q
CR%=A(35)
Q;�#B=(N1%-1)*61+104:�#B,IN$:�(C$)>�(IN$)�C$=�C$,�(IN$))
QC�#B=(N1%-1)*61+109:�#B,TI$:�#C=(CR%-1)*REC%+�(TI$):�#C,C$:�PnO
Q(��PGET2:PG$=�FIR$,PG%):NP%=�(PG$)/12
Q"L=1:J=1
Q'7P$(L)=�PG$,J,12):L=L+1:J=J+12:�J>�(PG$)��PlQ��PgQ
Q,�
Q1?�FIR$,2,1)=�(254)��(�FIR$,3,2)),�(�FIR$,5,2)));:L=7:�L=3
Q6�FIR$,L):�PnO
Q;SC%=�(�FIR$,2))-1:�PnO
Q@2GSB%=GSB%+1:�GSB%>10��ERROR("Too many GOSUBs")
QE(G%(GSB%)=SC%:SC%=�(�FIR$,2))-1:�PnO
QJ�GSB%=0��ERROR("No GOSUB")
QO"SC%=G%(GSB%):GSB%=GSB%-1:�PnO
QTzTY%=�(�FIR$,3,1)):DB1$=�FIR$,4,30):DB2$=�FIR$,34,30):�FIR$,2,1)="1"��FORTRAN(DB1$):DB1=FT:�FORTRAN(DB2$):DB2=FT:�@^Q
QY\�STRIM(DB1$):DB1$=STM$:�STRIM(DB2$):DB2$=STM$:�SGET2(DB1$):DB1$=FT$:�SGET(DB2$):DB2$=FT$
Q^�FIR$,2,1)="1"��COMVAR
Qc�FIR$,2,1)="2"��COMSTR
Qh�COM%=1��@|Q
Qm�L$(SC%)=","��PnO
Qr;SC%=SC%+1:�SC%>ML%��ERROR("No ENDWHILE to match WHILE")
Qw	�@mQ
Q|WH%=1:LO%=SC%-1:�PnO
Q�/�WH%=0��ERROR("No WHILE to match ENDWHILE")
Q�SC%=LO%:�PnO
Q���psQ
Q���PGET2:FI$=P$(1):X=�FI$," "):FI$=�FI$,X-1):SG$=FI$:�STGET:FI$=SG$:FO$=FI$+"A":�"CLOSE":TA$=FI$+"N":� "Dir <DataVision$Dir>":N=�TA$:�#N,DIR$:�"CLOSE":�Dir(DIR$):B=�FO$:C=�FI$
Q���`|N
Q�O�#B=0:�#B,ZA$:�#B=5:�#B,ZB$:�#B=15:�#B,ZC$:�#B=45:�#B,SO$:�(SO$)>0�SO$="1"
Q�}FA$=TA$:NOF%=�(ZA$):NOR%=�(ZB$):REC%=�(ZC$):A(35)=1:A(34)=NOR%:FO%=1:MOR%=NOR%+1:�NOR%=0��"CLOSE":�ERROR("File is empty")
Q�	�PnO
Q���`|N
Q�"�ERROR("Cannot read the file")
Q�9�GFIL:�:S=�FIL$:�J=0�26:�#S,V$:�0,J);V$:�J:�#S:�PnO
Q�J��GFIL:FIL$=�FIR$,2):�FIL$,1)="$"�VR%=�(�FIL$,2)):�VRCHK:FIL$=S$(VR%)
Q��
Q�:��STGET:�SG$,1)="$"�VR%=�(�SG$,2)):�VRCHK:SG$=S$(VR%)
Q��
Q�mSG$=�FIR$,2):�STGET:S=�SG$:�#S,L$(0):�L$(0),4)<>"*COMPILED*"��ERROR("INSTALLed program is not compiled")
Q�KML%=�(L$(0)):�I=1�ML%:�#S,L$(I):�I:�F=(ML%+1)�150:L$(I)="":�F:�#S:�PFO
Q�SG$=�FIR$,2):�STGET:� SG$
Q�A(35)=1:�FCH
Q�Y�PGET2:N1%=�(�P$(1),2)):VR%=�(�P$(2),2)):�VRCHK:vr%=VR%:�VGET(P$(3)):VR%=vr%:SRE%=VG%
Q�0�N1%=0�N1%>NOF%��ERROR("Field out of range")
Q��SRE%<1 � SRE%>NOR%�SRE%=1
Q�ML=SRE%:�#B=(N1%-1)*61+109:�#B,TI$:�P$(2),1)="$"�C$=S$(VR%):�C$=�(A(VR%))
Q�5A(35)=L:�#C=(L-1)*REC%+�(TI$):�#C,N$:�C$=N$��PMR
Q�L=L+1:�L>NOR%��PCR:��`yQ
RA(35)=0:�PnO
R	�PnO
R
A(35)=L:�PnO
R�O(6)=1��OUTPUT1:��OUTPUT2
R	�`~Q
RA(35)=L:�PnO
R!�O(6)=1��OUTPUT1:��OUTPUT2
R&	�@DR
R+A(35)=1:�FCH
R0Y�PGET2:N1%=�(�P$(1),2)):VR%=�(�P$(2),2)):�VRCHK:vr%=VR%:�VGET(P$(3)):VR%=vr%:SRE%=VG%
R50�N1%=0�N1%>NOF%��ERROR("Field out of range")
R7�SRE%<1 � SRE%>NOR%�SRE%=1
R:2L=SRE%:�P$(2),1)="$"�C$=S$(VR%):�C$=�(A(VR%))
R?XA(35)=L:�#B=(N1%-1)*61+109:�#B,TI$:�#C=(L-1)*REC%+�(TI$):�#C,N$:X=�N$,C$):�X>0��P\R
RDL=L+1:�L>NOR%��PCR:��PR
RIJX2=�:Y2=�:L=3:�FIR$,2,1)=�(254)�X2=�(�FIR$,3,2)):Y2=�(�FIR$,5,2)):L=7
RN�X2=0�Y2=28��X,Y);�8," ")
RS6VR%=�(�FIR$,(L+1),2)):�VRCHK:�TY5:S$(VR%)=N$:�PnO
RXJX2=�:Y2=�:L=3:�FIR$,2,1)=�(254)�X2=�(�FIR$,3,2)):Y2=�(�FIR$,5,2)):L=7
R]�X2=0�Y2=28��X,Y);�5," ")
Rb6VR%=�(�FIR$,(L+1),2)):�VRCHK:�TY6:S$(VR%)=N$:�PnO
Rg	��TY5
Rl�X2,Y2);"../../..":N$=""
RqX3=X2:�DAT:�DE=1��@lR
Rv'N$=N$+DAT$:X3=X2+3:�DAT:�DE=1��@lR
R{/N$=N$+"/"+DAT$+"/":X3=X2+6:�DAT:�DE=1��@lR
R�N$=N$+DAT$
R�IN=�:�IN=13��pOR
R��IN=127��@lR��pER
R��
R�	��DAT
R�DE=0:DAT$="":X4=X3
R�IN=�:�IN=127�DE=1:�prR
R�#�IN<48�IN>57��1,-15,100,2:�p^R
R�;�X3,Y2);�(IN):DAT$=DAT$+�(IN):X3=X3+1:�X3>(X4+1)��prR
R�	�p^R
R��
R�	��TY6
R��X2,Y2);"..:..":N$=""
R�X3=X2:�DAT:�DE=1��p|R
R�N$=N$+DAT$+":":X3=X2+3:�DAT
R�N$=N$+DAT$
R�IN=�:�IN=13��`ZR
R��IN=127��p|R��`PR
R��
R�0SET%=�(�FIR$,2)):�SET%=1��129:O(5)=1:�:�PnO
R��SET%=3��16:O(5)=3:�:�PnO
R��15:O(5)=2:�:�PnO
S\�:�PnO
Sa)�ERROR("Program run ended with EXIT")
Sf�FCH
SkD�PGET2:L=1:CR%=A(35):�SO$="1"��#C=(CR%*REC%)-10:�#C,N$:CR%=�(N$)
SuQ�VGET(P$(L)):�VG%=0�VG%>NOF%��ERROR("Field retrieval parameter out of range")
Sz��#B=(VG%-1)*61+109:�#B,TI$:�#B=(VG%-1)*61+104:�#B,IN$:�#C=(CR%-1)*REC%+�(TI$):�#C,N$:�O(2)=1�N$=N$+Ļ(IN$)-�(N$)," ")+" ":��O(2)=2�N$=N$+Ļ(IN$)-�(N$)," ")+"|"
S�O(2)=0�N$=N$+" "
S�$�N$;:L=L+1:�L>NP%��:�PnO:��@uS
S��FCH
S�D�PGET2:L=1:CR%=A(35):�SO$="1"��#C=(CR%*REC%)-10:�#C,N$:CR%=�(N$)
S�*�O(2)>0��"Record               ";A(35)
S�Q�VGET(P$(L)):�VG%=0�VG%>NOF%��ERROR("Field retrieval parameter out of range")
S�r�#B=(VG%-1)*61+63:�#B,FL$:�#B=(VG%-1)*61+109:�#B,TI$:�#B=(VG%-1)*61+104:�#B,IN$:�#C=(CR%-1)*REC%+�(TI$):�#C,N$
S�4�FL$;�(21-�(FL$));N$:L=L+1:�L>NP%��:�PnO:��pXS
S���VGET(VG$):�VG$=""�VG%=0
S�7�VG$,1)="&"�VR%=�(�VG$,2)):�VRCHK:VG%=A(VR%):�p{S
S�;�VG$,1)="$"�VR%=�(�VG$,2)):�VRCHK:VG%=�(S$(VR%)):�p{S
S�VG%=�(VG$)
S��
S��FCH
S�9CR%=A(35):�SO$="1"��#C=(CR%*REC%)-10:�#C,N$:CR%=�(N$)
S�aN1$=�FIR$,1):�VGET(�FIR$,2)):�VG%>NOF%�VG%<0��ERROR("Field retrieval parameter out of range")
S��VG%=0�VG%=NOF%
S�3�N1$="?"��O(2)>0��"Record               ";A(35)
S��N1$=">"�O(2)>0��A(35);"|";
S��I=1�VG%
S��#B=(I-1)*61+109:�#B,TI$:�#B=(I-1)*61+104:�#B,IN$:�#C=(CR%-1)*REC%+�(TI$):�#C,N$:�#B=(I-1)*61+63:�#B,FL$:�N1$=">"�O(2)=1�N$=N$+Ļ(IN$)-�(N$)," ")+" "
S�0�N1$=">"�O(2)=2�N$=N$+Ļ(IN$)-�(N$)," ")+"|"
S��N1$=">"��N$;
S�!�N1$="?"��FL$;�(21-�(FL$));N$
S��I:�:�PnO
S�?�FO%=0��ERROR("No file open"):��NOR%=0��ERROR("File empty")
T
`�PGET2:N1%=�(�P$(1),2)):VR%=�(�P$(2),2)):�VRCHK:�N1%=0�N1%>NOF%��ERROR("Field out of range")
T/L=1:N1$=�FIR$,1):�#B=(N1%-1)*61+109:�#B,TI$
T6SU%=0:AVG=SU%:MAX=�("-99999999"):MIN=�("99999999")
TM�#C=(L-1)*REC%+�(TI$):�#C,C$:N2=�(C$):SU%=SU%+N2:AVG=SU%:�N2>MAX � MAX=N2
T�N2<MIN � MIN=N2
TL=L+1:�L>NOR%��P_T:��PPT
T-AVG=(SU%/(L-1)):�N1$="F"�A(VR%)=SU%:�PnO
T$�N1$="G"�A(VR%)=AVG:�PnO
T)�N1$="H"�A(VR%)=MAX:�PnO
T.�N1$="I"�A(VR%)=MIN:�PnO
T3LX=AVG:LS=0:L=1
T8N�#C=(L-1)*REC%+�(TI$):�#C,C$:LS=LS+(�(C$)-LX)^2:L=L+1:�L>NOR%��P}T:��PxT
T=$�N1$="K"�A(VR%)=(LS/(L-1)):�PnO
TBA(VR%)=�(LS/(L-1)):�PnO
TG&N1$=�FIR$,2):VR%=�(�N1$,2)):�VRCHK
TL&�N1$,1)="$"�I$=�:S$(VR%)=I$:�PnO
TQ(�N1$,1)="&"�I$=�:A(VR%)=�(I$):�PnO
TV�ERROR("Bad GETKEY")
T[PG%=3:�PGET2:PG%=2
T`I$=�:L=1
Te/�P$(L),1)=I$�SC%=�(P$(L+1))-1:�PnO:�L=L+2
Tj3�L>15�AS$=�(�(I$)):�"FX138,0,"+AS$:�PnO:��@eT
To!�FO%=0��ERROR("No file open")
Tt8FIL$=�FIR$,2):�FIL$=""�TF%=NOF%:��VGET(FIL$):TF%=VG%
Ty�O(2)>0��(9);
T~v�I=1�TF%:�#B=(I-1)*61+63:�#B,FL$:�#B=(I-1)*61+104:�#B,IN$:�(IN$)>=�(FL$)��FL$+Ļ(IN$)-�(FL$)," ")+" ";:��FL$+" ";
T��I:�:�PnO
T�S�PGET2:VR%=�(�P$(1),2)):�VRCHK:DA$=S$(VR%):�(DA$)<>8��ERROR("Bad CDAT string")
T�@�(�DA$,3,1)<>"/")�(�DA$,6,1)<>"/")��ERROR("Bad CDAT string")
T�7�CTOD(DA$):VR%=�(�P$(2),2)):�VRCHK:A(VR%)=PD1:�PnO
T�N�PGET2:VR%=�(�P$(1),2)):�VRCHK:DA=A(VR%):�DA<1��ERROR("Bad DATC variable")
T�7VR%=�(�P$(2),2)):�VRCHK:�DTOC(DA):S$(VR%)=P1$:�PnO
T�?��CTOD(P1$):P1=�(�P1$,1,2)):P2=�(�P1$,4,2)):P3=�(�P1$,7,2))
T��P1<1�P2<1�P2>12�P3<0��`NT
T�"�P1<=�(�SEG$,(2*P2)-1,2))��puT
T�0� P1<>29 � P2<>2 � P3-(�(P3/4)*4)<>0 � �`NT
T�PD1=P1:�P2=1��pT
T�1�P4=1�(P2-1):PD1=PD1+�(�SEG$,(2*P4)-1,2)):�P4
T� PD1=PD1+(365*P3)+�((P3+3)/4)
T�$�P3=�(P3/4)*4 � P2>2 � PD1=PD1+1
T�	�`ST
T�
PD1=-1
T��
T���DTOC(PD2)
T�P1=�(PD2/366):P3=1
T�P5=�((P1+3)/4):P4=P1-(P5*4)
T�.P2=PD2-(365*P1)-P5:�P4=0 � P5=366 � P5=365
T��P2>P5 � P1=P1+1:�`bT
T��P2<1 � P1=P1-1:�`bT
T�0P5=�(�SEG$,(2*P3)-1,2)):�P3=2�P4=0 � P5=P5+1
T�#�P2>P5 � P3=P3+1:P2=P2-P5:�`vT
U$P1$=�(P2):P1$=�2-�(P1$),"0")+P1$
U#P2$=�(P3):�(P2$)>2�P2$=�P2$,2)
U
"P1$=P1$+"/"+�2-�(P2$),"0")+P2$
U#P2$=�(P1):�(P2$)>2�P2$=�P2$,2)
U"P1$=P1$+"/"+�2-�(P2$),"0")+P2$
UPD1=PD2
U�
U#��PGET2:VR%=�(�P$(1),2)):�VRCHK:N1%=VR%:VR%=�(�P$(2),2)):�VRCHK:N2%=VR%:VR%=�(�P$(3),2)):�VRCHK:N3%=VR%:A(N1%)=�S$(N2%),S$(N3%)):�PnO
U(C�J=1�15:P$(J)="":�J:�PGET2:�I=1�15:�VGET(P$(I)):P$(I)=�(VG%):�I
U-�� �(P$(1)),�(P$(2)),�(P$(3)),�(P$(4)),�(P$(5)),�(P$(6)),�(P$(7)),�(P$(8)),�(P$(9)),�(P$(10)),�(P$(11)),�(P$(12)),�(P$(13)),�(P$(14)),�(P$(15))
U2	�PnO
U7b�PGET2:VR%=�(�P$(1),2)):�VRCHK:N$=�(A(VR%)):�VGET(P$(2)):TRM=VG%:�TRIM:VR%=�(�P$(3),2)):�VRCHK
U<;S$(VR%)=N$:LE%=�(P$(4)):�P$(4),1)="-"�LE%=�(�P$(4),2))
U>�LE%=0��PnO
UAi�P$(4),1)="-"�S$(VR%)=�LE%-�(S$(VR%))," ")+S$(VR%):�PnO:�S$(VR%)=S$(VR%)+�LE%-�(S$(VR%))," "):�PnO
UF��PGET2:VR%=�(�P$(1),2)):�VRCHK:VR1%=VR%:VR%=�(�P$(2),2)):�VGET(P$(3)):VG1%=VG%:�VGET(P$(4)):�VG%>0�S$(VR1%)=�S$(VR%),VG1%,VG%):�PnO
UK!S$(VR1%)=�S$(VR%),VG1%):�PnO
UPf�PGET2:VR%=�(�P$(1),2)):�VRCHK:VR1%=VR%:VR%=�(�P$(2),2)):�VGET(P$(3)):S$(VR1%)=�S$(VR%),VG%):�PnO
UU,VR%=�(�FIR$,3)):�VRCHK:S$(VR%)=DA$:�PnO
UZ2VR%=�(�FIR$,3)):�VRCHK:S$(VR%)=��$,17,5):�PnO
U_#�J=0�35:A(J)=0:S$(J)=0:�J:�PnO
Ud�FCH
Ui4�I=1�NOR%:A(35)=I:�FIR$="V"��OUTPUT1:��OUTPUT2:�
Un�:�I:A(35)=1:�PnO
Usc�PGET2:�VGET(P$(1)):X=VG%:�VGET(P$(2)):Y=VG%:�VGET(P$(3)):W%=VG%:�VGET(P$(4)):L%=VG%:�LWN:�PnO
Ux*�PGET2:�VGET(P$(1)):�O(5)=2��VG%:�PnO
U}"�VG%>127��19,0,VG%,0,0,0:�PnO
U��VG%:�PnO
U� �ERROR("Bad COLOUR setting")
U���FOPOUT
U�&�"CLOSE":X=� FO$:POI=(CF%-1)*61+63
U��#X=POI:�#X,FL$
U� �#X=POI+22:�#X,ZZ$:X1=�(ZZ$)
U� �#X=POI+26:�#X,ZZ$:Y1=�(ZZ$)
U� �#X=POI+30:�#X,ZZ$:X2=�(ZZ$)
U� �#X=POI+34:�#X,ZZ$:Y2=�(ZZ$)
U��#X=POI+38:�#X,TY$
U�!�#X=POI+41:�#X,ZZ$:IN%=�(ZZ$)
U�!�#X=POI+46:�#X,ZZ$:TI%=�(ZZ$)
U��#X=POI+54:�#X,TR$
U��#X=POI+58:�#X,NP$
U��
U�	��LWN
U�y�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)
U��
U�
��TIME
U�6S%=(� �100)�60:M%=(� �6000)�60:H%=(� �360000)�24:�
U��FCH
U� �"CLOSE":�FIR$,1)="@"��ttT
U��FIR$,1)="A"��`zU
U� �"CLOSE":B=�FO$:C=�FI$:�p_Q
U��FCH
U�gSF%=1:SR%=1:�"FX4,1":�SO$="1"��"CLOSE":X=�FO$:�#X=23:�#X,NO$:�#X=(�(NO$)-1)*61+63:�#X,SOL$:�"CLOSE"
VAF%=1:SL%=71:TU%=9:TF=0
V	�I=SF%�SF%+10
V.�I>NOF%�C(AF%)=0:SP%=I:TF=1:I=SF%+10:�PgV
VCF%=I:�FOPOUT:�IN%>70��PgV
V/�IN%>SL%�C(AF%)=0:SP%=I:TF=1:I=SF%+10:�PgV
V$TEN%=IN%:�IN%<�(FL$)�TEN%=�(FL$)
V"XTEN%=TEN%+1:C(AF%)=I:C(AF%+10)=TU%:C(AF%+20)=TI%:AF%=AF%+1:SL%=SL%-TEN%:TU%=TU%+TEN%
V'�I:�TF=0�SP%=I
V,+H=0:Y=8:FR%=SR%+19:�:�FR%>NOR%�FR%=NOR%
V1��9,4);"File: ";FI$;�9,1);"Use keys ���� to move around database. 'Q' quits this mode.":�SO$="1"��30,4);"(Sorted on ";SOL$;")"
V6H=H+1:�C(H)=0��@JV
V;y�"CLOSE":X=� FO$:�#X=(C(H)-1)*61+63:�#X,FL$:�#X=(C(H)-1)*61+63+41:�#X,ZZ$:IN%=�(ZZ$):TEN%=IN%:�IN%<�(FL$)�TEN%=�(FL$)
V@.�C(H+10),6);FL$;�C(H+10),7);�TEN%,�(224))
VE�H=10��@JV��PvV
VJF=SR%-1:�"CLOSE":X=�FI$
VO/F=F+1:J=0:�0,Y);"00000000";�8-�(�(F)),Y);F
VTJ=J+1:�C(J)=0��@hV
VY5AF%=F:�SO$="1"��#X=(F*REC%)-10:�#X,AF$:AF%=�(AF$)
V^3�#X=(AF%-1)*REC%+C(J+20):�#X,N$:�C(J+10),Y);N$
Vc�J=10��@hV��@TV
VhY=Y+1:�F=FR%��@mV��@OV
VmC�FR%=NOR%��9,Y);�71,�(224));�9,Y+2);"End of file":�2,-15,100,4
VrI$=�
Vw�I$="�"��pUV
V|�I$="�"��piV
V��I$="�"��psV
V��I$="�"��p}V
V��I$="Q"��"FX4,0":�`uU
V�	�@rV
V��FR%=NOR%��p_V
V�	�pdV
V��1,-15,150,2:�@rV
V�SR%=FR%+1:�PlV
V��SR%=1��p_V
V�SR%=SR%-20:�PlV
V��SP%>NOF%��p_V
V�SF%=SP%:ST%=C(1):�PDV
V��SF%=1��p_V
V�SF%=1:�PDV
V���SC
V�o�0,0);�80,�(162));�0,22);�80,�(162)):�17,29);"Mode: BROWSE  File: ";FI$;�50,29);"Record: ";CR%;"        "
V��71,0);"PAGE";�76,0);P%
Vְ�17,24);:�202;203;32;32;206;207;32;32;204;205;32;32;208;209;32;32;210;211;32;32;212;213;32;32;214;209;32;32;212;215;32;32;216;217;32;32;218;219;32;32;220;222;32;32;221;222
V��X5,26);�(223)
V��
V�"�SGET2(�FIR$,2)):�""+FT$:�PnO
V�
��OUTPUT1
V�F�A(35)>NOR%�A(35)=0��ERROR("Record control variable out of range")
V�9CR%=A(35):�SO$="1"��#C=(CR%*REC%)-10:�#C,N$:CR%=�(N$)
V��O(2)>0��A(35);"|";
V�
�F=1�NOF%
W��#B=(F-1)*61+109:�#B,TI$:�#B=(F-1)*61+104:�#B,IN$:�#C=(CR%-1)*REC%+�(TI$):�#C,N$:�O(2)=1�N$=N$+Ļ(IN$)-�(N$)," ")+" ":��O(2)=2�N$=N$+Ļ(IN$)-�(N$)," ")+"|"
W�O(2)=0�N$=N$+" "
W

�N$;:�F:�
W
��OUTPUT2
WF�A(35)>NOR%�A(35)=0��ERROR("Record control variable out of range")
W9CR%=A(35):�SO$="1"��#C=(CR%*REC%)-10:�#C,N$:CR%=�(N$)
W!*�O(2)>0��"Record               ";A(35)
W&��F=1�NOF%:�#B=(F-1)*61+63:�#B,FL$:�#B=(F-1)*61+109:�#B,TI$:�#B=(F-1)*61+104:�#B,IN$:�#C=(CR%-1)*REC%+�(TI$):�#C,N$:�FL$;�(21-�(FL$));N$:�F:�
W+��TRIM:TRN=�(N$):L=1
W0�TRM=0�N$=�(�(TRN)):�@SW
W50�TRN=�(TRN)�N$=�(�(TRN))+"."+�TRM,"0"):�@SW
W:L=�N$,"."):�PW
W?@TRM$=�N$,(L+1),�(N$)-L):�(TRM$)>TRM � TRM$=�TRM$,TRM):�@NW
WD6�(TRM$)<TRM � TRM$=TRM$+�(TRM-�(TRM$)),"0"):�@NW
WI	�@SW
WNN$=�N$,L)+TRM$
WS�
WXpSG$=�FIR$,2):�STGET:S=�SG$:�#S,COR$:X=�(�COR$,1,2)):Y=�(�COR$,3,2)):W%=�(�COR$,5,2))+3:L%=�(�COR$,7,2)):�LWN
W]]�I=1�L%:�#S,P$(I):�I:�#S:X=X+1:Y=Y+1:�SELECT:AS$=�(�(�P$(SEL%),1))):�"FX138,0,"+AS$:�PnO
Wb.��SELECT:�"FX4,1":ED%=Y+(L%-1):BG%=Y:MX%=0
Wg%�"FX4,1":ED%=Y+(L%-1):BG%=Y:MX%=0
WlC�I=1�L%:�X,Y+(I-1));"   ";�P$(I),2):�(P$(I))>MX%�MX%=�(P$(I))
Wq
�I:SEL%=1
WvL�135:�0:�X,Y);" ";�(252);" ";�P$(SEL%),2);�MX%-�(P$(SEL%))," "):�128:�7
W{I$=�(0):�I$=""��TIME:�@{W
W��I$=�(13)��pmW
W��I$="�"�I$="D"��pTW
W��I$="�"��pcW
W�	�@{W
W��Y=ED%��@{W
W�!�CLEA:Y=Y+1:SEL%=SEL%+1:�@vW
W�<��CLEA:�X,Y);"   ";�P$(SEL%),2);�MX%-�(P$(SEL%))," "):�
W��Y=BG%��@{W
W�!�CLEA:Y=Y-1:SEL%=SEL%-1:�@vW
W��
W�
��COMPARE
W�
COM%=0
W��TP$="2"��`iW
W��N$,1)="*"��P[X
W� �OP$="1"��N$=C$�COM%=1:�PoX
W�!�OP$="2"��N$<>C$�COM%=1:�PoX
W� �OP$="3"��N$>C$�COM%=1:�PoX
W� �OP$="4"��N$<C$�COM%=1:�PoX
W�!�OP$="5"��N$>=C$�COM%=1:�PoX
W�!�OP$="6"��N$<=C$�COM%=1:�PoX
W�	�PoX
W��TY$="5"�X$=C$:�CONDI
W��TY$="6"�X$=C$:�CONTI
W� �OP$="1"��N=NO �COM%=1:�PoX
W�!�OP$="2"��N<>NO �COM%=1:�PoX
W� �OP$="3"��N>NO �COM%=1:�PoX
X �OP$="4"��N<NO �COM%=1:�PoX
X!�OP$="5"��N>=NO �COM%=1:�PoX
X,�OP$="7"��NO >VL1 �NO <VL2 �COM%=1:�PoX
X!�OP$="6"��N<=NO �COM%=1:�PoX
X	�PoX
X�(N$)=1��`FW
X 2�OP$="1"�COM%=�C$,�N$,2,�(N$))):�COM%>1�COM%=1
X%9�(OP$)>1�COM%=�C$,�N$,2,�(N$))):�COM%=0�COM%=1:�PoX
X*�(OP$)>1��COM%>0�COM%=0
X/�
X4��CONDI
X97XX$="":XX$=XX$+�X$,7,2)+�X$,4,2)+�X$,1,2):NO=�(XX$)
X>�
XC��CONTI
XH.XX$="":XX$=XX$+�X$,4,2)+�X$,1,2):NO=�(XX$)
XM�
XR��OUTPUT:B=�FO$
XW4�O(7)=0�A(35)=CR%:TEMP%=CR%:�OUTPUT1:�:CR%=TEMP%
X\4�O(7)=1�A(35)=CR%:TEMP%=CR%:�OUTPUT2:�:CR%=TEMP%
Xa	�#B:�
Xf	�`|N
XzS��SELECTM:�"FX4,1":ED%=Y+(L%-1):BG%=X+(W%-1):�I=1�L%:�X,Y+(I-1));"  ";P$(I):�I
X+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
X��BUT=4��pIX:��@X
X��YP<Y � YP>ED%��@X
X��XP<X � XP>BG%��@X
X�SEL%=(YP-Y)+1:�
�m 
�r� �MyFile(file$)
�|="<DataVision$Dir>."+file$
�}� �UserFile(file$)
�~
=file$
��� �Quit
��ș "Wimp_CommandWindow",-1
��Ș
���
�X
��Dir(d$)
�b� "Dir <DataVision$Dir>"+d$
�l�
�

00000000  0d 00 01 18 f4 20 3e 20  24 2e 21 44 61 74 61 56  |..... > $.!DataV|
00000010  69 73 2e 21 64 76 31 35  0d 00 04 1d c8 99 22 57  |is.!dv15......"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 05  10 eb 20 31 35 3a fb 20  |w",-1..... 15:. |
00000040  31 38 30 3a db 0d 00 06  0d d8 3a 46 47 25 3d 31  |180:......:FG%=1|
00000050  38 30 0d 00 07 4d ff 22  43 4c 4f 53 45 22 3a 58  |80...M."CLOSE":X|
00000060  3d ad 28 a4 4d 79 46 69  6c 65 28 22 4e 49 4d 22  |=.(.MyFile("NIM"|
00000070  29 29 3a e8 23 58 2c 5a  5a 24 2c 5a 5a 24 2c 44  |)):.#X,ZZ$,ZZ$,D|
00000080  41 24 2c 5a 5a 24 2c 5a  5a 24 2c 4d 44 24 3a ff  |A$,ZZ$,ZZ$,MD$:.|
00000090  22 43 4c 4f 53 45 22 3a  64 61 24 3d 44 41 24 0d  |"CLOSE":da$=DA$.|
000000a0  00 08 19 c8 97 87 3a ee  3a 46 49 4c 24 3d 22 55  |......:.:FIL$="U|
000000b0  6e 74 69 74 6c 65 64 22  0d 00 09 20 6e 6f 6c 25  |ntitled"... nol%|
000000c0  3d 93 2d e0 3a 6e 6f 6c  25 3d 28 6e 6f 6c 25 2f  |=.-.:nol%=(nol%/|
000000d0  31 34 30 29 2d 33 35 30  0d 00 0a 39 ee 20 85 20  |140)-350...9. . |
000000e0  ee 85 87 3a 85 20 31 2c  22 4e 6f 74 20 65 6e 6f  |...:. 1,"Not eno|
000000f0  75 67 68 20 6d 65 6d 6f  72 79 20 74 6f 20 73 74  |ugh memory to st|
00000100  61 72 74 20 52 65 70 6f  72 74 57 72 69 74 65 72  |art ReportWriter|
00000110  22 0d 00 0b 4e de 4c 24  28 6e 6f 6c 25 29 3a de  |"...N.L$(nol%):.|
00000120  57 24 28 38 37 29 3a de  53 24 28 33 35 29 3a de  |W$(87):.S$(35):.|
00000130  50 24 28 31 35 29 3a 50  4f 25 3d 30 3a 4d 56 25  |P$(15):PO%=0:MV%|
00000140  3d 33 35 3a 45 3d 31 37  33 30 3a 47 3d 32 30 32  |=35:E=1730:G=202|
00000150  30 3a 4b 3d 32 30 33 30  3a 48 3d 33 31 30 30 0d  |0:K=2030:H=3100.|
00000160  00 0c 07 ee 85 87 0d 00  0e 27 43 4f 24 3d 22 55  |.........'CO$="U|
00000170  6e 74 69 74 6c 65 64 22  3a de 4d 45 24 28 31 33  |ntitled":.ME$(13|
00000180  29 3a 64 24 3d 22 5e 23  23 40 28 2a 22 0d 00 0f  |):d$="^##@(*"...|
00000190  72 de 4f 28 39 29 3a de  41 28 33 35 29 3a de 47  |r.O(9):.A(35):.G|
000001a0  25 28 31 30 29 3a de 43  25 28 33 30 29 3a 4d 4c  |%(10):.C%(30):ML|
000001b0  25 3d 30 3a 47 53 42 25  3d 30 3a 46 4f 25 3d 30  |%=0:GSB%=0:FO%=0|
000001c0  3a 50 47 25 3d 32 3a 53  45 47 24 3d 22 33 31 32  |:PG%=2:SEG$="312|
000001d0  38 33 31 33 30 33 31 33  30 33 31 33 31 33 30 33  |8313031303131303|
000001e0  31 33 30 33 31 22 3a 50  44 31 3d 31 3a 65 3d 32  |13031":PD1=1:e=2|
000001f0  31 35 30 30 3a 4c 4f 25  3d bb 28 22 32 22 29 0d  |1500:LO%=.("2").|
00000200  00 14 15 e3 49 3d 31 b8  35 39 3a f3 57 24 28 49  |....I=1.59:.W$(I|
00000210  29 3a ed 49 0d 00 28 0c  20 ee 85 e5 8d 64 54 43  |):.I..(. ....dTC|
00000220  0d 00 32 13 fb 46 47 25  3a fb 31 32 37 3a e5 8d  |..2..FG%:.127:..|
00000230  54 60 43 0d 00 64 9d dc  22 4c 45 54 22 2c 22 50  |T`C..d.."LET","P|
00000240  52 49 4e 54 22 2c 22 49  46 22 2c 22 41 43 43 45  |RINT","IF","ACCE|
00000250  50 54 22 2c 22 47 45 54  22 2c 64 24 2c 64 24 2c  |PT","GET",d$,d$,|
00000260  22 47 4f 54 4f 22 2c 64  24 2c 64 24 2c 22 57 48  |"GOTO",d$,d$,"WH|
00000270  49 4c 45 22 2c 22 45 4e  44 57 48 49 4c 45 22 2c  |ILE","ENDWHILE",|
00000280  22 4f 50 45 4e 22 2c 64  24 2c 64 24 2c 64 24 2c  |"OPEN",d$,d$,d$,|
00000290  22 46 49 4e 44 22 2c 22  53 45 45 4b 22 2c 22 41  |"FIND","SEEK","A|
000002a0  43 43 45 50 54 44 41 54  45 22 2c 22 41 43 43 45  |CCEPTDATE","ACCE|
000002b0  50 54 54 49 4d 45 22 2c  22 4d 4f 44 45 22 2c 64  |PTTIME","MODE",d|
000002c0  24 2c 64 24 2c 64 24 2c  64 24 2c 22 43 4c 53 22  |$,d$,d$,d$,"CLS"|
000002d0  0d 00 69 b8 dc 22 45 58  49 54 22 2c 22 53 45 4c  |..i.."EXIT","SEL|
000002e0  43 4c 49 53 54 22 2c 22  53 45 4c 4c 49 53 54 22  |CLIST","SELLIST"|
000002f0  2c 22 43 4c 49 53 54 22  2c 22 4c 49 53 54 22 2c  |,"CLIST","LIST",|
00000300  64 24 2c 64 24 2c 64 24  2c 22 46 49 45 4c 44 53  |d$,d$,d$,"FIELDS|
00000310  22 2c 22 47 45 54 4b 45  59 22 2c 22 4d 45 4e 55  |","GETKEY","MENU|
00000320  4b 45 59 22 2c 22 53 55  4d 22 2c 22 41 56 47 22  |KEY","SUM","AVG"|
00000330  2c 22 4d 41 58 22 2c 22  4d 49 4e 22 2c 64 24 2c  |,"MAX","MIN",d$,|
00000340  64 24 2c 22 43 44 41 54  22 2c 22 44 41 54 43 22  |d$,"CDAT","DATC"|
00000350  2c 22 53 55 42 53 54 52  22 2c 22 53 43 52 4e 4f  |,"SUBSTR","SCRNO|
00000360  55 54 22 2c 22 54 52 49  4d 22 2c 22 53 45 47 22  |UT","TRIM","SEG"|
00000370  2c 22 52 53 45 47 22 2c  22 54 4f 44 41 59 22 2c  |,"RSEG","TODAY",|
00000380  22 4e 4f 57 22 2c 64 24  0d 00 6a 0b dc 20 64 24  |"NOW",d$..j.. d$|
00000390  2c 64 24 0d 00 6e 1b dc  64 24 2c 22 50 4f 50 55  |,d$..n..d$,"POPU|
000003a0  50 22 2c 22 43 4f 4c 4f  55 52 22 2c 64 24 0d 00  |P","COLOUR",d$..|
000003b0  8c 26 dd f2 47 4e 41 4d  45 3a 46 49 4c 24 3d c1  |.&..GNAME:FIL$=.|
000003c0  54 24 2c 53 29 3a e7 46  49 4c 24 3d 22 22 8c e5  |T$,S):.FIL$=""..|
000003d0  8d 54 65 43 0d 00 8e 05  e1 0d 00 96 09 dd f2 4c  |.TeC...........L|
000003e0  57 4e 0d 00 98 7b f1 8a  58 2c 59 29 3b bd 28 31  |WN...{..X,Y);.(1|
000003f0  35 34 29 3b c4 57 25 2c  bd 28 31 35 39 29 29 3b  |54);.W%,.(159));|
00000400  bd 28 31 35 38 29 3a e3  49 3d 59 2b 31 b8 59 2b  |.(158):.I=Y+1.Y+|
00000410  4c 25 3a f1 8a 58 2c 49  29 3b bd 28 31 35 35 29  |L%:..X,I);.(155)|
00000420  3b c4 57 25 2c 22 20 22  29 3b bd 28 31 35 37 29  |;.W%," ");.(157)|
00000430  3a ed 49 3a f1 8a 58 2c  59 2b 28 4c 25 2b 31 29  |:.I:..X,Y+(L%+1)|
00000440  29 3b bd 28 31 35 36 29  3b c4 57 25 2c bd 28 31  |);.(156);.W%,.(1|
00000450  36 30 29 29 3b bd 28 31  36 31 29 3a e1 0d 01 c2  |60));.(161):....|
00000460  34 dd f2 43 4f 4e 56 28  56 31 24 2c 56 32 25 29  |4..CONV(V1$,V2%)|
00000470  3a e7 a9 28 56 31 24 29  3e 56 32 25 8c 53 54 4e  |:..(V1$)>V2%.STN|
00000480  24 3d c0 56 31 24 2c 56  32 25 29 3a e5 8d 64 47  |$=.V1$,V2%):..dG|
00000490  41 0d 01 c4 1f 53 54 4e  24 3d 56 31 24 2b c4 28  |A....STN$=V1$+.(|
000004a0  56 32 25 2d a9 28 56 31  24 29 29 2c 22 20 22 29  |V2%-.(V1$))," ")|
000004b0  0d 01 c7 05 e1 0d 01 f4  09 e5 8d 54 65 43 0d 02  |...........TeC..|
000004c0  12 0c db 3a f2 47 4e 41  4d 45 0d 02 13 19 e3 49  |...:.GNAME.....I|
000004d0  3d 31 b8 6e 6f 6c 25 3a  4c 24 28 49 29 3d 22 22  |=1.nol%:L$(I)=""|
000004e0  3a ed 49 0d 02 14 71 58  3d ad 46 49 4c 24 3a e8  |:.I...qX=.FIL$:.|
000004f0  23 58 2c 43 24 3a fb 31  32 37 3a f1 22 4c 6f 61  |#X,C$:.127:."Loa|
00000500  64 69 6e 67 20 22 3b 46  49 4c 24 3b 22 2e 2e 2e  |ding ";FIL$;"...|
00000510  22 3a e3 49 3d 31 b8 6e  6f 6c 25 3a 4c 24 28 49  |":.I=1.nol%:L$(I|
00000520  29 3d 22 22 3a ed 49 3a  e3 49 3d 31 b8 bb 28 43  |)="":.I:.I=1..(C|
00000530  24 29 3a e8 23 58 2c 4c  24 28 49 29 3a ed 49 3a  |$):.#X,L$(I):.I:|
00000540  f1 22 4c 6f 61 64 65 64  22 3a fb 34 35 3a 2a 43  |."Loaded":.45:*C|
00000550  4c 4f 53 45 0d 02 15 18  50 4f 25 3d 31 3a 43 4f  |LOSE....PO%=1:CO|
00000560  24 3d 46 49 4c 24 3a e5  8d 54 65 43 0d 02 17 17  |$=FIL$:..TeC....|
00000570  4c 3d 6e 6f 6c 25 3a e7  50 4f 25 3d 30 8c e5 8d  |L=nol%:.PO%=0...|
00000580  64 74 41 0d 02 19 14 e7  4c 24 28 4c 29 3c 3e 22  |dtA.....L$(L)<>"|
00000590  22 8c e5 8d 54 5c 42 0d  02 1a 1b 4c 3d 4c 2d 31  |"...T\B....L=L-1|
000005a0  3a e7 4c 3d 30 8c e5 8d  54 65 43 3a 8b e5 8d 54  |:.L=0...TeC:...T|
000005b0  59 42 0d 02 1c 17 4c 24  28 30 29 3d c3 28 4c 29  |YB....L$(0)=.(L)|
000005c0  3a 43 4f 24 3d 46 49 4c  24 0d 02 1e 5d fb 31 32  |:CO$=FIL$...].12|
000005d0  37 3a f1 22 53 61 76 69  6e 67 20 22 3b 46 49 4c  |7:."Saving ";FIL|
000005e0  24 3b 22 2e 2e 2e 22 3a  58 3d ae 46 49 4c 24 3a  |$;"...":X=.FIL$:|
000005f0  e3 49 3d 30 b8 bb 28 4c  24 28 30 29 29 3a f1 23  |.I=0..(L$(0)):.#|
00000600  58 2c 4c 24 28 49 29 3a  ed 49 3a ff 22 43 4c 4f  |X,L$(I):.I:."CLO|
00000610  53 45 22 3a f1 22 53 61  76 65 64 22 3a fb 34 35  |SE":."Saved":.45|
00000620  3a e5 8d 54 65 43 0d 02  26 0b ee 85 e5 8d 54 70  |:..TeC..&.....Tp|
00000630  42 0d 02 28 18 db 3a f1  8a 30 2c 37 29 3b 3a ff  |B..(..:..0,7);:.|
00000640  22 22 2b 54 24 3a ee 85  87 0d 02 2b 09 e5 8d 64  |""+T$:.....+...d|
00000650  79 41 0d 02 30 07 ee 85  87 0d 02 32 09 e5 8d 64  |yA..0......2...d|
00000660  79 41 0d 02 35 10 e7 50  4f 25 3d 30 8c e5 8d 54  |yA..5..PO%=0...T|
00000670  65 43 0d 02 37 08 fb 31  32 37 0d 02 3a 48 f1 22  |eC..7..127..:H."|
00000680  43 75 72 72 65 6e 74 20  6c 69 73 74 69 6e 67 20  |Current listing |
00000690  6f 66 20 22 3b 43 4f 24  3b 22 3a 22 27 3a e3 49  |of ";CO$;":"':.I|
000006a0  3d 31 b8 6e 6f 6c 25 3a  e7 4c 24 28 49 29 3c 3e  |=1.nol%:.L$(I)<>|
000006b0  22 22 8c f1 c3 28 49 29  3b 22 20 22 3b 4c 24 28  |""...(I);" ";L$(|
000006c0  49 29 0d 02 3f 16 ed 49  3a f1 27 3a ef 33 3a fb  |I)..?..I:.':.3:.|
000006d0  34 35 3a e5 8d 54 65 43  0d 02 44 2a db 3a ef 32  |45:..TeC..D*.:.2|
000006e0  3a e3 49 3d 31 b8 31 35  30 3a e7 4c 24 28 49 29  |:.I=1.150:.L$(I)|
000006f0  3c 3e 22 22 8c f1 49 3b  22 20 20 22 3b 4c 24 28  |<>""..I;"  ";L$(|
00000700  49 29 0d 02 49 0f ed 49  3a ef 33 3a e5 8d 64 74  |I)..I..I:.3:..dt|
00000710  41 0d 03 02 32 db 3a f1  8a 30 2c 33 31 29 3b 22  |A...2.:..0,31);"|
00000720  22 3a e3 49 3d 31 b8 31  35 30 3a e7 4c 24 28 49  |":.I=1.150:.L$(I|
00000730  29 3c 3e 22 22 8c f1 49  3b 22 20 20 22 3b 4c 24  |)<>""..I;"  ";L$|
00000740  28 49 29 0d 03 03 15 e7  bf 28 30 29 3d bd 28 31  |(I)......(0)=.(1|
00000750  33 29 8c 49 3d 31 35 30  0d 03 04 16 ed 49 3a f1  |3).I=150.....I:.|
00000760  27 27 27 3a 59 3d 32 39  3a e5 8d 64 72 43 0d 03  |''':Y=29:..drC..|
00000770  20 77 db 3a 58 3d 30 3a  59 3d 33 3a 57 25 3d 37  | w.:X=0:Y=3:W%=7|
00000780  38 3a 4c 25 3d 32 34 3a  fb 31 38 30 3a f2 4c 57  |8:L%=24:.180:.LW|
00000790  4e 3a ef 32 38 2c 31 2c  32 37 2c 37 38 2c 34 3a  |N:.28,1,27,78,4:|
000007a0  fb 31 32 38 3a db 3a fb  31 33 31 3a f1 22 44 61  |.128:.:.131:."Da|
000007b0  74 61 56 69 73 69 6f 6e  20 52 65 70 6f 72 74 20  |taVision Report |
000007c0  57 72 69 74 65 72 2f 45  6e 71 75 69 72 79 20 4c  |Writer/Enquiry L|
000007d0  61 6e 67 75 61 67 65 22  3b 89 28 33 37 29 3a fb  |anguage";.(37):.|
000007e0  31 32 38 3a ee 0d 03 22  43 f1 27 22 41 76 61 69  |128:..."C.'"Avai|
000007f0  6c 61 62 6c 65 20 6d 65  6d 6f 72 79 3a 20 22 3b  |lable memory: ";|
00000800  6e 6f 6c 25 2a 31 34 30  3b 22 20 62 79 74 65 73  |nol%*140;" bytes|
00000810  20 2f 20 22 3b 6e 6f 6c  25 3b 22 20 6c 69 6e 65  | / ";nol%;" line|
00000820  73 20 66 72 65 65 22 27  0d 03 25 23 fb 31 32 30  |s free"'..%#.120|
00000830  3a ef 33 3a e8 20 86 20  22 3e 22 20 54 24 3a e7  |:.3:. . ">" T$:.|
00000840  54 24 3d 22 22 8c e5 8d  54 65 43 0d 03 27 22 e7  |T$=""...TeC..'".|
00000850  c0 54 24 2c 31 29 3d 22  2a 22 8c fb 31 32 37 3a  |.T$,1)="*"..127:|
00000860  ff 54 24 3a fb 34 35 3a  e5 8d 54 65 43 0d 03 2a  |.T$:.45:..TeC..*|
00000870  1c e7 54 24 3d 22 4c 49  53 54 22 84 54 24 3d 22  |..T$="LIST".T$="|
00000880  4c 2e 22 8c e5 8d 54 75  42 0d 03 2f 20 e7 54 24  |L."...TuB../ .T$|
00000890  3d 22 50 52 49 4e 54 22  84 54 24 3d 22 50 2e 22  |="PRINT".T$="P."|
000008a0  8c ef 32 3a e5 8d 54 75  42 0d 03 31 26 e7 c0 54  |..2:..TuB..1&..T|
000008b0  24 2c 37 29 3d 22 4c 49  53 54 20 49 46 22 8c 53  |$,7)="LIST IF".S|
000008c0  3d 39 3a f2 47 4e 41 4d  45 3a e5 8d 54 6e 44 0d  |=9:.GNAME:..TnD.|
000008d0  03 32 24 e7 c0 54 24 2c  35 29 3d 22 4c 2e 20 49  |.2$..T$,5)="L. I|
000008e0  46 22 8c 53 3d 36 3a f2  47 4e 41 4d 45 3a e5 8d  |F".S=6:.GNAME:..|
000008f0  54 6e 44 0d 03 34 23 e7  c0 54 24 2c 34 29 3d 22  |TnD..4#..T$,4)="|
00000900  4c 4f 41 44 22 8c 53 3d  36 3a f2 47 4e 41 4d 45  |LOAD".S=6:.GNAME|
00000910  3a e5 8d 54 54 42 0d 03  39 23 e7 c0 54 24 2c 34  |:..TTB..9#..T$,4|
00000920  29 3d 22 53 41 56 45 22  8c 53 3d 36 3a f2 47 4e  |)="SAVE".S=6:.GN|
00000930  41 4d 45 3a e5 8d 54 57  42 0d 03 3e 3e e7 54 24  |AME:..TWB..>>.T$|
00000940  3d 22 4e 45 57 22 8c e3  49 3d 31 b8 6e 6f 6c 25  |="NEW"..I=1.nol%|
00000950  3a 4c 24 28 49 29 3d 22  22 3a ed 49 3a 50 4f 25  |:L$(I)="":.I:PO%|
00000960  3d 30 3a 43 4f 24 3d 22  55 6e 74 69 74 6c 65 64  |=0:CO$="Untitled|
00000970  22 3a e5 8d 54 65 43 0d  03 43 21 e7 54 24 3d 22  |":..TeC..C!.T$="|
00000980  54 49 4d 45 22 8c fb 31  32 37 3a f1 91 24 3a fb  |TIME"..127:..$:.|
00000990  34 35 3a e5 8d 54 65 43  0d 03 48 24 e7 c0 54 24  |45:..TeC..H$..T$|
000009a0  2c 35 29 3d 22 54 53 41  56 45 22 8c 53 3d 37 3a  |,5)="TSAVE".S=7:|
000009b0  f2 47 4e 41 4d 45 3a e5  8d 44 4c 44 0d 03 4d 22  |.GNAME:..DLD..M"|
000009c0  e7 c0 54 24 2c 33 29 3d  22 52 55 4e 22 8c 53 3d  |..T$,3)="RUN".S=|
000009d0  35 3a f2 47 4e 41 4d 45  3a e5 8d 60 5e 4e 0d 03  |5:.GNAME:..`^N..|
000009e0  52 18 e7 c0 54 24 2c 34  29 3d 22 51 55 49 54 22  |R...T$,4)="QUIT"|
000009f0  8c e5 8d 64 40 43 0d 03  57 1c e7 54 24 3d 22 6e  |...d@C..W..T$="n|
00000a00  69 6d 53 74 6f 70 5f 64  65 6c 67 22 8c e5 8d 64  |imStop_delg"...d|
00000a10  4a 43 0d 03 5c 25 e7 c0  54 24 2c 36 29 3d 22 49  |JC..\%..T$,6)="I|
00000a20  4e 53 45 52 54 22 8c 53  3d 38 3a f2 47 4e 41 4d  |NSERT".S=8:.GNAM|
00000a30  45 3a e5 8d 64 68 43 0d  03 61 25 e7 c0 54 24 2c  |E:..dhC..a%..T$,|
00000a40  36 29 3d 22 44 45 4c 45  54 45 22 8c 53 3d 38 3a  |6)="DELETE".S=8:|
00000a50  f2 47 4e 41 4d 45 3a e5  8d 54 5f 44 0d 03 84 19  |.GNAME:..T_D....|
00000a60  4c 3d a7 54 24 2c 22 20  22 29 3a e7 4c 3d 30 8c  |L=.T$," "):.L=0.|
00000a70  e5 8d 74 6c 43 0d 03 89  42 4c 4c 3d bb 28 c0 54  |..tlC...BLL=.(.T|
00000a80  24 2c 28 4c 2d 31 29 29  29 3a e7 4c 4c 3c 31 84  |$,(L-1))):.LL<1.|
00000a90  4c 4c 3e 6e 6f 6c 25 20  8c fb 31 32 37 3a f1 22  |LL>nol% ..127:."|
00000aa0  4d 69 73 74 61 6b 65 22  3a fb 31 32 38 3a fb 34  |Mistake":.128:.4|
00000ab0  35 3a e5 8d 54 65 43 0d  03 8e 3f 4e 24 3d c1 54  |5:..TeC...?N$=.T|
00000ac0  24 2c 4c 2b 31 2c 31 29  3a e7 4e 24 3d 22 20 22  |$,L+1,1):.N$=" "|
00000ad0  84 4e 24 3d 22 22 8c fb  31 32 37 3a f1 22 42 61  |.N$=""..127:."Ba|
00000ae0  64 20 6c 69 6e 65 22 3a  fb 31 32 38 3a fb 34 35  |d line":.128:.45|
00000af0  3a e5 8d 54 65 43 0d 03  93 1f 4c 24 28 4c 4c 29  |:..TeC....L$(LL)|
00000b00  3d c1 54 24 2c 4c 2b 31  29 3a 50 4f 25 3d 31 3a  |=.T$,L+1):PO%=1:|
00000b10  e5 8d 54 65 43 0d 03 ac  20 4c 4c 3d bb 28 54 24  |..TeC... LL=.(T$|
00000b20  29 3a e7 4c 4c 3c 31 84  4c 4c 3e 6e 6f 6c 25 8c  |):.LL<1.LL>nol%.|
00000b30  e5 8d 74 76 43 0d 03 b1  38 4c 24 28 4c 4c 29 3d  |..tvC...8L$(LL)=|
00000b40  22 22 3a fb 31 32 37 3a  f1 22 4c 69 6e 65 20 22  |"":.127:."Line "|
00000b50  3b 4c 4c 3b 22 20 72 65  6d 6f 76 65 64 22 3a fb  |;LL;" removed":.|
00000b60  31 32 38 3a fb 34 35 3a  e5 8d 54 65 43 0d 03 b6  |128:.45:..TeC...|
00000b70  22 fb 31 32 37 3a f1 22  4d 69 73 74 61 6b 65 22  |".127:."Mistake"|
00000b80  3a fb 31 32 38 3a fb 34  35 3a e5 8d 54 65 43 0d  |:.128:.45:..TeC.|
00000b90  03 c0 21 46 49 4c 24 3d  c1 54 24 2c 36 29 3a e7  |..!FIL$=.T$,6):.|
00000ba0  46 49 4c 24 3d 22 22 8c  46 49 4c 24 3d 4d 44 24  |FIL$="".FIL$=MD$|
00000bb0  0d 03 c5 0e fb 31 32 37  3a f2 51 75 69 74 0d 03  |.....127:.Quit..|
00000bc0  ca 05 fa 0d 03 d4 30 ef  32 38 2c 31 2c 32 37 2c  |......0.28,1,27,|
00000bd0  37 38 2c 34 3a fb 31 32  38 3a ff 22 43 4c 4f 53  |78,4:.128:."CLOS|
00000be0  45 22 3a ef 33 3a e7 9f  3d 31 37 8c f1 3a e5 8d  |E":.3:..=17..:..|
00000bf0  54 65 43 0d 03 d6 42 e7  9f 3d 32 32 32 8c fb 31  |TeC...B..=222..1|
00000c00  32 37 3a f1 22 45 72 72  6f 72 20 23 32 32 32 3a  |27:."Error #222:|
00000c10  20 46 69 6c 65 20 27 22  3b 46 49 4c 24 3b 22 27  | File '";FIL$;"'|
00000c20  20 6e 6f 74 20 66 6f 75  6e 64 22 3a fb 34 35 3a  | not found":.45:|
00000c30  e5 8d 54 65 43 0d 03 d9  27 fb 31 32 37 3a f1 22  |..TeC...'.127:."|
00000c40  45 72 72 6f 72 20 23 22  3b 9f 3b 22 3a 20 22 3b  |Error #";.;": ";|
00000c50  f6 24 3a fb 34 35 3a e5  8d 54 65 43 0d 03 e8 1f  |.$:.45:..TeC....|
00000c60  4a 4c 25 3d a7 46 49 4c  24 2c 22 2c 22 29 3a e7  |JL%=.FIL$,","):.|
00000c70  4a 4c 25 3d 30 8c e5 8d  54 65 43 0d 03 ed 4c 42  |JL%=0...TeC...LB|
00000c80  41 53 45 25 3d bb 28 c0  46 49 4c 24 2c 4a 4c 25  |ASE%=.(.FIL$,JL%|
00000c90  2d 31 29 29 3a 49 4e 43  25 3d bb 28 c1 46 49 4c  |-1)):INC%=.(.FIL|
00000ca0  24 2c 4a 4c 25 2b 31 29  29 3a e7 42 41 53 45 25  |$,JL%+1)):.BASE%|
00000cb0  3e 3d 6e 6f 6c 25 20 84  20 42 41 53 45 25 3c 31  |>=nol% . BASE%<1|
00000cc0  20 8c e5 8d 54 65 43 0d  03 f2 13 e3 49 3d 6e 6f  | ...TeC.....I=no|
00000cd0  6c 25 20 b8 20 31 20 88  2d 31 0d 03 f7 44 e7 4c  |l% . 1 .-1...D.L|
00000ce0  24 28 49 29 3d 22 22 8c  e5 8d 54 5a 44 3a 8b 58  |$(I)=""...TZD:.X|
00000cf0  3d 49 2b 49 4e 43 25 3a  e7 58 3e 6e 6f 6c 25 8c  |=I+INC%:.X>nol%.|
00000d00  f1 22 46 61 69 6c 65 64  20 61 74 20 6c 69 6e 65  |."Failed at line|
00000d10  20 22 3b 49 3a 49 3d 31  3a e5 8d 54 5a 44 0d 03  | ";I:I=1:..TZD..|
00000d20  fc 27 e7 49 3e 3d 42 41  53 45 25 8c 4c 24 28 58  |.'.I>=BASE%.L$(X|
00000d30  29 3d 4c 24 28 49 29 3a  4c 24 28 49 29 3d 22 22  |)=L$(I):L$(I)=""|
00000d40  3a 8b 58 3d 49 0d 04 01  3a 4a 4c 25 3d a7 4c 24  |:.X=I...:JL%=.L$|
00000d50  28 58 29 2c 22 47 4f 54  4f 22 29 3a e7 4a 4c 25  |(X),"GOTO"):.JL%|
00000d60  3d 30 8c e5 8d 54 5a 44  3a 8b 4c 49 4e 25 3d bb  |=0...TZD:.LIN%=.|
00000d70  28 c1 4c 24 28 58 29 2c  4a 4c 25 2b 35 29 29 0d  |(.L$(X),JL%+5)).|
00000d80  04 06 35 e7 4c 49 4e 25  3e 3d 42 41 53 45 25 8c  |..5.LIN%>=BASE%.|
00000d90  4c 24 28 58 29 3d c0 4c  24 28 58 29 2c 4a 4c 25  |L$(X)=.L$(X),JL%|
00000da0  2b 33 29 2b 22 20 22 2b  c3 28 4c 49 4e 25 2b 49  |+3)+" "+.(LIN%+I|
00000db0  4e 43 25 29 0d 04 1a 0c  ed 49 3a e5 8d 54 65 43  |NC%).....I:..TeC|
00000dc0  0d 04 1f 67 4a 4c 25 3d  a7 46 49 4c 24 2c 22 2c  |...gJL%=.FIL$,",|
00000dd0  22 29 3a e7 4a 4c 25 3d  30 8c e5 8d 54 65 43 3a  |"):.JL%=0...TeC:|
00000de0  8b 42 41 53 45 25 3d bb  28 c0 46 49 4c 24 2c 4a  |.BASE%=.(.FIL$,J|
00000df0  4c 25 2d 31 29 29 3a 49  4e 43 25 3d bb 28 c1 46  |L%-1)):INC%=.(.F|
00000e00  49 4c 24 2c 4a 4c 25 2b  31 29 29 3a e7 49 4e 43  |IL$,JL%+1)):.INC|
00000e10  25 3e 6e 6f 6c 25 20 84  20 42 41 53 45 25 3c 31  |%>nol% . BASE%<1|
00000e20  20 8c e5 8d 54 65 43 0d  04 24 16 e7 42 41 53 45  | ...TeC..$..BASE|
00000e30  25 3e 49 4e 43 25 20 8c  e5 8d 54 65 43 0d 04 26  |%>INC% ...TeC..&|
00000e40  1f e7 42 41 53 45 25 3d  31 20 80 20 49 4e 43 25  |..BASE%=1 . INC%|
00000e50  3d 6e 6f 6c 25 20 8c e5  8d 54 65 43 0d 04 29 23  |=nol% ...TeC..)#|
00000e60  e3 49 3d 42 41 53 45 25  b8 49 4e 43 25 3a 4c 24  |.I=BASE%.INC%:L$|
00000e70  28 49 29 3d 22 22 3a ed  49 3a e5 8d 54 65 43 0d  |(I)="":.I:..TeC.|
00000e80  04 2e 10 e7 50 4f 25 3d  30 8c e5 8d 54 65 43 0d  |....PO%=0...TeC.|
00000e90  04 30 65 fb 31 32 37 3a  f1 22 43 75 72 72 65 6e  |.0e.127:."Curren|
00000ea0  74 20 6c 69 73 74 69 6e  67 20 6f 66 20 22 3b 43  |t listing of ";C|
00000eb0  4f 24 3b 22 3a 22 27 3a  e3 49 3d 31 b8 6e 6f 6c  |O$;":"':.I=1.nol|
00000ec0  25 3a e7 4c 24 28 49 29  3c 3e 22 22 8c 4a 4c 25  |%:.L$(I)<>"".JL%|
00000ed0  3d a7 4c 24 28 49 29 2c  46 49 4c 24 29 3a e7 4a  |=.L$(I),FIL$):.J|
00000ee0  4c 25 3e 30 8c f1 c3 28  49 29 3b 22 20 22 3b 4c  |L%>0...(I);" ";L|
00000ef0  24 28 49 29 0d 04 33 13  ed 49 3a f1 27 3a fb 34  |$(I)..3..I:.':.4|
00000f00  35 3a e5 8d 54 65 43 0d  04 4a 05 fa 0d 04 4b 3d  |5:..TeC..J....K=|
00000f10  f4 20 20 2a 2a 2a 20 54  48 49 53 20 49 53 20 54  |.  *** THIS IS T|
00000f20  48 45 20 43 4f 4d 50 49  4c 45 52 20 2a 2a 2a 20  |HE COMPILER *** |
00000f30  42 59 20 4a 4f 4e 41 54  48 41 4e 20 53 2e 20 50  |BY JONATHAN S. P|
00000f40  41 4c 4d 45 52 20 2a 2a  2a 0d 04 4c 15 43 4f 4d  |ALMER ***..L.COM|
00000f50  46 49 4c 24 3d 46 49 4c  24 3a fb 31 32 37 0d 04  |FIL$=FIL$:.127..|
00000f60  51 10 e7 50 4f 25 3d 30  8c e5 8d 64 74 41 0d 04  |Q..PO%=0...dtA..|
00000f70  52 1c f1 22 54 6f 6b 65  6e 69 73 69 6e 67 20 22  |R.."Tokenising "|
00000f80  3b 43 4f 24 3b 22 2e 2e  2e 22 0d 04 56 0a 4c 3d  |;CO$;"..."..V.L=|
00000f90  6e 6f 6c 25 0d 04 57 1a  e7 4c 24 28 4c 29 3c 3e  |nol%..W..L$(L)<>|
00000fa0  22 22 8c 4d 4c 25 3d 4c  3a e5 8d 44 5b 44 0d 04  |"".ML%=L:..D[D..|
00000fb0  58 1a 4c 3d 4c 2d 31 3a  e7 4c 3d 30 8c e5 8d 64  |X.L=L-1:.L=0...d|
00000fc0  74 41 8b e5 8d 44 57 44  0d 04 5b 36 e3 49 3d 31  |tA...DWD..[6.I=1|
00000fd0  b8 4d 4c 25 3a f2 43 4f  4e 56 28 c3 28 49 29 2c  |.ML%:.CONV(.(I),|
00000fe0  33 29 3a e7 4c 24 28 49  29 3c 3e 22 22 8c 4c 24  |3):.L$(I)<>"".L$|
00000ff0  28 49 29 3d 4c 24 28 49  29 2b 53 54 4e 24 0d 04  |(I)=L$(I)+STN$..|
00001000  60 06 ed 49 0d 04 65 0c  4c 4c 3d 31 3a 4c 3d 31  |`..I..e.LL=1:L=1|
00001010  0d 04 6a 23 e7 4c 24 28  4c 29 3c 3e 22 22 8c 4c  |..j#.L$(L)<>"".L|
00001020  24 28 4c 4c 29 3d 4c 24  28 4c 29 3a 4c 4c 3d 4c  |$(LL)=L$(L):LL=L|
00001030  4c 2b 31 0d 04 6f 1c 4c  3d 4c 2b 31 3a e7 4c 3e  |L+1..o.L=L+1:.L>|
00001040  4d 4c 25 8c e5 8d 44 74  44 8b e5 8d 44 6a 44 0d  |ML%...DtD...DjD.|
00001050  04 74 19 4d 4c 25 3d 4c  4c 2d 31 3a e7 4d 4c 25  |.t.ML%=LL-1:.ML%|
00001060  3d 30 8c e5 8d 64 74 41  0d 04 76 38 e3 49 3d 31  |=0...dtA..v8.I=1|
00001070  b8 4d 4c 25 3a 50 4c 4e  24 3d c2 4c 24 28 49 29  |.ML%:PLN$=.L$(I)|
00001080  2c 33 29 3a e7 c0 4c 24  28 49 29 2c 35 29 3d 22  |,3):..L$(I),5)="|
00001090  47 4f 54 4f 20 22 8c 54  3d 31 3a e4 8d 44 7e 44  |GOTO ".T=1:..D~D|
000010a0  0d 04 79 1a e7 c0 4c 24  28 49 29 2c 33 29 3d 22  |..y...L$(I),3)="|
000010b0  49 46 20 22 8c e5 8d 74  4d 44 0d 04 7a 1e e7 c0  |IF "...tMD..z...|
000010c0  4c 24 28 49 29 2c 37 29  3d 22 4d 45 4e 55 4b 45  |L$(I),7)="MENUKE|
000010d0  59 22 8c e5 8d 74 63 44  0d 04 7b 21 e7 c0 4c 24  |Y"...tcD..{!..L$|
000010e0  28 49 29 2c 36 29 3d 22  47 4f 53 55 42 20 22 8c  |(I),6)="GOSUB ".|
000010f0  54 3d 32 3a e4 8d 44 7e  44 0d 04 7c 0c ed 49 3a  |T=2:..D~D..|..I:|
00001100  e5 8d 74 70 44 0d 04 7e  1f e7 54 3d 31 8c 54 24  |..tpD..~..T=1.T$|
00001110  3d 22 28 22 3a 54 3d 36  3a 8b 54 24 3d 22 29 22  |="(":T=6:.T$=")"|
00001120  3a 54 3d 37 0d 04 80 16  e7 a9 28 4c 24 28 49 29  |:T=7......(L$(I)|
00001130  29 3d 54 20 8c e5 8d 74  61 44 0d 04 83 31 4e 4f  |)=T ...taD...1NO|
00001140  24 3d c1 4c 24 28 49 29  2c 54 29 3a 4e 4f 24 3d  |$=.L$(I),T):NO$=|
00001150  c0 4e 4f 24 2c 28 a9 28  4e 4f 24 29 2d 33 29 29  |.NO$,(.(NO$)-3))|
00001160  3a 4e 4f 25 3d bb 28 4e  4f 24 29 0d 04 84 23 e7  |:NO%=.(NO$)...#.|
00001170  4e 4f 25 3c 31 84 4e 4f  25 3e 6e 6f 6c 25 8c 49  |NO%<1.NO%>nol%.I|
00001180  3d bb 28 50 4c 4e 24 29  3a e5 8d 74 61 44 0d 04  |=.(PLN$):..taD..|
00001190  86 07 4c 3d 31 0d 04 88  32 4e 31 25 3d bb 28 c2  |..L=1...2N1%=.(.|
000011a0  4c 24 28 4c 29 2c 33 29  29 3a e7 4e 31 25 3d 4e  |L$(L),3)):.N1%=N|
000011b0  4f 25 8c 4c 24 28 49 29  3d 54 24 2b c3 28 4c 29  |O%.L$(I)=T$+.(L)|
000011c0  2b 50 4c 4e 24 3a f8 0d  04 8a 27 4c 3d 4c 2b 31  |+PLN$:....'L=L+1|
000011d0  3a e7 4c 3e 4d 4c 25 8c  49 3d bb 28 50 4c 4e 24  |:.L>ML%.I=.(PLN$|
000011e0  29 3a e5 8d 74 61 44 3a  8b e5 8d 74 48 44 0d 04  |):..taD:...tHD..|
000011f0  8d 40 54 3d 31 3a 58 3d  a7 4c 24 28 49 29 2c 22  |.@T=1:X=.L$(I),"|
00001200  47 4f 54 4f 20 22 29 3a  e7 58 3d 30 8c 54 3d 32  |GOTO "):.X=0.T=2|
00001210  3a 58 3d a7 4c 24 28 49  29 2c 22 47 4f 53 55 42  |:X=.L$(I),"GOSUB|
00001220  20 22 29 3a e7 58 3d 30  8c e5 8d 44 7b 44 0d 04  | "):.X=0...D{D..|
00001230  8f 23 53 50 24 3d c0 4c  24 28 49 29 2c 58 2d 31  |.#SP$=.L$(I),X-1|
00001240  29 3a 4c 24 28 49 29 3d  c1 4c 24 28 49 29 2c 58  |):L$(I)=.L$(I),X|
00001250  29 0d 04 92 1f e4 8d 44  7e 44 3a 4c 24 28 49 29  |)......D~D:L$(I)|
00001260  3d 53 50 24 2b 4c 24 28  49 29 3a e5 8d 44 7c 44  |=SP$+L$(I):..D|D|
00001270  0d 04 9c 3e f1 27 22 54  6f 6b 65 6e 69 73 61 74  |...>.'"Tokenisat|
00001280  69 6f 6e 20 45 72 72 6f  72 20 61 74 20 6c 69 6e  |ion Error at lin|
00001290  65 20 22 3b 49 27 3b 22  27 22 3b 4c 24 28 49 29  |e ";I';"'";L$(I)|
000012a0  3b 22 27 22 3a fb 34 35  3a e5 8d 54 65 43 0d 04  |;"'":.45:..TeC..|
000012b0  a1 4b f1 27 22 54 6f 6b  65 6e 69 73 61 74 69 6f  |.K.'"Tokenisatio|
000012c0  6e 20 45 72 72 6f 72 20  61 74 20 6c 69 6e 65 20  |n Error at line |
000012d0  22 3b 49 27 3b 22 27 22  3b c0 4c 24 28 49 29 2c  |";I';"'";.L$(I),|
000012e0  a9 28 4c 24 28 49 29 29  2d 33 29 3b 22 27 22 3a  |.(L$(I))-3);"'":|
000012f0  fb 34 35 3a e5 8d 54 65  43 0d 04 a3 3c f2 43 47  |.45:..TeC...<.CG|
00001300  45 54 28 c1 4c 24 28 49  29 2c 39 2c a9 28 4c 24  |ET(.L$(I),9,.(L$|
00001310  28 49 29 29 2d 31 31 29  29 3a e7 28 43 4f 4d 25  |(I))-11)):.(COM%|
00001320  2f 32 2d a8 28 43 4f 4d  25 2f 32 29 29 3e 30 8c  |/2-.(COM%/2))>0.|
00001330  e5 8d 74 61 44 0d 04 a4  35 f2 50 47 45 54 28 43  |..taD...5.PGET(C|
00001340  4f 4d 25 2c c1 4c 24 28  49 29 2c 39 2c a9 28 4c  |OM%,.L$(I),9,.(L|
00001350  24 28 49 29 29 2d 31 31  29 29 3a e3 4a 3d 32 b8  |$(I))-11)):.J=2.|
00001360  43 4f 4d 25 88 32 3a 4c  3d 31 0d 04 a6 33 4e 31  |COM%.2:L=1...3N1|
00001370  25 3d bb 28 c2 4c 24 28  4c 29 2c 33 29 29 3a e7  |%=.(.L$(L),3)):.|
00001380  4e 31 25 3d bb 28 50 24  28 4a 29 29 8c 50 24 28  |N1%=.(P$(J)).P$(|
00001390  4a 29 3d c3 28 4c 29 3a  e5 8d 74 6a 44 0d 04 a8  |J)=.(L):..tjD...|
000013a0  27 4c 3d 4c 2b 31 3a e7  4c 3e 4d 4c 25 8c 49 3d  |'L=L+1:.L>ML%.I=|
000013b0  bb 28 50 4c 4e 24 29 3a  e5 8d 74 61 44 3a 8b e5  |.(PLN$):..taD:..|
000013c0  8d 74 66 44 0d 04 aa 06  ed 4a 0d 04 ac 30 f2 50  |.tfD.....J...0.P|
000013d0  50 41 44 28 43 4f 4d 25  29 3a 4c 24 28 49 29 3d  |PAD(COM%):L$(I)=|
000013e0  22 45 22 2b bd 28 32 35  32 29 2b 50 41 44 24 2b  |"E"+.(252)+PAD$+|
000013f0  50 4c 4e 24 3a e5 8d 44  7c 44 0d 04 b0 28 e3 49  |PLN$:..D|D...(.I|
00001400  3d 31 b8 4d 4c 25 3a 4c  24 28 49 29 3d c0 4c 24  |=1.ML%:L$(I)=.L$|
00001410  28 49 29 2c a9 28 4c 24  28 49 29 29 2d 33 29 3a  |(I),.(L$(I))-3):|
00001420  ed 49 0d 04 ba 12 e3 49  3d 31 b8 4d 4c 25 3a 44  |.I.....I=1.ML%:D|
00001430  42 25 3d 30 0d 04 bf 2b  e7 c0 4c 24 28 49 29 2c  |B%=0...+..L$(I),|
00001440  31 29 3d 22 2a 22 8c 4c  24 28 49 29 3d bd 28 32  |1)="*".L$(I)=.(2|
00001450  35 31 29 2b 4c 24 28 49  29 3a e5 8d 64 76 44 0d  |51)+L$(I):..dvD.|
00001460  04 c1 26 e7 c0 4c 24 28  49 29 2c 31 29 3d 22 28  |..&..L$(I),1)="(|
00001470  22 84 c0 4c 24 28 49 29  2c 31 29 3d 22 29 22 8c  |"..L$(I),1)=")".|
00001480  e5 8d 64 76 44 0d 04 c2  1f e7 c0 4c 24 28 49 29  |..dvD......L$(I)|
00001490  2c 32 29 3d 22 45 22 2b  bd 28 32 35 32 29 8c e5  |,2)="E"+.(252)..|
000014a0  8d 64 76 44 0d 04 c4 11  46 4f 25 3d 30 3a e3 46  |.dvD....FO%=0:.F|
000014b0  3d 31 b8 35 39 0d 04 c6  36 e7 c0 4c 24 28 49 29  |=1.59...6..L$(I)|
000014c0  2c a9 28 57 24 28 46 29  29 2b 31 29 3d 57 24 28  |,.(W$(F))+1)=W$(|
000014d0  46 29 2b 22 20 22 8c 46  4f 25 3d 31 3a 4f 3d 46  |F)+" ".FO%=1:O=F|
000014e0  3a 46 3d 35 39 3a e5 8d  64 49 44 0d 04 c7 2a e7  |:F=59:..dID...*.|
000014f0  c0 4c 24 28 49 29 2c a9  28 57 24 28 46 29 29 29  |.L$(I),.(W$(F)))|
00001500  3d 57 24 28 46 29 8c 46  4f 25 3d 32 3a 4f 3d 46  |=W$(F).FO%=2:O=F|
00001510  3a 46 3d 35 39 0d 04 c9  19 ed 46 3a e7 46 4f 25  |:F=59.....F:.FO%|
00001520  3d 30 8c e5 8d 74 5c 44  8b e5 8d 64 62 44 0d 04  |=0...t\D...dbD..|
00001530  e2 e5 ee 20 4f 20 e5 20  8d 54 54 45 2c 8d 74 42  |... O . .TTE,.tB|
00001540  45 2c 8d 74 74 45 2c 8d  54 4e 46 2c 8d 44 40 46  |E,.ttE,.TNF,.D@F|
00001550  2c 8d 44 4f 46 2c 8d 74  6e 46 2c 8d 74 5c 44 2c  |,.DOF,.tnF,.t\D,|
00001560  8d 74 5c 44 2c 45 2c 31  37 34 30 2c 45 2c 31 38  |.t\D,E,1740,E,18|
00001570  30 30 2c 31 38 31 35 2c  31 38 32 30 2c 31 38 32  |00,1815,1820,182|
00001580  35 2c 31 38 33 30 2c 31  38 34 30 2c 30 2c 30 2c  |5,1830,1840,0,0,|
00001590  31 38 38 30 2c 31 39 30  30 2c 45 2c 45 2c 31 39  |1880,1900,E,E,19|
000015a0  32 30 2c 45 2c 45 2c 31  39 33 30 2c 31 39 37 30  |20,E,E,1930,1970|
000015b0  2c 31 39 38 30 2c 31 39  39 30 2c 45 2c 45 2c 45  |,1980,1990,E,E,E|
000015c0  2c 32 30 30 30 2c 32 30  31 30 2c 30 2c 47 2c 47  |,2000,2010,0,G,G|
000015d0  2c 47 2c 47 2c 47 2c 47  2c 4b 2c 4b 2c 48 2c 48  |,G,G,G,G,K,K,H,H|
000015e0  2c 32 30 35 30 2c 32 30  36 30 2c 32 30 37 30 2c  |,2050,2060,2070,|
000015f0  32 30 38 30 2c 32 30 39  30 2c 45 2c 33 30 30 30  |2080,2090,E,3000|
00001600  2c 33 30 30 30 2c 45 2c  33 30 32 30 2c 33 30 33  |,3000,E,3020,303|
00001610  30 2c 45 0d 04 f6 10 e7  44 42 25 3d 31 8c e5 8d  |0,E.....DB%=1...|
00001620  64 5c 45 0d 04 fb 06 ed  49 0d 05 00 34 f1 22 54  |d\E.....I...4."T|
00001630  6f 6b 65 6e 69 73 61 74  69 6f 6e 20 63 6f 6d 70  |okenisation comp|
00001640  6c 65 74 65 2e 20 53 61  76 69 6e 67 20 61 73 20  |lete. Saving as |
00001650  22 3b 43 4f 4d 46 49 4c  24 3a fb 34 35 0d 05 02  |";COMFIL$:.45...|
00001660  6d ff 22 43 4c 4f 53 45  22 3a 58 3d ae 43 4f 4d  |m."CLOSE":X=.COM|
00001670  46 49 4c 24 3a f2 43 4f  4e 56 28 c3 28 4d 4c 25  |FIL$:.CONV(.(ML%|
00001680  29 2c 33 29 3a 4c 24 28  30 29 3d 53 54 4e 24 2b  |),3):L$(0)=STN$+|
00001690  22 2a 43 4f 4d 50 49 4c  45 44 2a 22 3a e3 49 3d  |"*COMPILED*":.I=|
000016a0  30 b8 4d 4c 25 3a f1 23  58 2c 4c 24 28 49 29 3a  |0.ML%:.#X,L$(I):|
000016b0  ed 49 3a ff 22 43 4c 4f  53 45 22 3a 54 24 3d 22  |.I:."CLOSE":T$="|
000016c0  4e 45 57 22 3a e5 8d 54  7e 43 0d 05 14 1b e7 46  |NEW":..T~C.....F|
000016d0  4f 25 3d 32 84 a9 28 4c  24 28 49 29 29 3d 34 8c  |O%=2..(L$(I))=4.|
000016e0  e5 8d 74 5c 44 0d 05 19  15 4e 31 24 3d c1 4c 24  |..t\D....N1$=.L$|
000016f0  28 49 29 2c 35 29 3a 59  3d 31 0d 05 1e 20 4e 32  |(I),5):Y=1... N2|
00001700  24 3d c1 4e 31 24 2c 59  2c 31 29 3a e7 4e 32 24  |$=.N1$,Y,1):.N2$|
00001710  3d 22 3d 22 8c e5 8d 54  68 45 0d 05 20 13 e7 59  |="="...ThE.. ..Y|
00001720  3e a9 28 4e 31 24 29 8c  e5 8d 74 5c 44 0d 05 22  |>.(N1$)...t\D.."|
00001730  0f 59 3d 59 2b 31 3a e5  8d 54 5e 45 0d 05 28 12  |.Y=Y+1:..T^E..(.|
00001740  e7 59 3d 31 84 59 3e 34  8c e5 8d 74 5c 44 0d 05  |.Y=1.Y>4...t\D..|
00001750  2a 36 4e 33 24 3d c0 4e  31 24 2c 59 2d 31 29 3a  |*6N3$=.N1$,Y-1):|
00001760  e7 c0 4e 33 24 2c 31 29  3d 22 24 22 84 c0 4e 33  |..N3$,1)="$"..N3|
00001770  24 2c 31 29 3d 22 26 22  8c e5 8d 54 6d 45 8b e5  |$,1)="&"...TmE..|
00001780  8d 74 5c 44 0d 05 2d 35  f2 43 4f 4e 56 28 4e 33  |.t\D..-5.CONV(N3|
00001790  24 2c 33 29 3a 4e 34 24  3d 53 54 4e 24 3a 4e 35  |$,3):N4$=STN$:N5|
000017a0  24 3d c1 4e 31 24 2c 59  2b 31 29 3a e7 4e 35 24  |$=.N1$,Y+1):.N5$|
000017b0  3d 22 22 8c e5 8d 74 5c  44 0d 05 2f 16 e7 c0 4e  |=""...t\D../...N|
000017c0  34 24 2c 31 29 3d 22 24  22 8c e5 8d 54 77 45 0d  |4$,1)="$"...TwE.|
000017d0  05 32 1b 4c 24 28 49 29  3d 22 21 22 2b 4e 34 24  |.2.L$(I)="!"+N4$|
000017e0  2b 4e 35 24 3a e5 8d 64  76 44 0d 05 37 21 f2 53  |+N5$:..dvD..7!.S|
000017f0  47 45 54 3a 4c 24 28 49  29 3d 22 21 22 2b 4e 34  |GET:L$(I)="!"+N4|
00001800  24 2b 4e 41 24 3a e5 8d  64 76 44 0d 05 3c 19 dd  |$+NA$:..dvD..<..|
00001810  f2 53 47 45 54 3a 4e 41  24 3d 22 22 3a 59 3d 31  |.SGET:NA$="":Y=1|
00001820  3a 58 3d 59 0d 05 3e 26  e7 c1 4e 35 24 2c 58 2c  |:X=Y..>&..N5$,X,|
00001830  31 29 3d 22 24 22 84 c1  4e 35 24 2c 58 2c 31 29  |1)="$"..N5$,X,1)|
00001840  3d 22 26 22 8c e5 8d 44  55 45 0d 05 3f 20 e7 c1  |="&"...DUE..? ..|
00001850  4e 35 24 2c 58 2c 31 29  3d bd 28 33 34 29 8c 59  |N5$,X,1)=.(34).Y|
00001860  3d 59 2b 31 3a e5 8d 44  41 45 0d 05 40 09 e5 8d  |=Y+1:..DAE..@...|
00001870  74 5c 44 0d 05 41 13 e7  59 3e a9 28 4e 35 24 29  |t\D..A..Y>.(N5$)|
00001880  8c e5 8d 44 78 45 0d 05  43 1a e7 c1 4e 35 24 2c  |...DxE..C...N5$,|
00001890  59 2c 31 29 3d bd 28 33  34 29 8c e5 8d 44 4b 45  |Y,1)=.(34)...DKE|
000018a0  0d 05 46 21 4e 41 24 3d  4e 41 24 2b c1 4e 35 24  |..F!NA$=NA$+.N5$|
000018b0  2c 59 2c 31 29 3a 59 3d  59 2b 31 3a e5 8d 44 41  |,Y,1):Y=Y+1:..DA|
000018c0  45 0d 05 4b 13 e7 59 3d  a9 28 4e 35 24 29 8c e5  |E..K..Y=.(N5$)..|
000018d0  8d 44 78 45 0d 05 4d 32  59 3d 59 2b 31 3a e7 c1  |.DxE..M2Y=Y+1:..|
000018e0  4e 35 24 2c 59 2c 31 29  3d 22 24 22 84 c1 4e 35  |N5$,Y,1)="$"..N5|
000018f0  24 2c 59 2c 31 29 3d 22  26 22 8c e5 8d 44 55 45  |$,Y,1)="&"...DUE|
00001900  8b e5 8d 74 5c 44 0d 05  55 1e e7 c1 4e 35 24 2c  |...t\D..U...N5$,|
00001910  59 2c 31 29 3d 22 24 22  8c 54 59 25 3d 31 8b 54  |Y,1)="$".TY%=1.T|
00001920  59 25 3d 32 0d 05 57 41  59 3d 59 2b 31 3a 4e 36  |Y%=2..WAY=Y+1:N6|
00001930  24 3d c1 4e 35 24 2c 59  2c 32 29 3a 41 53 25 3d  |$=.N5$,Y,2):AS%=|
00001940  97 28 c2 4e 36 24 2c 31  29 29 3a e7 41 53 25 3c  |.(.N6$,1)):.AS%<|
00001950  34 38 84 41 53 25 3e 35  37 8c 59 3d 59 2b 31 8b  |48.AS%>57.Y=Y+1.|
00001960  59 3d 59 2b 32 0d 05 5a  23 4e 32 25 3d bb 28 4e  |Y=Y+2..Z#N2%=.(N|
00001970  36 24 29 3a e7 4e 32 25  3c 30 84 4e 32 25 3e 4d  |6$):.N2%<0.N2%>M|
00001980  56 25 8c e5 8d 74 5c 44  0d 05 5c 22 e7 54 59 25  |V%...t\D..\".TY%|
00001990  3d 31 8c 41 53 25 3d 4e  32 25 2b 31 32 38 8b 41  |=1.AS%=N2%+128.A|
000019a0  53 25 3d 4e 32 25 2b 31  37 39 0d 05 5e 22 4e 41  |S%=N2%+179..^"NA|
000019b0  24 3d 4e 41 24 2b bd 28  41 53 25 29 3a e7 59 3e  |$=NA$+.(AS%):.Y>|
000019c0  a9 28 4e 35 24 29 8c e5  8d 44 78 45 0d 05 61 0d  |.(N5$)...DxE..a.|
000019d0  58 3d 59 3a e5 8d 54 7e  45 0d 05 78 05 e1 0d 05  |X=Y:..T~E..x....|
000019e0  82 15 e7 a9 28 4c 24 28  49 29 29 3d 36 8c e5 8d  |....(L$(I))=6...|
000019f0  74 5c 44 0d 05 87 1c e7  46 4f 25 3d 32 8c 4c 24  |t\D.....FO%=2.L$|
00001a00  28 49 29 3d bd 28 33 34  29 3a e5 8d 64 76 44 0d  |(I)=.(34):..dvD.|
00001a10  05 8c 1a e7 c1 4c 24 28  49 29 2c 37 2c 31 29 3d  |.....L$(I),7,1)=|
00001a20  22 40 22 8c e5 8d 74 6a  45 0d 05 8e 2b 4e 35 24  |"@"...tjE...+N5$|
00001a30  3d c1 4c 24 28 49 29 2c  37 29 3a e7 4e 35 24 3d  |=.L$(I),7):.N5$=|
00001a40  22 22 8c 4c 24 28 49 29  3d bd 28 33 34 29 3a e5  |"".L$(I)=.(34):.|
00001a50  8d 64 76 44 0d 05 91 26  f2 53 47 45 54 3a 4c 24  |.dvD...&.SGET:L$|
00001a60  28 49 29 3d bd 28 33 34  29 2b bd 28 32 35 35 29  |(I)=.(34)+.(255)|
00001a70  2b 4e 41 24 3a e5 8d 64  76 44 0d 05 96 32 dd f2  |+NA$:..dvD...2..|
00001a80  47 45 54 3a 4e 31 24 3d  c1 4c 24 28 49 29 2c 59  |GET:N1$=.L$(I),Y|
00001a90  2c 32 29 3a e7 c2 4e 31  24 2c 31 29 3d 22 2c 22  |,2):..N1$,1)=","|
00001aa0  8c 59 3d 59 2b 32 8b 59  3d 59 2b 33 0d 05 98 3c  |.Y=Y+2.Y=Y+3...<|
00001ab0  4e 32 24 3d c1 4c 24 28  49 29 2c 59 2c 32 29 3a  |N2$=.L$(I),Y,2):|
00001ac0  e7 97 28 c2 4e 32 24 2c  31 29 29 3c 34 38 84 97  |..(.N2$,1))<48..|
00001ad0  28 c2 4e 32 24 2c 31 29  29 3e 35 37 8c 59 3d 59  |(.N2$,1))>57.Y=Y|
00001ae0  2b 31 8b 59 3d 59 2b 32  0d 05 9b 18 e7 4e 31 24  |+1.Y=Y+2.....N1$|
00001af0  3d 22 22 84 4e 32 24 3d  22 22 8c e5 8d 74 5c 44  |="".N2$=""...t\D|
00001b00  0d 05 9d 4b 4e 31 24 3d  c3 28 bb 28 4e 31 24 29  |...KN1$=.(.(N1$)|
00001b10  29 3a 4e 32 24 3d c3 28  bb 28 4e 32 24 29 29 3a  |):N2$=.(.(N2$)):|
00001b20  f2 43 4f 4e 56 28 4e 31  24 2c 32 29 3a 4e 31 24  |.CONV(N1$,2):N1$|
00001b30  3d 53 54 4e 24 3a f2 43  4f 4e 56 28 4e 32 24 2c  |=STN$:.CONV(N2$,|
00001b40  32 29 3a 4e 32 24 3d 53  54 4e 24 0d 05 a0 05 e1  |2):N2$=STN$.....|
00001b50  0d 05 aa 45 59 3d 38 3a  f2 47 45 54 3a 4e 35 24  |...EY=8:.GET:N5$|
00001b60  3d c1 4c 24 28 49 29 2c  59 29 3a f2 53 47 45 54  |=.L$(I),Y):.SGET|
00001b70  3a 4c 24 28 49 29 3d bd  28 33 34 29 2b bd 28 32  |:L$(I)=.(34)+.(2|
00001b80  35 34 29 2b 4e 31 24 2b  4e 32 24 2b 4e 41 24 3a  |54)+N1$+N2$+NA$:|
00001b90  e5 8d 64 76 44 0d 05 b4  1b e7 46 4f 25 3d 32 84  |..dvD.....FO%=2.|
00001ba0  a9 28 4c 24 28 49 29 29  3d 33 8c e5 8d 74 5c 44  |.(L$(I))=3...t\D|
00001bb0  0d 05 b9 25 4e 31 25 3d  a7 4c 24 28 49 29 2c 22  |...%N1%=.L$(I),"|
00001bc0  20 54 48 45 4e 20 22 29  3a e7 4e 31 25 3d 30 8c  | THEN "):.N1%=0.|
00001bd0  e5 8d 74 5c 44 0d 05 bb  2d 4e 32 25 3d a7 4c 24  |..t\D...-N2%=.L$|
00001be0  28 49 29 2c 22 3c 3e 22  29 3a e7 4e 32 25 3e 30  |(I),"<>"):.N2%>0|
00001bf0  8c 4f 50 25 3d 32 3a 54  59 25 3d 36 3a e5 8d 64  |.OP%=2:TY%=6:..d|
00001c00  48 45 0d 05 bd 2d 4e 32  25 3d a7 4c 24 28 49 29  |HE...-N2%=.L$(I)|
00001c10  2c 22 3c 3d 22 29 3a e7  4e 32 25 3e 30 8c 4f 50  |,"<="):.N2%>0.OP|
00001c20  25 3d 32 3a 54 59 25 3d  35 3a e5 8d 64 48 45 0d  |%=2:TY%=5:..dHE.|
00001c30  05 bf 2d 4e 32 25 3d a7  4c 24 28 49 29 2c 22 3e  |..-N2%=.L$(I),">|
00001c40  3d 22 29 3a e7 4e 32 25  3e 30 8c 4f 50 25 3d 32  |="):.N2%>0.OP%=2|
00001c50  3a 54 59 25 3d 34 3a e5  8d 64 48 45 0d 05 c1 2c  |:TY%=4:..dHE...,|
00001c60  4e 32 25 3d a7 4c 24 28  49 29 2c 22 3e 22 29 3a  |N2%=.L$(I),">"):|
00001c70  e7 4e 32 25 3e 30 8c 4f  50 25 3d 31 3a 54 59 25  |.N2%>0.OP%=1:TY%|
00001c80  3d 33 3a e5 8d 64 48 45  0d 05 c3 2c 4e 32 25 3d  |=3:..dHE...,N2%=|
00001c90  a7 4c 24 28 49 29 2c 22  3c 22 29 3a e7 4e 32 25  |.L$(I),"<"):.N2%|
00001ca0  3e 30 8c 4f 50 25 3d 31  3a 54 59 25 3d 32 3a e5  |>0.OP%=1:TY%=2:.|
00001cb0  8d 64 48 45 0d 05 c5 2c  4e 32 25 3d a7 4c 24 28  |.dHE...,N2%=.L$(|
00001cc0  49 29 2c 22 3d 22 29 3a  e7 4e 32 25 3e 30 8c 4f  |I),"="):.N2%>0.O|
00001cd0  50 25 3d 31 3a 54 59 25  3d 31 3a e5 8d 64 48 45  |P%=1:TY%=1:..dHE|
00001ce0  0d 05 c7 09 e5 8d 74 5c  44 0d 05 c8 14 49 54 25  |......t\D....IT%|
00001cf0  3d 31 3a 54 59 53 41 53  25 3d 54 59 25 0d 05 ca  |=1:TYSAS%=TY%...|
00001d00  59 4e 31 24 3d c1 4c 24  28 49 29 2c 34 2c 4e 32  |YN1$=.L$(I),4,N2|
00001d10  25 2d 34 29 3a 4e 32 24  3d c1 4c 24 28 49 29 2c  |%-4):N2$=.L$(I),|
00001d20  28 4e 32 25 2b 4f 50 25  29 2c 28 4e 31 25 2d 4e  |(N2%+OP%),(N1%-N|
00001d30  32 25 29 2d 31 29 3a e7  c2 4e 32 24 2c 31 29 3d  |2%)-1):..N2$,1)=|
00001d40  22 20 22 8c 4e 32 24 3d  c0 4e 32 24 2c a9 28 4e  |" ".N2$=.N2$,.(N|
00001d50  32 24 29 2d 31 29 0d 05  cb 18 e7 4e 31 24 3d 22  |2$)-1).....N1$="|
00001d60  22 84 4e 32 24 3d 22 22  8c e5 8d 74 5c 44 0d 05  |".N2$=""...t\D..|
00001d70  cc 1e e7 a9 28 4e 31 24  29 3e 32 39 84 a9 28 4e  |....(N1$)>29..(N|
00001d80  32 24 29 3e 32 39 8c e5  8d 74 5c 44 0d 05 ce a4  |2$)>29...t\D....|
00001d90  e7 c0 4e 31 24 2c 31 29  3d 22 24 22 84 c0 4e 31  |..N1$,1)="$"..N1|
00001da0  24 2c 31 29 3d bd 28 33  34 29 8c 4e 35 24 3d 4e  |$,1)=.(34).N5$=N|
00001db0  31 24 3a f2 53 47 45 54  3a 4e 31 24 3d 4e 41 24  |1$:.SGET:N1$=NA$|
00001dc0  3a 4e 35 24 3d 4e 32 24  3a f2 53 47 45 54 3a 4e  |:N5$=N2$:.SGET:N|
00001dd0  32 24 3d 4e 41 24 3a 49  54 25 3d 32 3a 4e 31 24  |2$=NA$:IT%=2:N1$|
00001de0  3d 4e 31 24 2b bd 28 32  35 33 29 3a 4e 32 24 3d  |=N1$+.(253):N2$=|
00001df0  4e 32 24 2b bd 28 32 35  33 29 3a f2 43 4f 4e 56  |N2$+.(253):.CONV|
00001e00  28 4e 31 24 2c 33 30 29  3a 44 42 31 24 3d 53 54  |(N1$,30):DB1$=ST|
00001e10  4e 24 3a f2 43 4f 4e 56  28 4e 32 24 2c 33 30 29  |N$:.CONV(N2$,30)|
00001e20  3a 44 42 32 24 3d 53 54  4e 24 3a e5 8d 64 52 45  |:DB2$=STN$:..dRE|
00001e30  0d 05 d1 56 f2 43 4f 4e  56 28 4e 31 24 2c 32 39  |...V.CONV(N1$,29|
00001e40  29 3a 44 42 31 24 3d 53  54 4e 24 3a f2 43 4f 4e  |):DB1$=STN$:.CON|
00001e50  56 28 4e 32 24 2c 32 39  29 3a 44 42 32 24 3d 53  |V(N2$,29):DB2$=S|
00001e60  54 4e 24 3a e7 49 54 25  3d 31 8c 44 42 31 24 3d  |TN$:.IT%=1.DB1$=|
00001e70  44 42 31 24 2b 22 20 22  3a 44 42 32 24 3d 44 42  |DB1$+" ":DB2$=DB|
00001e80  32 24 2b 22 20 22 0d 05  d2 48 44 42 24 3d c1 4c  |2$+" "...HDB$=.L|
00001e90  24 28 49 29 2c 28 4e 31  25 2b 36 29 29 3a 4e 34  |$(I),(N1%+6)):N4|
00001ea0  24 3d c0 4c 24 28 49 29  2c 4e 31 25 2d 31 29 3a  |$=.L$(I),N1%-1):|
00001eb0  e7 c0 44 42 24 2c 31 29  3d 22 28 22 84 c0 44 42  |..DB$,1)="("..DB|
00001ec0  24 2c 31 29 3d 22 29 22  8c e5 8d 64 66 45 0d 05  |$,1)=")"...dfE..|
00001ed0  d4 39 e7 c0 44 42 24 2c  32 29 3d 22 49 46 22 84  |.9..DB$,2)="IF".|
00001ee0  c0 44 42 24 2c 32 29 3d  22 57 48 49 4c 45 22 84  |.DB$,2)="WHILE".|
00001ef0  c0 44 42 24 2c 32 29 3d  22 4d 45 4e 55 4b 45 59  |.DB$,2)="MENUKEY|
00001f00  22 8c e5 8d 74 5c 44 0d  05 d7 19 44 42 25 3d 31  |"...t\D....DB%=1|
00001f10  3a 4c 24 28 49 29 3d 44  42 24 3a e5 8d 64 44 44  |:L$(I)=DB$:..dDD|
00001f20  0d 05 dc 0d 44 42 24 3d  4c 24 28 49 29 0d 05 e6  |....DB$=L$(I)...|
00001f30  38 4c 24 28 49 29 3d 22  23 22 2b c3 28 49 54 25  |8L$(I)="#"+.(IT%|
00001f40  29 2b c3 28 54 59 53 41  53 25 29 2b 44 42 31 24  |)+.(TYSAS%)+DB1$|
00001f50  2b 44 42 32 24 2b 44 42  24 3a 44 42 25 3d 30 3a  |+DB2$+DB$:DB%=0:|
00001f60  e5 8d 64 76 44 0d 06 0e  10 e7 46 4f 25 3d 32 8c  |..dvD.....FO%=2.|
00001f70  e5 8d 54 6c 46 0d 06 10  15 e7 a9 28 4c 24 28 49  |..TlF......(L$(I|
00001f80  29 29 3d 37 8c e5 8d 74  5c 44 0d 06 13 1a e7 c1  |))=7...t\D......|
00001f90  4c 24 28 49 29 2c 38 2c  31 29 3d 22 40 22 8c e5  |L$(I),8,1)="@"..|
00001fa0  8d 54 62 46 0d 06 16 36  4e 33 24 3d c1 4c 24 28  |.TbF...6N3$=.L$(|
00001fb0  49 29 2c 38 29 3a e7 c0  4e 33 24 2c 31 29 3d 22  |I),8):..N3$,1)="|
00001fc0  24 22 84 c0 4e 33 24 2c  31 29 3d 22 26 22 8c e5  |$"..N3$,1)="&"..|
00001fd0  8d 54 58 46 8b e5 8d 74  5c 44 0d 06 18 1e 4c 24  |.TXF...t\D....L$|
00001fe0  28 49 29 3d 22 24 22 2b  bd 28 32 35 35 29 2b 4e  |(I)="$"+.(255)+N|
00001ff0  33 24 3a e5 8d 64 76 44  0d 06 22 3f 59 3d 39 3a  |3$:..dvD.."?Y=9:|
00002000  f2 47 45 54 3a 4e 33 24  3d c1 4c 24 28 49 29 2c  |.GET:N3$=.L$(I),|
00002010  59 29 3a e7 c0 4e 33 24  2c 31 29 3d 22 24 22 84  |Y):..N3$,1)="$".|
00002020  c0 4e 33 24 2c 31 29 3d  22 26 22 8c e5 8d 54 67  |.N3$,1)="&"...Tg|
00002030  46 8b e5 8d 74 5c 44 0d  06 27 26 4c 24 28 49 29  |F...t\D..'&L$(I)|
00002040  3d 22 24 22 2b bd 28 32  35 34 29 2b 4e 31 24 2b  |="$"+.(254)+N1$+|
00002050  4e 32 24 2b 4e 33 24 3a  e5 8d 64 76 44 0d 06 2c  |N2$+N3$:..dvD..,|
00002060  28 e7 c0 4c 24 28 49 29  2c 31 31 29 3d 22 41 43  |(..L$(I),11)="AC|
00002070  43 45 50 54 44 41 54 45  20 22 8c 4f 3d 31 39 3a  |CEPTDATE ".O=19:|
00002080  e5 8d 54 7a 47 0d 06 2e  28 e7 c0 4c 24 28 49 29  |..TzG...(..L$(I)|
00002090  2c 31 31 29 3d 22 41 43  43 45 50 54 54 49 4d 45  |,11)="ACCEPTTIME|
000020a0  20 22 8c 4f 3d 32 30 3a  e5 8d 54 7a 47 0d 06 31  | ".O=20:..TzG..1|
000020b0  09 e5 8d 74 5c 44 0d 06  40 10 e7 46 4f 25 3d 32  |...t\D..@..FO%=2|
000020c0  8c e5 8d 44 5e 46 0d 06  42 53 f2 43 47 45 54 28  |...D^F..BS.CGET(|
000020d0  c1 4c 24 28 49 29 2c 35  29 29 3a e7 43 4f 4d 25  |.L$(I),5)):.COM%|
000020e0  3d 32 8c f2 52 45 4c 45  3a f2 50 47 45 54 28 43  |=2..RELE:.PGET(C|
000020f0  4f 4d 25 2c c1 4c 24 28  49 29 2c 35 29 29 3a f2  |OM%,.L$(I),5)):.|
00002100  50 43 48 4b 28 22 46 58  22 29 3a f2 50 50 41 44  |PCHK("FX"):.PPAD|
00002110  28 32 29 3a e5 8d 44 4a  46 0d 06 45 43 e7 43 4f  |(2):..DJF..EC.CO|
00002120  4d 25 3d 33 8c f2 52 45  4c 45 3a f2 50 47 45 54  |M%=3..RELE:.PGET|
00002130  28 43 4f 4d 25 2c c1 4c  24 28 49 29 2c 35 29 29  |(COM%,.L$(I),5))|
00002140  3a f2 50 43 48 4b 28 22  46 58 59 22 29 3a f2 50  |:.PCHK("FXY"):.P|
00002150  50 41 44 28 33 29 3a e5  8d 44 4a 46 0d 06 47 09  |PAD(3):..DJF..G.|
00002160  e5 8d 74 5c 44 0d 06 4a  18 4c 24 28 49 29 3d 22  |..t\D..J.L$(I)="|
00002170  25 22 2b 50 41 44 24 3a  e5 8d 64 76 44 0d 06 4f  |%"+PAD$:..dvD..O|
00002180  1b e7 46 4f 25 3d 32 84  a9 28 4c 24 28 49 29 29  |..FO%=2..(L$(I))|
00002190  3d 33 8c e5 8d 74 5c 44  0d 06 54 31 f2 52 45 4c  |=3...t\D..T1.REL|
000021a0  45 3a f2 50 47 45 54 28  32 2c c1 4c 24 28 49 29  |E:.PGET(2,.L$(I)|
000021b0  2c 35 29 29 3a f2 50 43  48 4b 28 22 46 58 22 29  |,5)):.PCHK("FX")|
000021c0  3a f2 50 50 41 44 28 32  29 0d 06 59 18 4c 24 28  |:.PPAD(2)..Y.L$(|
000021d0  49 29 3d 22 26 22 2b 50  41 44 24 3a e5 8d 64 76  |I)="&"+PAD$:..dv|
000021e0  44 0d 06 5e 23 e7 c0 4c  24 28 49 29 2c 36 29 3d  |D..^#..L$(I),6)=|
000021f0  22 47 45 54 4b 45 59 22  8c 46 4f 25 3d 31 3a e5  |"GETKEY".FO%=1:.|
00002200  8d 64 5a 47 0d 06 60 09  e5 8d 74 5c 44 0d 06 68  |.dZG..`...t\D..h|
00002210  50 dd f2 50 50 41 44 28  50 50 25 29 3a 50 41 44  |P..PPAD(PP%):PAD|
00002220  24 3d 22 22 3a e3 4a 3d  31 b8 50 50 25 3a f2 43  |$="":.J=1.PP%:.C|
00002230  4f 4e 56 28 50 24 28 4a  29 2c 31 32 29 3a 50 24  |ONV(P$(J),12):P$|
00002240  28 4a 29 3d 53 54 4e 24  3a 50 41 44 24 3d 50 41  |(J)=STN$:PAD$=PA|
00002250  44 24 2b 50 24 28 4a 29  3a ed 4a 3a e1 0d 06 6f  |D$+P$(J):.J:...o|
00002260  20 dd f2 52 45 4c 45 3a  e3 4a 3d 31 b8 31 35 3a  | ..RELE:.J=1.15:|
00002270  50 24 28 4a 29 3d 22 22  3a ed 4a 3a e1 0d 06 72  |P$(J)="":.J:...r|
00002280  17 dd f2 50 47 45 54 28  4d 50 25 2c 50 47 24 29  |...PGET(MP%,PG$)|
00002290  3a 4c 3d 31 0d 06 74 1a  e7 4c 3d 4d 50 25 8c 50  |:L=1..t..L=MP%.P|
000022a0  24 28 4c 29 3d 50 47 24  3a e5 8d 74 41 46 0d 06  |$(L)=PG$:..tAF..|
000022b0  77 1e 4d 46 25 3d a7 50  47 24 2c 22 2c 22 29 3a  |w.MF%=.PG$,","):|
000022c0  e7 4d 46 25 3d 30 8c e5  8d 74 5c 44 0d 06 79 33  |.MF%=0...t\D..y3|
000022d0  50 24 28 4c 29 3d c0 50  47 24 2c 28 4d 46 25 2d  |P$(L)=.PG$,(MF%-|
000022e0  31 29 29 3a e7 50 24 28  4c 29 3d 22 22 84 a9 28  |1)):.P$(L)=""..(|
000022f0  50 24 28 4c 29 29 3e 31  32 8c e5 8d 74 5c 44 0d  |P$(L))>12...t\D.|
00002300  06 7c 21 50 47 24 3d c1  50 47 24 2c 28 4d 46 25  |.|!PG$=.PG$,(MF%|
00002310  2b 31 29 29 3a 4c 3d 4c  2b 31 3a e5 8d 44 74 46  |+1)):L=L+1:..DtF|
00002320  0d 06 81 05 e1 0d 06 86  0f dd f2 50 43 48 4b 28  |...........PCHK(|
00002330  50 43 24 29 0d 06 89 3f  e3 4a 3d 31 b8 a9 28 50  |PC$)...?.J=1..(P|
00002340  43 24 29 3a 50 43 31 24  3d c1 50 43 24 2c 4a 2c  |C$):PC1$=.PC$,J,|
00002350  31 29 3a 50 43 32 25 3d  bb 28 c1 50 24 28 4a 29  |1):PC2%=.(.P$(J)|
00002360  2c 32 29 29 3a 50 43 33  24 3d c0 50 24 28 4a 29  |,2)):PC3$=.P$(J)|
00002370  2c 31 29 0d 06 8b 13 e7  50 43 31 24 3d 22 46 22  |,1).....PC1$="F"|
00002380  8c e5 8d 74 55 46 0d 06  8c 13 e7 50 43 31 24 3d  |...tUF.....PC1$=|
00002390  22 53 22 8c e5 8d 74 5a  46 0d 06 8d 13 e7 50 43  |"S"...tZF.....PC|
000023a0  31 24 3d 22 41 22 8c e5  8d 74 5f 46 0d 06 8e 13  |1$="A"...t_F....|
000023b0  e7 50 43 31 24 3d 22 58  22 8c e5 8d 74 64 46 0d  |.PC1$="X"...tdF.|
000023c0  06 90 13 e7 50 43 33 24  3d 22 23 22 8c e5 8d 74  |....PC3$="#"...t|
000023d0  5c 44 0d 06 92 09 e5 8d  74 69 46 0d 06 95 14 e7  |\D......tiF.....|
000023e0  50 43 33 24 3c 3e 22 23  22 8c e5 8d 74 5c 44 0d  |PC3$<>"#"...t\D.|
000023f0  06 96 1a e7 50 43 32 25  3c 31 84 50 43 32 25 3e  |....PC2%<1.PC2%>|
00002400  39 39 39 8c e5 8d 74 5c  44 0d 06 97 09 e5 8d 74  |999...t\D......t|
00002410  69 46 0d 06 9a 14 e7 50  43 33 24 3c 3e 22 24 22  |iF.....PC3$<>"$"|
00002420  8c e5 8d 74 5c 44 0d 06  9b 1a e7 50 43 32 25 3c  |...t\D.....PC2%<|
00002430  30 84 50 43 32 25 3e 4d  56 25 8c e5 8d 74 5c 44  |0.PC2%>MV%...t\D|
00002440  0d 06 9c 09 e5 8d 74 69  46 0d 06 9f 14 e7 50 43  |......tiF.....PC|
00002450  33 24 3c 3e 22 26 22 8c  e5 8d 74 5c 44 0d 06 a0  |3$<>"&"...t\D...|
00002460  1a e7 50 43 32 25 3c 30  84 50 43 32 25 3e 4d 56  |..PC2%<0.PC2%>MV|
00002470  25 8c e5 8d 74 5c 44 0d  06 a1 09 e5 8d 74 69 46  |%...t\D......tiF|
00002480  0d 06 a4 13 e7 50 43 33  24 3d 22 24 22 8c e5 8d  |.....PC3$="$"...|
00002490  74 67 46 0d 06 a5 13 e7  50 43 33 24 3d 22 26 22  |tgF.....PC3$="&"|
000024a0  8c e5 8d 74 67 46 0d 06  a6 09 e5 8d 74 5c 44 0d  |...tgF......t\D.|
000024b0  06 a7 1a e7 50 43 32 25  3c 30 84 50 43 32 25 3e  |....PC2%<0.PC2%>|
000024c0  4d 56 25 8c e5 8d 74 5c  44 0d 06 a9 08 ed 4a 3a  |MV%...t\D.....J:|
000024d0  e1 0d 06 ae 1b e7 46 4f  25 3d 32 84 a9 28 4c 24  |......FO%=2..(L$|
000024e0  28 49 29 29 3d 35 8c e5  8d 74 5c 44 0d 06 b3 1a  |(I))=5...t\D....|
000024f0  e7 c1 4c 24 28 49 29 2c  36 2c 31 29 3d 22 40 22  |..L$(I),6,1)="@"|
00002500  8c e5 8d 74 78 46 0d 06  b5 24 4c 24 28 49 29 3d  |...txF...$L$(I)=|
00002510  22 27 22 2b bd 28 32 35  35 29 2b c1 4c 24 28 49  |"'"+.(255)+.L$(I|
00002520  29 2c 36 29 3a e5 8d 64  76 44 0d 06 b8 35 59 3d  |),6):..dvD...5Y=|
00002530  37 3a f2 47 45 54 3a 4c  24 28 49 29 3d 22 27 22  |7:.GET:L$(I)="'"|
00002540  2b bd 28 32 35 34 29 2b  4e 31 24 2b 4e 32 24 2b  |+.(254)+N1$+N2$+|
00002550  c1 4c 24 28 49 29 2c 59  29 3a e5 8d 64 76 44 0d  |.L$(I),Y):..dvD.|
00002560  06 c2 0f e7 4f 3d 35 36  8c e5 8d 74 40 4c 0d 06  |....O=56...t@L..|
00002570  c4 17 4c 24 28 49 29 3d  bd 28 4f 2b 33 32 29 3a  |..L$(I)=.(O+32):|
00002580  e5 8d 64 76 44 0d 06 cc  1b e7 46 4f 25 3d 32 84  |..dvD.....FO%=2.|
00002590  a9 28 4c 24 28 49 29 29  3d 36 8c e5 8d 74 5c 44  |.(L$(I))=6...t\D|
000025a0  0d 06 ce 2d 4e 32 25 3d  a7 4c 24 28 49 29 2c 22  |...-N2%=.L$(I),"|
000025b0  3c 3e 22 29 3a e7 4e 32  25 3e 30 8c 4f 50 25 3d  |<>"):.N2%>0.OP%=|
000025c0  32 3a 54 59 25 3d 36 3a  e5 8d 64 60 46 0d 06 d0  |2:TY%=6:..d`F...|
000025d0  2d 4e 32 25 3d a7 4c 24  28 49 29 2c 22 3c 3d 22  |-N2%=.L$(I),"<="|
000025e0  29 3a e7 4e 32 25 3e 30  8c 4f 50 25 3d 32 3a 54  |):.N2%>0.OP%=2:T|
000025f0  59 25 3d 35 3a e5 8d 64  60 46 0d 06 d2 2d 4e 32  |Y%=5:..d`F...-N2|
00002600  25 3d a7 4c 24 28 49 29  2c 22 3e 3d 22 29 3a e7  |%=.L$(I),">="):.|
00002610  4e 32 25 3e 30 8c 4f 50  25 3d 32 3a 54 59 25 3d  |N2%>0.OP%=2:TY%=|
00002620  34 3a e5 8d 64 60 46 0d  06 d4 2c 4e 32 25 3d a7  |4:..d`F...,N2%=.|
00002630  4c 24 28 49 29 2c 22 3e  22 29 3a e7 4e 32 25 3e  |L$(I),">"):.N2%>|
00002640  30 8c 4f 50 25 3d 31 3a  54 59 25 3d 33 3a e5 8d  |0.OP%=1:TY%=3:..|
00002650  64 60 46 0d 06 d6 2c 4e  32 25 3d a7 4c 24 28 49  |d`F...,N2%=.L$(I|
00002660  29 2c 22 3c 22 29 3a e7  4e 32 25 3e 30 8c 4f 50  |),"<"):.N2%>0.OP|
00002670  25 3d 31 3a 54 59 25 3d  32 3a e5 8d 64 60 46 0d  |%=1:TY%=2:..d`F.|
00002680  06 d8 2c 4e 32 25 3d a7  4c 24 28 49 29 2c 22 3d  |..,N2%=.L$(I),"=|
00002690  22 29 3a e7 4e 32 25 3e  30 8c 4f 50 25 3d 31 3a  |"):.N2%>0.OP%=1:|
000026a0  54 59 25 3d 31 3a e5 8d  64 60 46 0d 06 db 09 e5  |TY%=1:..d`F.....|
000026b0  8d 74 5c 44 0d 06 e0 6e  4e 31 25 3d a9 28 4c 24  |.t\D...nN1%=.(L$|
000026c0  28 49 29 29 2b 31 3a 49  54 25 3d 31 3a 4e 31 24  |(I))+1:IT%=1:N1$|
000026d0  3d c1 4c 24 28 49 29 2c  37 2c 4e 32 25 2d 37 29  |=.L$(I),7,N2%-7)|
000026e0  3a 4e 32 24 3d c1 4c 24  28 49 29 2c 28 4e 32 25  |:N2$=.L$(I),(N2%|
000026f0  2b 4f 50 25 29 2c 28 4e  31 25 2d 4e 32 25 29 2d  |+OP%),(N1%-N2%)-|
00002700  31 29 3a e7 c2 4e 32 24  2c 31 29 3d 22 20 22 8c  |1):..N2$,1)=" ".|
00002710  4e 32 24 3d c0 4e 32 24  2c a9 28 4e 32 24 29 2d  |N2$=.N2$,.(N2$)-|
00002720  31 29 0d 06 e3 18 e7 4e  31 24 3d 22 22 84 4e 32  |1).....N1$="".N2|
00002730  24 3d 22 22 8c e5 8d 74  5c 44 0d 06 e4 1e e7 a9  |$=""...t\D......|
00002740  28 4e 31 24 29 3e 32 39  84 a9 28 4e 32 24 29 3e  |(N1$)>29..(N2$)>|
00002750  32 39 8c e5 8d 74 5c 44  0d 06 e6 a4 e7 c0 4e 31  |29...t\D......N1|
00002760  24 2c 31 29 3d 22 24 22  84 c0 4e 31 24 2c 31 29  |$,1)="$"..N1$,1)|
00002770  3d bd 28 33 34 29 8c 4e  35 24 3d 4e 31 24 3a f2  |=.(34).N5$=N1$:.|
00002780  53 47 45 54 3a 4e 31 24  3d 4e 41 24 3a 4e 35 24  |SGET:N1$=NA$:N5$|
00002790  3d 4e 32 24 3a f2 53 47  45 54 3a 4e 32 24 3d 4e  |=N2$:.SGET:N2$=N|
000027a0  41 24 3a 49 54 25 3d 32  3a 4e 31 24 3d 4e 31 24  |A$:IT%=2:N1$=N1$|
000027b0  2b bd 28 32 35 33 29 3a  4e 32 24 3d 4e 32 24 2b  |+.(253):N2$=N2$+|
000027c0  bd 28 32 35 33 29 3a f2  43 4f 4e 56 28 4e 31 24  |.(253):.CONV(N1$|
000027d0  2c 33 30 29 3a 44 42 31  24 3d 53 54 4e 24 3a f2  |,30):DB1$=STN$:.|
000027e0  43 4f 4e 56 28 4e 32 24  2c 33 30 29 3a 44 42 32  |CONV(N2$,30):DB2|
000027f0  24 3d 53 54 4e 24 3a e5  8d 64 74 46 0d 06 ea 56  |$=STN$:..dtF...V|
00002800  f2 43 4f 4e 56 28 4e 31  24 2c 32 39 29 3a 44 42  |.CONV(N1$,29):DB|
00002810  31 24 3d 53 54 4e 24 3a  f2 43 4f 4e 56 28 4e 32  |1$=STN$:.CONV(N2|
00002820  24 2c 32 39 29 3a 44 42  32 24 3d 53 54 4e 24 3a  |$,29):DB2$=STN$:|
00002830  e7 49 54 25 3d 31 8c 44  42 31 24 3d 44 42 31 24  |.IT%=1.DB1$=DB1$|
00002840  2b 22 20 22 3a 44 42 32  24 3d 44 42 32 24 2b 22  |+" ":DB2$=DB2$+"|
00002850  20 22 0d 06 f4 2b 4c 24  28 49 29 3d 22 2b 22 2b  | "...+L$(I)="+"+|
00002860  c3 28 49 54 25 29 2b c3  28 54 59 25 29 2b 44 42  |.(IT%)+.(TY%)+DB|
00002870  31 24 2b 44 42 32 24 3a  e5 8d 64 76 44 0d 07 08  |1$+DB2$:..dvD...|
00002880  1b e7 46 4f 25 3d 32 84  a9 28 4c 24 28 49 29 29  |..FO%=2..(L$(I))|
00002890  3d 35 8c e5 8d 74 5c 44  0d 07 0d 22 59 3d 36 3a  |=5...t\D..."Y=6:|
000028a0  f2 46 47 45 54 3a 4c 24  28 49 29 3d 22 2d 22 2b  |.FGET:L$(I)="-"+|
000028b0  46 49 4c 24 3a e5 8d 64  76 44 0d 07 12 33 dd f2  |FIL$:..dvD...3..|
000028c0  46 47 45 54 3a 46 49 4c  24 3d c1 4c 24 28 49 29  |FGET:FIL$=.L$(I)|
000028d0  2c 59 29 3a e7 46 49 4c  24 3d 22 22 84 a9 28 46  |,Y):.FIL$=""..(F|
000028e0  49 4c 24 29 3e 31 30 8c  e5 8d 74 5c 44 0d 07 14  |IL$)>10...t\D...|
000028f0  05 e1 0d 07 17 25 e7 46  4f 25 3d 32 84 a9 28 4c  |.....%.FO%=2..(L|
00002900  24 28 49 29 29 3d 37 8c  4c 24 28 49 29 3d 22 3a  |$(I))=7.L$(I)=":|
00002910  22 3a e5 8d 64 76 44 0d  07 19 22 59 3d 38 3a f2  |":..dvD..."Y=8:.|
00002920  46 47 45 54 3a 4c 24 28  49 29 3d 22 2e 22 2b 46  |FGET:L$(I)="."+F|
00002930  49 4c 24 3a e5 8d 64 76  44 0d 07 1c 1b e7 46 4f  |IL$:..dvD.....FO|
00002940  25 3d 32 84 a9 28 4c 24  28 49 29 29 3d 38 8c e5  |%=2..(L$(I))=8..|
00002950  8d 74 5c 44 0d 07 1e 22  59 3d 39 3a f2 46 47 45  |.t\D..."Y=9:.FGE|
00002960  54 3a 4c 24 28 49 29 3d  22 2f 22 2b 46 49 4c 24  |T:L$(I)="/"+FIL$|
00002970  3a e5 8d 64 76 44 0d 07  21 1c e7 46 4f 25 3d 32  |:..dvD..!..FO%=2|
00002980  84 a9 28 4c 24 28 49 29  29 3d 31 30 8c e5 8d 74  |..(L$(I))=10...t|
00002990  5c 44 0d 07 23 23 59 3d  31 30 3a f2 46 47 45 54  |\D..##Y=10:.FGET|
000029a0  3a 4c 24 28 49 29 3d 22  30 22 2b 46 49 4c 24 3a  |:L$(I)="0"+FIL$:|
000029b0  e5 8d 64 76 44 0d 07 26  1b e7 46 4f 25 3d 32 84  |..dvD..&..FO%=2.|
000029c0  a9 28 4c 24 28 49 29 29  3d 35 8c e5 8d 74 5c 44  |.(L$(I))=5...t\D|
000029d0  0d 07 29 32 f2 52 45 4c  45 3a f2 50 47 45 54 28  |..)2.RELE:.PGET(|
000029e0  33 2c c1 4c 24 28 49 29  2c 36 29 29 3a f2 50 43  |3,.L$(I),6)):.PC|
000029f0  48 4b 28 22 46 58 59 22  29 3a f2 50 50 41 44 28  |HK("FXY"):.PPAD(|
00002a00  33 29 0d 07 2d 18 4c 24  28 49 29 3d 22 31 22 2b  |3)..-.L$(I)="1"+|
00002a10  50 41 44 24 3a e5 8d 64  76 44 0d 07 30 1b e7 46  |PAD$:..dvD..0..F|
00002a20  4f 25 3d 32 84 a9 28 4c  24 28 49 29 29 3d 35 8c  |O%=2..(L$(I))=5.|
00002a30  e5 8d 74 5c 44 0d 07 33  32 f2 52 45 4c 45 3a f2  |..t\D..32.RELE:.|
00002a40  50 47 45 54 28 33 2c c1  4c 24 28 49 29 2c 36 29  |PGET(3,.L$(I),6)|
00002a50  29 3a f2 50 43 48 4b 28  22 46 58 59 22 29 3a f2  |):.PCHK("FXY"):.|
00002a60  50 50 41 44 28 33 29 0d  07 37 18 4c 24 28 49 29  |PPAD(3)..7.L$(I)|
00002a70  3d 22 32 22 2b 50 41 44  24 3a e5 8d 64 76 44 0d  |="2"+PAD$:..dvD.|
00002a80  07 3a 16 e7 a9 28 4c 24  28 49 29 29 3d 31 31 8c  |.:...(L$(I))=11.|
00002a90  e5 8d 74 5c 44 0d 07 3f  1b e7 c1 4c 24 28 49 29  |..t\D..?...L$(I)|
00002aa0  2c 31 32 2c 31 29 3d 22  40 22 8c e5 8d 44 4e 47  |,12,1)="@"...DNG|
00002ab0  0d 07 42 37 4e 33 24 3d  c1 4c 24 28 49 29 2c 31  |..B7N3$=.L$(I),1|
00002ac0  32 29 3a e7 c0 4e 33 24  2c 31 29 3d 22 24 22 84  |2):..N3$,1)="$".|
00002ad0  c0 4e 33 24 2c 31 29 3d  22 26 22 8c e5 8d 44 44  |.N3$,1)="&"...DD|
00002ae0  47 8b e5 8d 74 5c 44 0d  07 44 22 4c 24 28 49 29  |G...t\D..D"L$(I)|
00002af0  3d bd 28 4f 2b 33 32 29  2b bd 28 32 35 35 29 2b  |=.(O+32)+.(255)+|
00002b00  4e 33 24 3a e5 8d 64 76  44 0d 07 4e 40 59 3d 31  |N3$:..dvD..N@Y=1|
00002b10  33 3a f2 47 45 54 3a 4e  33 24 3d c1 4c 24 28 49  |3:.GET:N3$=.L$(I|
00002b20  29 2c 59 29 3a e7 c0 4e  33 24 2c 31 29 3d 22 24  |),Y):..N3$,1)="$|
00002b30  22 84 c0 4e 33 24 2c 31  29 3d 22 26 22 8c e5 8d  |"..N3$,1)="&"...|
00002b40  44 53 47 8b e5 8d 74 5c  44 0d 07 53 2a 4c 24 28  |DSG...t\D..S*L$(|
00002b50  49 29 3d bd 28 4f 2b 33  32 29 2b bd 28 32 35 34  |I)=.(O+32)+.(254|
00002b60  29 2b 4e 31 24 2b 4e 32  24 2b 4e 33 24 3a e5 8d  |)+N1$+N2$+N3$:..|
00002b70  64 76 44 0d 07 58 1a e7  46 4f 25 3d 32 8c 4c 24  |dvD..X..FO%=2.L$|
00002b80  28 49 29 3d 22 35 22 3a  e5 8d 64 76 44 0d 07 5d  |(I)="5":..dvD..]|
00002b90  22 59 3d 36 3a f2 46 47  45 54 3a 4c 24 28 49 29  |"Y=6:.FGET:L$(I)|
00002ba0  3d 22 35 22 2b 46 49 4c  24 3a e5 8d 64 76 44 0d  |="5"+FIL$:..dvD.|
00002bb0  07 5f 15 e7 53 45 54 24  3d 57 24 28 4c 29 8c e5  |._..SET$=W$(L)..|
00002bc0  8d 44 67 47 0d 07 62 1b  4c 3d 4c 2b 31 3a e7 4c  |.DgG..b.L=L+1:.L|
00002bd0  3d 37 38 8c e5 8d 74 5c  44 8b e5 8d 44 5f 47 0d  |=78...t\D...D_G.|
00002be0  07 67 1b 4c 24 28 49 29  3d 22 35 22 2b c3 28 4c  |.g.L$(I)="5"+.(L|
00002bf0  2d 35 39 29 3a e5 8d 64  76 44 0d 07 6c 15 e7 46  |-59):..dvD..l..F|
00002c00  4f 25 3d 32 8c 4c 24 28  49 29 3d 22 36 31 22 0d  |O%=2.L$(I)="61".|
00002c10  07 71 30 f2 52 45 4c 45  3a f2 50 47 45 54 28 31  |.q0.RELE:.PGET(1|
00002c20  2c c1 4c 24 28 49 29 2c  38 29 29 3a f2 50 43 48  |,.L$(I),8)):.PCH|
00002c30  4b 28 22 59 22 29 3a f2  50 50 41 44 28 31 29 0d  |K("Y"):.PPAD(1).|
00002c40  07 76 18 4c 24 28 49 29  3d 22 36 22 2b 50 41 44  |.v.L$(I)="6"+PAD|
00002c50  24 3a e5 8d 64 76 44 0d  07 80 10 e7 46 4f 25 3d  |$:..dvD.....FO%=|
00002c60  32 8c e5 8d 74 5c 44 0d  07 85 22 59 3d 36 3a f2  |2...t\D..."Y=6:.|
00002c70  46 47 45 54 3a 4c 24 28  49 29 3d 22 39 22 2b 46  |FGET:L$(I)="9"+F|
00002c80  49 4c 24 3a e5 8d 64 76  44 0d 07 8a 1b e7 46 4f  |IL$:..dvD.....FO|
00002c90  25 3d 32 84 a9 28 4c 24  28 49 29 29 3d 39 8c e5  |%=2..(L$(I))=9..|
00002ca0  8d 74 5c 44 0d 07 8f 4a  f2 43 47 45 54 28 c1 4c  |.t\D...J.CGET(.L|
00002cb0  24 28 49 29 2c 31 30 29  29 3a f2 50 47 45 54 28  |$(I),10)):.PGET(|
00002cc0  43 4f 4d 25 2c c1 4c 24  28 49 29 2c 31 30 29 29  |COM%,.L$(I),10))|
00002cd0  3a f2 50 43 48 4b 28 c4  43 4f 4d 25 2c 22 59 22  |:.PCHK(.COM%,"Y"|
00002ce0  29 29 3a f2 50 50 41 44  28 43 4f 4d 25 29 0d 07  |)):.PPAD(COM%)..|
00002cf0  94 18 4c 24 28 49 29 3d  22 3c 22 2b 50 41 44 24  |..L$(I)="<"+PAD$|
00002d00  3a e5 8d 64 76 44 0d 07  9e 1c dd f2 43 47 45 54  |:..dvD......CGET|
00002d10  28 43 47 24 29 3a 43 4f  25 3d 31 3a 43 4f 4d 25  |(CG$):CO%=1:COM%|
00002d20  3d 30 0d 07 a3 30 43 4f  31 25 3d a7 43 47 24 2c  |=0...0CO1%=.CG$,|
00002d30  22 2c 22 2c 43 4f 25 29  3a e7 43 4f 31 25 3d 30  |",",CO%):.CO1%=0|
00002d40  8c 43 4f 4d 25 3d 43 4f  4d 25 2b 31 3a e5 8d 74  |.COM%=COM%+1:..t|
00002d50  68 47 0d 07 a5 20 43 4f  4d 25 3d 43 4f 4d 25 2b  |hG... COM%=COM%+|
00002d60  31 3a 43 4f 25 3d 43 4f  31 25 2b 31 3a e5 8d 74  |1:CO%=CO1%+1:..t|
00002d70  63 47 0d 07 a8 12 e7 43  4f 4d 25 3e 31 35 8c e5  |cG.....COM%>15..|
00002d80  8d 74 5c 44 0d 07 aa 05  e1 0d 07 b2 1b e7 46 4f  |.t\D..........FO|
00002d90  25 3d 32 84 a9 28 4c 24  28 49 29 29 3d 38 8c e5  |%=2..(L$(I))=8..|
00002da0  8d 74 5c 44 0d 07 b7 5d  f2 43 47 45 54 28 c1 4c  |.t\D...].CGET(.L|
00002db0  24 28 49 29 2c 39 29 29  3a f2 50 47 45 54 28 43  |$(I),9)):.PGET(C|
00002dc0  4f 4d 25 2c c1 4c 24 28  49 29 2c 39 29 29 3a f2  |OM%,.L$(I),9)):.|
00002dd0  50 43 48 4b 28 c4 43 4f  4d 25 2c 22 59 22 29 29  |PCHK(.COM%,"Y"))|
00002de0  3a f2 50 50 41 44 28 43  4f 4d 25 29 3a 4c 24 28  |:.PPAD(COM%):L$(|
00002df0  49 29 3d 22 3d 22 2b 50  41 44 24 3a e5 8d 64 76  |I)="="+PAD$:..dv|
00002e00  44 0d 07 bc 1a e7 46 4f  25 3d 32 8c 4c 24 28 49  |D.....FO%=2.L$(I|
00002e10  29 3d 22 3e 22 3a e5 8d  64 76 44 0d 07 c1 22 59  |)=">":..dvD..."Y|
00002e20  3d 37 3a f2 46 47 45 54  3a 4c 24 28 49 29 3d 22  |=7:.FGET:L$(I)="|
00002e30  3e 22 2b 46 49 4c 24 3a  e5 8d 64 76 44 0d 07 c6  |>"+FIL$:..dvD...|
00002e40  1a e7 46 4f 25 3d 32 8c  4c 24 28 49 29 3d 22 3f  |..FO%=2.L$(I)="?|
00002e50  22 3a e5 8d 64 76 44 0d  07 cb 22 59 3d 36 3a f2  |":..dvD..."Y=6:.|
00002e60  46 47 45 54 3a 4c 24 28  49 29 3d 22 3f 22 2b 46  |FGET:L$(I)="?"+F|
00002e70  49 4c 24 3a e5 8d 64 76  44 0d 07 d0 1b e7 46 4f  |IL$:..dvD.....FO|
00002e80  25 3d 32 84 a9 28 4c 24  28 49 29 29 3d 37 8c e5  |%=2..(L$(I))=7..|
00002e90  8d 74 5c 44 0d 07 d2 12  46 49 4c 24 3d c1 4c 24  |.t\D....FIL$=.L$|
00002ea0  28 49 29 2c 38 29 0d 07  d5 18 4c 24 28 49 29 3d  |(I),8)....L$(I)=|
00002eb0  22 43 22 2b 46 49 4c 24  3a e5 8d 64 76 44 0d 07  |"C"+FIL$:..dvD..|
00002ec0  da 1b e7 46 4f 25 3d 32  84 a9 28 4c 24 28 49 29  |...FO%=2..(L$(I)|
00002ed0  29 3d 37 8c e5 8d 74 5c  44 0d 07 dc 34 59 3d 38  |)=7...t\D...4Y=8|
00002ee0  3a f2 46 47 45 54 3a e7  c0 46 49 4c 24 2c 31 29  |:.FGET:..FIL$,1)|
00002ef0  3d 22 24 22 84 c0 46 49  4c 24 2c 31 29 3d 22 26  |="$"..FIL$,1)="&|
00002f00  22 8c e5 8d 64 61 47 8b  e5 8d 74 5c 44 0d 07 e1  |"...daG...t\D...|
00002f10  18 4c 24 28 49 29 3d 22  44 22 2b 46 49 4c 24 3a  |.L$(I)="D"+FIL$:|
00002f20  e5 8d 64 76 44 0d 07 e4  1b e7 46 4f 25 3d 32 84  |..dvD.....FO%=2.|
00002f30  a9 28 4c 24 28 49 29 29  3d 34 8c e5 8d 74 5c 44  |.(L$(I))=4...t\D|
00002f40  0d 07 e9 4a f2 52 45 4c  45 3a f2 50 47 45 54 28  |...J.RELE:.PGET(|
00002f50  32 2c c1 4c 24 28 49 29  2c 35 29 29 3a f2 50 43  |2,.L$(I),5)):.PC|
00002f60  48 4b 28 22 46 58 22 29  3a f2 50 50 41 44 28 32  |HK("FX"):.PPAD(2|
00002f70  29 3a 4c 24 28 49 29 3d  bd 28 4f 2b 33 32 29 2b  |):L$(I)=.(O+32)+|
00002f80  50 41 44 24 3a e5 8d 64  76 44 0d 07 ee 1b e7 46  |PAD$:..dvD.....F|
00002f90  4f 25 3d 32 84 a9 28 4c  24 28 49 29 29 3d 35 8c  |O%=2..(L$(I))=5.|
00002fa0  e5 8d 74 5c 44 0d 07 f3  46 f2 52 45 4c 45 3a f2  |..t\D...F.RELE:.|
00002fb0  50 47 45 54 28 32 2c c1  4c 24 28 49 29 2c 36 29  |PGET(2,.L$(I),6)|
00002fc0  29 3a e7 c0 4c 24 28 49  29 2c 34 29 3d 22 44 41  |):..L$(I),4)="DA|
00002fd0  54 43 22 8c f2 50 43 48  4b 28 22 41 53 22 29 8b  |TC"..PCHK("AS").|
00002fe0  f2 50 43 48 4b 28 22 53  41 22 29 0d 07 f8 25 f2  |.PCHK("SA")...%.|
00002ff0  50 50 41 44 28 32 29 3a  4c 24 28 49 29 3d bd 28  |PPAD(2):L$(I)=.(|
00003000  4f 2b 33 32 29 2b 50 41  44 24 3a e5 8d 64 76 44  |O+32)+PAD$:..dvD|
00003010  0d 08 02 1b e7 46 4f 25  3d 32 84 a9 28 4c 24 28  |.....FO%=2..(L$(|
00003020  49 29 29 3d 35 8c e5 8d  74 5c 44 0d 08 04 48 f2  |I))=5...t\D...H.|
00003030  52 45 4c 45 3a f2 50 47  45 54 28 34 2c c1 4c 24  |RELE:.PGET(4,.L$|
00003040  28 49 29 2c 36 29 29 3a  f2 50 43 48 4b 28 22 41  |(I),6)):.PCHK("A|
00003050  59 53 59 22 29 3a f2 50  50 41 44 28 34 29 3a 4c  |YSY"):.PPAD(4):L|
00003060  24 28 49 29 3d 22 50 22  2b 50 41 44 24 3a e5 8d  |$(I)="P"+PAD$:..|
00003070  64 76 44 0d 08 0c 1b e7  46 4f 25 3d 32 84 a9 28  |dvD.....FO%=2..(|
00003080  4c 24 28 49 29 29 3d 34  8c e5 8d 74 5c 44 0d 08  |L$(I))=4...t\D..|
00003090  0e 48 f2 52 45 4c 45 3a  f2 50 47 45 54 28 34 2c  |.H.RELE:.PGET(4,|
000030a0  c1 4c 24 28 49 29 2c 35  29 29 3a f2 50 43 48 4b  |.L$(I),5)):.PCHK|
000030b0  28 22 53 53 59 59 22 29  3a f2 50 50 41 44 28 34  |("SSYY"):.PPAD(4|
000030c0  29 3a 4c 24 28 49 29 3d  22 51 22 2b 50 41 44 24  |):L$(I)="Q"+PAD$|
000030d0  3a e5 8d 64 76 44 0d 08  16 1b e7 46 4f 25 3d 32  |:..dvD.....FO%=2|
000030e0  84 a9 28 4c 24 28 49 29  29 3d 35 8c e5 8d 74 5c  |..(L$(I))=5...t\|
000030f0  44 0d 08 18 47 f2 52 45  4c 45 3a f2 50 47 45 54  |D...G.RELE:.PGET|
00003100  28 33 2c c1 4c 24 28 49  29 2c 36 29 29 3a f2 50  |(3,.L$(I),6)):.P|
00003110  43 48 4b 28 22 53 53 59  22 29 3a f2 50 50 41 44  |CHK("SSY"):.PPAD|
00003120  28 33 29 3a 4c 24 28 49  29 3d 22 52 22 2b 50 41  |(3):L$(I)="R"+PA|
00003130  44 24 3a e5 8d 64 76 44  0d 08 20 1b e7 46 4f 25  |D$:..dvD.. ..FO%|
00003140  3d 32 84 a9 28 4c 24 28  49 29 29 3d 36 8c e5 8d  |=2..(L$(I))=6...|
00003150  74 5c 44 0d 08 22 45 f2  52 45 4c 45 3a f2 50 47  |t\D.."E.RELE:.PG|
00003160  45 54 28 31 2c c1 4c 24  28 49 29 2c 37 29 29 3a  |ET(1,.L$(I),7)):|
00003170  f2 50 43 48 4b 28 22 53  22 29 3a f2 50 50 41 44  |.PCHK("S"):.PPAD|
00003180  28 31 29 3a 4c 24 28 49  29 3d 22 53 22 2b 50 41  |(1):L$(I)="S"+PA|
00003190  44 24 3a e5 8d 64 76 44  0d 08 2a 1b e7 46 4f 25  |D$:..dvD..*..FO%|
000031a0  3d 32 84 a9 28 4c 24 28  49 29 29 3d 34 8c e5 8d  |=2..(L$(I))=4...|
000031b0  74 5c 44 0d 08 2c 45 f2  52 45 4c 45 3a f2 50 47  |t\D..,E.RELE:.PG|
000031c0  45 54 28 31 2c c1 4c 24  28 49 29 2c 35 29 29 3a  |ET(1,.L$(I),5)):|
000031d0  f2 50 43 48 4b 28 22 53  22 29 3a f2 50 50 41 44  |.PCHK("S"):.PPAD|
000031e0  28 31 29 3a 4c 24 28 49  29 3d 22 54 22 2b 50 41  |(1):L$(I)="T"+PA|
000031f0  44 24 3a e5 8d 64 76 44  0d 0b b8 17 4c 24 28 49  |D$:..dvD....L$(I|
00003200  29 3d bd 28 4f 2b 33 32  29 3a e5 8d 64 76 44 0d  |)=.(O+32):..dvD.|
00003210  0b cc 1b e7 46 4f 25 3d  32 84 a9 28 4c 24 28 49  |....FO%=2..(L$(I|
00003220  29 29 3d 36 8c e5 8d 74  5c 44 0d 0b d1 48 f2 52  |))=6...t\D...H.R|
00003230  45 4c 45 3a f2 50 47 45  54 28 34 2c c1 4c 24 28  |ELE:.PGET(4,.L$(|
00003240  49 29 2c 37 29 29 3a f2  50 43 48 4b 28 22 59 59  |I),7)):.PCHK("YY|
00003250  59 59 22 29 3a f2 50 50  41 44 28 34 29 3a 4c 24  |YY"):.PPAD(4):L$|
00003260  28 49 29 3d 22 59 22 2b  50 41 44 24 3a e5 8d 64  |(I)="Y"+PAD$:..d|
00003270  76 44 0d 0b d6 1b e7 46  4f 25 3d 32 84 a9 28 4c  |vD.....FO%=2..(L|
00003280  24 28 49 29 29 3d 37 8c  e5 8d 74 5c 44 0d 0b db  |$(I))=7...t\D...|
00003290  22 59 3d 38 3a f2 46 47  45 54 3a 4c 24 28 49 29  |"Y=8:.FGET:L$(I)|
000032a0  3d 22 5a 22 2b 46 49 4c  24 3a e5 8d 64 76 44 0d  |="Z"+FIL$:..dvD.|
000032b0  0c 1c 0f e7 4f 3d 34 37  8c e5 8d 54 7a 4c 0d 0c  |....O=47...TzL..|
000032c0  21 1b e7 46 4f 25 3d 32  84 a9 28 4c 24 28 49 29  |!..FO%=2..(L$(I)|
000032d0  29 3d 37 8c e5 8d 74 5c  44 0d 0c 26 47 f2 52 45  |)=7...t\D..&G.RE|
000032e0  4c 45 3a f2 50 47 45 54  28 33 2c c1 4c 24 28 49  |LE:.PGET(3,.L$(I|
000032f0  29 2c 38 29 29 3a f2 50  43 48 4b 28 22 41 53 53  |),8)):.PCHK("ASS|
00003300  22 29 3a f2 50 50 41 44  28 33 29 3a 4c 24 28 49  |"):.PPAD(3):L$(I|
00003310  29 3d 22 4e 22 2b 50 41  44 24 3a e5 8d 64 76 44  |)="N"+PAD$:..dvD|
00003320  0d 0c 3a 1b e7 46 4f 25  3d 32 84 a9 28 4c 24 28  |..:..FO%=2..(L$(|
00003330  49 29 29 3d 38 8c e5 8d  74 5c 44 0d 0c 3d 5d f2  |I))=8...t\D..=].|
00003340  43 47 45 54 28 c1 4c 24  28 49 29 2c 39 29 29 3a  |CGET(.L$(I),9)):|
00003350  f2 50 47 45 54 28 43 4f  4d 25 2c c1 4c 24 28 49  |.PGET(COM%,.L$(I|
00003360  29 2c 39 29 29 3a f2 50  43 48 4b 28 c4 43 4f 4d  |),9)):.PCHK(.COM|
00003370  25 2c 22 59 22 29 29 3a  f2 50 50 41 44 28 43 4f  |%,"Y")):.PPAD(CO|
00003380  4d 25 29 3a 4c 24 28 49  29 3d 22 4f 22 2b 50 41  |M%):L$(I)="O"+PA|
00003390  44 24 3a e5 8d 64 76 44  0d 0c 80 1b e7 46 4f 25  |D$:..dvD.....FO%|
000033a0  3d 32 84 a9 28 4c 24 28  49 29 29 3d 37 8c e5 8d  |=2..(L$(I))=7...|
000033b0  74 5c 44 0d 0c 85 1f 4e  35 24 3d c1 4c 24 28 49  |t\D....N5$=.L$(I|
000033c0  29 2c 38 29 3a e7 4e 35  24 3d 22 22 8c e5 8d 74  |),8):.N5$=""...t|
000033d0  5c 44 0d 0c 8a 1d f2 53  47 45 54 3a 4c 24 28 49  |\D.....SGET:L$(I|
000033e0  29 3d 22 58 22 2b 4e 41  24 3a e5 8d 64 76 44 0d  |)="X"+NA$:..dvD.|
000033f0  13 24 53 dd f2 53 45 4c  45 43 54 3a ff 22 46 58  |.$S..SELECT:."FX|
00003400  34 2c 31 22 3a 45 44 25  3d 59 2b 28 4c 25 2d 31  |4,1":ED%=Y+(L%-1|
00003410  29 3a 42 47 25 3d 58 2b  28 57 25 2d 31 29 3a e3  |):BG%=X+(W%-1):.|
00003420  49 3d 31 b8 4c 25 3a f1  8a 58 2c 59 2b 28 49 2d  |I=1.L%:..X,Y+(I-|
00003430  31 29 29 3b 22 20 20 22  3b 4d 45 24 28 49 29 3a  |1));"  ";ME$(I):|
00003440  ed 49 0d 13 33 2b c8 97  20 58 50 2c 59 50 2c 42  |.I..3+.. XP,YP,B|
00003450  55 54 3a 58 50 3d a8 28  58 50 2f 31 36 29 3a 59  |UT:XP=.(XP/16):Y|
00003460  50 3d 33 31 2d a8 28 59  50 2f 33 32 29 0d 13 38  |P=31-.(YP/32)..8|
00003470  17 e7 42 55 54 3d 34 8c  e5 8d 54 7d 53 3a 8b e5  |..BUT=4...T}S:..|
00003480  8d 54 73 53 0d 13 3d 18  e7 59 50 3c 59 20 84 20  |.TsS..=..YP<Y . |
00003490  59 50 3e 45 44 25 8c e5  8d 54 73 53 0d 13 40 18  |YP>ED%...TsS..@.|
000034a0  e7 58 50 3c 58 20 84 20  58 50 3e 42 47 25 8c e5  |.XP<X . XP>BG%..|
000034b0  8d 54 73 53 0d 13 42 13  53 45 4c 25 3d 28 59 50  |.TsS..B.SEL%=(YP|
000034c0  2d 59 29 2b 31 3a e1 0d  13 88 0a dd f2 54 49 4d  |-Y)+1:.......TIM|
000034d0  45 0d 13 8d 5e 53 25 3d  28 91 20 81 31 30 30 29  |E...^S%=(. .100)|
000034e0  83 36 30 3a 4d 25 3d 28  91 20 81 36 30 30 30 29  |.60:M%=(. .6000)|
000034f0  83 36 30 3a 48 25 3d 28  91 20 81 33 36 30 30 30  |.60:H%=(. .36000|
00003500  30 29 83 32 34 3a f1 8a  37 33 2c 30 29 3b 22 3a  |0).24:..73,0);":|
00003510  22 3b 8a 37 36 2c 30 29  3b 22 3a 22 3a e7 53 25  |";.76,0);":":.S%|
00003520  3c 31 30 8c f1 8a 37 37  2c 30 29 3b 22 30 22 0d  |<10...77,0);"0".|
00003530  13 92 16 e7 4d 25 3c 31  30 8c f1 8a 37 34 2c 30  |....M%<10...74,0|
00003540  29 3b 22 30 22 0d 13 97  16 e7 48 25 3c 31 30 8c  |);"0".....H%<10.|
00003550  f1 8a 37 31 2c 30 29 3b  22 30 22 0d 13 9c 3d f1  |..71,0);"0"...=.|
00003560  8a 37 33 2d a9 28 c3 28  48 25 29 29 2c 30 29 3b  |.73-.(.(H%)),0);|
00003570  48 25 3b 8a 37 36 2d a9  28 c3 28 4d 25 29 29 2c  |H%;.76-.(.(M%)),|
00003580  30 29 3b 4d 25 3b 8a 37  39 2d a9 28 c3 28 53 25  |0);M%;.79-.(.(S%|
00003590  29 29 2c 30 29 3b 53 25  0d 13 a1 05 e1 0d 1b 58  |)),0);S%.......X|
000035a0  0b 20 e5 20 8d 64 54 43  0d 4e 20 b4 ff 22 43 4c  |. . .dTC.N .."CL|
000035b0  4f 53 45 22 3a 58 3d ad  28 a4 4d 79 46 69 6c 65  |OSE":X=.(.MyFile|
000035c0  28 22 4e 49 4d 22 29 29  3a e8 23 58 2c 5a 5a 24  |("NIM")):.#X,ZZ$|
000035d0  2c 5a 5a 24 2c 44 41 24  2c 5a 5a 24 2c 5a 5a 24  |,ZZ$,DA$,ZZ$,ZZ$|
000035e0  2c 5a 5a 24 3a ff 22 43  4c 4f 53 45 22 3a de 4f  |,ZZ$:."CLOSE":.O|
000035f0  28 39 29 3a de 4c 24 28  31 35 30 29 3a de 53 24  |(9):.L$(150):.S$|
00003600  28 33 35 29 3a de 41 28  33 35 29 3a de 47 25 28  |(35):.A(35):.G%(|
00003610  31 30 29 3a de 50 24 28  31 35 29 3a de 43 25 28  |10):.P$(15):.C%(|
00003620  33 30 29 3a 4d 4c 25 3d  30 3a 47 53 42 25 3d 30  |30):ML%=0:GSB%=0|
00003630  3a 46 4f 25 3d 30 3a 50  47 25 3d 32 3a 53 45 47  |:FO%=0:PG%=2:SEG|
00003640  24 3d 22 33 31 32 38 33  31 33 30 33 31 33 30 33  |$="3128313031303|
00003650  31 33 31 33 30 33 31 33  30 33 31 22 0d 4e 25 65  |13130313031".N%e|
00003660  50 44 31 3d 31 3a 45 3d  31 35 30 30 3a 4c 4f 25  |PD1=1:E=1500:LO%|
00003670  3d bb 28 22 32 22 29 3a  59 45 41 52 3d bb 28 c1  |=.("2"):YEAR=.(.|
00003680  44 41 24 2c 37 2c 32 29  29 3a 4d 4f 4e 54 48 3d  |DA$,7,2)):MONTH=|
00003690  bb 28 c1 44 41 24 2c 34  2c 32 29 29 3a 44 41 59  |.(.DA$,4,2)):DAY|
000036a0  3d bb 28 c1 44 41 24 2c  31 2c 32 29 29 3a e7 4d  |=.(.DA$,1,2)):.M|
000036b0  4f 4e 54 48 3c 34 8c 20  51 55 41 52 54 45 52 3d  |ONTH<4. QUARTER=|
000036c0  31 0d 4e 2a 16 e7 4d 4f  4e 54 48 3e 39 8c 51 55  |1.N*..MONTH>9.QU|
000036d0  41 52 54 45 52 3d 34 0d  4e 2f 28 e7 4d 4f 4e 54  |ARTER=4.N/(.MONT|
000036e0  48 3e 33 80 4d 4f 4e 54  48 3c 37 8c 51 55 41 52  |H>3.MONTH<7.QUAR|
000036f0  54 45 52 3d 32 8b 51 55  41 52 54 45 52 3d 33 0d  |TER=2.QUARTER=3.|
00003700  4e 34 34 dd f2 43 4f 4e  56 28 56 31 24 2c 56 32  |N44..CONV(V1$,V2|
00003710  25 29 3a e7 a9 28 56 31  24 29 3e 56 32 25 8c 53  |%):..(V1$)>V2%.S|
00003720  54 4e 24 3d c0 56 31 24  2c 56 32 25 29 3a e5 8d  |TN$=.V1$,V2%):..|
00003730  50 7e 4e 0d 4e 39 1f 53  54 4e 24 3d 56 31 24 2b  |P~N.N9.STN$=V1$+|
00003740  c4 28 56 32 25 2d a9 28  56 31 24 29 29 2c 22 20  |.(V2%-.(V1$))," |
00003750  22 29 0d 4e 3e 05 e1 0d  4e 43 08 dd f2 45 4c 0d  |").N>...NC...EL.|
00003760  4e 48 12 e7 4f 28 35 29  3d 31 8c 45 4c 25 3d 33  |NH..O(5)=1.EL%=3|
00003770  39 0d 4e 4d 12 e7 4f 28  35 29 3d 32 8c 45 4c 25  |9.NM..O(5)=2.EL%|
00003780  3d 37 39 0d 4e 52 13 e7  4f 28 35 29 3d 33 8c 45  |=79.NR..O(5)=3.E|
00003790  4c 25 3d 31 33 31 0d 4e  57 05 e1 0d 4e 5c 0e dd  |L%=131.NW...N\..|
000037a0  f2 54 45 58 54 3a f2 45  4c 0d 4e 61 0d 54 24 3d  |.TEXT:.EL.Na.T$=|
000037b0  22 22 3a 4c 3d 30 0d 4e  66 17 e7 4c 3c 4c 25 8c  |"":L=0.Nf..L<L%.|
000037c0  f1 8a 58 2c 59 29 3b bd  28 32 35 35 29 0d 4e 6b  |..X,Y);.(255).Nk|
000037d0  08 49 4e 3d a5 0d 4e 70  10 e7 49 4e 3d 31 33 8c  |.IN=..Np..IN=13.|
000037e0  e5 8d 70 5d 4e 0d 4e 75  11 e7 49 4e 3d 31 32 37  |..p]N.Nu..IN=127|
000037f0  8c e5 8d 70 4e 4e 0d 4e  7f 0f e7 4c 3d 4c 25 8c  |...pNN.N...L=L%.|
00003800  e5 8d 40 6b 4e 0d 4e 84  39 f1 8a 58 2c 59 29 3b  |..@kN.N.9..X,Y);|
00003810  bd 28 49 4e 29 3a 54 24  3d 54 24 2b bd 28 49 4e  |.(IN):T$=T$+.(IN|
00003820  29 3a 4c 3d 4c 2b 31 3a  58 3d 58 2b 31 3a e7 58  |):L=L+1:X=X+1:.X|
00003830  3e 45 4c 25 8c 58 3d 30  3a 59 3d 59 2b 31 0d 4e  |>EL%.X=0:Y=Y+1.N|
00003840  89 09 e5 8d 40 66 4e 0d  4e 8e 0e e7 4c 3d 30 8c  |....@fN.N...L=0.|
00003850  e5 8d 40 61 4e 0d 4e 93  35 f1 8a 58 2c 59 29 3b  |..@aN.N.5..X,Y);|
00003860  22 20 22 3a 58 3d 58 2d  31 3a 4c 3d 4c 2d 31 3a  |" ":X=X-1:L=L-1:|
00003870  54 24 3d c0 54 24 2c 4c  29 3a e7 58 3c 30 8c 58  |T$=.T$,L):.X<0.X|
00003880  3d 45 4c 25 3a 59 3d 59  2d 31 0d 4e 98 09 e5 8d  |=EL%:Y=Y-1.N....|
00003890  40 66 4e 0d 4e 9d 16 4e  24 3d 54 24 3a f1 8a 58  |@fN.N..N$=T$:..X|
000038a0  2c 59 29 3b 22 20 22 3a  e1 0d 4e a2 05 fa 0d 4e  |,Y);" ":..N....N|
000038b0  a7 05 fa 0d 4e ac 0b ee  85 e5 8d 70 7b 4e 0d 4e  |....N......p{N.N|
000038c0  b1 18 db 3a f1 8a 30 2c  37 29 3b 3a ff 22 22 2b  |...:..0,7);:.""+|
000038d0  54 24 3a ee 85 87 0d 4e  b6 09 e5 8d 70 67 4e 0d  |T$:....N....pgN.|
000038e0  4e bb 07 ee 85 87 0d 4e  c0 09 e5 8d 70 62 4e 0d  |N......N....pbN.|
000038f0  4e c5 45 dd f2 46 43 48  3a e7 46 4f 25 3d 30 8c  |N.E..FCH:.FO%=0.|
00003900  f2 45 52 52 4f 52 28 22  4e 6f 20 66 69 6c 65 20  |.ERROR("No file |
00003910  6f 70 65 6e 22 29 3a 8b  e7 4e 4f 52 25 3d 30 8c  |open"):..NOR%=0.|
00003920  f2 45 52 52 4f 52 28 22  46 69 6c 65 20 65 6d 70  |.ERROR("File emp|
00003930  74 79 22 29 0d 4e ca 46  e7 41 28 33 35 29 3e 4e  |ty").N.F.A(35)>N|
00003940  4f 52 25 84 41 28 33 35  29 3d 30 8c f2 45 52 52  |OR%.A(35)=0..ERR|
00003950  4f 52 28 22 52 65 63 6f  72 64 20 63 6f 6e 74 72  |OR("Record contr|
00003960  6f 6c 20 76 61 72 69 61  62 6c 65 20 6f 75 74 20  |ol variable out |
00003970  6f 66 20 72 61 6e 67 65  22 29 0d 4e cf 05 e1 0d  |of range").N....|
00003980  4e d4 0b ee 85 e5 8d 60  72 4e 0d 4e d9 15 db 3a  |N......`rN.N...:|
00003990  ff 22 43 4c 4f 53 45 22  3a f2 47 4e 41 4d 45 0d  |."CLOSE":.GNAME.|
000039a0  4e de 58 58 3d ad 46 49  4c 24 3a e8 23 58 2c 4c  |N.XX=.FIL$:.#X,L|
000039b0  24 28 30 29 3a e7 c1 4c  24 28 30 29 2c 34 29 3c  |$(0):..L$(0),4)<|
000039c0  3e 22 2a 43 4f 4d 50 49  4c 45 44 2a 22 8c fb 31  |>"*COMPILED*"..1|
000039d0  32 37 3a f1 22 4e 6f 74  20 61 20 74 6f 6b 65 6e  |27:."Not a token|
000039e0  69 73 65 64 20 70 72 6f  67 72 61 6d 22 3a fb 34  |ised program":.4|
000039f0  35 3a e5 8d 54 65 43 0d  4e e3 55 4d 4c 25 3d bb  |5:..TeC.N.UML%=.|
00003a00  28 4c 24 28 30 29 29 3a  e3 49 3d 31 b8 4d 4c 25  |(L$(0)):.I=1.ML%|
00003a10  3a e8 23 58 2c 4c 24 28  49 29 3a ed 49 3a e3 49  |:.#X,L$(I):.I:.I|
00003a20  3d 31 b8 33 30 3a 41 28  49 29 3d 30 3a 53 24 28  |=1.30:A(I)=0:S$(|
00003a30  49 29 3d 22 22 3a ed 49  3a e3 4a 3d 31 b8 31 35  |I)="":.I:.J=1.15|
00003a40  3a 50 24 28 4a 29 3d 22  22 3a ed 4a 0d 4e e8 14  |:P$(J)="":.J.N..|
00003a50  ff 22 43 4c 4f 53 45 22  3a ee 85 e5 8d 60 7c 4e  |."CLOSE":....`|N|
00003a60  0d 4e ed 29 ef 32 36 3a  fb 46 47 25 3a fb 31 32  |.N.).26:.FG%:.12|
00003a70  37 3a db 3a 4f 28 35 29  3d 32 3a 4f 28 32 29 3d  |7:.:O(5)=2:O(2)=|
00003a80  31 3a 87 3a e5 8d 50 46  4f 0d 4e f2 0b ee 85 e5  |1:.:..PFO.N.....|
00003a90  8d 40 66 58 0d 4e f7 09  e5 8d 70 62 4e 0d 4e fc  |.@fX.N....pbN.N.|
00003aa0  15 ef 33 3a ef 32 36 3a  f2 45 52 52 4f 52 28 f6  |..3:.26:.ERROR(.|
00003ab0  24 29 0d 4f 01 15 eb 31  32 38 3a c8 97 20 ee 3a  |$).O...128:.. .:|
00003ac0  87 3a e5 8d 70 62 4e 0d  4f 06 09 53 43 25 3d 31  |.:..pbN.O..SC%=1|
00003ad0  0d 4f 0b 20 44 42 25 3d  30 3a 44 41 24 3d 64 61  |.O. DB%=0:DA$=da|
00003ae0  24 3a e7 53 43 25 3e 4d  4c 25 8c e5 8d 50 78 4f  |$:.SC%>ML%...PxO|
00003af0  0d 4f 10 10 46 49 52 24  3d 4c 24 28 53 43 25 29  |.O..FIR$=L$(SC%)|
00003b00  0d 4f 15 16 41 53 25 3d  97 28 c0 46 49 52 24 2c  |.O..AS%=.(.FIR$,|
00003b10  31 29 29 2d 33 32 0d 4f  1a 12 e7 41 53 25 3d 32  |1))-32.O...AS%=2|
00003b20  31 39 8c e5 8d 50 7d 4f  0d 4f 1f 1c e7 41 53 25  |19...P}O.O...AS%|
00003b30  3e 33 37 8c 41 53 25 3d  41 53 25 2d 33 37 3a e5  |>37.AS%=AS%-37:.|
00003b40  8d 50 69 4f 0d 4f 24 c5  ee 20 41 53 25 20 e5 20  |.PiO.O$.. AS% . |
00003b50  8d 40 65 4f 2c 8d 50 54  50 2c 8d 50 72 50 2c 8d  |.@eO,.PTP,.PrP,.|
00003b60  70 6a 50 2c 8d 60 57 50  2c 8d 60 7a 50 2c 8d 50  |pjP,.`WP,.`zP,.P|
00003b70  71 51 2c 8d 50 7b 51 2c  8d 40 40 51 2c 8d 40 4a  |qQ,.P{Q,.@@Q,.@J|
00003b80  51 2c 8d 40 54 51 2c 8d  70 41 51 2c 8d 70 4b 51  |Q,.@TQ,.pAQ,.pKQ|
00003b90  2c 8d 70 7d 51 2c 8d 60  56 51 2c 8d 60 60 51 2c  |,.p}Q,.`VQ,.``Q,|
00003ba0  8d 60 65 51 2c 8d 50 6b  52 2c 8d 40 49 52 2c 8d  |.`eQ,.PkR,.@IR,.|
00003bb0  40 58 52 2c 8d 60 5f 52  2c 8d 50 60 53 2c 8d 50  |@XR,.`_R,.P`S,.P|
00003bc0  74 53 2c 8d 40 4d 53 2c  8d 40 58 57 2c 8d 40 5c  |tS,.@MS,.@XW,.@\|
00003bd0  53 2c 8d 40 61 53 2c 8d  40 66 53 2c 8d 70 49 53  |S,.@aS,.@fS,.pIS|
00003be0  2c 8d 60 40 53 2c 8d 60  40 53 2c 8d 70 62 4e 2c  |,.`@S,.`@S,.pbN,|
00003bf0  8d 60 7a 55 2c 8d 54 78  58 2c 8d 40 6f 54 2c 8d  |.`zU,.TxX,.@oT,.|
00003c00  40 47 54 2c 8d 40 5b 54  2c 0d 4f 29 76 ee 20 41  |@GT,.@[T,.O)v. A|
00003c10  53 25 20 e5 20 65 2c 65  2c 65 2c 65 2c 65 2c 65  |S% . e,e,e,e,e,e|
00003c20  2c 32 31 36 34 30 2c 32  31 36 35 35 2c 32 31 37  |,21640,21655,217|
00003c30  39 35 2c 32 31 38 30 30  2c 32 31 38 31 35 2c 32  |95,21800,21815,2|
00003c40  31 38 33 30 2c 32 31 38  34 30 2c 32 31 38 34 35  |1830,21840,21845|
00003c50  2c 32 31 38 35 30 2c 32  31 38 35 35 2c 32 31 38  |,21850,21855,218|
00003c60  36 30 2c 32 31 38 36 30  2c 32 32 32 34 35 2c 32  |60,21860,22245,2|
00003c70  31 38 37 35 2c 32 31 38  38 30 2c 31 36 32 35 0d  |1875,21880,1625.|
00003c80  4f 2e 10 e7 44 42 25 3d  31 8c e5 8d 40 55 50 0d  |O...DB%=1...@UP.|
00003c90  4f 33 13 53 43 25 3d 53  43 25 2b 31 3a e5 8d 50  |O3.SC%=SC%+1:..P|
00003ca0  4b 4f 0d 4f 38 29 53 43  25 3d 53 43 25 2d 31 3a  |KO.O8)SC%=SC%-1:|
00003cb0  f2 45 52 52 4f 52 28 22  50 72 6f 67 72 61 6d 20  |.ERROR("Program |
00003cc0  72 75 6e 20 65 6e 64 65  64 22 29 0d 4f 3d 13 4f  |run ended").O=.O|
00003cd0  53 24 3d c1 4c 24 28 53  43 25 29 2c 32 29 0d 4f  |S$=.L$(SC%),2).O|
00003ce0  42 22 58 3d a7 4f 53 24  2c 22 3a 22 29 3a e7 58  |B"X=.OS$,":"):.X|
00003cf0  3d 30 8c ff 22 22 2b 4f  53 24 3a e5 8d 50 6e 4f  |=0..""+OS$:..PnO|
00003d00  0d 4f 47 2d ff 22 22 2b  c0 4f 53 24 2c 58 2d 31  |.OG-.""+.OS$,X-1|
00003d10  29 3a 4f 53 24 3d c1 4f  53 24 2c 58 2b 31 29 3a  |):OS$=.OS$,X+1):|
00003d20  e7 4f 53 24 3d 22 22 8c  e5 8d 50 6e 4f 0d 4f 4c  |.OS$=""...PnO.OL|
00003d30  09 e5 8d 40 42 4f 0d 4f  51 87 dd f2 45 52 52 4f  |...@BO.OQ...ERRO|
00003d40  52 28 45 52 24 29 3a ef  33 3a f1 27 45 52 24 3b  |R(ER$):.3:.'ER$;|
00003d50  22 20 61 74 20 6c 69 6e  65 20 22 3b 53 43 25 3b  |" at line ";SC%;|
00003d60  22 2e 22 3a 49 24 3d be  3a eb 31 35 3a fb 46 47  |".":I$=.:.15:.FG|
00003d70  25 3a fb 31 32 37 3a ef  31 39 2c 31 2c 32 34 2c  |%:.127:.19,1,24,|
00003d80  30 2c 36 39 2c 32 30 30  3a e3 49 3d 31 b8 6e 6f  |0,69,200:.I=1.no|
00003d90  6c 25 3a 4c 24 28 49 29  3d 22 22 3a ed 49 3a 50  |l%:L$(I)="":.I:P|
00003da0  4f 25 3d 30 3a 43 4f 24  3d 22 55 6e 74 69 74 6c  |O%=0:CO$="Untitl|
00003db0  65 64 22 3a ee 3a ee 85  e5 8d 64 54 43 0d 4f 53  |ed":.:....dTC.OS|
00003dc0  09 e5 8d 54 60 43 0d 4f  56 0e eb 31 32 38 3a e5  |...T`C.OV..128:.|
00003dd0  8d 70 62 4e 0d 4f 5b 40  dd f2 56 52 43 48 4b 3a  |.pbN.O[@..VRCHK:|
00003de0  e7 56 52 25 3c 30 84 56  52 25 3e 33 35 8c f2 45  |.VR%<0.VR%>35..E|
00003df0  52 52 4f 52 28 22 56 61  72 69 61 62 6c 65 20 6e  |RROR("Variable n|
00003e00  75 6d 62 65 72 20 6f 75  74 20 6f 66 20 72 61 6e  |umber out of ran|
00003e10  67 65 22 29 0d 4f 60 05  e1 0d 4f 65 19 e7 c1 46  |ge").O`...Oe...F|
00003e20  49 52 24 2c 32 2c 31 29  3d 22 24 22 8c e5 8d 60  |IR$,2,1)="$"...`|
00003e30  53 4f 0d 4f 6a 1c 56 52  25 3d bb 28 c1 46 49 52  |SO.Oj.VR%=.(.FIR|
00003e40  24 2c 33 2c 32 29 29 3a  f2 56 52 43 48 4b 0d 4f  |$,3,2)):.VRCHK.O|
00003e50  6f 26 f2 46 4f 52 54 52  41 4e 28 c1 46 49 52 24  |o&.FORTRAN(.FIR$|
00003e60  2c 35 29 29 3a 41 28 56  52 25 29 3d 46 54 3a e5  |,5)):A(VR%)=FT:.|
00003e70  8d 50 6e 4f 0d 4f 74 1d  dd f2 46 4f 52 54 52 41  |.PnO.Ot...FORTRA|
00003e80  4e 28 46 4f 24 29 3a 46  54 24 3d 22 22 3a 4c 3d  |N(FO$):FT$="":L=|
00003e90  31 0d 4f 79 1e e7 c1 46  4f 24 2c 4c 2c 31 29 3d  |1.Oy...FO$,L,1)=|
00003ea0  22 26 22 8c 4c 3d 4c 2b  31 3a e5 8d 70 52 4f 0d  |"&".L=L+1:..pRO.|
00003eb0  4f 7e 1e e7 c1 46 4f 24  2c 4c 2c 31 29 3d 22 24  |O~...FO$,L,1)="$|
00003ec0  22 8c 4c 3d 4c 2b 31 3a  e5 8d 70 66 4f 0d 4f 83  |".L=L+1:..pfO.O.|
00003ed0  15 46 54 24 3d 46 54 24  2b c1 46 4f 24 2c 4c 2c  |.FT$=FT$+.FO$,L,|
00003ee0  31 29 0d 4f 88 19 4c 3d  4c 2b 31 3a e7 4c 3e a9  |1).O..L=L+1:.L>.|
00003ef0  28 46 4f 24 29 8c e5 8d  70 7a 4f 0d 4f 8d 09 e5  |(FO$)...pzO.O...|
00003f00  8d 40 79 4f 0d 4f 92 38  46 54 31 24 3d c1 46 4f  |.@yO.O.8FT1$=.FO|
00003f10  24 2c 4c 2c 32 29 3a e7  46 54 31 24 3d 22 22 8c  |$,L,2):.FT1$="".|
00003f20  f2 45 52 52 4f 52 28 22  56 61 72 69 61 62 6c 65  |.ERROR("Variable|
00003f30  20 6e 6f 74 20 66 6f 75  6e 64 22 29 0d 4f 97 2e  | not found").O..|
00003f40  e7 97 28 c2 46 54 31 24  2c 31 29 29 3c 34 38 84  |..(.FT1$,1))<48.|
00003f50  97 28 c2 46 54 31 24 2c  31 29 29 3e 35 37 8c 20  |.(.FT1$,1))>57. |
00003f60  4c 3d 4c 3a 8b 4c 3d 4c  2b 31 0d 4f 9c 40 e7 bb  |L=L:.L=L+1.O.@..|
00003f70  28 46 54 31 24 29 3c 30  84 bb 28 46 54 31 24 29  |(FT1$)<0..(FT1$)|
00003f80  3e 33 35 8c f2 45 52 52  4f 52 28 22 56 61 72 69  |>35..ERROR("Vari|
00003f90  61 62 6c 65 20 6e 75 6d  62 65 72 20 6f 75 74 20  |able number out |
00003fa0  6f 66 20 72 61 6e 67 65  22 29 0d 4f a1 1f 46 54  |of range").O..FT|
00003fb0  24 3d 46 54 24 2b c3 28  41 28 bb 28 46 54 31 24  |$=FT$+.(A(.(FT1$|
00003fc0  29 29 29 3a e5 8d 70 48  4f 0d 4f a6 38 46 54 31  |))):..pHO.O.8FT1|
00003fd0  24 3d c1 46 4f 24 2c 4c  2c 32 29 3a e7 46 54 31  |$=.FO$,L,2):.FT1|
00003fe0  24 3d 22 22 8c f2 45 52  52 4f 52 28 22 56 61 72  |$=""..ERROR("Var|
00003ff0  69 61 62 6c 65 20 6e 6f  74 20 66 6f 75 6e 64 22  |iable not found"|
00004000  29 0d 4f ab 3c e7 97 28  c2 46 54 31 24 2c 31 29  |).O.<..(.FT1$,1)|
00004010  29 3c 34 38 84 97 28 c2  46 54 31 24 2c 31 29 29  |)<48..(.FT1$,1))|
00004020  3e 35 37 8c 20 4c 3d 4c  3a 46 54 31 24 3d c0 46  |>57. L=L:FT1$=.F|
00004030  54 31 24 2c 31 29 3a 8b  4c 3d 4c 2b 31 0d 4f b0  |T1$,1):.L=L+1.O.|
00004040  40 e7 bb 28 46 54 31 24  29 3c 30 84 bb 28 46 54  |@..(FT1$)<0..(FT|
00004050  31 24 29 3e 33 35 8c f2  45 52 52 4f 52 28 22 56  |1$)>35..ERROR("V|
00004060  61 72 69 61 62 6c 65 20  6e 75 6d 62 65 72 20 6f  |ariable number o|
00004070  75 74 20 6f 66 20 72 61  6e 67 65 22 29 0d 4f b5  |ut of range").O.|
00004080  25 46 54 24 3d 46 54 24  2b 22 56 41 4c 28 53 24  |%FT$=FT$+"VAL(S$|
00004090  28 22 2b 46 54 31 24 2b  22 29 29 22 3a e5 8d 70  |("+FT1$+"))":..p|
000040a0  48 4f 0d 4f ba 0b ee 85  e5 8d 60 49 4f 0d 4f bf  |HO.O......`IO.O.|
000040b0  15 46 54 3d a0 28 46 54  24 29 3a ee 85 e5 8d 40  |.FT=.(FT$):....@|
000040c0  66 58 0d 4f c4 05 e1 0d  4f c9 0b ee 85 e5 8d 40  |fX.O....O......@|
000040d0  66 58 0d 4f ce 1e f2 45  52 52 4f 52 28 22 45 72  |fX.O...ERROR("Er|
000040e0  72 6f 72 20 69 6e 20 66  6f 72 6d 75 6c 61 22 29  |ror in formula")|
000040f0  0d 4f d3 1c 56 52 25 3d  bb 28 c1 46 49 52 24 2c  |.O..VR%=.(.FIR$,|
00004100  33 2c 32 29 29 3a f2 56  52 43 48 4b 0d 4f d8 26  |3,2)):.VRCHK.O.&|
00004110  f2 53 47 45 54 32 28 c1  46 49 52 24 2c 35 29 29  |.SGET2(.FIR$,5))|
00004120  3a 53 24 28 56 52 25 29  3d 46 54 24 3a e5 8d 50  |:S$(VR%)=FT$:..P|
00004130  6e 4f 0d 4f dd 1b dd f2  53 47 45 54 32 28 46 4f  |nO.O....SGET2(FO|
00004140  24 29 3a 46 54 24 3d 22  22 3a 4c 3d 31 0d 4f e2  |$):FT$="":L=1.O.|
00004150  1b e7 97 28 c1 46 4f 24  2c 4c 2c 31 29 29 3e 31  |...(.FO$,L,1))>1|
00004160  32 37 8c e5 8d 60 7b 4f  0d 4f e7 15 46 54 24 3d  |27...`{O.O..FT$=|
00004170  46 54 24 2b c1 46 4f 24  2c 4c 2c 31 29 0d 4f ec  |FT$+.FO$,L,1).O.|
00004180  19 4c 3d 4c 2b 31 3a e7  4c 3e a9 28 46 4f 24 29  |.L=L+1:.L>.(FO$)|
00004190  8c e5 8d 60 76 4f 0d 4f  f1 09 e5 8d 60 62 4f 0d  |...`vO.O....`bO.|
000041a0  4f f6 05 e1 0d 4f fb 12  41 3d 97 28 c1 46 4f 24  |O....O..A=.(.FO$|
000041b0  2c 4c 2c 31 29 29 0d 50  00 2a e7 28 41 3e 3d 31  |,L,1)).P.*.(A>=1|
000041c0  36 34 80 41 3c 3d 31 37  38 29 84 28 41 3e 3d 32  |64.A<=178).(A>=2|
000041d0  31 35 80 41 3c 3d 32 35  35 29 8c e5 8d 60 67 4f  |15.A<=255)...`gO|
000041e0  0d 50 05 22 e7 41 3c 31  36 34 8c 46 54 24 3d 46  |.P.".A<164.FT$=F|
000041f0  54 24 2b 53 24 28 41 2d  31 32 38 29 3a e5 8d 60  |T$+S$(A-128):..`|
00004200  6c 4f 0d 50 0a 24 e7 41  3c 32 31 35 8c 46 54 24  |lO.P.$.A<215.FT$|
00004210  3d 46 54 24 2b c3 28 41  28 41 2d 31 37 39 29 29  |=FT$+.(A(A-179))|
00004220  3a e5 8d 60 6c 4f 0d 50  0f 09 e5 8d 60 67 4f 0d  |:..`lO.P....`gO.|
00004230  50 14 17 e7 46 49 52 24  3d bd 28 33 34 29 8c f1  |P...FIR$=.(34)..|
00004240  3a e5 8d 50 6e 4f 0d 50  19 52 e7 c1 46 49 52 24  |:..PnO.P.R..FIR$|
00004250  2c 32 2c 31 29 3d bd 28  32 35 34 29 8c f1 8a bb  |,2,1)=.(254)....|
00004260  28 c1 46 49 52 24 2c 33  2c 32 29 29 2c bb 28 c1  |(.FIR$,3,2)),.(.|
00004270  46 49 52 24 2c 35 2c 32  29 29 29 3b 3a f2 53 47  |FIR$,5,2)));:.SG|
00004280  45 54 32 28 c1 46 49 52  24 2c 37 29 29 3a f1 46  |ET2(.FIR$,7)):.F|
00004290  54 24 3a e5 8d 50 6e 4f  0d 50 1e 1f f2 53 47 45  |T$:..PnO.P...SGE|
000042a0  54 32 28 c1 46 49 52 24  2c 33 29 29 3a f1 46 54  |T2(.FIR$,3)):.FT|
000042b0  24 3a e5 8d 50 6e 4f 0d  50 23 45 dd f2 53 54 52  |$:..PnO.P#E..STR|
000042c0  49 4d 28 53 54 4d 24 29  3a e3 49 3d 33 30 b8 31  |IM(STM$):.I=30.1|
000042d0  88 2d 31 3a e7 c1 53 54  4d 24 2c 49 2c 31 29 3d  |.-1:..STM$,I,1)=|
000042e0  bd 28 32 35 33 29 8c 53  54 50 24 3d c0 53 54 4d  |.(253).STP$=.STM|
000042f0  24 2c 28 49 2d 31 29 29  3a 49 3d 31 0d 50 28 06  |$,(I-1)):I=1.P(.|
00004300  ed 49 0d 50 2d 05 e1 0d  50 32 38 54 59 25 3d bb  |.I.P-...P28TY%=.|
00004310  28 c1 46 49 52 24 2c 33  2c 31 29 29 3a 44 42 31  |(.FIR$,3,1)):DB1|
00004320  24 3d c1 46 49 52 24 2c  34 2c 33 30 29 3a 44 42  |$=.FIR$,4,30):DB|
00004330  32 24 3d c1 46 49 52 24  2c 33 34 2c 33 30 29 0d  |2$=.FIR$,34,30).|
00004340  50 37 45 e7 c1 46 49 52  24 2c 32 2c 31 29 3d 22  |P7E..FIR$,2,1)="|
00004350  31 22 8c f2 46 4f 52 54  52 41 4e 28 44 42 31 24  |1"..FORTRAN(DB1$|
00004360  29 3a 44 42 31 3d 46 54  3a f2 46 4f 52 54 52 41  |):DB1=FT:.FORTRA|
00004370  4e 28 44 42 32 24 29 3a  44 42 32 3d 46 54 3a e5  |N(DB2$):DB2=FT:.|
00004380  8d 40 41 50 0d 50 3c 5d  f2 53 54 52 49 4d 28 44  |.@AP.P<].STRIM(D|
00004390  42 31 24 29 3a 44 42 31  24 3d 53 54 50 24 3a f2  |B1$):DB1$=STP$:.|
000043a0  53 54 52 49 4d 28 44 42  32 24 29 3a 44 42 32 24  |STRIM(DB2$):DB2$|
000043b0  3d 53 54 50 24 3a f2 53  47 45 54 32 28 44 42 31  |=STP$:.SGET2(DB1|
000043c0  24 29 3a 44 42 31 24 3d  46 54 24 3a f2 53 47 45  |$):DB1$=FT$:.SGE|
000043d0  54 32 28 44 42 32 24 29  3a 44 42 32 24 3d 46 54  |T2(DB2$):DB2$=FT|
000043e0  24 0d 50 41 1e e7 c1 4c  24 28 53 43 25 29 2c 32  |$.PA...L$(SC%),2|
000043f0  2c 31 29 3d 22 31 22 8c  f2 43 4f 4d 56 41 52 0d  |,1)="1"..COMVAR.|
00004400  50 46 1e e7 c1 4c 24 28  53 43 25 29 2c 32 2c 31  |PF...L$(SC%),2,1|
00004410  29 3d 22 32 22 8c f2 43  4f 4d 53 54 52 0d 50 4b  |)="2"..COMSTR.PK|
00004420  4d 46 49 52 32 24 3d 4c  24 28 53 43 25 29 3a 46  |MFIR2$=L$(SC%):F|
00004430  49 52 32 25 3d 53 43 25  3a e7 43 4f 4d 25 3d 31  |IR2%=SC%:.COM%=1|
00004440  8c 4c 24 28 53 43 25 29  3d c1 4c 24 28 53 43 25  |.L$(SC%)=.L$(SC%|
00004450  29 2c 36 34 29 3a 8b 4c  24 28 53 43 25 29 3d 46  |),64):.L$(SC%)=F|
00004460  49 52 32 24 3a e5 8d 50  6e 4f 0d 50 50 0f 44 42  |IR2$:..PnO.PP.DB|
00004470  25 3d 31 3a e5 8d 50 50  4f 0d 50 55 1f 44 42 25  |%=1:..PPO.PU.DB%|
00004480  3d 30 3a 4c 24 28 46 49  52 32 25 29 3d 46 49 52  |=0:L$(FIR2%)=FIR|
00004490  32 24 3a e5 8d 50 6e 4f  0d 50 5a 13 dd f2 43 4f  |2$:..PnO.PZ...CO|
000044a0  4d 56 41 52 3a 43 4f 4d  25 3d 30 0d 50 5f 1b e7  |MVAR:COM%=0.P_..|
000044b0  54 59 25 3d 31 8c e7 44  42 31 3d 44 42 32 20 8c  |TY%=1..DB1=DB2 .|
000044c0  43 4f 4d 25 3d 31 0d 50  64 1b e7 54 59 25 3d 32  |COM%=1.Pd..TY%=2|
000044d0  8c e7 44 42 31 3c 44 42  32 20 8c 43 4f 4d 25 3d  |..DB1<DB2 .COM%=|
000044e0  31 0d 50 69 1b e7 54 59  25 3d 33 8c e7 44 42 31  |1.Pi..TY%=3..DB1|
000044f0  3e 44 42 32 20 8c 43 4f  4d 25 3d 31 0d 50 6e 1c  |>DB2 .COM%=1.Pn.|
00004500  e7 54 59 25 3d 34 8c e7  44 42 31 3e 3d 44 42 32  |.TY%=4..DB1>=DB2|
00004510  20 8c 43 4f 4d 25 3d 31  0d 50 73 1c e7 54 59 25  | .COM%=1.Ps..TY%|
00004520  3d 35 8c e7 44 42 31 3c  3d 44 42 32 20 8c 43 4f  |=5..DB1<=DB2 .CO|
00004530  4d 25 3d 31 0d 50 78 1c  e7 54 59 25 3d 36 8c e7  |M%=1.Px..TY%=6..|
00004540  44 42 31 3c 3e 44 42 32  20 8c 43 4f 4d 25 3d 31  |DB1<>DB2 .COM%=1|
00004550  0d 50 7d 05 e1 0d 50 82  13 dd f2 43 4f 4d 53 54  |.P}...P....COMST|
00004560  52 3a 43 4f 4d 25 3d 30  0d 50 87 1c e7 54 59 25  |R:COM%=0.P...TY%|
00004570  3d 31 8c e7 44 42 31 24  3d 44 42 32 24 8c 43 4f  |=1..DB1$=DB2$.CO|
00004580  4d 25 3d 31 0d 50 8c 1c  e7 54 59 25 3d 32 8c e7  |M%=1.P...TY%=2..|
00004590  44 42 31 24 3c 44 42 32  24 8c 43 4f 4d 25 3d 31  |DB1$<DB2$.COM%=1|
000045a0  0d 50 91 1c e7 54 59 25  3d 33 8c e7 44 42 31 24  |.P...TY%=3..DB1$|
000045b0  3e 44 42 32 24 8c 43 4f  4d 25 3d 31 0d 50 96 1d  |>DB2$.COM%=1.P..|
000045c0  e7 54 59 25 3d 34 8c e7  44 42 31 24 3e 3d 44 42  |.TY%=4..DB1$>=DB|
000045d0  32 24 8c 43 4f 4d 25 3d  31 0d 50 9b 1d e7 54 59  |2$.COM%=1.P...TY|
000045e0  25 3d 35 8c e7 44 42 31  24 3c 3d 44 42 32 24 8c  |%=5..DB1$<=DB2$.|
000045f0  43 4f 4d 25 3d 31 0d 50  a0 1d e7 54 59 25 3d 36  |COM%=1.P...TY%=6|
00004600  8c e7 44 42 31 24 3c 3e  44 42 32 24 8c 43 4f 4d  |..DB1$<>DB2$.COM|
00004610  25 3d 31 0d 50 a5 05 e1  0d 50 aa 46 58 3d b1 3a  |%=1.P....P.FX=.:|
00004620  59 3d bc 3a 4c 3d 33 3a  e7 c1 46 49 52 24 2c 32  |Y=.:L=3:..FIR$,2|
00004630  2c 31 29 3d bd 28 32 35  34 29 8c 58 3d bb 28 c1  |,1)=.(254).X=.(.|
00004640  46 49 52 24 2c 33 2c 32  29 29 3a 59 3d bb 28 c1  |FIR$,3,2)):Y=.(.|
00004650  46 49 52 24 2c 35 2c 32  29 29 3a 4c 3d 37 0d 50  |FIR$,5,2)):L=7.P|
00004660  af 12 e7 59 3e 32 39 8c  f1 27 27 3a 59 3d 32 39  |...Y>29..'':Y=29|
00004670  0d 50 b4 20 56 52 25 3d  bb 28 c1 46 49 52 24 2c  |.P. VR%=.(.FIR$,|
00004680  28 4c 2b 31 29 2c 32 29  29 3a f2 56 52 43 48 4b  |(L+1),2)):.VRCHK|
00004690  0d 50 b9 1f 41 59 25 3d  30 3a e7 c1 46 49 52 24  |.P..AY%=0:..FIR$|
000046a0  2c 4c 2c 31 29 3d 22 24  22 8c 41 59 25 3d 31 0d  |,L,1)="$".AY%=1.|
000046b0  50 be 19 e7 c1 46 49 52  24 2c 4c 2c 31 29 3d 22  |P....FIR$,L,1)="|
000046c0  26 22 8c 41 59 25 3d 32  0d 50 c3 1f e7 41 59 25  |&".AY%=2.P...AY%|
000046d0  3d 30 8c f2 45 52 52 4f  52 28 22 42 61 64 20 41  |=0..ERROR("Bad A|
000046e0  63 63 65 70 74 22 29 0d  50 c8 18 e7 41 59 25 3d  |ccept").P...AY%=|
000046f0  31 8c 4c 25 3d 32 35 35  3a 8b 4c 25 3d 31 38 0d  |1.L%=255:.L%=18.|
00004700  50 cd 28 f2 54 45 58 54  3a e7 41 59 25 3d 31 8c  |P.(.TEXT:.AY%=1.|
00004710  53 24 28 56 52 25 29 3d  54 24 8b 41 28 56 52 25  |S$(VR%)=T$.A(VR%|
00004720  29 3d bb 28 54 24 29 0d  50 d2 09 e5 8d 50 6e 4f  |)=.(T$).P....PnO|
00004730  0d 50 d7 08 f2 46 43 48  0d 50 dc 33 f2 50 47 45  |.P...FCH.P.3.PGE|
00004740  54 32 3a 4e 31 25 3d bb  28 c1 50 24 28 31 29 2c  |T2:N1%=.(.P$(1),|
00004750  32 29 29 3a 56 52 25 3d  bb 28 c1 50 24 28 32 29  |2)):VR%=.(.P$(2)|
00004760  2c 32 29 29 3a f2 56 52  43 48 4b 0d 50 e1 30 e7  |,2)):.VRCHK.P.0.|
00004770  4e 31 25 3d 30 84 4e 31  25 3e 4e 4f 46 25 8c f2  |N1%=0.N1%>NOF%..|
00004780  45 52 52 4f 52 28 22 46  69 65 6c 64 20 6f 75 74  |ERROR("Field out|
00004790  20 6f 66 20 72 61 6e 67  65 22 29 0d 50 e6 39 43  | of range").P.9C|
000047a0  52 25 3d 41 28 33 35 29  3a e7 53 4f 24 3d 22 31  |R%=A(35):.SO$="1|
000047b0  22 8c cf 23 43 3d 28 43  52 25 2a 52 45 43 25 29  |"..#C=(CR%*REC%)|
000047c0  2d 31 30 3a e8 23 43 2c  4e 24 3a 43 52 25 3d bb  |-10:.#C,N$:CR%=.|
000047d0  28 4e 24 29 0d 50 eb 60  cf 23 42 3d 28 4e 31 25  |(N$).P.`.#B=(N1%|
000047e0  2d 31 29 2a 36 31 2b 31  30 39 3a e8 23 42 2c 54  |-1)*61+109:.#B,T|
000047f0  49 24 3a cf 23 43 3d 28  43 52 25 2d 31 29 2a 52  |I$:.#C=(CR%-1)*R|
00004800  45 43 25 2b bb 28 54 49  24 29 3a e8 23 43 2c 4e  |EC%+.(TI$):.#C,N|
00004810  24 3a e7 c0 50 24 28 32  29 2c 31 29 3d 22 26 22  |$:..P$(2),1)="&"|
00004820  8c 20 41 28 56 52 25 29  3d bb 28 4e 24 29 3a e5  |. A(VR%)=.(N$):.|
00004830  8d 50 6e 4f 0d 50 f0 51  cf 23 42 3d 28 4e 31 25  |.PnO.P.Q.#B=(N1%|
00004840  2d 31 29 2a 36 31 2b 31  30 34 3a e8 23 42 2c 49  |-1)*61+104:.#B,I|
00004850  4e 24 3a e7 c0 50 24 28  33 29 2c 31 29 3d 22 4c  |N$:..P$(3),1)="L|
00004860  22 8c 53 24 28 56 52 25  29 3d c4 bb 28 49 4e 24  |".S$(VR%)=..(IN$|
00004870  29 2d a9 28 4e 24 29 2c  22 20 22 29 2b 4e 24 3a  |)-.(N$)," ")+N$:|
00004880  e5 8d 50 6e 4f 0d 50 f5  48 e7 c0 50 24 28 33 29  |..PnO.P.H..P$(3)|
00004890  2c 31 29 3d 22 54 22 8c  53 24 28 56 52 25 29 3d  |,1)="T".S$(VR%)=|
000048a0  4e 24 2b c4 bb 28 49 4e  24 29 2d a9 28 4e 24 29  |N$+..(IN$)-.(N$)|
000048b0  2c 22 20 22 29 3a e5 8d  50 6e 4f 3a 8b 53 24 28  |," "):..PnO:.S$(|
000048c0  56 52 25 29 3d 4e 24 3a  e5 8d 50 6e 4f 0d 50 fa  |VR%)=N$:..PnO.P.|
000048d0  08 f2 46 43 48 0d 50 ff  30 e7 46 49 25 3d 31 8c  |..FCH.P.0.FI%=1.|
000048e0  f2 45 52 52 4f 52 28 22  46 69 6c 65 20 6e 6f 74  |.ERROR("File not|
000048f0  20 6f 70 65 6e 65 64 20  74 6f 20 77 72 69 74 65  | opened to write|
00004900  20 74 6f 22 29 0d 51 04  5b f2 50 47 45 54 32 3a  | to").Q.[.PGET2:|
00004910  4e 31 25 3d bb 28 c1 50  24 28 31 29 2c 32 29 29  |N1%=.(.P$(1),2))|
00004920  3a 56 52 25 3d bb 28 c1  50 24 28 32 29 2c 32 29  |:VR%=.(.P$(2),2)|
00004930  29 3a f2 56 52 43 48 4b  3a e7 c0 50 24 28 32 29  |):.VRCHK:..P$(2)|
00004940  2c 31 29 3d 22 24 22 8c  43 24 3d 53 24 28 56 52  |,1)="$".C$=S$(VR|
00004950  25 29 3a 8b 43 24 3d c3  28 41 28 56 52 25 29 29  |%):.C$=.(A(VR%))|
00004960  0d 51 09 30 e7 4e 31 25  3d 30 84 4e 31 25 3e 4e  |.Q.0.N1%=0.N1%>N|
00004970  4f 46 25 8c f2 45 52 52  4f 52 28 22 46 69 65 6c  |OF%..ERROR("Fiel|
00004980  64 20 6f 75 74 20 6f 66  20 72 61 6e 67 65 22 29  |d out of range")|
00004990  0d 51 0e 0d 43 52 25 3d  41 28 33 35 29 0d 51 13  |.Q..CR%=A(35).Q.|
000049a0  3b cf 23 42 3d 28 4e 31  25 2d 31 29 2a 36 31 2b  |;.#B=(N1%-1)*61+|
000049b0  31 30 34 3a e8 23 42 2c  49 4e 24 3a e7 a9 28 43  |104:.#B,IN$:..(C|
000049c0  24 29 3e bb 28 49 4e 24  29 8c 43 24 3d c0 43 24  |$)>.(IN$).C$=.C$|
000049d0  2c bb 28 49 4e 24 29 29  0d 51 18 43 cf 23 42 3d  |,.(IN$)).Q.C.#B=|
000049e0  28 4e 31 25 2d 31 29 2a  36 31 2b 31 30 39 3a e8  |(N1%-1)*61+109:.|
000049f0  23 42 2c 54 49 24 3a cf  23 43 3d 28 43 52 25 2d  |#B,TI$:.#C=(CR%-|
00004a00  31 29 2a 52 45 43 25 2b  bb 28 54 49 24 29 3a f1  |1)*REC%+.(TI$):.|
00004a10  23 43 2c 43 24 3a e5 8d  50 6e 4f 0d 51 1d 28 dd  |#C,C$:..PnO.Q.(.|
00004a20  f2 50 47 45 54 32 3a 50  47 24 3d c1 46 49 52 24  |.PGET2:PG$=.FIR$|
00004a30  2c 50 47 25 29 3a 4e 50  25 3d a9 28 50 47 24 29  |,PG%):NP%=.(PG$)|
00004a40  2f 31 32 0d 51 22 0b 4c  3d 31 3a 4a 3d 31 0d 51  |/12.Q".L=1:J=1.Q|
00004a50  27 37 50 24 28 4c 29 3d  c1 50 47 24 2c 4a 2c 31  |'7P$(L)=.PG$,J,1|
00004a60  32 29 3a 4c 3d 4c 2b 31  3a 4a 3d 4a 2b 31 32 3a  |2):L=L+1:J=J+12:|
00004a70  e7 4a 3e a9 28 50 47 24  29 8c e5 8d 50 6c 51 8b  |.J>.(PG$)...PlQ.|
00004a80  e5 8d 50 67 51 0d 51 2c  05 e1 0d 51 31 3f e7 c1  |..PgQ.Q,...Q1?..|
00004a90  46 49 52 24 2c 32 2c 31  29 3d bd 28 32 35 34 29  |FIR$,2,1)=.(254)|
00004aa0  8c f1 8a bb 28 c1 46 49  52 24 2c 33 2c 32 29 29  |....(.FIR$,3,2))|
00004ab0  2c bb 28 c1 46 49 52 24  2c 35 2c 32 29 29 29 3b  |,.(.FIR$,5,2)));|
00004ac0  3a 4c 3d 37 3a 8b 4c 3d  33 0d 51 36 13 f1 c1 46  |:L=7:.L=3.Q6...F|
00004ad0  49 52 24 2c 4c 29 3a e5  8d 50 6e 4f 0d 51 3b 1b  |IR$,L):..PnO.Q;.|
00004ae0  53 43 25 3d bb 28 c1 46  49 52 24 2c 32 29 29 2d  |SC%=.(.FIR$,2))-|
00004af0  31 3a e5 8d 50 6e 4f 0d  51 40 32 47 53 42 25 3d  |1:..PnO.Q@2GSB%=|
00004b00  47 53 42 25 2b 31 3a e7  47 53 42 25 3e 31 30 8c  |GSB%+1:.GSB%>10.|
00004b10  f2 45 52 52 4f 52 28 22  54 6f 6f 20 6d 61 6e 79  |.ERROR("Too many|
00004b20  20 47 4f 53 55 42 73 22  29 0d 51 45 28 47 25 28  | GOSUBs").QE(G%(|
00004b30  47 53 42 25 29 3d 53 43  25 3a 53 43 25 3d bb 28  |GSB%)=SC%:SC%=.(|
00004b40  c1 46 49 52 24 2c 32 29  29 2d 31 3a e5 8d 50 6e  |.FIR$,2))-1:..Pn|
00004b50  4f 0d 51 4a 1e e7 47 53  42 25 3d 30 8c f2 45 52  |O.QJ..GSB%=0..ER|
00004b60  52 4f 52 28 22 4e 6f 20  47 4f 53 55 42 22 29 0d  |ROR("No GOSUB").|
00004b70  51 4f 22 53 43 25 3d 47  25 28 47 53 42 25 29 3a  |QO"SC%=G%(GSB%):|
00004b80  47 53 42 25 3d 47 53 42  25 2d 31 3a e5 8d 50 6e  |GSB%=GSB%-1:..Pn|
00004b90  4f 0d 51 54 7a 54 59 25  3d bb 28 c1 46 49 52 24  |O.QTzTY%=.(.FIR$|
00004ba0  2c 33 2c 31 29 29 3a 44  42 31 24 3d c1 46 49 52  |,3,1)):DB1$=.FIR|
00004bb0  24 2c 34 2c 33 30 29 3a  44 42 32 24 3d c1 46 49  |$,4,30):DB2$=.FI|
00004bc0  52 24 2c 33 34 2c 33 30  29 3a e7 c1 46 49 52 24  |R$,34,30):..FIR$|
00004bd0  2c 32 2c 31 29 3d 22 31  22 8c f2 46 4f 52 54 52  |,2,1)="1"..FORTR|
00004be0  41 4e 28 44 42 31 24 29  3a 44 42 31 3d 46 54 3a  |AN(DB1$):DB1=FT:|
00004bf0  f2 46 4f 52 54 52 41 4e  28 44 42 32 24 29 3a 44  |.FORTRAN(DB2$):D|
00004c00  42 32 3d 46 54 3a e5 8d  40 5e 51 0d 51 59 5c f2  |B2=FT:..@^Q.QY\.|
00004c10  53 54 52 49 4d 28 44 42  31 24 29 3a 44 42 31 24  |STRIM(DB1$):DB1$|
00004c20  3d 53 54 4d 24 3a f2 53  54 52 49 4d 28 44 42 32  |=STM$:.STRIM(DB2|
00004c30  24 29 3a 44 42 32 24 3d  53 54 4d 24 3a f2 53 47  |$):DB2$=STM$:.SG|
00004c40  45 54 32 28 44 42 31 24  29 3a 44 42 31 24 3d 46  |ET2(DB1$):DB1$=F|
00004c50  54 24 3a f2 53 47 45 54  28 44 42 32 24 29 3a 44  |T$:.SGET(DB2$):D|
00004c60  42 32 24 3d 46 54 24 0d  51 5e 1b e7 c1 46 49 52  |B2$=FT$.Q^...FIR|
00004c70  24 2c 32 2c 31 29 3d 22  31 22 8c f2 43 4f 4d 56  |$,2,1)="1"..COMV|
00004c80  41 52 0d 51 63 1b e7 c1  46 49 52 24 2c 32 2c 31  |AR.Qc...FIR$,2,1|
00004c90  29 3d 22 32 22 8c f2 43  4f 4d 53 54 52 0d 51 68  |)="2"..COMSTR.Qh|
00004ca0  11 e7 43 4f 4d 25 3d 31  8c e5 8d 40 7c 51 0d 51  |..COM%=1...@|Q.Q|
00004cb0  6d 16 e7 4c 24 28 53 43  25 29 3d 22 2c 22 8c e5  |m..L$(SC%)=","..|
00004cc0  8d 50 6e 4f 0d 51 72 3b  53 43 25 3d 53 43 25 2b  |.PnO.Qr;SC%=SC%+|
00004cd0  31 3a e7 53 43 25 3e 4d  4c 25 8c f2 45 52 52 4f  |1:.SC%>ML%..ERRO|
00004ce0  52 28 22 4e 6f 20 45 4e  44 57 48 49 4c 45 20 74  |R("No ENDWHILE t|
00004cf0  6f 20 6d 61 74 63 68 20  57 48 49 4c 45 22 29 0d  |o match WHILE").|
00004d00  51 77 09 e5 8d 40 6d 51  0d 51 7c 19 57 48 25 3d  |Qw...@mQ.Q|.WH%=|
00004d10  31 3a 4c 4f 25 3d 53 43  25 2d 31 3a e5 8d 50 6e  |1:LO%=SC%-1:..Pn|
00004d20  4f 0d 51 81 2f e7 57 48  25 3d 30 8c f2 45 52 52  |O.Q./.WH%=0..ERR|
00004d30  4f 52 28 22 4e 6f 20 57  48 49 4c 45 20 74 6f 20  |OR("No WHILE to |
00004d40  6d 61 74 63 68 20 45 4e  44 57 48 49 4c 45 22 29  |match ENDWHILE")|
00004d50  0d 51 86 11 53 43 25 3d  4c 4f 25 3a e5 8d 50 6e  |.Q..SC%=LO%:..Pn|
00004d60  4f 0d 51 8b 0b ee 85 e5  8d 70 73 51 0d 51 90 b1  |O.Q......psQ.Q..|
00004d70  f2 50 47 45 54 32 3a 46  49 24 3d 50 24 28 31 29  |.PGET2:FI$=P$(1)|
00004d80  3a 58 3d a7 46 49 24 2c  22 20 22 29 3a 46 49 24  |:X=.FI$," "):FI$|
00004d90  3d c0 46 49 24 2c 58 2d  31 29 3a 53 47 24 3d 46  |=.FI$,X-1):SG$=F|
00004da0  49 24 3a f2 53 54 47 45  54 3a 46 49 24 3d 53 47  |I$:.STGET:FI$=SG|
00004db0  24 3a 46 4f 24 3d 46 49  24 2b 22 41 22 3a ff 22  |$:FO$=FI$+"A":."|
00004dc0  43 4c 4f 53 45 22 3a 54  41 24 3d 46 49 24 2b 22  |CLOSE":TA$=FI$+"|
00004dd0  4e 22 3a ff 20 22 44 69  72 20 3c 44 61 74 61 56  |N":. "Dir <DataV|
00004de0  69 73 69 6f 6e 24 44 69  72 3e 22 3a 4e 3d ad 54  |ision$Dir>":N=.T|
00004df0  41 24 3a e8 23 4e 2c 44  49 52 24 3a ff 22 43 4c  |A$:.#N,DIR$:."CL|
00004e00  4f 53 45 22 3a f2 44 69  72 28 44 49 52 24 29 3a  |OSE":.Dir(DIR$):|
00004e10  42 3d ad 46 4f 24 3a 43  3d ad 46 49 24 0d 51 9a  |B=.FO$:C=.FI$.Q.|
00004e20  0b ee 85 e5 8d 60 7c 4e  0d 51 9f 4f cf 23 42 3d  |.....`|N.Q.O.#B=|
00004e30  30 3a e8 23 42 2c 5a 41  24 3a cf 23 42 3d 35 3a  |0:.#B,ZA$:.#B=5:|
00004e40  e8 23 42 2c 5a 42 24 3a  cf 23 42 3d 31 35 3a e8  |.#B,ZB$:.#B=15:.|
00004e50  23 42 2c 5a 43 24 3a cf  23 42 3d 34 35 3a e8 23  |#B,ZC$:.#B=45:.#|
00004e60  42 2c 53 4f 24 3a e7 bb  28 53 4f 24 29 3e 30 8c  |B,SO$:..(SO$)>0.|
00004e70  53 4f 24 3d 22 31 22 0d  51 a4 7d 46 41 24 3d 54  |SO$="1".Q.}FA$=T|
00004e80  41 24 3a 4e 4f 46 25 3d  bb 28 5a 41 24 29 3a 4e  |A$:NOF%=.(ZA$):N|
00004e90  4f 52 25 3d bb 28 5a 42  24 29 3a 52 45 43 25 3d  |OR%=.(ZB$):REC%=|
00004ea0  bb 28 5a 43 24 29 3a 41  28 33 35 29 3d 31 3a 41  |.(ZC$):A(35)=1:A|
00004eb0  28 33 34 29 3d 4e 4f 52  25 3a 46 4f 25 3d 31 3a  |(34)=NOR%:FO%=1:|
00004ec0  4d 4f 52 25 3d 4e 4f 52  25 2b 31 3a e7 4e 4f 52  |MOR%=NOR%+1:.NOR|
00004ed0  25 3d 30 8c ff 22 43 4c  4f 53 45 22 3a f2 45 52  |%=0.."CLOSE":.ER|
00004ee0  52 4f 52 28 22 46 69 6c  65 20 69 73 20 65 6d 70  |ROR("File is emp|
00004ef0  74 79 22 29 0d 51 ae 09  e5 8d 50 6e 4f 0d 51 b3  |ty").Q....PnO.Q.|
00004f00  0b ee 85 e5 8d 60 7c 4e  0d 51 b8 22 f2 45 52 52  |.....`|N.Q.".ERR|
00004f10  4f 52 28 22 43 61 6e 6e  6f 74 20 72 65 61 64 20  |OR("Cannot read |
00004f20  74 68 65 20 66 69 6c 65  22 29 0d 51 bd 39 f2 47  |the file").Q.9.G|
00004f30  46 49 4c 3a db 3a 53 3d  ad 46 49 4c 24 3a e3 4a  |FIL:.:S=.FIL$:.J|
00004f40  3d 30 b8 32 36 3a e8 23  53 2c 56 24 3a f1 8a 30  |=0.26:.#S,V$:..0|
00004f50  2c 4a 29 3b 56 24 3a ed  4a 3a d9 23 53 3a e5 8d  |,J);V$:.J:.#S:..|
00004f60  50 6e 4f 0d 51 c2 4a dd  f2 47 46 49 4c 3a 46 49  |PnO.Q.J..GFIL:FI|
00004f70  4c 24 3d c1 46 49 52 24  2c 32 29 3a e7 c0 46 49  |L$=.FIR$,2):..FI|
00004f80  4c 24 2c 31 29 3d 22 24  22 8c 56 52 25 3d bb 28  |L$,1)="$".VR%=.(|
00004f90  c1 46 49 4c 24 2c 32 29  29 3a f2 56 52 43 48 4b  |.FIL$,2)):.VRCHK|
00004fa0  3a 46 49 4c 24 3d 53 24  28 56 52 25 29 0d 51 c7  |:FIL$=S$(VR%).Q.|
00004fb0  05 e1 0d 51 cc 3a dd f2  53 54 47 45 54 3a e7 c0  |...Q.:..STGET:..|
00004fc0  53 47 24 2c 31 29 3d 22  24 22 8c 56 52 25 3d bb  |SG$,1)="$".VR%=.|
00004fd0  28 c1 53 47 24 2c 32 29  29 3a f2 56 52 43 48 4b  |(.SG$,2)):.VRCHK|
00004fe0  3a 53 47 24 3d 53 24 28  56 52 25 29 0d 51 d1 05  |:SG$=S$(VR%).Q..|
00004ff0  e1 0d 51 d6 6d 53 47 24  3d c1 46 49 52 24 2c 32  |..Q.mSG$=.FIR$,2|
00005000  29 3a f2 53 54 47 45 54  3a 53 3d ad 53 47 24 3a  |):.STGET:S=.SG$:|
00005010  e8 23 53 2c 4c 24 28 30  29 3a e7 c1 4c 24 28 30  |.#S,L$(0):..L$(0|
00005020  29 2c 34 29 3c 3e 22 2a  43 4f 4d 50 49 4c 45 44  |),4)<>"*COMPILED|
00005030  2a 22 8c f2 45 52 52 4f  52 28 22 49 4e 53 54 41  |*"..ERROR("INSTA|
00005040  4c 4c 65 64 20 70 72 6f  67 72 61 6d 20 69 73 20  |LLed program is |
00005050  6e 6f 74 20 63 6f 6d 70  69 6c 65 64 22 29 0d 51  |not compiled").Q|
00005060  db 4b 4d 4c 25 3d bb 28  4c 24 28 30 29 29 3a e3  |.KML%=.(L$(0)):.|
00005070  49 3d 31 b8 4d 4c 25 3a  e8 23 53 2c 4c 24 28 49  |I=1.ML%:.#S,L$(I|
00005080  29 3a ed 49 3a e3 46 3d  28 4d 4c 25 2b 31 29 b8  |):.I:.F=(ML%+1).|
00005090  31 35 30 3a 4c 24 28 49  29 3d 22 22 3a ed 46 3a  |150:L$(I)="":.F:|
000050a0  d9 23 53 3a e5 8d 50 46  4f 0d 51 e0 1d 53 47 24  |.#S:..PFO.Q..SG$|
000050b0  3d c1 46 49 52 24 2c 32  29 3a f2 53 54 47 45 54  |=.FIR$,2):.STGET|
000050c0  3a d7 20 53 47 24 0d 51  e5 10 41 28 33 35 29 3d  |:. SG$.Q..A(35)=|
000050d0  31 3a f2 46 43 48 0d 51  ea 59 f2 50 47 45 54 32  |1:.FCH.Q.Y.PGET2|
000050e0  3a 4e 31 25 3d bb 28 c1  50 24 28 31 29 2c 32 29  |:N1%=.(.P$(1),2)|
000050f0  29 3a 56 52 25 3d bb 28  c1 50 24 28 32 29 2c 32  |):VR%=.(.P$(2),2|
00005100  29 29 3a f2 56 52 43 48  4b 3a 76 72 25 3d 56 52  |)):.VRCHK:vr%=VR|
00005110  25 3a f2 56 47 45 54 28  50 24 28 33 29 29 3a 56  |%:.VGET(P$(3)):V|
00005120  52 25 3d 76 72 25 3a 53  52 45 25 3d 56 47 25 0d  |R%=vr%:SRE%=VG%.|
00005130  51 ef 30 e7 4e 31 25 3d  30 84 4e 31 25 3e 4e 4f  |Q.0.N1%=0.N1%>NO|
00005140  46 25 8c f2 45 52 52 4f  52 28 22 46 69 65 6c 64  |F%..ERROR("Field|
00005150  20 6f 75 74 20 6f 66 20  72 61 6e 67 65 22 29 0d  | out of range").|
00005160  51 f1 1e e7 53 52 45 25  3c 31 20 84 20 53 52 45  |Q...SRE%<1 . SRE|
00005170  25 3e 4e 4f 52 25 8c 53  52 45 25 3d 31 0d 51 f4  |%>NOR%.SRE%=1.Q.|
00005180  4d 4c 3d 53 52 45 25 3a  cf 23 42 3d 28 4e 31 25  |ML=SRE%:.#B=(N1%|
00005190  2d 31 29 2a 36 31 2b 31  30 39 3a e8 23 42 2c 54  |-1)*61+109:.#B,T|
000051a0  49 24 3a e7 c0 50 24 28  32 29 2c 31 29 3d 22 24  |I$:..P$(2),1)="$|
000051b0  22 8c 43 24 3d 53 24 28  56 52 25 29 3a 8b 43 24  |".C$=S$(VR%):.C$|
000051c0  3d c3 28 41 28 56 52 25  29 29 0d 51 f9 35 41 28  |=.(A(VR%)).Q.5A(|
000051d0  33 35 29 3d 4c 3a cf 23  43 3d 28 4c 2d 31 29 2a  |35)=L:.#C=(L-1)*|
000051e0  52 45 43 25 2b bb 28 54  49 24 29 3a e8 23 43 2c  |REC%+.(TI$):.#C,|
000051f0  4e 24 3a e7 43 24 3d 4e  24 8c e5 8d 50 4d 52 0d  |N$:.C$=N$...PMR.|
00005200  51 fe 1e 4c 3d 4c 2b 31  3a e7 4c 3e 4e 4f 52 25  |Q..L=L+1:.L>NOR%|
00005210  8c e5 8d 50 43 52 3a 8b  e5 8d 60 79 51 0d 52 03  |...PCR:...`yQ.R.|
00005220  11 41 28 33 35 29 3d 30  3a e5 8d 50 6e 4f 0d 52  |.A(35)=0:..PnO.R|
00005230  08 09 e5 8d 50 6e 4f 0d  52 0d 11 41 28 33 35 29  |....PnO.R..A(35)|
00005240  3d 4c 3a e5 8d 50 6e 4f  0d 52 12 1e e7 4f 28 36  |=L:..PnO.R...O(6|
00005250  29 3d 31 8c f2 4f 55 54  50 55 54 31 3a 8b f2 4f  |)=1..OUTPUT1:..O|
00005260  55 54 50 55 54 32 0d 52  17 09 e5 8d 60 7e 51 0d  |UTPUT2.R....`~Q.|
00005270  52 1c 11 41 28 33 35 29  3d 4c 3a e5 8d 50 6e 4f  |R..A(35)=L:..PnO|
00005280  0d 52 21 1e e7 4f 28 36  29 3d 31 8c f2 4f 55 54  |.R!..O(6)=1..OUT|
00005290  50 55 54 31 3a 8b f2 4f  55 54 50 55 54 32 0d 52  |PUT1:..OUTPUT2.R|
000052a0  26 09 e5 8d 40 44 52 0d  52 2b 10 41 28 33 35 29  |&...@DR.R+.A(35)|
000052b0  3d 31 3a f2 46 43 48 0d  52 30 59 f2 50 47 45 54  |=1:.FCH.R0Y.PGET|
000052c0  32 3a 4e 31 25 3d bb 28  c1 50 24 28 31 29 2c 32  |2:N1%=.(.P$(1),2|
000052d0  29 29 3a 56 52 25 3d bb  28 c1 50 24 28 32 29 2c  |)):VR%=.(.P$(2),|
000052e0  32 29 29 3a f2 56 52 43  48 4b 3a 76 72 25 3d 56  |2)):.VRCHK:vr%=V|
000052f0  52 25 3a f2 56 47 45 54  28 50 24 28 33 29 29 3a  |R%:.VGET(P$(3)):|
00005300  56 52 25 3d 76 72 25 3a  53 52 45 25 3d 56 47 25  |VR%=vr%:SRE%=VG%|
00005310  0d 52 35 30 e7 4e 31 25  3d 30 84 4e 31 25 3e 4e  |.R50.N1%=0.N1%>N|
00005320  4f 46 25 8c f2 45 52 52  4f 52 28 22 46 69 65 6c  |OF%..ERROR("Fiel|
00005330  64 20 6f 75 74 20 6f 66  20 72 61 6e 67 65 22 29  |d out of range")|
00005340  0d 52 37 1e e7 53 52 45  25 3c 31 20 84 20 53 52  |.R7..SRE%<1 . SR|
00005350  45 25 3e 4e 4f 52 25 8c  53 52 45 25 3d 31 0d 52  |E%>NOR%.SRE%=1.R|
00005360  3a 32 4c 3d 53 52 45 25  3a e7 c0 50 24 28 32 29  |:2L=SRE%:..P$(2)|
00005370  2c 31 29 3d 22 24 22 8c  43 24 3d 53 24 28 56 52  |,1)="$".C$=S$(VR|
00005380  25 29 3a 8b 43 24 3d c3  28 41 28 56 52 25 29 29  |%):.C$=.(A(VR%))|
00005390  0d 52 3f 58 41 28 33 35  29 3d 4c 3a cf 23 42 3d  |.R?XA(35)=L:.#B=|
000053a0  28 4e 31 25 2d 31 29 2a  36 31 2b 31 30 39 3a e8  |(N1%-1)*61+109:.|
000053b0  23 42 2c 54 49 24 3a cf  23 43 3d 28 4c 2d 31 29  |#B,TI$:.#C=(L-1)|
000053c0  2a 52 45 43 25 2b bb 28  54 49 24 29 3a e8 23 43  |*REC%+.(TI$):.#C|
000053d0  2c 4e 24 3a 58 3d a7 4e  24 2c 43 24 29 3a e7 58  |,N$:X=.N$,C$):.X|
000053e0  3e 30 8c e5 8d 50 5c 52  0d 52 44 1e 4c 3d 4c 2b  |>0...P\R.RD.L=L+|
000053f0  31 3a e7 4c 3e 4e 4f 52  25 8c e5 8d 50 43 52 3a  |1:.L>NOR%...PCR:|
00005400  8b e5 8d 50 7f 52 0d 52  49 4a 58 32 3d b1 3a 59  |...P.R.RIJX2=.:Y|
00005410  32 3d bc 3a 4c 3d 33 3a  e7 c1 46 49 52 24 2c 32  |2=.:L=3:..FIR$,2|
00005420  2c 31 29 3d bd 28 32 35  34 29 8c 58 32 3d bb 28  |,1)=.(254).X2=.(|
00005430  c1 46 49 52 24 2c 33 2c  32 29 29 3a 59 32 3d bb  |.FIR$,3,2)):Y2=.|
00005440  28 c1 46 49 52 24 2c 35  2c 32 29 29 3a 4c 3d 37  |(.FIR$,5,2)):L=7|
00005450  0d 52 4e 1e e7 58 32 3d  30 80 59 32 3d 32 38 8c  |.RN..X2=0.Y2=28.|
00005460  f1 8a 58 2c 59 29 3b c4  38 2c 22 20 22 29 0d 52  |..X,Y);.8," ").R|
00005470  53 36 56 52 25 3d bb 28  c1 46 49 52 24 2c 28 4c  |S6VR%=.(.FIR$,(L|
00005480  2b 31 29 2c 32 29 29 3a  f2 56 52 43 48 4b 3a f2  |+1),2)):.VRCHK:.|
00005490  54 59 35 3a 53 24 28 56  52 25 29 3d 4e 24 3a e5  |TY5:S$(VR%)=N$:.|
000054a0  8d 50 6e 4f 0d 52 58 4a  58 32 3d b1 3a 59 32 3d  |.PnO.RXJX2=.:Y2=|
000054b0  bc 3a 4c 3d 33 3a e7 c1  46 49 52 24 2c 32 2c 31  |.:L=3:..FIR$,2,1|
000054c0  29 3d bd 28 32 35 34 29  8c 58 32 3d bb 28 c1 46  |)=.(254).X2=.(.F|
000054d0  49 52 24 2c 33 2c 32 29  29 3a 59 32 3d bb 28 c1  |IR$,3,2)):Y2=.(.|
000054e0  46 49 52 24 2c 35 2c 32  29 29 3a 4c 3d 37 0d 52  |FIR$,5,2)):L=7.R|
000054f0  5d 1e e7 58 32 3d 30 80  59 32 3d 32 38 8c f1 8a  |]..X2=0.Y2=28...|
00005500  58 2c 59 29 3b c4 35 2c  22 20 22 29 0d 52 62 36  |X,Y);.5," ").Rb6|
00005510  56 52 25 3d bb 28 c1 46  49 52 24 2c 28 4c 2b 31  |VR%=.(.FIR$,(L+1|
00005520  29 2c 32 29 29 3a f2 56  52 43 48 4b 3a f2 54 59  |),2)):.VRCHK:.TY|
00005530  36 3a 53 24 28 56 52 25  29 3d 4e 24 3a e5 8d 50  |6:S$(VR%)=N$:..P|
00005540  6e 4f 0d 52 67 09 dd f2  54 59 35 0d 52 6c 1d f1  |nO.Rg...TY5.Rl..|
00005550  8a 58 32 2c 59 32 29 3b  22 2e 2e 2f 2e 2e 2f 2e  |.X2,Y2);"../../.|
00005560  2e 22 3a 4e 24 3d 22 22  0d 52 71 1a 58 33 3d 58  |.":N$="".Rq.X3=X|
00005570  32 3a f2 44 41 54 3a e7  44 45 3d 31 8c e5 8d 40  |2:.DAT:.DE=1...@|
00005580  6c 52 0d 52 76 27 4e 24  3d 4e 24 2b 44 41 54 24  |lR.Rv'N$=N$+DAT$|
00005590  3a 58 33 3d 58 32 2b 33  3a f2 44 41 54 3a e7 44  |:X3=X2+3:.DAT:.D|
000055a0  45 3d 31 8c e5 8d 40 6c  52 0d 52 7b 2f 4e 24 3d  |E=1...@lR.R{/N$=|
000055b0  4e 24 2b 22 2f 22 2b 44  41 54 24 2b 22 2f 22 3a  |N$+"/"+DAT$+"/":|
000055c0  58 33 3d 58 32 2b 36 3a  f2 44 41 54 3a e7 44 45  |X3=X2+6:.DAT:.DE|
000055d0  3d 31 8c e5 8d 40 6c 52  0d 52 80 0e 4e 24 3d 4e  |=1...@lR.R..N$=N|
000055e0  24 2b 44 41 54 24 0d 52  85 15 49 4e 3d a5 3a e7  |$+DAT$.R..IN=.:.|
000055f0  49 4e 3d 31 33 8c e5 8d  70 4f 52 0d 52 8a 17 e7  |IN=13...pOR.R...|
00005600  49 4e 3d 31 32 37 8c e5  8d 40 6c 52 8b e5 8d 70  |IN=127...@lR...p|
00005610  45 52 0d 52 8f 05 e1 0d  52 94 09 dd f2 44 41 54  |ER.R....R....DAT|
00005620  0d 52 99 16 44 45 3d 30  3a 44 41 54 24 3d 22 22  |.R..DE=0:DAT$=""|
00005630  3a 58 34 3d 58 33 0d 52  9e 1b 49 4e 3d a5 3a e7  |:X4=X3.R..IN=.:.|
00005640  49 4e 3d 31 32 37 8c 44  45 3d 31 3a e5 8d 70 72  |IN=127.DE=1:..pr|
00005650  52 0d 52 a3 23 e7 49 4e  3c 34 38 84 49 4e 3e 35  |R.R.#.IN<48.IN>5|
00005660  37 8c d4 31 2c 2d 31 35  2c 31 30 30 2c 32 3a e5  |7..1,-15,100,2:.|
00005670  8d 70 5e 52 0d 52 a8 3b  f1 8a 58 33 2c 59 32 29  |.p^R.R.;..X3,Y2)|
00005680  3b bd 28 49 4e 29 3a 44  41 54 24 3d 44 41 54 24  |;.(IN):DAT$=DAT$|
00005690  2b bd 28 49 4e 29 3a 58  33 3d 58 33 2b 31 3a e7  |+.(IN):X3=X3+1:.|
000056a0  58 33 3e 28 58 34 2b 31  29 8c e5 8d 70 72 52 0d  |X3>(X4+1)...prR.|
000056b0  52 ad 09 e5 8d 70 5e 52  0d 52 b2 05 e1 0d 52 b7  |R....p^R.R....R.|
000056c0  09 dd f2 54 59 36 0d 52  bc 1a f1 8a 58 32 2c 59  |...TY6.R....X2,Y|
000056d0  32 29 3b 22 2e 2e 3a 2e  2e 22 3a 4e 24 3d 22 22  |2);"..:..":N$=""|
000056e0  0d 52 c1 1a 58 33 3d 58  32 3a f2 44 41 54 3a e7  |.R..X3=X2:.DAT:.|
000056f0  44 45 3d 31 8c e5 8d 70  7c 52 0d 52 c6 1f 4e 24  |DE=1...p|R.R..N$|
00005700  3d 4e 24 2b 44 41 54 24  2b 22 3a 22 3a 58 33 3d  |=N$+DAT$+":":X3=|
00005710  58 32 2b 33 3a f2 44 41  54 0d 52 cb 0e 4e 24 3d  |X2+3:.DAT.R..N$=|
00005720  4e 24 2b 44 41 54 24 0d  52 d0 15 49 4e 3d a5 3a  |N$+DAT$.R..IN=.:|
00005730  e7 49 4e 3d 31 33 8c e5  8d 60 5a 52 0d 52 d5 17  |.IN=13...`ZR.R..|
00005740  e7 49 4e 3d 31 32 37 8c  e5 8d 70 7c 52 8b e5 8d  |.IN=127...p|R...|
00005750  60 50 52 0d 52 da 05 e1  0d 52 df 30 53 45 54 25  |`PR.R....R.0SET%|
00005760  3d bb 28 c1 46 49 52 24  2c 32 29 29 3a e7 53 45  |=.(.FIR$,2)):.SE|
00005770  54 25 3d 31 8c eb 31 32  39 3a 4f 28 35 29 3d 31  |T%=1..129:O(5)=1|
00005780  3a 87 3a e5 8d 50 6e 4f  0d 52 e4 1e e7 53 45 54  |:.:..PnO.R...SET|
00005790  25 3d 33 8c eb 31 36 3a  4f 28 35 29 3d 33 3a 87  |%=3..16:O(5)=3:.|
000057a0  3a e5 8d 50 6e 4f 0d 52  e9 16 eb 31 35 3a 4f 28  |:..PnO.R...15:O(|
000057b0  35 29 3d 32 3a 87 3a e5  8d 50 6e 4f 0d 53 5c 0b  |5)=2:.:..PnO.S\.|
000057c0  db 3a e5 8d 50 6e 4f 0d  53 61 29 f2 45 52 52 4f  |.:..PnO.Sa).ERRO|
000057d0  52 28 22 50 72 6f 67 72  61 6d 20 72 75 6e 20 65  |R("Program run e|
000057e0  6e 64 65 64 20 77 69 74  68 20 45 58 49 54 22 29  |nded with EXIT")|
000057f0  0d 53 66 08 f2 46 43 48  0d 53 6b 44 f2 50 47 45  |.Sf..FCH.SkD.PGE|
00005800  54 32 3a 4c 3d 31 3a 43  52 25 3d 41 28 33 35 29  |T2:L=1:CR%=A(35)|
00005810  3a e7 53 4f 24 3d 22 31  22 8c cf 23 43 3d 28 43  |:.SO$="1"..#C=(C|
00005820  52 25 2a 52 45 43 25 29  2d 31 30 3a e8 23 43 2c  |R%*REC%)-10:.#C,|
00005830  4e 24 3a 43 52 25 3d bb  28 4e 24 29 0d 53 75 51  |N$:CR%=.(N$).SuQ|
00005840  f2 56 47 45 54 28 50 24  28 4c 29 29 3a e7 56 47  |.VGET(P$(L)):.VG|
00005850  25 3d 30 84 56 47 25 3e  4e 4f 46 25 8c f2 45 52  |%=0.VG%>NOF%..ER|
00005860  52 4f 52 28 22 46 69 65  6c 64 20 72 65 74 72 69  |ROR("Field retri|
00005870  65 76 61 6c 20 70 61 72  61 6d 65 74 65 72 20 6f  |eval parameter o|
00005880  75 74 20 6f 66 20 72 61  6e 67 65 22 29 0d 53 7a  |ut of range").Sz|
00005890  a3 cf 23 42 3d 28 56 47  25 2d 31 29 2a 36 31 2b  |..#B=(VG%-1)*61+|
000058a0  31 30 39 3a e8 23 42 2c  54 49 24 3a cf 23 42 3d  |109:.#B,TI$:.#B=|
000058b0  28 56 47 25 2d 31 29 2a  36 31 2b 31 30 34 3a e8  |(VG%-1)*61+104:.|
000058c0  23 42 2c 49 4e 24 3a cf  23 43 3d 28 43 52 25 2d  |#B,IN$:.#C=(CR%-|
000058d0  31 29 2a 52 45 43 25 2b  bb 28 54 49 24 29 3a e8  |1)*REC%+.(TI$):.|
000058e0  23 43 2c 4e 24 3a e7 4f  28 32 29 3d 31 8c 4e 24  |#C,N$:.O(2)=1.N$|
000058f0  3d 4e 24 2b c4 bb 28 49  4e 24 29 2d a9 28 4e 24  |=N$+..(IN$)-.(N$|
00005900  29 2c 22 20 22 29 2b 22  20 22 3a 8b e7 4f 28 32  |)," ")+" ":..O(2|
00005910  29 3d 32 8c 4e 24 3d 4e  24 2b c4 bb 28 49 4e 24  |)=2.N$=N$+..(IN$|
00005920  29 2d a9 28 4e 24 29 2c  22 20 22 29 2b 22 7c 22  |)-.(N$)," ")+"|"|
00005930  0d 53 7f 15 e7 4f 28 32  29 3d 30 8c 4e 24 3d 4e  |.S...O(2)=0.N$=N|
00005940  24 2b 22 20 22 0d 53 84  24 f1 4e 24 3b 3a 4c 3d  |$+" ".S.$.N$;:L=|
00005950  4c 2b 31 3a e7 4c 3e 4e  50 25 8c f1 3a e5 8d 50  |L+1:.L>NP%..:..P|
00005960  6e 4f 3a 8b e5 8d 40 75  53 0d 53 89 08 f2 46 43  |nO:...@uS.S...FC|
00005970  48 0d 53 8e 44 f2 50 47  45 54 32 3a 4c 3d 31 3a  |H.S.D.PGET2:L=1:|
00005980  43 52 25 3d 41 28 33 35  29 3a e7 53 4f 24 3d 22  |CR%=A(35):.SO$="|
00005990  31 22 8c cf 23 43 3d 28  43 52 25 2a 52 45 43 25  |1"..#C=(CR%*REC%|
000059a0  29 2d 31 30 3a e8 23 43  2c 4e 24 3a 43 52 25 3d  |)-10:.#C,N$:CR%=|
000059b0  bb 28 4e 24 29 0d 53 93  2a e7 4f 28 32 29 3e 30  |.(N$).S.*.O(2)>0|
000059c0  8c f1 22 52 65 63 6f 72  64 20 20 20 20 20 20 20  |.."Record       |
000059d0  20 20 20 20 20 20 20 20  22 3b 41 28 33 35 29 0d  |        ";A(35).|
000059e0  53 98 51 f2 56 47 45 54  28 50 24 28 4c 29 29 3a  |S.Q.VGET(P$(L)):|
000059f0  e7 56 47 25 3d 30 84 56  47 25 3e 4e 4f 46 25 8c  |.VG%=0.VG%>NOF%.|
00005a00  f2 45 52 52 4f 52 28 22  46 69 65 6c 64 20 72 65  |.ERROR("Field re|
00005a10  74 72 69 65 76 61 6c 20  70 61 72 61 6d 65 74 65  |trieval paramete|
00005a20  72 20 6f 75 74 20 6f 66  20 72 61 6e 67 65 22 29  |r out of range")|
00005a30  0d 53 9d 72 cf 23 42 3d  28 56 47 25 2d 31 29 2a  |.S.r.#B=(VG%-1)*|
00005a40  36 31 2b 36 33 3a e8 23  42 2c 46 4c 24 3a cf 23  |61+63:.#B,FL$:.#|
00005a50  42 3d 28 56 47 25 2d 31  29 2a 36 31 2b 31 30 39  |B=(VG%-1)*61+109|
00005a60  3a e8 23 42 2c 54 49 24  3a cf 23 42 3d 28 56 47  |:.#B,TI$:.#B=(VG|
00005a70  25 2d 31 29 2a 36 31 2b  31 30 34 3a e8 23 42 2c  |%-1)*61+104:.#B,|
00005a80  49 4e 24 3a cf 23 43 3d  28 43 52 25 2d 31 29 2a  |IN$:.#C=(CR%-1)*|
00005a90  52 45 43 25 2b bb 28 54  49 24 29 3a e8 23 43 2c  |REC%+.(TI$):.#C,|
00005aa0  4e 24 0d 53 a2 34 f1 46  4c 24 3b 89 28 32 31 2d  |N$.S.4.FL$;.(21-|
00005ab0  a9 28 46 4c 24 29 29 3b  4e 24 3a 4c 3d 4c 2b 31  |.(FL$));N$:L=L+1|
00005ac0  3a e7 4c 3e 4e 50 25 8c  f1 3a e5 8d 50 6e 4f 3a  |:.L>NP%..:..PnO:|
00005ad0  8b e5 8d 70 58 53 0d 53  a7 1d dd f2 56 47 45 54  |...pXS.S....VGET|
00005ae0  28 56 47 24 29 3a e7 56  47 24 3d 22 22 8c 56 47  |(VG$):.VG$="".VG|
00005af0  25 3d 30 0d 53 ac 37 e7  c0 56 47 24 2c 31 29 3d  |%=0.S.7..VG$,1)=|
00005b00  22 26 22 8c 56 52 25 3d  bb 28 c1 56 47 24 2c 32  |"&".VR%=.(.VG$,2|
00005b10  29 29 3a f2 56 52 43 48  4b 3a 56 47 25 3d 41 28  |)):.VRCHK:VG%=A(|
00005b20  56 52 25 29 3a e5 8d 70  7b 53 0d 53 b1 3b e7 c0  |VR%):..p{S.S.;..|
00005b30  56 47 24 2c 31 29 3d 22  24 22 8c 56 52 25 3d bb  |VG$,1)="$".VR%=.|
00005b40  28 c1 56 47 24 2c 32 29  29 3a f2 56 52 43 48 4b  |(.VG$,2)):.VRCHK|
00005b50  3a 56 47 25 3d bb 28 53  24 28 56 52 25 29 29 3a  |:VG%=.(S$(VR%)):|
00005b60  e5 8d 70 7b 53 0d 53 b6  0e 56 47 25 3d bb 28 56  |..p{S.S..VG%=.(V|
00005b70  47 24 29 0d 53 bb 05 e1  0d 53 c0 08 f2 46 43 48  |G$).S....S...FCH|
00005b80  0d 53 c5 39 43 52 25 3d  41 28 33 35 29 3a e7 53  |.S.9CR%=A(35):.S|
00005b90  4f 24 3d 22 31 22 8c cf  23 43 3d 28 43 52 25 2a  |O$="1"..#C=(CR%*|
00005ba0  52 45 43 25 29 2d 31 30  3a e8 23 43 2c 4e 24 3a  |REC%)-10:.#C,N$:|
00005bb0  43 52 25 3d bb 28 4e 24  29 0d 53 ca 61 4e 31 24  |CR%=.(N$).S.aN1$|
00005bc0  3d c0 46 49 52 24 2c 31  29 3a f2 56 47 45 54 28  |=.FIR$,1):.VGET(|
00005bd0  c1 46 49 52 24 2c 32 29  29 3a e7 56 47 25 3e 4e  |.FIR$,2)):.VG%>N|
00005be0  4f 46 25 84 56 47 25 3c  30 8c f2 45 52 52 4f 52  |OF%.VG%<0..ERROR|
00005bf0  28 22 46 69 65 6c 64 20  72 65 74 72 69 65 76 61  |("Field retrieva|
00005c00  6c 20 70 61 72 61 6d 65  74 65 72 20 6f 75 74 20  |l parameter out |
00005c10  6f 66 20 72 61 6e 67 65  22 29 0d 53 cf 13 e7 56  |of range").S...V|
00005c20  47 25 3d 30 8c 56 47 25  3d 4e 4f 46 25 0d 53 d4  |G%=0.VG%=NOF%.S.|
00005c30  33 e7 4e 31 24 3d 22 3f  22 8c e7 4f 28 32 29 3e  |3.N1$="?"..O(2)>|
00005c40  30 8c f1 22 52 65 63 6f  72 64 20 20 20 20 20 20  |0.."Record      |
00005c50  20 20 20 20 20 20 20 20  20 22 3b 41 28 33 35 29  |         ";A(35)|
00005c60  0d 53 d9 1f e7 4e 31 24  3d 22 3e 22 80 4f 28 32  |.S...N1$=">".O(2|
00005c70  29 3e 30 8c f1 41 28 33  35 29 3b 22 7c 22 3b 0d  |)>0..A(35);"|";.|
00005c80  53 de 0c e3 49 3d 31 b8  56 47 25 0d 53 e3 99 cf  |S...I=1.VG%.S...|
00005c90  23 42 3d 28 49 2d 31 29  2a 36 31 2b 31 30 39 3a  |#B=(I-1)*61+109:|
00005ca0  e8 23 42 2c 54 49 24 3a  cf 23 42 3d 28 49 2d 31  |.#B,TI$:.#B=(I-1|
00005cb0  29 2a 36 31 2b 31 30 34  3a e8 23 42 2c 49 4e 24  |)*61+104:.#B,IN$|
00005cc0  3a cf 23 43 3d 28 43 52  25 2d 31 29 2a 52 45 43  |:.#C=(CR%-1)*REC|
00005cd0  25 2b bb 28 54 49 24 29  3a e8 23 43 2c 4e 24 3a  |%+.(TI$):.#C,N$:|
00005ce0  cf 23 42 3d 28 49 2d 31  29 2a 36 31 2b 36 33 3a  |.#B=(I-1)*61+63:|
00005cf0  e8 23 42 2c 46 4c 24 3a  e7 4e 31 24 3d 22 3e 22  |.#B,FL$:.N1$=">"|
00005d00  80 4f 28 32 29 3d 31 8c  4e 24 3d 4e 24 2b c4 bb  |.O(2)=1.N$=N$+..|
00005d10  28 49 4e 24 29 2d a9 28  4e 24 29 2c 22 20 22 29  |(IN$)-.(N$)," ")|
00005d20  2b 22 20 22 0d 53 e8 30  e7 4e 31 24 3d 22 3e 22  |+" ".S.0.N1$=">"|
00005d30  80 4f 28 32 29 3d 32 8c  4e 24 3d 4e 24 2b c4 bb  |.O(2)=2.N$=N$+..|
00005d40  28 49 4e 24 29 2d a9 28  4e 24 29 2c 22 20 22 29  |(IN$)-.(N$)," ")|
00005d50  2b 22 7c 22 0d 53 ed 11  e7 4e 31 24 3d 22 3e 22  |+"|".S...N1$=">"|
00005d60  8c f1 4e 24 3b 0d 53 f2  21 e7 4e 31 24 3d 22 3f  |..N$;.S.!.N1$="?|
00005d70  22 8c f1 46 4c 24 3b 89  28 32 31 2d a9 28 46 4c  |"..FL$;.(21-.(FL|
00005d80  24 29 29 3b 4e 24 0d 53  f7 0e ed 49 3a f1 3a e5  |$));N$.S...I:.:.|
00005d90  8d 50 6e 4f 0d 53 fc 3f  e7 46 4f 25 3d 30 8c f2  |.PnO.S.?.FO%=0..|
00005da0  45 52 52 4f 52 28 22 4e  6f 20 66 69 6c 65 20 6f  |ERROR("No file o|
00005db0  70 65 6e 22 29 3a 8b e7  4e 4f 52 25 3d 30 8c f2  |pen"):..NOR%=0..|
00005dc0  45 52 52 4f 52 28 22 46  69 6c 65 20 65 6d 70 74  |ERROR("File empt|
00005dd0  79 22 29 0d 54 01 60 f2  50 47 45 54 32 3a 4e 31  |y").T.`.PGET2:N1|
00005de0  25 3d bb 28 c1 50 24 28  31 29 2c 32 29 29 3a 56  |%=.(.P$(1),2)):V|
00005df0  52 25 3d bb 28 c1 50 24  28 32 29 2c 32 29 29 3a  |R%=.(.P$(2),2)):|
00005e00  f2 56 52 43 48 4b 3a e7  4e 31 25 3d 30 84 4e 31  |.VRCHK:.N1%=0.N1|
00005e10  25 3e 4e 4f 46 25 8c f2  45 52 52 4f 52 28 22 46  |%>NOF%..ERROR("F|
00005e20  69 65 6c 64 20 6f 75 74  20 6f 66 20 72 61 6e 67  |ield out of rang|
00005e30  65 22 29 0d 54 06 2f 4c  3d 31 3a 4e 31 24 3d c0  |e").T./L=1:N1$=.|
00005e40  46 49 52 24 2c 31 29 3a  cf 23 42 3d 28 4e 31 25  |FIR$,1):.#B=(N1%|
00005e50  2d 31 29 2a 36 31 2b 31  30 39 3a e8 23 42 2c 54  |-1)*61+109:.#B,T|
00005e60  49 24 0d 54 0b 36 53 55  25 3d 30 3a 41 56 47 3d  |I$.T.6SU%=0:AVG=|
00005e70  53 55 25 3a 4d 41 58 3d  bb 28 22 2d 39 39 39 39  |SU%:MAX=.("-9999|
00005e80  39 39 39 39 22 29 3a 4d  49 4e 3d bb 28 22 39 39  |9999"):MIN=.("99|
00005e90  39 39 39 39 39 39 22 29  0d 54 10 4d cf 23 43 3d  |999999").T.M.#C=|
00005ea0  28 4c 2d 31 29 2a 52 45  43 25 2b bb 28 54 49 24  |(L-1)*REC%+.(TI$|
00005eb0  29 3a e8 23 43 2c 43 24  3a 4e 32 3d bb 28 43 24  |):.#C,C$:N2=.(C$|
00005ec0  29 3a 53 55 25 3d 53 55  25 2b 4e 32 3a 41 56 47  |):SU%=SU%+N2:AVG|
00005ed0  3d 53 55 25 3a e7 4e 32  3e 4d 41 58 20 8c 20 4d  |=SU%:.N2>MAX . M|
00005ee0  41 58 3d 4e 32 0d 54 15  14 e7 4e 32 3c 4d 49 4e  |AX=N2.T...N2<MIN|
00005ef0  20 8c 20 4d 49 4e 3d 4e  32 0d 54 1a 1e 4c 3d 4c  | . MIN=N2.T..L=L|
00005f00  2b 31 3a e7 4c 3e 4e 4f  52 25 8c e5 8d 50 5f 54  |+1:.L>NOR%...P_T|
00005f10  3a 8b e5 8d 50 50 54 0d  54 1f 2d 41 56 47 3d 28  |:...PPT.T.-AVG=(|
00005f20  53 55 25 2f 28 4c 2d 31  29 29 3a e7 4e 31 24 3d  |SU%/(L-1)):.N1$=|
00005f30  22 46 22 8c 41 28 56 52  25 29 3d 53 55 25 3a e5  |"F".A(VR%)=SU%:.|
00005f40  8d 50 6e 4f 0d 54 24 1d  e7 4e 31 24 3d 22 47 22  |.PnO.T$..N1$="G"|
00005f50  8c 41 28 56 52 25 29 3d  41 56 47 3a e5 8d 50 6e  |.A(VR%)=AVG:..Pn|
00005f60  4f 0d 54 29 1d e7 4e 31  24 3d 22 48 22 8c 41 28  |O.T)..N1$="H".A(|
00005f70  56 52 25 29 3d 4d 41 58  3a e5 8d 50 6e 4f 0d 54  |VR%)=MAX:..PnO.T|
00005f80  2e 1d e7 4e 31 24 3d 22  49 22 8c 41 28 56 52 25  |...N1$="I".A(VR%|
00005f90  29 3d 4d 49 4e 3a e5 8d  50 6e 4f 0d 54 33 13 4c  |)=MIN:..PnO.T3.L|
00005fa0  58 3d 41 56 47 3a 4c 53  3d 30 3a 4c 3d 31 0d 54  |X=AVG:LS=0:L=1.T|
00005fb0  38 4e cf 23 43 3d 28 4c  2d 31 29 2a 52 45 43 25  |8N.#C=(L-1)*REC%|
00005fc0  2b bb 28 54 49 24 29 3a  e8 23 43 2c 43 24 3a 4c  |+.(TI$):.#C,C$:L|
00005fd0  53 3d 4c 53 2b 28 bb 28  43 24 29 2d 4c 58 29 5e  |S=LS+(.(C$)-LX)^|
00005fe0  32 3a 4c 3d 4c 2b 31 3a  e7 4c 3e 4e 4f 52 25 8c  |2:L=L+1:.L>NOR%.|
00005ff0  e5 8d 50 7d 54 3a 8b e5  8d 50 78 54 0d 54 3d 24  |..P}T:...PxT.T=$|
00006000  e7 4e 31 24 3d 22 4b 22  8c 41 28 56 52 25 29 3d  |.N1$="K".A(VR%)=|
00006010  28 4c 53 2f 28 4c 2d 31  29 29 3a e5 8d 50 6e 4f  |(LS/(L-1)):..PnO|
00006020  0d 54 42 1c 41 28 56 52  25 29 3d b6 28 4c 53 2f  |.TB.A(VR%)=.(LS/|
00006030  28 4c 2d 31 29 29 3a e5  8d 50 6e 4f 0d 54 47 26  |(L-1)):..PnO.TG&|
00006040  4e 31 24 3d c1 46 49 52  24 2c 32 29 3a 56 52 25  |N1$=.FIR$,2):VR%|
00006050  3d bb 28 c1 4e 31 24 2c  32 29 29 3a f2 56 52 43  |=.(.N1$,2)):.VRC|
00006060  48 4b 0d 54 4c 26 e7 c0  4e 31 24 2c 31 29 3d 22  |HK.TL&..N1$,1)="|
00006070  24 22 8c 49 24 3d be 3a  53 24 28 56 52 25 29 3d  |$".I$=.:S$(VR%)=|
00006080  49 24 3a e5 8d 50 6e 4f  0d 54 51 28 e7 c0 4e 31  |I$:..PnO.TQ(..N1|
00006090  24 2c 31 29 3d 22 26 22  8c 49 24 3d be 3a 41 28  |$,1)="&".I$=.:A(|
000060a0  56 52 25 29 3d 97 28 49  24 29 3a e5 8d 50 6e 4f  |VR%)=.(I$):..PnO|
000060b0  0d 54 56 18 f2 45 52 52  4f 52 28 22 42 61 64 20  |.TV..ERROR("Bad |
000060c0  47 45 54 4b 45 59 22 29  0d 54 5b 16 50 47 25 3d  |GETKEY").T[.PG%=|
000060d0  33 3a f2 50 47 45 54 32  3a 50 47 25 3d 32 0d 54  |3:.PGET2:PG%=2.T|
000060e0  60 0c 49 24 3d be 3a 4c  3d 31 0d 54 65 2f e7 c0  |`.I$=.:L=1.Te/..|
000060f0  50 24 28 4c 29 2c 31 29  3d 49 24 8c 53 43 25 3d  |P$(L),1)=I$.SC%=|
00006100  bb 28 50 24 28 4c 2b 31  29 29 2d 31 3a e5 8d 50  |.(P$(L+1))-1:..P|
00006110  6e 4f 3a 8b 4c 3d 4c 2b  32 0d 54 6a 33 e7 4c 3e  |nO:.L=L+2.Tj3.L>|
00006120  31 35 8c 41 53 24 3d c3  28 97 28 49 24 29 29 3a  |15.AS$=.(.(I$)):|
00006130  ff 22 46 58 31 33 38 2c  30 2c 22 2b 41 53 24 3a  |."FX138,0,"+AS$:|
00006140  e5 8d 50 6e 4f 3a 8b e5  8d 40 65 54 0d 54 6f 21  |..PnO:...@eT.To!|
00006150  e7 46 4f 25 3d 30 8c f2  45 52 52 4f 52 28 22 4e  |.FO%=0..ERROR("N|
00006160  6f 20 66 69 6c 65 20 6f  70 65 6e 22 29 0d 54 74  |o file open").Tt|
00006170  38 46 49 4c 24 3d c1 46  49 52 24 2c 32 29 3a e7  |8FIL$=.FIR$,2):.|
00006180  46 49 4c 24 3d 22 22 8c  54 46 25 3d 4e 4f 46 25  |FIL$="".TF%=NOF%|
00006190  3a 8b f2 56 47 45 54 28  46 49 4c 24 29 3a 54 46  |:..VGET(FIL$):TF|
000061a0  25 3d 56 47 25 0d 54 79  12 e7 4f 28 32 29 3e 30  |%=VG%.Ty..O(2)>0|
000061b0  8c f1 89 28 39 29 3b 0d  54 7e 76 e3 49 3d 31 b8  |...(9);.T~v.I=1.|
000061c0  54 46 25 3a cf 23 42 3d  28 49 2d 31 29 2a 36 31  |TF%:.#B=(I-1)*61|
000061d0  2b 36 33 3a e8 23 42 2c  46 4c 24 3a cf 23 42 3d  |+63:.#B,FL$:.#B=|
000061e0  28 49 2d 31 29 2a 36 31  2b 31 30 34 3a e8 23 42  |(I-1)*61+104:.#B|
000061f0  2c 49 4e 24 3a e7 bb 28  49 4e 24 29 3e 3d a9 28  |,IN$:..(IN$)>=.(|
00006200  46 4c 24 29 8c f1 46 4c  24 2b c4 bb 28 49 4e 24  |FL$)..FL$+..(IN$|
00006210  29 2d a9 28 46 4c 24 29  2c 22 20 22 29 2b 22 20  |)-.(FL$)," ")+" |
00006220  22 3b 3a 8b f1 46 4c 24  2b 22 20 22 3b 0d 54 83  |";:..FL$+" ";.T.|
00006230  0e ed 49 3a f1 3a e5 8d  50 6e 4f 0d 54 88 53 f2  |..I:.:..PnO.T.S.|
00006240  50 47 45 54 32 3a 56 52  25 3d bb 28 c1 50 24 28  |PGET2:VR%=.(.P$(|
00006250  31 29 2c 32 29 29 3a f2  56 52 43 48 4b 3a 44 41  |1),2)):.VRCHK:DA|
00006260  24 3d 53 24 28 56 52 25  29 3a e7 a9 28 44 41 24  |$=S$(VR%):..(DA$|
00006270  29 3c 3e 38 8c f2 45 52  52 4f 52 28 22 42 61 64  |)<>8..ERROR("Bad|
00006280  20 43 44 41 54 20 73 74  72 69 6e 67 22 29 0d 54  | CDAT string").T|
00006290  8d 40 e7 28 c1 44 41 24  2c 33 2c 31 29 3c 3e 22  |.@.(.DA$,3,1)<>"|
000062a0  2f 22 29 84 28 c1 44 41  24 2c 36 2c 31 29 3c 3e  |/").(.DA$,6,1)<>|
000062b0  22 2f 22 29 8c f2 45 52  52 4f 52 28 22 42 61 64  |"/")..ERROR("Bad|
000062c0  20 43 44 41 54 20 73 74  72 69 6e 67 22 29 0d 54  | CDAT string").T|
000062d0  92 37 f2 43 54 4f 44 28  44 41 24 29 3a 56 52 25  |.7.CTOD(DA$):VR%|
000062e0  3d bb 28 c1 50 24 28 32  29 2c 32 29 29 3a f2 56  |=.(.P$(2),2)):.V|
000062f0  52 43 48 4b 3a 41 28 56  52 25 29 3d 50 44 31 3a  |RCHK:A(VR%)=PD1:|
00006300  e5 8d 50 6e 4f 0d 54 97  4e f2 50 47 45 54 32 3a  |..PnO.T.N.PGET2:|
00006310  56 52 25 3d bb 28 c1 50  24 28 31 29 2c 32 29 29  |VR%=.(.P$(1),2))|
00006320  3a f2 56 52 43 48 4b 3a  44 41 3d 41 28 56 52 25  |:.VRCHK:DA=A(VR%|
00006330  29 3a e7 44 41 3c 31 8c  f2 45 52 52 4f 52 28 22  |):.DA<1..ERROR("|
00006340  42 61 64 20 44 41 54 43  20 76 61 72 69 61 62 6c  |Bad DATC variabl|
00006350  65 22 29 0d 54 9c 37 56  52 25 3d bb 28 c1 50 24  |e").T.7VR%=.(.P$|
00006360  28 32 29 2c 32 29 29 3a  f2 56 52 43 48 4b 3a f2  |(2),2)):.VRCHK:.|
00006370  44 54 4f 43 28 44 41 29  3a 53 24 28 56 52 25 29  |DTOC(DA):S$(VR%)|
00006380  3d 50 31 24 3a e5 8d 50  6e 4f 0d 54 a1 3f dd f2  |=P1$:..PnO.T.?..|
00006390  43 54 4f 44 28 50 31 24  29 3a 50 31 3d bb 28 c1  |CTOD(P1$):P1=.(.|
000063a0  50 31 24 2c 31 2c 32 29  29 3a 50 32 3d bb 28 c1  |P1$,1,2)):P2=.(.|
000063b0  50 31 24 2c 34 2c 32 29  29 3a 50 33 3d bb 28 c1  |P1$,4,2)):P3=.(.|
000063c0  50 31 24 2c 37 2c 32 29  29 0d 54 a6 1f e7 50 31  |P1$,7,2)).T...P1|
000063d0  3c 31 84 50 32 3c 31 84  50 32 3e 31 32 84 50 33  |<1.P2<1.P2>12.P3|
000063e0  3c 30 8c e5 8d 60 4e 54  0d 54 ab 22 e7 50 31 3c  |<0...`NT.T.".P1<|
000063f0  3d bb 28 c1 53 45 47 24  2c 28 32 2a 50 32 29 2d  |=.(.SEG$,(2*P2)-|
00006400  31 2c 32 29 29 8c 8d 70  75 54 0d 54 b0 30 e7 20  |1,2))..puT.T.0. |
00006410  50 31 3c 3e 32 39 20 84  20 50 32 3c 3e 32 20 84  |P1<>29 . P2<>2 .|
00006420  20 50 33 2d 28 a8 28 50  33 2f 34 29 2a 34 29 3c  | P3-(.(P3/4)*4)<|
00006430  3e 30 20 8c 20 e5 8d 60  4e 54 0d 54 b5 16 50 44  |>0 . ..`NT.T..PD|
00006440  31 3d 50 31 3a e7 50 32  3d 31 8c e5 8d 70 7f 54  |1=P1:.P2=1...p.T|
00006450  0d 54 ba 31 e3 50 34 3d  31 b8 28 50 32 2d 31 29  |.T.1.P4=1.(P2-1)|
00006460  3a 50 44 31 3d 50 44 31  2b bb 28 c1 53 45 47 24  |:PD1=PD1+.(.SEG$|
00006470  2c 28 32 2a 50 34 29 2d  31 2c 32 29 29 3a ed 50  |,(2*P4)-1,2)):.P|
00006480  34 0d 54 bf 20 50 44 31  3d 50 44 31 2b 28 33 36  |4.T. PD1=PD1+(36|
00006490  35 2a 50 33 29 2b a8 28  28 50 33 2b 33 29 2f 34  |5*P3)+.((P3+3)/4|
000064a0  29 0d 54 c4 24 e7 50 33  3d a8 28 50 33 2f 34 29  |).T.$.P3=.(P3/4)|
000064b0  2a 34 20 80 20 50 32 3e  32 20 8c 20 50 44 31 3d  |*4 . P2>2 . PD1=|
000064c0  50 44 31 2b 31 0d 54 c9  09 e5 8d 60 53 54 0d 54  |PD1+1.T....`ST.T|
000064d0  ce 0a 50 44 31 3d 2d 31  0d 54 d3 05 e1 0d 54 d8  |..PD1=-1.T....T.|
000064e0  0f dd f2 44 54 4f 43 28  50 44 32 29 0d 54 dd 16  |...DTOC(PD2).T..|
000064f0  50 31 3d a8 28 50 44 32  2f 33 36 36 29 3a 50 33  |P1=.(PD2/366):P3|
00006500  3d 31 0d 54 e2 1f 50 35  3d a8 28 28 50 31 2b 33  |=1.T..P5=.((P1+3|
00006510  29 2f 34 29 3a 50 34 3d  50 31 2d 28 50 35 2a 34  |)/4):P4=P1-(P5*4|
00006520  29 0d 54 e7 2e 50 32 3d  50 44 32 2d 28 33 36 35  |).T..P2=PD2-(365|
00006530  2a 50 31 29 2d 50 35 3a  e7 50 34 3d 30 20 8c 20  |*P1)-P5:.P4=0 . |
00006540  50 35 3d 33 36 36 20 8b  20 50 35 3d 33 36 35 0d  |P5=366 . P5=365.|
00006550  54 ec 1a e7 50 32 3e 50  35 20 8c 20 50 31 3d 50  |T...P2>P5 . P1=P|
00006560  31 2b 31 3a e5 8d 60 62  54 0d 54 f1 19 e7 50 32  |1+1:..`bT.T...P2|
00006570  3c 31 20 8c 20 50 31 3d  50 31 2d 31 3a e5 8d 60  |<1 . P1=P1-1:..`|
00006580  62 54 0d 54 f6 30 50 35  3d bb 28 c1 53 45 47 24  |bT.T.0P5=.(.SEG$|
00006590  2c 28 32 2a 50 33 29 2d  31 2c 32 29 29 3a e7 50  |,(2*P3)-1,2)):.P|
000065a0  33 3d 32 80 50 34 3d 30  20 8c 20 50 35 3d 50 35  |3=2.P4=0 . P5=P5|
000065b0  2b 31 0d 54 fb 23 e7 50  32 3e 50 35 20 8c 20 50  |+1.T.#.P2>P5 . P|
000065c0  33 3d 50 33 2b 31 3a 50  32 3d 50 32 2d 50 35 3a  |3=P3+1:P2=P2-P5:|
000065d0  e5 8d 60 76 54 0d 55 00  24 50 31 24 3d c3 28 50  |..`vT.U.$P1$=.(P|
000065e0  32 29 3a 50 31 24 3d c4  32 2d a9 28 50 31 24 29  |2):P1$=.2-.(P1$)|
000065f0  2c 22 30 22 29 2b 50 31  24 0d 55 05 23 50 32 24  |,"0")+P1$.U.#P2$|
00006600  3d c3 28 50 33 29 3a e7  a9 28 50 32 24 29 3e 32  |=.(P3):..(P2$)>2|
00006610  8c 50 32 24 3d c0 50 32  24 2c 32 29 0d 55 0a 22  |.P2$=.P2$,2).U."|
00006620  50 31 24 3d 50 31 24 2b  22 2f 22 2b c4 32 2d a9  |P1$=P1$+"/"+.2-.|
00006630  28 50 32 24 29 2c 22 30  22 29 2b 50 32 24 0d 55  |(P2$),"0")+P2$.U|
00006640  0f 23 50 32 24 3d c3 28  50 31 29 3a e7 a9 28 50  |.#P2$=.(P1):..(P|
00006650  32 24 29 3e 32 8c 50 32  24 3d c0 50 32 24 2c 32  |2$)>2.P2$=.P2$,2|
00006660  29 0d 55 14 22 50 31 24  3d 50 31 24 2b 22 2f 22  |).U."P1$=P1$+"/"|
00006670  2b c4 32 2d a9 28 50 32  24 29 2c 22 30 22 29 2b  |+.2-.(P2$),"0")+|
00006680  50 32 24 0d 55 19 0b 50  44 31 3d 50 44 32 0d 55  |P2$.U..PD1=PD2.U|
00006690  1e 05 e1 0d 55 23 89 f2  50 47 45 54 32 3a 56 52  |....U#..PGET2:VR|
000066a0  25 3d bb 28 c1 50 24 28  31 29 2c 32 29 29 3a f2  |%=.(.P$(1),2)):.|
000066b0  56 52 43 48 4b 3a 4e 31  25 3d 56 52 25 3a 56 52  |VRCHK:N1%=VR%:VR|
000066c0  25 3d bb 28 c1 50 24 28  32 29 2c 32 29 29 3a f2  |%=.(.P$(2),2)):.|
000066d0  56 52 43 48 4b 3a 4e 32  25 3d 56 52 25 3a 56 52  |VRCHK:N2%=VR%:VR|
000066e0  25 3d bb 28 c1 50 24 28  33 29 2c 32 29 29 3a f2  |%=.(.P$(3),2)):.|
000066f0  56 52 43 48 4b 3a 4e 33  25 3d 56 52 25 3a 41 28  |VRCHK:N3%=VR%:A(|
00006700  4e 31 25 29 3d a7 53 24  28 4e 32 25 29 2c 53 24  |N1%)=.S$(N2%),S$|
00006710  28 4e 33 25 29 29 3a e5  8d 50 6e 4f 0d 55 28 43  |(N3%)):..PnO.U(C|
00006720  e3 4a 3d 31 b8 31 35 3a  50 24 28 4a 29 3d 22 22  |.J=1.15:P$(J)=""|
00006730  3a ed 4a 3a f2 50 47 45  54 32 3a e3 49 3d 31 b8  |:.J:.PGET2:.I=1.|
00006740  31 35 3a f2 56 47 45 54  28 50 24 28 49 29 29 3a  |15:.VGET(P$(I)):|
00006750  50 24 28 49 29 3d c3 28  56 47 25 29 3a ed 49 0d  |P$(I)=.(VG%):.I.|
00006760  55 2d 92 ef 20 bb 28 50  24 28 31 29 29 2c bb 28  |U-.. .(P$(1)),.(|
00006770  50 24 28 32 29 29 2c bb  28 50 24 28 33 29 29 2c  |P$(2)),.(P$(3)),|
00006780  bb 28 50 24 28 34 29 29  2c bb 28 50 24 28 35 29  |.(P$(4)),.(P$(5)|
00006790  29 2c bb 28 50 24 28 36  29 29 2c bb 28 50 24 28  |),.(P$(6)),.(P$(|
000067a0  37 29 29 2c bb 28 50 24  28 38 29 29 2c bb 28 50  |7)),.(P$(8)),.(P|
000067b0  24 28 39 29 29 2c bb 28  50 24 28 31 30 29 29 2c  |$(9)),.(P$(10)),|
000067c0  bb 28 50 24 28 31 31 29  29 2c bb 28 50 24 28 31  |.(P$(11)),.(P$(1|
000067d0  32 29 29 2c bb 28 50 24  28 31 33 29 29 2c bb 28  |2)),.(P$(13)),.(|
000067e0  50 24 28 31 34 29 29 2c  bb 28 50 24 28 31 35 29  |P$(14)),.(P$(15)|
000067f0  29 0d 55 32 09 e5 8d 50  6e 4f 0d 55 37 62 f2 50  |).U2...PnO.U7b.P|
00006800  47 45 54 32 3a 56 52 25  3d bb 28 c1 50 24 28 31  |GET2:VR%=.(.P$(1|
00006810  29 2c 32 29 29 3a f2 56  52 43 48 4b 3a 4e 24 3d  |),2)):.VRCHK:N$=|
00006820  c3 28 41 28 56 52 25 29  29 3a f2 56 47 45 54 28  |.(A(VR%)):.VGET(|
00006830  50 24 28 32 29 29 3a 54  52 4d 3d 56 47 25 3a f2  |P$(2)):TRM=VG%:.|
00006840  54 52 49 4d 3a 56 52 25  3d bb 28 c1 50 24 28 33  |TRIM:VR%=.(.P$(3|
00006850  29 2c 32 29 29 3a f2 56  52 43 48 4b 0d 55 3c 3b  |),2)):.VRCHK.U<;|
00006860  53 24 28 56 52 25 29 3d  4e 24 3a 4c 45 25 3d bb  |S$(VR%)=N$:LE%=.|
00006870  28 50 24 28 34 29 29 3a  e7 c0 50 24 28 34 29 2c  |(P$(4)):..P$(4),|
00006880  31 29 3d 22 2d 22 8c 4c  45 25 3d bb 28 c1 50 24  |1)="-".LE%=.(.P$|
00006890  28 34 29 2c 32 29 29 0d  55 3e 10 e7 4c 45 25 3d  |(4),2)).U>..LE%=|
000068a0  30 8c e5 8d 50 6e 4f 0d  55 41 69 e7 c0 50 24 28  |0...PnO.UAi..P$(|
000068b0  34 29 2c 31 29 3d 22 2d  22 8c 53 24 28 56 52 25  |4),1)="-".S$(VR%|
000068c0  29 3d c4 4c 45 25 2d a9  28 53 24 28 56 52 25 29  |)=.LE%-.(S$(VR%)|
000068d0  29 2c 22 20 22 29 2b 53  24 28 56 52 25 29 3a e5  |)," ")+S$(VR%):.|
000068e0  8d 50 6e 4f 3a 8b 53 24  28 56 52 25 29 3d 53 24  |.PnO:.S$(VR%)=S$|
000068f0  28 56 52 25 29 2b c4 4c  45 25 2d a9 28 53 24 28  |(VR%)+.LE%-.(S$(|
00006900  56 52 25 29 29 2c 22 20  22 29 3a e5 8d 50 6e 4f  |VR%))," "):..PnO|
00006910  0d 55 46 88 f2 50 47 45  54 32 3a 56 52 25 3d bb  |.UF..PGET2:VR%=.|
00006920  28 c1 50 24 28 31 29 2c  32 29 29 3a f2 56 52 43  |(.P$(1),2)):.VRC|
00006930  48 4b 3a 56 52 31 25 3d  56 52 25 3a 56 52 25 3d  |HK:VR1%=VR%:VR%=|
00006940  bb 28 c1 50 24 28 32 29  2c 32 29 29 3a f2 56 47  |.(.P$(2),2)):.VG|
00006950  45 54 28 50 24 28 33 29  29 3a 56 47 31 25 3d 56  |ET(P$(3)):VG1%=V|
00006960  47 25 3a f2 56 47 45 54  28 50 24 28 34 29 29 3a  |G%:.VGET(P$(4)):|
00006970  e7 56 47 25 3e 30 8c 53  24 28 56 52 31 25 29 3d  |.VG%>0.S$(VR1%)=|
00006980  c1 53 24 28 56 52 25 29  2c 56 47 31 25 2c 56 47  |.S$(VR%),VG1%,VG|
00006990  25 29 3a e5 8d 50 6e 4f  0d 55 4b 21 53 24 28 56  |%):..PnO.UK!S$(V|
000069a0  52 31 25 29 3d c1 53 24  28 56 52 25 29 2c 56 47  |R1%)=.S$(VR%),VG|
000069b0  31 25 29 3a e5 8d 50 6e  4f 0d 55 50 66 f2 50 47  |1%):..PnO.UPf.PG|
000069c0  45 54 32 3a 56 52 25 3d  bb 28 c1 50 24 28 31 29  |ET2:VR%=.(.P$(1)|
000069d0  2c 32 29 29 3a f2 56 52  43 48 4b 3a 56 52 31 25  |,2)):.VRCHK:VR1%|
000069e0  3d 56 52 25 3a 56 52 25  3d bb 28 c1 50 24 28 32  |=VR%:VR%=.(.P$(2|
000069f0  29 2c 32 29 29 3a f2 56  47 45 54 28 50 24 28 33  |),2)):.VGET(P$(3|
00006a00  29 29 3a 53 24 28 56 52  31 25 29 3d c2 53 24 28  |)):S$(VR1%)=.S$(|
00006a10  56 52 25 29 2c 56 47 25  29 3a e5 8d 50 6e 4f 0d  |VR%),VG%):..PnO.|
00006a20  55 55 2c 56 52 25 3d bb  28 c1 46 49 52 24 2c 33  |UU,VR%=.(.FIR$,3|
00006a30  29 29 3a f2 56 52 43 48  4b 3a 53 24 28 56 52 25  |)):.VRCHK:S$(VR%|
00006a40  29 3d 44 41 24 3a e5 8d  50 6e 4f 0d 55 5a 32 56  |)=DA$:..PnO.UZ2V|
00006a50  52 25 3d bb 28 c1 46 49  52 24 2c 33 29 29 3a f2  |R%=.(.FIR$,3)):.|
00006a60  56 52 43 48 4b 3a 53 24  28 56 52 25 29 3d c1 91  |VRCHK:S$(VR%)=..|
00006a70  24 2c 31 37 2c 35 29 3a  e5 8d 50 6e 4f 0d 55 5f  |$,17,5):..PnO.U_|
00006a80  23 e3 4a 3d 30 b8 33 35  3a 41 28 4a 29 3d 30 3a  |#.J=0.35:A(J)=0:|
00006a90  53 24 28 4a 29 3d 30 3a  ed 4a 3a e5 8d 50 6e 4f  |S$(J)=0:.J:..PnO|
00006aa0  0d 55 64 08 f2 46 43 48  0d 55 69 34 e3 49 3d 31  |.Ud..FCH.Ui4.I=1|
00006ab0  b8 4e 4f 52 25 3a 41 28  33 35 29 3d 49 3a e7 46  |.NOR%:A(35)=I:.F|
00006ac0  49 52 24 3d 22 56 22 8c  f2 4f 55 54 50 55 54 31  |IR$="V"..OUTPUT1|
00006ad0  3a 8b f2 4f 55 54 50 55  54 32 3a f1 0d 55 6e 16  |:..OUTPUT2:..Un.|
00006ae0  f1 3a ed 49 3a 41 28 33  35 29 3d 31 3a e5 8d 50  |.:.I:A(35)=1:..P|
00006af0  6e 4f 0d 55 73 63 f2 50  47 45 54 32 3a f2 56 47  |nO.Usc.PGET2:.VG|
00006b00  45 54 28 50 24 28 31 29  29 3a 58 3d 56 47 25 3a  |ET(P$(1)):X=VG%:|
00006b10  f2 56 47 45 54 28 50 24  28 32 29 29 3a 59 3d 56  |.VGET(P$(2)):Y=V|
00006b20  47 25 3a f2 56 47 45 54  28 50 24 28 33 29 29 3a  |G%:.VGET(P$(3)):|
00006b30  57 25 3d 56 47 25 3a f2  56 47 45 54 28 50 24 28  |W%=VG%:.VGET(P$(|
00006b40  34 29 29 3a 4c 25 3d 56  47 25 3a f2 4c 57 4e 3a  |4)):L%=VG%:.LWN:|
00006b50  e5 8d 50 6e 4f 0d 55 78  2a f2 50 47 45 54 32 3a  |..PnO.Ux*.PGET2:|
00006b60  f2 56 47 45 54 28 50 24  28 31 29 29 3a e7 4f 28  |.VGET(P$(1)):.O(|
00006b70  35 29 3d 32 8c fb 56 47  25 3a e5 8d 50 6e 4f 0d  |5)=2..VG%:..PnO.|
00006b80  55 7d 22 e7 56 47 25 3e  31 32 37 8c ef 31 39 2c  |U}".VG%>127..19,|
00006b90  30 2c 56 47 25 2c 30 2c  30 2c 30 3a e5 8d 50 6e  |0,VG%,0,0,0:..Pn|
00006ba0  4f 0d 55 82 0e fb 56 47  25 3a e5 8d 50 6e 4f 0d  |O.U...VG%:..PnO.|
00006bb0  55 87 20 f2 45 52 52 4f  52 28 22 42 61 64 20 43  |U. .ERROR("Bad C|
00006bc0  4f 4c 4f 55 52 20 73 65  74 74 69 6e 67 22 29 0d  |OLOUR setting").|
00006bd0  55 8c 0c dd f2 46 4f 50  4f 55 54 0d 55 91 26 ff  |U....FOPOUT.U.&.|
00006be0  22 43 4c 4f 53 45 22 3a  58 3d ad 20 46 4f 24 3a  |"CLOSE":X=. FO$:|
00006bf0  50 4f 49 3d 28 43 46 25  2d 31 29 2a 36 31 2b 36  |POI=(CF%-1)*61+6|
00006c00  33 0d 55 96 13 cf 23 58  3d 50 4f 49 3a e8 23 58  |3.U...#X=POI:.#X|
00006c10  2c 46 4c 24 0d 55 9b 20  cf 23 58 3d 50 4f 49 2b  |,FL$.U. .#X=POI+|
00006c20  32 32 3a e8 23 58 2c 5a  5a 24 3a 58 31 3d bb 28  |22:.#X,ZZ$:X1=.(|
00006c30  5a 5a 24 29 0d 55 a0 20  cf 23 58 3d 50 4f 49 2b  |ZZ$).U. .#X=POI+|
00006c40  32 36 3a e8 23 58 2c 5a  5a 24 3a 59 31 3d bb 28  |26:.#X,ZZ$:Y1=.(|
00006c50  5a 5a 24 29 0d 55 a5 20  cf 23 58 3d 50 4f 49 2b  |ZZ$).U. .#X=POI+|
00006c60  33 30 3a e8 23 58 2c 5a  5a 24 3a 58 32 3d bb 28  |30:.#X,ZZ$:X2=.(|
00006c70  5a 5a 24 29 0d 55 aa 20  cf 23 58 3d 50 4f 49 2b  |ZZ$).U. .#X=POI+|
00006c80  33 34 3a e8 23 58 2c 5a  5a 24 3a 59 32 3d bb 28  |34:.#X,ZZ$:Y2=.(|
00006c90  5a 5a 24 29 0d 55 af 16  cf 23 58 3d 50 4f 49 2b  |ZZ$).U...#X=POI+|
00006ca0  33 38 3a e8 23 58 2c 54  59 24 0d 55 b4 21 cf 23  |38:.#X,TY$.U.!.#|
00006cb0  58 3d 50 4f 49 2b 34 31  3a e8 23 58 2c 5a 5a 24  |X=POI+41:.#X,ZZ$|
00006cc0  3a 49 4e 25 3d bb 28 5a  5a 24 29 0d 55 b9 21 cf  |:IN%=.(ZZ$).U.!.|
00006cd0  23 58 3d 50 4f 49 2b 34  36 3a e8 23 58 2c 5a 5a  |#X=POI+46:.#X,ZZ|
00006ce0  24 3a 54 49 25 3d bb 28  5a 5a 24 29 0d 55 be 16  |$:TI%=.(ZZ$).U..|
00006cf0  cf 23 58 3d 50 4f 49 2b  35 34 3a e8 23 58 2c 54  |.#X=POI+54:.#X,T|
00006d00  52 24 0d 55 c3 16 cf 23  58 3d 50 4f 49 2b 35 38  |R$.U...#X=POI+58|
00006d10  3a e8 23 58 2c 4e 50 24  0d 55 c8 05 e1 0d 55 cd  |:.#X,NP$.U....U.|
00006d20  09 dd f2 4c 57 4e 0d 55  d2 79 f1 8a 58 2c 59 29  |...LWN.U.y..X,Y)|
00006d30  3b bd 28 31 35 34 29 3b  c4 57 25 2c bd 28 31 35  |;.(154);.W%,.(15|
00006d40  39 29 29 3b bd 28 31 35  38 29 3a e3 49 3d 59 2b  |9));.(158):.I=Y+|
00006d50  31 b8 59 2b 4c 25 3a f1  8a 58 2c 49 29 3b bd 28  |1.Y+L%:..X,I);.(|
00006d60  31 35 35 29 3b c4 57 25  2c 22 20 22 29 3b bd 28  |155);.W%," ");.(|
00006d70  31 35 37 29 3a ed 49 3a  f1 8a 58 2c 59 2b 28 4c  |157):.I:..X,Y+(L|
00006d80  25 2b 31 29 29 3b bd 28  31 35 36 29 3b c4 57 25  |%+1));.(156);.W%|
00006d90  2c bd 28 31 36 30 29 29  3b bd 28 31 36 31 29 0d  |,.(160));.(161).|
00006da0  55 d7 05 e1 0d 55 dc 0a  dd f2 54 49 4d 45 0d 55  |U....U....TIME.U|
00006db0  e1 36 53 25 3d 28 91 20  81 31 30 30 29 83 36 30  |.6S%=(. .100).60|
00006dc0  3a 4d 25 3d 28 91 20 81  36 30 30 30 29 83 36 30  |:M%=(. .6000).60|
00006dd0  3a 48 25 3d 28 91 20 81  33 36 30 30 30 30 29 83  |:H%=(. .360000).|
00006de0  32 34 3a e1 0d 55 e6 08  f2 46 43 48 0d 55 eb 20  |24:..U...FCH.U. |
00006df0  ff 22 43 4c 4f 53 45 22  3a e7 c0 46 49 52 24 2c  |."CLOSE":..FIR$,|
00006e00  31 29 3d 22 40 22 8c e5  8d 74 74 54 0d 55 f0 17  |1)="@"...ttT.U..|
00006e10  e7 c0 46 49 52 24 2c 31  29 3d 22 41 22 8c e5 8d  |..FIR$,1)="A"...|
00006e20  60 7a 55 0d 55 f5 20 ff  22 43 4c 4f 53 45 22 3a  |`zU.U. ."CLOSE":|
00006e30  42 3d ad 46 4f 24 3a 43  3d ad 46 49 24 3a e5 8d  |B=.FO$:C=.FI$:..|
00006e40  70 5f 51 0d 55 fa 08 f2  46 43 48 0d 55 ff 67 53  |p_Q.U...FCH.U.gS|
00006e50  46 25 3d 31 3a 53 52 25  3d 31 3a ff 22 46 58 34  |F%=1:SR%=1:."FX4|
00006e60  2c 31 22 3a e7 53 4f 24  3d 22 31 22 8c ff 22 43  |,1":.SO$="1".."C|
00006e70  4c 4f 53 45 22 3a 58 3d  ad 46 4f 24 3a cf 23 58  |LOSE":X=.FO$:.#X|
00006e80  3d 32 33 3a e8 23 58 2c  4e 4f 24 3a cf 23 58 3d  |=23:.#X,NO$:.#X=|
00006e90  28 bb 28 4e 4f 24 29 2d  31 29 2a 36 31 2b 36 33  |(.(NO$)-1)*61+63|
00006ea0  3a e8 23 58 2c 53 4f 4c  24 3a ff 22 43 4c 4f 53  |:.#X,SOL$:."CLOS|
00006eb0  45 22 0d 56 04 1b 41 46  25 3d 31 3a 53 4c 25 3d  |E".V..AF%=1:SL%=|
00006ec0  37 31 3a 54 55 25 3d 39  3a 54 46 3d 30 0d 56 09  |71:TU%=9:TF=0.V.|
00006ed0  11 e3 49 3d 53 46 25 b8  53 46 25 2b 31 30 0d 56  |..I=SF%.SF%+10.V|
00006ee0  0e 2e e7 49 3e 4e 4f 46  25 8c 43 28 41 46 25 29  |...I>NOF%.C(AF%)|
00006ef0  3d 30 3a 53 50 25 3d 49  3a 54 46 3d 31 3a 49 3d  |=0:SP%=I:TF=1:I=|
00006f00  53 46 25 2b 31 30 3a e5  8d 50 67 56 0d 56 13 1f  |SF%+10:..PgV.V..|
00006f10  43 46 25 3d 49 3a f2 46  4f 50 4f 55 54 3a e7 49  |CF%=I:.FOPOUT:.I|
00006f20  4e 25 3e 37 30 8c e5 8d  50 67 56 0d 56 18 2f e7  |N%>70...PgV.V./.|
00006f30  49 4e 25 3e 53 4c 25 8c  43 28 41 46 25 29 3d 30  |IN%>SL%.C(AF%)=0|
00006f40  3a 53 50 25 3d 49 3a 54  46 3d 31 3a 49 3d 53 46  |:SP%=I:TF=1:I=SF|
00006f50  25 2b 31 30 3a e5 8d 50  67 56 0d 56 1d 24 54 45  |%+10:..PgV.V.$TE|
00006f60  4e 25 3d 49 4e 25 3a e7  49 4e 25 3c a9 28 46 4c  |N%=IN%:.IN%<.(FL|
00006f70  24 29 8c 54 45 4e 25 3d  a9 28 46 4c 24 29 0d 56  |$).TEN%=.(FL$).V|
00006f80  22 58 54 45 4e 25 3d 54  45 4e 25 2b 31 3a 43 28  |"XTEN%=TEN%+1:C(|
00006f90  41 46 25 29 3d 49 3a 43  28 41 46 25 2b 31 30 29  |AF%)=I:C(AF%+10)|
00006fa0  3d 54 55 25 3a 43 28 41  46 25 2b 32 30 29 3d 54  |=TU%:C(AF%+20)=T|
00006fb0  49 25 3a 41 46 25 3d 41  46 25 2b 31 3a 53 4c 25  |I%:AF%=AF%+1:SL%|
00006fc0  3d 53 4c 25 2d 54 45 4e  25 3a 54 55 25 3d 54 55  |=SL%-TEN%:TU%=TU|
00006fd0  25 2b 54 45 4e 25 0d 56  27 12 ed 49 3a e7 54 46  |%+TEN%.V'..I:.TF|
00006fe0  3d 30 8c 53 50 25 3d 49  0d 56 2c 2b 48 3d 30 3a  |=0.SP%=I.V,+H=0:|
00006ff0  59 3d 38 3a 46 52 25 3d  53 52 25 2b 31 39 3a db  |Y=8:FR%=SR%+19:.|
00007000  3a e7 46 52 25 3e 4e 4f  52 25 8c 46 52 25 3d 4e  |:.FR%>NOR%.FR%=N|
00007010  4f 52 25 0d 56 31 83 f1  8a 39 2c 34 29 3b 22 46  |OR%.V1...9,4);"F|
00007020  69 6c 65 3a 20 22 3b 46  49 24 3b 8a 39 2c 31 29  |ile: ";FI$;.9,1)|
00007030  3b 22 55 73 65 20 6b 65  79 73 20 88 8b 8a 89 20  |;"Use keys .... |
00007040  74 6f 20 6d 6f 76 65 20  61 72 6f 75 6e 64 20 64  |to move around d|
00007050  61 74 61 62 61 73 65 2e  20 27 51 27 20 71 75 69  |atabase. 'Q' qui|
00007060  74 73 20 74 68 69 73 20  6d 6f 64 65 2e 22 3a e7  |ts this mode.":.|
00007070  53 4f 24 3d 22 31 22 8c  f1 8a 33 30 2c 34 29 3b  |SO$="1"...30,4);|
00007080  22 28 53 6f 72 74 65 64  20 6f 6e 20 22 3b 53 4f  |"(Sorted on ";SO|
00007090  4c 24 3b 22 29 22 0d 56  36 17 48 3d 48 2b 31 3a  |L$;")".V6.H=H+1:|
000070a0  e7 43 28 48 29 3d 30 8c  e5 8d 40 4a 56 0d 56 3b  |.C(H)=0...@JV.V;|
000070b0  79 ff 22 43 4c 4f 53 45  22 3a 58 3d ad 20 46 4f  |y."CLOSE":X=. FO|
000070c0  24 3a cf 23 58 3d 28 43  28 48 29 2d 31 29 2a 36  |$:.#X=(C(H)-1)*6|
000070d0  31 2b 36 33 3a e8 23 58  2c 46 4c 24 3a cf 23 58  |1+63:.#X,FL$:.#X|
000070e0  3d 28 43 28 48 29 2d 31  29 2a 36 31 2b 36 33 2b  |=(C(H)-1)*61+63+|
000070f0  34 31 3a e8 23 58 2c 5a  5a 24 3a 49 4e 25 3d bb  |41:.#X,ZZ$:IN%=.|
00007100  28 5a 5a 24 29 3a 54 45  4e 25 3d 49 4e 25 3a e7  |(ZZ$):TEN%=IN%:.|
00007110  49 4e 25 3c a9 28 46 4c  24 29 8c 54 45 4e 25 3d  |IN%<.(FL$).TEN%=|
00007120  a9 28 46 4c 24 29 0d 56  40 2e f1 8a 43 28 48 2b  |.(FL$).V@...C(H+|
00007130  31 30 29 2c 36 29 3b 46  4c 24 3b 8a 43 28 48 2b  |10),6);FL$;.C(H+|
00007140  31 30 29 2c 37 29 3b c4  54 45 4e 25 2c bd 28 32  |10),7);.TEN%,.(2|
00007150  32 34 29 29 0d 56 45 15  e7 48 3d 31 30 8c e5 8d  |24)).VE..H=10...|
00007160  40 4a 56 8b e5 8d 50 76  56 0d 56 4a 1b 46 3d 53  |@JV...PvV.VJ.F=S|
00007170  52 25 2d 31 3a ff 22 43  4c 4f 53 45 22 3a 58 3d  |R%-1:."CLOSE":X=|
00007180  ad 46 49 24 0d 56 4f 2f  46 3d 46 2b 31 3a 4a 3d  |.FI$.VO/F=F+1:J=|
00007190  30 3a f1 8a 30 2c 59 29  3b 22 30 30 30 30 30 30  |0:..0,Y);"000000|
000071a0  30 30 22 3b 8a 38 2d a9  28 c3 28 46 29 29 2c 59  |00";.8-.(.(F)),Y|
000071b0  29 3b 46 0d 56 54 17 4a  3d 4a 2b 31 3a e7 43 28  |);F.VT.J=J+1:.C(|
000071c0  4a 29 3d 30 8c e5 8d 40  68 56 0d 56 59 35 41 46  |J)=0...@hV.VY5AF|
000071d0  25 3d 46 3a e7 53 4f 24  3d 22 31 22 8c cf 23 58  |%=F:.SO$="1"..#X|
000071e0  3d 28 46 2a 52 45 43 25  29 2d 31 30 3a e8 23 58  |=(F*REC%)-10:.#X|
000071f0  2c 41 46 24 3a 41 46 25  3d bb 28 41 46 24 29 0d  |,AF$:AF%=.(AF$).|
00007200  56 5e 33 cf 23 58 3d 28  41 46 25 2d 31 29 2a 52  |V^3.#X=(AF%-1)*R|
00007210  45 43 25 2b 43 28 4a 2b  32 30 29 3a e8 23 58 2c  |EC%+C(J+20):.#X,|
00007220  4e 24 3a f1 8a 43 28 4a  2b 31 30 29 2c 59 29 3b  |N$:..C(J+10),Y);|
00007230  4e 24 0d 56 63 15 e7 4a  3d 31 30 8c e5 8d 40 68  |N$.Vc..J=10...@h|
00007240  56 8b e5 8d 40 54 56 0d  56 68 1c 59 3d 59 2b 31  |V...@TV.Vh.Y=Y+1|
00007250  3a e7 46 3d 46 52 25 8c  e5 8d 40 6d 56 8b e5 8d  |:.F=FR%...@mV...|
00007260  40 4f 56 0d 56 6d 43 e7  46 52 25 3d 4e 4f 52 25  |@OV.VmC.FR%=NOR%|
00007270  8c f1 8a 39 2c 59 29 3b  c4 37 31 2c bd 28 32 32  |...9,Y);.71,.(22|
00007280  34 29 29 3b 8a 39 2c 59  2b 32 29 3b 22 45 6e 64  |4));.9,Y+2);"End|
00007290  20 6f 66 20 66 69 6c 65  22 3a d4 32 2c 2d 31 35  | of file":.2,-15|
000072a0  2c 31 30 30 2c 34 0d 56  72 08 49 24 3d be 0d 56  |,100,4.Vr.I$=..V|
000072b0  77 11 e7 49 24 3d 22 8a  22 8c e5 8d 70 55 56 0d  |w..I$="."...pUV.|
000072c0  56 7c 11 e7 49 24 3d 22  8b 22 8c e5 8d 70 69 56  |V|..I$="."...piV|
000072d0  0d 56 81 11 e7 49 24 3d  22 89 22 8c e5 8d 70 73  |.V...I$="."...ps|
000072e0  56 0d 56 86 11 e7 49 24  3d 22 88 22 8c e5 8d 70  |V.V...I$="."...p|
000072f0  7d 56 0d 56 8b 1a e7 49  24 3d 22 51 22 8c ff 22  |}V.V...I$="Q".."|
00007300  46 58 34 2c 30 22 3a e5  8d 60 75 55 0d 56 90 09  |FX4,0":..`uU.V..|
00007310  e5 8d 40 72 56 0d 56 95  13 e7 46 52 25 3d 4e 4f  |..@rV.V...FR%=NO|
00007320  52 25 8c e5 8d 70 5f 56  0d 56 9a 09 e5 8d 70 64  |R%...p_V.V....pd|
00007330  56 0d 56 9f 16 d4 31 2c  2d 31 35 2c 31 35 30 2c  |V.V...1,-15,150,|
00007340  32 3a e5 8d 40 72 56 0d  56 a4 13 53 52 25 3d 46  |2:..@rV.V..SR%=F|
00007350  52 25 2b 31 3a e5 8d 50  6c 56 0d 56 a9 10 e7 53  |R%+1:..PlV.V...S|
00007360  52 25 3d 31 8c e5 8d 70  5f 56 0d 56 ae 14 53 52  |R%=1...p_V.V..SR|
00007370  25 3d 53 52 25 2d 32 30  3a e5 8d 50 6c 56 0d 56  |%=SR%-20:..PlV.V|
00007380  b3 13 e7 53 50 25 3e 4e  4f 46 25 8c e5 8d 70 5f  |...SP%>NOF%...p_|
00007390  56 0d 56 b8 1a 53 46 25  3d 53 50 25 3a 53 54 25  |V.V..SF%=SP%:ST%|
000073a0  3d 43 28 31 29 3a e5 8d  50 44 56 0d 56 bd 10 e7  |=C(1):..PDV.V...|
000073b0  53 46 25 3d 31 8c e5 8d  70 5f 56 0d 56 c2 0f 53  |SF%=1...p_V.V..S|
000073c0  46 25 3d 31 3a e5 8d 50  44 56 0d 56 c7 08 dd f2  |F%=1:..PDV.V....|
000073d0  53 43 0d 56 cc 6f f1 8a  30 2c 30 29 3b c4 38 30  |SC.V.o..0,0);.80|
000073e0  2c bd 28 31 36 32 29 29  3b 8a 30 2c 32 32 29 3b  |,.(162));.0,22);|
000073f0  c4 38 30 2c bd 28 31 36  32 29 29 3a f1 8a 31 37  |.80,.(162)):..17|
00007400  2c 32 39 29 3b 22 4d 6f  64 65 3a 20 42 52 4f 57  |,29);"Mode: BROW|
00007410  53 45 20 20 46 69 6c 65  3a 20 22 3b 46 49 24 3b  |SE  File: ";FI$;|
00007420  8a 35 30 2c 32 39 29 3b  22 52 65 63 6f 72 64 3a  |.50,29);"Record:|
00007430  20 22 3b 43 52 25 3b 22  20 20 20 20 20 20 20 20  | ";CR%;"        |
00007440  22 0d 56 d1 1c f1 8a 37  31 2c 30 29 3b 22 50 41  |".V....71,0);"PA|
00007450  47 45 22 3b 8a 37 36 2c  30 29 3b 50 25 0d 56 d6  |GE";.76,0);P%.V.|
00007460  b0 f1 8a 31 37 2c 32 34  29 3b 3a ef 32 30 32 3b  |...17,24);:.202;|
00007470  32 30 33 3b 33 32 3b 33  32 3b 32 30 36 3b 32 30  |203;32;32;206;20|
00007480  37 3b 33 32 3b 33 32 3b  32 30 34 3b 32 30 35 3b  |7;32;32;204;205;|
00007490  33 32 3b 33 32 3b 32 30  38 3b 32 30 39 3b 33 32  |32;32;208;209;32|
000074a0  3b 33 32 3b 32 31 30 3b  32 31 31 3b 33 32 3b 33  |;32;210;211;32;3|
000074b0  32 3b 32 31 32 3b 32 31  33 3b 33 32 3b 33 32 3b  |2;212;213;32;32;|
000074c0  32 31 34 3b 32 30 39 3b  33 32 3b 33 32 3b 32 31  |214;209;32;32;21|
000074d0  32 3b 32 31 35 3b 33 32  3b 33 32 3b 32 31 36 3b  |2;215;32;32;216;|
000074e0  32 31 37 3b 33 32 3b 33  32 3b 32 31 38 3b 32 31  |217;32;32;218;21|
000074f0  39 3b 33 32 3b 33 32 3b  32 32 30 3b 32 32 32 3b  |9;32;32;220;222;|
00007500  33 32 3b 33 32 3b 32 32  31 3b 32 32 32 0d 56 db  |32;32;221;222.V.|
00007510  13 f1 8a 58 35 2c 32 36  29 3b bd 28 32 32 33 29  |...X5,26);.(223)|
00007520  0d 56 e0 05 e1 0d 56 e5  22 f2 53 47 45 54 32 28  |.V....V.".SGET2(|
00007530  c1 46 49 52 24 2c 32 29  29 3a ff 22 22 2b 46 54  |.FIR$,2)):.""+FT|
00007540  24 3a e5 8d 50 6e 4f 0d  56 ea 0d dd f2 4f 55 54  |$:..PnO.V....OUT|
00007550  50 55 54 31 0d 56 ef 46  e7 41 28 33 35 29 3e 4e  |PUT1.V.F.A(35)>N|
00007560  4f 52 25 84 41 28 33 35  29 3d 30 8c f2 45 52 52  |OR%.A(35)=0..ERR|
00007570  4f 52 28 22 52 65 63 6f  72 64 20 63 6f 6e 74 72  |OR("Record contr|
00007580  6f 6c 20 76 61 72 69 61  62 6c 65 20 6f 75 74 20  |ol variable out |
00007590  6f 66 20 72 61 6e 67 65  22 29 0d 56 f4 39 43 52  |of range").V.9CR|
000075a0  25 3d 41 28 33 35 29 3a  e7 53 4f 24 3d 22 31 22  |%=A(35):.SO$="1"|
000075b0  8c cf 23 43 3d 28 43 52  25 2a 52 45 43 25 29 2d  |..#C=(CR%*REC%)-|
000075c0  31 30 3a e8 23 43 2c 4e  24 3a 43 52 25 3d bb 28  |10:.#C,N$:CR%=.(|
000075d0  4e 24 29 0d 56 f9 17 e7  4f 28 32 29 3e 30 8c f1  |N$).V...O(2)>0..|
000075e0  41 28 33 35 29 3b 22 7c  22 3b 0d 56 fe 0d e3 46  |A(35);"|";.V...F|
000075f0  3d 31 b8 4e 4f 46 25 0d  57 03 9f cf 23 42 3d 28  |=1.NOF%.W...#B=(|
00007600  46 2d 31 29 2a 36 31 2b  31 30 39 3a e8 23 42 2c  |F-1)*61+109:.#B,|
00007610  54 49 24 3a cf 23 42 3d  28 46 2d 31 29 2a 36 31  |TI$:.#B=(F-1)*61|
00007620  2b 31 30 34 3a e8 23 42  2c 49 4e 24 3a cf 23 43  |+104:.#B,IN$:.#C|
00007630  3d 28 43 52 25 2d 31 29  2a 52 45 43 25 2b bb 28  |=(CR%-1)*REC%+.(|
00007640  54 49 24 29 3a e8 23 43  2c 4e 24 3a e7 4f 28 32  |TI$):.#C,N$:.O(2|
00007650  29 3d 31 8c 4e 24 3d 4e  24 2b c4 bb 28 49 4e 24  |)=1.N$=N$+..(IN$|
00007660  29 2d a9 28 4e 24 29 2c  22 20 22 29 2b 22 20 22  |)-.(N$)," ")+" "|
00007670  3a 8b e7 4f 28 32 29 3d  32 8c 4e 24 3d 4e 24 2b  |:..O(2)=2.N$=N$+|
00007680  c4 bb 28 49 4e 24 29 2d  a9 28 4e 24 29 2c 22 20  |..(IN$)-.(N$)," |
00007690  22 29 2b 22 7c 22 0d 57  08 15 e7 4f 28 32 29 3d  |")+"|".W...O(2)=|
000076a0  30 8c 4e 24 3d 4e 24 2b  22 20 22 0d 57 0d 0d f1  |0.N$=N$+" ".W...|
000076b0  4e 24 3b 3a ed 46 3a e1  0d 57 12 0d dd f2 4f 55  |N$;:.F:..W....OU|
000076c0  54 50 55 54 32 0d 57 17  46 e7 41 28 33 35 29 3e  |TPUT2.W.F.A(35)>|
000076d0  4e 4f 52 25 84 41 28 33  35 29 3d 30 8c f2 45 52  |NOR%.A(35)=0..ER|
000076e0  52 4f 52 28 22 52 65 63  6f 72 64 20 63 6f 6e 74  |ROR("Record cont|
000076f0  72 6f 6c 20 76 61 72 69  61 62 6c 65 20 6f 75 74  |rol variable out|
00007700  20 6f 66 20 72 61 6e 67  65 22 29 0d 57 1c 39 43  | of range").W.9C|
00007710  52 25 3d 41 28 33 35 29  3a e7 53 4f 24 3d 22 31  |R%=A(35):.SO$="1|
00007720  22 8c cf 23 43 3d 28 43  52 25 2a 52 45 43 25 29  |"..#C=(CR%*REC%)|
00007730  2d 31 30 3a e8 23 43 2c  4e 24 3a 43 52 25 3d bb  |-10:.#C,N$:CR%=.|
00007740  28 4e 24 29 0d 57 21 2a  e7 4f 28 32 29 3e 30 8c  |(N$).W!*.O(2)>0.|
00007750  f1 22 52 65 63 6f 72 64  20 20 20 20 20 20 20 20  |."Record        |
00007760  20 20 20 20 20 20 20 22  3b 41 28 33 35 29 0d 57  |       ";A(35).W|
00007770  26 90 e3 46 3d 31 b8 4e  4f 46 25 3a cf 23 42 3d  |&..F=1.NOF%:.#B=|
00007780  28 46 2d 31 29 2a 36 31  2b 36 33 3a e8 23 42 2c  |(F-1)*61+63:.#B,|
00007790  46 4c 24 3a cf 23 42 3d  28 46 2d 31 29 2a 36 31  |FL$:.#B=(F-1)*61|
000077a0  2b 31 30 39 3a e8 23 42  2c 54 49 24 3a cf 23 42  |+109:.#B,TI$:.#B|
000077b0  3d 28 46 2d 31 29 2a 36  31 2b 31 30 34 3a e8 23  |=(F-1)*61+104:.#|
000077c0  42 2c 49 4e 24 3a cf 23  43 3d 28 43 52 25 2d 31  |B,IN$:.#C=(CR%-1|
000077d0  29 2a 52 45 43 25 2b bb  28 54 49 24 29 3a e8 23  |)*REC%+.(TI$):.#|
000077e0  43 2c 4e 24 3a f1 46 4c  24 3b 89 28 32 31 2d a9  |C,N$:.FL$;.(21-.|
000077f0  28 46 4c 24 29 29 3b 4e  24 3a ed 46 3a e1 0d 57  |(FL$));N$:.F:..W|
00007800  2b 18 dd f2 54 52 49 4d  3a 54 52 4e 3d bb 28 4e  |+...TRIM:TRN=.(N|
00007810  24 29 3a 4c 3d 31 0d 57  30 1d e7 54 52 4d 3d 30  |$):L=1.W0..TRM=0|
00007820  8c 4e 24 3d c3 28 a8 28  54 52 4e 29 29 3a e5 8d  |.N$=.(.(TRN)):..|
00007830  40 53 57 0d 57 35 30 e7  54 52 4e 3d a8 28 54 52  |@SW.W50.TRN=.(TR|
00007840  4e 29 8c 4e 24 3d c3 28  a8 28 54 52 4e 29 29 2b  |N).N$=.(.(TRN))+|
00007850  22 2e 22 2b c4 54 52 4d  2c 22 30 22 29 3a e5 8d  |"."+.TRM,"0"):..|
00007860  40 53 57 0d 57 3a 14 4c  3d a7 4e 24 2c 22 2e 22  |@SW.W:.L=.N$,"."|
00007870  29 3a e5 8d 50 7f 57 0d  57 3f 40 54 52 4d 24 3d  |):..P.W.W?@TRM$=|
00007880  c1 4e 24 2c 28 4c 2b 31  29 2c a9 28 4e 24 29 2d  |.N$,(L+1),.(N$)-|
00007890  4c 29 3a e7 a9 28 54 52  4d 24 29 3e 54 52 4d 20  |L):..(TRM$)>TRM |
000078a0  8c 20 54 52 4d 24 3d c0  54 52 4d 24 2c 54 52 4d  |. TRM$=.TRM$,TRM|
000078b0  29 3a e5 8d 40 4e 57 0d  57 44 36 e7 a9 28 54 52  |):..@NW.WD6..(TR|
000078c0  4d 24 29 3c 54 52 4d 20  8c 20 54 52 4d 24 3d 54  |M$)<TRM . TRM$=T|
000078d0  52 4d 24 2b c4 28 54 52  4d 2d a9 28 54 52 4d 24  |RM$+.(TRM-.(TRM$|
000078e0  29 29 2c 22 30 22 29 3a  e5 8d 40 4e 57 0d 57 49  |)),"0"):..@NW.WI|
000078f0  09 e5 8d 40 53 57 0d 57  4e 12 4e 24 3d c0 4e 24  |...@SW.WN.N$=.N$|
00007900  2c 4c 29 2b 54 52 4d 24  0d 57 53 05 e1 0d 57 58  |,L)+TRM$.WS...WX|
00007910  70 53 47 24 3d c1 46 49  52 24 2c 32 29 3a f2 53  |pSG$=.FIR$,2):.S|
00007920  54 47 45 54 3a 53 3d ad  53 47 24 3a e8 23 53 2c  |TGET:S=.SG$:.#S,|
00007930  43 4f 52 24 3a 58 3d bb  28 c1 43 4f 52 24 2c 31  |COR$:X=.(.COR$,1|
00007940  2c 32 29 29 3a 59 3d bb  28 c1 43 4f 52 24 2c 33  |,2)):Y=.(.COR$,3|
00007950  2c 32 29 29 3a 57 25 3d  bb 28 c1 43 4f 52 24 2c  |,2)):W%=.(.COR$,|
00007960  35 2c 32 29 29 2b 33 3a  4c 25 3d bb 28 c1 43 4f  |5,2))+3:L%=.(.CO|
00007970  52 24 2c 37 2c 32 29 29  3a f2 4c 57 4e 0d 57 5d  |R$,7,2)):.LWN.W]|
00007980  5d e3 49 3d 31 b8 4c 25  3a e8 23 53 2c 50 24 28  |].I=1.L%:.#S,P$(|
00007990  49 29 3a ed 49 3a d9 23  53 3a 58 3d 58 2b 31 3a  |I):.I:.#S:X=X+1:|
000079a0  59 3d 59 2b 31 3a f2 53  45 4c 45 43 54 3a 41 53  |Y=Y+1:.SELECT:AS|
000079b0  24 3d c3 28 97 28 c0 50  24 28 53 45 4c 25 29 2c  |$=.(.(.P$(SEL%),|
000079c0  31 29 29 29 3a ff 22 46  58 31 33 38 2c 30 2c 22  |1))):."FX138,0,"|
000079d0  2b 41 53 24 3a e5 8d 50  6e 4f 0d 57 62 2e dd f2  |+AS$:..PnO.Wb...|
000079e0  53 45 4c 45 43 54 3a ff  22 46 58 34 2c 31 22 3a  |SELECT:."FX4,1":|
000079f0  45 44 25 3d 59 2b 28 4c  25 2d 31 29 3a 42 47 25  |ED%=Y+(L%-1):BG%|
00007a00  3d 59 3a 4d 58 25 3d 30  0d 57 67 25 ff 22 46 58  |=Y:MX%=0.Wg%."FX|
00007a10  34 2c 31 22 3a 45 44 25  3d 59 2b 28 4c 25 2d 31  |4,1":ED%=Y+(L%-1|
00007a20  29 3a 42 47 25 3d 59 3a  4d 58 25 3d 30 0d 57 6c  |):BG%=Y:MX%=0.Wl|
00007a30  43 e3 49 3d 31 b8 4c 25  3a f1 8a 58 2c 59 2b 28  |C.I=1.L%:..X,Y+(|
00007a40  49 2d 31 29 29 3b 22 20  20 20 22 3b c1 50 24 28  |I-1));"   ";.P$(|
00007a50  49 29 2c 32 29 3a e7 a9  28 50 24 28 49 29 29 3e  |I),2):..(P$(I))>|
00007a60  4d 58 25 8c 4d 58 25 3d  a9 28 50 24 28 49 29 29  |MX%.MX%=.(P$(I))|
00007a70  0d 57 71 0d ed 49 3a 53  45 4c 25 3d 31 0d 57 76  |.Wq..I:SEL%=1.Wv|
00007a80  4c fb 31 33 35 3a fb 30  3a f1 8a 58 2c 59 29 3b  |L.135:.0:..X,Y);|
00007a90  22 20 22 3b bd 28 32 35  32 29 3b 22 20 22 3b c1  |" ";.(252);" ";.|
00007aa0  50 24 28 53 45 4c 25 29  2c 32 29 3b c4 4d 58 25  |P$(SEL%),2);.MX%|
00007ab0  2d a9 28 50 24 28 53 45  4c 25 29 29 2c 22 20 22  |-.(P$(SEL%))," "|
00007ac0  29 3a fb 31 32 38 3a fb  37 0d 57 7b 1e 49 24 3d  |):.128:.7.W{.I$=|
00007ad0  bf 28 30 29 3a e7 49 24  3d 22 22 8c f2 54 49 4d  |.(0):.I$=""..TIM|
00007ae0  45 3a e5 8d 40 7b 57 0d  57 80 13 e7 49 24 3d bd  |E:..@{W.W...I$=.|
00007af0  28 31 33 29 8c e5 8d 70  6d 57 0d 57 85 18 e7 49  |(13)...pmW.W...I|
00007b00  24 3d 22 8a 22 84 49 24  3d 22 44 22 8c e5 8d 70  |$=".".I$="D"...p|
00007b10  54 57 0d 57 8a 11 e7 49  24 3d 22 8b 22 8c e5 8d  |TW.W...I$="."...|
00007b20  70 63 57 0d 57 8f 09 e5  8d 40 7b 57 0d 57 94 10  |pcW.W....@{W.W..|
00007b30  e7 59 3d 45 44 25 8c e5  8d 40 7b 57 0d 57 99 21  |.Y=ED%...@{W.W.!|
00007b40  f2 43 4c 45 41 3a 59 3d  59 2b 31 3a 53 45 4c 25  |.CLEA:Y=Y+1:SEL%|
00007b50  3d 53 45 4c 25 2b 31 3a  e5 8d 40 76 57 0d 57 9e  |=SEL%+1:..@vW.W.|
00007b60  3c dd f2 43 4c 45 41 3a  f1 8a 58 2c 59 29 3b 22  |<..CLEA:..X,Y);"|
00007b70  20 20 20 22 3b c1 50 24  28 53 45 4c 25 29 2c 32  |   ";.P$(SEL%),2|
00007b80  29 3b c4 4d 58 25 2d a9  28 50 24 28 53 45 4c 25  |);.MX%-.(P$(SEL%|
00007b90  29 29 2c 22 20 22 29 3a  e1 0d 57 a3 10 e7 59 3d  |))," "):..W...Y=|
00007ba0  42 47 25 8c e5 8d 40 7b  57 0d 57 a8 21 f2 43 4c  |BG%...@{W.W.!.CL|
00007bb0  45 41 3a 59 3d 59 2d 31  3a 53 45 4c 25 3d 53 45  |EA:Y=Y-1:SEL%=SE|
00007bc0  4c 25 2d 31 3a e5 8d 40  76 57 0d 57 ad 05 e1 0d  |L%-1:..@vW.W....|
00007bd0  57 b2 0d dd f2 43 4f 4d  50 41 52 45 0d 57 b7 0a  |W....COMPARE.W..|
00007be0  43 4f 4d 25 3d 30 0d 57  bc 12 e7 54 50 24 3d 22  |COM%=0.W...TP$="|
00007bf0  32 22 8c e5 8d 60 69 57  0d 57 c1 15 e7 c0 4e 24  |2"...`iW.W....N$|
00007c00  2c 31 29 3d 22 2a 22 8c  e5 8d 50 5b 58 0d 57 c6  |,1)="*"...P[X.W.|
00007c10  20 e7 4f 50 24 3d 22 31  22 8c e7 4e 24 3d 43 24  | .OP$="1"..N$=C$|
00007c20  8c 43 4f 4d 25 3d 31 3a  e5 8d 50 6f 58 0d 57 cb  |.COM%=1:..PoX.W.|
00007c30  21 e7 4f 50 24 3d 22 32  22 8c e7 4e 24 3c 3e 43  |!.OP$="2"..N$<>C|
00007c40  24 8c 43 4f 4d 25 3d 31  3a e5 8d 50 6f 58 0d 57  |$.COM%=1:..PoX.W|
00007c50  d0 20 e7 4f 50 24 3d 22  33 22 8c e7 4e 24 3e 43  |. .OP$="3"..N$>C|
00007c60  24 8c 43 4f 4d 25 3d 31  3a e5 8d 50 6f 58 0d 57  |$.COM%=1:..PoX.W|
00007c70  d5 20 e7 4f 50 24 3d 22  34 22 8c e7 4e 24 3c 43  |. .OP$="4"..N$<C|
00007c80  24 8c 43 4f 4d 25 3d 31  3a e5 8d 50 6f 58 0d 57  |$.COM%=1:..PoX.W|
00007c90  da 21 e7 4f 50 24 3d 22  35 22 8c e7 4e 24 3e 3d  |.!.OP$="5"..N$>=|
00007ca0  43 24 8c 43 4f 4d 25 3d  31 3a e5 8d 50 6f 58 0d  |C$.COM%=1:..PoX.|
00007cb0  57 df 21 e7 4f 50 24 3d  22 36 22 8c e7 4e 24 3c  |W.!.OP$="6"..N$<|
00007cc0  3d 43 24 8c 43 4f 4d 25  3d 31 3a e5 8d 50 6f 58  |=C$.COM%=1:..PoX|
00007cd0  0d 57 e4 09 e5 8d 50 6f  58 0d 57 e9 19 e7 54 59  |.W....PoX.W...TY|
00007ce0  24 3d 22 35 22 8c 58 24  3d 43 24 3a f2 43 4f 4e  |$="5".X$=C$:.CON|
00007cf0  44 49 0d 57 ee 19 e7 54  59 24 3d 22 36 22 8c 58  |DI.W...TY$="6".X|
00007d00  24 3d 43 24 3a f2 43 4f  4e 54 49 0d 57 f3 20 e7  |$=C$:.CONTI.W. .|
00007d10  4f 50 24 3d 22 31 22 8c  e7 4e 3d 4e 4f 20 8c 43  |OP$="1"..N=NO .C|
00007d20  4f 4d 25 3d 31 3a e5 8d  50 6f 58 0d 57 f8 21 e7  |OM%=1:..PoX.W.!.|
00007d30  4f 50 24 3d 22 32 22 8c  e7 4e 3c 3e 4e 4f 20 8c  |OP$="2"..N<>NO .|
00007d40  43 4f 4d 25 3d 31 3a e5  8d 50 6f 58 0d 57 fd 20  |COM%=1:..PoX.W. |
00007d50  e7 4f 50 24 3d 22 33 22  8c e7 4e 3e 4e 4f 20 8c  |.OP$="3"..N>NO .|
00007d60  43 4f 4d 25 3d 31 3a e5  8d 50 6f 58 0d 58 02 20  |COM%=1:..PoX.X. |
00007d70  e7 4f 50 24 3d 22 34 22  8c e7 4e 3c 4e 4f 20 8c  |.OP$="4"..N<NO .|
00007d80  43 4f 4d 25 3d 31 3a e5  8d 50 6f 58 0d 58 07 21  |COM%=1:..PoX.X.!|
00007d90  e7 4f 50 24 3d 22 35 22  8c e7 4e 3e 3d 4e 4f 20  |.OP$="5"..N>=NO |
00007da0  8c 43 4f 4d 25 3d 31 3a  e5 8d 50 6f 58 0d 58 0c  |.COM%=1:..PoX.X.|
00007db0  2c e7 4f 50 24 3d 22 37  22 8c e7 4e 4f 20 3e 56  |,.OP$="7"..NO >V|
00007dc0  4c 31 20 80 4e 4f 20 3c  56 4c 32 20 8c 43 4f 4d  |L1 .NO <VL2 .COM|
00007dd0  25 3d 31 3a e5 8d 50 6f  58 0d 58 11 21 e7 4f 50  |%=1:..PoX.X.!.OP|
00007de0  24 3d 22 36 22 8c e7 4e  3c 3d 4e 4f 20 8c 43 4f  |$="6"..N<=NO .CO|
00007df0  4d 25 3d 31 3a e5 8d 50  6f 58 0d 58 16 09 e5 8d  |M%=1:..PoX.X....|
00007e00  50 6f 58 0d 58 1b 12 e7  a9 28 4e 24 29 3d 31 8c  |PoX.X....(N$)=1.|
00007e10  e5 8d 60 46 57 0d 58 20  32 e7 4f 50 24 3d 22 31  |..`FW.X 2.OP$="1|
00007e20  22 8c 43 4f 4d 25 3d a7  43 24 2c c1 4e 24 2c 32  |".COM%=.C$,.N$,2|
00007e30  2c a9 28 4e 24 29 29 29  3a e7 43 4f 4d 25 3e 31  |,.(N$))):.COM%>1|
00007e40  8c 43 4f 4d 25 3d 31 0d  58 25 39 e7 bb 28 4f 50  |.COM%=1.X%9..(OP|
00007e50  24 29 3e 31 8c 43 4f 4d  25 3d a7 43 24 2c c1 4e  |$)>1.COM%=.C$,.N|
00007e60  24 2c 32 2c a9 28 4e 24  29 29 29 3a e7 43 4f 4d  |$,2,.(N$))):.COM|
00007e70  25 3d 30 8c 43 4f 4d 25  3d 31 3a e5 8d 50 6f 58  |%=0.COM%=1:..PoX|
00007e80  0d 58 2a 1c e7 bb 28 4f  50 24 29 3e 31 8c e7 43  |.X*...(OP$)>1..C|
00007e90  4f 4d 25 3e 30 8c 43 4f  4d 25 3d 30 0d 58 2f 05  |OM%>0.COM%=0.X/.|
00007ea0  e1 0d 58 34 0b dd f2 43  4f 4e 44 49 0d 58 39 37  |..X4...CONDI.X97|
00007eb0  58 58 24 3d 22 22 3a 58  58 24 3d 58 58 24 2b c1  |XX$="":XX$=XX$+.|
00007ec0  58 24 2c 37 2c 32 29 2b  c1 58 24 2c 34 2c 32 29  |X$,7,2)+.X$,4,2)|
00007ed0  2b c1 58 24 2c 31 2c 32  29 3a 4e 4f 3d bb 28 58  |+.X$,1,2):NO=.(X|
00007ee0  58 24 29 0d 58 3e 05 e1  0d 58 43 0b dd f2 43 4f  |X$).X>...XC...CO|
00007ef0  4e 54 49 0d 58 48 2e 58  58 24 3d 22 22 3a 58 58  |NTI.XH.XX$="":XX|
00007f00  24 3d 58 58 24 2b c1 58  24 2c 34 2c 32 29 2b c1  |$=XX$+.X$,4,2)+.|
00007f10  58 24 2c 31 2c 32 29 3a  4e 4f 3d bb 28 58 58 24  |X$,1,2):NO=.(XX$|
00007f20  29 0d 58 4d 05 e1 0d 58  52 13 dd f2 4f 55 54 50  |).XM...XR...OUTP|
00007f30  55 54 3a 42 3d ad 46 4f  24 0d 58 57 34 e7 4f 28  |UT:B=.FO$.XW4.O(|
00007f40  37 29 3d 30 8c 41 28 33  35 29 3d 43 52 25 3a 54  |7)=0.A(35)=CR%:T|
00007f50  45 4d 50 25 3d 43 52 25  3a f2 4f 55 54 50 55 54  |EMP%=CR%:.OUTPUT|
00007f60  31 3a f1 3a 43 52 25 3d  54 45 4d 50 25 0d 58 5c  |1:.:CR%=TEMP%.X\|
00007f70  34 e7 4f 28 37 29 3d 31  8c 41 28 33 35 29 3d 43  |4.O(7)=1.A(35)=C|
00007f80  52 25 3a 54 45 4d 50 25  3d 43 52 25 3a f2 4f 55  |R%:TEMP%=CR%:.OU|
00007f90  54 50 55 54 32 3a f1 3a  43 52 25 3d 54 45 4d 50  |TPUT2:.:CR%=TEMP|
00007fa0  25 0d 58 61 09 d9 23 42  3a e1 0d 58 66 09 e5 8d  |%.Xa..#B:..Xf...|
00007fb0  60 7c 4e 0d 58 7a 53 dd  f2 53 45 4c 45 43 54 4d  |`|N.XzS..SELECTM|
00007fc0  3a ff 22 46 58 34 2c 31  22 3a 45 44 25 3d 59 2b  |:."FX4,1":ED%=Y+|
00007fd0  28 4c 25 2d 31 29 3a 42  47 25 3d 58 2b 28 57 25  |(L%-1):BG%=X+(W%|
00007fe0  2d 31 29 3a e3 49 3d 31  b8 4c 25 3a f1 8a 58 2c  |-1):.I=1.L%:..X,|
00007ff0  59 2b 28 49 2d 31 29 29  3b 22 20 20 22 3b 50 24  |Y+(I-1));"  ";P$|
00008000  28 49 29 3a ed 49 0d 58  7f 2b c8 97 20 58 50 2c  |(I):.I.X.+.. XP,|
00008010  59 50 2c 42 55 54 3a 58  50 3d a8 28 58 50 2f 31  |YP,BUT:XP=.(XP/1|
00008020  36 29 3a 59 50 3d 33 31  2d a8 28 59 50 2f 33 32  |6):YP=31-.(YP/32|
00008030  29 0d 58 84 17 e7 42 55  54 3d 34 8c e5 8d 70 49  |).X...BUT=4...pI|
00008040  58 3a 8b e5 8d 40 7f 58  0d 58 89 18 e7 59 50 3c  |X:...@.X.X...YP<|
00008050  59 20 84 20 59 50 3e 45  44 25 8c e5 8d 40 7f 58  |Y . YP>ED%...@.X|
00008060  0d 58 8e 18 e7 58 50 3c  58 20 84 20 58 50 3e 42  |.X...XP<X . XP>B|
00008070  47 25 8c e5 8d 40 7f 58  0d 58 93 13 53 45 4c 25  |G%...@.X.X..SEL%|
00008080  3d 28 59 50 2d 59 29 2b  31 3a e1 0d 97 6d 05 20  |=(YP-Y)+1:...m. |
00008090  0d 97 72 14 dd 20 a4 4d  79 46 69 6c 65 28 66 69  |..r.. .MyFile(fi|
000080a0  6c 65 24 29 0d 97 7c 1e  3d 22 3c 44 61 74 61 56  |le$)..|.="<DataV|
000080b0  69 73 69 6f 6e 24 44 69  72 3e 2e 22 2b 66 69 6c  |ision$Dir>."+fil|
000080c0  65 24 0d 97 7d 16 dd 20  a4 55 73 65 72 46 69 6c  |e$..}.. .UserFil|
000080d0  65 28 66 69 6c 65 24 29  0d 97 7e 0a 3d 66 69 6c  |e(file$)..~.=fil|
000080e0  65 24 0d 97 86 0b dd 20  f2 51 75 69 74 0d 97 90  |e$..... .Quit...|
000080f0  1e c8 99 20 22 57 69 6d  70 5f 43 6f 6d 6d 61 6e  |... "Wimp_Comman|
00008100  64 57 69 6e 64 6f 77 22  2c 2d 31 0d 97 9a 06 c8  |dWindow",-1.....|
00008110  98 0d 97 a4 05 e1 0d 98  58 0d dd f2 44 69 72 28  |........X...Dir(|
00008120  64 24 29 0d 98 62 1f ff  20 22 44 69 72 20 3c 44  |d$)..b.. "Dir <D|
00008130  61 74 61 56 69 73 69 6f  6e 24 44 69 72 3e 22 2b  |ataVision$Dir>"+|
00008140  64 24 0d 98 6c 05 e1 0d  ff                       |d$..l....|
00008149