� !Account
.� by Alisdair Millard, 31st December 1993.
� � Acorn Computing
(
2&��makeerror(�msg1("Err7",Þ),0):�
<
Fș "Hourglass_On"
P�initialise
Zș "Hourglass_Smash"
d\�(�filetoload$,":")<>0) �$(block%+44)=filetoload$:�dataload(block%):�openwindow(handle%)
n
x�
�(ș "Wimp_Poll",,block%�reason%,info%
�Ȏreason%�
� �1:�redraw(info%)
�# �2:ș "Wimp_OpenWindow",,info%
�  Ȏ!info%�
�)   �handle%:�editing ��pane(handle6%)
�  �
�$ �3:ș "Wimp_CloseWindow",,info%
�  Ȏ!info%�
�0   �handle%:�editing ��closewindow(handle6%)
�/   �handle4%:�w9open ��openwindow(handle4%)
�  �
� �6:�mouse(info%)

 �7:�dragging

 �8:�processkey(info%)

 �9:�handlemenu(info%)

"I �12:�!info%=handle4% ��setcaret(handle4%,1,�(�icontext(handle4%,1)))

,$ �17,18:�seewhatwimpwants(info%)

6�

@	�exit

J�finish

T�

^

h��initialise

rFș "Wimp_Initialise",200,&4B534154,"Accounts" �RiscOS%,wimphandle%

|(ș "Wimp_ClaimInterface",wimphandle%

�ș "OS_GetEnv" �para$

�4�block%255,menu%255,oldblock%255,mn$(12),mn%(13)

�:filetoload$=�para$,(�para$,"-a")+2)):dir$="<Acc$Dir>."

�'�msgload(dir$+"Resources.Messages")

�8maxval%=��msg0("MaxTrans"):datamax%=100+(maxval%*40)

�:�data%datamax%,deb(maxval%),cred(maxval%),bal(maxval%)

�Ffiletype%=�(�msg0("FileType")):filetype$="file_"+�msg0("FileType")

�=DrgPres%=��readOSvar("Drg$Present"):� "Unset Drg$Present"

�(�I=data%�(data%+datamax%-4)�4:!I=0:�

�dataptr%=0:page%=0:@%=&1020200:cm%=1:exit=0:edited=0:editing=0:deleting=0:amending=0:inserting=0:quitting=0:changing=0:loaded=0:empty=0:creddeb=0:pdriver=0:insert=0:w9open=0:svastxt=0

�:ib=�ibar(�msg0("IconBar")):printer$="Not installed"+�0

�8iwantfonts=-��msg0("UseFonts"):�iwantfonts ��getfont

��loadsprites:�opentemplate
A%=@%:@%=1
&�I=1�12:mn$(I)=�msg0("Month"+�I):�
 temp$=�readOSvar("Sys$Date")
&II=�temp$,","):date$=�temp$,I+1,2):date%=�date$:date$=�stndrdth(date%)
0$I=�temp$," "):mnt$=�temp$,I+1,3)
:yr$=�readOSvar("Sys$Year")
DQ�puttext(handle7%,0,date$):�puttext(handle7%,1,mnt$):�puttext(handle7%,2,yr$)
N	@%=A%
X1maxcode%=��msg0("MaxCodes"):�codes$(maxcode%)
b temp$=�msg0("Codes"):I=0:J=1
l�
v temp%=��temp$,J,1):J+=1
�8 �(temp%=�".")�(J>�temp$+1) �I+=1:�codes$(I)+=�temp%
��I=maxcode%
�-�I=0�maxcode%-1:codes$(I)=�codes$(I),3):�
�� "Pointer 1"
��
�
�ݤreadOSvar(temp$)
�H$block%=temp$+�0:ș "OS_ReadVarVal",block%,oldblock%,255,0,0 �,,len%
�!oldblock%?len%=13:=$oldblock%
�
���msgload(name$)
��
���:�3,�$
%ș "MessageTrans_FileInfo",,name$
�msgtext%256
,ș"OS_Module",6,,,17+�(name$)�,,msgdesc%
 G$(msgdesc%+16)=name$:ș"MessageTrans_OpenFile",msgdesc%,msgdesc%+16
*�
4
>ݤmsg0(tag$)
H=�msg2(tag$,"","")
R
\ݤmsg1(tag$,arg1$)
f=�msg2(tag$,arg1$,"")
p
zݤmsg2(tag$,arg1$,arg2$)
��F%,len%
�Nș"XMessageTrans_Lookup",msgdesc%,tag$,msgtext%,256,arg1$,arg2$�,,,len%;F%
��F%� 1�len%=0
�msgtext%?len%=13:=$msgtext%
�
�ݤibar(temp$)
�>!block%=-1:block%!4=0:block%!8=0:block%!12=68:block%!16=68
�Hblock%!20=&3002:$(block%+24)=temp$:ș "Wimp_CreateIcon",,block%�icn%
�	=icn%
�
���opentemplate
�Ȏiwantfonts �
�: �0:ș "Wimp_OpenTemplate",,dir$+"Resources.Templates"
  iS=2550:fonts%=-1:�b%1126
< �-1:ș "Wimp_OpenTemplate",,dir$+"Resources.Templates2"
7  iS=2950:�b%1166,fonts%255:�I=0�255�4:fonts%!I=0:�
$�
.�i iS,n%12
8ip=i:ptr=0
B
�:$n%="*"
LCș "Wimp_LoadTemplate",,b%,ip,i+iS,fonts%,n%,ptr �,,ip,,,n%,ptr
Vb%!64=sprites%:Ȏ$n%�
`& �"main":handle%=�createwindow(b%)
j' �"info":handle2%=�createwindow(b%)
t) �"credit":handle3%=�createwindow(b%)
~F �"save":handle4%=�createwindow(b%):�puttext(handle4%,0,filetype$)
�) �"create":handle5%=�createwindow(b%)
�' �"edit":handle6%=�createwindow(b%)
�& �"adi":handle7%=�createwindow(b%)
�) �"delete":handle8%=�createwindow(b%)
�+ �"quitsave":handle9%=�createwindow(b%)
�) �"print":handle10%=�createwindow(b%)
�+ �"summary":handle11%=�createwindow(b%)
��
�
�ptr=0
�ș "Wimp_CloseTemplate"
��
�
��loadsprites

?temp%=�(dir$+"Resources.Sprites"):amount=�#temp%+16:�#temp%
� sprites%amount
@!sprites%=amount:sprites%!8=0:ș "OS_SpriteOp",&109,sprites%
(;ș "OS_SpriteOp",&10A,sprites%,dir$+"Resources.Sprites"
2�
<
Fݤgethelp(wndw%,icn%)
PȎwndw%�
Z �-2:="H1"
d �handle%:
n
  Ȏicn%�
x"   �1,2,3,4,5,6,7,8,9,10:="H2"
�   �11:="H3"
�   �12:="H4"
�   �15:="H9"
�   �18:="H11"
�   �19:="H11a"
�   �21:="H6"
�   �22:="H7"
�   �23:="H10"
�   �24:="H11b"
�   :="H12"
�  �
� �handle2%:="H13"
� �handle3%:="H14"
 �handle4%:="H15"
 �handle5%:

  Ȏicn%�
"   �1:="H16"
,   �3:="H17"
6   �5:="H18"
@   �7:="H19"
J   :="H20"
T  �
^ �handle6%:
h
  Ȏicn%�
r   �0:="H21:add or insert"
|   �1:="H21:delete"
�   �2:="H21:amend"
�   �3:="H22"
�   :="H24"
�  �
� �handle7%:
�
  Ȏicn%�
�   �0:="H25"
�   �1:="H26"
�   �2:="H27"
�   �3:="H28"
�   �4:="H29"
�   �5:="H30"
�   �7:="H31"
   �8:="H22"
   �9:="H23"
   �10:="H32:date"
&   �11:="H33:date"
0   �12:="H32:month"
:   �13:="H33:month"
D   �14:="H32:year"
N   �15:="H33:year"
X   �17:="H34"
b.   :�amending �="H35":��inserting �="H36"
l  �
v �handle8%:
�
  Ȏicn%�
�   �1:="H37"
�   �2:="H23"
�   :="H38"
�  �
� �handle9%:
�
  Ȏicn%�
�   �1:="H39"
�   �2:="H40"
�   �3:="H41"
�   :="H42"
�  �
� �handle10%:

  Ȏicn%�
   �1:="H43"
   �2:="H44"
    :="H45"
*  �
4 �handle11%:
>
  Ȏicn%�
H   �1:="H5"
R   �3:="H8"
\   �6:="H6"
f   �8:="H7"
p   :="H46"
z  �
��
�=""
�
���sendhelp(temp$)
�Dblock%!12=block%!8:block%!16=&503:$(block%+20)=temp$+�0+�0+�0+�0
�H!block%=(20+(�temp$�4)*4+4):ș "Wimp_SendMessage",17,block%,block%!4
��
�
���processkey(block%)
�-wndw%=!block%:icn%=block%!4:key=block%!24
�
Ȏwndw% �
� �handle4%:
�  �key=13 �quicksave
	 �handle5%:
	  �key=13 �
	   Ȏicn% �
	$3    �1:�setcaret(wndw%,3,�(�icontext(wndw%,3)))
	.3    �3:�setcaret(wndw%,5,�(�icontext(wndw%,5)))
	83    �5:�setcaret(wndw%,1,�(�icontext(wndw%,1)))
	B   �
	L  �
	V �handle7%:
	`  �key=13 �
	j   Ȏicn% �
	t3    �3:�setcaret(wndw%,7,�(�icontext(wndw%,7)))
	~3    �7:�setcaret(wndw%,5,�(�icontext(wndw%,5)))
	�3    �5:�setcaret(wndw%,3,�(�icontext(wndw%,3)))
	�   �
	�  �
	��
	�ș "Wimp_ProcessKey",,key
	��
	�
	���setcaret(wndw%,icn%,pos%)
	�3ș "Wimp_SetCaretPosition",wndw%,icn%,,,-1,pos%
	��
	�
	���seewhatwimpwants(block%)
/�I%=0�!block%-1 �4:oldblock%!I%=block%!I%:�

Ȏblock%!16 �
 �0:�anythingtosave
 �2:
(v  file$=�getstring(block%+44):�puttext(handle4%,1,file$):�setcaret(handle4%,1,�file$):�save(file$):�getoutofsaving
2 �3:
<,  �edited ��makeerror(�msg0("Err1"),0):�
F,  �loaded ��makeerror(�msg0("Err8"),0):�
P4  �dataload(block%):�loaded �openwindow(handle%)
Z �5:
d  �block%!40<>filetype%��
n  �loaded ��
x  �edited �
�.   oldblock%!12=oldblock%!8:oldblock%!16=4
�5   ș "Wimp_SendMessage",17,oldblock%,oldblock%!4
�"   �makeerror(�msg0("Err1"),0)
�  �
�   �dataload(block%)
�.   oldblock%!12=oldblock%!8:oldblock%!16=4
�5   ș "Wimp_SendMessage",17,oldblock%,oldblock%!4
�#   �loaded �openwindow(handle%)
�  �
� �&502:�temp$,temp2$
�?  wndw%=block%!32:icn%=block%!36:temp$=�gethelp(wndw%,icn%)
�  pt%=�temp$,":")
�
  �pt%>0�
/   temp2$=�temp$,pt%+1):temp$=�temp$,pt%-1)
    temp$=�msg1(temp$,temp2$)
  �
"   temp$=�msg0(temp$)
,  �
6  �sendhelp(temp$)
@ �
J�
T
^��anythingtosave
h$�edited ��openwindow(handle9%):�
r
exit=�
|�
�
���update(temp%)
�2!block%=temp%:ș "Wimp_GetWindowState",,block%
�(ș "Wimp_UpdateWindow",,block%�temp%
�ȕtemp%
�) ș "Wimp_GetRectangle",,block%�temp%
��
��
�
���redraw(block%)
�(ș "Wimp_RedrawWindow",,block%�flag%
�ȕflag%
�# ș "Wimp_BorderWindow",,block%
) ș "Wimp_GetRectangle",,block%�flag%
�
�update(!block%)
&�
0
:��dragging
D%�DrgPres% � ș "DragASprite_Stop"
N$ș "Wimp_GetPointerInfo",,block%
X9x%=!block%:y%=block%!4:wndw%=block%!12:icn%=block%!16
b>!block%=handle4%:block%!4=1:ș "Wimp_GetIconState",,block%
l8file$=$(block%!28):file$=�getfilefrompathname(file$)
vE!block%=64:block%!12=0:block%!16=1:block%!20=wndw%:block%!24=icn%
�@block%!28=x%:block%!32=y%:block%!36=data%+(transactions%*40)
�*block%!40=filetype%:$(block%+44)=file$
�7ș "Wimp_SendMessage",17,block%,block%!20,block%!24
��
�
���openwindow(temp%)
�2!block%=temp%:ș "Wimp_GetWindowState",,block%
�� block%!28�1<<16 ��
� ș "Wimp_OpenWindow",,block%
�Ȏtemp%�
�& �handle%:�editing �pane(handle6%)
�= �handle5%:�setcaret(handle5%,1,�(�icontext(handle5%,1)))
�} �handle6%:�transactions%=0 ��greyicon(handle6%,1):�greyicon(handle6%,2):��enableicon(handle6%,1):�enableicon(handle6%,2)

= �handle7%:�setcaret(handle7%,3,�(�icontext(handle7%,3)))

 �handle9%:w9open=-1

�

 �

*

4ݤcreatewindow(temp%)

>(ș "Wimp_CreateWindow",,temp% �temp%

H
=temp%

R

\��closewindow(temp%)

f2!block%=temp%:ș "Wimp_GetWindowState",,block%

p� block%!28�1<<16 ��

z!ș "Wimp_CloseWindow",,block%

�Ȏtemp%�

�- �handle%:�editing �closewindow(handle6%)

��

��

�

���deletewindow(temp%)

�0!block%=temp%:ș "Wimp_DeleteWindow",,block%

��

�

���makeerror(temp$,quit)

�ș "Wimp_DragBox",,-1

�I!block%=0:$(block%+4)=temp$:ș "Wimp_ReportError",block%,1,"!Account"

�0�quit ��greyicon(handle9%,3):�anythingtosave
�

��finish
$�iwantfonts �
.
 �I=0�255
86  ȕ fonts%?I>0:ș "Font_LoseFont",I:fonts%?I-=1:�
B �
L ș "Font_LoseFont",font%
V�
`+ș "Wimp_ReleaseInterface",,wimphandle%
j-ș "Wimp_CloseDown",wimphandle%,&4B534154
t)ș "XMessageTrans_CloseFile",msgdesc%
~ș "XOS_Module",7,,msgdesc%
��
�
���mouse(block%)
�1wndw%=block%!12:butn%=block%!8:icn%=block%!16
�5�wndw%=handle9% �wndw%=handle4% �temp%=�:�temp%=0
��temp%=0 �w9open ��
�Ȏwndw%�
�	 �-2:
�  Ȏbutn% �
�'   �4:�loaded ��openwindow(handle%)
�E   �2:�setupmenu:ș "Wimp_CreateMenu",,menu%,(!block%)-64,96+6*44
�   �1:�openwindow(handle3%)
  �

 �handle%:
  Ȏbutn% �
A   �2:�setupmenu:ș "Wimp_CreateMenu",,menu%,!block%,block%!4
(   �1,4:
2    Ȏicn%�
<     �1,2,3,4,5,6,7,8,9,10:
F,      �deleting ��deltrans(1,icn%,page%)
P-      �amending ��amendtrans2(icn%,page%)
Z:     �11:page%=((transactions%-1)�10):�updatestatement
d%     �12:page%=0:�updatestatement
nA     �15:editing=�:�greyicon(handle%,15):�openwindow(handle%)
x     �18:page%+=1
�4      �page%>((transactions%-1)�10) �page%-=1:�7
�      �updatestatement
�     �19:page%-=1
�      �page%=-1 �page%=0:�7
�      �updatestatement
�#     �24:�openwindow(handle11%)
�	    �
�  �
� �handle4%:
�
  Ȏicn%�
�&   �0:�butn% �&50 ��dragbox(wndw%)
�%   �2:file$=�icontext(handle4%,1)
�    Ȏ�file$,".")�
'     �0:�makeerror(�msg0("Err3"),0)
     :�save(file$)
	    �
"    �getoutofsaving
,�   �3:�svastxt �svastxt=0:�puttext(wndw%,3,"radioon"):�puttext(wndw%,4,"radiooff"):�puttext(wndw%,4,"radiooff"):�puttext(wndw%,0,filetype$)
6v   �4:�svastxt=0 �svastxt=-1:�puttext(wndw%,3,"radiooff"):�puttext(wndw%,4,"radioon"):�puttext(wndw%,0,"file_fff")
@  �
J �handle5%:
T  �icn%=7 �
^)   �changing �createnewac2:��chdtls2
h  �
r �handle6%:
|
  Ȏicn%�
��   �0:�I=0�3:�greyicon(handle6%,I):�:�transactions%+1<maxval%�edited=�:inserting=�:�openwindow(handle7%):��makeerror(�msg0("Err2"),-1)
�9   �1:�I=0�3:�greyicon(handle6%,I):�:�deltrans(0,0,0)
�4   �2:�I=0�3:�greyicon(handle6%,I):�:�amendtrans
�B   �3:�enableicon(handle%,15):�closewindow(handle6%):editing=0
�  �
� �handle7%:
�
  Ȏicn%�
�G   �3:�butn%=2 ��menu2:ș "Wimp_CreateMenu",,menu%,!block%,block%!4
�c   �4:�creddeb �puttext(handle7%,4,"Credit"):creddeb=0:��puttext(handle7%,4,"Debit"):creddeb=-1
�
   �8:
�>    �inserting ��closewindow(handle7%):�insert:�instrans:�
�!    �amending ��amendtrans3:�
�
   �9:
    �inserting ��endedit
    �amending ��endedit
%   �10,11,12,13,14,15:�adjustdate
&   �17:�cleared
0  �
: �handle8%:
D  Ȏicn% �
N   �1:�deltrans(2,0,0)
X   �2:�deltrans(3,0,0)
b  �
l �handle9%:
v  Ȏicn% �
�p   �1:�closewindow(handle9%):quitting=�:�openwindow(handle4%):�setcaret(handle4%,1,�(�icontext(handle4%,1)))
�'   �2:�closewindow(handle9%):exit=�
�)   �3:�closewindow(handle9%):w9open=0
�  �
� �handle10%:
�  �icn%=2 �pdriver ��print
��
��
�
���setupmenu
��checkprinterdriver
�,�printer$>16 �printer$=�printer$,15)+�0
�!menu%=handle10%:menu%!4=1
!ș "Wimp_GetIconState",,menu%
!menu%=handle10%:menu%!4=1
menu%!8=0:menu%!12=0
 $(menu%!28)=printer$
*!ș "Wimp_SetIconState",,menu%
40�(printer$="" �printer$="Not installed"+�0)�
>< !menu%=handle10%:menu%!4=2:menu%!8=1<<22:menu%!12=1<<22
H" ș "Wimp_SetIconState",,menu%
R�
\8 !menu%=handle10%:menu%!4=2:menu%!8=0:menu%!12=1<<22
f" ș "Wimp_SetIconState",,menu%
p�
z-�createmenu(�msg0("MT"),7,2,7,0,200,44,0)
�:�menuopt(0,%00000000,handle2%,%00000111,�msg0("M0"),0)
�C�menuopt(1,%00000000,-1,%00000111,�msg0("M1"),(edited �loaded))
�F�menuopt(2,%00000000,-1,%00000111,�msg0("M2"),(changing ��loaded))
�C�menuopt(3,%00000000,handle10%,%00000111,�msg0("M3"),�(loaded))
�J�menuopt(4,%00000000,handle4%,%00000111,�msg0("M4"),�(loaded �edited))
�4�menuopt(5,%10000000,-1,%00000111,�msg0("M5"),0)
�	cm%=1
��
�
���menu2
�)�createmenu("Codes",7,2,7,0,100,44,0)
��I=0�maxcode%-2
�3 �menuopt(I,%00000000,-1,%00000111,codes$(I),0)
�
D�menuopt(maxcode%-1,%10000000,-1,%00000111,codes$(maxcode%-1),0)
	cm%=2
$�
.
8>��createmenu(mtitle$,mtfc,mtbc,wafc,wabc,width,height,sep)
BJ$menu%=mtitle$:menu%?12=mtfc:menu%?13=mtbc:menu%?14=wafc:menu%?15=wabc
L/menu%!16=width:menu%!20=height:menu%!24=sep
V�
`
j*��menuopt(opt,flgs,ptr,col,text$,grey)
t4menu%!(28+(opt*24))=flgs:menu%!(32+(opt*24))=ptr
~Ȏiwantfonts �
� �0:icflgs=1
�" �-1:icflgs=%1000001:col=font%
��
�6menu%!(36+(opt*24))=icflgs:menu%?(39+(opt*24))=col
�!$(menu%+40+(opt*24))=text$+�0
�6�grey �menu%!(36+opt*24)=menu%!(36+opt*24)�(1<<22)
��
�
���handlemenu(block%)
�
Ȏcm%�
� �1:
�  Ȏ!block% �
-   �1:�block%!4=-1 ��openwindow(handle5%)

%   �2:�block%!4=-1 �changedetails
,   �4:�block%!4=-1 �openwindow(handle4%)
&   �5:�block%!4=-1 �anythingtosave
(  �
2 �2:
<*  �puttext(handle7%,3,codes$(!block%))
F0  ș "Wimp_GetCaretPosition",,block%�,block%
P!  wndw%=!block%:icn%=block%!4
ZK  �wndw%=handle7%�icn%=3 �setcaret(handle7%,3,�(�icontext(handle7%,3)))
d�
n�
x
�
��getfont
�Yfont%=�findfont(�msg0("Font"),��msg0("FontW"),��msg0("FontH"),"Trinity.Medium",13,13)
��
�
�4ݤfindfont(name$,size%,height%,default$,ds%,dw%)
�
�hand%:�
�/�� name$=default$:size%=ds%:height%=dh%:��
�8ș "Font_FindFont",,name$,size%*16,height%*16 �hand%
�
=hand%
�
���enableicon(wndw%,icn%)
�:!block%=wndw%:block%!4=icn%:block%!8=0:block%!12=1<<22
�"ș "Wimp_SetIconState",,block%
�

��greyicon(wndw%,icn%)
">!block%=wndw%:block%!4=icn%:block%!8=1<<22:block%!12=1<<22
,"ș "Wimp_SetIconState",,block%
6�
@
J��dragbox(wndw%)
T2!block%=wndw%:ș "Wimp_GetWindowState",,block%
^0x%=block%!4-block%!20:y%=block%!16-block%!24
h-block%!4=0:ș "Wimp_GetIconState",,block%
r!block%=wndw%:block%!4=5
|ȎDrgPres%�
� �0:
�1  block%!8=x%+block%!8:block%!12=y%+block%!12
�3  block%!16=x%+block%!16:block%!20=y%+block%!20
�E  block%!24=0:block%!28=0:block%!32=&7FFFFFFF:block%!36=&7FFFFFFF
�  ș "Wimp_DragBox",,block%
�	 �-1:
�H  �svastxt �drag$="file_fff":drag%=1:�drag$=filetype$:drag%=sprites%
�O  block%!8=x%:block%!12=y%-16:block%!16=x%+block%!16:block%!20=y%+block%!20
�;  ș "DragASprite_Start",%10001111,drag%,drag$,block%+8
��
��
�
���save(file$)
2�transactions%=0 �makeerror(�msg0("Err9"),0):�
ș "Hourglass_On"
file=�file$
&Ȏsvastxt �
0 �0:
:-  �#file,ac$,acn$,transactions%,overdraft
D  dataptr%=0
N  �I=1�transactions%
X   �readdata
b;   �#file,uncl:�#file,day:�#file,mn:�#file,ye:�#file,ar
l(   �#file,code$,desc$,deb(I),cred(I)
v   dataptr%+=40
�  �
�  �#file
�)  �"SetType "+file$+" "+�filetype$,3)
�	 �-1:
�.  �#file,"":�#file,acn$+": "+ac$:�#file,""
�P  �#file,"    Date Code  Description"+�22," ")+"Debit    Credit     Balance"
�  �I=0�transactions%-1
�   temp$=�76," ")
�   dataptr%=40*I
�   �readdata
�   �temp$,(9-�date$))=date$
�   �temp$,11)=code$
�   �temp$,16)=desc$
@   �deb(I+1)>0 �temp2$=�(deb(I+1)):�temp$,54-�temp2$)=temp2$
B   �cred(I+1)>0 �temp2$=�(cred(I+1)):�temp$,64-�temp2$)=temp2$
   temp2$=�(bal(I+1))
 "   �temp$,(76-�temp2$))=temp2$
*   �#file,temp$
4%   percent%=(I/transactions%)*100
>  �
H  �#file,""
R  �#file
\  �"SetType "+file$+" FFF"
f�
pș "Hourglass_Smash"
z�
�
���quicksave
�#filename$=�icontext(handle4%,1)
�5�filename$,".")=0 ��makeerror(�msg0("Err3"),0):�
�$�save(filename$):�getoutofsaving
��
�
���getoutofsaving
�2�closewindow(handle4%):ș "Wimp_CreateMenu",-1
�edited=0
��quitting �exit=�
��
�
��dataload(block%)
ș "Hourglass_On"
�pathname$,type%
$-pathname$=�getstring(block%+44):balance=0
.&�filestype(pathname$)=filetype% �
8< file=�pathname$:�#file,ac$,acn$,transactions%,overdraft
B �transactions%>maxval%�
L-  oldblock%!12=oldblock%!8:oldblock%!16=4
V4  ș "Wimp_SendMessage",17,oldblock%,oldblock%!4
`  �#file
j"  �makeerror(�msg0("Err4"),-1)
t �
~ �I=1�transactions%
�:  uncl=�#file:day=�#file:mn=�#file:ye=�#file:ar=�#file
�'  �#file,code$,desc$,deb(I),cred(I)
�3  balance=balance+cred(I)-deb(I):bal(I)=balance
�  �writedata:dataptr%+=40
�G  percent%=(I/transactions%)*100:ș "Hourglass_Percentage",percent%
� �I
� �#file
�9 �puttext(handle11%,1,ac$):�puttext(handle11%,3,acn$)
� page%=0:�updatestatement
�< loaded=�:�puttext(handle4%,1,pathname$):file$=pathname$
��
�  �makeerror(�msg0("Err5"),0)
�

ș "Hourglass_Smash"
�

(ݤfilestype(f$)
2�type%,obj%
<"ș "OS_File",5,f$ �obj%,,type%
F+�obj%=1 �(type%�&FFF00000)<>&FFF00000 �
P
 type%=-2
Z�
d1 �obj%=1 �type%=(type% � &FFF00)>>8 �type%=-1
n�
x
=type%
�
�ݤgetaddress(wndw%,icn%)
�>!block%=wndw%:block%!4=icn%:ș "Wimp_GetIconState",,block%
�=!(block%+28)
�
�ݤicontext(wndw%,icn%)
�>!block%=wndw%:block%!4=icn%:ș "Wimp_GetIconState",,block%
�=$(block%!28)
�
���puttext(wndw%,icn%,temp$)
�>!block%=wndw%:block%!4=icn%:ș "Wimp_GetIconState",,block%
�I!block%=wndw%:block%!4=icn%:block%!8=0:block%!12=0:$(block%!28)=temp$
�"ș "Wimp_SetIconState",,block%
�

ݤgetstring(temp%)
"temp$=""
,:ȕ(?temp%<>13)�(?temp%<>0):temp$+=�(?temp%):temp%+=1:�
6
=temp$
@
J ݤgetfilefrompathname(temp$)
TȎ�temp$,".")�
^ �0:=temp$
h: :=�getfilefrompathname(�temp$,�(temp$)-�temp$,".")))
r�
|
���pane(temp%)
�>� pane%,main%,width%,height%,ptop:pane%=menu%:main%=block%
�0!pane%=temp%:ș "Wimp_GetWindowState",,pane%
�4width%=pane%!12-pane%!4:height%=pane%!16-pane%!8
�Tptop=(main%!12>pane%!4)*(main%!4<pane%!12)*(main%!16>pane%!8)*(main%!8<pane%!16)
�;�main%!28<>temp% pane%!28=main%!28:�ptop main%!28=temp%
�+pane%!4=main%!4:pane%!12=pane%!4+width%
�8pane%!8=(main%!8)-height%-4:pane%!16=pane%!8+height%
��ptop Ȕmain%,pane%
�;ș "Wimp_OpenWindow",,main%:ș "Wimp_OpenWindow",,pane%
��
�
�M   ----------------------------------------------------------------------

��updatestatement
Abalance=0:�I=0�transactions%:balance=balance+cred(I)-deb(I):�
&��puttext(handle%,21,"�"+�balance):�puttext(handle11%,6,"�"+�balance):�puttext(handle%,22,"�"+�(balance+overdraft)):�puttext(handle11%,8,"�"+�(balance+overdraft))
0`A%=@%:@%=0:temp$=�(page%+1)+"/"+�(((transactions%-1)�10)+1):�puttext(handle%,23,temp$):@%=A%
:�transactions%=0 �
De�(transactions%�10>0 �transactions%�10=page%) �numonthispage%=transactions%�10:�numonthispage%=10
N	A%=@%
X"lastpage%=(transactions%-1)�10
b%�page%>lastpage% �page%=lastpage%
ldataptr%=page%*400
v�I=1�numonthispage%
� temp$=�78," ")
� �readdata
� �temp$,(9-�date$))=date$
�& �temp$,10)=code$:�temp$,16)=desc$
�P �deb(I+(page%*10))>0 �temp2$=�(deb(I+(page%*10))):�temp$,54-�temp2$)=temp2$
�R �cred(I+(page%*10))>0 �temp2$=�(cred(I+(page%*10))):�temp$,64-�temp2$)=temp2$
�  temp2$=�(bal(I+(page%*10)))
�  �temp$,(76-�temp2$))=temp2$
�" �chgcol(�bal(I+(page%*10)),I)
� �puttext(handle%,I,temp$)
� dataptr%+=40
��
�O�numonthispage%<10 ��I=(numonthispage%+1)�10:�puttext(handle%,I,""):�:@%=A%
�

��chgcol(temp%,icn%)
 @!block%=handle%:block%!4=icn%:ș "Wimp_GetIconState",,block%
* ș "Wimp_DeleteIcon",,block%
4�block%!4=block%!8:block%!8=block%!12:block%!12=block%!16:block%!16=block%!20:block%!20=block%!24:block%!24=block%!28:block%!28=block%!32
>Ȏtemp%�
H �-1:block%?23=%00011011
R �0,1:block%?23=%00010111
\�
f%ș "Wimp_CreateIcon",,block%�icn%
p�
z
���createnewac2
��closewindow(handle5%)
�ș "Hourglass_On"
�8ac$=�icontext(handle5%,1):acn$=�icontext(handle5%,3)
�$overdraft$=�icontext(handle5%,5)
�6I%=�overdraft$,"�"):overdraft=�(�overdraft$,I%+1))
�3�ac$="" �acn$="" ��makeerror(�msg0("Err6"),�):�
�(�I=data%�(data%+datamax%-4)�4:!I=0:�
�.�I=0�maxval%:deb(I)=0:cred(I)=0:bal(I)=0:�
�Cpage%=0:transactions%=0:balance=0:loaded=�:pathname$="Accounts"
�8�puttext(handle11%,1,ac$):�puttext(handle11%,3,acn$)
�ș "Hourglass_Smash"
��openwindow(handle%)
�updatestatement
�

$��instrans
.�empty ��endedit:�
8�(�amending)��getdate
B�findpos
L�insert<transactions% �
V �shuffleforwards(insert)
`�
j �creddeb �
t'  cred(insert+1)=0:deb(insert+1)=dp
~ �
�'  deb(insert+1)=0:cred(insert+1)=dp
� �
� transactions%+=1
��
�!dataptr%=insert*40:�writedata
��I=1�transactions%
�# bal(I)=bal(I-1)+cred(I)-deb(I)
��
��endedit
��
�
���insert

�getstuff

�dp=0 �empty=�
�inserting ��
�empty ��endedit:�
(�findpos
2(�(insert<transactions%)�(�amending)�
< �shuffleforwards(insert)
F�
P �creddeb �
Z#  cred(insert)=0:deb(insert)=dp
d �
n#  deb(insert)=0:cred(insert)=dp
x �
��
�dataptr%=(insert*40)
��writedata
��I=1�transactions%
�# bal(I)=bal(I-1)+cred(I)-deb(I)
��
��endedit
��
�
���shuffleforwards(trans%)
�ș "Hourglass_On"
�dataptr%=transactions%*40
� �I=transactions%�(trans%)�-1
 �J=1�40
0  ?(data%+dataptr%+J+40)=?(data%+dataptr%+J)
 �J
" dataptr%-=40
,* cred(I+2)=cred(I+1):deb(I+2)=deb(I+1)
6< percent%=((transactions%-I)/(transactions%-trans%))*100
@' ș "Hourglass_Percentage",percent%
J�I
T�creddeb �
^& cred(trans%+1)=0:deb(trans%+1)=dp
h�
r& deb(trans%+1)=0:cred(trans%+1)=dp
|�
�transactions%+=1
��I=1�transactions%
�# bal(I)=bal(I-1)+cred(I)-deb(I)
��
�ș "Hourglass_Smash"
��
�
���amendtrans
��edited �edited=-1
�$�openwindow(handle7%):amending=�
��
�
�!��amendtrans2(toamend,onpage)
 f�(transactions%�10<>0 �transactions%�10=page%) �numonthispage%=transactions%�10:�numonthispage%=10
 �toamend>numonthispage% ��
 !amend=(onpage*10)+(toamend-1)
 &dataptr%=amend*40
 0
�readdata
 :9E%=@%:@%=&1:d$=�stndrdth(day):�puttext(handle7%,0,d$)
 DC�puttext(handle7%,1,mn$(mn)):�puttext(handle7%,2,�ye+�ar):@%=E%
 N�puttext(handle7%,3,code$)
 X�puttext(handle7%,7,desc$)
 b`�deb(amend+1)=0 ��puttext(handle7%,5,�cred(amend+1)):�puttext(handle7%,4,"Credit"):creddeb=0
 l`�cred(amend+1)=0 ��puttext(handle7%,5,�deb(amend+1)):�puttext(handle7%,4,"Debit"):creddeb=-1
 vA�uncl �puttext(handle7%,17,"no"):��puttext(handle7%,17,"yes")
 �2�setcaret(handle7%,3,�(�icontext(handle7%,3)))
 ��
 �
 ���amendtrans3
 �
�getstuff
 ��dp=0 �empty=�
 ��empty ��endedit
 ��shuffleback(amend)
 �insert=amend:�instrans
 ��endedit
 ��
 �
 �$��deltrans(time,todelete,onpage)
!�edited �edited=-1
!f�(transactions%�10<>0 �transactions%�10=page%) �numonthispage%=transactions%�10:�numonthispage%=10
!/�time=1 �todelete>numonthispage% ��enddel:�
! �openwindow(handle8%)
!*Ȏtime �
!4 �0:deleting=�
!> �1:
!H#  kill=(onpage*10)+(todelete-1)
!R  dataptr%=kill*40
!\  �readdata
!f4  �puttext(handle8%,0,date$+" "+code$+" "+desc$)
!p �2:
!z  �shuffleback(kill)
!�  �updatestatement
!�
  �enddel
!� �3:
!�
  �enddel
!��
!��
!�
!���enddel
!�8deleting=�:�puttext(handle8%,0,"Select transaction")
!�;�closewindow(handle8%):�I=0�3:�enableicon(handle6%,I):�
!��
!�
!���shuffleback(trans%)
"ș "Hourglass_On"
"dataptr%=trans%*40
"�I=trans%�transactions%
"$ �J=0�40
".0  ?(data%+dataptr%+J)=?(data%+dataptr%+J+40)
"8 �J
"B dataptr%+=40
"L* cred(I+1)=cred(I+2):deb(I+1)=deb(I+2)
"V, percent%=(I/(transactions%-trans%))*100
"`' ș "Hourglass_Percentage",percent%
"j�I
"t2cred(transactions%+1)=0:deb(transactions%+1)=0
"~transactions%-=1
"��I=1�transactions%
"�# bal(I)=bal(I-1)+cred(I)-deb(I)
"��
"�ș "Hourglass_Smash"
"��
"�
"�
��endedit
"�"empty=0:inserting=0:amending=0
"��closewindow(handle7%)
"�$�I=0�3:�enableicon(handle6%,I):�
"�K�puttext(handle7%,3,""):�puttext(handle7%,5,""):�puttext(handle7%,7,"")
"�'page%=(insert �10):�updatestatement
#�
#

#��changedetails
#changing=-1
#(2�openwindow(handle5%):�puttext(handle5%,1,ac$)
#2?�puttext(handle5%,3,acn$):�puttext(handle5%,5,�(overdraft))
#<�
#F
#P
��chdtls2
#Z5�closewindow(handle5%):nac$=�icontext(handle5%,1)
#d@nacn$=�icontext(handle5%,3):overdraft$=�icontext(handle5%,5)
#n5I=�overdraft$,"�"):noverdraft=�(�overdraft$,I+1))
#x&�I=1�5�2:�puttext(handle5%,I,""):�
#�@�nac$="" �nacn$="" �changing=0:�makeerror(�msg0("Err6"),0):�
#�,ac$=nac$:acn$=nacn$:overdraft=noverdraft
#�8�puttext(handle11%,1,ac$):�puttext(handle11%,3,acn$)
#�changing=0:�updatestatement
#��
#�
#���checkprinterdriver
#�C�temp%,temp2%:�:��:��:pdriver=�:printer$="Not installed"+�0:�
#�Vș "PDriver_Info" �,,,,temp2%:printer$=�getstring(temp2%):printer$+=�0:pdriver=�:�
#�
#���print
#�ș "Hourglass_On"
#�ș "Wimp_CreateMenu",-1
$print=�("printer:")
$K�#print,"SECURITY WARNING: DO NOT ALLOW OTHERS TO VIEW THIS STATEMENT!"
$/�#print,"":�#print,acn$+": "+ac$:�#print,""
$"O�#print,"    Date Code  Description"+�22," ")+"Debit    Credit     Balance"
$,�I=0�transactions%-1
$6 temp$=�76," ")
$@ dataptr%=40*I
$J �readdata
$T �temp$,(9-�date$))=date$
$^ �temp$,11)=code$
$h �temp$,16)=desc$
$r> �deb(I+1)>0 �temp2$=�(deb(I+1)):�temp$,54-�temp2$)=temp2$
$|@ �cred(I+1)>0 �temp2$=�(cred(I+1)):�temp$,64-�temp2$)=temp2$
$� temp2$=�(bal(I+1))
$�  �temp$,(76-�temp2$))=temp2$
$� �#print,temp$
$�# percent%=(I/transactions%)*100
$�' ș "Hourglass_Percentage",percent%
$��
$��#print,""
$��#print
$�ș "Hourglass_Smash"
$��
$�
$���adjustdate
$�Ȏicn%�
% �10:�date(-1)
% �11:�date(1)
% �12:�getdate:�month(-1)
%& �13:�getdate:�month(1)
%0 �14:�getdate:�year(-1)
%: �15:�getdate:�year(1)
%D�
%N�
%X
%b��date(sid%)
%lB%=@%:@%=&1
%v�getdate
%�Ȏsid%�
%� �1:
%�
  Ȏmnt%�
