home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1990-03-23 | 10.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 14 11 f4 20 20 | 42 69 6f 72 79 74 68 6d |e..... |Biorythm|
|00000020| 73 2e 0d 00 1e 25 f4 20 | 20 42 79 20 53 2e 42 75 |s....%. | By S.Bu|
|00000030| 72 6e 65 74 74 20 33 72 | 64 20 4f 63 74 6f 62 65 |rnett 3r|d Octobe|
|00000040| 72 20 20 31 39 39 30 0d | 00 28 25 f4 20 20 27 57 |r 1990.|.(%. 'W|
|00000050| 69 6d 70 69 66 69 65 64 | 27 20 20 37 74 68 20 46 |impified|' 7th F|
|00000060| 65 62 72 75 61 72 79 20 | 31 39 39 30 0d 00 32 25 |ebruary |1990..2%|
|00000070| f4 20 20 4d 6f 64 69 66 | 69 65 64 20 20 20 20 32 |. Modif|ied 2|
|00000080| 33 72 64 20 4d 61 72 63 | 68 20 20 20 20 31 39 39 |3rd Marc|h 199|
|00000090| 30 0d 00 3c 05 3a 0d 00 | 46 1c de 20 4e 75 6d 44 |0..<.:..|F.. NumD|
|000000a0| 61 79 73 28 31 32 29 2c | 6d 6f 6e 74 68 24 28 31 |ays(12),|month$(1|
|000000b0| 32 29 0d 00 50 1d de 20 | 62 6c 6f 63 6b 25 20 26 |2)..P.. |block% &|
|000000c0| 32 30 30 2c 20 6d 65 6e | 75 25 20 26 32 30 30 0d |200, men|u% &200.|
|000000d0| 00 5a 05 3a 0d 00 64 14 | 24 28 62 6c 6f 63 6b 25 |.Z.:..d.|$(block%|
|000000e0| 29 3d 22 54 41 53 4b 22 | 0d 00 6e 40 c8 99 22 57 |)="TASK"|..n@.."W|
|000000f0| 69 6d 70 5f 49 6e 69 74 | 69 61 6c 69 73 65 22 2c |imp_Init|ialise",|
|00000100| 32 30 30 2c 21 62 6c 6f | 63 6b 25 2c 22 42 69 6f |200,!blo|ck%,"Bio|
|00000110| 72 79 74 68 6d 73 22 20 | b8 20 76 65 72 73 69 6f |rythms" |. versio|
|00000120| 6e 25 2c 74 61 73 6b 25 | 0d 00 78 05 3a 0d 00 82 |n%,task%|..x.:...|
|00000130| 09 f2 69 6e 69 74 0d 00 | 8c 0d f2 74 65 6d 70 6c |..init..|...templ|
|00000140| 61 74 65 0d 00 96 0d f2 | 69 63 6f 6e 5f 62 61 72 |ate.....|icon_bar|
|00000150| 0d 00 a0 0f f2 69 6e 69 | 74 5f 69 63 6f 6e 73 0d |.....ini|t_icons.|
|00000160| 00 aa 0b 71 75 69 74 25 | 3d a3 0d 00 b4 11 6d 6f |...quit%|=.....mo|
|00000170| 6e 74 68 5f 70 6c 6f 74 | 25 3d b9 0d 00 be 05 3a |nth_plot|%=.....:|
|00000180| 0d 00 c8 05 f5 0d 00 d2 | 0d 20 20 20 20 f2 70 6f |........|. .po|
|00000190| 6c 6c 0d 00 dc 0a 20 20 | 20 20 c8 96 0d 00 e6 0b |ll.... | ......|
|000001a0| fd 20 71 75 69 74 25 0d | 00 f0 05 3a 0d 00 fa 2d |. quit%.|...:...-|
|000001b0| c8 99 22 4f 53 5f 42 79 | 74 65 22 2c 32 30 20 3a |.."OS_By|te",20 :|
|000001c0| 20 f4 20 72 65 73 65 74 | 20 66 6f 6e 74 20 64 65 | . reset| font de|
|000001d0| 66 69 6e 69 74 69 6f 6e | 73 0d 01 04 14 24 28 62 |finition|s....$(b|
|000001e0| 6c 6f 63 6b 25 29 3d 22 | 54 41 53 4b 22 0d 01 0e |lock%)="|TASK"...|
|000001f0| 24 c8 99 22 57 69 6d 70 | 5f 43 6c 6f 73 65 44 6f |$.."Wimp|_CloseDo|
|00000200| 77 6e 22 2c 74 61 73 6b | 25 2c 21 62 6c 6f 63 6b |wn",task|%,!block|
|00000210| 25 0d 01 18 05 e0 0d 01 | 22 05 3a 0d 01 2c 45 3d |%.......|".:..,E=|
|00000220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000230| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000250| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000260| 0d 01 36 05 3a 0d 01 40 | 0a dd f2 70 6f 6c 6c 0d |..6.:..@|...poll.|
|00000270| 01 4a 2c 20 20 20 20 c8 | 99 22 57 69 6d 70 5f 50 |.J, .|."Wimp_P|
|00000280| 6f 6c 6c 22 2c 26 31 39 | 32 31 2c 62 6c 6f 63 6b |oll",&19|21,block|
|00000290| 25 20 b8 20 72 65 61 73 | 6f 6e 25 0d 01 54 14 20 |% . reas|on%..T. |
|000002a0| 20 20 20 c8 8e 20 72 65 | 61 73 6f 6e 25 20 ca 0d | .. re|ason% ..|
|000002b0| 01 5e 26 20 20 20 20 20 | 20 20 20 c9 20 31 20 20 |.^& | . 1 |
|000002c0| 20 20 20 3a 20 f2 72 65 | 64 72 61 77 28 21 62 6c | : .re|draw(!bl|
|000002d0| 6f 63 6b 25 29 0d 01 68 | 31 20 20 20 20 20 20 20 |ock%)..h|1 |
|000002e0| 20 c9 20 32 20 20 20 20 | 20 3a 20 c8 99 22 57 69 | . 2 | : .."Wi|
|000002f0| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|00000300| 62 6c 6f 63 6b 25 0d 01 | 72 25 20 20 20 20 20 20 |block%..|r% |
|00000310| 20 20 c9 20 33 20 20 20 | 20 20 3a 20 f2 63 6c 6f | . 3 | : .clo|
|00000320| 73 65 28 21 62 6c 6f 63 | 6b 25 29 0d 01 7c 43 20 |se(!bloc|k%)..|C |
|00000330| 20 20 20 20 20 20 20 c9 | 20 34 20 20 20 20 20 3a | .| 4 :|
|00000340| 20 e7 20 21 62 6c 6f 63 | 6b 25 3d 69 6e 66 6f 5f | . !bloc|k%=info_|
|00000350| 77 69 6e 64 6f 77 25 20 | 8c 20 f2 63 6c 6f 73 65 |window% |. .close|
|00000360| 28 69 6e 66 6f 5f 77 69 | 6e 64 6f 77 25 29 0d 01 |(info_wi|ndow%)..|
|00000370| 86 3a 20 20 20 20 20 20 | 20 20 c9 20 36 20 20 20 |.: | . 6 |
|00000380| 20 20 3a 20 f2 63 6c 69 | 63 6b 28 62 6c 6f 63 6b | : .cli|ck(block|
|00000390| 25 21 38 2c 62 6c 6f 63 | 6b 25 21 31 32 2c 62 6c |%!8,bloc|k%!12,bl|
|000003a0| 6f 63 6b 25 21 31 36 29 | 0d 01 90 33 20 20 20 20 |ock%!16)|...3 |
|000003b0| 20 20 20 20 c9 20 39 20 | 20 20 20 20 3a 20 f2 6d | . 9 | : .m|
|000003c0| 65 6e 75 5f 63 6c 69 63 | 6b 28 21 62 6c 6f 63 6b |enu_clic|k(!block|
|000003d0| 25 2c 62 6c 6f 63 6b 25 | 21 34 29 0d 01 9a 2d 20 |%,block%|!4)...- |
|000003e0| 20 20 20 20 20 20 20 c9 | 20 31 37 2c 31 38 20 3a | .| 17,18 :|
|000003f0| 20 e7 20 62 6c 6f 63 6b | 25 21 31 36 3d 30 20 8c | . block|%!16=0 .|
|00000400| 20 71 75 69 74 25 3d b9 | 0d 01 a4 09 20 20 20 20 | quit%=.|.... |
|00000410| cb 0d 01 ae 05 e1 0d 01 | b8 05 3a 0d 01 c2 13 dd |........|..:.....|
|00000420| f2 72 65 64 72 61 77 28 | 77 69 6e 64 25 29 0d 01 |.redraw(|wind%)..|
|00000430| cc 14 62 6c 6f 63 6b 25 | 21 30 20 3d 20 77 69 6e |..block%|!0 = win|
|00000440| 64 25 0d 01 d6 29 c8 99 | 22 57 69 6d 70 5f 52 65 |d%...)..|"Wimp_Re|
|00000450| 64 72 61 77 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |drawWind|ow",,blo|
|00000460| 63 6b 25 20 b8 20 6d 6f | 72 65 25 0d 01 e0 1e f2 |ck% . mo|re%.....|
|00000470| 67 65 74 6f 72 69 67 69 | 6e 28 62 6c 6f 63 6b 25 |getorigi|n(block%|
|00000480| 2c 78 30 25 2c 79 30 25 | 29 0d 01 ea 0c c8 95 20 |,x0%,y0%|)...... |
|00000490| 6d 6f 72 65 25 0d 01 f4 | 1d 20 20 20 20 f2 72 65 |more%...|. .re|
|000004a0| 64 72 61 77 5f 70 6c 6f | 74 28 78 30 25 2c 79 30 |draw_plo|t(x0%,y0|
|000004b0| 25 29 0d 01 fe 2d 20 20 | 20 20 c8 99 22 57 69 6d |%)...- | .."Wim|
|000004c0| 70 5f 47 65 74 52 65 63 | 74 61 6e 67 6c 65 22 2c |p_GetRec|tangle",|
|000004d0| 2c 62 6c 6f 63 6b 25 20 | b8 20 6d 6f 72 65 25 0d |,block% |. more%.|
|000004e0| 02 08 05 ce 0d 02 12 05 | e1 0d 02 1c 05 3a 0d 02 |........|.....:..|
|000004f0| 26 24 dd f2 67 65 74 6f | 72 69 67 69 6e 28 62 6c |&$..geto|rigin(bl|
|00000500| 6f 63 6b 25 2c f8 20 78 | 30 25 2c 20 f8 20 79 30 |ock%,. x|0%, . y0|
|00000510| 25 29 0d 02 30 1a 78 30 | 25 3d 62 6c 6f 63 6b 25 |%)..0.x0|%=block%|
|00000520| 21 34 2d 62 6c 6f 63 6b | 25 21 32 30 0d 02 3a 1b |!4-block|%!20..:.|
|00000530| 79 30 25 3d 62 6c 6f 63 | 6b 25 21 31 36 2d 62 6c |y0%=bloc|k%!16-bl|
|00000540| 6f 63 6b 25 21 32 34 0d | 02 44 05 e1 0d 02 4e 05 |ock%!24.|.D....N.|
|00000550| 3a 0d 02 58 1c dd f2 6d | 65 6e 75 5f 63 6c 69 63 |:..X...m|enu_clic|
|00000560| 6b 28 73 65 6c 25 2c 73 | 65 6c 32 25 29 0d 02 62 |k(sel%,s|el2%)..b|
|00000570| 11 20 20 20 20 c8 8e 20 | 73 65 6c 25 20 ca 0d 02 |. .. |sel% ...|
|00000580| 6c 11 20 20 20 20 20 20 | 20 20 c9 20 30 20 3a 0d |l. | . 0 :.|
|00000590| 02 76 1c 20 20 20 20 20 | 20 20 20 c9 20 31 20 3a |.v. | . 1 :|
|000005a0| 20 c8 8e 20 73 65 6c 32 | 25 20 ca 0d 02 80 39 20 | .. sel2|% ....9 |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000005c0| 20 20 20 c9 20 30 20 3a | 20 6d 6f 6e 74 68 5f 70 | . 0 :| month_p|
|000005d0| 6c 6f 74 25 3d a3 3a f2 | 63 6c 6f 73 65 28 70 6c |lot%=.:.|close(pl|
|000005e0| 6f 74 25 29 0d 02 8a 39 | 20 20 20 20 20 20 20 20 |ot%)...9| |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 c9 20 31 20 | | . 1 |
|00000600| 3a 20 6d 6f 6e 74 68 5f | 70 6c 6f 74 25 3d b9 3a |: month_|plot%=.:|
|00000610| f2 63 6c 6f 73 65 28 70 | 6c 6f 74 25 29 0d 02 94 |.close(p|lot%)...|
|00000620| 16 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000630| 20 20 cb 0d 02 9e 19 20 | 20 20 20 20 20 20 20 c9 | ..... | .|
|00000640| 20 32 20 3a 20 71 75 69 | 74 25 3d b9 0d 02 a8 09 | 2 : qui|t%=.....|
|00000650| 20 20 20 20 cb 0d 02 b2 | 05 e1 0d 02 bc 05 3a 0d | ....|......:.|
|00000660| 02 c6 1d dd f2 73 65 6c | 65 63 74 5f 69 63 6f 6e |.....sel|ect_icon|
|00000670| 28 69 63 6f 6e 25 2c 62 | 69 74 25 29 0d 02 d0 14 |(icon%,b|it%)....|
|00000680| 21 62 6c 6f 63 6b 25 3d | 77 68 61 6e 64 6c 65 25 |!block%=|whandle%|
|00000690| 0d 02 da 12 62 6c 6f 63 | 6b 25 21 34 3d 69 63 6f |....bloc|k%!4=ico|
|000006a0| 6e 25 0d 02 e4 30 62 6c | 6f 63 6b 25 21 38 3d 62 |n%...0bl|ock%!8=b|
|000006b0| 69 74 25 3c 3c 32 31 20 | 20 20 20 20 20 20 3a 20 |it%<<21 | : |
|000006c0| f4 20 73 65 74 2f 63 6c | 65 61 72 20 62 69 74 20 |. set/cl|ear bit |
|000006d0| 32 31 0d 02 ee 2a 62 6c | 6f 63 6b 25 21 31 32 3d |21...*bl|ock%!12=|
|000006e0| 31 3c 3c 32 31 20 20 20 | 20 20 20 20 20 20 3a 20 |1<<21 | : |
|000006f0| f4 20 73 65 74 20 62 69 | 74 20 32 31 0d 02 f8 21 |. set bi|t 21...!|
|00000700| c8 99 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |.."Wimp_|SetIconS|
|00000710| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 0d 03 02 |tate",,b|lock%...|
|00000720| 05 e1 0d 03 0c 05 3a 0d | 03 16 15 dd a4 73 65 6c |......:.|.....sel|
|00000730| 65 63 74 65 64 28 69 63 | 6f 6e 25 29 0d 03 20 14 |ected(ic|on%).. .|
|00000740| 21 62 6c 6f 63 6b 25 3d | 77 68 61 6e 64 6c 65 25 |!block%=|whandle%|
|00000750| 0d 03 2a 12 62 6c 6f 63 | 6b 25 21 34 3d 69 63 6f |..*.bloc|k%!4=ico|
|00000760| 6e 25 0d 03 34 21 c8 99 | 22 57 69 6d 70 5f 47 65 |n%..4!..|"Wimp_Ge|
|00000770| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6f |tIconSta|te",,blo|
|00000780| 63 6b 25 0d 03 3e 2c e7 | 20 28 28 62 6c 6f 63 6b |ck%..>,.| ((block|
|00000790| 25 21 32 34 29 20 80 20 | 28 31 3c 3c 32 31 29 29 |%!24) . |(1<<21))|
|000007a0| 20 3c 3e 20 30 20 8c 20 | 3d b9 20 8b 20 3d a3 0d | <> 0 . |=. . =..|
|000007b0| 03 48 05 3a 0d 03 52 24 | dd f2 73 65 74 5f 62 75 |.H.:..R$|..set_bu|
|000007c0| 74 74 6f 6e 5f 74 79 70 | 65 28 69 63 6f 6e 25 2c |tton_typ|e(icon%,|
|000007d0| 62 75 74 74 6f 6e 25 29 | 0d 03 5c 14 21 62 6c 6f |button%)|..\.!blo|
|000007e0| 63 6b 25 3d 77 68 61 6e | 64 6c 65 25 0d 03 66 12 |ck%=whan|dle%..f.|
|000007f0| 62 6c 6f 63 6b 25 21 34 | 3d 69 63 6f 6e 25 0d 03 |block%!4|=icon%..|
|00000800| 70 37 62 6c 6f 63 6b 25 | 21 38 3d 62 75 74 74 6f |p7block%|!8=butto|
|00000810| 6e 25 3c 3c 31 32 20 20 | 20 20 20 20 20 20 20 20 |n%<<12 | |
|00000820| 20 3a 20 f4 20 73 65 74 | 20 62 75 74 74 6f 6e 20 | : . set| button |
|00000830| 66 6c 61 67 73 0d 03 7a | 36 62 6c 6f 63 6b 25 21 |flags..z|6block%!|
|00000840| 31 32 3d 26 46 3c 3c 31 | 32 20 20 20 20 20 20 20 |12=&F<<1|2 |
|00000850| 20 20 20 20 20 20 20 3a | 20 f4 20 73 65 74 20 62 | :| . set b|
|00000860| 75 74 74 6f 6e 20 66 6c | 61 67 73 0d 03 84 21 c8 |utton fl|ags...!.|
|00000870| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|00000880| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 03 8e 05 |ate",,bl|ock%....|
|00000890| e1 0d 03 98 05 3a 0d 03 | a2 2f dd a4 69 63 6f 6e |.....:..|./..icon|
|000008a0| 28 21 62 6c 6f 63 6b 25 | 2c 74 65 78 74 24 2c 4c |(!block%|,text$,L|
|000008b0| 25 2c 42 25 2c 57 25 2c | 48 25 2c 62 6c 6f 63 6b |%,B%,W%,|H%,block|
|000008c0| 25 21 32 30 29 0d 03 ac | 1a f4 20 75 73 65 64 20 |%!20)...|.. used |
|000008d0| 62 79 20 50 52 4f 43 69 | 63 6f 6e 5f 62 61 72 0d |by PROCi|con_bar.|
|000008e0| 03 b6 1b 62 6c 6f 63 6b | 25 21 34 3d 4c 25 3a 62 |...block|%!4=L%:b|
|000008f0| 6c 6f 63 6b 25 21 38 3d | 42 25 0d 03 c0 23 62 6c |lock%!8=|B%...#bl|
|00000900| 6f 63 6b 25 21 31 32 3d | 4c 25 2b 57 25 3a 62 6c |ock%!12=|L%+W%:bl|
|00000910| 6f 63 6b 25 21 31 36 3d | 42 25 2b 48 25 0d 03 ca |ock%!16=|B%+H%...|
|00000920| 22 e7 20 74 65 78 74 24 | 3c 3e 22 22 20 24 28 62 |". text$|<>"" $(b|
|00000930| 6c 6f 63 6b 25 2b 32 34 | 29 3d 74 65 78 74 24 0d |lock%+24|)=text$.|
|00000940| 03 d4 24 c8 99 22 57 69 | 6d 70 5f 43 72 65 61 74 |..$.."Wi|mp_Creat|
|00000950| 65 49 63 6f 6e 22 2c 2c | 62 6c 6f 63 6b 25 20 b8 |eIcon",,|block% .|
|00000960| 20 49 25 0d 03 de 07 3d | 49 25 0d 03 e8 05 3a 0d | I%....=|I%....:.|
|00000970| 03 f2 10 dd f2 69 6e 69 | 74 5f 69 63 6f 6e 73 0d |.....ini|t_icons.|
|00000980| 03 fc 2a f4 20 70 75 74 | 20 63 75 72 72 65 6e 74 |..*. put| current|
|00000990| 20 64 61 74 65 20 69 6e | 74 6f 20 77 68 61 6e 64 | date in|to whand|
|000009a0| 6c 65 25 20 69 63 6f 6e | 73 0d 04 06 23 f4 20 70 |le% icon|s...#. p|
|000009b0| 75 74 20 64 61 74 65 20 | 62 65 6c 6f 77 20 69 6e |ut date |below in|
|000009c0| 74 6f 20 64 6f 62 20 69 | 63 6f 6e 73 0d 04 10 22 |to dob i|cons..."|
|000009d0| 64 6f 62 5f 64 25 3d 31 | 33 3a 64 6f 62 5f 6d 25 |dob_d%=1|3:dob_m%|
|000009e0| 3d 33 3a 64 6f 62 5f 79 | 25 3d 31 39 36 39 0d 04 |=3:dob_y|%=1969..|
|000009f0| 1a 04 0d 04 24 21 3f 62 | 6c 6f 63 6b 25 3d 31 20 |....$!?b|lock%=1 |
|00000a00| 3a 20 f4 20 72 65 61 64 | 20 43 4d 4f 53 20 63 6c |: . read| CMOS cl|
|00000a10| 6f 63 6b 0d 04 2e 19 c8 | 99 22 4f 53 5f 57 6f 72 |ock.....|."OS_Wor|
|00000a20| 64 22 2c 31 34 2c 62 6c | 6f 63 6b 25 0d 04 38 20 |d",14,bl|ock%..8 |
|00000a30| 63 75 72 5f 64 25 20 3d | 20 bb 28 c2 c3 7e 28 62 |cur_d% =| .(..~(b|
|00000a40| 6c 6f 63 6b 25 3f 32 29 | 2c 32 29 29 0d 04 42 20 |lock%?2)|,2))..B |
|00000a50| 63 75 72 5f 6d 25 20 3d | 20 bb 28 c2 c3 7e 28 62 |cur_m% =| .(..~(b|
|00000a60| 6c 6f 63 6b 25 3f 31 29 | 2c 32 29 29 0d 04 4c 24 |lock%?1)|,2))..L$|
|00000a70| 63 75 72 5f 79 25 20 3d | 20 bb 28 c2 c3 7e 28 3f |cur_y% =| .(..~(?|
|00000a80| 62 6c 6f 63 6b 25 29 2c | 32 29 29 2b 31 39 30 30 |block%),|2))+1900|
|00000a90| 0d 04 56 11 f2 75 70 64 | 61 74 65 5f 64 61 74 65 |..V..upd|ate_date|
|00000aa0| 73 0d 04 60 05 e1 0d 04 | 6a 06 3a 34 0d 04 74 0a |s..`....|j.:4..t.|
|00000ab0| dd f2 69 6e 69 74 0d 04 | 7e 24 ef 32 33 2c 32 35 |..init..|~$.23,25|
|00000ac0| 34 2c 32 34 2c 36 30 2c | 39 30 2c 31 35 33 2c 32 |4,24,60,|90,153,2|
|00000ad0| 34 2c 32 34 2c 32 34 2c | 32 34 0d 04 88 23 ef 32 |4,24,24,|24...#.2|
|00000ae0| 33 2c 32 35 35 2c 33 32 | 2c 33 32 2c 33 32 2c 32 |3,255,32|,32,32,2|
|00000af0| 35 32 2c 33 32 2c 33 32 | 2c 33 32 2c 30 0d 04 92 |52,32,32|,32,0...|
|00000b00| 0e e3 20 4b 3d 31 20 b8 | 20 31 32 0d 04 9c 1d 20 |.. K=1 .| 12.... |
|00000b10| 20 20 f3 20 4e 75 6d 44 | 61 79 73 28 4b 29 2c 6d | . NumD|ays(K),m|
|00000b20| 6f 6e 74 68 24 28 4b 29 | 0d 04 a6 05 ed 0d 04 b0 |onth$(K)|........|
|00000b30| 05 e1 0d 04 ba 2e dc 20 | 33 31 2c 4a 61 6e 75 61 |....... |31,Janua|
|00000b40| 72 79 2c 32 38 2c 46 65 | 62 72 75 61 72 79 2c 33 |ry,28,Fe|bruary,3|
|00000b50| 31 2c 4d 61 72 63 68 2c | 33 30 2c 41 70 72 69 6c |1,March,|30,April|
|00000b60| 0d 04 c4 33 dc 20 33 31 | 2c 4d 61 79 2c 33 30 2c |...3. 31|,May,30,|
|00000b70| 4a 75 6e 65 2c 33 31 2c | 4a 75 6c 79 2c 33 31 2c |June,31,|July,31,|
|00000b80| 41 75 67 75 73 74 2c 33 | 30 2c 53 65 70 74 65 6d |August,3|0,Septem|
|00000b90| 62 65 72 0d 04 ce 28 dc | 20 33 31 2c 4f 63 74 6f |ber...(.| 31,Octo|
|00000ba0| 62 65 72 2c 33 30 2c 4e | 6f 76 65 6d 62 65 72 2c |ber,30,N|ovember,|
|00000bb0| 33 31 2c 44 65 63 65 6d | 62 65 72 0d 04 d8 05 3a |31,Decem|ber....:|
|00000bc0| 0d 04 e2 18 dd f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |......op|en_windo|
|00000bd0| 77 28 77 69 6e 64 25 29 | 0d 04 ec 13 20 20 21 62 |w(wind%)|.... !b|
|00000be0| 6c 6f 63 6b 25 3d 77 69 | 6e 64 25 0d 04 f6 25 20 |lock%=wi|nd%...% |
|00000bf0| 20 c8 99 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 | .."Wimp|_GetWind|
|00000c00| 6f 77 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |owState"|,,block%|
|00000c10| 0d 05 00 21 20 20 c8 99 | 22 57 69 6d 70 5f 4f 70 |...! ..|"Wimp_Op|
|00000c20| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |enWindow|",,block|
|00000c30| 25 0d 05 0a 05 e1 0d 05 | 14 05 3a 0d 05 1e 12 dd |%.......|..:.....|
|00000c40| f2 63 6c 6f 73 65 28 77 | 69 6e 64 25 29 0d 05 28 |.close(w|ind%)..(|
|00000c50| 15 20 20 20 20 21 62 6c | 6f 63 6b 25 3d 77 69 6e |. !bl|ock%=win|
|00000c60| 64 25 0d 05 32 24 20 20 | 20 20 c8 99 22 57 69 6d |d%..2$ | .."Wim|
|00000c70| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 2c |p_CloseW|indow",,|
|00000c80| 62 6c 6f 63 6b 25 0d 05 | 3c 05 e1 0d 05 46 05 3a |block%..|<....F.:|
|00000c90| 0d 05 50 15 dd f2 63 6c | 69 63 6b 28 42 25 2c 57 |..P...cl|ick(B%,W|
|00000ca0| 25 2c 49 25 29 0d 05 5a | 0b c8 8e 20 42 25 20 ca |%,I%)..Z|... B% .|
|00000cb0| 0d 05 64 22 20 20 20 20 | c9 20 31 2c 34 20 3a 20 |..d" |. 1,4 : |
|00000cc0| f2 63 6c 69 63 6b 65 64 | 28 57 25 2c 49 25 2c 42 |.clicked|(W%,I%,B|
|00000cd0| 25 29 0d 05 6e 26 20 20 | 20 20 c9 20 32 20 20 20 |%)..n& | . 2 |
|00000ce0| 3a 20 e7 20 57 25 3d 2d | 32 20 f2 6d 65 6e 75 28 |: . W%=-|2 .menu(|
|00000cf0| 21 62 6c 6f 63 6b 25 29 | 0d 05 78 05 cb 0d 05 82 |!block%)|..x.....|
|00000d00| 05 e1 0d 05 8c 05 3a 0d | 05 96 21 dd f2 63 6c 69 |......:.|..!..cli|
|00000d10| 63 6b 65 64 28 77 68 65 | 72 65 25 2c 69 63 6f 6e |cked(whe|re%,icon|
|00000d20| 25 2c 74 79 70 65 25 29 | 0d 05 a0 22 e7 20 74 79 |%,type%)|...". ty|
|00000d30| 70 65 25 3d 31 20 8c 20 | 73 74 65 70 25 3d 31 30 |pe%=1 . |step%=10|
|00000d40| 20 8b 20 73 74 65 70 25 | 3d 31 0d 05 aa 0f c8 8e | . step%|=1......|
|00000d50| 20 77 68 65 72 65 25 20 | ca 0d 05 b4 1e 20 20 20 | where% |..... |
|00000d60| c9 20 77 68 61 6e 64 6c | 65 25 20 3a 20 c8 8e 20 |. whandl|e% : .. |
|00000d70| 69 63 6f 6e 25 20 ca 0d | 05 be 61 20 20 20 20 20 |icon% ..|..a |
|00000d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d90| 20 20 c9 20 20 30 20 3a | 20 64 6f 62 5f 64 25 2b | . 0 :| dob_d%+|
|00000da0| 3d 73 74 65 70 25 3a e7 | 20 64 6f 62 5f 64 25 3e |=step%:.| dob_d%>|
|00000db0| 4e 75 6d 44 61 79 73 28 | 64 6f 62 5f 6d 25 29 20 |NumDays(|dob_m%) |
|00000dc0| 8c 20 64 6f 62 5f 64 25 | 3d 4e 75 6d 44 61 79 73 |. dob_d%|=NumDays|
|00000dd0| 28 64 6f 62 5f 6d 25 29 | 0d 05 c8 45 20 20 20 20 |(dob_m%)|...E |
|00000de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000df0| 20 20 20 c9 20 20 31 20 | 3a 20 64 6f 62 5f 64 25 | . 1 |: dob_d%|
|00000e00| 2d 3d 73 74 65 70 25 3a | e7 20 64 6f 62 5f 64 25 |-=step%:|. dob_d%|
|00000e10| 3c 31 20 8c 20 64 6f 62 | 5f 64 25 3d 31 0d 05 d2 |<1 . dob|_d%=1...|
|00000e20| 47 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |G | |
|00000e30| 20 20 20 20 20 20 20 20 | c9 20 20 32 20 3a 20 64 | |. 2 : d|
|00000e40| 6f 62 5f 6d 25 2b 3d 73 | 74 65 70 25 3a e7 20 64 |ob_m%+=s|tep%:. d|
|00000e50| 6f 62 5f 6d 25 3e 31 32 | 20 8c 20 64 6f 62 5f 6d |ob_m%>12| . dob_m|
|00000e60| 25 3d 31 32 0d 05 dc 45 | 20 20 20 20 20 20 20 20 |%=12...E| |
|00000e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 c9 | | .|
|00000e80| 20 20 33 20 3a 20 64 6f | 62 5f 6d 25 2d 3d 73 74 | 3 : do|b_m%-=st|
|00000e90| 65 70 25 3a e7 20 64 6f | 62 5f 6d 25 3c 31 20 8c |ep%:. do|b_m%<1 .|
|00000ea0| 20 64 6f 62 5f 6d 25 3d | 31 0d 05 e6 4a 20 20 20 | dob_m%=|1...J |
|00000eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ec0| 20 20 20 20 c9 20 20 34 | 20 3a 20 64 6f 62 5f 79 | . 4| : dob_y|
|00000ed0| 25 2b 3d 73 74 65 70 25 | 3a e7 20 64 6f 62 5f 79 |%+=step%|:. dob_y|
|00000ee0| 25 3e 32 30 35 30 20 8c | 64 6f 62 5f 79 25 3d 32 |%>2050 .|dob_y%=2|
|00000ef0| 30 35 30 0d 05 f0 4a 20 | 20 20 20 20 20 20 20 20 |050...J | |
|00000f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 c9 20 | | . |
|00000f10| 20 35 20 3a 20 64 6f 62 | 5f 79 25 2d 3d 73 74 65 | 5 : dob|_y%-=ste|
|00000f20| 70 25 3a e7 20 64 6f 62 | 5f 79 25 3c 31 38 38 30 |p%:. dob|_y%<1880|
|00000f30| 20 8c 64 6f 62 5f 79 25 | 3d 31 38 38 30 0d 05 fa | .dob_y%|=1880...|
|00000f40| 61 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |a | |
|00000f50| 20 20 20 20 20 20 20 20 | c9 20 20 36 20 3a 20 63 | |. 6 : c|
|00000f60| 75 72 5f 64 25 2b 3d 73 | 74 65 70 25 3a e7 20 63 |ur_d%+=s|tep%:. c|
|00000f70| 75 72 5f 64 25 3e 4e 75 | 6d 44 61 79 73 28 63 75 |ur_d%>Nu|mDays(cu|
|00000f80| 72 5f 6d 25 29 20 8c 20 | 63 75 72 5f 64 25 3d 4e |r_m%) . |cur_d%=N|
|00000f90| 75 6d 44 61 79 73 28 63 | 75 72 5f 6d 25 29 0d 06 |umDays(c|ur_m%)..|
|00000fa0| 04 45 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.E | |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 c9 20 20 37 20 3a 20 | | . 7 : |
|00000fc0| 63 75 72 5f 64 25 2d 3d | 73 74 65 70 25 3a e7 20 |cur_d%-=|step%:. |
|00000fd0| 63 75 72 5f 64 25 3c 31 | 20 8c 20 63 75 72 5f 64 |cur_d%<1| . cur_d|
|00000fe0| 25 3d 31 0d 06 0e 47 20 | 20 20 20 20 20 20 20 20 |%=1...G | |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 c9 20 | | . |
|00001000| 20 38 20 3a 20 63 75 72 | 5f 6d 25 2b 3d 73 74 65 | 8 : cur|_m%+=ste|
|00001010| 70 25 3a e7 20 63 75 72 | 5f 6d 25 3e 31 32 20 8c |p%:. cur|_m%>12 .|
|00001020| 20 63 75 72 5f 6d 25 3d | 31 32 0d 06 18 45 20 20 | cur_m%=|12...E |
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001040| 20 20 20 20 20 c9 20 20 | 39 20 3a 20 63 75 72 5f | . |9 : cur_|
|00001050| 6d 25 2d 3d 73 74 65 70 | 25 3a e7 20 63 75 72 5f |m%-=step|%:. cur_|
|00001060| 6d 25 3c 31 20 8c 20 63 | 75 72 5f 6d 25 3d 31 0d |m%<1 . c|ur_m%=1.|
|00001070| 06 22 4a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |."J | |
|00001080| 20 20 20 20 20 20 20 20 | 20 20 c9 20 31 30 20 3a | | . 10 :|
|00001090| 20 63 75 72 5f 79 25 2b | 3d 73 74 65 70 25 3a e7 | cur_y%+|=step%:.|
|000010a0| 20 63 75 72 5f 79 25 3e | 32 30 35 30 20 8c 63 75 | cur_y%>|2050 .cu|
|000010b0| 72 5f 79 25 3d 32 30 35 | 30 0d 06 2c 4a 20 20 20 |r_y%=205|0..,J |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000010d0| 20 20 20 20 c9 20 31 31 | 20 3a 20 63 75 72 5f 79 | . 11| : cur_y|
|000010e0| 25 2d 3d 73 74 65 70 25 | 3a e7 20 63 75 72 5f 79 |%-=step%|:. cur_y|
|000010f0| 25 3c 31 38 38 30 20 8c | 63 75 72 5f 79 25 3d 31 |%<1880 .|cur_y%=1|
|00001100| 38 38 30 0d 06 36 27 20 | 20 20 20 20 20 20 20 20 |880..6' | |
|00001110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 c9 20 | | . |
|00001120| 32 30 20 3a 20 f2 70 6c | 6f 74 0d 06 40 18 20 20 |20 : .pl|ot..@. |
|00001130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001140| 20 cb 0d 06 4a 3f 20 20 | 20 20 20 20 20 20 20 20 | ...J? | |
|00001150| 20 20 20 20 20 20 20 20 | 20 e7 20 69 63 6f 6e 25 | | . icon%|
|00001160| 20 3e 3d 30 20 80 20 69 | 63 6f 6e 25 20 3c 3d 31 | >=0 . i|con% <=1|
|00001170| 31 20 8c 20 f2 75 70 64 | 61 74 65 5f 64 61 74 65 |1 . .upd|ate_date|
|00001180| 73 0d 06 54 20 20 20 20 | c9 20 2d 32 20 3a 20 f4 |s..T |. -2 : .|
|00001190| 20 50 52 4f 43 63 6c 6f | 73 65 28 70 6c 6f 74 25 | PROCclo|se(plot%|
|000011a0| 29 0d 06 5e 27 20 20 20 | 20 20 20 20 20 20 20 20 |)..^' | |
|000011b0| 20 20 f2 6f 70 65 6e 5f | 77 69 6e 64 6f 77 28 77 | .open_|window(w|
|000011c0| 68 61 6e 64 6c 65 25 29 | 0d 06 68 05 cb 0d 06 72 |handle%)|..h....r|
|000011d0| 04 0d 06 7c 05 e1 0d 06 | 86 05 3a 0d 06 90 29 dd |...|....|..:...).|
|000011e0| f2 77 72 69 74 65 5f 73 | 74 72 69 6e 67 28 77 69 |.write_s|tring(wi|
|000011f0| 6e 64 6f 77 25 2c 69 63 | 6f 6e 25 2c 73 74 72 69 |ndow%,ic|on%,stri|
|00001200| 6e 67 24 29 0d 06 9a 2c | f4 20 70 75 74 73 20 61 |ng$)...,|. puts a|
|00001210| 20 73 74 72 69 6e 67 20 | 69 6e 74 6f 20 61 6e 20 | string |into an |
|00001220| 69 6e 64 69 72 65 63 74 | 65 64 20 69 63 6f 6e 2e |indirect|ed icon.|
|00001230| 0d 06 a4 13 21 62 6c 6f | 63 6b 25 3d 77 69 6e 64 |....!blo|ck%=wind|
|00001240| 6f 77 25 0d 06 ae 12 62 | 6c 6f 63 6b 25 21 34 3d |ow%....b|lock%!4=|
|00001250| 69 63 6f 6e 25 0d 06 b8 | 21 c8 99 22 57 69 6d 70 |icon%...|!.."Wimp|
|00001260| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00001270| 62 6c 6f 63 6b 25 0d 06 | c2 1d 24 28 62 6c 6f 63 |block%..|..$(bloc|
|00001280| 6b 25 21 32 38 29 3d 73 | 74 72 69 6e 67 24 2b bd |k%!28)=s|tring$+.|
|00001290| 28 30 29 0d 06 cc 13 21 | 62 6c 6f 63 6b 25 3d 77 |(0)....!|block%=w|
|000012a0| 69 6e 64 6f 77 25 0d 06 | d6 12 62 6c 6f 63 6b 25 |indow%..|..block%|
|000012b0| 21 34 3d 69 63 6f 6e 25 | 0d 06 e0 0e 62 6c 6f 63 |!4=icon%|....bloc|
|000012c0| 6b 25 21 38 3d 30 0d 06 | ea 0f 62 6c 6f 63 6b 25 |k%!8=0..|..block%|
|000012d0| 21 31 32 3d 30 0d 06 f4 | 21 c8 99 22 57 69 6d 70 |!12=0...|!.."Wimp|
|000012e0| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|000012f0| 62 6c 6f 63 6b 25 0d 06 | fe 24 f4 20 74 68 69 73 |block%..|.$. this|
|00001300| 20 63 61 75 73 65 73 20 | 69 63 6f 6e 20 74 6f 20 | causes |icon to |
|00001310| 62 65 20 72 65 64 72 61 | 77 6e 0d 07 08 05 e1 0d |be redra|wn......|
|00001320| 07 12 05 3a 0d 07 1c 0e | dd f2 69 63 6f 6e 5f 62 |...:....|..icon_b|
|00001330| 61 72 0d 07 26 31 64 75 | 6d 6d 79 25 3d a4 69 63 |ar..&1du|mmy%=.ic|
|00001340| 6f 6e 28 2d 31 2c 22 21 | 42 69 6f 72 79 74 68 6d |on(-1,"!|Biorythm|
|00001350| 73 22 2c 30 2c 30 2c 36 | 38 2c 36 38 2c 26 33 30 |s",0,0,6|8,68,&30|
|00001360| 30 41 29 0d 07 30 05 e1 | 0d 07 3a 05 3a 0d 07 44 |0A)..0..|..:.:..D|
|00001370| 05 3a 0d 07 4e 0e dd f2 | 6d 65 6e 75 28 58 25 29 |.:..N...|menu(X%)|
|00001380| 0d 07 58 1c 4d 25 3d 6d | 65 6e 75 25 3a 24 4d 25 |..X.M%=m|enu%:$M%|
|00001390| 3d 22 42 69 6f 72 79 74 | 68 6d 73 22 0d 07 62 23 |="Bioryt|hms"..b#|
|000013a0| 4d 25 21 31 32 3d 26 37 | 30 32 30 37 3a 4d 25 21 |M%!12=&7|0207:M%!|
|000013b0| 31 36 3d 31 32 30 3a 4d | 25 21 32 30 3d 34 34 0d |16=120:M|%!20=44.|
|000013c0| 07 6c 04 0d 07 76 26 4d | 25 21 32 34 3d 30 3a 4d |.l...v&M|%!24=0:M|
|000013d0| 25 21 32 38 3d 30 3a 4d | 25 21 33 32 3d 69 6e 66 |%!28=0:M|%!32=inf|
|000013e0| 6f 5f 77 69 6e 64 6f 77 | 25 0d 07 80 22 4d 25 21 |o_window|%..."M%!|
|000013f0| 33 36 3d 26 37 30 30 30 | 30 32 31 3a 24 28 4d 25 |36=&7000|021:$(M%|
|00001400| 2b 34 30 29 3d 22 49 6e | 66 6f 22 0d 07 8a 04 0d |+40)="In|fo".....|
|00001410| 07 94 21 4d 25 21 34 38 | 3d 30 3a 4d 25 21 35 32 |..!M%!48|=0:M%!52|
|00001420| 3d 30 3a 4d 25 21 35 36 | 3d 28 4d 25 2b 39 36 29 |=0:M%!56|=(M%+96)|
|00001430| 0d 07 9e 23 4d 25 21 36 | 30 3d 26 37 30 30 30 30 |...#M%!6|0=&70000|
|00001440| 32 31 3a 24 28 4d 25 2b | 36 34 29 3d 22 53 74 79 |21:$(M%+|64)="Sty|
|00001450| 6c 65 22 0d 07 a8 04 0d | 07 b2 1e 4d 25 21 37 32 |le".....|...M%!72|
|00001460| 3d 30 3a 4d 25 21 37 36 | 3d 26 38 30 3a 4d 25 21 |=0:M%!76|=&80:M%!|
|00001470| 38 30 3d 2d 31 0d 07 bc | 22 4d 25 21 38 34 3d 26 |80=-1...|"M%!84=&|
|00001480| 37 30 30 30 30 32 31 3a | 24 28 4d 25 2b 38 38 29 |7000021:|$(M%+88)|
|00001490| 3d 22 51 75 69 74 22 0d | 07 c6 04 0d 07 d0 14 24 |="Quit".|.......$|
|000014a0| 28 4d 25 2b 39 36 29 3d | 22 53 74 79 6c 65 22 0d |(M%+96)=|"Style".|
|000014b0| 07 da 26 4d 25 21 31 30 | 38 3d 26 37 30 32 30 37 |..&M%!10|8=&70207|
|000014c0| 3a 4d 25 21 31 31 32 3d | 31 32 30 3a 4d 25 21 31 |:M%!112=|120:M%!1|
|000014d0| 31 36 3d 34 34 0d 07 e4 | 04 0d 07 ee 24 4d 25 21 |16=44...|....$M%!|
|000014e0| 31 32 30 3d 30 3a 4d 25 | 21 31 32 34 3d 94 28 ac |120=0:M%|!124=.(.|
|000014f0| 20 6d 6f 6e 74 68 5f 70 | 6c 6f 74 25 29 0d 07 f8 | month_p|lot%)...|
|00001500| 30 4d 25 21 31 32 38 3d | 2d 31 3a 4d 25 21 31 33 |0M%!128=|-1:M%!13|
|00001510| 32 3d 26 37 30 30 30 30 | 32 31 3a 24 28 4d 25 2b |2=&70000|21:$(M%+|
|00001520| 31 33 36 29 3d 22 32 30 | 20 44 61 79 22 0d 08 02 |136)="20| Day"...|
|00001530| 04 0d 08 0c 26 4d 25 21 | 31 34 34 3d 30 3a 4d 25 |....&M%!|144=0:M%|
|00001540| 21 31 34 38 3d 94 28 6d | 6f 6e 74 68 5f 70 6c 6f |!148=.(m|onth_plo|
|00001550| 74 25 29 2b 26 38 30 0d | 08 16 2f 4d 25 21 31 35 |t%)+&80.|../M%!15|
|00001560| 32 3d 2d 31 3a 4d 25 21 | 31 35 36 3d 26 37 30 30 |2=-1:M%!|156=&700|
|00001570| 30 30 32 31 3a 24 28 4d | 25 2b 31 36 30 29 3d 22 |0021:$(M|%+160)="|
|00001580| 4d 6f 6e 74 68 22 0d 08 | 20 04 0d 08 2a 25 c8 99 |Month"..| ...*%..|
|00001590| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|000015a0| 22 2c 2c 4d 25 2c 58 25 | 2d 36 35 2c 32 30 30 0d |",,M%,X%|-65,200.|
|000015b0| 08 34 05 e1 0d 08 3e 05 | 3a 0d 08 48 0e dd f2 74 |.4....>.|:..H...t|
|000015c0| 65 6d 70 6c 61 74 65 0d | 08 52 1a de 20 77 73 25 |emplate.|.R.. ws%|
|000015d0| 20 26 38 30 30 3a 20 63 | 75 72 77 73 25 3d 77 73 | &800: c|urws%=ws|
|000015e0| 25 0d 08 5c 0d de 20 51 | 25 20 32 30 34 38 0d 08 |%..\.. Q|% 2048..|
|000015f0| 66 31 c8 99 22 57 69 6d | 70 5f 4f 70 65 6e 54 65 |f1.."Wim|p_OpenTe|
|00001600| 6d 70 6c 61 74 65 22 2c | 2c 22 3c 4f 62 65 79 24 |mplate",|,"<Obey$|
|00001610| 44 69 72 3e 2e 54 65 6d | 70 6c 61 74 65 73 22 0d |Dir>.Tem|plates".|
|00001620| 08 70 50 c8 99 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.pP.."Wi|mp_LoadT|
|00001630| 65 6d 70 6c 61 74 65 22 | 2c 2c 51 25 2c 63 75 72 |emplate"|,,Q%,cur|
|00001640| 77 73 25 2c 77 73 25 2b | 26 38 30 30 2c 2d 31 2c |ws%,ws%+|&800,-1,|
|00001650| 22 49 6e 66 6f 22 2c 30 | 20 b8 20 2c 2c 63 75 72 |"Info",0| . ,,cur|
|00001660| 77 73 25 2c 2c 2c 2c 63 | 75 72 5f 70 6f 73 25 0d |ws%,,,,c|ur_pos%.|
|00001670| 08 7a 4f e7 20 63 75 72 | 5f 70 6f 73 25 20 3d 20 |.zO. cur|_pos% = |
|00001680| 30 20 8c 20 f2 65 72 72 | 6f 72 28 22 43 61 6e 27 |0 . .err|or("Can'|
|00001690| 74 20 66 69 6e 64 20 27 | 49 6e 66 6f 27 20 54 65 |t find '|Info' Te|
|000016a0| 6d 70 6c 61 74 65 22 29 | 3a 69 6e 66 6f 5f 77 69 |mplate")|:info_wi|
|000016b0| 6e 64 6f 77 25 3d 2d 31 | 3a e5 8d 74 4e 48 0d 08 |ndow%=-1|:..tNH..|
|000016c0| 84 2c c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |.,.."Wim|p_Create|
|000016d0| 57 69 6e 64 6f 77 22 2c | 2c 51 25 20 b8 20 69 6e |Window",|,Q% . in|
|000016e0| 66 6f 5f 77 69 6e 64 6f | 77 25 0d 08 8e 05 3a 0d |fo_windo|w%....:.|
|000016f0| 08 98 50 c8 99 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |..P.."Wi|mp_LoadT|
|00001700| 65 6d 70 6c 61 74 65 22 | 2c 2c 51 25 2c 63 75 72 |emplate"|,,Q%,cur|
|00001710| 77 73 25 2c 77 73 25 2b | 26 38 30 30 2c 2d 31 2c |ws%,ws%+|&800,-1,|
|00001720| 22 70 6c 6f 74 22 2c 30 | 20 b8 20 2c 2c 63 75 72 |"plot",0| . ,,cur|
|00001730| 77 73 25 2c 2c 2c 2c 63 | 75 72 5f 70 6f 73 25 0d |ws%,,,,c|ur_pos%.|
|00001740| 08 a2 48 e7 20 63 75 72 | 5f 70 6f 73 25 20 3d 20 |..H. cur|_pos% = |
|00001750| 30 20 8c 20 f2 65 72 72 | 6f 72 28 22 43 61 6e 27 |0 . .err|or("Can'|
|00001760| 74 20 66 69 6e 64 20 27 | 70 6c 6f 74 27 20 54 65 |t find '|plot' Te|
|00001770| 6d 70 6c 61 74 65 22 29 | 3a 70 6c 6f 74 25 3d 2d |mplate")|:plot%=-|
|00001780| 31 3a e5 8d 74 76 48 0d | 08 ac 25 c8 99 22 57 69 |1:..tvH.|..%.."Wi|
|00001790| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|000017a0| 2c 2c 51 25 20 b8 20 70 | 6c 6f 74 25 0d 08 b6 04 |,,Q% . p|lot%....|
|000017b0| 0d 08 c0 51 c8 99 22 57 | 69 6d 70 5f 4c 6f 61 64 |...Q.."W|imp_Load|
|000017c0| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 51 25 2c 63 75 |Template|",,Q%,cu|
|000017d0| 72 77 73 25 2c 77 73 25 | 2b 26 38 30 30 2c 2d 31 |rws%,ws%|+&800,-1|
|000017e0| 2c 22 64 61 74 65 73 22 | 2c 30 20 b8 20 2c 2c 63 |,"dates"|,0 . ,,c|
|000017f0| 75 72 77 73 25 2c 2c 2c | 2c 63 75 72 5f 70 6f 73 |urws%,,,|,cur_pos|
|00001800| 25 0d 08 ca 4c e7 20 63 | 75 72 5f 70 6f 73 25 20 |%...L. c|ur_pos% |
|00001810| 3d 20 30 20 8c 20 f2 65 | 72 72 6f 72 28 22 43 61 |= 0 . .e|rror("Ca|
|00001820| 6e 27 74 20 66 69 6e 64 | 20 27 64 61 74 65 73 27 |n't find| 'dates'|
|00001830| 20 54 65 6d 70 6c 61 74 | 65 22 29 3a 77 68 61 6e | Templat|e"):whan|
|00001840| 64 6c 65 25 3d 2d 31 3a | e5 8d 64 5e 48 0d 08 d4 |dle%=-1:|..d^H...|
|00001850| 28 c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |(.."Wimp|_CreateW|
|00001860| 69 6e 64 6f 77 22 2c 2c | 51 25 20 b8 20 77 68 61 |indow",,|Q% . wha|
|00001870| 6e 64 6c 65 25 0d 08 de | 1a c8 99 22 57 69 6d 70 |ndle%...|..."Wimp|
|00001880| 5f 43 6c 6f 73 65 54 65 | 6d 70 6c 61 74 65 22 0d |_CloseTe|mplate".|
|00001890| 08 e8 05 e1 0d 08 f2 05 | 3a 0d 08 fc 13 dd f2 65 |........|:......e|
|000018a0| 72 72 6f 72 28 65 72 72 | 6f 72 24 29 0d 09 06 0d |rror(err|or$)....|
|000018b0| 21 62 6c 6f 63 6b 25 3d | 9f 0d 09 10 1b 24 28 62 |!block%=|.....$(b|
|000018c0| 6c 6f 63 6b 25 2b 34 29 | 3d 65 72 72 6f 72 24 2b |lock%+4)|=error$+|
|000018d0| bd 28 30 29 0d 09 1a 2d | c8 99 22 57 69 6d 70 5f |.(0)...-|.."Wimp_|
|000018e0| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 62 6c 6f |ReportEr|ror",blo|
|000018f0| 63 6b 25 2c 31 2c 22 42 | 69 6f 72 79 74 68 6d 73 |ck%,1,"B|iorythms|
|00001900| 22 0d 09 24 0b 71 75 69 | 74 25 3d b9 0d 09 2e 05 |"..$.qui|t%=.....|
|00001910| e1 0d 09 38 05 3a 0d 09 | 42 05 3a 0d 09 4c 3d 3a |...8.:..|B.:..L=:|
|00001920| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001930| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001940| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001950| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 09 56 1f 3a 20 20 20 |========|..V.: |
|00001960| 20 20 20 20 20 20 20 20 | 20 20 50 6c 6f 74 20 72 | | Plot r|
|00001970| 6f 75 74 69 6e 65 73 0d | 09 60 3d 3a 3d 3d 3d 3d |outines.|.`=:====|
|00001980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000019a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000019b0| 3d 3d 3d 3d 0d 09 6a 14 | dd f2 74 69 74 6c 65 28 |====..j.|..title(|
|000019c0| 73 74 72 69 6e 67 24 29 | 0d 09 74 2c f4 20 2a 2a |string$)|..t,. **|
|000019d0| 2a 20 4d 61 78 20 74 69 | 74 6c 65 20 6c 65 6e 67 |* Max ti|tle leng|
|000019e0| 74 68 20 3d 32 37 20 61 | 74 20 6d 6f 6d 65 6e 74 |th =27 a|t moment|
|000019f0| 20 2a 2a 2a 0d 09 7e 11 | 21 62 6c 6f 63 6b 25 3d | ***..~.|!block%=|
|00001a00| 70 6c 6f 74 25 0d 09 88 | 22 c8 99 22 57 69 6d 70 |plot%...|".."Wimp|
|00001a10| 5f 47 65 74 57 69 6e 64 | 6f 77 49 6e 66 6f 22 2c |_GetWind|owInfo",|
|00001a20| 2c 62 6c 6f 63 6b 25 0d | 09 92 18 24 28 62 6c 6f |,block%.|...$(blo|
|00001a30| 63 6b 25 21 37 36 29 3d | 73 74 72 69 6e 67 24 0d |ck%!76)=|string$.|
|00001a40| 09 9c 05 e1 0d 09 a6 05 | 3a 0d 09 b0 0a dd f2 70 |........|:......p|
|00001a50| 6c 6f 74 0d 09 ba 13 e7 | 20 6d 6f 6e 74 68 5f 70 |lot.....| month_p|
|00001a60| 6c 6f 74 25 20 8c 0d 09 | c4 1b 20 20 20 20 4c 61 |lot% ...|.. La|
|00001a70| 70 73 65 3d a4 4c 61 70 | 73 65 54 69 6d 65 28 31 |pse=.Lap|seTime(1|
|00001a80| 29 0d 09 ce 3b 20 20 20 | 20 f2 74 69 74 6c 65 28 |)...; | .title(|
|00001a90| 22 59 6f 75 72 20 50 6c | 6f 74 20 2d 20 22 2b 6d |"Your Pl|ot - "+m|
|00001aa0| 6f 6e 74 68 24 28 63 75 | 72 5f 6d 25 29 2b 22 20 |onth$(cu|r_m%)+" |
|00001ab0| 22 2b c3 28 63 75 72 5f | 79 25 29 29 0d 09 d8 05 |"+.(cur_|y%))....|
|00001ac0| cc 0d 09 e2 20 20 20 20 | 20 4c 61 70 73 65 3d a4 |.... | Lapse=.|
|00001ad0| 4c 61 70 73 65 54 69 6d | 65 28 63 75 72 5f 64 25 |LapseTim|e(cur_d%|
|00001ae0| 29 0d 09 ec 33 20 20 20 | 20 f2 74 69 74 6c 65 28 |)...3 | .title(|
|00001af0| 22 59 6f 75 72 20 50 6c | 6f 74 20 2d 20 22 2b c3 |"Your Pl|ot - "+.|
|00001b00| 28 4c 61 70 73 65 29 2b | 22 20 64 61 79 73 20 6f |(Lapse)+|" days o|
|00001b10| 6c 64 22 29 0d 09 f6 05 | cd 0d 0a 00 51 e7 20 4c |ld")....|....Q. L|
|00001b20| 61 70 73 65 20 3c 20 30 | 20 80 20 ac 20 6d 6f 6e |apse < 0| . . mon|
|00001b30| 74 68 5f 70 6c 6f 74 25 | 20 8c 20 f2 65 72 72 6f |th_plot%| . .erro|
|00001b40| 72 28 22 50 6c 6f 74 20 | 64 61 74 65 20 6d 75 73 |r("Plot |date mus|
|00001b50| 74 20 62 65 20 61 66 74 | 65 72 20 62 69 72 74 68 |t be aft|er birth|
|00001b60| 20 64 61 74 65 2e 22 29 | 3a e1 0d 0a 0a 4f e7 20 | date.")|:....O. |
|00001b70| 4c 61 70 73 65 20 3c 31 | 30 20 80 20 ac 20 6d 6f |Lapse <1|0 . . mo|
|00001b80| 6e 74 68 5f 70 6c 6f 74 | 25 20 8c 20 f2 65 72 72 |nth_plot|% . .err|
|00001b90| 6f 72 28 22 59 6f 75 20 | 6d 75 73 74 20 62 65 20 |or("You |must be |
|00001ba0| 61 74 20 6c 65 61 73 74 | 20 31 30 20 64 61 79 73 |at least| 10 days|
|00001bb0| 20 6f 6c 64 2e 22 29 3a | e1 0d 0a 14 05 3a 0d 0a | old."):|.....:..|
|00001bc0| 1e 2c f2 63 6c 6f 73 65 | 28 77 68 61 6e 64 6c 65 |.,.close|(whandle|
|00001bd0| 25 29 20 3a 20 f4 20 63 | 6c 6f 73 65 20 64 61 74 |%) : . c|lose dat|
|00001be0| 65 73 20 77 69 6e 64 6f | 77 2e 0d 0a 28 17 f2 6f |es windo|w...(..o|
|00001bf0| 70 65 6e 5f 77 69 6e 64 | 6f 77 28 70 6c 6f 74 25 |pen_wind|ow(plot%|
|00001c00| 29 0d 0a 32 11 21 62 6c | 6f 63 6b 25 3d 70 6c 6f |)..2.!bl|ock%=plo|
|00001c10| 74 25 0d 0a 3c 3f c8 99 | 22 57 69 6d 70 5f 53 65 |t%..<?..|"Wimp_Se|
|00001c20| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 2c 62 6c 6f |ndMessag|e",1,blo|
|00001c30| 63 6b 25 2c 70 6c 6f 74 | 25 20 3a 20 f4 20 73 65 |ck%,plot|% : . se|
|00001c40| 6e 64 20 72 65 64 72 61 | 77 20 6d 65 73 73 61 67 |nd redra|w messag|
|00001c50| 65 0d 0a 46 05 e1 0d 0a | 50 05 3a 0d 0a 5a 1a dd |e..F....|P.:..Z..|
|00001c60| f2 72 65 64 72 61 77 5f | 70 6c 6f 74 28 78 78 25 |.redraw_|plot(xx%|
|00001c70| 2c 79 79 25 29 0d 0a 64 | 13 f4 20 63 79 63 6c 65 |,yy%)..d|.. cycle|
|00001c80| 20 6c 65 6e 67 74 68 73 | 0d 0a 6e 2f 50 68 79 73 | lengths|..n/Phys|
|00001c90| 69 63 61 6c 25 3d 32 33 | 3a 45 6d 6f 74 69 6f 6e |ical%=23|:Emotion|
|00001ca0| 61 6c 25 3d 32 38 3a 49 | 6e 74 65 6c 6c 65 63 74 |al%=28:I|ntellect|
|00001cb0| 75 61 6c 25 3d 33 33 0d | 0a 78 39 f4 20 45 25 20 |ual%=33.|.x9. E% |
|00001cc0| 3d 20 78 20 73 74 61 72 | 74 20 76 61 6c 75 65 20 |= x star|t value |
|00001cd0| 61 78 65 73 20 2c 20 46 | 25 20 3d 20 65 6e 64 20 |axes , F|% = end |
|00001ce0| 70 6f 73 69 74 69 6f 6e | 20 6f 66 20 61 78 65 73 |position| of axes|
|00001cf0| 0d 0a 82 24 f4 20 49 25 | 20 3d 20 64 69 73 74 61 |...$. I%| = dista|
|00001d00| 6e 63 65 20 62 65 74 77 | 65 65 6e 20 6e 6f 74 63 |nce betw|een notc|
|00001d10| 68 65 73 2e 0d 0a 8c 42 | f4 20 58 25 20 3d 20 68 |hes....B|. X% = h|
|00001d20| 65 69 67 68 74 20 6f 66 | 20 6d 69 64 64 6c 65 20 |eight of| middle |
|00001d30| 61 78 69 73 20 2c 20 59 | 25 20 3d 20 68 65 69 67 |axis , Y|% = heig|
|00001d40| 68 74 20 6f 66 20 74 6f | 70 20 6f 66 20 76 65 72 |ht of to|p of ver|
|00001d50| 74 20 61 78 69 73 0d 0a | 96 19 45 25 3d 32 30 2b |t axis..|..E%=20+|
|00001d60| 78 78 25 3a 46 25 3d 36 | 34 30 2b 78 78 25 3a 0d |xx%:F%=6|40+xx%:.|
|00001d70| 0a a0 13 e7 20 6d 6f 6e | 74 68 5f 70 6c 6f 74 25 |.... mon|th_plot%|
|00001d80| 20 8c 0d 0a aa 22 20 20 | 20 20 49 25 3d 28 46 25 | ...." | I%=(F%|
|00001d90| 2d 45 25 29 2f 4e 75 6d | 44 61 79 73 28 63 75 72 |-E%)/Num|Days(cur|
|00001da0| 5f 6d 25 29 0d 0a b4 10 | 20 20 20 20 44 25 3d 4c |_m%)....| D%=L|
|00001db0| 61 70 73 65 0d 0a be 05 | cc 0d 0a c8 15 20 20 20 |apse....|..... |
|00001dc0| 20 49 25 3d 28 46 25 2d | 45 25 29 2f 32 30 0d 0a | I%=(F%-|E%)/20..|
|00001dd0| d2 13 20 20 20 20 44 25 | 3d 4c 61 70 73 65 2d 31 |.. D%|=Lapse-1|
|00001de0| 30 0d 0a dc 05 cd 0d 0a | e6 20 58 25 3d 32 35 36 |0.......|. X%=256|
|00001df0| 2b 28 79 79 25 2d 35 31 | 32 29 3a 59 25 3d 32 35 |+(yy%-51|2):Y%=25|
|00001e00| 36 3a 5a 25 3d 31 0d 0a | f0 05 3a 0d 0a fa 0d 44 |6:Z%=1..|..:....D|
|00001e10| 3d 44 25 3a 49 3d 49 25 | 0d 0b 04 22 c8 99 22 57 |=D%:I=I%|...".."W|
|00001e20| 69 6d 70 5f 53 65 74 43 | 6f 6c 6f 75 72 22 2c 37 |imp_SetC|olour",7|
|00001e30| 20 3a 20 f4 20 62 6c 61 | 63 6b 0d 0b 0e 18 ec 45 | : . bla|ck.....E|
|00001e40| 25 2c 58 25 2d 59 25 3a | df 20 45 25 2c 58 25 2b |%,X%-Y%:|. E%,X%+|
|00001e50| 59 25 0d 0b 18 11 ec 45 | 25 2c 58 25 3a df 46 25 |Y%.....E|%,X%:.F%|
|00001e60| 2c 58 25 0d 0b 22 11 73 | 69 67 6e 5f 78 70 6f 73 |,X%..".s|ign_xpos|
|00001e70| 25 3d 31 38 0d 0b 2c 3b | ec 45 25 2d 73 69 67 6e |%=18..,;|.E%-sign|
|00001e80| 5f 78 70 6f 73 25 2c 58 | 25 2b 59 25 2f 32 3a f1 |_xpos%,X|%+Y%/2:.|
|00001e90| 22 2b 22 3a ec 45 25 2d | 73 69 67 6e 5f 78 70 6f |"+":.E%-|sign_xpo|
|00001ea0| 73 25 2c 58 25 2d 59 25 | 2f 32 3a f1 22 2d 22 0d |s%,X%-Y%|/2:."-".|
|00001eb0| 0b 36 05 3a 0d 0b 40 13 | e7 20 6d 6f 6e 74 68 5f |.6.:..@.|. month_|
|00001ec0| 70 6c 6f 74 25 20 8c 0d | 0b 4a 1f 20 20 20 20 e3 |plot% ..|.J. .|
|00001ed0| 20 4b 3d 31 20 b8 20 4e | 75 6d 44 61 79 73 28 63 | K=1 . N|umDays(c|
|00001ee0| 75 72 5f 6d 25 29 0d 0b | 54 19 20 20 20 20 20 20 |ur_m%)..|T. |
|00001ef0| 20 20 e7 20 28 4b 20 83 | 20 35 29 3d 30 20 8c 0d | . (K .| 5)=0 ..|
|00001f00| 0b 5e 24 20 20 20 20 20 | 20 20 20 20 20 20 20 c8 |.^$ | .|
|00001f10| 99 22 57 69 6d 70 5f 53 | 65 74 43 6f 6c 6f 75 72 |."Wimp_S|etColour|
|00001f20| 22 2c 33 0d 0b 68 33 20 | 20 20 20 20 20 20 20 20 |",3..h3 | |
|00001f30| 20 20 20 c8 93 20 c8 90 | 20 45 25 2b 28 28 4b 2d | .. ..| E%+((K-|
|00001f40| 31 29 2a 49 25 29 2b 32 | 2c 58 25 2d 32 30 2c 49 |1)*I%)+2|,X%-20,I|
|00001f50| 25 2d 32 2c 31 38 0d 0b | 72 43 20 20 20 20 20 20 |%-2,18..|rC |
|00001f60| 20 20 20 20 20 20 f4 20 | 63 6f 6c 6f 75 72 20 65 | . |colour e|
|00001f70| 76 65 72 79 20 35 74 68 | 20 64 61 79 20 69 6e 2e |very 5th| day in.|
|00001f80| 20 65 2e 67 2e 20 35 74 | 68 2c 20 31 30 74 68 20 | e.g. 5t|h, 10th |
|00001f90| 31 35 74 68 20 65 74 63 | 2e 0d 0b 7c 24 20 20 20 |15th etc|...|$ |
|00001fa0| 20 20 20 20 20 20 20 20 | 20 c8 99 22 57 69 6d 70 | | .."Wimp|
|00001fb0| 5f 53 65 74 43 6f 6c 6f | 75 72 22 2c 37 0d 0b 86 |_SetColo|ur",7...|
|00001fc0| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 ec 45 25 |* | .E%|
|00001fd0| 2b 4b 2a 49 25 2c 58 25 | 3a df 45 25 2b 4b 2a 49 |+K*I%,X%|:.E%+K*I|
|00001fe0| 25 2c 58 25 2d 32 30 0d | 0b 90 17 20 20 20 20 20 |%,X%-20.|... |
|00001ff0| 20 20 20 20 20 20 20 e7 | 20 4b 3d 35 20 8c 0d 0b | .| K=5 ...|
|00002000| 9a 2e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00002010| 20 20 ec 45 25 2b 28 28 | 4b 2d 31 29 2a 49 25 29 | .E%+((|K-1)*I%)|
|00002020| 2b 34 2c 58 25 2d 32 34 | 3a f1 3b 4b 0d 0b a4 11 |+4,X%-24|:.;K....|
|00002030| 20 20 20 20 20 20 20 20 | 20 20 20 20 cc 0d 0b ae | | ....|
|00002040| 2e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002050| 20 ec 45 25 2b 28 28 4b | 2d 31 29 2a 49 25 29 2d | .E%+((K|-1)*I%)-|
|00002060| 34 2c 58 25 2d 32 34 3a | f1 3b 4b 0d 0b b8 11 20 |4,X%-24:|.;K.... |
|00002070| 20 20 20 20 20 20 20 20 | 20 20 20 cd 0d 0b c2 0d | | .....|
|00002080| 20 20 20 20 20 20 20 20 | cc 0d 0b cc 2a 20 20 20 | |....* |
|00002090| 20 20 20 20 20 20 20 20 | 20 ec 45 25 2b 4b 2a 49 | | .E%+K*I|
|000020a0| 25 2c 58 25 3a df 45 25 | 2b 4b 2a 49 25 2c 58 25 |%,X%:.E%|+K*I%,X%|
|000020b0| 2d 32 30 0d 0b d6 0d 20 | 20 20 20 20 20 20 20 cd |-20.... | .|
|000020c0| 0d 0b e0 18 20 20 20 20 | 20 20 20 20 e7 20 4b 3d |.... | . K=|
|000020d0| 63 75 72 5f 64 25 20 8c | 0d 0b e1 3f 20 20 20 20 |cur_d% .|...? |
|000020e0| 20 20 20 20 20 20 20 20 | f4 20 69 66 20 74 68 69 | |. if thi|
|000020f0| 73 20 6f 6e 65 20 69 73 | 20 74 6f 64 61 79 20 6d |s one is| today m|
|00002100| 61 6b 65 20 69 74 20 61 | 20 72 65 64 20 72 65 63 |ake it a| red rec|
|00002110| 74 61 6e 67 6c 65 2e 0d | 0b ea 2d 20 20 20 20 20 |tangle..|..- |
|00002120| 20 20 20 20 20 20 20 c8 | 99 22 57 69 6d 70 5f 53 | .|."Wimp_S|
|00002130| 65 74 43 6f 6c 6f 75 72 | 22 2c 31 31 20 3a 20 f4 |etColour|",11 : .|
|00002140| 20 72 65 64 0d 0b f4 33 | 20 20 20 20 20 20 20 20 | red...3| |
|00002150| 20 20 20 20 c8 93 20 c8 | 90 20 45 25 2b 28 28 4b | .. .|. E%+((K|
|00002160| 2d 31 29 2a 49 25 29 2b | 32 2c 58 25 2d 32 30 2c |-1)*I%)+|2,X%-20,|
|00002170| 49 25 2d 34 2c 31 38 0d | 0b f5 36 20 20 20 20 20 |I%-4,18.|..6 |
|00002180| 20 20 20 20 20 20 20 c8 | 99 22 57 69 6d 70 5f 53 | .|."Wimp_S|
|00002190| 65 74 43 6f 6c 6f 75 72 | 22 2c 37 20 3a 20 f4 20 |etColour|",7 : . |
|000021a0| 62 61 63 6b 20 74 6f 20 | 62 6c 61 63 6b 0d 0b fe |back to |black...|
|000021b0| 0d 20 20 20 20 20 20 20 | 20 cd 0d 0c 08 09 20 20 |. | ..... |
|000021c0| 20 20 ed 0d 0c 12 05 cc | 0d 0c 1c 2f 20 20 20 20 | ......|.../ |
|000021d0| e3 20 4b 3d 31 20 b8 20 | 32 30 3a ec 45 25 2b 4b |. K=1 . |20:.E%+K|
|000021e0| 2a 49 25 2c 58 25 3a df | 45 25 2b 4b 2a 49 25 2c |*I%,X%:.|E%+K*I%,|
|000021f0| 58 25 2d 32 30 3a ed 0d | 0c 26 1c 20 20 20 20 c8 |X%-20:..|.&. .|
|00002200| 99 22 57 69 6d 70 5f 53 | 65 74 43 6f 6c 6f 75 72 |."Wimp_S|etColour|
|00002210| 22 2c 33 0d 0c 30 36 20 | 20 20 20 ec 45 25 2b 31 |",3..06 | .E%+1|
|00002220| 30 2a 49 25 2c 58 25 3a | df 45 25 2b 31 30 2a 49 |0*I%,X%:|.E%+10*I|
|00002230| 25 2c 58 25 2d 32 30 20 | 20 20 3a 20 f4 20 6d 69 |%,X%-20 | : . mi|
|00002240| 64 64 6c 65 20 6c 69 6e | 65 0d 0c 3a 2c 20 20 20 |ddle lin|e..:, |
|00002250| 20 ec 45 25 2b 31 30 2a | 49 25 2d 38 2c 58 25 2d | .E%+10*|I%-8,X%-|
|00002260| 34 30 3a f1 bd 28 32 35 | 34 29 20 20 3a 20 f4 20 |40:..(25|4) : . |
|00002270| 61 72 72 6f 77 0d 0c 44 | 05 cd 0d 0c 4e 05 3a 0d |arrow..D|....N.:.|
|00002280| 0c 58 17 f2 64 72 61 77 | 28 31 30 2c 50 68 79 73 |.X..draw|(10,Phys|
|00002290| 69 63 61 6c 25 29 0d 0c | 62 18 f2 64 72 61 77 28 |ical%)..|b..draw(|
|000022a0| 31 35 2c 45 6d 6f 74 69 | 6f 6e 61 6c 25 29 0d 0c |15,Emoti|onal%)..|
|000022b0| 6c 1b f2 64 72 61 77 28 | 31 31 2c 49 6e 74 65 6c |l..draw(|11,Intel|
|000022c0| 6c 65 63 74 75 61 6c 25 | 29 0d 0c 76 05 e1 0d 0c |lectual%|)..v....|
|000022d0| 80 05 3a 0d 0c 8a 13 dd | f2 64 72 61 77 28 43 2c |..:.....|.draw(C,|
|000022e0| 63 79 63 6c 65 29 0d 0c | 94 42 f4 20 73 69 6e 20 |cycle)..|.B. sin |
|000022f0| 77 61 76 65 20 64 65 70 | 65 6e 64 73 20 6f 6e 20 |wave dep|ends on |
|00002300| 44 2c 20 77 68 69 63 68 | 20 69 73 20 74 68 65 20 |D, which| is the |
|00002310| 64 61 79 20 6e 75 6d 62 | 65 72 20 74 6f 20 70 6c |day numb|er to pl|
|00002320| 6f 74 20 66 72 6f 6d 2e | 0d 0c 9e 05 3a 0d 0c a8 |ot from.|....:...|
|00002330| 18 c8 99 22 57 69 6d 70 | 5f 53 65 74 43 6f 6c 6f |..."Wimp|_SetColo|
|00002340| 75 72 22 2c 43 0d 0c b2 | 1c ec 45 25 2c 59 25 2a |ur",C...|..E%,Y%*|
|00002350| b5 28 32 2a af 2f 63 79 | 63 6c 65 2a 44 29 2b 58 |.(2*./cy|cle*D)+X|
|00002360| 25 0d 0c bc 13 e3 20 58 | 3d 45 25 20 b8 20 46 25 |%..... X|=E% . F%|
|00002370| 20 88 20 38 0d 0c c6 2a | 20 20 20 df 20 58 2c 59 | . 8...*| . X,Y|
|00002380| 25 2a b5 28 32 2a af 2f | 63 79 63 6c 65 2a 28 44 |%*.(2*./|cycle*(D|
|00002390| 2b 28 58 2d 45 25 29 2f | 49 29 29 2b 58 25 0d 0c |+(X-E%)/|I))+X%..|
|000023a0| d0 05 ed 0d 0c da 05 e1 | 0d 0c e4 05 3a 0d 0c ee |........|....:...|
|000023b0| 15 dd a4 4c 61 70 73 65 | 54 69 6d 65 28 64 61 79 |...Lapse|Time(day|
|000023c0| 25 29 0d 0c f8 19 4c 3d | 33 36 35 2a 28 63 75 72 |%)....L=|365*(cur|
|000023d0| 5f 79 25 2d 64 6f 62 5f | 79 25 29 0d 0d 02 34 e7 |_y%-dob_|y%)...4.|
|000023e0| 20 63 75 72 5f 6d 25 3e | 31 20 8c 20 e3 20 58 3d | cur_m%>|1 . . X=|
|000023f0| 31 20 b8 20 63 75 72 5f | 6d 25 2d 31 3a 4c 3d 4c |1 . cur_|m%-1:L=L|
|00002400| 2b 4e 75 6d 44 61 79 73 | 28 58 29 3a ed 20 58 0d |+NumDays|(X):. X.|
|00002410| 0d 0c 34 e7 20 64 6f 62 | 5f 6d 25 3e 31 20 8c 20 |..4. dob|_m%>1 . |
|00002420| e3 20 58 3d 31 20 b8 20 | 64 6f 62 5f 6d 25 2d 31 |. X=1 . |dob_m%-1|
|00002430| 3a 4c 3d 4c 2d 4e 75 6d | 44 61 79 73 28 58 29 3a |:L=L-Num|Days(X):|
|00002440| ed 20 58 0d 0d 16 13 4c | 3d 4c 2b 64 61 79 25 2d |. X....L|=L+day%-|
|00002450| 64 6f 62 5f 64 25 0d 0d | 20 1b f4 20 41 64 6a 75 |dob_d%..| .. Adju|
|00002460| 73 74 20 66 6f 72 20 6c | 65 61 70 20 79 65 61 72 |st for l|eap year|
|00002470| 73 0d 0d 2a 14 59 3d 28 | 64 6f 62 5f 79 25 20 81 |s..*.Y=(|dob_y% .|
|00002480| 20 34 29 2a 34 0d 0d 34 | 08 59 2b 3d 34 0d 0d 3e | 4)*4..4|.Y+=4..>|
|00002490| 0f c8 95 20 59 3c 63 75 | 72 5f 79 25 0d 0d 48 18 |... Y<cu|r_y%..H.|
|000024a0| 20 20 20 e7 20 a4 6c 65 | 61 70 28 59 29 20 8c 20 | . .le|ap(Y) . |
|000024b0| 4c 2b 3d 31 0d 0d 52 0b | 20 20 20 59 2b 3d 34 0d |L+=1..R.| Y+=4.|
|000024c0| 0d 5c 05 ce 0d 0d 66 16 | e7 20 63 75 72 5f 79 25 |.\....f.|. cur_y%|
|000024d0| 3c 3e 64 6f 62 5f 79 25 | 20 8c 0d 0d 70 28 20 20 |<>dob_y%| ...p( |
|000024e0| 20 e7 20 a4 6c 65 61 70 | 28 64 6f 62 5f 79 25 29 | . .leap|(dob_y%)|
|000024f0| 20 80 20 64 6f 62 5f 6d | 25 3c 33 20 8c 20 4c 2b | . dob_m|%<3 . L+|
|00002500| 3d 31 0d 0d 7a 28 20 20 | 20 e7 20 a4 6c 65 61 70 |=1..z( | . .leap|
|00002510| 28 63 75 72 5f 79 25 29 | 20 80 20 63 75 72 5f 6d |(cur_y%)| . cur_m|
|00002520| 25 3e 32 20 8c 20 4c 2b | 3d 31 0d 0d 84 09 20 20 |%>2 . L+|=1.... |
|00002530| 20 3d 4c 0d 0d 8e 05 cd | 0d 0d 98 30 e7 20 a4 6c | =L.....|...0. .l|
|00002540| 65 61 70 28 64 6f 62 5f | 79 25 29 20 80 20 64 6f |eap(dob_|y%) . do|
|00002550| 62 5f 6d 25 3c 33 20 80 | 20 63 75 72 5f 6d 25 3e |b_m%<3 .| cur_m%>|
|00002560| 32 20 8c 20 4c 2b 3d 31 | 0d 0d a2 06 3d 4c 0d 0d |2 . L+=1|....=L..|
|00002570| ac 05 3a 0d 0d b6 0d dd | a4 6c 65 61 70 28 59 29 |..:.....|.leap(Y)|
|00002580| 0d 0d c0 31 e7 20 59 20 | 83 20 34 3d 30 20 80 28 |...1. Y |. 4=0 .(|
|00002590| 59 20 83 20 31 30 30 3c | 3e 30 20 84 20 59 20 83 |Y . 100<|>0 . Y .|
|000025a0| 20 34 30 30 3d 30 29 20 | 8c 20 3d b9 20 8b 20 3d | 400=0) |. =. . =|
|000025b0| a3 0d 0d ca 05 3a 0d 0d | d4 18 dd f2 64 61 79 5f |.....:..|....day_|
|000025c0| 65 6e 64 69 6e 67 28 f8 | 20 64 61 79 24 29 0d 0d |ending(.| day$)..|
|000025d0| de 0d c8 8e 20 64 61 79 | 24 20 ca 0d 0d e8 1e 20 |.... day|$ ..... |
|000025e0| 20 20 20 c9 20 22 31 22 | 20 3a 20 64 61 79 24 3d | . "1"| : day$=|
|000025f0| 64 61 79 24 2b 22 73 74 | 22 0d 0d f2 1e 20 20 20 |day$+"st|".... |
|00002600| 20 c9 20 22 32 22 20 3a | 20 64 61 79 24 3d 64 61 | . "2" :| day$=da|
|00002610| 79 24 2b 22 6e 64 22 0d | 0d fc 1e 20 20 20 20 c9 |y$+"nd".|... .|
|00002620| 20 22 33 22 20 3a 20 64 | 61 79 24 3d 64 61 79 24 | "3" : d|ay$=day$|
|00002630| 2b 22 72 64 22 0d 0e 06 | 1f 20 20 20 20 c9 20 22 |+"rd"...|. . "|
|00002640| 32 31 22 20 3a 20 64 61 | 79 24 3d 64 61 79 24 2b |21" : da|y$=day$+|
|00002650| 22 73 74 22 0d 0e 10 1f | 20 20 20 20 c9 20 22 32 |"st"....| . "2|
|00002660| 32 22 20 3a 20 64 61 79 | 24 3d 64 61 79 24 2b 22 |2" : day|$=day$+"|
|00002670| 6e 64 22 0d 0e 1a 1f 20 | 20 20 20 c9 20 22 32 33 |nd".... | . "23|
|00002680| 22 20 3a 20 64 61 79 24 | 3d 64 61 79 24 2b 22 72 |" : day$|=day$+"r|
|00002690| 64 22 0d 0e 24 1f 20 20 | 20 20 c9 20 22 33 31 22 |d"..$. | . "31"|
|000026a0| 20 3a 20 64 61 79 24 3d | 64 61 79 24 2b 22 73 74 | : day$=|day$+"st|
|000026b0| 22 0d 0e 2e 1a 20 20 20 | 20 7f 20 3a 20 64 61 79 |".... | . : day|
|000026c0| 24 3d 64 61 79 24 2b 22 | 74 68 22 0d 0e 38 05 cb |$=day$+"|th"..8..|
|000026d0| 0d 0e 42 05 e1 0d 0e 4c | 05 3a 0d 0e 56 12 dd f2 |..B....L|.:..V...|
|000026e0| 75 70 64 61 74 65 5f 64 | 61 74 65 73 0d 0e 60 12 |update_d|ates..`.|
|000026f0| 64 61 79 24 3d c3 28 64 | 6f 62 5f 64 25 29 0d 0e |day$=.(d|ob_d%)..|
|00002700| 6a 15 f2 64 61 79 5f 65 | 6e 64 69 6e 67 28 64 61 |j..day_e|nding(da|
|00002710| 79 24 29 0d 0e 74 23 f2 | 77 72 69 74 65 5f 73 74 |y$)..t#.|write_st|
|00002720| 72 69 6e 67 28 77 68 61 | 6e 64 6c 65 25 2c 31 32 |ring(wha|ndle%,12|
|00002730| 2c 64 61 79 24 29 0d 0e | 7e 2d f2 77 72 69 74 65 |,day$)..|~-.write|
|00002740| 5f 73 74 72 69 6e 67 28 | 77 68 61 6e 64 6c 65 25 |_string(|whandle%|
|00002750| 2c 31 33 2c 6d 6f 6e 74 | 68 24 28 64 6f 62 5f 6d |,13,mont|h$(dob_m|
|00002760| 25 29 29 0d 0e 88 28 f2 | 77 72 69 74 65 5f 73 74 |%))...(.|write_st|
|00002770| 72 69 6e 67 28 77 68 61 | 6e 64 6c 65 25 2c 31 34 |ring(wha|ndle%,14|
|00002780| 2c c3 28 64 6f 62 5f 79 | 25 29 29 0d 0e 92 04 0d |,.(dob_y|%)).....|
|00002790| 0e 9c 12 64 61 79 24 3d | c3 28 63 75 72 5f 64 25 |...day$=|.(cur_d%|
|000027a0| 29 0d 0e a6 15 f2 64 61 | 79 5f 65 6e 64 69 6e 67 |).....da|y_ending|
|000027b0| 28 64 61 79 24 29 0d 0e | b0 23 f2 77 72 69 74 65 |(day$)..|.#.write|
|000027c0| 5f 73 74 72 69 6e 67 28 | 77 68 61 6e 64 6c 65 25 |_string(|whandle%|
|000027d0| 2c 31 35 2c 64 61 79 24 | 29 0d 0e ba 2d f2 77 72 |,15,day$|)...-.wr|
|000027e0| 69 74 65 5f 73 74 72 69 | 6e 67 28 77 68 61 6e 64 |ite_stri|ng(whand|
|000027f0| 6c 65 25 2c 31 36 2c 6d | 6f 6e 74 68 24 28 63 75 |le%,16,m|onth$(cu|
|00002800| 72 5f 6d 25 29 29 0d 0e | c4 28 f2 77 72 69 74 65 |r_m%))..|.(.write|
|00002810| 5f 73 74 72 69 6e 67 28 | 77 68 61 6e 64 6c 65 25 |_string(|whandle%|
|00002820| 2c 31 37 2c c3 28 63 75 | 72 5f 79 25 29 29 0d 0e |,17,.(cu|r_y%))..|
|00002830| ce 05 e1 0d ff | |..... | |
+--------+-------------------------+-------------------------+--------+--------+
