/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / baslib / ClockLib

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 18 f4 20 3e 24 | 2e 42 41 53 4c 49 42 2e |..... >$|.BASLIB.|
|00000010| 43 6c 6f 63 6b 4c 69 62 | 0d 00 14 05 3a 0d 00 1e |ClockLib|....:...|
|00000020| 19 dd a4 64 72 61 77 5f | 63 6c 6f 63 6b 28 78 30 |...draw_|clock(x0|
|00000030| 25 2c 79 30 25 29 0d 00 | 28 23 ea 20 63 6c 6f 63 |%,y0%)..|(#. cloc|
|00000040| 6b 5f 63 65 6e 74 72 65 | 78 25 2c 63 6c 6f 63 6b |k_centre|x%,clock|
|00000050| 5f 63 65 6e 74 72 65 79 | 25 0d 00 32 19 63 6c 6f |_centrey|%..2.clo|
|00000060| 63 6b 5f 72 61 64 69 75 | 73 25 20 20 20 20 20 3d |ck_radiu|s%     =|
|00000070| 38 30 0d 00 3c 19 63 6c | 6f 63 6b 5f 73 65 63 5f |80..<.cl|ock_sec_|
|00000080| 68 61 6e 64 6c 65 6e 25 | 3d 36 34 0d 00 46 19 63 |handlen%|=64..F.c|
|00000090| 6c 6f 63 6b 5f 6d 69 6e | 5f 68 61 6e 64 6c 65 6e |lock_min|_handlen|
|000000a0| 25 3d 34 38 0d 00 50 19 | 63 6c 6f 63 6b 5f 68 72 |%=48..P.|clock_hr|
|000000b0| 73 5f 68 61 6e 64 6c 65 | 6e 25 3d 33 32 0d 00 5a |s_handle|n%=32..Z|
|000000c0| 12 63 6c 6f 63 6b 73 70 | 72 68 25 3d 33 30 30 0d |.clocksp|rh%=300.|
|000000d0| 00 64 12 63 6c 6f 63 6b | 73 70 72 77 25 3d 32 30 |.d.clock|sprw%=20|
|000000e0| 30 0d 00 6e 25 63 6c 6f | 63 6b 5f 63 65 6e 74 72 |0..n%clo|ck_centr|
|000000f0| 65 78 25 3d 78 30 25 2b | 28 63 6c 6f 63 6b 73 70 |ex%=x0%+|(clocksp|
|00000100| 72 77 25 81 32 29 0d 00 | 78 28 63 6c 6f 63 6b 5f |rw%.2)..|x(clock_|
|00000110| 63 65 6e 74 72 65 79 25 | 3d 79 30 25 2b 28 63 6c |centrey%|=y0%+(cl|
|00000120| 6f 63 6b 73 70 72 68 25 | 81 32 29 2b 34 30 0d 00 |ocksprh%|.2)+40..|
|00000130| 82 19 63 6c 6f 63 6b 5f | 74 69 6d 65 24 3d c1 91 |..clock_|time$=..|
|00000140| 24 2c 31 37 2c 35 29 0d | 00 8c 2b f4 20 63 6c 6f |$,17,5).|..+. clo|
|00000150| 63 6b 5f 73 65 63 25 3d | 56 41 4c 28 52 49 47 48 |ck_sec%=|VAL(RIGH|
|00000160| 54 24 28 63 6c 6f 63 6b | 5f 74 69 6d 65 24 2c 32 |T$(clock|_time$,2|
|00000170| 29 29 0d 00 96 25 f4 20 | 63 6c 6f 63 6b 5f 73 65 |))...%. |clock_se|
|00000180| 63 5f 61 6e 67 3d 52 41 | 44 28 63 6c 6f 63 6b 5f |c_ang=RA|D(clock_|
|00000190| 73 65 63 25 2a 36 29 0d | 00 a0 37 f4 20 63 6c 6f |sec%*6).|..7. clo|
|000001a0| 63 6b 5f 73 65 63 5f 78 | 3d 53 49 4e 28 63 6c 6f |ck_sec_x|=SIN(clo|
|000001b0| 63 6b 5f 73 65 63 5f 61 | 6e 67 29 2a 63 6c 6f 63 |ck_sec_a|ng)*cloc|
|000001c0| 6b 5f 73 65 63 5f 68 61 | 6e 64 6c 65 6e 25 0d 00 |k_sec_ha|ndlen%..|
|000001d0| aa 37 f4 20 63 6c 6f 63 | 6b 5f 73 65 63 5f 79 3d |.7. cloc|k_sec_y=|
|000001e0| 43 4f 53 28 63 6c 6f 63 | 6b 5f 73 65 63 5f 61 6e |COS(cloc|k_sec_an|
|000001f0| 67 29 2a 63 6c 6f 63 6b | 5f 73 65 63 5f 68 61 6e |g)*clock|_sec_han|
|00000200| 64 6c 65 6e 25 0d 00 b4 | 23 63 6c 6f 63 6b 5f 6d |dlen%...|#clock_m|
|00000210| 69 6e 25 3d bb 28 c1 63 | 6c 6f 63 6b 5f 74 69 6d |in%=.(.c|lock_tim|
|00000220| 65 24 2c 34 2c 32 29 29 | 0d 00 be 21 63 6c 6f 63 |e$,4,2))|...!cloc|
|00000230| 6b 5f 6d 69 6e 5f 61 6e | 67 3d b2 28 63 6c 6f 63 |k_min_an|g=.(cloc|
|00000240| 6b 5f 6d 69 6e 25 2a 36 | 29 0d 00 c8 33 63 6c 6f |k_min%*6|)...3clo|
|00000250| 63 6b 5f 6d 69 6e 5f 78 | 3d b5 28 63 6c 6f 63 6b |ck_min_x|=.(clock|
|00000260| 5f 6d 69 6e 5f 61 6e 67 | 29 2a 63 6c 6f 63 6b 5f |_min_ang|)*clock_|
|00000270| 6d 69 6e 5f 68 61 6e 64 | 6c 65 6e 25 0d 00 d2 33 |min_hand|len%...3|
|00000280| 63 6c 6f 63 6b 5f 6d 69 | 6e 5f 79 3d 9b 28 63 6c |clock_mi|n_y=.(cl|
|00000290| 6f 63 6b 5f 6d 69 6e 5f | 61 6e 67 29 2a 63 6c 6f |ock_min_|ang)*clo|
|000002a0| 63 6b 5f 6d 69 6e 5f 68 | 61 6e 64 6c 65 6e 25 0d |ck_min_h|andlen%.|
|000002b0| 00 dc 23 63 6c 6f 63 6b | 5f 68 72 73 25 3d bb 28 |..#clock|_hrs%=.(|
|000002c0| c1 63 6c 6f 63 6b 5f 74 | 69 6d 65 24 2c 31 2c 32 |.clock_t|ime$,1,2|
|000002d0| 29 29 0d 00 e6 33 63 6c | 6f 63 6b 5f 68 72 73 5f |))...3cl|ock_hrs_|
|000002e0| 61 6e 67 3d b2 28 63 6c | 6f 63 6b 5f 68 72 73 25 |ang=.(cl|ock_hrs%|
|000002f0| 2a 33 36 30 2f 31 32 2b | 63 6c 6f 63 6b 5f 6d 69 |*360/12+|clock_mi|
|00000300| 6e 25 2f 32 29 0d 00 f0 | 33 63 6c 6f 63 6b 5f 68 |n%/2)...|3clock_h|
|00000310| 72 73 5f 78 3d b5 28 63 | 6c 6f 63 6b 5f 68 72 73 |rs_x=.(c|lock_hrs|
|00000320| 5f 61 6e 67 29 2a 63 6c | 6f 63 6b 5f 68 72 73 5f |_ang)*cl|ock_hrs_|
|00000330| 68 61 6e 64 6c 65 6e 25 | 0d 00 fa 33 63 6c 6f 63 |handlen%|...3cloc|
|00000340| 6b 5f 68 72 73 5f 79 3d | 9b 28 63 6c 6f 63 6b 5f |k_hrs_y=|.(clock_|
|00000350| 68 72 73 5f 61 6e 67 29 | 2a 63 6c 6f 63 6b 5f 68 |hrs_ang)|*clock_h|
|00000360| 72 73 5f 68 61 6e 64 6c | 65 6e 25 0d 01 04 0a e6 |rs_handl|en%.....|
|00000370| 20 63 79 61 6e 0d 01 0e | 19 c8 93 20 c8 90 20 78 | cyan...|... .. x|
|00000380| 30 25 2c 79 30 25 2c 32 | 30 30 2c 33 30 30 0d 01 |0%,y0%,2|00,300..|
|00000390| 18 0b e6 20 77 68 69 74 | 65 0d 01 22 1e c8 93 20 |... whit|e.."... |
|000003a0| c8 90 20 78 30 25 2b 33 | 30 2c 79 30 25 2b 32 34 |.. x0%+3|0,y0%+24|
|000003b0| 2c 31 34 30 2c 34 38 0d | 01 2c 35 c8 8f 20 c8 90 |,140,48.|.,5.. ..|
|000003c0| 20 63 6c 6f 63 6b 5f 63 | 65 6e 74 72 65 78 25 2c | clock_c|entrex%,|
|000003d0| 63 6c 6f 63 6b 5f 63 65 | 6e 74 72 65 79 25 2c 63 |clock_ce|ntrey%,c|
|000003e0| 6c 6f 63 6b 5f 72 61 64 | 69 75 73 25 0d 01 36 0b |lock_rad|ius%..6.|
|000003f0| e6 20 62 6c 61 63 6b 0d | 01 40 1b c8 93 20 78 30 |. black.|.@... x0|
|00000400| 25 2b 33 30 2c 79 30 25 | 2b 32 34 2c 31 34 30 2c |%+30,y0%|+24,140,|
|00000410| 34 38 0d 01 4a 32 c8 8f | 20 63 6c 6f 63 6b 5f 63 |48..J2..| clock_c|
|00000420| 65 6e 74 72 65 78 25 2c | 63 6c 6f 63 6b 5f 63 65 |entrex%,|clock_ce|
|00000430| 6e 74 72 65 79 25 2c 63 | 6c 6f 63 6b 5f 72 61 64 |ntrey%,c|lock_rad|
|00000440| 69 75 73 25 0d 01 54 26 | c8 8f 20 63 6c 6f 63 6b |ius%..T&|.. clock|
|00000450| 5f 63 65 6e 74 72 65 78 | 25 2c 63 6c 6f 63 6b 5f |_centrex|%,clock_|
|00000460| 63 65 6e 74 72 65 79 25 | 2c 34 0d 01 5e 3b ec 20 |centrey%|,4..^;. |
|00000470| 63 6c 6f 63 6b 5f 63 65 | 6e 74 72 65 78 25 2c 63 |clock_ce|ntrex%,c|
|00000480| 6c 6f 63 6b 5f 63 65 6e | 74 72 65 79 25 2b 63 6c |lock_cen|trey%+cl|
|00000490| 6f 63 6b 5f 72 61 64 69 | 75 73 25 3a f0 20 31 2c |ock_radi|us%:. 1,|
|000004a0| 30 2c 2d 32 30 0d 01 68 | 3b ec 20 63 6c 6f 63 6b |0,-20..h|;. clock|
|000004b0| 5f 63 65 6e 74 72 65 78 | 25 2b 63 6c 6f 63 6b 5f |_centrex|%+clock_|
|000004c0| 72 61 64 69 75 73 25 2c | 63 6c 6f 63 6b 5f 63 65 |radius%,|clock_ce|
|000004d0| 6e 74 72 65 79 25 3a f0 | 20 31 2c 2d 32 30 2c 30 |ntrey%:.| 1,-20,0|
|000004e0| 0d 01 72 3a ec 20 63 6c | 6f 63 6b 5f 63 65 6e 74 |..r:. cl|ock_cent|
|000004f0| 72 65 78 25 2c 63 6c 6f | 63 6b 5f 63 65 6e 74 72 |rex%,clo|ck_centr|
|00000500| 65 79 25 2d 63 6c 6f 63 | 6b 5f 72 61 64 69 75 73 |ey%-cloc|k_radius|
|00000510| 25 3a f0 20 31 2c 30 2c | 32 30 0d 01 7c 3a ec 20 |%:. 1,0,|20..|:. |
|00000520| 63 6c 6f 63 6b 5f 63 65 | 6e 74 72 65 78 25 2d 63 |clock_ce|ntrex%-c|
|00000530| 6c 6f 63 6b 5f 72 61 64 | 69 75 73 25 2c 63 6c 6f |lock_rad|ius%,clo|
|00000540| 63 6b 5f 63 65 6e 74 72 | 65 79 25 3a f0 20 31 2c |ck_centr|ey%:. 1,|
|00000550| 32 30 2c 30 0d 01 86 21 | ec 20 78 30 25 2b 36 30 |20,0...!|. x0%+60|
|00000560| 2c 79 30 25 2b 36 30 3a | f1 20 63 6c 6f 63 6b 5f |,y0%+60:|. clock_|
|00000570| 74 69 6d 65 24 0d 01 90 | 23 ec 20 63 6c 6f 63 6b |time$...|#. clock|
|00000580| 5f 63 65 6e 74 72 65 78 | 25 2c 63 6c 6f 63 6b 5f |_centrex|%,clock_|
|00000590| 63 65 6e 74 72 65 79 25 | 0d 01 9a 24 f4 20 50 4c |centrey%|...$. PL|
|000005a0| 4f 54 20 31 2c 63 6c 6f | 63 6b 5f 73 65 63 5f 78 |OT 1,clo|ck_sec_x|
|000005b0| 2c 63 6c 6f 63 6b 5f 73 | 65 63 5f 79 0d 01 a4 23 |,clock_s|ec_y...#|
|000005c0| ec 20 63 6c 6f 63 6b 5f | 63 65 6e 74 72 65 78 25 |. clock_|centrex%|
|000005d0| 2c 63 6c 6f 63 6b 5f 63 | 65 6e 74 72 65 79 25 0d |,clock_c|entrey%.|
|000005e0| 01 ae 1f f0 20 31 2c 63 | 6c 6f 63 6b 5f 6d 69 6e |.... 1,c|lock_min|
|000005f0| 5f 78 2c 63 6c 6f 63 6b | 5f 6d 69 6e 5f 79 0d 01 |_x,clock|_min_y..|
|00000600| b8 23 ec 20 63 6c 6f 63 | 6b 5f 63 65 6e 74 72 65 |.#. cloc|k_centre|
|00000610| 78 25 2c 63 6c 6f 63 6b | 5f 63 65 6e 74 72 65 79 |x%,clock|_centrey|
|00000620| 25 0d 01 c2 1f f0 20 31 | 2c 63 6c 6f 63 6b 5f 68 |%..... 1|,clock_h|
|00000630| 72 73 5f 78 2c 63 6c 6f | 63 6b 5f 68 72 73 5f 79 |rs_x,clo|ck_hrs_y|
|00000640| 0d 01 cc 06 3d 30 0d 01 | d6 05 3a 0d 01 e0 20 dd |....=0..|..:... .|
|00000650| f2 63 6c 6f 63 6b 5f 62 | 61 63 6b 67 72 6f 75 6e |.clock_b|ackgroun|
|00000660| 64 5f 74 61 73 6b 28 77 | 31 25 29 0d 01 ea 17 e7 |d_task(w|1%).....|
|00000670| 20 63 6c 6f 63 6b 5f 64 | 69 73 70 6c 61 79 65 64 | clock_d|isplayed|
|00000680| 20 8c 0d 01 f4 24 20 20 | e7 20 c2 91 24 2c 32 29 | ....$  |. ..$,2)|
|00000690| 3c 3e 22 30 30 22 20 8c | 20 63 6c 6f 63 6b 5f 66 |<>"00" .| clock_f|
|000006a0| 6c 61 67 25 3d a3 0d 01 | fe 25 20 20 e7 20 c2 91 |lag%=...|.%  . ..|
|000006b0| 24 2c 32 29 3d 22 30 30 | 22 20 80 20 63 6c 6f 63 |$,2)="00|" . cloc|
|000006c0| 6b 5f 66 6c 61 67 25 3d | a3 20 8c 0d 02 08 15 20 |k_flag%=|. ..... |
|000006d0| 20 20 20 63 6c 6f 63 6b | 5f 66 6c 61 67 25 3d b9 |   clock|_flag%=.|
|000006e0| 0d 02 12 27 20 20 20 20 | f2 75 70 64 61 74 65 77 |...'    |.updatew|
|000006f0| 69 6e 64 6f 77 28 77 31 | 25 2c 36 30 2c 32 38 2c |indow(w1|%,60,28,|
|00000700| 31 35 30 2c 36 38 29 0d | 02 1c 76 20 20 20 20 f2 |150,68).|..v    .|
|00000710| 75 70 64 61 74 65 77 69 | 6e 64 6f 77 28 77 31 25 |updatewi|ndow(w1%|
|00000720| 2c 31 30 30 2d 63 6c 6f | 63 6b 5f 6d 69 6e 5f 68 |,100-clo|ck_min_h|
|00000730| 61 6e 64 6c 65 6e 25 2c | 31 39 30 2d 63 6c 6f 63 |andlen%,|190-cloc|
|00000740| 6b 5f 6d 69 6e 5f 68 61 | 6e 64 6c 65 6e 25 2c 31 |k_min_ha|ndlen%,1|
|00000750| 30 30 2b 63 6c 6f 63 6b | 5f 6d 69 6e 5f 68 61 6e |00+clock|_min_han|
|00000760| 64 6c 65 6e 25 2c 31 39 | 30 2b 63 6c 6f 63 6b 5f |dlen%,19|0+clock_|
|00000770| 6d 69 6e 5f 68 61 6e 64 | 6c 65 6e 25 29 0d 02 26 |min_hand|len%)..&|
|00000780| 07 20 20 cd 0d 02 30 05 | cd 0d 02 3a 13 e7 20 24 |.  ...0.|...:.. $|
|00000790| 61 6c 61 72 6d 25 3c 3e | 22 22 20 8c 0d 02 44 1b |alarm%<>|"" ...D.|
|000007a0| 20 20 e7 20 c1 91 24 2c | 31 37 2c 35 29 3d 24 61 |  . ..$,|17,5)=$a|
|000007b0| 6c 61 72 6d 25 20 8c 0d | 02 4e 0a 20 20 20 20 ef |larm% ..|.N.    .|
|000007c0| 37 0d 02 58 07 20 20 cd | 0d 02 62 05 cd 0d 02 6c |7..X.  .|..b....l|
|000007d0| 05 e1 0d 02 76 05 3a 0d | 02 80 1d dd f2 61 6c 61 |....v.:.|.....ala|
|000007e0| 72 6d 5f 69 63 6f 6e 5f | 68 61 6e 64 6c 65 72 28 |rm_icon_|handler(|
|000007f0| 77 31 25 29 0d 02 8a 0a | c8 8e 20 b9 20 ca 0d 02 |w1%)....|.. . ...|
|00000800| 94 21 20 20 c9 20 28 62 | 75 74 74 6f 6e 25 20 80 |.!  . (b|utton% .|
|00000810| 20 34 29 3d 34 20 80 20 | 69 63 6f 6e 25 3d 30 0d | 4)=4 . |icon%=0.|
|00000820| 02 9e 1a 20 20 20 20 f2 | 64 65 6c 65 74 65 77 69 |...    .|deletewi|
|00000830| 6e 64 6f 77 28 77 31 25 | 29 0d 02 a8 21 20 20 c9 |ndow(w1%|)...!  .|
|00000840| 20 28 62 75 74 74 6f 6e | 25 20 80 20 34 29 3d 34 | (button|% . 4)=4|
|00000850| 20 80 20 69 63 6f 6e 25 | 3d 31 0d 02 b2 12 20 20 | . icon%|=1....  |
|00000860| 20 20 24 61 6c 61 72 6d | 25 3d 22 22 0d 02 bc 1a |  $alarm|%=""....|
|00000870| 20 20 20 20 f2 64 65 6c | 65 74 65 77 69 6e 64 6f |    .del|etewindo|
|00000880| 77 28 77 31 25 29 0d 02 | c6 05 cb 0d 02 d0 05 e1 |w(w1%)..|........|
|00000890| 0d 02 da 05 3a 0d ff    |                         |....:.. |        |
+--------+-------------------------+-------------------------+--------+--------+