"� > CashBook  V.1.0 (M/C sort)
� � D.J.Holden June 1990

(file_size    = 200
2def_name$    = "CashFile"
<page_length  = 60
Fsingle_sheet = �
Pday          = 1
Zmonth        = 1
dyear         = 90
n
xmax%=file_size*60+256
�8� array% max%,input% 128,m% 256,name% 256,block% 256
�:ș "Wimp_Initialise",200,&4B534154,"CashBook" � ,hand%
�� � �error
�6ș"OS_ReadVarVal","Cash$Dir",block%,255,0,3 � ,,I%
�$block%?I%=13 : cash_dir$=$block%
�blank$=�11," ")
��assemble   :� <<***>>
�icon%=�icon:�menu:�new
��
�+ș"Wimp_Poll",49,block% � reason%,data%
�Ȏ reason% �
� � 9:�select
�D � 17,18:� data%!16=0 �exit �� data%!16=3 � data%!24=icon% �load

) � 6:� data%!16=icon% � data%!12=-2 �

B   � data%!8=2 ș"Wimp_CreateMenu",,m%,block%!0-96,280 � �edit

  �

"�

,� �

6�

@

J��select

TȎ !data% �

^ � 0:�save

h0 � 1:� �alert("Are you sure",3)=1 �new:�edit

r
 � 2:�die

|�

��

�

�
��edit

�*FX225,140

�*FX226,1

�*FX229,1

�*FX219,9,0

�
*FX4,0

��full_scrn:�12,23,0,10,96 |

��$array% '' $(array%+72)

�curl%=array%!248:end%=curl%

�@%=&2020B:�31,0,26:�totals

��disp_scrn(end%)
�
 col%=0:E%=�:ptr%=�ptr(curl%)
� curl%>end% �
& � I%=0 � 59:ptr%?I%=0:�
0 !ptr%=!(ptr%-60):ptr%?4=13
: end%=curl%:array%!248=end%
D�
N�13,10,11:v%=�:�disp_line
X�
b �31,col%*11,v%:*FX21,0
l � col%>2 �9,9,9
v K%=�:Ȏ K% �
�$  � 9  :� col%<num_cols% col%+=1
�,  � 8  :� col%>0 col%-=1:� col%=2 col%=1
�#  � 13 :� col%<3 col%+=1 � E%=�
�  � 27 :E%=�
�  � 140:�print
�   � 141:�header(array%,0,70)
�'  � 142:�header(array%+72,2,width%)
�'  � 143:� curl%>0 curl%-=1:�11:E%=�
�  � 144:� curl%<end% E%=�
�  � 145:�sort:E%=�
�(  � 127:� �(-1) � curl%<end% �delete
� 
�  � K%<127 � K%>31 �
   ș"OS_Byte",138,0,K%
   Ȏ col% �
    � 0:�get_date
     � 1:�get_name
*    �get_cash
4   �
>   �31,0,v%:�disp_line
H  �
R �
\ � col%=2 col%=3
f� E% � col%>num_cols%
p� K%<> 143 curl%+=1:�
z$� curl%>file_size curl%-=1:�7,11
�� K%=27
�*FX138,0,&CC
�*FX138,0,13
��
�
���get_date
�� �(9);:�13
�#ș "OS_ReadLine",input%,9,46,57
��11:col%=1
�I%=� $input%:� I%=0 �
�?ptr%=I%
�I%=�$input%,"."):� I%=0 �
�ptr%?1=�($(input%+I%))
"J%=�$(input%+I%),"."):� J%=0 �
ptr%?2=�($(input%+I%+J%))
�
$
.��get_name
8-ș "OS_ReadLine",input%,22,32,126 � ,len%
B�11:col%=3
L2� len%>0 � I%=0 � len%:ptr%?(I%+4)=input%?I%:�
V�
`
j��get_cash
t+ș "OS_ReadLine",input%,9,46,57 � ,len%
~�11:col%+=1:� len%=0 �
�)array%!(col%*4+200)-=ptr%!(col%*4+12)
�(ptr%!(col%*4+12)=�($input%)*100+.002
�)array%!(col%*4+200)+=ptr%!(col%*4+12)
��disp_totals
��
�
���delete
�/� I%=28 � 56 � 4:array%!(I%+188)-=ptr%!I%:�
�2� I%=ptr% � end%*60+256+array% � 4:!I%=I%!60:�
��disp_totals:end%-=1
��disp_scrn(curl%-v%+20)
��


��disp_date
@%=2
#� ?ptr%"."ptr%?1"."ptr%?2 �(3);
(
@%=&2020B
2�
<
F��disp_line
P�disp_date
Z� $(ptr%+4);�(33-�);
d� I%=3 � num_cols%
nC%=ptr%!(I%*4+16)
x%� C%=0 � blank$; � � C%/100+.002;
��
��
�
���disp_totals
��full_scrn:�31,0,26
��totals:�window:�31,0,v%
��
�
���header(addr%,y%,w%)
��full_scrn:�31,0,y%
�*FX 4,1
��
�I%=�:Ȏ I% �
 � 137:� �<w% �9
 � 136:� �>0 �8

"+ � I%<127 � I%>31 � �<w% addr%?�=I%:�I%
,�
6� I%=13
@�window:�31,0,v%:*FX4,0
J�
T
^	��new
h� I%=0 � 316:array%?I%=0:�
r!$array%=�70," "):width%=�mode
|/$(array%+72)="   Date"+blank$+"Name"+blank$
�<� I%=3 � num_cols%:$(array%+72)+="   Column "+�(I%+46):�
�%array%?256=day : array%?257=month
�"array%?258=year: array%?260=13
�$name%=def_name$
��
�
���totals
�array%!212=0
��'�(12)"Sub Totals"�(10);
�"� I%=216 � num_cols%*4+204 � 4
� � array%!I%>0 �
�  �,array%!I%/100+.002;
�  array%!212+=array%!I%
 �
  �,blank$;
 �
&�
0,�''�(16)"Total"�(10),array%!212/100+.002
:�
D
N��disp_scrn(to%)
X�window:�12,30
b"line%=to%-20:� line%<0 line%=0
l�
v*ptr%=�ptr(line%):�disp_line:�:line%+=1
�� line%>end% � line%>to%
�	�11:�
�
�
��sort
�A%=�ptr(0):B%=�ptr(end%-1)
�� code%
�curl%=end%-1
��disp_scrn(curl%)
��
�
���print
��window:�12,2:� $array%
�� �=16 �1,15
!�'$(array%+72)'�width%-1,"_")
len%=page_length-5:line%=0
�
 %ptr%=�ptr(line%):len%-=1:line%+=1
*�:�disp_line
4� len%=0 �
> len%=page_length
H! � single_sheet �7:G%=� � �12
R�
\� line%=end% � �(-113)
f� �(-113) �3:�
p�'�width%-1,"_"):�totals
z� �=16 �1,18,12,3 � �12,3
��disp_scrn(end%)
��
�
�
��save
�"� �=16 type%=&CB8 � type%=&CB4
�J%=�$name%,".")
�-� J%=0 dir$=cash_dir$+".Files." � dir$=""
�9ș"OS_File",10,dir$+$name%,type%,,array%,�ptr(end%+1)
��
�
���full_scrn
�� 132:� 0:�4,26
��
	
	��window
	
� 128:� 7
	$� 28,0,25,width%,4
	.�
	8
	Bݤptr(L%):=60*L%+array%+256
	L
	V
ݤmode
	`.� �=16 num_cols%=10:=131:� num_cols%=6:=79
	j
	t
��load
	~1� �(-1) addr%=�ptr(array%!248) � addr%=array%
	�"type%=data%!40   : I%=data%+44
	�!data%!12=data%!8 : data%!16=4
	�file$="":width%=�mode
	� ȕ ?I%:file$+=�(?I%):I%+=1:�
	�*ș "Wimp_SendMessage",17,data%,data%!4
	�@� addr%=array% � array%!238>0 � �alert("Are you sure",3)=3 �
	�7� type%=&CB8 � �<>16 J%=�alert("Needs Mode 16",1):�
	�8� type%<&CB4 � type%>&CB8 J%=�alert("Bad File!",1):�
	�"ș"OS_File",5,file$ � ,,,,len%
	�<� addr%-array%+len%>max% J%=�alert("File too long!",1):�
	�!ș"OS_File",&FF,file$,addr%,0
	�� addr%>array% �
- � I%=212 � 248 � 4:array%!I%+=addr%!I%:�

5 � I%=addr% � �ptr(array%!248+1) � 4:!I%=I%!256:�
� $name%=file$:�edit
�
(�
2
<
ݤicon
Fblock%!0=-1  : block%!4=0
Pblock%!8=8   : block%!12=68
Z"block%!16=96 : block%!20=&2002
d$(block%+24)="!CashBook"
n(ș "Wimp_CreateIcon",,block% � icon%
x
=icon%
�
�
��menu
�"$m%="Cash Book" : m%!12=&70207
�m%!16=160       : m%!20=40
�m%!24=0         : m%!28=0
�$m%!32=m%+128    : m%!36=&7000001
�$(m%+40)="Save" : m%!52=2
�$m%!56=0         : m%!60=&7000001
�$(m%+64)="Start New"
�m%!76=128       : m%!80=0
�%m%!84=&7000001  : $(m%+88)="Quit"
�$(m%+128)="Save As:"
� m%!140=&70207   : m%!144=240
m%!148=40       : m%!152=0
m%!156=132      : m%!160=0
"m%!164=&7000111 : m%!168=name%
" m%!172=-1       : m%!176=255
,�
6
@��error
J.!data%=�:$(data%+4)=�$+" at line "+�(�)+�0
T.ș "Wimp_ReportError",block%,1,"Cash Book"
^
� � >52 �
h	��die
r'ș "Wimp_CloseDown",hand%,&4B534154
|�
�
�ݤalert(alert$,flag%)
�(block%!128=0:$(block%+132)=alert$+�0
�>ș"Wimp_ReportError",block%+128,flag%+16,"Cash Book" � ,I%
�=I%
�
���assemble
� � When CALLed from Basic
� � r1=address of 1st entry
� � r2=address of last entry
�link=14 : pc=15
�� code% &80
�P%=code%
<[OPT 2                          ;single pass, no fwd ref
G        MOV r5,#1               ;seed r5 so don't quit on next line
9.outer  CMP r5,#0               ;any entries swapped?
&6        �Q pc,link           ;if no swaps all done
06        MOV r5,#0               ;count swaps in r5
:=        MOV r2,r0               ;copy start of data to r2
DE.inner  LDR r3,[r2],#60         ;get 1st date, point to next date
N3        CMP r2,r1               ;at last entry?
X;        BGT outer               ;yes, so go round again
b2        LDR r4,[r2]             ;get next date
l:        CMP r4,r3               ;compare the two dates
vE        BGE inner               ;if 2nd date >= 1st date carry on
�;        SUB r6,r2,#60           ;r6 points to 1st entry
�:        ADD r5,r5,#1            ;increase swap counter
�<        MOV r7,#0               ;use r7 as index pointer
�<.swap   LDR r4,[r6,r7]          ;get word from 1st entry
�<        LDR r9,[r2,r7]          ;get word from 2nd entry
�3        STR r4,[r2,r7]          ;swap the words
�        STR r9,[r6,r7]
�;        ADD r7,r7,#4            ;increase index pointer
�        CMP r7,#60
�6        BLT swap                ;if <60 keep going
�2        BAL inner               ;swap complete
�]
��
�

00000000  0d 00 0a 22 f4 20 3e 20  43 61 73 68 42 6f 6f 6b  |...". > CashBook|
00000010  20 20 56 2e 31 2e 30 20  28 4d 2f 43 20 73 6f 72  |  V.1.0 (M/C sor|
00000020  74 29 0d 00 14 1c f4 20  a9 20 44 2e 4a 2e 48 6f  |t)..... . D.J.Ho|
00000030  6c 64 65 6e 20 4a 75 6e  65 20 31 39 39 30 0d 00  |lden June 1990..|
00000040  1e 04 0d 00 28 16 66 69  6c 65 5f 73 69 7a 65 20  |....(.file_size |
00000050  20 20 20 3d 20 32 30 30  0d 00 32 1d 64 65 66 5f  |   = 200..2.def_|
00000060  6e 61 6d 65 24 20 20 20  20 3d 20 22 43 61 73 68  |name$    = "Cash|
00000070  46 69 6c 65 22 0d 00 3c  15 70 61 67 65 5f 6c 65  |File"..<.page_le|
00000080  6e 67 74 68 20 20 3d 20  36 30 0d 00 46 14 73 69  |ngth  = 60..F.si|
00000090  6e 67 6c 65 5f 73 68 65  65 74 20 3d 20 a3 0d 00  |ngle_sheet = ...|
000000a0  50 14 64 61 79 20 20 20  20 20 20 20 20 20 20 3d  |P.day          =|
000000b0  20 31 0d 00 5a 14 6d 6f  6e 74 68 20 20 20 20 20  | 1..Z.month     |
000000c0  20 20 20 3d 20 31 0d 00  64 15 79 65 61 72 20 20  |   = 1..d.year  |
000000d0  20 20 20 20 20 20 20 3d  20 39 30 0d 00 6e 04 0d  |       = 90..n..|
000000e0  00 78 19 6d 61 78 25 3d  66 69 6c 65 5f 73 69 7a  |.x.max%=file_siz|
000000f0  65 2a 36 30 2b 32 35 36  0d 00 82 38 de 20 61 72  |e*60+256...8. ar|
00000100  72 61 79 25 20 6d 61 78  25 2c 69 6e 70 75 74 25  |ray% max%,input%|
00000110  20 31 32 38 2c 6d 25 20  32 35 36 2c 6e 61 6d 65  | 128,m% 256,name|
00000120  25 20 32 35 36 2c 62 6c  6f 63 6b 25 20 32 35 36  |% 256,block% 256|
00000130  0d 00 8c 3a c8 99 20 22  57 69 6d 70 5f 49 6e 69  |...:.. "Wimp_Ini|
00000140  74 69 61 6c 69 73 65 22  2c 32 30 30 2c 26 34 42  |tialise",200,&4B|
00000150  35 33 34 31 35 34 2c 22  43 61 73 68 42 6f 6f 6b  |534154,"CashBook|
00000160  22 20 b8 20 2c 68 61 6e  64 25 0d 00 96 0e ee 20  |" . ,hand%..... |
00000170  85 20 f2 65 72 72 6f 72  0d 00 a0 36 c8 99 22 4f  |. .error...6.."O|
00000180  53 5f 52 65 61 64 56 61  72 56 61 6c 22 2c 22 43  |S_ReadVarVal","C|
00000190  61 73 68 24 44 69 72 22  2c 62 6c 6f 63 6b 25 2c  |ash$Dir",block%,|
000001a0  32 35 35 2c 30 2c 33 20  b8 20 2c 2c 49 25 0d 00  |255,0,3 . ,,I%..|
000001b0  aa 24 62 6c 6f 63 6b 25  3f 49 25 3d 31 33 20 3a  |.$block%?I%=13 :|
000001c0  20 63 61 73 68 5f 64 69  72 24 3d 24 62 6c 6f 63  | cash_dir$=$bloc|
000001d0  6b 25 0d 00 b4 13 62 6c  61 6e 6b 24 3d c4 31 31  |k%....blank$=.11|
000001e0  2c 22 20 22 29 0d 00 be  1a f2 61 73 73 65 6d 62  |," ").....assemb|
000001f0  6c 65 20 20 20 3a f4 20  3c 3c 2a 2a 2a 3e 3e 0d  |le   :. <<***>>.|
00000200  00 c8 1a 69 63 6f 6e 25  3d a4 69 63 6f 6e 3a f2  |...icon%=.icon:.|
00000210  6d 65 6e 75 3a f2 6e 65  77 0d 00 d2 05 f5 0d 00  |menu:.new.......|
00000220  dc 2b c8 99 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |.+.."Wimp_Poll",|
00000230  34 39 2c 62 6c 6f 63 6b  25 20 b8 20 72 65 61 73  |49,block% . reas|
00000240  6f 6e 25 2c 64 61 74 61  25 0d 00 e6 10 c8 8e 20  |on%,data%...... |
00000250  72 65 61 73 6f 6e 25 20  ca 0d 00 f0 10 20 c9 20  |reason% ..... . |
00000260  39 3a f2 73 65 6c 65 63  74 0d 00 fa 44 20 c9 20  |9:.select...D . |
00000270  31 37 2c 31 38 3a e7 20  64 61 74 61 25 21 31 36  |17,18:. data%!16|
00000280  3d 30 20 f2 65 78 69 74  20 8b e7 20 64 61 74 61  |=0 .exit .. data|
00000290  25 21 31 36 3d 33 20 e7  20 64 61 74 61 25 21 32  |%!16=3 . data%!2|
000002a0  34 3d 69 63 6f 6e 25 20  f2 6c 6f 61 64 0d 01 04  |4=icon% .load...|
000002b0  29 20 c9 20 36 3a e7 20  64 61 74 61 25 21 31 36  |) . 6:. data%!16|
000002c0  3d 69 63 6f 6e 25 20 80  20 64 61 74 61 25 21 31  |=icon% . data%!1|
000002d0  32 3d 2d 32 20 8c 0d 01  0e 42 20 20 20 e7 20 64  |2=-2 ....B   . d|
000002e0  61 74 61 25 21 38 3d 32  20 c8 99 22 57 69 6d 70  |ata%!8=2 .."Wimp|
000002f0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 25  |_CreateMenu",,m%|
00000300  2c 62 6c 6f 63 6b 25 21  30 2d 39 36 2c 32 38 30  |,block%!0-96,280|
00000310  20 8b 20 f2 65 64 69 74  0d 01 18 07 20 20 cd 0d  | . .edit....  ..|
00000320  01 22 05 cb 0d 01 2c 07  fd 20 a3 0d 01 36 05 e0  |."....,.. ...6..|
00000330  0d 01 40 04 0d 01 4a 0c  dd f2 73 65 6c 65 63 74  |..@...J...select|
00000340  0d 01 54 0f c8 8e 20 21  64 61 74 61 25 20 ca 0d  |..T... !data% ..|
00000350  01 5e 0e 20 c9 20 30 3a  f2 73 61 76 65 0d 01 68  |.^. . 0:.save..h|
00000360  30 20 c9 20 31 3a e7 20  a4 61 6c 65 72 74 28 22  |0 . 1:. .alert("|
00000370  41 72 65 20 79 6f 75 20  73 75 72 65 22 2c 33 29  |Are you sure",3)|
00000380  3d 31 20 f2 6e 65 77 3a  f2 65 64 69 74 0d 01 72  |=1 .new:.edit..r|
00000390  0d 20 c9 20 32 3a f2 64  69 65 0d 01 7c 05 cb 0d  |. . 2:.die..|...|
000003a0  01 86 05 e1 0d 01 90 04  0d 01 9a 0a dd f2 65 64  |..............ed|
000003b0  69 74 0d 01 a4 0e 2a 46  58 32 32 35 2c 31 34 30  |it....*FX225,140|
000003c0  0d 01 ae 0c 2a 46 58 32  32 36 2c 31 0d 01 b8 0c  |....*FX226,1....|
000003d0  2a 46 58 32 32 39 2c 31  0d 01 c2 0e 2a 46 58 32  |*FX229,1....*FX2|
000003e0  31 39 2c 39 2c 30 0d 01  cc 0a 2a 46 58 34 2c 30  |19,9,0....*FX4,0|
000003f0  0d 01 d6 1f f2 66 75 6c  6c 5f 73 63 72 6e 3a ef  |.....full_scrn:.|
00000400  31 32 2c 32 33 2c 30 2c  31 30 2c 39 36 20 7c 0d  |12,23,0,10,96 |.|
00000410  01 e0 1c f1 24 61 72 72  61 79 25 20 27 27 20 24  |....$array% '' $|
00000420  28 61 72 72 61 79 25 2b  37 32 29 0d 01 ea 1f 63  |(array%+72)....c|
00000430  75 72 6c 25 3d 61 72 72  61 79 25 21 32 34 38 3a  |url%=array%!248:|
00000440  65 6e 64 25 3d 63 75 72  6c 25 0d 01 f4 1e 40 25  |end%=curl%....@%|
00000450  3d 26 32 30 32 30 42 3a  ef 33 31 2c 30 2c 32 36  |=&2020B:.31,0,26|
00000460  3a f2 74 6f 74 61 6c 73  0d 01 fe 14 f2 64 69 73  |:.totals.....dis|
00000470  70 5f 73 63 72 6e 28 65  6e 64 25 29 0d 02 08 05  |p_scrn(end%)....|
00000480  f5 0d 02 12 20 63 6f 6c  25 3d 30 3a 45 25 3d a3  |.... col%=0:E%=.|
00000490  3a 70 74 72 25 3d a4 70  74 72 28 63 75 72 6c 25  |:ptr%=.ptr(curl%|
000004a0  29 0d 02 1c 12 e7 20 63  75 72 6c 25 3e 65 6e 64  |)..... curl%>end|
000004b0  25 20 8c 0d 02 26 1c 20  e3 20 49 25 3d 30 20 b8  |% ...&. . I%=0 .|
000004c0  20 35 39 3a 70 74 72 25  3f 49 25 3d 30 3a ed 0d  | 59:ptr%?I%=0:..|
000004d0  02 30 1f 20 21 70 74 72  25 3d 21 28 70 74 72 25  |.0. !ptr%=!(ptr%|
000004e0  2d 36 30 29 3a 70 74 72  25 3f 34 3d 31 33 0d 02  |-60):ptr%?4=13..|
000004f0  3a 1f 20 65 6e 64 25 3d  63 75 72 6c 25 3a 61 72  |:. end%=curl%:ar|
00000500  72 61 79 25 21 32 34 38  3d 65 6e 64 25 0d 02 44  |ray%!248=end%..D|
00000510  05 cd 0d 02 4e 1d ef 31  33 2c 31 30 2c 31 31 3a  |....N..13,10,11:|
00000520  76 25 3d bc 3a f2 64 69  73 70 5f 6c 69 6e 65 0d  |v%=.:.disp_line.|
00000530  02 58 05 f5 0d 02 62 1b  20 ef 33 31 2c 63 6f 6c  |.X....b. .31,col|
00000540  25 2a 31 31 2c 76 25 3a  2a 46 58 32 31 2c 30 0d  |%*11,v%:*FX21,0.|
00000550  02 6c 14 20 e7 20 63 6f  6c 25 3e 32 20 ef 39 2c  |.l. . col%>2 .9,|
00000560  39 2c 39 0d 02 76 11 20  4b 25 3d a5 3a c8 8e 20  |9,9..v. K%=.:.. |
00000570  4b 25 20 ca 0d 02 80 24  20 20 c9 20 39 20 20 3a  |K% ....$  . 9  :|
00000580  e7 20 63 6f 6c 25 3c 6e  75 6d 5f 63 6f 6c 73 25  |. col%<num_cols%|
00000590  20 63 6f 6c 25 2b 3d 31  0d 02 8a 2c 20 20 c9 20  | col%+=1...,  . |
000005a0  38 20 20 3a e7 20 63 6f  6c 25 3e 30 20 63 6f 6c  |8  :. col%>0 col|
000005b0  25 2d 3d 31 3a e7 20 63  6f 6c 25 3d 32 20 63 6f  |%-=1:. col%=2 co|
000005c0  6c 25 3d 31 0d 02 94 23  20 20 c9 20 31 33 20 3a  |l%=1...#  . 13 :|
000005d0  e7 20 63 6f 6c 25 3c 33  20 63 6f 6c 25 2b 3d 31  |. col%<3 col%+=1|
000005e0  20 8b 20 45 25 3d b9 0d  02 9e 10 20 20 c9 20 32  | . E%=.....  . 2|
000005f0  37 20 3a 45 25 3d b9 0d  02 a8 12 20 20 c9 20 31  |7 :E%=.....  . 1|
00000600  34 30 3a f2 70 72 69 6e  74 0d 02 b2 20 20 20 c9  |40:.print...   .|
00000610  20 31 34 31 3a f2 68 65  61 64 65 72 28 61 72 72  | 141:.header(arr|
00000620  61 79 25 2c 30 2c 37 30  29 0d 02 bc 27 20 20 c9  |ay%,0,70)...'  .|
00000630  20 31 34 32 3a f2 68 65  61 64 65 72 28 61 72 72  | 142:.header(arr|
00000640  61 79 25 2b 37 32 2c 32  2c 77 69 64 74 68 25 29  |ay%+72,2,width%)|
00000650  0d 02 c6 27 20 20 c9 20  31 34 33 3a e7 20 63 75  |...'  . 143:. cu|
00000660  72 6c 25 3e 30 20 63 75  72 6c 25 2d 3d 31 3a ef  |rl%>0 curl%-=1:.|
00000670  31 31 3a 45 25 3d b9 0d  02 d0 1d 20 20 c9 20 31  |11:E%=.....  . 1|
00000680  34 34 3a e7 20 63 75 72  6c 25 3c 65 6e 64 25 20  |44:. curl%<end% |
00000690  45 25 3d b9 0d 02 da 16  20 20 c9 20 31 34 35 3a  |E%=.....  . 145:|
000006a0  f2 73 6f 72 74 3a 45 25  3d b9 0d 02 e4 28 20 20  |.sort:E%=....(  |
000006b0  c9 20 31 32 37 3a e7 20  a6 28 2d 31 29 20 e7 20  |. 127:. .(-1) . |
000006c0  63 75 72 6c 25 3c 65 6e  64 25 20 f2 64 65 6c 65  |curl%<end% .dele|
000006d0  74 65 0d 02 ee 06 20 7f  0d 02 f8 18 20 20 e7 20  |te.... .....  . |
000006e0  4b 25 3c 31 32 37 20 80  20 4b 25 3e 33 31 20 8c  |K%<127 . K%>31 .|
000006f0  0d 03 02 1b 20 20 20 c8  99 22 4f 53 5f 42 79 74  |....   .."OS_Byt|
00000700  65 22 2c 31 33 38 2c 30  2c 4b 25 0d 03 0c 10 20  |e",138,0,K%.... |
00000710  20 20 c8 8e 20 63 6f 6c  25 20 ca 0d 03 16 15 20  |  .. col% ..... |
00000720  20 20 20 c9 20 30 3a f2  67 65 74 5f 64 61 74 65  |   . 0:.get_date|
00000730  0d 03 20 15 20 20 20 20  c9 20 31 3a f2 67 65 74  |.. .    . 1:.get|
00000740  5f 6e 61 6d 65 0d 03 2a  12 20 20 20 7f 20 f2 67  |_name..*.   . .g|
00000750  65 74 5f 63 61 73 68 0d  03 34 08 20 20 20 cb 0d  |et_cash..4.   ..|
00000760  03 3e 1a 20 20 20 ef 33  31 2c 30 2c 76 25 3a f2  |.>.   .31,0,v%:.|
00000770  64 69 73 70 5f 6c 69 6e  65 0d 03 48 07 20 20 cd  |disp_line..H.  .|
00000780  0d 03 52 06 20 cb 0d 03  5c 14 20 e7 20 63 6f 6c  |..R. ...\. . col|
00000790  25 3d 32 20 63 6f 6c 25  3d 33 0d 03 66 19 fd 20  |%=2 col%=3..f.. |
000007a0  45 25 20 84 20 63 6f 6c  25 3e 6e 75 6d 5f 63 6f  |E% . col%>num_co|
000007b0  6c 73 25 0d 03 70 19 e7  20 4b 25 3c 3e 20 31 34  |ls%..p.. K%<> 14|
000007c0  33 20 63 75 72 6c 25 2b  3d 31 3a f1 0d 03 7a 24  |3 curl%+=1:...z$|
000007d0  e7 20 63 75 72 6c 25 3e  66 69 6c 65 5f 73 69 7a  |. curl%>file_siz|
000007e0  65 20 63 75 72 6c 25 2d  3d 31 3a ef 37 2c 31 31  |e curl%-=1:.7,11|
000007f0  0d 03 84 0b fd 20 4b 25  3d 32 37 0d 03 8e 10 2a  |..... K%=27....*|
00000800  46 58 31 33 38 2c 30 2c  26 43 43 0d 03 98 0f 2a  |FX138,0,&CC....*|
00000810  46 58 31 33 38 2c 30 2c  31 33 0d 03 a2 05 e1 0d  |FX138,0,13......|
00000820  03 ac 04 0d 03 b6 0e dd  f2 67 65 74 5f 64 61 74  |.........get_dat|
00000830  65 0d 03 c0 0f f1 20 89  28 39 29 3b 3a ef 31 33  |e..... .(9);:.13|
00000840  0d 03 ca 23 c8 99 20 22  4f 53 5f 52 65 61 64 4c  |...#.. "OS_ReadL|
00000850  69 6e 65 22 2c 69 6e 70  75 74 25 2c 39 2c 34 36  |ine",input%,9,46|
00000860  2c 35 37 0d 03 d4 0e ef  31 31 3a 63 6f 6c 25 3d  |,57.....11:col%=|
00000870  31 0d 03 de 19 49 25 3d  bb 20 24 69 6e 70 75 74  |1....I%=. $input|
00000880  25 3a e7 20 49 25 3d 30  20 e1 0d 03 e8 0c 3f 70  |%:. I%=0 .....?p|
00000890  74 72 25 3d 49 25 0d 03  f2 1d 49 25 3d a7 24 69  |tr%=I%....I%=.$i|
000008a0  6e 70 75 74 25 2c 22 2e  22 29 3a e7 20 49 25 3d  |nput%,"."):. I%=|
000008b0  30 20 e1 0d 03 fc 1a 70  74 72 25 3f 31 3d bb 28  |0 .....ptr%?1=.(|
000008c0  24 28 69 6e 70 75 74 25  2b 49 25 29 29 0d 04 06  |$(input%+I%))...|
000008d0  22 4a 25 3d a7 24 28 69  6e 70 75 74 25 2b 49 25  |"J%=.$(input%+I%|
000008e0  29 2c 22 2e 22 29 3a e7  20 4a 25 3d 30 20 e1 0d  |),"."):. J%=0 ..|
000008f0  04 10 1d 70 74 72 25 3f  32 3d bb 28 24 28 69 6e  |...ptr%?2=.($(in|
00000900  70 75 74 25 2b 49 25 2b  4a 25 29 29 0d 04 1a 05  |put%+I%+J%))....|
00000910  e1 0d 04 24 04 0d 04 2e  0e dd f2 67 65 74 5f 6e  |...$.......get_n|
00000920  61 6d 65 0d 04 38 2d c8  99 20 22 4f 53 5f 52 65  |ame..8-.. "OS_Re|
00000930  61 64 4c 69 6e 65 22 2c  69 6e 70 75 74 25 2c 32  |adLine",input%,2|
00000940  32 2c 33 32 2c 31 32 36  20 b8 20 2c 6c 65 6e 25  |2,32,126 . ,len%|
00000950  0d 04 42 0e ef 31 31 3a  63 6f 6c 25 3d 33 0d 04  |..B..11:col%=3..|
00000960  4c 32 e7 20 6c 65 6e 25  3e 30 20 e3 20 49 25 3d  |L2. len%>0 . I%=|
00000970  30 20 b8 20 6c 65 6e 25  3a 70 74 72 25 3f 28 49  |0 . len%:ptr%?(I|
00000980  25 2b 34 29 3d 69 6e 70  75 74 25 3f 49 25 3a ed  |%+4)=input%?I%:.|
00000990  0d 04 56 05 e1 0d 04 60  04 0d 04 6a 0e dd f2 67  |..V....`...j...g|
000009a0  65 74 5f 63 61 73 68 0d  04 74 2b c8 99 20 22 4f  |et_cash..t+.. "O|
000009b0  53 5f 52 65 61 64 4c 69  6e 65 22 2c 69 6e 70 75  |S_ReadLine",inpu|
000009c0  74 25 2c 39 2c 34 36 2c  35 37 20 b8 20 2c 6c 65  |t%,9,46,57 . ,le|
000009d0  6e 25 0d 04 7e 1a ef 31  31 3a 63 6f 6c 25 2b 3d  |n%..~..11:col%+=|
000009e0  31 3a e7 20 6c 65 6e 25  3d 30 20 e1 0d 04 88 29  |1:. len%=0 ....)|
000009f0  61 72 72 61 79 25 21 28  63 6f 6c 25 2a 34 2b 32  |array%!(col%*4+2|
00000a00  30 30 29 2d 3d 70 74 72  25 21 28 63 6f 6c 25 2a  |00)-=ptr%!(col%*|
00000a10  34 2b 31 32 29 0d 04 92  28 70 74 72 25 21 28 63  |4+12)...(ptr%!(c|
00000a20  6f 6c 25 2a 34 2b 31 32  29 3d bb 28 24 69 6e 70  |ol%*4+12)=.($inp|
00000a30  75 74 25 29 2a 31 30 30  2b 2e 30 30 32 0d 04 9c  |ut%)*100+.002...|
00000a40  29 61 72 72 61 79 25 21  28 63 6f 6c 25 2a 34 2b  |)array%!(col%*4+|
00000a50  32 30 30 29 2b 3d 70 74  72 25 21 28 63 6f 6c 25  |200)+=ptr%!(col%|
00000a60  2a 34 2b 31 32 29 0d 04  a6 10 f2 64 69 73 70 5f  |*4+12).....disp_|
00000a70  74 6f 74 61 6c 73 0d 04  b0 05 e1 0d 04 ba 04 0d  |totals..........|
00000a80  04 c4 0c dd f2 64 65 6c  65 74 65 0d 04 ce 2f e3  |.....delete.../.|
00000a90  20 49 25 3d 32 38 20 b8  20 35 36 20 88 20 34 3a  | I%=28 . 56 . 4:|
00000aa0  61 72 72 61 79 25 21 28  49 25 2b 31 38 38 29 2d  |array%!(I%+188)-|
00000ab0  3d 70 74 72 25 21 49 25  3a ed 0d 04 d8 32 e3 20  |=ptr%!I%:....2. |
00000ac0  49 25 3d 70 74 72 25 20  b8 20 65 6e 64 25 2a 36  |I%=ptr% . end%*6|
00000ad0  30 2b 32 35 36 2b 61 72  72 61 79 25 20 88 20 34  |0+256+array% . 4|
00000ae0  3a 21 49 25 3d 49 25 21  36 30 3a ed 0d 04 e2 18  |:!I%=I%!60:.....|
00000af0  f2 64 69 73 70 5f 74 6f  74 61 6c 73 3a 65 6e 64  |.disp_totals:end|
00000b00  25 2d 3d 31 0d 04 ec 1b  f2 64 69 73 70 5f 73 63  |%-=1.....disp_sc|
00000b10  72 6e 28 63 75 72 6c 25  2d 76 25 2b 32 30 29 0d  |rn(curl%-v%+20).|
00000b20  04 f6 05 e1 0d 05 00 04  0d 05 0a 0f dd f2 64 69  |..............di|
00000b30  73 70 5f 64 61 74 65 0d  05 14 08 40 25 3d 32 0d  |sp_date....@%=2.|
00000b40  05 1e 23 f1 20 3f 70 74  72 25 22 2e 22 70 74 72  |..#. ?ptr%"."ptr|
00000b50  25 3f 31 22 2e 22 70 74  72 25 3f 32 20 89 28 33  |%?1"."ptr%?2 .(3|
00000b60  29 3b 0d 05 28 0d 40 25  3d 26 32 30 32 30 42 0d  |);..(.@%=&2020B.|
00000b70  05 32 05 e1 0d 05 3c 04  0d 05 46 0f dd f2 64 69  |.2....<...F...di|
00000b80  73 70 5f 6c 69 6e 65 0d  05 50 0e f2 64 69 73 70  |sp_line..P..disp|
00000b90  5f 64 61 74 65 0d 05 5a  18 f1 20 24 28 70 74 72  |_date..Z.. $(ptr|
00000ba0  25 2b 34 29 3b 89 28 33  33 2d b1 29 3b 0d 05 64  |%+4);.(33-.);..d|
00000bb0  16 e3 20 49 25 3d 33 20  b8 20 6e 75 6d 5f 63 6f  |.. I%=3 . num_co|
00000bc0  6c 73 25 0d 05 6e 15 43  25 3d 70 74 72 25 21 28  |ls%..n.C%=ptr%!(|
00000bd0  49 25 2a 34 2b 31 36 29  0d 05 78 25 e7 20 43 25  |I%*4+16)..x%. C%|
00000be0  3d 30 20 f1 20 62 6c 61  6e 6b 24 3b 20 8b 20 f1  |=0 . blank$; . .|
00000bf0  20 43 25 2f 31 30 30 2b  2e 30 30 32 3b 0d 05 82  | C%/100+.002;...|
00000c00  05 ed 0d 05 8c 05 e1 0d  05 96 04 0d 05 a0 11 dd  |................|
00000c10  f2 64 69 73 70 5f 74 6f  74 61 6c 73 0d 05 aa 17  |.disp_totals....|
00000c20  f2 66 75 6c 6c 5f 73 63  72 6e 3a ef 33 31 2c 30  |.full_scrn:.31,0|
00000c30  2c 32 36 0d 05 b4 1c f2  74 6f 74 61 6c 73 3a f2  |,26.....totals:.|
00000c40  77 69 6e 64 6f 77 3a ef  33 31 2c 30 2c 76 25 0d  |window:.31,0,v%.|
00000c50  05 be 05 e1 0d 05 c8 04  0d 05 d2 19 dd f2 68 65  |..............he|
00000c60  61 64 65 72 28 61 64 64  72 25 2c 79 25 2c 77 25  |ader(addr%,y%,w%|
00000c70  29 0d 05 dc 17 f2 66 75  6c 6c 5f 73 63 72 6e 3a  |).....full_scrn:|
00000c80  ef 33 31 2c 30 2c 79 25  0d 05 e6 0b 2a 46 58 20  |.31,0,y%....*FX |
00000c90  34 2c 31 0d 05 f0 05 f5  0d 05 fa 10 49 25 3d a5  |4,1.........I%=.|
00000ca0  3a c8 8e 20 49 25 20 ca  0d 06 04 14 20 c9 20 31  |:.. I% ..... . 1|
00000cb0  33 37 3a e7 20 b1 3c 77  25 20 ef 39 0d 06 0e 13  |37:. .<w% .9....|
00000cc0  20 c9 20 31 33 36 3a e7  20 b1 3e 30 20 ef 38 0d  | . 136:. .>0 .8.|
00000cd0  06 18 05 7f 0d 06 22 2b  20 e7 20 49 25 3c 31 32  |......"+ . I%<12|
00000ce0  37 20 e7 20 49 25 3e 33  31 20 e7 20 b1 3c 77 25  |7 . I%>31 . .<w%|
00000cf0  20 61 64 64 72 25 3f b1  3d 49 25 3a ef 49 25 0d  | addr%?.=I%:.I%.|
00000d00  06 2c 05 cb 0d 06 36 0b  fd 20 49 25 3d 31 33 0d  |.,....6.. I%=13.|
00000d10  06 40 1b f2 77 69 6e 64  6f 77 3a ef 33 31 2c 30  |.@..window:.31,0|
00000d20  2c 76 25 3a 2a 46 58 34  2c 30 0d 06 4a 05 e1 0d  |,v%:*FX4,0..J...|
00000d30  06 54 04 0d 06 5e 09 dd  f2 6e 65 77 0d 06 68 1e  |.T...^...new..h.|
00000d40  e3 20 49 25 3d 30 20 b8  20 33 31 36 3a 61 72 72  |. I%=0 . 316:arr|
00000d50  61 79 25 3f 49 25 3d 30  3a ed 0d 06 72 21 24 61  |ay%?I%=0:...r!$a|
00000d60  72 72 61 79 25 3d c4 37  30 2c 22 20 22 29 3a 77  |rray%=.70," "):w|
00000d70  69 64 74 68 25 3d a4 6d  6f 64 65 0d 06 7c 2f 24  |idth%=.mode..|/$|
00000d80  28 61 72 72 61 79 25 2b  37 32 29 3d 22 20 20 20  |(array%+72)="   |
00000d90  44 61 74 65 22 2b 62 6c  61 6e 6b 24 2b 22 4e 61  |Date"+blank$+"Na|
00000da0  6d 65 22 2b 62 6c 61 6e  6b 24 0d 06 86 3c e3 20  |me"+blank$...<. |
00000db0  49 25 3d 33 20 b8 20 6e  75 6d 5f 63 6f 6c 73 25  |I%=3 . num_cols%|
00000dc0  3a 24 28 61 72 72 61 79  25 2b 37 32 29 2b 3d 22  |:$(array%+72)+="|
00000dd0  20 20 20 43 6f 6c 75 6d  6e 20 22 2b bd 28 49 25  |   Column "+.(I%|
00000de0  2b 34 36 29 3a ed 0d 06  90 25 61 72 72 61 79 25  |+46):....%array%|
00000df0  3f 32 35 36 3d 64 61 79  20 3a 20 61 72 72 61 79  |?256=day : array|
00000e00  25 3f 32 35 37 3d 6d 6f  6e 74 68 0d 06 9a 22 61  |%?257=month..."a|
00000e10  72 72 61 79 25 3f 32 35  38 3d 79 65 61 72 3a 20  |rray%?258=year: |
00000e20  61 72 72 61 79 25 3f 32  36 30 3d 31 33 0d 06 a4  |array%?260=13...|
00000e30  14 24 6e 61 6d 65 25 3d  64 65 66 5f 6e 61 6d 65  |.$name%=def_name|
00000e40  24 0d 06 ae 05 e1 0d 06  b8 04 0d 06 c2 0c dd f2  |$...............|
00000e50  74 6f 74 61 6c 73 0d 06  cc 10 61 72 72 61 79 25  |totals....array%|
00000e60  21 32 31 32 3d 30 0d 06  d6 1d f1 27 89 28 31 32  |!212=0.....'.(12|
00000e70  29 22 53 75 62 20 54 6f  74 61 6c 73 22 89 28 31  |)"Sub Totals".(1|
00000e80  30 29 3b 0d 06 e0 22 e3  20 49 25 3d 32 31 36 20  |0);...". I%=216 |
00000e90  b8 20 6e 75 6d 5f 63 6f  6c 73 25 2a 34 2b 32 30  |. num_cols%*4+20|
00000ea0  34 20 88 20 34 0d 06 ea  14 20 e7 20 61 72 72 61  |4 . 4.... . arra|
00000eb0  79 25 21 49 25 3e 30 20  8c 0d 06 f4 1b 20 20 f1  |y%!I%>0 .....  .|
00000ec0  2c 61 72 72 61 79 25 21  49 25 2f 31 30 30 2b 2e  |,array%!I%/100+.|
00000ed0  30 30 32 3b 0d 06 fe 1b  20 20 61 72 72 61 79 25  |002;....  array%|
00000ee0  21 32 31 32 2b 3d 61 72  72 61 79 25 21 49 25 0d  |!212+=array%!I%.|
00000ef0  07 08 06 20 cc 0d 07 12  0f 20 20 f1 2c 62 6c 61  |... .....  .,bla|
00000f00  6e 6b 24 3b 0d 07 1c 06  20 cd 0d 07 26 05 ed 0d  |nk$;.... ...&...|
00000f10  07 30 2c f1 27 27 89 28  31 36 29 22 54 6f 74 61  |.0,.''.(16)"Tota|
00000f20  6c 22 89 28 31 30 29 2c  61 72 72 61 79 25 21 32  |l".(10),array%!2|
00000f30  31 32 2f 31 30 30 2b 2e  30 30 32 0d 07 3a 05 e1  |12/100+.002..:..|
00000f40  0d 07 44 04 0d 07 4e 14  dd f2 64 69 73 70 5f 73  |..D...N...disp_s|
00000f50  63 72 6e 28 74 6f 25 29  0d 07 58 12 f2 77 69 6e  |crn(to%)..X..win|
00000f60  64 6f 77 3a ef 31 32 2c  33 30 0d 07 62 22 6c 69  |dow:.12,30..b"li|
00000f70  6e 65 25 3d 74 6f 25 2d  32 30 3a e7 20 6c 69 6e  |ne%=to%-20:. lin|
00000f80  65 25 3c 30 20 6c 69 6e  65 25 3d 30 0d 07 6c 05  |e%<0 line%=0..l.|
00000f90  f5 0d 07 76 2a 70 74 72  25 3d a4 70 74 72 28 6c  |...v*ptr%=.ptr(l|
00000fa0  69 6e 65 25 29 3a f2 64  69 73 70 5f 6c 69 6e 65  |ine%):.disp_line|
00000fb0  3a f1 3a 6c 69 6e 65 25  2b 3d 31 0d 07 80 1c fd  |:.:line%+=1.....|
00000fc0  20 6c 69 6e 65 25 3e 65  6e 64 25 20 84 20 6c 69  | line%>end% . li|
00000fd0  6e 65 25 3e 74 6f 25 0d  07 8a 09 ef 31 31 3a e1  |ne%>to%.....11:.|
00000fe0  0d 07 94 04 0d 07 9e 0a  dd f2 73 6f 72 74 0d 07  |..........sort..|
00000ff0  a8 1e 41 25 3d a4 70 74  72 28 30 29 3a 42 25 3d  |..A%=.ptr(0):B%=|
00001000  a4 70 74 72 28 65 6e 64  25 2d 31 29 0d 07 b2 0b  |.ptr(end%-1)....|
00001010  d6 20 63 6f 64 65 25 0d  07 bc 10 63 75 72 6c 25  |. code%....curl%|
00001020  3d 65 6e 64 25 2d 31 0d  07 c6 15 f2 64 69 73 70  |=end%-1.....disp|
00001030  5f 73 63 72 6e 28 63 75  72 6c 25 29 0d 07 d0 05  |_scrn(curl%)....|
00001040  e1 0d 07 da 04 0d 07 e4  0b dd f2 70 72 69 6e 74  |...........print|
00001050  0d 07 ee 1b f2 77 69 6e  64 6f 77 3a ef 31 32 2c  |.....window:.12,|
00001060  32 3a f1 20 24 61 72 72  61 79 25 0d 07 f8 10 e7  |2:. $array%.....|
00001070  20 eb 3d 31 36 20 ef 31  2c 31 35 0d 08 02 21 f1  | .=16 .1,15...!.|
00001080  27 24 28 61 72 72 61 79  25 2b 37 32 29 27 c4 77  |'$(array%+72)'.w|
00001090  69 64 74 68 25 2d 31 2c  22 5f 22 29 0d 08 0c 1e  |idth%-1,"_")....|
000010a0  6c 65 6e 25 3d 70 61 67  65 5f 6c 65 6e 67 74 68  |len%=page_length|
000010b0  2d 35 3a 6c 69 6e 65 25  3d 30 0d 08 16 05 f5 0d  |-5:line%=0......|
000010c0  08 20 25 70 74 72 25 3d  a4 70 74 72 28 6c 69 6e  |. %ptr%=.ptr(lin|
000010d0  65 25 29 3a 6c 65 6e 25  2d 3d 31 3a 6c 69 6e 65  |e%):len%-=1:line|
000010e0  25 2b 3d 31 0d 08 2a 10  f1 3a f2 64 69 73 70 5f  |%+=1..*..:.disp_|
000010f0  6c 69 6e 65 0d 08 34 0e  e7 20 6c 65 6e 25 3d 30  |line..4.. len%=0|
00001100  20 8c 0d 08 3e 15 20 6c  65 6e 25 3d 70 61 67 65  | ...>. len%=page|
00001110  5f 6c 65 6e 67 74 68 0d  08 48 21 20 e7 20 73 69  |_length..H! . si|
00001120  6e 67 6c 65 5f 73 68 65  65 74 20 ef 37 3a 47 25  |ngle_sheet .7:G%|
00001130  3d a5 20 8b 20 ef 31 32  0d 08 52 05 cd 0d 08 5c  |=. . .12..R....\|
00001140  1a fd 20 6c 69 6e 65 25  3d 65 6e 64 25 20 84 20  |.. line%=end% . |
00001150  a6 28 2d 31 31 33 29 0d  08 66 12 e7 20 a6 28 2d  |.(-113)..f.. .(-|
00001160  31 31 33 29 20 ef 33 3a  e1 0d 08 70 1c f1 27 c4  |113) .3:...p..'.|
00001170  77 69 64 74 68 25 2d 31  2c 22 5f 22 29 3a f2 74  |width%-1,"_"):.t|
00001180  6f 74 61 6c 73 0d 08 7a  1d e7 20 eb 3d 31 36 20  |otals..z.. .=16 |
00001190  ef 31 2c 31 38 2c 31 32  2c 33 20 8b 20 ef 31 32  |.1,18,12,3 . .12|
000011a0  2c 33 0d 08 84 14 f2 64  69 73 70 5f 73 63 72 6e  |,3.....disp_scrn|
000011b0  28 65 6e 64 25 29 0d 08  8e 05 e1 0d 08 98 04 0d  |(end%)..........|
000011c0  08 a2 0a dd f2 73 61 76  65 0d 08 ac 22 e7 20 eb  |.....save...". .|
000011d0  3d 31 36 20 74 79 70 65  25 3d 26 43 42 38 20 8b  |=16 type%=&CB8 .|
000011e0  20 74 79 70 65 25 3d 26  43 42 34 0d 08 b6 13 4a  | type%=&CB4....J|
000011f0  25 3d a7 24 6e 61 6d 65  25 2c 22 2e 22 29 0d 08  |%=.$name%,".")..|
00001200  c0 2d e7 20 4a 25 3d 30  20 64 69 72 24 3d 63 61  |.-. J%=0 dir$=ca|
00001210  73 68 5f 64 69 72 24 2b  22 2e 46 69 6c 65 73 2e  |sh_dir$+".Files.|
00001220  22 20 8b 20 64 69 72 24  3d 22 22 0d 08 ca 39 c8  |" . dir$=""...9.|
00001230  99 22 4f 53 5f 46 69 6c  65 22 2c 31 30 2c 64 69  |."OS_File",10,di|
00001240  72 24 2b 24 6e 61 6d 65  25 2c 74 79 70 65 25 2c  |r$+$name%,type%,|
00001250  2c 61 72 72 61 79 25 2c  a4 70 74 72 28 65 6e 64  |,array%,.ptr(end|
00001260  25 2b 31 29 0d 08 d4 05  e1 0d 08 de 04 0d 08 e8  |%+1)............|
00001270  0f dd f2 66 75 6c 6c 5f  73 63 72 6e 0d 08 f2 13  |...full_scrn....|
00001280  fb 20 31 33 32 3a fb 20  30 3a ef 34 2c 32 36 0d  |. 132:. 0:.4,26.|
00001290  08 fc 05 e1 0d 09 06 04  0d 09 10 0c dd f2 77 69  |..............wi|
000012a0  6e 64 6f 77 0d 09 1a 0d  fb 20 31 32 38 3a fb 20  |ndow..... 128:. |
000012b0  37 0d 09 24 16 ef 20 32  38 2c 30 2c 32 35 2c 77  |7..$.. 28,0,25,w|
000012c0  69 64 74 68 25 2c 34 0d  09 2e 05 e1 0d 09 38 04  |idth%,4.......8.|
000012d0  0d 09 42 1f dd a4 70 74  72 28 4c 25 29 3a 3d 36  |..B...ptr(L%):=6|
000012e0  30 2a 4c 25 2b 61 72 72  61 79 25 2b 32 35 36 0d  |0*L%+array%+256.|
000012f0  09 4c 04 0d 09 56 0a dd  a4 6d 6f 64 65 0d 09 60  |.L...V...mode..`|
00001300  2e e7 20 eb 3d 31 36 20  6e 75 6d 5f 63 6f 6c 73  |.. .=16 num_cols|
00001310  25 3d 31 30 3a 3d 31 33  31 3a 8b 20 6e 75 6d 5f  |%=10:=131:. num_|
00001320  63 6f 6c 73 25 3d 36 3a  3d 37 39 0d 09 6a 04 0d  |cols%=6:=79..j..|
00001330  09 74 0a dd f2 6c 6f 61  64 0d 09 7e 31 e7 20 a6  |.t...load..~1. .|
00001340  28 2d 31 29 20 61 64 64  72 25 3d a4 70 74 72 28  |(-1) addr%=.ptr(|
00001350  61 72 72 61 79 25 21 32  34 38 29 20 8b 20 61 64  |array%!248) . ad|
00001360  64 72 25 3d 61 72 72 61  79 25 0d 09 88 22 74 79  |dr%=array%..."ty|
00001370  70 65 25 3d 64 61 74 61  25 21 34 30 20 20 20 3a  |pe%=data%!40   :|
00001380  20 49 25 3d 64 61 74 61  25 2b 34 34 0d 09 92 21  | I%=data%+44...!|
00001390  64 61 74 61 25 21 31 32  3d 64 61 74 61 25 21 38  |data%!12=data%!8|
000013a0  20 3a 20 64 61 74 61 25  21 31 36 3d 34 0d 09 9c  | : data%!16=4...|
000013b0  19 66 69 6c 65 24 3d 22  22 3a 77 69 64 74 68 25  |.file$="":width%|
000013c0  3d a4 6d 6f 64 65 0d 09  a6 20 c8 95 20 3f 49 25  |=.mode... .. ?I%|
000013d0  3a 66 69 6c 65 24 2b 3d  bd 28 3f 49 25 29 3a 49  |:file$+=.(?I%):I|
000013e0  25 2b 3d 31 3a ce 0d 09  b0 2a c8 99 20 22 57 69  |%+=1:....*.. "Wi|
000013f0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00001400  31 37 2c 64 61 74 61 25  2c 64 61 74 61 25 21 34  |17,data%,data%!4|
00001410  0d 09 ba 40 e7 20 61 64  64 72 25 3d 61 72 72 61  |...@. addr%=arra|
00001420  79 25 20 e7 20 61 72 72  61 79 25 21 32 33 38 3e  |y% . array%!238>|
00001430  30 20 e7 20 a4 61 6c 65  72 74 28 22 41 72 65 20  |0 . .alert("Are |
00001440  79 6f 75 20 73 75 72 65  22 2c 33 29 3d 33 20 e1  |you sure",3)=3 .|
00001450  0d 09 c4 37 e7 20 74 79  70 65 25 3d 26 43 42 38  |...7. type%=&CB8|
00001460  20 80 20 eb 3c 3e 31 36  20 4a 25 3d a4 61 6c 65  | . .<>16 J%=.ale|
00001470  72 74 28 22 4e 65 65 64  73 20 4d 6f 64 65 20 31  |rt("Needs Mode 1|
00001480  36 22 2c 31 29 3a e1 0d  09 ce 38 e7 20 74 79 70  |6",1):....8. typ|
00001490  65 25 3c 26 43 42 34 20  84 20 74 79 70 65 25 3e  |e%<&CB4 . type%>|
000014a0  26 43 42 38 20 4a 25 3d  a4 61 6c 65 72 74 28 22  |&CB8 J%=.alert("|
000014b0  42 61 64 20 46 69 6c 65  21 22 2c 31 29 3a e1 0d  |Bad File!",1):..|
000014c0  09 d8 22 c8 99 22 4f 53  5f 46 69 6c 65 22 2c 35  |..".."OS_File",5|
000014d0  2c 66 69 6c 65 24 20 b8  20 2c 2c 2c 2c 6c 65 6e  |,file$ . ,,,,len|
000014e0  25 0d 09 e2 3c e7 20 61  64 64 72 25 2d 61 72 72  |%...<. addr%-arr|
000014f0  61 79 25 2b 6c 65 6e 25  3e 6d 61 78 25 20 4a 25  |ay%+len%>max% J%|
00001500  3d a4 61 6c 65 72 74 28  22 46 69 6c 65 20 74 6f  |=.alert("File to|
00001510  6f 20 6c 6f 6e 67 21 22  2c 31 29 3a e1 0d 09 ec  |o long!",1):....|
00001520  21 c8 99 22 4f 53 5f 46  69 6c 65 22 2c 26 46 46  |!.."OS_File",&FF|
00001530  2c 66 69 6c 65 24 2c 61  64 64 72 25 2c 30 0d 09  |,file$,addr%,0..|
00001540  f6 14 e7 20 61 64 64 72  25 3e 61 72 72 61 79 25  |... addr%>array%|
00001550  20 8c 0d 0a 00 2d 20 e3  20 49 25 3d 32 31 32 20  | ....- . I%=212 |
00001560  b8 20 32 34 38 20 88 20  34 3a 61 72 72 61 79 25  |. 248 . 4:array%|
00001570  21 49 25 2b 3d 61 64 64  72 25 21 49 25 3a ed 0d  |!I%+=addr%!I%:..|
00001580  0a 0a 35 20 e3 20 49 25  3d 61 64 64 72 25 20 b8  |..5 . I%=addr% .|
00001590  20 a4 70 74 72 28 61 72  72 61 79 25 21 32 34 38  | .ptr(array%!248|
000015a0  2b 31 29 20 88 20 34 3a  21 49 25 3d 49 25 21 32  |+1) . 4:!I%=I%!2|
000015b0  35 36 3a ed 0d 0a 14 18  cc 20 24 6e 61 6d 65 25  |56:...... $name%|
000015c0  3d 66 69 6c 65 24 3a f2  65 64 69 74 0d 0a 1e 05  |=file$:.edit....|
000015d0  cd 0d 0a 28 05 e1 0d 0a  32 04 0d 0a 3c 0a dd a4  |...(....2...<...|
000015e0  69 63 6f 6e 0d 0a 46 1d  62 6c 6f 63 6b 25 21 30  |icon..F.block%!0|
000015f0  3d 2d 31 20 20 3a 20 62  6c 6f 63 6b 25 21 34 3d  |=-1  : block%!4=|
00001600  30 0d 0a 50 1f 62 6c 6f  63 6b 25 21 38 3d 38 20  |0..P.block%!8=8 |
00001610  20 20 3a 20 62 6c 6f 63  6b 25 21 31 32 3d 36 38  |  : block%!12=68|
00001620  0d 0a 5a 22 62 6c 6f 63  6b 25 21 31 36 3d 39 36  |..Z"block%!16=96|
00001630  20 3a 20 62 6c 6f 63 6b  25 21 32 30 3d 26 32 30  | : block%!20=&20|
00001640  30 32 0d 0a 64 1c 24 28  62 6c 6f 63 6b 25 2b 32  |02..d.$(block%+2|
00001650  34 29 3d 22 21 43 61 73  68 42 6f 6f 6b 22 0d 0a  |4)="!CashBook"..|
00001660  6e 28 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |n(.. "Wimp_Creat|
00001670  65 49 63 6f 6e 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |eIcon",,block% .|
00001680  20 69 63 6f 6e 25 0d 0a  78 0a 3d 69 63 6f 6e 25  | icon%..x.=icon%|
00001690  0d 0a 82 04 0d 0a 8c 0a  dd f2 6d 65 6e 75 0d 0a  |..........menu..|
000016a0  96 22 24 6d 25 3d 22 43  61 73 68 20 42 6f 6f 6b  |."$m%="Cash Book|
000016b0  22 20 3a 20 6d 25 21 31  32 3d 26 37 30 32 30 37  |" : m%!12=&70207|
000016c0  0d 0a a0 1e 6d 25 21 31  36 3d 31 36 30 20 20 20  |....m%!16=160   |
000016d0  20 20 20 20 3a 20 6d 25  21 32 30 3d 34 30 0d 0a  |    : m%!20=40..|
000016e0  aa 1d 6d 25 21 32 34 3d  30 20 20 20 20 20 20 20  |..m%!24=0       |
000016f0  20 20 3a 20 6d 25 21 32  38 3d 30 0d 0a b4 24 6d  |  : m%!28=0...$m|
00001700  25 21 33 32 3d 6d 25 2b  31 32 38 20 20 20 20 3a  |%!32=m%+128    :|
00001710  20 6d 25 21 33 36 3d 26  37 30 30 30 30 30 31 0d  | m%!36=&7000001.|
00001720  0a be 1d 24 28 6d 25 2b  34 30 29 3d 22 53 61 76  |...$(m%+40)="Sav|
00001730  65 22 20 3a 20 6d 25 21  35 32 3d 32 0d 0a c8 24  |e" : m%!52=2...$|
00001740  6d 25 21 35 36 3d 30 20  20 20 20 20 20 20 20 20  |m%!56=0         |
00001750  3a 20 6d 25 21 36 30 3d  26 37 30 30 30 30 30 31  |: m%!60=&7000001|
00001760  0d 0a d2 18 24 28 6d 25  2b 36 34 29 3d 22 53 74  |....$(m%+64)="St|
00001770  61 72 74 20 4e 65 77 22  0d 0a dc 1d 6d 25 21 37  |art New"....m%!7|
00001780  36 3d 31 32 38 20 20 20  20 20 20 20 3a 20 6d 25  |6=128       : m%|
00001790  21 38 30 3d 30 0d 0a e6  25 6d 25 21 38 34 3d 26  |!80=0...%m%!84=&|
000017a0  37 30 30 30 30 30 31 20  20 3a 20 24 28 6d 25 2b  |7000001  : $(m%+|
000017b0  38 38 29 3d 22 51 75 69  74 22 0d 0a f0 18 24 28  |88)="Quit"....$(|
000017c0  6d 25 2b 31 32 38 29 3d  22 53 61 76 65 20 41 73  |m%+128)="Save As|
000017d0  3a 22 0d 0a fa 20 6d 25  21 31 34 30 3d 26 37 30  |:"... m%!140=&70|
000017e0  32 30 37 20 20 20 3a 20  6d 25 21 31 34 34 3d 32  |207   : m%!144=2|
000017f0  34 30 0d 0b 04 1e 6d 25  21 31 34 38 3d 34 30 20  |40....m%!148=40 |
00001800  20 20 20 20 20 20 3a 20  6d 25 21 31 35 32 3d 30  |      : m%!152=0|
00001810  0d 0b 0e 1e 6d 25 21 31  35 36 3d 31 33 32 20 20  |....m%!156=132  |
00001820  20 20 20 20 3a 20 6d 25  21 31 36 30 3d 30 0d 0b  |    : m%!160=0..|
00001830  18 22 6d 25 21 31 36 34  3d 26 37 30 30 30 31 31  |."m%!164=&700011|
00001840  31 20 3a 20 6d 25 21 31  36 38 3d 6e 61 6d 65 25  |1 : m%!168=name%|
00001850  0d 0b 22 20 6d 25 21 31  37 32 3d 2d 31 20 20 20  |.." m%!172=-1   |
00001860  20 20 20 20 3a 20 6d 25  21 31 37 36 3d 32 35 35  |    : m%!176=255|
00001870  0d 0b 2c 05 e1 0d 0b 36  04 0d 0b 40 0b dd f2 65  |..,....6...@...e|
00001880  72 72 6f 72 0d 0b 4a 2e  21 64 61 74 61 25 3d 9f  |rror..J.!data%=.|
00001890  3a 24 28 64 61 74 61 25  2b 34 29 3d f6 24 2b 22  |:$(data%+4)=.$+"|
000018a0  20 61 74 20 6c 69 6e 65  20 22 2b c3 28 9e 29 2b  | at line "+.(.)+|
000018b0  bd 30 0d 0b 54 2e c8 99  20 22 57 69 6d 70 5f 52  |.0..T... "Wimp_R|
000018c0  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 6c 6f 63  |eportError",bloc|
000018d0  6b 25 2c 31 2c 22 43 61  73 68 20 42 6f 6f 6b 22  |k%,1,"Cash Book"|
000018e0  0d 0b 5e 0d e7 20 9f 20  3e 35 32 20 e1 0d 0b 68  |..^.. . >52 ...h|
000018f0  09 dd f2 64 69 65 0d 0b  72 27 c8 99 20 22 57 69  |...die..r'.. "Wi|
00001900  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 2c 68 61  |mp_CloseDown",ha|
00001910  6e 64 25 2c 26 34 42 35  33 34 31 35 34 0d 0b 7c  |nd%,&4B534154..||
00001920  05 e0 0d 0b 86 04 0d 0b  90 19 dd a4 61 6c 65 72  |............aler|
00001930  74 28 61 6c 65 72 74 24  2c 66 6c 61 67 25 29 0d  |t(alert$,flag%).|
00001940  0b 9a 28 62 6c 6f 63 6b  25 21 31 32 38 3d 30 3a  |..(block%!128=0:|
00001950  24 28 62 6c 6f 63 6b 25  2b 31 33 32 29 3d 61 6c  |$(block%+132)=al|
00001960  65 72 74 24 2b bd 30 0d  0b a4 3e c8 99 22 57 69  |ert$+.0...>.."Wi|
00001970  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00001980  62 6c 6f 63 6b 25 2b 31  32 38 2c 66 6c 61 67 25  |block%+128,flag%|
00001990  2b 31 36 2c 22 43 61 73  68 20 42 6f 6f 6b 22 20  |+16,"Cash Book" |
000019a0  b8 20 2c 49 25 0d 0b ae  07 3d 49 25 0d 0b b8 04  |. ,I%....=I%....|
000019b0  0d 0b c2 0e dd f2 61 73  73 65 6d 62 6c 65 0d 0b  |......assemble..|
000019c0  cc 1d 20 f4 20 57 68 65  6e 20 43 41 4c 4c 65 64  |.. . When CALLed|
000019d0  20 66 72 6f 6d 20 42 61  73 69 63 0d 0b d6 1e 20  | from Basic.... |
000019e0  f4 20 72 31 3d 61 64 64  72 65 73 73 20 6f 66 20  |. r1=address of |
000019f0  31 73 74 20 65 6e 74 72  79 0d 0b e0 1f 20 f4 20  |1st entry.... . |
00001a00  72 32 3d 61 64 64 72 65  73 73 20 6f 66 20 6c 61  |r2=address of la|
00001a10  73 74 20 65 6e 74 72 79  0d 0b ea 13 6c 69 6e 6b  |st entry....link|
00001a20  3d 31 34 20 3a 20 70 63  3d 31 35 0d 0b f4 0f de  |=14 : pc=15.....|
00001a30  20 63 6f 64 65 25 20 26  38 30 0d 0b fe 0c 50 25  | code% &80....P%|
00001a40  3d 63 6f 64 65 25 0d 0c  08 3c 5b 4f 50 54 20 32  |=code%...<[OPT 2|
00001a50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001a60  20 20 20 20 20 20 20 20  20 20 3b 73 69 6e 67 6c  |          ;singl|
00001a70  65 20 70 61 73 73 2c 20  6e 6f 20 66 77 64 20 72  |e pass, no fwd r|
00001a80  65 66 0d 0c 12 47 20 20  20 20 20 20 20 20 4d 4f  |ef...G        MO|
00001a90  56 20 72 35 2c 23 31 20  20 20 20 20 20 20 20 20  |V r5,#1         |
00001aa0  20 20 20 20 20 20 3b 73  65 65 64 20 72 35 20 73  |      ;seed r5 s|
00001ab0  6f 20 64 6f 6e 27 74 20  71 75 69 74 20 6f 6e 20  |o don't quit on |
00001ac0  6e 65 78 74 20 6c 69 6e  65 0d 0c 1c 39 2e 6f 75  |next line...9.ou|
00001ad0  74 65 72 20 20 43 4d 50  20 72 35 2c 23 30 20 20  |ter  CMP r5,#0  |
00001ae0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 61 6e  |             ;an|
00001af0  79 20 65 6e 74 72 69 65  73 20 73 77 61 70 70 65  |y entries swappe|
00001b00  64 3f 0d 0c 26 36 20 20  20 20 20 20 20 20 ec 51  |d?..&6        .Q|
00001b10  20 70 63 2c 6c 69 6e 6b  20 20 20 20 20 20 20 20  | pc,link        |
00001b20  20 20 20 3b 69 66 20 6e  6f 20 73 77 61 70 73 20  |   ;if no swaps |
00001b30  61 6c 6c 20 64 6f 6e 65  0d 0c 30 36 20 20 20 20  |all done..06    |
00001b40  20 20 20 20 4d 4f 56 20  72 35 2c 23 30 20 20 20  |    MOV r5,#0   |
00001b50  20 20 20 20 20 20 20 20  20 20 20 20 3b 63 6f 75  |            ;cou|
00001b60  6e 74 20 73 77 61 70 73  20 69 6e 20 72 35 0d 0c  |nt swaps in r5..|
00001b70  3a 3d 20 20 20 20 20 20  20 20 4d 4f 56 20 72 32  |:=        MOV r2|
00001b80  2c 72 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |,r0             |
00001b90  20 20 3b 63 6f 70 79 20  73 74 61 72 74 20 6f 66  |  ;copy start of|
00001ba0  20 64 61 74 61 20 74 6f  20 72 32 0d 0c 44 45 2e  | data to r2..DE.|
00001bb0  69 6e 6e 65 72 20 20 4c  44 52 20 72 33 2c 5b 72  |inner  LDR r3,[r|
00001bc0  32 5d 2c 23 36 30 20 20  20 20 20 20 20 20 20 3b  |2],#60         ;|
00001bd0  67 65 74 20 31 73 74 20  64 61 74 65 2c 20 70 6f  |get 1st date, po|
00001be0  69 6e 74 20 74 6f 20 6e  65 78 74 20 64 61 74 65  |int to next date|
00001bf0  0d 0c 4e 33 20 20 20 20  20 20 20 20 43 4d 50 20  |..N3        CMP |
00001c00  72 32 2c 72 31 20 20 20  20 20 20 20 20 20 20 20  |r2,r1           |
00001c10  20 20 20 20 3b 61 74 20  6c 61 73 74 20 65 6e 74  |    ;at last ent|
00001c20  72 79 3f 0d 0c 58 3b 20  20 20 20 20 20 20 20 42  |ry?..X;        B|
00001c30  47 54 20 6f 75 74 65 72  20 20 20 20 20 20 20 20  |GT outer        |
00001c40  20 20 20 20 20 20 20 3b  79 65 73 2c 20 73 6f 20  |       ;yes, so |
00001c50  67 6f 20 72 6f 75 6e 64  20 61 67 61 69 6e 0d 0c  |go round again..|
00001c60  62 32 20 20 20 20 20 20  20 20 4c 44 52 20 72 34  |b2        LDR r4|
00001c70  2c 5b 72 32 5d 20 20 20  20 20 20 20 20 20 20 20  |,[r2]           |
00001c80  20 20 3b 67 65 74 20 6e  65 78 74 20 64 61 74 65  |  ;get next date|
00001c90  0d 0c 6c 3a 20 20 20 20  20 20 20 20 43 4d 50 20  |..l:        CMP |
00001ca0  72 34 2c 72 33 20 20 20  20 20 20 20 20 20 20 20  |r4,r3           |
00001cb0  20 20 20 20 3b 63 6f 6d  70 61 72 65 20 74 68 65  |    ;compare the|
00001cc0  20 74 77 6f 20 64 61 74  65 73 0d 0c 76 45 20 20  | two dates..vE  |
00001cd0  20 20 20 20 20 20 42 47  45 20 69 6e 6e 65 72 20  |      BGE inner |
00001ce0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 69  |              ;i|
00001cf0  66 20 32 6e 64 20 64 61  74 65 20 3e 3d 20 31 73  |f 2nd date >= 1s|
00001d00  74 20 64 61 74 65 20 63  61 72 72 79 20 6f 6e 0d  |t date carry on.|
00001d10  0c 80 3b 20 20 20 20 20  20 20 20 53 55 42 20 72  |..;        SUB r|
00001d20  36 2c 72 32 2c 23 36 30  20 20 20 20 20 20 20 20  |6,r2,#60        |
00001d30  20 20 20 3b 72 36 20 70  6f 69 6e 74 73 20 74 6f  |   ;r6 points to|
00001d40  20 31 73 74 20 65 6e 74  72 79 0d 0c 8a 3a 20 20  | 1st entry...:  |
00001d50  20 20 20 20 20 20 41 44  44 20 72 35 2c 72 35 2c  |      ADD r5,r5,|
00001d60  23 31 20 20 20 20 20 20  20 20 20 20 20 20 3b 69  |#1            ;i|
00001d70  6e 63 72 65 61 73 65 20  73 77 61 70 20 63 6f 75  |ncrease swap cou|
00001d80  6e 74 65 72 0d 0c 94 3c  20 20 20 20 20 20 20 20  |nter...<        |
00001d90  4d 4f 56 20 72 37 2c 23  30 20 20 20 20 20 20 20  |MOV r7,#0       |
00001da0  20 20 20 20 20 20 20 20  3b 75 73 65 20 72 37 20  |        ;use r7 |
00001db0  61 73 20 69 6e 64 65 78  20 70 6f 69 6e 74 65 72  |as index pointer|
00001dc0  0d 0c 9e 3c 2e 73 77 61  70 20 20 20 4c 44 52 20  |...<.swap   LDR |
00001dd0  72 34 2c 5b 72 36 2c 72  37 5d 20 20 20 20 20 20  |r4,[r6,r7]      |
00001de0  20 20 20 20 3b 67 65 74  20 77 6f 72 64 20 66 72  |    ;get word fr|
00001df0  6f 6d 20 31 73 74 20 65  6e 74 72 79 0d 0c a8 3c  |om 1st entry...<|
00001e00  20 20 20 20 20 20 20 20  4c 44 52 20 72 39 2c 5b  |        LDR r9,[|
00001e10  72 32 2c 72 37 5d 20 20  20 20 20 20 20 20 20 20  |r2,r7]          |
00001e20  3b 67 65 74 20 77 6f 72  64 20 66 72 6f 6d 20 32  |;get word from 2|
00001e30  6e 64 20 65 6e 74 72 79  0d 0c b2 33 20 20 20 20  |nd entry...3    |
00001e40  20 20 20 20 53 54 52 20  72 34 2c 5b 72 32 2c 72  |    STR r4,[r2,r|
00001e50  37 5d 20 20 20 20 20 20  20 20 20 20 3b 73 77 61  |7]          ;swa|
00001e60  70 20 74 68 65 20 77 6f  72 64 73 0d 0c bc 1a 20  |p the words.... |
00001e70  20 20 20 20 20 20 20 53  54 52 20 72 39 2c 5b 72  |       STR r9,[r|
00001e80  36 2c 72 37 5d 0d 0c c6  3b 20 20 20 20 20 20 20  |6,r7]...;       |
00001e90  20 41 44 44 20 72 37 2c  72 37 2c 23 34 20 20 20  | ADD r7,r7,#4   |
00001ea0  20 20 20 20 20 20 20 20  20 3b 69 6e 63 72 65 61  |         ;increa|
00001eb0  73 65 20 69 6e 64 65 78  20 70 6f 69 6e 74 65 72  |se index pointer|
00001ec0  0d 0c d0 16 20 20 20 20  20 20 20 20 43 4d 50 20  |....        CMP |
00001ed0  72 37 2c 23 36 30 0d 0c  da 36 20 20 20 20 20 20  |r7,#60...6      |
00001ee0  20 20 42 4c 54 20 73 77  61 70 20 20 20 20 20 20  |  BLT swap      |
00001ef0  20 20 20 20 20 20 20 20  20 20 3b 69 66 20 3c 36  |          ;if <6|
00001f00  30 20 6b 65 65 70 20 67  6f 69 6e 67 0d 0c e4 32  |0 keep going...2|
00001f10  20 20 20 20 20 20 20 20  42 41 4c 20 69 6e 6e 65  |        BAL inne|
00001f20  72 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |r               |
00001f30  3b 73 77 61 70 20 63 6f  6d 70 6c 65 74 65 0d 0c  |;swap complete..|
00001f40  ee 05 5d 0d 0c f8 05 e1  0d ff                    |..].......|
00001f4a