%�
   �2:
%�    �leap �
%�1     �dt%+1>28 �dt%=1:J=mnt%+1:�dt%+=1:J=mnt%
%�	    �
%�1     �dt%+1>29 �dt%=1:J=mnt%+1:�dt%+=1:J=mnt%
%�	    �
%�8   �4,6,9,11:�dt%+1>30 dt%=1:J=mnt%+1:�dt%+=1:J=mnt%
%�?   �1,3,5,7,8,10,12:�dt%+1>31 dt%=1:J=mnt%+1:�dt%+=1:J=mnt%
%�  �
%�	 �-1:
&
  Ȏmnt%�
&-   �1:�dt%-1<1 dt%=31:J=12:�dt%-=1:J=mnt%
&<   �2,4,6,8,9,11:�dt%-1<1 dt%=31:J=mnt%-1:�dt%-=1:J=mnt%
& 
   �3:
&*    �leap �
&40     �dt%-1<1 dt%=29:J=mnt%-1:�dt%-=1:J=mnt%
&>	    �
&H0     �dt%-1<1 dt%=28:J=mnt%-1:�dt%-=1:J=mnt%
&R	    �
&\9   �5,7,10,12:�dt%-1<1 dt%=30:J=mnt%-1:�dt%-=1:J=mnt%
&f  �
&p�
&z�J<mnt% ��month(-1)
&��J>mnt% ��month(1)
&�'�puttext(handle7%,0,�stndrdth(dt%))
&�	@%=B%
&��
&�
&���month(sid%)
&�Ȏsid%�
&�* �-1:mnt%-=1:�mnt%<1 �year(-1):mnt%=12
&�( �1:mnt%+=1:�mnt%>12 �year(1):mnt%=1
&��
&�"�puttext(handle7%,1,mn$(mnt%))
&�D%=@%:@%=&1
&� �((dt%>mn%(mnt%))�icn%>11) �
' Ȏmnt%�
'	  �2:
'   �leap �dt%=28:�dt%=29
'$*   �puttext(handle7%,0,�stndrdth(dt%))
'.:  �4,6,9,11:dt%=30:�puttext(handle7%,0,�stndrdth(dt%))
'8 �
'B�
'L	@%=D%
'V�
'`
'j��year(sid%)
'tC%=@%:@%=&1
'~year%+=sid%
'��puttext(handle7%,2,�year%)
'��dt%>mn%(mnt%) �
'� Ȏmnt%�
'�	  �2:
'�   �leap �dt%=28:�dt%=29
'�*   �puttext(handle7%,0,�stndrdth(dt%))
'�:  �4,6,9,11:dt%=30:�puttext(handle7%,0,�stndrdth(dt%))
'�  �12,13:mnt%=1
'� �
'��
'�	@%=C%
'��
(
(

ݤleap
(7�((year%�4=0 �year%�100<>0)�(year%�400=0)) �=0:�=-1
(
((ݤstndrdth(jp%)
(2jp$=�jp%
(<
Ȏjp%�
(F �1,21,31:=jp$+"st"
(P �2,22:=jp$+"nd"
(Z �3,23:=jp$+"rd"
(d :=jp$+"th"
(n�
(x
(�
��getdate
(�.date$=�icontext(handle7%,0):dt%=��date$,2)
(� month$=�icontext(handle7%,1)
(�mnt%=1:J=0
(��
(�% �month$=mn$(mnt%) �J=-1:�mnt%+=1
(��mnt%>12 �J
(�,year$=�icontext(handle7%,2):year%=�year$
(��
(�
(�
��cleared
(�fh$=�icontext(handle7%,17)
(�"�fh$="yes"�fh$="no":�fh$="yes"
)�puttext(handle7%,17,fh$)
)�
)
)"��writedata
),I?(data%+dataptr%)=uncl:?(data%+dataptr%+1)=day:?(data%+dataptr%+2)=mn
)61?(data%+dataptr%+3)=ye:?(data%+dataptr%+4)=ar
)@8$(data%+dataptr%+5)=code$:$(data%+dataptr%+10)=desc$
)J�
)T
)^��readdata
)hE%=@%:@%=&1
)rIuncl=?(data%+dataptr%):day=?(data%+dataptr%+1):mn=?(data%+dataptr%+2)
)|1ye=?(data%+dataptr%+3):ar=?(data%+dataptr%+4)
)�1date$=�day+mn$(mn)+�ar:�uncl �date$="U"+date$
)�8code$=$(data%+dataptr%+5):desc$=$(data%+dataptr%+10)
)�	@%=E%
)��
)�
)���getstuff
)�8�getdate:day=dt%:mn=mnt%:ye=��year$,2):ar=��year$,3)
)�2�icontext(handle7%,17)="yes" �uncl=0:�uncl=-1
)�code$=�icontext(handle7%,3)
)�desc$=�icontext(handle7%,7)
)�dp=�(�icontext(handle7%,5))
)�date$=�dt%+mn$(mnt%)+year$
)��
*
*
��findpos
*'insert=-1:K=0:foundit=0:E%=@%:@%=&1
*&Rdataptr%=data%+((transactions%-1)*40):d=?(dataptr%+3):e=?(dataptr%+4):f$=�d+�e
*0+�year$>f$ �insert=transactions%:@%=E%:�
*:�
*DC dataptr%=data%+(K*40):d=?(dataptr%+3):e=?(dataptr%+4):f$=�d+�e
*N- �year$<f$ �insert=-1 �insert=K:foundit=�
*X �f$=year$ �insert=K:�K+=1
*b�insert>-1 �K>transactions%
*l�foundit �@%=E%:�
*vfoundit=0:foundit2=0
*��
*�S dataptr%=data%+(K*40):c=?(dataptr%+2):d=?(dataptr%+3):e=?(dataptr%+4):f$=�d+�e
*�- �f$>year$ �foundit2=�:foundit=�:insert=K
*�5 �K>=transactions% �foundit2=�:foundit=�:insert=K
*�/ �c>=mn �f$=year$ �insert=K:foundit=�:�K+=1
*��foundit
*��foundit2 �@%=E%:�
*�
foundit=0
*��insert<transactions%�
*� �
*�@  dataptr%=data%+(insert*40):b=?(dataptr%+1):c=?(dataptr%+2)
*�.  �((b<day+1)�(c=mn))�insert+=1:�foundit=�
*�' �(foundit)�(insert>=transactions%)
+�
+	@%=E%
+�
�

