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 30 42 35  |@00009000,0000B5|
00000040  36 43 00 00 6c b5 00 00  bc a5 00 00 6c 25 00 00  |6C..l.......l%..|
00000050  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000060  0d 00 14 05 3a 0d 00 1e  29 ee 20 85 20 f2 65 72  |....:...). . .er|
00000070  72 6f 72 28 9f 2c f6 24  2b 22 20 41 74 20 4c 69  |ror(.,.$+" At Li|
00000080  6e 65 20 22 2b c3 28 9e  29 2c 36 29 3a e0 0d 00  |ne "+.(.),6):...|
00000090  28 05 3a 0d 00 32 1b de  20 74 61 73 6b 25 20 34  |(.:..2.. task% 4|
000000a0  3a 24 74 61 73 6b 25 3d  22 54 41 53 4b 22 0d 00  |:$task%="TASK"..|
000000b0  3c 41 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |<A.. "Wimp_Initi|
000000c0  61 6c 69 73 65 22 2c 32  30 30 2c 26 34 42 35 33  |alise",200,&4B53|
000000d0  34 31 35 34 2c 22 54 69  6d 65 20 5a 6f 6e 65 20  |4154,"Time Zone |
000000e0  43 6c 6f 63 6b 22 20 b8  20 61 70 70 69 64 25 0d  |Clock" . appid%.|
000000f0  00 46 28 c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |.F(.. "OS_ReadMo|
00000100  6e 6f 74 6f 6e 69 63 54  69 6d 65 22 20 b8 20 6f  |notonicTime" . o|
00000110  6c 64 74 69 6d 65 25 0d  00 50 05 3a 0d 00 5a 19  |ldtime%..P.:..Z.|
00000120  f2 69 6e 69 74 69 61 6c  69 73 65 5f 76 61 72 69  |.initialise_vari|
00000130  61 62 6c 65 73 0d 00 64  10 73 70 61 63 65 25 3d  |ables..d.space%=|
00000140  74 65 6d 70 25 0d 00 6e  32 c8 99 20 22 57 69 6d  |temp%..n2.. "Wim|
00000150  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00000160  2c 22 3c 4f 62 65 79 24  44 69 72 3e 2e 54 65 6d  |,"<Obey$Dir>.Tem|
00000170  70 6c 61 74 65 73 22 0d  00 78 45 c8 99 20 22 57  |plates"..xE.. "W|
00000180  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000190  22 2c 2c 71 25 2c 73 70  61 63 65 25 2c 74 65 6d  |",,q%,space%,tem|
000001a0  70 25 2b 32 30 34 38 2c  2d 31 2c 22 49 6e 66 6f  |p%+2048,-1,"Info|
000001b0  22 20 b8 20 2c 2c 73 70  61 63 65 25 0d 00 82 29  |" . ,,space%...)|
000001c0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
000001d0  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 69 6e 66  |indow",,q% . inf|
000001e0  6f 62 6f 78 25 0d 00 8c  44 c8 99 20 22 57 69 6d  |obox%...D.. "Wim|
000001f0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000200  2c 71 25 2c 73 70 61 63  65 25 2c 74 65 6d 70 25  |,q%,space%,temp%|
00000210  2b 32 30 34 38 2c 2d 31  2c 22 4d 61 70 22 20 b8  |+2048,-1,"Map" .|
00000220  20 2c 2c 73 70 61 63 65  25 0d 00 96 29 c8 99 20  | ,,space%...).. |
00000230  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000240  6f 77 22 2c 2c 71 25 20  b8 20 74 69 6d 65 62 6f  |ow",,q% . timebo|
00000250  78 25 0d 00 a0 1b c8 99  20 22 57 69 6d 70 5f 43  |x%...... "Wimp_C|
00000260  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 00 aa  |loseTemplate"...|
00000270  21 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 69 6e  |!.update_icon(in|
00000280  66 6f 62 6f 78 25 2c 38  2c 76 65 72 24 29 0d 00  |fobox%,8,ver$)..|
00000290  b4 52 21 71 25 3d 69 6e  66 6f 62 6f 78 25 3a 71  |.R!q%=infobox%:q|
000002a0  25 21 34 3d 31 3a c8 99  20 22 57 69 6d 70 5f 47  |%!4=1:.. "Wimp_G|
000002b0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
000002c0  3a 6d 65 73 73 62 75 66  25 3d 21 28 71 25 2b 32  |:messbuf%=!(q%+2|
000002d0  38 29 3a 63 75 72 77 73  25 3d 73 70 61 63 65 25  |8):curws%=space%|
000002e0  0d 00 be 0f f2 6d 61 6b  65 5f 6d 65 6e 75 73 0d  |.....make_menus.|
000002f0  00 c8 11 f2 6c 6f 61 64  5f 73 70 72 69 74 65 73  |....load_sprites|
00000300  0d 00 d2 11 f2 69 6e 73  74 61 6c 6c 5f 69 63 6f  |.....install_ico|
00000310  6e 0d 00 dc 05 3a 0d 00  e6 63 ee 20 85 20 f2 65  |n....:...c. . .e|
00000320  72 72 6f 72 28 9f 2c f6  24 2b 22 20 41 74 20 4c  |rror(.,.$+" At L|
00000330  69 6e 65 20 22 2b c3 28  9e 29 2b 22 2e 20 20 43  |ine "+.(.)+".  C|
00000340  6c 69 63 6b 20 4f 4b 20  54 6f 20 43 6f 6e 74 69  |lick OK To Conti|
00000350  6e 75 65 20 4f 72 20 43  61 6e 63 65 6c 20 54 6f  |nue Or Cancel To|
00000360  20 51 75 69 74 2e 22 2c  33 29 3a e7 20 72 65 70  | Quit.",3):. rep|
00000370  6c 79 25 3d 32 20 8c 20  e0 0d 00 f0 05 3a 0d 00  |ly%=2 . .....:..|
00000380  fa 05 f5 0d 01 04 2b c8  99 20 22 57 69 6d 70 5f  |......+.. "Wimp_|
00000390  50 6f 6c 6c 22 2c 26 38  31 39 33 32 2c 71 25 20  |Poll",&81932,q% |
000003a0  b8 20 72 65 61 73 6f 6e  5f 63 6f 64 65 25 0d 01  |. reason_code%..|
000003b0  0e 15 c8 8e 20 72 65 61  73 6f 6e 5f 63 6f 64 65  |.... reason_code|
000003c0  25 20 ca 0d 01 18 21 c9  20 30 3a f2 75 70 64 61  |% ....!. 0:.upda|
000003d0  74 65 5f 47 4d 54 3a f2  75 70 64 61 74 65 5f 6f  |te_GMT:.update_o|
000003e0  74 68 65 72 0d 01 22 41  c9 20 32 3a f2 6f 70 65  |ther.."A. 2:.ope|
000003f0  6e 5f 77 69 6e 64 6f 77  28 21 71 25 2c 71 25 21  |n_window(!q%,q%!|
00000400  34 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |4,q%!8,q%!12,q%!|
00000410  31 36 2c 71 25 21 32 30  2c 71 25 21 32 34 2c 71  |16,q%!20,q%!24,q|
00000420  25 21 32 38 29 0d 01 2c  1a c9 20 33 3a f2 63 6c  |%!28)..,.. 3:.cl|
00000430  6f 73 65 5f 77 69 6e 64  6f 77 28 21 71 25 29 0d  |ose_window(!q%).|
00000440  01 36 2f c9 20 36 3a f2  63 68 65 63 6b 5f 6d 6f  |.6/. 6:.check_mo|
00000450  75 73 65 28 21 71 25 2c  71 25 21 34 2c 71 25 21  |use(!q%,q%!4,q%!|
00000460  38 2c 71 25 21 31 32 2c  71 25 21 31 36 29 0d 01  |8,q%!12,q%!16)..|
00000470  40 2a c9 20 38 3a f2 6b  65 79 5f 70 72 65 73 73  |@*. 8:.key_press|
00000480  65 64 28 21 71 25 2c 71  25 21 34 2c 71 25 21 32  |ed(!q%,q%!4,q%!2|
00000490  30 2c 71 25 21 32 34 29  0d 01 4a 18 c9 20 39 3a  |0,q%!24)..J.. 9:|
000004a0  f2 6d 65 6e 75 5f 73 65  6c 65 63 74 28 71 25 29  |.menu_select(q%)|
000004b0  0d 01 54 14 c9 20 31 37  2c 31 38 3a f2 72 65 63  |..T.. 17,18:.rec|
000004c0  65 69 76 65 0d 01 5e 05  cb 0d 01 68 0b fd 20 71  |eive..^....h.. q|
000004d0  75 69 74 25 0d 01 72 19  c8 99 20 22 57 69 6d 70  |uit%..r... "Wimp|
000004e0  5f 43 6c 6f 73 65 44 6f  77 6e 22 3a e0 0d 01 7c  |_CloseDown":...||
000004f0  05 3a 0d 01 86 1a dd f2  69 6e 69 74 69 61 6c 69  |.:......initiali|
00000500  73 65 5f 76 61 72 69 61  62 6c 65 73 0d 01 90 47  |se_variables...G|
00000510  de 20 71 25 20 34 30 39  36 2c 6d 65 6e 75 66 72  |. q% 4096,menufr|
00000520  65 65 25 20 26 38 30 30  2c 74 65 6d 70 25 20 34  |ee% &800,temp% 4|
00000530  30 39 36 2c 65 72 72 6f  72 62 75 66 25 20 32 35  |096,errorbuf% 25|
00000540  36 2c 62 5f 74 69 6d 65  25 20 38 2c 73 70 72 25  |6,b_time% 8,spr%|
00000550  20 31 30 0d 01 9a 57 63  75 72 77 73 25 3d 74 65  | 10...Wcurws%=te|
00000560  6d 70 25 3a 6d 61 78 77  73 25 3d 74 65 6d 70 25  |mp%:maxws%=temp%|
00000570  2b 32 30 34 38 3a 6d 65  6e 75 73 74 61 72 74 25  |+2048:menustart%|
00000580  3d 6d 65 6e 75 66 72 65  65 25 3a 6d 65 6e 75 65  |=menufree%:menue|
00000590  6e 64 25 3d 6d 65 6e 75  66 72 65 65 25 2b 26 38  |nd%=menufree%+&8|
000005a0  30 30 3a 6d 65 6e 75 25  3d 30 0d 01 a4 40 71 75  |00:menu%=0...@qu|
000005b0  69 74 25 3d a3 3a 76 65  72 24 3d 22 31 2e 30 34  |it%=.:ver$="1.04|
000005c0  20 28 33 30 20 41 75 67  20 31 39 39 32 29 22 3a  | (30 Aug 1992)":|
000005d0  63 6f 75 6e 74 72 79 25  3d 30 3a 24 73 70 72 25  |country%=0:$spr%|
000005e0  3d 22 63 6c 6b 66 61 63  65 22 0d 01 ae 05 e1 0d  |="clkface"......|
000005f0  01 b8 05 3a 0d 01 c2 10  dd f2 6d 61 6b 65 5f 6d  |...:......make_m|
00000600  65 6e 75 73 0d 01 cc 18  6d 65 6e 75 66 72 65 65  |enus....menufree|
00000610  25 3d 6d 65 6e 75 73 74  61 72 74 25 0d 01 d6 25  |%=menustart%...%|
00000620  e3 20 6c 6f 6f 70 25 3d  6d 65 6e 75 73 74 61 72  |. loop%=menustar|
00000630  74 25 20 b8 20 6d 65 6e  75 65 6e 64 25 20 88 20  |t% . menuend% . |
00000640  34 0d 01 e0 0c 21 6c 6f  6f 70 25 3d 30 0d 01 ea  |4....!loop%=0...|
00000650  05 ed 0d 01 f4 65 63 69  74 69 65 73 6d 65 6e 75  |.....ecitiesmenu|
00000660  25 3d a4 63 72 65 61 74  65 5f 6d 65 6e 75 28 22  |%=.create_menu("|
00000670  23 20 43 69 74 69 65 73  20 2c 4c 6f 6e 64 6f 6e  |# Cities ,London|
00000680  2c 4c 6f 73 20 41 6e 67  65 6c 65 73 2c 4d 6f 73  |,Los Angeles,Mos|
00000690  63 6f 77 2c 4e 65 77 20  59 6f 72 6b 2c 50 61 72  |cow,New York,Par|
000006a0  69 73 2c 53 79 64 6e 65  79 2c 54 6f 6b 79 6f 22  |is,Sydney,Tokyo"|
000006b0  2c 22 22 2c 22 22 29 0d  01 fe 57 69 63 6f 6e 6d  |,"","")...Wiconm|
000006c0  65 6e 75 25 3d a4 63 72  65 61 74 65 5f 6d 65 6e  |enu%=.create_men|
000006d0  75 28 22 23 20 5a 6f 6e  65 20 43 6c 6f 63 6b 20  |u("# Zone Clock |
000006e0  2c 49 6e 66 6f 3e 69 6e  66 6f 62 6f 78 25 2c 43  |,Info>infobox%,C|
000006f0  69 74 69 65 73 3e 63 69  74 69 65 73 6d 65 6e 75  |ities>citiesmenu|
00000700  25 2c 51 75 69 74 22 2c  22 22 2c 22 22 29 0d 02  |%,Quit","","")..|
00000710  08 1a f2 74 69 63 6b 28  63 69 74 69 65 73 6d 65  |...tick(citiesme|
00000720  6e 75 25 2c 30 2c 36 29  0d 02 12 05 e1 0d 02 1c  |nu%,0,6)........|
00000730  05 3a 0d 02 26 12 dd f2  6c 6f 61 64 5f 73 70 72  |.:..&...load_spr|
00000740  69 74 65 73 0d 02 30 2d  53 25 3d 8e 22 3c 4f 62  |ites..0-S%=."<Ob|
00000750  65 79 24 44 69 72 3e 2e  21 53 70 72 69 74 65 73  |ey$Dir>.!Sprites|
00000760  22 3a 54 25 3d a2 23 53  25 2b 31 36 3a d9 23 53  |":T%=.#S%+16:.#S|
00000770  25 0d 02 3a 11 de 20 73  70 72 69 74 65 73 25 20  |%..:.. sprites% |
00000780  54 25 0d 02 44 3a 21 73  70 72 69 74 65 73 25 3d  |T%..D:!sprites%=|
00000790  54 25 3a 73 70 72 69 74  65 73 25 21 34 3d 30 3a  |T%:sprites%!4=0:|
000007a0  73 70 72 69 74 65 73 25  21 38 3d 31 36 3a 73 70  |sprites%!8=16:sp|
000007b0  72 69 74 65 73 25 21 31  32 3d 31 36 0d 02 4e 22  |rites%!12=16..N"|
000007c0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000007d0  2c 26 31 30 39 2c 73 70  72 69 74 65 73 25 0d 02  |,&109,sprites%..|
000007e0  58 38 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |X8.. "OS_SpriteO|
000007f0  70 22 2c 26 31 30 41 2c  73 70 72 69 74 65 73 25  |p",&10A,sprites%|
00000800  2c 22 3c 4f 62 65 79 24  44 69 72 3e 2e 21 53 70  |,"<Obey$Dir>.!Sp|
00000810  72 69 74 65 73 22 0d 02  62 05 e1 0d 02 6c 05 3a  |rites"..b....l.:|
00000820  0d 02 76 12 dd f2 69 6e  73 74 61 6c 6c 5f 69 63  |..v...install_ic|
00000830  6f 6e 0d 02 80 4b 21 71  25 3d 2d 31 3a 71 25 21  |on...K!q%=-1:q%!|
00000840  34 3d 30 3a 71 25 21 38  3d 30 3a 71 25 21 31 32  |4=0:q%!8=0:q%!12|
00000850  3d 36 38 3a 71 25 21 31  36 3d 36 34 3a 71 25 21  |=68:q%!16=64:q%!|
00000860  32 30 3d 26 32 31 30 32  3a 73 70 6e 61 6d 65 24  |20=&2102:spname$|
00000870  3d 22 21 5a 6f 6e 65 43  6c 6f 63 6b 22 0d 02 8a  |="!ZoneClock"...|
00000880  48 de 20 71 25 21 32 34  28 a9 73 70 6e 61 6d 65  |H. q%!24(.spname|
00000890  24 2b 31 29 3a 24 28 71  25 21 32 34 29 3d 73 70  |$+1):$(q%!24)=sp|
000008a0  6e 61 6d 65 24 3a 71 25  21 32 38 3d 73 70 72 69  |name$:q%!28=spri|
000008b0  74 65 73 25 3a 71 25 21  33 32 3d a9 73 70 6e 61  |tes%:q%!32=.spna|
000008c0  6d 65 24 2b 31 0d 02 94  27 c8 99 20 22 57 69 6d  |me$+1...'.. "Wim|
000008d0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 71  |p_CreateIcon",,q|
000008e0  25 20 b8 20 61 70 70 69  63 6f 6e 25 0d 02 9e 05  |% . appicon%....|
000008f0  e1 0d 02 a8 05 3a 0d 02  b2 1e dd f2 65 72 72 6f  |.....:......erro|
00000900  72 28 65 72 72 2c 72 65  70 6f 72 74 24 2c 74 79  |r(err,report$,ty|
00000910  70 65 25 29 0d 02 bc 12  21 65 72 72 6f 72 62 75  |pe%)....!errorbu|
00000920  66 25 3d 65 72 72 0d 02  c6 1f 24 28 65 72 72 6f  |f%=err....$(erro|
00000930  72 62 75 66 25 2b 34 29  3d 72 65 70 6f 72 74 24  |rbuf%+4)=report$|
00000940  2b bd 28 30 29 0d 02 d0  45 c8 99 20 22 57 69 6d  |+.(0)...E.. "Wim|
00000950  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 65  |p_ReportError",e|
00000960  72 72 6f 72 62 75 66 25  2c 74 79 70 65 25 2c 22  |rrorbuf%,type%,"|
00000970  54 69 6d 65 20 5a 6f 6e  65 20 43 6c 6f 63 6b 22  |Time Zone Clock"|
00000980  20 b8 20 2c 72 65 70 6c  79 25 0d 02 da 05 e1 0d  | . ,reply%......|
00000990  02 e4 05 3a 0d 02 ee 3e  dd f2 6f 70 65 6e 5f 77  |...:...>..open_w|
000009a0  69 6e 64 6f 77 28 21 71  25 2c 71 25 21 34 2c 71  |indow(!q%,q%!4,q|
000009b0  25 21 38 2c 71 25 21 31  32 2c 71 25 21 31 36 2c  |%!8,q%!12,q%!16,|
000009c0  71 25 21 32 30 2c 71 25  21 32 34 2c 71 25 21 32  |q%!20,q%!24,q%!2|
000009d0  38 29 0d 02 f8 1c c8 99  20 22 57 69 6d 70 5f 4f  |8)...... "Wimp_O|
000009e0  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 03  |penWindow",,q%..|
000009f0  02 05 e1 0d 03 0c 05 3a  0d 03 16 17 dd f2 63 6c  |.......:......cl|
00000a00  6f 73 65 5f 77 69 6e 64  6f 77 28 21 71 25 29 0d  |ose_window(!q%).|
00000a10  03 20 1d c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |. ... "Wimp_Clos|
00000a20  65 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 03 2a 05  |eWindow",,q%..*.|
00000a30  e1 0d 03 34 05 3a 0d 03  3e 38 dd f2 63 68 65 63  |...4.:..>8..chec|
00000a40  6b 5f 6d 6f 75 73 65 28  6d 6f 75 73 65 78 25 2c  |k_mouse(mousex%,|
00000a50  6d 6f 75 73 65 79 25 2c  62 75 74 74 6f 6e 25 2c  |mousey%,button%,|
00000a60  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 03  |window%,icon%)..|
00000a70  48 10 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 03  |H... window% ...|
00000a80  52 1b c9 20 2d 32 3a e7  20 69 63 6f 6e 25 3d 61  |R.. -2:. icon%=a|
00000a90  70 70 69 63 6f 6e 25 20  8c 0d 03 5c 46 e7 20 62  |ppicon% ...\F. b|
00000aa0  75 74 74 6f 6e 25 3d 32  20 8c 20 c8 99 20 22 57  |utton%=2 . .. "W|
00000ab0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00000ac0  2c 69 63 6f 6e 6d 65 6e  75 25 2c 6d 6f 75 73 65  |,iconmenu%,mouse|
00000ad0  78 25 2d 34 38 2c 39 36  2b 28 33 2a 34 34 29 0d  |x%-48,96+(3*44).|
00000ae0  03 66 26 e7 20 28 62 75  74 74 6f 6e 25 20 80 20  |.f&. (button% . |
00000af0  35 29 3c 3e 30 20 8c 20  f2 6f 70 65 6e 5f 77 69  |5)<>0 . .open_wi|
00000b00  6e 64 6f 77 73 0d 03 70  05 cd 0d 03 7a 0e c9 20  |ndows..p....z.. |
00000b10  74 69 6d 65 62 6f 78 25  0d 03 84 47 e7 20 62 75  |timebox%...G. bu|
00000b20  74 74 6f 6e 25 3d 32 20  8c 20 c8 99 20 22 57 69  |tton%=2 . .. "Wi|
00000b30  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000b40  69 63 6f 6e 6d 65 6e 75  25 2c 6d 6f 75 73 65 78  |iconmenu%,mousex|
00000b50  25 2d 34 38 2c 6d 6f 75  73 65 79 25 2b 33 32 0d  |%-48,mousey%+32.|
00000b60  03 8e 23 e7 20 28 62 75  74 74 6f 6e 25 20 80 20  |..#. (button% . |
00000b70  35 29 3c 3e 30 20 8c 20  c8 8e 20 69 63 6f 6e 25  |5)<>0 . .. icon%|
00000b80  20 ca 0d 03 98 1e c9 20  39 3a 63 6f 75 6e 74 72  | ...... 9:countr|
00000b90  79 25 3d 2d 39 3a f2 6d  61 70 5f 63 6c 69 63 6b  |y%=-9:.map_click|
00000ba0  0d 03 a2 1f c9 20 31 30  3a 63 6f 75 6e 74 72 79  |..... 10:country|
00000bb0  25 3d 2d 38 3a f2 6d 61  70 5f 63 6c 69 63 6b 0d  |%=-8:.map_click.|
00000bc0  03 ac 1f c9 20 31 31 3a  63 6f 75 6e 74 72 79 25  |.... 11:country%|
00000bd0  3d 2d 37 3a f2 6d 61 70  5f 63 6c 69 63 6b 0d 03  |=-7:.map_click..|
00000be0  b6 1f c9 20 31 32 3a 63  6f 75 6e 74 72 79 25 3d  |... 12:country%=|
00000bf0  2d 36 3a f2 6d 61 70 5f  63 6c 69 63 6b 0d 03 c0  |-6:.map_click...|
00000c00  1f c9 20 31 33 3a 63 6f  75 6e 74 72 79 25 3d 2d  |.. 13:country%=-|
00000c10  35 3a f2 6d 61 70 5f 63  6c 69 63 6b 0d 03 ca 1f  |5:.map_click....|
00000c20  c9 20 31 34 3a 63 6f 75  6e 74 72 79 25 3d 2d 34  |. 14:country%=-4|
00000c30  3a f2 6d 61 70 5f 63 6c  69 63 6b 0d 03 d4 1f c9  |:.map_click.....|
00000c40  20 31 35 3a 63 6f 75 6e  74 72 79 25 3d 2d 33 3a  | 15:country%=-3:|
00000c50  f2 6d 61 70 5f 63 6c 69  63 6b 0d 03 de 1e c9 20  |.map_click..... |
00000c60  31 36 3a 63 6f 75 6e 74  72 79 25 3d 30 3a f2 6d  |16:country%=0:.m|
00000c70  61 70 5f 63 6c 69 63 6b  0d 03 e8 1e c9 20 31 37  |ap_click..... 17|
00000c80  3a 63 6f 75 6e 74 72 79  25 3d 31 3a f2 6d 61 70  |:country%=1:.map|
00000c90  5f 63 6c 69 63 6b 0d 03  f2 1e c9 20 31 38 3a 63  |_click..... 18:c|
00000ca0  6f 75 6e 74 72 79 25 3d  32 3a f2 6d 61 70 5f 63  |ountry%=2:.map_c|
00000cb0  6c 69 63 6b 0d 03 fc 1e  c9 20 31 39 3a 63 6f 75  |lick..... 19:cou|
00000cc0  6e 74 72 79 25 3d 33 3a  f2 6d 61 70 5f 63 6c 69  |ntry%=3:.map_cli|
00000cd0  63 6b 0d 04 06 1e c9 20  32 30 3a 63 6f 75 6e 74  |ck..... 20:count|
00000ce0  72 79 25 3d 34 3a f2 6d  61 70 5f 63 6c 69 63 6b  |ry%=4:.map_click|
00000cf0  0d 04 10 1e c9 20 32 31  3a 63 6f 75 6e 74 72 79  |..... 21:country|
00000d00  25 3d 35 3a f2 6d 61 70  5f 63 6c 69 63 6b 0d 04  |%=5:.map_click..|
00000d10  1a 1e c9 20 32 32 3a 63  6f 75 6e 74 72 79 25 3d  |... 22:country%=|
00000d20  36 3a f2 6d 61 70 5f 63  6c 69 63 6b 0d 04 24 1e  |6:.map_click..$.|
00000d30  c9 20 32 33 3a 63 6f 75  6e 74 72 79 25 3d 37 3a  |. 23:country%=7:|
00000d40  f2 6d 61 70 5f 63 6c 69  63 6b 0d 04 2e 1e c9 20  |.map_click..... |
00000d50  32 34 3a 63 6f 75 6e 74  72 79 25 3d 38 3a f2 6d  |24:country%=8:.m|
00000d60  61 70 5f 63 6c 69 63 6b  0d 04 38 1e c9 20 32 35  |ap_click..8.. 25|
00000d70  3a 63 6f 75 6e 74 72 79  25 3d 39 3a f2 6d 61 70  |:country%=9:.map|
00000d80  5f 63 6c 69 63 6b 0d 04  42 1f c9 20 32 36 3a 63  |_click..B.. 26:c|
00000d90  6f 75 6e 74 72 79 25 3d  31 30 3a f2 6d 61 70 5f  |ountry%=10:.map_|
00000da0  63 6c 69 63 6b 0d 04 4c  05 cb 0d 04 56 05 cb 0d  |click..L....V...|
00000db0  04 60 05 e1 0d 04 6a 05  3a 0d 04 74 32 dd f2 6b  |.`....j.:..t2..k|
00000dc0  65 79 5f 70 72 65 73 73  65 64 28 77 69 6e 64 6f  |ey_pressed(windo|
00000dd0  77 25 2c 69 63 6f 6e 25  2c 69 6e 64 65 78 25 2c  |w%,icon%,index%,|
00000de0  63 68 61 72 61 63 74 65  72 25 29 0d 04 7e 23 c8  |character%)..~#.|
00000df0  99 20 22 57 69 6d 70 5f  50 72 6f 63 65 73 73 4b  |. "Wimp_ProcessK|
00000e00  65 79 22 2c 63 68 61 72  61 63 74 65 72 25 0d 04  |ey",character%..|
00000e10  88 05 e1 0d 04 92 05 3a  0d 04 9c 15 dd f2 6d 65  |.......:......me|
00000e20  6e 75 5f 73 65 6c 65 63  74 28 71 25 29 0d 04 a6  |nu_select(q%)...|
00000e30  1b ea 20 73 65 6c 65 63  74 69 6f 6e 25 2c 73 65  |.. selection%,se|
00000e40  6c 65 63 74 69 6f 6e 24  0d 04 b0 14 de 20 73 65  |lection$..... se|
00000e50  6c 65 63 74 69 6f 6e 25  20 32 35 35 0d 04 ba 31  |lection% 255...1|
00000e60  c8 99 20 22 57 69 6d 70  5f 44 65 63 6f 64 65 4d  |.. "Wimp_DecodeM|
00000e70  65 6e 75 22 2c 2c 69 63  6f 6e 6d 65 6e 75 25 2c  |enu",,iconmenu%,|
00000e80  71 25 2c 73 65 6c 65 63  74 69 6f 6e 25 0d 04 c4  |q%,selection%...|
00000e90  1a 73 65 6c 65 63 74 69  6f 6e 24 3d 24 73 65 6c  |.selection$=$sel|
00000ea0  65 63 74 69 6f 6e 25 0d  04 ce 13 c8 8e 20 73 65  |ection%...... se|
00000eb0  6c 65 63 74 69 6f 6e 24  20 ca 0d 04 d8 59 c9 20  |lection$ ....Y. |
00000ec0  22 43 69 74 69 65 73 2e  4c 6f 6e 64 6f 6e 22 3a  |"Cities.London":|
00000ed0  f2 74 69 63 6b 28 63 69  74 69 65 73 6d 65 6e 75  |.tick(citiesmenu|
00000ee0  25 2c 30 2c 36 29 3a 63  6f 75 6e 74 72 79 25 3d  |%,0,6):country%=|
00000ef0  30 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 74  |0:.update_icon(t|
00000f00  69 6d 65 62 6f 78 25 2c  38 2c 22 4c 6f 6e 64 6f  |imebox%,8,"Londo|
00000f10  6e 22 29 0d 04 e2 64 c9  20 22 43 69 74 69 65 73  |n")...d. "Cities|
00000f20  2e 4c 6f 73 20 41 6e 67  65 6c 65 73 22 3a f2 74  |.Los Angeles":.t|
00000f30  69 63 6b 28 63 69 74 69  65 73 6d 65 6e 75 25 2c  |ick(citiesmenu%,|
00000f40  31 2c 36 29 3a 63 6f 75  6e 74 72 79 25 3d 2d 38  |1,6):country%=-8|
00000f50  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 74 69  |:.update_icon(ti|
00000f60  6d 65 62 6f 78 25 2c 38  2c 22 4c 6f 73 20 41 6e  |mebox%,8,"Los An|
00000f70  67 65 6c 65 73 22 29 0d  04 ec 59 c9 20 22 43 69  |geles")...Y. "Ci|
00000f80  74 69 65 73 2e 4d 6f 73  63 6f 77 22 3a f2 74 69  |ties.Moscow":.ti|
00000f90  63 6b 28 63 69 74 69 65  73 6d 65 6e 75 25 2c 32  |ck(citiesmenu%,2|
00000fa0  2c 36 29 3a 63 6f 75 6e  74 72 79 25 3d 33 3a f2  |,6):country%=3:.|
00000fb0  75 70 64 61 74 65 5f 69  63 6f 6e 28 74 69 6d 65  |update_icon(time|
00000fc0  62 6f 78 25 2c 38 2c 22  4d 6f 73 63 6f 77 22 29  |box%,8,"Moscow")|
00000fd0  0d 04 f6 5e c9 20 22 43  69 74 69 65 73 2e 4e 65  |...^. "Cities.Ne|
00000fe0  77 20 59 6f 72 6b 22 3a  f2 74 69 63 6b 28 63 69  |w York":.tick(ci|
00000ff0  74 69 65 73 6d 65 6e 75  25 2c 33 2c 36 29 3a 63  |tiesmenu%,3,6):c|
00001000  6f 75 6e 74 72 79 25 3d  2d 35 3a f2 75 70 64 61  |ountry%=-5:.upda|
00001010  74 65 5f 69 63 6f 6e 28  74 69 6d 65 62 6f 78 25  |te_icon(timebox%|
00001020  2c 38 2c 22 4e 65 77 20  59 6f 72 6b 22 29 0d 05  |,8,"New York")..|
00001030  00 57 c9 20 22 43 69 74  69 65 73 2e 50 61 72 69  |.W. "Cities.Pari|
00001040  73 22 3a f2 74 69 63 6b  28 63 69 74 69 65 73 6d  |s":.tick(citiesm|
00001050  65 6e 75 25 2c 34 2c 36  29 3a 63 6f 75 6e 74 72  |enu%,4,6):countr|
00001060  79 25 3d 31 3a f2 75 70  64 61 74 65 5f 69 63 6f  |y%=1:.update_ico|
00001070  6e 28 74 69 6d 65 62 6f  78 25 2c 38 2c 22 50 61  |n(timebox%,8,"Pa|
00001080  72 69 73 22 29 0d 05 0a  5a c9 20 22 43 69 74 69  |ris")...Z. "Citi|
00001090  65 73 2e 53 79 64 6e 65  79 22 3a f2 74 69 63 6b  |es.Sydney":.tick|
000010a0  28 63 69 74 69 65 73 6d  65 6e 75 25 2c 35 2c 36  |(citiesmenu%,5,6|
000010b0  29 3a 63 6f 75 6e 74 72  79 25 3d 31 30 3a f2 75  |):country%=10:.u|
000010c0  70 64 61 74 65 5f 69 63  6f 6e 28 74 69 6d 65 62  |pdate_icon(timeb|
000010d0  6f 78 25 2c 38 2c 22 53  79 64 6e 65 79 22 29 0d  |ox%,8,"Sydney").|
000010e0  05 14 57 c9 20 22 43 69  74 69 65 73 2e 54 6f 6b  |..W. "Cities.Tok|
000010f0  79 6f 22 3a f2 74 69 63  6b 28 63 69 74 69 65 73  |yo":.tick(cities|
00001100  6d 65 6e 75 25 2c 36 2c  36 29 3a 63 6f 75 6e 74  |menu%,6,6):count|
00001110  72 79 25 3d 39 3a f2 75  70 64 61 74 65 5f 69 63  |ry%=9:.update_ic|
00001120  6f 6e 28 74 69 6d 65 62  6f 78 25 2c 38 2c 22 54  |on(timebox%,8,"T|
00001130  6f 6b 79 6f 22 29 0d 05  1e 22 c9 20 22 51 75 69  |okyo")...". "Qui|
00001140  74 22 3a c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |t":.. "Wimp_Clos|
00001150  65 44 6f 77 6e 22 3a e0  0d 05 28 05 cb 0d 05 32  |eDown":...(....2|
00001160  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  | .. "Wimp_GetPoi|
00001170  6e 74 65 72 49 6e 66 6f  22 2c 2c 71 25 0d 05 3c  |nterInfo",,q%..<|
00001180  2e e7 20 71 25 21 38 3d  31 20 8c 3a c8 99 20 22  |.. q%!8=1 .:.. "|
00001190  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
000011a0  2c 2c 69 63 6f 6e 6d 65  6e 75 25 0d 05 46 05 e1  |,,iconmenu%..F..|
000011b0  0d 05 50 05 3a 0d 05 5a  0d dd f2 72 65 63 65 69  |..P.:..Z...recei|
000011c0  76 65 0d 05 64 0e c8 8e  20 71 25 21 31 36 20 ca  |ve..d... q%!16 .|
000011d0  0d 05 6e 0f c9 20 30 3a  71 75 69 74 25 3d b9 0d  |..n.. 0:quit%=..|
000011e0  05 78 05 cb 0d 05 82 05  e1 0d 05 8c 05 3a 0d 05  |.x...........:..|
000011f0  96 3b dd f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |.;..update_icon(|
00001200  75 70 64 61 74 65 5f 77  69 6e 64 6f 77 25 2c 75  |update_window%,u|
00001210  70 64 61 74 65 5f 69 63  6f 6e 25 2c 75 70 64 61  |pdate_icon%,upda|
00001220  74 65 5f 74 65 78 74 24  29 0d 05 a0 28 21 71 25  |te_text$)...(!q%|
00001230  3d 75 70 64 61 74 65 5f  77 69 6e 64 6f 77 25 3a  |=update_window%:|
00001240  71 25 21 34 3d 75 70 64  61 74 65 5f 69 63 6f 6e  |q%!4=update_icon|
00001250  25 0d 05 aa 1e c8 99 20  22 57 69 6d 70 5f 47 65  |%...... "Wimp_Ge|
00001260  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00001270  05 b4 31 24 28 71 25 21  32 38 29 3d 75 70 64 61  |..1$(q%!28)=upda|
00001280  74 65 5f 74 65 78 74 24  3a 71 25 21 33 36 3d a9  |te_text$:q%!36=.|
00001290  28 75 70 64 61 74 65 5f  74 65 78 74 24 29 2b 31  |(update_text$)+1|
000012a0  0d 05 be 12 71 25 21 38  3d 30 3a 71 25 21 31 32  |....q%!8=0:q%!12|
000012b0  3d 30 0d 05 c8 1e c8 99  20 22 57 69 6d 70 5f 53  |=0...... "Wimp_S|
000012c0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
000012d0  0d 05 d2 05 e1 0d 05 dc  05 3a 0d 05 e6 26 dd a4  |.........:...&..|
000012e0  63 72 65 61 74 65 5f 6d  65 6e 75 28 6d 65 6e 75  |create_menu(menu|
000012f0  24 2c 6d 65 6e 75 32 24  2c 6d 65 6e 75 33 24 29  |$,menu2$,menu3$)|
00001300  0d 05 f0 32 e7 20 6d 65  6e 75 66 72 65 65 25 2b  |...2. menufree%+|
00001310  32 38 3e 6d 65 6e 75 65  6e 64 25 20 8c 20 85 20  |28>menuend% . . |
00001320  31 2c 22 4d 65 6e 75 20  41 72 65 61 20 46 75 6c  |1,"Menu Area Ful|
00001330  6c 22 0d 05 fa 0b ea 20  6d 25 2c 72 25 0d 06 04  |l"..... m%,r%...|
00001340  16 6d 65 6e 75 70 74 72  25 3d 6d 65 6e 75 66 72  |.menuptr%=menufr|
00001350  65 65 25 0d 06 0e 08 72  25 3d 30 0d 06 18 3f e7  |ee%....r%=0...?.|
00001360  20 c0 6d 65 6e 75 24 2c  31 29 3d 22 23 22 20 8c  | .menu$,1)="#" .|
00001370  20 72 25 3d 31 3a 6d 65  6e 75 74 69 74 6c 65 24  | r%=1:menutitle$|
00001380  3d a4 70 61 72 28 22 2c  22 29 20 8b 20 6d 65 6e  |=.par(",") . men|
00001390  75 74 69 74 6c 65 24 3d  22 22 0d 06 22 1a e7 20  |utitle$=""..".. |
000013a0  c2 6d 65 6e 75 74 69 74  6c 65 24 2c 31 29 3d 22  |.menutitle$,1)="|
000013b0  7b 22 20 8c 0d 06 2c 0e  62 6f 74 69 63 6f 6e 25  |{" ...,.boticon%|
000013c0  3d 39 0d 06 36 2b 6d 65  6e 75 74 69 74 6c 65 24  |=9..6+menutitle$|
000013d0  3d c0 6d 65 6e 75 74 69  74 6c 65 24 2c a9 28 6d  |=.menutitle$,.(m|
000013e0  65 6e 75 74 69 74 6c 65  24 29 2d 31 29 0d 06 40  |enutitle$)-1)..@|
000013f0  05 cc 0d 06 4a 0e 62 6f  74 69 63 6f 6e 25 3d 31  |....J.boticon%=1|
00001400  0d 06 54 05 cd 0d 06 5e  18 24 6d 65 6e 75 70 74  |..T....^.$menupt|
00001410  72 25 3d 6d 65 6e 75 74  69 74 6c 65 24 0d 06 68  |r%=menutitle$..h|
00001420  3b 6d 65 6e 75 70 74 72  25 3f 31 32 3d 37 3a 6d  |;menuptr%?12=7:m|
00001430  65 6e 75 70 74 72 25 3f  31 33 3d 32 3a 6d 65 6e  |enuptr%?13=2:men|
00001440  75 70 74 72 25 3f 31 34  3d 37 3a 6d 65 6e 75 70  |uptr%?14=7:menup|
00001450  74 72 25 3f 31 35 3d 30  0d 06 72 33 6d 65 6e 75  |tr%?15=0..r3menu|
00001460  70 74 72 25 21 31 36 3d  31 39 36 2d 32 34 3a 6d  |ptr%!16=196-24:m|
00001470  65 6e 75 70 74 72 25 21  32 30 3d 34 34 3a 6d 65  |enuptr%!20=44:me|
00001480  6e 75 70 74 72 25 21 32  34 3d 30 0d 06 7c 24 6d  |nuptr%!24=0..|$m|
00001490  65 6e 75 70 74 72 25 2b  3d 32 38 3a 6d 61 78 78  |enuptr%+=28:maxx|
000014a0  25 3d a9 6d 65 6e 75 74  69 74 6c 65 24 2d 33 0d  |%=.menutitle$-3.|
000014b0  06 86 05 f5 0d 06 90 13  69 74 65 6d 24 3d a4 70  |........item$=.p|
000014c0  61 72 28 22 2c 22 29 0d  06 9a 12 e7 20 69 74 65  |ar(",")..... ite|
000014d0  6d 24 3d 22 2b 2b 22 20  8c 0d 06 a4 08 72 25 3d  |m$="++" .....r%=|
000014e0  30 0d 06 ae 10 6d 65 6e  75 24 3d 6d 65 6e 75 32  |0....menu$=menu2|
000014f0  24 0d 06 b8 05 cc 0d 06  c2 13 e7 20 69 74 65 6d  |$.......... item|
00001500  24 3d 22 2b 2b 2b 22 20  8c 0d 06 cc 08 72 25 3d  |$="+++" .....r%=|
00001510  30 0d 06 d6 10 6d 65 6e  75 25 3d 6d 65 6e 75 33  |0....menu%=menu3|
00001520  24 0d 06 e0 05 cc 0d 06  ea 15 f2 6d 65 6e 75 5f  |$..........menu_|
00001530  69 74 65 6d 28 69 74 65  6d 24 29 0d 06 f4 05 cd  |item(item$).....|
00001540  0d 06 fe 05 cd 0d 07 08  0e fd 20 69 74 65 6d 24  |.......... item$|
00001550  3d 22 22 0d 07 12 19 e7  20 6d 61 78 78 25 3e 32  |=""..... maxx%>2|
00001560  30 20 8c 20 6d 61 78 78  25 3d 32 30 0d 07 1c 24  |0 . maxx%=20...$|
00001570  6d 25 3d 6d 65 6e 75 66  72 65 65 25 3a 6d 25 21  |m%=menufree%:m%!|
00001580  31 36 3d 28 6d 61 78 78  25 2a 38 2b 36 29 2a 32  |16=(maxx%*8+6)*2|
00001590  0d 07 26 16 6d 65 6e 75  66 72 65 65 25 3d 6d 65  |..&.menufree%=me|
000015a0  6e 75 70 74 72 25 0d 07  30 07 3d 6d 25 0d 07 3a  |nuptr%..0.=m%..:|
000015b0  05 3a 0d 07 44 16 dd f2  6d 65 6e 75 5f 69 74 65  |.:..D...menu_ite|
000015c0  6d 28 74 65 78 74 24 29  0d 07 4e 33 e7 20 74 65  |m(text$)..N3. te|
000015d0  78 74 24 3d 22 22 20 8c  20 6d 65 6e 75 70 74 72  |xt$="" . menuptr|
000015e0  25 21 2d 32 34 3d 28 6d  65 6e 75 70 74 72 25 21  |%!-24=(menuptr%!|
000015f0  2d 32 34 29 84 20 26 38  30 3a e1 0d 07 58 32 e7  |-24). &80:...X2.|
00001600  20 6d 65 6e 75 70 74 72  25 2b 32 34 20 3e 6d 65  | menuptr%+24 >me|
00001610  6e 75 65 6e 64 25 20 8c  20 85 20 31 2c 22 4d 65  |nuend% . . 1,"Me|
00001620  6e 75 20 41 72 65 61 20  46 75 6c 6c 22 0d 07 62  |nu Area Full"..b|
00001630  11 ea 20 72 25 2c 66 6c  61 67 25 2c 56 25 0d 07  |.. r%,flag%,V%..|
00001640  6c 0d 66 6c 61 67 25 3d  26 30 30 0d 07 76 12 72  |l.flag%=&00..v.r|
00001650  25 3d a7 74 65 78 74 24  2c 22 3e 22 29 0d 07 80  |%=.text$,">")...|
00001660  0c e7 20 72 25 3e 30 20  8c 0d 07 8a 19 73 75 62  |.. r%>0 .....sub|
00001670  70 74 72 25 3d a0 c1 74  65 78 74 24 2c 72 25 2b  |ptr%=..text$,r%+|
00001680  31 29 0d 07 94 16 74 65  78 74 24 3d c0 74 65 78  |1)....text$=.tex|
00001690  74 24 2c 72 25 2d 31 29  0d 07 9e 05 cc 0d 07 a8  |t$,r%-1)........|
000016a0  13 72 72 25 3d a7 74 65  78 74 24 2c 22 7d 22 29  |.rr%=.text$,"}")|
000016b0  0d 07 b2 0d e7 20 72 72  25 3e 30 20 8c 0d 07 bc  |..... rr%>0 ....|
000016c0  1a 73 75 62 70 74 72 25  3d a0 c1 74 65 78 74 24  |.subptr%=..text$|
000016d0  2c 72 72 25 2b 31 29 0d  07 c6 16 74 65 78 74 24  |,rr%+1)....text$|
000016e0  3d c0 74 65 78 74 2c 72  72 25 2d 31 29 0d 07 d0  |=.text,rr%-1)...|
000016f0  0e 66 6c 61 67 25 2b 3d  26 30 38 0d 07 da 05 cc  |.flag%+=&08.....|
00001700  0d 07 e4 0e 73 75 62 70  74 72 25 3d 2d 31 0d 07  |....subptr%=-1..|
00001710  ee 05 cd 0d 07 f8 05 cd  0d 08 02 37 e7 20 c2 74  |...........7. .t|
00001720  65 78 74 24 2c 31 29 3d  22 23 22 20 8c 20 74 65  |ext$,1)="#" . te|
00001730  78 74 24 3d c0 74 65 78  74 24 2c a9 74 65 78 74  |xt$=.text$,.text|
00001740  24 2d 31 29 3a 66 6c 61  67 25 2b 3d 26 30 32 0d  |$-1):flag%+=&02.|
00001750  08 0c 37 e7 20 c2 74 65  78 74 24 2c 31 29 3d 22  |..7. .text$,1)="|
00001760  5c 22 20 8c 20 74 65 78  74 24 3d c0 74 65 78 74  |\" . text$=.text|
00001770  24 2c a9 74 65 78 74 24  2d 31 29 3a 66 6c 61 67  |$,.text$-1):flag|
00001780  25 2b 3d 26 30 31 0d 08  16 14 72 72 72 25 3d a7  |%+=&01....rrr%=.|
00001790  74 65 78 74 24 2c 22 7c  22 29 0d 08 20 15 72 72  |text$,"|").. .rr|
000017a0  72 72 25 3d a7 74 65 78  74 24 2c 22 a4 22 29 0d  |rr%=.text$,".").|
000017b0  08 2a 18 e7 20 72 72 72  25 3d 30 20 80 20 72 72  |.*.. rrr%=0 . rr|
000017c0  72 72 25 3d 30 20 8c 0d  08 34 19 6d 66 67 25 3d  |rr%=0 ...4.mfg%=|
000017d0  30 3c 3c 32 38 3a 6d 62  67 25 3d 37 3c 3c 32 34  |0<<28:mbg%=7<<24|
000017e0  0d 08 3e 05 cc 0d 08 48  0d c8 8e 20 72 72 72 25  |..>....H... rrr%|
000017f0  20 ca 0d 08 52 13 c9 20  30 3a 6d 66 67 25 3d 30  | ...R.. 0:mfg%=0|
00001800  20 3c 3c 32 38 0d 08 5c  05 7f 0d 08 66 27 6d 66  | <<28..\....f'mf|
00001810  67 25 3d 28 bb 28 c1 74  65 78 74 24 2c 72 72 72  |g%=(.(.text$,rrr|
00001820  25 2b 31 2c 32 29 29 20  83 20 31 36 29 3c 3c 32  |%+1,2)) . 16)<<2|
00001830  38 0d 08 70 27 74 65 78  74 24 3d c0 74 65 78 74  |8..p'text$=.text|
00001840  24 2c 72 72 72 25 2d 31  29 2b c1 74 65 78 74 24  |$,rrr%-1)+.text$|
00001850  2c 72 72 72 25 2b 33 29  0d 08 7a 05 cb 0d 08 84  |,rrr%+3)..z.....|
00001860  15 72 72 72 72 25 3d a7  74 65 78 74 24 2c 22 a4  |.rrrr%=.text$,".|
00001870  22 29 0d 08 8e 0e c8 8e  20 72 72 72 72 25 20 ca  |")...... rrrr% .|
00001880  0d 08 98 12 c9 20 30 3a  6d 62 67 25 3d 37 3c 3c  |..... 0:mbg%=7<<|
00001890  32 34 0d 08 a2 05 7f 0d  08 ac 28 6d 62 67 25 3d  |24........(mbg%=|
000018a0  28 bb 28 c1 74 65 78 74  24 2c 72 72 72 72 25 2b  |(.(.text$,rrrr%+|
000018b0  31 2c 32 29 29 20 83 20  31 36 29 3c 3c 32 34 0d  |1,2)) . 16)<<24.|
000018c0  08 b6 29 74 65 78 74 24  3d c0 74 65 78 74 24 2c  |..)text$=.text$,|
000018d0  72 72 72 72 25 2d 31 29  2b c1 74 65 78 74 24 2c  |rrrr%-1)+.text$,|
000018e0  72 72 72 72 25 2b 33 29  0d 08 c0 05 cb 0d 08 ca  |rrrr%+3)........|
000018f0  05 cd 0d 08 d4 14 6d 65  6e 75 70 74 72 25 21 30  |......menuptr%!0|
00001900  3d 66 6c 61 67 25 0d 08  de 16 6d 65 6e 75 70 74  |=flag%....menupt|
00001910  72 25 21 34 3d 73 75 62  70 74 72 25 0d 08 e8 25  |r%!4=subptr%...%|
00001920  6d 65 6e 75 70 74 72 25  21 38 3d 6d 66 67 25 2b  |menuptr%!8=mfg%+|
00001930  6d 62 67 25 2b 26 32 30  2b 62 6f 74 69 63 6f 6e  |mbg%+&20+boticon|
00001940  25 0d 08 f2 4c e7 20 c2  74 65 78 74 24 2c 31 29  |%...L. .text$,1)|
00001950  3d 22 2f 22 20 8c 20 74  65 78 74 24 3d c0 74 65  |="/" . text$=.te|
00001960  78 74 24 2c a9 74 65 78  74 24 2d 31 29 3a 6d 65  |xt$,.text$-1):me|
00001970  6e 75 70 74 72 25 21 38  3d 28 6d 65 6e 75 70 74  |nuptr%!8=(menupt|
00001980  72 25 21 38 20 84 20 31  3c 3c 32 32 29 0d 08 fc  |r%!8 . 1<<22)...|
00001990  15 e7 20 c0 74 65 78 74  24 2c 31 29 3d 22 24 22  |.. .text$,1)="$"|
000019a0  20 8c 0d 09 06 12 21 6d  65 6e 75 70 74 72 25 2b  | .....!menuptr%+|
000019b0  3d 26 30 34 0d 09 10 13  6d 65 6e 75 70 74 72 25  |=&04....menuptr%|
000019c0  21 2b 3d 26 31 30 38 0d  09 1a 12 72 25 3d a7 74  |!+=&108....r%=.t|
000019d0  65 78 74 24 2c 22 28 22  29 0d 09 24 37 e7 20 72  |ext$,"(")..$7. r|
000019e0  25 3e 30 20 8c 20 4c 25  3d bb c1 74 65 78 74 24  |%>0 . L%=..text$|
000019f0  2c 72 25 2b 31 29 3a 74  65 78 74 24 3d c0 74 65  |,r%+1):text$=.te|
00001a00  78 74 24 2c 72 25 2d 31  29 8b 20 4c 25 3d 31 32  |xt$,r%-1). L%=12|
00001a10  0d 09 2e 09 56 25 3d 2d  31 0d 09 38 1a 6d 65 6e  |....V%=-1..8.men|
00001a20  75 70 74 72 25 21 31 32  3d a0 c1 74 65 78 74 24  |uptr%!12=..text$|
00001a30  2c 32 29 0d 09 42 12 6d  65 6e 75 70 74 72 25 21  |,2)..B.menuptr%!|
00001a40  31 36 3d 2d 31 0d 09 4c  12 6d 65 6e 75 70 74 72  |16=-1..L.menuptr|
00001a50  25 21 32 30 3d 4c 25 0d  09 56 12 74 65 78 74 24  |%!20=L%..V.text$|
00001a60  3d c4 4c 25 2c 22 20 22  29 0d 09 60 05 cc 0d 09  |=.L%," ")..`....|
00001a70  6a 12 e7 20 a9 74 65 78  74 24 3c 3d 31 32 20 8c  |j.. .text$<=12 .|
00001a80  0d 09 74 18 24 28 6d 65  6e 75 70 74 72 25 2b 31  |..t.$(menuptr%+1|
00001a90  32 29 3d 74 65 78 74 24  0d 09 7e 05 cc 0d 09 88  |2)=text$..~.....|
00001aa0  25 52 25 3d a4 77 6f 72  6b 73 70 61 63 65 28 a9  |%R%=.workspace(.|
00001ab0  74 65 78 74 24 2b 31 29  3a 24 52 25 3d 74 65 78  |text$+1):$R%=tex|
00001ac0  74 24 0d 09 92 36 6d 65  6e 75 70 74 72 25 21 31  |t$...6menuptr%!1|
00001ad0  32 3d 52 25 3a 6d 65 6e  75 70 74 72 25 21 31 36  |2=R%:menuptr%!16|
00001ae0  3d 2d 31 3a 6d 65 6e 75  70 74 72 25 21 32 30 3d  |=-1:menuptr%!20=|
00001af0  a9 74 65 78 74 24 2b 31  0d 09 9c 20 6d 65 6e 75  |.text$+1... menu|
00001b00  70 74 72 25 21 38 3d 6d  65 6e 75 70 74 72 25 21  |ptr%!8=menuptr%!|
00001b10  38 20 84 20 26 31 30 30  0d 09 a6 05 cd 0d 09 b0  |8 . &100........|
00001b20  05 cd 0d 09 ba 21 e7 20  a9 74 65 78 74 24 3e 6d  |.....!. .text$>m|
00001b30  61 78 78 25 20 8c 20 6d  61 78 78 25 3d a9 74 65  |axx% . maxx%=.te|
00001b40  78 74 24 0d 09 c4 10 6d  65 6e 75 70 74 72 25 2b  |xt$....menuptr%+|
00001b50  3d 32 34 0d 09 ce 05 e1  0d 09 d8 05 3a 0d 09 e2  |=24.........:...|
00001b60  0f dd a4 70 61 72 28 73  65 70 24 29 0d 09 ec 25  |...par(sep$)...%|
00001b70  72 31 25 3d 72 25 2b 31  3a 72 25 3d a7 6d 65 6e  |r1%=r%+1:r%=.men|
00001b80  75 24 2b 73 65 70 24 2c  73 65 70 24 2c 72 31 25  |u$+sep$,sep$,r1%|
00001b90  29 0d 09 f6 17 3d c1 6d  65 6e 75 24 2c 72 31 25  |)....=.menu$,r1%|
00001ba0  2c 72 25 2d 72 31 25 29  0d 0a 00 05 3a 0d 0a 0a  |,r%-r1%)....:...|
00001bb0  13 dd a4 77 6f 72 6b 73  70 61 63 65 28 4c 25 29  |...workspace(L%)|
00001bc0  0d 0a 14 33 e7 20 63 75  72 77 73 25 2b 4c 25 3e  |...3. curws%+L%>|
00001bd0  6d 61 78 77 73 25 20 8c  20 85 20 31 2c 22 4e 6f  |maxws% . . 1,"No|
00001be0  20 4d 6f 72 65 20 42 75  66 66 65 72 20 53 70 61  | More Buffer Spa|
00001bf0  63 65 22 0d 0a 1e 19 63  75 72 77 73 25 2b 3d 4c  |ce"....curws%+=L|
00001c00  25 3a 3d 63 75 72 77 73  25 2d 4c 25 0d 0a 28 05  |%:=curws%-L%..(.|
00001c10  3a 0d 0a 32 1e dd f2 74  69 63 6b 28 6d 65 6e 75  |:..2...tick(menu|
00001c20  25 2c 69 74 65 6d 25 2c  74 6f 74 61 6c 25 29 0d  |%,item%,total%).|
00001c30  0a 3c 12 e3 20 5a 3d 30  20 b8 20 74 6f 74 61 6c  |.<.. Z=0 . total|
00001c40  25 0d 0a 46 14 f2 6e 6f  74 69 63 6b 28 6d 65 6e  |%..F..notick(men|
00001c50  75 25 2c 5a 29 0d 0a 50  05 ed 0d 0a 5a 0e ea 20  |u%,Z)..P....Z.. |
00001c60  61 64 64 72 65 73 73 25  0d 0a 64 20 61 64 64 72  |address%..d addr|
00001c70  65 73 73 25 3d 6d 65 6e  75 25 2b 32 38 2b 28 32  |ess%=menu%+28+(2|
00001c80  34 2a 69 74 65 6d 25 29  0d 0a 6e 1f 61 64 64 72  |4*item%)..n.addr|
00001c90  65 73 73 25 21 30 3d 61  64 64 72 65 73 73 25 21  |ess%!0=address%!|
00001ca0  30 20 82 20 26 30 31 0d  0a 78 05 e1 0d 0a 82 05  |0 . &01..x......|
00001cb0  3a 0d 0a 8c 19 dd f2 6e  6f 74 69 63 6b 28 6d 65  |:......notick(me|
00001cc0  6e 75 25 2c 69 74 65 6d  25 29 0d 0a 96 0e ea 20  |nu%,item%)..... |
00001cd0  61 64 64 72 65 73 73 25  0d 0a a0 20 61 64 64 72  |address%... addr|
00001ce0  65 73 73 25 3d 6d 65 6e  75 25 2b 32 38 2b 28 32  |ess%=menu%+28+(2|
00001cf0  34 2a 69 74 65 6d 25 29  0d 0a aa 21 61 64 64 72  |4*item%)...!addr|
00001d00  65 73 73 25 21 30 3d 61  64 64 72 65 73 73 25 21  |ess%!0=address%!|
00001d10  30 20 80 20 ac 20 26 30  31 0d 0a b4 05 e1 0d 0a  |0 . . &01.......|
00001d20  be 05 3a 0d 0a c8 12 dd  f2 6f 70 65 6e 5f 77 69  |..:......open_wi|
00001d30  6e 64 6f 77 73 0d 0a d2  10 21 71 25 3d 74 69 6d  |ndows....!q%=tim|
00001d40  65 62 6f 78 25 0d 0a dc  42 c8 99 20 22 57 69 6d  |ebox%...B.. "Wim|
00001d50  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00001d60  22 2c 2c 71 25 3a 71 25  21 32 38 3d 2d 31 3a c8  |",,q%:q%!28=-1:.|
00001d70  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00001d80  6f 77 22 2c 2c 71 25 0d  0a e6 05 e1 0d 0a f0 05  |ow",,q%.........|
00001d90  3a 0d 0a fa 10 dd f2 75  70 64 61 74 65 5f 47 4d  |:......update_GM|
00001da0  54 0d 0b 04 1c 3f 71 25  3d 33 3a c8 99 20 22 4f  |T....?q%=3:.. "O|
00001db0  53 5f 57 6f 72 64 22 2c  31 34 2c 71 25 0d 0b 0e  |S_Word",14,q%...|
00001dc0  3e c8 99 20 22 4f 53 5f  43 6f 6e 76 65 72 74 44  |>.. "OS_ConvertD|
00001dd0  61 74 65 41 6e 64 54 69  6d 65 22 2c 71 25 2c 62  |ateAndTime",q%,b|
00001de0  5f 74 69 6d 65 25 2c 39  2c 22 25 32 34 3a 25 6d  |_time%,9,"%24:%m|
00001df0  69 3a 25 73 65 22 2b bd  28 30 29 0d 0b 18 1f 53  |i:%se"+.(0)....S|
00001e00  65 63 73 3d bb 28 c1 24  62 5f 74 69 6d 65 25 2c  |ecs=.(.$b_time%,|
00001e10  37 2c 32 29 29 2a af 2f  33 30 0d 0b 22 1f 4d 69  |7,2))*./30..".Mi|
00001e20  6e 73 3d bb 28 c1 24 62  5f 74 69 6d 65 25 2c 34  |ns=.(.$b_time%,4|
00001e30  2c 32 29 29 2a af 2f 33  30 0d 0b 2c 25 48 6f 75  |,2))*./30..,%Hou|
00001e40  72 73 3d bb 28 c0 24 62  5f 74 69 6d 65 25 2c 32  |rs=.(.$b_time%,2|
00001e50  29 29 2a af 2f 36 2b 4d  69 6e 73 2f 31 32 0d 0b  |))*./6+Mins/12..|
00001e60  36 26 c8 99 20 22 57 69  6d 70 5f 42 61 73 65 4f  |6&.. "Wimp_BaseO|
00001e70  66 53 70 72 69 74 65 73  22 20 b8 20 2c 72 61 6d  |fSprites" . ,ram|
00001e80  73 70 72 25 0d 0b 40 39  c8 99 20 22 4f 53 5f 53  |spr%..@9.. "OS_S|
00001e90  70 72 69 74 65 4f 70 22  2c 26 31 33 43 2c 72 61  |priteOp",&13C,ra|
00001ea0  6d 73 70 72 25 2c 22 63  6c 6b 66 61 63 65 22 20  |mspr%,"clkface" |
00001eb0  b8 20 52 30 2c 52 31 2c  52 32 2c 52 33 0d 0b 4a  |. R0,R1,R2,R3..J|
00001ec0  0c c8 91 20 35 37 2c 35  37 0d 0b 54 07 e6 20 30  |... 57,57..T.. 0|
00001ed0  0d 0b 5e 10 c8 8f 20 c8  90 20 30 2c 30 2c 35 30  |..^... .. 0,0,50|
00001ee0  0d 0b 68 08 e6 20 31 31  0d 0b 72 1b 86 20 30 2c  |..h.. 11..r.. 0,|
00001ef0  30 2c 35 30 2a b5 53 65  63 73 2c 35 30 2a 9b 53  |0,50*.Secs,50*.S|
00001f00  65 63 73 0d 0b 7c 07 e6  20 34 0d 0b 86 1d 86 20  |ecs..|.. 4..... |
00001f10  30 2c 30 2c 33 34 2a b5  48 6f 75 72 73 2c 33 34  |0,0,34*.Hours,34|
00001f20  2a 9b 48 6f 75 72 73 0d  0b 90 14 ec 20 42 59 20  |*.Hours..... BY |
00001f30  2d 32 2c 30 3a df 20 2d  32 2c 30 0d 0b 9a 07 e6  |-2,0:. -2,0.....|
00001f40  20 37 0d 0b a4 1b 86 20  30 2c 30 2c 35 30 2a b5  | 7..... 0,0,50*.|
00001f50  4d 69 6e 73 2c 35 30 2a  9b 4d 69 6e 73 0d 0b ae  |Mins,50*.Mins...|
00001f60  14 ec 20 42 59 20 2d 32  2c 30 3a df 20 2d 32 2c  |.. BY -2,0:. -2,|
00001f70  30 0d 0b b8 20 c8 99 20  22 4f 53 5f 53 70 72 69  |0... .. "OS_Spri|
00001f80  74 65 4f 70 22 2c 52 30  2c 52 31 2c 52 32 2c 52  |teOp",R0,R1,R2,R|
00001f90  33 0d 0b c2 42 21 71 25  3d 2d 31 3a 71 25 21 34  |3...B!q%=-1:q%!4|
00001fa0  3d 61 70 70 69 63 6f 6e  25 3a 71 25 21 38 3d 30  |=appicon%:q%!8=0|
00001fb0  3a 71 25 21 31 32 3d 30  3a c8 99 20 22 57 69 6d  |:q%!12=0:.. "Wim|
00001fc0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00001fd0  2c 71 25 0d 0b cc 41 21  71 25 3d 74 69 6d 65 62  |,q%...A!q%=timeb|
00001fe0  6f 78 25 3a 71 25 21 34  3d 35 3a 71 25 21 38 3d  |ox%:q%!4=5:q%!8=|
00001ff0  30 3a 71 25 21 31 32 3d  30 3a c8 99 20 22 57 69  |0:q%!12=0:.. "Wi|
00002000  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00002010  2c 2c 71 25 0d 0b d6 82  21 71 25 3d 74 69 6d 65  |,,q%....!q%=time|
00002020  62 6f 78 25 3a 71 25 21  34 3d 32 3a c8 99 20 22  |box%:q%!4=2:.. "|
00002030  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00002040  65 22 2c 2c 71 25 3a 24  28 71 25 21 32 38 29 3d  |e",,q%:$(q%!28)=|
00002050  24 62 5f 74 69 6d 65 25  3a 71 25 21 33 36 3d a9  |$b_time%:q%!36=.|
00002060  28 24 62 5f 74 69 6d 65  25 29 2b 31 3a 71 25 21  |($b_time%)+1:q%!|
00002070  38 3d 30 3a 71 25 21 31  32 3d 30 3a c8 99 20 22  |8=0:q%!12=0:.. "|
00002080  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00002090  65 22 2c 2c 71 25 0d 0b  e0 28 c8 99 20 22 4f 53  |e",,q%...(.. "OS|
000020a0  5f 52 65 61 64 4d 6f 6e  6f 74 6f 6e 69 63 54 69  |_ReadMonotonicTi|
000020b0  6d 65 22 20 b8 20 6e 65  77 74 69 6d 65 25 0d 0b  |me" . newtime%..|
000020c0  ea 18 c8 95 20 6f 6c 64  74 69 6d 65 25 3c 6e 65  |.... oldtime%<ne|
000020d0  77 74 69 6d 65 25 0d 0b  f4 11 6f 6c 64 74 69 6d  |wtime%....oldtim|
000020e0  65 25 2b 3d 31 30 30 0d  0b fe 05 ce 0d 0c 08 05  |e%+=100.........|
000020f0  e1 0d 0c 12 05 3a 0d 0c  1c 12 dd f2 75 70 64 61  |.....:......upda|
00002100  74 65 5f 6f 74 68 65 72  0d 0c 26 1c 3f 71 25 3d  |te_other..&.?q%=|
00002110  33 3a c8 99 20 22 4f 53  5f 57 6f 72 64 22 2c 31  |3:.. "OS_Word",1|
00002120  34 2c 71 25 0d 0c 30 3e  c8 99 20 22 4f 53 5f 43  |4,q%..0>.. "OS_C|
00002130  6f 6e 76 65 72 74 44 61  74 65 41 6e 64 54 69 6d  |onvertDateAndTim|
00002140  65 22 2c 71 25 2c 62 5f  74 69 6d 65 25 2c 39 2c  |e",q%,b_time%,9,|
00002150  22 25 32 34 3a 25 6d 69  3a 25 73 65 22 2b bd 28  |"%24:%mi:%se"+.(|
00002160  30 29 0d 0c 3a 1f 53 65  63 73 3d bb 28 c1 24 62  |0)..:.Secs=.(.$b|
00002170  5f 74 69 6d 65 25 2c 37  2c 32 29 29 2a af 2f 33  |_time%,7,2))*./3|
00002180  30 0d 0c 44 1f 4d 69 6e  73 3d bb 28 c1 24 62 5f  |0..D.Mins=.(.$b_|
00002190  74 69 6d 65 25 2c 34 2c  32 29 29 2a af 2f 33 30  |time%,4,2))*./30|
000021a0  0d 0c 4e 30 48 6f 75 72  73 3d 28 bb 28 c0 24 62  |..N0Hours=(.(.$b|
000021b0  5f 74 69 6d 65 25 2c 32  29 29 2b 63 6f 75 6e 74  |_time%,2))+count|
000021c0  72 79 25 29 2a af 2f 36  2b 4d 69 6e 73 2f 31 32  |ry%)*./6+Mins/12|
000021d0  0d 0c 58 22 48 72 73 3d  28 bb 28 c0 24 62 5f 74  |..X"Hrs=(.(.$b_t|
000021e0  69 6d 65 25 2c 32 29 29  2b 63 6f 75 6e 74 72 79  |ime%,2))+country|
000021f0  25 29 0d 0c 62 16 e7 20  48 72 73 3e 32 34 20 8c  |%)..b.. Hrs>24 .|
00002200  20 48 72 73 2d 3d 32 34  0d 0c 6c 31 e7 20 a9 28  | Hrs-=24..l1. .(|
00002210  c3 28 48 72 73 29 29 3d  31 20 8c 20 48 72 73 24  |.(Hrs))=1 . Hrs$|
00002220  3d 22 30 22 2b c3 28 48  72 73 29 20 8b 20 48 72  |="0"+.(Hrs) . Hr|
00002230  73 24 3d c3 28 48 72 73  29 0d 0c 76 1d 4d 6e 73  |s$=.(Hrs)..v.Mns|
00002240  24 3d c3 28 bb 28 c1 24  62 5f 74 69 6d 65 25 2c  |$=.(.(.$b_time%,|
00002250  34 2c 32 29 29 29 0d 0c  80 2d e7 20 a9 4d 6e 73  |4,2)))...-. .Mns|
00002260  24 3d 31 20 8c 20 4d 6e  73 24 3d 22 30 22 2b c3  |$=1 . Mns$="0"+.|
00002270  28 bb 28 c1 24 62 5f 74  69 6d 65 25 2c 34 2c 32  |(.(.$b_time%,4,2|
00002280  29 29 29 0d 0c 8a 1d 53  65 63 24 3d c3 28 bb 28  |)))....Sec$=.(.(|
00002290  c1 24 62 5f 74 69 6d 65  25 2c 37 2c 32 29 29 29  |.$b_time%,7,2)))|
000022a0  0d 0c 94 2d e7 20 a9 53  65 63 24 3d 31 20 8c 20  |...-. .Sec$=1 . |
000022b0  53 65 63 24 3d 22 30 22  2b c3 28 bb 28 c1 24 62  |Sec$="0"+.(.(.$b|
000022c0  5f 74 69 6d 65 25 2c 37  2c 32 29 29 29 0d 0c 9e  |_time%,7,2)))...|
000022d0  26 6f 74 68 65 72 5f 74  69 6d 65 24 3d 48 72 73  |&other_time$=Hrs|
000022e0  24 2b 22 3a 22 2b 4d 6e  73 24 2b 22 3a 22 2b 53  |$+":"+Mns$+":"+S|
000022f0  65 63 24 0d 0c a8 26 c8  99 20 22 57 69 6d 70 5f  |ec$...&.. "Wimp_|
00002300  42 61 73 65 4f 66 53 70  72 69 74 65 73 22 20 b8  |BaseOfSprites" .|
00002310  20 2c 72 61 6d 73 70 72  25 0d 0c b2 39 c8 99 20  | ,ramspr%...9.. |
00002320  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00002330  33 43 2c 72 61 6d 73 70  72 25 2c 22 63 6c 6b 66  |3C,ramspr%,"clkf|
00002340  61 63 65 22 20 b8 20 52  30 2c 52 31 2c 52 32 2c  |ace" . R0,R1,R2,|
00002350  52 33 0d 0c bc 0c c8 91  20 35 37 2c 35 37 0d 0c  |R3...... 57,57..|
00002360  c6 07 e6 20 30 0d 0c d0  10 c8 8f 20 c8 90 20 30  |... 0...... .. 0|
00002370  2c 30 2c 35 30 0d 0c da  08 e6 20 31 31 0d 0c e4  |,0,50..... 11...|
00002380  1b 86 20 30 2c 30 2c 35  30 2a b5 53 65 63 73 2c  |.. 0,0,50*.Secs,|
00002390  35 30 2a 9b 53 65 63 73  0d 0c ee 07 e6 20 34 0d  |50*.Secs..... 4.|
000023a0  0c f8 1d 86 20 30 2c 30  2c 33 34 2a b5 48 6f 75  |.... 0,0,34*.Hou|
000023b0  72 73 2c 33 34 2a 9b 48  6f 75 72 73 0d 0d 02 14  |rs,34*.Hours....|
000023c0  ec 20 42 59 20 2d 32 2c  30 3a df 20 2d 32 2c 30  |. BY -2,0:. -2,0|
000023d0  0d 0d 0c 07 e6 20 37 0d  0d 16 1b 86 20 30 2c 30  |..... 7..... 0,0|
000023e0  2c 35 30 2a b5 4d 69 6e  73 2c 35 30 2a 9b 4d 69  |,50*.Mins,50*.Mi|
000023f0  6e 73 0d 0d 20 14 ec 20  42 59 20 2d 32 2c 30 3a  |ns.. .. BY -2,0:|
00002400  df 20 2d 32 2c 30 0d 0d  2a 20 c8 99 20 22 4f 53  |. -2,0..* .. "OS|
00002410  5f 53 70 72 69 74 65 4f  70 22 2c 52 30 2c 52 31  |_SpriteOp",R0,R1|
00002420  2c 52 32 2c 52 33 0d 0d  34 41 21 71 25 3d 74 69  |,R2,R3..4A!q%=ti|
00002430  6d 65 62 6f 78 25 3a 71  25 21 34 3d 33 3a 71 25  |mebox%:q%!4=3:q%|
00002440  21 38 3d 30 3a 71 25 21  31 32 3d 30 3a c8 99 20  |!8=0:q%!12=0:.. |
00002450  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00002460  74 65 22 2c 2c 71 25 0d  0d 3e 88 21 71 25 3d 74  |te",,q%..>.!q%=t|
00002470  69 6d 65 62 6f 78 25 3a  71 25 21 34 3d 34 3a c8  |imebox%:q%!4=4:.|
00002480  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00002490  74 61 74 65 22 2c 2c 71  25 3a 24 28 71 25 21 32  |tate",,q%:$(q%!2|
000024a0  38 29 3d 6f 74 68 65 72  5f 74 69 6d 65 24 3a 71  |8)=other_time$:q|
000024b0  25 21 33 36 3d a9 28 6f  74 68 65 72 5f 74 69 6d  |%!36=.(other_tim|
000024c0  65 24 29 2b 31 3a 71 25  21 38 3d 30 3a 71 25 21  |e$)+1:q%!8=0:q%!|
000024d0  31 32 3d 30 3a c8 99 20  22 57 69 6d 70 5f 53 65  |12=0:.. "Wimp_Se|
000024e0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
000024f0  0d 48 28 c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |.H(.. "OS_ReadMo|
00002500  6e 6f 74 6f 6e 69 63 54  69 6d 65 22 20 b8 20 6e  |notonicTime" . n|
00002510  65 77 74 69 6d 65 25 0d  0d 52 18 c8 95 20 6f 6c  |ewtime%..R... ol|
00002520  64 74 69 6d 65 25 3c 6e  65 77 74 69 6d 65 25 0d  |dtime%<newtime%.|
00002530  0d 5c 11 6f 6c 64 74 69  6d 65 25 2b 3d 31 30 30  |.\.oldtime%+=100|
00002540  0d 0d 66 05 ce 0d 0d 70  05 e1 0d 0d 7a 05 3a 0d  |..f....p....z.:.|
00002550  0d 84 0f dd f2 6d 61 70  5f 63 6c 69 63 6b 0d 0d  |.....map_click..|
00002560  8e 2b f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 74  |.+.update_icon(t|
00002570  69 6d 65 62 6f 78 25 2c  38 2c 22 4d 61 70 20 50  |imebox%,8,"Map P|
00002580  6f 73 69 74 69 6f 6e 22  29 0d 0d 98 0d e3 20 58  |osition")..... X|
00002590  3d 30 20 b8 20 36 0d 0d  a2 1a f2 6e 6f 74 69 63  |=0 . 6.....notic|
000025a0  6b 28 63 69 74 69 65 73  6d 65 6e 75 25 2c 58 29  |k(citiesmenu%,X)|
000025b0  0d 0d ac 05 ed 0d 0d b6  05 e1 0d ff              |............|
000025bc