/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / education / b / zoneclock / !ZoneClock / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 00 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 0a 1e f4 20 49 | 6e 74 65 72 6e 61 74 69 |e..... I|nternati|
|00000020| 6f 6e 61 6c 20 54 69 6d | 65 20 5a 6f 6e 65 73 0d |onal Tim|e Zones.|
|00000030| 00 14 24 f4 20 69 6e 20 | 41 72 63 68 69 6d 65 64 |..$. in |Archimed|
|00000040| 65 73 20 57 69 6d 70 20 | 45 6e 76 69 72 6f 6e 6d |es Wimp |Environm|
|00000050| 65 6e 74 0d 00 1e 2c f4 | 20 28 63 29 20 41 6c 65 |ent...,.| (c) Ale|
|00000060| 78 20 48 6f 70 6b 69 6e | 73 20 4d 61 79 20 31 39 |x Hopkin|s May 19|
|00000070| 39 30 20 56 65 72 73 69 | 6f 6e 20 31 2e 30 30 0d |90 Versi|on 1.00.|
|00000080| 00 28 33 f4 20 6d 61 63 | 68 69 6e 65 20 63 6f 64 |.(3. mac|hine cod|
|00000090| 65 20 72 6f 75 74 69 6e | 65 20 66 72 6f 6d 20 41 |e routin|e from A|
|000000a0| 63 6f 72 6e 20 55 73 65 | 72 20 4d 61 79 20 31 39 |corn Use|r May 19|
|000000b0| 39 30 0d 00 32 05 3a 0d | 00 3c 44 c8 99 20 22 57 |90..2.:.|.<D.. "W|
|000000c0| 69 6d 70 5f 49 6e 69 74 | 69 61 6c 69 73 65 22 2c |imp_Init|ialise",|
|000000d0| 32 30 30 2c 26 34 42 35 | 33 34 31 35 34 2c 22 49 |200,&4B5|34154,"I|
|000000e0| 6e 74 65 72 6e 61 74 69 | 6f 6e 61 6c 20 43 6c 6f |nternati|onal Clo|
|000000f0| 63 6b 22 20 b8 20 2c 74 | 61 73 6b 0d 00 46 0a f2 |ck" . ,t|ask..F..|
|00000100| 73 65 74 75 70 0d 00 50 | 17 ee 20 85 20 f2 65 72 |setup..P|.. . .er|
|00000110| 72 6f 72 20 3a 20 51 75 | 69 74 3d b9 0d 00 5a 05 |ror : Qu|it=...Z.|
|00000120| 3a 0d 00 64 05 f5 0d 00 | 6e 13 f2 70 6f 6c 6c 28 |:..d....|n..poll(|
|00000130| a4 70 6f 6c 6c 28 30 29 | 29 0d 00 78 0a fd 20 51 |.poll(0)|)..x.. Q|
|00000140| 75 69 74 0d 00 82 17 c8 | 99 20 22 57 69 6d 70 5f |uit.....|. "Wimp_|
|00000150| 43 6c 6f 73 65 44 6f 77 | 6e 22 0d 00 8c 05 e0 0d |CloseDow|n"......|
|00000160| 00 96 05 3a 0d 00 a0 0c | dd 20 f2 73 65 74 75 70 |...:....|. .setup|
|00000170| 0d 00 aa 28 de 20 62 6c | 6f 63 6b 20 26 38 30 30 |...(. bl|ock &800|
|00000180| 2c 6d 65 6e 75 20 31 35 | 30 2c 74 65 6d 70 6c 61 |,menu 15|0,templa|
|00000190| 74 65 25 20 26 38 30 30 | 0d 00 b4 2b de 20 53 70 |te% &800|...+. Sp|
|000001a0| 72 69 74 65 73 20 26 34 | 30 30 30 2c 66 61 63 74 |rites &4|000,fact|
|000001b0| 6f 72 25 20 31 35 2c 70 | 69 78 74 72 61 6e 73 25 |or% 15,p|ixtrans%|
|000001c0| 20 31 35 0d 00 be 29 de | 20 43 6f 64 65 25 20 26 | 15...).| Code% &|
|000001d0| 31 30 30 2c 64 61 74 65 | 25 20 33 38 2c 73 69 6e |100,date|% 38,sin|
|000001e0| 28 35 39 29 2c 63 6f 73 | 28 35 39 29 0d 00 c8 3e |(59),cos|(59)...>|
|000001f0| 21 53 70 72 69 74 65 73 | 3d 26 34 30 30 30 20 3a |!Sprites|=&4000 :|
|00000200| 20 53 70 72 69 74 65 73 | 21 34 3d 30 20 3a 20 53 | Sprites|!4=0 : S|
|00000210| 70 72 69 74 65 73 21 38 | 3d 31 36 20 3a 20 53 70 |prites!8|=16 : Sp|
|00000220| 72 69 74 65 73 21 31 32 | 3d 30 0d 00 d2 3b c8 99 |rites!12|=0...;..|
|00000230| 20 22 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 2c 32 | "OS_Spr|iteOp",2|
|00000240| 36 36 2c 53 70 72 69 74 | 65 73 2c 22 3c 49 6e 74 |66,Sprit|es,"<Int|
|00000250| 65 72 43 6c 6f 63 6b 24 | 44 69 72 3e 2e 53 70 72 |erClock$|Dir>.Spr|
|00000260| 69 74 65 73 22 0d 00 dc | 2d 51 75 69 74 3d a3 20 |ites"...|-Quit=. |
|00000270| 3a 20 43 6f 75 6e 74 72 | 79 25 3d 32 20 3a 20 54 |: Countr|y%=2 : T|
|00000280| 3d 30 20 3a 20 53 75 6d | 6d 65 72 54 69 6d 65 25 |=0 : Sum|merTime%|
|00000290| 3d b9 0d 00 e6 33 4f 6c | 64 53 65 63 73 25 3d 39 |=....3Ol|dSecs%=9|
|000002a0| 39 20 3a 20 4f 6c 64 4d | 69 6e 3d 39 39 20 3a 20 |9 : OldM|in=99 : |
|000002b0| 4f 6c 64 48 6f 75 72 3d | 39 39 20 3a 20 44 65 62 |OldHour=|99 : Deb|
|000002c0| 75 67 25 3d a3 0d 00 f0 | 39 e3 20 49 25 3d 30 20 |ug%=....|9. I%=0 |
|000002d0| b8 20 35 39 20 3a 20 63 | 6f 73 28 49 25 29 3d 9b |. 59 : c|os(I%)=.|
|000002e0| b2 28 49 25 2a 36 29 20 | 3a 20 73 69 6e 28 49 25 |.(I%*6) |: sin(I%|
|000002f0| 29 3d b5 b2 28 49 25 2a | 36 29 20 3a 20 ed 0d 00 |)=..(I%*|6) : ...|
|00000300| fa 2e f2 67 65 74 4d 6f | 64 65 49 6e 66 6f 20 3a |...getMo|deInfo :|
|00000310| 20 f2 6c 6f 61 64 54 65 | 6d 70 6c 61 74 65 73 20 | .loadTe|mplates |
|00000320| 3a 20 f2 69 6e 69 74 43 | 6c 6f 63 6b 0d 01 04 29 |: .initC|lock...)|
|00000330| f2 6f 70 65 6e 57 69 6e | 64 6f 77 28 43 6c 6f 63 |.openWin|dow(Cloc|
|00000340| 6b 25 2c a3 29 20 3a 20 | f2 75 70 64 61 74 65 43 |k%,.) : |.updateC|
|00000350| 6c 6f 63 6b 20 0d 01 0e | 05 e1 0d 01 18 05 3a 0d |lock ...|......:.|
|00000360| 01 22 12 dd 20 f2 67 65 | 74 4d 6f 64 65 49 6e 66 |.".. .ge|tModeInf|
|00000370| 6f 0d 01 2c 42 c8 99 20 | 22 57 69 6d 70 5f 52 65 |o..,B.. |"Wimp_Re|
|00000380| 61 64 50 69 78 54 72 61 | 6e 73 22 2c 32 35 36 2c |adPixTra|ns",256,|
|00000390| 53 70 72 69 74 65 73 2c | 22 66 61 63 65 22 2c 2c |Sprites,|"face",,|
|000003a0| 2c 2c 66 61 63 74 6f 72 | 25 2c 70 69 78 74 72 61 |,,factor|%,pixtra|
|000003b0| 6e 73 25 0d 01 36 05 e1 | 0d 01 40 05 3a 0d 01 4a |ns%..6..|..@.:..J|
|000003c0| 14 dd 20 f2 6c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |.. .load|Template|
|000003d0| 73 0d 01 54 38 c8 99 20 | 22 57 69 6d 70 5f 4f 70 |s..T8.. |"Wimp_Op|
|000003e0| 65 6e 54 65 6d 70 6c 61 | 74 65 22 2c 2c 22 3c 49 |enTempla|te",,"<I|
|000003f0| 6e 74 65 72 43 6c 6f 63 | 6b 24 44 69 72 3e 2e 54 |nterCloc|k$Dir>.T|
|00000400| 65 6d 70 6c 61 74 65 73 | 22 0d 01 5e 1f 43 6c 6f |emplates|"..^.Clo|
|00000410| 63 6b 25 3d a4 77 69 6e | 64 6f 77 28 22 63 6c 6f |ck%=.win|dow("clo|
|00000420| 63 6b 66 61 63 65 22 29 | 0d 01 68 1b c8 99 20 22 |ckface")|..h... "|
|00000430| 57 69 6d 70 5f 43 6c 6f | 73 65 54 65 6d 70 6c 61 |Wimp_Clo|seTempla|
|00000440| 74 65 22 0d 01 72 05 e1 | 0d 01 7c 05 3a 0d 01 86 |te"..r..|..|.:...|
|00000450| 11 dd 20 a4 77 69 6e 64 | 6f 77 28 61 24 29 0d 01 |.. .wind|ow(a$)..|
|00000460| 90 23 ea 20 63 25 2c 65 | 6e 64 25 20 3a 20 65 6e |.#. c%,e|nd% : en|
|00000470| 64 25 3d 74 65 6d 70 6c | 61 74 65 25 2b 26 38 30 |d%=templ|ate%+&80|
|00000480| 30 0d 01 9a 4c c8 99 20 | 22 57 69 6d 70 5f 4c 6f |0...L.. |"Wimp_Lo|
|00000490| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 62 6c 6f |adTempla|te",,blo|
|000004a0| 63 6b 2c 74 65 6d 70 6c | 61 74 65 25 2c 65 6e 64 |ck,templ|ate%,end|
|000004b0| 25 2c 2d 31 2c 61 24 2c | 30 20 b8 20 2c 2c 74 65 |%,-1,a$,|0 . ,,te|
|000004c0| 6d 70 6c 61 74 65 25 2c | 2c 2c 2c 63 25 0d 01 a4 |mplate%,|,,,c%...|
|000004d0| 14 62 6c 6f 63 6b 21 36 | 34 3d 53 70 72 69 74 65 |.block!6|4=Sprite|
|000004e0| 73 0d 01 ae 26 c8 99 20 | 22 57 69 6d 70 5f 43 72 |s...&.. |"Wimp_Cr|
|000004f0| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |eateWind|ow",,blo|
|00000500| 63 6b 20 b8 20 63 25 0d | 01 b8 07 3d 63 25 0d 01 |ck . c%.|...=c%..|
|00000510| c2 05 3a 0d 01 cc 12 dd | 20 a4 70 6f 6c 6c 28 6d |..:.....| .poll(m|
|00000520| 61 73 6b 25 29 0d 01 d6 | 08 ea 20 61 25 0d 01 e0 |ask%)...|.. a%...|
|00000530| 11 62 6c 6f 63 6b 21 30 | 3d 6d 61 73 6b 25 0d 01 |.block!0|=mask%..|
|00000540| ea 1f c8 99 20 22 57 69 | 6d 70 5f 50 6f 6c 6c 22 |.... "Wi|mp_Poll"|
|00000550| 2c 30 2c 62 6c 6f 63 6b | 20 b8 20 61 25 0d 01 f4 |,0,block| . a%...|
|00000560| 07 3d 61 25 0d 01 fe 05 | 3a 0d 02 08 14 dd 20 f2 |.=a%....|:..... .|
|00000570| 70 6f 6c 6c 28 72 65 61 | 73 6f 6e 25 29 0d 02 12 |poll(rea|son%)...|
|00000580| 10 c8 8e 20 72 65 61 73 | 6f 6e 25 20 ca 0d 02 1c |... reas|on% ....|
|00000590| 2a c9 20 30 20 3a 20 21 | 74 69 6d 65 31 3d 33 20 |*. 0 : !|time1=3 |
|000005a0| 3a 20 c8 99 20 22 4f 53 | 5f 57 6f 72 64 22 2c 31 |: .. "OS|_Word",1|
|000005b0| 34 2c 74 69 6d 65 31 0d | 02 26 31 20 20 20 20 20 |4,time1.|.&1     |
|000005c0| 20 20 3a 20 f2 74 69 6d | 65 28 54 29 20 3a 20 e7 |  : .tim|e(T) : .|
|000005d0| 20 53 65 63 73 25 3c 3e | 4f 6c 64 53 65 63 73 25 | Secs%<>|OldSecs%|
|000005e0| 20 8c 20 f2 74 69 63 6b | 0d 02 30 20 c9 20 32 20 | . .tick|..0 . 2 |
|000005f0| 3a 20 f2 6f 70 65 6e 57 | 69 6e 64 6f 77 28 62 6c |: .openW|indow(bl|
|00000600| 6f 63 6b 21 30 2c b9 29 | 0d 02 3a 1f c9 20 33 20 |ock!0,.)|..:.. 3 |
|00000610| 3a 20 f2 63 6c 6f 73 65 | 57 69 6e 64 6f 77 28 62 |: .close|Window(b|
|00000620| 6c 6f 63 6b 21 30 29 0d | 02 44 1c c9 20 36 20 3a |lock!0).|.D.. 6 :|
|00000630| 20 f2 6d 6f 75 73 65 43 | 6c 69 63 6b 28 62 6c 6f | .mouseC|lick(blo|
|00000640| 63 6b 29 0d 02 4e 1d c9 | 20 31 37 2c 31 38 20 3a |ck)..N..| 17,18 :|
|00000650| 20 f2 6d 65 73 73 61 67 | 65 28 62 6c 6f 63 6b 29 | .messag|e(block)|
|00000660| 0d 02 58 05 cb 0d 02 62 | 05 e1 0d 02 6c 05 3a 0d |..X....b|....l.:.|
|00000670| 02 76 17 dd 20 f2 6d 65 | 73 73 61 67 65 28 68 61 |.v.. .me|ssage(ha|
|00000680| 6e 64 6c 65 25 29 0d 02 | 80 13 c8 8e 20 68 61 6e |ndle%)..|.... han|
|00000690| 64 6c 65 25 21 31 36 20 | ca 0d 02 8a 15 c9 20 30 |dle%!16 |...... 0|
|000006a0| 20 20 20 20 20 20 3a 20 | 51 75 69 74 3d b9 0d 02 |      : |Quit=...|
|000006b0| 94 1d c9 20 26 35 30 32 | 20 20 20 3a 20 f2 68 65 |... &502|   : .he|
|000006c0| 6c 70 28 68 61 6e 64 6c | 65 25 29 0d 02 9e 1b c9 |lp(handl|e%).....|
|000006d0| 20 26 34 30 30 43 31 20 | 3a 20 f2 67 65 74 4d 6f | &400C1 |: .getMo|
|000006e0| 64 65 49 6e 66 6f 0d 02 | a8 05 cb 0d 02 b2 05 e1 |deInfo..|........|
|000006f0| 0d 02 bc 05 3a 0d 02 c6 | 14 dd 20 f2 68 65 6c 70 |....:...|.. .help|
|00000700| 28 68 61 6e 64 6c 65 25 | 29 0d 02 d0 27 ea 20 74 |(handle%|)...'. t|
|00000710| 65 78 74 24 20 3a 20 74 | 65 78 74 24 3d 22 22 20 |ext$ : t|ext$="" |
|00000720| 3a 20 69 63 6f 6e 25 3d | 62 6c 6f 63 6b 21 33 36 |: icon%=|block!36|
|00000730| 0d 02 da 36 62 6c 6f 63 | 6b 3d 68 61 6e 64 6c 65 |...6bloc|k=handle|
|00000740| 25 20 3a 20 62 6c 6f 63 | 6b 21 31 32 3d 68 61 6e |% : bloc|k!12=han|
|00000750| 64 6c 65 25 21 38 20 3a | 20 62 6c 6f 63 6b 21 31 |dle%!8 :| block!1|
|00000760| 36 3d 26 35 30 33 0d 02 | e4 17 e7 20 62 6c 6f 63 |6=&503..|... bloc|
|00000770| 6b 21 33 32 3d 43 6c 6f | 63 6b 25 20 8c 0d 02 ee |k!32=Clo|ck% ....|
|00000780| 0e c8 8e 20 69 63 6f 6e | 25 20 ca 0d 02 f8 42 c9 |... icon|% ....B.|
|00000790| 20 30 20 3a 20 74 65 78 | 74 24 3d 22 54 68 69 73 | 0 : tex|t$="This|
|000007a0| 20 69 73 20 74 68 65 20 | 63 6c 6f 63 6b 20 66 61 | is the |clock fa|
|000007b0| 63 65 20 6f 66 20 49 6e | 74 65 72 6e 61 74 69 6f |ce of In|ternatio|
|000007c0| 6e 61 6c 20 43 6c 6f 63 | 6b 2e 7c 4d 22 0d 03 02 |nal Cloc|k.|M"...|
|000007d0| 48 20 20 20 20 20 20 20 | 3a 20 74 65 78 74 24 2b |H       |: text$+|
|000007e0| 3d 22 41 64 61 70 74 65 | 64 20 66 6f 72 20 74 68 |="Adapte|d for th|
|000007f0| 65 20 52 49 53 43 20 4f | 53 20 44 65 73 6b 54 6f |e RISC O|S DeskTo|
|00000800| 70 20 62 79 20 41 6c 65 | 78 20 48 6f 70 6b 69 6e |p by Ale|x Hopkin|
|00000810| 73 2e 7c 4d 22 0d 03 0c | 4c 20 20 20 20 20 20 20 |s.|M"...|L       |
|00000820| 3a 20 74 65 78 74 24 2b | 3d 22 54 68 65 20 43 6c |: text$+|="The Cl|
|00000830| 6f 63 6b 20 69 73 20 73 | 65 74 20 75 70 20 66 6f |ock is s|et up fo|
|00000840| 72 20 42 72 69 74 69 73 | 68 20 28 4c 6f 6e 64 6f |r Britis|h (Londo|
|00000850| 6e 29 20 54 69 6d 65 20 | 2d 20 63 68 61 6e 67 65 |n) Time |- change|
|00000860| 22 0d 03 16 4d 20 20 20 | 20 20 20 20 3a 20 74 65 |"...M   |    : te|
|00000870| 78 74 24 2b 3d 22 20 74 | 68 65 20 54 20 76 61 6c |xt$+=" t|he T val|
|00000880| 75 65 73 20 69 6e 20 50 | 52 4f 43 75 70 64 61 74 |ues in P|ROCupdat|
|00000890| 65 43 6c 6f 63 6b 20 69 | 66 20 79 6f 75 20 6c 69 |eClock i|f you li|
|000008a0| 76 65 20 65 6c 73 65 77 | 68 65 72 65 2e 22 0d 03 |ve elsew|here."..|
|000008b0| 20 4a c9 20 31 20 3a 20 | 74 65 78 74 24 3d 22 54 | J. 1 : |text$="T|
|000008c0| 68 69 73 20 69 63 6f 6e | 20 73 68 6f 77 73 20 74 |his icon| shows t|
|000008d0| 68 65 20 74 69 6d 65 20 | 61 6e 64 20 64 61 74 65 |he time |and date|
|000008e0| 20 66 6f 72 20 74 68 65 | 20 73 65 6c 65 63 74 65 | for the| selecte|
|000008f0| 64 20 63 69 74 79 2e 22 | 0d 03 2a 17 c9 20 32 2c |d city."|..*.. 2,|
|00000900| 33 2c 34 2c 35 2c 36 2c | 37 2c 38 2c 39 20 3a 0d |3,4,5,6,|7,8,9 :.|
|00000910| 03 2b 36 74 65 78 74 24 | 3d 22 43 6c 69 63 6b 20 |.+6text$|="Click |
|00000920| 6f 6e 20 74 68 69 73 20 | 69 63 6f 6e 20 74 6f 20 |on this |icon to |
|00000930| 64 69 73 70 6c 61 79 20 | 74 68 65 20 74 69 6d 65 |display |the time|
|00000940| 20 69 6e 20 22 0d 03 2c | 24 e7 20 69 63 6f 6e 25 | in "..,|$. icon%|
|00000950| 3d 32 20 8c 20 74 65 78 | 74 24 2b 3d 22 4c 6f 6e |=2 . tex|t$+="Lon|
|00000960| 64 6f 6e 2c 20 55 4b 2e | 22 0d 03 34 23 e7 20 69 |don, UK.|"..4#. i|
|00000970| 63 6f 6e 25 3d 33 20 8c | 20 74 65 78 74 24 2b 3d |con%=3 .| text$+=|
|00000980| 22 48 6f 6e 67 20 4b 6f | 6e 67 2e 22 0d 03 3e 26 |"Hong Ko|ng."..>&|
|00000990| e7 20 69 63 6f 6e 25 3d | 34 20 8c 20 74 65 78 74 |. icon%=|4 . text|
|000009a0| 24 2b 3d 22 54 6f 6b 79 | 6f 2c 20 4a 61 70 61 6e |$+="Toky|o, Japan|
|000009b0| 2e 22 0d 03 48 27 e7 20 | 69 63 6f 6e 25 3d 35 20 |."..H'. |icon%=5 |
|000009c0| 8c 20 74 65 78 74 24 2b | 3d 22 4e 65 77 20 59 6f |. text$+|="New Yo|
|000009d0| 72 6b 2c 20 55 53 41 2e | 22 0d 03 52 26 e7 20 69 |rk, USA.|"..R&. i|
|000009e0| 63 6f 6e 25 3d 36 20 8c | 20 74 65 78 74 24 2b 3d |con%=6 .| text$+=|
|000009f0| 22 4d 6f 73 63 6f 77 2c | 20 55 53 53 52 2e 22 0d |"Moscow,| USSR.".|
|00000a00| 03 5c 2a e7 20 69 63 6f | 6e 25 3d 37 20 8c 20 74 |.\*. ico|n%=7 . t|
|00000a10| 65 78 74 24 2b 3d 22 4e | 65 77 20 44 65 6c 68 69 |ext$+="N|ew Delhi|
|00000a20| 2c 20 49 6e 64 69 61 2e | 22 0d 03 66 2b e7 20 69 |, India.|"..f+. i|
|00000a30| 63 6f 6e 25 3d 38 20 8c | 20 74 65 78 74 24 2b 3d |con%=8 .| text$+=|
|00000a40| 22 53 79 64 6e 65 79 2c | 20 41 75 73 74 72 61 6c |"Sydney,| Austral|
|00000a50| 69 61 2e 22 0d 03 70 2a | e7 20 69 63 6f 6e 25 3d |ia."..p*|. icon%=|
|00000a60| 39 20 8c 20 74 65 78 74 | 24 2b 3d 22 4c 6f 73 20 |9 . text|$+="Los |
|00000a70| 41 6e 67 65 6c 65 73 2c | 20 55 53 41 2e 22 0d 03 |Angeles,| USA."..|
|00000a80| 7a 49 c9 20 31 30 20 3a | 20 74 65 78 74 24 3d 22 |zI. 10 :| text$="|
|00000a90| 43 6c 69 63 6b 69 6e 67 | 20 6f 6e 20 74 68 69 73 |Clicking| on this|
|00000aa0| 20 69 63 6f 6e 20 73 65 | 74 73 20 74 68 65 20 63 | icon se|ts the c|
|00000ab0| 61 6c 63 75 6c 61 74 69 | 6f 6e 20 73 65 63 74 69 |alculati|on secti|
|00000ac0| 6f 6e 20 6f 66 20 22 0d | 03 84 42 20 20 20 20 20 |on of ".|..B     |
|00000ad0| 20 20 20 3a 20 74 65 78 | 74 24 2b 3d 22 49 6e 74 |   : tex|t$+="Int|
|00000ae0| 65 72 6e 61 74 69 6f 6e | 61 6c 20 43 6c 6f 63 6b |ernation|al Clock|
|00000af0| 20 74 6f 20 47 72 65 65 | 6e 77 69 63 68 20 4d 65 | to Gree|nwich Me|
|00000b00| 61 6e 20 54 69 6d 65 2e | 22 0d 03 8e 49 c9 20 31 |an Time.|"...I. 1|
|00000b10| 31 20 3a 20 74 65 78 74 | 24 3d 22 54 68 69 73 20 |1 : text|$="This |
|00000b20| 69 63 6f 6e 20 6d 75 73 | 74 20 62 65 20 73 65 6c |icon mus|t be sel|
|00000b30| 65 63 74 65 64 20 69 66 | 20 79 6f 75 72 20 63 6f |ected if| your co|
|00000b40| 6d 70 75 74 65 72 73 20 | 69 6e 74 65 72 6e 61 6c |mputers |internal|
|00000b50| 20 22 0d 03 98 40 20 20 | 20 20 20 20 20 20 3a 20 | "...@  |      : |
|00000b60| 74 65 78 74 24 2b 3d 22 | 63 6c 6f 63 6b 20 68 61 |text$+="|clock ha|
|00000b70| 73 20 62 65 65 6e 20 73 | 65 74 20 6f 6e 65 20 68 |s been s|et one h|
|00000b80| 6f 75 72 20 61 68 65 61 | 64 20 6f 66 20 47 4d 54 |our ahea|d of GMT|
|00000b90| 2e 22 0d 03 a2 05 cb 0d | 03 ac 05 cd 0d 03 b6 39 |."......|.......9|
|00000ba0| 24 28 62 6c 6f 63 6b 2b | 32 30 29 3d 74 65 78 74 |$(block+|20)=text|
|00000bb0| 24 20 3a 20 62 6c 6f 63 | 6b 21 30 3d 28 28 28 32 |$ : bloc|k!0=(((2|
|00000bc0| 30 2b a9 28 74 65 78 74 | 24 29 2b 31 29 81 34 29 |0+.(text|$)+1).4)|
|00000bd0| 2a 34 29 2b 34 0d 03 c0 | 1d 24 28 62 6c 6f 63 6b |*4)+4...|.$(block|
|00000be0| 2b 32 31 2b a9 28 74 65 | 78 74 24 29 29 3d bd 28 |+21+.(te|xt$))=.(|
|00000bf0| 30 29 0d 03 ca 22 c8 99 | 20 22 57 69 6d 70 5f 53 |0)..."..| "Wimp_S|
|00000c00| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 37 2c 62 |endMessa|ge",17,b|
|00000c10| 6c 6f 63 6b 0d 03 d4 05 | e1 0d 03 de 05 3a 0d 03 |lock....|.....:..|
|00000c20| e8 20 dd 20 f2 6f 70 65 | 6e 57 69 6e 64 6f 77 28 |. . .ope|nWindow(|
|00000c30| 68 61 6e 64 6c 65 25 2c | 66 75 6c 6c 25 29 0d 03 |handle%,|full%)..|
|00000c40| f2 13 62 6c 6f 63 6b 21 | 30 3d 68 61 6e 64 6c 65 |..block!|0=handle|
|00000c50| 25 0d 03 fc 3e e7 20 ac | 20 66 75 6c 6c 25 20 8c |%...>. .| full% .|
|00000c60| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e | .. "Wim|p_GetWin|
|00000c70| 64 6f 77 53 74 61 74 65 | 22 2c 30 2c 62 6c 6f 63 |dowState|",0,bloc|
|00000c80| 6b 20 3a 20 62 6c 6f 63 | 6b 21 32 38 3d 2d 31 0d |k : bloc|k!28=-1.|
|00000c90| 04 06 20 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.. .. "W|imp_Open|
|00000ca0| 57 69 6e 64 6f 77 22 2c | 30 2c 62 6c 6f 63 6b 0d |Window",|0,block.|
|00000cb0| 04 10 05 e1 0d 04 1a 05 | 3a 0d 04 24 1b dd 20 f2 |........|:..$.. .|
|00000cc0| 63 6c 6f 73 65 57 69 6e | 64 6f 77 28 68 61 6e 64 |closeWin|dow(hand|
|00000cd0| 6c 65 25 29 0d 04 2e 33 | 62 6c 6f 63 6b 21 30 3d |le%)...3|block!0=|
|00000ce0| 68 61 6e 64 6c 65 25 20 | 3a 20 c8 99 20 22 57 69 |handle% |: .. "Wi|
|00000cf0| 6d 70 5f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 22 2c |mp_Close|Window",|
|00000d00| 30 2c 62 6c 6f 63 6b 0d | 04 38 1d e7 20 68 61 6e |0,block.|.8.. han|
|00000d10| 64 6c 65 25 3d 43 6c 6f | 63 6b 25 20 8c 20 51 75 |dle%=Clo|ck% . Qu|
|00000d20| 69 74 3d b9 0d 04 42 05 | e1 0d 04 4c 05 3a 0d 04 |it=...B.|...L.:..|
|00000d30| 56 18 dd 20 f2 6d 6f 75 | 73 65 43 6c 69 63 6b 28 |V.. .mou|seClick(|
|00000d40| 62 6c 6f 63 6b 29 0d 04 | 60 37 62 75 74 74 6f 6e |block)..|`7button|
|00000d50| 25 3d 62 6c 6f 63 6b 21 | 38 20 3a 20 68 61 6e 64 |%=block!|8 : hand|
|00000d60| 6c 65 25 3d 62 6c 6f 63 | 6b 21 31 32 20 3a 20 69 |le%=bloc|k!12 : i|
|00000d70| 63 6f 6e 25 3d 62 6c 6f | 63 6b 21 31 36 0d 04 6a |con%=blo|ck!16..j|
|00000d80| 2a e7 20 68 61 6e 64 6c | 65 25 3d 43 6c 6f 63 6b |*. handl|e%=Clock|
|00000d90| 25 20 8c 20 f2 63 6c 6f | 63 6b 53 65 6c 65 63 74 |% . .clo|ckSelect|
|00000da0| 28 69 63 6f 6e 25 29 0d | 04 74 05 e1 0d 04 7e 05 |(icon%).|.t....~.|
|00000db0| 3a 0d 04 88 21 dd 20 f2 | 67 65 74 49 63 6f 6e 49 |:...!. .|getIconI|
|00000dc0| 6e 66 6f 28 68 61 6e 64 | 6c 65 25 2c 69 63 6f 6e |nfo(hand|le%,icon|
|00000dd0| 25 29 0d 04 92 23 62 6c | 6f 63 6b 21 30 3d 68 61 |%)...#bl|ock!0=ha|
|00000de0| 6e 64 6c 65 25 20 3a 20 | 62 6c 6f 63 6b 21 34 3d |ndle% : |block!4=|
|00000df0| 69 63 6f 6e 25 0d 04 9c | 21 c8 99 20 22 57 69 6d |icon%...|!.. "Wim|
|00000e00| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00000e10| 2c 62 6c 6f 63 6b 0d 04 | a6 40 69 78 30 25 3d 62 |,block..|.@ix0%=b|
|00000e20| 6c 6f 63 6b 21 38 20 3a | 20 69 79 30 25 3d 62 6c |lock!8 :| iy0%=bl|
|00000e30| 6f 63 6b 21 31 32 20 3a | 20 69 78 31 25 3d 62 6c |ock!12 :| ix1%=bl|
|00000e40| 6f 63 6b 21 31 36 20 3a | 20 69 79 31 25 3d 62 6c |ock!16 :| iy1%=bl|
|00000e50| 6f 63 6b 21 32 30 0d 04 | b0 13 66 6c 61 67 73 25 |ock!20..|..flags%|
|00000e60| 3d 62 6c 6f 63 6b 21 32 | 34 0d 04 ba 19 e7 20 28 |=block!2|4..... (|
|00000e70| 66 6c 61 67 73 25 20 80 | 20 26 31 30 30 29 3e 30 |flags% .| &100)>0|
|00000e80| 20 8c 0d 04 c4 1a 20 20 | 20 20 20 3a 20 64 61 74 | .....  |   : dat|
|00000e90| 61 24 3d 24 62 6c 6f 63 | 6b 21 32 38 0d 04 ce 19 |a$=$bloc|k!28....|
|00000ea0| cc 20 3a 20 64 61 74 61 | 24 3d 24 28 62 6c 6f 63 |. : data|$=$(bloc|
|00000eb0| 6b 2b 32 38 29 0d 04 d8 | 05 cd 0d 04 e2 05 e1 0d |k+28)...|........|
|00000ec0| 04 ec 05 3a 0d 04 f6 26 | dd 20 f2 75 70 64 61 74 |...:...&|. .updat|
|00000ed0| 65 49 63 6f 6e 28 68 61 | 6e 64 6c 65 25 2c 69 63 |eIcon(ha|ndle%,ic|
|00000ee0| 6f 6e 25 2c 74 65 78 74 | 24 29 0d 05 00 1f f2 67 |on%,text|$).....g|
|00000ef0| 65 74 49 63 6f 6e 49 6e | 66 6f 28 68 61 6e 64 6c |etIconIn|fo(handl|
|00000f00| 65 25 2c 69 63 6f 6e 25 | 29 0d 05 0a 13 24 62 6c |e%,icon%|)....$bl|
|00000f10| 6f 63 6b 21 32 38 3d 74 | 65 78 74 24 0d 05 14 1f |ock!28=t|ext$....|
|00000f20| f2 73 65 74 49 63 6f 6e | 28 68 61 6e 64 6c 65 25 |.setIcon|(handle%|
|00000f30| 2c 69 63 6f 6e 25 2c 30 | 2c 30 29 0d 05 1e 05 e1 |,icon%,0|,0).....|
|00000f40| 0d 05 28 05 3a 0d 05 32 | 28 dd 20 f2 73 65 74 49 |..(.:..2|(. .setI|
|00000f50| 63 6f 6e 28 68 61 6e 64 | 6c 65 25 2c 69 63 6f 6e |con(hand|le%,icon|
|00000f60| 25 2c 65 6f 72 25 2c 6d | 61 73 6b 25 29 0d 05 3c |%,eor%,m|ask%)..<|
|00000f70| 22 21 62 6c 6f 63 6b 3d | 68 61 6e 64 6c 65 25 20 |"!block=|handle% |
|00000f80| 3a 20 62 6c 6f 63 6b 21 | 34 3d 69 63 6f 6e 25 0d |: block!|4=icon%.|
|00000f90| 05 46 23 62 6c 6f 63 6b | 21 38 3d 65 6f 72 25 20 |.F#block|!8=eor% |
|00000fa0| 20 20 3a 20 62 6c 6f 63 | 6b 21 31 32 3d 6d 61 73 |  : bloc|k!12=mas|
|00000fb0| 6b 25 0d 05 50 21 c8 99 | 20 22 57 69 6d 70 5f 53 |k%..P!..| "Wimp_S|
|00000fc0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 6c |etIconSt|ate",,bl|
|00000fd0| 6f 63 6b 0d 05 5a 05 e1 | 0d 05 64 05 3a 0d 05 6e |ock..Z..|..d.:..n|
|00000fe0| 12 dd 20 f2 75 70 64 61 | 74 65 43 6c 6f 63 6b 0d |.. .upda|teClock.|
|00000ff0| 05 78 11 c8 8e 20 43 6f | 75 6e 74 72 79 25 20 ca |.x... Co|untry% .|
|00001000| 0d 05 82 1a c9 20 32 20 | 3a 20 54 3d 30 20 20 20 |..... 2 |: T=0   |
|00001010| 3a 20 f4 20 4c 6f 6e 64 | 6f 6e 0d 05 8c 1d c9 20 |: . Lond|on..... |
|00001020| 33 20 3a 20 54 3d 38 20 | 20 20 3a 20 f4 20 48 6f |3 : T=8 |  : . Ho|
|00001030| 6e 67 20 4b 6f 6e 67 0d | 05 96 19 c9 20 34 20 3a |ng Kong.|.... 4 :|
|00001040| 20 54 3d 39 20 20 20 3a | 20 f4 20 54 6f 6b 79 6f | T=9   :| . Tokyo|
|00001050| 0d 05 a0 1c c9 20 35 20 | 3a 20 54 3d 2d 35 20 20 |..... 5 |: T=-5  |
|00001060| 3a 20 f4 20 4e 65 77 20 | 59 6f 72 6b 0d 05 aa 1a |: . New |York....|
|00001070| c9 20 36 20 3a 20 54 3d | 33 20 20 20 3a 20 f4 20 |. 6 : T=|3   : . |
|00001080| 4d 6f 73 63 6f 77 0d 05 | b4 1d c9 20 37 20 3a 20 |Moscow..|... 7 : |
|00001090| 54 3d 35 2e 35 20 3a 20 | f4 20 4e 65 77 20 44 65 |T=5.5 : |. New De|
|000010a0| 6c 68 69 0d 05 be 1a c9 | 20 38 20 3a 20 54 3d 31 |lhi.....| 8 : T=1|
|000010b0| 30 20 20 3a 20 f4 20 53 | 79 64 6e 65 79 0d 05 c8 |0  : . S|ydney...|
|000010c0| 1f c9 20 39 20 3a 20 54 | 3d 2d 38 20 20 3a 20 f4 |.. 9 : T|=-8  : .|
|000010d0| 20 4c 6f 73 20 41 6e 67 | 65 6c 65 73 0d 05 d2 05 | Los Ang|eles....|
|000010e0| cb 0d 05 dc 27 e7 20 53 | 75 6d 6d 65 72 54 69 6d |....'. S|ummerTim|
|000010f0| 65 25 3d b9 20 80 20 43 | 6f 75 6e 74 72 79 25 3e |e%=. . C|ountry%>|
|00001100| 32 20 8c 20 54 2d 3d 31 | 0d 05 e6 1f f2 64 61 74 |2 . T-=1|.....dat|
|00001110| 65 28 54 29 20 3a 20 f2 | 74 69 6d 65 28 54 29 20 |e(T) : .|time(T) |
|00001120| 3a 20 f2 74 69 63 6b 0d | 05 f0 05 e1 0d 05 fa 05 |: .tick.|........|
|00001130| 3a 0d 06 04 19 dd 20 f2 | 63 6c 6f 63 6b 53 65 6c |:..... .|clockSel|
|00001140| 65 63 74 28 69 63 6f 6e | 25 29 0d 06 0e 1a e7 20 |ect(icon|%)..... |
|00001150| 69 63 6f 6e 25 3e 31 20 | 80 20 69 63 6f 6e 25 3c |icon%>1 |. icon%<|
|00001160| 31 30 20 8c 0d 06 18 2c | 20 20 20 20 20 3a 20 43 |10 ....,|     : C|
|00001170| 6f 75 6e 74 72 79 25 3d | 69 63 6f 6e 25 20 3a 20 |ountry%=|icon% : |
|00001180| f2 75 70 64 61 74 65 43 | 6c 6f 63 6b 20 3a 20 e1 |.updateC|lock : .|
|00001190| 0d 06 22 05 cd 0d 06 2c | 1e e7 20 69 63 6f 6e 25 |.."....,|.. icon%|
|000011a0| 3d 31 30 20 8c 20 53 75 | 6d 6d 65 72 54 69 6d 65 |=10 . Su|mmerTime|
|000011b0| 25 3d a3 0d 06 36 1e e7 | 20 69 63 6f 6e 25 3d 31 |%=...6..| icon%=1|
|000011c0| 31 20 8c 20 53 75 6d 6d | 65 72 54 69 6d 65 25 3d |1 . Summ|erTime%=|
|000011d0| b9 0d 06 40 10 f2 75 70 | 64 61 74 65 43 6c 6f 63 |...@..up|dateCloc|
|000011e0| 6b 0d 06 4a 05 e1 0d 06 | 54 05 3a 0d 06 5e 15 dd |k..J....|T.:..^..|
|000011f0| 20 a4 75 70 70 65 72 28 | 73 74 72 69 6e 67 24 29 | .upper(|string$)|
|00001200| 0d 06 68 0c 74 65 6d 70 | 24 3d 22 22 0d 06 72 16 |..h.temp|$=""..r.|
|00001210| e3 20 61 3d 31 20 b8 20 | a9 28 73 74 72 69 6e 67 |. a=1 . |.(string|
|00001220| 24 29 0d 06 7c 1f 61 24 | 3d c1 73 74 72 69 6e 67 |$)..|.a$|=.string|
|00001230| 24 2c 61 2c 31 29 20 3a | 20 61 25 3d 97 28 61 24 |$,a,1) :| a%=.(a$|
|00001240| 29 0d 06 86 1d e7 20 61 | 25 3e 39 36 20 80 20 61 |)..... a|%>96 . a|
|00001250| 25 3c 31 32 33 20 8c 20 | 61 25 2d 3d 33 32 0d 06 |%<123 . |a%-=32..|
|00001260| 90 10 74 65 6d 70 24 2b | 3d bd 28 61 25 29 0d 06 |..temp$+|=.(a%)..|
|00001270| 9a 05 ed 0d 06 a4 0a 3d | 74 65 6d 70 24 0d 06 ae |.......=|temp$...|
|00001280| 05 3a 0d 06 b8 0c dd 20 | f2 65 72 72 6f 72 0d 06 |.:..... |.error..|
|00001290| c2 25 c8 99 20 22 57 69 | 6d 70 5f 44 72 61 67 42 |.%.. "Wi|mp_DragB|
|000012a0| 6f 78 22 2c 2c 2d 31 20 | 3a 20 21 62 6c 6f 63 6b |ox",,-1 |: !block|
|000012b0| 3d 9f 20 0d 06 cc 10 e7 | 20 44 65 62 75 67 25 3d |=. .....| Debug%=|
|000012c0| a3 20 8c 0d 06 d6 56 20 | 20 20 20 20 3a 20 24 28 |. ....V |    : $(|
|000012d0| 62 6c 6f 63 6b 2b 34 29 | 3d 22 43 6c 6f 63 6b 20 |block+4)|="Clock |
|000012e0| 68 61 73 20 73 75 66 66 | 65 72 65 64 20 61 20 66 |has suff|ered a f|
|000012f0| 61 74 61 6c 20 65 72 72 | 6f 72 20 61 6e 64 20 6d |atal err|or and m|
|00001300| 75 73 74 20 65 78 69 74 | 20 69 6d 6d 65 64 69 61 |ust exit| immedia|
|00001310| 74 65 6c 79 2e 22 2b bd | 30 0d 06 e0 29 cc 20 3a |tely."+.|0...). :|
|00001320| 20 24 28 62 6c 6f 63 6b | 2b 34 29 3d f6 24 2b 22 | $(block|+4)=.$+"|
|00001330| 20 61 74 20 6c 69 6e 65 | 20 22 2b c3 28 9e 29 2b | at line| "+.(.)+|
|00001340| bd 30 0d 06 ea 05 cd 0d | 06 f4 37 c8 99 20 22 57 |.0......|..7.. "W|
|00001350| 69 6d 70 5f 52 65 70 6f | 72 74 45 72 72 6f 72 22 |imp_Repo|rtError"|
|00001360| 2c 62 6c 6f 63 6b 2c 31 | 2c 22 49 6e 74 65 72 6e |,block,1|,"Intern|
|00001370| 61 74 69 6f 6e 61 6c 20 | 43 6c 6f 63 6b 22 0d 06 |ational |Clock"..|
|00001380| fe 05 e1 0d 07 08 05 3a | 0d 07 12 10 dd 20 f2 69 |.......:|..... .i|
|00001390| 6e 69 74 43 6c 6f 63 6b | 0d 07 1c 15 e3 20 70 61 |nitClock|..... pa|
|000013a0| 73 73 25 3d 30 20 b8 20 | 32 20 88 20 32 0d 07 26 |ss%=0 . |2 . 2..&|
|000013b0| 0c 50 25 3d 43 6f 64 65 | 25 0d 07 30 11 6c 69 6e |.P%=Code|%..0.lin|
|000013c0| 6b 3d 31 34 3a 70 63 3d | 31 35 0d 07 3a 0e 5b 4f |k=14:pc=|15..:.[O|
|000013d0| 50 54 20 70 61 73 73 25 | 0d 07 44 0c 2e 63 6f 6e |PT pass%|..D..con|
|000013e0| 76 65 72 74 0d 07 4e 10 | 41 44 52 20 52 36 2c 74 |vert..N.|ADR R6,t|
|000013f0| 69 6d 65 31 0d 07 58 10 | 41 44 52 20 52 37 2c 74 |ime1..X.|ADR R7,t|
|00001400| 69 6d 65 32 0d 07 62 0d | 43 4d 50 20 52 30 2c 23 |ime2..b.|CMP R0,#|
|00001410| 30 0d 07 6c 10 42 4c 54 | 20 73 75 62 74 72 61 63 |0..l.BLT| subtrac|
|00001420| 74 0d 07 76 0f 4c 44 52 | 20 52 31 2c 5b 52 36 5d |t..v.LDR| R1,[R6]|
|00001430| 0d 07 80 11 41 44 44 53 | 20 52 31 2c 52 31 2c 52 |....ADDS| R1,R1,R|
|00001440| 30 0d 07 8a 0f 53 54 52 | 20 52 31 2c 5b 52 37 5d |0....STR| R1,[R7]|
|00001450| 0d 07 94 13 4c 44 52 42 | 20 52 31 2c 5b 52 36 2c |....LDRB| R1,[R6,|
|00001460| 23 34 5d 0d 07 9e 10 41 | 44 43 20 52 31 2c 52 31 |#4]....A|DC R1,R1|
|00001470| 2c 23 30 0d 07 a8 13 53 | 54 52 42 20 52 31 2c 5b |,#0....S|TRB R1,[|
|00001480| 52 37 2c 23 34 5d 0d 07 | b2 0f 4d 4f 56 20 70 63 |R7,#4]..|..MOV pc|
|00001490| 2c 6c 69 6e 6b 0d 07 bc | 0d 2e 73 75 62 74 72 61 |,link...|..subtra|
|000014a0| 63 74 0d 07 c6 10 52 53 | 42 20 52 30 2c 52 30 2c |ct....RS|B R0,R0,|
|000014b0| 23 30 0d 07 d0 0f 4c 44 | 52 20 52 31 2c 5b 52 36 |#0....LD|R R1,[R6|
|000014c0| 5d 0d 07 da 11 53 55 42 | 53 20 52 31 2c 52 31 2c |]....SUB|S R1,R1,|
|000014d0| 52 30 0d 07 e4 0f 53 54 | 52 20 52 31 2c 5b 52 37 |R0....ST|R R1,[R7|
|000014e0| 5d 0d 07 ee 13 4c 44 52 | 42 20 52 31 2c 5b 52 36 |]....LDR|B R1,[R6|
|000014f0| 2c 23 34 5d 0d 07 f8 10 | 53 42 43 20 52 31 2c 52 |,#4]....|SBC R1,R|
|00001500| 31 2c 23 30 0d 08 02 13 | 53 54 52 42 20 52 31 2c |1,#0....|STRB R1,|
|00001510| 5b 52 37 2c 23 34 5d 0d | 08 0c 0f 4d 4f 56 20 70 |[R7,#4].|...MOV p|
|00001520| 63 2c 6c 69 6e 6b 0d 08 | 16 05 3a 0d 08 20 18 2e |c,link..|..:.. ..|
|00001530| 74 69 6d 65 31 20 45 51 | 55 44 20 30 3a 45 51 55 |time1 EQ|UD 0:EQU|
|00001540| 44 20 30 0d 08 2a 18 2e | 74 69 6d 65 32 20 45 51 |D 0..*..|time2 EQ|
|00001550| 55 44 20 30 3a 45 51 55 | 44 20 30 0d 08 34 05 5d |UD 0:EQU|D 0..4.]|
|00001560| 0d 08 3e 0b ed 20 70 61 | 73 73 25 0d 08 48 24 21 |..>.. pa|ss%..H$!|
|00001570| 74 69 6d 65 31 3d 33 20 | 3a 20 c8 99 20 22 4f 53 |time1=3 |: .. "OS|
|00001580| 5f 57 6f 72 64 22 2c 31 | 34 2c 74 69 6d 65 31 0d |_Word",1|4,time1.|
|00001590| 08 52 05 e1 0d 08 5c 05 | 3a 0d 08 66 0e dd 20 f2 |.R....\.|:..f.. .|
|000015a0| 64 61 74 65 28 41 29 0d | 08 70 22 ea 20 69 25 20 |date(A).|.p". i% |
|000015b0| 3a 20 41 25 3d 41 2a 33 | 36 30 30 30 30 20 3a 20 |: A%=A*3|60000 : |
|000015c0| d6 20 63 6f 6e 76 65 72 | 74 0d 08 7a 45 c8 99 20 |. conver|t..zE.. |
|000015d0| 22 4f 53 5f 43 6f 6e 76 | 65 72 74 44 61 74 65 41 |"OS_Conv|ertDateA|
|000015e0| 6e 64 54 69 6d 65 22 2c | 74 69 6d 65 32 2c 64 61 |ndTime",|time2,da|
|000015f0| 74 65 25 2c 33 32 2c 22 | 25 57 45 20 25 44 59 20 |te%,32,"|%WE %DY |
|00001600| 25 4d 4f 20 25 43 45 25 | 59 52 22 2b bd 30 0d 08 |%MO %CE%|YR"+.0..|
|00001610| 84 1a 69 25 3d 30 20 3a | 20 c8 95 20 69 25 3f 64 |..i%=0 :| .. i%?d|
|00001620| 61 74 65 25 3e 3d 33 32 | 0d 08 8e 0d 69 25 2b 3d |ate%>=32|....i%+=|
|00001630| 31 20 3a 20 ce 0d 08 98 | 1e 69 25 3f 64 61 74 65 |1 : ....|.i%?date|
|00001640| 25 3d 31 33 20 3a 20 44 | 61 74 65 24 3d 24 64 61 |%=13 : D|ate$=$da|
|00001650| 74 65 25 0d 08 a2 05 e1 | 0d 08 ac 05 3a 0d 08 b6 |te%.....|....:...|
|00001660| 0e dd 20 f2 74 69 6d 65 | 28 41 29 0d 08 c0 22 ea |.. .time|(A)...".|
|00001670| 20 69 25 20 3a 20 41 25 | 3d 41 2a 33 36 30 30 30 | i% : A%|=A*36000|
|00001680| 30 20 3a 20 d6 20 63 6f | 6e 76 65 72 74 0d 08 ca |0 : . co|nvert...|
|00001690| 42 c8 99 20 22 4f 53 5f | 43 6f 6e 76 65 72 74 44 |B.. "OS_|ConvertD|
|000016a0| 61 74 65 41 6e 64 54 69 | 6d 65 22 2c 74 69 6d 65 |ateAndTi|me",time|
|000016b0| 32 2c 64 61 74 65 25 2c | 33 32 2c 22 25 31 32 20 |2,date%,|32,"%12 |
|000016c0| 25 4d 49 20 25 53 45 20 | 25 41 4d 22 2b bd 30 0d |%MI %SE |%AM"+.0.|
|000016d0| 08 d4 1a 69 25 3d 30 20 | 3a 20 c8 95 20 69 25 3f |...i%=0 |: .. i%?|
|000016e0| 64 61 74 65 25 3e 3d 33 | 32 0d 08 de 0d 69 25 2b |date%>=3|2....i%+|
|000016f0| 3d 31 20 3a 20 ce 0d 08 | e8 36 69 25 3f 64 61 74 |=1 : ...|.6i%?dat|
|00001700| 65 25 3d 31 33 20 3a 20 | 48 6f 75 72 73 24 3d c0 |e%=13 : |Hours$=.|
|00001710| 24 64 61 74 65 25 2c 32 | 29 20 3a 20 4e 6f 6f 6e |$date%,2|) : Noon|
|00001720| 24 3d c2 24 64 61 74 65 | 25 2c 32 29 0d 08 f2 2e |$=.$date|%,2)....|
|00001730| 4d 69 6e 73 24 3d c1 24 | 64 61 74 65 25 2c 34 2c |Mins$=.$|date%,4,|
|00001740| 32 29 20 3a 20 53 65 63 | 73 25 3d bb 28 c1 24 64 |2) : Sec|s%=.(.$d|
|00001750| 61 74 65 25 2c 37 2c 32 | 29 29 0d 08 fc 23 48 6f |ate%,7,2|))...#Ho|
|00001760| 75 72 73 3d bb 28 48 6f | 75 72 73 24 29 20 3a 20 |urs=.(Ho|urs$) : |
|00001770| 4d 69 6e 73 3d bb 28 4d | 69 6e 73 24 29 0d 09 06 |Mins=.(M|ins$)...|
|00001780| 05 e1 0d 09 10 05 3a 0d | 09 1a 0b dd 20 f2 74 69 |......:.|.... .ti|
|00001790| 63 6b 0d 09 24 37 c8 99 | 20 22 4f 53 5f 53 70 72 |ck..$7..| "OS_Spr|
|000017a0| 69 74 65 4f 70 22 2c 33 | 31 36 2c 53 70 72 69 74 |iteOp",3|16,Sprit|
|000017b0| 65 73 2c 22 66 61 63 65 | 22 2c 30 20 b8 20 72 30 |es,"face|",0 . r0|
|000017c0| 2c 72 31 2c 72 32 2c 72 | 33 0d 09 2e 2e c8 99 20 |,r1,r2,r|3...... |
|000017d0| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 32 39 |"OS_Spri|teOp",29|
|000017e0| 30 2c 53 70 72 69 74 65 | 73 2c 22 66 61 63 65 22 |0,Sprite|s,"face"|
|000017f0| 2c 30 2c 30 2c 30 20 0d | 09 38 28 e6 20 30 2c 30 |,0,0,0 .|.8(. 0,0|
|00001800| 20 3a 20 58 30 25 3d 28 | 31 36 34 2f 32 29 2a 32 | : X0%=(|164/2)*2|
|00001810| 20 3a 20 59 30 25 3d 28 | 38 30 2f 32 29 2a 34 0d | : Y0%=(|80/2)*4.|
|00001820| 09 42 1e c8 8f 20 c8 90 | 20 58 30 25 2c 59 30 25 |.B... ..| X0%,Y0%|
|00001830| 2c 31 34 30 20 3a 20 e6 | 20 30 2c 33 20 0d 09 4c |,140 : .| 0,3 ..L|
|00001840| 15 f4 20 44 72 61 77 20 | 68 6f 75 72 73 20 68 61 |.. Draw |hours ha|
|00001850| 6e 64 0d 09 56 1e 48 6f | 75 72 73 2b 3d 4d 69 6e |nd..V.Ho|urs+=Min|
|00001860| 73 2f 36 30 20 3a 20 ec | 20 58 30 25 2c 59 30 25 |s/60 : .| X0%,Y0%|
|00001870| 0d 09 60 3d ec 20 58 30 | 25 2b 34 30 2a b5 28 28 |..`=. X0|%+40*.((|
|00001880| 48 6f 75 72 73 2d 2e 33 | 29 2a 32 2a af 2f 31 32 |Hours-.3|)*2*./12|
|00001890| 29 2c 59 30 25 2b 34 30 | 2a 9b 28 28 48 6f 75 72 |),Y0%+40|*.((Hour|
|000018a0| 73 2d 2e 33 29 2a 32 2a | af 2f 31 32 29 0d 09 6a |s-.3)*2*|./12)..j|
|000018b0| 40 f0 20 38 35 2c 58 30 | 25 2b 34 30 2a b5 28 28 |@. 85,X0|%+40*.((|
|000018c0| 48 6f 75 72 73 2b 2e 33 | 29 2a 32 2a af 2f 31 32 |Hours+.3|)*2*./12|
|000018d0| 29 2c 59 30 25 2b 34 30 | 2a 9b 28 28 48 6f 75 72 |),Y0%+40|*.((Hour|
|000018e0| 73 2b 2e 33 29 2a 32 2a | af 2f 31 32 29 0d 09 74 |s+.3)*2*|./12)..t|
|000018f0| 36 f0 20 38 35 2c 58 30 | 25 2b 38 30 2a b5 28 48 |6. 85,X0|%+80*.(H|
|00001900| 6f 75 72 73 2a 32 2a af | 2f 31 32 29 2c 59 30 25 |ours*2*.|/12),Y0%|
|00001910| 2b 38 30 2a 9b 28 48 6f | 75 72 73 2a 32 2a af 2f |+80*.(Ho|urs*2*./|
|00001920| 31 32 29 0d 09 7e 17 f4 | 20 44 72 61 77 20 6d 69 |12)..~..| Draw mi|
|00001930| 6e 75 74 65 73 20 68 61 | 6e 64 0d 09 88 0d ec 20 |nutes ha|nd..... |
|00001940| 58 30 25 2c 59 30 25 0d | 09 92 3d ec 20 58 30 25 |X0%,Y0%.|..=. X0%|
|00001950| 2b 34 38 2a b5 28 28 4d | 69 6e 73 2d 31 2e 32 29 |+48*.((M|ins-1.2)|
|00001960| 2a 32 2a af 2f 36 30 29 | 2c 59 30 25 2b 34 38 2a |*2*./60)|,Y0%+48*|
|00001970| 9b 28 28 4d 69 6e 73 2d | 31 2e 32 29 2a 32 2a af |.((Mins-|1.2)*2*.|
|00001980| 2f 36 30 29 0d 09 9c 40 | f0 20 38 35 2c 58 30 25 |/60)...@|. 85,X0%|
|00001990| 2b 34 38 2a b5 28 28 4d | 69 6e 73 2b 31 2e 32 29 |+48*.((M|ins+1.2)|
|000019a0| 2a 32 2a af 2f 36 30 29 | 2c 59 30 25 2b 34 38 2a |*2*./60)|,Y0%+48*|
|000019b0| 9b 28 28 4d 69 6e 73 2b | 31 2e 32 29 2a 32 2a af |.((Mins+|1.2)*2*.|
|000019c0| 2f 36 30 29 0d 09 a6 36 | f0 20 38 35 2c 58 30 25 |/60)...6|. 85,X0%|
|000019d0| 2b 31 32 30 2a b5 28 4d | 69 6e 73 2a 32 2a af 2f |+120*.(M|ins*2*./|
|000019e0| 36 30 29 2c 59 30 25 2b | 31 32 30 2a 9b 28 4d 69 |60),Y0%+|120*.(Mi|
|000019f0| 6e 73 2a 32 2a af 2f 36 | 30 29 0d 09 b0 17 f4 20 |ns*2*./6|0)..... |
|00001a00| 44 72 61 77 20 73 65 63 | 6f 6e 64 73 20 68 61 6e |Draw sec|onds han|
|00001a10| 64 0d 09 ba 16 e6 20 30 | 2c 31 31 20 3a 20 ec 20 |d..... 0|,11 : . |
|00001a20| 58 30 25 2c 59 30 25 0d | 09 c4 30 df 20 42 59 20 |X0%,Y0%.|..0. BY |
|00001a30| 31 33 36 2a b5 28 53 65 | 63 73 25 2a 32 2a af 2f |136*.(Se|cs%*2*./|
|00001a40| 36 30 29 2c 31 33 36 2a | 9b 28 53 65 63 73 25 2a |60),136*|.(Secs%*|
|00001a50| 32 2a af 2f 36 30 29 0d | 09 ce 13 c8 8f 20 c8 90 |2*./60).|..... ..|
|00001a60| 20 58 30 25 2c 59 30 25 | 2c 38 0d 09 d8 20 c8 99 | X0%,Y0%|,8... ..|
|00001a70| 20 22 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 2c 72 | "OS_Spr|iteOp",r|
|00001a80| 30 2c 72 31 2c 72 32 2c | 72 33 0d 09 e2 2b f2 73 |0,r1,r2,|r3...+.s|
|00001a90| 65 74 49 63 6f 6e 28 43 | 6c 6f 63 6b 25 2c 30 2c |etIcon(C|lock%,0,|
|00001aa0| 30 2c 30 29 20 3a 20 4f | 6c 64 53 65 63 73 25 3d |0,0) : O|ldSecs%=|
|00001ab0| 53 65 63 73 25 0d 09 ec | 2b e7 20 4f 6c 64 4d 69 |Secs%...|+. OldMi|
|00001ac0| 6e 3c 3e 4d 69 6e 73 20 | 84 20 4f 6c 64 48 6f 75 |n<>Mins |. OldHou|
|00001ad0| 72 3c 3e 48 6f 75 72 73 | 20 8c 20 f2 74 6f 63 6b |r<>Hours| . .tock|
|00001ae0| 0d 09 f6 05 e1 0d 0a 00 | 05 3a 0d 0a 0a 0b dd 20 |........|.:..... |
|00001af0| f2 74 6f 63 6b 0d 0a 14 | 2c e7 20 c0 48 6f 75 72 |.tock...|,. .Hour|
|00001b00| 73 24 2c 31 29 3d 22 30 | 22 20 8c 20 48 6f 75 72 |s$,1)="0|" . Hour|
|00001b10| 73 24 3d 22 20 22 2b c2 | 48 6f 75 72 73 24 2c 31 |s$=" "+.|Hours$,1|
|00001b20| 29 0d 0a 1e 44 48 6f 75 | 72 73 24 2b 3d 22 2e 22 |)...DHou|rs$+="."|
|00001b30| 2b 4d 69 6e 73 24 2b 22 | 20 22 2b a4 75 70 70 65 |+Mins$+"| "+.uppe|
|00001b40| 72 28 4e 6f 6f 6e 24 29 | 2b 22 20 22 20 3a 20 44 |r(Noon$)|+" " : D|
|00001b50| 61 74 65 4c 69 6e 65 24 | 3d 48 6f 75 72 73 24 2b |ateLine$|=Hours$+|
|00001b60| 44 61 74 65 24 0d 0a 28 | 41 f2 75 70 64 61 74 65 |Date$..(|A.update|
|00001b70| 49 63 6f 6e 28 43 6c 6f | 63 6b 25 2c 31 2c 44 61 |Icon(Clo|ck%,1,Da|
|00001b80| 74 65 4c 69 6e 65 24 29 | 20 3a 20 4f 6c 64 4d 69 |teLine$)| : OldMi|
|00001b90| 6e 3d 4d 69 6e 73 20 3a | 20 4f 6c 64 48 6f 75 72 |n=Mins :| OldHour|
|00001ba0| 3d 48 6f 75 72 73 0d 0a | 32 05 e1 0d ff          |=Hours..|2....   |
+--------+-------------------------+-------------------------+--------+--------+