00000000  0d 00 0a 0e f4 20 21 41  63 63 6f 75 6e 74 0d 00  |..... !Account..|
00000010  14 2e f4 20 62 79 20 41  6c 69 73 64 61 69 72 20  |... by Alisdair |
00000020  4d 69 6c 6c 61 72 64 2c  20 33 31 73 74 20 44 65  |Millard, 31st De|
00000030  63 65 6d 62 65 72 20 31  39 39 33 2e 0d 00 1e 17  |cember 1993.....|
00000040  f4 20 a9 20 41 63 6f 72  6e 20 43 6f 6d 70 75 74  |. . Acorn Comput|
00000050  69 6e 67 0d 00 28 04 0d  00 32 26 ee 85 f2 6d 61  |ing..(...2&...ma|
00000060  6b 65 65 72 72 6f 72 28  a4 6d 73 67 31 28 22 45  |keerror(.msg1("E|
00000070  72 72 37 22 2c c3 9e 29  2c 30 29 3a e0 0d 00 3c  |rr7",..),0):...<|
00000080  04 0d 00 46 15 c8 99 20  22 48 6f 75 72 67 6c 61  |...F... "Hourgla|
00000090  73 73 5f 4f 6e 22 0d 00  50 0f f2 69 6e 69 74 69  |ss_On"..P..initi|
000000a0  61 6c 69 73 65 0d 00 5a  18 c8 99 20 22 48 6f 75  |alise..Z... "Hou|
000000b0  72 67 6c 61 73 73 5f 53  6d 61 73 68 22 0d 00 64  |rglass_Smash"..d|
000000c0  5c e7 28 a7 66 69 6c 65  74 6f 6c 6f 61 64 24 2c  |\.(.filetoload$,|
000000d0  22 3a 22 29 3c 3e 30 29  20 8c 24 28 62 6c 6f 63  |":")<>0) .$(bloc|
000000e0  6b 25 2b 34 34 29 3d 66  69 6c 65 74 6f 6c 6f 61  |k%+44)=filetoloa|
000000f0  64 24 3a f2 64 61 74 61  6c 6f 61 64 28 62 6c 6f  |d$:.dataload(blo|
00000100  63 6b 25 29 3a f2 6f 70  65 6e 77 69 6e 64 6f 77  |ck%):.openwindow|
00000110  28 68 61 6e 64 6c 65 25  29 0d 00 6e 04 0d 00 78  |(handle%)..n...x|
00000120  05 f5 0d 00 82 28 c8 99  20 22 57 69 6d 70 5f 50  |.....(.. "Wimp_P|
00000130  6f 6c 6c 22 2c 2c 62 6c  6f 63 6b 25 b8 72 65 61  |oll",,block%.rea|
00000140  73 6f 6e 25 2c 69 6e 66  6f 25 0d 00 8c 0e c8 8e  |son%,info%......|
00000150  72 65 61 73 6f 6e 25 ca  0d 00 96 16 20 c9 31 3a  |reason%..... .1:|
00000160  f2 72 65 64 72 61 77 28  69 6e 66 6f 25 29 0d 00  |.redraw(info%)..|
00000170  a0 23 20 c9 32 3a c8 99  20 22 57 69 6d 70 5f 4f  |.# .2:.. "Wimp_O|
00000180  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 69 6e 66 6f  |penWindow",,info|
00000190  25 0d 00 aa 0f 20 20 c8  8e 21 69 6e 66 6f 25 ca  |%....  ..!info%.|
000001a0  0d 00 b4 29 20 20 20 c9  68 61 6e 64 6c 65 25 3a  |...)   .handle%:|
000001b0  e7 65 64 69 74 69 6e 67  20 8c f2 70 61 6e 65 28  |.editing ..pane(|
000001c0  68 61 6e 64 6c 65 36 25  29 0d 00 be 07 20 20 cb  |handle6%)....  .|
000001d0  0d 00 c8 24 20 c9 33 3a  c8 99 20 22 57 69 6d 70  |...$ .3:.. "Wimp|
000001e0  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 69  |_CloseWindow",,i|
000001f0  6e 66 6f 25 0d 00 d2 0f  20 20 c8 8e 21 69 6e 66  |nfo%....  ..!inf|
00000200  6f 25 ca 0d 00 dc 30 20  20 20 c9 68 61 6e 64 6c  |o%....0   .handl|
00000210  65 25 3a e7 65 64 69 74  69 6e 67 20 8c f2 63 6c  |e%:.editing ..cl|
00000220  6f 73 65 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |osewindow(handle|
00000230  36 25 29 0d 00 e6 2f 20  20 20 c9 68 61 6e 64 6c  |6%).../   .handl|
00000240  65 34 25 3a e7 77 39 6f  70 65 6e 20 8c f2 6f 70  |e4%:.w9open ..op|
00000250  65 6e 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 34  |enwindow(handle4|
00000260  25 29 0d 00 f0 07 20 20  cb 0d 00 fa 15 20 c9 36  |%)....  ..... .6|
00000270  3a f2 6d 6f 75 73 65 28  69 6e 66 6f 25 29 0d 01  |:.mouse(info%)..|
00000280  04 11 20 c9 37 3a f2 64  72 61 67 67 69 6e 67 0d  |.. .7:.dragging.|
00000290  01 0e 1a 20 c9 38 3a f2  70 72 6f 63 65 73 73 6b  |... .8:.processk|
000002a0  65 79 28 69 6e 66 6f 25  29 0d 01 18 1a 20 c9 39  |ey(info%).... .9|
000002b0  3a f2 68 61 6e 64 6c 65  6d 65 6e 75 28 69 6e 66  |:.handlemenu(inf|
000002c0  6f 25 29 0d 01 22 49 20  c9 31 32 3a e7 21 69 6e  |o%).."I .12:.!in|
000002d0  66 6f 25 3d 68 61 6e 64  6c 65 34 25 20 8c f2 73  |fo%=handle4% ..s|
000002e0  65 74 63 61 72 65 74 28  68 61 6e 64 6c 65 34 25  |etcaret(handle4%|
000002f0  2c 31 2c a9 28 a4 69 63  6f 6e 74 65 78 74 28 68  |,1,.(.icontext(h|
00000300  61 6e 64 6c 65 34 25 2c  31 29 29 29 0d 01 2c 24  |andle4%,1)))..,$|
00000310  20 c9 31 37 2c 31 38 3a  f2 73 65 65 77 68 61 74  | .17,18:.seewhat|
00000320  77 69 6d 70 77 61 6e 74  73 28 69 6e 66 6f 25 29  |wimpwants(info%)|
00000330  0d 01 36 05 cb 0d 01 40  09 fd 65 78 69 74 0d 01  |..6....@..exit..|
00000340  4a 0b f2 66 69 6e 69 73  68 0d 01 54 05 e0 0d 01  |J..finish..T....|
00000350  5e 04 0d 01 68 10 dd f2  69 6e 69 74 69 61 6c 69  |^...h...initiali|
00000360  73 65 0d 01 72 46 c8 99  20 22 57 69 6d 70 5f 49  |se..rF.. "Wimp_I|
00000370  6e 69 74 69 61 6c 69 73  65 22 2c 32 30 30 2c 26  |nitialise",200,&|
00000380  34 42 35 33 34 31 35 34  2c 22 41 63 63 6f 75 6e  |4B534154,"Accoun|
00000390  74 73 22 20 b8 52 69 73  63 4f 53 25 2c 77 69 6d  |ts" .RiscOS%,wim|
000003a0  70 68 61 6e 64 6c 65 25  0d 01 7c 28 c8 99 20 22  |phandle%..|(.. "|
000003b0  57 69 6d 70 5f 43 6c 61  69 6d 49 6e 74 65 72 66  |Wimp_ClaimInterf|
000003c0  61 63 65 22 2c 77 69 6d  70 68 61 6e 64 6c 65 25  |ace",wimphandle%|
000003d0  0d 01 86 19 c8 99 20 22  4f 53 5f 47 65 74 45 6e  |...... "OS_GetEn|
000003e0  76 22 20 b8 70 61 72 61  24 0d 01 90 34 de 62 6c  |v" .para$...4.bl|
000003f0  6f 63 6b 25 32 35 35 2c  6d 65 6e 75 25 32 35 35  |ock%255,menu%255|
00000400  2c 6f 6c 64 62 6c 6f 63  6b 25 32 35 35 2c 6d 6e  |,oldblock%255,mn|
00000410  24 28 31 32 29 2c 6d 6e  25 28 31 33 29 0d 01 9a  |$(12),mn%(13)...|
00000420  3a 66 69 6c 65 74 6f 6c  6f 61 64 24 3d c1 70 61  |:filetoload$=.pa|
00000430  72 61 24 2c 28 a7 70 61  72 61 24 2c 22 2d 61 22  |ra$,(.para$,"-a"|
00000440  29 2b 32 29 29 3a 64 69  72 24 3d 22 3c 41 63 63  |)+2)):dir$="<Acc|
00000450  24 44 69 72 3e 2e 22 0d  01 a4 27 f2 6d 73 67 6c  |$Dir>."...'.msgl|
00000460  6f 61 64 28 64 69 72 24  2b 22 52 65 73 6f 75 72  |oad(dir$+"Resour|
00000470  63 65 73 2e 4d 65 73 73  61 67 65 73 22 29 0d 01  |ces.Messages")..|
00000480  ae 38 6d 61 78 76 61 6c  25 3d bb a4 6d 73 67 30  |.8maxval%=..msg0|
00000490  28 22 4d 61 78 54 72 61  6e 73 22 29 3a 64 61 74  |("MaxTrans"):dat|
000004a0  61 6d 61 78 25 3d 31 30  30 2b 28 6d 61 78 76 61  |amax%=100+(maxva|
000004b0  6c 25 2a 34 30 29 0d 01  b8 3a de 64 61 74 61 25  |l%*40)...:.data%|
000004c0  64 61 74 61 6d 61 78 25  2c 64 65 62 28 6d 61 78  |datamax%,deb(max|
000004d0  76 61 6c 25 29 2c 63 72  65 64 28 6d 61 78 76 61  |val%),cred(maxva|
000004e0  6c 25 29 2c 62 61 6c 28  6d 61 78 76 61 6c 25 29  |l%),bal(maxval%)|
000004f0  0d 01 c2 46 66 69 6c 65  74 79 70 65 25 3d a0 28  |...Ffiletype%=.(|
00000500  a4 6d 73 67 30 28 22 46  69 6c 65 54 79 70 65 22  |.msg0("FileType"|
00000510  29 29 3a 66 69 6c 65 74  79 70 65 24 3d 22 66 69  |)):filetype$="fi|
00000520  6c 65 5f 22 2b a4 6d 73  67 30 28 22 46 69 6c 65  |le_"+.msg0("File|
00000530  54 79 70 65 22 29 0d 01  cc 3d 44 72 67 50 72 65  |Type")...=DrgPre|
00000540  73 25 3d bb a4 72 65 61  64 4f 53 76 61 72 28 22  |s%=..readOSvar("|
00000550  44 72 67 24 50 72 65 73  65 6e 74 22 29 3a ff 20  |Drg$Present"):. |
00000560  22 55 6e 73 65 74 20 44  72 67 24 50 72 65 73 65  |"Unset Drg$Prese|
00000570  6e 74 22 0d 01 d6 28 e3  49 3d 64 61 74 61 25 b8  |nt"...(.I=data%.|
00000580  28 64 61 74 61 25 2b 64  61 74 61 6d 61 78 25 2d  |(data%+datamax%-|
00000590  34 29 88 34 3a 21 49 3d  30 3a ed 0d 01 e0 bb 64  |4).4:!I=0:.....d|
000005a0  61 74 61 70 74 72 25 3d  30 3a 70 61 67 65 25 3d  |ataptr%=0:page%=|
000005b0  30 3a 40 25 3d 26 31 30  32 30 32 30 30 3a 63 6d  |0:@%=&1020200:cm|
000005c0  25 3d 31 3a 65 78 69 74  3d 30 3a 65 64 69 74 65  |%=1:exit=0:edite|
000005d0  64 3d 30 3a 65 64 69 74  69 6e 67 3d 30 3a 64 65  |d=0:editing=0:de|
000005e0  6c 65 74 69 6e 67 3d 30  3a 61 6d 65 6e 64 69 6e  |leting=0:amendin|
000005f0  67 3d 30 3a 69 6e 73 65  72 74 69 6e 67 3d 30 3a  |g=0:inserting=0:|
00000600  71 75 69 74 74 69 6e 67  3d 30 3a 63 68 61 6e 67  |quitting=0:chang|
00000610  69 6e 67 3d 30 3a 6c 6f  61 64 65 64 3d 30 3a 65  |ing=0:loaded=0:e|
00000620  6d 70 74 79 3d 30 3a 63  72 65 64 64 65 62 3d 30  |mpty=0:creddeb=0|
00000630  3a 70 64 72 69 76 65 72  3d 30 3a 69 6e 73 65 72  |:pdriver=0:inser|
00000640  74 3d 30 3a 77 39 6f 70  65 6e 3d 30 3a 73 76 61  |t=0:w9open=0:sva|
00000650  73 74 78 74 3d 30 0d 01  ea 3a 69 62 3d a4 69 62  |stxt=0...:ib=.ib|
00000660  61 72 28 a4 6d 73 67 30  28 22 49 63 6f 6e 42 61  |ar(.msg0("IconBa|
00000670  72 22 29 29 3a 70 72 69  6e 74 65 72 24 3d 22 4e  |r")):printer$="N|
00000680  6f 74 20 69 6e 73 74 61  6c 6c 65 64 22 2b bd 30  |ot installed"+.0|
00000690  0d 01 f4 38 69 77 61 6e  74 66 6f 6e 74 73 3d 2d  |...8iwantfonts=-|
000006a0  bb a4 6d 73 67 30 28 22  55 73 65 46 6f 6e 74 73  |..msg0("UseFonts|
000006b0  22 29 3a e7 69 77 61 6e  74 66 6f 6e 74 73 20 8c  |"):.iwantfonts .|
000006c0  f2 67 65 74 66 6f 6e 74  0d 01 fe 1e f2 6c 6f 61  |.getfont.....loa|
000006d0  64 73 70 72 69 74 65 73  3a f2 6f 70 65 6e 74 65  |dsprites:.opente|
000006e0  6d 70 6c 61 74 65 0d 02  08 0e 41 25 3d 40 25 3a  |mplate....A%=@%:|
000006f0  40 25 3d 31 0d 02 12 26  e3 49 3d 31 b8 31 32 3a  |@%=1...&.I=1.12:|
00000700  6d 6e 24 28 49 29 3d a4  6d 73 67 30 28 22 4d 6f  |mn$(I)=.msg0("Mo|
00000710  6e 74 68 22 2b c3 49 29  3a ed 0d 02 1c 20 74 65  |nth"+.I):.... te|
00000720  6d 70 24 3d a4 72 65 61  64 4f 53 76 61 72 28 22  |mp$=.readOSvar("|
00000730  53 79 73 24 44 61 74 65  22 29 0d 02 26 49 49 3d  |Sys$Date")..&II=|
00000740  a7 74 65 6d 70 24 2c 22  2c 22 29 3a 64 61 74 65  |.temp$,","):date|
00000750  24 3d c1 74 65 6d 70 24  2c 49 2b 31 2c 32 29 3a  |$=.temp$,I+1,2):|
00000760  64 61 74 65 25 3d bb 64  61 74 65 24 3a 64 61 74  |date%=.date$:dat|
00000770  65 24 3d a4 73 74 6e 64  72 64 74 68 28 64 61 74  |e$=.stndrdth(dat|
00000780  65 25 29 0d 02 30 24 49  3d a7 74 65 6d 70 24 2c  |e%)..0$I=.temp$,|
00000790  22 20 22 29 3a 6d 6e 74  24 3d c1 74 65 6d 70 24  |" "):mnt$=.temp$|
000007a0  2c 49 2b 31 2c 33 29 0d  02 3a 1e 79 72 24 3d a4  |,I+1,3)..:.yr$=.|
000007b0  72 65 61 64 4f 53 76 61  72 28 22 53 79 73 24 59  |readOSvar("Sys$Y|
000007c0  65 61 72 22 29 0d 02 44  51 f2 70 75 74 74 65 78  |ear")..DQ.puttex|
000007d0  74 28 68 61 6e 64 6c 65  37 25 2c 30 2c 64 61 74  |t(handle7%,0,dat|
000007e0  65 24 29 3a f2 70 75 74  74 65 78 74 28 68 61 6e  |e$):.puttext(han|
000007f0  64 6c 65 37 25 2c 31 2c  6d 6e 74 24 29 3a f2 70  |dle7%,1,mnt$):.p|
00000800  75 74 74 65 78 74 28 68  61 6e 64 6c 65 37 25 2c  |uttext(handle7%,|
00000810  32 2c 79 72 24 29 0d 02  4e 09 40 25 3d 41 25 0d  |2,yr$)..N.@%=A%.|
00000820  02 58 31 6d 61 78 63 6f  64 65 25 3d bb a4 6d 73  |.X1maxcode%=..ms|
00000830  67 30 28 22 4d 61 78 43  6f 64 65 73 22 29 3a de  |g0("MaxCodes"):.|
00000840  63 6f 64 65 73 24 28 6d  61 78 63 6f 64 65 25 29  |codes$(maxcode%)|
00000850  0d 02 62 20 74 65 6d 70  24 3d a4 6d 73 67 30 28  |..b temp$=.msg0(|
00000860  22 43 6f 64 65 73 22 29  3a 49 3d 30 3a 4a 3d 31  |"Codes"):I=0:J=1|
00000870  0d 02 6c 05 f5 0d 02 76  1c 20 74 65 6d 70 25 3d  |..l....v. temp%=|
00000880  97 c1 74 65 6d 70 24 2c  4a 2c 31 29 3a 4a 2b 3d  |..temp$,J,1):J+=|
00000890  31 0d 02 80 38 20 e7 28  74 65 6d 70 25 3d 97 22  |1...8 .(temp%=."|
000008a0  2e 22 29 84 28 4a 3e a9  74 65 6d 70 24 2b 31 29  |.").(J>.temp$+1)|
000008b0  20 8c 49 2b 3d 31 3a 8b  63 6f 64 65 73 24 28 49  | .I+=1:.codes$(I|
000008c0  29 2b 3d bd 74 65 6d 70  25 0d 02 8a 0f fd 49 3d  |)+=.temp%.....I=|
000008d0  6d 61 78 63 6f 64 65 25  0d 02 94 2d e3 49 3d 30  |maxcode%...-.I=0|
000008e0  b8 6d 61 78 63 6f 64 65  25 2d 31 3a 63 6f 64 65  |.maxcode%-1:code|
000008f0  73 24 28 49 29 3d c0 63  6f 64 65 73 24 28 49 29  |s$(I)=.codes$(I)|
00000900  2c 33 29 3a ed 0d 02 9e  11 ff 20 22 50 6f 69 6e  |,3):...... "Poin|
00000910  74 65 72 20 31 22 0d 02  a8 05 e1 0d 02 b2 04 0d  |ter 1"..........|
00000920  02 bc 16 dd a4 72 65 61  64 4f 53 76 61 72 28 74  |.....readOSvar(t|
00000930  65 6d 70 24 29 0d 02 c6  48 24 62 6c 6f 63 6b 25  |emp$)...H$block%|
00000940  3d 74 65 6d 70 24 2b bd  30 3a c8 99 20 22 4f 53  |=temp$+.0:.. "OS|
00000950  5f 52 65 61 64 56 61 72  56 61 6c 22 2c 62 6c 6f  |_ReadVarVal",blo|
00000960  63 6b 25 2c 6f 6c 64 62  6c 6f 63 6b 25 2c 32 35  |ck%,oldblock%,25|
00000970  35 2c 30 2c 30 20 b8 2c  2c 6c 65 6e 25 0d 02 d0  |5,0,0 .,,len%...|
00000980  21 6f 6c 64 62 6c 6f 63  6b 25 3f 6c 65 6e 25 3d  |!oldblock%?len%=|
00000990  31 33 3a 3d 24 6f 6c 64  62 6c 6f 63 6b 25 0d 02  |13:=$oldblock%..|
000009a0  da 04 0d 02 e4 14 dd f2  6d 73 67 6c 6f 61 64 28  |........msgload(|
000009b0  6e 61 6d 65 24 29 0d 02  ee 06 ea 85 0d 02 f8 0f  |name$)..........|
000009c0  ee 85 ea f7 85 3a 85 33  2c f6 24 0d 03 02 25 c8  |.....:.3,.$...%.|
000009d0  99 20 22 4d 65 73 73 61  67 65 54 72 61 6e 73 5f  |. "MessageTrans_|
000009e0  46 69 6c 65 49 6e 66 6f  22 2c 2c 6e 61 6d 65 24  |FileInfo",,name$|
000009f0  0d 03 0c 10 de 6d 73 67  74 65 78 74 25 32 35 36  |.....msgtext%256|
00000a00  0d 03 16 2c c8 99 22 4f  53 5f 4d 6f 64 75 6c 65  |...,.."OS_Module|
00000a10  22 2c 36 2c 2c 2c 31 37  2b a9 28 6e 61 6d 65 24  |",6,,,17+.(name$|
00000a20  29 b8 2c 2c 6d 73 67 64  65 73 63 25 0d 03 20 47  |).,,msgdesc%.. G|
00000a30  24 28 6d 73 67 64 65 73  63 25 2b 31 36 29 3d 6e  |$(msgdesc%+16)=n|
00000a40  61 6d 65 24 3a c8 99 22  4d 65 73 73 61 67 65 54  |ame$:.."MessageT|
00000a50  72 61 6e 73 5f 4f 70 65  6e 46 69 6c 65 22 2c 6d  |rans_OpenFile",m|
00000a60  73 67 64 65 73 63 25 2c  6d 73 67 64 65 73 63 25  |sgdesc%,msgdesc%|
00000a70  2b 31 36 0d 03 2a 05 e1  0d 03 34 04 0d 03 3e 10  |+16..*....4...>.|
00000a80  dd a4 6d 73 67 30 28 74  61 67 24 29 0d 03 48 16  |..msg0(tag$)..H.|
00000a90  3d a4 6d 73 67 32 28 74  61 67 24 2c 22 22 2c 22  |=.msg2(tag$,"","|
00000aa0  22 29 0d 03 52 04 0d 03  5c 16 dd a4 6d 73 67 31  |")..R...\...msg1|
00000ab0  28 74 61 67 24 2c 61 72  67 31 24 29 0d 03 66 19  |(tag$,arg1$)..f.|
00000ac0  3d a4 6d 73 67 32 28 74  61 67 24 2c 61 72 67 31  |=.msg2(tag$,arg1|
00000ad0  24 2c 22 22 29 0d 03 70  04 0d 03 7a 1c dd a4 6d  |$,"")..p...z...m|
00000ae0  73 67 32 28 74 61 67 24  2c 61 72 67 31 24 2c 61  |sg2(tag$,arg1$,a|
00000af0  72 67 32 24 29 0d 03 84  0c ea 46 25 2c 6c 65 6e  |rg2$).....F%,len|
00000b00  25 0d 03 8e 4e c8 99 22  58 4d 65 73 73 61 67 65  |%...N.."XMessage|
00000b10  54 72 61 6e 73 5f 4c 6f  6f 6b 75 70 22 2c 6d 73  |Trans_Lookup",ms|
00000b20  67 64 65 73 63 25 2c 74  61 67 24 2c 6d 73 67 74  |gdesc%,tag$,msgt|
00000b30  65 78 74 25 2c 32 35 36  2c 61 72 67 31 24 2c 61  |ext%,256,arg1$,a|
00000b40  72 67 32 24 b8 2c 2c 2c  6c 65 6e 25 3b 46 25 0d  |rg2$.,,,len%;F%.|
00000b50  03 98 11 e7 46 25 80 20  31 8c 6c 65 6e 25 3d 30  |....F%. 1.len%=0|
00000b60  0d 03 a2 1f 6d 73 67 74  65 78 74 25 3f 6c 65 6e  |....msgtext%?len|
00000b70  25 3d 31 33 3a 3d 24 6d  73 67 74 65 78 74 25 0d  |%=13:=$msgtext%.|
00000b80  03 ac 04 0d 03 b6 11 dd  a4 69 62 61 72 28 74 65  |.........ibar(te|
00000b90  6d 70 24 29 0d 03 c0 3e  21 62 6c 6f 63 6b 25 3d  |mp$)...>!block%=|
00000ba0  2d 31 3a 62 6c 6f 63 6b  25 21 34 3d 30 3a 62 6c  |-1:block%!4=0:bl|
00000bb0  6f 63 6b 25 21 38 3d 30  3a 62 6c 6f 63 6b 25 21  |ock%!8=0:block%!|
00000bc0  31 32 3d 36 38 3a 62 6c  6f 63 6b 25 21 31 36 3d  |12=68:block%!16=|
00000bd0  36 38 0d 03 ca 48 62 6c  6f 63 6b 25 21 32 30 3d  |68...Hblock%!20=|
00000be0  26 33 30 30 32 3a 24 28  62 6c 6f 63 6b 25 2b 32  |&3002:$(block%+2|
00000bf0  34 29 3d 74 65 6d 70 24  3a c8 99 20 22 57 69 6d  |4)=temp$:.. "Wim|
00000c00  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 62  |p_CreateIcon",,b|
00000c10  6c 6f 63 6b 25 b8 69 63  6e 25 0d 03 d4 09 3d 69  |lock%.icn%....=i|
00000c20  63 6e 25 0d 03 de 04 0d  03 e8 12 dd f2 6f 70 65  |cn%..........ope|
00000c30  6e 74 65 6d 70 6c 61 74  65 0d 03 f2 12 c8 8e 69  |ntemplate......i|
00000c40  77 61 6e 74 66 6f 6e 74  73 20 ca 0d 03 fc 3a 20  |wantfonts ....: |
00000c50  c9 30 3a c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.0:.. "Wimp_Open|
00000c60  54 65 6d 70 6c 61 74 65  22 2c 2c 64 69 72 24 2b  |Template",,dir$+|
00000c70  22 52 65 73 6f 75 72 63  65 73 2e 54 65 6d 70 6c  |"Resources.Templ|
00000c80  61 74 65 73 22 0d 04 06  1f 20 20 69 53 3d 32 35  |ates"....  iS=25|
00000c90  35 30 3a 66 6f 6e 74 73  25 3d 2d 31 3a de 62 25  |50:fonts%=-1:.b%|
00000ca0  31 31 32 36 0d 04 10 3c  20 c9 2d 31 3a c8 99 20  |1126...< .-1:.. |
00000cb0  22 57 69 6d 70 5f 4f 70  65 6e 54 65 6d 70 6c 61  |"Wimp_OpenTempla|
00000cc0  74 65 22 2c 2c 64 69 72  24 2b 22 52 65 73 6f 75  |te",,dir$+"Resou|
00000cd0  72 63 65 73 2e 54 65 6d  70 6c 61 74 65 73 32 22  |rces.Templates2"|
00000ce0  0d 04 1a 37 20 20 69 53  3d 32 39 35 30 3a de 62  |...7  iS=2950:.b|
00000cf0  25 31 31 36 36 2c 66 6f  6e 74 73 25 32 35 35 3a  |%1166,fonts%255:|
00000d00  e3 49 3d 30 b8 32 35 35  88 34 3a 66 6f 6e 74 73  |.I=0.255.4:fonts|
00000d10  25 21 49 3d 30 3a ed 0d  04 24 05 cb 0d 04 2e 0e  |%!I=0:...$......|
00000d20  de 69 20 69 53 2c 6e 25  31 32 0d 04 38 0e 69 70  |.i iS,n%12..8.ip|
00000d30  3d 69 3a 70 74 72 3d 30  0d 04 42 0d f5 3a 24 6e  |=i:ptr=0..B..:$n|
00000d40  25 3d 22 2a 22 0d 04 4c  43 c8 99 20 22 57 69 6d  |%="*"..LC.. "Wim|
00000d50  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000d60  2c 62 25 2c 69 70 2c 69  2b 69 53 2c 66 6f 6e 74  |,b%,ip,i+iS,font|
00000d70  73 25 2c 6e 25 2c 70 74  72 20 b8 2c 2c 69 70 2c  |s%,n%,ptr .,,ip,|
00000d80  2c 2c 6e 25 2c 70 74 72  0d 04 56 19 62 25 21 36  |,,n%,ptr..V.b%!6|
00000d90  34 3d 73 70 72 69 74 65  73 25 3a c8 8e 24 6e 25  |4=sprites%:..$n%|
00000da0  ca 0d 04 60 26 20 c9 22  6d 61 69 6e 22 3a 68 61  |...`& ."main":ha|
00000db0  6e 64 6c 65 25 3d a4 63  72 65 61 74 65 77 69 6e  |ndle%=.createwin|
00000dc0  64 6f 77 28 62 25 29 0d  04 6a 27 20 c9 22 69 6e  |dow(b%)..j' ."in|
00000dd0  66 6f 22 3a 68 61 6e 64  6c 65 32 25 3d a4 63 72  |fo":handle2%=.cr|
00000de0  65 61 74 65 77 69 6e 64  6f 77 28 62 25 29 0d 04  |eatewindow(b%)..|
00000df0  74 29 20 c9 22 63 72 65  64 69 74 22 3a 68 61 6e  |t) ."credit":han|
00000e00  64 6c 65 33 25 3d a4 63  72 65 61 74 65 77 69 6e  |dle3%=.createwin|
00000e10  64 6f 77 28 62 25 29 0d  04 7e 46 20 c9 22 73 61  |dow(b%)..~F ."sa|
00000e20  76 65 22 3a 68 61 6e 64  6c 65 34 25 3d a4 63 72  |ve":handle4%=.cr|
00000e30  65 61 74 65 77 69 6e 64  6f 77 28 62 25 29 3a f2  |eatewindow(b%):.|
00000e40  70 75 74 74 65 78 74 28  68 61 6e 64 6c 65 34 25  |puttext(handle4%|
00000e50  2c 30 2c 66 69 6c 65 74  79 70 65 24 29 0d 04 88  |,0,filetype$)...|
00000e60  29 20 c9 22 63 72 65 61  74 65 22 3a 68 61 6e 64  |) ."create":hand|
00000e70  6c 65 35 25 3d a4 63 72  65 61 74 65 77 69 6e 64  |le5%=.createwind|
00000e80  6f 77 28 62 25 29 0d 04  92 27 20 c9 22 65 64 69  |ow(b%)...' ."edi|
00000e90  74 22 3a 68 61 6e 64 6c  65 36 25 3d a4 63 72 65  |t":handle6%=.cre|
00000ea0  61 74 65 77 69 6e 64 6f  77 28 62 25 29 0d 04 9c  |atewindow(b%)...|
00000eb0  26 20 c9 22 61 64 69 22  3a 68 61 6e 64 6c 65 37  |& ."adi":handle7|
00000ec0  25 3d a4 63 72 65 61 74  65 77 69 6e 64 6f 77 28  |%=.createwindow(|
00000ed0  62 25 29 0d 04 a6 29 20  c9 22 64 65 6c 65 74 65  |b%)...) ."delete|
00000ee0  22 3a 68 61 6e 64 6c 65  38 25 3d a4 63 72 65 61  |":handle8%=.crea|
00000ef0  74 65 77 69 6e 64 6f 77  28 62 25 29 0d 04 b0 2b  |tewindow(b%)...+|
00000f00  20 c9 22 71 75 69 74 73  61 76 65 22 3a 68 61 6e  | ."quitsave":han|
00000f10  64 6c 65 39 25 3d a4 63  72 65 61 74 65 77 69 6e  |dle9%=.createwin|
00000f20  64 6f 77 28 62 25 29 0d  04 ba 29 20 c9 22 70 72  |dow(b%)...) ."pr|
00000f30  69 6e 74 22 3a 68 61 6e  64 6c 65 31 30 25 3d a4  |int":handle10%=.|
00000f40  63 72 65 61 74 65 77 69  6e 64 6f 77 28 62 25 29  |createwindow(b%)|
00000f50  0d 04 c4 2b 20 c9 22 73  75 6d 6d 61 72 79 22 3a  |...+ ."summary":|
00000f60  68 61 6e 64 6c 65 31 31  25 3d a4 63 72 65 61 74  |handle11%=.creat|
00000f70  65 77 69 6e 64 6f 77 28  62 25 29 0d 04 ce 05 cb  |ewindow(b%).....|
00000f80  0d 04 d8 0a fd 70 74 72  3d 30 0d 04 e2 1b c8 99  |.....ptr=0......|
00000f90  20 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  | "Wimp_CloseTemp|
00000fa0  6c 61 74 65 22 0d 04 ec  05 e1 0d 04 f6 04 0d 05  |late"...........|
00000fb0  00 11 dd f2 6c 6f 61 64  73 70 72 69 74 65 73 0d  |....loadsprites.|
00000fc0  05 0a 3f 74 65 6d 70 25  3d 8e 28 64 69 72 24 2b  |..?temp%=.(dir$+|
00000fd0  22 52 65 73 6f 75 72 63  65 73 2e 53 70 72 69 74  |"Resources.Sprit|
00000fe0  65 73 22 29 3a 61 6d 6f  75 6e 74 3d a2 23 74 65  |es"):amount=.#te|
00000ff0  6d 70 25 2b 31 36 3a d9  23 74 65 6d 70 25 0d 05  |mp%+16:.#temp%..|
00001000  14 14 de 20 73 70 72 69  74 65 73 25 61 6d 6f 75  |... sprites%amou|
00001010  6e 74 0d 05 1e 40 21 73  70 72 69 74 65 73 25 3d  |nt...@!sprites%=|
00001020  61 6d 6f 75 6e 74 3a 73  70 72 69 74 65 73 25 21  |amount:sprites%!|
00001030  38 3d 30 3a c8 99 20 22  4f 53 5f 53 70 72 69 74  |8=0:.. "OS_Sprit|
00001040  65 4f 70 22 2c 26 31 30  39 2c 73 70 72 69 74 65  |eOp",&109,sprite|
00001050  73 25 0d 05 28 3b c8 99  20 22 4f 53 5f 53 70 72  |s%..(;.. "OS_Spr|
00001060  69 74 65 4f 70 22 2c 26  31 30 41 2c 73 70 72 69  |iteOp",&10A,spri|
00001070  74 65 73 25 2c 64 69 72  24 2b 22 52 65 73 6f 75  |tes%,dir$+"Resou|
00001080  72 63 65 73 2e 53 70 72  69 74 65 73 22 0d 05 32  |rces.Sprites"..2|
00001090  05 e1 0d 05 3c 04 0d 05  46 19 dd a4 67 65 74 68  |....<...F...geth|
000010a0  65 6c 70 28 77 6e 64 77  25 2c 69 63 6e 25 29 0d  |elp(wndw%,icn%).|
000010b0  05 50 0c c8 8e 77 6e 64  77 25 ca 0d 05 5a 0e 20  |.P...wndw%...Z. |
000010c0  c9 2d 32 3a 3d 22 48 31  22 0d 05 64 0e 20 c9 68  |.-2:="H1"..d. .h|
000010d0  61 6e 64 6c 65 25 3a 0d  05 6e 0d 20 20 c8 8e 69  |andle%:..n.  ..i|
000010e0  63 6e 25 ca 0d 05 78 22  20 20 20 c9 31 2c 32 2c  |cn%...x"   .1,2,|
000010f0  33 2c 34 2c 35 2c 36 2c  37 2c 38 2c 39 2c 31 30  |3,4,5,6,7,8,9,10|
00001100  3a 3d 22 48 32 22 0d 05  82 10 20 20 20 c9 31 31  |:="H2"....   .11|
00001110  3a 3d 22 48 33 22 0d 05  8c 10 20 20 20 c9 31 32  |:="H3"....   .12|
00001120  3a 3d 22 48 34 22 0d 05  96 10 20 20 20 c9 31 35  |:="H4"....   .15|
00001130  3a 3d 22 48 39 22 0d 05  a0 11 20 20 20 c9 31 38  |:="H9"....   .18|
00001140  3a 3d 22 48 31 31 22 0d  05 aa 12 20 20 20 c9 31  |:="H11"....   .1|
00001150  39 3a 3d 22 48 31 31 61  22 0d 05 b4 10 20 20 20  |9:="H11a"....   |
00001160  c9 32 31 3a 3d 22 48 36  22 0d 05 be 10 20 20 20  |.21:="H6"....   |
00001170  c9 32 32 3a 3d 22 48 37  22 0d 05 c8 11 20 20 20  |.22:="H7"....   |
00001180  c9 32 33 3a 3d 22 48 31  30 22 0d 05 d2 12 20 20  |.23:="H10"....  |
00001190  20 c9 32 34 3a 3d 22 48  31 31 62 22 0d 05 dc 0f  | .24:="H11b"....|
000011a0  20 20 20 7f 3a 3d 22 48  31 32 22 0d 05 e6 07 20  |   .:="H12".... |
000011b0  20 cb 0d 05 f0 15 20 c9  68 61 6e 64 6c 65 32 25  | ..... .handle2%|
000011c0  3a 3d 22 48 31 33 22 0d  05 fa 15 20 c9 68 61 6e  |:="H13".... .han|
000011d0  64 6c 65 33 25 3a 3d 22  48 31 34 22 0d 06 04 15  |dle3%:="H14"....|
000011e0  20 c9 68 61 6e 64 6c 65  34 25 3a 3d 22 48 31 35  | .handle4%:="H15|
000011f0  22 0d 06 0e 0f 20 c9 68  61 6e 64 6c 65 35 25 3a  |".... .handle5%:|
00001200  0d 06 18 0d 20 20 c8 8e  69 63 6e 25 ca 0d 06 22  |....  ..icn%..."|
00001210  10 20 20 20 c9 31 3a 3d  22 48 31 36 22 0d 06 2c  |.   .1:="H16"..,|
00001220  10 20 20 20 c9 33 3a 3d  22 48 31 37 22 0d 06 36  |.   .3:="H17"..6|
00001230  10 20 20 20 c9 35 3a 3d  22 48 31 38 22 0d 06 40  |.   .5:="H18"..@|
00001240  10 20 20 20 c9 37 3a 3d  22 48 31 39 22 0d 06 4a  |.   .7:="H19"..J|
00001250  0f 20 20 20 7f 3a 3d 22  48 32 30 22 0d 06 54 07  |.   .:="H20"..T.|
00001260  20 20 cb 0d 06 5e 0f 20  c9 68 61 6e 64 6c 65 36  |  ...^. .handle6|
00001270  25 3a 0d 06 68 0d 20 20  c8 8e 69 63 6e 25 ca 0d  |%:..h.  ..icn%..|
00001280  06 72 1e 20 20 20 c9 30  3a 3d 22 48 32 31 3a 61  |.r.   .0:="H21:a|
00001290  64 64 20 6f 72 20 69 6e  73 65 72 74 22 0d 06 7c  |dd or insert"..||
000012a0  17 20 20 20 c9 31 3a 3d  22 48 32 31 3a 64 65 6c  |.   .1:="H21:del|
000012b0  65 74 65 22 0d 06 86 16  20 20 20 c9 32 3a 3d 22  |ete"....   .2:="|
000012c0  48 32 31 3a 61 6d 65 6e  64 22 0d 06 90 10 20 20  |H21:amend"....  |
000012d0  20 c9 33 3a 3d 22 48 32  32 22 0d 06 9a 0f 20 20  | .3:="H22"....  |
000012e0  20 7f 3a 3d 22 48 32 34  22 0d 06 a4 07 20 20 cb  | .:="H24"....  .|
000012f0  0d 06 ae 0f 20 c9 68 61  6e 64 6c 65 37 25 3a 0d  |.... .handle7%:.|
00001300  06 b8 0d 20 20 c8 8e 69  63 6e 25 ca 0d 06 c2 10  |...  ..icn%.....|
00001310  20 20 20 c9 30 3a 3d 22  48 32 35 22 0d 06 cc 10  |   .0:="H25"....|
00001320  20 20 20 c9 31 3a 3d 22  48 32 36 22 0d 06 d6 10  |   .1:="H26"....|
00001330  20 20 20 c9 32 3a 3d 22  48 32 37 22 0d 06 e0 10  |   .2:="H27"....|
00001340  20 20 20 c9 33 3a 3d 22  48 32 38 22 0d 06 ea 10  |   .3:="H28"....|
00001350  20 20 20 c9 34 3a 3d 22  48 32 39 22 0d 06 f4 10  |   .4:="H29"....|
00001360  20 20 20 c9 35 3a 3d 22  48 33 30 22 0d 06 fe 10  |   .5:="H30"....|
00001370  20 20 20 c9 37 3a 3d 22  48 33 31 22 0d 07 08 10  |   .7:="H31"....|
00001380  20 20 20 c9 38 3a 3d 22  48 32 32 22 0d 07 12 10  |   .8:="H22"....|
00001390  20 20 20 c9 39 3a 3d 22  48 32 33 22 0d 07 1c 16  |   .9:="H23"....|
000013a0  20 20 20 c9 31 30 3a 3d  22 48 33 32 3a 64 61 74  |   .10:="H32:dat|
000013b0  65 22 0d 07 26 16 20 20  20 c9 31 31 3a 3d 22 48  |e"..&.   .11:="H|
000013c0  33 33 3a 64 61 74 65 22  0d 07 30 17 20 20 20 c9  |33:date"..0.   .|
000013d0  31 32 3a 3d 22 48 33 32  3a 6d 6f 6e 74 68 22 0d  |12:="H32:month".|
000013e0  07 3a 17 20 20 20 c9 31  33 3a 3d 22 48 33 33 3a  |.:.   .13:="H33:|
000013f0  6d 6f 6e 74 68 22 0d 07  44 16 20 20 20 c9 31 34  |month"..D.   .14|
00001400  3a 3d 22 48 33 32 3a 79  65 61 72 22 0d 07 4e 16  |:="H32:year"..N.|
00001410  20 20 20 c9 31 35 3a 3d  22 48 33 33 3a 79 65 61  |   .15:="H33:yea|
00001420  72 22 0d 07 58 11 20 20  20 c9 31 37 3a 3d 22 48  |r"..X.   .17:="H|
00001430  33 34 22 0d 07 62 2e 20  20 20 7f 3a e7 61 6d 65  |34"..b.   .:.ame|
00001440  6e 64 69 6e 67 20 8c 3d  22 48 33 35 22 3a 8b e7  |nding .="H35":..|
00001450  69 6e 73 65 72 74 69 6e  67 20 8c 3d 22 48 33 36  |inserting .="H36|
00001460  22 0d 07 6c 07 20 20 cb  0d 07 76 0f 20 c9 68 61  |"..l.  ...v. .ha|
00001470  6e 64 6c 65 38 25 3a 0d  07 80 0d 20 20 c8 8e 69  |ndle8%:....  ..i|
00001480  63 6e 25 ca 0d 07 8a 10  20 20 20 c9 31 3a 3d 22  |cn%.....   .1:="|
00001490  48 33 37 22 0d 07 94 10  20 20 20 c9 32 3a 3d 22  |H37"....   .2:="|
000014a0  48 32 33 22 0d 07 9e 0f  20 20 20 7f 3a 3d 22 48  |H23"....   .:="H|
000014b0  33 38 22 0d 07 a8 07 20  20 cb 0d 07 b2 0f 20 c9  |38"....  ..... .|
000014c0  68 61 6e 64 6c 65 39 25  3a 0d 07 bc 0d 20 20 c8  |handle9%:....  .|
000014d0  8e 69 63 6e 25 ca 0d 07  c6 10 20 20 20 c9 31 3a  |.icn%.....   .1:|
000014e0  3d 22 48 33 39 22 0d 07  d0 10 20 20 20 c9 32 3a  |="H39"....   .2:|
000014f0  3d 22 48 34 30 22 0d 07  da 10 20 20 20 c9 33 3a  |="H40"....   .3:|
00001500  3d 22 48 34 31 22 0d 07  e4 0f 20 20 20 7f 3a 3d  |="H41"....   .:=|
00001510  22 48 34 32 22 0d 07 ee  07 20 20 cb 0d 07 f8 10  |"H42"....  .....|
00001520  20 c9 68 61 6e 64 6c 65  31 30 25 3a 0d 08 02 0d  | .handle10%:....|
00001530  20 20 c8 8e 69 63 6e 25  ca 0d 08 0c 10 20 20 20  |  ..icn%.....   |
00001540  c9 31 3a 3d 22 48 34 33  22 0d 08 16 10 20 20 20  |.1:="H43"....   |
00001550  c9 32 3a 3d 22 48 34 34  22 0d 08 20 0f 20 20 20  |.2:="H44".. .   |
00001560  7f 3a 3d 22 48 34 35 22  0d 08 2a 07 20 20 cb 0d  |.:="H45"..*.  ..|
00001570  08 34 10 20 c9 68 61 6e  64 6c 65 31 31 25 3a 0d  |.4. .handle11%:.|
00001580  08 3e 0d 20 20 c8 8e 69  63 6e 25 ca 0d 08 48 0f  |.>.  ..icn%...H.|
00001590  20 20 20 c9 31 3a 3d 22  48 35 22 0d 08 52 0f 20  |   .1:="H5"..R. |
000015a0  20 20 c9 33 3a 3d 22 48  38 22 0d 08 5c 0f 20 20  |  .3:="H8"..\.  |
000015b0  20 c9 36 3a 3d 22 48 36  22 0d 08 66 0f 20 20 20  | .6:="H6"..f.   |
000015c0  c9 38 3a 3d 22 48 37 22  0d 08 70 0f 20 20 20 7f  |.8:="H7"..p.   .|
000015d0  3a 3d 22 48 34 36 22 0d  08 7a 07 20 20 cb 0d 08  |:="H46"..z.  ...|
000015e0  84 05 cb 0d 08 8e 07 3d  22 22 0d 08 98 04 0d 08  |.......=""......|
000015f0  a2 15 dd f2 73 65 6e 64  68 65 6c 70 28 74 65 6d  |....sendhelp(tem|
00001600  70 24 29 0d 08 ac 44 62  6c 6f 63 6b 25 21 31 32  |p$)...Dblock%!12|
00001610  3d 62 6c 6f 63 6b 25 21  38 3a 62 6c 6f 63 6b 25  |=block%!8:block%|
00001620  21 31 36 3d 26 35 30 33  3a 24 28 62 6c 6f 63 6b  |!16=&503:$(block|
00001630  25 2b 32 30 29 3d 74 65  6d 70 24 2b bd 30 2b bd  |%+20)=temp$+.0+.|
00001640  30 2b bd 30 2b bd 30 0d  08 b6 48 21 62 6c 6f 63  |0+.0+.0...H!bloc|
00001650  6b 25 3d 28 32 30 2b 28  a9 74 65 6d 70 24 81 34  |k%=(20+(.temp$.4|
00001660  29 2a 34 2b 34 29 3a c8  99 20 22 57 69 6d 70 5f  |)*4+4):.. "Wimp_|
00001670  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00001680  62 6c 6f 63 6b 25 2c 62  6c 6f 63 6b 25 21 34 0d  |block%,block%!4.|
00001690  08 c0 05 e1 0d 08 ca 04  0d 08 d4 18 dd f2 70 72  |..............pr|
000016a0  6f 63 65 73 73 6b 65 79  28 62 6c 6f 63 6b 25 29  |ocesskey(block%)|
000016b0  0d 08 de 2d 77 6e 64 77  25 3d 21 62 6c 6f 63 6b  |...-wndw%=!block|
000016c0  25 3a 69 63 6e 25 3d 62  6c 6f 63 6b 25 21 34 3a  |%:icn%=block%!4:|
000016d0  6b 65 79 3d 62 6c 6f 63  6b 25 21 32 34 0d 08 e8  |key=block%!24...|
000016e0  0d c8 8e 77 6e 64 77 25  20 ca 0d 08 f2 0f 20 c9  |...wndw% ..... .|
000016f0  68 61 6e 64 6c 65 34 25  3a 0d 08 fc 18 20 20 e7  |handle4%:....  .|
00001700  6b 65 79 3d 31 33 20 f2  71 75 69 63 6b 73 61 76  |key=13 .quicksav|
00001710  65 0d 09 06 0f 20 c9 68  61 6e 64 6c 65 35 25 3a  |e.... .handle5%:|
00001720  0d 09 10 0f 20 20 e7 6b  65 79 3d 31 33 20 8c 0d  |....  .key=13 ..|
00001730  09 1a 0f 20 20 20 c8 8e  69 63 6e 25 20 ca 0d 09  |...   ..icn% ...|
00001740  24 33 20 20 20 20 c9 31  3a f2 73 65 74 63 61 72  |$3    .1:.setcar|
00001750  65 74 28 77 6e 64 77 25  2c 33 2c a9 28 a4 69 63  |et(wndw%,3,.(.ic|
00001760  6f 6e 74 65 78 74 28 77  6e 64 77 25 2c 33 29 29  |ontext(wndw%,3))|
00001770  29 0d 09 2e 33 20 20 20  20 c9 33 3a f2 73 65 74  |)...3    .3:.set|
00001780  63 61 72 65 74 28 77 6e  64 77 25 2c 35 2c a9 28  |caret(wndw%,5,.(|
00001790  a4 69 63 6f 6e 74 65 78  74 28 77 6e 64 77 25 2c  |.icontext(wndw%,|
000017a0  35 29 29 29 0d 09 38 33  20 20 20 20 c9 35 3a f2  |5)))..83    .5:.|
000017b0  73 65 74 63 61 72 65 74  28 77 6e 64 77 25 2c 31  |setcaret(wndw%,1|
000017c0  2c a9 28 a4 69 63 6f 6e  74 65 78 74 28 77 6e 64  |,.(.icontext(wnd|
000017d0  77 25 2c 31 29 29 29 0d  09 42 08 20 20 20 cb 0d  |w%,1)))..B.   ..|
000017e0  09 4c 07 20 20 cd 0d 09  56 0f 20 c9 68 61 6e 64  |.L.  ...V. .hand|
000017f0  6c 65 37 25 3a 0d 09 60  0f 20 20 e7 6b 65 79 3d  |le7%:..`.  .key=|
00001800  31 33 20 8c 0d 09 6a 0f  20 20 20 c8 8e 69 63 6e  |13 ...j.   ..icn|
00001810  25 20 ca 0d 09 74 33 20  20 20 20 c9 33 3a f2 73  |% ...t3    .3:.s|
00001820  65 74 63 61 72 65 74 28  77 6e 64 77 25 2c 37 2c  |etcaret(wndw%,7,|
00001830  a9 28 a4 69 63 6f 6e 74  65 78 74 28 77 6e 64 77  |.(.icontext(wndw|
00001840  25 2c 37 29 29 29 0d 09  7e 33 20 20 20 20 c9 37  |%,7)))..~3    .7|
00001850  3a f2 73 65 74 63 61 72  65 74 28 77 6e 64 77 25  |:.setcaret(wndw%|
00001860  2c 35 2c a9 28 a4 69 63  6f 6e 74 65 78 74 28 77  |,5,.(.icontext(w|
00001870  6e 64 77 25 2c 35 29 29  29 0d 09 88 33 20 20 20  |ndw%,5)))...3   |
00001880  20 c9 35 3a f2 73 65 74  63 61 72 65 74 28 77 6e  | .5:.setcaret(wn|
00001890  64 77 25 2c 33 2c a9 28  a4 69 63 6f 6e 74 65 78  |dw%,3,.(.icontex|
000018a0  74 28 77 6e 64 77 25 2c  33 29 29 29 0d 09 92 08  |t(wndw%,3)))....|
000018b0  20 20 20 cb 0d 09 9c 07  20 20 cd 0d 09 a6 05 cb  |   .....  ......|
000018c0  0d 09 b0 1d c8 99 20 22  57 69 6d 70 5f 50 72 6f  |...... "Wimp_Pro|
000018d0  63 65 73 73 4b 65 79 22  2c 2c 6b 65 79 0d 09 ba  |cessKey",,key...|
000018e0  05 e1 0d 09 c4 04 0d 09  ce 1f dd f2 73 65 74 63  |............setc|
000018f0  61 72 65 74 28 77 6e 64  77 25 2c 69 63 6e 25 2c  |aret(wndw%,icn%,|
00001900  70 6f 73 25 29 0d 09 d8  33 c8 99 20 22 57 69 6d  |pos%)...3.. "Wim|
00001910  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
00001920  6f 6e 22 2c 77 6e 64 77  25 2c 69 63 6e 25 2c 2c  |on",wndw%,icn%,,|
00001930  2c 2d 31 2c 70 6f 73 25  0d 09 e2 05 e1 0d 09 ec  |,-1,pos%........|
00001940  04 0d 09 f6 1e dd f2 73  65 65 77 68 61 74 77 69  |.......seewhatwi|
00001950  6d 70 77 61 6e 74 73 28  62 6c 6f 63 6b 25 29 0d  |mpwants(block%).|
00001960  0a 00 2f e3 49 25 3d 30  b8 21 62 6c 6f 63 6b 25  |../.I%=0.!block%|
00001970  2d 31 20 88 34 3a 6f 6c  64 62 6c 6f 63 6b 25 21  |-1 .4:oldblock%!|
00001980  49 25 3d 62 6c 6f 63 6b  25 21 49 25 3a ed 0d 0a  |I%=block%!I%:...|
00001990  0a 11 c8 8e 62 6c 6f 63  6b 25 21 31 36 20 ca 0d  |....block%!16 ..|
000019a0  0a 14 17 20 c9 30 3a f2  61 6e 79 74 68 69 6e 67  |... .0:.anything|
000019b0  74 6f 73 61 76 65 0d 0a  1e 08 20 c9 32 3a 0d 0a  |tosave.... .2:..|
000019c0  28 76 20 20 66 69 6c 65  24 3d a4 67 65 74 73 74  |(v  file$=.getst|
000019d0  72 69 6e 67 28 62 6c 6f  63 6b 25 2b 34 34 29 3a  |ring(block%+44):|
000019e0  f2 70 75 74 74 65 78 74  28 68 61 6e 64 6c 65 34  |.puttext(handle4|
000019f0  25 2c 31 2c 66 69 6c 65  24 29 3a f2 73 65 74 63  |%,1,file$):.setc|
00001a00  61 72 65 74 28 68 61 6e  64 6c 65 34 25 2c 31 2c  |aret(handle4%,1,|
00001a10  a9 66 69 6c 65 24 29 3a  f2 73 61 76 65 28 66 69  |.file$):.save(fi|
00001a20  6c 65 24 29 3a f2 67 65  74 6f 75 74 6f 66 73 61  |le$):.getoutofsa|
00001a30  76 69 6e 67 0d 0a 32 08  20 c9 33 3a 0d 0a 3c 2c  |ving..2. .3:..<,|
00001a40  20 20 e7 65 64 69 74 65  64 20 8c f2 6d 61 6b 65  |  .edited ..make|
00001a50  65 72 72 6f 72 28 a4 6d  73 67 30 28 22 45 72 72  |error(.msg0("Err|
00001a60  31 22 29 2c 30 29 3a e1  0d 0a 46 2c 20 20 e7 6c  |1"),0):...F,  .l|
00001a70  6f 61 64 65 64 20 8c f2  6d 61 6b 65 65 72 72 6f  |oaded ..makeerro|
00001a80  72 28 a4 6d 73 67 30 28  22 45 72 72 38 22 29 2c  |r(.msg0("Err8"),|
00001a90  30 29 3a e1 0d 0a 50 34  20 20 f2 64 61 74 61 6c  |0):...P4  .datal|
00001aa0  6f 61 64 28 62 6c 6f 63  6b 25 29 3a e7 6c 6f 61  |oad(block%):.loa|
00001ab0  64 65 64 20 f2 6f 70 65  6e 77 69 6e 64 6f 77 28  |ded .openwindow(|
00001ac0  68 61 6e 64 6c 65 25 29  0d 0a 5a 08 20 c9 35 3a  |handle%)..Z. .5:|
00001ad0  0d 0a 64 1d 20 20 e7 62  6c 6f 63 6b 25 21 34 30  |..d.  .block%!40|
00001ae0  3c 3e 66 69 6c 65 74 79  70 65 25 8c e1 0d 0a 6e  |<>filetype%....n|
00001af0  10 20 20 e7 6c 6f 61 64  65 64 20 8c e1 0d 0a 78  |.  .loaded ....x|
00001b00  0f 20 20 e7 65 64 69 74  65 64 20 8c 0d 0a 82 2e  |.  .edited .....|
00001b10  20 20 20 6f 6c 64 62 6c  6f 63 6b 25 21 31 32 3d  |   oldblock%!12=|
00001b20  6f 6c 64 62 6c 6f 63 6b  25 21 38 3a 6f 6c 64 62  |oldblock%!8:oldb|
00001b30  6c 6f 63 6b 25 21 31 36  3d 34 0d 0a 8c 35 20 20  |lock%!16=4...5  |
00001b40  20 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  | .. "Wimp_SendMe|
00001b50  73 73 61 67 65 22 2c 31  37 2c 6f 6c 64 62 6c 6f  |ssage",17,oldblo|
00001b60  63 6b 25 2c 6f 6c 64 62  6c 6f 63 6b 25 21 34 0d  |ck%,oldblock%!4.|
00001b70  0a 96 22 20 20 20 f2 6d  61 6b 65 65 72 72 6f 72  |.."   .makeerror|
00001b80  28 a4 6d 73 67 30 28 22  45 72 72 31 22 29 2c 30  |(.msg0("Err1"),0|
00001b90  29 0d 0a a0 07 20 20 cc  0d 0a aa 18 20 20 20 f2  |)....  .....   .|
00001ba0  64 61 74 61 6c 6f 61 64  28 62 6c 6f 63 6b 25 29  |dataload(block%)|
00001bb0  0d 0a b4 2e 20 20 20 6f  6c 64 62 6c 6f 63 6b 25  |....   oldblock%|
00001bc0  21 31 32 3d 6f 6c 64 62  6c 6f 63 6b 25 21 38 3a  |!12=oldblock%!8:|
00001bd0  6f 6c 64 62 6c 6f 63 6b  25 21 31 36 3d 34 0d 0a  |oldblock%!16=4..|
00001be0  be 35 20 20 20 c8 99 20  22 57 69 6d 70 5f 53 65  |.5   .. "Wimp_Se|
00001bf0  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 6f 6c  |ndMessage",17,ol|
00001c00  64 62 6c 6f 63 6b 25 2c  6f 6c 64 62 6c 6f 63 6b  |dblock%,oldblock|
00001c10  25 21 34 0d 0a c8 23 20  20 20 e7 6c 6f 61 64 65  |%!4...#   .loade|
00001c20  64 20 f2 6f 70 65 6e 77  69 6e 64 6f 77 28 68 61  |d .openwindow(ha|
00001c30  6e 64 6c 65 25 29 0d 0a  d2 07 20 20 cd 0d 0a dc  |ndle%)....  ....|
00001c40  18 20 c9 26 35 30 32 3a  ea 74 65 6d 70 24 2c 74  |. .&502:.temp$,t|
00001c50  65 6d 70 32 24 0d 0a e6  3f 20 20 77 6e 64 77 25  |emp2$...?  wndw%|
00001c60  3d 62 6c 6f 63 6b 25 21  33 32 3a 69 63 6e 25 3d  |=block%!32:icn%=|
00001c70  62 6c 6f 63 6b 25 21 33  36 3a 74 65 6d 70 24 3d  |block%!36:temp$=|
00001c80  a4 67 65 74 68 65 6c 70  28 77 6e 64 77 25 2c 69  |.gethelp(wndw%,i|
00001c90  63 6e 25 29 0d 0a f0 15  20 20 70 74 25 3d a7 74  |cn%)....  pt%=.t|
00001ca0  65 6d 70 24 2c 22 3a 22  29 0d 0a fa 0d 20 20 e7  |emp$,":")....  .|
00001cb0  70 74 25 3e 30 8c 0d 0b  04 2f 20 20 20 74 65 6d  |pt%>0..../   tem|
00001cc0  70 32 24 3d c1 74 65 6d  70 24 2c 70 74 25 2b 31  |p2$=.temp$,pt%+1|
00001cd0  29 3a 74 65 6d 70 24 3d  c0 74 65 6d 70 24 2c 70  |):temp$=.temp$,p|
00001ce0  74 25 2d 31 29 0d 0b 0e  20 20 20 20 74 65 6d 70  |t%-1)...    temp|
00001cf0  24 3d a4 6d 73 67 31 28  74 65 6d 70 24 2c 74 65  |$=.msg1(temp$,te|
00001d00  6d 70 32 24 29 0d 0b 18  07 20 20 cc 0d 0b 22 19  |mp2$)....  ...".|
00001d10  20 20 20 74 65 6d 70 24  3d a4 6d 73 67 30 28 74  |   temp$=.msg0(t|
00001d20  65 6d 70 24 29 0d 0b 2c  07 20 20 cd 0d 0b 36 16  |emp$)..,.  ...6.|
00001d30  20 20 f2 73 65 6e 64 68  65 6c 70 28 74 65 6d 70  |  .sendhelp(temp|
00001d40  24 29 0d 0b 40 06 20 cb  0d 0b 4a 05 e1 0d 0b 54  |$)..@. ...J....T|
00001d50  04 0d 0b 5e 14 dd f2 61  6e 79 74 68 69 6e 67 74  |...^...anythingt|
00001d60  6f 73 61 76 65 0d 0b 68  24 e7 65 64 69 74 65 64  |osave..h$.edited|
00001d70  20 8c f2 6f 70 65 6e 77  69 6e 64 6f 77 28 68 61  | ..openwindow(ha|
00001d80  6e 64 6c 65 39 25 29 3a  e1 0d 0b 72 0a 65 78 69  |ndle9%):...r.exi|
00001d90  74 3d b9 0d 0b 7c 05 e1  0d 0b 86 04 0d 0b 90 13  |t=...|..........|
00001da0  dd f2 75 70 64 61 74 65  28 74 65 6d 70 25 29 0d  |..update(temp%).|
00001db0  0b 9a 32 21 62 6c 6f 63  6b 25 3d 74 65 6d 70 25  |..2!block%=temp%|
00001dc0  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |:.. "Wimp_GetWin|
00001dd0  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |dowState",,block|
00001de0  25 0d 0b a4 28 c8 99 20  22 57 69 6d 70 5f 55 70  |%...(.. "Wimp_Up|
00001df0  64 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |dateWindow",,blo|
00001e00  63 6b 25 b8 74 65 6d 70  25 0d 0b ae 0b c8 95 74  |ck%.temp%......t|
00001e10  65 6d 70 25 0d 0b b8 29  20 c8 99 20 22 57 69 6d  |emp%...) .. "Wim|
00001e20  70 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |p_GetRectangle",|
00001e30  2c 62 6c 6f 63 6b 25 b8  74 65 6d 70 25 0d 0b c2  |,block%.temp%...|
00001e40  05 ce 0d 0b cc 05 e1 0d  0b d6 04 0d 0b e0 14 dd  |................|
00001e50  f2 72 65 64 72 61 77 28  62 6c 6f 63 6b 25 29 0d  |.redraw(block%).|
00001e60  0b ea 28 c8 99 20 22 57  69 6d 70 5f 52 65 64 72  |..(.. "Wimp_Redr|
00001e70  61 77 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |awWindow",,block|
00001e80  25 b8 66 6c 61 67 25 0d  0b f4 0b c8 95 66 6c 61  |%.flag%......fla|
00001e90  67 25 0d 0b fe 23 20 c8  99 20 22 57 69 6d 70 5f  |g%...# .. "Wimp_|
00001ea0  42 6f 72 64 65 72 57 69  6e 64 6f 77 22 2c 2c 62  |BorderWindow",,b|
00001eb0  6c 6f 63 6b 25 0d 0c 08  29 20 c8 99 20 22 57 69  |lock%...) .. "Wi|
00001ec0  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00001ed0  2c 2c 62 6c 6f 63 6b 25  b8 66 6c 61 67 25 0d 0c  |,,block%.flag%..|
00001ee0  12 05 ce 0d 0c 1c 14 f2  75 70 64 61 74 65 28 21  |........update(!|
00001ef0  62 6c 6f 63 6b 25 29 0d  0c 26 05 e1 0d 0c 30 04  |block%)..&....0.|
00001f00  0d 0c 3a 0e dd f2 64 72  61 67 67 69 6e 67 0d 0c  |..:...dragging..|
00001f10  44 25 e7 44 72 67 50 72  65 73 25 20 8c 20 c8 99  |D%.DrgPres% . ..|
00001f20  20 22 44 72 61 67 41 53  70 72 69 74 65 5f 53 74  | "DragASprite_St|
00001f30  6f 70 22 0d 0c 4e 24 c8  99 20 22 57 69 6d 70 5f  |op"..N$.. "Wimp_|
00001f40  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00001f50  2c 62 6c 6f 63 6b 25 0d  0c 58 39 78 25 3d 21 62  |,block%..X9x%=!b|
00001f60  6c 6f 63 6b 25 3a 79 25  3d 62 6c 6f 63 6b 25 21  |lock%:y%=block%!|
00001f70  34 3a 77 6e 64 77 25 3d  62 6c 6f 63 6b 25 21 31  |4:wndw%=block%!1|
00001f80  32 3a 69 63 6e 25 3d 62  6c 6f 63 6b 25 21 31 36  |2:icn%=block%!16|
00001f90  0d 0c 62 3e 21 62 6c 6f  63 6b 25 3d 68 61 6e 64  |..b>!block%=hand|
00001fa0  6c 65 34 25 3a 62 6c 6f  63 6b 25 21 34 3d 31 3a  |le4%:block%!4=1:|
00001fb0  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00001fc0  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 0c  |State",,block%..|
00001fd0  6c 38 66 69 6c 65 24 3d  24 28 62 6c 6f 63 6b 25  |l8file$=$(block%|
00001fe0  21 32 38 29 3a 66 69 6c  65 24 3d a4 67 65 74 66  |!28):file$=.getf|
00001ff0  69 6c 65 66 72 6f 6d 70  61 74 68 6e 61 6d 65 28  |ilefrompathname(|
00002000  66 69 6c 65 24 29 0d 0c  76 45 21 62 6c 6f 63 6b  |file$)..vE!block|
00002010  25 3d 36 34 3a 62 6c 6f  63 6b 25 21 31 32 3d 30  |%=64:block%!12=0|
00002020  3a 62 6c 6f 63 6b 25 21  31 36 3d 31 3a 62 6c 6f  |:block%!16=1:blo|
00002030  63 6b 25 21 32 30 3d 77  6e 64 77 25 3a 62 6c 6f  |ck%!20=wndw%:blo|
00002040  63 6b 25 21 32 34 3d 69  63 6e 25 0d 0c 80 40 62  |ck%!24=icn%...@b|
00002050  6c 6f 63 6b 25 21 32 38  3d 78 25 3a 62 6c 6f 63  |lock%!28=x%:bloc|
00002060  6b 25 21 33 32 3d 79 25  3a 62 6c 6f 63 6b 25 21  |k%!32=y%:block%!|
00002070  33 36 3d 64 61 74 61 25  2b 28 74 72 61 6e 73 61  |36=data%+(transa|
00002080  63 74 69 6f 6e 73 25 2a  34 30 29 0d 0c 8a 2a 62  |ctions%*40)...*b|
00002090  6c 6f 63 6b 25 21 34 30  3d 66 69 6c 65 74 79 70  |lock%!40=filetyp|
000020a0  65 25 3a 24 28 62 6c 6f  63 6b 25 2b 34 34 29 3d  |e%:$(block%+44)=|
000020b0  66 69 6c 65 24 0d 0c 94  37 c8 99 20 22 57 69 6d  |file$...7.. "Wim|
000020c0  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
000020d0  37 2c 62 6c 6f 63 6b 25  2c 62 6c 6f 63 6b 25 21  |7,block%,block%!|
000020e0  32 30 2c 62 6c 6f 63 6b  25 21 32 34 0d 0c 9e 05  |20,block%!24....|
000020f0  e1 0d 0c a8 04 0d 0c b2  17 dd f2 6f 70 65 6e 77  |...........openw|
00002100  69 6e 64 6f 77 28 74 65  6d 70 25 29 0d 0c bc 32  |indow(temp%)...2|
00002110  21 62 6c 6f 63 6b 25 3d  74 65 6d 70 25 3a c8 99  |!block%=temp%:..|
00002120  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00002130  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 0c  |State",,block%..|
00002140  c6 19 e7 ac 20 62 6c 6f  63 6b 25 21 32 38 80 31  |.... block%!28.1|
00002150  3c 3c 31 36 20 8c e1 0d  0c d0 20 c8 99 20 22 57  |<<16 ..... .. "W|
00002160  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00002170  2c 62 6c 6f 63 6b 25 0d  0c da 0c c8 8e 74 65 6d  |,block%......tem|
00002180  70 25 ca 0d 0c e4 26 20  c9 68 61 6e 64 6c 65 25  |p%....& .handle%|
00002190  3a e7 65 64 69 74 69 6e  67 20 f2 70 61 6e 65 28  |:.editing .pane(|
000021a0  68 61 6e 64 6c 65 36 25  29 0d 0c ee 3d 20 c9 68  |handle6%)...= .h|
000021b0  61 6e 64 6c 65 35 25 3a  f2 73 65 74 63 61 72 65  |andle5%:.setcare|
000021c0  74 28 68 61 6e 64 6c 65  35 25 2c 31 2c a9 28 a4  |t(handle5%,1,.(.|
000021d0  69 63 6f 6e 74 65 78 74  28 68 61 6e 64 6c 65 35  |icontext(handle5|
000021e0  25 2c 31 29 29 29 0d 0c  f8 7d 20 c9 68 61 6e 64  |%,1)))...} .hand|
000021f0  6c 65 36 25 3a e7 74 72  61 6e 73 61 63 74 69 6f  |le6%:.transactio|
00002200  6e 73 25 3d 30 20 8c f2  67 72 65 79 69 63 6f 6e  |ns%=0 ..greyicon|
00002210  28 68 61 6e 64 6c 65 36  25 2c 31 29 3a f2 67 72  |(handle6%,1):.gr|
00002220  65 79 69 63 6f 6e 28 68  61 6e 64 6c 65 36 25 2c  |eyicon(handle6%,|
00002230  32 29 3a 8b f2 65 6e 61  62 6c 65 69 63 6f 6e 28  |2):..enableicon(|
00002240  68 61 6e 64 6c 65 36 25  2c 31 29 3a f2 65 6e 61  |handle6%,1):.ena|
00002250  62 6c 65 69 63 6f 6e 28  68 61 6e 64 6c 65 36 25  |bleicon(handle6%|
00002260  2c 32 29 0d 0d 02 3d 20  c9 68 61 6e 64 6c 65 37  |,2)...= .handle7|
00002270  25 3a f2 73 65 74 63 61  72 65 74 28 68 61 6e 64  |%:.setcaret(hand|
00002280  6c 65 37 25 2c 33 2c a9  28 a4 69 63 6f 6e 74 65  |le7%,3,.(.iconte|
00002290  78 74 28 68 61 6e 64 6c  65 37 25 2c 33 29 29 29  |xt(handle7%,3)))|
000022a0  0d 0d 0c 18 20 c9 68 61  6e 64 6c 65 39 25 3a 77  |.... .handle9%:w|
000022b0  39 6f 70 65 6e 3d 2d 31  0d 0d 16 05 cb 0d 0d 20  |9open=-1....... |
000022c0  05 e1 0d 0d 2a 04 0d 0d  34 19 dd a4 63 72 65 61  |....*...4...crea|
000022d0  74 65 77 69 6e 64 6f 77  28 74 65 6d 70 25 29 0d  |tewindow(temp%).|
000022e0  0d 3e 28 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.>(.. "Wimp_Crea|
000022f0  74 65 57 69 6e 64 6f 77  22 2c 2c 74 65 6d 70 25  |teWindow",,temp%|
00002300  20 b8 74 65 6d 70 25 0d  0d 48 0a 3d 74 65 6d 70  | .temp%..H.=temp|
00002310  25 0d 0d 52 04 0d 0d 5c  18 dd f2 63 6c 6f 73 65  |%..R...\...close|
00002320  77 69 6e 64 6f 77 28 74  65 6d 70 25 29 0d 0d 66  |window(temp%)..f|
00002330  32 21 62 6c 6f 63 6b 25  3d 74 65 6d 70 25 3a c8  |2!block%=temp%:.|
00002340  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00002350  77 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |wState",,block%.|
00002360  0d 70 19 e7 ac 20 62 6c  6f 63 6b 25 21 32 38 80  |.p... block%!28.|
00002370  31 3c 3c 31 36 20 8c e1  0d 0d 7a 21 c8 99 20 22  |1<<16 ....z!.. "|
00002380  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00002390  22 2c 2c 62 6c 6f 63 6b  25 0d 0d 84 0c c8 8e 74  |",,block%......t|
000023a0  65 6d 70 25 ca 0d 0d 8e  2d 20 c9 68 61 6e 64 6c  |emp%....- .handl|
000023b0  65 25 3a e7 65 64 69 74  69 6e 67 20 f2 63 6c 6f  |e%:.editing .clo|
000023c0  73 65 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 36  |sewindow(handle6|
000023d0  25 29 0d 0d 98 05 cb 0d  0d a2 05 e1 0d 0d ac 04  |%)..............|
000023e0  0d 0d b6 19 dd f2 64 65  6c 65 74 65 77 69 6e 64  |......deletewind|
000023f0  6f 77 28 74 65 6d 70 25  29 0d 0d c0 30 21 62 6c  |ow(temp%)...0!bl|
00002400  6f 63 6b 25 3d 74 65 6d  70 25 3a c8 99 20 22 57  |ock%=temp%:.. "W|
00002410  69 6d 70 5f 44 65 6c 65  74 65 57 69 6e 64 6f 77  |imp_DeleteWindow|
00002420  22 2c 2c 62 6c 6f 63 6b  25 0d 0d ca 05 e1 0d 0d  |",,block%.......|
00002430  d4 04 0d 0d de 1b dd f2  6d 61 6b 65 65 72 72 6f  |........makeerro|
00002440  72 28 74 65 6d 70 24 2c  71 75 69 74 29 0d 0d e8  |r(temp$,quit)...|
00002450  19 c8 99 20 22 57 69 6d  70 5f 44 72 61 67 42 6f  |... "Wimp_DragBo|
00002460  78 22 2c 2c 2d 31 0d 0d  f2 49 21 62 6c 6f 63 6b  |x",,-1...I!block|
00002470  25 3d 30 3a 24 28 62 6c  6f 63 6b 25 2b 34 29 3d  |%=0:$(block%+4)=|
00002480  74 65 6d 70 24 3a c8 99  20 22 57 69 6d 70 5f 52  |temp$:.. "Wimp_R|
00002490  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 6c 6f 63  |eportError",bloc|
000024a0  6b 25 2c 31 2c 22 21 41  63 63 6f 75 6e 74 22 0d  |k%,1,"!Account".|
000024b0  0d fc 30 e7 71 75 69 74  20 8c f2 67 72 65 79 69  |..0.quit ..greyi|
000024c0  63 6f 6e 28 68 61 6e 64  6c 65 39 25 2c 33 29 3a  |con(handle9%,3):|
000024d0  f2 61 6e 79 74 68 69 6e  67 74 6f 73 61 76 65 0d  |.anythingtosave.|
000024e0  0e 06 05 e1 0d 0e 10 04  0d 0e 1a 0c dd f2 66 69  |..............fi|
000024f0  6e 69 73 68 0d 0e 24 11  e7 69 77 61 6e 74 66 6f  |nish..$..iwantfo|
00002500  6e 74 73 20 8c 0d 0e 2e  0d 20 e3 49 3d 30 b8 32  |nts ..... .I=0.2|
00002510  35 35 0d 0e 38 36 20 20  c8 95 20 66 6f 6e 74 73  |55..86  .. fonts|
00002520  25 3f 49 3e 30 3a c8 99  20 22 46 6f 6e 74 5f 4c  |%?I>0:.. "Font_L|
00002530  6f 73 65 46 6f 6e 74 22  2c 49 3a 66 6f 6e 74 73  |oseFont",I:fonts|
00002540  25 3f 49 2d 3d 31 3a ce  0d 0e 42 06 20 ed 0d 0e  |%?I-=1:...B. ...|
00002550  4c 1d 20 c8 99 20 22 46  6f 6e 74 5f 4c 6f 73 65  |L. .. "Font_Lose|
00002560  46 6f 6e 74 22 2c 66 6f  6e 74 25 0d 0e 56 05 cd  |Font",font%..V..|
00002570  0d 0e 60 2b c8 99 20 22  57 69 6d 70 5f 52 65 6c  |..`+.. "Wimp_Rel|
00002580  65 61 73 65 49 6e 74 65  72 66 61 63 65 22 2c 2c  |easeInterface",,|
00002590  77 69 6d 70 68 61 6e 64  6c 65 25 0d 0e 6a 2d c8  |wimphandle%..j-.|
000025a0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
000025b0  6e 22 2c 77 69 6d 70 68  61 6e 64 6c 65 25 2c 26  |n",wimphandle%,&|
000025c0  34 42 35 33 34 31 35 34  0d 0e 74 29 c8 99 20 22  |4B534154..t).. "|
000025d0  58 4d 65 73 73 61 67 65  54 72 61 6e 73 5f 43 6c  |XMessageTrans_Cl|
000025e0  6f 73 65 46 69 6c 65 22  2c 6d 73 67 64 65 73 63  |oseFile",msgdesc|
000025f0  25 0d 0e 7e 1f c8 99 20  22 58 4f 53 5f 4d 6f 64  |%..~... "XOS_Mod|
00002600  75 6c 65 22 2c 37 2c 2c  6d 73 67 64 65 73 63 25  |ule",7,,msgdesc%|
00002610  0d 0e 88 05 e1 0d 0e 92  04 0d 0e 9c 13 dd f2 6d  |...............m|
00002620  6f 75 73 65 28 62 6c 6f  63 6b 25 29 0d 0e a6 31  |ouse(block%)...1|
00002630  77 6e 64 77 25 3d 62 6c  6f 63 6b 25 21 31 32 3a  |wndw%=block%!12:|
00002640  62 75 74 6e 25 3d 62 6c  6f 63 6b 25 21 38 3a 69  |butn%=block%!8:i|
00002650  63 6e 25 3d 62 6c 6f 63  6b 25 21 31 36 0d 0e b0  |cn%=block%!16...|
00002660  35 e7 77 6e 64 77 25 3d  68 61 6e 64 6c 65 39 25  |5.wndw%=handle9%|
00002670  20 84 77 6e 64 77 25 3d  68 61 6e 64 6c 65 34 25  | .wndw%=handle4%|
00002680  20 8c 74 65 6d 70 25 3d  b9 3a 8b 74 65 6d 70 25  | .temp%=.:.temp%|
00002690  3d 30 0d 0e ba 17 e7 74  65 6d 70 25 3d 30 20 80  |=0.....temp%=0 .|
000026a0  77 39 6f 70 65 6e 20 8c  e1 0d 0e c4 0c c8 8e 77  |w9open ........w|
000026b0  6e 64 77 25 ca 0d 0e ce  09 20 c9 2d 32 3a 0d 0e  |ndw%..... .-2:..|
000026c0  d8 0f 20 20 c8 8e 62 75  74 6e 25 20 ca 0d 0e e2  |..  ..butn% ....|
000026d0  27 20 20 20 c9 34 3a e7  6c 6f 61 64 65 64 20 8c  |'   .4:.loaded .|
000026e0  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 68 61 6e 64  |.openwindow(hand|
000026f0  6c 65 25 29 0d 0e ec 45  20 20 20 c9 32 3a f2 73  |le%)...E   .2:.s|
00002700  65 74 75 70 6d 65 6e 75  3a c8 99 20 22 57 69 6d  |etupmenu:.. "Wim|
00002710  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
00002720  65 6e 75 25 2c 28 21 62  6c 6f 63 6b 25 29 2d 36  |enu%,(!block%)-6|
00002730  34 2c 39 36 2b 36 2a 34  34 0d 0e f6 1f 20 20 20  |4,96+6*44....   |
00002740  c9 31 3a f2 6f 70 65 6e  77 69 6e 64 6f 77 28 68  |.1:.openwindow(h|
00002750  61 6e 64 6c 65 33 25 29  0d 0f 00 07 20 20 cb 0d  |andle3%)....  ..|
00002760  0f 0a 0e 20 c9 68 61 6e  64 6c 65 25 3a 0d 0f 14  |... .handle%:...|
00002770  0f 20 20 c8 8e 62 75 74  6e 25 20 ca 0d 0f 1e 41  |.  ..butn% ....A|
00002780  20 20 20 c9 32 3a f2 73  65 74 75 70 6d 65 6e 75  |   .2:.setupmenu|
00002790  3a c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |:.. "Wimp_Create|
000027a0  4d 65 6e 75 22 2c 2c 6d  65 6e 75 25 2c 21 62 6c  |Menu",,menu%,!bl|
000027b0  6f 63 6b 25 2c 62 6c 6f  63 6b 25 21 34 0d 0f 28  |ock%,block%!4..(|
000027c0  0c 20 20 20 c9 31 2c 34  3a 0d 0f 32 0f 20 20 20  |.   .1,4:..2.   |
000027d0  20 c8 8e 69 63 6e 25 ca  0d 0f 3c 1f 20 20 20 20  | ..icn%...<.    |
000027e0  20 c9 31 2c 32 2c 33 2c  34 2c 35 2c 36 2c 37 2c  | .1,2,3,4,5,6,7,|
000027f0  38 2c 39 2c 31 30 3a 0d  0f 46 2c 20 20 20 20 20  |8,9,10:..F,     |
00002800  20 e7 64 65 6c 65 74 69  6e 67 20 8c f2 64 65 6c  | .deleting ..del|
00002810  74 72 61 6e 73 28 31 2c  69 63 6e 25 2c 70 61 67  |trans(1,icn%,pag|
00002820  65 25 29 0d 0f 50 2d 20  20 20 20 20 20 e7 61 6d  |e%)..P-      .am|
00002830  65 6e 64 69 6e 67 20 8c  f2 61 6d 65 6e 64 74 72  |ending ..amendtr|
00002840  61 6e 73 32 28 69 63 6e  25 2c 70 61 67 65 25 29  |ans2(icn%,page%)|
00002850  0d 0f 5a 3a 20 20 20 20  20 c9 31 31 3a 70 61 67  |..Z:     .11:pag|
00002860  65 25 3d 28 28 74 72 61  6e 73 61 63 74 69 6f 6e  |e%=((transaction|
00002870  73 25 2d 31 29 81 31 30  29 3a f2 75 70 64 61 74  |s%-1).10):.updat|
00002880  65 73 74 61 74 65 6d 65  6e 74 0d 0f 64 25 20 20  |estatement..d%  |
00002890  20 20 20 c9 31 32 3a 70  61 67 65 25 3d 30 3a f2  |   .12:page%=0:.|
000028a0  75 70 64 61 74 65 73 74  61 74 65 6d 65 6e 74 0d  |updatestatement.|
000028b0  0f 6e 41 20 20 20 20 20  c9 31 35 3a 65 64 69 74  |.nA     .15:edit|
000028c0  69 6e 67 3d b9 3a f2 67  72 65 79 69 63 6f 6e 28  |ing=.:.greyicon(|
000028d0  68 61 6e 64 6c 65 25 2c  31 35 29 3a f2 6f 70 65  |handle%,15):.ope|
000028e0  6e 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 29  |nwindow(handle%)|
000028f0  0d 0f 78 15 20 20 20 20  20 c9 31 38 3a 70 61 67  |..x.     .18:pag|
00002900  65 25 2b 3d 31 0d 0f 82  34 20 20 20 20 20 20 e7  |e%+=1...4      .|
00002910  70 61 67 65 25 3e 28 28  74 72 61 6e 73 61 63 74  |page%>((transact|
00002920  69 6f 6e 73 25 2d 31 29  81 31 30 29 20 8c 70 61  |ions%-1).10) .pa|
00002930  67 65 25 2d 3d 31 3a ef  37 0d 0f 8c 1a 20 20 20  |ge%-=1:.7....   |
00002940  20 20 20 f2 75 70 64 61  74 65 73 74 61 74 65 6d  |   .updatestatem|
00002950  65 6e 74 0d 0f 96 15 20  20 20 20 20 c9 31 39 3a  |ent....     .19:|
00002960  70 61 67 65 25 2d 3d 31  0d 0f a0 1f 20 20 20 20  |page%-=1....    |
00002970  20 20 e7 70 61 67 65 25  3d 2d 31 20 8c 70 61 67  |  .page%=-1 .pag|
00002980  65 25 3d 30 3a ef 37 0d  0f aa 1a 20 20 20 20 20  |e%=0:.7....     |
00002990  20 f2 75 70 64 61 74 65  73 74 61 74 65 6d 65 6e  | .updatestatemen|
000029a0  74 0d 0f b4 23 20 20 20  20 20 c9 32 34 3a f2 6f  |t...#     .24:.o|
000029b0  70 65 6e 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |penwindow(handle|
000029c0  31 31 25 29 0d 0f be 09  20 20 20 20 cb 0d 0f c8  |11%)....    ....|
000029d0  07 20 20 cb 0d 0f d2 0f  20 c9 68 61 6e 64 6c 65  |.  ..... .handle|
000029e0  34 25 3a 0d 0f dc 0d 20  20 c8 8e 69 63 6e 25 ca  |4%:....  ..icn%.|
000029f0  0d 0f e6 26 20 20 20 c9  30 3a e7 62 75 74 6e 25  |...&   .0:.butn%|
00002a00  20 80 26 35 30 20 8c f2  64 72 61 67 62 6f 78 28  | .&50 ..dragbox(|
00002a10  77 6e 64 77 25 29 0d 0f  f0 25 20 20 20 c9 32 3a  |wndw%)...%   .2:|
00002a20  66 69 6c 65 24 3d a4 69  63 6f 6e 74 65 78 74 28  |file$=.icontext(|
00002a30  68 61 6e 64 6c 65 34 25  2c 31 29 0d 0f fa 16 20  |handle4%,1).... |
00002a40  20 20 20 c8 8e a7 66 69  6c 65 24 2c 22 2e 22 29  |   ...file$,".")|
00002a50  ca 0d 10 04 27 20 20 20  20 20 c9 30 3a f2 6d 61  |....'     .0:.ma|
00002a60  6b 65 65 72 72 6f 72 28  a4 6d 73 67 30 28 22 45  |keerror(.msg0("E|
00002a70  72 72 33 22 29 2c 30 29  0d 10 0e 17 20 20 20 20  |rr3"),0)....    |
00002a80  20 7f 3a f2 73 61 76 65  28 66 69 6c 65 24 29 0d  | .:.save(file$).|
00002a90  10 18 09 20 20 20 20 cb  0d 10 22 17 20 20 20 20  |...    ...".    |
00002aa0  f2 67 65 74 6f 75 74 6f  66 73 61 76 69 6e 67 0d  |.getoutofsaving.|
00002ab0  10 2c 8f 20 20 20 c9 33  3a e7 73 76 61 73 74 78  |.,.   .3:.svastx|
00002ac0  74 20 8c 73 76 61 73 74  78 74 3d 30 3a f2 70 75  |t .svastxt=0:.pu|
00002ad0  74 74 65 78 74 28 77 6e  64 77 25 2c 33 2c 22 72  |ttext(wndw%,3,"r|
00002ae0  61 64 69 6f 6f 6e 22 29  3a f2 70 75 74 74 65 78  |adioon"):.puttex|
00002af0  74 28 77 6e 64 77 25 2c  34 2c 22 72 61 64 69 6f  |t(wndw%,4,"radio|
00002b00  6f 66 66 22 29 3a f2 70  75 74 74 65 78 74 28 77  |off"):.puttext(w|
00002b10  6e 64 77 25 2c 34 2c 22  72 61 64 69 6f 6f 66 66  |ndw%,4,"radiooff|
00002b20  22 29 3a f2 70 75 74 74  65 78 74 28 77 6e 64 77  |"):.puttext(wndw|
00002b30  25 2c 30 2c 66 69 6c 65  74 79 70 65 24 29 0d 10  |%,0,filetype$)..|
00002b40  36 76 20 20 20 c9 34 3a  e7 73 76 61 73 74 78 74  |6v   .4:.svastxt|
00002b50  3d 30 20 8c 73 76 61 73  74 78 74 3d 2d 31 3a f2  |=0 .svastxt=-1:.|
00002b60  70 75 74 74 65 78 74 28  77 6e 64 77 25 2c 33 2c  |puttext(wndw%,3,|
00002b70  22 72 61 64 69 6f 6f 66  66 22 29 3a f2 70 75 74  |"radiooff"):.put|
00002b80  74 65 78 74 28 77 6e 64  77 25 2c 34 2c 22 72 61  |text(wndw%,4,"ra|
00002b90  64 69 6f 6f 6e 22 29 3a  f2 70 75 74 74 65 78 74  |dioon"):.puttext|
00002ba0  28 77 6e 64 77 25 2c 30  2c 22 66 69 6c 65 5f 66  |(wndw%,0,"file_f|
00002bb0  66 66 22 29 0d 10 40 07  20 20 cb 0d 10 4a 0f 20  |ff")..@.  ...J. |
00002bc0  c9 68 61 6e 64 6c 65 35  25 3a 0d 10 54 0f 20 20  |.handle5%:..T.  |
00002bd0  e7 69 63 6e 25 3d 37 20  8c 0d 10 5e 29 20 20 20  |.icn%=7 ...^)   |
00002be0  e7 ac 63 68 61 6e 67 69  6e 67 20 f2 63 72 65 61  |..changing .crea|
00002bf0  74 65 6e 65 77 61 63 32  3a 8b f2 63 68 64 74 6c  |tenewac2:..chdtl|
00002c00  73 32 0d 10 68 07 20 20  cd 0d 10 72 0f 20 c9 68  |s2..h.  ...r. .h|
00002c10  61 6e 64 6c 65 36 25 3a  0d 10 7c 0d 20 20 c8 8e  |andle6%:..|.  ..|
00002c20  69 63 6e 25 ca 0d 10 86  8a 20 20 20 c9 30 3a e3  |icn%.....   .0:.|
00002c30  49 3d 30 b8 33 3a f2 67  72 65 79 69 63 6f 6e 28  |I=0.3:.greyicon(|
00002c40  68 61 6e 64 6c 65 36 25  2c 49 29 3a ed 3a e7 74  |handle6%,I):.:.t|
00002c50  72 61 6e 73 61 63 74 69  6f 6e 73 25 2b 31 3c 6d  |ransactions%+1<m|
00002c60  61 78 76 61 6c 25 8c 65  64 69 74 65 64 3d b9 3a  |axval%.edited=.:|
00002c70  69 6e 73 65 72 74 69 6e  67 3d b9 3a f2 6f 70 65  |inserting=.:.ope|
00002c80  6e 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 37 25  |nwindow(handle7%|
00002c90  29 3a 8b f2 6d 61 6b 65  65 72 72 6f 72 28 a4 6d  |):..makeerror(.m|
00002ca0  73 67 30 28 22 45 72 72  32 22 29 2c 2d 31 29 0d  |sg0("Err2"),-1).|
00002cb0  10 90 39 20 20 20 c9 31  3a e3 49 3d 30 b8 33 3a  |..9   .1:.I=0.3:|
00002cc0  f2 67 72 65 79 69 63 6f  6e 28 68 61 6e 64 6c 65  |.greyicon(handle|
00002cd0  36 25 2c 49 29 3a ed 3a  f2 64 65 6c 74 72 61 6e  |6%,I):.:.deltran|
00002ce0  73 28 30 2c 30 2c 30 29  0d 10 9a 34 20 20 20 c9  |s(0,0,0)...4   .|
00002cf0  32 3a e3 49 3d 30 b8 33  3a f2 67 72 65 79 69 63  |2:.I=0.3:.greyic|
00002d00  6f 6e 28 68 61 6e 64 6c  65 36 25 2c 49 29 3a ed  |on(handle6%,I):.|
00002d10  3a f2 61 6d 65 6e 64 74  72 61 6e 73 0d 10 a4 42  |:.amendtrans...B|
00002d20  20 20 20 c9 33 3a f2 65  6e 61 62 6c 65 69 63 6f  |   .3:.enableico|
00002d30  6e 28 68 61 6e 64 6c 65  25 2c 31 35 29 3a f2 63  |n(handle%,15):.c|
00002d40  6c 6f 73 65 77 69 6e 64  6f 77 28 68 61 6e 64 6c  |losewindow(handl|
00002d50  65 36 25 29 3a 65 64 69  74 69 6e 67 3d 30 0d 10  |e6%):editing=0..|
00002d60  ae 07 20 20 cb 0d 10 b8  0f 20 c9 68 61 6e 64 6c  |..  ..... .handl|
00002d70  65 37 25 3a 0d 10 c2 0d  20 20 c8 8e 69 63 6e 25  |e7%:....  ..icn%|
00002d80  ca 0d 10 cc 47 20 20 20  c9 33 3a e7 62 75 74 6e  |....G   .3:.butn|
00002d90  25 3d 32 20 8c f2 6d 65  6e 75 32 3a c8 99 20 22  |%=2 ..menu2:.. "|
00002da0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00002db0  2c 2c 6d 65 6e 75 25 2c  21 62 6c 6f 63 6b 25 2c  |,,menu%,!block%,|
00002dc0  62 6c 6f 63 6b 25 21 34  0d 10 d6 63 20 20 20 c9  |block%!4...c   .|
00002dd0  34 3a e7 63 72 65 64 64  65 62 20 f2 70 75 74 74  |4:.creddeb .putt|
00002de0  65 78 74 28 68 61 6e 64  6c 65 37 25 2c 34 2c 22  |ext(handle7%,4,"|
00002df0  43 72 65 64 69 74 22 29  3a 63 72 65 64 64 65 62  |Credit"):creddeb|
00002e00  3d 30 3a 8b f2 70 75 74  74 65 78 74 28 68 61 6e  |=0:..puttext(han|
00002e10  64 6c 65 37 25 2c 34 2c  22 44 65 62 69 74 22 29  |dle7%,4,"Debit")|
00002e20  3a 63 72 65 64 64 65 62  3d 2d 31 0d 10 e0 0a 20  |:creddeb=-1.... |
00002e30  20 20 c9 38 3a 0d 10 ea  3e 20 20 20 20 e7 69 6e  |  .8:...>    .in|
00002e40  73 65 72 74 69 6e 67 20  8c f2 63 6c 6f 73 65 77  |serting ..closew|
00002e50  69 6e 64 6f 77 28 68 61  6e 64 6c 65 37 25 29 3a  |indow(handle7%):|
00002e60  f2 69 6e 73 65 72 74 3a  f2 69 6e 73 74 72 61 6e  |.insert:.instran|
00002e70  73 3a e1 0d 10 f4 21 20  20 20 20 e7 61 6d 65 6e  |s:....!    .amen|
00002e80  64 69 6e 67 20 8c f2 61  6d 65 6e 64 74 72 61 6e  |ding ..amendtran|
00002e90  73 33 3a e1 0d 10 fe 0a  20 20 20 c9 39 3a 0d 11  |s3:.....   .9:..|
00002ea0  08 1c 20 20 20 20 e7 69  6e 73 65 72 74 69 6e 67  |..    .inserting|
00002eb0  20 8c f2 65 6e 64 65 64  69 74 0d 11 12 1b 20 20  | ..endedit....  |
00002ec0  20 20 e7 61 6d 65 6e 64  69 6e 67 20 8c f2 65 6e  |  .amending ..en|
00002ed0  64 65 64 69 74 0d 11 1c  25 20 20 20 c9 31 30 2c  |dedit...%   .10,|
00002ee0  31 31 2c 31 32 2c 31 33  2c 31 34 2c 31 35 3a f2  |11,12,13,14,15:.|
00002ef0  61 64 6a 75 73 74 64 61  74 65 0d 11 26 13 20 20  |adjustdate..&.  |
00002f00  20 c9 31 37 3a f2 63 6c  65 61 72 65 64 0d 11 30  | .17:.cleared..0|
00002f10  07 20 20 cb 0d 11 3a 0f  20 c9 68 61 6e 64 6c 65  |.  ...:. .handle|
00002f20  38 25 3a 0d 11 44 0e 20  20 c8 8e 69 63 6e 25 20  |8%:..D.  ..icn% |
00002f30  ca 0d 11 4e 1a 20 20 20  c9 31 3a f2 64 65 6c 74  |...N.   .1:.delt|
00002f40  72 61 6e 73 28 32 2c 30  2c 30 29 0d 11 58 1a 20  |rans(2,0,0)..X. |
00002f50  20 20 c9 32 3a f2 64 65  6c 74 72 61 6e 73 28 33  |  .2:.deltrans(3|
00002f60  2c 30 2c 30 29 0d 11 62  07 20 20 cb 0d 11 6c 0f  |,0,0)..b.  ...l.|
00002f70  20 c9 68 61 6e 64 6c 65  39 25 3a 0d 11 76 0e 20  | .handle9%:..v. |
00002f80  20 c8 8e 69 63 6e 25 20  ca 0d 11 80 70 20 20 20  | ..icn% ....p   |
00002f90  c9 31 3a f2 63 6c 6f 73  65 77 69 6e 64 6f 77 28  |.1:.closewindow(|
00002fa0  68 61 6e 64 6c 65 39 25  29 3a 71 75 69 74 74 69  |handle9%):quitti|
00002fb0  6e 67 3d b9 3a f2 6f 70  65 6e 77 69 6e 64 6f 77  |ng=.:.openwindow|
00002fc0  28 68 61 6e 64 6c 65 34  25 29 3a f2 73 65 74 63  |(handle4%):.setc|
00002fd0  61 72 65 74 28 68 61 6e  64 6c 65 34 25 2c 31 2c  |aret(handle4%,1,|
00002fe0  a9 28 a4 69 63 6f 6e 74  65 78 74 28 68 61 6e 64  |.(.icontext(hand|
00002ff0  6c 65 34 25 2c 31 29 29  29 0d 11 8a 27 20 20 20  |le4%,1)))...'   |
00003000  c9 32 3a f2 63 6c 6f 73  65 77 69 6e 64 6f 77 28  |.2:.closewindow(|
00003010  68 61 6e 64 6c 65 39 25  29 3a 65 78 69 74 3d b9  |handle9%):exit=.|
00003020  0d 11 94 29 20 20 20 c9  33 3a f2 63 6c 6f 73 65  |...)   .3:.close|
00003030  77 69 6e 64 6f 77 28 68  61 6e 64 6c 65 39 25 29  |window(handle9%)|
00003040  3a 77 39 6f 70 65 6e 3d  30 0d 11 9e 07 20 20 cb  |:w9open=0....  .|
00003050  0d 11 a8 10 20 c9 68 61  6e 64 6c 65 31 30 25 3a  |.... .handle10%:|
00003060  0d 11 b2 1e 20 20 e7 69  63 6e 25 3d 32 20 80 70  |....  .icn%=2 .p|
00003070  64 72 69 76 65 72 20 8c  f2 70 72 69 6e 74 0d 11  |driver ..print..|
00003080  bc 05 cb 0d 11 c6 05 e1  0d 11 d0 04 0d 11 da 0f  |................|
00003090  dd f2 73 65 74 75 70 6d  65 6e 75 0d 11 e4 17 f2  |..setupmenu.....|
000030a0  63 68 65 63 6b 70 72 69  6e 74 65 72 64 72 69 76  |checkprinterdriv|
000030b0  65 72 0d 11 ee 2c e7 a9  70 72 69 6e 74 65 72 24  |er...,..printer$|
000030c0  3e 31 36 20 8c 70 72 69  6e 74 65 72 24 3d c0 70  |>16 .printer$=.p|
000030d0  72 69 6e 74 65 72 24 2c  31 35 29 2b bd 30 0d 11  |rinter$,15)+.0..|
000030e0  f8 1e 21 6d 65 6e 75 25  3d 68 61 6e 64 6c 65 31  |..!menu%=handle1|
000030f0  30 25 3a 6d 65 6e 75 25  21 34 3d 31 0d 12 02 21  |0%:menu%!4=1...!|
00003100  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00003110  53 74 61 74 65 22 2c 2c  6d 65 6e 75 25 0d 12 0c  |State",,menu%...|
00003120  1e 21 6d 65 6e 75 25 3d  68 61 6e 64 6c 65 31 30  |.!menu%=handle10|
00003130  25 3a 6d 65 6e 75 25 21  34 3d 31 0d 12 16 18 6d  |%:menu%!4=1....m|
00003140  65 6e 75 25 21 38 3d 30  3a 6d 65 6e 75 25 21 31  |enu%!8=0:menu%!1|
00003150  32 3d 30 0d 12 20 18 24  28 6d 65 6e 75 25 21 32  |2=0.. .$(menu%!2|
00003160  38 29 3d 70 72 69 6e 74  65 72 24 0d 12 2a 21 c8  |8)=printer$..*!.|
00003170  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00003180  74 61 74 65 22 2c 2c 6d  65 6e 75 25 0d 12 34 30  |tate",,menu%..40|
00003190  e7 28 70 72 69 6e 74 65  72 24 3d 22 22 20 84 70  |.(printer$="" .p|
000031a0  72 69 6e 74 65 72 24 3d  22 4e 6f 74 20 69 6e 73  |rinter$="Not ins|
000031b0  74 61 6c 6c 65 64 22 2b  bd 30 29 8c 0d 12 3e 3c  |talled"+.0)...><|
000031c0  20 21 6d 65 6e 75 25 3d  68 61 6e 64 6c 65 31 30  | !menu%=handle10|
000031d0  25 3a 6d 65 6e 75 25 21  34 3d 32 3a 6d 65 6e 75  |%:menu%!4=2:menu|
000031e0  25 21 38 3d 31 3c 3c 32  32 3a 6d 65 6e 75 25 21  |%!8=1<<22:menu%!|
000031f0  31 32 3d 31 3c 3c 32 32  0d 12 48 22 20 c8 99 20  |12=1<<22..H" .. |
00003200  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00003210  74 65 22 2c 2c 6d 65 6e  75 25 0d 12 52 05 cc 0d  |te",,menu%..R...|
00003220  12 5c 38 20 21 6d 65 6e  75 25 3d 68 61 6e 64 6c  |.\8 !menu%=handl|
00003230  65 31 30 25 3a 6d 65 6e  75 25 21 34 3d 32 3a 6d  |e10%:menu%!4=2:m|
00003240  65 6e 75 25 21 38 3d 30  3a 6d 65 6e 75 25 21 31  |enu%!8=0:menu%!1|
00003250  32 3d 31 3c 3c 32 32 0d  12 66 22 20 c8 99 20 22  |2=1<<22..f" .. "|
00003260  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00003270  65 22 2c 2c 6d 65 6e 75  25 0d 12 70 05 cd 0d 12  |e",,menu%..p....|
00003280  7a 2d f2 63 72 65 61 74  65 6d 65 6e 75 28 a4 6d  |z-.createmenu(.m|
00003290  73 67 30 28 22 4d 54 22  29 2c 37 2c 32 2c 37 2c  |sg0("MT"),7,2,7,|
000032a0  30 2c 32 30 30 2c 34 34  2c 30 29 0d 12 84 3a f2  |0,200,44,0)...:.|
000032b0  6d 65 6e 75 6f 70 74 28  30 2c 25 30 30 30 30 30  |menuopt(0,%00000|
000032c0  30 30 30 2c 68 61 6e 64  6c 65 32 25 2c 25 30 30  |000,handle2%,%00|
000032d0  30 30 30 31 31 31 2c a4  6d 73 67 30 28 22 4d 30  |000111,.msg0("M0|
000032e0  22 29 2c 30 29 0d 12 8e  43 f2 6d 65 6e 75 6f 70  |"),0)...C.menuop|
000032f0  74 28 31 2c 25 30 30 30  30 30 30 30 30 2c 2d 31  |t(1,%00000000,-1|
00003300  2c 25 30 30 30 30 30 31  31 31 2c a4 6d 73 67 30  |,%00000111,.msg0|
00003310  28 22 4d 31 22 29 2c 28  65 64 69 74 65 64 20 84  |("M1"),(edited .|
00003320  6c 6f 61 64 65 64 29 29  0d 12 98 46 f2 6d 65 6e  |loaded))...F.men|
00003330  75 6f 70 74 28 32 2c 25  30 30 30 30 30 30 30 30  |uopt(2,%00000000|
00003340  2c 2d 31 2c 25 30 30 30  30 30 31 31 31 2c a4 6d  |,-1,%00000111,.m|
00003350  73 67 30 28 22 4d 32 22  29 2c 28 63 68 61 6e 67  |sg0("M2"),(chang|
00003360  69 6e 67 20 84 ac 6c 6f  61 64 65 64 29 29 0d 12  |ing ..loaded))..|
00003370  a2 43 f2 6d 65 6e 75 6f  70 74 28 33 2c 25 30 30  |.C.menuopt(3,%00|
00003380  30 30 30 30 30 30 2c 68  61 6e 64 6c 65 31 30 25  |000000,handle10%|
00003390  2c 25 30 30 30 30 30 31  31 31 2c a4 6d 73 67 30  |,%00000111,.msg0|
000033a0  28 22 4d 33 22 29 2c ac  28 6c 6f 61 64 65 64 29  |("M3"),.(loaded)|
000033b0  29 0d 12 ac 4a f2 6d 65  6e 75 6f 70 74 28 34 2c  |)...J.menuopt(4,|
000033c0  25 30 30 30 30 30 30 30  30 2c 68 61 6e 64 6c 65  |%00000000,handle|
000033d0  34 25 2c 25 30 30 30 30  30 31 31 31 2c a4 6d 73  |4%,%00000111,.ms|
000033e0  67 30 28 22 4d 34 22 29  2c ac 28 6c 6f 61 64 65  |g0("M4"),.(loade|
000033f0  64 20 84 65 64 69 74 65  64 29 29 0d 12 b6 34 f2  |d .edited))...4.|
00003400  6d 65 6e 75 6f 70 74 28  35 2c 25 31 30 30 30 30  |menuopt(5,%10000|
00003410  30 30 30 2c 2d 31 2c 25  30 30 30 30 30 31 31 31  |000,-1,%00000111|
00003420  2c a4 6d 73 67 30 28 22  4d 35 22 29 2c 30 29 0d  |,.msg0("M5"),0).|
00003430  12 c0 09 63 6d 25 3d 31  0d 12 ca 05 e1 0d 12 d4  |...cm%=1........|
00003440  04 0d 12 de 0b dd f2 6d  65 6e 75 32 0d 12 e8 29  |.......menu2...)|
00003450  f2 63 72 65 61 74 65 6d  65 6e 75 28 22 43 6f 64  |.createmenu("Cod|
00003460  65 73 22 2c 37 2c 32 2c  37 2c 30 2c 31 30 30 2c  |es",7,2,7,0,100,|
00003470  34 34 2c 30 29 0d 12 f2  13 e3 49 3d 30 b8 6d 61  |44,0).....I=0.ma|
00003480  78 63 6f 64 65 25 2d 32  0d 12 fc 33 20 f2 6d 65  |xcode%-2...3 .me|
00003490  6e 75 6f 70 74 28 49 2c  25 30 30 30 30 30 30 30  |nuopt(I,%0000000|
000034a0  30 2c 2d 31 2c 25 30 30  30 30 30 31 31 31 2c 63  |0,-1,%00000111,c|
000034b0  6f 64 65 73 24 28 49 29  2c 30 29 0d 13 06 05 ed  |odes$(I),0).....|
000034c0  0d 13 10 44 f2 6d 65 6e  75 6f 70 74 28 6d 61 78  |...D.menuopt(max|
000034d0  63 6f 64 65 25 2d 31 2c  25 31 30 30 30 30 30 30  |code%-1,%1000000|
000034e0  30 2c 2d 31 2c 25 30 30  30 30 30 31 31 31 2c 63  |0,-1,%00000111,c|
000034f0  6f 64 65 73 24 28 6d 61  78 63 6f 64 65 25 2d 31  |odes$(maxcode%-1|
00003500  29 2c 30 29 0d 13 1a 09  63 6d 25 3d 32 0d 13 24  |),0)....cm%=2..$|
00003510  05 e1 0d 13 2e 04 0d 13  38 3e dd f2 63 72 65 61  |........8>..crea|
00003520  74 65 6d 65 6e 75 28 6d  74 69 74 6c 65 24 2c 6d  |temenu(mtitle$,m|
00003530  74 66 63 2c 6d 74 62 63  2c 77 61 66 63 2c 77 61  |tfc,mtbc,wafc,wa|
00003540  62 63 2c 77 69 64 74 68  2c 68 65 69 67 68 74 2c  |bc,width,height,|
00003550  73 65 70 29 0d 13 42 4a  24 6d 65 6e 75 25 3d 6d  |sep)..BJ$menu%=m|
00003560  74 69 74 6c 65 24 3a 6d  65 6e 75 25 3f 31 32 3d  |title$:menu%?12=|
00003570  6d 74 66 63 3a 6d 65 6e  75 25 3f 31 33 3d 6d 74  |mtfc:menu%?13=mt|
00003580  62 63 3a 6d 65 6e 75 25  3f 31 34 3d 77 61 66 63  |bc:menu%?14=wafc|
00003590  3a 6d 65 6e 75 25 3f 31  35 3d 77 61 62 63 0d 13  |:menu%?15=wabc..|
000035a0  4c 2f 6d 65 6e 75 25 21  31 36 3d 77 69 64 74 68  |L/menu%!16=width|
000035b0  3a 6d 65 6e 75 25 21 32  30 3d 68 65 69 67 68 74  |:menu%!20=height|
000035c0  3a 6d 65 6e 75 25 21 32  34 3d 73 65 70 0d 13 56  |:menu%!24=sep..V|
000035d0  05 e1 0d 13 60 04 0d 13  6a 2a dd f2 6d 65 6e 75  |....`...j*..menu|
000035e0  6f 70 74 28 6f 70 74 2c  66 6c 67 73 2c 70 74 72  |opt(opt,flgs,ptr|
000035f0  2c 63 6f 6c 2c 74 65 78  74 24 2c 67 72 65 79 29  |,col,text$,grey)|
00003600  0d 13 74 34 6d 65 6e 75  25 21 28 32 38 2b 28 6f  |..t4menu%!(28+(o|
00003610  70 74 2a 32 34 29 29 3d  66 6c 67 73 3a 6d 65 6e  |pt*24))=flgs:men|
00003620  75 25 21 28 33 32 2b 28  6f 70 74 2a 32 34 29 29  |u%!(32+(opt*24))|
00003630  3d 70 74 72 0d 13 7e 12  c8 8e 69 77 61 6e 74 66  |=ptr..~...iwantf|
00003640  6f 6e 74 73 20 ca 0d 13  88 10 20 c9 30 3a 69 63  |onts ..... .0:ic|
00003650  66 6c 67 73 3d 31 0d 13  92 22 20 c9 2d 31 3a 69  |flgs=1..." .-1:i|
00003660  63 66 6c 67 73 3d 25 31  30 30 30 30 30 31 3a 63  |cflgs=%1000001:c|
00003670  6f 6c 3d 66 6f 6e 74 25  0d 13 9c 05 cb 0d 13 a6  |ol=font%........|
00003680  36 6d 65 6e 75 25 21 28  33 36 2b 28 6f 70 74 2a  |6menu%!(36+(opt*|
00003690  32 34 29 29 3d 69 63 66  6c 67 73 3a 6d 65 6e 75  |24))=icflgs:menu|
000036a0  25 3f 28 33 39 2b 28 6f  70 74 2a 32 34 29 29 3d  |%?(39+(opt*24))=|
000036b0  63 6f 6c 0d 13 b0 21 24  28 6d 65 6e 75 25 2b 34  |col...!$(menu%+4|
000036c0  30 2b 28 6f 70 74 2a 32  34 29 29 3d 74 65 78 74  |0+(opt*24))=text|
000036d0  24 2b bd 30 0d 13 ba 36  e7 67 72 65 79 20 8c 6d  |$+.0...6.grey .m|
000036e0  65 6e 75 25 21 28 33 36  2b 6f 70 74 2a 32 34 29  |enu%!(36+opt*24)|
000036f0  3d 6d 65 6e 75 25 21 28  33 36 2b 6f 70 74 2a 32  |=menu%!(36+opt*2|
00003700  34 29 84 28 31 3c 3c 32  32 29 0d 13 c4 05 e1 0d  |4).(1<<22)......|
00003710  13 ce 04 0d 13 d8 18 dd  f2 68 61 6e 64 6c 65 6d  |.........handlem|
00003720  65 6e 75 28 62 6c 6f 63  6b 25 29 0d 13 e2 0a c8  |enu(block%).....|
00003730  8e 63 6d 25 ca 0d 13 ec  08 20 c9 31 3a 0d 13 f6  |.cm%..... .1:...|
00003740  11 20 20 c8 8e 21 62 6c  6f 63 6b 25 20 ca 0d 14  |.  ..!block% ...|
00003750  00 2d 20 20 20 c9 31 3a  e7 62 6c 6f 63 6b 25 21  |.-   .1:.block%!|
00003760  34 3d 2d 31 20 8c f2 6f  70 65 6e 77 69 6e 64 6f  |4=-1 ..openwindo|
00003770  77 28 68 61 6e 64 6c 65  35 25 29 0d 14 0a 25 20  |w(handle5%)...% |
00003780  20 20 c9 32 3a e7 62 6c  6f 63 6b 25 21 34 3d 2d  |  .2:.block%!4=-|
00003790  31 20 f2 63 68 61 6e 67  65 64 65 74 61 69 6c 73  |1 .changedetails|
000037a0  0d 14 14 2c 20 20 20 c9  34 3a e7 62 6c 6f 63 6b  |...,   .4:.block|
000037b0  25 21 34 3d 2d 31 20 f2  6f 70 65 6e 77 69 6e 64  |%!4=-1 .openwind|
000037c0  6f 77 28 68 61 6e 64 6c  65 34 25 29 0d 14 1e 26  |ow(handle4%)...&|
000037d0  20 20 20 c9 35 3a e7 62  6c 6f 63 6b 25 21 34 3d  |   .5:.block%!4=|
000037e0  2d 31 20 f2 61 6e 79 74  68 69 6e 67 74 6f 73 61  |-1 .anythingtosa|
000037f0  76 65 0d 14 28 07 20 20  cb 0d 14 32 08 20 c9 32  |ve..(.  ...2. .2|
00003800  3a 0d 14 3c 2a 20 20 f2  70 75 74 74 65 78 74 28  |:..<*  .puttext(|
00003810  68 61 6e 64 6c 65 37 25  2c 33 2c 63 6f 64 65 73  |handle7%,3,codes|
00003820  24 28 21 62 6c 6f 63 6b  25 29 29 0d 14 46 30 20  |$(!block%))..F0 |
00003830  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 43 61 72  | .. "Wimp_GetCar|
00003840  65 74 50 6f 73 69 74 69  6f 6e 22 2c 2c 62 6c 6f  |etPosition",,blo|
00003850  63 6b 25 b8 2c 62 6c 6f  63 6b 25 0d 14 50 21 20  |ck%.,block%..P! |
00003860  20 77 6e 64 77 25 3d 21  62 6c 6f 63 6b 25 3a 69  | wndw%=!block%:i|
00003870  63 6e 25 3d 62 6c 6f 63  6b 25 21 34 0d 14 5a 4b  |cn%=block%!4..ZK|
00003880  20 20 e7 77 6e 64 77 25  3d 68 61 6e 64 6c 65 37  |  .wndw%=handle7|
00003890  25 80 69 63 6e 25 3d 33  20 f2 73 65 74 63 61 72  |%.icn%=3 .setcar|
000038a0  65 74 28 68 61 6e 64 6c  65 37 25 2c 33 2c a9 28  |et(handle7%,3,.(|
000038b0  a4 69 63 6f 6e 74 65 78  74 28 68 61 6e 64 6c 65  |.icontext(handle|
000038c0  37 25 2c 33 29 29 29 0d  14 64 05 cb 0d 14 6e 05  |7%,3)))..d....n.|
000038d0  e1 0d 14 78 04 0d 14 82  0d dd f2 67 65 74 66 6f  |...x.......getfo|
000038e0  6e 74 0d 14 8c 59 66 6f  6e 74 25 3d a4 66 69 6e  |nt...Yfont%=.fin|
000038f0  64 66 6f 6e 74 28 a4 6d  73 67 30 28 22 46 6f 6e  |dfont(.msg0("Fon|
00003900  74 22 29 2c bb a4 6d 73  67 30 28 22 46 6f 6e 74  |t"),..msg0("Font|
00003910  57 22 29 2c bb a4 6d 73  67 30 28 22 46 6f 6e 74  |W"),..msg0("Font|
00003920  48 22 29 2c 22 54 72 69  6e 69 74 79 2e 4d 65 64  |H"),"Trinity.Med|
00003930  69 75 6d 22 2c 31 33 2c  31 33 29 0d 14 96 05 e1  |ium",13,13).....|
00003940  0d 14 a0 04 0d 14 aa 34  dd a4 66 69 6e 64 66 6f  |.......4..findfo|
00003950  6e 74 28 6e 61 6d 65 24  2c 73 69 7a 65 25 2c 68  |nt(name$,size%,h|
00003960  65 69 67 68 74 25 2c 64  65 66 61 75 6c 74 24 2c  |eight%,default$,|
00003970  64 73 25 2c 64 77 25 29  0d 14 b4 0d ea 68 61 6e  |ds%,dw%).....han|
00003980  64 25 3a ea 85 0d 14 be  2f ee 85 ea 20 6e 61 6d  |d%:...../... nam|
00003990  65 24 3d 64 65 66 61 75  6c 74 24 3a 73 69 7a 65  |e$=default$:size|
000039a0  25 3d 64 73 25 3a 68 65  69 67 68 74 25 3d 64 68  |%=ds%:height%=dh|
000039b0  25 3a f7 85 0d 14 c8 38  c8 99 20 22 46 6f 6e 74  |%:.....8.. "Font|
000039c0  5f 46 69 6e 64 46 6f 6e  74 22 2c 2c 6e 61 6d 65  |_FindFont",,name|
000039d0  24 2c 73 69 7a 65 25 2a  31 36 2c 68 65 69 67 68  |$,size%*16,heigh|
000039e0  74 25 2a 31 36 20 b8 68  61 6e 64 25 0d 14 d2 0a  |t%*16 .hand%....|
000039f0  3d 68 61 6e 64 25 0d 14  dc 04 0d 14 e6 1c dd f2  |=hand%..........|
00003a00  65 6e 61 62 6c 65 69 63  6f 6e 28 77 6e 64 77 25  |enableicon(wndw%|
00003a10  2c 69 63 6e 25 29 0d 14  f0 3a 21 62 6c 6f 63 6b  |,icn%)...:!block|
00003a20  25 3d 77 6e 64 77 25 3a  62 6c 6f 63 6b 25 21 34  |%=wndw%:block%!4|
00003a30  3d 69 63 6e 25 3a 62 6c  6f 63 6b 25 21 38 3d 30  |=icn%:block%!8=0|
00003a40  3a 62 6c 6f 63 6b 25 21  31 32 3d 31 3c 3c 32 32  |:block%!12=1<<22|
00003a50  0d 14 fa 22 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...".. "Wimp_Set|
00003a60  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00003a70  6b 25 0d 15 04 05 e1 0d  15 0e 04 0d 15 18 1a dd  |k%..............|
00003a80  f2 67 72 65 79 69 63 6f  6e 28 77 6e 64 77 25 2c  |.greyicon(wndw%,|
00003a90  69 63 6e 25 29 0d 15 22  3e 21 62 6c 6f 63 6b 25  |icn%)..">!block%|
00003aa0  3d 77 6e 64 77 25 3a 62  6c 6f 63 6b 25 21 34 3d  |=wndw%:block%!4=|
00003ab0  69 63 6e 25 3a 62 6c 6f  63 6b 25 21 38 3d 31 3c  |icn%:block%!8=1<|
00003ac0  3c 32 32 3a 62 6c 6f 63  6b 25 21 31 32 3d 31 3c  |<22:block%!12=1<|
00003ad0  3c 32 32 0d 15 2c 22 c8  99 20 22 57 69 6d 70 5f  |<22..,".. "Wimp_|
00003ae0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
00003af0  6c 6f 63 6b 25 0d 15 36  05 e1 0d 15 40 04 0d 15  |lock%..6....@...|
00003b00  4a 14 dd f2 64 72 61 67  62 6f 78 28 77 6e 64 77  |J...dragbox(wndw|
00003b10  25 29 0d 15 54 32 21 62  6c 6f 63 6b 25 3d 77 6e  |%)..T2!block%=wn|
00003b20  64 77 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |dw%:.. "Wimp_Get|
00003b30  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00003b40  6f 63 6b 25 0d 15 5e 30  78 25 3d 62 6c 6f 63 6b  |ock%..^0x%=block|
00003b50  25 21 34 2d 62 6c 6f 63  6b 25 21 32 30 3a 79 25  |%!4-block%!20:y%|
00003b60  3d 62 6c 6f 63 6b 25 21  31 36 2d 62 6c 6f 63 6b  |=block%!16-block|
00003b70  25 21 32 34 0d 15 68 2d  62 6c 6f 63 6b 25 21 34  |%!24..h-block%!4|
00003b80  3d 30 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |=0:.. "Wimp_GetI|
00003b90  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00003ba0  25 0d 15 72 1c 21 62 6c  6f 63 6b 25 3d 77 6e 64  |%..r.!block%=wnd|
00003bb0  77 25 3a 62 6c 6f 63 6b  25 21 34 3d 35 0d 15 7c  |w%:block%!4=5..||
00003bc0  0f c8 8e 44 72 67 50 72  65 73 25 ca 0d 15 86 08  |...DrgPres%.....|
00003bd0  20 c9 30 3a 0d 15 90 31  20 20 62 6c 6f 63 6b 25  | .0:...1  block%|
00003be0  21 38 3d 78 25 2b 62 6c  6f 63 6b 25 21 38 3a 62  |!8=x%+block%!8:b|
00003bf0  6c 6f 63 6b 25 21 31 32  3d 79 25 2b 62 6c 6f 63  |lock%!12=y%+bloc|
00003c00  6b 25 21 31 32 0d 15 9a  33 20 20 62 6c 6f 63 6b  |k%!12...3  block|
00003c10  25 21 31 36 3d 78 25 2b  62 6c 6f 63 6b 25 21 31  |%!16=x%+block%!1|
00003c20  36 3a 62 6c 6f 63 6b 25  21 32 30 3d 79 25 2b 62  |6:block%!20=y%+b|
00003c30  6c 6f 63 6b 25 21 32 30  0d 15 a4 45 20 20 62 6c  |lock%!20...E  bl|
00003c40  6f 63 6b 25 21 32 34 3d  30 3a 62 6c 6f 63 6b 25  |ock%!24=0:block%|
00003c50  21 32 38 3d 30 3a 62 6c  6f 63 6b 25 21 33 32 3d  |!28=0:block%!32=|
00003c60  26 37 46 46 46 46 46 46  46 3a 62 6c 6f 63 6b 25  |&7FFFFFFF:block%|
00003c70  21 33 36 3d 26 37 46 46  46 46 46 46 46 0d 15 ae  |!36=&7FFFFFFF...|
00003c80  1f 20 20 c8 99 20 22 57  69 6d 70 5f 44 72 61 67  |.  .. "Wimp_Drag|
00003c90  42 6f 78 22 2c 2c 62 6c  6f 63 6b 25 0d 15 b8 09  |Box",,block%....|
00003ca0  20 c9 2d 31 3a 0d 15 c2  48 20 20 e7 73 76 61 73  | .-1:...H  .svas|
00003cb0  74 78 74 20 8c 64 72 61  67 24 3d 22 66 69 6c 65  |txt .drag$="file|
00003cc0  5f 66 66 66 22 3a 64 72  61 67 25 3d 31 3a 8b 64  |_fff":drag%=1:.d|
00003cd0  72 61 67 24 3d 66 69 6c  65 74 79 70 65 24 3a 64  |rag$=filetype$:d|
00003ce0  72 61 67 25 3d 73 70 72  69 74 65 73 25 0d 15 cc  |rag%=sprites%...|
00003cf0  4f 20 20 62 6c 6f 63 6b  25 21 38 3d 78 25 3a 62  |O  block%!8=x%:b|
00003d00  6c 6f 63 6b 25 21 31 32  3d 79 25 2d 31 36 3a 62  |lock%!12=y%-16:b|
00003d10  6c 6f 63 6b 25 21 31 36  3d 78 25 2b 62 6c 6f 63  |lock%!16=x%+bloc|
00003d20  6b 25 21 31 36 3a 62 6c  6f 63 6b 25 21 32 30 3d  |k%!16:block%!20=|
00003d30  79 25 2b 62 6c 6f 63 6b  25 21 32 30 0d 15 d6 3b  |y%+block%!20...;|
00003d40  20 20 c8 99 20 22 44 72  61 67 41 53 70 72 69 74  |  .. "DragASprit|
00003d50  65 5f 53 74 61 72 74 22  2c 25 31 30 30 30 31 31  |e_Start",%100011|
00003d60  31 31 2c 64 72 61 67 25  2c 64 72 61 67 24 2c 62  |11,drag%,drag$,b|
00003d70  6c 6f 63 6b 25 2b 38 0d  15 e0 05 cb 0d 15 ea 05  |lock%+8.........|
00003d80  e1 0d 15 f4 04 0d 15 fe  11 dd f2 73 61 76 65 28  |...........save(|
00003d90  66 69 6c 65 24 29 0d 16  08 32 e7 74 72 61 6e 73  |file$)...2.trans|
00003da0  61 63 74 69 6f 6e 73 25  3d 30 20 f2 6d 61 6b 65  |actions%=0 .make|
00003db0  65 72 72 6f 72 28 a4 6d  73 67 30 28 22 45 72 72  |error(.msg0("Err|
00003dc0  39 22 29 2c 30 29 3a e1  0d 16 12 15 c8 99 20 22  |9"),0):....... "|
00003dd0  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 0d 16 1c  |Hourglass_On"...|
00003de0  0f 66 69 6c 65 3d ae 66  69 6c 65 24 0d 16 26 0f  |.file=.file$..&.|
00003df0  c8 8e 73 76 61 73 74 78  74 20 ca 0d 16 30 08 20  |..svastxt ...0. |
00003e00  c9 30 3a 0d 16 3a 2d 20  20 f1 23 66 69 6c 65 2c  |.0:..:-  .#file,|
00003e10  61 63 24 2c 61 63 6e 24  2c 74 72 61 6e 73 61 63  |ac$,acn$,transac|
00003e20  74 69 6f 6e 73 25 2c 6f  76 65 72 64 72 61 66 74  |tions%,overdraft|
00003e30  0d 16 44 10 20 20 64 61  74 61 70 74 72 25 3d 30  |..D.  dataptr%=0|
00003e40  0d 16 4e 18 20 20 e3 49  3d 31 b8 74 72 61 6e 73  |..N.  .I=1.trans|
00003e50  61 63 74 69 6f 6e 73 25  0d 16 58 10 20 20 20 f2  |actions%..X.   .|
00003e60  72 65 61 64 64 61 74 61  0d 16 62 3b 20 20 20 d5  |readdata..b;   .|
00003e70  23 66 69 6c 65 2c 75 6e  63 6c 3a d5 23 66 69 6c  |#file,uncl:.#fil|
00003e80  65 2c 64 61 79 3a d5 23  66 69 6c 65 2c 6d 6e 3a  |e,day:.#file,mn:|
00003e90  d5 23 66 69 6c 65 2c 79  65 3a d5 23 66 69 6c 65  |.#file,ye:.#file|
00003ea0  2c 61 72 0d 16 6c 28 20  20 20 f1 23 66 69 6c 65  |,ar..l(   .#file|
00003eb0  2c 63 6f 64 65 24 2c 64  65 73 63 24 2c 64 65 62  |,code$,desc$,deb|
00003ec0  28 49 29 2c 63 72 65 64  28 49 29 0d 16 76 13 20  |(I),cred(I)..v. |
00003ed0  20 20 64 61 74 61 70 74  72 25 2b 3d 34 30 0d 16  |  dataptr%+=40..|
00003ee0  80 07 20 20 ed 0d 16 8a  0c 20 20 d9 23 66 69 6c  |..  .....  .#fil|
00003ef0  65 0d 16 94 29 20 20 ff  22 53 65 74 54 79 70 65  |e...)  ."SetType|
00003f00  20 22 2b 66 69 6c 65 24  2b 22 20 22 2b c2 66 69  | "+file$+" "+.fi|
00003f10  6c 65 74 79 70 65 24 2c  33 29 0d 16 9e 09 20 c9  |letype$,3).... .|
00003f20  2d 31 3a 0d 16 a8 2e 20  20 d5 23 66 69 6c 65 2c  |-1:....  .#file,|
00003f30  22 22 3a d5 23 66 69 6c  65 2c 61 63 6e 24 2b 22  |"":.#file,acn$+"|
00003f40  3a 20 22 2b 61 63 24 3a  d5 23 66 69 6c 65 2c 22  |: "+ac$:.#file,"|
00003f50  22 0d 16 b2 50 20 20 d5  23 66 69 6c 65 2c 22 20  |"...P  .#file," |
00003f60  20 20 20 44 61 74 65 20  43 6f 64 65 20 20 44 65  |   Date Code  De|
00003f70  73 63 72 69 70 74 69 6f  6e 22 2b c4 32 32 2c 22  |scription"+.22,"|
00003f80  20 22 29 2b 22 44 65 62  69 74 20 20 20 20 43 72  | ")+"Debit    Cr|
00003f90  65 64 69 74 20 20 20 20  20 42 61 6c 61 6e 63 65  |edit     Balance|
00003fa0  22 0d 16 bc 1a 20 20 e3  49 3d 30 b8 74 72 61 6e  |"....  .I=0.tran|
00003fb0  73 61 63 74 69 6f 6e 73  25 2d 31 0d 16 c6 15 20  |sactions%-1.... |
00003fc0  20 20 74 65 6d 70 24 3d  c4 37 36 2c 22 20 22 29  |  temp$=.76," ")|
00003fd0  0d 16 d0 14 20 20 20 64  61 74 61 70 74 72 25 3d  |....   dataptr%=|
00003fe0  34 30 2a 49 0d 16 da 10  20 20 20 f2 72 65 61 64  |40*I....   .read|
00003ff0  64 61 74 61 0d 16 e4 1f  20 20 20 c1 74 65 6d 70  |data....   .temp|
00004000  24 2c 28 39 2d a9 64 61  74 65 24 29 29 3d 64 61  |$,(9-.date$))=da|
00004010  74 65 24 0d 16 ee 17 20  20 20 c1 74 65 6d 70 24  |te$....   .temp$|
00004020  2c 31 31 29 3d 63 6f 64  65 24 0d 16 f8 17 20 20  |,11)=code$....  |
00004030  20 c1 74 65 6d 70 24 2c  31 36 29 3d 64 65 73 63  | .temp$,16)=desc|
00004040  24 0d 17 02 40 20 20 20  e7 64 65 62 28 49 2b 31  |$...@   .deb(I+1|
00004050  29 3e 30 20 8c 74 65 6d  70 32 24 3d c3 28 64 65  |)>0 .temp2$=.(de|
00004060  62 28 49 2b 31 29 29 3a  c1 74 65 6d 70 24 2c 35  |b(I+1)):.temp$,5|
00004070  34 2d a9 74 65 6d 70 32  24 29 3d 74 65 6d 70 32  |4-.temp2$)=temp2|
00004080  24 0d 17 0c 42 20 20 20  e7 63 72 65 64 28 49 2b  |$...B   .cred(I+|
00004090  31 29 3e 30 20 8c 74 65  6d 70 32 24 3d c3 28 63  |1)>0 .temp2$=.(c|
000040a0  72 65 64 28 49 2b 31 29  29 3a c1 74 65 6d 70 24  |red(I+1)):.temp$|
000040b0  2c 36 34 2d a9 74 65 6d  70 32 24 29 3d 74 65 6d  |,64-.temp2$)=tem|
000040c0  70 32 24 0d 17 16 19 20  20 20 74 65 6d 70 32 24  |p2$....   temp2$|
000040d0  3d c3 28 62 61 6c 28 49  2b 31 29 29 0d 17 20 22  |=.(bal(I+1)).. "|
000040e0  20 20 20 c1 74 65 6d 70  24 2c 28 37 36 2d a9 74  |   .temp$,(76-.t|
000040f0  65 6d 70 32 24 29 29 3d  74 65 6d 70 32 24 0d 17  |emp2$))=temp2$..|
00004100  2a 13 20 20 20 d5 23 66  69 6c 65 2c 74 65 6d 70  |*.   .#file,temp|
00004110  24 0d 17 34 25 20 20 20  70 65 72 63 65 6e 74 25  |$..4%   percent%|
00004120  3d 28 49 2f 74 72 61 6e  73 61 63 74 69 6f 6e 73  |=(I/transactions|
00004130  25 29 2a 31 30 30 0d 17  3e 07 20 20 ed 0d 17 48  |%)*100..>.  ...H|
00004140  0f 20 20 d5 23 66 69 6c  65 2c 22 22 0d 17 52 0c  |.  .#file,""..R.|
00004150  20 20 d9 23 66 69 6c 65  0d 17 5c 1e 20 20 ff 22  |  .#file..\.  ."|
00004160  53 65 74 54 79 70 65 20  22 2b 66 69 6c 65 24 2b  |SetType "+file$+|
00004170  22 20 46 46 46 22 0d 17  66 05 cb 0d 17 70 18 c8  |" FFF"..f....p..|
00004180  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 53 6d 61  |. "Hourglass_Sma|
00004190  73 68 22 0d 17 7a 05 e1  0d 17 84 04 0d 17 8e 0f  |sh"..z..........|
000041a0  dd f2 71 75 69 63 6b 73  61 76 65 0d 17 98 23 66  |..quicksave...#f|
000041b0  69 6c 65 6e 61 6d 65 24  3d a4 69 63 6f 6e 74 65  |ilename$=.iconte|
000041c0  78 74 28 68 61 6e 64 6c  65 34 25 2c 31 29 0d 17  |xt(handle4%,1)..|
000041d0  a2 35 e7 a7 66 69 6c 65  6e 61 6d 65 24 2c 22 2e  |.5..filename$,".|
000041e0  22 29 3d 30 20 8c f2 6d  61 6b 65 65 72 72 6f 72  |")=0 ..makeerror|
000041f0  28 a4 6d 73 67 30 28 22  45 72 72 33 22 29 2c 30  |(.msg0("Err3"),0|
00004200  29 3a e1 0d 17 ac 24 f2  73 61 76 65 28 66 69 6c  |):....$.save(fil|
00004210  65 6e 61 6d 65 24 29 3a  f2 67 65 74 6f 75 74 6f  |ename$):.getouto|
00004220  66 73 61 76 69 6e 67 0d  17 b6 05 e1 0d 17 c0 04  |fsaving.........|
00004230  0d 17 ca 14 dd f2 67 65  74 6f 75 74 6f 66 73 61  |......getoutofsa|
00004240  76 69 6e 67 0d 17 d4 32  f2 63 6c 6f 73 65 77 69  |ving...2.closewi|
00004250  6e 64 6f 77 28 68 61 6e  64 6c 65 34 25 29 3a c8  |ndow(handle4%):.|
00004260  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00004270  6e 75 22 2c 2d 31 0d 17  de 0c 65 64 69 74 65 64  |nu",-1....edited|
00004280  3d 30 0d 17 e8 15 e7 71  75 69 74 74 69 6e 67 20  |=0.....quitting |
00004290  8c 65 78 69 74 3d b9 0d  17 f2 05 e1 0d 17 fc 04  |.exit=..........|
000042a0  0d 18 06 16 dd f2 64 61  74 61 6c 6f 61 64 28 62  |......dataload(b|
000042b0  6c 6f 63 6b 25 29 0d 18  10 15 c8 99 20 22 48 6f  |lock%)...... "Ho|
000042c0  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 18 1a 14 ea  |urglass_On".....|
000042d0  70 61 74 68 6e 61 6d 65  24 2c 74 79 70 65 25 0d  |pathname$,type%.|
000042e0  18 24 2d 70 61 74 68 6e  61 6d 65 24 3d a4 67 65  |.$-pathname$=.ge|
000042f0  74 73 74 72 69 6e 67 28  62 6c 6f 63 6b 25 2b 34  |tstring(block%+4|
00004300  34 29 3a 62 61 6c 61 6e  63 65 3d 30 0d 18 2e 26  |4):balance=0...&|
00004310  e7 a4 66 69 6c 65 73 74  79 70 65 28 70 61 74 68  |..filestype(path|
00004320  6e 61 6d 65 24 29 3d 66  69 6c 65 74 79 70 65 25  |name$)=filetype%|
00004330  20 8c 0d 18 38 3c 20 66  69 6c 65 3d 8e 70 61 74  | ...8< file=.pat|
00004340  68 6e 61 6d 65 24 3a e8  23 66 69 6c 65 2c 61 63  |hname$:.#file,ac|
00004350  24 2c 61 63 6e 24 2c 74  72 61 6e 73 61 63 74 69  |$,acn$,transacti|
00004360  6f 6e 73 25 2c 6f 76 65  72 64 72 61 66 74 0d 18  |ons%,overdraft..|
00004370  42 1c 20 e7 74 72 61 6e  73 61 63 74 69 6f 6e 73  |B. .transactions|
00004380  25 3e 6d 61 78 76 61 6c  25 8c 0d 18 4c 2d 20 20  |%>maxval%...L-  |
00004390  6f 6c 64 62 6c 6f 63 6b  25 21 31 32 3d 6f 6c 64  |oldblock%!12=old|
000043a0  62 6c 6f 63 6b 25 21 38  3a 6f 6c 64 62 6c 6f 63  |block%!8:oldbloc|
000043b0  6b 25 21 31 36 3d 34 0d  18 56 34 20 20 c8 99 20  |k%!16=4..V4  .. |
000043c0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000043d0  65 22 2c 31 37 2c 6f 6c  64 62 6c 6f 63 6b 25 2c  |e",17,oldblock%,|
000043e0  6f 6c 64 62 6c 6f 63 6b  25 21 34 0d 18 60 0c 20  |oldblock%!4..`. |
000043f0  20 d9 23 66 69 6c 65 0d  18 6a 22 20 20 f2 6d 61  | .#file..j"  .ma|
00004400  6b 65 65 72 72 6f 72 28  a4 6d 73 67 30 28 22 45  |keerror(.msg0("E|
00004410  72 72 34 22 29 2c 2d 31  29 0d 18 74 06 20 cd 0d  |rr4"),-1)..t. ..|
00004420  18 7e 17 20 e3 49 3d 31  b8 74 72 61 6e 73 61 63  |.~. .I=1.transac|
00004430  74 69 6f 6e 73 25 0d 18  88 3a 20 20 75 6e 63 6c  |tions%...:  uncl|
00004440  3d 9a 23 66 69 6c 65 3a  64 61 79 3d 9a 23 66 69  |=.#file:day=.#fi|
00004450  6c 65 3a 6d 6e 3d 9a 23  66 69 6c 65 3a 79 65 3d  |le:mn=.#file:ye=|
00004460  9a 23 66 69 6c 65 3a 61  72 3d 9a 23 66 69 6c 65  |.#file:ar=.#file|
00004470  0d 18 92 27 20 20 e8 23  66 69 6c 65 2c 63 6f 64  |...'  .#file,cod|
00004480  65 24 2c 64 65 73 63 24  2c 64 65 62 28 49 29 2c  |e$,desc$,deb(I),|
00004490  63 72 65 64 28 49 29 0d  18 9c 33 20 20 62 61 6c  |cred(I)...3  bal|
000044a0  61 6e 63 65 3d 62 61 6c  61 6e 63 65 2b 63 72 65  |ance=balance+cre|
000044b0  64 28 49 29 2d 64 65 62  28 49 29 3a 62 61 6c 28  |d(I)-deb(I):bal(|
000044c0  49 29 3d 62 61 6c 61 6e  63 65 0d 18 a6 1d 20 20  |I)=balance....  |
000044d0  f2 77 72 69 74 65 64 61  74 61 3a 64 61 74 61 70  |.writedata:datap|
000044e0  74 72 25 2b 3d 34 30 0d  18 b0 47 20 20 70 65 72  |tr%+=40...G  per|
000044f0  63 65 6e 74 25 3d 28 49  2f 74 72 61 6e 73 61 63  |cent%=(I/transac|
00004500  74 69 6f 6e 73 25 29 2a  31 30 30 3a c8 99 20 22  |tions%)*100:.. "|
00004510  48 6f 75 72 67 6c 61 73  73 5f 50 65 72 63 65 6e  |Hourglass_Percen|
00004520  74 61 67 65 22 2c 70 65  72 63 65 6e 74 25 0d 18  |tage",percent%..|
00004530  ba 07 20 ed 49 0d 18 c4  0b 20 d9 23 66 69 6c 65  |.. .I.... .#file|
00004540  0d 18 ce 39 20 f2 70 75  74 74 65 78 74 28 68 61  |...9 .puttext(ha|
00004550  6e 64 6c 65 31 31 25 2c  31 2c 61 63 24 29 3a f2  |ndle11%,1,ac$):.|
00004560  70 75 74 74 65 78 74 28  68 61 6e 64 6c 65 31 31  |puttext(handle11|
00004570  25 2c 33 2c 61 63 6e 24  29 0d 18 d8 1d 20 70 61  |%,3,acn$).... pa|
00004580  67 65 25 3d 30 3a f2 75  70 64 61 74 65 73 74 61  |ge%=0:.updatesta|
00004590  74 65 6d 65 6e 74 0d 18  e2 3c 20 6c 6f 61 64 65  |tement...< loade|
000045a0  64 3d b9 3a f2 70 75 74  74 65 78 74 28 68 61 6e  |d=.:.puttext(han|
000045b0  64 6c 65 34 25 2c 31 2c  70 61 74 68 6e 61 6d 65  |dle4%,1,pathname|
000045c0  24 29 3a 66 69 6c 65 24  3d 70 61 74 68 6e 61 6d  |$):file$=pathnam|
000045d0  65 24 0d 18 ec 05 cc 0d  18 f6 20 20 f2 6d 61 6b  |e$........  .mak|
000045e0  65 65 72 72 6f 72 28 a4  6d 73 67 30 28 22 45 72  |eerror(.msg0("Er|
000045f0  72 35 22 29 2c 30 29 0d  19 00 05 cd 0d 19 0a 18  |r5"),0).........|
00004600  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 53 6d  |.. "Hourglass_Sm|
00004610  61 73 68 22 0d 19 14 05  e1 0d 19 1e 04 0d 19 28  |ash"...........(|
00004620  13 dd a4 66 69 6c 65 73  74 79 70 65 28 66 24 29  |...filestype(f$)|
00004630  0d 19 32 0f ea 74 79 70  65 25 2c 6f 62 6a 25 0d  |..2..type%,obj%.|
00004640  19 3c 22 c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |.<".. "OS_File",|
00004650  35 2c 66 24 20 b8 6f 62  6a 25 2c 2c 74 79 70 65  |5,f$ .obj%,,type|
00004660  25 0d 19 46 2b e7 6f 62  6a 25 3d 31 20 80 28 74  |%..F+.obj%=1 .(t|
00004670  79 70 65 25 80 26 46 46  46 30 30 30 30 30 29 3c  |ype%.&FFF00000)<|
00004680  3e 26 46 46 46 30 30 30  30 30 20 8c 0d 19 50 0d  |>&FFF00000 ...P.|
00004690  20 74 79 70 65 25 3d 2d  32 0d 19 5a 05 cc 0d 19  | type%=-2..Z....|
000046a0  64 31 20 e7 6f 62 6a 25  3d 31 20 8c 74 79 70 65  |d1 .obj%=1 .type|
000046b0  25 3d 28 74 79 70 65 25  20 80 20 26 46 46 46 30  |%=(type% . &FFF0|
000046c0  30 29 3e 3e 38 20 8b 74  79 70 65 25 3d 2d 31 0d  |0)>>8 .type%=-1.|
000046d0  19 6e 05 cd 0d 19 78 0a  3d 74 79 70 65 25 0d 19  |.n....x.=type%..|
000046e0  82 04 0d 19 8c 1c dd a4  67 65 74 61 64 64 72 65  |........getaddre|
000046f0  73 73 28 77 6e 64 77 25  2c 69 63 6e 25 29 0d 19  |ss(wndw%,icn%)..|
00004700  96 3e 21 62 6c 6f 63 6b  25 3d 77 6e 64 77 25 3a  |.>!block%=wndw%:|
00004710  62 6c 6f 63 6b 25 21 34  3d 69 63 6e 25 3a c8 99  |block%!4=icn%:..|
00004720  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00004730  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 19 a0 11  |ate",,block%....|
00004740  3d 21 28 62 6c 6f 63 6b  25 2b 32 38 29 0d 19 aa  |=!(block%+28)...|
00004750  04 0d 19 b4 1a dd a4 69  63 6f 6e 74 65 78 74 28  |.......icontext(|
00004760  77 6e 64 77 25 2c 69 63  6e 25 29 0d 19 be 3e 21  |wndw%,icn%)...>!|
00004770  62 6c 6f 63 6b 25 3d 77  6e 64 77 25 3a 62 6c 6f  |block%=wndw%:blo|
00004780  63 6b 25 21 34 3d 69 63  6e 25 3a c8 99 20 22 57  |ck%!4=icn%:.. "W|
00004790  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
000047a0  22 2c 2c 62 6c 6f 63 6b  25 0d 19 c8 11 3d 24 28  |",,block%....=$(|
000047b0  62 6c 6f 63 6b 25 21 32  38 29 0d 19 d2 04 0d 19  |block%!28)......|
000047c0  dc 1f dd f2 70 75 74 74  65 78 74 28 77 6e 64 77  |....puttext(wndw|
000047d0  25 2c 69 63 6e 25 2c 74  65 6d 70 24 29 0d 19 e6  |%,icn%,temp$)...|
000047e0  3e 21 62 6c 6f 63 6b 25  3d 77 6e 64 77 25 3a 62  |>!block%=wndw%:b|
000047f0  6c 6f 63 6b 25 21 34 3d  69 63 6e 25 3a c8 99 20  |lock%!4=icn%:.. |
00004800  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00004810  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 19 f0 49 21  |te",,block%...I!|
00004820  62 6c 6f 63 6b 25 3d 77  6e 64 77 25 3a 62 6c 6f  |block%=wndw%:blo|
00004830  63 6b 25 21 34 3d 69 63  6e 25 3a 62 6c 6f 63 6b  |ck%!4=icn%:block|
00004840  25 21 38 3d 30 3a 62 6c  6f 63 6b 25 21 31 32 3d  |%!8=0:block%!12=|
00004850  30 3a 24 28 62 6c 6f 63  6b 25 21 32 38 29 3d 74  |0:$(block%!28)=t|
00004860  65 6d 70 24 0d 19 fa 22  c8 99 20 22 57 69 6d 70  |emp$...".. "Wimp|
00004870  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00004880  62 6c 6f 63 6b 25 0d 1a  04 05 e1 0d 1a 0e 04 0d  |block%..........|
00004890  1a 18 16 dd a4 67 65 74  73 74 72 69 6e 67 28 74  |.....getstring(t|
000048a0  65 6d 70 25 29 0d 1a 22  0c 74 65 6d 70 24 3d 22  |emp%)..".temp$="|
000048b0  22 0d 1a 2c 3a c8 95 28  3f 74 65 6d 70 25 3c 3e  |"..,:..(?temp%<>|
000048c0  31 33 29 80 28 3f 74 65  6d 70 25 3c 3e 30 29 3a  |13).(?temp%<>0):|
000048d0  74 65 6d 70 24 2b 3d bd  28 3f 74 65 6d 70 25 29  |temp$+=.(?temp%)|
000048e0  3a 74 65 6d 70 25 2b 3d  31 3a ce 0d 1a 36 0a 3d  |:temp%+=1:...6.=|
000048f0  74 65 6d 70 24 0d 1a 40  04 0d 1a 4a 20 dd a4 67  |temp$..@...J ..g|
00004900  65 74 66 69 6c 65 66 72  6f 6d 70 61 74 68 6e 61  |etfilefrompathna|
00004910  6d 65 28 74 65 6d 70 24  29 0d 1a 54 12 c8 8e a7  |me(temp$)..T....|
00004920  74 65 6d 70 24 2c 22 2e  22 29 ca 0d 1a 5e 0e 20  |temp$,".")...^. |
00004930  c9 30 3a 3d 74 65 6d 70  24 0d 1a 68 3a 20 7f 3a  |.0:=temp$..h: .:|
00004940  3d a4 67 65 74 66 69 6c  65 66 72 6f 6d 70 61 74  |=.getfilefrompat|
00004950  68 6e 61 6d 65 28 c2 74  65 6d 70 24 2c a9 28 74  |hname(.temp$,.(t|
00004960  65 6d 70 24 29 2d a7 74  65 6d 70 24 2c 22 2e 22  |emp$)-.temp$,"."|
00004970  29 29 29 0d 1a 72 05 cb  0d 1a 7c 04 0d 1a 86 11  |)))..r....|.....|
00004980  dd f2 70 61 6e 65 28 74  65 6d 70 25 29 0d 1a 90  |..pane(temp%)...|
00004990  3e ea 20 70 61 6e 65 25  2c 6d 61 69 6e 25 2c 77  |>. pane%,main%,w|
000049a0  69 64 74 68 25 2c 68 65  69 67 68 74 25 2c 70 74  |idth%,height%,pt|
000049b0  6f 70 3a 70 61 6e 65 25  3d 6d 65 6e 75 25 3a 6d  |op:pane%=menu%:m|
000049c0  61 69 6e 25 3d 62 6c 6f  63 6b 25 0d 1a 9a 30 21  |ain%=block%...0!|
000049d0  70 61 6e 65 25 3d 74 65  6d 70 25 3a c8 99 20 22  |pane%=temp%:.. "|
000049e0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000049f0  61 74 65 22 2c 2c 70 61  6e 65 25 0d 1a a4 34 77  |ate",,pane%...4w|
00004a00  69 64 74 68 25 3d 70 61  6e 65 25 21 31 32 2d 70  |idth%=pane%!12-p|
00004a10  61 6e 65 25 21 34 3a 68  65 69 67 68 74 25 3d 70  |ane%!4:height%=p|
00004a20  61 6e 65 25 21 31 36 2d  70 61 6e 65 25 21 38 0d  |ane%!16-pane%!8.|
00004a30  1a ae 54 70 74 6f 70 3d  28 6d 61 69 6e 25 21 31  |..Tptop=(main%!1|
00004a40  32 3e 70 61 6e 65 25 21  34 29 2a 28 6d 61 69 6e  |2>pane%!4)*(main|
00004a50  25 21 34 3c 70 61 6e 65  25 21 31 32 29 2a 28 6d  |%!4<pane%!12)*(m|
00004a60  61 69 6e 25 21 31 36 3e  70 61 6e 65 25 21 38 29  |ain%!16>pane%!8)|
00004a70  2a 28 6d 61 69 6e 25 21  38 3c 70 61 6e 65 25 21  |*(main%!8<pane%!|
00004a80  31 36 29 0d 1a b8 3b e7  6d 61 69 6e 25 21 32 38  |16)...;.main%!28|
00004a90  3c 3e 74 65 6d 70 25 20  70 61 6e 65 25 21 32 38  |<>temp% pane%!28|
00004aa0  3d 6d 61 69 6e 25 21 32  38 3a e7 70 74 6f 70 20  |=main%!28:.ptop |
00004ab0  6d 61 69 6e 25 21 32 38  3d 74 65 6d 70 25 0d 1a  |main%!28=temp%..|
00004ac0  c2 2b 70 61 6e 65 25 21  34 3d 6d 61 69 6e 25 21  |.+pane%!4=main%!|
00004ad0  34 3a 70 61 6e 65 25 21  31 32 3d 70 61 6e 65 25  |4:pane%!12=pane%|
00004ae0  21 34 2b 77 69 64 74 68  25 0d 1a cc 38 70 61 6e  |!4+width%...8pan|
00004af0  65 25 21 38 3d 28 6d 61  69 6e 25 21 38 29 2d 68  |e%!8=(main%!8)-h|
00004b00  65 69 67 68 74 25 2d 34  3a 70 61 6e 65 25 21 31  |eight%-4:pane%!1|
00004b10  36 3d 70 61 6e 65 25 21  38 2b 68 65 69 67 68 74  |6=pane%!8+height|
00004b20  25 0d 1a d6 17 e7 70 74  6f 70 20 c8 94 6d 61 69  |%.....ptop ..mai|
00004b30  6e 25 2c 70 61 6e 65 25  0d 1a e0 3b c8 99 20 22  |n%,pane%...;.. "|
00004b40  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00004b50  2c 2c 6d 61 69 6e 25 3a  c8 99 20 22 57 69 6d 70  |,,main%:.. "Wimp|
00004b60  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 70 61  |_OpenWindow",,pa|
00004b70  6e 65 25 0d 1a ea 05 e1  0d 1a f4 04 0d 1a fe 4d  |ne%............M|
00004b80  20 20 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   -------------|
00004b90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004bc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 1b 08 04 0d 1b 12  |---------.......|
00004bd0  15 dd f2 75 70 64 61 74  65 73 74 61 74 65 6d 65  |...updatestateme|
00004be0  6e 74 0d 1b 1c 41 62 61  6c 61 6e 63 65 3d 30 3a  |nt...Abalance=0:|
00004bf0  e3 49 3d 30 b8 74 72 61  6e 73 61 63 74 69 6f 6e  |.I=0.transaction|
00004c00  73 25 3a 62 61 6c 61 6e  63 65 3d 62 61 6c 61 6e  |s%:balance=balan|
00004c10  63 65 2b 63 72 65 64 28  49 29 2d 64 65 62 28 49  |ce+cred(I)-deb(I|
00004c20  29 3a ed 0d 1b 26 a5 f2  70 75 74 74 65 78 74 28  |):...&..puttext(|
00004c30  68 61 6e 64 6c 65 25 2c  32 31 2c 22 a3 22 2b c3  |handle%,21,"."+.|
00004c40  62 61 6c 61 6e 63 65 29  3a f2 70 75 74 74 65 78  |balance):.puttex|
00004c50  74 28 68 61 6e 64 6c 65  31 31 25 2c 36 2c 22 a3  |t(handle11%,6,".|
00004c60  22 2b c3 62 61 6c 61 6e  63 65 29 3a f2 70 75 74  |"+.balance):.put|
00004c70  74 65 78 74 28 68 61 6e  64 6c 65 25 2c 32 32 2c  |text(handle%,22,|
00004c80  22 a3 22 2b c3 28 62 61  6c 61 6e 63 65 2b 6f 76  |"."+.(balance+ov|
00004c90  65 72 64 72 61 66 74 29  29 3a f2 70 75 74 74 65  |erdraft)):.putte|
00004ca0  78 74 28 68 61 6e 64 6c  65 31 31 25 2c 38 2c 22  |xt(handle11%,8,"|
00004cb0  a3 22 2b c3 28 62 61 6c  61 6e 63 65 2b 6f 76 65  |."+.(balance+ove|
00004cc0  72 64 72 61 66 74 29 29  0d 1b 30 60 41 25 3d 40  |rdraft))..0`A%=@|
00004cd0  25 3a 40 25 3d 30 3a 74  65 6d 70 24 3d c3 28 70  |%:@%=0:temp$=.(p|
00004ce0  61 67 65 25 2b 31 29 2b  22 2f 22 2b c3 28 28 28  |age%+1)+"/"+.(((|
00004cf0  74 72 61 6e 73 61 63 74  69 6f 6e 73 25 2d 31 29  |transactions%-1)|
00004d00  81 31 30 29 2b 31 29 3a  f2 70 75 74 74 65 78 74  |.10)+1):.puttext|
00004d10  28 68 61 6e 64 6c 65 25  2c 32 33 2c 74 65 6d 70  |(handle%,23,temp|
00004d20  24 29 3a 40 25 3d 41 25  0d 1b 3a 16 e7 74 72 61  |$):@%=A%..:..tra|
00004d30  6e 73 61 63 74 69 6f 6e  73 25 3d 30 20 e1 0d 1b  |nsactions%=0 ...|
00004d40  44 65 e7 28 74 72 61 6e  73 61 63 74 69 6f 6e 73  |De.(transactions|
00004d50  25 83 31 30 3e 30 20 80  74 72 61 6e 73 61 63 74  |%.10>0 .transact|
00004d60  69 6f 6e 73 25 81 31 30  3d 70 61 67 65 25 29 20  |ions%.10=page%) |
00004d70  8c 6e 75 6d 6f 6e 74 68  69 73 70 61 67 65 25 3d  |.numonthispage%=|
00004d80  74 72 61 6e 73 61 63 74  69 6f 6e 73 25 83 31 30  |transactions%.10|
00004d90  3a 8b 6e 75 6d 6f 6e 74  68 69 73 70 61 67 65 25  |:.numonthispage%|
00004da0  3d 31 30 0d 1b 4e 09 41  25 3d 40 25 0d 1b 58 22  |=10..N.A%=@%..X"|
00004db0  6c 61 73 74 70 61 67 65  25 3d 28 74 72 61 6e 73  |lastpage%=(trans|
00004dc0  61 63 74 69 6f 6e 73 25  2d 31 29 81 31 30 0d 1b  |actions%-1).10..|
00004dd0  62 25 e7 70 61 67 65 25  3e 6c 61 73 74 70 61 67  |b%.page%>lastpag|
00004de0  65 25 20 8c 70 61 67 65  25 3d 6c 61 73 74 70 61  |e% .page%=lastpa|
00004df0  67 65 25 0d 1b 6c 16 64  61 74 61 70 74 72 25 3d  |ge%..l.dataptr%=|
00004e00  70 61 67 65 25 2a 34 30  30 0d 1b 76 17 e3 49 3d  |page%*400..v..I=|
00004e10  31 b8 6e 75 6d 6f 6e 74  68 69 73 70 61 67 65 25  |1.numonthispage%|
00004e20  0d 1b 80 13 20 74 65 6d  70 24 3d c4 37 38 2c 22  |.... temp$=.78,"|
00004e30  20 22 29 0d 1b 8a 0e 20  f2 72 65 61 64 64 61 74  | ").... .readdat|
00004e40  61 0d 1b 94 1d 20 c1 74  65 6d 70 24 2c 28 39 2d  |a.... .temp$,(9-|
00004e50  a9 64 61 74 65 24 29 29  3d 64 61 74 65 24 0d 1b  |.date$))=date$..|
00004e60  9e 26 20 c1 74 65 6d 70  24 2c 31 30 29 3d 63 6f  |.& .temp$,10)=co|
00004e70  64 65 24 3a c1 74 65 6d  70 24 2c 31 36 29 3d 64  |de$:.temp$,16)=d|
00004e80  65 73 63 24 0d 1b a8 50  20 e7 64 65 62 28 49 2b  |esc$...P .deb(I+|
00004e90  28 70 61 67 65 25 2a 31  30 29 29 3e 30 20 8c 74  |(page%*10))>0 .t|
00004ea0  65 6d 70 32 24 3d c3 28  64 65 62 28 49 2b 28 70  |emp2$=.(deb(I+(p|
00004eb0  61 67 65 25 2a 31 30 29  29 29 3a c1 74 65 6d 70  |age%*10))):.temp|
00004ec0  24 2c 35 34 2d a9 74 65  6d 70 32 24 29 3d 74 65  |$,54-.temp2$)=te|
00004ed0  6d 70 32 24 0d 1b b2 52  20 e7 63 72 65 64 28 49  |mp2$...R .cred(I|
00004ee0  2b 28 70 61 67 65 25 2a  31 30 29 29 3e 30 20 8c  |+(page%*10))>0 .|
00004ef0  74 65 6d 70 32 24 3d c3  28 63 72 65 64 28 49 2b  |temp2$=.(cred(I+|
00004f00  28 70 61 67 65 25 2a 31  30 29 29 29 3a c1 74 65  |(page%*10))):.te|
00004f10  6d 70 24 2c 36 34 2d a9  74 65 6d 70 32 24 29 3d  |mp$,64-.temp2$)=|
00004f20  74 65 6d 70 32 24 0d 1b  bc 20 20 74 65 6d 70 32  |temp2$...  temp2|
00004f30  24 3d c3 28 62 61 6c 28  49 2b 28 70 61 67 65 25  |$=.(bal(I+(page%|
00004f40  2a 31 30 29 29 29 0d 1b  c6 20 20 c1 74 65 6d 70  |*10)))...  .temp|
00004f50  24 2c 28 37 36 2d a9 74  65 6d 70 32 24 29 29 3d  |$,(76-.temp2$))=|
00004f60  74 65 6d 70 32 24 0d 1b  d0 22 20 f2 63 68 67 63  |temp2$..." .chgc|
00004f70  6f 6c 28 b4 62 61 6c 28  49 2b 28 70 61 67 65 25  |ol(.bal(I+(page%|
00004f80  2a 31 30 29 29 2c 49 29  0d 1b da 1e 20 f2 70 75  |*10)),I).... .pu|
00004f90  74 74 65 78 74 28 68 61  6e 64 6c 65 25 2c 49 2c  |ttext(handle%,I,|
00004fa0  74 65 6d 70 24 29 0d 1b  e4 11 20 64 61 74 61 70  |temp$).... datap|
00004fb0  74 72 25 2b 3d 34 30 0d  1b ee 05 ed 0d 1b f8 4f  |tr%+=40........O|
00004fc0  e7 6e 75 6d 6f 6e 74 68  69 73 70 61 67 65 25 3c  |.numonthispage%<|
00004fd0  31 30 20 8c e3 49 3d 28  6e 75 6d 6f 6e 74 68 69  |10 ..I=(numonthi|
00004fe0  73 70 61 67 65 25 2b 31  29 b8 31 30 3a f2 70 75  |spage%+1).10:.pu|
00004ff0  74 74 65 78 74 28 68 61  6e 64 6c 65 25 2c 49 2c  |ttext(handle%,I,|
00005000  22 22 29 3a ed 3a 40 25  3d 41 25 0d 1c 02 05 e1  |""):.:@%=A%.....|
00005010  0d 1c 0c 04 0d 1c 16 18  dd f2 63 68 67 63 6f 6c  |..........chgcol|
00005020  28 74 65 6d 70 25 2c 69  63 6e 25 29 0d 1c 20 40  |(temp%,icn%).. @|
00005030  21 62 6c 6f 63 6b 25 3d  68 61 6e 64 6c 65 25 3a  |!block%=handle%:|
00005040  62 6c 6f 63 6b 25 21 34  3d 69 63 6e 25 3a c8 99  |block%!4=icn%:..|
00005050  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00005060  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 1c 2a 20  |ate",,block%..* |
00005070  c8 99 20 22 57 69 6d 70  5f 44 65 6c 65 74 65 49  |.. "Wimp_DeleteI|
00005080  63 6f 6e 22 2c 2c 62 6c  6f 63 6b 25 0d 1c 34 8c  |con",,block%..4.|
00005090  62 6c 6f 63 6b 25 21 34  3d 62 6c 6f 63 6b 25 21  |block%!4=block%!|
000050a0  38 3a 62 6c 6f 63 6b 25  21 38 3d 62 6c 6f 63 6b  |8:block%!8=block|
000050b0  25 21 31 32 3a 62 6c 6f  63 6b 25 21 31 32 3d 62  |%!12:block%!12=b|
000050c0  6c 6f 63 6b 25 21 31 36  3a 62 6c 6f 63 6b 25 21  |lock%!16:block%!|
000050d0  31 36 3d 62 6c 6f 63 6b  25 21 32 30 3a 62 6c 6f  |16=block%!20:blo|
000050e0  63 6b 25 21 32 30 3d 62  6c 6f 63 6b 25 21 32 34  |ck%!20=block%!24|
000050f0  3a 62 6c 6f 63 6b 25 21  32 34 3d 62 6c 6f 63 6b  |:block%!24=block|
00005100  25 21 32 38 3a 62 6c 6f  63 6b 25 21 32 38 3d 62  |%!28:block%!28=b|
00005110  6c 6f 63 6b 25 21 33 32  0d 1c 3e 0c c8 8e 74 65  |lock%!32..>...te|
00005120  6d 70 25 ca 0d 1c 48 1c  20 c9 2d 31 3a 62 6c 6f  |mp%...H. .-1:blo|
00005130  63 6b 25 3f 32 33 3d 25  30 30 30 31 31 30 31 31  |ck%?23=%00011011|
00005140  0d 1c 52 1d 20 c9 30 2c  31 3a 62 6c 6f 63 6b 25  |..R. .0,1:block%|
00005150  3f 32 33 3d 25 30 30 30  31 30 31 31 31 0d 1c 5c  |?23=%00010111..\|
00005160  05 cb 0d 1c 66 25 c8 99  20 22 57 69 6d 70 5f 43  |....f%.. "Wimp_C|
00005170  72 65 61 74 65 49 63 6f  6e 22 2c 2c 62 6c 6f 63  |reateIcon",,bloc|
00005180  6b 25 b8 69 63 6e 25 0d  1c 70 05 e1 0d 1c 7a 04  |k%.icn%..p....z.|
00005190  0d 1c 84 12 dd f2 63 72  65 61 74 65 6e 65 77 61  |......createnewa|
000051a0  63 32 0d 1c 8e 1a f2 63  6c 6f 73 65 77 69 6e 64  |c2.....closewind|
000051b0  6f 77 28 68 61 6e 64 6c  65 35 25 29 0d 1c 98 15  |ow(handle5%)....|
000051c0  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
000051d0  22 0d 1c a2 38 61 63 24  3d a4 69 63 6f 6e 74 65  |"...8ac$=.iconte|
000051e0  78 74 28 68 61 6e 64 6c  65 35 25 2c 31 29 3a 61  |xt(handle5%,1):a|
000051f0  63 6e 24 3d a4 69 63 6f  6e 74 65 78 74 28 68 61  |cn$=.icontext(ha|
00005200  6e 64 6c 65 35 25 2c 33  29 0d 1c ac 24 6f 76 65  |ndle5%,3)...$ove|
00005210  72 64 72 61 66 74 24 3d  a4 69 63 6f 6e 74 65 78  |rdraft$=.icontex|
00005220  74 28 68 61 6e 64 6c 65  35 25 2c 35 29 0d 1c b6  |t(handle5%,5)...|
00005230  36 49 25 3d a7 6f 76 65  72 64 72 61 66 74 24 2c  |6I%=.overdraft$,|
00005240  22 a3 22 29 3a 6f 76 65  72 64 72 61 66 74 3d bb  |"."):overdraft=.|
00005250  28 c1 6f 76 65 72 64 72  61 66 74 24 2c 49 25 2b  |(.overdraft$,I%+|
00005260  31 29 29 0d 1c c0 33 e7  61 63 24 3d 22 22 20 84  |1))...3.ac$="" .|
00005270  61 63 6e 24 3d 22 22 20  8c f2 6d 61 6b 65 65 72  |acn$="" ..makeer|
00005280  72 6f 72 28 a4 6d 73 67  30 28 22 45 72 72 36 22  |ror(.msg0("Err6"|
00005290  29 2c a3 29 3a e1 0d 1c  ca 28 e3 49 3d 64 61 74  |),.):....(.I=dat|
000052a0  61 25 b8 28 64 61 74 61  25 2b 64 61 74 61 6d 61  |a%.(data%+datama|
000052b0  78 25 2d 34 29 88 34 3a  21 49 3d 30 3a ed 0d 1c  |x%-4).4:!I=0:...|
000052c0  d4 2e e3 49 3d 30 b8 6d  61 78 76 61 6c 25 3a 64  |...I=0.maxval%:d|
000052d0  65 62 28 49 29 3d 30 3a  63 72 65 64 28 49 29 3d  |eb(I)=0:cred(I)=|
000052e0  30 3a 62 61 6c 28 49 29  3d 30 3a ed 0d 1c de 43  |0:bal(I)=0:....C|
000052f0  70 61 67 65 25 3d 30 3a  74 72 61 6e 73 61 63 74  |page%=0:transact|
00005300  69 6f 6e 73 25 3d 30 3a  62 61 6c 61 6e 63 65 3d  |ions%=0:balance=|
00005310  30 3a 6c 6f 61 64 65 64  3d b9 3a 70 61 74 68 6e  |0:loaded=.:pathn|
00005320  61 6d 65 24 3d 22 41 63  63 6f 75 6e 74 73 22 0d  |ame$="Accounts".|
00005330  1c e8 38 f2 70 75 74 74  65 78 74 28 68 61 6e 64  |..8.puttext(hand|
00005340  6c 65 31 31 25 2c 31 2c  61 63 24 29 3a f2 70 75  |le11%,1,ac$):.pu|
00005350  74 74 65 78 74 28 68 61  6e 64 6c 65 31 31 25 2c  |ttext(handle11%,|
00005360  33 2c 61 63 6e 24 29 0d  1c f2 18 c8 99 20 22 48  |3,acn$)...... "H|
00005370  6f 75 72 67 6c 61 73 73  5f 53 6d 61 73 68 22 0d  |ourglass_Smash".|
00005380  1c fc 18 f2 6f 70 65 6e  77 69 6e 64 6f 77 28 68  |....openwindow(h|
00005390  61 6e 64 6c 65 25 29 0d  1d 06 14 f2 75 70 64 61  |andle%).....upda|
000053a0  74 65 73 74 61 74 65 6d  65 6e 74 0d 1d 10 05 e1  |testatement.....|
000053b0  0d 1d 1a 04 0d 1d 24 0e  dd f2 69 6e 73 74 72 61  |......$...instra|
000053c0  6e 73 0d 1d 2e 16 e7 65  6d 70 74 79 20 8c f2 65  |ns.....empty ..e|
000053d0  6e 64 65 64 69 74 3a e1  0d 1d 38 19 e7 28 ac 61  |ndedit:...8..(.a|
000053e0  6d 65 6e 64 69 6e 67 29  8c f2 67 65 74 64 61 74  |mending)..getdat|
000053f0  65 0d 1d 42 0c f2 66 69  6e 64 70 6f 73 0d 1d 4c  |e..B..findpos..L|
00005400  1b e7 69 6e 73 65 72 74  3c 74 72 61 6e 73 61 63  |..insert<transac|
00005410  74 69 6f 6e 73 25 20 8c  0d 1d 56 1d 20 f2 73 68  |tions% ...V. .sh|
00005420  75 66 66 6c 65 66 6f 72  77 61 72 64 73 28 69 6e  |uffleforwards(in|
00005430  73 65 72 74 29 0d 1d 60  05 cc 0d 1d 6a 0f 20 e7  |sert)..`....j. .|
00005440  63 72 65 64 64 65 62 20  8c 0d 1d 74 27 20 20 63  |creddeb ...t'  c|
00005450  72 65 64 28 69 6e 73 65  72 74 2b 31 29 3d 30 3a  |red(insert+1)=0:|
00005460  64 65 62 28 69 6e 73 65  72 74 2b 31 29 3d 64 70  |deb(insert+1)=dp|
00005470  0d 1d 7e 06 20 cc 0d 1d  88 27 20 20 64 65 62 28  |..~. ....'  deb(|
00005480  69 6e 73 65 72 74 2b 31  29 3d 30 3a 63 72 65 64  |insert+1)=0:cred|
00005490  28 69 6e 73 65 72 74 2b  31 29 3d 64 70 0d 1d 92  |(insert+1)=dp...|
000054a0  06 20 cd 0d 1d 9c 15 20  74 72 61 6e 73 61 63 74  |. ..... transact|
000054b0  69 6f 6e 73 25 2b 3d 31  0d 1d a6 05 cd 0d 1d b0  |ions%+=1........|
000054c0  21 64 61 74 61 70 74 72  25 3d 69 6e 73 65 72 74  |!dataptr%=insert|
000054d0  2a 34 30 3a f2 77 72 69  74 65 64 61 74 61 0d 1d  |*40:.writedata..|
000054e0  ba 16 e3 49 3d 31 b8 74  72 61 6e 73 61 63 74 69  |...I=1.transacti|
000054f0  6f 6e 73 25 0d 1d c4 23  20 62 61 6c 28 49 29 3d  |ons%...# bal(I)=|
00005500  62 61 6c 28 49 2d 31 29  2b 63 72 65 64 28 49 29  |bal(I-1)+cred(I)|
00005510  2d 64 65 62 28 49 29 0d  1d ce 05 ed 0d 1d d8 0c  |-deb(I).........|
00005520  f2 65 6e 64 65 64 69 74  0d 1d e2 05 e1 0d 1d ec  |.endedit........|
00005530  04 0d 1d f6 0c dd f2 69  6e 73 65 72 74 0d 1e 00  |.......insert...|
00005540  0d f2 67 65 74 73 74 75  66 66 0d 1e 0a 12 e7 64  |..getstuff.....d|
00005550  70 3d 30 20 8c 65 6d 70  74 79 3d b9 0d 1e 14 11  |p=0 .empty=.....|
00005560  e7 69 6e 73 65 72 74 69  6e 67 20 8c e1 0d 1e 1e  |.inserting .....|
00005570  16 e7 65 6d 70 74 79 20  8c f2 65 6e 64 65 64 69  |..empty ..endedi|
00005580  74 3a e1 0d 1e 28 0c f2  66 69 6e 64 70 6f 73 0d  |t:...(..findpos.|
00005590  1e 32 28 e7 28 69 6e 73  65 72 74 3c 74 72 61 6e  |.2(.(insert<tran|
000055a0  73 61 63 74 69 6f 6e 73  25 29 80 28 ac 61 6d 65  |sactions%).(.ame|
000055b0  6e 64 69 6e 67 29 8c 0d  1e 3c 1d 20 f2 73 68 75  |nding)...<. .shu|
000055c0  66 66 6c 65 66 6f 72 77  61 72 64 73 28 69 6e 73  |ffleforwards(ins|
000055d0  65 72 74 29 0d 1e 46 05  cc 0d 1e 50 0f 20 e7 63  |ert)..F....P. .c|
000055e0  72 65 64 64 65 62 20 8c  0d 1e 5a 23 20 20 63 72  |reddeb ...Z#  cr|
000055f0  65 64 28 69 6e 73 65 72  74 29 3d 30 3a 64 65 62  |ed(insert)=0:deb|
00005600  28 69 6e 73 65 72 74 29  3d 64 70 0d 1e 64 06 20  |(insert)=dp..d. |
00005610  cc 0d 1e 6e 23 20 20 64  65 62 28 69 6e 73 65 72  |...n#  deb(inser|
00005620  74 29 3d 30 3a 63 72 65  64 28 69 6e 73 65 72 74  |t)=0:cred(insert|
00005630  29 3d 64 70 0d 1e 78 06  20 cd 0d 1e 82 05 cd 0d  |)=dp..x. .......|
00005640  1e 8c 18 64 61 74 61 70  74 72 25 3d 28 69 6e 73  |...dataptr%=(ins|
00005650  65 72 74 2a 34 30 29 0d  1e 96 0e f2 77 72 69 74  |ert*40).....writ|
00005660  65 64 61 74 61 0d 1e a0  16 e3 49 3d 31 b8 74 72  |edata.....I=1.tr|
00005670  61 6e 73 61 63 74 69 6f  6e 73 25 0d 1e aa 23 20  |ansactions%...# |
00005680  62 61 6c 28 49 29 3d 62  61 6c 28 49 2d 31 29 2b  |bal(I)=bal(I-1)+|
00005690  63 72 65 64 28 49 29 2d  64 65 62 28 49 29 0d 1e  |cred(I)-deb(I)..|
000056a0  b4 05 ed 0d 1e be 0c f2  65 6e 64 65 64 69 74 0d  |........endedit.|
000056b0  1e c8 05 e1 0d 1e d2 04  0d 1e dc 1d dd f2 73 68  |..............sh|
000056c0  75 66 66 6c 65 66 6f 72  77 61 72 64 73 28 74 72  |uffleforwards(tr|
000056d0  61 6e 73 25 29 0d 1e e6  15 c8 99 20 22 48 6f 75  |ans%)...... "Hou|
000056e0  72 67 6c 61 73 73 5f 4f  6e 22 0d 1e f0 1d 64 61  |rglass_On"....da|
000056f0  74 61 70 74 72 25 3d 74  72 61 6e 73 61 63 74 69  |taptr%=transacti|
00005700  6f 6e 73 25 2a 34 30 0d  1e fa 20 e3 49 3d 74 72  |ons%*40... .I=tr|
00005710  61 6e 73 61 63 74 69 6f  6e 73 25 b8 28 74 72 61  |ansactions%.(tra|
00005720  6e 73 25 29 88 2d 31 0d  1f 04 0c 20 e3 4a 3d 31  |ns%).-1.... .J=1|
00005730  b8 34 30 0d 1f 0e 30 20  20 3f 28 64 61 74 61 25  |.40...0  ?(data%|
00005740  2b 64 61 74 61 70 74 72  25 2b 4a 2b 34 30 29 3d  |+dataptr%+J+40)=|
00005750  3f 28 64 61 74 61 25 2b  64 61 74 61 70 74 72 25  |?(data%+dataptr%|
00005760  2b 4a 29 0d 1f 18 07 20  ed 4a 0d 1f 22 11 20 64  |+J).... .J..". d|
00005770  61 74 61 70 74 72 25 2d  3d 34 30 0d 1f 2c 2a 20  |ataptr%-=40..,* |
00005780  63 72 65 64 28 49 2b 32  29 3d 63 72 65 64 28 49  |cred(I+2)=cred(I|
00005790  2b 31 29 3a 64 65 62 28  49 2b 32 29 3d 64 65 62  |+1):deb(I+2)=deb|
000057a0  28 49 2b 31 29 0d 1f 36  3c 20 70 65 72 63 65 6e  |(I+1)..6< percen|
000057b0  74 25 3d 28 28 74 72 61  6e 73 61 63 74 69 6f 6e  |t%=((transaction|
000057c0  73 25 2d 49 29 2f 28 74  72 61 6e 73 61 63 74 69  |s%-I)/(transacti|
000057d0  6f 6e 73 25 2d 74 72 61  6e 73 25 29 29 2a 31 30  |ons%-trans%))*10|
000057e0  30 0d 1f 40 27 20 c8 99  20 22 48 6f 75 72 67 6c  |0..@' .. "Hourgl|
000057f0  61 73 73 5f 50 65 72 63  65 6e 74 61 67 65 22 2c  |ass_Percentage",|
00005800  70 65 72 63 65 6e 74 25  0d 1f 4a 06 ed 49 0d 1f  |percent%..J..I..|
00005810  54 0e e7 63 72 65 64 64  65 62 20 8c 0d 1f 5e 26  |T..creddeb ...^&|
00005820  20 63 72 65 64 28 74 72  61 6e 73 25 2b 31 29 3d  | cred(trans%+1)=|
00005830  30 3a 64 65 62 28 74 72  61 6e 73 25 2b 31 29 3d  |0:deb(trans%+1)=|
00005840  64 70 0d 1f 68 05 cc 0d  1f 72 26 20 64 65 62 28  |dp..h....r& deb(|
00005850  74 72 61 6e 73 25 2b 31  29 3d 30 3a 63 72 65 64  |trans%+1)=0:cred|
00005860  28 74 72 61 6e 73 25 2b  31 29 3d 64 70 0d 1f 7c  |(trans%+1)=dp..||
00005870  05 cd 0d 1f 86 14 74 72  61 6e 73 61 63 74 69 6f  |......transactio|
00005880  6e 73 25 2b 3d 31 0d 1f  90 16 e3 49 3d 31 b8 74  |ns%+=1.....I=1.t|
00005890  72 61 6e 73 61 63 74 69  6f 6e 73 25 0d 1f 9a 23  |ransactions%...#|
000058a0  20 62 61 6c 28 49 29 3d  62 61 6c 28 49 2d 31 29  | bal(I)=bal(I-1)|
000058b0  2b 63 72 65 64 28 49 29  2d 64 65 62 28 49 29 0d  |+cred(I)-deb(I).|
000058c0  1f a4 05 ed 0d 1f ae 18  c8 99 20 22 48 6f 75 72  |.......... "Hour|
000058d0  67 6c 61 73 73 5f 53 6d  61 73 68 22 0d 1f b8 05  |glass_Smash"....|
000058e0  e1 0d 1f c2 04 0d 1f cc  10 dd f2 61 6d 65 6e 64  |...........amend|
000058f0  74 72 61 6e 73 0d 1f d6  17 e7 ac 65 64 69 74 65  |trans......edite|
00005900  64 20 8c 65 64 69 74 65  64 3d 2d 31 0d 1f e0 24  |d .edited=-1...$|
00005910  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 68 61 6e 64  |.openwindow(hand|
00005920  6c 65 37 25 29 3a 61 6d  65 6e 64 69 6e 67 3d b9  |le7%):amending=.|
00005930  0d 1f ea 05 e1 0d 1f f4  04 0d 1f fe 21 dd f2 61  |............!..a|
00005940  6d 65 6e 64 74 72 61 6e  73 32 28 74 6f 61 6d 65  |mendtrans2(toame|
00005950  6e 64 2c 6f 6e 70 61 67  65 29 0d 20 08 66 e7 28  |nd,onpage). .f.(|
00005960  74 72 61 6e 73 61 63 74  69 6f 6e 73 25 83 31 30  |transactions%.10|
00005970  3c 3e 30 20 80 74 72 61  6e 73 61 63 74 69 6f 6e  |<>0 .transaction|
00005980  73 25 81 31 30 3d 70 61  67 65 25 29 20 8c 6e 75  |s%.10=page%) .nu|
00005990  6d 6f 6e 74 68 69 73 70  61 67 65 25 3d 74 72 61  |monthispage%=tra|
000059a0  6e 73 61 63 74 69 6f 6e  73 25 83 31 30 3a 8b 6e  |nsactions%.10:.n|
000059b0  75 6d 6f 6e 74 68 69 73  70 61 67 65 25 3d 31 30  |umonthispage%=10|
000059c0  0d 20 12 1e e7 74 6f 61  6d 65 6e 64 3e 6e 75 6d  |. ...toamend>num|
000059d0  6f 6e 74 68 69 73 70 61  67 65 25 20 8c e1 0d 20  |onthispage% ... |
000059e0  1c 21 61 6d 65 6e 64 3d  28 6f 6e 70 61 67 65 2a  |.!amend=(onpage*|
000059f0  31 30 29 2b 28 74 6f 61  6d 65 6e 64 2d 31 29 0d  |10)+(toamend-1).|
00005a00  20 26 15 64 61 74 61 70  74 72 25 3d 61 6d 65 6e  | &.dataptr%=amen|
00005a10  64 2a 34 30 0d 20 30 0d  f2 72 65 61 64 64 61 74  |d*40. 0..readdat|
00005a20  61 0d 20 3a 39 45 25 3d  40 25 3a 40 25 3d 26 31  |a. :9E%=@%:@%=&1|
00005a30  3a 64 24 3d a4 73 74 6e  64 72 64 74 68 28 64 61  |:d$=.stndrdth(da|
00005a40  79 29 3a f2 70 75 74 74  65 78 74 28 68 61 6e 64  |y):.puttext(hand|
00005a50  6c 65 37 25 2c 30 2c 64  24 29 0d 20 44 43 f2 70  |le7%,0,d$). DC.p|
00005a60  75 74 74 65 78 74 28 68  61 6e 64 6c 65 37 25 2c  |uttext(handle7%,|
00005a70  31 2c 6d 6e 24 28 6d 6e  29 29 3a f2 70 75 74 74  |1,mn$(mn)):.putt|
00005a80  65 78 74 28 68 61 6e 64  6c 65 37 25 2c 32 2c c3  |ext(handle7%,2,.|
00005a90  79 65 2b c3 61 72 29 3a  40 25 3d 45 25 0d 20 4e  |ye+.ar):@%=E%. N|
00005aa0  1e f2 70 75 74 74 65 78  74 28 68 61 6e 64 6c 65  |..puttext(handle|
00005ab0  37 25 2c 33 2c 63 6f 64  65 24 29 0d 20 58 1e f2  |7%,3,code$). X..|
00005ac0  70 75 74 74 65 78 74 28  68 61 6e 64 6c 65 37 25  |puttext(handle7%|
00005ad0  2c 37 2c 64 65 73 63 24  29 0d 20 62 60 e7 64 65  |,7,desc$). b`.de|
00005ae0  62 28 61 6d 65 6e 64 2b  31 29 3d 30 20 8c f2 70  |b(amend+1)=0 ..p|
00005af0  75 74 74 65 78 74 28 68  61 6e 64 6c 65 37 25 2c  |uttext(handle7%,|
00005b00  35 2c c3 63 72 65 64 28  61 6d 65 6e 64 2b 31 29  |5,.cred(amend+1)|
00005b10  29 3a f2 70 75 74 74 65  78 74 28 68 61 6e 64 6c  |):.puttext(handl|
00005b20  65 37 25 2c 34 2c 22 43  72 65 64 69 74 22 29 3a  |e7%,4,"Credit"):|
00005b30  63 72 65 64 64 65 62 3d  30 0d 20 6c 60 e7 63 72  |creddeb=0. l`.cr|
00005b40  65 64 28 61 6d 65 6e 64  2b 31 29 3d 30 20 8c f2  |ed(amend+1)=0 ..|
00005b50  70 75 74 74 65 78 74 28  68 61 6e 64 6c 65 37 25  |puttext(handle7%|
00005b60  2c 35 2c c3 64 65 62 28  61 6d 65 6e 64 2b 31 29  |,5,.deb(amend+1)|
00005b70  29 3a f2 70 75 74 74 65  78 74 28 68 61 6e 64 6c  |):.puttext(handl|
00005b80  65 37 25 2c 34 2c 22 44  65 62 69 74 22 29 3a 63  |e7%,4,"Debit"):c|
00005b90  72 65 64 64 65 62 3d 2d  31 0d 20 76 41 e7 75 6e  |reddeb=-1. vA.un|
00005ba0  63 6c 20 f2 70 75 74 74  65 78 74 28 68 61 6e 64  |cl .puttext(hand|
00005bb0  6c 65 37 25 2c 31 37 2c  22 6e 6f 22 29 3a 8b f2  |le7%,17,"no"):..|
00005bc0  70 75 74 74 65 78 74 28  68 61 6e 64 6c 65 37 25  |puttext(handle7%|
00005bd0  2c 31 37 2c 22 79 65 73  22 29 0d 20 80 32 f2 73  |,17,"yes"). .2.s|
00005be0  65 74 63 61 72 65 74 28  68 61 6e 64 6c 65 37 25  |etcaret(handle7%|
00005bf0  2c 33 2c a9 28 a4 69 63  6f 6e 74 65 78 74 28 68  |,3,.(.icontext(h|
00005c00  61 6e 64 6c 65 37 25 2c  33 29 29 29 0d 20 8a 05  |andle7%,3))). ..|
00005c10  e1 0d 20 94 04 0d 20 9e  11 dd f2 61 6d 65 6e 64  |.. ... ....amend|
00005c20  74 72 61 6e 73 33 0d 20  a8 0d f2 67 65 74 73 74  |trans3. ...getst|
00005c30  75 66 66 0d 20 b2 12 e7  64 70 3d 30 20 8c 65 6d  |uff. ...dp=0 .em|
00005c40  70 74 79 3d b9 0d 20 bc  14 e7 65 6d 70 74 79 20  |pty=.. ...empty |
00005c50  8c f2 65 6e 64 65 64 69  74 0d 20 c6 17 f2 73 68  |..endedit. ...sh|
00005c60  75 66 66 6c 65 62 61 63  6b 28 61 6d 65 6e 64 29  |uffleback(amend)|
00005c70  0d 20 d0 1a 69 6e 73 65  72 74 3d 61 6d 65 6e 64  |. ..insert=amend|
00005c80  3a f2 69 6e 73 74 72 61  6e 73 0d 20 da 0c f2 65  |:.instrans. ...e|
00005c90  6e 64 65 64 69 74 0d 20  e4 05 e1 0d 20 ee 04 0d  |ndedit. .... ...|
00005ca0  20 f8 24 dd f2 64 65 6c  74 72 61 6e 73 28 74 69  | .$..deltrans(ti|
00005cb0  6d 65 2c 74 6f 64 65 6c  65 74 65 2c 6f 6e 70 61  |me,todelete,onpa|
00005cc0  67 65 29 0d 21 02 17 e7  ac 65 64 69 74 65 64 20  |ge).!....edited |
00005cd0  8c 65 64 69 74 65 64 3d  2d 31 0d 21 0c 66 e7 28  |.edited=-1.!.f.(|
00005ce0  74 72 61 6e 73 61 63 74  69 6f 6e 73 25 83 31 30  |transactions%.10|
00005cf0  3c 3e 30 20 80 74 72 61  6e 73 61 63 74 69 6f 6e  |<>0 .transaction|
00005d00  73 25 81 31 30 3d 70 61  67 65 25 29 20 8c 6e 75  |s%.10=page%) .nu|
00005d10  6d 6f 6e 74 68 69 73 70  61 67 65 25 3d 74 72 61  |monthispage%=tra|
00005d20  6e 73 61 63 74 69 6f 6e  73 25 83 31 30 3a 8b 6e  |nsactions%.10:.n|
00005d30  75 6d 6f 6e 74 68 69 73  70 61 67 65 25 3d 31 30  |umonthispage%=10|
00005d40  0d 21 16 2f e7 74 69 6d  65 3d 31 20 80 74 6f 64  |.!./.time=1 .tod|
00005d50  65 6c 65 74 65 3e 6e 75  6d 6f 6e 74 68 69 73 70  |elete>numonthisp|
00005d60  61 67 65 25 20 8c f2 65  6e 64 64 65 6c 3a e1 0d  |age% ..enddel:..|
00005d70  21 20 19 f2 6f 70 65 6e  77 69 6e 64 6f 77 28 68  |! ..openwindow(h|
00005d80  61 6e 64 6c 65 38 25 29  0d 21 2a 0c c8 8e 74 69  |andle8%).!*...ti|
00005d90  6d 65 20 ca 0d 21 34 12  20 c9 30 3a 64 65 6c 65  |me ..!4. .0:dele|
00005da0  74 69 6e 67 3d b9 0d 21  3e 08 20 c9 31 3a 0d 21  |ting=..!>. .1:.!|
00005db0  48 23 20 20 6b 69 6c 6c  3d 28 6f 6e 70 61 67 65  |H#  kill=(onpage|
00005dc0  2a 31 30 29 2b 28 74 6f  64 65 6c 65 74 65 2d 31  |*10)+(todelete-1|
00005dd0  29 0d 21 52 16 20 20 64  61 74 61 70 74 72 25 3d  |).!R.  dataptr%=|
00005de0  6b 69 6c 6c 2a 34 30 0d  21 5c 0f 20 20 f2 72 65  |kill*40.!\.  .re|
00005df0  61 64 64 61 74 61 0d 21  66 34 20 20 f2 70 75 74  |addata.!f4  .put|
00005e00  74 65 78 74 28 68 61 6e  64 6c 65 38 25 2c 30 2c  |text(handle8%,0,|
00005e10  64 61 74 65 24 2b 22 20  22 2b 63 6f 64 65 24 2b  |date$+" "+code$+|
00005e20  22 20 22 2b 64 65 73 63  24 29 0d 21 70 08 20 c9  |" "+desc$).!p. .|
00005e30  32 3a 0d 21 7a 18 20 20  f2 73 68 75 66 66 6c 65  |2:.!z.  .shuffle|
00005e40  62 61 63 6b 28 6b 69 6c  6c 29 0d 21 84 16 20 20  |back(kill).!..  |
00005e50  f2 75 70 64 61 74 65 73  74 61 74 65 6d 65 6e 74  |.updatestatement|
00005e60  0d 21 8e 0d 20 20 f2 65  6e 64 64 65 6c 0d 21 98  |.!..  .enddel.!.|
00005e70  08 20 c9 33 3a 0d 21 a2  0d 20 20 f2 65 6e 64 64  |. .3:.!..  .endd|
00005e80  65 6c 0d 21 ac 05 cb 0d  21 b6 05 e1 0d 21 c0 04  |el.!....!....!..|
00005e90  0d 21 ca 0c dd f2 65 6e  64 64 65 6c 0d 21 d4 38  |.!....enddel.!.8|
00005ea0  64 65 6c 65 74 69 6e 67  3d a3 3a f2 70 75 74 74  |deleting=.:.putt|
00005eb0  65 78 74 28 68 61 6e 64  6c 65 38 25 2c 30 2c 22  |ext(handle8%,0,"|
00005ec0  53 65 6c 65 63 74 20 74  72 61 6e 73 61 63 74 69  |Select transacti|
00005ed0  6f 6e 22 29 0d 21 de 3b  f2 63 6c 6f 73 65 77 69  |on").!.;.closewi|
00005ee0  6e 64 6f 77 28 68 61 6e  64 6c 65 38 25 29 3a e3  |ndow(handle8%):.|
00005ef0  49 3d 30 b8 33 3a f2 65  6e 61 62 6c 65 69 63 6f  |I=0.3:.enableico|
00005f00  6e 28 68 61 6e 64 6c 65  36 25 2c 49 29 3a ed 0d  |n(handle6%,I):..|
00005f10  21 e8 05 e1 0d 21 f2 04  0d 21 fc 19 dd f2 73 68  |!....!...!....sh|
00005f20  75 66 66 6c 65 62 61 63  6b 28 74 72 61 6e 73 25  |uffleback(trans%|
00005f30  29 0d 22 06 15 c8 99 20  22 48 6f 75 72 67 6c 61  |).".... "Hourgla|
00005f40  73 73 5f 4f 6e 22 0d 22  10 16 64 61 74 61 70 74  |ss_On"."..datapt|
00005f50  72 25 3d 74 72 61 6e 73  25 2a 34 30 0d 22 1a 1b  |r%=trans%*40."..|
00005f60  e3 49 3d 74 72 61 6e 73  25 b8 74 72 61 6e 73 61  |.I=trans%.transa|
00005f70  63 74 69 6f 6e 73 25 0d  22 24 0c 20 e3 4a 3d 30  |ctions%."$. .J=0|
00005f80  b8 34 30 0d 22 2e 30 20  20 3f 28 64 61 74 61 25  |.40.".0  ?(data%|
00005f90  2b 64 61 74 61 70 74 72  25 2b 4a 29 3d 3f 28 64  |+dataptr%+J)=?(d|
00005fa0  61 74 61 25 2b 64 61 74  61 70 74 72 25 2b 4a 2b  |ata%+dataptr%+J+|
00005fb0  34 30 29 0d 22 38 07 20  ed 4a 0d 22 42 11 20 64  |40)."8. .J."B. d|
00005fc0  61 74 61 70 74 72 25 2b  3d 34 30 0d 22 4c 2a 20  |ataptr%+=40."L* |
00005fd0  63 72 65 64 28 49 2b 31  29 3d 63 72 65 64 28 49  |cred(I+1)=cred(I|
00005fe0  2b 32 29 3a 64 65 62 28  49 2b 31 29 3d 64 65 62  |+2):deb(I+1)=deb|
00005ff0  28 49 2b 32 29 0d 22 56  2c 20 70 65 72 63 65 6e  |(I+2)."V, percen|
00006000  74 25 3d 28 49 2f 28 74  72 61 6e 73 61 63 74 69  |t%=(I/(transacti|
00006010  6f 6e 73 25 2d 74 72 61  6e 73 25 29 29 2a 31 30  |ons%-trans%))*10|
00006020  30 0d 22 60 27 20 c8 99  20 22 48 6f 75 72 67 6c  |0."`' .. "Hourgl|
00006030  61 73 73 5f 50 65 72 63  65 6e 74 61 67 65 22 2c  |ass_Percentage",|
00006040  70 65 72 63 65 6e 74 25  0d 22 6a 06 ed 49 0d 22  |percent%."j..I."|
00006050  74 32 63 72 65 64 28 74  72 61 6e 73 61 63 74 69  |t2cred(transacti|
00006060  6f 6e 73 25 2b 31 29 3d  30 3a 64 65 62 28 74 72  |ons%+1)=0:deb(tr|
00006070  61 6e 73 61 63 74 69 6f  6e 73 25 2b 31 29 3d 30  |ansactions%+1)=0|
00006080  0d 22 7e 14 74 72 61 6e  73 61 63 74 69 6f 6e 73  |."~.transactions|
00006090  25 2d 3d 31 0d 22 88 16  e3 49 3d 31 b8 74 72 61  |%-=1."...I=1.tra|
000060a0  6e 73 61 63 74 69 6f 6e  73 25 0d 22 92 23 20 62  |nsactions%.".# b|
000060b0  61 6c 28 49 29 3d 62 61  6c 28 49 2d 31 29 2b 63  |al(I)=bal(I-1)+c|
000060c0  72 65 64 28 49 29 2d 64  65 62 28 49 29 0d 22 9c  |red(I)-deb(I).".|
000060d0  05 ed 0d 22 a6 18 c8 99  20 22 48 6f 75 72 67 6c  |...".... "Hourgl|
000060e0  61 73 73 5f 53 6d 61 73  68 22 0d 22 b0 05 e1 0d  |ass_Smash"."....|
000060f0  22 ba 04 0d 22 c4 0d dd  f2 65 6e 64 65 64 69 74  |"..."....endedit|
00006100  0d 22 ce 22 65 6d 70 74  79 3d 30 3a 69 6e 73 65  |."."empty=0:inse|
00006110  72 74 69 6e 67 3d 30 3a  61 6d 65 6e 64 69 6e 67  |rting=0:amending|
00006120  3d 30 0d 22 d8 1a f2 63  6c 6f 73 65 77 69 6e 64  |=0."...closewind|
00006130  6f 77 28 68 61 6e 64 6c  65 37 25 29 0d 22 e2 24  |ow(handle7%).".$|
00006140  e3 49 3d 30 b8 33 3a f2  65 6e 61 62 6c 65 69 63  |.I=0.3:.enableic|
00006150  6f 6e 28 68 61 6e 64 6c  65 36 25 2c 49 29 3a ed  |on(handle6%,I):.|
00006160  0d 22 ec 4b f2 70 75 74  74 65 78 74 28 68 61 6e  |.".K.puttext(han|
00006170  64 6c 65 37 25 2c 33 2c  22 22 29 3a f2 70 75 74  |dle7%,3,""):.put|
00006180  74 65 78 74 28 68 61 6e  64 6c 65 37 25 2c 35 2c  |text(handle7%,5,|
00006190  22 22 29 3a f2 70 75 74  74 65 78 74 28 68 61 6e  |""):.puttext(han|
000061a0  64 6c 65 37 25 2c 37 2c  22 22 29 0d 22 f6 27 70  |dle7%,7,"").".'p|
000061b0  61 67 65 25 3d 28 69 6e  73 65 72 74 20 81 31 30  |age%=(insert .10|
000061c0  29 3a f2 75 70 64 61 74  65 73 74 61 74 65 6d 65  |):.updatestateme|
000061d0  6e 74 0d 23 00 05 e1 0d  23 0a 04 0d 23 14 13 dd  |nt.#....#...#...|
000061e0  f2 63 68 61 6e 67 65 64  65 74 61 69 6c 73 0d 23  |.changedetails.#|
000061f0  1e 0f 63 68 61 6e 67 69  6e 67 3d 2d 31 0d 23 28  |..changing=-1.#(|
00006200  32 f2 6f 70 65 6e 77 69  6e 64 6f 77 28 68 61 6e  |2.openwindow(han|
00006210  64 6c 65 35 25 29 3a f2  70 75 74 74 65 78 74 28  |dle5%):.puttext(|
00006220  68 61 6e 64 6c 65 35 25  2c 31 2c 61 63 24 29 0d  |handle5%,1,ac$).|
00006230  23 32 3f f2 70 75 74 74  65 78 74 28 68 61 6e 64  |#2?.puttext(hand|
00006240  6c 65 35 25 2c 33 2c 61  63 6e 24 29 3a f2 70 75  |le5%,3,acn$):.pu|
00006250  74 74 65 78 74 28 68 61  6e 64 6c 65 35 25 2c 35  |ttext(handle5%,5|
00006260  2c c3 28 6f 76 65 72 64  72 61 66 74 29 29 0d 23  |,.(overdraft)).#|
00006270  3c 05 e1 0d 23 46 04 0d  23 50 0d dd f2 63 68 64  |<...#F..#P...chd|
00006280  74 6c 73 32 0d 23 5a 35  f2 63 6c 6f 73 65 77 69  |tls2.#Z5.closewi|
00006290  6e 64 6f 77 28 68 61 6e  64 6c 65 35 25 29 3a 6e  |ndow(handle5%):n|
000062a0  61 63 24 3d a4 69 63 6f  6e 74 65 78 74 28 68 61  |ac$=.icontext(ha|
000062b0  6e 64 6c 65 35 25 2c 31  29 0d 23 64 40 6e 61 63  |ndle5%,1).#d@nac|
000062c0  6e 24 3d a4 69 63 6f 6e  74 65 78 74 28 68 61 6e  |n$=.icontext(han|
000062d0  64 6c 65 35 25 2c 33 29  3a 6f 76 65 72 64 72 61  |dle5%,3):overdra|
000062e0  66 74 24 3d a4 69 63 6f  6e 74 65 78 74 28 68 61  |ft$=.icontext(ha|
000062f0  6e 64 6c 65 35 25 2c 35  29 0d 23 6e 35 49 3d a7  |ndle5%,5).#n5I=.|
00006300  6f 76 65 72 64 72 61 66  74 24 2c 22 a3 22 29 3a  |overdraft$,"."):|
00006310  6e 6f 76 65 72 64 72 61  66 74 3d bb 28 c1 6f 76  |noverdraft=.(.ov|
00006320  65 72 64 72 61 66 74 24  2c 49 2b 31 29 29 0d 23  |erdraft$,I+1)).#|
00006330  78 26 e3 49 3d 31 b8 35  88 32 3a f2 70 75 74 74  |x&.I=1.5.2:.putt|
00006340  65 78 74 28 68 61 6e 64  6c 65 35 25 2c 49 2c 22  |ext(handle5%,I,"|
00006350  22 29 3a ed 0d 23 82 40  e7 6e 61 63 24 3d 22 22  |"):..#.@.nac$=""|
00006360  20 84 6e 61 63 6e 24 3d  22 22 20 8c 63 68 61 6e  | .nacn$="" .chan|
00006370  67 69 6e 67 3d 30 3a f2  6d 61 6b 65 65 72 72 6f  |ging=0:.makeerro|
00006380  72 28 a4 6d 73 67 30 28  22 45 72 72 36 22 29 2c  |r(.msg0("Err6"),|
00006390  30 29 3a e1 0d 23 8c 2c  61 63 24 3d 6e 61 63 24  |0):..#.,ac$=nac$|
000063a0  3a 61 63 6e 24 3d 6e 61  63 6e 24 3a 6f 76 65 72  |:acn$=nacn$:over|
000063b0  64 72 61 66 74 3d 6e 6f  76 65 72 64 72 61 66 74  |draft=noverdraft|
000063c0  0d 23 96 38 f2 70 75 74  74 65 78 74 28 68 61 6e  |.#.8.puttext(han|
000063d0  64 6c 65 31 31 25 2c 31  2c 61 63 24 29 3a f2 70  |dle11%,1,ac$):.p|
000063e0  75 74 74 65 78 74 28 68  61 6e 64 6c 65 31 31 25  |uttext(handle11%|
000063f0  2c 33 2c 61 63 6e 24 29  0d 23 a0 1f 63 68 61 6e  |,3,acn$).#..chan|
00006400  67 69 6e 67 3d 30 3a f2  75 70 64 61 74 65 73 74  |ging=0:.updatest|
00006410  61 74 65 6d 65 6e 74 0d  23 aa 05 e1 0d 23 b4 04  |atement.#....#..|
00006420  0d 23 be 18 dd f2 63 68  65 63 6b 70 72 69 6e 74  |.#....checkprint|
00006430  65 72 64 72 69 76 65 72  0d 23 c8 43 ea 74 65 6d  |erdriver.#.C.tem|
00006440  70 25 2c 74 65 6d 70 32  25 3a ea 85 3a ee 85 ea  |p%,temp2%:..:...|
00006450  3a f7 85 3a 70 64 72 69  76 65 72 3d a3 3a 70 72  |:..:pdriver=.:pr|
00006460  69 6e 74 65 72 24 3d 22  4e 6f 74 20 69 6e 73 74  |inter$="Not inst|
00006470  61 6c 6c 65 64 22 2b bd  30 3a e1 0d 23 d2 56 c8  |alled"+.0:..#.V.|
00006480  99 20 22 50 44 72 69 76  65 72 5f 49 6e 66 6f 22  |. "PDriver_Info"|
00006490  20 b8 2c 2c 2c 2c 74 65  6d 70 32 25 3a 70 72 69  | .,,,,temp2%:pri|
000064a0  6e 74 65 72 24 3d a4 67  65 74 73 74 72 69 6e 67  |nter$=.getstring|
000064b0  28 74 65 6d 70 32 25 29  3a 70 72 69 6e 74 65 72  |(temp2%):printer|
000064c0  24 2b 3d bd 30 3a 70 64  72 69 76 65 72 3d b9 3a  |$+=.0:pdriver=.:|
000064d0  e1 0d 23 dc 04 0d 23 e6  0b dd f2 70 72 69 6e 74  |..#...#....print|
000064e0  0d 23 f0 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |.#.... "Hourglas|
000064f0  73 5f 4f 6e 22 0d 23 fa  1b c8 99 20 22 57 69 6d  |s_On".#.... "Wim|
00006500  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2d 31  |p_CreateMenu",-1|
00006510  0d 24 04 17 70 72 69 6e  74 3d ae 28 22 70 72 69  |.$..print=.("pri|
00006520  6e 74 65 72 3a 22 29 0d  24 0e 4b d5 23 70 72 69  |nter:").$.K.#pri|
00006530  6e 74 2c 22 53 45 43 55  52 49 54 59 20 57 41 52  |nt,"SECURITY WAR|
00006540  4e 49 4e 47 3a 20 44 4f  20 4e 4f 54 20 41 4c 4c  |NING: DO NOT ALL|
00006550  4f 57 20 4f 54 48 45 52  53 20 54 4f 20 56 49 45  |OW OTHERS TO VIE|
00006560  57 20 54 48 49 53 20 53  54 41 54 45 4d 45 4e 54  |W THIS STATEMENT|
00006570  21 22 0d 24 18 2f d5 23  70 72 69 6e 74 2c 22 22  |!".$./.#print,""|
00006580  3a d5 23 70 72 69 6e 74  2c 61 63 6e 24 2b 22 3a  |:.#print,acn$+":|
00006590  20 22 2b 61 63 24 3a d5  23 70 72 69 6e 74 2c 22  | "+ac$:.#print,"|
000065a0  22 0d 24 22 4f d5 23 70  72 69 6e 74 2c 22 20 20  |".$"O.#print,"  |
000065b0  20 20 44 61 74 65 20 43  6f 64 65 20 20 44 65 73  |  Date Code  Des|
000065c0  63 72 69 70 74 69 6f 6e  22 2b c4 32 32 2c 22 20  |cription"+.22," |
000065d0  22 29 2b 22 44 65 62 69  74 20 20 20 20 43 72 65  |")+"Debit    Cre|
000065e0  64 69 74 20 20 20 20 20  42 61 6c 61 6e 63 65 22  |dit     Balance"|
000065f0  0d 24 2c 18 e3 49 3d 30  b8 74 72 61 6e 73 61 63  |.$,..I=0.transac|
00006600  74 69 6f 6e 73 25 2d 31  0d 24 36 13 20 74 65 6d  |tions%-1.$6. tem|
00006610  70 24 3d c4 37 36 2c 22  20 22 29 0d 24 40 12 20  |p$=.76," ").$@. |
00006620  64 61 74 61 70 74 72 25  3d 34 30 2a 49 0d 24 4a  |dataptr%=40*I.$J|
00006630  0e 20 f2 72 65 61 64 64  61 74 61 0d 24 54 1d 20  |. .readdata.$T. |
00006640  c1 74 65 6d 70 24 2c 28  39 2d a9 64 61 74 65 24  |.temp$,(9-.date$|
00006650  29 29 3d 64 61 74 65 24  0d 24 5e 15 20 c1 74 65  |))=date$.$^. .te|
00006660  6d 70 24 2c 31 31 29 3d  63 6f 64 65 24 0d 24 68  |mp$,11)=code$.$h|
00006670  15 20 c1 74 65 6d 70 24  2c 31 36 29 3d 64 65 73  |. .temp$,16)=des|
00006680  63 24 0d 24 72 3e 20 e7  64 65 62 28 49 2b 31 29  |c$.$r> .deb(I+1)|
00006690  3e 30 20 8c 74 65 6d 70  32 24 3d c3 28 64 65 62  |>0 .temp2$=.(deb|
000066a0  28 49 2b 31 29 29 3a c1  74 65 6d 70 24 2c 35 34  |(I+1)):.temp$,54|
000066b0  2d a9 74 65 6d 70 32 24  29 3d 74 65 6d 70 32 24  |-.temp2$)=temp2$|
000066c0  0d 24 7c 40 20 e7 63 72  65 64 28 49 2b 31 29 3e  |.$|@ .cred(I+1)>|
000066d0  30 20 8c 74 65 6d 70 32  24 3d c3 28 63 72 65 64  |0 .temp2$=.(cred|
000066e0  28 49 2b 31 29 29 3a c1  74 65 6d 70 24 2c 36 34  |(I+1)):.temp$,64|
000066f0  2d a9 74 65 6d 70 32 24  29 3d 74 65 6d 70 32 24  |-.temp2$)=temp2$|
00006700  0d 24 86 17 20 74 65 6d  70 32 24 3d c3 28 62 61  |.$.. temp2$=.(ba|
00006710  6c 28 49 2b 31 29 29 0d  24 90 20 20 c1 74 65 6d  |l(I+1)).$.  .tem|
00006720  70 24 2c 28 37 36 2d a9  74 65 6d 70 32 24 29 29  |p$,(76-.temp2$))|
00006730  3d 74 65 6d 70 32 24 0d  24 9a 12 20 d5 23 70 72  |=temp2$.$.. .#pr|
00006740  69 6e 74 2c 74 65 6d 70  24 0d 24 a4 23 20 70 65  |int,temp$.$.# pe|
00006750  72 63 65 6e 74 25 3d 28  49 2f 74 72 61 6e 73 61  |rcent%=(I/transa|
00006760  63 74 69 6f 6e 73 25 29  2a 31 30 30 0d 24 ae 27  |ctions%)*100.$.'|
00006770  20 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 50  | .. "Hourglass_P|
00006780  65 72 63 65 6e 74 61 67  65 22 2c 70 65 72 63 65  |ercentage",perce|
00006790  6e 74 25 0d 24 b8 05 ed  0d 24 c2 0e d5 23 70 72  |nt%.$....$...#pr|
000067a0  69 6e 74 2c 22 22 0d 24  cc 0b d9 23 70 72 69 6e  |int,"".$...#prin|
000067b0  74 0d 24 d6 18 c8 99 20  22 48 6f 75 72 67 6c 61  |t.$.... "Hourgla|
000067c0  73 73 5f 53 6d 61 73 68  22 0d 24 e0 05 e1 0d 24  |ss_Smash".$....$|
000067d0  ea 04 0d 24 f4 10 dd f2  61 64 6a 75 73 74 64 61  |...$....adjustda|
000067e0  74 65 0d 24 fe 0b c8 8e  69 63 6e 25 ca 0d 25 08  |te.$....icn%..%.|
000067f0  12 20 c9 31 30 3a f2 64  61 74 65 28 2d 31 29 0d  |. .10:.date(-1).|
00006800  25 12 11 20 c9 31 31 3a  f2 64 61 74 65 28 31 29  |%.. .11:.date(1)|
00006810  0d 25 1c 1c 20 c9 31 32  3a f2 67 65 74 64 61 74  |.%.. .12:.getdat|
00006820  65 3a f2 6d 6f 6e 74 68  28 2d 31 29 0d 25 26 1b  |e:.month(-1).%&.|
00006830  20 c9 31 33 3a f2 67 65  74 64 61 74 65 3a f2 6d  | .13:.getdate:.m|
00006840  6f 6e 74 68 28 31 29 0d  25 30 1b 20 c9 31 34 3a  |onth(1).%0. .14:|
00006850  f2 67 65 74 64 61 74 65  3a f2 79 65 61 72 28 2d  |.getdate:.year(-|
00006860  31 29 0d 25 3a 1a 20 c9  31 35 3a f2 67 65 74 64  |1).%:. .15:.getd|
00006870  61 74 65 3a f2 79 65 61  72 28 31 29 0d 25 44 05  |ate:.year(1).%D.|
00006880  cb 0d 25 4e 05 e1 0d 25  58 04 0d 25 62 10 dd f2  |..%N...%X..%b...|
00006890  64 61 74 65 28 73 69 64  25 29 0d 25 6c 0f 42 25  |date(sid%).%l.B%|
000068a0  3d 40 25 3a 40 25 3d 26  31 0d 25 76 0c f2 67 65  |=@%:@%=&1.%v..ge|
000068b0  74 64 61 74 65 0d 25 80  0b c8 8e 73 69 64 25 ca  |tdate.%....sid%.|
000068c0  0d 25 8a 08 20 c9 31 3a  0d 25 94 0d 20 20 c8 8e  |.%.. .1:.%..  ..|
000068d0  6d 6e 74 25 ca 0d 25 9e  0a 20 20 20 c9 32 3a 0d  |mnt%..%..   .2:.|
000068e0  25 a8 10 20 20 20 20 e7  a4 6c 65 61 70 20 8c 0d  |%..    ..leap ..|
000068f0  25 b2 31 20 20 20 20 20  e7 64 74 25 2b 31 3e 32  |%.1     .dt%+1>2|
00006900  38 20 8c 64 74 25 3d 31  3a 4a 3d 6d 6e 74 25 2b  |8 .dt%=1:J=mnt%+|
00006910  31 3a 8b 64 74 25 2b 3d  31 3a 4a 3d 6d 6e 74 25  |1:.dt%+=1:J=mnt%|
00006920  0d 25 bc 09 20 20 20 20  cc 0d 25 c6 31 20 20 20  |.%..    ..%.1   |
00006930  20 20 e7 64 74 25 2b 31  3e 32 39 20 8c 64 74 25  |  .dt%+1>29 .dt%|
00006940  3d 31 3a 4a 3d 6d 6e 74  25 2b 31 3a 8b 64 74 25  |=1:J=mnt%+1:.dt%|
00006950  2b 3d 31 3a 4a 3d 6d 6e  74 25 0d 25 d0 09 20 20  |+=1:J=mnt%.%..  |
00006960  20 20 cd 0d 25 da 38 20  20 20 c9 34 2c 36 2c 39  |  ..%.8   .4,6,9|
00006970  2c 31 31 3a e7 64 74 25  2b 31 3e 33 30 20 64 74  |,11:.dt%+1>30 dt|
00006980  25 3d 31 3a 4a 3d 6d 6e  74 25 2b 31 3a 8b 64 74  |%=1:J=mnt%+1:.dt|
00006990  25 2b 3d 31 3a 4a 3d 6d  6e 74 25 0d 25 e4 3f 20  |%+=1:J=mnt%.%.? |
000069a0  20 20 c9 31 2c 33 2c 35  2c 37 2c 38 2c 31 30 2c  |  .1,3,5,7,8,10,|
000069b0  31 32 3a e7 64 74 25 2b  31 3e 33 31 20 64 74 25  |12:.dt%+1>31 dt%|
000069c0  3d 31 3a 4a 3d 6d 6e 74  25 2b 31 3a 8b 64 74 25  |=1:J=mnt%+1:.dt%|
000069d0  2b 3d 31 3a 4a 3d 6d 6e  74 25 0d 25 ee 07 20 20  |+=1:J=mnt%.%..  |
000069e0  cb 0d 25 f8 09 20 c9 2d  31 3a 0d 26 02 0d 20 20  |..%.. .-1:.&..  |
000069f0  c8 8e 6d 6e 74 25 ca 0d  26 0c 2d 20 20 20 c9 31  |..mnt%..&.-   .1|
00006a00  3a e7 64 74 25 2d 31 3c  31 20 64 74 25 3d 33 31  |:.dt%-1<1 dt%=31|
00006a10  3a 4a 3d 31 32 3a 8b 64  74 25 2d 3d 31 3a 4a 3d  |:J=12:.dt%-=1:J=|
00006a20  6d 6e 74 25 0d 26 16 3c  20 20 20 c9 32 2c 34 2c  |mnt%.&.<   .2,4,|
00006a30  36 2c 38 2c 39 2c 31 31  3a e7 64 74 25 2d 31 3c  |6,8,9,11:.dt%-1<|
00006a40  31 20 64 74 25 3d 33 31  3a 4a 3d 6d 6e 74 25 2d  |1 dt%=31:J=mnt%-|
00006a50  31 3a 8b 64 74 25 2d 3d  31 3a 4a 3d 6d 6e 74 25  |1:.dt%-=1:J=mnt%|
00006a60  0d 26 20 0a 20 20 20 c9  33 3a 0d 26 2a 10 20 20  |.& .   .3:.&*.  |
00006a70  20 20 e7 a4 6c 65 61 70  20 8c 0d 26 34 30 20 20  |  ..leap ..&40  |
00006a80  20 20 20 e7 64 74 25 2d  31 3c 31 20 64 74 25 3d  |   .dt%-1<1 dt%=|
00006a90  32 39 3a 4a 3d 6d 6e 74  25 2d 31 3a 8b 64 74 25  |29:J=mnt%-1:.dt%|
00006aa0  2d 3d 31 3a 4a 3d 6d 6e  74 25 0d 26 3e 09 20 20  |-=1:J=mnt%.&>.  |
00006ab0  20 20 cc 0d 26 48 30 20  20 20 20 20 e7 64 74 25  |  ..&H0     .dt%|
00006ac0  2d 31 3c 31 20 64 74 25  3d 32 38 3a 4a 3d 6d 6e  |-1<1 dt%=28:J=mn|
00006ad0  74 25 2d 31 3a 8b 64 74  25 2d 3d 31 3a 4a 3d 6d  |t%-1:.dt%-=1:J=m|
00006ae0  6e 74 25 0d 26 52 09 20  20 20 20 cd 0d 26 5c 39  |nt%.&R.    ..&\9|
00006af0  20 20 20 c9 35 2c 37 2c  31 30 2c 31 32 3a e7 64  |   .5,7,10,12:.d|
00006b00  74 25 2d 31 3c 31 20 64  74 25 3d 33 30 3a 4a 3d  |t%-1<1 dt%=30:J=|
00006b10  6d 6e 74 25 2d 31 3a 8b  64 74 25 2d 3d 31 3a 4a  |mnt%-1:.dt%-=1:J|
00006b20  3d 6d 6e 74 25 0d 26 66  07 20 20 cb 0d 26 70 05  |=mnt%.&f.  ..&p.|
00006b30  cb 0d 26 7a 17 e7 4a 3c  6d 6e 74 25 20 8c f2 6d  |..&z..J<mnt% ..m|
00006b40  6f 6e 74 68 28 2d 31 29  0d 26 84 16 e7 4a 3e 6d  |onth(-1).&...J>m|
00006b50  6e 74 25 20 8c f2 6d 6f  6e 74 68 28 31 29 0d 26  |nt% ..month(1).&|
00006b60  8e 27 f2 70 75 74 74 65  78 74 28 68 61 6e 64 6c  |.'.puttext(handl|
00006b70  65 37 25 2c 30 2c a4 73  74 6e 64 72 64 74 68 28  |e7%,0,.stndrdth(|
00006b80  64 74 25 29 29 0d 26 98  09 40 25 3d 42 25 0d 26  |dt%)).&..@%=B%.&|
00006b90  a2 05 e1 0d 26 ac 04 0d  26 b6 11 dd f2 6d 6f 6e  |....&...&....mon|
00006ba0  74 68 28 73 69 64 25 29  0d 26 c0 0b c8 8e 73 69  |th(sid%).&....si|
00006bb0  64 25 ca 0d 26 ca 2a 20  c9 2d 31 3a 6d 6e 74 25  |d%..&.* .-1:mnt%|
00006bc0  2d 3d 31 3a e7 6d 6e 74  25 3c 31 20 f2 79 65 61  |-=1:.mnt%<1 .yea|
00006bd0  72 28 2d 31 29 3a 6d 6e  74 25 3d 31 32 0d 26 d4  |r(-1):mnt%=12.&.|
00006be0  28 20 c9 31 3a 6d 6e 74  25 2b 3d 31 3a e7 6d 6e  |( .1:mnt%+=1:.mn|
00006bf0  74 25 3e 31 32 20 f2 79  65 61 72 28 31 29 3a 6d  |t%>12 .year(1):m|
00006c00  6e 74 25 3d 31 0d 26 de  05 cb 0d 26 e8 22 f2 70  |nt%=1.&....&.".p|
00006c10  75 74 74 65 78 74 28 68  61 6e 64 6c 65 37 25 2c  |uttext(handle7%,|
00006c20  31 2c 6d 6e 24 28 6d 6e  74 25 29 29 0d 26 f2 0f  |1,mn$(mnt%)).&..|
00006c30  44 25 3d 40 25 3a 40 25  3d 26 31 0d 26 fc 20 e7  |D%=@%:@%=&1.&. .|
00006c40  28 28 64 74 25 3e 6d 6e  25 28 6d 6e 74 25 29 29  |((dt%>mn%(mnt%))|
00006c50  80 69 63 6e 25 3e 31 31  29 20 8c 0d 27 06 0c 20  |.icn%>11) ..'.. |
00006c60  c8 8e 6d 6e 74 25 ca 0d  27 10 09 20 20 c9 32 3a  |..mnt%..'..  .2:|
00006c70  0d 27 1a 1d 20 20 20 e7  a4 6c 65 61 70 20 8c 64  |.'..   ..leap .d|
00006c80  74 25 3d 32 38 3a 8b 64  74 25 3d 32 39 0d 27 24  |t%=28:.dt%=29.'$|
00006c90  2a 20 20 20 f2 70 75 74  74 65 78 74 28 68 61 6e  |*   .puttext(han|
00006ca0  64 6c 65 37 25 2c 30 2c  a4 73 74 6e 64 72 64 74  |dle7%,0,.stndrdt|
00006cb0  68 28 64 74 25 29 29 0d  27 2e 3a 20 20 c9 34 2c  |h(dt%)).'.:  .4,|
00006cc0  36 2c 39 2c 31 31 3a 64  74 25 3d 33 30 3a f2 70  |6,9,11:dt%=30:.p|
00006cd0  75 74 74 65 78 74 28 68  61 6e 64 6c 65 37 25 2c  |uttext(handle7%,|
00006ce0  30 2c a4 73 74 6e 64 72  64 74 68 28 64 74 25 29  |0,.stndrdth(dt%)|
00006cf0  29 0d 27 38 06 20 cb 0d  27 42 05 cd 0d 27 4c 09  |).'8. ..'B...'L.|
00006d00  40 25 3d 44 25 0d 27 56  05 e1 0d 27 60 04 0d 27  |@%=D%.'V...'`..'|
00006d10  6a 10 dd f2 79 65 61 72  28 73 69 64 25 29 0d 27  |j...year(sid%).'|
00006d20  74 0f 43 25 3d 40 25 3a  40 25 3d 26 31 0d 27 7e  |t.C%=@%:@%=&1.'~|
00006d30  0f 79 65 61 72 25 2b 3d  73 69 64 25 0d 27 88 1f  |.year%+=sid%.'..|
00006d40  f2 70 75 74 74 65 78 74  28 68 61 6e 64 6c 65 37  |.puttext(handle7|
00006d50  25 2c 32 2c c3 79 65 61  72 25 29 0d 27 92 14 e7  |%,2,.year%).'...|
00006d60  64 74 25 3e 6d 6e 25 28  6d 6e 74 25 29 20 8c 0d  |dt%>mn%(mnt%) ..|
00006d70  27 9c 0c 20 c8 8e 6d 6e  74 25 ca 0d 27 a6 09 20  |'.. ..mnt%..'.. |
00006d80  20 c9 32 3a 0d 27 b0 1d  20 20 20 e7 a4 6c 65 61  | .2:.'..   ..lea|
00006d90  70 20 8c 64 74 25 3d 32  38 3a 8b 64 74 25 3d 32  |p .dt%=28:.dt%=2|
00006da0  39 0d 27 ba 2a 20 20 20  f2 70 75 74 74 65 78 74  |9.'.*   .puttext|
00006db0  28 68 61 6e 64 6c 65 37  25 2c 30 2c a4 73 74 6e  |(handle7%,0,.stn|
00006dc0  64 72 64 74 68 28 64 74  25 29 29 0d 27 c4 3a 20  |drdth(dt%)).'.: |
00006dd0  20 c9 34 2c 36 2c 39 2c  31 31 3a 64 74 25 3d 33  | .4,6,9,11:dt%=3|
00006de0  30 3a f2 70 75 74 74 65  78 74 28 68 61 6e 64 6c  |0:.puttext(handl|
00006df0  65 37 25 2c 30 2c a4 73  74 6e 64 72 64 74 68 28  |e7%,0,.stndrdth(|
00006e00  64 74 25 29 29 0d 27 ce  13 20 20 c9 31 32 2c 31  |dt%)).'..  .12,1|
00006e10  33 3a 6d 6e 74 25 3d 31  0d 27 d8 06 20 cb 0d 27  |3:mnt%=1.'.. ..'|
00006e20  e2 05 cd 0d 27 ec 09 40  25 3d 43 25 0d 27 f6 05  |....'..@%=C%.'..|
00006e30  e1 0d 28 00 04 0d 28 0a  0a dd a4 6c 65 61 70 0d  |..(...(....leap.|
00006e40  28 14 37 e7 28 28 79 65  61 72 25 83 34 3d 30 20  |(.7.((year%.4=0 |
00006e50  80 79 65 61 72 25 83 31  30 30 3c 3e 30 29 84 28  |.year%.100<>0).(|
00006e60  79 65 61 72 25 83 34 30  30 3d 30 29 29 20 8c 3d  |year%.400=0)) .=|
00006e70  30 3a 8b 3d 2d 31 0d 28  1e 04 0d 28 28 13 dd a4  |0:.=-1.(...((...|
00006e80  73 74 6e 64 72 64 74 68  28 6a 70 25 29 0d 28 32  |stndrdth(jp%).(2|
00006e90  0c 6a 70 24 3d c3 6a 70  25 0d 28 3c 0a c8 8e 6a  |.jp$=.jp%.(<...j|
00006ea0  70 25 ca 0d 28 46 17 20  c9 31 2c 32 31 2c 33 31  |p%..(F. .1,21,31|
00006eb0  3a 3d 6a 70 24 2b 22 73  74 22 0d 28 50 14 20 c9  |:=jp$+"st".(P. .|
00006ec0  32 2c 32 32 3a 3d 6a 70  24 2b 22 6e 64 22 0d 28  |2,22:=jp$+"nd".(|
00006ed0  5a 14 20 c9 33 2c 32 33  3a 3d 6a 70 24 2b 22 72  |Z. .3,23:=jp$+"r|
00006ee0  64 22 0d 28 64 10 20 7f  3a 3d 6a 70 24 2b 22 74  |d".(d. .:=jp$+"t|
00006ef0  68 22 0d 28 6e 05 cb 0d  28 78 04 0d 28 82 0d dd  |h".(n...(x..(...|
00006f00  f2 67 65 74 64 61 74 65  0d 28 8c 2e 64 61 74 65  |.getdate.(..date|
00006f10  24 3d a4 69 63 6f 6e 74  65 78 74 28 68 61 6e 64  |$=.icontext(hand|
00006f20  6c 65 37 25 2c 30 29 3a  64 74 25 3d bb c0 64 61  |le7%,0):dt%=..da|
00006f30  74 65 24 2c 32 29 0d 28  96 20 6d 6f 6e 74 68 24  |te$,2).(. month$|
00006f40  3d a4 69 63 6f 6e 74 65  78 74 28 68 61 6e 64 6c  |=.icontext(handl|
00006f50  65 37 25 2c 31 29 0d 28  a0 0e 6d 6e 74 25 3d 31  |e7%,1).(..mnt%=1|
00006f60  3a 4a 3d 30 0d 28 aa 05  f5 0d 28 b4 25 20 e7 6d  |:J=0.(....(.% .m|
00006f70  6f 6e 74 68 24 3d 6d 6e  24 28 6d 6e 74 25 29 20  |onth$=mn$(mnt%) |
00006f80  8c 4a 3d 2d 31 3a 8b 6d  6e 74 25 2b 3d 31 0d 28  |.J=-1:.mnt%+=1.(|
00006f90  be 0f fd 6d 6e 74 25 3e  31 32 20 84 4a 0d 28 c8  |...mnt%>12 .J.(.|
00006fa0  2c 79 65 61 72 24 3d a4  69 63 6f 6e 74 65 78 74  |,year$=.icontext|
00006fb0  28 68 61 6e 64 6c 65 37  25 2c 32 29 3a 79 65 61  |(handle7%,2):yea|
00006fc0  72 25 3d bb 79 65 61 72  24 0d 28 d2 05 e1 0d 28  |r%=.year$.(....(|
00006fd0  dc 04 0d 28 e6 0d dd f2  63 6c 65 61 72 65 64 0d  |...(....cleared.|
00006fe0  28 f0 1e 66 68 24 3d a4  69 63 6f 6e 74 65 78 74  |(..fh$=.icontext|
00006ff0  28 68 61 6e 64 6c 65 37  25 2c 31 37 29 0d 28 fa  |(handle7%,17).(.|
00007000  22 e7 66 68 24 3d 22 79  65 73 22 8c 66 68 24 3d  |".fh$="yes".fh$=|
00007010  22 6e 6f 22 3a 8b 66 68  24 3d 22 79 65 73 22 0d  |"no":.fh$="yes".|
00007020  29 04 1d f2 70 75 74 74  65 78 74 28 68 61 6e 64  |)...puttext(hand|
00007030  6c 65 37 25 2c 31 37 2c  66 68 24 29 0d 29 0e 05  |le7%,17,fh$).)..|
00007040  e1 0d 29 18 04 0d 29 22  0f dd f2 77 72 69 74 65  |..)...)"...write|
00007050  64 61 74 61 0d 29 2c 49  3f 28 64 61 74 61 25 2b  |data.),I?(data%+|
00007060  64 61 74 61 70 74 72 25  29 3d 75 6e 63 6c 3a 3f  |dataptr%)=uncl:?|
00007070  28 64 61 74 61 25 2b 64  61 74 61 70 74 72 25 2b  |(data%+dataptr%+|
00007080  31 29 3d 64 61 79 3a 3f  28 64 61 74 61 25 2b 64  |1)=day:?(data%+d|
00007090  61 74 61 70 74 72 25 2b  32 29 3d 6d 6e 0d 29 36  |ataptr%+2)=mn.)6|
000070a0  31 3f 28 64 61 74 61 25  2b 64 61 74 61 70 74 72  |1?(data%+dataptr|
000070b0  25 2b 33 29 3d 79 65 3a  3f 28 64 61 74 61 25 2b  |%+3)=ye:?(data%+|
000070c0  64 61 74 61 70 74 72 25  2b 34 29 3d 61 72 0d 29  |dataptr%+4)=ar.)|
000070d0  40 38 24 28 64 61 74 61  25 2b 64 61 74 61 70 74  |@8$(data%+datapt|
000070e0  72 25 2b 35 29 3d 63 6f  64 65 24 3a 24 28 64 61  |r%+5)=code$:$(da|
000070f0  74 61 25 2b 64 61 74 61  70 74 72 25 2b 31 30 29  |ta%+dataptr%+10)|
00007100  3d 64 65 73 63 24 0d 29  4a 05 e1 0d 29 54 04 0d  |=desc$.)J...)T..|
00007110  29 5e 0e dd f2 72 65 61  64 64 61 74 61 0d 29 68  |)^...readdata.)h|
00007120  0f 45 25 3d 40 25 3a 40  25 3d 26 31 0d 29 72 49  |.E%=@%:@%=&1.)rI|
00007130  75 6e 63 6c 3d 3f 28 64  61 74 61 25 2b 64 61 74  |uncl=?(data%+dat|
00007140  61 70 74 72 25 29 3a 64  61 79 3d 3f 28 64 61 74  |aptr%):day=?(dat|
00007150  61 25 2b 64 61 74 61 70  74 72 25 2b 31 29 3a 6d  |a%+dataptr%+1):m|
00007160  6e 3d 3f 28 64 61 74 61  25 2b 64 61 74 61 70 74  |n=?(data%+datapt|
00007170  72 25 2b 32 29 0d 29 7c  31 79 65 3d 3f 28 64 61  |r%+2).)|1ye=?(da|
00007180  74 61 25 2b 64 61 74 61  70 74 72 25 2b 33 29 3a  |ta%+dataptr%+3):|
00007190  61 72 3d 3f 28 64 61 74  61 25 2b 64 61 74 61 70  |ar=?(data%+datap|
000071a0  74 72 25 2b 34 29 0d 29  86 31 64 61 74 65 24 3d  |tr%+4).).1date$=|
000071b0  c3 64 61 79 2b 6d 6e 24  28 6d 6e 29 2b c3 61 72  |.day+mn$(mn)+.ar|
000071c0  3a e7 75 6e 63 6c 20 8c  64 61 74 65 24 3d 22 55  |:.uncl .date$="U|
000071d0  22 2b 64 61 74 65 24 0d  29 90 38 63 6f 64 65 24  |"+date$.).8code$|
000071e0  3d 24 28 64 61 74 61 25  2b 64 61 74 61 70 74 72  |=$(data%+dataptr|
000071f0  25 2b 35 29 3a 64 65 73  63 24 3d 24 28 64 61 74  |%+5):desc$=$(dat|
00007200  61 25 2b 64 61 74 61 70  74 72 25 2b 31 30 29 0d  |a%+dataptr%+10).|
00007210  29 9a 09 40 25 3d 45 25  0d 29 a4 05 e1 0d 29 ae  |)..@%=E%.)....).|
00007220  04 0d 29 b8 0e dd f2 67  65 74 73 74 75 66 66 0d  |..)....getstuff.|
00007230  29 c2 38 f2 67 65 74 64  61 74 65 3a 64 61 79 3d  |).8.getdate:day=|
00007240  64 74 25 3a 6d 6e 3d 6d  6e 74 25 3a 79 65 3d bb  |dt%:mn=mnt%:ye=.|
00007250  c0 79 65 61 72 24 2c 32  29 3a 61 72 3d bb c1 79  |.year$,2):ar=..y|
00007260  65 61 72 24 2c 33 29 0d  29 cc 32 e7 a4 69 63 6f  |ear$,3).).2..ico|
00007270  6e 74 65 78 74 28 68 61  6e 64 6c 65 37 25 2c 31  |ntext(handle7%,1|
00007280  37 29 3d 22 79 65 73 22  20 8c 75 6e 63 6c 3d 30  |7)="yes" .uncl=0|
00007290  3a 8b 75 6e 63 6c 3d 2d  31 0d 29 d6 1f 63 6f 64  |:.uncl=-1.)..cod|
000072a0  65 24 3d a4 69 63 6f 6e  74 65 78 74 28 68 61 6e  |e$=.icontext(han|
000072b0  64 6c 65 37 25 2c 33 29  0d 29 e0 1f 64 65 73 63  |dle7%,3).)..desc|
000072c0  24 3d a4 69 63 6f 6e 74  65 78 74 28 68 61 6e 64  |$=.icontext(hand|
000072d0  6c 65 37 25 2c 37 29 0d  29 ea 1f 64 70 3d bb 28  |le7%,7).)..dp=.(|
000072e0  a4 69 63 6f 6e 74 65 78  74 28 68 61 6e 64 6c 65  |.icontext(handle|
000072f0  37 25 2c 35 29 29 0d 29  f4 1e 64 61 74 65 24 3d  |7%,5)).)..date$=|
00007300  c3 64 74 25 2b 6d 6e 24  28 6d 6e 74 25 29 2b 79  |.dt%+mn$(mnt%)+y|
00007310  65 61 72 24 0d 29 fe 05  e1 0d 2a 08 04 0d 2a 12  |ear$.)....*...*.|
00007320  0d dd f2 66 69 6e 64 70  6f 73 0d 2a 1c 27 69 6e  |...findpos.*.'in|
00007330  73 65 72 74 3d 2d 31 3a  4b 3d 30 3a 66 6f 75 6e  |sert=-1:K=0:foun|
00007340  64 69 74 3d 30 3a 45 25  3d 40 25 3a 40 25 3d 26  |dit=0:E%=@%:@%=&|
00007350  31 0d 2a 26 52 64 61 74  61 70 74 72 25 3d 64 61  |1.*&Rdataptr%=da|
00007360  74 61 25 2b 28 28 74 72  61 6e 73 61 63 74 69 6f  |ta%+((transactio|
00007370  6e 73 25 2d 31 29 2a 34  30 29 3a 64 3d 3f 28 64  |ns%-1)*40):d=?(d|
00007380  61 74 61 70 74 72 25 2b  33 29 3a 65 3d 3f 28 64  |ataptr%+3):e=?(d|
00007390  61 74 61 70 74 72 25 2b  34 29 3a 66 24 3d c3 64  |ataptr%+4):f$=.d|
000073a0  2b c3 65 0d 2a 30 2b e7  79 65 61 72 24 3e 66 24  |+.e.*0+.year$>f$|
000073b0  20 8c 69 6e 73 65 72 74  3d 74 72 61 6e 73 61 63  | .insert=transac|
000073c0  74 69 6f 6e 73 25 3a 40  25 3d 45 25 3a e1 0d 2a  |tions%:@%=E%:..*|
000073d0  3a 05 f5 0d 2a 44 43 20  64 61 74 61 70 74 72 25  |:...*DC dataptr%|
000073e0  3d 64 61 74 61 25 2b 28  4b 2a 34 30 29 3a 64 3d  |=data%+(K*40):d=|
000073f0  3f 28 64 61 74 61 70 74  72 25 2b 33 29 3a 65 3d  |?(dataptr%+3):e=|
00007400  3f 28 64 61 74 61 70 74  72 25 2b 34 29 3a 66 24  |?(dataptr%+4):f$|
00007410  3d c3 64 2b c3 65 0d 2a  4e 2d 20 e7 79 65 61 72  |=.d+.e.*N- .year|
00007420  24 3c 66 24 20 80 69 6e  73 65 72 74 3d 2d 31 20  |$<f$ .insert=-1 |
00007430  8c 69 6e 73 65 72 74 3d  4b 3a 66 6f 75 6e 64 69  |.insert=K:foundi|
00007440  74 3d b9 0d 2a 58 1e 20  e7 66 24 3d 79 65 61 72  |t=..*X. .f$=year|
00007450  24 20 8c 69 6e 73 65 72  74 3d 4b 3a 8b 4b 2b 3d  |$ .insert=K:.K+=|
00007460  31 0d 2a 62 1f fd 69 6e  73 65 72 74 3e 2d 31 20  |1.*b..insert>-1 |
00007470  84 4b 3e 74 72 61 6e 73  61 63 74 69 6f 6e 73 25  |.K>transactions%|
00007480  0d 2a 6c 15 e7 66 6f 75  6e 64 69 74 20 8c 40 25  |.*l..foundit .@%|
00007490  3d 45 25 3a e1 0d 2a 76  18 66 6f 75 6e 64 69 74  |=E%:..*v.foundit|
000074a0  3d 30 3a 66 6f 75 6e 64  69 74 32 3d 30 0d 2a 80  |=0:foundit2=0.*.|
000074b0  05 f5 0d 2a 8a 53 20 64  61 74 61 70 74 72 25 3d  |...*.S dataptr%=|
000074c0  64 61 74 61 25 2b 28 4b  2a 34 30 29 3a 63 3d 3f  |data%+(K*40):c=?|
000074d0  28 64 61 74 61 70 74 72  25 2b 32 29 3a 64 3d 3f  |(dataptr%+2):d=?|
000074e0  28 64 61 74 61 70 74 72  25 2b 33 29 3a 65 3d 3f  |(dataptr%+3):e=?|
000074f0  28 64 61 74 61 70 74 72  25 2b 34 29 3a 66 24 3d  |(dataptr%+4):f$=|
00007500  c3 64 2b c3 65 0d 2a 94  2d 20 e7 66 24 3e 79 65  |.d+.e.*.- .f$>ye|
00007510  61 72 24 20 8c 66 6f 75  6e 64 69 74 32 3d b9 3a  |ar$ .foundit2=.:|
00007520  66 6f 75 6e 64 69 74 3d  b9 3a 69 6e 73 65 72 74  |foundit=.:insert|
00007530  3d 4b 0d 2a 9e 35 20 e7  4b 3e 3d 74 72 61 6e 73  |=K.*.5 .K>=trans|
00007540  61 63 74 69 6f 6e 73 25  20 8c 66 6f 75 6e 64 69  |actions% .foundi|
00007550  74 32 3d b9 3a 66 6f 75  6e 64 69 74 3d b9 3a 69  |t2=.:foundit=.:i|
00007560  6e 73 65 72 74 3d 4b 0d  2a a8 2f 20 e7 63 3e 3d  |nsert=K.*./ .c>=|
00007570  6d 6e 20 80 66 24 3d 79  65 61 72 24 20 8c 69 6e  |mn .f$=year$ .in|
00007580  73 65 72 74 3d 4b 3a 66  6f 75 6e 64 69 74 3d b9  |sert=K:foundit=.|
00007590  3a 8b 4b 2b 3d 31 0d 2a  b2 0c fd 66 6f 75 6e 64  |:.K+=1.*...found|
000075a0  69 74 0d 2a bc 16 e7 66  6f 75 6e 64 69 74 32 20  |it.*...foundit2 |
000075b0  8c 40 25 3d 45 25 3a e1  0d 2a c6 0d 66 6f 75 6e  |.@%=E%:..*..foun|
000075c0  64 69 74 3d 30 0d 2a d0  1a e7 69 6e 73 65 72 74  |dit=0.*...insert|
000075d0  3c 74 72 61 6e 73 61 63  74 69 6f 6e 73 25 8c 0d  |<transactions%..|
000075e0  2a da 06 20 f5 0d 2a e4  40 20 20 64 61 74 61 70  |*.. ..*.@  datap|
000075f0  74 72 25 3d 64 61 74 61  25 2b 28 69 6e 73 65 72  |tr%=data%+(inser|
00007600  74 2a 34 30 29 3a 62 3d  3f 28 64 61 74 61 70 74  |t*40):b=?(datapt|
00007610  72 25 2b 31 29 3a 63 3d  3f 28 64 61 74 61 70 74  |r%+1):c=?(datapt|
00007620  72 25 2b 32 29 0d 2a ee  2e 20 20 e7 28 28 62 3c  |r%+2).*..  .((b<|
00007630  64 61 79 2b 31 29 80 28  63 3d 6d 6e 29 29 8c 69  |day+1).(c=mn)).i|
00007640  6e 73 65 72 74 2b 3d 31  3a 8b 66 6f 75 6e 64 69  |nsert+=1:.foundi|
00007650  74 3d b9 0d 2a f8 27 20  fd 28 66 6f 75 6e 64 69  |t=..*.' .(foundi|
00007660  74 29 84 28 69 6e 73 65  72 74 3e 3d 74 72 61 6e  |t).(insert>=tran|
00007670  73 61 63 74 69 6f 6e 73  25 29 0d 2b 02 05 cd 0d  |sactions%).+....|
00007680  2b 0c 09 40 25 3d 45 25  0d 2b 16 05 e1 0d ff     |+..@%=E%.+.....|
0000768f