00000000  44 10 9f e5 3c 20 9f e5  34 30 9f e5 04 00 12 e4  |D...< ..40......|
00000010  04 00 03 e4 04 10 51 e2  fb ff ff 5a 00 00 8f e2  |......Q....Z....|
00000020  05 00 00 ef 42 41 53 49  43 20 2d 51 75 69 74 20  |....BASIC -Quit |
00000030  40 30 30 30 30 39 30 30  30 2c 30 30 30 31 37 41  |@00009000,00017A|
00000040  46 38 00 ff f8 7a 01 00  48 6b 01 00 f8 ea 00 00  |F8...z..Hk......|
00000050  0d 00 0a 11 f4 20 42 61  6e 6b 20 53 79 73 74 65  |..... Bank Syste|
00000060  6d 0d 00 14 29 f4 20 41  70 70 6c 69 63 61 74 69  |m...). Applicati|
00000070  6f 6e 20 57 72 69 74 74  65 6e 20 42 79 20 52 69  |on Written By Ri|
00000080  63 6b 79 20 44 61 77 73  6f 6e 0d 00 1e 05 3a 0d  |cky Dawson....:.|
00000090  00 28 2e ee 20 85 20 c8  99 20 22 48 6f 75 72 67  |.(.. . .. "Hourg|
000000a0  6c 61 73 73 5f 53 6d 61  73 68 22 3a f2 70 72 65  |lass_Smash":.pre|
000000b0  5f 70 6f 6c 6c 5f 65 72  72 6f 72 3a e0 0d 00 32  |_poll_error:...2|
000000c0  05 3a 0d 00 3c 1d 78 64  72 61 67 61 73 70 72 69  |.:..<.xdragaspri|
000000d0  74 65 5f 73 74 6f 70 25  3d 26 36 32 34 30 31 0d  |te_stop%=&62401.|
000000e0  00 46 2b c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |.F+.. "OS_ReadMo|
000000f0  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 35  |deVariable",-1,5|
00000100  20 b8 20 2c 2c 79 65 69  67 25 0d 00 50 37 e7 20  | . ,,yeig%..P7. |
00000110  79 65 69 67 25 3c 32 20  8c 20 73 70 72 69 74 65  |yeig%<2 . sprite|
00000120  24 3d 22 53 70 72 69 74  65 73 32 32 22 20 8b 20  |$="Sprites22" . |
00000130  73 70 72 69 74 65 24 3d  22 53 70 72 69 74 65 73  |sprite$="Sprites|
00000140  22 0d 00 5a 41 76 65 72  24 3d 22 31 2e 33 35 20  |"..ZAver$="1.35 |
00000150  28 32 20 4d 61 79 20 31  39 39 34 29 22 3a 63 6f  |(2 May 1994)":co|
00000160  70 79 72 69 67 68 74 24  3d 22 a9 a0 41 72 63 68  |pyright$="..Arch|
00000170  69 6d 65 64 65 73 20 57  6f 72 6c 64 20 31 39 39  |imedes World 199|
00000180  34 22 0d 00 64 46 c8 99  20 22 4f 53 5f 46 69 6c  |4"..dF.. "OS_Fil|
00000190  65 22 2c 31 37 2c 22 3c  42 61 6e 6b 24 44 69 72  |e",17,"<Bank$Dir|
000001a0  3e 2e 52 65 73 6f 75 72  63 65 73 2e 22 2b 73 70  |>.Resources."+sp|
000001b0  72 69 74 65 24 20 b8 20  74 79 70 65 25 2c 2c 2c  |rite$ . type%,,,|
000001c0  2c 6c 65 6e 67 74 68 25  0d 00 6e 17 de 20 73 70  |,length%..n.. sp|
000001d0  72 69 74 65 25 20 6c 65  6e 67 74 68 25 2b 34 0d  |rite% length%+4.|
000001e0  00 78 16 21 73 70 72 69  74 65 25 3d 6c 65 6e 67  |.x.!sprite%=leng|
000001f0  74 68 25 2b 34 0d 00 82  40 c8 99 20 22 4f 53 5f  |th%+4...@.. "OS_|
00000200  53 70 72 69 74 65 4f 70  22 2c 32 36 36 2c 73 70  |SpriteOp",266,sp|
00000210  72 69 74 65 25 2c 22 3c  42 61 6e 6b 24 44 69 72  |rite%,"<Bank$Dir|
00000220  3e 2e 52 65 73 6f 75 72  63 65 73 2e 22 2b 73 70  |>.Resources."+sp|
00000230  72 69 74 65 24 0d 00 8c  1f de 20 62 75 74 5f 6f  |rite$..... but_o|
00000240  6b 25 20 33 32 2c 62 75  74 5f 6f 6b 71 75 69 74  |k% 32,but_okquit|
00000250  25 20 33 32 0d 00 96 1d  24 62 75 74 5f 6f 6b 25  |% 32....$but_ok%|
00000260  3d 22 4f 4b 22 2b bd 30  2b bd 30 2b bd 30 2b bd  |="OK"+.0+.0+.0+.|
00000270  30 0d 00 a0 28 24 62 75  74 5f 6f 6b 71 75 69 74  |0...($but_okquit|
00000280  25 3d 22 4f 4b 22 2b bd  30 2b bd 30 2b bd 30 2b  |%="OK"+.0+.0+.0+|
00000290  22 51 75 69 74 22 2b bd  30 0d 00 aa 5a de 20 71  |"Quit"+.0...Z. q|
000002a0  25 20 26 33 30 30 30 2c  69 6e 64 69 72 25 20 37  |% &3000,indir% 7|
000002b0  31 36 38 2c 74 65 6d 70  25 20 37 31 36 38 2c 70  |168,temp% 7168,p|
000002c0  6f 69 6e 74 65 72 5f 69  6e 66 6f 25 20 31 32 38  |ointer_info% 128|
000002d0  2c 62 6c 6f 63 6b 25 20  32 35 35 2c 6f 6c 64 62  |,block% 255,oldb|
000002e0  6c 6f 63 6b 25 20 32 35  35 2c 69 6e 71 25 20 31  |lock% 255,inq% 1|
000002f0  30 32 34 0d 00 b4 7d 69  6e 71 25 21 30 3d 30 3a  |024...}inq%!0=0:|
00000300  69 6e 71 25 21 34 3d 31  3a 69 6e 71 25 21 38 3d  |inq%!4=1:inq%!8=|
00000310  32 3a 69 6e 71 25 21 31  32 3d 33 3a 69 6e 71 25  |2:inq%!12=3:inq%|
00000320  21 31 36 3d 35 3a 69 6e  71 25 21 32 30 3d 31 30  |!16=5:inq%!20=10|
00000330  3a 69 6e 71 25 21 32 34  3d 31 34 3a 69 6e 71 25  |:inq%!24=14:inq%|
00000340  21 32 38 3d 26 35 30 32  3a 69 6e 71 25 21 33 32  |!28=&502:inq%!32|
00000350  3d 26 34 30 30 43 32 3a  69 6e 71 25 21 32 36 3d  |=&400C2:inq%!26=|
00000360  26 34 30 30 43 43 3a 69  6e 71 25 21 34 30 3d 30  |&400CC:inq%!40=0|
00000370  0d 00 be 49 c8 99 20 22  57 69 6d 70 5f 49 6e 69  |...I.. "Wimp_Ini|
00000380  74 69 61 6c 69 73 65 22  2c 33 30 30 2c 26 34 42  |tialise",300,&4B|
00000390  35 33 34 31 35 34 2c 22  42 61 6e 6b 20 53 79 73  |534154,"Bank Sys|
000003a0  74 65 6d 22 2c 69 6e 71  25 20 b8 20 56 65 72 73  |tem",inq% . Vers|
000003b0  69 6f 6e 2c 74 61 73 6b  25 0d 00 c8 37 c8 99 20  |ion,task%...7.. |
000003c0  22 57 69 6d 70 45 78 74  5f 49 6e 69 74 69 61 6c  |"WimpExt_Initial|
000003d0  69 73 65 22 2c 37 2c 74  61 73 6b 25 2c 25 30 31  |ise",7,task%,%01|
000003e0  30 30 30 30 30 30 31 31  2c 73 70 72 69 74 65 25  |00000011,sprite%|
000003f0  0d 00 d2 11 f2 6c 6f 61  64 5f 6f 70 74 69 6f 6e  |.....load_option|
00000400  73 0d 00 dc 8f 21 71 25  3d 30 3a 71 25 21 34 3d  |s....!q%=0:q%!4=|
00000410  30 3a 71 25 21 38 3d 30  3a 71 25 21 31 32 3d 30  |0:q%!8=0:q%!12=0|
00000420  3a 71 25 21 31 36 3d 30  3a 71 25 21 32 30 3d 30  |:q%!16=0:q%!20=0|
00000430  3a 71 25 21 32 34 3d 30  3a 71 25 21 32 38 3d 30  |:q%!24=0:q%!28=0|
00000440  3a 71 25 21 33 32 3d 30  3a 71 25 21 33 36 3d 30  |:q%!32=0:q%!36=0|
00000450  3a 71 25 21 34 30 3d 30  3a 71 25 21 34 34 3d 30  |:q%!40=0:q%!44=0|
00000460  3a 71 25 21 34 38 3d 30  3a 71 25 21 35 32 3d 30  |:q%!48=0:q%!52=0|
00000470  3a 71 25 21 35 36 3d 30  3a 71 25 21 36 30 3d 30  |:q%!56=0:q%!60=0|
00000480  3a 71 25 21 36 34 3d 30  3a 71 25 21 36 38 3d 30  |:q%!64=0:q%!68=0|
00000490  0d 00 e6 16 c8 8e 20 6f  75 74 6c 69 6e 65 66 6f  |...... outlinefo|
000004a0  6e 74 73 25 20 ca 0d 00  f0 07 c9 20 30 0d 00 fa  |nts% ...... 0...|
000004b0  6a c8 99 20 22 57 69 6d  70 45 78 74 5f 4c 6f 61  |j.. "WimpExt_Loa|
000004c0  64 54 65 6d 70 6c 61 74  65 73 22 2c 71 25 2c 71  |dTemplates",q%,q|
000004d0  25 2b 36 38 2c 69 6e 64  69 72 25 2c 69 6e 64 69  |%+68,indir%,indi|
000004e0  72 25 2b 37 31 36 38 2c  66 6f 6e 74 62 25 2c 22  |r%+7168,fontb%,"|
000004f0  3c 42 61 6e 6b 24 44 69  72 3e 2e 52 65 73 6f 75  |<Bank$Dir>.Resou|
00000500  72 63 65 73 2e 54 65 6d  70 6c 61 74 65 73 22 2c  |rces.Templates",|
00000510  73 70 72 69 74 65 25 0d  01 04 2b 69 6e 66 6f 62  |sprite%...+infob|
00000520  6f 78 25 3d 21 71 25 3a  70 77 62 6f 78 25 3d 71  |ox%=!q%:pwbox%=q|
00000530  25 21 34 3a 73 74 61 6e  64 69 6e 67 25 3d 71 25  |%!4:standing%=q%|
00000540  21 38 0d 01 0e 33 64 65  62 69 74 25 3d 71 25 21  |!8...3debit%=q%!|
00000550  31 32 3a 6f 70 74 69 6f  6e 73 25 3d 71 25 21 31  |12:options%=q%!1|
00000560  36 3a 66 69 6c 65 5f 73  61 76 65 62 6f 78 25 3d  |6:file_savebox%=|
00000570  71 25 21 32 30 0d 01 18  3a 6f 70 74 69 6f 6e 5f  |q%!20...:option_|
00000580  62 61 63 6b 25 3d 71 25  21 32 34 3a 61 6e 6e 6f  |back%=q%!24:anno|
00000590  75 6e 63 65 25 3d 71 25  21 32 38 3a 74 65 78 74  |unce%=q%!28:text|
000005a0  5f 73 61 76 65 62 6f 78  25 3d 71 25 21 33 32 0d  |_savebox%=q%!32.|
000005b0  01 22 31 71 75 65 72 79  25 3d 71 25 21 33 36 3a  |."1query%=q%!36:|
000005c0  63 72 65 64 69 74 25 3d  71 25 21 34 30 3a 73 65  |credit%=q%!40:se|
000005d0  61 72 63 68 66 6f 75 6e  64 25 3d 71 25 21 34 34  |archfound%=q%!44|
000005e0  0d 01 2c 2f 73 63 72 6f  6c 6c 79 25 3d 71 25 21  |..,/scrolly%=q%!|
000005f0  34 38 3a 70 72 69 6e 74  62 6f 78 25 3d 71 25 21  |48:printbox%=q%!|
00000600  35 32 3a 61 6d 65 6e 64  25 3d 71 25 21 35 36 0d  |52:amend%=q%!56.|
00000610  01 36 32 66 69 6c 65 69  6e 66 6f 25 3d 71 25 21  |.62fileinfo%=q%!|
00000620  36 30 3a 6d 61 69 6e 5f  62 61 63 6b 25 3d 71 25  |60:main_back%=q%|
00000630  21 36 34 3a 73 65 61 72  63 68 25 3d 71 25 21 36  |!64:search%=q%!6|
00000640  38 0d 01 40 07 c9 20 31  0d 01 4a 66 c8 99 20 22  |8..@.. 1..Jf.. "|
00000650  57 69 6d 70 45 78 74 5f  4c 6f 61 64 54 65 6d 70  |WimpExt_LoadTemp|
00000660  6c 61 74 65 73 22 2c 71  25 2c 71 25 2b 36 38 2c  |lates",q%,q%+68,|
00000670  69 6e 64 69 72 25 2c 69  6e 64 69 72 25 2b 37 31  |indir%,indir%+71|
00000680  36 38 2c 66 6f 6e 74 62  25 2c 22 3c 42 61 6e 6b  |68,fontb%,"<Bank|
00000690  24 44 69 72 3e 2e 52 65  73 6f 75 72 63 65 73 2e  |$Dir>.Resources.|
000006a0  46 6f 6e 74 73 22 2c 73  70 72 69 74 65 25 0d 01  |Fonts",sprite%..|
000006b0  54 28 69 6e 66 6f 62 6f  78 25 3d 21 71 25 3a 70  |T(infobox%=!q%:p|
000006c0  77 62 6f 78 25 3d 71 25  21 34 3a 61 6d 65 6e 64  |wbox%=q%!4:amend|
000006d0  25 3d 71 25 21 38 0d 01  5e 33 73 74 61 6e 64 69  |%=q%!8..^3standi|
000006e0  6e 67 25 3d 71 25 21 31  32 3a 64 65 62 69 74 25  |ng%=q%!12:debit%|
000006f0  3d 71 25 21 31 36 3a 6f  70 74 69 6f 6e 5f 62 61  |=q%!16:option_ba|
00000700  63 6b 25 3d 71 25 21 32  30 0d 01 68 34 61 6e 6e  |ck%=q%!20..h4ann|
00000710  6f 75 6e 63 65 25 3d 71  25 21 32 34 3a 74 65 78  |ounce%=q%!24:tex|
00000720  74 5f 73 61 76 65 62 6f  78 25 3d 71 25 21 32 38  |t_savebox%=q%!28|
00000730  3a 71 75 65 72 79 25 3d  71 25 21 33 32 0d 01 72  |:query%=q%!32..r|
00000740  35 6d 61 69 6e 5f 62 61  63 6b 25 3d 71 25 21 33  |5main_back%=q%!3|
00000750  36 3a 63 72 65 64 69 74  25 3d 71 25 21 34 30 3a  |6:credit%=q%!40:|
00000760  73 65 61 72 63 68 66 6f  75 6e 64 25 3d 71 25 21  |searchfound%=q%!|
00000770  34 34 0d 01 7c 31 73 63  72 6f 6c 6c 79 25 3d 71  |44..|1scrolly%=q|
00000780  25 21 34 38 3a 6f 70 74  69 6f 6e 73 25 3d 71 25  |%!48:options%=q%|
00000790  21 35 32 3a 70 72 69 6e  74 62 6f 78 25 3d 71 25  |!52:printbox%=q%|
000007a0  21 35 36 0d 01 86 35 66  69 6c 65 69 6e 66 6f 25  |!56...5fileinfo%|
000007b0  3d 71 25 21 36 30 3a 66  69 6c 65 5f 73 61 76 65  |=q%!60:file_save|
000007c0  62 6f 78 25 3d 71 25 21  36 34 3a 73 65 61 72 63  |box%=q%!64:searc|
000007d0  68 25 3d 71 25 21 36 38  0d 01 90 05 cb 0d 01 9a  |h%=q%!68........|
000007e0  32 c8 99 20 22 57 69 6d  70 45 78 74 5f 4c 69 6e  |2.. "WimpExt_Lin|
000007f0  6b 57 69 6e 64 6f 77 73  22 2c 2c 2c 6d 61 69 6e  |kWindows",,,main|
00000800  5f 62 61 63 6b 25 2c 73  63 72 6f 6c 6c 79 25 0d  |_back%,scrolly%.|
00000810  01 a4 34 c8 99 20 22 57  69 6d 70 45 78 74 5f 4c  |..4.. "WimpExt_L|
00000820  69 6e 6b 57 69 6e 64 6f  77 73 22 2c 2c 2c 6f 70  |inkWindows",,,op|
00000830  74 69 6f 6e 5f 62 61 63  6b 25 2c 6f 70 74 69 6f  |tion_back%,optio|
00000840  6e 73 25 0d 01 ae 3c e7  20 61 75 74 6f 5f 6c 6f  |ns%...<. auto_lo|
00000850  61 64 24 3d 22 59 65 73  22 20 8c 20 c8 99 20 22  |ad$="Yes" . .. "|
00000860  57 69 6d 70 45 78 74 5f  53 65 74 49 63 6f 6e 22  |WimpExt_SetIcon"|
00000870  2c 2c 2c 6f 70 74 69 6f  6e 73 25 2c 38 2c 31 0d  |,,,options%,8,1.|
00000880  01 b8 3b e7 20 70 61 73  73 77 6f 72 64 24 3d 22  |..;. password$="|
00000890  59 65 73 22 20 8c 20 c8  99 20 22 57 69 6d 70 45  |Yes" . .. "WimpE|
000008a0  78 74 5f 53 65 74 49 63  6f 6e 22 2c 2c 2c 6f 70  |xt_SetIcon",,,op|
000008b0  74 69 6f 6e 73 25 2c 39  2c 31 0d 01 c2 65 e7 20  |tions%,9,1...e. |
000008c0  68 79 70 65 72 5f 68 65  6c 70 24 3d 22 59 65 73  |hyper_help$="Yes|
000008d0  22 20 8c 20 c8 99 20 22  57 69 6d 70 45 78 74 5f  |" . .. "WimpExt_|
000008e0  53 65 74 49 63 6f 6e 22  2c 2c 2c 6f 70 74 69 6f  |SetIcon",,,optio|
000008f0  6e 73 25 2c 31 34 2c 31  20 8b 20 c8 99 20 22 57  |ns%,14,1 . .. "W|
00000900  69 6d 70 45 78 74 5f 53  65 74 49 63 6f 6e 22 2c  |impExt_SetIcon",|
00000910  2c 2c 6f 70 74 69 6f 6e  73 25 2c 31 34 2c 30 0d  |,,options%,14,0.|
00000920  01 cc 64 e7 20 68 79 70  65 72 5f 68 65 6c 70 24  |..d. hyper_help$|
00000930  3d 22 4c 6f 6e 67 22 20  8c 20 c8 99 20 22 57 69  |="Long" . .. "Wi|
00000940  6d 70 45 78 74 5f 53 65  74 49 63 6f 6e 22 2c 2c  |mpExt_SetIcon",,|
00000950  2c 6f 70 74 69 6f 6e 73  25 2c 31 35 2c 31 3a c8  |,options%,15,1:.|
00000960  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
00000970  6f 6e 22 2c 2c 2c 6f 70  74 69 6f 6e 73 25 2c 31  |on",,,options%,1|
00000980  36 2c 30 0d 01 d6 65 e7  20 68 79 70 65 72 5f 68  |6,0...e. hyper_h|
00000990  65 6c 70 24 3d 22 53 68  6f 72 74 22 20 8c 20 c8  |elp$="Short" . .|
000009a0  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
000009b0  6f 6e 22 2c 2c 2c 6f 70  74 69 6f 6e 73 25 2c 31  |on",,,options%,1|
000009c0  35 2c 30 3a c8 99 20 22  57 69 6d 70 45 78 74 5f  |5,0:.. "WimpExt_|
000009d0  53 65 74 49 63 6f 6e 22  2c 2c 2c 6f 70 74 69 6f  |SetIcon",,,optio|
000009e0  6e 73 25 2c 31 36 2c 31  0d 01 e0 7c f2 75 70 64  |ns%,16,1...|.upd|
000009f0  61 74 65 5f 69 63 6f 6e  28 6f 70 74 69 6f 6e 73  |ate_icon(options|
00000a00  25 2c 37 2c 61 75 74 6f  5f 6c 6f 61 64 5f 66 69  |%,7,auto_load_fi|
00000a10  6c 65 24 29 3a f2 75 70  64 61 74 65 5f 69 63 6f  |le$):.update_ico|
00000a20  6e 28 6f 70 74 69 6f 6e  73 25 2c 31 32 2c 70 61  |n(options%,12,pa|
00000a30  73 73 77 6f 72 64 5f 6f  6e 65 24 29 3a f2 75 70  |ssword_one$):.up|
00000a40  64 61 74 65 5f 69 63 6f  6e 28 6f 70 74 69 6f 6e  |date_icon(option|
00000a50  73 25 2c 31 33 2c 70 61  73 73 77 6f 72 64 5f 6f  |s%,13,password_o|
00000a60  6e 65 24 29 0d 01 ea 62  e7 20 68 6f 74 6b 65 79  |ne$)...b. hotkey|
00000a70  73 24 3d 22 59 65 73 22  20 8c 20 c8 99 20 22 57  |s$="Yes" . .. "W|
00000a80  69 6d 70 45 78 74 5f 53  65 74 49 63 6f 6e 22 2c  |impExt_SetIcon",|
00000a90  2c 2c 6f 70 74 69 6f 6e  73 25 2c 31 37 2c 31 20  |,,options%,17,1 |
00000aa0  8b 20 c8 99 20 22 57 69  6d 70 45 78 74 5f 53 65  |. .. "WimpExt_Se|
00000ab0  74 49 63 6f 6e 22 2c 2c  2c 6f 70 74 69 6f 6e 73  |tIcon",,,options|
00000ac0  25 2c 31 37 2c 30 0d 01  f4 0d f2 61 6e 6e 6f 75  |%,17,0.....annou|
00000ad0  6e 63 65 0d 01 fe 16 f2  66 69 6c 65 5f 64 6f 75  |nce.....file_dou|
00000ae0  62 6c 65 5f 63 6c 69 63  6b 0d 02 08 0e ee 20 85  |ble_click..... .|
00000af0  20 f2 65 72 72 6f 72 0d  02 12 0e c8 95 20 ac 20  | .error...... . |
00000b00  71 75 69 74 25 0d 02 1c  22 c8 99 20 22 58 57 69  |quit%...".. "XWi|
00000b10  6d 70 45 78 74 5f 53 6c  61 62 49 63 6f 6e 22 2c  |mpExt_SlabIcon",|
00000b20  2c 2c 30 2c 30 2c 30 0d  02 26 18 c8 99 20 22 57  |,,0,0,0..&... "W|
00000b30  69 6d 70 45 78 74 5f 50  72 65 50 6f 6c 6c 22 0d  |impExt_PrePoll".|
00000b40  02 30 20 c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |.0 .. "Wimp_Poll|
00000b50  22 2c 2c 71 25 20 b8 20  72 65 61 73 6f 6e 25 0d  |",,q% . reason%.|
00000b60  02 3a 32 c8 99 20 22 57  69 6d 70 45 78 74 5f 41  |.:2.. "WimpExt_A|
00000b70  63 74 69 6f 6e 22 2c 74  61 73 6b 25 2c 71 25 2c  |ction",task%,q%,|
00000b80  72 65 61 73 6f 6e 25 20  b8 20 72 65 61 73 6f 6e  |reason% . reason|
00000b90  25 0d 02 44 10 c8 8e 20  72 65 61 73 6f 6e 25 20  |%..D... reason% |
00000ba0  ca 0d 02 4e 37 c9 20 30  3a f2 63 68 65 63 6b 5f  |...N7. 0:.check_|
00000bb0  73 68 61 64 65 64 3a e7  20 68 79 70 65 72 5f 68  |shaded:. hyper_h|
00000bc0  65 6c 70 24 3d 22 59 65  73 22 20 8c 20 f2 68 79  |elp$="Yes" . .hy|
00000bd0  70 65 72 5f 68 65 6c 70  0d 02 58 10 c9 20 31 3a  |per_help..X.. 1:|
00000be0  c8 8e 20 21 71 25 20 ca  0d 02 62 16 c9 20 73 63  |.. !q% ...b.. sc|
00000bf0  72 6f 6c 6c 79 25 3a f2  72 65 64 72 61 77 0d 02  |rolly%:.redraw..|
00000c00  6c 21 7f 3a c8 99 20 22  57 69 6d 70 45 78 74 5f  |l!.:.. "WimpExt_|
00000c10  41 75 74 6f 52 65 64 72  61 77 22 2c 2c 71 25 0d  |AutoRedraw",,q%.|
00000c20  02 76 05 cb 0d 02 80 23  c9 20 32 3a c8 99 20 22  |.v.....#. 2:.. "|
00000c30  57 69 6d 70 45 78 74 5f  4f 70 65 6e 4c 69 6e 6b  |WimpExt_OpenLink|
00000c40  65 64 22 2c 2c 71 25 0d  02 8a 13 c9 20 33 3a f2  |ed",,q%..... 3:.|
00000c50  63 6c 6f 73 65 28 21 71  25 29 0d 02 94 29 c9 20  |close(!q%)...). |
00000c60  36 3a f2 6d 6f 75 73 65  28 21 71 25 2c 71 25 21  |6:.mouse(!q%,q%!|
00000c70  34 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |4,q%!8,q%!12,q%!|
00000c80  31 36 29 0d 02 9e 16 c9  20 37 3a c8 8e 20 73 61  |16)..... 7:.. sa|
00000c90  76 65 74 79 70 65 24 20  ca 0d 02 a8 69 c9 20 22  |vetype$ ....i. "|
00000ca0  45 39 38 22 3a c8 99 20  78 64 72 61 67 61 73 70  |E98":.. xdragasp|
00000cb0  72 69 74 65 5f 73 74 6f  70 25 3a c8 99 20 22 57  |rite_stop%:.. "W|
00000cc0  69 6d 70 45 78 74 5f 47  65 74 49 63 6f 6e 22 2c  |impExt_GetIcon",|
00000cd0  2c 2c 66 69 6c 65 5f 73  61 76 65 62 6f 78 25 2c  |,,file_savebox%,|
00000ce0  31 20 b8 20 2c 2c 2c 66  69 6c 65 24 3a f2 69 6e  |1 . ,,,file$:.in|
00000cf0  69 74 69 61 74 65 5f 73  61 76 65 28 66 69 6c 65  |itiate_save(file|
00000d00  24 29 0d 02 b2 69 c9 20  22 46 46 46 22 3a c8 99  |$)...i. "FFF":..|
00000d10  20 78 64 72 61 67 61 73  70 72 69 74 65 5f 73 74  | xdragasprite_st|
00000d20  6f 70 25 3a c8 99 20 22  57 69 6d 70 45 78 74 5f  |op%:.. "WimpExt_|
00000d30  47 65 74 49 63 6f 6e 22  2c 2c 2c 74 65 78 74 5f  |GetIcon",,,text_|
00000d40  73 61 76 65 62 6f 78 25  2c 31 20 b8 20 2c 2c 2c  |savebox%,1 . ,,,|
00000d50  66 69 6c 65 24 3a f2 69  6e 69 74 69 61 74 65 5f  |file$:.initiate_|
00000d60  73 61 76 65 28 66 69 6c  65 24 29 0d 02 bc 05 cb  |save(file$).....|
00000d70  0d 02 c6 2a c9 20 38 3a  f2 6b 65 79 5f 70 72 65  |...*. 8:.key_pre|
00000d80  73 73 65 64 28 21 71 25  2c 71 25 21 34 2c 71 25  |ssed(!q%,q%!4,q%|
00000d90  21 32 30 2c 71 25 21 32  34 29 0d 02 d0 14 c9 20  |!20,q%!24)..... |
00000da0  39 3a f2 64 65 63 6f 64  65 5f 6d 65 6e 75 0d 02  |9:.decode_menu..|
00000db0  da 2b c9 20 31 37 2c 31  38 3a f2 6d 65 73 73 61  |.+. 17,18:.messa|
00000dc0  67 65 73 3a f2 63 68 65  63 6b 5f 70 72 69 6e 74  |ges:.check_print|
00000dd0  65 72 5f 64 72 69 76 65  72 0d 02 e4 05 cb 0d 02  |er_driver.......|
00000de0  ee 05 ce 0d 02 f8 19 c8  99 20 78 64 72 61 67 61  |......... xdraga|
00000df0  73 70 72 69 74 65 5f 73  74 6f 70 25 0d 03 02 1e  |sprite_stop%....|
00000e00  c8 99 20 22 58 57 69 6d  70 45 78 74 5f 53 65 74  |.. "XWimpExt_Set|
00000e10  50 6f 69 6e 74 65 72 22  2c 30 0d 03 0c 20 c8 99  |Pointer",0... ..|
00000e20  20 22 58 57 69 6d 70 45  78 74 5f 52 65 6c 65 61  | "XWimpExt_Relea|
00000e30  73 65 50 6f 69 6e 74 65  72 22 0d 03 16 21 c8 99  |sePointer"...!..|
00000e40  20 22 58 57 69 6d 70 45  78 74 5f 43 6c 6f 73 65  | "XWimpExt_Close|
00000e50  44 6f 77 6e 22 2c 74 61  73 6b 25 0d 03 20 18 c8  |Down",task%.. ..|
00000e60  99 20 22 58 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |. "XWimp_CloseDo|
00000e70  77 6e 22 0d 03 2a 05 e0  0d 03 34 05 3a 0d 03 3e  |wn"..*....4.:..>|
00000e80  0e dd f2 6d 65 73 73 61  67 65 73 0d 03 48 0e c8  |...messages..H..|
00000e90  8e 20 71 25 21 31 36 20  ca 0d 03 52 0f c9 20 30  |. q%!16 ...R.. 0|
00000ea0  3a 71 75 69 74 25 3d b9  0d 03 5c 11 c9 20 32 3a  |:quit%=...\.. 2:|
00000eb0  f2 64 61 74 61 73 61 76  65 0d 03 66 1c c9 20 33  |.datasave..f.. 3|
00000ec0  2c 35 3a c8 8e 20 6f 70  74 69 6f 6e 73 5f 6f 70  |,5:.. options_op|
00000ed0  65 6e 25 20 ca 0d 03 70  13 c9 20 a3 3a e7 20 71  |en% ...p.. .:. q|
00000ee0  25 21 31 32 3d 30 20 8c  0d 03 7a 37 e7 20 71 25  |%!12=0 ...z7. q%|
00000ef0  21 34 30 3d 26 45 39 38  20 8c 20 f2 6c 6f 61 64  |!40=&E98 . .load|
00000f00  5f 61 63 6b 6e 6f 77 6c  65 64 67 65 3a f2 6f 6b  |_acknowledge:.ok|
00000f10  5f 74 6f 5f 6c 6f 61 64  28 22 45 39 38 22 29 0d  |_to_load("E98").|
00000f20  03 84 37 e7 20 71 25 21  34 30 3d 26 34 30 36 20  |..7. q%!40=&406 |
00000f30  8c 20 f2 6c 6f 61 64 5f  61 63 6b 6e 6f 77 6c 65  |. .load_acknowle|
00000f40  64 67 65 3a f2 6f 6b 5f  74 6f 5f 6c 6f 61 64 28  |dge:.ok_to_load(|
00000f50  22 34 30 36 22 29 0d 03  8e 05 e1 0d 03 98 50 c9  |"406")........P.|
00000f60  20 b9 3a e7 20 71 25 21  31 32 3d 30 20 80 20 28  | .:. q%!12=0 . (|
00000f70  71 25 21 34 30 3d 26 45  39 38 20 84 20 71 25 21  |q%!40=&E98 . q%!|
00000f80  34 30 3d 26 34 30 36 29  20 8c 20 f2 6c 6f 61 64  |40=&406) . .load|
00000f90  5f 61 63 6b 6e 6f 77 6c  65 64 67 65 3a f2 67 65  |_acknowledge:.ge|
00000fa0  74 5f 70 61 74 68 5f 6e  61 6d 65 0d 03 a2 05 cb  |t_path_name.....|
00000fb0  0d 03 ac 19 c9 20 34 3a  f2 6c 6f 61 64 5f 61 63  |..... 4:.load_ac|
00000fc0  6b 6e 6f 77 6c 65 64 67  65 0d 03 b6 16 c9 20 31  |knowledge..... 1|
00000fd0  30 3a f2 64 65 73 6b 74  6f 70 5f 73 61 76 65 0d  |0:.desktop_save.|
00000fe0  03 c0 1b c9 20 31 34 3a  f2 6c 6f 77 5f 70 6f 77  |.... 14:.low_pow|
00000ff0  65 72 5f 77 61 72 6e 69  6e 67 0d 03 ca 1c c9 20  |er_warning..... |
00001000  26 35 30 32 3a f2 68 65  6c 70 28 a4 68 65 6c 70  |&502:.help(.help|
00001010  5f 74 65 78 74 29 0d 03  d4 43 c9 20 26 34 30 30  |_text)...C. &400|
00001020  43 32 3a e7 20 a4 73 74  72 69 6e 67 28 71 25 2b  |C2:. .string(q%+|
00001030  32 38 29 3d 22 42 61 6e  6b 20 53 79 73 74 65 6d  |28)="Bank System|
00001040  22 20 80 20 71 25 21 34  3c 3e 74 61 73 6b 25 20  |" . q%!4<>task% |
00001050  8c 20 71 75 69 74 25 3d  b9 0d 03 de 15 c9 20 26  |. quit%=...... &|
00001060  34 30 30 43 43 3a f2 69  63 6f 6e 69 7a 65 0d 03  |400CC:.iconize..|
00001070  e8 05 cb 0d 03 f2 05 e1  0d 03 fc 05 3a 0d 04 06  |............:...|
00001080  0d dd f2 69 63 6f 6e 69  7a 65 0d 04 10 16 f2 67  |...iconize.....g|
00001090  65 74 5f 70 69 6e 62 6f  61 72 64 5f 6e 61 6d 65  |et_pinboard_name|
000010a0  0d 04 1a 23 71 25 21 30  3d 34 38 3a 71 25 21 31  |...#q%!0=48:q%!1|
000010b0  32 3d 71 25 21 38 3a 71  25 21 31 36 3d 26 34 30  |2=q%!8:q%!16=&40|
000010c0  30 43 43 0d 04 24 26 24  28 71 25 2b 32 38 29 3d  |0CC..$&$(q%+28)=|
000010d0  22 62 61 6e 6b 22 3a 24  28 71 25 2b 33 36 29 3d  |"bank":$(q%+36)=|
000010e0  70 69 6e 62 6f 61 72 64  24 0d 04 2e 24 c8 99 20  |pinboard$...$.. |
000010f0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00001100  65 22 2c 31 37 2c 71 25  2c 71 25 21 34 0d 04 38  |e",17,q%,q%!4..8|
00001110  05 e1 0d 04 42 05 3a 0d  04 4c 17 dd f2 67 65 74  |....B.:..L...get|
00001120  5f 70 69 6e 62 6f 61 72  64 5f 6e 61 6d 65 0d 04  |_pinboard_name..|
00001130  56 28 70 69 6e 62 6f 61  72 64 24 3d a4 69 6e 64  |V(pinboard$=.ind|
00001140  69 72 65 63 74 28 66 69  6c 65 5f 73 61 76 65 62  |irect(file_saveb|
00001150  6f 78 25 2c 31 29 0d 04  60 19 c8 95 20 a7 70 69  |ox%,1)..`... .pi|
00001160  6e 62 6f 61 72 64 24 2c  22 2e 22 29 3c 3e 30 0d  |nboard$,".")<>0.|
00001170  04 6a 16 6c 65 6e 67 74  68 25 3d a9 70 69 6e 62  |.j.length%=.pinb|
00001180  6f 61 72 64 24 0d 04 74  23 70 69 6e 62 6f 61 72  |oard$..t#pinboar|
00001190  64 24 3d c2 70 69 6e 62  6f 61 72 64 24 2c 6c 65  |d$=.pinboard$,le|
000011a0  6e 67 74 68 25 2d 31 29  0d 04 7e 05 ce 0d 04 88  |ngth%-1)..~.....|
000011b0  05 e1 0d 04 92 05 3a 0d  04 9c 12 dd f2 64 65 73  |......:......des|
000011c0  6b 74 6f 70 5f 73 61 76  65 0d 04 a6 19 24 62 6c  |ktop_save....$bl|
000011d0  6f 63 6b 25 3d 22 42 61  6e 6b 24 44 69 72 22 2b  |ock%="Bank$Dir"+|
000011e0  bd 30 0d 04 b0 37 c8 99  20 22 4f 53 5f 52 65 61  |.0...7.. "OS_Rea|
000011f0  64 56 61 72 56 61 6c 22  2c 62 6c 6f 63 6b 25 2c  |dVarVal",block%,|
00001200  6f 6c 64 62 6c 6f 63 6b  25 2c 32 35 35 2c 30 2c  |oldblock%,255,0,|
00001210  30 20 b8 2c 2c 6c 65 6e  25 0d 04 ba 15 6f 6c 64  |0 .,,len%....old|
00001220  62 6c 6f 63 6b 25 3f 6c  65 6e 25 3d 31 33 0d 04  |block%?len%=13..|
00001230  c4 1b 73 61 76 65 24 3d  22 52 75 6e 20 22 2b 24  |..save$="Run "+$|
00001240  6f 6c 64 62 6c 6f 63 6b  25 0d 04 ce 13 d5 23 28  |oldblock%.....#(|
00001250  71 25 21 32 30 29 2c 73  61 76 65 24 0d 04 d8 05  |q%!20),save$....|
00001260  e1 0d 04 e2 05 3a 0d 04  ec 13 dd f2 67 65 74 5f  |.....:......get_|
00001270  70 61 74 68 5f 6e 61 6d  65 0d 04 f6 23 66 69 6c  |path_name...#fil|
00001280  65 6e 61 6d 65 24 3d 22  22 3a 61 25 3d 30 3a 62  |ename$="":a%=0:b|
00001290  25 3d 71 25 3f 28 34 34  2b 61 25 29 0d 05 00 33  |%=q%?(44+a%)...3|
000012a0  c8 95 20 62 25 3c 3e 30  3a 66 69 6c 65 6e 61 6d  |.. b%<>0:filenam|
000012b0  65 24 2b 3d bd 28 62 25  29 3a 61 25 2b 3d 31 3a  |e$+=.(b%):a%+=1:|
000012c0  62 25 3d 71 25 3f 28 34  34 2b 61 25 29 3a ce 0d  |b%=q%?(44+a%):..|
000012d0  05 0a 26 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |..&.update_icon(|
000012e0  6f 70 74 69 6f 6e 73 25  2c 37 2c 66 69 6c 65 6e  |options%,7,filen|
000012f0  61 6d 65 24 29 0d 05 14  05 e1 0d 05 1e 05 3a 0d  |ame$).........:.|
00001300  05 28 0e dd f2 6d 61 6b  65 6d 65 6e 75 0d 05 32  |.(...makemenu..2|
00001310  15 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00001320  6e 22 0d 05 3c 15 de 20  6d 65 6e 75 66 72 65 65  |n"..<.. menufree|
00001330  25 20 26 32 30 30 30 0d  05 46 38 63 75 72 77 73  |% &2000..F8curws|
00001340  25 3d 74 65 6d 70 25 3a  6d 61 78 77 73 25 3d 74  |%=temp%:maxws%=t|
00001350  65 6d 70 25 2b 26 31 30  30 30 3a 6d 65 6e 75 73  |emp%+&1000:menus|
00001360  74 61 72 74 25 3d 6d 65  6e 75 66 72 65 65 25 0d  |tart%=menufree%.|
00001370  05 50 31 6d 65 6e 75 65  6e 64 25 3d 6d 65 6e 75  |.P1menuend%=menu|
00001380  66 72 65 65 25 2b 26 31  30 30 30 3a 6d 65 6e 75  |free%+&1000:menu|
00001390  66 72 65 65 25 3d 6d 65  6e 75 73 74 61 72 74 25  |free%=menustart%|
000013a0  0d 05 5a 0f f2 6c 6f 6e  67 5f 6d 65 6e 75 73 0d  |..Z..long_menus.|
000013b0  05 64 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |.d... "Hourglass|
000013c0  5f 4f 66 66 22 0d 05 6e  05 e1 0d 05 78 05 3a 0d  |_Off"..n....x.:.|
000013d0  05 82 10 dd f2 6c 6f 6e  67 5f 6d 65 6e 75 73 0d  |.....long_menus.|
000013e0  05 8c 30 e3 20 6c 6f 6f  70 25 3d 6d 65 6e 75 73  |..0. loop%=menus|
000013f0  74 61 72 74 25 20 b8 20  6d 65 6e 75 65 6e 64 25  |tart% . menuend%|
00001400  20 88 20 34 3a 21 6c 6f  6f 70 25 3d 30 3a ed 0d  | . 4:!loop%=0:..|
00001410  05 96 4e 69 63 6f 6e 6d  65 6e 75 25 3d a4 63 72  |..Niconmenu%=.cr|
00001420  65 61 74 65 5f 6d 65 6e  75 28 22 23 42 61 6e 6b  |eate_menu("#Bank|
00001430  20 53 79 73 74 65 6d 2c  49 6e 66 6f 3e 69 6e 66  | System,Info>inf|
00001440  6f 62 6f 78 25 2c 4f 70  74 69 6f 6e 73 2e 2e 2e  |obox%,Options...|
00001450  2c 51 75 69 74 22 2c 22  22 2c 22 22 29 0d 05 a0  |,Quit","","")...|
00001460  81 6d 6f 6e 74 68 6d 65  6e 75 25 3d a4 63 72 65  |.monthmenu%=.cre|
00001470  61 74 65 5f 6d 65 6e 75  28 22 23 4d 6f 6e 74 68  |ate_menu("#Month|
00001480  2c 4a 61 6e 75 61 72 79  2c 46 65 62 72 75 61 72  |,January,Februar|
00001490  79 2c 4d 61 72 63 68 2c  41 70 72 69 6c 2c 4d 61  |y,March,April,Ma|
000014a0  79 2c 4a 75 6e 65 2c 4a  75 6c 79 2c 41 75 67 75  |y,June,July,Augu|
000014b0  73 74 2c 53 65 70 74 65  6d 62 65 72 2c 4f 63 74  |st,September,Oct|
000014c0  6f 62 65 72 2c 4e 6f 76  65 6d 62 65 72 2c 44 65  |ober,November,De|
000014d0  63 65 6d 62 65 72 22 2c  22 22 2c 22 22 29 0d 05  |cember","","")..|
000014e0  aa 0e f2 79 65 61 72 5f  6d 65 6e 75 0d 05 b4 61  |...year_menu...a|
000014f0  73 61 76 65 6d 65 6e 75  25 3d a4 63 72 65 61 74  |savemenu%=.creat|
00001500  65 5f 6d 65 6e 75 28 22  23 53 61 76 65 2c 42 61  |e_menu("#Save,Ba|
00001510  6e 6b 20 44 61 74 61 20  20 46 33 3e 66 69 6c 65  |nk Data  F3>file|
00001520  5f 73 61 76 65 62 6f 78  25 2c 54 65 78 74 20 20  |_savebox%,Text  |
00001530  20 20 20 20 8b 46 33 3e  74 65 78 74 5f 73 61 76  |    .F3>text_sav|
00001540  65 62 6f 78 25 22 2c 22  22 2c 22 22 29 0d 05 be  |ebox%","","")...|
00001550  8d 61 63 74 69 6f 6e 6d  65 6e 75 25 3d a4 63 72  |.actionmenu%=.cr|
00001560  65 61 74 65 5f 6d 65 6e  75 28 22 23 41 63 74 69  |eate_menu("#Acti|
00001570  6f 6e 2c 43 72 65 64 69  74 20 20 20 20 20 20 20  |on,Credit       |
00001580  20 20 20 46 31 2c 44 65  62 69 74 20 20 20 20 20  |   F1,Debit     |
00001590  20 20 20 20 20 20 46 32  2c 53 74 61 6e 64 69 6e  |      F2,Standin|
000015a0  67 20 4f 72 64 65 72 20  20 46 35 23 2c 41 6d 65  |g Order  F5#,Ame|
000015b0  6e 64 20 20 20 20 20 20  20 20 20 20 20 46 36 2c  |nd           F6,|
000015c0  44 65 6c 65 74 65 20 20  20 20 20 20 20 20 20 20  |Delete          |
000015d0  46 37 22 2c 22 22 2c 22  22 29 0d 05 c8 5d 66 69  |F7","","")...]fi|
000015e0  6c 65 6d 65 6e 75 25 3d  a4 63 72 65 61 74 65 5f  |lemenu%=.create_|
000015f0  6d 65 6e 75 28 22 23 46  69 6c 65 2c 49 6e 66 6f  |menu("#File,Info|
00001600  3e 66 69 6c 65 69 6e 66  6f 25 2c 50 72 69 6e 74  |>fileinfo%,Print|
00001610  20 20 20 20 46 30 3e 70  72 69 6e 74 62 6f 78 25  |    F0>printbox%|
00001620  2c 53 61 76 65 3e 73 61  76 65 6d 65 6e 75 25 22  |,Save>savemenu%"|
00001630  2c 22 22 2c 22 22 29 0d  05 d2 13 f2 6c 6f 6e 67  |,"","").....long|
00001640  5f 6d 61 69 6e 5f 6d 65  6e 75 0d 05 dc 05 e1 0d  |_main_menu......|
00001650  05 e6 05 3a 0d 05 f0 11  dd f2 73 68 6f 72 74 5f  |...:......short_|
00001660  6d 65 6e 75 73 0d 05 fa  30 e3 20 6c 6f 6f 70 25  |menus...0. loop%|
00001670  3d 6d 65 6e 75 73 74 61  72 74 25 20 b8 20 6d 65  |=menustart% . me|
00001680  6e 75 65 6e 64 25 20 88  20 34 3a 21 6c 6f 6f 70  |nuend% . 4:!loop|
00001690  25 3d 30 3a ed 0d 06 04  4e 69 63 6f 6e 6d 65 6e  |%=0:....Niconmen|
000016a0  75 25 3d a4 63 72 65 61  74 65 5f 6d 65 6e 75 28  |u%=.create_menu(|
000016b0  22 23 42 61 6e 6b 20 53  79 73 74 65 6d 2c 49 6e  |"#Bank System,In|
000016c0  66 6f 3e 69 6e 66 6f 62  6f 78 25 2c 4f 70 74 69  |fo>infobox%,Opti|
000016d0  6f 6e 73 2e 2e 2e 2c 51  75 69 74 22 2c 22 22 2c  |ons...,Quit","",|
000016e0  22 22 29 0d 06 0e 81 6d  6f 6e 74 68 6d 65 6e 75  |"")....monthmenu|
000016f0  25 3d a4 63 72 65 61 74  65 5f 6d 65 6e 75 28 22  |%=.create_menu("|
00001700  23 4d 6f 6e 74 68 2c 4a  61 6e 75 61 72 79 2c 46  |#Month,January,F|
00001710  65 62 72 75 61 72 79 2c  4d 61 72 63 68 2c 41 70  |ebruary,March,Ap|
00001720  72 69 6c 2c 4d 61 79 2c  4a 75 6e 65 2c 4a 75 6c  |ril,May,June,Jul|
00001730  79 2c 41 75 67 75 73 74  2c 53 65 70 74 65 6d 62  |y,August,Septemb|
00001740  65 72 2c 4f 63 74 6f 62  65 72 2c 4e 6f 76 65 6d  |er,October,Novem|
00001750  62 65 72 2c 44 65 63 65  6d 62 65 72 22 2c 22 22  |ber,December",""|
00001760  2c 22 22 29 0d 06 18 0e  f2 79 65 61 72 5f 6d 65  |,"").....year_me|
00001770  6e 75 0d 06 22 54 73 61  76 65 6d 65 6e 75 25 3d  |nu.."Tsavemenu%=|
00001780  a4 63 72 65 61 74 65 5f  6d 65 6e 75 28 22 23 53  |.create_menu("#S|
00001790  61 76 65 2c 42 61 6e 6b  20 44 61 74 61 3e 66 69  |ave,Bank Data>fi|
000017a0  6c 65 5f 73 61 76 65 62  6f 78 25 2c 54 65 78 74  |le_savebox%,Text|
000017b0  3e 74 65 78 74 5f 73 61  76 65 62 6f 78 25 22 2c  |>text_savebox%",|
000017c0  22 22 2c 22 22 29 0d 06  2c 57 61 63 74 69 6f 6e  |"","")..,Waction|
000017d0  6d 65 6e 75 25 3d a4 63  72 65 61 74 65 5f 6d 65  |menu%=.create_me|
000017e0  6e 75 28 22 23 41 63 74  69 6f 6e 2c 43 72 65 64  |nu("#Action,Cred|
000017f0  69 74 2c 44 65 62 69 74  2c 53 74 61 6e 64 69 6e  |it,Debit,Standin|
00001800  67 20 4f 72 64 65 72 23  2c 41 6d 65 6e 64 2c 44  |g Order#,Amend,D|
00001810  65 6c 65 74 65 22 2c 22  22 2c 22 22 29 0d 06 36  |elete","","")..6|
00001820  57 66 69 6c 65 6d 65 6e  75 25 3d a4 63 72 65 61  |Wfilemenu%=.crea|
00001830  74 65 5f 6d 65 6e 75 28  22 23 46 69 6c 65 2c 49  |te_menu("#File,I|
00001840  6e 66 6f 3e 66 69 6c 65  69 6e 66 6f 25 2c 50 72  |nfo>fileinfo%,Pr|
00001850  69 6e 74 3e 70 72 69 6e  74 62 6f 78 25 2c 53 61  |int>printbox%,Sa|
00001860  76 65 3e 73 61 76 65 6d  65 6e 75 25 22 2c 22 22  |ve>savemenu%",""|
00001870  2c 22 22 29 0d 06 40 14  f2 73 68 6f 72 74 5f 6d  |,"")..@..short_m|
00001880  61 69 6e 5f 6d 65 6e 75  0d 06 4a 05 e1 0d 06 54  |ain_menu..J....T|
00001890  05 3a 0d 06 5e 0f dd f2  79 65 61 72 5f 6d 65 6e  |.:..^...year_men|
000018a0  75 0d 06 68 6f 79 65 61  72 6d 65 6e 75 25 3d a4  |u..hoyearmenu%=.|
000018b0  63 72 65 61 74 65 5f 6d  65 6e 75 28 22 23 59 65  |create_menu("#Ye|
000018c0  61 72 2c 22 2b c3 28 79  65 61 72 25 29 2b 22 2c  |ar,"+.(year%)+",|
000018d0  22 2b c3 28 79 65 61 72  25 2b 31 29 2b 22 2c 22  |"+.(year%+1)+","|
000018e0  2b c3 28 79 65 61 72 25  2b 32 29 2b 22 2c 22 2b  |+.(year%+2)+","+|
000018f0  c3 28 79 65 61 72 25 2b  33 29 2b 22 2c 22 2b c3  |.(year%+3)+","+.|
00001900  28 79 65 61 72 25 2b 34  29 2c 22 22 2c 22 22 29  |(year%+4),"","")|
00001910  0d 06 72 53 73 74 61 74  65 6d 65 6e 74 6d 65 6e  |..rSstatementmen|
00001920  75 25 3d a4 63 72 65 61  74 65 5f 6d 65 6e 75 28  |u%=.create_menu(|
00001930  22 23 53 74 61 74 65 6d  65 6e 74 2c 4d 6f 6e 74  |"#Statement,Mont|
00001940  68 3e 6d 6f 6e 74 68 6d  65 6e 75 25 2c 59 65 61  |h>monthmenu%,Yea|
00001950  72 3e 79 65 61 72 6d 65  6e 75 25 22 2c 22 22 2c  |r>yearmenu%","",|
00001960  22 22 29 0d 06 7c 05 e1  0d 06 86 05 3a 0d 06 90  |"")..|......:...|
00001970  14 dd f2 6c 6f 6e 67 5f  6d 61 69 6e 5f 6d 65 6e  |...long_main_men|
00001980  75 0d 06 9a b2 6d 61 69  6e 6d 65 6e 75 25 3d a4  |u....mainmenu%=.|
00001990  63 72 65 61 74 65 5f 6d  65 6e 75 28 22 23 42 61  |create_menu("#Ba|
000019a0  6e 6b 20 53 79 73 74 65  6d 2c 49 6e 66 6f 3e 69  |nk System,Info>i|
000019b0  6e 66 6f 62 6f 78 25 2c  4f 70 74 69 6f 6e 73 2e  |nfobox%,Options.|
000019c0  2e 2e 2c 51 75 69 74 23  2c 46 69 6c 65 3e 66 69  |..,Quit#,File>fi|
000019d0  6c 65 6d 65 6e 75 25 2c  53 65 61 72 63 68 20 20  |lemenu%,Search  |
000019e0  20 20 20 20 20 46 34 3e  73 65 61 72 63 68 25 2c  |     F4>search%,|
000019f0  53 74 61 74 65 6d 65 6e  74 3e 73 74 61 74 65 6d  |Statement>statem|
00001a00  65 6e 74 6d 65 6e 75 25  2c 41 63 74 69 6f 6e 3e  |entmenu%,Action>|
00001a10  61 63 74 69 6f 6e 6d 65  6e 75 25 2c 52 65 73 74  |actionmenu%,Rest|
00001a20  61 72 74 20 20 20 20 20  20 46 38 22 2c 22 22 2c  |art      F8","",|
00001a30  22 22 29 0d 06 a4 05 e1  0d 06 ae 05 3a 0d 06 b8  |"").........:...|
00001a40  15 dd f2 73 68 6f 72 74  5f 6d 61 69 6e 5f 6d 65  |...short_main_me|
00001a50  6e 75 0d 06 c2 a1 6d 61  69 6e 6d 65 6e 75 25 3d  |nu....mainmenu%=|
00001a60  a4 63 72 65 61 74 65 5f  6d 65 6e 75 28 22 23 42  |.create_menu("#B|
00001a70  61 6e 6b 20 53 79 73 74  65 6d 2c 49 6e 66 6f 3e  |ank System,Info>|
00001a80  69 6e 66 6f 62 6f 78 25  2c 4f 70 74 69 6f 6e 73  |infobox%,Options|
00001a90  2e 2e 2e 2c 51 75 69 74  23 2c 46 69 6c 65 3e 66  |...,Quit#,File>f|
00001aa0  69 6c 65 6d 65 6e 75 25  2c 53 65 61 72 63 68 3e  |ilemenu%,Search>|
00001ab0  73 65 61 72 63 68 25 2c  53 74 61 74 65 6d 65 6e  |search%,Statemen|
00001ac0  74 3e 73 74 61 74 65 6d  65 6e 74 6d 65 6e 75 25  |t>statementmenu%|
00001ad0  2c 41 63 74 69 6f 6e 3e  61 63 74 69 6f 6e 6d 65  |,Action>actionme|
00001ae0  6e 75 25 2c 52 65 73 74  61 72 74 22 2c 22 22 2c  |nu%,Restart","",|
00001af0  22 22 29 0d 06 cc 05 e1  0d 06 d6 05 3a 0d 06 e0  |"").........:...|
00001b00  26 dd a4 63 72 65 61 74  65 5f 6d 65 6e 75 28 6d  |&..create_menu(m|
00001b10  65 6e 75 24 2c 6d 65 6e  75 32 24 2c 6d 65 6e 75  |enu$,menu2$,menu|
00001b20  33 24 29 0d 06 ea 32 e7  20 6d 65 6e 75 66 72 65  |3$)...2. menufre|
00001b30  65 25 2b 32 38 3e 6d 65  6e 75 65 6e 64 25 20 8c  |e%+28>menuend% .|
00001b40  20 85 20 31 2c 22 4d 65  6e 75 20 41 72 65 61 20  | . 1,"Menu Area |
00001b50  46 75 6c 6c 22 0d 06 f4  0b ea 20 6d 25 2c 72 25  |Full"..... m%,r%|
00001b60  0d 06 fe 16 6d 65 6e 75  70 74 72 25 3d 6d 65 6e  |....menuptr%=men|
00001b70  75 66 72 65 65 25 0d 07  08 08 72 25 3d 30 0d 07  |ufree%....r%=0..|
00001b80  12 3f e7 20 c0 6d 65 6e  75 24 2c 31 29 3d 22 23  |.?. .menu$,1)="#|
00001b90  22 20 8c 20 72 25 3d 31  3a 6d 65 6e 75 74 69 74  |" . r%=1:menutit|
00001ba0  6c 65 24 3d a4 70 61 72  28 22 2c 22 29 20 8b 20  |le$=.par(",") . |
00001bb0  6d 65 6e 75 74 69 74 6c  65 24 3d 22 22 0d 07 1c  |menutitle$=""...|
00001bc0  1a e7 20 c2 6d 65 6e 75  74 69 74 6c 65 24 2c 31  |.. .menutitle$,1|
00001bd0  29 3d 22 7b 22 20 8c 0d  07 26 0e 62 6f 74 69 63  |)="{" ...&.botic|
00001be0  6f 6e 25 3d 39 0d 07 30  2b 6d 65 6e 75 74 69 74  |on%=9..0+menutit|
00001bf0  6c 65 24 3d c0 6d 65 6e  75 74 69 74 6c 65 24 2c  |le$=.menutitle$,|
00001c00  a9 28 6d 65 6e 75 74 69  74 6c 65 24 29 2d 31 29  |.(menutitle$)-1)|
00001c10  0d 07 3a 05 cc 0d 07 44  0e 62 6f 74 69 63 6f 6e  |..:....D.boticon|
00001c20  25 3d 31 0d 07 4e 05 cd  0d 07 58 18 24 6d 65 6e  |%=1..N....X.$men|
00001c30  75 70 74 72 25 3d 6d 65  6e 75 74 69 74 6c 65 24  |uptr%=menutitle$|
00001c40  0d 07 62 3b 6d 65 6e 75  70 74 72 25 3f 31 32 3d  |..b;menuptr%?12=|
00001c50  37 3a 6d 65 6e 75 70 74  72 25 3f 31 33 3d 32 3a  |7:menuptr%?13=2:|
00001c60  6d 65 6e 75 70 74 72 25  3f 31 34 3d 37 3a 6d 65  |menuptr%?14=7:me|
00001c70  6e 75 70 74 72 25 3f 31  35 3d 30 0d 07 6c 33 6d  |nuptr%?15=0..l3m|
00001c80  65 6e 75 70 74 72 25 21  31 36 3d 31 39 36 2d 32  |enuptr%!16=196-2|
00001c90  34 3a 6d 65 6e 75 70 74  72 25 21 32 30 3d 34 34  |4:menuptr%!20=44|
00001ca0  3a 6d 65 6e 75 70 74 72  25 21 32 34 3d 30 0d 07  |:menuptr%!24=0..|
00001cb0  76 24 6d 65 6e 75 70 74  72 25 2b 3d 32 38 3a 6d  |v$menuptr%+=28:m|
00001cc0  61 78 78 25 3d a9 6d 65  6e 75 74 69 74 6c 65 24  |axx%=.menutitle$|
00001cd0  2d 32 0d 07 80 05 f5 0d  07 8a 13 69 74 65 6d 24  |-2.........item$|
00001ce0  3d a4 70 61 72 28 22 2c  22 29 0d 07 94 12 e7 20  |=.par(",")..... |
00001cf0  69 74 65 6d 24 3d 22 2b  2b 22 20 8c 0d 07 9e 08  |item$="++" .....|
00001d00  72 25 3d 30 0d 07 a8 10  6d 65 6e 75 24 3d 6d 65  |r%=0....menu$=me|
00001d10  6e 75 32 24 0d 07 b2 05  cc 0d 07 bc 13 e7 20 69  |nu2$.......... i|
00001d20  74 65 6d 24 3d 22 2b 2b  2b 22 20 8c 0d 07 c6 08  |tem$="+++" .....|
00001d30  72 25 3d 30 0d 07 d0 10  6d 65 6e 75 25 3d 6d 65  |r%=0....menu%=me|
00001d40  6e 75 33 24 0d 07 da 05  cc 0d 07 e4 15 f2 6d 65  |nu3$..........me|
00001d50  6e 75 5f 69 74 65 6d 28  69 74 65 6d 24 29 0d 07  |nu_item(item$)..|
00001d60  ee 05 cd 0d 07 f8 05 cd  0d 08 02 0e fd 20 69 74  |............. it|
00001d70  65 6d 24 3d 22 22 0d 08  0c 19 e7 20 6d 61 78 78  |em$=""..... maxx|
00001d80  25 3e 32 30 20 8c 20 6d  61 78 78 25 3d 32 30 0d  |%>20 . maxx%=20.|
00001d90  08 16 24 6d 25 3d 6d 65  6e 75 66 72 65 65 25 3a  |..$m%=menufree%:|
00001da0  6d 25 21 31 36 3d 28 6d  61 78 78 25 2a 38 2b 36  |m%!16=(maxx%*8+6|
00001db0  29 2a 32 0d 08 20 16 6d  65 6e 75 66 72 65 65 25  |)*2.. .menufree%|
00001dc0  3d 6d 65 6e 75 70 74 72  25 0d 08 2a 07 3d 6d 25  |=menuptr%..*.=m%|
00001dd0  0d 08 34 05 3a 0d 08 3e  16 dd f2 6d 65 6e 75 5f  |..4.:..>...menu_|
00001de0  69 74 65 6d 28 74 65 78  74 24 29 0d 08 48 33 e7  |item(text$)..H3.|
00001df0  20 74 65 78 74 24 3d 22  22 20 8c 20 6d 65 6e 75  | text$="" . menu|
00001e00  70 74 72 25 21 2d 32 34  3d 28 6d 65 6e 75 70 74  |ptr%!-24=(menupt|
00001e10  72 25 21 2d 32 34 29 84  20 26 38 30 3a e1 0d 08  |r%!-24). &80:...|
00001e20  52 32 e7 20 6d 65 6e 75  70 74 72 25 2b 32 34 20  |R2. menuptr%+24 |
00001e30  3e 6d 65 6e 75 65 6e 64  25 20 8c 20 85 20 31 2c  |>menuend% . . 1,|
00001e40  22 4d 65 6e 75 20 41 72  65 61 20 46 75 6c 6c 22  |"Menu Area Full"|
00001e50  0d 08 5c 11 ea 20 72 25  2c 66 6c 61 67 25 2c 56  |..\.. r%,flag%,V|
00001e60  25 0d 08 66 0d 66 6c 61  67 25 3d 26 30 30 0d 08  |%..f.flag%=&00..|
00001e70  70 12 72 25 3d a7 74 65  78 74 24 2c 22 3e 22 29  |p.r%=.text$,">")|
00001e80  0d 08 7a 0c e7 20 72 25  3e 30 20 8c 0d 08 84 19  |..z.. r%>0 .....|
00001e90  73 75 62 70 74 72 25 3d  a0 c1 74 65 78 74 24 2c  |subptr%=..text$,|
00001ea0  72 25 2b 31 29 0d 08 8e  16 74 65 78 74 24 3d c0  |r%+1)....text$=.|
00001eb0  74 65 78 74 24 2c 72 25  2d 31 29 0d 08 98 05 cc  |text$,r%-1).....|
00001ec0  0d 08 a2 13 72 72 25 3d  a7 74 65 78 74 24 2c 22  |....rr%=.text$,"|
00001ed0  7d 22 29 0d 08 ac 0d e7  20 72 72 25 3e 30 20 8c  |}")..... rr%>0 .|
00001ee0  0d 08 b6 1a 73 75 62 70  74 72 25 3d a0 c1 74 65  |....subptr%=..te|
00001ef0  78 74 24 2c 72 72 25 2b  31 29 0d 08 c0 16 74 65  |xt$,rr%+1)....te|
00001f00  78 74 24 3d c0 74 65 78  74 2c 72 72 25 2d 31 29  |xt$=.text,rr%-1)|
00001f10  0d 08 ca 0e 66 6c 61 67  25 2b 3d 26 30 38 0d 08  |....flag%+=&08..|
00001f20  d4 05 cc 0d 08 de 0e 73  75 62 70 74 72 25 3d 2d  |.......subptr%=-|
00001f30  31 0d 08 e8 05 cd 0d 08  f2 05 cd 0d 08 fc 37 e7  |1.............7.|
00001f40  20 c2 74 65 78 74 24 2c  31 29 3d 22 23 22 20 8c  | .text$,1)="#" .|
00001f50  20 74 65 78 74 24 3d c0  74 65 78 74 24 2c a9 74  | text$=.text$,.t|
00001f60  65 78 74 24 2d 31 29 3a  66 6c 61 67 25 2b 3d 26  |ext$-1):flag%+=&|
00001f70  30 32 0d 09 06 37 e7 20  c2 74 65 78 74 24 2c 31  |02...7. .text$,1|
00001f80  29 3d 22 5c 22 20 8c 20  74 65 78 74 24 3d c0 74  |)="\" . text$=.t|
00001f90  65 78 74 24 2c a9 74 65  78 74 24 2d 31 29 3a 66  |ext$,.text$-1):f|
00001fa0  6c 61 67 25 2b 3d 26 30  31 0d 09 10 14 72 72 72  |lag%+=&01....rrr|
00001fb0  25 3d a7 74 65 78 74 24  2c 22 7c 22 29 0d 09 1a  |%=.text$,"|")...|
00001fc0  15 72 72 72 72 25 3d a7  74 65 78 74 24 2c 22 a4  |.rrrr%=.text$,".|
00001fd0  22 29 0d 09 24 18 e7 20  72 72 72 25 3d 30 20 80  |")..$.. rrr%=0 .|
00001fe0  20 72 72 72 72 25 3d 30  20 8c 0d 09 2e 19 6d 66  | rrrr%=0 .....mf|
00001ff0  67 25 3d 30 3c 3c 32 38  3a 6d 62 67 25 3d 37 3c  |g%=0<<28:mbg%=7<|
00002000  3c 32 34 0d 09 38 05 cc  0d 09 42 0d c8 8e 20 72  |<24..8....B... r|
00002010  72 72 25 20 ca 0d 09 4c  13 c9 20 30 3a 6d 66 67  |rr% ...L.. 0:mfg|
00002020  25 3d 30 20 3c 3c 32 38  0d 09 56 05 7f 0d 09 60  |%=0 <<28..V....`|
00002030  27 6d 66 67 25 3d 28 bb  28 c1 74 65 78 74 24 2c  |'mfg%=(.(.text$,|
00002040  72 72 72 25 2b 31 2c 32  29 29 20 83 20 31 36 29  |rrr%+1,2)) . 16)|
00002050  3c 3c 32 38 0d 09 6a 27  74 65 78 74 24 3d c0 74  |<<28..j'text$=.t|
00002060  65 78 74 24 2c 72 72 72  25 2d 31 29 2b c1 74 65  |ext$,rrr%-1)+.te|
00002070  78 74 24 2c 72 72 72 25  2b 33 29 0d 09 74 05 cb  |xt$,rrr%+3)..t..|
00002080  0d 09 7e 15 72 72 72 72  25 3d a7 74 65 78 74 24  |..~.rrrr%=.text$|
00002090  2c 22 a4 22 29 0d 09 88  0e c8 8e 20 72 72 72 72  |,".")...... rrrr|
000020a0  25 20 ca 0d 09 92 12 c9  20 30 3a 6d 62 67 25 3d  |% ...... 0:mbg%=|
000020b0  37 3c 3c 32 34 0d 09 9c  05 7f 0d 09 a6 28 6d 62  |7<<24........(mb|
000020c0  67 25 3d 28 bb 28 c1 74  65 78 74 24 2c 72 72 72  |g%=(.(.text$,rrr|
000020d0  72 25 2b 31 2c 32 29 29  20 83 20 31 36 29 3c 3c  |r%+1,2)) . 16)<<|
000020e0  32 34 0d 09 b0 29 74 65  78 74 24 3d c0 74 65 78  |24...)text$=.tex|
000020f0  74 24 2c 72 72 72 72 25  2d 31 29 2b c1 74 65 78  |t$,rrrr%-1)+.tex|
00002100  74 24 2c 72 72 72 72 25  2b 33 29 0d 09 ba 05 cb  |t$,rrrr%+3).....|
00002110  0d 09 c4 05 cd 0d 09 ce  14 6d 65 6e 75 70 74 72  |.........menuptr|
00002120  25 21 30 3d 66 6c 61 67  25 0d 09 d8 16 6d 65 6e  |%!0=flag%....men|
00002130  75 70 74 72 25 21 34 3d  73 75 62 70 74 72 25 0d  |uptr%!4=subptr%.|
00002140  09 e2 25 6d 65 6e 75 70  74 72 25 21 38 3d 6d 66  |..%menuptr%!8=mf|
00002150  67 25 2b 6d 62 67 25 2b  26 32 30 2b 62 6f 74 69  |g%+mbg%+&20+boti|
00002160  63 6f 6e 25 0d 09 ec 4c  e7 20 c2 74 65 78 74 24  |con%...L. .text$|
00002170  2c 31 29 3d 22 2f 22 20  8c 20 74 65 78 74 24 3d  |,1)="/" . text$=|
00002180  c0 74 65 78 74 24 2c a9  74 65 78 74 24 2d 31 29  |.text$,.text$-1)|
00002190  3a 6d 65 6e 75 70 74 72  25 21 38 3d 28 6d 65 6e  |:menuptr%!8=(men|
000021a0  75 70 74 72 25 21 38 20  84 20 31 3c 3c 32 32 29  |uptr%!8 . 1<<22)|
000021b0  0d 09 f6 15 e7 20 c0 74  65 78 74 24 2c 31 29 3d  |..... .text$,1)=|
000021c0  22 24 22 20 8c 0d 0a 00  12 21 6d 65 6e 75 70 74  |"$" .....!menupt|
000021d0  72 25 2b 3d 26 30 34 0d  0a 0a 13 6d 65 6e 75 70  |r%+=&04....menup|
000021e0  74 72 25 21 2b 3d 26 31  30 38 0d 0a 14 12 72 25  |tr%!+=&108....r%|
000021f0  3d a7 74 65 78 74 24 2c  22 28 22 29 0d 0a 1e 37  |=.text$,"(")...7|
00002200  e7 20 72 25 3e 30 20 8c  20 4c 25 3d bb c1 74 65  |. r%>0 . L%=..te|
00002210  78 74 24 2c 72 25 2b 31  29 3a 74 65 78 74 24 3d  |xt$,r%+1):text$=|
00002220  c0 74 65 78 74 24 2c 72  25 2d 31 29 8b 20 4c 25  |.text$,r%-1). L%|
00002230  3d 31 32 0d 0a 28 09 56  25 3d 2d 31 0d 0a 32 1a  |=12..(.V%=-1..2.|
00002240  6d 65 6e 75 70 74 72 25  21 31 32 3d a0 c1 74 65  |menuptr%!12=..te|
00002250  78 74 24 2c 32 29 0d 0a  3c 12 6d 65 6e 75 70 74  |xt$,2)..<.menupt|
00002260  72 25 21 31 36 3d 2d 31  0d 0a 46 12 6d 65 6e 75  |r%!16=-1..F.menu|
00002270  70 74 72 25 21 32 30 3d  4c 25 0d 0a 50 12 74 65  |ptr%!20=L%..P.te|
00002280  78 74 24 3d c4 4c 25 2c  22 20 22 29 0d 0a 5a 05  |xt$=.L%," ")..Z.|
00002290  cc 0d 0a 64 12 e7 20 a9  74 65 78 74 24 3c 3d 31  |...d.. .text$<=1|
000022a0  32 20 8c 0d 0a 6e 18 24  28 6d 65 6e 75 70 74 72  |2 ...n.$(menuptr|
000022b0  25 2b 31 32 29 3d 74 65  78 74 24 0d 0a 78 05 cc  |%+12)=text$..x..|
000022c0  0d 0a 82 25 52 25 3d a4  77 6f 72 6b 73 70 61 63  |...%R%=.workspac|
000022d0  65 28 a9 74 65 78 74 24  2b 31 29 3a 24 52 25 3d  |e(.text$+1):$R%=|
000022e0  74 65 78 74 24 0d 0a 8c  36 6d 65 6e 75 70 74 72  |text$...6menuptr|
000022f0  25 21 31 32 3d 52 25 3a  6d 65 6e 75 70 74 72 25  |%!12=R%:menuptr%|
00002300  21 31 36 3d 2d 31 3a 6d  65 6e 75 70 74 72 25 21  |!16=-1:menuptr%!|
00002310  32 30 3d a9 74 65 78 74  24 2b 31 0d 0a 96 20 6d  |20=.text$+1... m|
00002320  65 6e 75 70 74 72 25 21  38 3d 6d 65 6e 75 70 74  |enuptr%!8=menupt|
00002330  72 25 21 38 20 84 20 26  31 30 30 0d 0a a0 05 cd  |r%!8 . &100.....|
00002340  0d 0a aa 05 cd 0d 0a b4  21 e7 20 a9 74 65 78 74  |........!. .text|
00002350  24 3e 6d 61 78 78 25 20  8c 20 6d 61 78 78 25 3d  |$>maxx% . maxx%=|
00002360  a9 74 65 78 74 24 0d 0a  be 10 6d 65 6e 75 70 74  |.text$....menupt|
00002370  72 25 2b 3d 32 34 0d 0a  c8 05 e1 0d 0a d2 05 3a  |r%+=24.........:|
00002380  0d 0a dc 0f dd a4 70 61  72 28 73 65 70 24 29 0d  |......par(sep$).|
00002390  0a e6 25 72 31 25 3d 72  25 2b 31 3a 72 25 3d a7  |..%r1%=r%+1:r%=.|
000023a0  6d 65 6e 75 24 2b 73 65  70 24 2c 73 65 70 24 2c  |menu$+sep$,sep$,|
000023b0  72 31 25 29 0d 0a f0 17  3d c1 6d 65 6e 75 24 2c  |r1%)....=.menu$,|
000023c0  72 31 25 2c 72 25 2d 72  31 25 29 0d 0a fa 05 3a  |r1%,r%-r1%)....:|
000023d0  0d 0b 04 13 dd a4 77 6f  72 6b 73 70 61 63 65 28  |......workspace(|
000023e0  4c 25 29 0d 0b 0e 33 e7  20 63 75 72 77 73 25 2b  |L%)...3. curws%+|
000023f0  4c 25 3e 6d 61 78 77 73  25 20 8c 20 85 20 31 2c  |L%>maxws% . . 1,|
00002400  22 4e 6f 20 4d 6f 72 65  20 42 75 66 66 65 72 20  |"No More Buffer |
00002410  53 70 61 63 65 22 0d 0b  18 19 63 75 72 77 73 25  |Space"....curws%|
00002420  2b 3d 4c 25 3a 3d 63 75  72 77 73 25 2d 4c 25 0d  |+=L%:=curws%-L%.|
00002430  0b 22 05 3a 0d 0b 2c 0b  dd f2 65 72 72 6f 72 0d  |.".:..,...error.|
00002440  0b 36 07 ef 20 33 0d 0b  40 12 e7 20 65 72 72 6f  |.6.. 3..@.. erro|
00002450  72 25 3d 32 20 8c 20 e0  0d 0b 4a 2c e7 20 65 72  |r%=2 . ...J,. er|
00002460  72 6f 72 25 3d 31 20 8c  20 65 72 72 6f 72 25 3d  |ror%=1 . error%=|
00002470  32 3a f2 65 72 72 6f 72  32 3a 65 72 72 6f 72 25  |2:.error2:error%|
00002480  3d 30 3a e1 0d 0b 54 0c  65 72 72 6f 72 25 3d 31  |=0:...T.error%=1|
00002490  0d 0b 5e 68 c8 99 20 22  57 69 6d 70 45 78 74 5f  |..^h.. "WimpExt_|
000024a0  43 6f 6e 74 72 6f 6c 49  6d 6d 65 64 69 61 74 65  |ControlImmediate|
000024b0  22 2c 2c 32 2c 22 45 72  72 6f 72 20 46 72 6f 6d  |",,2,"Error From|
000024c0  20 42 61 6e 6b 20 53 79  73 74 65 6d 22 2c f6 24  | Bank System",.$|
000024d0  2b 22 20 28 40 20 22 2b  c3 28 9e 29 2b 22 29 22  |+" (@ "+.(.)+")"|
000024e0  2c 62 75 74 5f 6f 6b 71  75 69 74 25 2c 30 20 b8  |,but_okquit%,0 .|
000024f0  20 62 75 74 74 6f 6e 25  0d 0b 68 0c 65 72 72 6f  | button%..h.erro|
00002500  72 25 3d 30 0d 0b 72 14  e7 20 62 75 74 74 6f 6e  |r%=0..r.. button|
00002510  25 3c 3e 33 20 8c 20 e1  0d 0b 7c 05 e0 0d 0b 86  |%<>3 . ...|.....|
00002520  05 3a 0d 0b 90 0c dd f2  65 72 72 6f 72 32 0d 0b  |.:......error2..|
00002530  9a 08 ea 20 41 24 0d 0b  a4 20 41 24 3d f6 24 3a  |... A$... A$=.$:|
00002540  e7 20 c2 41 24 2c 31 29  3d 22 2e 22 20 8c 20 41  |. .A$,1)="." . A|
00002550  24 3d c0 41 24 29 0d 0b  ae 36 21 71 25 3d 9f 3a  |$=.A$)...6!q%=.:|
00002560  24 28 71 25 2b 34 29 3d  41 24 2b 22 2e 20 43 6c  |$(q%+4)=A$+". Cl|
00002570  69 63 6b 20 43 41 4e 43  45 4c 20 74 6f 20 71 75  |ick CANCEL to qu|
00002580  69 74 20 70 72 6f 67 72  61 6d 2e 22 0d 0b b8 4f  |it program."...O|
00002590  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
000025a0  72 72 6f 72 22 2c 71 25  2c 25 31 30 30 31 31 2c  |rror",q%,%10011,|
000025b0  22 53 65 72 69 6f 75 73  20 45 72 72 6f 72 20 46  |"Serious Error F|
000025c0  72 6f 6d 20 42 61 6e 6b  20 53 79 73 74 65 6d 22  |rom Bank System"|
000025d0  20 b8 20 2c 62 75 74 74  6f 6e 25 0d 0b c2 14 e7  | . ,button%.....|
000025e0  20 62 75 74 74 6f 6e 25  3c 3e 32 20 8c 20 e1 0d  | button%<>2 . ..|
000025f0  0b cc 05 e0 0d 0b d6 05  3a 0d 0b e0 32 dd f2 6d  |........:...2..m|
00002600  6f 75 73 65 28 6d 6f 75  73 65 78 25 2c 6d 6f 75  |ouse(mousex%,mou|
00002610  73 65 79 25 2c 62 75 74  74 6f 6e 25 2c 77 69 6e  |sey%,button%,win|
00002620  64 6f 77 25 2c 69 63 6f  6e 25 29 0d 0b ea 10 c8  |dow%,icon%).....|
00002630  8e 20 77 69 6e 64 6f 77  25 20 ca 0d 0b f4 09 c9  |. window% ......|
00002640  20 2d 32 3a 0d 0b fe 10  c8 8e 20 62 75 74 74 6f  | -2:...... butto|
00002650  6e 25 20 ca 0d 0c 08 1b  c9 20 31 2c 34 3a f2 6f  |n% ...... 1,4:.o|
00002660  70 65 6e 28 6d 61 69 6e  5f 62 61 63 6b 25 29 0d  |pen(main_back%).|
00002670  0c 12 60 c9 20 32 3a f2  63 6c 6f 73 65 5f 61 6c  |..`. 2:.close_al|
00002680  6c 3a c8 99 20 22 57 69  6d 70 45 78 74 5f 43 72  |l:.. "WimpExt_Cr|
00002690  65 61 74 65 4d 65 6e 75  22 2c 2c 69 63 6f 6e 6d  |eateMenu",,iconm|
000026a0  65 6e 75 25 2c 6d 6f 75  73 65 78 25 2d 36 34 2c  |enu%,mousex%-64,|
000026b0  39 36 2b 28 33 2a 34 34  29 3a 73 65 6c 65 63 74  |96+(3*44):select|
000026c0  6d 65 6e 75 25 3d 69 63  6f 6e 6d 65 6e 75 25 0d  |menu%=iconmenu%.|
000026d0  0c 1c 05 cb 0d 0c 26 12  c9 20 6f 70 74 69 6f 6e  |......&.. option|
000026e0  5f 62 61 63 6b 25 0d 0c  30 1c e7 20 62 75 74 74  |_back%..0.. butt|
000026f0  6f 6e 25 3d 34 20 8c 20  c8 8e 20 69 63 6f 6e 25  |on%=4 . .. icon%|
00002700  20 ca 0d 0c 3a 1c c9 20  31 3a f2 63 6c 6f 73 65  | ...:.. 1:.close|
00002710  28 6f 70 74 69 6f 6e 5f  62 61 63 6b 25 29 0d 0c  |(option_back%)..|
00002720  44 31 e7 20 68 6f 74 6b  65 79 73 24 3d 22 59 65  |D1. hotkeys$="Ye|
00002730  73 22 20 8c 20 f2 6c 6f  6e 67 5f 6d 65 6e 75 73  |s" . .long_menus|
00002740  20 8b 20 f2 73 68 6f 72  74 5f 6d 65 6e 75 73 0d  | . .short_menus.|
00002750  0c 4e 13 6f 70 74 69 6f  6e 73 5f 6f 70 65 6e 25  |.N.options_open%|
00002760  3d a3 0d 0c 58 14 e7 20  6d 61 69 6e 5f 6f 70 65  |=...X.. main_ope|
00002770  6e 25 3d 31 20 8c 0d 0c  62 15 f2 6f 70 65 6e 28  |n%=1 ...b..open(|
00002780  6d 61 69 6e 5f 62 61 63  6b 25 29 0d 0c 6c 3a 61  |main_back%)..l:a|
00002790  6c 72 65 61 64 79 25 3d  2d 31 3a 73 65 6c 65 63  |lready%=-1:selec|
000027a0  74 25 3d 2d 31 3a 6f 6c  64 5f 73 68 61 64 65 64  |t%=-1:old_shaded|
000027b0  25 3d a3 3a 73 68 61 64  65 64 25 3d b9 3a f2 72  |%=.:shaded%=.:.r|
000027c0  65 64 72 61 77 0d 0c 76  05 cd 0d 0c 80 2a c9 20  |edraw..v.....*. |
000027d0  32 3a f2 73 61 76 65 5f  6f 70 74 69 6f 6e 73 3a  |2:.save_options:|
000027e0  f2 63 6c 6f 73 65 28 6f  70 74 69 6f 6e 5f 62 61  |.close(option_ba|
000027f0  63 6b 25 29 0d 0c 8a 31  e7 20 68 6f 74 6b 65 79  |ck%)...1. hotkey|
00002800  73 24 3d 22 59 65 73 22  20 8c 20 f2 6c 6f 6e 67  |s$="Yes" . .long|
00002810  5f 6d 65 6e 75 73 20 8b  20 f2 73 68 6f 72 74 5f  |_menus . .short_|
00002820  6d 65 6e 75 73 0d 0c 94  13 6f 70 74 69 6f 6e 73  |menus....options|
00002830  5f 6f 70 65 6e 25 3d a3  0d 0c 9e 14 e7 20 6d 61  |_open%=...... ma|
00002840  69 6e 5f 6f 70 65 6e 25  3d 31 20 8c 0d 0c a8 15  |in_open%=1 .....|
00002850  f2 6f 70 65 6e 28 6d 61  69 6e 5f 62 61 63 6b 25  |.open(main_back%|
00002860  29 0d 0c b2 3a 61 6c 72  65 61 64 79 25 3d 2d 31  |)...:already%=-1|
00002870  3a 73 65 6c 65 63 74 25  3d 2d 31 3a 6f 6c 64 5f  |:select%=-1:old_|
00002880  73 68 61 64 65 64 25 3d  a3 3a 73 68 61 64 65 64  |shaded%=.:shaded|
00002890  25 3d b9 3a f2 72 65 64  72 61 77 0d 0c bc 05 cd  |%=.:.redraw.....|
000028a0  0d 0c c6 2d c9 20 33 3a  f2 73 65 74 5f 64 65 66  |...-. 3:.set_def|
000028b0  61 75 6c 74 73 3a f2 72  65 73 74 6f 72 65 5f 6f  |aults:.restore_o|
000028c0  70 74 69 6f 6e 73 5f 77  69 6e 64 6f 77 0d 0c d0  |ptions_window...|
000028d0  05 cb 0d 0c da 1c e7 20  62 75 74 74 6f 6e 25 3d  |....... button%=|
000028e0  31 20 8c 20 c8 8e 20 69  63 6f 6e 25 20 ca 0d 0c  |1 . .. icon% ...|
000028f0  e4 35 c9 20 31 3a e7 20  68 6f 74 6b 65 79 73 24  |.5. 1:. hotkeys$|
00002900  3d 22 59 65 73 22 20 8c  20 f2 6c 6f 6e 67 5f 6d  |="Yes" . .long_m|
00002910  65 6e 75 73 20 8b 20 f2  73 68 6f 72 74 5f 6d 65  |enus . .short_me|
00002920  6e 75 73 0d 0c ee 13 6f  70 74 69 6f 6e 73 5f 6f  |nus....options_o|
00002930  70 65 6e 25 3d a3 0d 0c  f8 14 e7 20 6d 61 69 6e  |pen%=...... main|
00002940  5f 6f 70 65 6e 25 3d 31  20 8c 0d 0d 02 3a 61 6c  |_open%=1 ....:al|
00002950  72 65 61 64 79 25 3d 2d  31 3a 73 65 6c 65 63 74  |ready%=-1:select|
00002960  25 3d 2d 31 3a 6f 6c 64  5f 73 68 61 64 65 64 25  |%=-1:old_shaded%|
00002970  3d a3 3a 73 68 61 64 65  64 25 3d b9 3a f2 72 65  |=.:shaded%=.:.re|
00002980  64 72 61 77 0d 0d 0c 05  cd 0d 0d 16 15 c9 20 32  |draw.......... 2|
00002990  3a f2 73 61 76 65 5f 6f  70 74 69 6f 6e 73 0d 0d  |:.save_options..|
000029a0  20 31 e7 20 68 6f 74 6b  65 79 73 24 3d 22 59 65  | 1. hotkeys$="Ye|
000029b0  73 22 20 8c 20 f2 6c 6f  6e 67 5f 6d 65 6e 75 73  |s" . .long_menus|
000029c0  20 8b 20 f2 73 68 6f 72  74 5f 6d 65 6e 75 73 0d  | . .short_menus.|
000029d0  0d 2a 13 6f 70 74 69 6f  6e 73 5f 6f 70 65 6e 25  |.*.options_open%|
000029e0  3d a3 0d 0d 34 14 e7 20  6d 61 69 6e 5f 6f 70 65  |=...4.. main_ope|
000029f0  6e 25 3d 31 20 8c 0d 0d  3e 3a 61 6c 72 65 61 64  |n%=1 ...>:alread|
00002a00  79 25 3d 2d 31 3a 73 65  6c 65 63 74 25 3d 2d 31  |y%=-1:select%=-1|
00002a10  3a 6f 6c 64 5f 73 68 61  64 65 64 25 3d a3 3a 73  |:old_shaded%=.:s|
00002a20  68 61 64 65 64 25 3d b9  3a f2 72 65 64 72 61 77  |haded%=.:.redraw|
00002a30  0d 0d 48 05 cd 0d 0d 52  15 c9 20 33 3a f2 73 65  |..H....R.. 3:.se|
00002a40  74 5f 64 65 66 61 75 6c  74 73 0d 0d 5c 05 cb 0d  |t_defaults..\...|
00002a50  0d 66 0e c9 20 6f 70 74  69 6f 6e 73 25 0d 0d 70  |.f.. options%..p|
00002a60  23 e7 20 28 62 75 74 74  6f 6e 25 20 80 20 35 29  |#. (button% . 5)|
00002a70  3c 3e 30 20 8c 20 c8 8e  20 69 63 6f 6e 25 20 ca  |<>0 . .. icon% .|
00002a80  0d 0d 7a 3f c9 20 38 3a  e7 20 61 75 74 6f 5f 6c  |..z?. 8:. auto_l|
00002a90  6f 61 64 24 3d 22 59 65  73 22 20 8c 20 61 75 74  |oad$="Yes" . aut|
00002aa0  6f 5f 6c 6f 61 64 24 3d  22 4e 6f 22 20 8b 20 61  |o_load$="No" . a|
00002ab0  75 74 6f 5f 6c 6f 61 64  24 3d 22 59 65 73 22 0d  |uto_load$="Yes".|
00002ac0  0d 84 3c c9 20 39 3a e7  20 70 61 73 73 77 6f 72  |..<. 9:. passwor|
00002ad0  64 24 3d 22 59 65 73 22  20 8c 20 70 61 73 73 77  |d$="Yes" . passw|
00002ae0  6f 72 64 24 3d 22 4e 6f  22 20 8b 20 70 61 73 73  |ord$="No" . pass|
00002af0  77 6f 72 64 24 3d 22 59  65 73 22 0d 0d 8e 43 c9  |word$="Yes"...C.|
00002b00  20 31 34 3a e7 20 68 79  70 65 72 5f 68 65 6c 70  | 14:. hyper_help|
00002b10  24 3d 22 59 65 73 22 20  8c 20 68 79 70 65 72 5f  |$="Yes" . hyper_|
00002b20  68 65 6c 70 24 3d 22 4e  6f 22 20 8b 20 68 79 70  |help$="No" . hyp|
00002b30  65 72 5f 68 65 6c 70 24  3d 22 59 65 73 22 0d 0d  |er_help$="Yes"..|
00002b40  98 1b c9 20 31 35 3a 68  79 70 65 72 5f 74 79 70  |... 15:hyper_typ|
00002b50  65 24 3d 22 4c 6f 6e 67  22 0d 0d a2 1c c9 20 31  |e$="Long"..... 1|
00002b60  36 3a 68 79 70 65 72 5f  74 79 70 65 24 3d 22 53  |6:hyper_type$="S|
00002b70  68 6f 72 74 22 0d 0d ac  3a c9 20 31 37 3a e7 20  |hort"...:. 17:. |
00002b80  68 6f 74 6b 65 79 73 24  3d 22 59 65 73 22 20 8c  |hotkeys$="Yes" .|
00002b90  20 68 6f 74 6b 65 79 73  24 3d 22 4e 6f 22 20 8b  | hotkeys$="No" .|
00002ba0  20 68 6f 74 6b 65 79 73  24 3d 22 59 65 73 22 0d  | hotkeys$="Yes".|
00002bb0  0d b6 18 c9 20 32 30 3a  6f 75 74 6c 69 6e 65 66  |.... 20:outlinef|
00002bc0  6f 6e 74 73 25 3d 31 0d  0d c0 18 c9 20 32 31 3a  |onts%=1..... 21:|
00002bd0  6f 75 74 6c 69 6e 65 66  6f 6e 74 73 25 3d 30 0d  |outlinefonts%=0.|
00002be0  0d ca 1b c9 20 32 34 3a  62 72 61 63 6b 65 74 73  |.... 24:brackets|
00002bf0  25 3d b9 3a 72 65 64 25  3d a3 0d 0d d4 1b c9 20  |%=.:red%=...... |
00002c00  32 35 3a 62 72 61 63 6b  65 74 73 25 3d a3 3a 72  |25:brackets%=.:r|
00002c10  65 64 25 3d b9 0d 0d de  1b c9 20 32 36 3a 62 72  |ed%=...... 26:br|
00002c20  61 63 6b 65 74 73 25 3d  b9 3a 72 65 64 25 3d b9  |ackets%=.:red%=.|
00002c30  0d 0d e8 05 cb 0d 0d f2  13 c9 20 66 69 6c 65 5f  |.......... file_|
00002c40  73 61 76 65 62 6f 78 25  0d 0d fc 23 e7 20 28 62  |savebox%...#. (b|
00002c50  75 74 74 6f 6e 25 20 80  20 35 29 3c 3e 30 20 8c  |utton% . 5)<>0 .|
00002c60  20 c8 8e 20 69 63 6f 6e  25 20 ca 0d 0e 06 5b c9  | .. icon% ....[.|
00002c70  20 30 3a 73 61 76 65 74  79 70 65 24 3d 22 45 39  | 0:savetype$="E9|
00002c80  38 22 3a c8 99 20 22 57  69 6d 70 45 78 74 5f 44  |8":.. "WimpExt_D|
00002c90  72 61 67 49 63 6f 6e 22  2c 25 31 30 30 30 30 30  |ragIcon",%100000|
00002ca0  31 30 31 2c 73 70 72 69  74 65 25 2c 66 69 6c 65  |101,sprite%,file|
00002cb0  5f 73 61 76 65 62 6f 78  25 2c 30 2c 22 66 69 6c  |_savebox%,0,"fil|
00002cc0  65 5f 65 39 38 22 0d 0e  10 22 c9 20 32 3a 73 61  |e_e98"...". 2:sa|
00002cd0  76 65 74 79 70 65 24 3d  22 45 39 38 22 3a f2 71  |vetype$="E98":.q|
00002ce0  75 69 63 6b 73 61 76 65  0d 0e 1a 05 cb 0d 0e 24  |uicksave.......$|
00002cf0  13 c9 20 74 65 78 74 5f  73 61 76 65 62 6f 78 25  |.. text_savebox%|
00002d00  0d 0e 2e 23 e7 20 28 62  75 74 74 6f 6e 25 20 80  |...#. (button% .|
00002d10  20 35 29 3c 3e 30 20 8c  20 c8 8e 20 69 63 6f 6e  | 5)<>0 . .. icon|
00002d20  25 20 ca 0d 0e 38 5b c9  20 30 3a 73 61 76 65 74  |% ...8[. 0:savet|
00002d30  79 70 65 24 3d 22 46 46  46 22 3a c8 99 20 22 57  |ype$="FFF":.. "W|
00002d40  69 6d 70 45 78 74 5f 44  72 61 67 49 63 6f 6e 22  |impExt_DragIcon"|
00002d50  2c 25 31 30 30 30 30 30  31 30 31 2c 73 70 72 69  |,%100000101,spri|
00002d60  74 65 25 2c 74 65 78 74  5f 73 61 76 65 62 6f 78  |te%,text_savebox|
00002d70  25 2c 30 2c 22 66 69 6c  65 5f 66 66 66 22 0d 0e  |%,0,"file_fff"..|
00002d80  42 22 c9 20 32 3a 73 61  76 65 74 79 70 65 24 3d  |B". 2:savetype$=|
00002d90  22 46 46 46 22 3a f2 71  75 69 63 6b 73 61 76 65  |"FFF":.quicksave|
00002da0  0d 0e 4c 05 cb 0d 0e 56  0e c9 20 73 63 72 6f 6c  |..L....V.. scrol|
00002db0  6c 79 25 0d 0e 60 10 c8  8e 20 62 75 74 74 6f 6e  |ly%..`... button|
00002dc0  25 20 ca 0d 0e 6a 34 c9  20 31 2c 34 3a c8 99 20  |% ...j4. 1,4:.. |
00002dd0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00002de0  49 6e 66 6f 22 2c 2c 71  25 3a f2 73 65 6c 65 63  |Info",,q%:.selec|
00002df0  74 28 71 25 21 34 29 0d  0e 74 61 c9 20 32 3a f2  |t(q%!4)..ta. 2:.|
00002e00  63 6c 6f 73 65 5f 61 6c  6c 3a c8 99 20 22 57 69  |close_all:.. "Wi|
00002e10  6d 70 45 78 74 5f 43 72  65 61 74 65 4d 65 6e 75  |mpExt_CreateMenu|
00002e20  22 2c 2c 6d 61 69 6e 6d  65 6e 75 25 2c 6d 6f 75  |",,mainmenu%,mou|
00002e30  73 65 78 25 2d 34 38 2c  6d 6f 75 73 65 79 25 2b  |sex%-48,mousey%+|
00002e40  31 30 3a 73 65 6c 65 63  74 6d 65 6e 75 25 3d 6d  |10:selectmenu%=m|
00002e50  61 69 6e 6d 65 6e 75 25  0d 0e 7e 05 cb 0d 0e 88  |ainmenu%..~.....|
00002e60  0d c9 20 63 72 65 64 69  74 25 0d 0e 92 10 c8 8e  |.. credit%......|
00002e70  20 62 75 74 74 6f 6e 25  20 ca 0d 0e 9c 07 c9 20  | button% ...... |
00002e80  34 0d 0e a6 0e c8 8e 20  69 63 6f 6e 25 20 ca 0d  |4...... icon% ..|
00002e90  0e b0 23 c9 20 30 3a f2  6e 65 77 5f 64 61 74 65  |..#. 0:.new_date|
00002ea0  28 2d 31 2c 63 72 65 64  69 74 25 2c 64 61 79 32  |(-1,credit%,day2|
00002eb0  25 29 0d 0e ba 22 c9 20  31 3a f2 6e 65 77 5f 64  |%)...". 1:.new_d|
00002ec0  61 74 65 28 31 2c 63 72  65 64 69 74 25 2c 64 61  |ate(1,credit%,da|
00002ed0  79 32 25 29 0d 0e c4 2b  c9 20 31 32 3a f2 63 68  |y2%)...+. 12:.ch|
00002ee0  65 63 6b 28 64 61 79 32  25 2c 31 2c 63 72 65 64  |eck(day2%,1,cred|
00002ef0  69 74 25 2c 42 25 29 3a  f2 72 65 64 72 61 77 0d  |it%,B%):.redraw.|
00002f00  0e ce 18 c9 20 31 33 3a  f2 63 6c 6f 73 65 28 63  |.... 13:.close(c|
00002f10  72 65 64 69 74 25 29 0d  0e d8 05 cb 0d 0e e2 07  |redit%).........|
00002f20  c9 20 31 0d 0e ec 0e c8  8e 20 69 63 6f 6e 25 20  |. 1...... icon% |
00002f30  ca 0d 0e f6 22 c9 20 30  3a f2 6e 65 77 5f 64 61  |....". 0:.new_da|
00002f40  74 65 28 31 2c 63 72 65  64 69 74 25 2c 64 61 79  |te(1,credit%,day|
00002f50  32 25 29 0d 0f 00 23 c9  20 31 3a f2 6e 65 77 5f  |2%)...#. 1:.new_|
00002f60  64 61 74 65 28 2d 31 2c  63 72 65 64 69 74 25 2c  |date(-1,credit%,|
00002f70  64 61 79 32 25 29 0d 0f  0a 2b c9 20 31 32 3a f2  |day2%)...+. 12:.|
00002f80  63 68 65 63 6b 28 64 61  79 32 25 2c 31 2c 63 72  |check(day2%,1,cr|
00002f90  65 64 69 74 25 2c 42 25  29 3a f2 72 65 64 72 61  |edit%,B%):.redra|
00002fa0  77 0d 0f 14 18 c9 20 31  33 3a f2 63 6c 6f 73 65  |w..... 13:.close|
00002fb0  28 63 72 65 64 69 74 25  29 0d 0f 1e 05 cb 0d 0f  |(credit%).......|
00002fc0  28 05 cb 0d 0f 32 0c c9  20 64 65 62 69 74 25 0d  |(....2.. debit%.|
00002fd0  0f 3c 10 c8 8e 20 62 75  74 74 6f 6e 25 20 ca 0d  |.<... button% ..|
00002fe0  0f 46 07 c9 20 34 0d 0f  50 0e c8 8e 20 69 63 6f  |.F.. 4..P... ico|
00002ff0  6e 25 20 ca 0d 0f 5a 22  c9 20 30 3a f2 6e 65 77  |n% ...Z". 0:.new|
00003000  5f 64 61 74 65 28 2d 31  2c 64 65 62 69 74 25 2c  |_date(-1,debit%,|
00003010  64 61 79 31 25 29 0d 0f  64 21 c9 20 31 3a f2 6e  |day1%)..d!. 1:.n|
00003020  65 77 5f 64 61 74 65 28  31 2c 64 65 62 69 74 25  |ew_date(1,debit%|
00003030  2c 64 61 79 31 25 29 0d  0f 6e 2b c9 20 31 32 3a  |,day1%)..n+. 12:|
00003040  f2 63 68 65 63 6b 28 64  61 79 31 25 2c 2d 31 2c  |.check(day1%,-1,|
00003050  64 65 62 69 74 25 2c 42  25 29 3a f2 72 65 64 72  |debit%,B%):.redr|
00003060  61 77 0d 0f 78 17 c9 20  31 33 3a f2 63 6c 6f 73  |aw..x.. 13:.clos|
00003070  65 28 64 65 62 69 74 25  29 0d 0f 82 05 cb 0d 0f  |e(debit%).......|
00003080  8c 07 c9 20 31 0d 0f 96  0e c8 8e 20 69 63 6f 6e  |... 1...... icon|
00003090  25 20 ca 0d 0f a0 21 c9  20 30 3a f2 6e 65 77 5f  |% ....!. 0:.new_|
000030a0  64 61 74 65 28 31 2c 64  65 62 69 74 25 2c 64 61  |date(1,debit%,da|
000030b0  79 31 25 29 0d 0f aa 22  c9 20 31 3a f2 6e 65 77  |y1%)...". 1:.new|
000030c0  5f 64 61 74 65 28 2d 31  2c 64 65 62 69 74 25 2c  |_date(-1,debit%,|
000030d0  64 61 79 31 25 29 0d 0f  b4 2b c9 20 31 32 3a f2  |day1%)...+. 12:.|
000030e0  63 68 65 63 6b 28 64 61  79 31 25 2c 2d 31 2c 64  |check(day1%,-1,d|
000030f0  65 62 69 74 25 2c 42 25  29 3a f2 72 65 64 72 61  |ebit%,B%):.redra|
00003100  77 0d 0f be 17 c9 20 31  33 3a f2 63 6c 6f 73 65  |w..... 13:.close|
00003110  28 64 65 62 69 74 25 29  0d 0f c8 05 cb 0d 0f d2  |(debit%)........|
00003120  05 cb 0d 0f dc 0c c9 20  61 6d 65 6e 64 25 0d 0f  |....... amend%..|
00003130  e6 10 c8 8e 20 62 75 74  74 6f 6e 25 20 ca 0d 0f  |.... button% ...|
00003140  f0 07 c9 20 34 0d 0f fa  0e c8 8e 20 69 63 6f 6e  |... 4...... icon|
00003150  25 20 ca 0d 10 04 22 c9  20 30 3a f2 6e 65 77 5f  |% ....". 0:.new_|
00003160  64 61 74 65 28 2d 31 2c  61 6d 65 6e 64 25 2c 64  |date(-1,amend%,d|
00003170  61 79 34 25 29 0d 10 0e  21 c9 20 31 3a f2 6e 65  |ay4%)...!. 1:.ne|
00003180  77 5f 64 61 74 65 28 31  2c 61 6d 65 6e 64 25 2c  |w_date(1,amend%,|
00003190  64 61 79 34 25 29 0d 10  18 2d c9 20 31 32 3a f2  |day4%)...-. 12:.|
000031a0  63 68 65 63 6b 28 64 61  79 34 25 2c 73 69 67 6e  |check(day4%,sign|
000031b0  25 2c 61 6d 65 6e 64 25  2c 34 29 3a f2 72 65 64  |%,amend%,4):.red|
000031c0  72 61 77 0d 10 22 17 c9  20 31 33 3a f2 63 6c 6f  |raw..".. 13:.clo|
000031d0  73 65 28 61 6d 65 6e 64  25 29 0d 10 2c 05 cb 0d  |se(amend%)..,...|
000031e0  10 36 07 c9 20 31 0d 10  40 0e c8 8e 20 69 63 6f  |.6.. 1..@... ico|
000031f0  6e 25 20 ca 0d 10 4a 21  c9 20 30 3a f2 6e 65 77  |n% ...J!. 0:.new|
00003200  5f 64 61 74 65 28 31 2c  61 6d 65 6e 64 25 2c 64  |_date(1,amend%,d|
00003210  61 79 34 25 29 0d 10 54  22 c9 20 31 3a f2 6e 65  |ay4%)..T". 1:.ne|
00003220  77 5f 64 61 74 65 28 2d  31 2c 61 6d 65 6e 64 25  |w_date(-1,amend%|
00003230  2c 64 61 79 34 25 29 0d  10 5e 2d c9 20 31 32 3a  |,day4%)..^-. 12:|
00003240  f2 63 68 65 63 6b 28 64  61 79 34 25 2c 73 69 67  |.check(day4%,sig|
00003250  6e 25 2c 61 6d 65 6e 64  25 2c 34 29 3a f2 72 65  |n%,amend%,4):.re|
00003260  64 72 61 77 0d 10 68 17  c9 20 31 33 3a f2 63 6c  |draw..h.. 13:.cl|
00003270  6f 73 65 28 61 6d 65 6e  64 25 29 0d 10 72 05 cb  |ose(amend%)..r..|
00003280  0d 10 7c 05 cb 0d 10 86  0d c9 20 73 65 61 72 63  |..|....... searc|
00003290  68 25 0d 10 90 23 e7 20  28 62 75 74 74 6f 6e 25  |h%...#. (button%|
000032a0  20 80 20 35 29 3c 3e 30  20 8c 20 c8 8e 20 69 63  | . 5)<>0 . .. ic|
000032b0  6f 6e 25 20 ca 0d 10 9a  32 c9 20 34 3a f2 63 6c  |on% ....2. 4:.cl|
000032c0  6f 73 65 28 73 65 61 72  63 68 25 29 3a f2 75 70  |ose(search%):.up|
000032d0  64 61 74 65 5f 69 63 6f  6e 28 73 65 61 72 63 68  |date_icon(search|
000032e0  25 2c 32 2c 22 22 29 0d  10 a4 12 c9 20 35 3a f2  |%,2,"")..... 5:.|
000032f0  67 6f 5f 73 65 61 72 63  68 0d 10 ae 11 c9 20 36  |go_search..... 6|
00003300  3a f2 70 72 65 76 69 6f  75 73 0d 10 b8 05 cb 0d  |:.previous......|
00003310  10 c2 12 c9 20 73 65 61  72 63 68 66 6f 75 6e 64  |.... searchfound|
00003320  25 0d 10 cc 23 e7 20 28  62 75 74 74 6f 6e 25 20  |%...#. (button% |
00003330  80 20 35 29 3c 3e 30 20  8c 20 c8 8e 20 69 63 6f  |. 5)<>0 . .. ico|
00003340  6e 25 20 ca 0d 10 d6 74  7f 3a e7 20 73 65 6c 65  |n% ....t.:. sele|
00003350  63 74 66 6f 75 6e 64 25  28 69 63 6f 6e 25 29 3c  |ctfound%(icon%)<|
00003360  3e 2d 31 20 8c 20 6d 6f  6e 74 68 25 3d 73 65 6c  |>-1 . month%=sel|
00003370  65 63 74 66 6f 75 6e 64  25 28 69 63 6f 6e 25 29  |ectfound%(icon%)|
00003380  3a 79 65 61 72 70 6c 75  73 25 3d 6d 6f 6e 74 68  |:yearplus%=month|
00003390  25 20 81 20 31 32 3a f2  75 70 64 61 74 65 5f 74  |% . 12:.update_t|
000033a0  69 6d 65 3a f2 63 6c 6f  73 65 28 73 65 61 72 63  |ime:.close(searc|
000033b0  68 66 6f 75 6e 64 25 29  0d 10 e0 05 cb 0d 10 ea  |hfound%)........|
000033c0  0f c9 20 73 74 61 6e 64  69 6e 67 25 0d 10 f4 10  |.. standing%....|
000033d0  c8 8e 20 62 75 74 74 6f  6e 25 20 ca 0d 10 fe 07  |.. button% .....|
000033e0  c9 20 34 0d 11 08 0e c8  8e 20 69 63 6f 6e 25 20  |. 4...... icon% |
000033f0  ca 0d 11 12 25 c9 20 30  3a f2 6e 65 77 5f 64 61  |....%. 0:.new_da|
00003400  74 65 28 2d 31 2c 73 74  61 6e 64 69 6e 67 25 2c  |te(-1,standing%,|
00003410  64 61 79 33 25 29 0d 11  1c 24 c9 20 31 3a f2 6e  |day3%)...$. 1:.n|
00003420  65 77 5f 64 61 74 65 28  31 2c 73 74 61 6e 64 69  |ew_date(1,standi|
00003430  6e 67 25 2c 64 61 79 33  25 29 0d 11 26 34 c9 20  |ng%,day3%)..&4. |
00003440  31 32 3a f2 63 68 65 63  6b 5f 73 74 61 6e 64 69  |12:.check_standi|
00003450  6e 67 28 64 61 79 33 25  2c 73 74 61 6e 64 69 6e  |ng(day3%,standin|
00003460  67 25 2c 42 25 29 3a f2  72 65 64 72 61 77 0d 11  |g%,B%):.redraw..|
00003470  30 1a c9 20 31 33 3a f2  63 6c 6f 73 65 28 73 74  |0.. 13:.close(st|
00003480  61 6e 64 69 6e 67 25 29  0d 11 3a 16 c9 20 31 37  |anding%)..:.. 17|
00003490  3a 73 74 61 6e 64 5f 73  69 67 6e 25 3d 31 0d 11  |:stand_sign%=1..|
000034a0  44 17 c9 20 31 38 3a 73  74 61 6e 64 5f 73 69 67  |D.. 18:stand_sig|
000034b0  6e 25 3d 2d 31 0d 11 4e  16 c9 20 32 31 3a 73 74  |n%=-1..N.. 21:st|
000034c0  61 6e 64 5f 66 72 65 71  25 3d 31 0d 11 58 16 c9  |and_freq%=1..X..|
000034d0  20 32 32 3a 73 74 61 6e  64 5f 66 72 65 71 25 3d  | 22:stand_freq%=|
000034e0  32 0d 11 62 16 c9 20 32  33 3a 73 74 61 6e 64 5f  |2..b.. 23:stand_|
000034f0  66 72 65 71 25 3d 33 0d  11 6c 16 c9 20 32 34 3a  |freq%=3..l.. 24:|
00003500  73 74 61 6e 64 5f 66 72  65 71 25 3d 36 0d 11 76  |stand_freq%=6..v|
00003510  17 c9 20 32 35 3a 73 74  61 6e 64 5f 66 72 65 71  |.. 25:stand_freq|
00003520  25 3d 31 32 0d 11 80 05  cb 0d 11 8a 07 c9 20 31  |%=12.......... 1|
00003530  0d 11 94 0e c8 8e 20 69  63 6f 6e 25 20 ca 0d 11  |...... icon% ...|
00003540  9e 24 c9 20 30 3a f2 6e  65 77 5f 64 61 74 65 28  |.$. 0:.new_date(|
00003550  31 2c 73 74 61 6e 64 69  6e 67 25 2c 64 61 79 33  |1,standing%,day3|
00003560  25 29 0d 11 a8 25 c9 20  31 3a f2 6e 65 77 5f 64  |%)...%. 1:.new_d|
00003570  61 74 65 28 2d 31 2c 73  74 61 6e 64 69 6e 67 25  |ate(-1,standing%|
00003580  2c 64 61 79 33 25 29 0d  11 b2 34 c9 20 31 32 3a  |,day3%)...4. 12:|
00003590  f2 63 68 65 63 6b 5f 73  74 61 6e 64 69 6e 67 28  |.check_standing(|
000035a0  64 61 79 33 25 2c 73 74  61 6e 64 69 6e 67 25 2c  |day3%,standing%,|
000035b0  42 25 29 3a f2 72 65 64  72 61 77 0d 11 bc 1a c9  |B%):.redraw.....|
000035c0  20 31 33 3a f2 63 6c 6f  73 65 28 73 74 61 6e 64  | 13:.close(stand|
000035d0  69 6e 67 25 29 0d 11 c6  16 c9 20 31 37 3a 73 74  |ing%)..... 17:st|
000035e0  61 6e 64 5f 73 69 67 6e  25 3d 31 0d 11 d0 17 c9  |and_sign%=1.....|
000035f0  20 31 38 3a 73 74 61 6e  64 5f 73 69 67 6e 25 3d  | 18:stand_sign%=|
00003600  2d 31 0d 11 da 16 c9 20  32 31 3a 73 74 61 6e 64  |-1..... 21:stand|
00003610  5f 66 72 65 71 25 3d 31  0d 11 e4 16 c9 20 32 32  |_freq%=1..... 22|
00003620  3a 73 74 61 6e 64 5f 66  72 65 71 25 3d 32 0d 11  |:stand_freq%=2..|
00003630  ee 16 c9 20 32 33 3a 73  74 61 6e 64 5f 66 72 65  |... 23:stand_fre|
00003640  71 25 3d 33 0d 11 f8 16  c9 20 32 34 3a 73 74 61  |q%=3..... 24:sta|
00003650  6e 64 5f 66 72 65 71 25  3d 36 0d 12 02 17 c9 20  |nd_freq%=6..... |
00003660  32 35 3a 73 74 61 6e 64  5f 66 72 65 71 25 3d 31  |25:stand_freq%=1|
00003670  32 0d 12 0c 05 cb 0d 12  16 05 cb 0d 12 20 0c c9  |2............ ..|
00003680  20 71 75 65 72 79 25 0d  12 2a 23 e7 20 28 62 75  | query%..*#. (bu|
00003690  74 74 6f 6e 25 20 80 20  35 29 3c 3e 30 20 8c 20  |tton% . 5)<>0 . |
000036a0  c8 8e 20 69 63 6f 6e 25  20 ca 0d 12 34 07 c9 20  |.. icon% ...4.. |
000036b0  32 0d 12 3e 13 c8 8e 20  71 75 65 72 79 74 79 70  |2..>... querytyp|
000036c0  65 24 20 ca 0d 12 48 47  c9 20 22 43 6c 65 61 72  |e$ ...HG. "Clear|
000036d0  22 3a f2 63 6c 6f 73 65  28 71 75 65 72 79 25 29  |":.close(query%)|
000036e0  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 52 65 6c  |:.. "WimpExt_Rel|
000036f0  65 61 73 65 50 6f 69 6e  74 65 72 22 3a f2 63 6c  |easePointer":.cl|
00003700  65 61 72 3a f2 72 65 64  72 61 77 0d 12 52 3f c9  |ear:.redraw..R?.|
00003710  20 22 51 75 69 74 22 3a  f2 63 6c 6f 73 65 28 71  | "Quit":.close(q|
00003720  75 65 72 79 25 29 3a c8  99 20 22 57 69 6d 70 45  |uery%):.. "WimpE|
00003730  78 74 5f 52 65 6c 65 61  73 65 50 6f 69 6e 74 65  |xt_ReleasePointe|
00003740  72 22 3a 71 75 69 74 25  3d b9 0d 12 5c 05 cb 0d  |r":quit%=...\...|
00003750  12 66 32 c9 20 33 3a f2  63 6c 6f 73 65 28 71 75  |.f2. 3:.close(qu|
00003760  65 72 79 25 29 3a c8 99  20 22 57 69 6d 70 45 78  |ery%):.. "WimpEx|
00003770  74 5f 52 65 6c 65 61 73  65 50 6f 69 6e 74 65 72  |t_ReleasePointer|
00003780  22 0d 12 70 05 cb 0d 12  7a 0f c9 20 70 72 69 6e  |"..p....z.. prin|
00003790  74 62 6f 78 25 0d 12 84  23 e7 20 28 62 75 74 74  |tbox%...#. (butt|
000037a0  6f 6e 25 20 80 20 35 29  3c 3e 30 20 8c 20 c8 8e  |on% . 5)<>0 . ..|
000037b0  20 69 63 6f 6e 25 20 ca  0d 12 8e 1e c9 20 34 3a  | icon% ...... 4:|
000037c0  70 72 69 6e 74 5f 71 75  61 6c 69 74 79 24 3d 22  |print_quality$="|
000037d0  44 72 61 66 74 22 0d 12  98 1c c9 20 35 3a 70 72  |Draft"..... 5:pr|
000037e0  69 6e 74 5f 71 75 61 6c  69 74 79 24 3d 22 4e 4c  |int_quality$="NL|
000037f0  51 22 0d 12 a2 0e c9 20  36 3a f2 70 72 69 6e 74  |Q"..... 6:.print|
00003800  0d 12 ac 51 c9 20 37 3a  e7 20 70 72 69 6e 74 5f  |...Q. 7:. print_|
00003810  6c 69 6e 65 66 65 65 64  73 24 3d 22 59 65 73 22  |linefeeds$="Yes"|
00003820  20 8c 20 70 72 69 6e 74  5f 6c 69 6e 65 66 65 65  | . print_linefee|
00003830  64 73 24 3d 22 4e 6f 22  20 8b 20 70 72 69 6e 74  |ds$="No" . print|
00003840  5f 6c 69 6e 65 66 65 65  64 73 24 3d 22 59 65 73  |_linefeeds$="Yes|
00003850  22 0d 12 b6 1a c9 20 31  30 3a 70 72 69 6e 74 5f  |"..... 10:print_|
00003860  77 68 61 74 24 3d 22 41  6c 6c 22 0d 12 c0 53 c8  |what$="All"...S.|
00003870  99 20 22 57 69 6d 70 45  78 74 5f 53 68 61 64 65  |. "WimpExt_Shade|
00003880  49 63 6f 6e 22 2c 2c 2c  70 72 69 6e 74 62 6f 78  |Icon",,,printbox|
00003890  25 2c 31 33 2c 31 3a c8  99 20 22 57 69 6d 70 45  |%,13,1:.. "WimpE|
000038a0  78 74 5f 53 68 61 64 65  49 63 6f 6e 22 2c 2c 2c  |xt_ShadeIcon",,,|
000038b0  70 72 69 6e 74 62 6f 78  25 2c 31 34 2c 31 0d 12  |printbox%,14,1..|
000038c0  ca 53 c8 99 20 22 57 69  6d 70 45 78 74 5f 53 68  |.S.. "WimpExt_Sh|
000038d0  61 64 65 49 63 6f 6e 22  2c 2c 2c 70 72 69 6e 74  |adeIcon",,,print|
000038e0  62 6f 78 25 2c 31 36 2c  31 3a c8 99 20 22 57 69  |box%,16,1:.. "Wi|
000038f0  6d 70 45 78 74 5f 53 68  61 64 65 49 63 6f 6e 22  |mpExt_ShadeIcon"|
00003900  2c 2c 2c 70 72 69 6e 74  62 6f 78 25 2c 31 37 2c  |,,,printbox%,17,|
00003910  31 0d 12 d4 53 c8 99 20  22 57 69 6d 70 45 78 74  |1...S.. "WimpExt|
00003920  5f 53 68 61 64 65 49 63  6f 6e 22 2c 2c 2c 70 72  |_ShadeIcon",,,pr|
00003930  69 6e 74 62 6f 78 25 2c  31 38 2c 31 3a c8 99 20  |intbox%,18,1:.. |
00003940  22 57 69 6d 70 45 78 74  5f 53 68 61 64 65 49 63  |"WimpExt_ShadeIc|
00003950  6f 6e 22 2c 2c 2c 70 72  69 6e 74 62 6f 78 25 2c  |on",,,printbox%,|
00003960  31 39 2c 31 0d 12 de 1c  c9 20 31 31 3a 70 72 69  |19,1..... 11:pri|
00003970  6e 74 5f 77 68 61 74 24  3d 22 4d 6f 6e 74 68 22  |nt_what$="Month"|
00003980  0d 12 e8 53 c8 99 20 22  57 69 6d 70 45 78 74 5f  |...S.. "WimpExt_|
00003990  53 68 61 64 65 49 63 6f  6e 22 2c 2c 2c 70 72 69  |ShadeIcon",,,pri|
000039a0  6e 74 62 6f 78 25 2c 31  33 2c 30 3a c8 99 20 22  |ntbox%,13,0:.. "|
000039b0  57 69 6d 70 45 78 74 5f  53 68 61 64 65 49 63 6f  |WimpExt_ShadeIco|
000039c0  6e 22 2c 2c 2c 70 72 69  6e 74 62 6f 78 25 2c 31  |n",,,printbox%,1|
000039d0  34 2c 30 0d 12 f2 53 c8  99 20 22 57 69 6d 70 45  |4,0...S.. "WimpE|
000039e0  78 74 5f 53 68 61 64 65  49 63 6f 6e 22 2c 2c 2c  |xt_ShadeIcon",,,|
000039f0  70 72 69 6e 74 62 6f 78  25 2c 31 36 2c 30 3a c8  |printbox%,16,0:.|
00003a00  99 20 22 57 69 6d 70 45  78 74 5f 53 68 61 64 65  |. "WimpExt_Shade|
00003a10  49 63 6f 6e 22 2c 2c 2c  70 72 69 6e 74 62 6f 78  |Icon",,,printbox|
00003a20  25 2c 31 37 2c 30 0d 12  fc 53 c8 99 20 22 57 69  |%,17,0...S.. "Wi|
00003a30  6d 70 45 78 74 5f 53 68  61 64 65 49 63 6f 6e 22  |mpExt_ShadeIcon"|
00003a40  2c 2c 2c 70 72 69 6e 74  62 6f 78 25 2c 31 38 2c  |,,,printbox%,18,|
00003a50  30 3a c8 99 20 22 57 69  6d 70 45 78 74 5f 53 68  |0:.. "WimpExt_Sh|
00003a60  61 64 65 49 63 6f 6e 22  2c 2c 2c 70 72 69 6e 74  |adeIcon",,,print|
00003a70  62 6f 78 25 2c 31 39 2c  30 0d 13 06 1b c9 20 31  |box%,19,0..... 1|
00003a80  32 3a 70 72 69 6e 74 5f  77 68 61 74 24 3d 22 59  |2:print_what$="Y|
00003a90  65 61 72 22 0d 13 10 53  c8 99 20 22 57 69 6d 70  |ear"...S.. "Wimp|
00003aa0  45 78 74 5f 53 68 61 64  65 49 63 6f 6e 22 2c 2c  |Ext_ShadeIcon",,|
00003ab0  2c 70 72 69 6e 74 62 6f  78 25 2c 31 33 2c 31 3a  |,printbox%,13,1:|
00003ac0  c8 99 20 22 57 69 6d 70  45 78 74 5f 53 68 61 64  |.. "WimpExt_Shad|
00003ad0  65 49 63 6f 6e 22 2c 2c  2c 70 72 69 6e 74 62 6f  |eIcon",,,printbo|
00003ae0  78 25 2c 31 34 2c 30 0d  13 1a 53 c8 99 20 22 57  |x%,14,0...S.. "W|
00003af0  69 6d 70 45 78 74 5f 53  68 61 64 65 49 63 6f 6e  |impExt_ShadeIcon|
00003b00  22 2c 2c 2c 70 72 69 6e  74 62 6f 78 25 2c 31 36  |",,,printbox%,16|
00003b10  2c 31 3a c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |,1:.. "WimpExt_S|
00003b20  68 61 64 65 49 63 6f 6e  22 2c 2c 2c 70 72 69 6e  |hadeIcon",,,prin|
00003b30  74 62 6f 78 25 2c 31 37  2c 31 0d 13 24 53 c8 99  |tbox%,17,1..$S..|
00003b40  20 22 57 69 6d 70 45 78  74 5f 53 68 61 64 65 49  | "WimpExt_ShadeI|
00003b50  63 6f 6e 22 2c 2c 2c 70  72 69 6e 74 62 6f 78 25  |con",,,printbox%|
00003b60  2c 31 38 2c 30 3a c8 99  20 22 57 69 6d 70 45 78  |,18,0:.. "WimpEx|
00003b70  74 5f 53 68 61 64 65 49  63 6f 6e 22 2c 2c 2c 70  |t_ShadeIcon",,,p|
00003b80  72 69 6e 74 62 6f 78 25  2c 31 39 2c 30 0d 13 2e  |rintbox%,19,0...|
00003b90  3a 6d 6f 6e 74 68 5f 74  6f 5f 70 72 69 6e 74 25  |:month_to_print%|
00003ba0  3d 30 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |=0:.update_icon(|
00003bb0  70 72 69 6e 74 62 6f 78  25 2c 31 33 2c 22 4a 61  |printbox%,13,"Ja|
00003bc0  6e 75 61 72 79 22 29 0d  13 38 49 c9 20 31 35 3a  |nuary")..8I. 15:|
00003bd0  e7 20 70 72 69 6e 74 5f  68 65 61 64 65 72 24 3d  |. print_header$=|
00003be0  22 59 65 73 22 20 8c 20  70 72 69 6e 74 5f 68 65  |"Yes" . print_he|
00003bf0  61 64 65 72 24 3d 22 4e  6f 22 20 8b 20 70 72 69  |ader$="No" . pri|
00003c00  6e 74 5f 68 65 61 64 65  72 24 3d 22 59 65 73 22  |nt_header$="Yes"|
00003c10  0d 13 42 43 c9 20 31 36  3a 6d 6f 6e 74 68 5f 74  |..BC. 16:month_t|
00003c20  6f 5f 70 72 69 6e 74 25  2b 3d 31 3a e7 20 6d 6f  |o_print%+=1:. mo|
00003c30  6e 74 68 5f 74 6f 5f 70  72 69 6e 74 25 3e 35 39  |nth_to_print%>59|
00003c40  20 6d 6f 6e 74 68 5f 74  6f 5f 70 72 69 6e 74 25  | month_to_print%|
00003c50  3d 35 39 0d 13 4c 36 79  65 61 72 70 6c 75 73 5f  |=59..L6yearplus_|
00003c60  70 72 69 6e 74 25 3d 6d  6f 6e 74 68 5f 74 6f 5f  |print%=month_to_|
00003c70  70 72 69 6e 74 25 20 81  20 31 32 3a f2 75 70 64  |print% . 12:.upd|
00003c80  61 74 65 5f 70 72 69 6e  74 0d 13 56 41 c9 20 31  |ate_print..VA. 1|
00003c90  37 3a 6d 6f 6e 74 68 5f  74 6f 5f 70 72 69 6e 74  |7:month_to_print|
00003ca0  25 2d 3d 31 3a e7 20 6d  6f 6e 74 68 5f 74 6f 5f  |%-=1:. month_to_|
00003cb0  70 72 69 6e 74 25 3c 30  20 6d 6f 6e 74 68 5f 74  |print%<0 month_t|
00003cc0  6f 5f 70 72 69 6e 74 25  3d 30 0d 13 60 36 79 65  |o_print%=0..`6ye|
00003cd0  61 72 70 6c 75 73 5f 70  72 69 6e 74 25 3d 6d 6f  |arplus_print%=mo|
00003ce0  6e 74 68 5f 74 6f 5f 70  72 69 6e 74 25 20 81 20  |nth_to_print% . |
00003cf0  31 32 3a f2 75 70 64 61  74 65 5f 70 72 69 6e 74  |12:.update_print|
00003d00  0d 13 6a 43 c9 20 31 38  3a 79 65 61 72 70 6c 75  |..jC. 18:yearplu|
00003d10  73 5f 70 72 69 6e 74 25  2b 3d 31 3a e7 20 79 65  |s_print%+=1:. ye|
00003d20  61 72 70 6c 75 73 5f 70  72 69 6e 74 25 3e 34 20  |arplus_print%>4 |
00003d30  8c 20 79 65 61 72 70 6c  75 73 5f 70 72 69 6e 74  |. yearplus_print|
00003d40  25 3d 34 0d 13 74 4d 6d  6f 6e 74 68 5f 74 6f 5f  |%=4..tMmonth_to_|
00003d50  70 72 69 6e 74 25 3d 28  6d 6f 6e 74 68 5f 74 6f  |print%=(month_to|
00003d60  5f 70 72 69 6e 74 25 20  83 20 31 32 29 2b 28 79  |_print% . 12)+(y|
00003d70  65 61 72 70 6c 75 73 5f  70 72 69 6e 74 25 2a 31  |earplus_print%*1|
00003d80  32 29 3a f2 75 70 64 61  74 65 5f 70 72 69 6e 74  |2):.update_print|
00003d90  0d 13 7e 43 c9 20 31 39  3a 79 65 61 72 70 6c 75  |..~C. 19:yearplu|
00003da0  73 5f 70 72 69 6e 74 25  2d 3d 31 3a e7 20 79 65  |s_print%-=1:. ye|
00003db0  61 72 70 6c 75 73 5f 70  72 69 6e 74 25 3c 30 20  |arplus_print%<0 |
00003dc0  8c 20 79 65 61 72 70 6c  75 73 5f 70 72 69 6e 74  |. yearplus_print|
00003dd0  25 3d 30 0d 13 88 4d 6d  6f 6e 74 68 5f 74 6f 5f  |%=0...Mmonth_to_|
00003de0  70 72 69 6e 74 25 3d 28  6d 6f 6e 74 68 5f 74 6f  |print%=(month_to|
00003df0  5f 70 72 69 6e 74 25 20  83 20 31 32 29 2b 28 79  |_print% . 12)+(y|
00003e00  65 61 72 70 6c 75 73 5f  70 72 69 6e 74 25 2a 31  |earplus_print%*1|
00003e10  32 29 3a f2 75 70 64 61  74 65 5f 70 72 69 6e 74  |2):.update_print|
00003e20  0d 13 92 20 c9 20 32 30  3a 70 72 69 6e 74 5f 71  |... . 20:print_q|
00003e30  75 61 6c 69 74 79 24 3d  22 52 49 53 43 4f 53 22  |uality$="RISCOS"|
00003e40  0d 13 9c 1a c9 20 32 31  3a f2 63 6c 6f 73 65 28  |..... 21:.close(|
00003e50  70 72 69 6e 74 62 6f 78  25 29 0d 13 a6 05 cb 0d  |printbox%)......|
00003e60  13 b0 10 c9 20 6d 61 69  6e 5f 62 61 63 6b 25 0d  |.... main_back%.|
00003e70  13 ba 1c e7 20 62 75 74  74 6f 6e 25 3d 34 20 8c  |.... button%=4 .|
00003e80  20 c8 8e 20 69 63 6f 6e  25 20 ca 0d 13 c4 28 c9  | .. icon% ....(.|
00003e90  20 31 31 3a 6d 6f 6e 74  68 25 2b 3d 31 3a e7 20  | 11:month%+=1:. |
00003ea0  6d 6f 6e 74 68 25 3e 35  39 20 6d 6f 6e 74 68 25  |month%>59 month%|
00003eb0  3d 35 39 0d 13 ce 26 79  65 61 72 70 6c 75 73 25  |=59...&yearplus%|
00003ec0  3d 6d 6f 6e 74 68 25 20  81 20 31 32 3a f2 75 70  |=month% . 12:.up|
00003ed0  64 61 74 65 5f 74 69 6d  65 0d 13 d8 31 c9 20 31  |date_time...1. 1|
00003ee0  32 3a 79 65 61 72 70 6c  75 73 25 2b 3d 31 3a e7  |2:yearplus%+=1:.|
00003ef0  20 79 65 61 72 70 6c 75  73 25 3e 34 20 8c 20 79  | yearplus%>4 . y|
00003f00  65 61 72 70 6c 75 73 25  3d 34 0d 13 e2 34 6d 6f  |earplus%=4...4mo|
00003f10  6e 74 68 25 3d 28 6d 6f  6e 74 68 25 20 83 20 31  |nth%=(month% . 1|
00003f20  32 29 2b 28 79 65 61 72  70 6c 75 73 25 2a 31 32  |2)+(yearplus%*12|
00003f30  29 3a f2 75 70 64 61 74  65 5f 74 69 6d 65 0d 13  |):.update_time..|
00003f40  ec 05 cb 0d 13 f6 1c e7  20 62 75 74 74 6f 6e 25  |........ button%|
00003f50  3d 31 20 8c 20 c8 8e 20  69 63 6f 6e 25 20 ca 0d  |=1 . .. icon% ..|
00003f60  14 00 26 c9 20 31 31 3a  6d 6f 6e 74 68 25 2d 3d  |..&. 11:month%-=|
00003f70  31 3a e7 20 6d 6f 6e 74  68 25 3c 30 20 6d 6f 6e  |1:. month%<0 mon|
00003f80  74 68 25 3d 30 0d 14 0a  26 79 65 61 72 70 6c 75  |th%=0...&yearplu|
00003f90  73 25 3d 6d 6f 6e 74 68  25 20 81 20 31 32 3a f2  |s%=month% . 12:.|
00003fa0  75 70 64 61 74 65 5f 74  69 6d 65 0d 14 14 31 c9  |update_time...1.|
00003fb0  20 31 32 3a 79 65 61 72  70 6c 75 73 25 2d 3d 31  | 12:yearplus%-=1|
00003fc0  3a e7 20 79 65 61 72 70  6c 75 73 25 3c 30 20 8c  |:. yearplus%<0 .|
00003fd0  20 79 65 61 72 70 6c 75  73 25 3d 30 0d 14 1e 34  | yearplus%=0...4|
00003fe0  6d 6f 6e 74 68 25 3d 28  6d 6f 6e 74 68 25 20 83  |month%=(month% .|
00003ff0  20 31 32 29 2b 28 79 65  61 72 70 6c 75 73 25 2a  | 12)+(yearplus%*|
00004000  31 32 29 3a f2 75 70 64  61 74 65 5f 74 69 6d 65  |12):.update_time|
00004010  0d 14 28 05 cb 0d 14 32  1c e7 20 62 75 74 74 6f  |..(....2.. butto|
00004020  6e 25 3d 32 20 8c 20 c8  8e 20 69 63 6f 6e 25 20  |n%=2 . .. icon% |
00004030  ca 0d 14 3c 64 c9 20 31  33 3a f2 63 6c 6f 73 65  |...<d. 13:.close|
00004040  5f 61 6c 6c 3a c8 99 20  22 57 69 6d 70 45 78 74  |_all:.. "WimpExt|
00004050  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 6f  |_CreateMenu",,mo|
00004060  6e 74 68 6d 65 6e 75 25  2c 6d 6f 75 73 65 78 25  |nthmenu%,mousex%|
00004070  2d 34 38 2c 6d 6f 75 73  65 79 25 2b 31 30 3a 73  |-48,mousey%+10:s|
00004080  65 6c 65 63 74 6d 65 6e  75 25 3d 6d 6f 6e 74 68  |electmenu%=month|
00004090  6d 65 6e 75 25 0d 14 46  62 c9 20 31 34 3a f2 63  |menu%..Fb. 14:.c|
000040a0  6c 6f 73 65 5f 61 6c 6c  3a c8 99 20 22 57 69 6d  |lose_all:.. "Wim|
000040b0  70 45 78 74 5f 43 72 65  61 74 65 4d 65 6e 75 22  |pExt_CreateMenu"|
000040c0  2c 2c 79 65 61 72 6d 65  6e 75 25 2c 6d 6f 75 73  |,,yearmenu%,mous|
000040d0  65 78 25 2d 34 38 2c 6d  6f 75 73 65 79 25 2b 31  |ex%-48,mousey%+1|
000040e0  30 3a 73 65 6c 65 63 74  6d 65 6e 75 25 3d 79 65  |0:selectmenu%=ye|
000040f0  61 72 6d 65 6e 75 25 0d  14 50 5f 7f 3a f2 63 6c  |armenu%..P_.:.cl|
00004100  6f 73 65 5f 61 6c 6c 3a  c8 99 20 22 57 69 6d 70  |ose_all:.. "Wimp|
00004110  45 78 74 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |Ext_CreateMenu",|
00004120  2c 6d 61 69 6e 6d 65 6e  75 25 2c 6d 6f 75 73 65  |,mainmenu%,mouse|
00004130  78 25 2d 34 38 2c 6d 6f  75 73 65 79 25 2b 31 30  |x%-48,mousey%+10|
00004140  3a 73 65 6c 65 63 74 6d  65 6e 75 25 3d 6d 61 69  |:selectmenu%=mai|
00004150  6e 6d 65 6e 75 25 0d 14  5a 05 cb 0d 14 64 23 e7  |nmenu%..Z....d#.|
00004160  20 28 62 75 74 74 6f 6e  25 20 80 20 35 29 3c 3e  | (button% . 5)<>|
00004170  30 20 8c 20 c8 8e 20 69  63 6f 6e 25 20 ca 0d 14  |0 . .. icon% ...|
00004180  6e 44 c9 20 37 3a f2 63  6c 6f 73 65 5f 61 6c 6c  |nD. 7:.close_all|
00004190  3a f2 6f 70 65 6e 28 66  69 6c 65 5f 73 61 76 65  |:.open(file_save|
000041a0  62 6f 78 25 29 3a f2 6d  6f 76 65 5f 63 61 72 65  |box%):.move_care|
000041b0  74 28 66 69 6c 65 5f 73  61 76 65 62 6f 78 25 2c  |t(file_savebox%,|
000041c0  31 29 0d 14 78 23 c9 20  38 3a f2 63 6c 6f 73 65  |1)..x#. 8:.close|
000041d0  5f 61 6c 6c 3a f2 6f 70  65 6e 28 70 72 69 6e 74  |_all:.open(print|
000041e0  62 6f 78 25 29 0d 14 82  46 c9 20 39 3a f2 63 6c  |box%)...F. 9:.cl|
000041f0  6f 73 65 5f 61 6c 6c 3a  f2 73 65 74 75 70 5f 63  |ose_all:.setup_c|
00004200  72 65 64 69 74 3a f2 6f  70 65 6e 28 63 72 65 64  |redit:.open(cred|
00004210  69 74 25 29 3a f2 6d 6f  76 65 5f 63 61 72 65 74  |it%):.move_caret|
00004220  28 63 72 65 64 69 74 25  2c 37 29 0d 14 8c 44 c9  |(credit%,7)...D.|
00004230  20 31 30 3a f2 63 6c 6f  73 65 5f 61 6c 6c 3a f2  | 10:.close_all:.|
00004240  73 65 74 75 70 5f 64 65  62 69 74 3a f2 6f 70 65  |setup_debit:.ope|
00004250  6e 28 64 65 62 69 74 25  29 3a f2 6d 6f 76 65 5f  |n(debit%):.move_|
00004260  63 61 72 65 74 28 64 65  62 69 74 25 2c 37 29 0d  |caret(debit%,7).|
00004270  14 96 64 c9 20 31 33 3a  f2 63 6c 6f 73 65 5f 61  |..d. 13:.close_a|
00004280  6c 6c 3a c8 99 20 22 57  69 6d 70 45 78 74 5f 43  |ll:.. "WimpExt_C|
00004290  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 6f 6e 74  |reateMenu",,mont|
000042a0  68 6d 65 6e 75 25 2c 6d  6f 75 73 65 78 25 2d 34  |hmenu%,mousex%-4|
000042b0  38 2c 6d 6f 75 73 65 79  25 2b 31 30 3a 73 65 6c  |8,mousey%+10:sel|
000042c0  65 63 74 6d 65 6e 75 25  3d 6d 6f 6e 74 68 6d 65  |ectmenu%=monthme|
000042d0  6e 75 25 0d 14 a0 62 c9  20 31 34 3a f2 63 6c 6f  |nu%...b. 14:.clo|
000042e0  73 65 5f 61 6c 6c 3a c8  99 20 22 57 69 6d 70 45  |se_all:.. "WimpE|
000042f0  78 74 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |xt_CreateMenu",,|
00004300  79 65 61 72 6d 65 6e 75  25 2c 6d 6f 75 73 65 78  |yearmenu%,mousex|
00004310  25 2d 34 38 2c 6d 6f 75  73 65 79 25 2b 31 30 3a  |%-48,mousey%+10:|
00004320  73 65 6c 65 63 74 6d 65  6e 75 25 3d 79 65 61 72  |selectmenu%=year|
00004330  6d 65 6e 75 25 0d 14 aa  1b c9 20 31 35 3a f2 63  |menu%..... 15:.c|
00004340  6c 6f 73 65 5f 61 6c 6c  3a f2 64 65 6c 65 74 65  |lose_all:.delete|
00004350  0d 14 b4 44 c9 20 31 36  3a f2 63 6c 6f 73 65 5f  |...D. 16:.close_|
00004360  61 6c 6c 3a f2 73 65 74  75 70 5f 61 6d 65 6e 64  |all:.setup_amend|
00004370  3a f2 6f 70 65 6e 28 61  6d 65 6e 64 25 29 3a f2  |:.open(amend%):.|
00004380  6d 6f 76 65 5f 63 61 72  65 74 28 61 6d 65 6e 64  |move_caret(amend|
00004390  25 2c 37 29 0d 14 be 4d  c9 20 31 38 3a f2 63 6c  |%,7)...M. 18:.cl|
000043a0  6f 73 65 5f 61 6c 6c 3a  f2 73 65 74 75 70 5f 73  |ose_all:.setup_s|
000043b0  74 61 6e 64 69 6e 67 3a  f2 6f 70 65 6e 28 73 74  |tanding:.open(st|
000043c0  61 6e 64 69 6e 67 25 29  3a f2 6d 6f 76 65 5f 63  |anding%):.move_c|
000043d0  61 72 65 74 28 73 74 61  6e 64 69 6e 67 25 2c 37  |aret(standing%,7|
000043e0  29 0d 14 c8 39 c9 20 31  39 3a f2 63 6c 6f 73 65  |)...9. 19:.close|
000043f0  5f 61 6c 6c 3a f2 6f 70  65 6e 28 73 65 61 72 63  |_all:.open(searc|
00004400  68 25 29 3a f2 6d 6f 76  65 5f 63 61 72 65 74 28  |h%):.move_caret(|
00004410  73 65 61 72 63 68 25 2c  32 29 0d 14 d2 05 cb 0d  |search%,2)......|
00004420  14 dc 05 cb 0d 14 e6 05  e1 0d 14 f0 05 3a 0d 14  |.............:..|
00004430  fa 13 dd f2 6f 70 65 6e  28 77 69 6e 64 6f 77 25  |....open(window%|
00004440  29 0d 15 04 10 c8 8e 20  77 69 6e 64 6f 77 25 20  |)...... window% |
00004450  ca 0d 15 0e 53 c9 20 66  69 6c 65 5f 73 61 76 65  |....S. file_save|
00004460  62 6f 78 25 2c 70 72 69  6e 74 62 6f 78 25 2c 63  |box%,printbox%,c|
00004470  72 65 64 69 74 25 2c 64  65 62 69 74 25 2c 61 6d  |redit%,debit%,am|
00004480  65 6e 64 25 2c 73 74 61  6e 64 69 6e 67 25 2c 73  |end%,standing%,s|
00004490  65 61 72 63 68 25 2c 74  65 78 74 5f 73 61 76 65  |earch%,text_save|
000044a0  62 6f 78 25 0d 15 18 4d  c8 99 20 22 57 69 6d 70  |box%...M.. "Wimp|
000044b0  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
000044c0  2c 2c 71 25 3a c8 99 20  22 57 69 6d 70 5f 43 72  |,,q%:.. "Wimp_Cr|
000044d0  65 61 74 65 4d 65 6e 75  22 2c 2c 77 69 6e 64 6f  |eateMenu",,windo|
000044e0  77 25 2c 21 71 25 2d 34  38 2c 71 25 21 34 2b 31  |w%,!q%-48,q%!4+1|
000044f0  30 0d 15 22 28 7f 3a c8  99 20 22 57 69 6d 70 45  |0.."(.:.. "WimpE|
00004500  78 74 5f 4f 70 65 6e 57  69 6e 64 6f 77 54 6f 70  |xt_OpenWindowTop|
00004510  22 2c 77 69 6e 64 6f 77  25 0d 15 2c 05 cb 0d 15  |",window%..,....|
00004520  36 05 e1 0d 15 40 05 3a  0d 15 4a 10 dd f2 63 6c  |6....@.:..J...cl|
00004530  6f 73 65 28 21 71 25 29  0d 15 54 21 e7 20 21 71  |ose(!q%)..T!. !q|
00004540  25 3d 6d 61 69 6e 5f 62  61 63 6b 25 20 8c 20 f2  |%=main_back% . .|
00004550  63 6c 6f 73 65 5f 61 6c  6c 0d 15 5e 20 c8 99 20  |close_all..^ .. |
00004560  22 57 69 6d 70 45 78 74  5f 43 6c 6f 73 65 4c 69  |"WimpExt_CloseLi|
00004570  6e 6b 65 64 22 2c 2c 71  25 0d 15 68 05 e1 0d 15  |nked",,q%..h....|
00004580  72 05 3a 0d 15 7c 2d dd  f2 6b 65 79 5f 70 72 65  |r.:..|-..key_pre|
00004590  73 73 65 64 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |ssed(window%,ico|
000045a0  6e 25 2c 69 6e 64 65 78  25 2c 63 68 61 72 25 29  |n%,index%,char%)|
000045b0  0d 15 86 0e c8 8e 20 63  68 61 72 25 20 ca 0d 15  |...... char% ...|
000045c0  90 08 c9 20 31 33 0d 15  9a 10 c8 8e 20 77 69 6e  |... 13...... win|
000045d0  64 6f 77 25 20 ca 0d 15  a4 0c c9 20 70 77 62 6f  |dow% ...... pwbo|
000045e0  78 25 0d 15 ae 40 e7 20  69 63 6f 6e 25 3d 31 20  |x%...@. icon%=1 |
000045f0  8c 20 f2 63 68 65 63 6b  5f 65 6e 74 65 72 65 64  |. .check_entered|
00004600  5f 70 61 73 73 77 6f 72  64 3a e7 20 77 72 6f 6e  |_password:. wron|
00004610  67 25 3d b9 20 8c 20 c8  8e 20 74 72 69 65 73 25  |g%=. . .. tries%|
00004620  20 ca 0d 15 b8 4c c9 20  33 3a f2 75 70 64 61 74  | ....L. 3:.updat|
00004630  65 5f 69 63 6f 6e 28 70  77 62 6f 78 25 2c 33 2c  |e_icon(pwbox%,3,|
00004640  22 54 68 61 74 20 70 61  73 73 77 6f 72 64 20 69  |"That password i|
00004650  73 20 69 6e 63 6f 72 72  65 63 74 21 20 4f 6e 65  |s incorrect! One|
00004660  20 6c 61 73 74 20 74 72  79 2e 2e 2e 22 29 0d 15  | last try...")..|
00004670  c2 4e 7f 3a f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.N.:.update_icon|
00004680  28 70 77 62 6f 78 25 2c  33 2c 22 54 68 61 74 20  |(pwbox%,3,"That |
00004690  70 61 73 73 77 6f 72 64  20 69 73 20 69 6e 63 6f  |password is inco|
000046a0  72 72 65 63 74 21 20 50  6c 65 61 73 65 20 74 72  |rrect! Please tr|
000046b0  79 20 61 67 61 69 6e 2e  2e 2e 22 29 0d 15 cc 05  |y again...")....|
000046c0  cb 0d 15 d6 2e c9 20 6d  61 69 6e 5f 62 61 63 6b  |...... main_back|
000046d0  25 3a f2 67 65 74 5f 70  69 6e 62 6f 61 72 64 5f  |%:.get_pinboard_|
000046e0  6e 61 6d 65 3a c8 8e 20  69 63 6f 6e 25 20 ca 0d  |name:.. icon% ..|
000046f0  15 e0 8c c9 20 32 34 3a  f2 6d 6f 76 65 5f 63 61  |.... 24:.move_ca|
00004700  72 65 74 28 6d 61 69 6e  5f 62 61 63 6b 25 2c 32  |ret(main_back%,2|
00004710  36 29 3a 73 61 76 65 64  25 3d a3 3a f2 72 65 5f  |6):saved%=.:.re_|
00004720  74 69 74 6c 65 28 22 42  61 6e 6b 20 53 79 73 74  |title("Bank Syst|
00004730  65 6d 3a 20 22 2b 70 69  6e 62 6f 61 72 64 24 2b  |em: "+pinboard$+|
00004740  22 20 2a 22 29 3a f2 75  70 64 61 74 65 5f 69 63  |" *"):.update_ic|
00004750  6f 6e 28 66 69 6c 65 69  6e 66 6f 25 2c 35 2c 22  |on(fileinfo%,5,"|
00004760  59 65 73 22 29 3a f2 72  65 61 64 5f 61 63 63 6f  |Yes"):.read_acco|
00004770  75 6e 74 5f 64 65 74 61  69 6c 73 0d 15 ea 8c c9  |unt_details.....|
00004780  20 32 36 3a f2 6d 6f 76  65 5f 63 61 72 65 74 28  | 26:.move_caret(|
00004790  6d 61 69 6e 5f 62 61 63  6b 25 2c 32 37 29 3a 73  |main_back%,27):s|
000047a0  61 76 65 64 25 3d a3 3a  f2 72 65 5f 74 69 74 6c  |aved%=.:.re_titl|
000047b0  65 28 22 42 61 6e 6b 20  53 79 73 74 65 6d 3a 20  |e("Bank System: |
000047c0  22 2b 70 69 6e 62 6f 61  72 64 24 2b 22 20 2a 22  |"+pinboard$+" *"|
000047d0  29 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 66  |):.update_icon(f|
000047e0  69 6c 65 69 6e 66 6f 25  2c 35 2c 22 59 65 73 22  |ileinfo%,5,"Yes"|
000047f0  29 3a f2 72 65 61 64 5f  61 63 63 6f 75 6e 74 5f  |):.read_account_|
00004800  64 65 74 61 69 6c 73 0d  15 f4 8c c9 20 32 37 3a  |details..... 27:|
00004810  f2 6d 6f 76 65 5f 63 61  72 65 74 28 6d 61 69 6e  |.move_caret(main|
00004820  5f 62 61 63 6b 25 2c 32  39 29 3a 73 61 76 65 64  |_back%,29):saved|
00004830  25 3d a3 3a f2 72 65 5f  74 69 74 6c 65 28 22 42  |%=.:.re_title("B|
00004840  61 6e 6b 20 53 79 73 74  65 6d 3a 20 22 2b 70 69  |ank System: "+pi|
00004850  6e 62 6f 61 72 64 24 2b  22 20 2a 22 29 3a f2 75  |nboard$+" *"):.u|
00004860  70 64 61 74 65 5f 69 63  6f 6e 28 66 69 6c 65 69  |pdate_icon(filei|
00004870  6e 66 6f 25 2c 35 2c 22  59 65 73 22 29 3a f2 72  |nfo%,5,"Yes"):.r|
00004880  65 61 64 5f 61 63 63 6f  75 6e 74 5f 64 65 74 61  |ead_account_deta|
00004890  69 6c 73 0d 15 fe 8c c9  20 32 39 3a f2 6d 6f 76  |ils..... 29:.mov|
000048a0  65 5f 63 61 72 65 74 28  6d 61 69 6e 5f 62 61 63  |e_caret(main_bac|
000048b0  6b 25 2c 32 34 29 3a 73  61 76 65 64 25 3d a3 3a  |k%,24):saved%=.:|
000048c0  f2 72 65 5f 74 69 74 6c  65 28 22 42 61 6e 6b 20  |.re_title("Bank |
000048d0  53 79 73 74 65 6d 3a 20  22 2b 70 69 6e 62 6f 61  |System: "+pinboa|
000048e0  72 64 24 2b 22 20 2a 22  29 3a f2 75 70 64 61 74  |rd$+" *"):.updat|
000048f0  65 5f 69 63 6f 6e 28 66  69 6c 65 69 6e 66 6f 25  |e_icon(fileinfo%|
00004900  2c 35 2c 22 59 65 73 22  29 3a f2 72 65 61 64 5f  |,5,"Yes"):.read_|
00004910  61 63 63 6f 75 6e 74 5f  64 65 74 61 69 6c 73 0d  |account_details.|
00004920  16 08 05 cb 0d 16 12 05  cb 0d 16 1c 13 c9 20 32  |.............. 2|
00004930  37 3a f2 63 6c 6f 73 65  5f 61 6c 6c 0d 16 26 26  |7:.close_all..&&|
00004940  c9 20 26 31 38 30 3a f2  63 6c 6f 73 65 5f 61 6c  |. &180:.close_al|
00004950  6c 3a f2 6f 70 65 6e 28  70 72 69 6e 74 62 6f 78  |l:.open(printbox|
00004960  25 29 0d 16 30 49 c9 20  26 31 38 31 3a f2 63 6c  |%)..0I. &181:.cl|
00004970  6f 73 65 5f 61 6c 6c 3a  f2 73 65 74 75 70 5f 63  |ose_all:.setup_c|
00004980  72 65 64 69 74 3a f2 6f  70 65 6e 28 63 72 65 64  |redit:.open(cred|
00004990  69 74 25 29 3a f2 6d 6f  76 65 5f 63 61 72 65 74  |it%):.move_caret|
000049a0  28 63 72 65 64 69 74 25  2c 37 29 0d 16 3a 46 c9  |(credit%,7)..:F.|
000049b0  20 26 31 38 32 3a f2 63  6c 6f 73 65 5f 61 6c 6c  | &182:.close_all|
000049c0  3a f2 73 65 74 75 70 5f  64 65 62 69 74 3a f2 6f  |:.setup_debit:.o|
000049d0  70 65 6e 28 64 65 62 69  74 25 29 3a f2 6d 6f 76  |pen(debit%):.mov|
000049e0  65 5f 63 61 72 65 74 28  64 65 62 69 74 25 2c 37  |e_caret(debit%,7|
000049f0  29 0d 16 44 47 c9 20 26  31 38 33 3a f2 63 6c 6f  |)..DG. &183:.clo|
00004a00  73 65 5f 61 6c 6c 3a f2  6f 70 65 6e 28 66 69 6c  |se_all:.open(fil|
00004a10  65 5f 73 61 76 65 62 6f  78 25 29 3a f2 6d 6f 76  |e_savebox%):.mov|
00004a20  65 5f 63 61 72 65 74 28  66 69 6c 65 5f 73 61 76  |e_caret(file_sav|
00004a30  65 62 6f 78 25 2c 31 29  0d 16 4e 3b c9 20 26 31  |ebox%,1)..N;. &1|
00004a40  38 34 3a f2 63 6c 6f 73  65 5f 61 6c 6c 3a f2 6f  |84:.close_all:.o|
00004a50  70 65 6e 28 73 65 61 72  63 68 25 29 3a f2 6d 6f  |pen(search%):.mo|
00004a60  76 65 5f 63 61 72 65 74  28 73 65 61 72 63 68 25  |ve_caret(search%|
00004a70  2c 32 29 0d 16 58 4f c9  20 26 31 38 35 3a f2 63  |,2)..XO. &185:.c|
00004a80  6c 6f 73 65 5f 61 6c 6c  3a f2 73 65 74 75 70 5f  |lose_all:.setup_|
00004a90  73 74 61 6e 64 69 6e 67  3a f2 6f 70 65 6e 28 73  |standing:.open(s|
00004aa0  74 61 6e 64 69 6e 67 25  29 3a f2 6d 6f 76 65 5f  |tanding%):.move_|
00004ab0  63 61 72 65 74 28 73 74  61 6e 64 69 6e 67 25 2c  |caret(standing%,|
00004ac0  37 29 0d 16 62 56 c9 20  26 31 38 36 3a e7 20 73  |7)..bV. &186:. s|
00004ad0  65 6c 65 63 74 25 3c 3e  2d 31 20 8c 20 f2 63 6c  |elect%<>-1 . .cl|
00004ae0  6f 73 65 5f 61 6c 6c 3a  f2 73 65 74 75 70 5f 61  |ose_all:.setup_a|
00004af0  6d 65 6e 64 3a f2 6f 70  65 6e 28 61 6d 65 6e 64  |mend:.open(amend|
00004b00  25 29 3a f2 6d 6f 76 65  5f 63 61 72 65 74 28 61  |%):.move_caret(a|
00004b10  6d 65 6e 64 25 2c 37 29  0d 16 6c 2d c9 20 26 31  |mend%,7)..l-. &1|
00004b20  38 37 3a e7 20 73 65 6c  65 63 74 25 3c 3e 2d 31  |87:. select%<>-1|
00004b30  20 8c 20 f2 63 6c 6f 73  65 5f 61 6c 6c 3a f2 64  | . .close_all:.d|
00004b40  65 6c 65 74 65 0d 16 76  15 c9 20 26 31 38 38 3a  |elete..v.. &188:|
00004b50  f2 63 6c 6f 73 65 5f 61  6c 6c 0d 16 80 0f c8 8e  |.close_all......|
00004b60  20 73 61 76 65 64 25 20  ca 0d 16 8a 07 c9 20 a3  | saved% ...... .|
00004b70  0d 16 94 45 71 75 65 72  79 74 79 70 65 24 3d 22  |...Equerytype$="|
00004b80  43 6c 65 61 72 22 3a f2  6f 70 65 6e 28 71 75 65  |Clear":.open(que|
00004b90  72 79 25 29 3a c8 99 20  22 57 69 6d 70 45 78 74  |ry%):.. "WimpExt|
00004ba0  5f 4c 69 6d 69 74 50 6f  69 6e 74 65 72 22 2c 71  |_LimitPointer",q|
00004bb0  75 65 72 79 25 0d 16 9e  07 c9 20 b9 0d 16 a8 12  |uery%..... .....|
00004bc0  f2 63 6c 65 61 72 3a f2  72 65 64 72 61 77 0d 16  |.clear:.redraw..|
00004bd0  b2 05 cb 0d 16 bc 47 c9  20 26 31 39 33 3a f2 63  |......G. &193:.c|
00004be0  6c 6f 73 65 5f 61 6c 6c  3a f2 6f 70 65 6e 28 74  |lose_all:.open(t|
00004bf0  65 78 74 5f 73 61 76 65  62 6f 78 25 29 3a f2 6d  |ext_savebox%):.m|
00004c00  6f 76 65 5f 63 61 72 65  74 28 74 65 78 74 5f 73  |ove_caret(text_s|
00004c10  61 76 65 62 6f 78 25 2c  31 29 0d 16 c6 20 7f 20  |avebox%,1)... . |
00004c20  c8 99 20 22 57 69 6d 70  5f 50 72 6f 63 65 73 73  |.. "Wimp_Process|
00004c30  4b 65 79 22 2c 63 68 61  72 25 0d 16 d0 05 cb 0d  |Key",char%......|
00004c40  16 da 05 e1 0d 16 e4 05  3a 0d 16 ee 1f dd f2 6d  |........:......m|
00004c50  6f 76 65 5f 63 61 72 65  74 28 77 69 6e 64 6f 77  |ove_caret(window|
00004c60  25 2c 69 63 6f 6e 25 29  0d 16 f8 31 c8 99 20 22  |%,icon%)...1.. "|
00004c70  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00004c80  69 74 69 6f 6e 22 2c 77  69 6e 64 6f 77 25 2c 69  |ition",window%,i|
00004c90  63 6f 6e 25 2c 2c 2c 2d  31 0d 17 02 05 e1 0d 17  |con%,,,-1.......|
00004ca0  0c 05 3a 0d 17 16 11 dd  f2 64 65 63 6f 64 65 5f  |..:......decode_|
00004cb0  6d 65 6e 75 0d 17 20 1b  ea 20 73 65 6c 65 63 74  |menu.. .. select|
00004cc0  69 6f 6e 25 2c 73 65 6c  65 63 74 69 6f 6e 24 0d  |ion%,selection$.|
00004cd0  17 2a 14 de 20 73 65 6c  65 63 74 69 6f 6e 25 20  |.*.. selection% |
00004ce0  32 35 35 0d 17 34 33 c8  99 20 22 57 69 6d 70 5f  |255..43.. "Wimp_|
00004cf0  44 65 63 6f 64 65 4d 65  6e 75 22 2c 2c 73 65 6c  |DecodeMenu",,sel|
00004d00  65 63 74 6d 65 6e 75 25  2c 71 25 2c 73 65 6c 65  |ectmenu%,q%,sele|
00004d10  63 74 69 6f 6e 25 0d 17  3e 1a 73 65 6c 65 63 74  |ction%..>.select|
00004d20  69 6f 6e 24 3d 24 73 65  6c 65 63 74 69 6f 6e 25  |ion$=$selection%|
00004d30  0d 17 48 13 c8 8e 20 73  65 6c 65 63 74 69 6f 6e  |..H... selection|
00004d40  24 20 ca 0d 17 52 38 c9  20 22 49 6e 66 6f 22 3a  |$ ...R8. "Info":|
00004d50  c8 99 20 22 57 69 6d 70  45 78 74 5f 4f 70 65 6e  |.. "WimpExt_Open|
00004d60  44 69 61 6c 6f 67 75 65  22 2c 2c 2c 69 6e 66 6f  |Dialogue",,,info|
00004d70  62 6f 78 25 2c 33 39 38  2c 34 34 0d 17 5c 12 c9  |box%,398,44..\..|
00004d80  20 22 4f 70 74 69 6f 6e  73 2e 2e 2e 22 0d 17 66  | "Options..."..f|
00004d90  1b f2 72 65 73 74 6f 72  65 5f 6f 70 74 69 6f 6e  |..restore_option|
00004da0  73 5f 77 69 6e 64 6f 77  0d 17 70 27 f2 6f 70 65  |s_window..p'.ope|
00004db0  6e 28 6f 70 74 69 6f 6e  5f 62 61 63 6b 25 29 3a  |n(option_back%):|
00004dc0  6f 70 74 69 6f 6e 73 5f  6f 70 65 6e 25 3d b9 0d  |options_open%=..|
00004dd0  17 7a 38 c8 99 20 22 57  69 6d 70 45 78 74 5f 43  |.z8.. "WimpExt_C|
00004de0  68 65 63 6b 57 69 6e 64  6f 77 4f 70 65 6e 22 2c  |heckWindowOpen",|
00004df0  6d 61 69 6e 5f 62 61 63  6b 25 20 b8 20 6d 61 69  |main_back% . mai|
00004e00  6e 5f 6f 70 65 6e 25 0d  17 84 38 e7 20 6d 61 69  |n_open%...8. mai|
00004e10  6e 5f 6f 70 65 6e 25 3d  31 20 8c 20 f2 63 6c 6f  |n_open%=1 . .clo|
00004e20  73 65 28 6d 61 69 6e 5f  62 61 63 6b 25 29 3a f2  |se(main_back%):.|
00004e30  63 6c 6f 73 65 28 73 63  72 6f 6c 6c 79 25 29 0d  |close(scrolly%).|
00004e40  17 8e 18 c9 20 22 51 75  69 74 22 3a f2 71 75 69  |.... "Quit":.qui|
00004e50  74 5f 63 68 65 63 6b 0d  17 98 70 c9 20 22 41 63  |t_check...p. "Ac|
00004e60  74 69 6f 6e 2e 43 72 65  64 69 74 20 20 20 20 20  |tion.Credit     |
00004e70  20 20 20 20 20 46 31 22  2c 22 41 63 74 69 6f 6e  |     F1","Action|
00004e80  2e 43 72 65 64 69 74 22  3a f2 63 6c 6f 73 65 5f  |.Credit":.close_|
00004e90  61 6c 6c 3a f2 73 65 74  75 70 5f 63 72 65 64 69  |all:.setup_credi|
00004ea0  74 3a f2 6f 70 65 6e 28  63 72 65 64 69 74 25 29  |t:.open(credit%)|
00004eb0  3a f2 6d 6f 76 65 5f 63  61 72 65 74 28 63 72 65  |:.move_caret(cre|
00004ec0  64 69 74 25 2c 37 29 0d  17 a2 6c c9 20 22 41 63  |dit%,7)...l. "Ac|
00004ed0  74 69 6f 6e 2e 44 65 62  69 74 20 20 20 20 20 20  |tion.Debit      |
00004ee0  20 20 20 20 20 46 32 22  2c 22 41 63 74 69 6f 6e  |     F2","Action|
00004ef0  2e 44 65 62 69 74 22 3a  f2 63 6c 6f 73 65 5f 61  |.Debit":.close_a|
00004f00  6c 6c 3a f2 73 65 74 75  70 5f 64 65 62 69 74 3a  |ll:.setup_debit:|
00004f10  f2 6f 70 65 6e 28 64 65  62 69 74 25 29 3a f2 6d  |.open(debit%):.m|
00004f20  6f 76 65 5f 63 61 72 65  74 28 64 65 62 69 74 25  |ove_caret(debit%|
00004f30  2c 37 29 0d 17 ac 7e c9  20 22 41 63 74 69 6f 6e  |,7)...~. "Action|
00004f40  2e 53 74 61 6e 64 69 6e  67 20 4f 72 64 65 72 20  |.Standing Order |
00004f50  20 46 35 22 2c 22 41 63  74 69 6f 6e 2e 53 74 61  | F5","Action.Sta|
00004f60  6e 64 69 6e 67 20 4f 72  64 65 72 22 3a f2 63 6c  |nding Order":.cl|
00004f70  6f 73 65 5f 61 6c 6c 3a  f2 73 65 74 75 70 5f 73  |ose_all:.setup_s|
00004f80  74 61 6e 64 69 6e 67 3a  f2 6f 70 65 6e 28 73 74  |tanding:.open(st|
00004f90  61 6e 64 69 6e 67 25 29  3a f2 6d 6f 76 65 5f 63  |anding%):.move_c|
00004fa0  61 72 65 74 28 73 74 61  6e 64 69 6e 67 25 2c 37  |aret(standing%,7|
00004fb0  29 0d 17 b6 6c c9 20 22  41 63 74 69 6f 6e 2e 41  |)...l. "Action.A|
00004fc0  6d 65 6e 64 20 20 20 20  20 20 20 20 20 20 20 46  |mend           F|
00004fd0  36 22 2c 22 41 63 74 69  6f 6e 2e 41 6d 65 6e 64  |6","Action.Amend|
00004fe0  22 3a f2 63 6c 6f 73 65  5f 61 6c 6c 3a f2 73 65  |":.close_all:.se|
00004ff0  74 75 70 5f 61 6d 65 6e  64 3a f2 6f 70 65 6e 28  |tup_amend:.open(|
00005000  61 6d 65 6e 64 25 29 3a  f2 6d 6f 76 65 5f 63 61  |amend%):.move_ca|
00005010  72 65 74 28 61 6d 65 6e  64 25 2c 37 29 0d 17 c0  |ret(amend%,7)...|
00005020  44 c9 20 22 41 63 74 69  6f 6e 2e 44 65 6c 65 74  |D. "Action.Delet|
00005030  65 20 20 20 20 20 20 20  20 20 20 46 37 22 2c 22  |e          F7","|
00005040  41 63 74 69 6f 6e 2e 44  65 6c 65 74 65 22 3a f2  |Action.Delete":.|
00005050  63 6c 6f 73 65 5f 61 6c  6c 3a f2 64 65 6c 65 74  |close_all:.delet|
00005060  65 0d 17 ca 4e c9 20 22  4a 61 6e 75 61 72 79 22  |e...N. "January"|
00005070  2c 22 53 74 61 74 65 6d  65 6e 74 2e 4d 6f 6e 74  |,"Statement.Mont|
00005080  68 2e 4a 61 6e 75 61 72  79 22 3a 6d 6f 6e 74 68  |h.January":month|
00005090  25 3d 30 2b 28 79 65 61  72 70 6c 75 73 25 2a 31  |%=0+(yearplus%*1|
000050a0  32 29 3a f2 75 70 64 61  74 65 5f 74 69 6d 65 0d  |2):.update_time.|
000050b0  17 d4 50 c9 20 22 46 65  62 72 75 61 72 79 22 2c  |..P. "February",|
000050c0  22 53 74 61 74 65 6d 65  6e 74 2e 4d 6f 6e 74 68  |"Statement.Month|
000050d0  2e 46 65 62 72 75 61 72  79 22 3a 6d 6f 6e 74 68  |.February":month|
000050e0  25 3d 31 2b 28 79 65 61  72 70 6c 75 73 25 2a 31  |%=1+(yearplus%*1|
000050f0  32 29 3a f2 75 70 64 61  74 65 5f 74 69 6d 65 0d  |2):.update_time.|
00005100  17 de 4a c9 20 22 4d 61  72 63 68 22 2c 22 53 74  |..J. "March","St|
00005110  61 74 65 6d 65 6e 74 2e  4d 6f 6e 74 68 2e 4d 61  |atement.Month.Ma|
00005120  72 63 68 22 3a 6d 6f 6e  74 68 25 3d 32 2b 28 79  |rch":month%=2+(y|
00005130  65 61 72 70 6c 75 73 25  2a 31 32 29 3a f2 75 70  |earplus%*12):.up|
00005140  64 61 74 65 5f 74 69 6d  65 0d 17 e8 4a c9 20 22  |date_time...J. "|
00005150  41 70 72 69 6c 22 2c 22  53 74 61 74 65 6d 65 6e  |April","Statemen|
00005160  74 2e 4d 6f 6e 74 68 2e  41 70 72 69 6c 22 3a 6d  |t.Month.April":m|
00005170  6f 6e 74 68 25 3d 33 2b  28 79 65 61 72 70 6c 75  |onth%=3+(yearplu|
00005180  73 25 2a 31 32 29 3a f2  75 70 64 61 74 65 5f 74  |s%*12):.update_t|
00005190  69 6d 65 0d 17 f2 46 c9  20 22 4d 61 79 22 2c 22  |ime...F. "May","|
000051a0  53 74 61 74 65 6d 65 6e  74 2e 4d 6f 6e 74 68 2e  |Statement.Month.|
000051b0  4d 61 79 22 3a 6d 6f 6e  74 68 25 3d 34 2b 28 79  |May":month%=4+(y|
000051c0  65 61 72 70 6c 75 73 25  2a 31 32 29 3a f2 75 70  |earplus%*12):.up|
000051d0  64 61 74 65 5f 74 69 6d  65 0d 17 fc 48 c9 20 22  |date_time...H. "|
000051e0  4a 75 6e 65 22 2c 22 53  74 61 74 65 6d 65 6e 74  |June","Statement|
000051f0  2e 4d 6f 6e 74 68 2e 4a  75 6e 65 22 3a 6d 6f 6e  |.Month.June":mon|
00005200  74 68 25 3d 35 2b 28 79  65 61 72 70 6c 75 73 25  |th%=5+(yearplus%|
00005210  2a 31 32 29 3a f2 75 70  64 61 74 65 5f 74 69 6d  |*12):.update_tim|
00005220  65 0d 18 06 48 c9 20 22  4a 75 6c 79 22 2c 22 53  |e...H. "July","S|
00005230  74 61 74 65 6d 65 6e 74  2e 4d 6f 6e 74 68 2e 4a  |tatement.Month.J|
00005240  75 6c 79 22 3a 6d 6f 6e  74 68 25 3d 36 2b 28 79  |uly":month%=6+(y|
00005250  65 61 72 70 6c 75 73 25  2a 31 32 29 3a f2 75 70  |earplus%*12):.up|
00005260  64 61 74 65 5f 74 69 6d  65 0d 18 10 4c c9 20 22  |date_time...L. "|
00005270  41 75 67 75 73 74 22 2c  22 53 74 61 74 65 6d 65  |August","Stateme|
00005280  6e 74 2e 4d 6f 6e 74 68  2e 41 75 67 75 73 74 22  |nt.Month.August"|
00005290  3a 6d 6f 6e 74 68 25 3d  37 2b 28 79 65 61 72 70  |:month%=7+(yearp|
000052a0  6c 75 73 25 2a 31 32 29  3a f2 75 70 64 61 74 65  |lus%*12):.update|
000052b0  5f 74 69 6d 65 0d 18 1a  52 c9 20 22 53 65 70 74  |_time...R. "Sept|
000052c0  65 6d 62 65 72 22 2c 22  53 74 61 74 65 6d 65 6e  |ember","Statemen|
000052d0  74 2e 4d 6f 6e 74 68 2e  53 65 70 74 65 6d 62 65  |t.Month.Septembe|
000052e0  72 22 3a 6d 6f 6e 74 68  25 3d 38 2b 28 79 65 61  |r":month%=8+(yea|
000052f0  72 70 6c 75 73 25 2a 31  32 29 3a f2 75 70 64 61  |rplus%*12):.upda|
00005300  74 65 5f 74 69 6d 65 0d  18 24 4e c9 20 22 4f 63  |te_time..$N. "Oc|
00005310  74 6f 62 65 72 22 2c 22  53 74 61 74 65 6d 65 6e  |tober","Statemen|
00005320  74 2e 4d 6f 6e 74 68 2e  4f 63 74 6f 62 65 72 22  |t.Month.October"|
00005330  3a 6d 6f 6e 74 68 25 3d  39 2b 28 79 65 61 72 70  |:month%=9+(yearp|
00005340  6c 75 73 25 2a 31 32 29  3a f2 75 70 64 61 74 65  |lus%*12):.update|
00005350  5f 74 69 6d 65 0d 18 2e  51 c9 20 22 4e 6f 76 65  |_time...Q. "Nove|
00005360  6d 62 65 72 22 2c 22 53  74 61 74 65 6d 65 6e 74  |mber","Statement|
00005370  2e 4d 6f 6e 74 68 2e 4e  6f 76 65 6d 62 65 72 22  |.Month.November"|
00005380  3a 6d 6f 6e 74 68 25 3d  31 30 2b 28 79 65 61 72  |:month%=10+(year|
00005390  70 6c 75 73 25 2a 31 32  29 3a f2 75 70 64 61 74  |plus%*12):.updat|
000053a0  65 5f 74 69 6d 65 0d 18  38 51 c9 20 22 44 65 63  |e_time..8Q. "Dec|
000053b0  65 6d 62 65 72 22 2c 22  53 74 61 74 65 6d 65 6e  |ember","Statemen|
000053c0  74 2e 4d 6f 6e 74 68 2e  44 65 63 65 6d 62 65 72  |t.Month.December|
000053d0  22 3a 6d 6f 6e 74 68 25  3d 31 31 2b 28 79 65 61  |":month%=11+(yea|
000053e0  72 70 6c 75 73 25 2a 31  32 29 3a f2 75 70 64 61  |rplus%*12):.upda|
000053f0  74 65 5f 74 69 6d 65 0d  18 42 66 c9 20 c3 28 79  |te_time..Bf. .(y|
00005400  65 61 72 25 29 2c 22 53  74 61 74 65 6d 65 6e 74  |ear%),"Statement|
00005410  2e 59 65 61 72 2e 22 2b  c3 28 79 65 61 72 25 29  |.Year."+.(year%)|
00005420  3a 79 65 61 72 70 6c 75  73 25 3d 30 3a 6d 6f 6e  |:yearplus%=0:mon|
00005430  74 68 25 3d 28 6d 6f 6e  74 68 25 20 83 20 31 32  |th%=(month% . 12|
00005440  29 2b 28 79 65 61 72 70  6c 75 73 25 2a 31 32 29  |)+(yearplus%*12)|
00005450  3a f2 75 70 64 61 74 65  5f 74 69 6d 65 0d 18 4c  |:.update_time..L|
00005460  6a c9 20 c3 28 79 65 61  72 25 2b 31 29 2c 22 53  |j. .(year%+1),"S|
00005470  74 61 74 65 6d 65 6e 74  2e 59 65 61 72 2e 22 2b  |tatement.Year."+|
00005480  c3 28 79 65 61 72 25 2b  31 29 3a 79 65 61 72 70  |.(year%+1):yearp|
00005490  6c 75 73 25 3d 31 3a 6d  6f 6e 74 68 25 3d 28 6d  |lus%=1:month%=(m|
000054a0  6f 6e 74 68 25 20 83 20  31 32 29 2b 28 79 65 61  |onth% . 12)+(yea|
000054b0  72 70 6c 75 73 25 2a 31  32 29 3a f2 75 70 64 61  |rplus%*12):.upda|
000054c0  74 65 5f 74 69 6d 65 0d  18 56 6a c9 20 c3 28 79  |te_time..Vj. .(y|
000054d0  65 61 72 25 2b 32 29 2c  22 53 74 61 74 65 6d 65  |ear%+2),"Stateme|
000054e0  6e 74 2e 59 65 61 72 2e  22 2b c3 28 79 65 61 72  |nt.Year."+.(year|
000054f0  25 2b 32 29 3a 79 65 61  72 70 6c 75 73 25 3d 32  |%+2):yearplus%=2|
00005500  3a 6d 6f 6e 74 68 25 3d  28 6d 6f 6e 74 68 25 20  |:month%=(month% |
00005510  83 20 31 32 29 2b 28 79  65 61 72 70 6c 75 73 25  |. 12)+(yearplus%|
00005520  2a 31 32 29 3a f2 75 70  64 61 74 65 5f 74 69 6d  |*12):.update_tim|
00005530  65 0d 18 60 6a c9 20 c3  28 79 65 61 72 25 2b 33  |e..`j. .(year%+3|
00005540  29 2c 22 53 74 61 74 65  6d 65 6e 74 2e 59 65 61  |),"Statement.Yea|
00005550  72 2e 22 2b c3 28 79 65  61 72 25 2b 33 29 3a 79  |r."+.(year%+3):y|
00005560  65 61 72 70 6c 75 73 25  3d 33 3a 6d 6f 6e 74 68  |earplus%=3:month|
00005570  25 3d 28 6d 6f 6e 74 68  25 20 83 20 31 32 29 2b  |%=(month% . 12)+|
00005580  28 79 65 61 72 70 6c 75  73 25 2a 31 32 29 3a f2  |(yearplus%*12):.|
00005590  75 70 64 61 74 65 5f 74  69 6d 65 0d 18 6a 6a c9  |update_time..jj.|
000055a0  20 c3 28 79 65 61 72 25  2b 34 29 2c 22 53 74 61  | .(year%+4),"Sta|
000055b0  74 65 6d 65 6e 74 2e 59  65 61 72 2e 22 2b c3 28  |tement.Year."+.(|
000055c0  79 65 61 72 25 2b 34 29  3a 79 65 61 72 70 6c 75  |year%+4):yearplu|
000055d0  73 25 3d 34 3a 6d 6f 6e  74 68 25 3d 28 6d 6f 6e  |s%=4:month%=(mon|
000055e0  74 68 25 20 83 20 31 32  29 2b 28 79 65 61 72 70  |th% . 12)+(yearp|
000055f0  6c 75 73 25 2a 31 32 29  3a f2 75 70 64 61 74 65  |lus%*12):.update|
00005600  5f 74 69 6d 65 0d 18 74  21 c9 20 22 52 65 73 74  |_time..t!. "Rest|
00005610  61 72 74 20 20 20 20 20  20 46 38 22 2c 22 52 65  |art      F8","Re|
00005620  73 74 61 72 74 22 0d 18  7e 0f c8 8e 20 73 61 76  |start"..~... sav|
00005630  65 64 25 20 ca 0d 18 88  07 c9 20 a3 0d 18 92 45  |ed% ...... ....E|
00005640  71 75 65 72 79 74 79 70  65 24 3d 22 43 6c 65 61  |querytype$="Clea|
00005650  72 22 3a f2 6f 70 65 6e  28 71 75 65 72 79 25 29  |r":.open(query%)|
00005660  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 4c 69 6d  |:.. "WimpExt_Lim|
00005670  69 74 50 6f 69 6e 74 65  72 22 2c 71 75 65 72 79  |itPointer",query|
00005680  25 0d 18 9c 07 c9 20 b9  0d 18 a6 12 f2 63 6c 65  |%..... ......cle|
00005690  61 72 3a f2 72 65 64 72  61 77 0d 18 b0 05 cb 0d  |ar:.redraw......|
000056a0  18 ba 05 cb 0d 18 c4 20  c8 99 20 22 57 69 6d 70  |....... .. "Wimp|
000056b0  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
000056c0  2c 2c 71 25 0d 18 ce 30  e7 20 71 25 21 38 3d 31  |,,q%...0. q%!8=1|
000056d0  20 8c 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  | . .. "Wimp_Crea|
000056e0  74 65 4d 65 6e 75 22 2c  2c 73 65 6c 65 63 74 6d  |teMenu",,selectm|
000056f0  65 6e 75 25 0d 18 d8 05  e1 0d 18 e2 05 3a 0d 18  |enu%.........:..|
00005700  ec 11 dd f2 75 70 64 61  74 65 5f 74 69 6d 65 0d  |....update_time.|
00005710  18 f6 10 40 25 3d 26 30  31 30 30 30 39 30 41 0d  |...@%=&0100090A.|
00005720  19 00 3f e3 20 69 74 65  6d 25 3d 30 20 b8 20 31  |..?. item%=0 . 1|
00005730  31 3a c8 99 20 22 57 69  6d 70 45 78 74 5f 54 69  |1:.. "WimpExt_Ti|
00005740  63 6b 45 6e 74 72 79 22  2c 2c 6d 6f 6e 74 68 6d  |ckEntry",,monthm|
00005750  65 6e 75 25 2c 69 74 65  6d 25 2c 30 3a ed 0d 19  |enu%,item%,0:...|
00005760  0a 3d e3 20 69 74 65 6d  25 3d 30 20 b8 20 34 3a  |.=. item%=0 . 4:|
00005770  c8 99 20 22 57 69 6d 70  45 78 74 5f 54 69 63 6b  |.. "WimpExt_Tick|
00005780  45 6e 74 72 79 22 2c 2c  79 65 61 72 6d 65 6e 75  |Entry",,yearmenu|
00005790  25 2c 69 74 65 6d 25 2c  30 3a ed 0d 19 14 3e c8  |%,item%,0:....>.|
000057a0  99 20 22 57 69 6d 70 45  78 74 5f 54 69 63 6b 45  |. "WimpExt_TickE|
000057b0  6e 74 72 79 22 2c 2c 6d  6f 6e 74 68 6d 65 6e 75  |ntry",,monthmenu|
000057c0  25 2c 6d 6f 6e 74 68 25  2d 28 79 65 61 72 70 6c  |%,month%-(yearpl|
000057d0  75 73 25 2a 31 32 29 2c  31 0d 19 1e 31 c8 99 20  |us%*12),1...1.. |
000057e0  22 57 69 6d 70 45 78 74  5f 54 69 63 6b 45 6e 74  |"WimpExt_TickEnt|
000057f0  72 79 22 2c 2c 79 65 61  72 6d 65 6e 75 25 2c 79  |ry",,yearmenu%,y|
00005800  65 61 72 70 6c 75 73 25  2c 31 0d 19 28 33 f2 75  |earplus%,1..(3.u|
00005810  70 64 61 74 65 5f 69 63  6f 6e 28 6d 61 69 6e 5f  |pdate_icon(main_|
00005820  62 61 63 6b 25 2c 31 31  2c 6d 6f 6e 74 68 24 28  |back%,11,month$(|
00005830  6d 6f 6e 74 68 25 20 83  20 31 32 29 29 0d 19 32  |month% . 12))..2|
00005840  32 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 6d 61  |2.update_icon(ma|
00005850  69 6e 5f 62 61 63 6b 25  2c 31 32 2c c3 28 79 65  |in_back%,12,.(ye|
00005860  61 72 25 2b 79 65 61 72  70 6c 75 73 25 29 29 0d  |ar%+yearplus%)).|
00005870  19 3c 20 73 65 6c 65 63  74 25 3d 2d 31 3a 73 68  |.< select%=-1:sh|
00005880  61 64 65 64 25 3d b9 3a  f2 72 65 64 72 61 77 0d  |aded%=.:.redraw.|
00005890  19 46 05 e1 0d 19 50 05  3a 0d 19 5a 12 dd f2 75  |.F....P.:..Z...u|
000058a0  70 64 61 74 65 5f 70 72  69 6e 74 0d 19 64 3b f2  |pdate_print..d;.|
000058b0  75 70 64 61 74 65 5f 69  63 6f 6e 28 70 72 69 6e  |update_icon(prin|
000058c0  74 62 6f 78 25 2c 31 33  2c 6d 6f 6e 74 68 24 28  |tbox%,13,month$(|
000058d0  6d 6f 6e 74 68 5f 74 6f  5f 70 72 69 6e 74 25 20  |month_to_print% |
000058e0  83 20 31 32 29 29 0d 19  6e 37 f2 75 70 64 61 74  |. 12))..n7.updat|
000058f0  65 5f 69 63 6f 6e 28 70  72 69 6e 74 62 6f 78 25  |e_icon(printbox%|
00005900  2c 31 34 2c c3 28 79 65  61 72 25 2b 79 65 61 72  |,14,.(year%+year|
00005910  70 6c 75 73 5f 70 72 69  6e 74 25 29 29 0d 19 78  |plus_print%))..x|
00005920  05 e1 0d 19 82 05 3a 0d  19 8c 0b dd f2 66 6f 6e  |......:......fon|
00005930  74 73 0d 19 96 2b de 20  66 6f 6e 74 62 25 20 32  |ts...+. fontb% 2|
00005940  35 35 3a e3 20 49 25 3d  30 20 b8 20 32 35 35 3a  |55:. I%=0 . 255:|
00005950  66 6f 6e 74 62 25 3f 49  25 3d 30 3a ed 0d 19 a0  |fontb%?I%=0:....|
00005960  05 e1 0d 19 aa 05 3a 0d  19 b4 14 dd f2 70 72 65  |......:......pre|
00005970  5f 70 6f 6c 6c 5f 65 72  72 6f 72 0d 19 be 08 eb  |_poll_error.....|
00005980  20 31 35 0d 19 c8 13 f1  20 f6 24 2b 22 20 40 20  | 15..... .$+" @ |
00005990  22 2b c3 28 9e 29 0d 19  d2 09 ee 20 85 20 87 0d  |"+.(.)..... . ..|
000059a0  19 dc 11 ff 20 22 50 6f  69 6e 74 65 72 20 31 22  |.... "Pointer 1"|
000059b0  0d 19 e6 05 e1 0d 19 f0  05 3a 0d 19 fa 3b dd f2  |.........:...;..|
000059c0  75 70 64 61 74 65 5f 69  63 6f 6e 28 75 70 64 61  |update_icon(upda|
000059d0  74 65 5f 77 69 6e 64 6f  77 25 2c 75 70 64 61 74  |te_window%,updat|
000059e0  65 5f 69 63 6f 6e 25 2c  75 70 64 61 74 65 5f 74  |e_icon%,update_t|
000059f0  65 78 74 24 29 0d 1a 04  28 21 71 25 3d 75 70 64  |ext$)...(!q%=upd|
00005a00  61 74 65 5f 77 69 6e 64  6f 77 25 3a 71 25 21 34  |ate_window%:q%!4|
00005a10  3d 75 70 64 61 74 65 5f  69 63 6f 6e 25 0d 1a 0e  |=update_icon%...|
00005a20  1e c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |... "Wimp_GetIco|
00005a30  6e 53 74 61 74 65 22 2c  2c 71 25 0d 1a 18 31 24  |nState",,q%...1$|
00005a40  28 71 25 21 32 38 29 3d  75 70 64 61 74 65 5f 74  |(q%!28)=update_t|
00005a50  65 78 74 24 3a 71 25 21  33 36 3d a9 28 75 70 64  |ext$:q%!36=.(upd|
00005a60  61 74 65 5f 74 65 78 74  24 29 2b 31 0d 1a 22 12  |ate_text$)+1..".|
00005a70  71 25 21 38 3d 30 3a 71  25 21 31 32 3d 30 0d 1a  |q%!8=0:q%!12=0..|
00005a80  2c 1e c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |,... "Wimp_SetIc|
00005a90  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 1a 36 05  |onState",,q%..6.|
00005aa0  e1 0d 1a 40 05 3a 0d 1a  4a 18 dd a4 69 6e 64 69  |...@.:..J...indi|
00005ab0  72 65 63 74 28 21 71 25  2c 71 25 21 34 29 0d 1a  |rect(!q%,q%!4)..|
00005ac0  54 1e c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |T... "Wimp_GetIc|
00005ad0  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 1a 5e 0d  |onState",,q%..^.|
00005ae0  3d 24 28 71 25 21 32 38  29 0d 1a 68 05 3a 0d 1a  |=$(q%!28)..h.:..|
00005af0  72 0e dd f2 61 6e 6e 6f  75 6e 63 65 0d 1a 7c 15  |r...announce..|.|
00005b00  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
00005b10  22 0d 1a 86 2e f2 75 70  64 61 74 65 5f 69 63 6f  |".....update_ico|
00005b20  6e 28 61 6e 6e 6f 75 6e  63 65 25 2c 32 2c 22 56  |n(announce%,2,"V|
00005b30  65 72 73 69 6f 6e 3a 20  22 2b 76 65 72 24 29 0d  |ersion: "+ver$).|
00005b40  1a 90 28 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |..(.update_icon(|
00005b50  61 6e 6e 6f 75 6e 63 65  25 2c 31 2c 63 6f 70 79  |announce%,1,copy|
00005b60  72 69 67 68 74 24 29 0d  1a 9a 28 c8 99 20 22 57  |right$)...(.. "W|
00005b70  69 6d 70 45 78 74 5f 4f  70 65 6e 57 69 6e 64 6f  |impExt_OpenWindo|
00005b80  77 54 6f 70 22 2c 61 6e  6e 6f 75 6e 63 65 25 0d  |wTop",announce%.|
00005b90  1a a4 1d f2 72 65 64 72  61 77 5f 77 69 6e 64 6f  |....redraw_windo|
00005ba0  77 28 61 6e 6e 6f 75 6e  63 65 25 29 0d 1a ae 45  |w(announce%)...E|
00005bb0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 61 6e 6e  |.update_icon(ann|
00005bc0  6f 75 6e 63 65 25 2c 33  2c 22 50 6c 65 61 73 65  |ounce%,3,"Please|
00005bd0  20 57 61 69 74 3a 20 49  6e 69 74 69 61 6c 69 73  | Wait: Initialis|
00005be0  69 6e 67 20 42 61 6e 6b  20 53 79 73 74 65 6d 22  |ing Bank System"|
00005bf0  29 0d 1a b8 1b f2 69 6e  69 74 69 61 6c 69 73 65  |).....initialise|
00005c00  5f 62 61 6e 6b 5f 73 79  73 74 65 6d 0d 1a c2 46  |_bank_system...F|
00005c10  e3 20 77 61 69 74 25 3d  31 20 b8 20 32 35 3a c8  |. wait%=1 . 25:.|
00005c20  96 3a c8 96 3a c8 99 20  22 48 6f 75 72 67 6c 61  |.:..:.. "Hourgla|
00005c30  73 73 5f 50 65 72 63 65  6e 74 61 67 65 22 2c a8  |ss_Percentage",.|
00005c40  28 28 77 61 69 74 25 2f  32 35 29 2a 31 30 30 29  |((wait%/25)*100)|
00005c50  3a ed 0d 1a cc 39 f2 75  70 64 61 74 65 5f 69 63  |:....9.update_ic|
00005c60  6f 6e 28 61 6e 6e 6f 75  6e 63 65 25 2c 33 2c 22  |on(announce%,3,"|
00005c70  50 6c 65 61 73 65 20 57  61 69 74 3a 20 4d 61 6b  |Please Wait: Mak|
00005c80  69 6e 67 20 4d 65 6e 75  73 22 29 0d 1a d6 0d f2  |ing Menus").....|
00005c90  6d 61 6b 65 6d 65 6e 75  0d 1a e0 46 e3 20 77 61  |makemenu...F. wa|
00005ca0  69 74 25 3d 31 20 b8 20  32 35 3a c8 96 3a c8 96  |it%=1 . 25:..:..|
00005cb0  3a c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 50  |:.. "Hourglass_P|
00005cc0  65 72 63 65 6e 74 61 67  65 22 2c a8 28 28 77 61  |ercentage",.((wa|
00005cd0  69 74 25 2f 32 35 29 2a  31 30 30 29 3a ed 0d 1a  |it%/25)*100):...|
00005ce0  ea 46 e3 20 77 61 69 74  25 3d 31 20 b8 20 32 35  |.F. wait%=1 . 25|
00005cf0  3a c8 96 3a c8 96 3a c8  99 20 22 48 6f 75 72 67  |:..:..:.. "Hourg|
00005d00  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
00005d10  2c a8 28 28 77 61 69 74  25 2f 32 35 29 2a 31 30  |,.((wait%/25)*10|
00005d20  30 29 3a ed 0d 1a f4 21  f2 75 70 64 61 74 65 5f  |0):....!.update_|
00005d30  69 63 6f 6e 28 69 6e 66  6f 62 6f 78 25 2c 37 2c  |icon(infobox%,7,|
00005d40  76 65 72 24 29 0d 1a fe  2d f2 6d 73 5f 6c 6f 61  |ver$)...-.ms_loa|
00005d50  64 28 22 3c 42 61 6e 6b  24 44 69 72 3e 2e 52 65  |d("<Bank$Dir>.Re|
00005d60  73 6f 75 72 63 65 73 2e  4d 65 73 73 61 67 65 73  |sources.Messages|
00005d70  22 29 0d 1b 08 31 c8 99  20 22 57 69 6d 70 45 78  |")...1.. "WimpEx|
00005d80  74 5f 49 63 6f 6e 42 61  72 53 70 72 69 74 65 22  |t_IconBarSprite"|
00005d90  2c 2c 2c 2d 31 2c 22 21  42 61 6e 6b 53 79 73 22  |,,,-1,"!BankSys"|
00005da0  2c 2c 33 0d 1b 12 1c 65  72 72 6f 72 25 3d 30 3a  |,,3....error%=0:|
00005db0  6d 65 6e 75 25 3d 30 3a  71 75 69 74 25 3d a3 0d  |menu%=0:quit%=..|
00005dc0  1b 1c 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |..:.update_icon(|
00005dd0  61 6e 6e 6f 75 6e 63 65  25 2c 33 2c 22 50 6c 65  |announce%,3,"Ple|
00005de0  61 73 65 20 57 61 69 74  3a 20 43 6c 65 61 72 69  |ase Wait: Cleari|
00005df0  6e 67 20 44 61 74 61 22  29 0d 1b 26 25 f2 63 6c  |ng Data")..&%.cl|
00005e00  65 61 72 3a f2 75 70 64  61 74 65 5f 74 69 6d 65  |ear:.update_time|
00005e10  3a f2 75 70 64 61 74 65  5f 70 72 69 6e 74 0d 1b  |:.update_print..|
00005e20  30 46 e3 20 77 61 69 74  25 3d 31 20 b8 20 32 35  |0F. wait%=1 . 25|
00005e30  3a c8 96 3a c8 96 3a c8  99 20 22 48 6f 75 72 67  |:..:..:.. "Hourg|
00005e40  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
00005e50  2c a8 28 28 77 61 69 74  25 2f 32 35 29 2a 31 30  |,.((wait%/25)*10|
00005e60  30 29 3a ed 0d 1b 3a 18  e7 20 61 75 74 6f 5f 6c  |0):...:.. auto_l|
00005e70  6f 61 64 24 3d 22 59 65  73 22 20 8c 0d 1b 44 39  |oad$="Yes" ...D9|
00005e80  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 61 6e 6e  |.update_icon(ann|
00005e90  6f 75 6e 63 65 25 2c 33  2c 22 50 6c 65 61 73 65  |ounce%,3,"Please|
00005ea0  20 57 61 69 74 3a 20 4c  6f 61 64 69 6e 67 20 46  | Wait: Loading F|
00005eb0  69 6c 65 22 29 0d 1b 4e  1f f2 6c 6f 61 64 5f 64  |ile")..N..load_d|
00005ec0  61 74 61 28 61 75 74 6f  5f 6c 6f 61 64 5f 66 69  |ata(auto_load_fi|
00005ed0  6c 65 24 29 0d 1b 58 26  e7 20 70 61 73 73 77 6f  |le$)..X&. passwo|
00005ee0  72 64 24 3d 22 4e 6f 22  20 f2 6f 70 65 6e 28 6d  |rd$="No" .open(m|
00005ef0  61 69 6e 5f 62 61 63 6b  25 29 0d 1b 62 05 cd 0d  |ain_back%)..b...|
00005f00  1b 6c 2b 21 71 25 3d 61  6e 6e 6f 75 6e 63 65 25  |.l+!q%=announce%|
00005f10  3a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |:.. "Wimp_CloseW|
00005f20  69 6e 64 6f 77 22 2c 2c  71 25 0d 1b 76 5c e7 20  |indow",,q%..v\. |
00005f30  70 61 73 73 77 6f 72 64  24 3d 22 59 65 73 22 20  |password$="Yes" |
00005f40  8c 20 f2 6f 70 65 6e 28  70 77 62 6f 78 25 29 3a  |. .open(pwbox%):|
00005f50  f2 6d 6f 76 65 5f 63 61  72 65 74 28 70 77 62 6f  |.move_caret(pwbo|
00005f60  78 25 2c 31 29 3a c8 99  20 22 57 69 6d 70 45 78  |x%,1):.. "WimpEx|
00005f70  74 5f 4c 69 6d 69 74 50  6f 69 6e 74 65 72 22 2c  |t_LimitPointer",|
00005f80  70 77 62 6f 78 25 0d 1b  80 16 c8 99 20 22 48 6f  |pwbox%...... "Ho|
00005f90  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 1b 8a 05  |urglass_Off"....|
00005fa0  e1 0d 1b 94 05 3a 0d 1b  9e 1c dd f2 69 6e 69 74  |.....:......init|
00005fb0  69 61 6c 69 73 65 5f 62  61 6e 6b 5f 73 79 73 74  |ialise_bank_syst|
00005fc0  65 6d 0d 1b a8 49 de 20  6e 61 6d 65 24 28 31 30  |em...I. name$(10|
00005fd0  30 2c 35 39 29 2c 61 6d  6f 75 6e 74 25 28 31 30  |0,59),amount%(10|
00005fe0  30 2c 35 39 29 2c 64 61  74 65 25 28 31 30 30 2c  |0,59),date%(100,|
00005ff0  35 39 29 2c 65 6e 74 72  79 25 28 35 39 29 2c 62  |59),entry%(59),b|
00006000  61 6c 61 6e 63 65 25 28  35 39 29 0d 1b b2 1f 73  |alance%(59)....s|
00006010  74 61 6e 64 5f 73 69 67  6e 25 3d 31 3a 73 74 61  |tand_sign%=1:sta|
00006020  6e 64 5f 66 72 65 71 25  3d 31 0d 1b bc 3b 73 61  |nd_freq%=1...;sa|
00006030  76 65 64 25 3d b9 3a 73  68 61 64 65 64 25 3d b9  |ved%=.:shaded%=.|
00006040  3a 6f 6c 64 5f 73 68 61  64 65 64 25 3d a3 3a 73  |:old_shaded%=.:s|
00006050  65 6c 65 63 74 25 3d 2d  31 3a 61 6c 72 65 61 64  |elect%=-1:alread|
00006060  79 25 3d 2d 31 0d 1b c6  2d 73 6c 65 6e 25 3d 32  |y%=-1...-slen%=2|
00006070  30 30 3a 66 6c 65 6e 25  3d 34 36 30 3a 78 30 25  |00:flen%=460:x0%|
00006080  3d 30 3a 79 30 25 3d 30  3a 78 25 3d 30 3a 79 25  |=0:y0%=0:x%=0:y%|
00006090  3d 30 0d 1b d0 0f f2 69  6e 69 74 5f 6d 6f 6e 74  |=0.....init_mont|
000060a0  68 0d 1b da 44 6d 6f 6e  74 68 25 3d 28 28 a4 74  |h...Dmonth%=((.t|
000060b0  6f 64 61 79 3e 3e 38 29  83 31 32 29 3a 79 65 61  |oday>>8).12):yea|
000060c0  72 25 3d 28 28 a4 74 6f  64 61 79 3e 3e 38 29 81  |r%=((.today>>8).|
000060d0  31 32 29 3a 64 61 79 25  3d a4 74 6f 64 61 79 20  |12):day%=.today |
000060e0  80 20 32 35 35 0d 1b e4  3b 64 61 79 31 25 3d 64  |. 255...;day1%=d|
000060f0  61 79 25 3a 64 61 79 32  25 3d 64 61 79 25 3a 64  |ay%:day2%=day%:d|
00006100  61 79 33 25 3d 64 61 79  25 3a 64 61 79 34 25 3d  |ay3%=day%:day4%=|
00006110  64 61 79 25 3a 79 65 61  72 70 6c 75 73 25 3d 30  |day%:yearplus%=0|
00006120  0d 1b ee 1c 6f 70 74 69  6f 6e 73 5f 6f 70 65 6e  |....options_open|
00006130  25 3d a3 3a 74 72 69 65  73 25 3d 30 0d 1b f8 16  |%=.:tries%=0....|
00006140  de 20 73 65 6c 65 63 74  66 6f 75 6e 64 25 28 31  |. selectfound%(1|
00006150  35 29 0d 1c 02 42 70 72  69 6e 74 5f 71 75 61 6c  |5)...Bprint_qual|
00006160  69 74 79 24 3d 22 44 72  61 66 74 22 3a 70 72 69  |ity$="Draft":pri|
00006170  6e 74 5f 6c 69 6e 65 66  65 65 64 73 24 3d 22 4e  |nt_linefeeds$="N|
00006180  6f 22 3a 70 72 69 6e 74  5f 77 68 61 74 24 3d 22  |o":print_what$="|
00006190  41 6c 6c 22 0d 1c 0c 4b  6d 6f 6e 74 68 5f 74 6f  |All"...Kmonth_to|
000061a0  5f 70 72 69 6e 74 25 3d  6d 6f 6e 74 68 25 3a 79  |_print%=month%:y|
000061b0  65 61 72 70 6c 75 73 5f  70 72 69 6e 74 25 3d 30  |earplus_print%=0|
000061c0  3a 70 72 69 6e 74 5f 68  65 61 64 65 72 24 3d 22  |:print_header$="|
000061d0  59 65 73 22 3a 70 64 72  69 76 65 72 25 3d 30 0d  |Yes":pdriver%=0.|
000061e0  1c 16 24 73 61 76 65 74  79 70 65 24 3d 22 45 39  |..$savetype$="E9|
000061f0  38 22 3a 73 65 61 72 63  68 73 74 72 69 6e 67 24  |8":searchstring$|
00006200  3d 22 22 0d 1c 20 29 61  63 63 6f 75 6e 74 5f 68  |="".. )account_h|
00006210  6f 6c 64 65 72 24 3d 22  22 3a 61 63 63 6f 75 6e  |older$="":accoun|
00006220  74 5f 62 72 61 6e 63 68  24 3d 22 22 0d 1c 2a 2b  |t_branch$=""..*+|
00006230  61 63 63 6f 75 6e 74 5f  73 6f 72 74 63 6f 64 65  |account_sortcode|
00006240  24 3d 22 22 3a 61 63 63  6f 75 6e 74 5f 6e 75 6d  |$="":account_num|
00006250  62 65 72 24 3d 22 22 0d  1c 34 19 f2 63 68 65 63  |ber$=""..4..chec|
00006260  6b 5f 70 72 69 6e 74 65  72 5f 64 72 69 76 65 72  |k_printer_driver|
00006270  0d 1c 3e 05 e1 0d 1c 48  05 3a 0d 1c 52 10 dd f2  |..>....H.:..R...|
00006280  69 6e 69 74 5f 6d 6f 6e  74 68 0d 1c 5c 87 de 20  |init_month..\.. |
00006290  6d 6f 6e 74 68 24 28 31  31 29 3a 6d 6f 6e 74 68  |month$(11):month|
000062a0  24 28 29 3d 22 4a 61 6e  75 61 72 79 22 2c 22 46  |$()="January","F|
000062b0  65 62 72 75 61 72 79 22  2c 22 4d 61 72 63 68 22  |ebruary","March"|
000062c0  2c 22 41 70 72 69 6c 22  2c 22 4d 61 79 22 2c 22  |,"April","May","|
000062d0  4a 75 6e 65 22 2c 22 4a  75 6c 79 22 2c 22 41 75  |June","July","Au|
000062e0  67 75 73 74 22 2c 22 53  65 70 74 65 6d 62 65 72  |gust","September|
000062f0  22 2c 22 4f 63 74 6f 62  65 72 22 2c 22 4e 6f 76  |","October","Nov|
00006300  65 6d 62 65 72 22 2c 22  44 65 63 65 6d 62 65 72  |ember","December|
00006310  22 0d 1c 66 05 e1 0d 1c  70 05 3a 0d 1c 7a 0b dd  |"..f....p.:..z..|
00006320  a4 74 6f 64 61 79 0d 1c  84 3d 3f 71 25 20 3d 20  |.today...=?q% = |
00006330  31 3a c8 99 20 22 4f 53  5f 57 6f 72 64 22 2c 31  |1:.. "OS_Word",1|
00006340  34 2c 71 25 3a 41 25 3d  3f 71 25 3a 59 25 3d 31  |4,q%:A%=?q%:Y%=1|
00006350  30 2a 28 41 25 3e 3e 34  29 2b 28 41 25 20 80 20  |0*(A%>>4)+(A% . |
00006360  31 35 29 0d 1c 8e 37 41  25 3d 71 25 3f 31 3a 4d  |15)...7A%=q%?1:M|
00006370  25 3d 32 32 37 39 39 2b  59 25 2a 31 32 2b 31 30  |%=22799+Y%*12+10|
00006380  2a 28 41 25 3e 3e 34 29  2b 28 41 25 20 80 20 31  |*(A%>>4)+(A% . 1|
00006390  35 29 3a 41 25 3d 71 25  3f 32 0d 1c 98 21 3d 28  |5):A%=q%?2...!=(|
000063a0  4d 25 3c 3c 38 29 2b 31  30 2a 28 41 25 3e 3e 34  |M%<<8)+10*(A%>>4|
000063b0  29 2b 28 41 25 20 80 20  31 35 29 0d 1c a2 05 3a  |)+(A% . 15)....:|
000063c0  0d 1c ac 1c dd f2 72 65  64 72 61 77 5f 77 69 6e  |......redraw_win|
000063d0  64 6f 77 28 77 69 6e 64  6f 77 25 29 0d 1c b6 0f  |dow(window%)....|
000063e0  21 71 25 3d 77 69 6e 64  6f 77 25 0d 1c c0 26 c8  |!q%=window%...&.|
000063f0  99 20 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |. "Wimp_RedrawWi|
00006400  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 6d 6f 72 65  |ndow",,q% . more|
00006410  25 0d 1c ca 0c c8 95 20  6d 6f 72 65 25 0d 1c d4  |%...... more%...|
00006420  1b c8 99 20 22 57 69 6d  70 45 78 74 5f 52 65 64  |... "WimpExt_Red|
00006430  72 61 77 22 2c 2c 71 25  0d 1c de 26 c8 99 20 22  |raw",,q%...&.. "|
00006440  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
00006450  65 22 2c 2c 71 25 20 b8  20 6d 6f 72 65 25 0d 1c  |e",,q% . more%..|
00006460  e8 05 ce 0d 1c f2 05 e1  0d 1c fc 05 3a 0d 1d 06  |............:...|
00006470  14 dd f2 6d 73 5f 6c 6f  61 64 28 6e 61 6d 65 24  |...ms_load(name$|
00006480  29 0d 1d 10 25 c8 99 20  22 4d 65 73 73 61 67 65  |)...%.. "Message|
00006490  54 72 61 6e 73 5f 46 69  6c 65 49 6e 66 6f 22 2c  |Trans_FileInfo",|
000064a0  2c 6e 61 6d 65 24 0d 1d  1a 12 de 20 6d 73 5f 74  |,name$..... ms_t|
000064b0  65 78 74 25 20 32 35 36  0d 1d 24 2d c8 99 20 22  |ext% 256..$-.. "|
000064c0  4f 53 5f 4d 6f 64 75 6c  65 22 2c 36 2c 2c 2c 31  |OS_Module",6,,,1|
000064d0  37 2b a9 28 6e 61 6d 65  24 29 b8 2c 2c 6d 73 5f  |7+.(name$).,,ms_|
000064e0  64 65 73 63 25 0d 1d 2e  18 24 28 6d 73 5f 64 65  |desc%....$(ms_de|
000064f0  73 63 25 2b 31 36 29 3d  6e 61 6d 65 24 0d 1d 38  |sc%+16)=name$..8|
00006500  33 c8 99 20 22 4d 65 73  73 61 67 65 54 72 61 6e  |3.. "MessageTran|
00006510  73 5f 4f 70 65 6e 46 69  6c 65 22 2c 6d 73 5f 64  |s_OpenFile",ms_d|
00006520  65 73 63 25 2c 6d 73 5f  64 65 73 63 25 2b 31 36  |esc%,ms_desc%+16|
00006530  0d 1d 42 05 e1 0d 1d 4c  05 3a 0d 1d 56 0c dd f2  |..B....L.:..V...|
00006540  6d 73 5f 65 6e 64 0d 1d  60 29 c8 99 20 22 58 4d  |ms_end..`).. "XM|
00006550  65 73 73 61 67 65 54 72  61 6e 73 5f 43 6c 6f 73  |essageTrans_Clos|
00006560  65 46 69 6c 65 22 2c 6d  73 5f 64 65 73 63 25 0d  |eFile",ms_desc%.|
00006570  1d 6a 1f c8 99 20 22 58  4f 53 5f 4d 6f 64 75 6c  |.j... "XOS_Modul|
00006580  65 22 2c 37 2c 2c 6d 73  5f 64 65 73 63 25 0d 1d  |e",7,,ms_desc%..|
00006590  74 05 e1 0d 1d 7e 05 3a  0d 1d 88 10 dd a4 6d 73  |t....~.:......ms|
000065a0  5f 30 28 74 61 67 24 29  0d 1d 92 16 3d a4 6d 73  |_0(tag$)....=.ms|
000065b0  5f 32 28 74 61 67 24 2c  22 22 2c 22 22 29 0d 1d  |_2(tag$,"","")..|
000065c0  9c 05 3a 0d 1d a6 16 dd  a4 6d 73 5f 31 28 74 61  |..:......ms_1(ta|
000065d0  67 24 2c 61 72 67 31 24  29 0d 1d b0 19 3d a4 6d  |g$,arg1$)....=.m|
000065e0  73 5f 32 28 74 61 67 24  2c 61 72 67 31 24 2c 22  |s_2(tag$,arg1$,"|
000065f0  22 29 0d 1d ba 05 3a 0d  1d c4 1c dd a4 6d 73 5f  |")....:......ms_|
00006600  32 28 74 61 67 24 2c 61  72 67 31 24 2c 61 72 67  |2(tag$,arg1$,arg|
00006610  32 24 29 0d 1d ce 0a ea  46 25 2c 4c 25 0d 1d d8  |2$).....F%,L%...|
00006620  4d c8 99 20 22 58 4d 65  73 73 61 67 65 54 72 61  |M.. "XMessageTra|
00006630  6e 73 5f 4c 6f 6f 6b 75  70 22 2c 6d 73 5f 64 65  |ns_Lookup",ms_de|
00006640  73 63 25 2c 74 61 67 24  2c 6d 73 5f 74 65 78 74  |sc%,tag$,ms_text|
00006650  25 2c 32 35 36 2c 61 72  67 31 24 2c 61 72 67 32  |%,256,arg1$,arg2|
00006660  24 b8 2c 2c 2c 4c 25 3b  46 25 0d 1d e2 0f e7 46  |$.,,,L%;F%.....F|
00006670  25 80 20 31 8c 4c 25 3d  30 0d 1d ec 12 6d 73 5f  |%. 1.L%=0....ms_|
00006680  74 65 78 74 25 3f 4c 25  3d 31 33 0d 1d f6 0e 3d  |text%?L%=13....=|
00006690  24 6d 73 5f 74 65 78 74  25 0d 1e 00 05 3a 0d 1e  |$ms_text%....:..|
000066a0  0a 12 dd f2 73 61 76 65  5f 6f 70 74 69 6f 6e 73  |....save_options|
000066b0  0d 1e 14 29 61 75 74 6f  5f 6c 6f 61 64 5f 66 69  |...)auto_load_fi|
000066c0  6c 65 24 3d a4 69 6e 64  69 72 65 63 74 28 6f 70  |le$=.indirect(op|
000066d0  74 69 6f 6e 73 25 2c 37  29 0d 1e 1e 75 e7 20 61  |tions%,7)...u. a|
000066e0  75 74 6f 5f 6c 6f 61 64  24 3d 22 59 65 73 22 20  |uto_load$="Yes" |
000066f0  80 20 61 75 74 6f 5f 6c  6f 61 64 5f 66 69 6c 65  |. auto_load_file|
00006700  24 3d 22 22 20 8c 20 85  20 39 39 2c 22 50 6c 65  |$="" . . 99,"Ple|
00006710  61 73 65 20 65 6e 74 65  72 20 74 68 65 20 66 75  |ase enter the fu|
00006720  6c 6c 20 6e 61 6d 65 20  6f 66 20 74 68 65 20 66  |ll name of the f|
00006730  69 6c 65 20 74 6f 20 62  65 20 6c 6f 61 64 65 64  |ile to be loaded|
00006740  20 6f 6e 20 73 74 61 72  74 2d 75 70 2e 22 0d 1e  | on start-up."..|
00006750  28 38 e7 20 70 61 73 73  77 6f 72 64 24 3d 22 59  |(8. password$="Y|
00006760  65 73 22 20 8c 20 f2 72  65 61 64 5f 70 61 73 73  |es" . .read_pass|
00006770  77 6f 72 64 73 3a f2 63  68 65 63 6b 5f 70 61 73  |words:.check_pas|
00006780  73 77 6f 72 64 73 0d 1e  32 2c 63 68 6f 69 63 65  |swords..2,choice|
00006790  73 25 3d ae 22 3c 42 61  6e 6b 24 44 69 72 3e 2e  |s%=."<Bank$Dir>.|
000067a0  52 65 73 6f 75 72 63 65  73 2e 43 68 6f 69 63 65  |Resources.Choice|
000067b0  73 22 0d 1e 3c 7f f1 23  63 68 6f 69 63 65 73 25  |s"..<..#choices%|
000067c0  2c 6f 75 74 6c 69 6e 65  66 6f 6e 74 73 25 2c 61  |,outlinefonts%,a|
000067d0  75 74 6f 5f 6c 6f 61 64  24 2c 61 75 74 6f 5f 6c  |uto_load$,auto_l|
000067e0  6f 61 64 5f 66 69 6c 65  24 2c 70 61 73 73 77 6f  |oad_file$,passwo|
000067f0  72 64 24 2c 70 61 73 73  77 6f 72 64 5f 6f 6e 65  |rd$,password_one|
00006800  24 2c 68 79 70 65 72 5f  68 65 6c 70 24 2c 68 79  |$,hyper_help$,hy|
00006810  70 65 72 5f 74 79 70 65  24 2c 68 6f 74 6b 65 79  |per_type$,hotkey|
00006820  73 24 2c 62 72 61 63 6b  65 74 73 25 2c 72 65 64  |s$,brackets%,red|
00006830  25 0d 1e 46 0e d9 23 63  68 6f 69 63 65 73 25 0d  |%..F..#choices%.|
00006840  1e 50 05 e1 0d 1e 5a 05  3a 0d 1e 64 12 dd f2 6c  |.P....Z.:..d...l|
00006850  6f 61 64 5f 6f 70 74 69  6f 6e 73 0d 1e 6e 2c 63  |oad_options..n,c|
00006860  68 6f 69 63 65 73 25 3d  8e 22 3c 42 61 6e 6b 24  |hoices%=."<Bank$|
00006870  44 69 72 3e 2e 52 65 73  6f 75 72 63 65 73 2e 43  |Dir>.Resources.C|
00006880  68 6f 69 63 65 73 22 0d  1e 78 13 e7 20 63 68 6f  |hoices"..x.. cho|
00006890  69 63 65 73 25 3c 3e 30  20 8c 0d 1e 82 7f e8 23  |ices%<>0 ......#|
000068a0  63 68 6f 69 63 65 73 25  2c 6f 75 74 6c 69 6e 65  |choices%,outline|
000068b0  66 6f 6e 74 73 25 2c 61  75 74 6f 5f 6c 6f 61 64  |fonts%,auto_load|
000068c0  24 2c 61 75 74 6f 5f 6c  6f 61 64 5f 66 69 6c 65  |$,auto_load_file|
000068d0  24 2c 70 61 73 73 77 6f  72 64 24 2c 70 61 73 73  |$,password$,pass|
000068e0  77 6f 72 64 5f 6f 6e 65  24 2c 68 79 70 65 72 5f  |word_one$,hyper_|
000068f0  68 65 6c 70 24 2c 68 79  70 65 72 5f 74 79 70 65  |help$,hyper_type|
00006900  24 2c 68 6f 74 6b 65 79  73 24 2c 62 72 61 63 6b  |$,hotkeys$,brack|
00006910  65 74 73 25 2c 72 65 64  25 0d 1e 8c 0e d9 23 63  |ets%,red%.....#c|
00006920  68 6f 69 63 65 73 25 0d  1e 96 05 cc 0d 1e a0 44  |hoices%........D|
00006930  6f 75 74 6c 69 6e 65 66  6f 6e 74 73 25 3d 30 3a  |outlinefonts%=0:|
00006940  61 75 74 6f 5f 6c 6f 61  64 24 3d 22 4e 6f 22 3a  |auto_load$="No":|
00006950  70 61 73 73 77 6f 72 64  24 3d 22 4e 6f 22 3a 68  |password$="No":h|
00006960  79 70 65 72 5f 68 65 6c  70 24 3d 22 59 65 73 22  |yper_help$="Yes"|
00006970  0d 1e aa 49 68 79 70 65  72 5f 74 79 70 65 24 3d  |...Ihyper_type$=|
00006980  22 4c 6f 6e 67 22 3a 61  75 74 6f 5f 6c 6f 61 64  |"Long":auto_load|
00006990  5f 66 69 6c 65 24 3d 22  22 3a 70 61 73 73 77 6f  |_file$="":passwo|
000069a0  72 64 5f 6f 6e 65 24 3d  22 22 3a 68 6f 74 6b 65  |rd_one$="":hotke|
000069b0  79 73 24 3d 22 59 65 73  22 0d 1e b4 16 62 72 61  |ys$="Yes"....bra|
000069c0  63 6b 65 74 73 25 3d a3  3a 72 65 64 25 3d b9 0d  |ckets%=.:red%=..|
000069d0  1e be 05 cd 0d 1e c8 1d  6f 6c 64 5f 77 69 6e 64  |........old_wind|
000069e0  6f 77 25 3d 30 3a 6f 6c  64 5f 69 63 6f 6e 25 3d  |ow%=0:old_icon%=|
000069f0  30 0d 1e d2 22 e7 20 68  6f 74 6b 65 79 73 24 3d  |0...". hotkeys$=|
00006a00  22 4e 6f 22 20 8c 20 f2  73 68 6f 72 74 5f 6d 65  |"No" . .short_me|
00006a10  6e 75 73 0d 1e dc 0a f2  66 6f 6e 74 73 0d 1e e6  |nus.....fonts...|
00006a20  05 e1 0d 1e f0 05 3a 0d  1e fa 12 dd f2 73 65 74  |......:......set|
00006a30  5f 64 65 66 61 75 6c 74  73 0d 1f 04 47 61 75 74  |_defaults...Gaut|
00006a40  6f 5f 6c 6f 61 64 24 3d  22 4e 6f 22 3a 70 61 73  |o_load$="No":pas|
00006a50  73 77 6f 72 64 24 3d 22  4e 6f 22 3a 68 79 70 65  |sword$="No":hype|
00006a60  72 5f 68 65 6c 70 24 3d  22 59 65 73 22 3a 68 79  |r_help$="Yes":hy|
00006a70  70 65 72 5f 74 79 70 65  24 3d 22 4c 6f 6e 67 22  |per_type$="Long"|
00006a80  0d 1f 0e 46 6f 75 74 6c  69 6e 65 66 6f 6e 74 73  |...Foutlinefonts|
00006a90  25 3d 30 3a 61 75 74 6f  5f 6c 6f 61 64 5f 66 69  |%=0:auto_load_fi|
00006aa0  6c 65 24 3d 22 22 3a 70  61 73 73 77 6f 72 64 5f  |le$="":password_|
00006ab0  6f 6e 65 24 3d 22 22 3a  68 6f 74 6b 65 79 73 24  |one$="":hotkeys$|
00006ac0  3d 22 59 65 73 22 0d 1f  18 4b c8 99 20 22 57 69  |="Yes"...K.. "Wi|
00006ad0  6d 70 45 78 74 5f 53 65  74 49 63 6f 6e 22 2c 2c  |mpExt_SetIcon",,|
00006ae0  2c 6f 70 74 69 6f 6e 73  25 2c 38 2c 30 3a c8 99  |,options%,8,0:..|
00006af0  20 22 57 69 6d 70 45 78  74 5f 53 65 74 49 63 6f  | "WimpExt_SetIco|
00006b00  6e 22 2c 2c 2c 6f 70 74  69 6f 6e 73 25 2c 39 2c  |n",,,options%,9,|
00006b10  30 0d 1f 22 4d c8 99 20  22 57 69 6d 70 45 78 74  |0.."M.. "WimpExt|
00006b20  5f 53 65 74 49 63 6f 6e  22 2c 2c 2c 6f 70 74 69  |_SetIcon",,,opti|
00006b30  6f 6e 73 25 2c 31 34 2c  31 3a c8 99 20 22 57 69  |ons%,14,1:.. "Wi|
00006b40  6d 70 45 78 74 5f 53 65  74 49 63 6f 6e 22 2c 2c  |mpExt_SetIcon",,|
00006b50  2c 6f 70 74 69 6f 6e 73  25 2c 31 37 2c 31 0d 1f  |,options%,17,1..|
00006b60  2c 4d c8 99 20 22 57 69  6d 70 45 78 74 5f 53 65  |,M.. "WimpExt_Se|
00006b70  74 49 63 6f 6e 22 2c 2c  2c 6f 70 74 69 6f 6e 73  |tIcon",,,options|
00006b80  25 2c 31 35 2c 31 3a c8  99 20 22 57 69 6d 70 45  |%,15,1:.. "WimpE|
00006b90  78 74 5f 53 65 74 49 63  6f 6e 22 2c 2c 2c 6f 70  |xt_SetIcon",,,op|
00006ba0  74 69 6f 6e 73 25 2c 31  36 2c 30 0d 1f 36 28 c8  |tions%,16,0..6(.|
00006bb0  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
00006bc0  6f 6e 22 2c 2c 2c 6f 70  74 69 6f 6e 73 25 2c 31  |on",,,options%,1|
00006bd0  37 2c 31 0d 1f 40 4d c8  99 20 22 57 69 6d 70 45  |7,1..@M.. "WimpE|
00006be0  78 74 5f 53 65 74 49 63  6f 6e 22 2c 2c 2c 6f 70  |xt_SetIcon",,,op|
00006bf0  74 69 6f 6e 73 25 2c 32  30 2c 30 3a c8 99 20 22  |tions%,20,0:.. "|
00006c00  57 69 6d 70 45 78 74 5f  53 65 74 49 63 6f 6e 22  |WimpExt_SetIcon"|
00006c10  2c 2c 2c 6f 70 74 69 6f  6e 73 25 2c 32 31 2c 31  |,,,options%,21,1|
00006c20  0d 1f 4a 1f f2 75 70 64  61 74 65 5f 69 63 6f 6e  |..J..update_icon|
00006c30  28 6f 70 74 69 6f 6e 73  25 2c 37 2c 22 22 29 0d  |(options%,7,"").|
00006c40  1f 54 20 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |.T .update_icon(|
00006c50  6f 70 74 69 6f 6e 73 25  2c 31 32 2c 22 22 29 0d  |options%,12,"").|
00006c60  1f 5e 20 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |.^ .update_icon(|
00006c70  6f 70 74 69 6f 6e 73 25  2c 31 33 2c 22 22 29 0d  |options%,13,"").|
00006c80  1f 68 05 e1 0d 1f 72 05  3a 0d 1f 7c 0f dd f2 71  |.h....r.:..|...q|
00006c90  75 69 63 6b 73 61 76 65  0d 1f 86 12 c8 8e 20 73  |uicksave...... s|
00006ca0  61 76 65 74 79 70 65 24  20 ca 0d 1f 90 0b c9 20  |avetype$ ...... |
00006cb0  22 45 39 38 22 0d 1f 9a  28 66 75 6c 6c 6e 61 6d  |"E98"...(fullnam|
00006cc0  65 24 3d a4 69 6e 64 69  72 65 63 74 28 66 69 6c  |e$=.indirect(fil|
00006cd0  65 5f 73 61 76 65 62 6f  78 25 2c 31 29 0d 1f a4  |e_savebox%,1)...|
00006ce0  33 e7 20 66 75 6c 6c 6e  61 6d 65 24 3d 22 22 20  |3. fullname$="" |
00006cf0  8c 20 85 20 31 2c 22 50  6c 65 61 73 65 20 69 6e  |. . 1,"Please in|
00006d00  73 65 72 74 20 61 20 66  69 6c 65 6e 61 6d 65 22  |sert a filename"|
00006d10  0d 1f ae 4c e7 20 a7 66  75 6c 6c 6e 61 6d 65 24  |...L. .fullname$|
00006d20  2c 22 2e 22 29 3d 30 20  8c 20 85 20 31 2c 22 54  |,".")=0 . . 1,"T|
00006d30  6f 20 73 61 76 65 2c 20  64 72 61 67 20 74 68 65  |o save, drag the|
00006d40  20 69 63 6f 6e 20 74 6f  20 61 20 64 69 72 65 63  | icon to a direc|
00006d50  74 6f 72 79 20 76 69 65  77 65 72 22 0d 1f b8 19  |tory viewer"....|
00006d60  f2 73 61 76 65 5f 64 61  74 61 28 66 75 6c 6c 6e  |.save_data(fulln|
00006d70  61 6d 65 24 29 0d 1f c2  26 ff 20 22 53 65 74 54  |ame$)...&. "SetT|
00006d80  79 70 65 20 22 2b 66 75  6c 6c 6e 61 6d 65 24 2b  |ype "+fullname$+|
00006d90  22 20 42 61 6e 6b 44 61  74 61 22 0d 1f cc 2b f2  |" BankData"...+.|
00006da0  75 70 64 61 74 65 5f 69  63 6f 6e 28 66 69 6c 65  |update_icon(file|
00006db0  5f 73 61 76 65 62 6f 78  25 2c 31 2c 66 75 6c 6c  |_savebox%,1,full|
00006dc0  6e 61 6d 65 24 29 0d 1f  d6 27 f2 75 70 64 61 74  |name$)...'.updat|
00006dd0  65 5f 69 63 6f 6e 28 66  69 6c 65 69 6e 66 6f 25  |e_icon(fileinfo%|
00006de0  2c 37 2c 66 75 6c 6c 6e  61 6d 65 24 29 0d 1f e0  |,7,fullname$)...|
00006df0  49 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 66 69  |I.update_icon(fi|
00006e00  6c 65 69 6e 66 6f 25 2c  36 2c 22 42 61 6e 6b 44  |leinfo%,6,"BankD|
00006e10  61 74 61 20 28 65 39 38  29 22 29 3a f2 63 68 61  |ata (e98)"):.cha|
00006e20  6e 67 65 5f 73 70 72 69  74 65 28 22 66 69 6c 65  |nge_sprite("file|
00006e30  5f 65 39 38 22 29 0d 1f  ea 19 f2 63 6c 6f 73 65  |_e98").....close|
00006e40  28 66 69 6c 65 5f 73 61  76 65 62 6f 78 25 29 0d  |(file_savebox%).|
00006e50  1f f4 16 f2 67 65 74 5f  70 69 6e 62 6f 61 72 64  |....get_pinboard|
00006e60  5f 6e 61 6d 65 0d 1f fe  50 73 61 76 65 64 25 3d  |_name...Psaved%=|
00006e70  b9 3a f2 72 65 5f 74 69  74 6c 65 28 22 42 61 6e  |.:.re_title("Ban|
00006e80  6b 20 53 79 73 74 65 6d  3a 20 22 2b 70 69 6e 62  |k System: "+pinb|
00006e90  6f 61 72 64 24 29 3a f2  75 70 64 61 74 65 5f 69  |oard$):.update_i|
00006ea0  63 6f 6e 28 66 69 6c 65  69 6e 66 6f 25 2c 35 2c  |con(fileinfo%,5,|
00006eb0  22 4e 6f 22 29 0d 20 08  1c c8 99 20 22 57 69 6d  |"No"). .... "Wim|
00006ec0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
00006ed0  31 0d 20 12 0b c9 20 22  46 46 46 22 0d 20 1c 28  |1. ... "FFF". .(|
00006ee0  66 75 6c 6c 6e 61 6d 65  24 3d a4 69 6e 64 69 72  |fullname$=.indir|
00006ef0  65 63 74 28 74 65 78 74  5f 73 61 76 65 62 6f 78  |ect(text_savebox|
00006f00  25 2c 31 29 0d 20 26 33  e7 20 66 75 6c 6c 6e 61  |%,1). &3. fullna|
00006f10  6d 65 24 3d 22 22 20 8c  20 85 20 31 2c 22 50 6c  |me$="" . . 1,"Pl|
00006f20  65 61 73 65 20 69 6e 73  65 72 74 20 61 20 66 69  |ease insert a fi|
00006f30  6c 65 6e 61 6d 65 22 0d  20 30 4c e7 20 a7 66 75  |lename". 0L. .fu|
00006f40  6c 6c 6e 61 6d 65 24 2c  22 2e 22 29 3d 30 20 8c  |llname$,".")=0 .|
00006f50  20 85 20 31 2c 22 54 6f  20 73 61 76 65 2c 20 64  | . 1,"To save, d|
00006f60  72 61 67 20 74 68 65 20  69 63 6f 6e 20 74 6f 20  |rag the icon to |
00006f70  61 20 64 69 72 65 63 74  6f 72 79 20 76 69 65 77  |a directory view|
00006f80  65 72 22 0d 20 3a 19 f2  73 61 76 65 5f 74 65 78  |er". :..save_tex|
00006f90  74 28 66 75 6c 6c 6e 61  6d 65 24 29 0d 20 44 22  |t(fullname$). D"|
00006fa0  ff 20 22 53 65 74 54 79  70 65 20 22 2b 66 75 6c  |. "SetType "+ful|
00006fb0  6c 6e 61 6d 65 24 2b 22  20 54 65 78 74 22 0d 20  |lname$+" Text". |
00006fc0  4e 2b f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 74  |N+.update_icon(t|
00006fd0  65 78 74 5f 73 61 76 65  62 6f 78 25 2c 31 2c 66  |ext_savebox%,1,f|
00006fe0  75 6c 6c 6e 61 6d 65 24  29 0d 20 58 19 f2 63 6c  |ullname$). X..cl|
00006ff0  6f 73 65 28 74 65 78 74  5f 73 61 76 65 62 6f 78  |ose(text_savebox|
00007000  25 29 0d 20 62 1c c8 99  20 22 57 69 6d 70 5f 43  |%). b... "Wimp_C|
00007010  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 0d 20  |reateMenu",,-1. |
00007020  6c 05 cb 0d 20 76 05 e1  0d 20 80 05 3a 0d 20 8a  |l... v... ..:. .|
00007030  1b dd f2 69 6e 69 74 69  61 74 65 5f 73 61 76 65  |...initiate_save|
00007040  28 66 6e 61 6d 65 24 29  0d 20 94 20 c8 99 20 22  |(fname$). . .. "|
00007050  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00007060  6e 66 6f 22 2c 2c 71 25  0d 20 9e 2b 71 25 21 32  |nfo",,q%. .+q%!2|
00007070  30 3d 71 25 21 31 32 3a  71 25 21 31 32 3d 30 3a  |0=q%!12:q%!12=0:|
00007080  71 25 21 32 34 3d 71 25  21 31 36 3a 71 25 21 31  |q%!24=q%!16:q%!1|
00007090  36 3d 31 0d 20 a8 29 71  25 21 32 38 3d 71 25 21  |6=1. .)q%!28=q%!|
000070a0  30 3a 71 25 21 30 3d 36  34 3a 71 25 21 33 32 3d  |0:q%!0=64:q%!32=|
000070b0  71 25 21 34 3a 71 25 21  33 36 3d 30 0d 20 b2 2f  |q%!4:q%!36=0. ./|
000070c0  e7 20 73 61 76 65 74 79  70 65 24 3d 22 45 39 38  |. savetype$="E98|
000070d0  22 20 8c 20 71 25 21 34  30 3d 26 45 39 38 20 8b  |" . q%!40=&E98 .|
000070e0  20 71 25 21 34 30 3d 26  46 46 46 0d 20 bc 21 24  | q%!40=&FFF. .!$|
000070f0  28 71 25 2b 34 34 29 3d  a4 67 65 74 5f 6c 65 61  |(q%+44)=.get_lea|
00007100  66 28 66 6e 61 6d 65 24  29 2b bd 30 0d 20 c6 2b  |f(fname$)+.0. .+|
00007110  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00007120  73 61 67 65 22 2c 31 37  2c 71 25 2c 71 25 21 32  |sage",17,q%,q%!2|
00007130  30 2c 71 25 21 32 34 0d  20 d0 05 e1 0d 20 da 05  |0,q%!24. .... ..|
00007140  3a 0d 20 e4 15 dd a4 67  65 74 5f 6c 65 61 66 28  |:. ....get_leaf(|
00007150  6e 61 6d 65 24 29 0d 20  ee 12 c8 95 20 a7 6e 61  |name$). .... .na|
00007160  6d 65 24 2c 22 2e 22 29  0d 20 f8 1f 6e 61 6d 65  |me$,"."). ..name|
00007170  24 3d c1 6e 61 6d 65 24  2c a7 6e 61 6d 65 24 2c  |$=.name$,.name$,|
00007180  22 2e 22 29 2b 31 29 0d  21 02 05 ce 0d 21 0c 0d  |".")+1).!....!..|
00007190  3d 6e 61 6d 65 24 2b bd  30 0d 21 16 05 3a 0d 21  |=name$+.0.!..:.!|
000071a0  20 0e dd f2 64 61 74 61  73 61 76 65 0d 21 2a 12  | ...datasave.!*.|
000071b0  c8 8e 20 73 61 76 65 74  79 70 65 24 20 ca 0d 21  |.. savetype$ ..!|
000071c0  34 0b c9 20 22 45 39 38  22 0d 21 3e 1c 66 75 6c  |4.. "E98".!>.ful|
000071d0  6c 6e 61 6d 65 24 3d a4  73 74 72 69 6e 67 28 71  |lname$=.string(q|
000071e0  25 2b 34 34 29 0d 21 48  19 f2 73 61 76 65 5f 64  |%+44).!H..save_d|
000071f0  61 74 61 28 66 75 6c 6c  6e 61 6d 65 24 29 0d 21  |ata(fullname$).!|
00007200  52 26 ff 20 22 53 65 74  54 79 70 65 20 22 2b 66  |R&. "SetType "+f|
00007210  75 6c 6c 6e 61 6d 65 24  2b 22 20 42 61 6e 6b 44  |ullname$+" BankD|
00007220  61 74 61 22 0d 21 5c 16  71 25 21 31 32 3d 71 25  |ata".!\.q%!12=q%|
00007230  21 38 3a 71 25 21 31 36  3d 33 0d 21 66 24 c8 99  |!8:q%!16=3.!f$..|
00007240  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00007250  67 65 22 2c 31 37 2c 71  25 2c 71 25 21 34 0d 21  |ge",17,q%,q%!4.!|
00007260  70 1c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |p... "Wimp_Creat|
00007270  65 4d 65 6e 75 22 2c 2c  2d 31 0d 21 7a ab f2 63  |eMenu",,-1.!z..c|
00007280  6c 6f 73 65 28 66 69 6c  65 5f 73 61 76 65 62 6f  |lose(file_savebo|
00007290  78 25 29 3a f2 75 70 64  61 74 65 5f 69 63 6f 6e  |x%):.update_icon|
000072a0  28 66 69 6c 65 69 6e 66  6f 25 2c 37 2c 66 75 6c  |(fileinfo%,7,ful|
000072b0  6c 6e 61 6d 65 24 29 3a  f2 75 70 64 61 74 65 5f  |lname$):.update_|
000072c0  69 63 6f 6e 28 66 69 6c  65 69 6e 66 6f 25 2c 36  |icon(fileinfo%,6|
000072d0  2c 22 42 61 6e 6b 44 61  74 61 20 28 65 39 38 29  |,"BankData (e98)|
000072e0  22 29 3a f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |"):.update_icon(|
000072f0  66 69 6c 65 5f 73 61 76  65 62 6f 78 25 2c 31 2c  |file_savebox%,1,|
00007300  66 75 6c 6c 6e 61 6d 65  24 29 3a f2 63 68 61 6e  |fullname$):.chan|
00007310  67 65 5f 73 70 72 69 74  65 28 22 66 69 6c 65 5f  |ge_sprite("file_|
00007320  65 39 38 22 29 0d 21 84  16 f2 67 65 74 5f 70 69  |e98").!...get_pi|
00007330  6e 62 6f 61 72 64 5f 6e  61 6d 65 0d 21 8e 50 73  |nboard_name.!.Ps|
00007340  61 76 65 64 25 3d b9 3a  f2 72 65 5f 74 69 74 6c  |aved%=.:.re_titl|
00007350  65 28 22 42 61 6e 6b 20  53 79 73 74 65 6d 3a 20  |e("Bank System: |
00007360  22 2b 70 69 6e 62 6f 61  72 64 24 29 3a f2 75 70  |"+pinboard$):.up|
00007370  64 61 74 65 5f 69 63 6f  6e 28 66 69 6c 65 69 6e  |date_icon(filein|
00007380  66 6f 25 2c 35 2c 22 4e  6f 22 29 0d 21 98 0b c9  |fo%,5,"No").!...|
00007390  20 22 46 46 46 22 0d 21  a2 1c 66 75 6c 6c 6e 61  | "FFF".!..fullna|
000073a0  6d 65 24 3d a4 73 74 72  69 6e 67 28 71 25 2b 34  |me$=.string(q%+4|
000073b0  34 29 0d 21 ac 19 f2 73  61 76 65 5f 74 65 78 74  |4).!...save_text|
000073c0  28 66 75 6c 6c 6e 61 6d  65 24 29 0d 21 b6 22 ff  |(fullname$).!.".|
000073d0  20 22 53 65 74 54 79 70  65 20 22 2b 66 75 6c 6c  | "SetType "+full|
000073e0  6e 61 6d 65 24 2b 22 20  54 65 78 74 22 0d 21 c0  |name$+" Text".!.|
000073f0  16 71 25 21 31 32 3d 71  25 21 38 3a 71 25 21 31  |.q%!12=q%!8:q%!1|
00007400  36 3d 33 0d 21 ca 24 c8  99 20 22 57 69 6d 70 5f  |6=3.!.$.. "Wimp_|
00007410  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00007420  71 25 2c 71 25 21 34 0d  21 d4 1c c8 99 20 22 57  |q%,q%!4.!.... "W|
00007430  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00007440  2c 2d 31 0d 21 de 41 f2  63 6c 6f 73 65 28 74 65  |,-1.!.A.close(te|
00007450  78 74 5f 73 61 76 65 62  6f 78 25 29 3a f2 75 70  |xt_savebox%):.up|
00007460  64 61 74 65 5f 69 63 6f  6e 28 74 65 78 74 5f 73  |date_icon(text_s|
00007470  61 76 65 62 6f 78 25 2c  31 2c 66 75 6c 6c 6e 61  |avebox%,1,fullna|
00007480  6d 65 24 29 0d 21 e8 05  cb 0d 21 f2 05 e1 0d 21  |me$).!....!....!|
00007490  fc 05 3a 0d 22 06 10 dd  a4 73 74 72 69 6e 67 28  |..:."....string(|
000074a0  61 25 29 0d 22 10 0e ea  20 62 24 3a 62 24 3d 22  |a%)."... b$:b$="|
000074b0  22 0d 22 1a 0d c8 95 20  3f 61 25 3c 3e 30 0d 22  |".".... ?a%<>0."|
000074c0  24 12 62 24 2b 3d bd 3f  61 25 3a 61 25 2b 3d 31  |$.b$+=.?a%:a%+=1|
000074d0  0d 22 2e 05 ce 0d 22 38  07 3d 62 24 0d 22 42 05  |."...."8.=b$."B.|
000074e0  3a 0d 22 4c 1a dd f2 73  61 76 65 5f 64 61 74 61  |:."L...save_data|
000074f0  28 66 75 6c 6c 6e 61 6d  65 24 29 0d 22 56 15 c8  |(fullname$)."V..|
00007500  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
00007510  0d 22 60 12 43 48 25 3d  ae 66 75 6c 6c 6e 61 6d  |."`.CH%=.fullnam|
00007520  65 24 0d 22 6a 27 f1 23  43 48 25 2c 22 6e 6f 73  |e$."j'.#CH%,"nos|
00007530  77 61 44 20 79 6b 63 69  52 20 79 62 20 6d 65 74  |waD ykciR yb met|
00007540  73 79 53 20 6b 6e 61 42  22 0d 22 74 23 f1 23 43  |syS knaB"."t#.#C|
00007550  48 25 2c 22 34 39 39 31  20 64 6c 72 6f 57 20 73  |H%,"4991 dlroW s|
00007560  65 64 65 6d 69 68 63 72  41 20 a9 22 0d 22 7e 0f  |edemihcrA ."."~.|
00007570  f1 23 43 48 25 2c 79 65  61 72 25 0d 22 88 4b f1  |.#CH%,year%.".K.|
00007580  23 43 48 25 2c 61 63 63  6f 75 6e 74 5f 68 6f 6c  |#CH%,account_hol|
00007590  64 65 72 24 2c 61 63 63  6f 75 6e 74 5f 62 72 61  |der$,account_bra|
000075a0  6e 63 68 24 2c 61 63 63  6f 75 6e 74 5f 73 6f 72  |nch$,account_sor|
000075b0  74 63 6f 64 65 24 2c 61  63 63 6f 75 6e 74 5f 6e  |tcode$,account_n|
000075c0  75 6d 62 65 72 24 0d 22  92 13 e3 20 63 6f 75 6e  |umber$."... coun|
000075d0  74 25 3d 30 20 b8 20 35  39 0d 22 9c 29 f1 23 43  |t%=0 . 59.".).#C|
000075e0  48 25 2c 62 61 6c 61 6e  63 65 25 28 63 6f 75 6e  |H%,balance%(coun|
000075f0  74 25 29 2c 65 6e 74 72  79 25 28 63 6f 75 6e 74  |t%),entry%(count|
00007600  25 29 0d 22 a6 20 e3 20  63 6f 75 6e 74 32 25 3d  |%).". . count2%=|
00007610  30 20 b8 20 65 6e 74 72  79 25 28 63 6f 75 6e 74  |0 . entry%(count|
00007620  25 29 0d 22 b0 4d f1 23  43 48 25 2c 6e 61 6d 65  |%).".M.#CH%,name|
00007630  24 28 63 6f 75 6e 74 32  25 2c 63 6f 75 6e 74 25  |$(count2%,count%|
00007640  29 2c 61 6d 6f 75 6e 74  25 28 63 6f 75 6e 74 32  |),amount%(count2|
00007650  25 2c 63 6f 75 6e 74 25  29 2c 64 61 74 65 25 28  |%,count%),date%(|
00007660  63 6f 75 6e 74 32 25 2c  63 6f 75 6e 74 25 29 0d  |count2%,count%).|
00007670  22 ba 05 ed 0d 22 c4 4c  e7 20 a8 28 28 63 6f 75  |"....".L. .((cou|
00007680  6e 74 25 2f 36 30 29 2a  31 30 30 29 3c 3e 31 30  |nt%/60)*100)<>10|
00007690  30 20 8c 20 c8 99 20 22  48 6f 75 72 67 6c 61 73  |0 . .. "Hourglas|
000076a0  73 5f 50 65 72 63 65 6e  74 61 67 65 22 2c a8 28  |s_Percentage",.(|
000076b0  28 63 6f 75 6e 74 25 2f  36 30 29 2a 31 30 30 29  |(count%/60)*100)|
000076c0  0d 22 ce 05 ed 0d 22 d8  09 d9 23 43 48 25 0d 22  |."...."...#CH%."|
000076d0  e2 16 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |.... "Hourglass_|
000076e0  4f 66 66 22 0d 22 ec 05  e1 0d 22 f6 05 3a 0d 23  |Off"."...."..:.#|
000076f0  00 1a dd f2 73 61 76 65  5f 74 65 78 74 28 66 75  |....save_text(fu|
00007700  6c 6c 6e 61 6d 65 24 29  0d 23 0a 19 ea 20 63 6f  |llname$).#... co|
00007710  75 6e 74 25 2c 64 6f 77  6e 25 2c 61 6d 2c 74 6f  |unt%,down%,am,to|
00007720  74 0d 23 14 15 c8 99 20  22 48 6f 75 72 67 6c 61  |t.#.... "Hourgla|
00007730  73 73 5f 4f 6e 22 0d 23  1e 12 43 48 25 3d ae 66  |ss_On".#..CH%=.f|
00007740  75 6c 6c 6e 61 6d 65 24  0d 23 28 10 f2 73 61 76  |ullname$.#(..sav|
00007750  65 5f 68 65 61 64 65 72  0d 23 32 18 e3 20 73 61  |e_header.#2.. sa|
00007760  76 65 5f 6d 6f 6e 74 68  25 3d 30 20 b8 20 35 39  |ve_month%=0 . 59|
00007770  0d 23 3c 1c f2 73 61 76  65 5f 6d 6f 6e 74 68 28  |.#<..save_month(|
00007780  73 61 76 65 5f 6d 6f 6e  74 68 25 29 0d 23 46 11  |save_month%).#F.|
00007790  ed 20 73 61 76 65 5f 6d  6f 6e 74 68 25 0d 23 50  |. save_month%.#P|
000077a0  09 d9 23 43 48 25 0d 23  5a 16 c8 99 20 22 48 6f  |..#CH%.#Z... "Ho|
000077b0  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 23 64 05  |urglass_Off".#d.|
000077c0  e1 0d 23 6e 05 3a 0d 23  78 11 dd f2 73 61 76 65  |..#n.:.#x...save|
000077d0  5f 68 65 61 64 65 72 0d  23 82 2c d5 23 43 48 25  |_header.#.,.#CH%|
000077e0  2c 22 41 63 63 6f 75 6e  74 20 48 6f 6c 64 65 72  |,"Account Holder|
000077f0  3a 20 22 2b 61 63 63 6f  75 6e 74 5f 68 6f 6c 64  |: "+account_hold|
00007800  65 72 24 0d 23 8c 2c d5  23 43 48 25 2c 22 41 63  |er$.#.,.#CH%,"Ac|
00007810  63 6f 75 6e 74 20 42 72  61 6e 63 68 3a 20 22 2b  |count Branch: "+|
00007820  61 63 63 6f 75 6e 74 5f  62 72 61 6e 63 68 24 0d  |account_branch$.|
00007830  23 96 2e d5 23 43 48 25  2c 22 20 20 20 20 20 53  |#...#CH%,"     S|
00007840  6f 72 74 20 43 6f 64 65  3a 20 22 2b 61 63 63 6f  |ort Code: "+acco|
00007850  75 6e 74 5f 73 6f 72 74  63 6f 64 65 24 0d 23 a0  |unt_sortcode$.#.|
00007860  2c d5 23 43 48 25 2c 22  41 63 63 6f 75 6e 74 20  |,.#CH%,"Account |
00007870  4e 75 6d 62 65 72 3a 20  22 2b 61 63 63 6f 75 6e  |Number: "+accoun|
00007880  74 5f 6e 75 6d 62 65 72  24 0d 23 aa 05 e1 0d 23  |t_number$.#....#|
00007890  b4 05 3a 0d 23 be 13 dd  f2 72 69 73 63 6f 73 5f  |..:.#....riscos_|
000078a0  68 65 61 64 65 72 0d 23  c8 32 d5 23 43 48 25 2c  |header.#.2.#CH%,|
000078b0  22 41 63 63 6f 75 6e 74  20 48 6f 6c 64 65 72 3a  |"Account Holder:|
000078c0  20 22 2b 61 63 63 6f 75  6e 74 5f 68 6f 6c 64 65  | "+account_holde|
000078d0  72 24 2b bd 28 31 33 29  0d 23 d2 32 d5 23 43 48  |r$+.(13).#.2.#CH|
000078e0  25 2c 22 41 63 63 6f 75  6e 74 20 42 72 61 6e 63  |%,"Account Branc|
000078f0  68 3a 20 22 2b 61 63 63  6f 75 6e 74 5f 62 72 61  |h: "+account_bra|
00007900  6e 63 68 24 2b bd 28 31  33 29 0d 23 dc 34 d5 23  |nch$+.(13).#.4.#|
00007910  43 48 25 2c 22 20 20 20  20 20 53 6f 72 74 20 43  |CH%,"     Sort C|
00007920  6f 64 65 3a 20 22 2b 61  63 63 6f 75 6e 74 5f 73  |ode: "+account_s|
00007930  6f 72 74 63 6f 64 65 24  2b bd 28 31 33 29 0d 23  |ortcode$+.(13).#|
00007940  e6 32 d5 23 43 48 25 2c  22 41 63 63 6f 75 6e 74  |.2.#CH%,"Account|
00007950  20 4e 75 6d 62 65 72 3a  20 22 2b 61 63 63 6f 75  | Number: "+accou|
00007960  6e 74 5f 6e 75 6d 62 65  72 24 2b bd 28 31 33 29  |nt_number$+.(13)|
00007970  0d 23 f0 05 e1 0d 23 fa  05 3a 0d 24 04 1d dd f2  |.#....#..:.$....|
00007980  73 61 76 65 5f 6d 6f 6e  74 68 28 73 61 76 65 5f  |save_month(save_|
00007990  6d 6f 6e 74 68 25 29 0d  24 0e 10 40 25 3d 26 30  |month%).$..@%=&0|
000079a0  31 30 30 30 39 30 41 0d  24 18 1e e7 20 65 6e 74  |100090A.$... ent|
000079b0  72 79 25 28 73 61 76 65  5f 6d 6f 6e 74 68 25 29  |ry%(save_month%)|
000079c0  3c 3e 30 20 8c 0d 24 22  0c d5 23 43 48 25 2c 22  |<>0 ..$"..#CH%,"|
000079d0  22 0d 24 2c 42 d5 23 43  48 25 2c 6d 6f 6e 74 68  |".$,B.#CH%,month|
000079e0  24 28 73 61 76 65 5f 6d  6f 6e 74 68 25 20 83 20  |$(save_month% . |
000079f0  31 32 29 2b 22 20 22 2b  c3 28 79 65 61 72 25 2b  |12)+" "+.(year%+|
00007a00  28 73 61 76 65 5f 6d 6f  6e 74 68 25 20 81 20 31  |(save_month% . 1|
00007a10  32 29 29 0d 24 36 55 d5  23 43 48 25 2c 22 44 61  |2)).$6U.#CH%,"Da|
00007a20  74 65 20 20 20 20 20 20  20 4e 61 6d 65 20 20 20  |te       Name   |
00007a30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00007a40  20 20 20 20 20 20 44 65  62 69 74 20 20 20 20 20  |      Debit     |
00007a50  43 72 65 64 69 74 20 20  20 20 20 20 20 20 20 20  |Credit          |
00007a60  42 61 6c 61 6e 63 65 22  0d 24 40 05 cd 0d 24 4a  |Balance".$@...$J|
00007a70  10 40 25 3d 26 30 31 30  41 30 32 30 41 0d 24 54  |.@%=&010A020A.$T|
00007a80  10 40 25 3d 26 30 31 30  32 30 32 30 41 0d 24 5e  |.@%=&0102020A.$^|
00007a90  3f e7 20 73 61 76 65 5f  6d 6f 6e 74 68 25 3d 30  |?. save_month%=0|
00007aa0  20 8c 20 74 6f 74 61 6c  25 3d 30 20 8b 20 74 6f  | . total%=0 . to|
00007ab0  74 61 6c 25 3d 62 61 6c  61 6e 63 65 25 28 73 61  |tal%=balance%(sa|
00007ac0  76 65 5f 6d 6f 6e 74 68  25 2d 31 29 0d 24 68 1e  |ve_month%-1).$h.|
00007ad0  e7 20 65 6e 74 72 79 25  28 73 61 76 65 5f 6d 6f  |. entry%(save_mo|
00007ae0  6e 74 68 25 29 3c 3e 30  20 8c 0d 24 72 2f 74 65  |nth%)<>0 ..$r/te|
00007af0  78 74 5f 74 6f 5f 73 61  76 65 24 3d 22 20 20 20  |xt_to_save$="   |
00007b00  20 20 20 20 20 20 20 20  42 61 6c 61 6e 63 65 20  |        Balance |
00007b10  46 6f 72 77 61 72 64 3a  22 0d 24 7c 15 74 6f 74  |Forward:".$|.tot|
00007b20  3d 94 28 74 6f 74 61 6c  25 2f 31 30 30 29 0d 24  |=.(total%/100).$|
00007b30  86 57 e7 20 74 6f 74 3c  31 30 30 30 30 30 30 30  |.W. tot<10000000|
00007b40  20 8c 20 74 65 78 74 5f  74 6f 5f 73 61 76 65 24  | . text_to_save$|
00007b50  3d 74 65 78 74 5f 74 6f  5f 73 61 76 65 24 2b 22  |=text_to_save$+"|
00007b60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00007b80  20 20 20 20 22 0d 24 90  33 e7 20 74 6f 74 3c 31  |    ".$.3. tot<1|
00007b90  30 30 30 30 30 30 20 8c  20 74 65 78 74 5f 74 6f  |000000 . text_to|
00007ba0  5f 73 61 76 65 24 3d 74  65 78 74 5f 74 6f 5f 73  |_save$=text_to_s|
00007bb0  61 76 65 24 2b 22 20 22  0d 24 9a 32 e7 20 74 6f  |ave$+" ".$.2. to|
00007bc0  74 3c 31 30 30 30 30 30  20 8c 20 74 65 78 74 5f  |t<100000 . text_|
00007bd0  74 6f 5f 73 61 76 65 24  3d 74 65 78 74 5f 74 6f  |to_save$=text_to|
00007be0  5f 73 61 76 65 24 2b 22  20 22 0d 24 a4 31 e7 20  |_save$+" ".$.1. |
00007bf0  74 6f 74 3c 31 30 30 30  30 20 8c 20 74 65 78 74  |tot<10000 . text|
00007c00  5f 74 6f 5f 73 61 76 65  24 3d 74 65 78 74 5f 74  |_to_save$=text_t|
00007c10  6f 5f 73 61 76 65 24 2b  22 20 22 0d 24 ae 30 e7  |o_save$+" ".$.0.|
00007c20  20 74 6f 74 3c 31 30 30  30 20 8c 20 74 65 78 74  | tot<1000 . text|
00007c30  5f 74 6f 5f 73 61 76 65  24 3d 74 65 78 74 5f 74  |_to_save$=text_t|
00007c40  6f 5f 73 61 76 65 24 2b  22 20 22 0d 24 b8 2f e7  |o_save$+" ".$./.|
00007c50  20 74 6f 74 3c 31 30 30  20 8c 20 74 65 78 74 5f  | tot<100 . text_|
00007c60  74 6f 5f 73 61 76 65 24  3d 74 65 78 74 5f 74 6f  |to_save$=text_to|
00007c70  5f 73 61 76 65 24 2b 22  20 22 0d 24 c2 2e e7 20  |_save$+" ".$... |
00007c80  74 6f 74 3c 31 30 20 8c  20 74 65 78 74 5f 74 6f  |tot<10 . text_to|
00007c90  5f 73 61 76 65 24 3d 74  65 78 74 5f 74 6f 5f 73  |_save$=text_to_s|
00007ca0  61 76 65 24 2b 22 20 22  0d 24 cc 26 74 65 78 74  |ave$+" ".$.&text|
00007cb0  5f 74 6f 5f 73 61 76 65  24 3d 74 65 78 74 5f 74  |_to_save$=text_t|
00007cc0  6f 5f 73 61 76 65 24 2b  c3 28 74 6f 74 29 0d 24  |o_save$+.(tot).$|
00007cd0  d6 56 e7 20 74 6f 74 61  6c 25 3c 30 20 8c 20 74  |.V. total%<0 . t|
00007ce0  65 78 74 5f 74 6f 5f 73  61 76 65 24 3d 74 65 78  |ext_to_save$=tex|
00007cf0  74 5f 74 6f 5f 73 61 76  65 24 2b 22 20 20 44 22  |t_to_save$+"  D"|
00007d00  20 8b 20 74 65 78 74 5f  74 6f 5f 73 61 76 65 24  | . text_to_save$|
00007d10  3d 74 65 78 74 5f 74 6f  5f 73 61 76 65 24 2b 22  |=text_to_save$+"|
00007d20  20 20 43 22 0d 24 e0 17  d5 23 43 48 25 2c 74 65  |  C".$...#CH%,te|
00007d30  78 74 5f 74 6f 5f 73 61  76 65 24 0d 24 ea 05 cd  |xt_to_save$.$...|
00007d40  0d 24 f4 26 e3 20 63 6f  75 6e 74 25 3d 30 20 b8  |.$.&. count%=0 .|
00007d50  20 65 6e 74 72 79 25 28  73 61 76 65 5f 6d 6f 6e  | entry%(save_mon|
00007d60  74 68 25 29 2d 31 0d 24  fe 14 74 65 78 74 5f 74  |th%)-1.$..text_t|
00007d70  6f 5f 73 61 76 65 24 3d  22 22 0d 25 08 1e e7 20  |o_save$="".%... |
00007d80  65 6e 74 72 79 25 28 73  61 76 65 5f 6d 6f 6e 74  |entry%(save_mont|
00007d90  68 25 29 3c 3e 30 20 8c  0d 25 12 10 40 25 3d 26  |h%)<>0 ..%..@%=&|
00007da0  30 31 30 30 30 39 30 41  0d 25 1c 47 e7 20 64 61  |0100090A.%.G. da|
00007db0  74 65 25 28 63 6f 75 6e  74 25 2c 73 61 76 65 5f  |te%(count%,save_|
00007dc0  6d 6f 6e 74 68 25 29 3c  31 30 20 8c 20 65 78 74  |month%)<10 . ext|
00007dd0  72 61 5f 73 70 61 63 65  24 3d 22 20 22 20 8b 20  |ra_space$=" " . |
00007de0  65 78 74 72 61 5f 73 70  61 63 65 24 3d 22 22 0d  |extra_space$="".|
00007df0  25 26 1b c8 8e 20 28 73  61 76 65 5f 6d 6f 6e 74  |%&... (save_mont|
00007e00  68 25 20 83 20 31 32 29  20 ca 0d 25 30 aa c9 20  |h% . 12) ..%0.. |
00007e10  30 2c 31 2c 32 2c 33 2c  34 2c 35 2c 36 2c 37 2c  |0,1,2,3,4,5,6,7,|
00007e20  38 3a 74 65 78 74 5f 74  6f 5f 73 61 76 65 24 3d  |8:text_to_save$=|
00007e30  65 78 74 72 61 5f 73 70  61 63 65 24 2b c3 28 64  |extra_space$+.(d|
00007e40  61 74 65 25 28 63 6f 75  6e 74 25 2c 73 61 76 65  |ate%(count%,save|
00007e50  5f 6d 6f 6e 74 68 25 29  29 2b 22 2f 22 2b c3 28  |_month%))+"/"+.(|
00007e60  28 73 61 76 65 5f 6d 6f  6e 74 68 25 20 83 20 31  |(save_month% . 1|
00007e70  32 29 2b 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |2)+1)+"/"+.(year|
00007e80  25 2b 28 73 61 76 65 5f  6d 6f 6e 74 68 25 20 81  |%+(save_month% .|
00007e90  20 31 32 29 29 2b 22 20  20 22 2b 6e 61 6d 65 24  | 12))+"  "+name$|
00007ea0  28 63 6f 75 6e 74 25 2c  73 61 76 65 5f 6d 6f 6e  |(count%,save_mon|
00007eb0  74 68 25 29 0d 25 3a 9f  c9 20 39 2c 31 30 2c 31  |th%).%:.. 9,10,1|
00007ec0  31 3a 74 65 78 74 5f 74  6f 5f 73 61 76 65 24 3d  |1:text_to_save$=|
00007ed0  65 78 74 72 61 5f 73 70  61 63 65 24 2b c3 28 64  |extra_space$+.(d|
00007ee0  61 74 65 25 28 63 6f 75  6e 74 25 2c 73 61 76 65  |ate%(count%,save|
00007ef0  5f 6d 6f 6e 74 68 25 29  29 2b 22 2f 22 2b c3 28  |_month%))+"/"+.(|
00007f00  28 73 61 76 65 5f 6d 6f  6e 74 68 25 20 83 20 31  |(save_month% . 1|
00007f10  32 29 2b 31 29 2b 22 2f  22 2b c3 28 79 65 61 72  |2)+1)+"/"+.(year|
00007f20  25 2b 28 73 61 76 65 5f  6d 6f 6e 74 68 25 20 81  |%+(save_month% .|
00007f30  20 31 32 29 29 2b 22 20  22 2b 6e 61 6d 65 24 28  | 12))+" "+name$(|
00007f40  63 6f 75 6e 74 25 2c 73  61 76 65 5f 6d 6f 6e 74  |count%,save_mont|
00007f50  68 25 29 0d 25 44 05 cb  0d 25 4e 10 40 25 3d 26  |h%).%D...%N.@%=&|
00007f60  30 31 30 41 30 32 30 41  0d 25 58 10 40 25 3d 26  |010A020A.%X.@%=&|
00007f70  30 31 30 32 30 32 30 41  0d 25 62 25 e7 20 61 6d  |0102020A.%b%. am|
00007f80  6f 75 6e 74 25 28 63 6f  75 6e 74 25 2c 73 61 76  |ount%(count%,sav|
00007f90  65 5f 6d 6f 6e 74 68 25  29 3c 30 20 8c 0d 25 6c  |e_month%)<0 ..%l|
00007fa0  29 61 6d 3d 94 28 61 6d  6f 75 6e 74 25 28 63 6f  |)am=.(amount%(co|
00007fb0  75 6e 74 25 2c 73 61 76  65 5f 6d 6f 6e 74 68 25  |unt%,save_month%|
00007fc0  29 2f 31 30 30 29 0d 25  76 0d 73 70 61 63 65 73  |)/100).%v.spaces|
00007fd0  25 3d 37 0d 25 80 16 e7  20 61 6d 3e 39 20 8c 20  |%=7.%... am>9 . |
00007fe0  73 70 61 63 65 73 25 3d  36 0d 25 8a 17 e7 20 61  |spaces%=6.%... a|
00007ff0  6d 3e 39 39 20 8c 20 73  70 61 63 65 73 25 3d 35  |m>99 . spaces%=5|
00008000  0d 25 94 18 e7 20 61 6d  3e 39 39 39 20 8c 20 73  |.%... am>999 . s|
00008010  70 61 63 65 73 25 3d 34  0d 25 9e 19 e7 20 61 6d  |paces%=4.%... am|
00008020  3e 39 39 39 39 20 8c 20  73 70 61 63 65 73 25 3d  |>9999 . spaces%=|
00008030  33 0d 25 a8 1a e7 20 61  6d 3e 39 39 39 39 39 20  |3.%... am>99999 |
00008040  8c 20 73 70 61 63 65 73  25 3d 32 0d 25 b2 1b e7  |. spaces%=2.%...|
00008050  20 61 6d 3e 39 39 39 39  39 39 20 8c 20 73 70 61  | am>999999 . spa|
00008060  63 65 73 25 3d 31 0d 25  bc 1c e7 20 61 6d 3e 39  |ces%=1.%... am>9|
00008070  39 39 39 39 39 39 20 8c  20 73 70 61 63 65 73 25  |999999 . spaces%|
00008080  3d 30 0d 25 c6 5b 74 65  78 74 5f 74 6f 5f 73 61  |=0.%.[text_to_sa|
00008090  76 65 24 3d 74 65 78 74  5f 74 6f 5f 73 61 76 65  |ve$=text_to_save|
000080a0  24 2b c4 28 73 70 61 63  65 73 25 2b 32 33 2d a9  |$+.(spaces%+23-.|
000080b0  28 6e 61 6d 65 24 28 63  6f 75 6e 74 25 2c 73 61  |(name$(count%,sa|
000080c0  76 65 5f 6d 6f 6e 74 68  25 29 29 29 2c 22 20 22  |ve_month%)))," "|
000080d0  29 2b c3 28 61 6d 29 2b  22 20 20 20 22 0d 25 d0  |)+.(am)+"   ".%.|
000080e0  18 62 61 6c 61 6e 63 65  5f 61 64 64 69 74 69 6f  |.balance_additio|
000080f0  6e 25 3d 31 34 0d 25 da  05 cc 0d 25 e4 26 61 6d  |n%=14.%....%.&am|
00008100  3d 61 6d 6f 75 6e 74 25  28 63 6f 75 6e 74 25 2c  |=amount%(count%,|
00008110  73 61 76 65 5f 6d 6f 6e  74 68 25 29 2f 31 30 30  |save_month%)/100|
00008120  0d 25 ee 0d 73 70 61 63  65 73 25 3d 37 0d 25 f8  |.%..spaces%=7.%.|
00008130  16 e7 20 61 6d 3e 39 20  8c 20 73 70 61 63 65 73  |.. am>9 . spaces|
00008140  25 3d 36 0d 26 02 17 e7  20 61 6d 3e 39 39 20 8c  |%=6.&... am>99 .|
00008150  20 73 70 61 63 65 73 25  3d 35 0d 26 0c 18 e7 20  | spaces%=5.&... |
00008160  61 6d 3e 39 39 39 20 8c  20 73 70 61 63 65 73 25  |am>999 . spaces%|
00008170  3d 34 0d 26 16 19 e7 20  61 6d 3e 39 39 39 39 20  |=4.&... am>9999 |
00008180  8c 20 73 70 61 63 65 73  25 3d 33 0d 26 20 1a e7  |. spaces%=3.& ..|
00008190  20 61 6d 3e 39 39 39 39  39 20 8c 20 73 70 61 63  | am>99999 . spac|
000081a0  65 73 25 3d 32 0d 26 2a  1b e7 20 61 6d 3e 39 39  |es%=2.&*.. am>99|
000081b0  39 39 39 39 20 8c 20 73  70 61 63 65 73 25 3d 31  |9999 . spaces%=1|
000081c0  0d 26 34 1c e7 20 61 6d  3e 39 39 39 39 39 39 39  |.&4.. am>9999999|
000081d0  20 8c 20 73 70 61 63 65  73 25 3d 30 0d 26 3e 55  | . spaces%=0.&>U|
000081e0  74 65 78 74 5f 74 6f 5f  73 61 76 65 24 3d 74 65  |text_to_save$=te|
000081f0  78 74 5f 74 6f 5f 73 61  76 65 24 2b c4 28 73 70  |xt_to_save$+.(sp|
00008200  61 63 65 73 25 2b 33 34  2d a9 28 6e 61 6d 65 24  |aces%+34-.(name$|
00008210  28 63 6f 75 6e 74 25 2c  73 61 76 65 5f 6d 6f 6e  |(count%,save_mon|
00008220  74 68 25 29 29 29 2c 22  20 22 29 2b c3 28 61 6d  |th%)))," ")+.(am|
00008230  29 0d 26 48 17 62 61 6c  61 6e 63 65 5f 61 64 64  |).&H.balance_add|
00008240  69 74 69 6f 6e 25 3d 36  0d 26 52 05 cd 0d 26 5c  |ition%=6.&R...&\|
00008250  2d 74 6f 74 61 6c 25 3d  74 6f 74 61 6c 25 2b 61  |-total%=total%+a|
00008260  6d 6f 75 6e 74 25 28 63  6f 75 6e 74 25 2c 73 61  |mount%(count%,sa|
00008270  76 65 5f 6d 6f 6e 74 68  25 29 0d 26 66 15 74 6f  |ve_month%).&f.to|
00008280  74 3d 94 28 74 6f 74 61  6c 25 2f 31 30 30 29 0d  |t=.(total%/100).|
00008290  26 70 0d 73 70 61 63 65  73 25 3d 37 0d 26 7a 17  |&p.spaces%=7.&z.|
000082a0  e7 20 74 6f 74 3e 39 20  8c 20 73 70 61 63 65 73  |. tot>9 . spaces|
000082b0  25 3d 36 0d 26 84 18 e7  20 74 6f 74 3e 39 39 20  |%=6.&... tot>99 |
000082c0  8c 20 73 70 61 63 65 73  25 3d 35 0d 26 8e 19 e7  |. spaces%=5.&...|
000082d0  20 74 6f 74 3e 39 39 39  20 8c 20 73 70 61 63 65  | tot>999 . space|
000082e0  73 25 3d 34 0d 26 98 1a  e7 20 74 6f 74 3e 39 39  |s%=4.&... tot>99|
000082f0  39 39 20 8c 20 73 70 61  63 65 73 25 3d 33 0d 26  |99 . spaces%=3.&|
00008300  a2 1b e7 20 74 6f 74 3e  39 39 39 39 39 20 8c 20  |... tot>99999 . |
00008310  73 70 61 63 65 73 25 3d  32 0d 26 ac 1c e7 20 74  |spaces%=2.&... t|
00008320  6f 74 3e 39 39 39 39 39  39 20 8c 20 73 70 61 63  |ot>999999 . spac|
00008330  65 73 25 3d 31 0d 26 b6  1d e7 20 74 6f 74 3e 39  |es%=1.&... tot>9|
00008340  39 39 39 39 39 39 20 8c  20 73 70 61 63 65 73 25  |999999 . spaces%|
00008350  3d 30 0d 26 c0 48 74 65  78 74 5f 74 6f 5f 73 61  |=0.&.Htext_to_sa|
00008360  76 65 24 3d 74 65 78 74  5f 74 6f 5f 73 61 76 65  |ve$=text_to_save|
00008370  24 2b c4 28 73 70 61 63  65 73 25 2b 62 61 6c 61  |$+.(spaces%+bala|
00008380  6e 63 65 5f 61 64 64 69  74 69 6f 6e 25 29 2c 22  |nce_addition%),"|
00008390  20 22 29 2b c3 28 74 6f  74 29 0d 26 ca 56 e7 20  | ")+.(tot).&.V. |
000083a0  74 6f 74 61 6c 25 3c 30  20 8c 20 74 65 78 74 5f  |total%<0 . text_|
000083b0  74 6f 5f 73 61 76 65 24  3d 74 65 78 74 5f 74 6f  |to_save$=text_to|
000083c0  5f 73 61 76 65 24 2b 22  20 20 44 22 20 8b 20 74  |_save$+"  D" . t|
000083d0  65 78 74 5f 74 6f 5f 73  61 76 65 24 3d 74 65 78  |ext_to_save$=tex|
000083e0  74 5f 74 6f 5f 73 61 76  65 24 2b 22 20 20 43 22  |t_to_save$+"  C"|
000083f0  0d 26 d4 10 40 25 3d 26  30 31 30 30 30 39 30 41  |.&..@%=&0100090A|
00008400  0d 26 de 17 d5 23 43 48  25 2c 74 65 78 74 5f 74  |.&...#CH%,text_t|
00008410  6f 5f 73 61 76 65 24 0d  26 e8 05 cd 0d 26 f2 0c  |o_save$.&....&..|
00008420  ed 20 63 6f 75 6e 74 25  0d 26 fc 05 e1 0d 27 06  |. count%.&....'.|
00008430  05 3a 0d 27 10 1f dd f2  72 69 73 63 6f 73 5f 6d  |.:.'....riscos_m|
00008440  6f 6e 74 68 28 73 61 76  65 5f 6d 6f 6e 74 68 25  |onth(save_month%|
00008450  29 0d 27 1a 10 40 25 3d  26 30 31 30 30 30 39 30  |).'..@%=&0100090|
00008460  41 0d 27 24 1e e7 20 65  6e 74 72 79 25 28 73 61  |A.'$.. entry%(sa|
00008470  76 65 5f 6d 6f 6e 74 68  25 29 3c 3e 30 20 8c 0d  |ve_month%)<>0 ..|
00008480  27 2e 12 d5 23 43 48 25  2c 22 22 2b bd 28 31 33  |'...#CH%,""+.(13|
00008490  29 0d 27 38 48 d5 23 43  48 25 2c 6d 6f 6e 74 68  |).'8H.#CH%,month|
000084a0  24 28 73 61 76 65 5f 6d  6f 6e 74 68 25 20 83 20  |$(save_month% . |
000084b0  31 32 29 2b 22 20 22 2b  c3 28 79 65 61 72 25 2b  |12)+" "+.(year%+|
000084c0  28 73 61 76 65 5f 6d 6f  6e 74 68 25 20 81 20 31  |(save_month% . 1|
000084d0  32 29 29 2b bd 28 31 33  29 0d 27 42 5b d5 23 43  |2))+.(13).'B[.#C|
000084e0  48 25 2c 22 44 61 74 65  20 20 20 20 20 20 20 4e  |H%,"Date       N|
000084f0  61 6d 65 20 20 20 20 20  20 20 20 20 20 20 20 20  |ame             |
00008500  20 20 20 20 20 20 20 20  20 20 20 20 44 65 62 69  |            Debi|
00008510  74 20 20 20 20 20 43 72  65 64 69 74 20 20 20 20  |t     Credit    |
00008520  20 20 20 20 20 20 42 61  6c 61 6e 63 65 22 2b bd  |      Balance"+.|
00008530  28 31 33 29 0d 27 4c 05  cd 0d 27 56 10 40 25 3d  |(13).'L...'V.@%=|
00008540  26 30 31 30 41 30 32 30  41 0d 27 60 10 40 25 3d  |&010A020A.'`.@%=|
00008550  26 30 31 30 32 30 32 30  41 0d 27 6a 3f e7 20 73  |&0102020A.'j?. s|
00008560  61 76 65 5f 6d 6f 6e 74  68 25 3d 30 20 8c 20 74  |ave_month%=0 . t|
00008570  6f 74 61 6c 25 3d 30 20  8b 20 74 6f 74 61 6c 25  |otal%=0 . total%|
00008580  3d 62 61 6c 61 6e 63 65  25 28 73 61 76 65 5f 6d  |=balance%(save_m|
00008590  6f 6e 74 68 25 2d 31 29  0d 27 74 1e e7 20 65 6e  |onth%-1).'t.. en|
000085a0  74 72 79 25 28 73 61 76  65 5f 6d 6f 6e 74 68 25  |try%(save_month%|
000085b0  29 3c 3e 30 20 8c 0d 27  7e 2f 74 65 78 74 5f 74  |)<>0 ..'~/text_t|
000085c0  6f 5f 73 61 76 65 24 3d  22 20 20 20 20 20 20 20  |o_save$="       |
000085d0  20 20 20 20 42 61 6c 61  6e 63 65 20 46 6f 72 77  |    Balance Forw|
000085e0  61 72 64 3a 22 0d 27 88  15 74 6f 74 3d 94 28 74  |ard:".'..tot=.(t|
000085f0  6f 74 61 6c 25 2f 31 30  30 29 0d 27 92 57 e7 20  |otal%/100).'.W. |
00008600  74 6f 74 3c 31 30 30 30  30 30 30 30 20 8c 20 74  |tot<10000000 . t|
00008610  65 78 74 5f 74 6f 5f 73  61 76 65 24 3d 74 65 78  |ext_to_save$=tex|
00008620  74 5f 74 6f 5f 73 61 76  65 24 2b 22 20 20 20 20  |t_to_save$+"    |
00008630  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00008650  22 0d 27 9c 33 e7 20 74  6f 74 3c 31 30 30 30 30  |".'.3. tot<10000|
00008660  30 30 20 8c 20 74 65 78  74 5f 74 6f 5f 73 61 76  |00 . text_to_sav|
00008670  65 24 3d 74 65 78 74 5f  74 6f 5f 73 61 76 65 24  |e$=text_to_save$|
00008680  2b 22 20 22 0d 27 a6 32  e7 20 74 6f 74 3c 31 30  |+" ".'.2. tot<10|
00008690  30 30 30 30 20 8c 20 74  65 78 74 5f 74 6f 5f 73  |0000 . text_to_s|
000086a0  61 76 65 24 3d 74 65 78  74 5f 74 6f 5f 73 61 76  |ave$=text_to_sav|
000086b0  65 24 2b 22 20 22 0d 27  b0 31 e7 20 74 6f 74 3c  |e$+" ".'.1. tot<|
000086c0  31 30 30 30 30 20 8c 20  74 65 78 74 5f 74 6f 5f  |10000 . text_to_|
000086d0  73 61 76 65 24 3d 74 65  78 74 5f 74 6f 5f 73 61  |save$=text_to_sa|
000086e0  76 65 24 2b 22 20 22 0d  27 ba 30 e7 20 74 6f 74  |ve$+" ".'.0. tot|
000086f0  3c 31 30 30 30 20 8c 20  74 65 78 74 5f 74 6f 5f  |<1000 . text_to_|
00008700  73 61 76 65 24 3d 74 65  78 74 5f 74 6f 5f 73 61  |save$=text_to_sa|
00008710  76 65 24 2b 22 20 22 0d  27 c4 2f e7 20 74 6f 74  |ve$+" ".'./. tot|
00008720  3c 31 30 30 20 8c 20 74  65 78 74 5f 74 6f 5f 73  |<100 . text_to_s|
00008730  61 76 65 24 3d 74 65 78  74 5f 74 6f 5f 73 61 76  |ave$=text_to_sav|
00008740  65 24 2b 22 20 22 0d 27  ce 2e e7 20 74 6f 74 3c  |e$+" ".'... tot<|
00008750  31 30 20 8c 20 74 65 78  74 5f 74 6f 5f 73 61 76  |10 . text_to_sav|
00008760  65 24 3d 74 65 78 74 5f  74 6f 5f 73 61 76 65 24  |e$=text_to_save$|
00008770  2b 22 20 22 0d 27 d8 26  74 65 78 74 5f 74 6f 5f  |+" ".'.&text_to_|
00008780  73 61 76 65 24 3d 74 65  78 74 5f 74 6f 5f 73 61  |save$=text_to_sa|
00008790  76 65 24 2b c3 28 74 6f  74 29 0d 27 e2 56 e7 20  |ve$+.(tot).'.V. |
000087a0  74 6f 74 61 6c 25 3c 30  20 8c 20 74 65 78 74 5f  |total%<0 . text_|
000087b0  74 6f 5f 73 61 76 65 24  3d 74 65 78 74 5f 74 6f  |to_save$=text_to|
000087c0  5f 73 61 76 65 24 2b 22  20 20 44 22 20 8b 20 74  |_save$+"  D" . t|
000087d0  65 78 74 5f 74 6f 5f 73  61 76 65 24 3d 74 65 78  |ext_to_save$=tex|
000087e0  74 5f 74 6f 5f 73 61 76  65 24 2b 22 20 20 43 22  |t_to_save$+"  C"|
000087f0  0d 27 ec 1d d5 23 43 48  25 2c 74 65 78 74 5f 74  |.'...#CH%,text_t|
00008800  6f 5f 73 61 76 65 24 2b  bd 28 31 33 29 0d 27 f6  |o_save$+.(13).'.|
00008810  05 cd 0d 28 00 26 e3 20  63 6f 75 6e 74 25 3d 30  |...(.&. count%=0|
00008820  20 b8 20 65 6e 74 72 79  25 28 73 61 76 65 5f 6d  | . entry%(save_m|
00008830  6f 6e 74 68 25 29 2d 31  0d 28 0a 14 74 65 78 74  |onth%)-1.(..text|
00008840  5f 74 6f 5f 73 61 76 65  24 3d 22 22 0d 28 14 1e  |_to_save$="".(..|
00008850  e7 20 65 6e 74 72 79 25  28 73 61 76 65 5f 6d 6f  |. entry%(save_mo|
00008860  6e 74 68 25 29 3c 3e 30  20 8c 0d 28 1e 10 40 25  |nth%)<>0 ..(..@%|
00008870  3d 26 30 31 30 30 30 39  30 41 0d 28 28 47 e7 20  |=&0100090A.((G. |
00008880  64 61 74 65 25 28 63 6f  75 6e 74 25 2c 73 61 76  |date%(count%,sav|
00008890  65 5f 6d 6f 6e 74 68 25  29 3c 31 30 20 8c 20 65  |e_month%)<10 . e|
000088a0  78 74 72 61 5f 73 70 61  63 65 24 3d 22 20 22 20  |xtra_space$=" " |
000088b0  8b 20 65 78 74 72 61 5f  73 70 61 63 65 24 3d 22  |. extra_space$="|
000088c0  22 0d 28 32 1b c8 8e 20  28 73 61 76 65 5f 6d 6f  |".(2... (save_mo|
000088d0  6e 74 68 25 20 83 20 31  32 29 20 ca 0d 28 3c aa  |nth% . 12) ..(<.|
000088e0  c9 20 30 2c 31 2c 32 2c  33 2c 34 2c 35 2c 36 2c  |. 0,1,2,3,4,5,6,|
000088f0  37 2c 38 3a 74 65 78 74  5f 74 6f 5f 73 61 76 65  |7,8:text_to_save|
00008900  24 3d 65 78 74 72 61 5f  73 70 61 63 65 24 2b c3  |$=extra_space$+.|
00008910  28 64 61 74 65 25 28 63  6f 75 6e 74 25 2c 73 61  |(date%(count%,sa|
00008920  76 65 5f 6d 6f 6e 74 68  25 29 29 2b 22 2f 22 2b  |ve_month%))+"/"+|
00008930  c3 28 28 73 61 76 65 5f  6d 6f 6e 74 68 25 20 83  |.((save_month% .|
00008940  20 31 32 29 2b 31 29 2b  22 2f 22 2b c3 28 79 65  | 12)+1)+"/"+.(ye|
00008950  61 72 25 2b 28 73 61 76  65 5f 6d 6f 6e 74 68 25  |ar%+(save_month%|
00008960  20 81 20 31 32 29 29 2b  22 20 20 22 2b 6e 61 6d  | . 12))+"  "+nam|
00008970  65 24 28 63 6f 75 6e 74  25 2c 73 61 76 65 5f 6d  |e$(count%,save_m|
00008980  6f 6e 74 68 25 29 0d 28  46 9f c9 20 39 2c 31 30  |onth%).(F.. 9,10|
00008990  2c 31 31 3a 74 65 78 74  5f 74 6f 5f 73 61 76 65  |,11:text_to_save|
000089a0  24 3d 65 78 74 72 61 5f  73 70 61 63 65 24 2b c3  |$=extra_space$+.|
000089b0  28 64 61 74 65 25 28 63  6f 75 6e 74 25 2c 73 61  |(date%(count%,sa|
000089c0  76 65 5f 6d 6f 6e 74 68  25 29 29 2b 22 2f 22 2b  |ve_month%))+"/"+|
000089d0  c3 28 28 73 61 76 65 5f  6d 6f 6e 74 68 25 20 83  |.((save_month% .|
000089e0  20 31 32 29 2b 31 29 2b  22 2f 22 2b c3 28 79 65  | 12)+1)+"/"+.(ye|
000089f0  61 72 25 2b 28 73 61 76  65 5f 6d 6f 6e 74 68 25  |ar%+(save_month%|
00008a00  20 81 20 31 32 29 29 2b  22 20 22 2b 6e 61 6d 65  | . 12))+" "+name|
00008a10  24 28 63 6f 75 6e 74 25  2c 73 61 76 65 5f 6d 6f  |$(count%,save_mo|
00008a20  6e 74 68 25 29 0d 28 50  05 cb 0d 28 5a 10 40 25  |nth%).(P...(Z.@%|
00008a30  3d 26 30 31 30 41 30 32  30 41 0d 28 64 10 40 25  |=&010A020A.(d.@%|
00008a40  3d 26 30 31 30 32 30 32  30 41 0d 28 6e 25 e7 20  |=&0102020A.(n%. |
00008a50  61 6d 6f 75 6e 74 25 28  63 6f 75 6e 74 25 2c 73  |amount%(count%,s|
00008a60  61 76 65 5f 6d 6f 6e 74  68 25 29 3c 30 20 8c 0d  |ave_month%)<0 ..|
00008a70  28 78 29 61 6d 3d 94 28  61 6d 6f 75 6e 74 25 28  |(x)am=.(amount%(|
00008a80  63 6f 75 6e 74 25 2c 73  61 76 65 5f 6d 6f 6e 74  |count%,save_mont|
00008a90  68 25 29 2f 31 30 30 29  0d 28 82 0d 73 70 61 63  |h%)/100).(..spac|
00008aa0  65 73 25 3d 37 0d 28 8c  16 e7 20 61 6d 3e 39 20  |es%=7.(... am>9 |
00008ab0  8c 20 73 70 61 63 65 73  25 3d 36 0d 28 96 17 e7  |. spaces%=6.(...|
00008ac0  20 61 6d 3e 39 39 20 8c  20 73 70 61 63 65 73 25  | am>99 . spaces%|
00008ad0  3d 35 0d 28 a0 18 e7 20  61 6d 3e 39 39 39 20 8c  |=5.(... am>999 .|
00008ae0  20 73 70 61 63 65 73 25  3d 34 0d 28 aa 19 e7 20  | spaces%=4.(... |
00008af0  61 6d 3e 39 39 39 39 20  8c 20 73 70 61 63 65 73  |am>9999 . spaces|
00008b00  25 3d 33 0d 28 b4 1a e7  20 61 6d 3e 39 39 39 39  |%=3.(... am>9999|
00008b10  39 20 8c 20 73 70 61 63  65 73 25 3d 32 0d 28 be  |9 . spaces%=2.(.|
00008b20  1b e7 20 61 6d 3e 39 39  39 39 39 39 20 8c 20 73  |.. am>999999 . s|
00008b30  70 61 63 65 73 25 3d 31  0d 28 c8 1c e7 20 61 6d  |paces%=1.(... am|
00008b40  3e 39 39 39 39 39 39 39  20 8c 20 73 70 61 63 65  |>9999999 . space|
00008b50  73 25 3d 30 0d 28 d2 5b  74 65 78 74 5f 74 6f 5f  |s%=0.(.[text_to_|
00008b60  73 61 76 65 24 3d 74 65  78 74 5f 74 6f 5f 73 61  |save$=text_to_sa|
00008b70  76 65 24 2b c4 28 73 70  61 63 65 73 25 2b 32 33  |ve$+.(spaces%+23|
00008b80  2d a9 28 6e 61 6d 65 24  28 63 6f 75 6e 74 25 2c  |-.(name$(count%,|
00008b90  73 61 76 65 5f 6d 6f 6e  74 68 25 29 29 29 2c 22  |save_month%))),"|
00008ba0  20 22 29 2b c3 28 61 6d  29 2b 22 20 20 20 22 0d  | ")+.(am)+"   ".|
00008bb0  28 dc 18 62 61 6c 61 6e  63 65 5f 61 64 64 69 74  |(..balance_addit|
00008bc0  69 6f 6e 25 3d 31 34 0d  28 e6 05 cc 0d 28 f0 26  |ion%=14.(....(.&|
00008bd0  61 6d 3d 61 6d 6f 75 6e  74 25 28 63 6f 75 6e 74  |am=amount%(count|
00008be0  25 2c 73 61 76 65 5f 6d  6f 6e 74 68 25 29 2f 31  |%,save_month%)/1|
00008bf0  30 30 0d 28 fa 0d 73 70  61 63 65 73 25 3d 37 0d  |00.(..spaces%=7.|
00008c00  29 04 16 e7 20 61 6d 3e  39 20 8c 20 73 70 61 63  |)... am>9 . spac|
00008c10  65 73 25 3d 36 0d 29 0e  17 e7 20 61 6d 3e 39 39  |es%=6.)... am>99|
00008c20  20 8c 20 73 70 61 63 65  73 25 3d 35 0d 29 18 18  | . spaces%=5.)..|
00008c30  e7 20 61 6d 3e 39 39 39  20 8c 20 73 70 61 63 65  |. am>999 . space|
00008c40  73 25 3d 34 0d 29 22 19  e7 20 61 6d 3e 39 39 39  |s%=4.)".. am>999|
00008c50  39 20 8c 20 73 70 61 63  65 73 25 3d 33 0d 29 2c  |9 . spaces%=3.),|
00008c60  1a e7 20 61 6d 3e 39 39  39 39 39 20 8c 20 73 70  |.. am>99999 . sp|
00008c70  61 63 65 73 25 3d 32 0d  29 36 1b e7 20 61 6d 3e  |aces%=2.)6.. am>|
00008c80  39 39 39 39 39 39 20 8c  20 73 70 61 63 65 73 25  |999999 . spaces%|
00008c90  3d 31 0d 29 40 1c e7 20  61 6d 3e 39 39 39 39 39  |=1.)@.. am>99999|
00008ca0  39 39 20 8c 20 73 70 61  63 65 73 25 3d 30 0d 29  |99 . spaces%=0.)|
00008cb0  4a 55 74 65 78 74 5f 74  6f 5f 73 61 76 65 24 3d  |JUtext_to_save$=|
00008cc0  74 65 78 74 5f 74 6f 5f  73 61 76 65 24 2b c4 28  |text_to_save$+.(|
00008cd0  73 70 61 63 65 73 25 2b  33 34 2d a9 28 6e 61 6d  |spaces%+34-.(nam|
00008ce0  65 24 28 63 6f 75 6e 74  25 2c 73 61 76 65 5f 6d  |e$(count%,save_m|
00008cf0  6f 6e 74 68 25 29 29 29  2c 22 20 22 29 2b c3 28  |onth%)))," ")+.(|
00008d00  61 6d 29 0d 29 54 17 62  61 6c 61 6e 63 65 5f 61  |am).)T.balance_a|
00008d10  64 64 69 74 69 6f 6e 25  3d 36 0d 29 5e 05 cd 0d  |ddition%=6.)^...|
00008d20  29 68 2d 74 6f 74 61 6c  25 3d 74 6f 74 61 6c 25  |)h-total%=total%|
00008d30  2b 61 6d 6f 75 6e 74 25  28 63 6f 75 6e 74 25 2c  |+amount%(count%,|
00008d40  73 61 76 65 5f 6d 6f 6e  74 68 25 29 0d 29 72 15  |save_month%).)r.|
00008d50  74 6f 74 3d 94 28 74 6f  74 61 6c 25 2f 31 30 30  |tot=.(total%/100|
00008d60  29 0d 29 7c 0d 73 70 61  63 65 73 25 3d 37 0d 29  |).)|.spaces%=7.)|
00008d70  86 17 e7 20 74 6f 74 3e  39 20 8c 20 73 70 61 63  |... tot>9 . spac|
00008d80  65 73 25 3d 36 0d 29 90  18 e7 20 74 6f 74 3e 39  |es%=6.)... tot>9|
00008d90  39 20 8c 20 73 70 61 63  65 73 25 3d 35 0d 29 9a  |9 . spaces%=5.).|
00008da0  19 e7 20 74 6f 74 3e 39  39 39 20 8c 20 73 70 61  |.. tot>999 . spa|
00008db0  63 65 73 25 3d 34 0d 29  a4 1a e7 20 74 6f 74 3e  |ces%=4.)... tot>|
00008dc0  39 39 39 39 20 8c 20 73  70 61 63 65 73 25 3d 33  |9999 . spaces%=3|
00008dd0  0d 29 ae 1b e7 20 74 6f  74 3e 39 39 39 39 39 20  |.)... tot>99999 |
00008de0  8c 20 73 70 61 63 65 73  25 3d 32 0d 29 b8 1c e7  |. spaces%=2.)...|
00008df0  20 74 6f 74 3e 39 39 39  39 39 39 20 8c 20 73 70  | tot>999999 . sp|
00008e00  61 63 65 73 25 3d 31 0d  29 c2 1d e7 20 74 6f 74  |aces%=1.)... tot|
00008e10  3e 39 39 39 39 39 39 39  20 8c 20 73 70 61 63 65  |>9999999 . space|
00008e20  73 25 3d 30 0d 29 cc 48  74 65 78 74 5f 74 6f 5f  |s%=0.).Htext_to_|
00008e30  73 61 76 65 24 3d 74 65  78 74 5f 74 6f 5f 73 61  |save$=text_to_sa|
00008e40  76 65 24 2b c4 28 73 70  61 63 65 73 25 2b 62 61  |ve$+.(spaces%+ba|
00008e50  6c 61 6e 63 65 5f 61 64  64 69 74 69 6f 6e 25 29  |lance_addition%)|
00008e60  2c 22 20 22 29 2b c3 28  74 6f 74 29 0d 29 d6 56  |," ")+.(tot).).V|
00008e70  e7 20 74 6f 74 61 6c 25  3c 30 20 8c 20 74 65 78  |. total%<0 . tex|
00008e80  74 5f 74 6f 5f 73 61 76  65 24 3d 74 65 78 74 5f  |t_to_save$=text_|
00008e90  74 6f 5f 73 61 76 65 24  2b 22 20 20 44 22 20 8b  |to_save$+"  D" .|
00008ea0  20 74 65 78 74 5f 74 6f  5f 73 61 76 65 24 3d 74  | text_to_save$=t|
00008eb0  65 78 74 5f 74 6f 5f 73  61 76 65 24 2b 22 20 20  |ext_to_save$+"  |
00008ec0  43 22 0d 29 e0 10 40 25  3d 26 30 31 30 30 30 39  |C".)..@%=&010009|
00008ed0  30 41 0d 29 ea 1d d5 23  43 48 25 2c 74 65 78 74  |0A.)...#CH%,text|
00008ee0  5f 74 6f 5f 73 61 76 65  24 2b bd 28 31 33 29 0d  |_to_save$+.(13).|
00008ef0  29 f4 05 cd 0d 29 fe 0c  ed 20 63 6f 75 6e 74 25  |)....)... count%|
00008f00  0d 2a 08 05 e1 0d 2a 12  05 3a 0d 2a 1c 16 dd f2  |.*....*..:.*....|
00008f10  6c 6f 61 64 5f 61 63 6b  6e 6f 77 6c 65 64 67 65  |load_acknowledge|
00008f20  0d 2a 26 16 71 25 21 31  32 3d 71 25 21 38 3a 71  |.*&.q%!12=q%!8:q|
00008f30  25 21 31 36 3d 34 0d 2a  30 24 c8 99 20 22 57 69  |%!16=4.*0$.. "Wi|
00008f40  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00008f50  31 37 2c 71 25 2c 71 25  21 34 0d 2a 3a 05 e1 0d  |17,q%,q%!4.*:...|
00008f60  2a 44 05 3a 0d 2a 4e 1b  dd f2 6f 6b 5f 74 6f 5f  |*D.:.*N...ok_to_|
00008f70  6c 6f 61 64 28 66 69 6c  65 74 79 70 65 24 29 0d  |load(filetype$).|
00008f80  2a 58 23 66 69 6c 65 6e  61 6d 65 24 3d 22 22 3a  |*X#filename$="":|
00008f90  61 25 3d 30 3a 62 25 3d  71 25 3f 28 34 34 2b 61  |a%=0:b%=q%?(44+a|
00008fa0  25 29 0d 2a 62 33 c8 95  20 62 25 3c 3e 30 3a 66  |%).*b3.. b%<>0:f|
00008fb0  69 6c 65 6e 61 6d 65 24  2b 3d bd 28 62 25 29 3a  |ilename$+=.(b%):|
00008fc0  61 25 2b 3d 31 3a 62 25  3d 71 25 3f 28 34 34 2b  |a%+=1:b%=q%?(44+|
00008fd0  61 25 29 3a ce 0d 2a 6c  15 f2 6f 70 65 6e 28 6d  |a%):..*l..open(m|
00008fe0  61 69 6e 5f 62 61 63 6b  25 29 0d 2a 76 2d e7 20  |ain_back%).*v-. |
00008ff0  66 69 6c 65 74 79 70 65  24 3d 22 45 39 38 22 20  |filetype$="E98" |
00009000  8c 20 f2 6c 6f 61 64 5f  64 61 74 61 28 66 69 6c  |. .load_data(fil|
00009010  65 6e 61 6d 65 24 29 0d  2a 80 2f e7 20 66 69 6c  |ename$).*./. fil|
00009020  65 74 79 70 65 24 3d 22  34 30 36 22 20 8c 20 f2  |etype$="406" . .|
00009030  6c 6f 61 64 5f 62 61 6e  6b 65 72 28 66 69 6c 65  |load_banker(file|
00009040  6e 61 6d 65 24 29 0d 2a  8a 05 e1 0d 2a 94 05 3a  |name$).*....*..:|
00009050  0d 2a 9e 1a dd f2 6c 6f  61 64 5f 64 61 74 61 28  |.*....load_data(|
00009060  64 61 74 61 66 69 6c 65  24 29 0d 2a a8 15 c8 99  |datafile$).*....|
00009070  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  | "Hourglass_On".|
00009080  2a b2 14 74 6f 74 61 6c  5f 65 6e 74 72 69 65 73  |*..total_entries|
00009090  25 3d 30 0d 2a bc 0f 6c  6f 61 64 5f 65 72 72 25  |%=0.*..load_err%|
000090a0  3d a3 0d 2a c6 14 43 48  25 3d 8e 28 64 61 74 61  |=..*..CH%=.(data|
000090b0  66 69 6c 65 24 29 0d 2a  d0 10 e8 23 43 48 25 2c  |file$).*...#CH%,|
000090c0  64 75 6d 6d 79 24 0d 2a  da 8b e7 20 64 75 6d 6d  |dummy$.*... dumm|
000090d0  79 24 3c 3e 22 6e 6f 73  77 61 44 20 79 6b 63 69  |y$<>"noswaD ykci|
000090e0  52 20 79 62 20 6d 65 74  73 79 53 20 6b 6e 61 42  |R yb metsyS knaB|
000090f0  22 20 8c 20 6c 6f 61 64  5f 65 72 72 25 3d b9 3a  |" . load_err%=.:|
00009100  d9 23 43 48 25 3a 85 20  39 39 2c 22 59 6f 75 20  |.#CH%:. 99,"You |
00009110  61 72 65 20 74 72 79 69  6e 67 20 74 6f 20 6c 6f  |are trying to lo|
00009120  61 64 20 61 20 66 69 6c  65 20 74 68 61 74 20 69  |ad a file that i|
00009130  73 20 65 69 74 68 65 72  20 69 6e 76 61 6c 69 64  |s either invalid|
00009140  20 6f 72 20 6f 75 74 2d  6f 66 2d 64 61 74 65 2e  | or out-of-date.|
00009150  22 0d 2a e4 10 e8 23 43  48 25 2c 64 75 6d 6d 79  |".*...#CH%,dummy|
00009160  24 0d 2a ee 87 e7 20 64  75 6d 6d 79 24 3c 3e 22  |$.*... dummy$<>"|
00009170  34 39 39 31 20 64 6c 72  6f 57 20 73 65 64 65 6d  |4991 dlroW sedem|
00009180  69 68 63 72 41 20 a9 22  20 8c 20 6c 6f 61 64 5f  |ihcrA ." . load_|
00009190  65 72 72 25 3d b9 3a d9  23 43 48 25 3a 85 20 39  |err%=.:.#CH%:. 9|
000091a0  39 2c 22 59 6f 75 20 61  72 65 20 74 72 79 69 6e  |9,"You are tryin|
000091b0  67 20 74 6f 20 6c 6f 61  64 20 61 20 66 69 6c 65  |g to load a file|
000091c0  20 74 68 61 74 20 69 73  20 65 69 74 68 65 72 20  | that is either |
000091d0  69 6e 76 61 6c 69 64 20  6f 72 20 6f 75 74 2d 6f  |invalid or out-o|
000091e0  66 2d 64 61 74 65 2e 22  0d 2a f8 0f e8 23 43 48  |f-date.".*...#CH|
000091f0  25 2c 79 65 61 72 25 0d  2b 02 25 79 65 61 72 70  |%,year%.+.%yearp|
00009200  6c 75 73 25 3d 28 28 a4  74 6f 64 61 79 3e 3e 38  |lus%=((.today>>8|
00009210  29 81 20 31 32 29 2d 79  65 61 72 25 0d 2b 0c 40  |). 12)-year%.+.@|
00009220  6d 6f 6e 74 68 25 3d 28  28 a4 74 6f 64 61 79 3e  |month%=((.today>|
00009230  3e 38 29 83 20 31 32 29  3a 6d 6f 6e 74 68 25 3d  |>8). 12):month%=|
00009240  28 6d 6f 6e 74 68 25 20  83 20 31 32 29 2b 28 79  |(month% . 12)+(y|
00009250  65 61 72 70 6c 75 73 25  2a 31 32 29 0d 2b 16 21  |earplus%*12).+.!|
00009260  e7 20 79 65 61 72 70 6c  75 73 25 3e 34 20 84 20  |. yearplus%>4 . |
00009270  79 65 61 72 70 6c 75 73  25 3c 30 20 8c 0d 2b 20  |yearplus%<0 ..+ |
00009280  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00009290  66 66 22 0d 2b 2a 4f 85  20 39 39 2c 22 59 6f 75  |ff".+*O. 99,"You|
000092a0  20 61 72 65 20 74 72 79  69 6e 67 20 74 6f 20 6c  | are trying to l|
000092b0  6f 61 64 20 61 20 66 69  6c 65 20 74 68 61 74 20  |oad a file that |
000092c0  69 73 20 65 69 74 68 65  72 20 69 6e 76 61 6c 69  |is either invali|
000092d0  64 20 6f 72 20 6f 75 74  2d 6f 66 2d 64 61 74 65  |d or out-of-date|
000092e0  2e 22 0d 2b 34 0f 6c 6f  61 64 5f 65 72 72 25 3d  |.".+4.load_err%=|
000092f0  b9 0d 2b 3e 09 d9 23 43  48 25 0d 2b 48 05 cd 0d  |..+>..#CH%.+H...|
00009300  2b 52 13 e7 20 ac 20 6c  6f 61 64 5f 65 72 72 25  |+R.. . load_err%|
00009310  20 8c 0d 2b 5c 4b e8 23  43 48 25 2c 61 63 63 6f  | ..+\K.#CH%,acco|
00009320  75 6e 74 5f 68 6f 6c 64  65 72 24 2c 61 63 63 6f  |unt_holder$,acco|
00009330  75 6e 74 5f 62 72 61 6e  63 68 24 2c 61 63 63 6f  |unt_branch$,acco|
00009340  75 6e 74 5f 73 6f 72 74  63 6f 64 65 24 2c 61 63  |unt_sortcode$,ac|
00009350  63 6f 75 6e 74 5f 6e 75  6d 62 65 72 24 0d 2b 66  |count_number$.+f|
00009360  13 e3 20 63 6f 75 6e 74  25 3d 30 20 b8 20 35 39  |.. count%=0 . 59|
00009370  0d 2b 70 29 e8 23 43 48  25 2c 62 61 6c 61 6e 63  |.+p).#CH%,balanc|
00009380  65 25 28 63 6f 75 6e 74  25 29 2c 65 6e 74 72 79  |e%(count%),entry|
00009390  25 28 63 6f 75 6e 74 25  29 0d 2b 7a 22 74 6f 74  |%(count%).+z"tot|
000093a0  61 6c 5f 65 6e 74 72 69  65 73 25 2b 3d 65 6e 74  |al_entries%+=ent|
000093b0  72 79 25 28 63 6f 75 6e  74 25 29 0d 2b 84 20 e3  |ry%(count%).+. .|
000093c0  20 63 6f 75 6e 74 32 25  3d 30 20 b8 20 65 6e 74  | count2%=0 . ent|
000093d0  72 79 25 28 63 6f 75 6e  74 25 29 0d 2b 8e 4d e8  |ry%(count%).+.M.|
000093e0  23 43 48 25 2c 6e 61 6d  65 24 28 63 6f 75 6e 74  |#CH%,name$(count|
000093f0  32 25 2c 63 6f 75 6e 74  25 29 2c 61 6d 6f 75 6e  |2%,count%),amoun|
00009400  74 25 28 63 6f 75 6e 74  32 25 2c 63 6f 75 6e 74  |t%(count2%,count|
00009410  25 29 2c 64 61 74 65 25  28 63 6f 75 6e 74 32 25  |%),date%(count2%|
00009420  2c 63 6f 75 6e 74 25 29  0d 2b 98 05 ed 0d 2b a2  |,count%).+....+.|
00009430  4c e7 20 a8 28 28 63 6f  75 6e 74 25 2f 36 30 29  |L. .((count%/60)|
00009440  2a 31 30 30 29 3c 3e 31  30 30 20 8c 20 c8 99 20  |*100)<>100 . .. |
00009450  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
00009460  6e 74 61 67 65 22 2c a8  28 28 63 6f 75 6e 74 25  |ntage",.((count%|
00009470  2f 36 30 29 2a 31 30 30  29 0d 2b ac 05 ed 0d 2b  |/60)*100).+....+|
00009480  b6 09 d9 23 43 48 25 0d  2b c0 05 cd 0d 2b ca 1b  |...#CH%.+....+..|
00009490  f2 79 65 61 72 5f 6d 65  6e 75 3a f2 75 70 64 61  |.year_menu:.upda|
000094a0  74 65 5f 74 69 6d 65 0d  2b d4 39 e7 20 68 6f 74  |te_time.+.9. hot|
000094b0  6b 65 79 73 24 3d 22 59  65 73 22 20 8c 20 f2 6c  |keys$="Yes" . .l|
000094c0  6f 6e 67 5f 6d 61 69 6e  5f 6d 65 6e 75 20 8b 20  |ong_main_menu . |
000094d0  f2 73 68 6f 72 74 5f 6d  61 69 6e 5f 6d 65 6e 75  |.short_main_menu|
000094e0  0d 2b de 2f f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.+./.update_icon|
000094f0  28 66 69 6c 65 69 6e 66  6f 25 2c 38 2c c3 28 74  |(fileinfo%,8,.(t|
00009500  6f 74 61 6c 5f 65 6e 74  72 69 65 73 25 29 29 0d  |otal_entries%)).|
00009510  2b e8 1b f2 75 70 64 61  74 65 5f 61 63 63 6f 75  |+...update_accou|
00009520  6e 74 5f 64 65 74 61 69  6c 73 0d 2b f2 2b f2 75  |nt_details.+.+.u|
00009530  70 64 61 74 65 5f 69 63  6f 6e 28 66 69 6c 65 5f  |pdate_icon(file_|
00009540  73 61 76 65 62 6f 78 25  2c 31 2c 64 61 74 61 66  |savebox%,1,dataf|
00009550  69 6c 65 24 29 0d 2b fc  27 f2 75 70 64 61 74 65  |ile$).+.'.update|
00009560  5f 69 63 6f 6e 28 66 69  6c 65 69 6e 66 6f 25 2c  |_icon(fileinfo%,|
00009570  37 2c 64 61 74 61 66 69  6c 65 24 29 0d 2c 06 49  |7,datafile$).,.I|
00009580  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 66 69 6c  |.update_icon(fil|
00009590  65 69 6e 66 6f 25 2c 36  2c 22 42 61 6e 6b 44 61  |einfo%,6,"BankDa|
000095a0  74 61 20 28 65 39 38 29  22 29 3a f2 63 68 61 6e  |ta (e98)"):.chan|
000095b0  67 65 5f 73 70 72 69 74  65 28 22 66 69 6c 65 5f  |ge_sprite("file_|
000095c0  65 39 38 22 29 0d 2c 10  3b f2 67 65 74 5f 70 69  |e98").,.;.get_pi|
000095d0  6e 62 6f 61 72 64 5f 6e  61 6d 65 3a f2 72 65 5f  |nboard_name:.re_|
000095e0  74 69 74 6c 65 28 22 42  61 6e 6b 20 53 79 73 74  |title("Bank Syst|
000095f0  65 6d 3a 20 22 2b 70 69  6e 62 6f 61 72 64 24 29  |em: "+pinboard$)|
00009600  0d 2c 1a 15 f2 6f 70 65  6e 28 6d 61 69 6e 5f 62  |.,...open(main_b|
00009610  61 63 6b 25 29 0d 2c 24  16 c8 99 20 22 48 6f 75  |ack%).,$... "Hou|
00009620  72 67 6c 61 73 73 5f 4f  66 66 22 0d 2c 2e 05 e1  |rglass_Off".,...|
00009630  0d 2c 38 05 3a 0d 2c 42  1c dd f2 6c 6f 61 64 5f  |.,8.:.,B...load_|
00009640  62 61 6e 6b 65 72 28 64  61 74 61 66 69 6c 65 24  |banker(datafile$|
00009650  29 0d 2c 4c 15 c8 99 20  22 48 6f 75 72 67 6c 61  |).,L... "Hourgla|
00009660  73 73 5f 4f 6e 22 0d 2c  56 14 74 6f 74 61 6c 5f  |ss_On".,V.total_|
00009670  65 6e 74 72 69 65 73 25  3d 30 0d 2c 60 0f 6c 6f  |entries%=0.,`.lo|
00009680  61 64 5f 65 72 72 25 3d  a3 0d 2c 6a 14 43 48 25  |ad_err%=..,j.CH%|
00009690  3d 8e 28 64 61 74 61 66  69 6c 65 24 29 0d 2c 74  |=.(datafile$).,t|
000096a0  0f e8 23 43 48 25 2c 79  65 61 72 25 0d 2c 7e 25  |..#CH%,year%.,~%|
000096b0  79 65 61 72 70 6c 75 73  25 3d 28 28 a4 74 6f 64  |yearplus%=((.tod|
000096c0  61 79 3e 3e 38 29 81 20  31 32 29 2d 79 65 61 72  |ay>>8). 12)-year|
000096d0  25 0d 2c 88 40 6d 6f 6e  74 68 25 3d 28 28 a4 74  |%.,.@month%=((.t|
000096e0  6f 64 61 79 3e 3e 38 29  83 20 31 32 29 3a 6d 6f  |oday>>8). 12):mo|
000096f0  6e 74 68 25 3d 28 6d 6f  6e 74 68 25 20 83 20 31  |nth%=(month% . 1|
00009700  32 29 2b 28 79 65 61 72  70 6c 75 73 25 2a 31 32  |2)+(yearplus%*12|
00009710  29 0d 2c 92 21 e7 20 79  65 61 72 70 6c 75 73 25  |).,.!. yearplus%|
00009720  3e 34 20 84 20 79 65 61  72 70 6c 75 73 25 3c 30  |>4 . yearplus%<0|
00009730  20 8c 0d 2c 9c 16 c8 99  20 22 48 6f 75 72 67 6c  | ..,.... "Hourgl|
00009740  61 73 73 5f 4f 66 66 22  0d 2c a6 4f 85 20 39 39  |ass_Off".,.O. 99|
00009750  2c 22 59 6f 75 20 61 72  65 20 74 72 79 69 6e 67  |,"You are trying|
00009760  20 74 6f 20 6c 6f 61 64  20 61 20 66 69 6c 65 20  | to load a file |
00009770  74 68 61 74 20 69 73 20  65 69 74 68 65 72 20 69  |that is either i|
00009780  6e 76 61 6c 69 64 20 6f  72 20 6f 75 74 2d 6f 66  |nvalid or out-of|
00009790  2d 64 61 74 65 2e 22 0d  2c b0 0f 6c 6f 61 64 5f  |-date.".,..load_|
000097a0  65 72 72 25 3d b9 0d 2c  ba 09 d9 23 43 48 25 0d  |err%=..,...#CH%.|
000097b0  2c c4 05 cd 0d 2c ce 13  e7 20 ac 20 6c 6f 61 64  |,....,... . load|
000097c0  5f 65 72 72 25 20 8c 0d  2c d8 13 e3 20 63 6f 75  |_err% ..,... cou|
000097d0  6e 74 25 3d 30 20 b8 20  35 39 0d 2c e2 29 e8 23  |nt%=0 . 59.,.).#|
000097e0  43 48 25 2c 62 61 6c 61  6e 63 65 25 28 63 6f 75  |CH%,balance%(cou|
000097f0  6e 74 25 29 2c 65 6e 74  72 79 25 28 63 6f 75 6e  |nt%),entry%(coun|
00009800  74 25 29 0d 2c ec 22 74  6f 74 61 6c 5f 65 6e 74  |t%).,."total_ent|
00009810  72 69 65 73 25 2b 3d 65  6e 74 72 79 25 28 63 6f  |ries%+=entry%(co|
00009820  75 6e 74 25 29 0d 2c f6  20 e3 20 63 6f 75 6e 74  |unt%).,. . count|
00009830  32 25 3d 30 20 b8 20 65  6e 74 72 79 25 28 63 6f  |2%=0 . entry%(co|
00009840  75 6e 74 25 29 0d 2d 00  4d e8 23 43 48 25 2c 6e  |unt%).-.M.#CH%,n|
00009850  61 6d 65 24 28 63 6f 75  6e 74 32 25 2c 63 6f 75  |ame$(count2%,cou|
00009860  6e 74 25 29 2c 61 6d 6f  75 6e 74 25 28 63 6f 75  |nt%),amount%(cou|
00009870  6e 74 32 25 2c 63 6f 75  6e 74 25 29 2c 64 61 74  |nt2%,count%),dat|
00009880  65 25 28 63 6f 75 6e 74  32 25 2c 63 6f 75 6e 74  |e%(count2%,count|
00009890  25 29 0d 2d 0a 05 ed 0d  2d 14 4c e7 20 a8 28 28  |%).-....-.L. .((|
000098a0  63 6f 75 6e 74 25 2f 36  30 29 2a 31 30 30 29 3c  |count%/60)*100)<|
000098b0  3e 31 30 30 20 8c 20 c8  99 20 22 48 6f 75 72 67  |>100 . .. "Hourg|
000098c0  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
000098d0  2c a8 28 28 63 6f 75 6e  74 25 2f 36 30 29 2a 31  |,.((count%/60)*1|
000098e0  30 30 29 0d 2d 1e 05 ed  0d 2d 28 09 d9 23 43 48  |00).-....-(..#CH|
000098f0  25 0d 2d 32 05 cd 0d 2d  3c 1b f2 79 65 61 72 5f  |%.-2...-<..year_|
00009900  6d 65 6e 75 3a f2 75 70  64 61 74 65 5f 74 69 6d  |menu:.update_tim|
00009910  65 0d 2d 46 39 e7 20 68  6f 74 6b 65 79 73 24 3d  |e.-F9. hotkeys$=|
00009920  22 59 65 73 22 20 8c 20  f2 6c 6f 6e 67 5f 6d 61  |"Yes" . .long_ma|
00009930  69 6e 5f 6d 65 6e 75 20  8b 20 f2 73 68 6f 72 74  |in_menu . .short|
00009940  5f 6d 61 69 6e 5f 6d 65  6e 75 0d 2d 50 2f f2 75  |_main_menu.-P/.u|
00009950  70 64 61 74 65 5f 69 63  6f 6e 28 66 69 6c 65 69  |pdate_icon(filei|
00009960  6e 66 6f 25 2c 38 2c c3  28 74 6f 74 61 6c 5f 65  |nfo%,8,.(total_e|
00009970  6e 74 72 69 65 73 25 29  29 0d 2d 5a 1b f2 75 70  |ntries%)).-Z..up|
00009980  64 61 74 65 5f 61 63 63  6f 75 6e 74 5f 64 65 74  |date_account_det|
00009990  61 69 6c 73 0d 2d 64 2b  f2 75 70 64 61 74 65 5f  |ails.-d+.update_|
000099a0  69 63 6f 6e 28 66 69 6c  65 5f 73 61 76 65 62 6f  |icon(file_savebo|
000099b0  78 25 2c 31 2c 64 61 74  61 66 69 6c 65 24 29 0d  |x%,1,datafile$).|
000099c0  2d 6e 27 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |-n'.update_icon(|
000099d0  66 69 6c 65 69 6e 66 6f  25 2c 37 2c 64 61 74 61  |fileinfo%,7,data|
000099e0  66 69 6c 65 24 29 0d 2d  78 49 f2 75 70 64 61 74  |file$).-xI.updat|
000099f0  65 5f 69 63 6f 6e 28 66  69 6c 65 69 6e 66 6f 25  |e_icon(fileinfo%|
00009a00  2c 36 2c 22 41 63 63 6f  75 6e 74 73 20 28 34 30  |,6,"Accounts (40|
00009a10  36 29 22 29 3a f2 63 68  61 6e 67 65 5f 73 70 72  |6)"):.change_spr|
00009a20  69 74 65 28 22 66 69 6c  65 5f 34 30 36 22 29 0d  |ite("file_406").|
00009a30  2d 82 3b f2 67 65 74 5f  70 69 6e 62 6f 61 72 64  |-.;.get_pinboard|
00009a40  5f 6e 61 6d 65 3a f2 72  65 5f 74 69 74 6c 65 28  |_name:.re_title(|
00009a50  22 42 61 6e 6b 20 53 79  73 74 65 6d 3a 20 22 2b  |"Bank System: "+|
00009a60  70 69 6e 62 6f 61 72 64  24 29 0d 2d 8c 15 f2 6f  |pinboard$).-...o|
00009a70  70 65 6e 28 6d 61 69 6e  5f 62 61 63 6b 25 29 0d  |pen(main_back%).|
00009a80  2d 96 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |-.... "Hourglass|
00009a90  5f 4f 66 66 22 0d 2d a0  05 e1 0d 2d aa 05 3a 0d  |_Off".-....-..:.|
00009aa0  2d b4 10 dd f2 71 75 69  74 5f 63 68 65 63 6b 0d  |-....quit_check.|
00009ab0  2d be 0f c8 8e 20 73 61  76 65 64 25 20 ca 0d 2d  |-.... saved% ..-|
00009ac0  c8 07 c9 20 a3 0d 2d d2  44 71 75 65 72 79 74 79  |... ..-.Dqueryty|
00009ad0  70 65 24 3d 22 51 75 69  74 22 3a f2 6f 70 65 6e  |pe$="Quit":.open|
00009ae0  28 71 75 65 72 79 25 29  3a c8 99 20 22 57 69 6d  |(query%):.. "Wim|
00009af0  70 45 78 74 5f 4c 69 6d  69 74 50 6f 69 6e 74 65  |pExt_LimitPointe|
00009b00  72 22 2c 71 75 65 72 79  25 0d 2d dc 07 c9 20 b9  |r",query%.-... .|
00009b10  0d 2d e6 0b 71 75 69 74  25 3d b9 0d 2d f0 05 cb  |.-..quit%=..-...|
00009b20  0d 2d fa 05 e1 0d 2e 04  05 3a 0d 2e 0e 12 dd f2  |.-.......:......|
00009b30  63 68 65 63 6b 5f 73 68  61 64 65 64 0d 2e 18 29  |check_shaded...)|
00009b40  e7 20 6f 6c 64 5f 73 68  61 64 65 64 25 3c 3e 73  |. old_shaded%<>s|
00009b50  68 61 64 65 64 25 20 8c  20 c8 8e 20 73 68 61 64  |haded% . .. shad|
00009b60  65 64 25 20 ca 0d 2e 22  ab c9 20 b9 3a c8 99 20  |ed% ...".. .:.. |
00009b70  22 57 69 6d 70 45 78 74  5f 53 68 61 64 65 49 63  |"WimpExt_ShadeIc|
00009b80  6f 6e 22 2c 2c 2c 6d 61  69 6e 5f 62 61 63 6b 25  |on",,,main_back%|
00009b90  2c 31 35 2c 31 3a c8 99  20 22 57 69 6d 70 45 78  |,15,1:.. "WimpEx|
00009ba0  74 5f 53 68 61 64 65 49  63 6f 6e 22 2c 2c 2c 6d  |t_ShadeIcon",,,m|
00009bb0  61 69 6e 5f 62 61 63 6b  25 2c 31 36 2c 31 3a c8  |ain_back%,16,1:.|
00009bc0  99 20 22 57 69 6d 70 45  78 74 5f 53 68 61 64 65  |. "WimpExt_Shade|
00009bd0  45 6e 74 72 79 22 2c 2c  61 63 74 69 6f 6e 6d 65  |Entry",,actionme|
00009be0  6e 75 25 2c 33 2c 31 3a  c8 99 20 22 57 69 6d 70  |nu%,3,1:.. "Wimp|
00009bf0  45 78 74 5f 53 68 61 64  65 45 6e 74 72 79 22 2c  |Ext_ShadeEntry",|
00009c00  2c 61 63 74 69 6f 6e 6d  65 6e 75 25 2c 34 2c 31  |,actionmenu%,4,1|
00009c10  0d 2e 2c ab c9 20 a3 3a  c8 99 20 22 57 69 6d 70  |..,.. .:.. "Wimp|
00009c20  45 78 74 5f 53 68 61 64  65 49 63 6f 6e 22 2c 2c  |Ext_ShadeIcon",,|
00009c30  2c 6d 61 69 6e 5f 62 61  63 6b 25 2c 31 35 2c 30  |,main_back%,15,0|
00009c40  3a c8 99 20 22 57 69 6d  70 45 78 74 5f 53 68 61  |:.. "WimpExt_Sha|
00009c50  64 65 49 63 6f 6e 22 2c  2c 2c 6d 61 69 6e 5f 62  |deIcon",,,main_b|
00009c60  61 63 6b 25 2c 31 36 2c  30 3a c8 99 20 22 57 69  |ack%,16,0:.. "Wi|
00009c70  6d 70 45 78 74 5f 53 68  61 64 65 45 6e 74 72 79  |mpExt_ShadeEntry|
00009c80  22 2c 2c 61 63 74 69 6f  6e 6d 65 6e 75 25 2c 33  |",,actionmenu%,3|
00009c90  2c 30 3a c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |,0:.. "WimpExt_S|
00009ca0  68 61 64 65 45 6e 74 72  79 22 2c 2c 61 63 74 69  |hadeEntry",,acti|
00009cb0  6f 6e 6d 65 6e 75 25 2c  34 2c 30 0d 2e 36 05 cb  |onmenu%,4,0..6..|
00009cc0  0d 2e 40 17 6f 6c 64 5f  73 68 61 64 65 64 25 3d  |..@.old_shaded%=|
00009cd0  73 68 61 64 65 64 25 0d  2e 4a 05 e1 0d 2e 54 05  |shaded%..J....T.|
00009ce0  3a 0d 2e 5e 10 dd f2 68  79 70 65 72 5f 68 65 6c  |:..^...hyper_hel|
00009cf0  70 0d 2e 68 12 68 79 70  65 72 5f 74 65 78 74 24  |p..h.hyper_text$|
00009d00  3d 22 22 0d 2e 72 2b c8  99 20 22 57 69 6d 70 5f  |=""..r+.. "Wimp_|
00009d10  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00009d20  2c 70 6f 69 6e 74 65 72  5f 69 6e 66 6f 25 0d 2e  |,pointer_info%..|
00009d30  7c 43 70 6f 69 6e 74 65  72 5f 77 69 6e 64 6f 77  ||Cpointer_window|
00009d40  25 3d 70 6f 69 6e 74 65  72 5f 69 6e 66 6f 25 21  |%=pointer_info%!|
00009d50  31 32 3a 70 6f 69 6e 74  65 72 5f 69 63 6f 6e 25  |12:pointer_icon%|
00009d60  3d 70 6f 69 6e 74 65 72  5f 69 6e 66 6f 25 21 31  |=pointer_info%!1|
00009d70  36 0d 2e 86 3f e7 20 70  6f 69 6e 74 65 72 5f 77  |6...?. pointer_w|
00009d80  69 6e 64 6f 77 25 3c 3e  6f 6c 64 5f 77 69 6e 64  |indow%<>old_wind|
00009d90  6f 77 25 20 84 20 70 6f  69 6e 74 65 72 5f 69 63  |ow% . pointer_ic|
00009da0  6f 6e 25 3c 3e 6f 6c 64  5f 69 63 6f 6e 25 20 8c  |on%<>old_icon% .|
00009db0  0d 2e 90 18 c8 8e 20 70  6f 69 6e 74 65 72 5f 77  |...... pointer_w|
00009dc0  69 6e 64 6f 77 25 20 ca  0d 2e 9a 10 c9 20 6d 61  |indow% ...... ma|
00009dd0  69 6e 5f 62 61 63 6b 25  0d 2e a4 16 c8 8e 20 70  |in_back%...... p|
00009de0  6f 69 6e 74 65 72 5f 69  63 6f 6e 25 20 ca 0d 2e  |ointer_icon% ...|
00009df0  ae 2e c9 20 30 3a 68 79  70 65 72 5f 74 65 78 74  |... 0:hyper_text|
00009e00  24 3d a4 6d 73 5f 30 28  68 79 70 65 72 5f 74 79  |$=.ms_0(hyper_ty|
00009e10  70 65 24 2b 22 48 79 70  65 72 22 29 0d 2e b8 2d  |pe$+"Hyper")...-|
00009e20  c9 20 37 3a 68 79 70 65  72 5f 74 65 78 74 24 3d  |. 7:hyper_text$=|
00009e30  a4 6d 73 5f 30 28 68 79  70 65 72 5f 74 79 70 65  |.ms_0(hyper_type|
00009e40  24 2b 22 53 61 76 65 22  29 0d 2e c2 2e c9 20 38  |$+"Save")..... 8|
00009e50  3a 68 79 70 65 72 5f 74  65 78 74 24 3d a4 6d 73  |:hyper_text$=.ms|
00009e60  5f 30 28 68 79 70 65 72  5f 74 79 70 65 24 2b 22  |_0(hyper_type$+"|
00009e70  50 72 69 6e 74 22 29 0d  2e cc 2f c9 20 39 3a 68  |Print").../. 9:h|
00009e80  79 70 65 72 5f 74 65 78  74 24 3d a4 6d 73 5f 30  |yper_text$=.ms_0|
00009e90  28 68 79 70 65 72 5f 74  79 70 65 24 2b 22 43 72  |(hyper_type$+"Cr|
00009ea0  65 64 69 74 22 29 0d 2e  d6 2f c9 20 31 30 3a 68  |edit").../. 10:h|
00009eb0  79 70 65 72 5f 74 65 78  74 24 3d a4 6d 73 5f 30  |yper_text$=.ms_0|
00009ec0  28 68 79 70 65 72 5f 74  79 70 65 24 2b 22 44 65  |(hyper_type$+"De|
00009ed0  62 69 74 22 29 0d 2e e0  2f c9 20 31 31 3a 68 79  |bit").../. 11:hy|
00009ee0  70 65 72 5f 74 65 78 74  24 3d a4 6d 73 5f 30 28  |per_text$=.ms_0(|
00009ef0  68 79 70 65 72 5f 74 79  70 65 24 2b 22 4d 6f 6e  |hyper_type$+"Mon|
00009f00  74 68 22 29 0d 2e ea 2e  c9 20 31 32 3a 68 79 70  |th")..... 12:hyp|
00009f10  65 72 5f 74 65 78 74 24  3d a4 6d 73 5f 30 28 68  |er_text$=.ms_0(h|
00009f20  79 70 65 72 5f 74 79 70  65 24 2b 22 59 65 61 72  |yper_type$+"Year|
00009f30  22 29 0d 2e f4 2f c9 20  31 33 3a 68 79 70 65 72  |").../. 13:hyper|
00009f40  5f 74 65 78 74 24 3d a4  6d 73 5f 30 28 68 79 70  |_text$=.ms_0(hyp|
00009f50  65 72 5f 74 79 70 65 24  2b 22 4d 4d 65 6e 75 22  |er_type$+"MMenu"|
00009f60  29 0d 2e fe 2f c9 20 31  34 3a 68 79 70 65 72 5f  |).../. 14:hyper_|
00009f70  74 65 78 74 24 3d a4 6d  73 5f 30 28 68 79 70 65  |text$=.ms_0(hype|
00009f80  72 5f 74 79 70 65 24 2b  22 59 4d 65 6e 75 22 29  |r_type$+"YMenu")|
00009f90  0d 2f 08 30 c9 20 31 35  3a 68 79 70 65 72 5f 74  |./.0. 15:hyper_t|
00009fa0  65 78 74 24 3d a4 6d 73  5f 30 28 68 79 70 65 72  |ext$=.ms_0(hyper|
00009fb0  5f 74 79 70 65 24 2b 22  44 65 6c 65 74 65 22 29  |_type$+"Delete")|
00009fc0  0d 2f 12 2f c9 20 31 36  3a 68 79 70 65 72 5f 74  |././. 16:hyper_t|
00009fd0  65 78 74 24 3d a4 6d 73  5f 30 28 68 79 70 65 72  |ext$=.ms_0(hyper|
00009fe0  5f 74 79 70 65 24 2b 22  41 6d 65 6e 64 22 29 0d  |_type$+"Amend").|
00009ff0  2f 1c 30 c9 20 31 38 3a  68 79 70 65 72 5f 74 65  |/.0. 18:hyper_te|
0000a000  78 74 24 3d a4 6d 73 5f  30 28 68 79 70 65 72 5f  |xt$=.ms_0(hyper_|
0000a010  74 79 70 65 24 2b 22 53  4f 72 64 65 72 22 29 0d  |type$+"SOrder").|
0000a020  2f 26 30 c9 20 31 39 3a  68 79 70 65 72 5f 74 65  |/&0. 19:hyper_te|
0000a030  78 74 24 3d a4 6d 73 5f  30 28 68 79 70 65 72 5f  |xt$=.ms_0(hyper_|
0000a040  74 79 70 65 24 2b 22 53  65 61 72 63 68 22 29 0d  |type$+"Search").|
0000a050  2f 30 4c c9 20 32 30 2c  32 31 2c 32 32 2c 32 33  |/0L. 20,21,22,23|
0000a060  2c 32 34 2c 32 35 2c 32  36 2c 32 37 2c 32 38 2c  |,24,25,26,27,28,|
0000a070  32 39 3a 68 79 70 65 72  5f 74 65 78 74 24 3d a4  |29:hyper_text$=.|
0000a080  6d 73 5f 30 28 68 79 70  65 72 5f 74 79 70 65 24  |ms_0(hyper_type$|
0000a090  2b 22 44 65 74 61 69 6c  73 22 29 0d 2f 3a 05 cb  |+"Details")./:..|
0000a0a0  0d 2f 44 37 c9 20 73 63  72 6f 6c 6c 79 25 3a 68  |./D7. scrolly%:h|
0000a0b0  79 70 65 72 5f 74 65 78  74 24 3d a4 6d 73 5f 30  |yper_text$=.ms_0|
0000a0c0  28 68 79 70 65 72 5f 74  79 70 65 24 2b 22 41 63  |(hyper_type$+"Ac|
0000a0d0  63 6f 75 6e 74 22 29 0d  2f 4e 05 cb 0d 2f 58 2a  |count")./N.../X*|
0000a0e0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 6d 61 69  |.update_icon(mai|
0000a0f0  6e 5f 62 61 63 6b 25 2c  30 2c 68 79 70 65 72 5f  |n_back%,0,hyper_|
0000a100  74 65 78 74 24 29 0d 2f  62 05 cd 0d 2f 6c 37 6f  |text$)./b.../l7o|
0000a110  6c 64 5f 77 69 6e 64 6f  77 25 3d 70 6f 69 6e 74  |ld_window%=point|
0000a120  65 72 5f 77 69 6e 64 6f  77 25 3a 6f 6c 64 5f 69  |er_window%:old_i|
0000a130  63 6f 6e 25 3d 70 6f 69  6e 74 65 72 5f 69 63 6f  |con%=pointer_ico|
0000a140  6e 25 0d 2f 76 05 e1 0d  2f 80 05 3a 0d 2f 8a 0f  |n%./v.../..:./..|
0000a150  dd f2 63 6c 6f 73 65 5f  61 6c 6c 0d 2f 94 2b f2  |..close_all./.+.|
0000a160  63 6c 6f 73 65 28 66 69  6c 65 5f 73 61 76 65 62  |close(file_saveb|
0000a170  6f 78 25 29 3a f2 63 6c  6f 73 65 28 70 72 69 6e  |ox%):.close(prin|
0000a180  74 62 6f 78 25 29 0d 2f  9e 22 f2 63 6c 6f 73 65  |tbox%)./.".close|
0000a190  28 63 72 65 64 69 74 25  29 3a f2 63 6c 6f 73 65  |(credit%):.close|
0000a1a0  28 64 65 62 69 74 25 29  0d 2f a8 24 f2 63 6c 6f  |(debit%)./.$.clo|
0000a1b0  73 65 28 73 74 61 6e 64  69 6e 67 25 29 3a f2 63  |se(standing%):.c|
0000a1c0  6c 6f 73 65 28 61 6d 65  6e 64 25 29 0d 2f b2 28  |lose(amend%)./.(|
0000a1d0  f2 63 6c 6f 73 65 28 73  65 61 72 63 68 25 29 3a  |.close(search%):|
0000a1e0  f2 63 6c 6f 73 65 28 73  65 61 72 63 68 66 6f 75  |.close(searchfou|
0000a1f0  6e 64 25 29 0d 2f bc 19  f2 63 6c 6f 73 65 28 74  |nd%)./...close(t|
0000a200  65 78 74 5f 73 61 76 65  62 6f 78 25 29 0d 2f c6  |ext_savebox%)./.|
0000a210  05 e1 0d 2f d0 05 3a 0d  2f da 0c dd f2 64 65 6c  |.../..:./....del|
0000a220  65 74 65 0d 2f e4 0c ea  20 63 6f 75 6e 74 25 0d  |ete./... count%.|
0000a230  2f ee 18 e3 20 63 6f 75  6e 74 25 3d 6d 6f 6e 74  |/... count%=mont|
0000a240  68 25 20 b8 20 35 39 0d  2f f8 2d 62 61 6c 61 6e  |h% . 59./.-balan|
0000a250  63 65 25 28 63 6f 75 6e  74 25 29 2d 3d 61 6d 6f  |ce%(count%)-=amo|
0000a260  75 6e 74 25 28 73 65 6c  65 63 74 25 2c 6d 6f 6e  |unt%(select%,mon|
0000a270  74 68 25 29 0d 30 02 05  ed 0d 30 0c 27 e3 20 63  |th%).0....0.'. c|
0000a280  6f 75 6e 74 25 3d 73 65  6c 65 63 74 25 20 b8 20  |ount%=select% . |
0000a290  65 6e 74 72 79 25 28 6d  6f 6e 74 68 25 29 2d 31  |entry%(month%)-1|
0000a2a0  0d 30 16 2f 6e 61 6d 65  24 28 63 6f 75 6e 74 25  |.0./name$(count%|
0000a2b0  2c 6d 6f 6e 74 68 25 29  3d 6e 61 6d 65 24 28 63  |,month%)=name$(c|
0000a2c0  6f 75 6e 74 25 2b 31 2c  6d 6f 6e 74 68 25 29 0d  |ount%+1,month%).|
0000a2d0  30 20 33 61 6d 6f 75 6e  74 25 28 63 6f 75 6e 74  |0 3amount%(count|
0000a2e0  25 2c 6d 6f 6e 74 68 25  29 3d 61 6d 6f 75 6e 74  |%,month%)=amount|
0000a2f0  25 28 63 6f 75 6e 74 25  2b 31 2c 6d 6f 6e 74 68  |%(count%+1,month|
0000a300  25 29 0d 30 2a 2f 64 61  74 65 25 28 63 6f 75 6e  |%).0*/date%(coun|
0000a310  74 25 2c 6d 6f 6e 74 68  25 29 3d 64 61 74 65 25  |t%,month%)=date%|
0000a320  28 63 6f 75 6e 74 25 2b  31 2c 6d 6f 6e 74 68 25  |(count%+1,month%|
0000a330  29 0d 30 34 05 ed 0d 30  3e 16 65 6e 74 72 79 25  |).04...0>.entry%|
0000a340  28 6d 6f 6e 74 68 25 29  20 2d 3d 31 0d 30 48 18  |(month%) -=1.0H.|
0000a350  73 65 6c 65 63 74 25 3d  2d 31 3a 73 68 61 64 65  |select%=-1:shade|
0000a360  64 25 3d b9 0d 30 52 1e  f2 72 65 64 72 61 77 3a  |d%=..0R..redraw:|
0000a370  f2 67 65 74 5f 70 69 6e  62 6f 61 72 64 5f 6e 61  |.get_pinboard_na|
0000a380  6d 65 0d 30 5c 56 73 61  76 65 64 25 3d a3 3a f2  |me.0\Vsaved%=.:.|
0000a390  72 65 5f 74 69 74 6c 65  28 22 42 61 6e 6b 20 53  |re_title("Bank S|
0000a3a0  79 73 74 65 6d 3a 20 22  2b 70 69 6e 62 6f 61 72  |ystem: "+pinboar|
0000a3b0  64 24 2b 22 20 2a 22 29  3a f2 75 70 64 61 74 65  |d$+" *"):.update|
0000a3c0  5f 69 63 6f 6e 28 66 69  6c 65 69 6e 66 6f 25 2c  |_icon(fileinfo%,|
0000a3d0  35 2c 22 59 65 73 22 29  0d 30 66 41 74 6f 74 61  |5,"Yes").0fAtota|
0000a3e0  6c 5f 65 6e 74 72 69 65  73 25 2d 3d 31 3a f2 75  |l_entries%-=1:.u|
0000a3f0  70 64 61 74 65 5f 69 63  6f 6e 28 66 69 6c 65 69  |pdate_icon(filei|
0000a400  6e 66 6f 25 2c 38 2c c3  28 74 6f 74 61 6c 5f 65  |nfo%,8,.(total_e|
0000a410  6e 74 72 69 65 73 25 29  29 0d 30 70 05 e1 0d 30  |ntries%)).0p...0|
0000a420  7a 05 3a 0d 30 84 28 dd  f2 73 65 74 65 78 74 65  |z.:.0.(..setexte|
0000a430  6e 74 28 78 6d 69 6e 25  2c 79 6d 69 6e 25 2c 78  |nt(xmin%,ymin%,x|
0000a440  6d 61 78 25 2c 79 6d 61  78 25 29 0d 30 8e 2f 21  |max%,ymax%).0./!|
0000a450  71 25 3d 78 6d 69 6e 25  3a 71 25 21 34 3d 79 6d  |q%=xmin%:q%!4=ym|
0000a460  69 6e 25 3a 71 25 21 38  3d 78 6d 61 78 25 3a 71  |in%:q%!8=xmax%:q|
0000a470  25 21 31 32 3d 79 6d 61  78 25 0d 30 98 23 c8 99  |%!12=ymax%.0.#..|
0000a480  20 22 57 69 6d 70 5f 53  65 74 45 78 74 65 6e 74  | "Wimp_SetExtent|
0000a490  22 2c 73 63 72 6f 6c 6c  79 25 2c 71 25 0d 30 a2  |",scrolly%,q%.0.|
0000a4a0  05 e1 0d 30 ac 05 3a 0d  30 b6 11 dd f2 65 6e 74  |...0..:.0....ent|
0000a4b0  65 72 28 6d 6f 6e 25 29  0d 30 c0 12 ea 20 63 6f  |er(mon%).0... co|
0000a4c0  75 6e 74 25 2c 73 6f 72  74 25 0d 30 ca 16 f2 67  |unt%,sort%.0...g|
0000a4d0  65 74 5f 70 69 6e 62 6f  61 72 64 5f 6e 61 6d 65  |et_pinboard_name|
0000a4e0  0d 30 d4 56 73 61 76 65  64 25 3d a3 3a f2 72 65  |.0.Vsaved%=.:.re|
0000a4f0  5f 74 69 74 6c 65 28 22  42 61 6e 6b 20 53 79 73  |_title("Bank Sys|
0000a500  74 65 6d 3a 20 22 2b 70  69 6e 62 6f 61 72 64 24  |tem: "+pinboard$|
0000a510  2b 22 20 2a 22 29 3a f2  75 70 64 61 74 65 5f 69  |+" *"):.update_i|
0000a520  63 6f 6e 28 66 69 6c 65  69 6e 66 6f 25 2c 35 2c  |con(fileinfo%,5,|
0000a530  22 59 65 73 22 29 0d 30  de 1d 73 6c 65 6e 25 3d  |"Yes").0..slen%=|
0000a540  65 6e 74 72 79 25 28 6d  6f 6e 25 29 2a 34 30 2b  |entry%(mon%)*40+|
0000a550  32 34 30 0d 30 e8 15 e7  20 73 6c 65 6e 25 20 3e  |240.0... slen% >|
0000a560  20 66 6c 65 6e 25 20 8c  0d 30 f2 24 f4 20 50 52  | flen% ..0.$. PR|
0000a570  4f 43 73 65 74 65 78 74  65 6e 74 28 30 2c 2d 73  |OCsetextent(0,-s|
0000a580  6c 65 6e 25 2c 31 32 34  30 2c 30 29 0d 30 fc 0f  |len%,1240,0).0..|
0000a590  66 6c 65 6e 25 3d 73 6c  65 6e 25 0d 31 06 05 cd  |flen%=slen%.1...|
0000a5a0  0d 31 10 18 73 6f 72 74  25 3d 65 6e 74 72 79 25  |.1..sort%=entry%|
0000a5b0  28 6d 6f 6e 25 29 2d 31  0d 31 1a 16 e3 20 63 6f  |(mon%)-1.1... co|
0000a5c0  75 6e 74 25 3d 6d 6f 6e  25 20 b8 20 35 39 0d 31  |unt%=mon% . 59.1|
0000a5d0  24 39 62 61 6c 61 6e 63  65 25 28 63 6f 75 6e 74  |$9balance%(count|
0000a5e0  25 29 3d 62 61 6c 61 6e  63 65 25 28 63 6f 75 6e  |%)=balance%(coun|
0000a5f0  74 25 29 2b 61 6d 6f 75  6e 74 25 28 73 6f 72 74  |t%)+amount%(sort|
0000a600  25 2c 6d 6f 6e 25 29 0d  31 2e 05 ed 0d 31 38 0e  |%,mon%).1....18.|
0000a610  c8 95 20 73 6f 72 74 25  3e 30 0d 31 42 2d e7 20  |.. sort%>0.1B-. |
0000a620  64 61 74 65 25 28 73 6f  72 74 25 2c 6d 6f 6e 25  |date%(sort%,mon%|
0000a630  29 3c 64 61 74 65 25 28  73 6f 72 74 25 2d 31 2c  |)<date%(sort%-1,|
0000a640  6d 6f 6e 25 29 20 8c 0d  31 4c 2c c8 94 20 64 61  |mon%) ..1L,.. da|
0000a650  74 65 25 28 73 6f 72 74  25 2c 6d 6f 6e 25 29 2c  |te%(sort%,mon%),|
0000a660  64 61 74 65 25 28 73 6f  72 74 25 2d 31 2c 6d 6f  |date%(sort%-1,mo|
0000a670  6e 25 29 0d 31 56 2c c8  94 20 6e 61 6d 65 24 28  |n%).1V,.. name$(|
0000a680  73 6f 72 74 25 2c 6d 6f  6e 25 29 2c 6e 61 6d 65  |sort%,mon%),name|
0000a690  24 28 73 6f 72 74 25 2d  31 2c 6d 6f 6e 25 29 0d  |$(sort%-1,mon%).|
0000a6a0  31 60 30 c8 94 20 61 6d  6f 75 6e 74 25 28 73 6f  |1`0.. amount%(so|
0000a6b0  72 74 25 2c 6d 6f 6e 25  29 2c 61 6d 6f 75 6e 74  |rt%,mon%),amount|
0000a6c0  25 28 73 6f 72 74 25 2d  31 2c 6d 6f 6e 25 29 0d  |%(sort%-1,mon%).|
0000a6d0  31 6a 05 cd 0d 31 74 2d  e7 20 64 61 74 65 25 28  |1j...1t-. date%(|
0000a6e0  73 6f 72 74 25 2c 6d 6f  6e 25 29 3d 64 61 74 65  |sort%,mon%)=date|
0000a6f0  25 28 73 6f 72 74 25 2d  31 2c 6d 6f 6e 25 29 20  |%(sort%-1,mon%) |
0000a700  8c 0d 31 7e 2d e7 20 6e  61 6d 65 24 28 73 6f 72  |..1~-. name$(sor|
0000a710  74 25 2c 6d 6f 6e 25 29  3c 6e 61 6d 65 24 28 73  |t%,mon%)<name$(s|
0000a720  6f 72 74 25 2d 31 2c 6d  6f 6e 25 29 20 8c 0d 31  |ort%-1,mon%) ..1|
0000a730  88 2c c8 94 20 64 61 74  65 25 28 73 6f 72 74 25  |.,.. date%(sort%|
0000a740  2c 6d 6f 6e 25 29 2c 64  61 74 65 25 28 73 6f 72  |,mon%),date%(sor|
0000a750  74 25 2d 31 2c 6d 6f 6e  25 29 0d 31 92 2c c8 94  |t%-1,mon%).1.,..|
0000a760  20 6e 61 6d 65 24 28 73  6f 72 74 25 2c 6d 6f 6e  | name$(sort%,mon|
0000a770  25 29 2c 6e 61 6d 65 24  28 73 6f 72 74 25 2d 31  |%),name$(sort%-1|
0000a780  2c 6d 6f 6e 25 29 0d 31  9c 30 c8 94 20 61 6d 6f  |,mon%).1.0.. amo|
0000a790  75 6e 74 25 28 73 6f 72  74 25 2c 6d 6f 6e 25 29  |unt%(sort%,mon%)|
0000a7a0  2c 61 6d 6f 75 6e 74 25  28 73 6f 72 74 25 2d 31  |,amount%(sort%-1|
0000a7b0  2c 6d 6f 6e 25 29 0d 31  a6 05 cd 0d 31 b0 05 cd  |,mon%).1....1...|
0000a7c0  0d 31 ba 0c 73 6f 72 74  25 2d 3d 31 0d 31 c4 05  |.1..sort%-=1.1..|
0000a7d0  ce 0d 31 ce 05 e1 0d 31  d8 05 3a 0d 31 e2 11 dd  |..1....1..:.1...|
0000a7e0  f2 73 65 6c 65 63 74 28  79 79 25 29 0d 31 ec 3b  |.select(yy%).1.;|
0000a7f0  e7 20 28 28 79 79 25 3c  79 30 25 2d 35 30 29 29  |. ((yy%<y0%-50))|
0000a800  20 80 20 28 79 79 25 3e  28 28 79 30 25 2d 35 30  | . (yy%>((y0%-50|
0000a810  29 2d 34 30 2a 65 6e 74  72 79 25 28 6d 6f 6e 74  |)-40*entry%(mont|
0000a820  68 25 29 29 29 20 8c 0d  31 f6 1e 61 6c 72 65 61  |h%))) ..1..alrea|
0000a830  64 79 25 3d 28 28 79 30  25 2d 35 30 29 2d 79 79  |dy%=((y0%-50)-yy|
0000a840  25 29 2f 34 30 0d 32 00  18 e7 20 61 6c 72 65 61  |%)/40.2... alrea|
0000a850  64 79 25 3d 73 65 6c 65  63 74 25 20 8c 0d 32 0a  |dy%=select% ..2.|
0000a860  1a 61 6c 72 65 61 64 79  25 3d 2d 31 3a 73 65 6c  |.already%=-1:sel|
0000a870  65 63 74 25 3d 2d 31 0d  32 14 0d 73 68 61 64 65  |ect%=-1.2..shade|
0000a880  64 25 3d b9 0d 32 1e 05  cc 0d 32 28 14 73 65 6c  |d%=..2....2(.sel|
0000a890  65 63 74 25 3d 61 6c 72  65 61 64 79 25 0d 32 32  |ect%=already%.22|
0000a8a0  0d 73 68 61 64 65 64 25  3d a3 0d 32 3c 05 cd 0d  |.shaded%=..2<...|
0000a8b0  32 46 0b f2 72 65 64 72  61 77 0d 32 50 05 cd 0d  |2F..redraw.2P...|
0000a8c0  32 5a 05 e1 0d 32 64 05  3a 0d 32 6e 22 dd f2 6e  |2Z...2d.:.2n"..n|
0000a8d0  65 77 5f 64 61 74 65 28  69 6e 63 25 2c 77 69 6e  |ew_date(inc%,win|
0000a8e0  64 6f 77 25 2c f8 20 64  61 25 29 0d 32 78 0d 64  |dow%,. da%).2x.d|
0000a8f0  61 25 2b 3d 69 6e 63 25  0d 32 82 16 c8 8e 20 28  |a%+=inc%.2.... (|
0000a900  6d 6f 6e 74 68 25 20 83  20 31 32 29 20 ca 0d 32  |month% . 12) ..2|
0000a910  8c 15 c9 20 30 2c 32 2c  34 2c 36 2c 37 2c 39 2c  |... 0,2,4,6,7,9,|
0000a920  31 31 3a 0d 32 96 12 e7  20 64 61 25 3c 31 20 64  |11:.2... da%<1 d|
0000a930  61 25 3d 33 31 0d 32 a0  12 e7 20 64 61 25 3e 33  |a%=31.2... da%>3|
0000a940  31 20 64 61 25 3d 31 0d  32 aa 0f c9 20 33 2c 35  |1 da%=1.2... 3,5|
0000a950  2c 38 2c 31 30 3a 0d 32  b4 12 e7 20 64 61 25 3c  |,8,10:.2... da%<|
0000a960  31 20 64 61 25 3d 33 30  0d 32 be 12 e7 20 64 61  |1 da%=30.2... da|
0000a970  25 3e 33 30 20 64 61 25  3d 31 0d 32 c8 08 c9 20  |%>30 da%=1.2... |
0000a980  31 3a 0d 32 d2 5f e7 20  28 28 79 65 61 72 25 2b  |1:.2._. ((year%+|
0000a990  79 65 61 72 70 6c 75 73  25 29 20 83 20 34 3d 30  |yearplus%) . 4=0|
0000a9a0  29 20 80 20 28 28 79 65  61 72 25 2b 79 65 61 72  |) . ((year%+year|
0000a9b0  70 6c 75 73 25 29 20 83  20 31 30 30 20 3c 3e 30  |plus%) . 100 <>0|
0000a9c0  29 20 84 20 28 28 79 65  61 72 25 2b 79 65 61 72  |) . ((year%+year|
0000a9d0  70 6c 75 73 25 29 20 83  20 34 30 30 3d 30 29 20  |plus%) . 400=0) |
0000a9e0  8c 0d 32 dc 12 e7 20 64  61 25 3c 31 20 64 61 25  |..2... da%<1 da%|
0000a9f0  3d 32 39 0d 32 e6 12 e7  20 64 61 25 3e 32 39 20  |=29.2... da%>29 |
0000aa00  64 61 25 3d 31 0d 32 f0  05 cc 0d 32 fa 12 e7 20  |da%=1.2....2... |
0000aa10  64 61 25 3c 31 20 64 61  25 3d 32 38 0d 33 04 12  |da%<1 da%=28.3..|
0000aa20  e7 20 64 61 25 3e 32 38  20 64 61 25 3d 31 0d 33  |. da%>28 da%=1.3|
0000aa30  0e 05 cd 0d 33 18 05 cb  0d 33 22 22 f2 75 70 64  |....3....3"".upd|
0000aa40  61 74 65 5f 69 63 6f 6e  28 77 69 6e 64 6f 77 25  |ate_icon(window%|
0000aa50  2c 32 2c c3 28 64 61 25  29 29 0d 33 2c 05 e1 0d  |,2,.(da%)).3,...|
0000aa60  33 36 05 3a 0d 33 40 1e  dd f2 63 68 65 63 6b 28  |36.:.3@...check(|
0000aa70  64 25 2c 73 67 25 2c 77  69 6e 64 6f 77 25 2c 42  |d%,sg%,window%,B|
0000aa80  25 29 0d 33 4a 0f 21 71  25 3d 77 69 6e 64 6f 77  |%).3J.!q%=window|
0000aa90  25 0d 33 54 0a 71 25 21  34 3d 37 0d 33 5e 1e c8  |%.3T.q%!4=7.3^..|
0000aaa0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
0000aab0  74 61 74 65 22 2c 2c 71  25 0d 33 68 13 e7 20 24  |tate",,q%.3h.. $|
0000aac0  28 71 25 21 32 38 29 3d  22 22 20 8c 0d 33 72 0a  |(q%!28)="" ..3r.|
0000aad0  65 72 72 25 3d b9 0d 33  7c 2f 85 20 39 39 2c 22  |err%=..3|/. 99,"|
0000aae0  50 6c 65 61 73 65 20 65  6e 74 65 72 20 61 20 6e  |Please enter a n|
0000aaf0  61 6d 65 20 66 6f 72 20  74 68 69 73 20 61 63 74  |ame for this act|
0000ab00  69 6f 6e 2e 22 0d 33 86  1b cc 20 6e 61 6d 65 24  |ion.".3... name$|
0000ab10  3d 24 28 71 25 21 32 38  29 3a 65 72 72 25 3d a3  |=$(q%!28):err%=.|
0000ab20  0d 33 90 05 cd 0d 33 9a  0e e7 20 ac 20 65 72 72  |.3....3... . err|
0000ab30  25 20 8c 0d 33 a4 0f 21  71 25 3d 77 69 6e 64 6f  |% ..3..!q%=windo|
0000ab40  77 25 0d 33 ae 0a 71 25  21 34 3d 38 0d 33 b8 1e  |w%.3..q%!4=8.3..|
0000ab50  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
0000ab60  53 74 61 74 65 22 2c 2c  71 25 0d 33 c2 13 e7 20  |State",,q%.3... |
0000ab70  24 28 71 25 21 32 38 29  3d 22 22 20 8c 0d 33 cc  |$(q%!28)="" ..3.|
0000ab80  0a 65 72 72 25 3d b9 0d  33 d6 32 85 20 39 39 2c  |.err%=..3.2. 99,|
0000ab90  22 50 6c 65 61 73 65 20  65 6e 74 65 72 20 61 6e  |"Please enter an|
0000aba0  20 61 6d 6f 75 6e 74 20  66 6f 72 20 74 68 69 73  | amount for this|
0000abb0  20 61 63 74 69 6f 6e 2e  22 0d 33 e0 16 cc 20 61  | action.".3... a|
0000abc0  6d 6f 75 6e 74 24 3d 24  28 71 25 21 32 38 29 0d  |mount$=$(q%!28).|
0000abd0  33 ea 14 e7 20 bb 28 61  6d 6f 75 6e 74 24 29 3d  |3... .(amount$)=|
0000abe0  30 20 8c 0d 33 f4 0a 65  72 72 25 3d b9 0d 33 fe  |0 ..3..err%=..3.|
0000abf0  3b 85 20 39 39 2c 22 59  6f 75 20 68 61 76 65 20  |;. 99,"You have |
0000ac00  65 6e 74 65 72 65 64 20  61 6e 20 69 6e 76 61 6c  |entered an inval|
0000ac10  69 64 20 61 6d 6f 75 6e  74 2e 20 54 72 79 20 61  |id amount. Try a|
0000ac20  67 61 69 6e 2e 2e 2e 22  0d 34 08 0c cc 20 65 72  |gain...".4... er|
0000ac30  72 25 3d a3 0d 34 12 05  cd 0d 34 1c 05 cd 0d 34  |r%=..4....4....4|
0000ac40  26 05 cd 0d 34 30 1a e7  20 65 6e 74 72 79 25 28  |&...40.. entry%(|
0000ac50  6d 6f 6e 74 68 25 29 3e  31 30 30 20 8c 0d 34 3a  |month%)>100 ..4:|
0000ac60  0a 65 72 72 25 3d b9 0d  34 44 5f 85 20 39 39 2c  |.err%=..4D_. 99,|
0000ac70  22 49 27 6d 20 73 6f 72  72 79 20 74 6f 20 73 61  |"I'm sorry to sa|
0000ac80  79 20 74 68 61 74 20 79  6f 75 20 68 61 76 65 20  |y that you have |
0000ac90  72 65 61 63 68 65 64 20  74 68 65 20 6d 61 78 69  |reached the maxi|
0000aca0  6d 75 6d 20 61 6d 6f 75  6e 74 20 6f 66 20 65 6e  |mum amount of en|
0000acb0  74 72 69 65 73 20 66 6f  72 20 74 68 69 73 20 6d  |tries for this m|
0000acc0  6f 6e 74 68 2e 22 0d 34  4e 05 cd 0d 34 58 0e e7  |onth.".4N...4X..|
0000acd0  20 ac 20 65 72 72 25 20  8c 0d 34 62 1c e7 20 77  | . err% ..4b.. w|
0000ace0  69 6e 64 6f 77 25 3d 61  6d 65 6e 64 25 20 f2 64  |indow%=amend% .d|
0000acf0  65 6c 65 74 65 0d 34 6c  26 6e 61 6d 65 24 28 65  |elete.4l&name$(e|
0000ad00  6e 74 72 79 25 28 6d 6f  6e 74 68 25 29 2c 6d 6f  |ntry%(month%),mo|
0000ad10  6e 74 68 25 29 3d 6e 61  6d 65 24 0d 34 76 14 e7  |nth%)=name$.4v..|
0000ad20  20 bb 28 61 6d 6f 75 6e  74 24 29 3e 30 20 8c 0d  | .(amount$)>0 ..|
0000ad30  34 80 3c 61 6d 6f 75 6e  74 25 28 65 6e 74 72 79  |4.<amount%(entry|
0000ad40  25 28 6d 6f 6e 74 68 25  29 2c 6d 6f 6e 74 68 25  |%(month%),month%|
0000ad50  29 3d 28 bb 28 61 6d 6f  75 6e 74 24 29 2b 2e 30  |)=(.(amount$)+.0|
0000ad60  30 35 29 2a 31 30 30 2a  73 67 25 0d 34 8a 05 cc  |05)*100*sg%.4...|
0000ad70  0d 34 94 3c 61 6d 6f 75  6e 74 25 28 65 6e 74 72  |.4.<amount%(entr|
0000ad80  79 25 28 6d 6f 6e 74 68  25 29 2c 6d 6f 6e 74 68  |y%(month%),month|
0000ad90  25 29 3d 28 bb 28 61 6d  6f 75 6e 74 24 29 2d 2e  |%)=(.(amount$)-.|
0000ada0  30 30 35 29 2a 31 30 30  2a 73 67 25 0d 34 9e 05  |005)*100*sg%.4..|
0000adb0  cd 0d 34 a8 23 64 61 74  65 25 28 65 6e 74 72 79  |..4.#date%(entry|
0000adc0  25 28 6d 6f 6e 74 68 25  29 2c 6d 6f 6e 74 68 25  |%(month%),month%|
0000add0  29 3d 64 25 0d 34 b2 15  65 6e 74 72 79 25 28 6d  |)=d%.4..entry%(m|
0000ade0  6f 6e 74 68 25 29 2b 3d  31 0d 34 bc 12 f2 65 6e  |onth%)+=1.4...en|
0000adf0  74 65 72 28 6d 6f 6e 74  68 25 29 0d 34 c6 18 73  |ter(month%).4..s|
0000ae00  65 6c 65 63 74 25 3d 2d  31 3a 73 68 61 64 65 64  |elect%=-1:shaded|
0000ae10  25 3d b9 0d 34 d0 0b f2  72 65 64 72 61 77 0d 34  |%=..4...redraw.4|
0000ae20  da 41 74 6f 74 61 6c 5f  65 6e 74 72 69 65 73 25  |.Atotal_entries%|
0000ae30  2b 3d 31 3a f2 75 70 64  61 74 65 5f 69 63 6f 6e  |+=1:.update_icon|
0000ae40  28 66 69 6c 65 69 6e 66  6f 25 2c 38 2c c3 28 74  |(fileinfo%,8,.(t|
0000ae50  6f 74 61 6c 5f 65 6e 74  72 69 65 73 25 29 29 0d  |otal_entries%)).|
0000ae60  34 e4 13 f2 63 6c 6f 73  65 28 77 69 6e 64 6f 77  |4...close(window|
0000ae70  25 29 0d 34 ee 05 cd 0d  34 f8 05 e1 0d 35 02 05  |%).4....4....5..|
0000ae80  3a 0d 35 0c 23 dd f2 63  68 65 63 6b 5f 73 74 61  |:.5.#..check_sta|
0000ae90  6e 64 69 6e 67 28 64 25  2c 77 69 6e 64 6f 77 25  |nding(d%,window%|
0000aea0  2c 42 25 29 0d 35 16 3d  ea 20 6e 61 6d 65 24 2c  |,B%).5.=. name$,|
0000aeb0  61 6d 6f 75 6e 74 24 2c  61 6d 6f 75 6e 74 32 24  |amount$,amount2$|
0000aec0  2c 6d 74 6f 74 61 6c 24  2c 6d 74 6f 74 25 2c 63  |,mtotal$,mtot%,c|
0000aed0  6f 75 6e 74 25 2c 66 72  65 71 25 2c 73 69 67 6e  |ount%,freq%,sign|
0000aee0  25 0d 35 20 0f 21 71 25  3d 77 69 6e 64 6f 77 25  |%.5 .!q%=window%|
0000aef0  0d 35 2a 0a 71 25 21 34  3d 37 0d 35 34 1e c8 99  |.5*.q%!4=7.54...|
0000af00  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
0000af10  61 74 65 22 2c 2c 71 25  0d 35 3e 13 e7 20 24 28  |ate",,q%.5>.. $(|
0000af20  71 25 21 32 38 29 3d 22  22 20 8c 0d 35 48 0a 65  |q%!28)="" ..5H.e|
0000af30  72 72 25 3d b9 0d 35 52  2f 85 20 39 39 2c 22 50  |rr%=..5R/. 99,"P|
0000af40  6c 65 61 73 65 20 65 6e  74 65 72 20 61 20 6e 61  |lease enter a na|
0000af50  6d 65 20 66 6f 72 20 74  68 69 73 20 61 63 74 69  |me for this acti|
0000af60  6f 6e 2e 22 0d 35 5c 1b  cc 20 6e 61 6d 65 24 3d  |on.".5\.. name$=|
0000af70  24 28 71 25 21 32 38 29  3a 65 72 72 25 3d a3 0d  |$(q%!28):err%=..|
0000af80  35 66 05 cd 0d 35 70 0e  e7 20 ac 20 65 72 72 25  |5f...5p.. . err%|
0000af90  20 8c 0d 35 7a 0f 21 71  25 3d 77 69 6e 64 6f 77  | ..5z.!q%=window|
0000afa0  25 0d 35 84 0a 71 25 21  34 3d 38 0d 35 8e 1e c8  |%.5..q%!4=8.5...|
0000afb0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
0000afc0  74 61 74 65 22 2c 2c 71  25 0d 35 98 13 e7 20 24  |tate",,q%.5... $|
0000afd0  28 71 25 21 32 38 29 3d  22 22 20 8c 0d 35 a2 0a  |(q%!28)="" ..5..|
0000afe0  65 72 72 25 3d b9 0d 35  ac 3a 85 20 39 39 2c 22  |err%=..5.:. 99,"|
0000aff0  50 6c 65 61 73 65 20 65  6e 74 65 72 20 61 6e 20  |Please enter an |
0000b000  69 6e 69 74 69 61 6c 20  61 6d 6f 75 6e 74 20 66  |initial amount f|
0000b010  6f 72 20 74 68 69 73 20  61 63 74 69 6f 6e 2e 22  |or this action."|
0000b020  0d 35 b6 1d cc 20 61 6d  6f 75 6e 74 24 3d 24 28  |.5... amount$=$(|
0000b030  71 25 21 32 38 29 3a 65  72 72 25 3d a3 0d 35 c0  |q%!28):err%=..5.|
0000b040  14 e7 20 bb 28 61 6d 6f  75 6e 74 24 29 3d 30 20  |.. .(amount$)=0 |
0000b050  8c 0d 35 ca 0a 65 72 72  25 3d b9 0d 35 d4 34 85  |..5..err%=..5.4.|
0000b060  20 39 39 2c 22 59 6f 75  20 68 61 76 65 20 65 6e  | 99,"You have en|
0000b070  74 65 72 65 64 20 61 6e  20 69 6e 76 61 6c 69 64  |tered an invalid|
0000b080  2e 20 54 72 79 20 61 67  61 69 6e 2e 2e 2e 22 0d  |. Try again...".|
0000b090  35 de 0c cc 20 65 72 72  25 3d a3 0d 35 e8 05 cd  |5... err%=..5...|
0000b0a0  0d 35 f2 05 cd 0d 35 fc  05 cd 0d 36 06 0e e7 20  |.5....5....6... |
0000b0b0  ac 20 65 72 72 25 20 8c  0d 36 10 0f 21 71 25 3d  |. err% ..6..!q%=|
0000b0c0  77 69 6e 64 6f 77 25 0d  36 1a 0b 71 25 21 34 3d  |window%.6..q%!4=|
0000b0d0  31 34 0d 36 24 1e c8 99  20 22 57 69 6d 70 5f 47  |14.6$... "Wimp_G|
0000b0e0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
0000b0f0  0d 36 2e 13 e7 20 24 28  71 25 21 32 38 29 3d 22  |.6... $(q%!28)="|
0000b100  22 20 8c 0d 36 38 0a 65  72 72 25 3d b9 0d 36 42  |" ..68.err%=..6B|
0000b110  3c 85 20 39 39 2c 22 50  6c 65 61 73 65 20 65 6e  |<. 99,"Please en|
0000b120  74 65 72 20 61 20 73 75  62 73 65 71 75 65 6e 74  |ter a subsequent|
0000b130  20 61 6d 6f 75 6e 74 20  66 6f 72 20 74 68 69 73  | amount for this|
0000b140  20 61 63 74 69 6f 6e 2e  22 0d 36 4c 1e cc 20 61  | action.".6L.. a|
0000b150  6d 6f 75 6e 74 32 24 3d  24 28 71 25 21 32 38 29  |mount2$=$(q%!28)|
0000b160  3a 65 72 72 25 3d a3 0d  36 56 15 e7 20 bb 28 61  |:err%=..6V.. .(a|
0000b170  6d 6f 75 6e 74 32 24 29  3d 30 20 8c 0d 36 60 0a  |mount2$)=0 ..6`.|
0000b180  65 72 72 25 3d b9 0d 36  6a 3b 85 20 39 39 2c 22  |err%=..6j;. 99,"|
0000b190  59 6f 75 20 68 61 76 65  20 65 6e 74 65 72 65 64  |You have entered|
0000b1a0  20 61 6e 20 69 6e 76 61  6c 69 64 20 61 6d 6f 75  | an invalid amou|
0000b1b0  6e 74 2e 20 54 72 79 20  61 67 61 69 6e 2e 2e 2e  |nt. Try again...|
0000b1c0  22 0d 36 74 0c cc 20 65  72 72 25 3d a3 0d 36 7e  |".6t.. err%=..6~|
0000b1d0  05 cd 0d 36 88 05 cd 0d  36 92 05 cd 0d 36 9c 0e  |...6....6....6..|
0000b1e0  e7 20 ac 20 65 72 72 25  20 8c 0d 36 a6 0f 21 71  |. . err% ..6..!q|
0000b1f0  25 3d 77 69 6e 64 6f 77  25 0d 36 b0 0b 71 25 21  |%=window%.6..q%!|
0000b200  34 3d 32 37 0d 36 ba 1e  c8 99 20 22 57 69 6d 70  |4=27.6.... "Wimp|
0000b210  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
0000b220  71 25 0d 36 c4 13 e7 20  24 28 71 25 21 32 38 29  |q%.6... $(q%!28)|
0000b230  3d 22 22 20 8c 0d 36 ce  0a 65 72 72 25 3d b9 0d  |="" ..6..err%=..|
0000b240  36 d8 3d 85 20 39 39 2c  22 50 6c 65 61 73 65 20  |6.=. 99,"Please |
0000b250  65 6e 74 65 72 20 74 68  65 20 6e 75 6d 62 65 72  |enter the number|
0000b260  20 6f 66 20 6d 6f 6e 74  68 73 20 66 6f 72 20 74  | of months for t|
0000b270  68 69 73 20 61 63 74 69  6f 6e 2e 22 0d 36 e2 1d  |his action.".6..|
0000b280  cc 20 6d 74 6f 74 61 6c  24 3d 24 28 71 25 21 32  |. mtotal$=$(q%!2|
0000b290  38 29 3a 65 72 72 25 3d  a3 0d 36 ec 14 6d 74 6f  |8):err%=..6..mto|
0000b2a0  74 25 3d bb 28 6d 74 6f  74 61 6c 24 29 0d 36 f6  |t%=.(mtotal$).6.|
0000b2b0  0f e7 20 6d 74 6f 74 25  3d 30 20 8c 0d 37 00 0a  |.. mtot%=0 ..7..|
0000b2c0  65 72 72 25 3d b9 0d 37  0a 45 85 20 39 39 2c 22  |err%=..7.E. 99,"|
0000b2d0  59 6f 75 20 68 61 76 65  20 65 6e 74 65 72 65 64  |You have entered|
0000b2e0  20 61 6e 20 69 6e 76 61  6c 69 64 20 6e 75 6d 62  | an invalid numb|
0000b2f0  65 72 20 6f 66 20 6d 6f  6e 74 68 73 2e 20 54 72  |er of months. Tr|
0000b300  79 20 61 67 61 69 6e 2e  2e 2e 22 0d 37 14 0c cc  |y again...".7...|
0000b310  20 65 72 72 25 3d a3 0d  37 1e 29 e7 20 6d 74 6f  | err%=..7.). mto|
0000b320  74 25 3e 28 35 39 2d 6d  6f 6e 74 68 25 29 20 6d  |t%>(59-month%) m|
0000b330  74 6f 74 25 3d 28 35 39  2d 6d 6f 6e 74 68 25 29  |tot%=(59-month%)|
0000b340  0d 37 28 05 cd 0d 37 32  05 cd 0d 37 3c 05 cd 0d  |.7(...72...7<...|
0000b350  37 46 14 c8 8e 20 73 74  61 6e 64 5f 73 69 67 6e  |7F... stand_sign|
0000b360  25 20 ca 0d 37 50 0f c9  20 31 3a 73 69 67 6e 25  |% ..7P.. 1:sign%|
0000b370  3d 31 0d 37 5a 11 c9 20  2d 31 3a 73 69 67 6e 25  |=1.7Z.. -1:sign%|
0000b380  3d 2d 31 0d 37 64 05 cb  0d 37 6e 14 c8 8e 20 73  |=-1.7d...7n... s|
0000b390  74 61 6e 64 5f 66 72 65  71 25 20 ca 0d 37 78 0f  |tand_freq% ..7x.|
0000b3a0  c9 20 31 3a 66 72 65 71  25 3d 31 0d 37 82 0f c9  |. 1:freq%=1.7...|
0000b3b0  20 32 3a 66 72 65 71 25  3d 32 0d 37 8c 0f c9 20  | 2:freq%=2.7... |
0000b3c0  33 3a 66 72 65 71 25 3d  33 0d 37 96 0f c9 20 36  |3:freq%=3.7... 6|
0000b3d0  3a 66 72 65 71 25 3d 36  0d 37 a0 11 c9 20 31 32  |:freq%=6.7... 12|
0000b3e0  3a 66 72 65 71 25 3d 31  32 0d 37 aa 05 cb 0d 37  |:freq%=12.7....7|
0000b3f0  b4 2a e3 20 63 6f 75 6e  74 25 3d 6d 6f 6e 74 68  |.*. count%=month|
0000b400  25 20 b8 20 6d 6f 6e 74  68 25 2b 6d 74 6f 74 25  |% . month%+mtot%|
0000b410  20 88 20 66 72 65 71 25  0d 37 be 1a e7 20 65 6e  | . freq%.7... en|
0000b420  74 72 79 25 28 63 6f 75  6e 74 25 29 3e 31 30 30  |try%(count%)>100|
0000b430  20 8c 0d 37 c8 0a 65 72  72 25 3d b9 0d 37 d2 5f  | ..7..err%=..7._|
0000b440  85 20 39 39 2c 22 49 27  6d 20 73 6f 72 72 79 20  |. 99,"I'm sorry |
0000b450  74 6f 20 73 61 79 20 74  68 61 74 20 79 6f 75 20  |to say that you |
0000b460  68 61 76 65 20 72 65 61  63 68 65 64 20 74 68 65  |have reached the|
0000b470  20 6d 61 78 69 6d 75 6d  20 61 6d 6f 75 6e 74 20  | maximum amount |
0000b480  6f 66 20 65 6e 74 72 69  65 73 20 66 6f 72 20 74  |of entries for t|
0000b490  68 69 73 20 6d 6f 6e 74  68 2e 22 0d 37 dc 05 cd  |his month.".7...|
0000b4a0  0d 37 e6 05 ed 0d 37 f0  0e e7 20 ac 20 65 72 72  |.7....7... . err|
0000b4b0  25 20 8c 0d 37 fa 2a e3  20 63 6f 75 6e 74 25 3d  |% ..7.*. count%=|
0000b4c0  6d 6f 6e 74 68 25 20 b8  20 6d 6f 6e 74 68 25 2b  |month% . month%+|
0000b4d0  6d 74 6f 74 25 20 88 20  66 72 65 71 25 0d 38 04  |mtot% . freq%.8.|
0000b4e0  26 6e 61 6d 65 24 28 65  6e 74 72 79 25 28 63 6f  |&name$(entry%(co|
0000b4f0  75 6e 74 25 29 2c 63 6f  75 6e 74 25 29 3d 6e 61  |unt%),count%)=na|
0000b500  6d 65 24 0d 38 0e 15 e7  20 63 6f 75 6e 74 25 3d  |me$.8... count%=|
0000b510  6d 6f 6e 74 68 25 20 8c  0d 38 18 3e 61 6d 6f 75  |month% ..8.>amou|
0000b520  6e 74 25 28 65 6e 74 72  79 25 28 63 6f 75 6e 74  |nt%(entry%(count|
0000b530  25 29 2c 63 6f 75 6e 74  25 29 3d 28 bb 28 61 6d  |%),count%)=(.(am|
0000b540  6f 75 6e 74 24 29 2b 2e  30 30 35 29 2a 31 30 30  |ount$)+.005)*100|
0000b550  2a 73 69 67 6e 25 0d 38  22 05 cc 0d 38 2c 3f 61  |*sign%.8"...8,?a|
0000b560  6d 6f 75 6e 74 25 28 65  6e 74 72 79 25 28 63 6f  |mount%(entry%(co|
0000b570  75 6e 74 25 29 2c 63 6f  75 6e 74 25 29 3d 28 bb  |unt%),count%)=(.|
0000b580  28 61 6d 6f 75 6e 74 32  24 29 2b 2e 30 30 35 29  |(amount2$)+.005)|
0000b590  2a 31 30 30 2a 73 69 67  6e 25 0d 38 36 05 cd 0d  |*100*sign%.86...|
0000b5a0  38 40 23 64 61 74 65 25  28 65 6e 74 72 79 25 28  |8@#date%(entry%(|
0000b5b0  63 6f 75 6e 74 25 29 2c  63 6f 75 6e 74 25 29 3d  |count%),count%)=|
0000b5c0  64 25 0d 38 4a 15 65 6e  74 72 79 25 28 63 6f 75  |d%.8J.entry%(cou|
0000b5d0  6e 74 25 29 2b 3d 31 0d  38 54 41 74 6f 74 61 6c  |nt%)+=1.8TAtotal|
0000b5e0  5f 65 6e 74 72 69 65 73  25 2b 3d 31 3a f2 75 70  |_entries%+=1:.up|
0000b5f0  64 61 74 65 5f 69 63 6f  6e 28 66 69 6c 65 69 6e  |date_icon(filein|
0000b600  66 6f 25 2c 38 2c c3 28  74 6f 74 61 6c 5f 65 6e  |fo%,8,.(total_en|
0000b610  74 72 69 65 73 25 29 29  0d 38 5e 12 f2 65 6e 74  |tries%)).8^..ent|
0000b620  65 72 28 63 6f 75 6e 74  25 29 0d 38 68 05 ed 0d  |er(count%).8h...|
0000b630  38 72 18 73 65 6c 65 63  74 25 3d 2d 31 3a 73 68  |8r.select%=-1:sh|
0000b640  61 64 65 64 25 3d b9 0d  38 7c 0b f2 72 65 64 72  |aded%=..8|..redr|
0000b650  61 77 0d 38 86 13 f2 63  6c 6f 73 65 28 77 69 6e  |aw.8...close(win|
0000b660  64 6f 77 25 29 0d 38 90  05 cd 0d 38 9a 05 e1 0d  |dow%).8....8....|
0000b670  38 a4 05 3a 0d 38 ae 0c  dd f2 72 65 64 72 61 77  |8..:.8....redraw|
0000b680  0d 38 b8 10 21 71 25 3d  73 63 72 6f 6c 6c 79 25  |.8..!q%=scrolly%|
0000b690  0d 38 c2 26 c8 99 20 22  57 69 6d 70 5f 52 65 64  |.8.&.. "Wimp_Red|
0000b6a0  72 61 77 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |rawWindow",,q% .|
0000b6b0  20 6d 6f 72 65 25 0d 38  cc 17 f2 6f 72 69 67 69  | more%.8...origi|
0000b6c0  6e 28 71 25 2c 78 30 25  2c 79 30 25 29 0d 38 d6  |n(q%,x0%,y0%).8.|
0000b6d0  0c c8 95 20 6d 6f 72 65  25 0d 38 e0 12 f2 64 72  |... more%.8...dr|
0000b6e0  61 77 28 78 30 25 2c 79  30 25 29 0d 38 ea 26 c8  |aw(x0%,y0%).8.&.|
0000b6f0  99 20 22 57 69 6d 70 5f  47 65 74 52 65 63 74 61  |. "Wimp_GetRecta|
0000b700  6e 67 6c 65 22 2c 2c 71  25 20 b8 20 6d 6f 72 65  |ngle",,q% . more|
0000b710  25 0d 38 f4 05 ce 0d 38  fe 05 e1 0d 39 08 05 3a  |%.8....8....9..:|
0000b720  0d 39 12 1c dd f2 6f 72  69 67 69 6e 28 71 25 2c  |.9....origin(q%,|
0000b730  f8 20 78 30 25 2c f8 20  79 30 25 29 0d 39 1c 12  |. x0%,. y0%).9..|
0000b740  78 30 25 3d 71 25 21 34  2d 71 25 21 32 30 0d 39  |x0%=q%!4-q%!20.9|
0000b750  26 13 79 30 25 3d 71 25  21 31 36 2d 71 25 21 32  |&.y0%=q%!16-q%!2|
0000b760  34 0d 39 30 05 e1 0d 39  3a 05 3a 0d 39 44 13 dd  |4.90...9:.:.9D..|
0000b770  f2 64 72 61 77 28 78 30  25 2c 79 30 25 29 0d 39  |.draw(x0%,y0%).9|
0000b780  4e 19 ea 20 63 6f 75 6e  74 25 2c 64 6f 77 6e 25  |N.. count%,down%|
0000b790  2c 61 6d 2c 74 6f 74 0d  39 58 07 ef 20 35 0d 39  |,am,tot.9X.. 5.9|
0000b7a0  62 10 40 25 3d 26 30 31  30 41 30 32 30 41 0d 39  |b.@%=&010A020A.9|
0000b7b0  6c 10 40 25 3d 26 30 31  30 32 30 32 30 41 0d 39  |l.@%=&0102020A.9|
0000b7c0  76 35 e7 20 6d 6f 6e 74  68 25 3d 30 20 8c 20 74  |v5. month%=0 . t|
0000b7d0  6f 74 61 6c 25 3d 30 20  8b 20 74 6f 74 61 6c 25  |otal%=0 . total%|
0000b7e0  3d 62 61 6c 61 6e 63 65  25 28 6d 6f 6e 74 68 25  |=balance%(month%|
0000b7f0  2d 31 29 0d 39 80 19 c8  99 20 22 57 69 6d 70 5f  |-1).9.... "Wimp_|
0000b800  53 65 74 43 6f 6c 6f 75  72 22 2c 38 0d 39 8a 28  |SetColour",8.9.(|
0000b810  ec 20 78 30 25 2b 31 39  30 2c 79 30 25 2d 31 30  |. x0%+190,y0%-10|
0000b820  3a f1 22 42 61 6c 61 6e  63 65 20 46 6f 72 77 61  |:."Balance Forwa|
0000b830  72 64 3a 22 0d 39 94 14  ec 20 78 30 25 2b 39 35  |rd:".9... x0%+95|
0000b840  30 2c 79 30 25 2d 31 30  0d 39 9e 3f e7 20 74 6f  |0,y0%-10.9.?. to|
0000b850  74 61 6c 25 3c 30 20 8c  20 c8 99 20 22 57 69 6d  |tal%<0 . .. "Wim|
0000b860  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 31 31 20  |p_SetColour",11 |
0000b870  8b 20 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 6f  |. .. "Wimp_SetCo|
0000b880  6c 6f 75 72 22 2c 37 0d  39 a8 12 74 6f 74 3d 74  |lour",7.9..tot=t|
0000b890  6f 74 61 6c 25 2f 31 30  30 0d 39 b2 0c f1 20 94  |otal%/100.9... .|
0000b8a0  28 74 6f 74 29 0d 39 bc  05 cd 0d 39 c6 19 e7 20  |(tot).9....9... |
0000b8b0  65 6e 74 72 79 25 28 6d  6f 6e 74 68 25 29 3c 3e  |entry%(month%)<>|
0000b8c0  30 20 8c 0d 39 d0 21 e3  20 63 6f 75 6e 74 25 3d  |0 ..9.!. count%=|
0000b8d0  30 20 b8 20 65 6e 74 72  79 25 28 6d 6f 6e 74 68  |0 . entry%(month|
0000b8e0  25 29 2d 31 0d 39 da 45  e7 20 73 65 6c 65 63 74  |%)-1.9.E. select|
0000b8f0  25 3d 63 6f 75 6e 74 25  20 8c 20 c8 99 20 22 57  |%=count% . .. "W|
0000b900  69 6d 70 5f 53 65 74 43  6f 6c 6f 75 72 22 2c 31  |imp_SetColour",1|
0000b910  33 20 8b 20 c8 99 20 22  57 69 6d 70 5f 53 65 74  |3 . .. "Wimp_Set|
0000b920  43 6f 6c 6f 75 72 22 2c  37 0d 39 e4 18 64 6f 77  |Colour",7.9..dow|
0000b930  6e 25 3d 35 30 2b 28 63  6f 75 6e 74 25 2a 34 30  |n%=50+(count%*40|
0000b940  29 0d 39 ee 16 ec 20 78  30 25 2b 32 35 2c 79 30  |).9... x0%+25,y0|
0000b950  25 2d 64 6f 77 6e 25 0d  39 f8 10 40 25 3d 26 30  |%-down%.9..@%=&0|
0000b960  31 30 30 30 39 30 41 0d  3a 02 1c f1 c3 28 64 61  |100090A.:....(da|
0000b970  74 65 25 28 63 6f 75 6e  74 25 2c 6d 6f 6e 74 68  |te%(count%,month|
0000b980  25 29 29 0d 3a 0c 10 40  25 3d 26 30 31 30 41 30  |%)).:..@%=&010A0|
0000b990  32 30 41 0d 3a 16 10 40  25 3d 26 30 31 30 32 30  |20A.:..@%=&01020|
0000b9a0  32 30 41 0d 3a 20 17 ec  20 78 30 25 2b 31 39 30  |20A.: .. x0%+190|
0000b9b0  2c 79 30 25 2d 64 6f 77  6e 25 0d 3a 2a 19 f1 6e  |,y0%-down%.:*..n|
0000b9c0  61 6d 65 24 28 63 6f 75  6e 74 25 2c 6d 6f 6e 74  |ame$(count%,mont|
0000b9d0  68 25 29 0d 3a 34 20 e7  20 61 6d 6f 75 6e 74 25  |h%).:4 . amount%|
0000b9e0  28 63 6f 75 6e 74 25 2c  6d 6f 6e 74 68 25 29 3c  |(count%,month%)<|
0000b9f0  30 20 8c 0d 3a 3e 17 ec  20 78 30 25 2b 35 38 30  |0 ..:>.. x0%+580|
0000ba00  2c 79 30 25 2d 64 6f 77  6e 25 0d 3a 48 19 cc 20  |,y0%-down%.:H.. |
0000ba10  ec 20 78 30 25 2b 37 36  35 2c 79 30 25 2d 64 6f  |. x0%+765,y0%-do|
0000ba20  77 6e 25 0d 3a 52 05 cd  0d 3a 5c 21 61 6d 3d 61  |wn%.:R...:\!am=a|
0000ba30  6d 6f 75 6e 74 25 28 63  6f 75 6e 74 25 2c 6d 6f  |mount%(count%,mo|
0000ba40  6e 74 68 25 29 2f 31 30  30 0d 3a 66 0b f1 20 94  |nth%)/100.:f.. .|
0000ba50  28 61 6d 29 0d 3a 70 17  ec 20 78 30 25 2b 39 35  |(am).:p.. x0%+95|
0000ba60  30 2c 79 30 25 2d 64 6f  77 6e 25 0d 3a 7a 28 74  |0,y0%-down%.:z(t|
0000ba70  6f 74 61 6c 25 3d 74 6f  74 61 6c 25 2b 61 6d 6f  |otal%=total%+amo|
0000ba80  75 6e 74 25 28 63 6f 75  6e 74 25 2c 6d 6f 6e 74  |unt%(count%,mont|
0000ba90  68 25 29 0d 3a 84 6b e7  20 73 65 6c 65 63 74 25  |h%).:.k. select%|
0000baa0  3d 63 6f 75 6e 74 25 20  8c 20 c8 99 20 22 57 69  |=count% . .. "Wi|
0000bab0  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 31 33  |mp_SetColour",13|
0000bac0  20 8b 20 e7 20 74 6f 74  61 6c 25 3c 30 20 8c 20  | . . total%<0 . |
0000bad0  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |.. "Wimp_SetColo|
0000bae0  75 72 22 2c 31 31 20 8b  20 c8 99 20 22 57 69 6d  |ur",11 . .. "Wim|
0000baf0  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 37 0d 3a  |p_SetColour",7.:|
0000bb00  8e 12 74 6f 74 3d 74 6f  74 61 6c 25 2f 31 30 30  |..tot=total%/100|
0000bb10  0d 3a 98 0c f1 20 94 28  74 6f 74 29 0d 3a a2 05  |.:... .(tot).:..|
0000bb20  ed 0d 3a ac 05 cd 0d 3a  b6 10 40 25 3d 26 30 31  |..:....:..@%=&01|
0000bb30  30 30 30 39 30 41 0d 3a  c0 05 e1 0d 3a ca 05 3a  |00090A.:....:..:|
0000bb40  0d 3a d4 12 dd f2 73 65  74 75 70 5f 63 72 65 64  |.:....setup_cred|
0000bb50  69 74 0d 3a de 1e f2 6e  65 77 5f 64 61 74 65 28  |it.:...new_date(|
0000bb60  30 2c 63 72 65 64 69 74  25 2c 64 61 79 32 25 29  |0,credit%,day2%)|
0000bb70  0d 3a e8 1e f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.:...update_icon|
0000bb80  28 63 72 65 64 69 74 25  2c 37 2c 22 22 29 0d 3a  |(credit%,7,"").:|
0000bb90  f2 1e f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |...update_icon(c|
0000bba0  72 65 64 69 74 25 2c 38  2c 22 22 29 0d 3a fc 46  |redit%,8,"").:.F|
0000bbb0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 63 72 65  |.update_icon(cre|
0000bbc0  64 69 74 25 2c 33 2c 6d  6f 6e 74 68 24 28 6d 6f  |dit%,3,month$(mo|
0000bbd0  6e 74 68 25 20 83 20 31  32 29 2b 22 20 22 2b c3  |nth% . 12)+" "+.|
0000bbe0  28 79 65 61 72 25 2b 79  65 61 72 70 6c 75 73 25  |(year%+yearplus%|
0000bbf0  29 29 0d 3b 06 24 f2 75  70 64 61 74 65 5f 69 63  |)).;.$.update_ic|
0000bc00  6f 6e 28 63 72 65 64 69  74 25 2c 32 2c c3 28 64  |on(credit%,2,.(d|
0000bc10  61 79 32 25 29 29 0d 3b  10 05 e1 0d 3b 1a 05 3a  |ay2%)).;....;..:|
0000bc20  0d 3b 24 11 dd f2 73 65  74 75 70 5f 64 65 62 69  |.;$...setup_debi|
0000bc30  74 0d 3b 2e 1d f2 6e 65  77 5f 64 61 74 65 28 30  |t.;...new_date(0|
0000bc40  2c 64 65 62 69 74 25 2c  64 61 79 31 25 29 0d 3b  |,debit%,day1%).;|
0000bc50  38 1d f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 64  |8..update_icon(d|
0000bc60  65 62 69 74 25 2c 37 2c  22 22 29 0d 3b 42 1d f2  |ebit%,7,"").;B..|
0000bc70  75 70 64 61 74 65 5f 69  63 6f 6e 28 64 65 62 69  |update_icon(debi|
0000bc80  74 25 2c 38 2c 22 22 29  0d 3b 4c 45 f2 75 70 64  |t%,8,"").;LE.upd|
0000bc90  61 74 65 5f 69 63 6f 6e  28 64 65 62 69 74 25 2c  |ate_icon(debit%,|
0000bca0  33 2c 6d 6f 6e 74 68 24  28 6d 6f 6e 74 68 25 20  |3,month$(month% |
0000bcb0  83 20 31 32 29 2b 22 20  22 2b c3 28 79 65 61 72  |. 12)+" "+.(year|
0000bcc0  25 2b 79 65 61 72 70 6c  75 73 25 29 29 0d 3b 56  |%+yearplus%)).;V|
0000bcd0  23 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 64 65  |#.update_icon(de|
0000bce0  62 69 74 25 2c 32 2c c3  28 64 61 79 31 25 29 29  |bit%,2,.(day1%))|
0000bcf0  0d 3b 60 05 e1 0d 3b 6a  05 3a 0d 3b 74 14 dd f2  |.;`...;j.:.;t...|
0000bd00  73 65 74 75 70 5f 73 74  61 6e 64 69 6e 67 0d 3b  |setup_standing.;|
0000bd10  7e 20 f2 6e 65 77 5f 64  61 74 65 28 30 2c 73 74  |~ .new_date(0,st|
0000bd20  61 6e 64 69 6e 67 25 2c  64 61 79 33 25 29 0d 3b  |anding%,day3%).;|
0000bd30  88 20 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 73  |. .update_icon(s|
0000bd40  74 61 6e 64 69 6e 67 25  2c 37 2c 22 22 29 0d 3b  |tanding%,7,"").;|
0000bd50  92 20 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 73  |. .update_icon(s|
0000bd60  74 61 6e 64 69 6e 67 25  2c 38 2c 22 22 29 0d 3b  |tanding%,8,"").;|
0000bd70  9c 21 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 73  |.!.update_icon(s|
0000bd80  74 61 6e 64 69 6e 67 25  2c 31 34 2c 22 22 29 0d  |tanding%,14,"").|
0000bd90  3b a6 21 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |;.!.update_icon(|
0000bda0  73 74 61 6e 64 69 6e 67  25 2c 32 37 2c 22 22 29  |standing%,27,"")|
0000bdb0  0d 3b b0 48 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.;.H.update_icon|
0000bdc0  28 73 74 61 6e 64 69 6e  67 25 2c 33 2c 6d 6f 6e  |(standing%,3,mon|
0000bdd0  74 68 24 28 6d 6f 6e 74  68 25 20 83 20 31 32 29  |th$(month% . 12)|
0000bde0  2b 22 20 22 2b c3 28 79  65 61 72 25 2b 79 65 61  |+" "+.(year%+yea|
0000bdf0  72 70 6c 75 73 25 29 29  0d 3b ba 26 f2 75 70 64  |rplus%)).;.&.upd|
0000be00  61 74 65 5f 69 63 6f 6e  28 73 74 61 6e 64 69 6e  |ate_icon(standin|
0000be10  67 25 2c 32 2c c3 28 64  61 79 33 25 29 29 0d 3b  |g%,2,.(day3%)).;|
0000be20  c4 05 e1 0d 3b ce 05 3a  0d 3b d8 11 dd f2 73 65  |....;..:.;....se|
0000be30  74 75 70 5f 61 6d 65 6e  64 0d 3b e2 30 f2 75 70  |tup_amend.;.0.up|
0000be40  64 61 74 65 5f 69 63 6f  6e 28 61 6d 65 6e 64 25  |date_icon(amend%|
0000be50  2c 37 2c 6e 61 6d 65 24  28 73 65 6c 65 63 74 25  |,7,name$(select%|
0000be60  2c 6d 6f 6e 74 68 25 29  29 0d 3b ec 22 61 6d 3d  |,month%)).;."am=|
0000be70  61 6d 6f 75 6e 74 25 28  73 65 6c 65 63 74 25 2c  |amount%(select%,|
0000be80  6d 6f 6e 74 68 25 29 2f  31 30 30 0d 3b f6 23 f2  |month%)/100.;.#.|
0000be90  75 70 64 61 74 65 5f 69  63 6f 6e 28 61 6d 65 6e  |update_icon(amen|
0000bea0  64 25 2c 38 2c c3 28 94  28 61 6d 29 29 29 0d 3c  |d%,8,.(.(am))).<|
0000beb0  00 32 e7 20 61 6d 6f 75  6e 74 25 28 73 65 6c 65  |.2. amount%(sele|
0000bec0  63 74 25 2c 6d 6f 6e 74  68 25 29 3c 30 20 73 69  |ct%,month%)<0 si|
0000bed0  67 6e 25 3d 2d 31 20 8b  20 73 69 67 6e 25 3d 31  |gn%=-1 . sign%=1|
0000bee0  0d 3c 0a 45 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.<.E.update_icon|
0000bef0  28 61 6d 65 6e 64 25 2c  33 2c 6d 6f 6e 74 68 24  |(amend%,3,month$|
0000bf00  28 6d 6f 6e 74 68 25 20  83 20 31 32 29 2b 22 20  |(month% . 12)+" |
0000bf10  22 2b c3 28 79 65 61 72  25 2b 79 65 61 72 70 6c  |"+.(year%+yearpl|
0000bf20  75 73 25 29 29 0d 3c 14  1f 64 61 79 34 25 3d 64  |us%)).<..day4%=d|
0000bf30  61 74 65 25 28 73 65 6c  65 63 74 25 2c 6d 6f 6e  |ate%(select%,mon|
0000bf40  74 68 25 29 0d 3c 1e 23  f2 75 70 64 61 74 65 5f  |th%).<.#.update_|
0000bf50  69 63 6f 6e 28 61 6d 65  6e 64 25 2c 32 2c c3 28  |icon(amend%,2,.(|
0000bf60  64 61 79 34 25 29 29 0d  3c 28 05 e1 0d 3c 32 05  |day4%)).<(...<2.|
0000bf70  3a 0d 3c 3c 0b dd f2 63  6c 65 61 72 0d 3c 46 15  |:.<<...clear.<F.|
0000bf80  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
0000bf90  22 0d 3c 50 2b 73 61 76  65 64 25 3d b9 3a f2 75  |".<P+saved%=.:.u|
0000bfa0  70 64 61 74 65 5f 69 63  6f 6e 28 66 69 6c 65 69  |pdate_icon(filei|
0000bfb0  6e 66 6f 25 2c 35 2c 22  4e 6f 22 29 0d 3c 5a 32  |nfo%,5,"No").<Z2|
0000bfc0  74 6f 74 61 6c 5f 65 6e  74 72 69 65 73 25 3d 30  |total_entries%=0|
0000bfd0  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 66 69  |:.update_icon(fi|
0000bfe0  6c 65 69 6e 66 6f 25 2c  38 2c 22 30 22 29 0d 3c  |leinfo%,8,"0").<|
0000bff0  64 2c f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 66  |d,.update_icon(f|
0000c000  69 6c 65 5f 73 61 76 65  62 6f 78 25 2c 31 2c 22  |ile_savebox%,1,"|
0000c010  42 61 6e 6b 44 61 74 61  22 29 0d 3c 6e 97 f2 75  |BankData").<n..u|
0000c020  70 64 61 74 65 5f 69 63  6f 6e 28 74 65 78 74 5f  |pdate_icon(text_|
0000c030  73 61 76 65 62 6f 78 25  2c 31 2c 22 54 65 78 74  |savebox%,1,"Text|
0000c040  46 69 6c 65 22 29 3a f2  75 70 64 61 74 65 5f 69  |File"):.update_i|
0000c050  63 6f 6e 28 66 69 6c 65  69 6e 66 6f 25 2c 36 2c  |con(fileinfo%,6,|
0000c060  22 42 61 6e 6b 44 61 74  61 20 28 65 39 38 29 22  |"BankData (e98)"|
0000c070  29 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 66  |):.update_icon(f|
0000c080  69 6c 65 69 6e 66 6f 25  2c 37 2c 22 42 61 6e 6b  |ileinfo%,7,"Bank|
0000c090  44 61 74 61 22 29 3a f2  63 68 61 6e 67 65 5f 73  |Data"):.change_s|
0000c0a0  70 72 69 74 65 28 22 66  69 6c 65 5f 65 39 38 22  |prite("file_e98"|
0000c0b0  29 0d 3c 78 44 f2 75 70  64 61 74 65 5f 69 63 6f  |).<xD.update_ico|
0000c0c0  6e 28 66 69 6c 65 69 6e  66 6f 25 2c 39 2c 22 2d  |n(fileinfo%,9,"-|
0000c0d0  2d 2d 22 29 3a f2 75 70  64 61 74 65 5f 69 63 6f  |--"):.update_ico|
0000c0e0  6e 28 66 69 6c 65 69 6e  66 6f 25 2c 31 32 2c 22  |n(fileinfo%,12,"|
0000c0f0  2d 2d 2d 22 29 0d 3c 82  3b f2 67 65 74 5f 70 69  |---").<.;.get_pi|
0000c100  6e 62 6f 61 72 64 5f 6e  61 6d 65 3a f2 72 65 5f  |nboard_name:.re_|
0000c110  74 69 74 6c 65 28 22 42  61 6e 6b 20 53 79 73 74  |title("Bank Syst|
0000c120  65 6d 3a 20 22 2b 70 69  6e 62 6f 61 72 64 24 29  |em: "+pinboard$)|
0000c130  0d 3c 8c 27 79 65 61 72  25 3d 28 28 a4 74 6f 64  |.<.'year%=((.tod|
0000c140  61 79 3e 3e 38 29 81 20  31 32 29 3a 79 65 61 72  |ay>>8). 12):year|
0000c150  70 6c 75 73 25 3d 30 0d  3c 96 2e 6d 6f 6e 74 68  |plus%=0.<..month|
0000c160  25 3d 28 28 a4 74 6f 64  61 79 3e 3e 38 29 83 20  |%=((.today>>8). |
0000c170  31 32 29 3a 64 61 79 25  3d a4 74 6f 64 61 79 20  |12):day%=.today |
0000c180  80 20 32 35 35 0d 3c a0  13 e3 20 63 6f 75 6e 74  |. 255.<... count|
0000c190  25 3d 30 20 b8 20 35 39  0d 3c aa 27 62 61 6c 61  |%=0 . 59.<.'bala|
0000c1a0  6e 63 65 25 28 63 6f 75  6e 74 25 29 3d 30 3a 65  |nce%(count%)=0:e|
0000c1b0  6e 74 72 79 25 28 63 6f  75 6e 74 25 29 3d 30 0d  |ntry%(count%)=0.|
0000c1c0  3c b4 15 e3 20 63 6f 75  6e 74 32 25 3d 30 20 b8  |<... count2%=0 .|
0000c1d0  20 31 30 30 0d 3c be 4e  6e 61 6d 65 24 28 63 6f  | 100.<.Nname$(co|
0000c1e0  75 6e 74 32 25 2c 63 6f  75 6e 74 25 29 3d 22 22  |unt2%,count%)=""|
0000c1f0  3a 61 6d 6f 75 6e 74 25  28 63 6f 75 6e 74 32 25  |:amount%(count2%|
0000c200  2c 63 6f 75 6e 74 25 29  3d 30 3a 64 61 74 65 25  |,count%)=0:date%|
0000c210  28 63 6f 75 6e 74 32 25  2c 63 6f 75 6e 74 25 29  |(count2%,count%)|
0000c220  3d 30 0d 3c c8 07 ed 3a  ed 0d 3c d2 10 f2 75 70  |=0.<...:..<...up|
0000c230  64 61 74 65 5f 74 69 6d  65 0d 3c dc 51 61 63 63  |date_time.<.Qacc|
0000c240  6f 75 6e 74 5f 68 6f 6c  64 65 72 24 3d 22 22 3a  |ount_holder$="":|
0000c250  61 63 63 6f 75 6e 74 5f  62 72 61 6e 63 68 24 3d  |account_branch$=|
0000c260  22 22 3a 61 63 63 6f 75  6e 74 5f 73 6f 72 74 63  |"":account_sortc|
0000c270  6f 64 65 24 3d 22 22 3a  61 63 63 6f 75 6e 74 5f  |ode$="":account_|
0000c280  6e 75 6d 62 65 72 24 3d  22 22 0d 3c e6 1b f2 75  |number$="".<...u|
0000c290  70 64 61 74 65 5f 61 63  63 6f 75 6e 74 5f 64 65  |pdate_account_de|
0000c2a0  74 61 69 6c 73 0d 3c f0  16 c8 99 20 22 48 6f 75  |tails.<.... "Hou|
0000c2b0  72 67 6c 61 73 73 5f 4f  66 66 22 0d 3c fa 05 e1  |rglass_Off".<...|
0000c2c0  0d 3d 04 05 3a 0d 3d 0e  14 dd f2 72 65 61 64 5f  |.=..:.=....read_|
0000c2d0  70 61 73 73 77 6f 72 64  73 0d 3d 18 28 70 61 73  |passwords.=.(pas|
0000c2e0  73 77 6f 72 64 5f 6f 6e  65 24 3d a4 69 6e 64 69  |sword_one$=.indi|
0000c2f0  72 65 63 74 28 6f 70 74  69 6f 6e 73 25 2c 31 32  |rect(options%,12|
0000c300  29 0d 3d 22 28 70 61 73  73 77 6f 72 64 5f 74 77  |).="(password_tw|
0000c310  6f 24 3d a4 69 6e 64 69  72 65 63 74 28 6f 70 74  |o$=.indirect(opt|
0000c320  69 6f 6e 73 25 2c 31 33  29 0d 3d 2c 05 e1 0d 3d  |ions%,13).=,...=|
0000c330  36 05 3a 0d 3d 40 15 dd  f2 63 68 65 63 6b 5f 70  |6.:.=@...check_p|
0000c340  61 73 73 77 6f 72 64 73  0d 3d 4a 9b e7 20 70 61  |asswords.=J.. pa|
0000c350  73 73 77 6f 72 64 5f 6f  6e 65 24 3c 3e 70 61 73  |ssword_one$<>pas|
0000c360  73 77 6f 72 64 5f 74 77  6f 24 20 8c 20 f2 75 70  |sword_two$ . .up|
0000c370  64 61 74 65 5f 69 63 6f  6e 28 6f 70 74 69 6f 6e  |date_icon(option|
0000c380  73 25 2c 31 32 2c 22 22  29 3a f2 75 70 64 61 74  |s%,12,""):.updat|
0000c390  65 5f 69 63 6f 6e 28 6f  70 74 69 6f 6e 73 25 2c  |e_icon(options%,|
0000c3a0  31 33 2c 22 22 29 3a 85  20 39 39 2c 22 54 68 65  |13,""):. 99,"The|
0000c3b0  20 70 61 73 73 77 6f 72  64 73 20 61 72 65 20 6e  | passwords are n|
0000c3c0  6f 74 20 74 68 65 20 73  61 6d 65 2e 20 50 6c 65  |ot the same. Ple|
0000c3d0  61 73 65 20 72 65 2d 65  6e 74 65 72 20 74 68 65  |ase re-enter the|
0000c3e0  6d 2e 22 0d 3d 54 b7 e7  20 70 61 73 73 77 6f 72  |m.".=T.. passwor|
0000c3f0  64 24 3d 22 59 65 73 22  20 80 20 28 70 61 73 73  |d$="Yes" . (pass|
0000c400  77 6f 72 64 5f 6f 6e 65  24 3d 22 22 20 80 20 70  |word_one$="" . p|
0000c410  61 73 73 77 6f 72 64 5f  74 77 6f 24 3d 22 22 29  |assword_two$="")|
0000c420  20 8c 20 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  | . .update_icon(|
0000c430  6f 70 74 69 6f 6e 73 25  2c 31 32 2c 22 22 29 3a  |options%,12,""):|
0000c440  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 6f 70 74  |.update_icon(opt|
0000c450  69 6f 6e 73 25 2c 31 33  2c 22 22 29 3a 85 20 39  |ions%,13,""):. 9|
0000c460  39 2c 22 59 6f 75 20 68  61 76 65 20 6e 6f 74 20  |9,"You have not |
0000c470  65 6e 74 65 72 65 64 20  61 6e 79 20 70 61 73 73  |entered any pass|
0000c480  77 6f 72 64 73 2e 20 50  6c 65 61 73 65 20 65 6e  |words. Please en|
0000c490  74 65 72 20 74 68 65 6d  2e 22 0d 3d 5e 05 e1 0d  |ter them.".=^...|
0000c4a0  3d 68 05 3a 0d 3d 72 1c  dd f2 63 68 65 63 6b 5f  |=h.:.=r...check_|
0000c4b0  65 6e 74 65 72 65 64 5f  70 61 73 73 77 6f 72 64  |entered_password|
0000c4c0  0d 3d 7c 29 65 6e 74 65  72 65 64 5f 70 61 73 73  |.=|)entered_pass|
0000c4d0  77 6f 72 64 24 3d a4 69  6e 64 69 72 65 63 74 28  |word$=.indirect(|
0000c4e0  70 77 62 6f 78 25 2c 31  29 0d 3d 86 1a c8 8e 20  |pwbox%,1).=.... |
0000c4f0  65 6e 74 65 72 65 64 5f  70 61 73 73 77 6f 72 64  |entered_password|
0000c500  24 20 ca 0d 3d 90 13 c9  20 70 61 73 73 77 6f 72  |$ ..=... passwor|
0000c510  64 5f 6f 6e 65 24 0d 3d  9a 37 c8 99 20 22 57 69  |d_one$.=.7.. "Wi|
0000c520  6d 70 45 78 74 5f 52 65  6c 65 61 73 65 50 6f 69  |mpExt_ReleasePoi|
0000c530  6e 74 65 72 22 3a f2 63  6c 6f 73 65 28 70 77 62  |nter":.close(pwb|
0000c540  6f 78 25 29 3a 77 72 6f  6e 67 25 3d a3 0d 3d a4  |ox%):wrong%=..=.|
0000c550  3e e7 20 61 75 74 6f 5f  6c 6f 61 64 24 3d 22 59  |>. auto_load$="Y|
0000c560  65 73 22 20 8c 20 c8 99  20 22 57 69 6d 70 45 78  |es" . .. "WimpEx|
0000c570  74 5f 4f 70 65 6e 57 69  6e 64 6f 77 54 6f 70 22  |t_OpenWindowTop"|
0000c580  2c 6d 61 69 6e 5f 62 61  63 6b 25 0d 3d ae 05 7f  |,main_back%.=...|
0000c590  0d 3d b8 2e c8 99 20 22  57 69 6d 70 45 78 74 5f  |.=.... "WimpExt_|
0000c5a0  52 65 6c 65 61 73 65 50  6f 69 6e 74 65 72 22 3a  |ReleasePointer":|
0000c5b0  f2 63 6c 6f 73 65 28 70  77 62 6f 78 25 29 0d 3d  |.close(pwbox%).=|
0000c5c0  c2 25 c8 99 20 22 57 69  6d 70 45 78 74 5f 4f 70  |.%.. "WimpExt_Op|
0000c5d0  65 6e 57 69 6e 64 6f 77  54 6f 70 22 2c 70 77 62  |enWindowTop",pwb|
0000c5e0  6f 78 25 0d 3d cc 3a f2  6d 6f 76 65 5f 63 61 72  |ox%.=.:.move_car|
0000c5f0  65 74 28 70 77 62 6f 78  25 2c 31 29 3a c8 99 20  |et(pwbox%,1):.. |
0000c600  22 57 69 6d 70 45 78 74  5f 4c 69 6d 69 74 50 6f  |"WimpExt_LimitPo|
0000c610  69 6e 74 65 72 22 2c 70  77 62 6f 78 25 0d 3d d6  |inter",pwbox%.=.|
0000c620  30 74 72 69 65 73 25 2b  3d 31 3a 77 72 6f 6e 67  |0tries%+=1:wrong|
0000c630  25 3d b9 3a f2 75 70 64  61 74 65 5f 69 63 6f 6e  |%=.:.update_icon|
0000c640  28 70 77 62 6f 78 25 2c  31 2c 22 22 29 0d 3d e0  |(pwbox%,1,"").=.|
0000c650  05 cb 0d 3d ea 18 e7 20  74 72 69 65 73 25 3d 34  |...=... tries%=4|
0000c660  20 8c 20 71 75 69 74 25  3d b9 0d 3d f4 05 e1 0d  | . quit%=..=....|
0000c670  3d fe 05 3a 0d 3e 08 0b  dd f2 70 72 69 6e 74 0d  |=..:.>....print.|
0000c680  3e 12 0e f2 63 6c 6f 73  65 5f 61 6c 6c 0d 3e 1c  |>...close_all.>.|
0000c690  6e e7 20 70 72 69 6e 74  5f 71 75 61 6c 69 74 79  |n. print_quality|
0000c6a0  24 3d 22 52 49 53 43 4f  53 22 20 80 20 70 64 72  |$="RISCOS" . pdr|
0000c6b0  69 76 65 72 3d a3 20 8c  20 85 20 39 39 2c 22 50  |iver=. . . 99,"P|
0000c6c0  6c 65 61 73 65 20 69 6e  73 74 61 6c 6c 20 61 20  |lease install a |
0000c6d0  52 49 53 43 20 4f 53 20  33 20 70 72 69 6e 74 65  |RISC OS 3 printe|
0000c6e0  72 20 64 72 69 76 65 72  20 61 6e 64 20 74 72 79  |r driver and try|
0000c6f0  20 61 67 61 69 6e 21 21  22 3a e1 0d 3e 26 36 e7  | again!!":..>&6.|
0000c700  20 74 6f 74 61 6c 5f 65  6e 74 72 69 65 73 25 3d  | total_entries%=|
0000c710  30 20 8c 20 85 20 39 39  2c 22 4e 6f 20 65 6e 74  |0 . . 99,"No ent|
0000c720  72 69 65 73 20 74 6f 20  70 72 69 6e 74 2e 22 3a  |ries to print.":|
0000c730  e1 0d 3e 30 15 c8 99 20  22 48 6f 75 72 67 6c 61  |..>0... "Hourgla|
0000c740  73 73 5f 4f 6e 22 0d 3e  3a 17 c8 8e 20 70 72 69  |ss_On".>:... pri|
0000c750  6e 74 5f 71 75 61 6c 69  74 79 24 20 ca 0d 3e 44  |nt_quality$ ..>D|
0000c760  2a c9 20 22 52 49 53 43  4f 53 22 3a e7 20 70 64  |*. "RISCOS":. pd|
0000c770  72 69 76 65 72 3d b9 20  8c 20 f2 70 72 69 6e 74  |river=. . .print|
0000c780  5f 64 72 69 76 65 72 0d  3e 4e 0d c9 20 22 44 72  |_driver.>N.. "Dr|
0000c790  61 66 74 22 0d 3e 58 19  ef 20 32 3a ef 20 31 2c  |aft".>X.. 2:. 1,|
0000c7a0  32 37 2c 31 2c 31 32 30  2c 31 2c 34 38 0d 3e 62  |27,1,120,1,48.>b|
0000c7b0  29 e7 20 70 72 69 6e 74  5f 68 65 61 64 65 72 24  |). print_header$|
0000c7c0  3d 22 59 65 73 22 20 8c  20 f2 70 72 69 6e 74 5f  |="Yes" . .print_|
0000c7d0  68 65 61 64 65 72 0d 3e  6c 10 f2 70 72 69 6e 74  |header.>l..print|
0000c7e0  5f 74 61 62 6c 65 0d 3e  76 07 ef 20 33 0d 3e 80  |_table.>v.. 3.>.|
0000c7f0  0b c9 20 22 4e 4c 51 22  0d 3e 8a 19 ef 20 32 3a  |.. "NLQ".>... 2:|
0000c800  ef 20 31 2c 32 37 2c 31  2c 31 32 30 2c 31 2c 34  |. 1,27,1,120,1,4|
0000c810  39 0d 3e 94 29 e7 20 70  72 69 6e 74 5f 68 65 61  |9.>.). print_hea|
0000c820  64 65 72 24 3d 22 59 65  73 22 20 8c 20 f2 70 72  |der$="Yes" . .pr|
0000c830  69 6e 74 5f 68 65 61 64  65 72 0d 3e 9e 10 f2 70  |int_header.>...p|
0000c840  72 69 6e 74 5f 74 61 62  6c 65 0d 3e a8 19 ef 20  |rint_table.>... |
0000c850  31 2c 32 37 2c 31 2c 31  32 30 2c 31 2c 34 38 3a  |1,27,1,120,1,48:|
0000c860  ef 20 33 0d 3e b2 05 cb  0d 3e bc 1c c8 99 20 22  |. 3.>....>.... "|
0000c870  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
0000c880  2c 2c 2d 31 0d 3e c6 16  c8 99 20 22 48 6f 75 72  |,,-1.>.... "Hour|
0000c890  67 6c 61 73 73 5f 4f 66  66 22 0d 3e d0 05 e1 0d  |glass_Off".>....|
0000c8a0  3e da 05 3a 0d 3e e4 12  dd f2 70 72 69 6e 74 5f  |>..:.>....print_|
0000c8b0  68 65 61 64 65 72 0d 3e  ee 0a 76 64 75 25 3d 30  |header.>..vdu%=0|
0000c8c0  0d 3e f8 26 e7 20 70 72  69 6e 74 5f 6c 69 6e 65  |.>.&. print_line|
0000c8d0  66 65 65 64 73 24 3d 22  59 65 73 22 20 8c 20 76  |feeds$="Yes" . v|
0000c8e0  64 75 25 3d 31 30 0d 3f  02 31 f1 20 22 41 63 63  |du%=10.?.1. "Acc|
0000c8f0  6f 75 6e 74 20 48 6f 6c  64 65 72 3a 20 22 3b 61  |ount Holder: ";a|
0000c900  63 63 6f 75 6e 74 5f 68  6f 6c 64 65 72 24 3a ef  |ccount_holder$:.|
0000c910  20 31 2c 76 64 75 25 0d  3f 0c 31 f1 20 22 41 63  | 1,vdu%.?.1. "Ac|
0000c920  63 6f 75 6e 74 20 42 72  61 6e 63 68 3a 20 22 3b  |count Branch: ";|
0000c930  61 63 63 6f 75 6e 74 5f  62 72 61 6e 63 68 24 3a  |account_branch$:|
0000c940  ef 20 31 2c 76 64 75 25  0d 3f 16 33 f1 20 22 20  |. 1,vdu%.?.3. " |
0000c950  20 20 20 20 53 6f 72 74  20 43 6f 64 65 3a 20 22  |    Sort Code: "|
0000c960  3b 61 63 63 6f 75 6e 74  5f 73 6f 72 74 63 6f 64  |;account_sortcod|
0000c970  65 24 3a ef 20 31 2c 76  64 75 25 0d 3f 20 31 f1  |e$:. 1,vdu%.? 1.|
0000c980  20 22 41 63 63 6f 75 6e  74 20 4e 75 6d 62 65 72  | "Account Number|
0000c990  3a 20 22 3b 61 63 63 6f  75 6e 74 5f 6e 75 6d 62  |: ";account_numb|
0000c9a0  65 72 24 3a ef 20 31 2c  76 64 75 25 0d 3f 2a 0e  |er$:. 1,vdu%.?*.|
0000c9b0  f1 3a ef 20 31 2c 76 64  75 25 0d 3f 34 05 e1 0d  |.:. 1,vdu%.?4...|
0000c9c0  3f 3e 05 3a 0d 3f 48 11  dd f2 70 72 69 6e 74 5f  |?>.:.?H...print_|
0000c9d0  74 61 62 6c 65 0d 3f 52  19 ea 20 63 6f 75 6e 74  |table.?R.. count|
0000c9e0  25 2c 64 6f 77 6e 25 2c  61 6d 2c 74 6f 74 0d 3f  |%,down%,am,tot.?|
0000c9f0  5c 0a 76 64 75 25 3d 30  0d 3f 66 26 e7 20 70 72  |\.vdu%=0.?f&. pr|
0000ca00  69 6e 74 5f 6c 69 6e 65  66 65 65 64 73 24 3d 22  |int_linefeeds$="|
0000ca10  59 65 73 22 20 8c 20 76  64 75 25 3d 31 30 0d 3f  |Yes" . vdu%=10.?|
0000ca20  70 14 c8 8e 20 70 72 69  6e 74 5f 77 68 61 74 24  |p... print_what$|
0000ca30  20 ca 0d 3f 7a 1a c9 20  22 41 6c 6c 22 3a 66 72  | ..?z.. "All":fr|
0000ca40  6f 6d 25 3d 30 3a 74 6f  25 3d 35 39 0d 3f 84 37  |om%=0:to%=59.?.7|
0000ca50  c9 20 22 4d 6f 6e 74 68  22 3a 66 72 6f 6d 25 3d  |. "Month":from%=|
0000ca60  6d 6f 6e 74 68 5f 74 6f  5f 70 72 69 6e 74 25 3a  |month_to_print%:|
0000ca70  74 6f 25 3d 6d 6f 6e 74  68 5f 74 6f 5f 70 72 69  |to%=month_to_pri|
0000ca80  6e 74 25 0d 3f 8e 39 c9  20 22 59 65 61 72 22 3a  |nt%.?.9. "Year":|
0000ca90  66 72 6f 6d 25 3d 6d 6f  6e 74 68 5f 74 6f 5f 70  |from%=month_to_p|
0000caa0  72 69 6e 74 25 3a 74 6f  25 3d 6d 6f 6e 74 68 5f  |rint%:to%=month_|
0000cab0  74 6f 5f 70 72 69 6e 74  25 2b 31 31 0d 3f 98 05  |to_print%+11.?..|
0000cac0  cb 0d 3f a2 1e e3 20 70  72 69 6e 74 5f 6d 6f 6e  |..?... print_mon|
0000cad0  74 68 25 3d 66 72 6f 6d  25 20 b8 20 74 6f 25 0d  |th%=from% . to%.|
0000cae0  3f ac 37 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |?.7.. "Hourglass|
0000caf0  5f 50 65 72 63 65 6e 74  61 67 65 22 2c a8 28 28  |_Percentage",.((|
0000cb00  70 72 69 6e 74 5f 6d 6f  6e 74 68 25 2f 74 6f 25  |print_month%/to%|
0000cb10  29 2a 31 30 30 29 0d 3f  b6 10 40 25 3d 26 30 31  |)*100).?..@%=&01|
0000cb20  30 30 30 39 30 41 0d 3f  c0 0f ef 20 31 2c 32 37  |00090A.?... 1,27|
0000cb30  2c 31 2c 37 31 0d 3f ca  1f e7 20 65 6e 74 72 79  |,1,71.?... entry|
0000cb40  25 28 70 72 69 6e 74 5f  6d 6f 6e 74 68 25 29 3c  |%(print_month%)<|
0000cb50  3e 30 20 8c 0d 3f d4 0e  f1 3a ef 20 31 2c 76 64  |>0 ..?...:. 1,vd|
0000cb60  75 25 0d 3f de 49 f1 20  6d 6f 6e 74 68 24 28 70  |u%.?.I. month$(p|
0000cb70  72 69 6e 74 5f 6d 6f 6e  74 68 25 20 83 20 31 32  |rint_month% . 12|
0000cb80  29 2b 22 20 22 2b c3 28  79 65 61 72 25 2b 28 70  |)+" "+.(year%+(p|
0000cb90  72 69 6e 74 5f 6d 6f 6e  74 68 25 20 81 20 31 32  |rint_month% . 12|
0000cba0  29 29 3a ef 20 31 2c 76  64 75 25 0d 3f e8 4a f1  |)):. 1,vdu%.?.J.|
0000cbb0  22 44 61 74 65 22 3b 8a  31 31 29 3b 22 4e 61 6d  |"Date";.11);"Nam|
0000cbc0  65 22 3b 8a 34 35 29 3b  22 44 65 62 69 74 22 3b  |e";.45);"Debit";|
0000cbd0  8a 35 34 29 3b 22 43 72  65 64 69 74 22 3b 8a 37  |.54);"Credit";.7|
0000cbe0  30 29 3b 22 42 61 6c 61  6e 63 65 22 3a ef 20 31  |0);"Balance":. 1|
0000cbf0  2c 76 64 75 25 0d 3f f2  0f ef 20 31 2c 32 37 2c  |,vdu%.?... 1,27,|
0000cc00  31 2c 37 32 0d 3f fc 05  cd 0d 40 06 10 40 25 3d  |1,72.?....@..@%=|
0000cc10  26 30 31 30 41 30 32 30  41 0d 40 10 10 40 25 3d  |&010A020A.@..@%=|
0000cc20  26 30 31 30 32 30 32 30  41 0d 40 1a 41 e7 20 70  |&0102020A.@.A. p|
0000cc30  72 69 6e 74 5f 6d 6f 6e  74 68 25 3d 30 20 8c 20  |rint_month%=0 . |
0000cc40  74 6f 74 61 6c 25 3d 30  20 8b 20 74 6f 74 61 6c  |total%=0 . total|
0000cc50  25 3d 62 61 6c 61 6e 63  65 25 28 70 72 69 6e 74  |%=balance%(print|
0000cc60  5f 6d 6f 6e 74 68 25 2d  31 29 0d 40 24 1f e7 20  |_month%-1).@$.. |
0000cc70  65 6e 74 72 79 25 28 70  72 69 6e 74 5f 6d 6f 6e  |entry%(print_mon|
0000cc80  74 68 25 29 3c 3e 30 20  8c 0d 40 2e 1d f1 8a 31  |th%)<>0 ..@....1|
0000cc90  31 29 3b 22 42 61 6c 61  6e 63 65 20 46 6f 72 77  |1);"Balance Forw|
0000cca0  61 72 64 3a 22 3b 0d 40  38 12 74 6f 74 3d 74 6f  |ard:";.@8.tot=to|
0000ccb0  74 61 6c 25 2f 31 30 30  0d 40 42 30 f1 8a 36 37  |tal%/100.@B0..67|
0000ccc0  29 94 28 74 6f 74 29 3b  3a e7 20 74 6f 74 3c 30  |).(tot);:. tot<0|
0000ccd0  20 8c 20 f1 8a 37 39 29  3b 22 44 22 20 8b 20 f1  | . ..79);"D" . .|
0000cce0  8a 37 39 29 3b 22 43 22  0d 40 4c 0c ef 20 31 2c  |.79);"C".@L.. 1,|
0000ccf0  76 64 75 25 0d 40 56 05  cd 0d 40 60 27 e3 20 63  |vdu%.@V...@`'. c|
0000cd00  6f 75 6e 74 25 3d 30 20  b8 20 65 6e 74 72 79 25  |ount%=0 . entry%|
0000cd10  28 70 72 69 6e 74 5f 6d  6f 6e 74 68 25 29 2d 31  |(print_month%)-1|
0000cd20  0d 40 6a 1f e7 20 65 6e  74 72 79 25 28 70 72 69  |.@j.. entry%(pri|
0000cd30  6e 74 5f 6d 6f 6e 74 68  25 29 3c 3e 30 20 8c 0d  |nt_month%)<>0 ..|
0000cd40  40 74 10 40 25 3d 26 30  31 30 30 30 39 30 41 0d  |@t.@%=&0100090A.|
0000cd50  40 7e 48 e7 20 64 61 74  65 25 28 63 6f 75 6e 74  |@~H. date%(count|
0000cd60  25 2c 70 72 69 6e 74 5f  6d 6f 6e 74 68 25 29 3c  |%,print_month%)<|
0000cd70  31 30 20 8c 20 65 78 74  72 61 5f 73 70 61 63 65  |10 . extra_space|
0000cd80  24 3d 22 20 22 20 8b 20  65 78 74 72 61 5f 73 70  |$=" " . extra_sp|
0000cd90  61 63 65 24 3d 22 22 0d  40 88 8e f1 65 78 74 72  |ace$="".@...extr|
0000cda0  61 5f 73 70 61 63 65 24  3b c3 28 64 61 74 65 25  |a_space$;.(date%|
0000cdb0  28 63 6f 75 6e 74 25 2c  70 72 69 6e 74 5f 6d 6f  |(count%,print_mo|
0000cdc0  6e 74 68 25 29 29 3b 22  2f 22 3b c3 28 28 70 72  |nth%));"/";.((pr|
0000cdd0  69 6e 74 5f 6d 6f 6e 74  68 25 20 83 20 31 32 29  |int_month% . 12)|
0000cde0  2b 31 29 3b 22 2f 22 3b  c3 28 79 65 61 72 25 2b  |+1);"/";.(year%+|
0000cdf0  28 70 72 69 6e 74 5f 6d  6f 6e 74 68 25 20 81 20  |(print_month% . |
0000ce00  31 32 29 29 3b 8a 31 31  29 3b 6e 61 6d 65 24 28  |12));.11);name$(|
0000ce10  63 6f 75 6e 74 25 2c 70  72 69 6e 74 5f 6d 6f 6e  |count%,print_mon|
0000ce20  74 68 25 29 3b 0d 40 92  10 40 25 3d 26 30 31 30  |th%);.@..@%=&010|
0000ce30  41 30 32 30 41 0d 40 9c  10 40 25 3d 26 30 31 30  |A020A.@..@%=&010|
0000ce40  32 30 32 30 41 0d 40 a6  26 e7 20 61 6d 6f 75 6e  |2020A.@.&. amoun|
0000ce50  74 25 28 63 6f 75 6e 74  25 2c 70 72 69 6e 74 5f  |t%(count%,print_|
0000ce60  6d 6f 6e 74 68 25 29 3c  30 20 8c 0d 40 b0 27 61  |month%)<0 ..@.'a|
0000ce70  6d 3d 61 6d 6f 75 6e 74  25 28 63 6f 75 6e 74 25  |m=amount%(count%|
0000ce80  2c 70 72 69 6e 74 5f 6d  6f 6e 74 68 25 29 2f 31  |,print_month%)/1|
0000ce90  30 30 0d 40 ba 0f f1 8a  34 30 29 94 28 61 6d 29  |00.@....40).(am)|
0000cea0  3b 0d 40 c4 05 cc 0d 40  ce 27 61 6d 3d 61 6d 6f  |;.@....@.'am=amo|
0000ceb0  75 6e 74 25 28 63 6f 75  6e 74 25 2c 70 72 69 6e  |unt%(count%,prin|
0000cec0  74 5f 6d 6f 6e 74 68 25  29 2f 31 30 30 0d 40 d8  |t_month%)/100.@.|
0000ced0  0f f1 8a 35 30 29 94 28  61 6d 29 3b 0d 40 e2 05  |...50).(am);.@..|
0000cee0  cd 0d 40 ec 2e 74 6f 74  61 6c 25 3d 74 6f 74 61  |..@..total%=tota|
0000cef0  6c 25 2b 61 6d 6f 75 6e  74 25 28 63 6f 75 6e 74  |l%+amount%(count|
0000cf00  25 2c 70 72 69 6e 74 5f  6d 6f 6e 74 68 25 29 0d  |%,print_month%).|
0000cf10  40 f6 12 74 6f 74 3d 74  6f 74 61 6c 25 2f 31 30  |@..tot=total%/10|
0000cf20  30 0d 41 00 30 f1 8a 36  37 29 94 28 74 6f 74 29  |0.A.0..67).(tot)|
0000cf30  3b 3a e7 20 74 6f 74 3c  30 20 8c 20 f1 8a 37 39  |;:. tot<0 . ..79|
0000cf40  29 3b 22 44 22 20 8b 20  f1 8a 37 39 29 3b 22 43  |);"D" . ..79);"C|
0000cf50  22 0d 41 0a 10 40 25 3d  26 30 31 30 30 30 39 30  |".A..@%=&0100090|
0000cf60  41 0d 41 14 0c ef 20 31  2c 76 64 75 25 0d 41 1e  |A.A... 1,vdu%.A.|
0000cf70  05 cd 0d 41 28 0c ed 20  63 6f 75 6e 74 25 0d 41  |...A(.. count%.A|
0000cf80  32 12 ed 20 70 72 69 6e  74 5f 6d 6f 6e 74 68 25  |2.. print_month%|
0000cf90  0d 41 3c 0a ef 20 31 2c  31 32 0d 41 46 05 e1 0d  |.A<.. 1,12.AF...|
0000cfa0  41 50 05 3a 0d 41 5a 0f  dd f2 67 6f 5f 73 65 61  |AP.:.AZ...go_sea|
0000cfb0  72 63 68 0d 41 64 15 c8  99 20 22 48 6f 75 72 67  |rch.Ad... "Hourg|
0000cfc0  6c 61 73 73 5f 4f 6e 22  0d 41 6e 19 66 6f 75 6e  |lass_On".An.foun|
0000cfd0  64 69 63 6f 6e 25 3d 32  3a 66 6f 75 6e 64 25 3d  |dicon%=2:found%=|
0000cfe0  30 0d 41 78 34 e3 20 63  6f 75 6e 74 25 3d 30 20  |0.Ax4. count%=0 |
0000cff0  b8 20 31 35 3a 73 65 6c  65 63 74 66 6f 75 6e 64  |. 15:selectfound|
0000d000  25 28 63 6f 75 6e 74 25  29 3d 2d 31 3a ed 20 63  |%(count%)=-1:. c|
0000d010  6f 75 6e 74 25 0d 41 82  41 e3 20 63 6f 75 6e 74  |ount%.A.A. count|
0000d020  25 3d 32 20 b8 20 31 31  3a f2 75 70 64 61 74 65  |%=2 . 11:.update|
0000d030  5f 69 63 6f 6e 28 73 65  61 72 63 68 66 6f 75 6e  |_icon(searchfoun|
0000d040  64 25 2c 63 6f 75 6e 74  25 2c 22 22 29 3a ed 20  |d%,count%,""):. |
0000d050  63 6f 75 6e 74 25 0d 41  8c 26 73 65 61 72 63 68  |count%.A.&search|
0000d060  73 74 72 69 6e 67 24 3d  a4 69 6e 64 69 72 65 63  |string$=.indirec|
0000d070  74 28 73 65 61 72 63 68  25 2c 32 29 0d 41 96 5c  |t(search%,2).A.\|
0000d080  e7 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
0000d090  22 22 20 8c 20 f2 63 6c  6f 73 65 28 73 65 61 72  |"" . .close(sear|
0000d0a0  63 68 25 29 3a c8 99 20  22 57 69 6d 70 5f 43 72  |ch%):.. "Wimp_Cr|
0000d0b0  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 3a 85 20  |eateMenu",,-1:. |
0000d0c0  31 2c 22 45 6e 74 65 72  20 73 65 61 72 63 68 20  |1,"Enter search |
0000d0d0  73 74 72 69 6e 67 2e 22  0d 41 a0 2f f2 75 70 64  |string.".A./.upd|
0000d0e0  61 74 65 5f 69 63 6f 6e  28 73 65 61 72 63 68 66  |ate_icon(searchf|
0000d0f0  6f 75 6e 64 25 2c 31 33  2c 73 65 61 72 63 68 73  |ound%,13,searchs|
0000d100  74 72 69 6e 67 24 29 0d  41 aa 21 53 65 61 72 63  |tring$).A.!Searc|
0000d110  68 24 3d a4 75 70 70 65  72 28 73 65 61 72 63 68  |h$=.upper(search|
0000d120  73 74 72 69 6e 67 24 29  0d 41 b4 1a e3 20 73 65  |string$).A... se|
0000d130  61 72 63 68 5f 6d 6f 6e  74 68 25 3d 30 20 b8 20  |arch_month%=0 . |
0000d140  35 39 0d 41 be 1e 69 63  6f 6e 5f 75 73 65 64 25  |59.A..icon_used%|
0000d150  3d a3 3a 73 75 62 5f 6e  75 6d 62 65 72 25 3d 31  |=.:sub_number%=1|
0000d160  0d 41 c8 37 c8 99 20 22  48 6f 75 72 67 6c 61 73  |.A.7.. "Hourglas|
0000d170  73 5f 50 65 72 63 65 6e  74 61 67 65 22 2c a8 28  |s_Percentage",.(|
0000d180  28 73 65 61 72 63 68 5f  6d 6f 6e 74 68 25 2f 36  |(search_month%/6|
0000d190  30 29 2a 31 30 30 29 0d  41 d2 2c e3 20 73 75 62  |0)*100).A.,. sub|
0000d1a0  5f 63 6f 75 6e 74 25 3d  30 20 b8 20 65 6e 74 72  |_count%=0 . entr|
0000d1b0  79 25 28 73 65 61 72 63  68 5f 6d 6f 6e 74 68 25  |y%(search_month%|
0000d1c0  29 2d 31 0d 41 dc 33 74  61 72 67 65 74 24 3d a4  |)-1.A.3target$=.|
0000d1d0  75 70 70 65 72 28 6e 61  6d 65 24 28 73 75 62 5f  |upper(name$(sub_|
0000d1e0  63 6f 75 6e 74 25 2c 73  65 61 72 63 68 5f 6d 6f  |count%,search_mo|
0000d1f0  6e 74 68 25 29 29 0d 41  e6 31 e3 20 62 25 3d 31  |nth%)).A.1. b%=1|
0000d200  20 b8 20 a9 20 74 61 72  67 65 74 24 3a 61 24 3d  | . . target$:a$=|
0000d210  c1 74 61 72 67 65 74 24  2c 62 25 2c a9 28 53 65  |.target$,b%,.(Se|
0000d220  61 72 63 68 24 29 29 0d  41 f0 42 e7 20 53 65 61  |arch$)).A.B. Sea|
0000d230  72 63 68 24 3d 61 24 20  8c 20 f2 61 64 64 5f 74  |rch$=a$ . .add_t|
0000d240  6f 5f 66 6f 75 6e 64 28  73 65 61 72 63 68 5f 6d  |o_found(search_m|
0000d250  6f 6e 74 68 25 2c 73 75  62 5f 6e 75 6d 62 65 72  |onth%,sub_number|
0000d260  25 29 3a e5 20 8d 60 7a  41 0d 41 fa 08 ed 20 62  |%):. .`zA.A... b|
0000d270  25 0d 42 04 10 ed 20 73  75 62 5f 63 6f 75 6e 74  |%.B... sub_count|
0000d280  25 0d 42 0e 2c e7 20 69  63 6f 6e 5f 75 73 65 64  |%.B.,. icon_used|
0000d290  25 3d b9 20 8c 20 66 6f  75 6e 64 69 63 6f 6e 25  |%=. . foundicon%|
0000d2a0  2b 3d 31 3a 66 6f 75 6e  64 25 2b 3d 31 0d 42 18  |+=1:found%+=1.B.|
0000d2b0  13 ed 20 73 65 61 72 63  68 5f 6d 6f 6e 74 68 25  |.. search_month%|
0000d2c0  0d 42 22 05 cb 0d 42 2c  2e f2 63 6c 6f 73 65 28  |.B"...B,..close(|
0000d2d0  73 65 61 72 63 68 25 29  3a f2 75 70 64 61 74 65  |search%):.update|
0000d2e0  5f 69 63 6f 6e 28 73 65  61 72 63 68 25 2c 32 2c  |_icon(search%,2,|
0000d2f0  22 22 29 0d 42 36 2f c8  99 20 22 57 69 6d 70 5f  |"").B6/.. "Wimp_|
0000d300  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 3a  |CreateMenu",,-1:|
0000d310  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
0000d320  66 22 0d 42 40 11 e7 20  66 6f 75 6e 64 25 3c 3e  |f".B@.. found%<>|
0000d330  30 20 8c 0d 42 4a 17 f2  6f 70 65 6e 28 73 65 61  |0 ..BJ..open(sea|
0000d340  72 63 68 66 6f 75 6e 64  25 29 0d 42 54 05 cc 0d  |rchfound%).BT...|
0000d350  42 5e 31 85 20 31 2c 22  27 22 2b 73 65 61 72 63  |B^1. 1,"'"+searc|
0000d360  68 73 74 72 69 6e 67 24  2b 22 27 20 63 6f 75 6c  |hstring$+"' coul|
0000d370  64 20 6e 6f 74 20 62 65  20 66 6f 75 6e 64 2e 22  |d not be found."|
0000d380  0d 42 68 05 cd 0d 42 72  9c e7 20 66 6f 75 6e 64  |.Bh...Br.. found|
0000d390  25 3e 31 30 20 8c 20 85  20 31 2c 22 27 22 2b 73  |%>10 . . 1,"'"+s|
0000d3a0  65 61 72 63 68 73 74 72  69 6e 67 24 2b 22 27 20  |earchstring$+"' |
0000d3b0  68 61 73 20 62 65 65 6e  20 66 6f 75 6e 64 20 69  |has been found i|
0000d3c0  6e 20 22 2b c3 28 66 6f  75 6e 64 25 29 2b 22 20  |n "+.(found%)+" |
0000d3d0  72 65 63 6f 72 64 73 2e  20 54 68 65 20 66 69 72  |records. The fir|
0000d3e0  73 74 20 31 30 20 6f 63  63 75 72 61 6e 63 65 73  |st 10 occurances|
0000d3f0  20 61 72 65 20 73 65 6c  65 63 74 61 62 6c 65 20  | are selectable |
0000d400  66 72 6f 6d 20 74 68 65  20 27 52 65 63 6f 72 64  |from the 'Record|
0000d410  73 20 46 6f 75 6e 64 27  20 77 69 6e 64 6f 77 2e  |s Found' window.|
0000d420  22 0d 42 7c 05 e1 0d 42  86 05 3a 0d 42 90 2a dd  |".B|...B..:.B.*.|
0000d430  f2 61 64 64 5f 74 6f 5f  66 6f 75 6e 64 28 66 6f  |.add_to_found(fo|
0000d440  75 6e 64 72 65 63 6f 72  64 25 2c 66 6f 75 6e 64  |undrecord%,found|
0000d450  73 75 62 25 29 0d 42 9a  15 e7 20 66 6f 75 6e 64  |sub%).B... found|
0000d460  69 63 6f 6e 25 3c 31 32  20 8c 0d 42 a4 29 73 65  |icon%<12 ..B.)se|
0000d470  6c 65 63 74 66 6f 75 6e  64 25 28 66 6f 75 6e 64  |lectfound%(found|
0000d480  69 63 6f 6e 25 29 3d 66  6f 75 6e 64 72 65 63 6f  |icon%)=foundreco|
0000d490  72 64 25 0d 42 ae 7a f2  75 70 64 61 74 65 5f 69  |rd%.B.z.update_i|
0000d4a0  63 6f 6e 28 73 65 61 72  63 68 66 6f 75 6e 64 25  |con(searchfound%|
0000d4b0  2c 66 6f 75 6e 64 69 63  6f 6e 25 2c 6d 6f 6e 74  |,foundicon%,mont|
0000d4c0  68 24 28 66 6f 75 6e 64  72 65 63 6f 72 64 25 20  |h$(foundrecord% |
0000d4d0  83 20 31 32 29 2b 22 20  22 2b c3 28 79 65 61 72  |. 12)+" "+.(year|
0000d4e0  25 2b 28 66 6f 75 6e 64  72 65 63 6f 72 64 25 20  |%+(foundrecord% |
0000d4f0  81 20 31 32 29 29 2b 22  20 28 22 2b c3 28 66 6f  |. 12))+" ("+.(fo|
0000d500  75 6e 64 73 75 62 25 29  2b 22 29 22 29 0d 42 b8  |undsub%)+")").B.|
0000d510  05 cd 0d 42 c2 1f 73 75  62 5f 6e 75 6d 62 65 72  |...B..sub_number|
0000d520  25 2b 3d 31 3a 69 63 6f  6e 5f 75 73 65 64 25 3d  |%+=1:icon_used%=|
0000d530  b9 0d 42 cc 05 e1 0d 42  d6 05 3a 0d 42 e0 14 dd  |..B....B..:.B...|
0000d540  a4 75 70 70 65 72 28 73  74 72 69 6e 67 24 29 0d  |.upper(string$).|
0000d550  42 ea 0b ea 20 6c 6f 6f  70 25 0d 42 f4 14 e7 20  |B... loop%.B... |
0000d560  a9 28 73 74 72 69 6e 67  24 29 3e 30 20 8c 0d 42  |.(string$)>0 ..B|
0000d570  fe 1c e3 20 6c 6f 6f 70  25 20 3d 20 31 20 b8 20  |... loop% = 1 . |
0000d580  a9 28 73 74 72 69 6e 67  24 29 0d 43 08 69 e7 20  |.(string$).C.i. |
0000d590  c1 73 74 72 69 6e 67 24  2c 6c 6f 6f 70 25 2c 31  |.string$,loop%,1|
0000d5a0  29 3e 3d 22 61 22 20 80  20 c1 73 74 72 69 6e 67  |)>="a" . .string|
0000d5b0  24 2c 6c 6f 6f 70 25 2c  31 29 3c 3d 22 7a 22 20  |$,loop%,1)<="z" |
0000d5c0  8c 20 c1 73 74 72 69 6e  67 24 2c 6c 6f 6f 70 25  |. .string$,loop%|
0000d5d0  2c 31 29 20 3d 20 bd 28  97 28 c1 73 74 72 69 6e  |,1) = .(.(.strin|
0000d5e0  67 24 2c 6c 6f 6f 70 25  2c 31 29 29 20 80 20 26  |g$,loop%,1)) . &|
0000d5f0  44 46 29 0d 43 12 05 ed  0d 43 1c 05 cd 0d 43 26  |DF).C....C....C&|
0000d600  0c 3d 73 74 72 69 6e 67  24 0d 43 30 05 3a 0d 43  |.=string$.C0.:.C|
0000d610  3a 0e dd f2 70 72 65 76  69 6f 75 73 0d 43 44 29  |:...previous.CD)|
0000d620  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 73 65 61  |.update_icon(sea|
0000d630  72 63 68 25 2c 32 2c 73  65 61 72 63 68 73 74 72  |rch%,2,searchstr|
0000d640  69 6e 67 24 29 0d 43 4e  1a f2 6d 6f 76 65 5f 63  |ing$).CN..move_c|
0000d650  61 72 65 74 28 73 65 61  72 63 68 25 2c 32 29 0d  |aret(search%,2).|
0000d660  43 58 05 e1 0d 43 62 05  3a 0d 43 6c 1a dd f2 72  |CX...Cb.:.Cl...r|
0000d670  65 5f 74 69 74 6c 65 28  6e 65 77 5f 74 69 74 6c  |e_title(new_titl|
0000d680  65 24 29 0d 43 76 12 21  71 25 3d 6d 61 69 6e 5f  |e$).Cv.!q%=main_|
0000d690  62 61 63 6b 25 0d 43 80  1f c8 99 20 22 57 69 6d  |back%.C.... "Wim|
0000d6a0  70 5f 47 65 74 57 69 6e  64 6f 77 49 6e 66 6f 22  |p_GetWindowInfo"|
0000d6b0  2c 2c 71 25 0d 43 8a 37  e7 20 28 28 71 25 21 36  |,,q%.C.7. ((q%!6|
0000d6c0  30 29 20 80 20 26 31 30  30 29 3d 30 20 8c 20 85  |0) . &100)=0 . .|
0000d6d0  20 31 2c 22 54 69 74 6c  65 20 69 73 6e 27 74 20  | 1,"Title isn't |
0000d6e0  69 6e 64 69 72 65 63 74  65 64 22 0d 43 94 17 24  |indirected".C..$|
0000d6f0  28 71 25 21 37 36 29 3d  6e 65 77 5f 74 69 74 6c  |(q%!76)=new_titl|
0000d700  65 24 0d 43 9e 4f e7 20  28 28 71 25 21 33 32 29  |e$.C.O. ((q%!32)|
0000d710  20 80 20 28 31 3c 3c 31  36 29 29 3c 3e 30 20 c8  | . (1<<16))<>0 .|
0000d720  99 20 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |. "Wimp_ForceRed|
0000d730  72 61 77 22 2c 2d 31 2c  71 25 21 34 2c 71 25 21  |raw",-1,q%!4,q%!|
0000d740  31 36 2c 71 25 21 31 32  2c 71 25 21 31 36 2b 34  |16,q%!12,q%!16+4|
0000d750  34 0d 43 a8 05 e1 0d 43  b2 05 3a 0d 43 bc 1a dd  |4.C....C..:.C...|
0000d760  f2 72 65 61 64 5f 61 63  63 6f 75 6e 74 5f 64 65  |.read_account_de|
0000d770  74 61 69 6c 73 0d 43 c6  2c 61 63 63 6f 75 6e 74  |tails.C.,account|
0000d780  5f 68 6f 6c 64 65 72 24  3d a4 69 6e 64 69 72 65  |_holder$=.indire|
0000d790  63 74 28 6d 61 69 6e 5f  62 61 63 6b 25 2c 32 34  |ct(main_back%,24|
0000d7a0  29 0d 43 d0 2c 61 63 63  6f 75 6e 74 5f 62 72 61  |).C.,account_bra|
0000d7b0  6e 63 68 24 3d a4 69 6e  64 69 72 65 63 74 28 6d  |nch$=.indirect(m|
0000d7c0  61 69 6e 5f 62 61 63 6b  25 2c 32 36 29 0d 43 da  |ain_back%,26).C.|
0000d7d0  2e 61 63 63 6f 75 6e 74  5f 73 6f 72 74 63 6f 64  |.account_sortcod|
0000d7e0  65 24 3d a4 69 6e 64 69  72 65 63 74 28 6d 61 69  |e$=.indirect(mai|
0000d7f0  6e 5f 62 61 63 6b 25 2c  32 37 29 0d 43 e4 2c 61  |n_back%,27).C.,a|
0000d800  63 63 6f 75 6e 74 5f 6e  75 6d 62 65 72 24 3d a4  |ccount_number$=.|
0000d810  69 6e 64 69 72 65 63 74  28 6d 61 69 6e 5f 62 61  |indirect(main_ba|
0000d820  63 6b 25 2c 32 39 29 0d  43 ee 05 e1 0d 43 f8 05  |ck%,29).C....C..|
0000d830  3a 0d 44 02 1c dd f2 75  70 64 61 74 65 5f 61 63  |:.D....update_ac|
0000d840  63 6f 75 6e 74 5f 64 65  74 61 69 6c 73 0d 44 0c  |count_details.D.|
0000d850  2f f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 6d 61  |/.update_icon(ma|
0000d860  69 6e 5f 62 61 63 6b 25  2c 32 34 2c 61 63 63 6f  |in_back%,24,acco|
0000d870  75 6e 74 5f 68 6f 6c 64  65 72 24 29 0d 44 16 2f  |unt_holder$).D./|
0000d880  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 6d 61 69  |.update_icon(mai|
0000d890  6e 5f 62 61 63 6b 25 2c  32 36 2c 61 63 63 6f 75  |n_back%,26,accou|
0000d8a0  6e 74 5f 62 72 61 6e 63  68 24 29 0d 44 20 31 f2  |nt_branch$).D 1.|
0000d8b0  75 70 64 61 74 65 5f 69  63 6f 6e 28 6d 61 69 6e  |update_icon(main|
0000d8c0  5f 62 61 63 6b 25 2c 32  37 2c 61 63 63 6f 75 6e  |_back%,27,accoun|
0000d8d0  74 5f 73 6f 72 74 63 6f  64 65 24 29 0d 44 2a 2f  |t_sortcode$).D*/|
0000d8e0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 6d 61 69  |.update_icon(mai|
0000d8f0  6e 5f 62 61 63 6b 25 2c  32 39 2c 61 63 63 6f 75  |n_back%,29,accou|
0000d900  6e 74 5f 6e 75 6d 62 65  72 24 29 0d 44 34 05 e1  |nt_number$).D4..|
0000d910  0d 44 3e 05 3a 0d 44 48  11 dd f2 68 65 6c 70 28  |.D>.:.DH...help(|
0000d920  68 65 6c 70 24 29 0d 44  52 08 ea 20 43 25 0d 44  |help$).DR.. C%.D|
0000d930  5c 0f 43 25 3d a9 68 65  6c 70 24 2b 31 0d 44 66  |\.C%=.help$+1.Df|
0000d940  0e 71 25 21 31 32 3d 71  25 21 38 0d 44 70 0e 71  |.q%!12=q%!8.Dp.q|
0000d950  25 21 31 36 3d 26 35 30  33 0d 44 7a 15 24 28 71  |%!16=&503.Dz.$(q|
0000d960  25 2b 32 30 29 3d 68 65  6c 70 24 2b bd 30 0d 44  |%+20)=help$+.0.D|
0000d970  84 12 21 71 25 3d 28 32  34 2b 43 25 29 80 ac 33  |..!q%=(24+C%)..3|
0000d980  0d 44 8e 24 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |.D.$.. "Wimp_Sen|
0000d990  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 71 25 2c  |dMessage",17,q%,|
0000d9a0  71 25 21 34 0d 44 98 05  cd 0d 44 a2 05 e1 0d 44  |q%!4.D....D....D|
0000d9b0  ac 05 3a 0d 44 b6 0f dd  a4 68 65 6c 70 5f 74 65  |..:.D....help_te|
0000d9c0  78 74 0d 44 c0 0b ea 20  74 65 78 74 24 0d 44 ca  |xt.D... text$.D.|
0000d9d0  0c 74 65 78 74 24 3d 22  22 0d 44 d4 0e c8 8e 20  |.text$="".D.... |
0000d9e0  71 25 21 33 32 20 ca 0d  44 de 1f c9 20 2d 32 3a  |q%!32 ..D... -2:|
0000d9f0  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 49 63 6f  |text$=.ms_0("Ico|
0000da00  6e 42 61 72 22 29 0d 44  e8 1b c9 20 6d 61 69 6e  |nBar").D... main|
0000da10  5f 62 61 63 6b 25 3a c8  8e 20 71 25 21 33 36 20  |_back%:.. q%!36 |
0000da20  ca 0d 44 f2 20 c9 20 30  3a 74 65 78 74 24 3d a4  |..D. . 0:text$=.|
0000da30  6d 73 5f 30 28 22 4c 6f  6e 67 48 79 70 65 72 22  |ms_0("LongHyper"|
0000da40  29 0d 44 fc 1f c9 20 37  3a 74 65 78 74 24 3d a4  |).D... 7:text$=.|
0000da50  6d 73 5f 30 28 22 4c 6f  6e 67 53 61 76 65 22 29  |ms_0("LongSave")|
0000da60  0d 45 06 20 c9 20 38 3a  74 65 78 74 24 3d a4 6d  |.E. . 8:text$=.m|
0000da70  73 5f 30 28 22 4c 6f 6e  67 50 72 69 6e 74 22 29  |s_0("LongPrint")|
0000da80  0d 45 10 21 c9 20 39 3a  74 65 78 74 24 3d a4 6d  |.E.!. 9:text$=.m|
0000da90  73 5f 30 28 22 4c 6f 6e  67 43 72 65 64 69 74 22  |s_0("LongCredit"|
0000daa0  29 0d 45 1a 21 c9 20 31  30 3a 74 65 78 74 24 3d  |).E.!. 10:text$=|
0000dab0  a4 6d 73 5f 30 28 22 4c  6f 6e 67 44 65 62 69 74  |.ms_0("LongDebit|
0000dac0  22 29 0d 45 24 21 c9 20  31 31 3a 74 65 78 74 24  |").E$!. 11:text$|
0000dad0  3d a4 6d 73 5f 30 28 22  4c 6f 6e 67 4d 6f 6e 74  |=.ms_0("LongMont|
0000dae0  68 22 29 0d 45 2e 20 c9  20 31 32 3a 74 65 78 74  |h").E. . 12:text|
0000daf0  24 3d a4 6d 73 5f 30 28  22 4c 6f 6e 67 59 65 61  |$=.ms_0("LongYea|
0000db00  72 22 29 0d 45 38 21 c9  20 31 33 3a 74 65 78 74  |r").E8!. 13:text|
0000db10  24 3d a4 6d 73 5f 30 28  22 4c 6f 6e 67 4d 4d 65  |$=.ms_0("LongMMe|
0000db20  6e 75 22 29 0d 45 42 21  c9 20 31 34 3a 74 65 78  |nu").EB!. 14:tex|
0000db30  74 24 3d a4 6d 73 5f 30  28 22 4c 6f 6e 67 59 4d  |t$=.ms_0("LongYM|
0000db40  65 6e 75 22 29 0d 45 4c  22 c9 20 31 35 3a 74 65  |enu").EL". 15:te|
0000db50  78 74 24 3d a4 6d 73 5f  30 28 22 4c 6f 6e 67 44  |xt$=.ms_0("LongD|
0000db60  65 6c 65 74 65 22 29 0d  45 56 21 c9 20 31 36 3a  |elete").EV!. 16:|
0000db70  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 4c 6f 6e  |text$=.ms_0("Lon|
0000db80  67 41 6d 65 6e 64 22 29  0d 45 60 22 c9 20 31 38  |gAmend").E`". 18|
0000db90  3a 74 65 78 74 24 3d a4  6d 73 5f 30 28 22 4c 6f  |:text$=.ms_0("Lo|
0000dba0  6e 67 53 4f 72 64 65 72  22 29 0d 45 6a 22 c9 20  |ngSOrder").Ej". |
0000dbb0  31 39 3a 74 65 78 74 24  3d a4 6d 73 5f 30 28 22  |19:text$=.ms_0("|
0000dbc0  4c 6f 6e 67 53 65 61 72  63 68 22 29 0d 45 74 3e  |LongSearch").Et>|
0000dbd0  c9 20 32 30 2c 32 31 2c  32 32 2c 32 33 2c 32 34  |. 20,21,22,23,24|
0000dbe0  2c 32 35 2c 32 36 2c 32  37 2c 32 38 2c 32 39 3a  |,25,26,27,28,29:|
0000dbf0  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 4c 6f 6e  |text$=.ms_0("Lon|
0000dc00  67 44 65 74 61 69 6c 73  22 29 0d 45 7e 05 cb 0d  |gDetails").E~...|
0000dc10  45 88 29 c9 20 73 63 72  6f 6c 6c 79 25 3a 74 65  |E.). scrolly%:te|
0000dc20  78 74 24 3d a4 6d 73 5f  30 28 22 4c 6f 6e 67 41  |xt$=.ms_0("LongA|
0000dc30  63 63 6f 75 6e 74 22 29  0d 45 92 1e c9 20 66 69  |ccount").E... fi|
0000dc40  6c 65 5f 73 61 76 65 62  6f 78 25 3a c8 8e 20 71  |le_savebox%:.. q|
0000dc50  25 21 33 36 20 ca 0d 45  9c 1b c9 20 30 3a 74 65  |%!36 ..E... 0:te|
0000dc60  78 74 24 3d a4 6d 73 5f  30 28 22 44 72 61 67 22  |xt$=.ms_0("Drag"|
0000dc70  29 0d 45 a6 1b c9 20 31  3a 74 65 78 74 24 3d a4  |).E... 1:text$=.|
0000dc80  6d 73 5f 30 28 22 46 69  6c 65 22 29 0d 45 b0 1b  |ms_0("File").E..|
0000dc90  c9 20 32 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  |. 2:text$=.ms_0(|
0000dca0  22 53 61 76 65 22 29 0d  45 ba 05 cb 0d 45 c4 1e  |"Save").E....E..|
0000dcb0  c9 20 74 65 78 74 5f 73  61 76 65 62 6f 78 25 3a  |. text_savebox%:|
0000dcc0  c8 8e 20 71 25 21 33 36  20 ca 0d 45 ce 1f c9 20  |.. q%!36 ..E... |
0000dcd0  30 3a 74 65 78 74 24 3d  a4 6d 73 5f 30 28 22 44  |0:text$=.ms_0("D|
0000dce0  72 61 67 54 65 78 74 22  29 0d 45 d8 1f c9 20 31  |ragText").E... 1|
0000dcf0  3a 74 65 78 74 24 3d a4  6d 73 5f 30 28 22 46 69  |:text$=.ms_0("Fi|
0000dd00  6c 65 54 65 78 74 22 29  0d 45 e2 1f c9 20 32 3a  |leText").E... 2:|
0000dd10  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 53 61 76  |text$=.ms_0("Sav|
0000dd20  65 54 65 78 74 22 29 0d  45 ec 05 cb 0d 45 f6 25  |eText").E....E.%|
0000dd30  c9 20 69 6e 66 6f 62 6f  78 25 3a 74 65 78 74 24  |. infobox%:text$|
0000dd40  3d a4 6d 73 5f 30 28 22  41 64 64 72 65 73 73 22  |=.ms_0("Address"|
0000dd50  29 0d 46 00 1a c9 20 70  72 69 6e 74 62 6f 78 25  |).F... printbox%|
0000dd60  3a c8 8e 20 71 25 21 33  36 20 ca 0d 46 0a 26 c9  |:.. q%!36 ..F.&.|
0000dd70  20 34 3a 74 65 78 74 24  3d a4 6d 73 5f 31 28 22  | 4:text$=.ms_1("|
0000dd80  51 75 61 6c 69 74 79 22  2c 22 64 72 61 66 74 22  |Quality","draft"|
0000dd90  29 0d 46 14 34 c9 20 35  3a 74 65 78 74 24 3d a4  |).F.4. 5:text$=.|
0000dda0  6d 73 5f 31 28 22 51 75  61 6c 69 74 79 22 2c 22  |ms_1("Quality","|
0000ddb0  6e 65 61 72 20 6c 65 74  74 65 72 20 71 75 61 6c  |near letter qual|
0000ddc0  69 74 79 22 29 0d 46 1e  1e c9 20 36 3a 74 65 78  |ity").F... 6:tex|
0000ddd0  74 24 3d a4 6d 73 5f 30  28 22 50 72 69 6e 74 47  |t$=.ms_0("PrintG|
0000dde0  6f 22 29 0d 46 28 32 c9  20 31 30 3a 74 65 78 74  |o").F(2. 10:text|
0000ddf0  24 3d a4 6d 73 5f 31 28  22 50 72 69 6e 74 57 68  |$=.ms_1("PrintWh|
0000de00  61 74 22 2c 22 74 68 65  20 77 68 6f 6c 65 20 66  |at","the whole f|
0000de10  69 6c 65 22 29 0d 46 32  32 c9 20 31 31 3a 74 65  |ile").F22. 11:te|
0000de20  78 74 24 3d a4 6d 73 5f  31 28 22 50 72 69 6e 74  |xt$=.ms_1("Print|
0000de30  57 68 61 74 22 2c 22 61  20 73 69 6e 67 6c 65 20  |What","a single |
0000de40  6d 6f 6e 74 68 22 29 0d  46 3c 31 c9 20 31 32 3a  |month").F<1. 12:|
0000de50  74 65 78 74 24 3d a4 6d  73 5f 31 28 22 50 72 69  |text$=.ms_1("Pri|
0000de60  6e 74 57 68 61 74 22 2c  22 61 20 73 69 6e 67 6c  |ntWhat","a singl|
0000de70  65 20 79 65 61 72 22 29  0d 46 46 05 cb 0d 46 50  |e year").FF...FP|
0000de80  27 c9 20 73 65 61 72 63  68 66 6f 75 6e 64 25 3a  |'. searchfound%:|
0000de90  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 46 6f 75  |text$=.ms_0("Fou|
0000dea0  6e 64 22 29 0d 46 5a 18  c9 20 73 65 61 72 63 68  |nd").FZ.. search|
0000deb0  25 3a c8 8e 20 71 25 21  33 36 20 ca 0d 46 64 21  |%:.. q%!36 ..Fd!|
0000dec0  c9 20 32 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  |. 2:text$=.ms_0(|
0000ded0  22 53 65 61 72 63 68 54  65 78 74 22 29 0d 46 6e  |"SearchText").Fn|
0000dee0  1f c9 20 35 3a 74 65 78  74 24 3d a4 6d 73 5f 30  |.. 5:text$=.ms_0|
0000def0  28 22 53 65 61 72 63 68  47 6f 22 29 0d 46 78 21  |("SearchGo").Fx!|
0000df00  c9 20 36 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  |. 6:text$=.ms_0(|
0000df10  22 53 65 61 72 63 68 50  72 65 76 22 29 0d 46 82  |"SearchPrev").F.|
0000df20  05 cb 0d 46 8c 05 7f 0d  46 96 20 e7 20 56 65 72  |...F....F. . Ver|
0000df30  73 69 6f 6e 3e 3d 32 31  38 20 80 20 71 25 21 33  |sion>=218 . q%!3|
0000df40  36 3c 3e 2d 31 20 8c 0d  46 a0 30 c8 99 20 22 57  |6<>-1 ..F.0.. "W|
0000df50  69 6d 70 5f 47 65 74 4d  65 6e 75 53 74 61 74 65  |imp_GetMenuState|
0000df60  22 2c 31 2c 71 25 2b 31  30 32 34 2c 71 25 21 33  |",1,q%+1024,q%!3|
0000df70  32 2c 71 25 21 33 36 0d  46 aa 14 c8 8e 20 73 65  |2,q%!36.F.... se|
0000df80  6c 65 63 74 6d 65 6e 75  25 20 ca 0d 46 b4 1c c9  |lectmenu% ..F...|
0000df90  20 69 63 6f 6e 6d 65 6e  75 25 3a c8 8e 20 71 25  | iconmenu%:.. q%|
0000dfa0  21 31 30 32 34 20 ca 0d  46 be 1f c9 20 30 3a 74  |!1024 ..F... 0:t|
0000dfb0  65 78 74 24 3d a4 6d 73  5f 30 28 22 49 63 6f 6e  |ext$=.ms_0("Icon|
0000dfc0  4d 6e 75 31 22 29 0d 46  c8 1f c9 20 31 3a 74 65  |Mnu1").F... 1:te|
0000dfd0  78 74 24 3d a4 6d 73 5f  30 28 22 49 63 6f 6e 4d  |xt$=.ms_0("IconM|
0000dfe0  6e 75 32 22 29 0d 46 d2  1f c9 20 32 3a 74 65 78  |nu2").F... 2:tex|
0000dff0  74 24 3d a4 6d 73 5f 30  28 22 49 63 6f 6e 4d 6e  |t$=.ms_0("IconMn|
0000e000  75 33 22 29 0d 46 dc 05  cb 0d 46 e6 1c c9 20 6d  |u3").F....F... m|
0000e010  61 69 6e 6d 65 6e 75 25  3a c8 8e 20 71 25 21 31  |ainmenu%:.. q%!1|
0000e020  30 32 34 20 ca 0d 46 f0  1f c9 20 30 3a 74 65 78  |024 ..F... 0:tex|
0000e030  74 24 3d a4 6d 73 5f 30  28 22 49 63 6f 6e 4d 6e  |t$=.ms_0("IconMn|
0000e040  75 31 22 29 0d 46 fa 1f  c9 20 31 3a 74 65 78 74  |u1").F... 1:text|
0000e050  24 3d a4 6d 73 5f 30 28  22 49 63 6f 6e 4d 6e 75  |$=.ms_0("IconMnu|
0000e060  32 22 29 0d 47 04 1f c9  20 32 3a 74 65 78 74 24  |2").G... 2:text$|
0000e070  3d a4 6d 73 5f 30 28 22  49 63 6f 6e 4d 6e 75 33  |=.ms_0("IconMnu3|
0000e080  22 29 0d 47 0e 14 c9 20  33 3a c8 8e 20 71 25 21  |").G... 3:.. q%!|
0000e090  31 30 32 38 20 ca 0d 47  18 20 c9 20 2d 31 3a 74  |1028 ..G. . -1:t|
0000e0a0  65 78 74 24 3d a4 6d 73  5f 30 28 22 4d 61 69 6e  |ext$=.ms_0("Main|
0000e0b0  4d 6e 75 31 22 29 0d 47  22 1f c9 20 30 3a 74 65  |Mnu1").G".. 0:te|
0000e0c0  78 74 24 3d a4 6d 73 5f  30 28 22 46 69 6c 65 4d  |xt$=.ms_0("FileM|
0000e0d0  6e 75 31 22 29 0d 47 2c  1f c9 20 31 3a 74 65 78  |nu1").G,.. 1:tex|
0000e0e0  74 24 3d a4 6d 73 5f 30  28 22 46 69 6c 65 4d 6e  |t$=.ms_0("FileMn|
0000e0f0  75 32 22 29 0d 47 36 14  c9 20 32 3a c8 8e 20 71  |u2").G6.. 2:.. q|
0000e100  25 21 31 30 33 32 20 ca  0d 47 40 20 c9 20 2d 31  |%!1032 ..G@ . -1|
0000e110  3a 74 65 78 74 24 3d a4  6d 73 5f 30 28 22 46 69  |:text$=.ms_0("Fi|
0000e120  6c 65 4d 6e 75 33 22 29  0d 47 4a 1f c9 20 30 3a  |leMnu3").GJ.. 0:|
0000e130  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 53 61 76  |text$=.ms_0("Sav|
0000e140  65 4d 6e 75 31 22 29 0d  47 54 1f c9 20 31 3a 74  |eMnu1").GT.. 1:t|
0000e150  65 78 74 24 3d a4 6d 73  5f 30 28 22 53 61 76 65  |ext$=.ms_0("Save|
0000e160  4d 6e 75 32 22 29 0d 47  5e 05 cb 0d 47 68 05 cb  |Mnu2").G^...Gh..|
0000e170  0d 47 72 1f c9 20 34 3a  74 65 78 74 24 3d a4 6d  |.Gr.. 4:text$=.m|
0000e180  73 5f 30 28 22 4d 61 69  6e 4d 6e 75 32 22 29 0d  |s_0("MainMnu2").|
0000e190  47 7c 14 c9 20 35 3a c8  8e 20 71 25 21 31 30 32  |G|.. 5:.. q%!102|
0000e1a0  38 20 ca 0d 47 86 20 c9  20 2d 31 3a 74 65 78 74  |8 ..G. . -1:text|
0000e1b0  24 3d a4 6d 73 5f 30 28  22 4d 61 69 6e 4d 6e 75  |$=.ms_0("MainMnu|
0000e1c0  33 22 29 0d 47 90 14 c9  20 30 3a c8 8e 20 71 25  |3").G... 0:.. q%|
0000e1d0  21 31 30 33 32 20 ca 0d  47 9a 20 c9 20 2d 31 3a  |!1032 ..G. . -1:|
0000e1e0  74 65 78 74 24 3d a4 6d  73 5f 30 28 22 53 74 61  |text$=.ms_0("Sta|
0000e1f0  74 4d 6e 75 31 22 29 0d  47 a4 2d 7f 3a 74 65 78  |tMnu1").G.-.:tex|
0000e200  74 24 3d a4 6d 73 5f 31  28 22 4d 6f 6e 74 68 4d  |t$=.ms_1("MonthM|
0000e210  6e 75 22 2c 6d 6f 6e 74  68 24 28 71 25 21 31 30  |nu",month$(q%!10|
0000e220  33 32 29 29 0d 47 ae 05  cb 0d 47 b8 14 c9 20 31  |32)).G....G... 1|
0000e230  3a c8 8e 20 71 25 21 31  30 33 32 20 ca 0d 47 c2  |:.. q%!1032 ..G.|
0000e240  20 c9 20 2d 31 3a 74 65  78 74 24 3d a4 6d 73 5f  | . -1:text$=.ms_|
0000e250  30 28 22 53 74 61 74 4d  6e 75 32 22 29 0d 47 cc  |0("StatMnu2").G.|
0000e260  28 c9 20 30 3a 74 65 78  74 24 3d a4 6d 73 5f 31  |(. 0:text$=.ms_1|
0000e270  28 22 59 65 61 72 4d 65  6e 75 22 2c c3 28 79 65  |("YearMenu",.(ye|
0000e280  61 72 25 29 29 0d 47 d6  2a c9 20 31 3a 74 65 78  |ar%)).G.*. 1:tex|
0000e290  74 24 3d a4 6d 73 5f 31  28 22 59 65 61 72 4d 65  |t$=.ms_1("YearMe|
0000e2a0  6e 75 22 2c c3 28 79 65  61 72 25 2b 31 29 29 0d  |nu",.(year%+1)).|
0000e2b0  47 e0 2a c9 20 32 3a 74  65 78 74 24 3d a4 6d 73  |G.*. 2:text$=.ms|
0000e2c0  5f 31 28 22 59 65 61 72  4d 65 6e 75 22 2c c3 28  |_1("YearMenu",.(|
0000e2d0  79 65 61 72 25 2b 32 29  29 0d 47 ea 2a c9 20 33  |year%+2)).G.*. 3|
0000e2e0  3a 74 65 78 74 24 3d a4  6d 73 5f 31 28 22 59 65  |:text$=.ms_1("Ye|
0000e2f0  61 72 4d 65 6e 75 22 2c  c3 28 79 65 61 72 25 2b  |arMenu",.(year%+|
0000e300  33 29 29 0d 47 f4 2a c9  20 34 3a 74 65 78 74 24  |3)).G.*. 4:text$|
0000e310  3d a4 6d 73 5f 31 28 22  59 65 61 72 4d 65 6e 75  |=.ms_1("YearMenu|
0000e320  22 2c c3 28 79 65 61 72  25 2b 34 29 29 0d 47 fe  |",.(year%+4)).G.|
0000e330  05 cb 0d 48 08 05 cb 0d  48 12 14 c9 20 36 3a c8  |...H....H... 6:.|
0000e340  8e 20 71 25 21 31 30 32  38 20 ca 0d 48 1c 20 c9  |. q%!1028 ..H. .|
0000e350  20 2d 31 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  | -1:text$=.ms_0(|
0000e360  22 4d 61 69 6e 4d 6e 75  34 22 29 0d 48 26 1f c9  |"MainMnu4").H&..|
0000e370  20 30 3a 74 65 78 74 24  3d a4 6d 73 5f 30 28 22  | 0:text$=.ms_0("|
0000e380  41 63 74 6e 4d 6e 75 31  22 29 0d 48 30 1f c9 20  |ActnMnu1").H0.. |
0000e390  31 3a 74 65 78 74 24 3d  a4 6d 73 5f 30 28 22 41  |1:text$=.ms_0("A|
0000e3a0  63 74 6e 4d 6e 75 32 22  29 0d 48 3a 1f c9 20 32  |ctnMnu2").H:.. 2|
0000e3b0  3a 74 65 78 74 24 3d a4  6d 73 5f 30 28 22 41 63  |:text$=.ms_0("Ac|
0000e3c0  74 6e 4d 6e 75 33 22 29  0d 48 44 2d c9 20 33 3a  |tnMnu3").HD-. 3:|
0000e3d0  e7 20 ac 20 73 68 61 64  65 64 25 20 8c 20 74 65  |. . shaded% . te|
0000e3e0  78 74 24 3d a4 6d 73 5f  30 28 22 41 63 74 6e 4d  |xt$=.ms_0("ActnM|
0000e3f0  6e 75 34 22 29 0d 48 4e  2d c9 20 34 3a e7 20 ac  |nu4").HN-. 4:. .|
0000e400  20 73 68 61 64 65 64 25  20 8c 20 74 65 78 74 24  | shaded% . text$|
0000e410  3d a4 6d 73 5f 30 28 22  41 63 74 6e 4d 6e 75 35  |=.ms_0("ActnMnu5|
0000e420  22 29 0d 48 58 05 cb 0d  48 62 1f c9 20 37 3a 74  |").HX...Hb.. 7:t|
0000e430  65 78 74 24 3d a4 6d 73  5f 30 28 22 4d 61 69 6e  |ext$=.ms_0("Main|
0000e440  4d 6e 75 35 22 29 0d 48  6c 05 cb 0d 48 76 38 c9  |Mnu5").Hl...Hv8.|
0000e450  20 6d 6f 6e 74 68 6d 65  6e 75 25 3a 74 65 78 74  | monthmenu%:text|
0000e460  24 3d a4 6d 73 5f 31 28  22 4d 6f 6e 74 68 4d 6e  |$=.ms_1("MonthMn|
0000e470  75 22 2c 6d 6f 6e 74 68  24 28 71 25 21 31 30 32  |u",month$(q%!102|
0000e480  34 29 29 0d 48 80 1c c9  20 79 65 61 72 6d 65 6e  |4)).H... yearmen|
0000e490  75 25 3a c8 8e 20 71 25  21 31 30 32 34 20 ca 0d  |u%:.. q%!1024 ..|
0000e4a0  48 8a 28 c9 20 30 3a 74  65 78 74 24 3d a4 6d 73  |H.(. 0:text$=.ms|
0000e4b0  5f 31 28 22 59 65 61 72  4d 65 6e 75 22 2c c3 28  |_1("YearMenu",.(|
0000e4c0  79 65 61 72 25 29 29 0d  48 94 2a c9 20 31 3a 74  |year%)).H.*. 1:t|
0000e4d0  65 78 74 24 3d a4 6d 73  5f 31 28 22 59 65 61 72  |ext$=.ms_1("Year|
0000e4e0  4d 65 6e 75 22 2c c3 28  79 65 61 72 25 2b 31 29  |Menu",.(year%+1)|
0000e4f0  29 0d 48 9e 2a c9 20 32  3a 74 65 78 74 24 3d a4  |).H.*. 2:text$=.|
0000e500  6d 73 5f 31 28 22 59 65  61 72 4d 65 6e 75 22 2c  |ms_1("YearMenu",|
0000e510  c3 28 79 65 61 72 25 2b  32 29 29 0d 48 a8 2a c9  |.(year%+2)).H.*.|
0000e520  20 33 3a 74 65 78 74 24  3d a4 6d 73 5f 31 28 22  | 3:text$=.ms_1("|
0000e530  59 65 61 72 4d 65 6e 75  22 2c c3 28 79 65 61 72  |YearMenu",.(year|
0000e540  25 2b 33 29 29 0d 48 b2  2a c9 20 34 3a 74 65 78  |%+3)).H.*. 4:tex|
0000e550  74 24 3d a4 6d 73 5f 31  28 22 59 65 61 72 4d 65  |t$=.ms_1("YearMe|
0000e560  6e 75 22 2c c3 28 79 65  61 72 25 2b 34 29 29 0d  |nu",.(year%+4)).|
0000e570  48 bc 05 cb 0d 48 c6 05  cb 0d 48 d0 05 cd 0d 48  |H....H....H....H|
0000e580  da 05 cb 0d 48 e4 0a 3d  74 65 78 74 24 0d 48 ee  |....H..=text$.H.|
0000e590  05 3a 0d 48 f8 12 dd f2  70 72 69 6e 74 5f 64 72  |.:.H....print_dr|
0000e5a0  69 76 65 72 0d 49 02 19  ea 20 63 6f 75 6e 74 25  |iver.I... count%|
0000e5b0  2c 64 6f 77 6e 25 2c 61  6d 2c 74 6f 74 0d 49 0c  |,down%,am,tot.I.|
0000e5c0  15 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
0000e5d0  6e 22 0d 49 16 19 43 48  25 3d ae 22 50 72 69 6e  |n".I..CH%=."Prin|
0000e5e0  74 65 72 3a 24 2e 46 69  6c 65 22 0d 49 20 12 f2  |ter:$.File".I ..|
0000e5f0  72 69 73 63 6f 73 5f 68  65 61 64 65 72 0d 49 2a  |riscos_header.I*|
0000e600  14 c8 8e 20 70 72 69 6e  74 5f 77 68 61 74 24 20  |... print_what$ |
0000e610  ca 0d 49 34 1a c9 20 22  41 6c 6c 22 3a 66 72 6f  |..I4.. "All":fro|
0000e620  6d 25 3d 30 3a 74 6f 25  3d 35 39 0d 49 3e 37 c9  |m%=0:to%=59.I>7.|
0000e630  20 22 4d 6f 6e 74 68 22  3a 66 72 6f 6d 25 3d 6d  | "Month":from%=m|
0000e640  6f 6e 74 68 5f 74 6f 5f  70 72 69 6e 74 25 3a 74  |onth_to_print%:t|
0000e650  6f 25 3d 6d 6f 6e 74 68  5f 74 6f 5f 70 72 69 6e  |o%=month_to_prin|
0000e660  74 25 0d 49 48 39 c9 20  22 59 65 61 72 22 3a 66  |t%.IH9. "Year":f|
0000e670  72 6f 6d 25 3d 6d 6f 6e  74 68 5f 74 6f 5f 70 72  |rom%=month_to_pr|
0000e680  69 6e 74 25 3a 74 6f 25  3d 6d 6f 6e 74 68 5f 74  |int%:to%=month_t|
0000e690  6f 5f 70 72 69 6e 74 25  2b 31 31 0d 49 52 05 cb  |o_print%+11.IR..|
0000e6a0  0d 49 5c 1d e3 20 73 61  76 65 5f 6d 6f 6e 74 68  |.I\.. save_month|
0000e6b0  25 3d 66 72 6f 6d 25 20  b8 20 74 6f 25 0d 49 66  |%=from% . to%.If|
0000e6c0  36 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 50  |6.. "Hourglass_P|
0000e6d0  65 72 63 65 6e 74 61 67  65 22 2c a8 28 28 73 61  |ercentage",.((sa|
0000e6e0  76 65 5f 6d 6f 6e 74 68  25 2f 74 6f 25 29 2a 31  |ve_month%/to%)*1|
0000e6f0  30 30 29 0d 49 70 1e f2  72 69 73 63 6f 73 5f 6d  |00).Ip..riscos_m|
0000e700  6f 6e 74 68 28 73 61 76  65 5f 6d 6f 6e 74 68 25  |onth(save_month%|
0000e710  29 0d 49 7a 11 ed 20 73  61 76 65 5f 6d 6f 6e 74  |).Iz.. save_mont|
0000e720  68 25 0d 49 84 09 d9 23  43 48 25 0d 49 8e 16 c8  |h%.I...#CH%.I...|
0000e730  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
0000e740  22 0d 49 98 05 e1 0d 49  a2 05 3a 0d 49 ac 1a dd  |".I....I..:.I...|
0000e750  f2 63 68 65 63 6b 5f 70  72 69 6e 74 65 72 5f 64  |.check_printer_d|
0000e760  72 69 76 65 72 0d 49 b6  2e f2 75 70 64 61 74 65  |river.I...update|
0000e770  5f 69 63 6f 6e 28 70 72  69 6e 74 62 6f 78 25 2c  |_icon(printbox%,|
0000e780  32 32 2c 22 4e 6f 74 20  69 6e 73 74 61 6c 6c 65  |22,"Not installe|
0000e790  64 22 29 0d 49 c0 19 ea  85 3a ee 85 ea 3a f7 85  |d").I....:...:..|
0000e7a0  3a 70 64 72 69 76 65 72  3d a3 3a e1 0d 49 ca 19  |:pdriver=.:..I..|
0000e7b0  24 62 6c 6f 63 6b 25 3d  22 50 72 69 6e 74 65 72  |$block%="Printer|
0000e7c0  24 22 2b bd 30 0d 49 d4  37 c8 99 20 22 4f 53 5f  |$"+.0.I.7.. "OS_|
0000e7d0  52 65 61 64 56 61 72 56  61 6c 22 2c 62 6c 6f 63  |ReadVarVal",bloc|
0000e7e0  6b 25 2c 6f 6c 64 62 6c  6f 63 6b 25 2c 32 35 35  |k%,oldblock%,255|
0000e7f0  2c 30 2c 30 20 b8 2c 2c  6c 65 6e 25 0d 49 de 15  |,0,0 .,,len%.I..|
0000e800  6f 6c 64 62 6c 6f 63 6b  25 3f 6c 65 6e 25 3d 31  |oldblock%?len%=1|
0000e810  33 0d 49 e8 46 e7 20 24  6f 6c 64 62 6c 6f 63 6b  |3.I.F. $oldblock|
0000e820  25 3c 3e 22 22 20 8c 20  f2 75 70 64 61 74 65 5f  |%<>"" . .update_|
0000e830  69 63 6f 6e 28 70 72 69  6e 74 62 6f 78 25 2c 32  |icon(printbox%,2|
0000e840  32 2c 24 6f 6c 64 62 6c  6f 63 6b 25 29 3a 70 64  |2,$oldblock%):pd|
0000e850  72 69 76 65 72 3d b9 0d  49 f2 05 e1 0d 49 fc 05  |river=..I....I..|
0000e860  3a 0d 4a 06 17 dd f2 66  69 6c 65 5f 64 6f 75 62  |:.J....file_doub|
0000e870  6c 65 5f 63 6c 69 63 6b  0d 4a 10 1d c8 99 20 22  |le_click.J.... "|
0000e880  4f 53 5f 47 65 74 45 6e  76 22 20 b8 20 43 6f 6d  |OS_GetEnv" . Com|
0000e890  6d 61 6e 64 24 0d 4a 1a  1b 49 25 3d a7 43 6f 6d  |mand$.J..I%=.Com|
0000e8a0  6d 61 6e 64 24 2c 22 20  2d 4c 6f 61 64 20 22 29  |mand$," -Load ")|
0000e8b0  0d 4a 24 0a e7 20 49 25  20 8c 0d 4a 2e 12 49 25  |.J$.. I% ..J..I%|
0000e8c0  2b 3d a9 22 20 2d 4c 6f  61 64 20 22 0d 4a 38 22  |+=." -Load ".J8"|
0000e8d0  c8 95 20 c1 43 6f 6d 6d  61 6e 64 24 2c 49 25 2c  |.. .Command$,I%,|
0000e8e0  31 29 3d 22 20 22 3a 49  25 2b 3d 31 3a ce 0d 4a  |1)=" ":I%+=1:..J|
0000e8f0  42 1b 46 69 6c 65 4e 61  6d 65 24 3d c1 43 6f 6d  |B.FileName$=.Com|
0000e900  6d 61 6e 64 24 2c 49 25  29 0d 4a 4c 2f 46 69 6c  |mand$,I%).JL/Fil|
0000e910  65 4e 61 6d 65 24 3d c0  46 69 6c 65 4e 61 6d 65  |eName$=.FileName|
0000e920  24 2c a7 46 69 6c 65 4e  61 6d 65 24 2b 22 20 22  |$,.FileName$+" "|
0000e930  2c 22 20 22 29 2d 31 29  0d 4a 56 2b e7 20 46 69  |," ")-1).JV+. Fi|
0000e940  6c 65 4e 61 6d 65 24 3c  3e 22 22 20 8c 20 f2 6c  |leName$<>"" . .l|
0000e950  6f 61 64 5f 64 61 74 61  28 46 69 6c 65 4e 61 6d  |oad_data(FileNam|
0000e960  65 24 29 0d 4a 60 05 cd  0d 4a 6a 05 e1 0d 4a 74  |e$).J`...Jj...Jt|
0000e970  05 3a 0d 4a 7e 17 dd f2  6c 6f 77 5f 70 6f 77 65  |.:.J~...low_powe|
0000e980  72 5f 77 61 72 6e 69 6e  67 0d 4a 88 27 ff 20 22  |r_warning.J.'. "|
0000e990  43 44 69 72 20 3c 57 69  6d 70 24 53 63 72 61 70  |CDir <Wimp$Scrap|
0000e9a0  44 69 72 3e 2e 42 61 6e  6b 53 79 73 74 65 6d 22  |Dir>.BankSystem"|
0000e9b0  0d 4a 92 35 f2 73 61 76  65 5f 64 61 74 61 28 22  |.J.5.save_data("|
0000e9c0  3c 57 69 6d 70 24 53 63  72 61 70 44 69 72 3e 2e  |<Wimp$ScrapDir>.|
0000e9d0  42 61 6e 6b 53 79 73 74  65 6d 2e 42 61 6e 6b 44  |BankSystem.BankD|
0000e9e0  61 74 61 22 29 0d 4a 9c  3c ff 20 22 53 65 74 54  |ata").J.<. "SetT|
0000e9f0  79 70 65 20 3c 57 69 6d  70 24 53 63 72 61 70 44  |ype <Wimp$ScrapD|
0000ea00  69 72 3e 2e 42 61 6e 6b  53 79 73 74 65 6d 2e 42  |ir>.BankSystem.B|
0000ea10  61 6e 6b 44 61 74 61 20  42 61 6e 6b 44 61 74 61  |ankData BankData|
0000ea20  22 0d 4a a6 05 e1 0d 4a  b0 05 3a 0d 4a ba 1c dd  |".J....J..:.J...|
0000ea30  f2 72 65 73 74 6f 72 65  5f 6f 70 74 69 6f 6e 73  |.restore_options|
0000ea40  5f 77 69 6e 64 6f 77 0d  4a c4 10 21 71 25 3d 6f  |_window.J..!q%=o|
0000ea50  70 74 69 6f 6e 73 25 0d  4a ce 28 c8 99 20 22 57  |ptions%.J.(.. "W|
0000ea60  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
0000ea70  74 65 22 2c 2c 71 25 3a  71 25 21 32 34 3d 30 0d  |te",,q%:q%!24=0.|
0000ea80  4a d8 1c c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |J.... "Wimp_Open|
0000ea90  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 4a e2 05 e1  |Window",,q%.J...|
0000eaa0  0d 4a ec 05 3a 0d 4a f6  1d dd f2 63 68 61 6e 67  |.J..:.J....chang|
0000eab0  65 5f 73 70 72 69 74 65  28 73 70 72 6e 61 6d 65  |e_sprite(sprname|
0000eac0  24 29 0d 4b 00 33 21 71  25 3d 66 69 6c 65 69 6e  |$).K.3!q%=filein|
0000ead0  66 6f 25 3a 71 25 21 34  3d 31 3a c8 99 20 22 57  |fo%:q%!4=1:.. "W|
0000eae0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
0000eaf0  22 2c 2c 71 25 0d 4b 0a  1c 24 28 71 25 21 33 32  |",,q%.K..$(q%!32|
0000eb00  29 3d 22 77 34 3b 53 22  2b 73 70 72 6e 61 6d 65  |)="w4;S"+sprname|
0000eb10  24 0d 4b 14 2d 71 25 21  38 3d 30 3a 71 25 21 31  |$.K.-q%!8=0:q%!1|
0000eb20  32 3d 30 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |2=0:.. "Wimp_Set|
0000eb30  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 4b  |IconState",,q%.K|
0000eb40  1e 05 e1 0d ff                                    |.....|
0000eb45