home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-06-28 | 13.9 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 1d f4 20 3e 3a | 31 2e 24 2e 21 4a 6f 75 |..... >:|1.$.!Jou|
|00000010| 72 6e 6f 2e 21 52 75 6e | 49 6d 61 67 65 0d 00 14 |rno.!Run|Image...|
|00000020| 24 f4 20 45 78 61 6d 70 | 6c 65 20 4d 75 6c 74 69 |$. Examp|le Multi|
|00000030| 20 54 61 73 6b 69 6e 67 | 20 50 72 6f 67 72 61 6d | Tasking| Program|
|00000040| 2e 0d 00 1e 19 f4 20 44 | 65 73 69 67 6e 65 64 20 |...... D|esigned |
|00000050| 74 6f 20 65 78 70 61 6e | 64 2e 0d 00 28 05 3a 0d |to expan|d...(.:.|
|00000060| 00 32 f4 de 20 63 6c 6b | 25 20 31 36 2c 74 25 20 |.2.. clk|% 16,t% |
|00000070| 33 32 2c 71 25 20 26 34 | 30 30 2c 74 65 6d 70 25 |32,q% &4|00,temp%|
|00000080| 20 26 34 30 30 2c 69 6e | 66 62 75 66 25 20 26 34 | &400,in|fbuf% &4|
|00000090| 30 30 2c 65 6e 74 62 75 | 66 25 20 26 38 30 30 2c |00,entbu|f% &800,|
|000000a0| 63 61 6c 62 75 66 25 20 | 26 38 30 30 2c 73 61 76 |calbuf% |&800,sav|
|000000b0| 65 62 75 66 25 20 26 34 | 30 30 2c 6a 6f 25 20 33 |ebuf% &4|00,jo% 3|
|000000c0| 32 2c 6a 6f 32 25 20 33 | 32 2c 79 65 61 72 6d 65 |2,jo2% 3|2,yearme|
|000000d0| 6e 75 25 20 26 31 30 30 | 2c 69 63 6f 6e 6d 65 6e |nu% &100|,iconmen|
|000000e0| 75 25 20 26 32 30 30 2c | 63 61 6c 6d 65 6e 75 25 |u% &200,|calmenu%|
|000000f0| 20 26 32 30 30 2c 65 6e | 74 6d 65 6e 75 25 20 26 | &200,en|tmenu% &|
|00000100| 32 30 30 2c 6a 6f 24 28 | 33 36 35 2c 35 29 2c 6d |200,jo$(|365,5),m|
|00000110| 6f 6e 24 28 31 32 29 2c | 64 61 79 25 28 31 32 29 |on$(12),|day%(12)|
|00000120| 2c 63 61 6c 24 28 36 29 | 3a 24 74 25 3d 22 54 41 |,cal$(6)|:$t%="TA|
|00000130| 53 4b 22 3a 71 75 69 74 | 25 3d a3 3a 6c 6f 61 64 |SK":quit|%=.:load|
|00000140| 65 64 25 3d a3 3a 6d 6f | 6e 25 3d 30 3a 64 61 79 |ed%=.:mo|n%=0:day|
|00000150| 25 3d 30 0d 00 3c 77 de | 20 64 61 79 24 28 36 29 |%=0..<w.| day$(6)|
|00000160| 2c 79 65 61 72 25 20 31 | 36 2c 70 6f 73 25 28 35 |,year% 1|6,pos%(5|
|00000170| 29 2c 6f 6f 70 24 28 36 | 29 2c 74 61 67 24 28 36 |),oop$(6|),tag$(6|
|00000180| 29 2c 66 6f 6e 74 25 20 | 32 35 36 3a 74 61 67 25 |),font% |256:tag%|
|00000190| 3d 2d 31 3a 6f 64 61 79 | 25 3d 2d 31 3a 65 6e 74 |=-1:oday|%=-1:ent|
|000001a0| 77 69 6e 25 3d a3 3a 63 | 61 6c 77 69 6e 25 3d a3 |win%=.:c|alwin%=.|
|000001b0| 3a 6f 6f 70 73 25 3d a3 | 3a 6c 72 65 66 25 3d a3 |:oops%=.|:lref%=.|
|000001c0| 3a 73 74 6f 72 65 64 25 | 3d a3 0d 00 46 17 c8 99 |:stored%|=...F...|
|000001d0| 20 22 4f 53 5f 47 65 74 | 45 6e 76 22 20 b8 20 61 | "OS_Get|Env" . a|
|000001e0| 24 0d 00 50 1c 61 24 3d | c1 61 24 2c a7 61 24 2c |$..P.a$=|.a$,.a$,|
|000001f0| 22 20 22 29 2b 31 29 3a | 66 24 3d 22 22 0d 00 5a |" ")+1):|f$=""..Z|
|00000200| 16 61 24 3d c1 61 24 2c | a7 61 24 2c 22 20 22 29 |.a$=.a$,|.a$," ")|
|00000210| 2b 31 29 0d 00 64 23 e7 | 20 a7 61 24 2c 22 20 22 |+1)..d#.| .a$," "|
|00000220| 29 20 8c 20 66 24 3d c1 | 61 24 2c a7 61 24 2c 22 |) . f$=.|a$,.a$,"|
|00000230| 20 22 29 2b 31 29 0d 00 | 6e 31 c8 99 20 22 57 69 | ")+1)..|n1.. "Wi|
|00000240| 6d 70 5f 49 6e 69 74 69 | 61 6c 69 73 65 22 2c 32 |mp_Initi|alise",2|
|00000250| 30 30 2c 21 74 25 2c 22 | 21 4a 6f 75 72 6e 6f 22 |00,!t%,"|!Journo"|
|00000260| 20 b8 20 76 65 72 25 0d | 00 78 09 f2 69 6e 69 74 | . ver%.|.x..init|
|00000270| 0d 00 82 1a e7 20 66 24 | 3c 3e 22 22 20 8c 20 f2 |..... f$|<>"" . .|
|00000280| 6c 6f 61 64 65 72 28 66 | 24 29 0d 00 8c 05 f5 0d |loader(f|$)......|
|00000290| 00 96 0e ee 20 85 20 f2 | 65 72 72 6f 72 0d 00 a0 |.... . .|error...|
|000002a0| 1b c8 99 20 22 57 69 6d | 70 5f 50 6f 6c 6c 22 2c |... "Wim|p_Poll",|
|000002b0| 2c 71 25 20 b8 20 72 25 | 0d 00 aa 0b c8 8e 20 72 |,q% . r%|...... r|
|000002c0| 25 20 ca 0d 00 b4 1a c9 | 20 30 3a f4 20 44 6f 20 |% ......| 0:. Do |
|000002d0| 6e 6f 74 68 69 6e 67 20 | 28 59 65 74 29 0d 00 be |nothing |(Yet)...|
|000002e0| 20 c9 20 32 3a c8 99 20 | 22 57 69 6d 70 5f 4f 70 | . 2:.. |"Wimp_Op|
|000002f0| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 71 25 0d 00 c8 |enWindow|",,q%...|
|00000300| 21 c9 20 33 3a c8 99 20 | 22 57 69 6d 70 5f 43 6c |!. 3:.. |"Wimp_Cl|
|00000310| 6f 73 65 57 69 6e 64 6f | 77 22 2c 2c 71 25 0d 00 |oseWindo|w",,q%..|
|00000320| d2 31 20 20 20 20 20 20 | 20 e7 20 21 71 25 3d 65 |.1 | . !q%=e|
|00000330| 6e 74 72 79 25 20 8c 20 | 65 6e 74 77 69 6e 25 3d |ntry% . |entwin%=|
|00000340| a3 3a f2 73 74 6f 72 65 | 28 6f 64 61 79 25 29 0d |.:.store|(oday%).|
|00000350| 00 dc 21 20 20 20 20 20 | 20 20 e7 20 21 71 25 3d |..! | . !q%=|
|00000360| 63 61 6c 25 20 8c 20 63 | 61 6c 77 69 6d 25 3d a3 |cal% . c|alwim%=.|
|00000370| 0d 00 e6 0e c9 20 36 3a | f2 6d 6f 75 73 65 0d 00 |..... 6:|.mouse..|
|00000380| f0 13 c9 20 37 3a f2 64 | 65 63 6f 64 65 64 72 61 |... 7:.d|ecodedra|
|00000390| 67 0d 00 fa 13 c9 20 38 | 3a f2 6b 65 79 70 72 65 |g..... 8|:.keypre|
|000003a0| 73 73 65 64 0d 01 04 1a | c9 20 39 3a f2 63 6c 69 |ssed....|. 9:.cli|
|000003b0| 63 6b 6d 65 6e 75 3a f2 | 72 65 6f 70 65 6e 0d 01 |ckmenu:.|reopen..|
|000003c0| 0e 11 c9 20 31 37 2c 31 | 38 3a f2 6d 65 73 73 0d |... 17,1|8:.mess.|
|000003d0| 01 18 05 cb 0d 01 22 0b | fd 20 71 75 69 74 25 0d |......".|. quit%.|
|000003e0| 01 2c 19 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |.,... "W|imp_Clos|
|000003f0| 65 44 6f 77 6e 22 3a e0 | 0d 01 36 05 3a 0d 01 40 |eDown":.|..6.:..@|
|00000400| 0c dd 20 f2 65 72 72 6f | 72 0d 01 4a 19 c8 99 20 |.. .erro|r..J... |
|00000410| 22 57 69 6d 70 5f 44 72 | 61 67 42 6f 78 22 2c 2c |"Wimp_Dr|agBox",,|
|00000420| 2d 31 0d 01 54 2e 6d 24 | 3d 22 57 68 6f 6f 70 73 |-1..T.m$|="Whoops|
|00000430| 21 20 45 72 72 6f 72 20 | 28 22 2b f6 24 2b 22 20 |! Error |("+.$+" |
|00000440| 61 74 20 6c 69 6e 65 20 | 22 2b c3 9e 2b 22 29 22 |at line |"+..+")"|
|00000450| 0d 01 5e 19 21 71 25 3d | 30 3a 24 28 71 25 2b 34 |..^.!q%=|0:$(q%+4|
|00000460| 29 3d 6d 24 2b bd 28 30 | 29 0d 01 68 3c c8 99 20 |)=m$+.(0|)..h<.. |
|00000470| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|00000480| 72 22 2c 71 25 2c 33 2c | 22 21 4a 6f 75 72 6e 6f |r",q%,3,|"!Journo|
|00000490| 20 45 72 72 6f 72 20 53 | 65 72 76 69 63 65 22 20 | Error S|ervice" |
|000004a0| b8 20 2c 62 25 0d 01 72 | 25 e7 20 62 25 3d 32 20 |. ,b%..r|%. b%=2 |
|000004b0| 8c 20 c8 99 22 57 69 6d | 70 5f 43 6c 6f 73 65 44 |. .."Wim|p_CloseD|
|000004c0| 6f 77 6e 22 3a e0 20 8b | 20 f9 0d 01 7c 05 e1 0d |own":. .| ...|...|
|000004d0| 01 86 05 3a 0d 01 90 0b | dd 20 f2 6d 65 73 73 0d |...:....|. .mess.|
|000004e0| 01 9a 0f e7 20 71 25 21 | 31 36 3d 30 20 8c 0d 01 |.... q%!|16=0 ...|
|000004f0| a4 1f e7 20 6c 6f 61 64 | 65 64 25 20 8c 20 f2 71 |... load|ed% . .q|
|00000500| 75 69 74 20 8b 20 71 75 | 69 74 25 3d b9 0d 01 ae |uit . qu|it%=....|
|00000510| 05 cd 0d 01 b8 18 e7 20 | 71 25 21 31 36 3d 32 20 |....... |q%!16=2 |
|00000520| 8c 20 f2 73 61 76 65 61 | 63 6b 0d 01 c2 25 e7 20 |. .savea|ck...%. |
|00000530| 71 25 21 31 36 3d 33 20 | 84 20 71 25 21 31 36 3d |q%!16=3 |. q%!16=|
|00000540| 35 20 8c 20 f2 6c 6f 61 | 64 6a 6f 75 72 6e 6f 0d |5 . .loa|djourno.|
|00000550| 01 cc 18 e7 20 71 25 21 | 31 36 3d 34 20 8c 20 f2 |.... q%!|16=4 . .|
|00000560| 6c 6f 61 64 61 63 6b 0d | 01 d6 05 e1 0d 01 e0 05 |loadack.|........|
|00000570| 3a 0d 01 ea 0c dd 20 f2 | 6d 6f 75 73 65 0d 01 f4 |:..... .|mouse...|
|00000580| 4b e7 20 71 25 21 38 3d | 32 20 80 20 71 25 21 31 |K. q%!8=|2 . q%!1|
|00000590| 36 3d 6a 6f 75 72 6e 25 | 20 80 20 71 25 21 31 32 |6=journ%| . q%!12|
|000005a0| 3d 2d 32 20 8c 20 f2 6d | 65 6e 75 28 69 63 6f 6e |=-2 . .m|enu(icon|
|000005b0| 6d 65 6e 75 25 2c 28 21 | 71 25 29 2d 31 30 30 2c |menu%,(!|q%)-100,|
|000005c0| 39 36 2b 34 34 2a 35 29 | 0d 01 fe 3f e7 20 71 25 |96+44*5)|...?. q%|
|000005d0| 21 38 3d 32 20 80 20 71 | 25 21 31 32 3d 63 61 6c |!8=2 . q|%!12=cal|
|000005e0| 25 20 8c 20 f2 6d 65 6e | 75 28 63 61 6c 6d 65 6e |% . .men|u(calmen|
|000005f0| 75 25 2c 28 21 71 25 29 | 2d 31 30 30 2c 28 71 25 |u%,(!q%)|-100,(q%|
|00000600| 21 34 29 2b 32 30 29 0d | 02 08 41 e7 20 71 25 21 |!4)+20).|..A. q%!|
|00000610| 38 3d 32 20 80 20 71 25 | 21 31 32 3d 65 6e 74 72 |8=2 . q%|!12=entr|
|00000620| 79 25 20 8c 20 f2 6d 65 | 6e 75 28 65 6e 74 6d 65 |y% . .me|nu(entme|
|00000630| 6e 75 25 2c 28 21 71 25 | 29 2d 31 30 30 2c 28 71 |nu%,(!q%|)-100,(q|
|00000640| 25 21 34 29 2b 32 30 29 | 0d 02 12 3b e7 20 71 25 |%!4)+20)|...;. q%|
|00000650| 21 38 3d 34 20 80 20 71 | 25 21 31 36 3d 6a 6f 75 |!8=4 . q|%!16=jou|
|00000660| 72 6e 25 20 80 20 71 25 | 21 31 32 3d 2d 32 20 80 |rn% . q%|!12=-2 .|
|00000670| 20 6c 6f 61 64 65 64 25 | 20 8c 20 f2 6f 70 65 6e | loaded%| . .open|
|00000680| 63 61 6c 0d 02 1c 25 e7 | 20 71 25 21 38 3d 34 20 |cal...%.| q%!8=4 |
|00000690| 80 20 71 25 21 31 32 3d | 63 61 6c 25 20 8c 20 f2 |. q%!12=|cal% . .|
|000006a0| 63 6c 69 63 6b 63 61 6c | 0d 02 26 1b e7 20 71 25 |clickcal|..&.. q%|
|000006b0| 21 31 32 3d 73 61 76 65 | 25 20 8c 20 f2 73 61 76 |!12=save|% . .sav|
|000006c0| 65 3a e1 0d 02 30 19 e7 | 20 71 25 21 31 32 3d 65 |e:...0..| q%!12=e|
|000006d0| 6e 74 25 20 8c 20 f2 65 | 6e 74 72 79 0d 02 3a 40 |nt% . .e|ntry..:@|
|000006e0| e7 20 71 25 21 31 32 3d | 70 72 69 6e 74 25 20 80 |. q%!12=|print% .|
|000006f0| 20 71 25 21 31 36 3d 32 | 20 8c 20 f2 70 72 69 6e | q%!16=2| . .prin|
|00000700| 74 69 74 3a c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |tit:.. "|Wimp_Cre|
|00000710| 61 74 65 4d 65 6e 75 22 | 2c 2c 2d 31 0d 02 44 05 |ateMenu"|,,-1..D.|
|00000720| e1 0d 02 4e 05 3a 0d 02 | 58 0b dd 20 f2 69 6e 69 |...N.:..|X.. .ini|
|00000730| 74 0d 02 62 7b 21 74 25 | 3d 2d 31 3a 74 25 21 34 |t..b{!t%|=-1:t%!4|
|00000740| 3d 30 3a 74 25 21 38 3d | 2d 31 32 3a 74 25 21 31 |=0:t%!8=|-12:t%!1|
|00000750| 32 3d 39 36 3a 74 25 21 | 31 36 3d 39 36 3a 74 25 |2=96:t%!|16=96:t%|
|00000760| 21 32 30 3d 26 31 37 30 | 30 32 31 30 42 3a 74 25 |!20=&170|0210B:t%|
|00000770| 21 32 34 3d 6a 6f 25 3a | 74 25 21 32 38 3d 6a 6f |!24=jo%:|t%!28=jo|
|00000780| 32 25 3a 74 25 21 33 32 | 3d 39 3a 24 6a 6f 25 3d |2%:t%!32|=9:$jo%=|
|00000790| 22 3c 4e 6f 6e 65 3e 22 | 3a 24 6a 6f 32 25 3d 22 |"<None>"|:$jo2%="|
|000007a0| 73 21 6a 6f 75 72 6e 6f | 22 2b bd 30 0d 02 6c 25 |s!journo|"+.0..l%|
|000007b0| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |.. "Wimp|_CreateI|
|000007c0| 63 6f 6e 22 2c 2c 74 25 | 20 b8 20 6a 6f 75 72 6e |con",,t%| . journ|
|000007d0| 25 0d 02 6d 1f e3 20 49 | 25 3d 30 b8 32 35 32 88 |%..m.. I|%=0.252.|
|000007e0| 34 3a 49 25 21 66 6f 6e | 74 25 3d 30 3a ed 49 25 |4:I%!fon|t%=0:.I%|
|000007f0| 0d 02 76 34 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |..v4.. "|Wimp_Ope|
|00000800| 6e 54 65 6d 70 6c 61 74 | 65 22 2c 2c 22 3c 4a 6f |nTemplat|e",,"<Jo|
|00000810| 75 72 6e 6f 24 44 69 72 | 3e 2e 54 65 6d 70 6c 61 |urno$Dir|>.Templa|
|00000820| 74 65 73 22 0d 02 80 42 | c8 99 20 22 57 69 6d 70 |tes"...B|.. "Wimp|
|00000830| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|00000840| 71 25 2c 74 65 6d 70 25 | 2c 69 6e 66 62 75 66 25 |q%,temp%|,infbuf%|
|00000850| 2c 66 6f 6e 74 25 2c 22 | 69 6e 66 6f 22 2c 30 20 |,font%,"|info",0 |
|00000860| b8 20 2c 2c 6a 25 0d 02 | 8a 26 c8 99 20 22 57 69 |. ,,j%..|.&.. "Wi|
|00000870| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00000880| 2c 2c 71 25 20 b8 20 69 | 6e 66 6f 25 0d 02 94 45 |,,q% . i|nfo%...E|
|00000890| c8 99 20 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |.. "Wimp|_LoadTem|
|000008a0| 70 6c 61 74 65 22 2c 2c | 71 25 2c 69 6e 66 62 75 |plate",,|q%,infbu|
|000008b0| 66 25 2c 65 6e 74 62 75 | 66 25 2c 66 6f 6e 74 25 |f%,entbu|f%,font%|
|000008c0| 2c 22 65 6e 74 72 79 22 | 2c 30 20 b8 20 2c 2c 6a |,"entry"|,0 . ,,j|
|000008d0| 25 0d 02 9e 27 c8 99 20 | 22 57 69 6d 70 5f 43 72 |%...'.. |"Wimp_Cr|
|000008e0| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 71 25 20 |eateWind|ow",,q% |
|000008f0| b8 20 65 6e 74 72 79 25 | 0d 02 a8 3e e3 49 25 3d |. entry%|...>.I%=|
|00000900| 30 20 b8 20 35 3a 21 71 | 25 3d 65 6e 74 72 79 25 |0 . 5:!q|%=entry%|
|00000910| 3a 71 25 21 34 3d 49 25 | 2b 31 30 3a c8 99 20 22 |:q%!4=I%|+10:.. "|
|00000920| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00000930| 65 22 2c 2c 71 25 0d 02 | b2 17 70 6f 73 25 28 49 |e",,q%..|..pos%(I|
|00000940| 25 29 3d 71 25 21 32 38 | 3a ed 20 49 25 0d 02 bc |%)=q%!28|:. I%...|
|00000950| 48 c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |H.. "Wim|p_LoadTe|
|00000960| 6d 70 6c 61 74 65 22 2c | 2c 71 25 2c 65 6e 74 62 |mplate",|,q%,entb|
|00000970| 75 66 25 2c 63 61 6c 62 | 75 66 25 2c 66 6f 6e 74 |uf%,calb|uf%,font|
|00000980| 25 2c 22 63 61 6c 65 6e | 64 61 72 22 2c 30 20 b8 |%,"calen|dar",0 .|
|00000990| 20 2c 2c 6a 25 0d 02 c6 | 25 c8 99 20 22 57 69 6d | ,,j%...|%.. "Wim|
|000009a0| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|000009b0| 2c 71 25 20 b8 20 63 61 | 6c 25 0d 02 d0 45 c8 99 |,q% . ca|l%...E..|
|000009c0| 20 22 57 69 6d 70 5f 4c | 6f 61 64 54 65 6d 70 6c | "Wimp_L|oadTempl|
|000009d0| 61 74 65 22 2c 2c 71 25 | 2c 63 61 6c 62 75 66 25 |ate",,q%|,calbuf%|
|000009e0| 2c 73 61 76 65 62 75 66 | 25 2c 66 6f 6e 74 25 2c |,savebuf|%,font%,|
|000009f0| 22 73 61 76 65 22 2c 30 | 20 b8 20 2c 2c 6a 25 0d |"save",0| . ,,j%.|
|00000a00| 02 da 26 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..&.. "W|imp_Crea|
|00000a10| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 71 25 20 b8 20 |teWindow|",,q% . |
|00000a20| 73 61 76 65 25 0d 02 e4 | 4c c8 99 20 22 57 69 6d |save%...|L.. "Wim|
|00000a30| 70 5f 4c 6f 61 64 54 65 | 6d 70 6c 61 74 65 22 2c |p_LoadTe|mplate",|
|00000a40| 2c 71 25 2c 73 61 76 65 | 62 75 66 25 2c 73 61 76 |,q%,save|buf%,sav|
|00000a50| 65 62 75 66 25 2b 26 34 | 30 30 2c 66 6f 6e 74 25 |ebuf%+&4|00,font%|
|00000a60| 2c 22 70 72 69 6e 74 22 | 2c 30 20 b8 20 2c 2c 6a |,"print"|,0 . ,,j|
|00000a70| 25 0d 02 ee 27 c8 99 20 | 22 57 69 6d 70 5f 43 72 |%...'.. |"Wimp_Cr|
|00000a80| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 71 25 20 |eateWind|ow",,q% |
|00000a90| b8 20 70 72 69 6e 74 25 | 0d 02 f8 3c 21 71 25 3d |. print%|...<!q%=|
|00000aa0| 73 61 76 65 25 3a 71 25 | 21 34 3d 31 3a c8 99 20 |save%:q%|!4=1:.. |
|00000ab0| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00000ac0| 74 65 22 2c 2c 71 25 3a | 66 61 64 64 72 25 3d 71 |te",,q%:|faddr%=q|
|00000ad0| 25 21 32 38 0d 03 02 33 | c8 99 20 22 57 69 6d 70 |%!28...3|.. "Wimp|
|00000ae0| 5f 43 6c 6f 73 65 54 65 | 6d 70 6c 61 74 65 22 2c |_CloseTe|mplate",|
|00000af0| 2c 22 3c 4f 62 65 79 24 | 44 69 72 3e 2e 54 65 6d |,"<Obey$|Dir>.Tem|
|00000b00| 70 6c 61 74 65 73 22 0d | 03 0c 0a f7 20 8d 54 46 |plates".|.... .TF|
|00000b10| 44 0d 03 16 09 73 76 25 | 3d 30 0d 03 20 16 f2 63 |D....sv%|=0.. ..c|
|00000b20| 72 65 61 74 65 28 69 63 | 6f 6e 6d 65 6e 75 25 29 |reate(ic|onmenu%)|
|00000b30| 0d 03 2a c2 24 79 65 61 | 72 6d 65 6e 75 25 3d 22 |..*.$yea|rmenu%="|
|00000b40| 59 65 61 72 22 2b bd 30 | 3a 79 65 61 72 6d 65 6e |Year"+.0|:yearmen|
|00000b50| 75 25 21 31 32 3d 26 30 | 30 30 37 30 32 30 37 3a |u%!12=&0|0070207:|
|00000b60| 79 65 61 72 6d 65 6e 75 | 25 21 31 36 3d 39 36 3a |yearmenu|%!16=96:|
|00000b70| 79 65 61 72 6d 65 6e 75 | 25 21 32 30 3d 34 34 3a |yearmenu|%!20=44:|
|00000b80| 79 65 61 72 6d 65 6e 75 | 25 21 32 34 3d 30 3a 70 |yearmenu|%!24=0:p|
|00000b90| 25 3d 79 65 61 72 6d 65 | 6e 75 25 2b 32 38 3a 21 |%=yearme|nu%+28:!|
|00000ba0| 70 25 3d 31 33 32 3a 70 | 25 21 34 3d 2d 31 3a 70 |p%=132:p|%!4=-1:p|
|00000bb0| 25 21 38 3d 28 37 3c 3c | 32 34 29 20 84 20 32 35 |%!8=(7<<|24) . 25|
|00000bc0| 37 3a 70 25 21 31 32 3d | 79 65 61 72 25 3a 70 25 |7:p%!12=|year%:p%|
|00000bd0| 21 31 36 3d 2d 31 3a 70 | 25 21 32 30 3d 35 3a 24 |!16=-1:p|%!20=5:$|
|00000be0| 79 65 61 72 25 3d c1 91 | 24 2c 31 32 2c 34 29 2b |year%=..|$,12,4)+|
|00000bf0| bd 30 0d 03 34 15 f2 63 | 72 65 61 74 65 28 65 6e |.0..4..c|reate(en|
|00000c00| 74 6d 65 6e 75 25 29 0d | 03 3e 15 f2 63 72 65 61 |tmenu%).|.>..crea|
|00000c10| 74 65 28 63 61 6c 6d 65 | 6e 75 25 29 0d 03 48 3a |te(calme|nu%)..H:|
|00000c20| f7 20 8d 74 40 47 3a e3 | 49 25 3d 31 20 b8 20 31 |. .t@G:.|I%=1 . 1|
|00000c30| 32 3a f3 20 6d 6f 6e 24 | 28 49 25 29 3a ed 3a e3 |2:. mon$|(I%):.:.|
|00000c40| 49 25 3d 31 20 b8 20 31 | 32 3a f3 20 64 61 79 25 |I%=1 . 1|2:. day%|
|00000c50| 28 49 25 29 3a ed 0d 03 | 52 1d e3 49 25 3d 30 20 |(I%):...|R..I%=0 |
|00000c60| b8 20 36 3a f3 20 64 61 | 79 24 28 49 25 29 3a ed |. 6:. da|y$(I%):.|
|00000c70| 20 49 25 0d 03 5c 05 e1 | 0d 03 66 04 0d 03 70 14 | I%..\..|..f...p.|
|00000c80| dd 20 f2 63 72 65 61 74 | 65 28 61 64 64 72 25 29 |. .creat|e(addr%)|
|00000c90| 0d 03 7a 0c f3 20 74 69 | 74 6c 65 24 0d 03 84 0c |..z.. ti|tle$....|
|00000ca0| 70 25 3d 61 64 64 72 25 | 0d 03 8e 11 24 70 25 3d |p%=addr%|....$p%=|
|00000cb0| 74 69 74 6c 65 24 2b bd | 30 0d 03 98 13 70 25 21 |title$+.|0....p%!|
|00000cc0| 31 32 3d 26 30 30 30 37 | 30 32 30 37 0d 03 a2 16 |12=&0007|0207....|
|00000cd0| f3 20 65 6e 74 25 2c 70 | 25 21 31 36 2c 70 25 21 |. ent%,p|%!16,p%!|
|00000ce0| 32 30 0d 03 ac 12 70 25 | 21 32 34 3d 30 3a 70 25 |20....p%|!24=0:p%|
|00000cf0| 2b 3d 32 38 0d 03 b6 10 | e3 49 25 3d 31 20 b8 20 |+=28....|.I%=1 . |
|00000d00| 65 6e 74 25 0d 03 c0 12 | f3 20 65 6e 74 24 2c 73 |ent%....|. ent$,s|
|00000d10| 6d 25 2c 66 6c 25 0d 03 | ca 16 f2 61 64 64 28 65 |m%,fl%..|...add(e|
|00000d20| 6e 74 24 2c 73 6d 25 2c | 66 6c 25 29 0d 03 d4 31 |nt$,sm%,|fl%)...1|
|00000d30| e7 20 66 6c 25 3d 38 20 | 8c 20 21 28 70 25 2d 31 |. fl%=8 |. !(p%-1|
|00000d40| 36 29 2b 3d 31 3c 3c 32 | 32 3a e7 20 73 76 25 3d |6)+=1<<2|2:. sv%=|
|00000d50| 30 20 8c 20 73 76 25 3d | 70 25 2d 32 34 0d 03 de |0 . sv%=|p%-24...|
|00000d60| 11 ed 20 49 25 3a 6f 64 | 61 79 25 3d 2d 31 0d 03 |.. I%:od|ay%=-1..|
|00000d70| e8 0b 6f 6f 70 73 25 3d | a3 0d 03 f2 05 e1 0d 03 |..oops%=|........|
|00000d80| fc 05 3a 0d 04 06 6a dc | 20 22 21 4a 6f 75 72 6e |..:...j.| "!Journ|
|00000d90| 6f 22 2c 35 2c 31 36 30 | 2c 34 34 2c 22 49 6e 66 |o",5,160|,44,"Inf|
|00000da0| 6f 22 2c 69 6e 66 6f 25 | 2c 30 2c 22 43 72 65 61 |o",info%|,0,"Crea|
|00000db0| 74 65 22 2c 79 65 61 72 | 6d 65 6e 75 25 2c 30 2c |te",year|menu%,0,|
|00000dc0| 22 53 61 76 65 22 2c 73 | 61 76 65 25 2c 38 2c 22 |"Save",s|ave%,8,"|
|00000dd0| 50 72 69 6e 74 22 2c 70 | 72 69 6e 74 25 2c 38 2c |Print",p|rint%,8,|
|00000de0| 22 51 75 69 74 22 2c 2d | 31 2c 31 32 38 0d 04 10 |"Quit",-|1,128...|
|00000df0| 6d dc 20 22 45 6e 74 72 | 79 22 2c 35 2c 31 36 38 |m. "Entr|y",5,168|
|00000e00| 2c 34 34 2c 22 43 6c 65 | 61 72 20 20 20 5e 58 22 |,44,"Cle|ar ^X"|
|00000e10| 2c 2d 31 2c 30 2c 22 55 | 6e 64 6f 20 20 20 20 5e |,-1,0,"U|ndo ^|
|00000e20| 4f 22 2c 2d 31 2c 30 2c | 22 43 6f 70 79 20 20 20 |O",-1,0,|"Copy |
|00000e30| 20 5e 43 22 2c 2d 31 2c | 30 2c 22 50 61 73 74 65 | ^C",-1,|0,"Paste|
|00000e40| 20 20 20 5e 50 22 2c 2d | 31 2c 30 2c 22 50 72 69 | ^P",-|1,0,"Pri|
|00000e50| 6e 74 22 2c 2d 31 2c 31 | 32 38 0d 04 1a 3a dc 20 |nt",-1,1|28...:. |
|00000e60| 22 43 61 6c 65 6e 64 61 | 72 22 2c 32 2c 31 36 38 |"Calenda|r",2,168|
|00000e70| 2c 34 34 2c 22 47 6f 74 | 6f 20 54 6f 64 61 79 22 |,44,"Got|o Today"|
|00000e80| 2c 2d 31 2c 30 2c 22 50 | 72 69 6e 74 22 2c 2d 31 |,-1,0,"P|rint",-1|
|00000e90| 2c 31 32 38 0d 04 24 05 | 3a 0d 04 2e 15 dd 20 f2 |,128..$.|:..... .|
|00000ea0| 6d 65 6e 75 28 6d 25 2c | 78 25 2c 79 25 29 0d 04 |menu(m%,|x%,y%)..|
|00000eb0| 38 10 6c 61 73 74 6d 65 | 6e 75 25 3d 6d 25 0d 04 |8.lastme|nu%=m%..|
|00000ec0| 42 22 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |B".. "Wi|mp_Creat|
|00000ed0| 65 4d 65 6e 75 22 2c 2c | 6d 25 2c 78 25 2c 79 25 |eMenu",,|m%,x%,y%|
|00000ee0| 0d 04 4c 05 e1 0d 04 56 | 05 3a 0d 04 60 18 dd 20 |..L....V|.:..`.. |
|00000ef0| f2 61 64 64 28 6f 70 74 | 24 2c 73 6d 25 2c 66 6c |.add(opt|$,sm%,fl|
|00000f00| 25 29 0d 04 6a 0c 70 25 | 21 30 3d 66 6c 25 0d 04 |%)..j.p%|!0=fl%..|
|00000f10| 74 0c 70 25 21 34 3d 73 | 6d 25 0d 04 7e 13 70 25 |t.p%!4=s|m%..~.p%|
|00000f20| 21 38 3d 28 37 3c 3c 32 | 34 29 84 20 31 0d 04 88 |!8=(7<<2|4). 1...|
|00000f30| 14 24 28 70 25 2b 31 32 | 29 3d 6f 70 74 24 2b bd |.$(p%+12|)=opt$+.|
|00000f40| 30 0d 04 92 0a 70 25 2b | 3d 32 34 0d 04 9c 05 e1 |0....p%+|=24.....|
|00000f50| 0d 04 a6 05 3a 0d 04 b0 | 10 dd 20 f2 63 6c 69 63 |....:...|.. .clic|
|00000f60| 6b 6d 65 6e 75 0d 04 ba | 12 c8 8e 20 6c 61 73 74 |kmenu...|... last|
|00000f70| 6d 65 6e 75 25 20 ca 0d | 04 c4 0f c9 20 69 63 6f |menu% ..|.... ico|
|00000f80| 6e 6d 65 6e 75 25 0d 04 | ce 1c e7 20 71 25 21 30 |nmenu%..|... q%!0|
|00000f90| 3d 31 20 8c 20 f2 63 72 | 65 61 74 65 6a 6f 75 72 |=1 . .cr|eatejour|
|00000fa0| 6e 6f 0d 04 d8 14 e7 20 | 71 25 21 30 3d 32 20 8c |no..... |q%!0=2 .|
|00000fb0| 20 f2 73 61 76 65 0d 04 | e2 17 e7 20 71 25 21 30 | .save..|... q%!0|
|00000fc0| 3d 33 20 8c 20 f2 70 72 | 69 6e 74 69 74 0d 04 ec |=3 . .pr|intit...|
|00000fd0| 0e e7 20 71 25 21 30 3d | 34 20 8c 0d 04 f6 1f e7 |.. q%!0=|4 ......|
|00000fe0| 20 6c 6f 61 64 65 64 25 | 20 8c 20 f2 71 75 69 74 | loaded%| . .quit|
|00000ff0| 20 8b 20 71 75 69 74 25 | 3d b9 0d 05 00 05 cd 0d | . quit%|=.......|
|00001000| 05 0a 0e c9 20 65 6e 74 | 6d 65 6e 75 25 0d 05 14 |.... ent|menu%...|
|00001010| 15 e7 20 71 25 21 30 3d | 30 20 8c 20 f2 63 6c 65 |.. q%!0=|0 . .cle|
|00001020| 61 72 0d 05 1e 14 e7 20 | 71 25 21 30 3d 31 20 8c |ar..... |q%!0=1 .|
|00001030| 20 f2 6f 6f 70 73 0d 05 | 28 13 e7 20 71 25 21 30 | .oops..|(.. q%!0|
|00001040| 3d 32 20 8c 20 f2 74 61 | 67 0d 05 32 16 e7 20 71 |=2 . .ta|g..2.. q|
|00001050| 25 21 30 3d 33 20 8c 20 | f2 67 65 74 74 61 67 0d |%!0=3 . |.gettag.|
|00001060| 05 3c 1a e7 20 71 25 21 | 30 3d 34 20 8c 20 f2 70 |.<.. q%!|0=4 . .p|
|00001070| 72 69 6e 74 65 6e 74 72 | 79 0d 05 46 0e c9 20 63 |rintentr|y..F.. c|
|00001080| 61 6c 6d 65 6e 75 25 0d | 05 50 15 e7 20 71 25 21 |almenu%.|.P.. q%!|
|00001090| 30 3d 30 20 8c 20 f2 74 | 6f 64 61 79 0d 05 5a 18 |0=0 . .t|oday..Z.|
|000010a0| e7 20 71 25 21 30 3d 31 | 20 8c 20 f2 70 72 69 6e |. q%!0=1| . .prin|
|000010b0| 74 63 61 6c 0d 05 64 05 | 7f 0d 05 6e 2e 85 20 26 |tcal..d.|...n.. &|
|000010c0| 31 32 33 34 2c 22 57 68 | 65 72 65 20 64 69 64 20 |1234,"Wh|ere did |
|000010d0| 74 68 61 74 20 4d 65 6e | 75 20 63 6f 6d 65 20 46 |that Men|u come F|
|000010e0| 72 6f 6d 3f 3f 3f 22 0d | 05 78 05 cb 0d 05 82 05 |rom???".|.x......|
|000010f0| e1 0d 05 8c 05 3a 0d 05 | 96 0d dd 20 f2 72 65 6f |.....:..|... .reo|
|00001100| 70 65 6e 0d 05 a0 20 c8 | 99 20 22 57 69 6d 70 5f |pen... .|. "Wimp_|
|00001110| 47 65 74 50 6f 69 6e 74 | 65 72 49 6e 66 6f 22 2c |GetPoint|erInfo",|
|00001120| 2c 71 25 0d 05 aa 39 e7 | 20 28 28 71 25 21 38 29 |,q%...9.| ((q%!8)|
|00001130| 20 80 20 31 29 3d 31 20 | 8c 20 c8 99 22 57 69 6d | . 1)=1 |. .."Wim|
|00001140| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 6c |p_Create|Menu",,l|
|00001150| 61 73 74 6d 65 6e 75 25 | 2c 30 2c 30 0d 05 b4 05 |astmenu%|,0,0....|
|00001160| e1 0d 05 be 05 3a 0d 05 | c8 11 dd 20 a4 73 74 72 |.....:..|... .str|
|00001170| 28 61 64 64 72 25 29 0d | 05 d2 0a 73 74 24 3d 22 |(addr%).|...st$="|
|00001180| 22 0d 05 dc 2a c8 95 20 | 3f 61 64 64 72 25 3c 3e |"...*.. |?addr%<>|
|00001190| 30 20 73 74 24 2b 3d bd | 28 3f 61 64 64 72 25 29 |0 st$+=.|(?addr%)|
|000011a0| 3a 61 64 64 72 25 2b 3d | 31 3a ce 0d 05 e6 08 3d |:addr%+=|1:.....=|
|000011b0| 73 74 24 0d 05 f0 05 3a | 0d 05 fa 13 dd 20 f2 63 |st$....:|..... .c|
|000011c0| 72 65 61 74 65 6a 6f 75 | 72 6e 6f 0d 06 04 20 e7 |reatejou|rno... .|
|000011d0| 20 6c 6f 61 64 65 64 25 | 20 8c 20 e7 20 ac 20 a4 | loaded%| . . . .|
|000011e0| 72 65 73 74 61 72 74 20 | 8c 20 e1 0d 06 0e 0d 73 |restart |. .....s|
|000011f0| 74 6f 72 65 64 25 3d a3 | 0d 06 18 1a 21 73 76 25 |tored%=.|....!sv%|
|00001200| 3d 30 3a 73 76 25 21 38 | 3d 28 37 3c 3c 32 34 29 |=0:sv%!8|=(7<<24)|
|00001210| 84 31 0d 06 22 1d 73 76 | 25 21 32 34 3d 30 3a 73 |.1..".sv|%!24=0:s|
|00001220| 76 25 21 33 32 3d 28 37 | 3c 3c 32 34 29 84 31 0d |v%!32=(7|<<24).1.|
|00001230| 06 2c 0d 6c 6f 61 64 65 | 64 25 3d b9 0d 06 36 15 |.,.loade|d%=...6.|
|00001240| 79 65 61 72 24 3d a4 73 | 74 72 28 79 65 61 72 25 |year$=.s|tr(year%|
|00001250| 29 0d 06 40 25 21 74 25 | 3d 2d 32 3a 74 25 21 34 |)..@%!t%|=-2:t%!4|
|00001260| 3d 6a 6f 75 72 6e 25 3a | 74 25 21 38 3d 30 3a 74 |=journ%:|t%!8=0:t|
|00001270| 25 21 31 32 3d 30 0d 06 | 4a 19 24 6a 6f 25 3d 22 |%!12=0..|J.$jo%="|
|00001280| 20 22 2b 79 65 61 72 24 | 2b 22 20 22 2b bd 30 0d | "+year$|+" "+.0.|
|00001290| 06 54 11 6d 6f 6e 25 3d | 31 3a 64 61 79 25 3d 31 |.T.mon%=|1:day%=1|
|000012a0| 0d 06 5e 1e c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |..^... "|Wimp_Set|
|000012b0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 74 25 0d 06 |IconStat|e",,t%..|
|000012c0| 68 2a e3 49 25 3d 30 20 | b8 20 33 36 35 3a e3 41 |h*.I%=0 |. 365:.A|
|000012d0| 25 3d 30 20 b8 20 35 3a | 6a 6f 24 28 49 25 2c 41 |%=0 . 5:|jo$(I%,A|
|000012e0| 25 29 3d 22 22 3a ed 2c | 0d 06 72 2f 21 71 25 3d |%)="":.,|..r/!q%=|
|000012f0| 73 61 76 65 25 3a 71 25 | 21 34 3d 31 3a c8 99 20 |save%:q%|!4=1:.. |
|00001300| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00001310| 74 65 22 2c 2c 71 25 0d | 06 7c 15 24 28 71 25 21 |te",,q%.|.|.$(q%!|
|00001320| 32 38 29 3d 79 65 61 72 | 24 2b bd 30 0d 06 86 0c |28)=year|$+.0....|
|00001330| f2 6f 70 65 6e 63 61 6c | 0d 06 90 34 e7 20 65 6e |.opencal|...4. en|
|00001340| 74 77 69 6e 25 20 8c 20 | 21 71 25 3d 65 6e 74 72 |twin% . |!q%=entr|
|00001350| 79 25 3a c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |y%:.. "W|imp_Clos|
|00001360| 65 57 69 6e 64 6f 77 22 | 2c 2c 71 25 0d 06 9a 1f |eWindow"|,,q%....|
|00001370| e3 49 25 3d 30 20 b8 20 | 35 3a 24 70 6f 73 25 28 |.I%=0 . |5:$pos%(|
|00001380| 49 25 29 3d 22 22 2b bd | 30 3a ed 0d 06 a4 05 e1 |I%)=""+.|0:......|
|00001390| 0d 06 ae 05 3a 0d 06 b8 | 0e dd 20 f2 6f 70 65 6e |....:...|.. .open|
|000013a0| 63 61 6c 0d 06 c2 13 21 | 71 25 3d 63 61 6c 25 3a |cal....!|q%=cal%:|
|000013b0| 71 25 21 34 3d 30 0d 06 | cc 1e c8 99 20 22 57 69 |q%!4=0..|.... "Wi|
|000013c0| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|000013d0| 2c 2c 71 25 0d 06 d6 1a | 24 28 71 25 21 32 38 29 |,,q%....|$(q%!28)|
|000013e0| 3d 6d 6f 6e 24 28 6d 6f | 6e 25 29 2b bd 30 0d 06 |=mon$(mo|n%)+.0..|
|000013f0| e0 13 21 71 25 3d 63 61 | 6c 25 3a 71 25 21 34 3d |..!q%=ca|l%:q%!4=|
|00001400| 31 0d 06 ea 1e c8 99 20 | 22 57 69 6d 70 5f 47 65 |1...... |"Wimp_Ge|
|00001410| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|00001420| 06 f4 15 24 28 71 25 21 | 32 38 29 3d 79 65 61 72 |...$(q%!|28)=year|
|00001430| 24 2b bd 30 0d 06 fe 0b | f2 67 65 6e 63 61 6c 0d |$+.0....|.gencal.|
|00001440| 07 08 0d e3 49 25 3d 31 | 20 b8 20 36 0d 07 12 17 |....I%=1| . 6....|
|00001450| 21 71 25 3d 63 61 6c 25 | 3a 71 25 21 34 3d 49 25 |!q%=cal%|:q%!4=I%|
|00001460| 2b 31 30 0d 07 1c 1e c8 | 99 20 22 57 69 6d 70 5f |+10.....|. "Wimp_|
|00001470| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |GetIconS|tate",,q|
|00001480| 25 0d 07 26 18 24 28 71 | 25 21 32 38 29 3d 63 61 |%..&.$(q|%!28)=ca|
|00001490| 6c 24 28 49 25 29 2b bd | 30 0d 07 30 08 ed 20 49 |l$(I%)+.|0..0.. I|
|000014a0| 25 0d 07 3a 0d 71 25 21 | 30 3d 63 61 6c 25 0d 07 |%..:.q%!|0=cal%..|
|000014b0| 44 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |D .. "Wi|mp_GetWi|
|000014c0| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 71 25 0d 07 |ndowStat|e",,q%..|
|000014d0| 4e 1c c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |N... "Wi|mp_OpenW|
|000014e0| 69 6e 64 6f 77 22 2c 2c | 71 25 0d 07 58 2d c8 99 |indow",,|q%..X-..|
|000014f0| 20 22 57 69 6d 70 5f 46 | 6f 72 63 65 52 65 64 72 | "Wimp_F|orceRedr|
|00001500| 61 77 22 2c 63 61 6c 25 | 2c 30 2c 2d 31 30 30 30 |aw",cal%|,0,-1000|
|00001510| 2c 31 30 30 30 2c 30 0d | 07 62 0d 63 61 6c 77 69 |,1000,0.|.b.calwi|
|00001520| 6e 25 3d b9 0d 07 6c 05 | e1 0d 07 76 05 3a 0d 07 |n%=...l.|...v.:..|
|00001530| 80 35 dc 20 4a 61 6e 2c | 46 65 62 2c 4d 61 72 2c |.5. Jan,|Feb,Mar,|
|00001540| 41 70 72 2c 4d 61 79 2c | 4a 75 6e 2c 4a 75 6c 2c |Apr,May,|Jun,Jul,|
|00001550| 41 75 67 2c 53 65 70 2c | 4f 63 74 2c 4e 6f 76 2c |Aug,Sep,|Oct,Nov,|
|00001560| 44 65 63 0d 07 8a 35 dc | 20 20 33 31 2c 20 32 38 |Dec...5.| 31, 28|
|00001570| 2c 20 33 31 2c 20 33 30 | 2c 20 33 31 2c 20 33 30 |, 31, 30|, 31, 30|
|00001580| 2c 20 33 31 2c 20 33 31 | 2c 20 33 30 2c 20 33 31 |, 31, 31|, 30, 31|
|00001590| 2c 20 33 30 2c 20 33 31 | 0d 07 94 3e dc 20 53 75 |, 30, 31|...>. Su|
|000015a0| 6e 64 61 79 2c 4d 6f 6e | 64 61 79 2c 54 75 65 73 |nday,Mon|day,Tues|
|000015b0| 64 61 79 2c 57 65 64 6e | 65 73 64 61 79 2c 54 68 |day,Wedn|esday,Th|
|000015c0| 75 72 73 64 61 79 2c 46 | 72 69 64 61 79 2c 53 61 |ursday,F|riday,Sa|
|000015d0| 74 75 72 64 61 79 0d 07 | 9e 05 3a 0d 07 a8 0d dd |turday..|..:.....|
|000015e0| 20 f2 67 65 6e 63 61 6c | 0d 07 b2 14 79 25 3d a0 | .gencal|....y%=.|
|000015f0| 28 79 65 61 72 24 29 2d | 31 39 30 30 0d 07 bc 13 |(year$)-|1900....|
|00001600| 79 32 25 3d 79 25 2b 28 | 79 25 2d 31 29 81 34 0d |y2%=y%+(|y%-1).4.|
|00001610| 07 c6 0a 79 32 25 2b 3d | 31 0d 07 d0 2d e7 20 6d |...y2%+=|1...-. m|
|00001620| 6f 6e 25 3e 31 20 8c 3a | e3 49 25 3d 31 20 b8 20 |on%>1 .:|.I%=1 . |
|00001630| 6d 6f 6e 25 2d 31 3a 79 | 32 25 2b 3d 64 61 79 25 |mon%-1:y|2%+=day%|
|00001640| 28 49 25 29 3a ed 0d 07 | da 1e e7 20 79 25 83 34 |(I%):...|... y%.4|
|00001650| 3d 30 20 80 20 6d 6f 6e | 25 3e 32 20 8c 20 79 32 |=0 . mon|%>2 . y2|
|00001660| 25 2b 3d 31 0d 07 e4 13 | 63 61 6c 24 28 29 3d c4 |%+=1....|cal$()=.|
|00001670| 32 37 2c 22 20 22 29 0d | 07 ee 16 79 25 3d 79 32 |27," ").|...y%=y2|
|00001680| 25 83 37 3a 73 74 61 72 | 74 25 3d 79 25 0d 07 f8 |%.7:star|t%=y%...|
|00001690| 08 6c 25 3d 31 0d 08 02 | 16 e3 49 25 3d 31 20 b8 |.l%=1...|..I%=1 .|
|000016a0| 20 64 61 79 25 28 6d 6f | 6e 25 29 0d 08 0c 22 c1 | day%(mo|n%)...".|
|000016b0| 63 61 6c 24 28 6c 25 29 | 2c 79 25 2a 34 2c 33 29 |cal$(l%)|,y%*4,3)|
|000016c0| 3d c2 22 20 20 22 2b c3 | 49 25 2c 33 29 0d 08 16 |=." "+.|I%,3)...|
|000016d0| 42 e7 20 49 25 3d 64 61 | 79 25 20 8c 20 c1 63 61 |B. I%=da|y% . .ca|
|000016e0| 6c 24 28 6c 25 29 2c 79 | 25 2a 34 2c 31 29 3d 22 |l$(l%),y|%*4,1)="|
|000016f0| 3e 22 3a c1 63 61 6c 24 | 28 6c 25 29 2c 79 25 2a |>":.cal$|(l%),y%*|
|00001700| 34 2b a4 79 28 79 25 29 | 2c 31 29 3d 22 3c 22 0d |4+.y(y%)|,1)="<".|
|00001710| 08 20 1d 79 25 2b 3d 31 | 3a e7 20 79 25 3d 37 20 |. .y%+=1|:. y%=7 |
|00001720| 8c 20 79 25 3d 30 3a 6c | 25 2b 3d 31 0d 08 2a 08 |. y%=0:l|%+=1..*.|
|00001730| ed 20 49 25 0d 08 34 05 | e1 0d 08 3e 05 3a 0d 08 |. I%..4.|...>.:..|
|00001740| 48 1a dd a4 79 28 79 25 | 29 3a e7 20 79 25 3d 30 |H...y(y%|):. y%=0|
|00001750| 20 3d 34 20 8b 20 3d 33 | 0d 08 52 05 3a 0d 08 5c | =4 . =3|..R.:..\|
|00001760| 0b dd 20 f2 73 61 76 65 | 0d 08 66 13 e7 20 71 25 |.. .save|..f.. q%|
|00001770| 21 34 3d 2d 31 20 8c 20 | f2 6f 6b 0d 08 70 1b e7 |!4=-1 . |.ok..p..|
|00001780| 20 71 25 21 31 36 3d 30 | 20 8c 20 f2 64 72 61 67 | q%!16=0| . .drag|
|00001790| 69 63 6f 6e 3a e1 0d 08 | 7a 13 e7 20 71 25 21 31 |icon:...|z.. q%!1|
|000017a0| 36 3d 32 20 8c 20 f2 6f | 6b 0d 08 84 05 e1 0d 08 |6=2 . .o|k.......|
|000017b0| 8e 05 3a 0d 08 98 09 dd | 20 f2 6f 6b 0d 08 a2 1c |..:.....| .ok....|
|000017c0| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |.. "Wimp|_CreateM|
|000017d0| 65 6e 75 22 2c 2c 2d 31 | 0d 08 ac 14 21 71 25 3d |enu",,-1|....!q%=|
|000017e0| 73 61 76 65 25 3a 71 25 | 21 34 3d 31 0d 08 b6 1e |save%:q%|!4=1....|
|000017f0| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00001800| 53 74 61 74 65 22 2c 2c | 71 25 0d 08 c0 15 66 69 |State",,|q%....fi|
|00001810| 6c 65 24 3d a4 73 74 72 | 28 71 25 21 32 38 29 0d |le$=.str|(q%!28).|
|00001820| 08 ca 15 e7 20 a7 66 69 | 6c 65 24 2c 22 2e 22 29 |.... .fi|le$,".")|
|00001830| 3c 31 20 8c 0d 08 d4 35 | 21 71 25 3d 30 3a 24 28 |<1 ....5|!q%=0:$(|
|00001840| 71 25 2b 34 29 3d 22 44 | 72 61 67 20 46 69 6c 65 |q%+4)="D|rag File|
|00001850| 20 74 6f 20 44 69 72 65 | 63 74 6f 72 79 20 74 6f | to Dire|ctory to|
|00001860| 20 53 61 76 65 22 2b bd | 30 0d 08 de 30 c8 99 20 | Save"+.|0...0.. |
|00001870| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|00001880| 72 22 2c 71 25 2c 31 2c | 22 21 4a 6f 75 72 6e 6f |r",q%,1,|"!Journo|
|00001890| 20 57 61 72 6e 69 6e 67 | 22 0d 08 e8 05 cc 0d 08 | Warning|".......|
|000018a0| f2 12 f2 73 61 76 65 69 | 74 28 66 69 6c 65 24 29 |...savei|t(file$)|
|000018b0| 0d 08 fc 05 cd 0d 09 06 | 05 e1 0d 09 10 05 3a 0d |........|......:.|
|000018c0| 09 1a 11 dd 20 f2 73 61 | 76 65 69 74 28 66 24 29 |.... .sa|veit(f$)|
|000018d0| 0d 09 24 1f e7 20 6f 64 | 61 79 25 3c 3e 2d 31 20 |..$.. od|ay%<>-1 |
|000018e0| 8c 20 f2 73 74 6f 72 65 | 28 6f 64 61 79 25 29 0d |. .store|(oday%).|
|000018f0| 09 2e 0c 58 25 3d ae 28 | 66 24 29 0d 09 38 0e d5 |...X%=.(|f$)..8..|
|00001900| 23 58 25 2c 79 65 61 72 | 24 0d 09 42 0f e3 49 25 |#X%,year|$..B..I%|
|00001910| 3d 30 20 b8 20 33 36 35 | 0d 09 4c 0d e3 41 25 3d |=0 . 365|..L..A%=|
|00001920| 30 20 b8 20 35 0d 09 56 | 13 d5 23 58 25 2c 6a 6f |0 . 5..V|..#X%,jo|
|00001930| 24 28 49 25 2c 41 25 29 | 0d 09 60 06 ed 2c 0d 09 |$(I%,A%)|..`..,..|
|00001940| 6a 08 d9 23 58 25 0d 09 | 74 19 ff 22 53 65 74 54 |j..#X%..|t.."SetT|
|00001950| 79 70 65 20 22 2b 66 24 | 2b 22 20 30 30 31 22 0d |ype "+f$|+" 001".|
|00001960| 09 7e 0d 73 74 6f 72 65 | 64 25 3d a3 0d 09 88 05 |.~.store|d%=.....|
|00001970| e1 0d 09 92 05 3a 0d 09 | 9c 0f dd 20 f2 64 72 61 |.....:..|... .dra|
|00001980| 67 69 63 6f 6e 0d 09 a6 | 6c 71 25 21 30 3d 73 61 |gicon...|lq%!0=sa|
|00001990| 76 65 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |ve%:.. "|Wimp_Get|
|000019a0| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 71 25 |WindowSt|ate",,q%|
|000019b0| 3a 77 65 78 3d 71 25 21 | 34 2d 71 25 21 32 30 3a |:wex=q%!|4-q%!20:|
|000019c0| 77 65 79 3d 71 25 21 31 | 36 2d 71 25 21 32 34 3a |wey=q%!1|6-q%!24:|
|000019d0| 71 25 21 34 3d 30 3a c8 | 99 20 22 57 69 6d 70 5f |q%!4=0:.|. "Wimp_|
|000019e0| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |GetIconS|tate",,q|
|000019f0| 25 0d 09 b0 62 21 71 25 | 3d 73 61 76 65 25 3a 71 |%...b!q%|=save%:q|
|00001a00| 25 21 34 3d 35 3a 71 25 | 21 38 3d 71 25 21 38 2b |%!4=5:q%|!8=q%!8+|
|00001a10| 77 65 78 3a 71 25 21 31 | 32 3d 71 25 21 31 32 2b |wex:q%!1|2=q%!12+|
|00001a20| 77 65 79 3a 71 25 21 31 | 36 3d 71 25 21 31 36 2b |wey:q%!1|6=q%!16+|
|00001a30| 77 65 78 3a 71 25 21 32 | 30 3d 71 25 21 32 30 2b |wex:q%!2|0=q%!20+|
|00001a40| 77 65 79 3a 71 25 21 32 | 34 3d 30 3a 71 25 21 32 |wey:q%!2|4=0:q%!2|
|00001a50| 38 3d 30 0d 09 ba 39 71 | 25 21 33 32 3d 26 37 46 |8=0...9q|%!32=&7F|
|00001a60| 46 46 46 46 46 46 3a 71 | 25 21 33 36 3d 26 37 46 |FFFFFF:q|%!36=&7F|
|00001a70| 46 46 46 46 46 46 3a c8 | 99 20 22 57 69 6d 70 5f |FFFFFF:.|. "Wimp_|
|00001a80| 44 72 61 67 42 6f 78 22 | 2c 2c 71 25 0d 09 c4 05 |DragBox"|,,q%....|
|00001a90| e1 0d 09 ce 05 3a 0d 09 | d8 11 dd 20 f2 64 65 63 |.....:..|... .dec|
|00001aa0| 6f 64 65 64 72 61 67 0d | 09 e2 20 c8 99 20 22 57 |odedrag.|.. .. "W|
|00001ab0| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|00001ac0| 66 6f 22 2c 2c 71 25 0d | 09 ec 21 e7 20 71 25 21 |fo",,q%.|..!. q%!|
|00001ad0| 31 32 3d 65 6e 74 25 20 | 84 20 71 25 21 31 32 3d |12=ent% |. q%!12=|
|00001ae0| 63 61 6c 25 20 8c 20 e1 | 0d 09 f6 1a 77 69 6e 25 |cal% . .|....win%|
|00001af0| 3d 71 25 21 31 32 3a 69 | 63 6f 6e 25 3d 71 25 21 |=q%!12:i|con%=q%!|
|00001b00| 31 36 0d 0a 00 1a 71 25 | 21 32 30 3d 77 69 6e 25 |16....q%|!20=win%|
|00001b10| 3a 71 25 21 32 34 3d 69 | 63 6f 6e 25 0d 0a 0a 18 |:q%!24=i|con%....|
|00001b20| 71 25 21 32 38 3d 21 71 | 25 3a 71 25 21 33 32 3d |q%!28=!q|%:q%!32=|
|00001b30| 71 25 21 34 0d 0a 14 13 | 71 25 21 31 32 3d 30 3a |q%!4....|q%!12=0:|
|00001b40| 71 25 21 31 36 3d 31 0d | 0a 1e 16 71 25 21 33 36 |q%!16=1.|...q%!36|
|00001b50| 3d 30 3a 71 25 21 34 30 | 3d 26 30 30 31 0d 0a 28 |=0:q%!40|=&001..(|
|00001b60| 20 24 28 71 25 2b 34 34 | 29 3d a4 6c 65 61 66 28 | $(q%+44|)=.leaf(|
|00001b70| a4 73 74 72 28 66 61 64 | 64 72 25 29 29 0d 0a 32 |.str(fad|dr%))..2|
|00001b80| 1e 21 71 25 3d 28 34 38 | 2b a9 28 a4 73 74 72 28 |.!q%=(48|+.(.str(|
|00001b90| 71 25 2b 34 34 29 29 29 | 80 ac 33 0d 0a 3c 2a c8 |q%+44)))|..3..<*.|
|00001ba0| 99 20 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |. "Wimp_|SendMess|
|00001bb0| 61 67 65 22 2c 31 37 2c | 71 25 2c 77 69 6e 25 2c |age",17,|q%,win%,|
|00001bc0| 69 63 6f 6e 25 0d 0a 46 | 0e 73 72 65 66 25 3d 71 |icon%..F|.sref%=q|
|00001bd0| 25 21 38 0d 0a 50 05 e1 | 0d 0a 5a 05 3a 0d 0a 64 |%!8..P..|..Z.:..d|
|00001be0| 0e dd 20 f2 73 61 76 65 | 61 63 6b 0d 0a 6e 13 e7 |.. .save|ack..n..|
|00001bf0| 20 71 25 21 31 32 3d 73 | 72 65 66 25 20 8c 0d 0a | q%!12=s|ref% ...|
|00001c00| 78 17 20 20 66 69 6c 65 | 24 3d a4 73 74 72 28 71 |x. file|$=.str(q|
|00001c10| 25 2b 34 34 29 0d 0a 82 | 14 20 20 f2 73 61 76 65 |%+44)...|. .save|
|00001c20| 69 74 28 66 69 6c 65 24 | 29 0d 0a 8c 16 20 20 24 |it(file$|).... $|
|00001c30| 66 61 64 64 72 25 3d 66 | 69 6c 65 24 2b bd 30 0d |faddr%=f|ile$+.0.|
|00001c40| 0a 96 1e 20 20 c8 99 20 | 22 57 69 6d 70 5f 43 72 |... .. |"Wimp_Cr|
|00001c50| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 2d 31 0d 0a a0 |eateMenu|",,-1...|
|00001c60| 05 cd 0d 0a aa 05 e1 0d | 0a b4 05 3a 0d 0a be 0e |........|...:....|
|00001c70| dd 20 f2 6c 6f 61 64 61 | 63 6b 0d 0a c8 1b e7 20 |. .loada|ck..... |
|00001c80| 71 25 21 31 32 3d 6c 72 | 65 66 25 20 8c 20 6c 72 |q%!12=lr|ef% . lr|
|00001c90| 65 66 25 3d a3 0d 0a d2 | 05 e1 0d 0a dc 05 3a 0d |ef%=....|......:.|
|00001ca0| 0a e6 11 dd 20 f2 6c 6f | 61 64 6a 6f 75 72 6e 6f |.... .lo|adjourno|
|00001cb0| 0d 0a f0 27 e7 20 71 25 | 21 34 30 3d 26 30 30 31 |...'. q%|!40=&001|
|00001cc0| 20 8c 20 f2 6c 6f 61 64 | 69 74 28 a4 73 74 72 28 | . .load|it(.str(|
|00001cd0| 71 25 2b 34 34 29 29 0d | 0a fa 05 e1 0d 0b 04 05 |q%+44)).|........|
|00001ce0| 3a 0d 0b 0e 11 dd 20 f2 | 6c 6f 61 64 69 74 28 66 |:..... .|loadit(f|
|00001cf0| 24 29 0d 0b 18 32 71 25 | 21 31 32 3d 71 25 21 38 |$)...2q%|!12=q%!8|
|00001d00| 3a 71 25 21 31 36 3d 34 | 3a c8 99 20 22 57 69 6d |:q%!16=4|:.. "Wim|
|00001d10| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00001d20| 37 2c 71 25 0d 0b 22 0f | e7 20 6c 6f 61 64 65 64 |7,q%..".|. loaded|
|00001d30| 25 20 8c 0d 0b 2c 1a e7 | 20 a4 72 65 73 74 61 72 |% ...,..| .restar|
|00001d40| 74 20 f2 6c 6f 61 64 65 | 72 28 66 24 29 0d 0b 36 |t .loade|r(f$)..6|
|00001d50| 05 cc 0d 0b 40 0f f2 6c | 6f 61 64 65 72 28 66 24 |....@..l|oader(f$|
|00001d60| 29 0d 0b 4a 05 cd 0d 0b | 54 05 e1 0d 0b 5e 05 3a |)..J....|T....^.:|
|00001d70| 0d 0b 68 11 dd 20 f2 6c | 6f 61 64 65 72 28 66 24 |..h.. .l|oader(f$|
|00001d80| 29 0d 0b 72 0d 73 74 6f | 72 65 64 25 3d a3 0d 0b |)..r.sto|red%=...|
|00001d90| 7c 0c 58 25 3d 8e 28 66 | 24 29 0d 0b 86 1c 79 65 ||.X%=.(f|$)....ye|
|00001da0| 61 72 24 3d be 23 58 25 | 3a 64 61 79 25 3d 31 3a |ar$=.#X%|:day%=1:|
|00001db0| 6d 6f 6e 25 3d 31 0d 0b | 90 13 6c 25 3d a0 28 79 |mon%=1..|..l%=.(y|
|00001dc0| 65 61 72 24 29 81 34 3d | 30 0d 0b 9a 1e e7 20 6c |ear$).4=|0..... l|
|00001dd0| 25 20 8c 20 65 6e 64 25 | 3d 33 36 35 20 8b 20 65 |% . end%|=365 . e|
|00001de0| 6e 64 25 3d 33 36 34 0d | 0b a4 11 e3 20 49 25 3d |nd%=364.|.... I%=|
|00001df0| 30 20 b8 20 65 6e 64 25 | 0d 0b ae 0e e3 20 41 25 |0 . end%|..... A%|
|00001e00| 3d 30 20 b8 20 35 0d 0b | b8 13 6a 6f 24 28 49 25 |=0 . 5..|..jo$(I%|
|00001e10| 2c 41 25 29 3d be 23 58 | 25 0d 0b c2 06 ed 2c 0d |,A%)=.#X|%.....,.|
|00001e20| 0b cc 08 d9 23 58 25 0d | 0b d6 1a 21 73 76 25 3d |....#X%.|...!sv%=|
|00001e30| 30 3a 73 76 25 21 38 3d | 28 37 3c 3c 32 34 29 84 |0:sv%!8=|(7<<24).|
|00001e40| 31 0d 0b e0 1d 73 76 25 | 21 32 34 3d 30 3a 73 76 |1....sv%|!24=0:sv|
|00001e50| 25 21 33 32 3d 28 37 3c | 3c 32 34 29 84 31 0d 0b |%!32=(7<|<24).1..|
|00001e60| ea 0d 6c 6f 61 64 65 64 | 25 3d b9 0d 0b f4 13 24 |..loaded|%=.....$|
|00001e70| 79 65 61 72 25 3d 79 65 | 61 72 24 2b bd 30 0d 0b |year%=ye|ar$+.0..|
|00001e80| fe 25 21 74 25 3d 2d 32 | 3a 74 25 21 34 3d 6a 6f |.%!t%=-2|:t%!4=jo|
|00001e90| 75 72 6e 25 3a 74 25 21 | 38 3d 30 3a 74 25 21 31 |urn%:t%!|8=0:t%!1|
|00001ea0| 32 3d 30 0d 0c 08 19 24 | 6a 6f 25 3d 22 20 22 2b |2=0....$|jo%=" "+|
|00001eb0| 79 65 61 72 24 2b 22 20 | 22 2b bd 30 0d 0c 12 1a |year$+" |"+.0....|
|00001ec0| 6d 6f 6e 25 3d 31 3a 64 | 61 79 25 3d 31 3a 6f 64 |mon%=1:d|ay%=1:od|
|00001ed0| 61 79 25 3d 2d 31 0d 0c | 1c 1e c8 99 20 22 57 69 |ay%=-1..|.... "Wi|
|00001ee0| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00001ef0| 2c 2c 74 25 0d 0c 26 2f | 21 71 25 3d 73 61 76 65 |,,t%..&/|!q%=save|
|00001f00| 25 3a 71 25 21 34 3d 31 | 3a c8 99 20 22 57 69 6d |%:q%!4=1|:.. "Wim|
|00001f10| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00001f20| 2c 71 25 0d 0c 30 12 24 | 28 71 25 21 32 38 29 3d |,q%..0.$|(q%!28)=|
|00001f30| 66 24 2b bd 30 0d 0c 3a | 0c f2 6f 70 65 6e 63 61 |f$+.0..:|..openca|
|00001f40| 6c 0d 0c 44 34 e7 20 65 | 6e 74 77 69 6e 25 20 8c |l..D4. e|ntwin% .|
|00001f50| 20 21 71 25 3d 65 6e 74 | 72 79 25 3a c8 99 20 22 | !q%=ent|ry%:.. "|
|00001f60| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|00001f70| 22 2c 2c 71 25 0d 0c 4e | 30 e7 20 c0 a4 6c 65 61 |",,q%..N|0. ..lea|
|00001f80| 66 28 66 24 29 2c 31 29 | 3d 22 21 22 20 8c 20 f2 |f(f$),1)|="!" . .|
|00001f90| 6f 70 65 6e 28 64 61 79 | 25 2c 6d 6f 6e 25 2c 79 |open(day|%,mon%,y|
|00001fa0| 65 61 72 24 29 0d 0c 58 | 05 e1 0d 0c 62 05 3a 0d |ear$)..X|....b.:.|
|00001fb0| 0c 6c 0f dd 20 f2 63 6c | 69 63 6b 63 61 6c 0d 0c |.l.. .cl|ickcal..|
|00001fc0| 76 3f e7 20 71 25 21 38 | 3d 34 20 80 20 71 25 21 |v?. q%!8|=4 . q%!|
|00001fd0| 31 32 3d 63 61 6c 25 20 | 80 20 71 25 21 31 36 3d |12=cal% |. q%!16=|
|00001fe0| 32 20 80 20 6d 6f 6e 25 | 3e 31 20 8c 20 6d 6f 6e |2 . mon%|>1 . mon|
|00001ff0| 25 2d 3d 31 3a f2 6f 70 | 65 6e 63 61 6c 0d 0c 80 |%-=1:.op|encal...|
|00002000| 40 e7 20 71 25 21 38 3d | 34 20 80 20 71 25 21 31 |@. q%!8=|4 . q%!1|
|00002010| 32 3d 63 61 6c 25 20 80 | 20 71 25 21 31 36 3d 33 |2=cal% .| q%!16=3|
|00002020| 20 80 20 6d 6f 6e 25 3c | 31 32 20 8c 20 6d 6f 6e | . mon%<|12 . mon|
|00002030| 25 2b 3d 31 3a f2 6f 70 | 65 6e 63 61 6c 0d 0c 8a |%+=1:.op|encal...|
|00002040| 20 e7 20 71 25 21 31 36 | 3e 31 30 20 80 20 71 25 | . q%!16|>10 . q%|
|00002050| 21 31 36 3c 31 37 20 8c | 20 f2 64 61 79 0d 0c 94 |!16<17 .| .day...|
|00002060| 05 e1 0d 0c 9e 05 3a 0d | 0c a8 0a dd 20 f2 64 61 |......:.|.... .da|
|00002070| 79 0d 0c b2 0f 6c 25 3d | 71 25 21 31 36 2d 31 31 |y....l%=|q%!16-11|
|00002080| 0d 0c bc 0a 78 25 3d 21 | 71 25 0d 0c c6 0c 21 71 |....x%=!|q%....!q|
|00002090| 25 3d 63 61 6c 25 0d 0c | d0 20 c8 99 20 22 57 69 |%=cal%..|. .. "Wi|
|000020a0| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|000020b0| 65 22 2c 2c 71 25 0d 0c | da 0b 65 25 3d 71 25 21 |e",,q%..|..e%=q%!|
|000020c0| 34 0d 0c e4 0e 71 25 21 | 34 3d 6c 25 2b 31 31 0d |4....q%!|4=l%+11.|
|000020d0| 0c ee 1e c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |..... "W|imp_GetI|
|000020e0| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 71 25 0d 0c f8 |conState|",,q%...|
|000020f0| 0c 65 25 2b 3d 71 25 21 | 38 0d 0d 02 11 78 25 3d |.e%+=q%!|8....x%=|
|00002100| 28 78 25 2d 65 25 29 81 | 36 34 0d 0d 0c 12 64 61 |(x%-e%).|64....da|
|00002110| 79 25 3d 28 6c 25 2a 37 | 29 2b 78 25 0d 0d 16 14 |y%=(l%*7|)+x%....|
|00002120| 64 61 79 25 2d 3d 28 73 | 74 61 72 74 25 2d 31 29 |day%-=(s|tart%-1)|
|00002130| 0d 0d 20 41 e7 20 64 61 | 79 25 3e 30 20 80 20 64 |.. A. da|y%>0 . d|
|00002140| 61 79 25 3c 3d 64 61 79 | 25 28 6d 6f 6e 25 29 20 |ay%<=day|%(mon%) |
|00002150| 8c 20 f2 6f 70 65 6e 28 | 64 61 79 25 2c 6d 6f 6e |. .open(|day%,mon|
|00002160| 25 2c 79 65 61 72 24 29 | 3a f2 6f 70 65 6e 63 61 |%,year$)|:.openca|
|00002170| 6c 0d 0d 2a 05 e1 0d 0d | 34 05 3a 0d 0d 3e 1c dd |l..*....|4.:..>..|
|00002180| 20 f2 6f 70 65 6e 28 64 | 61 79 25 2c 6d 6f 6e 25 | .open(d|ay%,mon%|
|00002190| 2c 79 65 61 72 24 29 0d | 0d 48 0e 65 64 61 79 25 |,year$).|.H.eday%|
|000021a0| 3d 64 61 79 25 0d 0d 52 | 2f e7 20 6d 6f 6e 25 3e |=day%..R|/. mon%>|
|000021b0| 31 20 8c 20 e3 49 25 3d | 31 20 b8 20 6d 6f 6e 25 |1 . .I%=|1 . mon%|
|000021c0| 2d 31 3a 65 64 61 79 25 | 2b 3d 64 61 79 25 28 49 |-1:eday%|+=day%(I|
|000021d0| 25 29 3a ed 0d 0d 5c 26 | e7 20 a0 28 79 65 61 72 |%):...\&|. .(year|
|000021e0| 24 29 81 34 3d 30 20 80 | 20 6d 6f 6e 25 3e 32 20 |$).4=0 .| mon%>2 |
|000021f0| 8c 20 65 64 61 79 25 2b | 3d 31 0d 0d 66 0c 65 64 |. eday%+|=1..f.ed|
|00002200| 61 79 25 2d 3d 31 0d 0d | 70 30 21 71 25 3d 65 6e |ay%-=1..|p0!q%=en|
|00002210| 74 72 79 25 3a 71 25 21 | 34 3d 31 3a c8 99 20 22 |try%:q%!|4=1:.. "|
|00002220| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00002230| 65 22 2c 2c 71 25 0d 0d | 7a 15 24 28 71 25 21 32 |e",,q%..|z.$(q%!2|
|00002240| 38 29 3d c3 64 61 79 25 | 2b bd 30 0d 0d 84 25 71 |8)=.day%|+.0...%q|
|00002250| 25 21 34 3d 32 3a c8 99 | 20 22 57 69 6d 70 5f 47 |%!4=2:..| "Wimp_G|
|00002260| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 71 25 |etIconSt|ate",,q%|
|00002270| 0d 0d 8e 1a 24 28 71 25 | 21 32 38 29 3d 6d 6f 6e |....$(q%|!28)=mon|
|00002280| 24 28 6d 6f 6e 25 29 2b | bd 30 0d 0d 98 25 71 25 |$(mon%)+|.0...%q%|
|00002290| 21 34 3d 33 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |!4=3:.. |"Wimp_Ge|
|000022a0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|000022b0| 0d a2 15 24 28 71 25 21 | 32 38 29 3d 79 65 61 72 |...$(q%!|28)=year|
|000022c0| 24 2b bd 30 0d 0d ac 0d | e3 49 25 3d 30 20 b8 20 |$+.0....|.I%=0 . |
|000022d0| 35 0d 0d b6 2e e7 20 6f | 64 61 79 25 3c 3e 2d 31 |5..... o|day%<>-1|
|000022e0| 20 8c 20 6a 6f 24 28 6f | 64 61 79 25 2c 49 25 29 | . jo$(o|day%,I%)|
|000022f0| 3d a4 73 74 72 28 70 6f | 73 25 28 49 25 29 29 0d |=.str(po|s%(I%)).|
|00002300| 0d c0 20 24 28 70 6f 73 | 25 28 49 25 29 29 3d 6a |.. $(pos|%(I%))=j|
|00002310| 6f 24 28 65 64 61 79 25 | 2c 49 25 29 2b bd 30 0d |o$(eday%|,I%)+.0.|
|00002320| 0d ca 08 ed 20 49 25 0d | 0d d4 0f 6f 64 61 79 25 |.... I%.|...oday%|
|00002330| 3d 65 64 61 79 25 0d 0d | de 2b 21 71 25 3d 65 6e |=eday%..|.+!q%=en|
|00002340| 74 72 79 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |try%:.. |"Wimp_Ge|
|00002350| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 71 |tWindowS|tate",,q|
|00002360| 25 0d 0d e8 0c 71 25 21 | 32 38 3d 2d 31 0d 0d f2 |%....q%!|28=-1...|
|00002370| 1c c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |... "Wim|p_OpenWi|
|00002380| 6e 64 6f 77 22 2c 2c 71 | 25 0d 0d fc 2f c8 99 20 |ndow",,q|%.../.. |
|00002390| 22 57 69 6d 70 5f 53 65 | 74 43 61 72 65 74 50 6f |"Wimp_Se|tCaretPo|
|000023a0| 73 69 74 69 6f 6e 22 2c | 65 6e 74 72 79 25 2c 31 |sition",|entry%,1|
|000023b0| 30 2c 2c 2c 2d 31 2c 30 | 0d 0e 06 2f c8 99 20 22 |0,,,-1,0|.../.. "|
|000023c0| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|000023d0| 22 2c 65 6e 74 72 79 25 | 2c 30 2c 2d 31 30 30 30 |",entry%|,0,-1000|
|000023e0| 2c 31 32 30 30 2c 30 0d | 0e 10 0d 65 6e 74 77 69 |,1200,0.|...entwi|
|000023f0| 6e 25 3d b9 0d 0e 1a 05 | e1 0d 0e 24 05 3a 0d 0e |n%=.....|...$.:..|
|00002400| 2e 12 dd 20 f2 73 74 6f | 72 65 28 64 61 79 25 29 |... .sto|re(day%)|
|00002410| 0d 0e 38 0d e3 49 25 3d | 30 20 b8 20 35 0d 0e 42 |..8..I%=|0 . 5..B|
|00002420| 4a e7 20 a4 73 74 72 28 | 70 6f 73 25 28 49 25 29 |J. .str(|pos%(I%)|
|00002430| 29 3c 3e 6a 6f 24 28 64 | 61 79 25 2c 49 25 29 20 |)<>jo$(d|ay%,I%) |
|00002440| 8c 20 6a 6f 24 28 64 61 | 79 25 2c 49 25 29 3d a4 |. jo$(da|y%,I%)=.|
|00002450| 73 74 72 28 70 6f 73 25 | 28 49 25 29 29 3a 73 74 |str(pos%|(I%)):st|
|00002460| 6f 72 65 64 25 3d b9 0d | 0e 4c 08 ed 20 49 25 0d |ored%=..|.L.. I%.|
|00002470| 0e 56 05 e1 0d 0e 60 05 | 3a 0d 0e 6a 11 dd 20 f2 |.V....`.|:..j.. .|
|00002480| 6b 65 79 70 72 65 73 73 | 65 64 0d 0e 74 12 e7 20 |keypress|ed..t.. |
|00002490| 21 71 25 3d 65 6e 74 72 | 79 25 20 8c 0d 0e 7e 0e |!q%=entr|y% ...~.|
|000024a0| c8 8e 20 71 25 21 32 34 | 20 ca 0d 0e 88 1c c9 20 |.. q%!24| ...... |
|000024b0| 26 31 38 45 3a f2 64 6f | 77 6e 28 71 25 21 34 2c |&18E:.do|wn(q%!4,|
|000024c0| 71 25 21 32 30 29 0d 0e | 92 1a c9 20 26 31 38 46 |q%!20)..|... &18F|
|000024d0| 3a f2 75 70 28 71 25 21 | 34 2c 71 25 21 32 30 29 |:.up(q%!|4,q%!20)|
|000024e0| 0d 0e 9c 16 c9 20 31 33 | 3a f2 64 6f 77 6e 28 71 |..... 13|:.down(q|
|000024f0| 25 21 34 2c 30 29 0d 0e | a6 11 c9 20 26 31 39 46 |%!4,0)..|... &19F|
|00002500| 3a f2 75 70 64 61 79 0d | 0e b0 13 c9 20 26 31 39 |:.upday.|.... &19|
|00002510| 45 3a f2 64 6f 77 6e 64 | 61 79 0d 0e ba 15 c9 20 |E:.downd|ay..... |
|00002520| 26 31 38 41 3a f2 6e 65 | 78 74 6d 6f 6e 74 68 0d |&18A:.ne|xtmonth.|
|00002530| 0e c4 15 c9 20 26 31 39 | 41 3a f2 6c 61 73 74 6d |.... &19|A:.lastm|
|00002540| 6f 6e 74 68 0d 0e ce 0c | c9 20 33 3a f2 74 61 67 |onth....|. 3:.tag|
|00002550| 0d 0e d8 10 c9 20 31 36 | 3a f2 67 65 74 74 61 67 |..... 16|:.gettag|
|00002560| 0d 0e e2 0f c9 20 32 34 | 3a f2 63 6c 65 61 72 0d |..... 24|:.clear.|
|00002570| 0e ec 0e c9 20 31 35 3a | f2 6f 6f 70 73 0d 0e f6 |.... 15:|.oops...|
|00002580| 20 7f 3a c8 99 20 22 57 | 69 6d 70 5f 50 72 6f 63 | .:.. "W|imp_Proc|
|00002590| 65 73 73 4b 65 79 22 2c | 71 25 21 32 34 0d 0f 00 |essKey",|q%!24...|
|000025a0| 05 cb 0d 0f 0a 05 cc 0d | 0f 14 20 e7 20 21 71 25 |........|.. . !q%|
|000025b0| 3d 73 61 76 65 25 20 80 | 20 71 25 21 32 34 3d 31 |=save% .| q%!24=1|
|000025c0| 33 20 8c 20 f2 6f 6b 0d | 0f 1e 44 e7 20 21 71 25 |3 . .ok.|..D. !q%|
|000025d0| 3d 70 72 69 6e 74 25 20 | 80 20 28 71 25 21 32 34 |=print% |. (q%!24|
|000025e0| 3d 26 31 38 45 20 84 20 | 71 25 21 32 34 3d 26 31 |=&18E . |q%!24=&1|
|000025f0| 38 46 20 84 20 71 25 21 | 32 34 3d 31 33 29 20 8c |8F . q%!|24=13) .|
|00002600| 20 f2 63 68 61 6e 67 65 | 69 6e 70 0d 0f 28 05 cd | .change|inp..(..|
|00002610| 0d 0f 32 05 e1 0d 0f 3c | 05 3a 0d 0f 46 10 dd 20 |..2....<|.:..F.. |
|00002620| f2 63 68 61 6e 67 65 69 | 6e 70 0d 0f 50 1a e7 20 |.changei|np..P.. |
|00002630| 71 25 21 34 3d 30 20 8c | 20 6c 25 3d 31 20 8b 20 |q%!4=0 .| l%=1 . |
|00002640| 6c 25 3d 30 0d 0f 5a 25 | 76 25 3d a4 6d 6f 6e 28 |l%=0..Z%|v%=.mon(|
|00002650| 6c 25 29 3a e7 20 76 25 | 3d 30 20 70 25 3d 30 20 |l%):. v%|=0 p%=0 |
|00002660| 8b 20 70 25 3d a9 c3 76 | 25 0d 0f 64 30 c8 99 20 |. p%=..v|%..d0.. |
|00002670| 22 57 69 6d 70 5f 53 65 | 74 43 61 72 65 74 50 6f |"Wimp_Se|tCaretPo|
|00002680| 73 69 74 69 6f 6e 22 2c | 70 72 69 6e 74 25 2c 6c |sition",|print%,l|
|00002690| 25 2c 2c 2c 2d 31 2c 70 | 25 0d 0f 6e 05 e1 0d 0f |%,,,-1,p|%..n....|
|000026a0| 78 05 3a 0d 0f 82 10 dd | 20 f2 6e 65 78 74 6d 6f |x.:.....| .nextmo|
|000026b0| 6e 74 68 0d 0f 8c 11 e7 | 20 6d 6f 6e 25 3d 31 32 |nth.....| mon%=12|
|000026c0| 20 8c 20 e1 0d 0f 96 2f | 6d 6f 6e 25 2b 3d 31 3a | . ..../|mon%+=1:|
|000026d0| e7 20 64 61 79 25 3e 64 | 61 79 25 28 6d 6f 6e 25 |. day%>d|ay%(mon%|
|000026e0| 29 20 8c 20 64 61 79 25 | 3d 64 61 79 25 28 6d 6f |) . day%|=day%(mo|
|000026f0| 6e 25 29 0d 0f a0 23 f2 | 6f 70 65 6e 28 64 61 79 |n%)...#.|open(day|
|00002700| 25 2c 6d 6f 6e 25 2c 79 | 65 61 72 24 29 3a f2 6f |%,mon%,y|ear$):.o|
|00002710| 70 65 6e 63 61 6c 0d 0f | aa 05 e1 0d 0f b4 05 3a |pencal..|.......:|
|00002720| 0d 0f be 10 dd 20 f2 6c | 61 73 74 6d 6f 6e 74 68 |..... .l|astmonth|
|00002730| 0d 0f c8 10 e7 20 6d 6f | 6e 25 3d 31 20 8c 20 e1 |..... mo|n%=1 . .|
|00002740| 0d 0f d2 2f 6d 6f 6e 25 | 2d 3d 31 3a e7 20 64 61 |.../mon%|-=1:. da|
|00002750| 79 25 3e 64 61 79 25 28 | 6d 6f 6e 25 29 20 8c 20 |y%>day%(|mon%) . |
|00002760| 64 61 79 25 3d 64 61 79 | 25 28 6d 6f 6e 25 29 0d |day%=day|%(mon%).|
|00002770| 0f dc 23 f2 6f 70 65 6e | 28 64 61 79 25 2c 6d 6f |..#.open|(day%,mo|
|00002780| 6e 25 2c 79 65 61 72 24 | 29 3a f2 6f 70 65 6e 63 |n%,year$|):.openc|
|00002790| 61 6c 0d 0f e6 05 e1 0d | 0f f0 05 3a 0d 0f fa 0c |al......|...:....|
|000027a0| dd 20 f2 75 70 64 61 79 | 0d 10 04 19 e7 20 64 61 |. .upday|..... da|
|000027b0| 79 25 3d 31 20 80 20 6d | 6f 6e 25 3d 31 20 8c 20 |y%=1 . m|on%=1 . |
|000027c0| e1 0d 10 0e 30 e7 20 64 | 61 79 25 3d 31 20 8c 20 |....0. d|ay%=1 . |
|000027d0| 6d 6f 6e 25 2d 3d 31 3a | 64 61 79 25 3d 64 61 79 |mon%-=1:|day%=day|
|000027e0| 25 28 6d 6f 6e 25 29 20 | 8b 20 64 61 79 25 2d 3d |%(mon%) |. day%-=|
|000027f0| 31 0d 10 18 23 f2 6f 70 | 65 6e 28 64 61 79 25 2c |1...#.op|en(day%,|
|00002800| 6d 6f 6e 25 2c 79 65 61 | 72 24 29 3a f2 6f 70 65 |mon%,yea|r$):.ope|
|00002810| 6e 63 61 6c 0d 10 22 05 | e1 0d 10 2c 05 3a 0d 10 |ncal..".|...,.:..|
|00002820| 36 0e dd 20 f2 64 6f 77 | 6e 64 61 79 0d 10 40 21 |6.. .dow|nday..@!|
|00002830| e7 20 64 61 79 25 3d 64 | 61 79 25 28 31 32 29 20 |. day%=d|ay%(12) |
|00002840| 80 20 6d 6f 6e 25 3d 31 | 32 20 8c 20 e1 0d 10 4a |. mon%=1|2 . ...J|
|00002850| 30 e7 20 64 61 79 25 3d | 64 61 79 25 28 6d 6f 6e |0. day%=|day%(mon|
|00002860| 25 29 20 8c 20 6d 6f 6e | 25 2b 3d 31 3a 64 61 79 |%) . mon|%+=1:day|
|00002870| 25 3d 31 20 8b 20 64 61 | 79 25 2b 3d 31 0d 10 54 |%=1 . da|y%+=1..T|
|00002880| 23 f2 6f 70 65 6e 28 64 | 61 79 25 2c 6d 6f 6e 25 |#.open(d|ay%,mon%|
|00002890| 2c 79 65 61 72 24 29 3a | f2 6f 70 65 6e 63 61 6c |,year$):|.opencal|
|000028a0| 0d 10 5e 05 e1 0d 10 68 | 05 3a 0d 10 72 17 dd 20 |..^....h|.:..r.. |
|000028b0| f2 64 6f 77 6e 28 6c 69 | 6e 65 25 2c 70 6f 73 25 |.down(li|ne%,pos%|
|000028c0| 29 0d 10 7c 10 e7 20 6c | 69 6e 65 25 3c 31 35 20 |)..|.. l|ine%<15 |
|000028d0| 8c 0d 10 86 44 6c 69 6e | 65 25 2b 3d 31 3a 71 25 |....Dlin|e%+=1:q%|
|000028e0| 21 34 3d 6c 69 6e 65 25 | 3a c8 99 20 22 57 69 6d |!4=line%|:.. "Wim|
|000028f0| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00002900| 2c 71 25 3a 6c 25 3d a9 | 28 a4 73 74 72 28 71 25 |,q%:l%=.|(.str(q%|
|00002910| 21 32 38 29 29 0d 10 90 | 17 e7 20 70 6f 73 25 3e |!28))...|.. pos%>|
|00002920| 6c 25 20 8c 20 70 6f 73 | 25 3d 6c 25 0d 10 9a 35 |l% . pos|%=l%...5|
|00002930| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 43 61 72 65 |.. "Wimp|_SetCare|
|00002940| 74 50 6f 73 69 74 69 6f | 6e 22 2c 65 6e 74 72 79 |tPositio|n",entry|
|00002950| 25 2c 6c 69 6e 65 25 2c | 2c 2c 2d 31 2c 70 6f 73 |%,line%,|,,-1,pos|
|00002960| 25 0d 10 a4 05 cd 0d 10 | ae 05 e1 0d 10 b8 05 3a |%.......|.......:|
|00002970| 0d 10 c2 15 dd 20 f2 75 | 70 28 6c 69 6e 65 25 2c |..... .u|p(line%,|
|00002980| 70 6f 73 25 29 0d 10 cc | 10 e7 20 6c 69 6e 65 25 |pos%)...|.. line%|
|00002990| 3e 31 30 20 8c 0d 10 d6 | 44 6c 69 6e 65 25 2d 3d |>10 ....|Dline%-=|
|000029a0| 31 3a 71 25 21 34 3d 6c | 69 6e 65 25 3a c8 99 20 |1:q%!4=l|ine%:.. |
|000029b0| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|000029c0| 74 65 22 2c 2c 71 25 3a | 6c 25 3d a9 28 a4 73 74 |te",,q%:|l%=.(.st|
|000029d0| 72 28 71 25 21 32 38 29 | 29 0d 10 e0 17 e7 20 70 |r(q%!28)|)..... p|
|000029e0| 6f 73 25 3e 6c 25 20 8c | 20 70 6f 73 25 3d 6c 25 |os%>l% .| pos%=l%|
|000029f0| 0d 10 ea 35 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |...5.. "|Wimp_Set|
|00002a00| 43 61 72 65 74 50 6f 73 | 69 74 69 6f 6e 22 2c 65 |CaretPos|ition",e|
|00002a10| 6e 74 72 79 25 2c 6c 69 | 6e 65 25 2c 2c 2c 2d 31 |ntry%,li|ne%,,,-1|
|00002a20| 2c 70 6f 73 25 0d 10 f4 | 05 cd 0d 10 fe 05 e1 0d |,pos%...|........|
|00002a30| 11 08 05 3a 0d 11 12 10 | dd 20 a4 6c 65 61 66 28 |...:....|. .leaf(|
|00002a40| 73 74 24 29 0d 11 1c 28 | c8 95 20 a7 73 74 24 2c |st$)...(|.. .st$,|
|00002a50| 22 2e 22 29 3a 73 74 24 | 3d c1 73 74 24 2c a7 73 |"."):st$|=.st$,.s|
|00002a60| 74 24 2c 22 2e 22 29 2b | 31 29 3a ce 0d 11 26 08 |t$,".")+|1):...&.|
|00002a70| 3d 73 74 24 0d 11 30 05 | 3a 0d 11 3a 0e dd 20 a4 |=st$..0.|:..:.. .|
|00002a80| 72 65 73 74 61 72 74 0d | 11 44 09 21 71 25 3d 30 |restart.|.D.!q%=0|
|00002a90| 0d 11 4e 5c 24 28 71 25 | 2b 34 29 3d 22 59 6f 75 |..N\$(q%|+4)="You|
|00002aa0| 20 41 6c 72 65 61 64 79 | 20 68 61 76 65 20 61 20 | Already| have a |
|00002ab0| 6a 6f 75 72 6e 61 6c 20 | 69 6e 20 6d 65 6d 6f 72 |journal |in memor|
|00002ac0| 79 2c 20 63 6c 69 63 6b | 20 4f 4b 20 74 6f 20 63 |y, click| OK to c|
|00002ad0| 6f 6e 74 69 6e 75 65 2c | 20 43 61 6e 63 65 6c 20 |ontinue,| Cancel |
|00002ae0| 74 6f 20 73 74 6f 70 2e | 22 2b bd 30 0d 11 58 36 |to stop.|"+.0..X6|
|00002af0| c8 99 20 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |.. "Wimp|_ReportE|
|00002b00| 72 72 6f 72 22 2c 71 25 | 2c 33 2c 22 21 4a 6f 75 |rror",q%|,3,"!Jou|
|00002b10| 72 6e 6f 20 57 61 72 6e | 69 6e 67 22 20 b8 20 2c |rno Warn|ing" . ,|
|00002b20| 62 25 0d 11 62 0b 3d 28 | 62 25 3d 31 29 0d 11 6c |b%..b.=(|b%=1)..l|
|00002b30| 05 3a 0d 11 76 0c dd 20 | f2 63 6c 65 61 72 0d 11 |.:..v.. |.clear..|
|00002b40| 80 5a 21 71 25 3d 30 3a | 24 28 71 25 2b 34 29 3d |.Z!q%=0:|$(q%+4)=|
|00002b50| 22 54 68 69 73 20 4f 70 | 65 72 61 74 69 6f 6e 20 |"This Op|eration |
|00002b60| 69 73 20 44 65 73 74 72 | 75 63 74 69 76 65 20 63 |is Destr|uctive c|
|00002b70| 6c 69 63 6b 20 4f 4b 20 | 74 6f 20 63 6f 6e 74 69 |lick OK |to conti|
|00002b80| 6e 75 65 2c 20 43 61 6e | 63 65 6c 20 74 6f 20 73 |nue, Can|cel to s|
|00002b90| 74 6f 70 2e 22 2b bd 30 | 0d 11 8a 36 c8 99 20 22 |top."+.0|...6.. "|
|00002ba0| 57 69 6d 70 5f 52 65 70 | 6f 72 74 45 72 72 6f 72 |Wimp_Rep|ortError|
|00002bb0| 22 2c 71 25 2c 33 2c 22 | 21 4a 6f 75 72 6e 6f 20 |",q%,3,"|!Journo |
|00002bc0| 57 61 72 6e 69 6e 67 22 | 20 b8 20 2c 62 25 0d 11 |Warning"| . ,b%..|
|00002bd0| 94 0f e7 20 62 25 3c 3e | 31 20 8c 20 e1 0d 11 9e |... b%<>|1 . ....|
|00002be0| 0d e3 49 25 3d 30 20 b8 | 20 35 0d 11 a8 1b 6f 6f |..I%=0 .| 5....oo|
|00002bf0| 70 24 28 49 25 29 3d a4 | 73 74 72 28 70 6f 73 25 |p$(I%)=.|str(pos%|
|00002c00| 28 49 25 29 29 0d 11 b2 | 2f 6a 6f 24 28 6f 64 61 |(I%))...|/jo$(oda|
|00002c10| 79 25 2c 49 25 29 3d 22 | 22 3a 24 70 6f 73 25 28 |y%,I%)="|":$pos%(|
|00002c20| 49 25 29 3d 6a 6f 24 28 | 6f 64 61 79 25 2c 49 25 |I%)=jo$(|oday%,I%|
|00002c30| 29 2b bd 30 0d 11 bc 07 | ed 49 25 0d 11 c6 0b 6f |)+.0....|.I%....o|
|00002c40| 6f 70 73 25 3d b9 0d 11 | d0 0d 73 74 6f 72 65 64 |ops%=...|..stored|
|00002c50| 25 3d b9 0d 11 da 1a f2 | 6f 70 65 6e 28 64 61 79 |%=......|open(day|
|00002c60| 25 2c 6d 6f 6e 25 2c 79 | 65 61 72 24 29 0d 11 e4 |%,mon%,y|ear$)...|
|00002c70| 05 e1 0d 11 ee 05 3a 0d | 11 f8 0b dd 20 f2 6f 6f |......:.|.... .oo|
|00002c80| 70 73 0d 12 02 0f e7 20 | 6f 6f 70 73 25 3d a3 20 |ps..... |oops%=. |
|00002c90| 8c 0d 12 0c 31 21 71 25 | 3d 30 3a 24 28 71 25 2b |....1!q%|=0:$(q%+|
|00002ca0| 34 29 3d 22 53 6f 72 72 | 79 2c 20 4e 6f 20 45 6e |4)="Sorr|y, No En|
|00002cb0| 74 72 79 20 69 6e 20 42 | 75 66 66 65 72 2e 22 2b |try in B|uffer."+|
|00002cc0| bd 30 0d 12 16 30 c8 99 | 20 22 57 69 6d 70 5f 52 |.0...0..| "Wimp_R|
|00002cd0| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 71 25 2c 31 |eportErr|or",q%,1|
|00002ce0| 2c 22 21 4a 6f 75 72 6e | 6f 20 57 61 72 6e 69 6e |,"!Journ|o Warnin|
|00002cf0| 67 22 0d 12 20 05 cc 0d | 12 2a 0d e3 49 25 3d 30 |g".. ...|.*..I%=0|
|00002d00| 20 b8 20 35 0d 12 34 19 | 24 70 6f 73 25 28 49 25 | . 5..4.|$pos%(I%|
|00002d10| 29 3d 6f 6f 70 24 28 49 | 25 29 2b bd 30 0d 12 3e |)=oop$(I|%)+.0..>|
|00002d20| 08 ed 20 49 25 0d 12 48 | 0b 6f 6f 70 73 25 3d a3 |.. I%..H|.oops%=.|
|00002d30| 0d 12 52 0d 73 74 6f 72 | 65 64 25 3d b9 0d 12 5c |..R.stor|ed%=...\|
|00002d40| 1a f2 6f 70 65 6e 28 64 | 61 79 25 2c 6d 6f 6e 25 |..open(d|ay%,mon%|
|00002d50| 2c 79 65 61 72 24 29 0d | 12 66 05 cd 0d 12 70 05 |,year$).|.f....p.|
|00002d60| e1 0d 12 7a 05 3a 0d 12 | 84 0a dd 20 f2 74 61 67 |...z.:..|... .tag|
|00002d70| 0d 12 8e 0e 74 61 67 25 | 3d 6f 64 61 79 25 0d 12 |....tag%|=oday%..|
|00002d80| 98 0d e3 49 25 3d 30 20 | b8 20 35 0d 12 a2 1b 74 |...I%=0 |. 5....t|
|00002d90| 61 67 24 28 49 25 29 3d | a4 73 74 72 28 70 6f 73 |ag$(I%)=|.str(pos|
|00002da0| 25 28 49 25 29 29 0d 12 | ac 08 ed 20 49 25 0d 12 |%(I%))..|... I%..|
|00002db0| b6 05 e1 0d 12 c0 05 3a | 0d 12 ca 0d dd 20 f2 67 |.......:|..... .g|
|00002dc0| 65 74 74 61 67 0d 12 d4 | 14 e7 20 74 61 67 25 3d |ettag...|.. tag%=|
|00002dd0| 2d 31 20 8c 20 ef 37 3a | e1 0d 12 de 0d e3 49 25 |-1 . .7:|......I%|
|00002de0| 3d 30 20 b8 20 35 0d 12 | e8 35 6a 6f 24 28 6f 64 |=0 . 5..|.5jo$(od|
|00002df0| 61 79 25 2c 49 25 29 3d | 74 61 67 24 28 49 25 29 |ay%,I%)=|tag$(I%)|
|00002e00| 3a 24 70 6f 73 25 28 49 | 25 29 3d 6a 6f 24 28 6f |:$pos%(I|%)=jo$(o|
|00002e10| 64 61 79 25 2c 49 25 29 | 2b bd 30 0d 12 f2 08 ed |day%,I%)|+.0.....|
|00002e20| 20 49 25 0d 12 fc 0d 73 | 74 6f 72 65 64 25 3d b9 | I%....s|tored%=.|
|00002e30| 0d 13 06 1a f2 6f 70 65 | 6e 28 64 61 79 25 2c 6d |.....ope|n(day%,m|
|00002e40| 6f 6e 25 2c 79 65 61 72 | 24 29 0d 13 10 05 e1 0d |on%,year|$)......|
|00002e50| 13 1a 05 3a 0d 13 24 0c | dd 20 f2 74 6f 64 61 79 |...:..$.|. .today|
|00002e60| 0d 13 2e 23 e7 20 79 65 | 61 72 24 3c 3e c1 91 24 |...#. ye|ar$<>..$|
|00002e70| 2c 31 32 2c 34 29 20 8c | 20 f2 6e 6f 74 79 65 61 |,12,4) .| .notyea|
|00002e80| 72 3a e1 0d 13 38 2c e3 | 49 25 3d 31 20 b8 20 31 |r:...8,.|I%=1 . 1|
|00002e90| 32 3a e7 20 c1 91 24 2c | 38 2c 33 29 3d 6d 6f 6e |2:. ..$,|8,3)=mon|
|00002ea0| 24 28 49 25 29 20 8c 20 | 6d 6f 6e 25 3d 49 25 0d |$(I%) . |mon%=I%.|
|00002eb0| 13 42 08 ed 20 49 25 0d | 13 4c 14 64 61 79 25 3d |.B.. I%.|.L.day%=|
|00002ec0| a0 28 c1 91 24 2c 35 2c | 32 29 29 0d 13 56 0c f2 |.(..$,5,|2))..V..|
|00002ed0| 6f 70 65 6e 63 61 6c 0d | 13 60 1a f2 6f 70 65 6e |opencal.|.`..open|
|00002ee0| 28 64 61 79 25 2c 6d 6f | 6e 25 2c 79 65 61 72 24 |(day%,mo|n%,year$|
|00002ef0| 29 0d 13 6a 05 e1 0d 13 | 74 05 3a 0d 13 7e 0e dd |)..j....|t.:..~..|
|00002f00| 20 f2 6e 6f 74 79 65 61 | 72 0d 13 88 59 21 71 25 | .notyea|r...Y!q%|
|00002f10| 3d 30 3a 24 28 71 25 2b | 34 29 3d 22 53 6f 72 72 |=0:$(q%+|4)="Sorr|
|00002f20| 79 2c 20 63 61 6e 20 6f | 6e 6c 79 20 67 6f 20 74 |y, can o|nly go t|
|00002f30| 6f 20 74 6f 64 61 79 20 | 69 66 20 79 6f 75 20 61 |o today |if you a|
|00002f40| 72 65 20 77 72 69 74 69 | 6e 67 20 74 68 69 73 20 |re writi|ng this |
|00002f50| 79 65 61 72 73 20 6a 6f | 75 72 6e 61 6c 2e 22 2b |years jo|urnal."+|
|00002f60| bd 30 0d 13 92 36 c8 99 | 20 22 57 69 6d 70 5f 52 |.0...6..| "Wimp_R|
|00002f70| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 71 25 2c 31 |eportErr|or",q%,1|
|00002f80| 2c 22 21 4a 6f 75 72 6e | 6f 20 57 61 72 6e 69 6e |,"!Journ|o Warnin|
|00002f90| 67 22 20 b8 20 2c 62 25 | 0d 13 9c 05 e1 0d 13 a6 |g" . ,b%|........|
|00002fa0| 05 3a 0d 13 b0 0e dd 20 | f2 70 72 69 6e 74 69 74 |.:..... |.printit|
|00002fb0| 0d 13 ba 1f e7 20 6f 64 | 61 79 25 3c 3e 2d 31 20 |..... od|ay%<>-1 |
|00002fc0| 8c 20 f2 73 74 6f 72 65 | 28 6f 64 61 79 25 29 0d |. .store|(oday%).|
|00002fd0| 13 c4 19 74 64 61 79 25 | 3d 64 61 79 25 3a 6f 6d |...tday%|=day%:om|
|00002fe0| 6f 6e 25 3d 6d 6f 6e 25 | 0d 13 ce 1f 64 61 79 25 |on%=mon%|....day%|
|00002ff0| 3d 31 3a 6d 6f 6e 25 3d | a4 6d 6f 6e 28 30 29 3a |=1:mon%=|.mon(0):|
|00003000| f2 67 65 6e 63 61 6c 0d | 13 d8 15 e7 20 6d 6f 6e |.gencal.|.... mon|
|00003010| 25 3e 31 32 20 6d 6f 6e | 25 3d 31 32 0d 13 e2 37 |%>12 mon|%=12...7|
|00003020| 65 64 61 79 25 3d 30 3a | e7 20 6d 6f 6e 25 3e 31 |eday%=0:|. mon%>1|
|00003030| 20 8c 20 e3 49 25 3d 31 | 20 b8 20 6d 6f 6e 25 2d | . .I%=1| . mon%-|
|00003040| 31 3a 65 64 61 79 25 2b | 3d 64 61 79 25 28 49 25 |1:eday%+|=day%(I%|
|00003050| 29 3a ed 0d 13 ec 26 e7 | 20 6d 6f 6e 25 3e 32 20 |):....&.| mon%>2 |
|00003060| 80 20 a0 28 79 65 61 72 | 24 29 81 34 3d 30 20 8c |. .(year|$).4=0 .|
|00003070| 20 65 64 61 79 25 2b 3d | 31 0d 13 f6 2a 64 25 3d | eday%+=|1...*d%=|
|00003080| 73 74 61 72 74 25 3a 70 | 25 3d 65 64 61 79 25 3a |start%:p|%=eday%:|
|00003090| 77 25 3d 65 64 61 79 25 | 81 37 2b 31 3a 65 73 63 |w%=eday%|.7+1:esc|
|000030a0| 25 3d a3 0d 14 00 39 f2 | 70 72 69 6e 74 28 22 4a |%=....9.|print("J|
|000030b0| 6f 75 72 6e 61 6c 20 66 | 6f 72 20 74 68 65 20 79 |ournal f|or the y|
|000030c0| 65 61 72 20 22 2b 79 65 | 61 72 24 2b 22 2c 20 77 |ear "+ye|ar$+", w|
|000030d0| 65 65 6b 20 22 2b c3 77 | 25 2c 31 29 0d 14 0a 10 |eek "+.w|%,1)....|
|000030e0| f2 70 72 69 6e 74 28 22 | 22 2c 30 29 0d 14 14 1f |.print("|",0)....|
|000030f0| 6d 6f 6e 31 25 3d a4 6d | 6f 6e 28 30 29 3a 6d 6f |mon1%=.m|on(0):mo|
|00003100| 6e 32 25 3d a4 6d 6f 6e | 28 31 29 0d 14 1e 17 e7 |n2%=.mon|(1).....|
|00003110| 20 6d 6f 6e 31 25 3e 31 | 32 20 6d 6f 6e 31 25 3d | mon1%>1|2 mon1%=|
|00003120| 31 32 0d 14 28 1d e7 20 | 6d 6f 6e 32 25 3e 6d 6f |12..(.. |mon2%>mo|
|00003130| 6e 31 25 20 6d 6f 6e 32 | 25 3d 6d 6f 6e 31 25 0d |n1% mon2|%=mon1%.|
|00003140| 14 32 1b e3 6d 6f 6e 25 | 3d a4 6d 6f 6e 28 30 29 |.2..mon%|=.mon(0)|
|00003150| 20 b8 20 a4 6d 6f 6e 28 | 31 29 0d 14 3c 2d e3 64 | . .mon(|1)..<-.d|
|00003160| 61 79 25 3d 31 20 b8 20 | 64 61 79 25 28 6d 6f 6e |ay%=1 . |day%(mon|
|00003170| 25 29 2b a4 6c 65 61 70 | 28 a0 28 79 65 61 72 24 |%)+.leap|(.(year$|
|00003180| 29 2c 6d 6f 6e 25 29 0d | 14 46 3a f2 70 72 69 6e |),mon%).|.F:.prin|
|00003190| 74 28 64 61 79 24 28 64 | 25 29 2b 22 2c 20 22 2b |t(day$(d|%)+", "+|
|000031a0| c3 64 61 79 25 2b 22 20 | 22 2b 6d 6f 6e 24 28 6d |.day%+" |"+mon$(m|
|000031b0| 6f 6e 25 29 2b 22 20 22 | 2b 79 65 61 72 24 2c 30 |on%)+" "|+year$,0|
|000031c0| 29 0d 14 50 10 f2 70 72 | 69 6e 74 28 22 22 2c 30 |)..P..pr|int("",0|
|000031d0| 29 0d 14 5a 10 e3 6c 69 | 6e 65 25 3d 30 20 b8 20 |)..Z..li|ne%=0 . |
|000031e0| 35 0d 14 64 23 f2 70 72 | 69 6e 74 28 22 20 20 20 |5..d#.pr|int(" |
|000031f0| 20 20 22 2b 6a 6f 24 28 | 70 25 2c 6c 69 6e 65 25 | "+jo$(|p%,line%|
|00003200| 29 2c 30 29 0d 14 6e 0b | ed 20 6c 69 6e 65 25 0d |),0)..n.|. line%.|
|00003210| 14 78 10 f2 70 72 69 6e | 74 28 22 22 2c 30 29 0d |.x..prin|t("",0).|
|00003220| 14 82 6d 64 25 2b 3d 31 | 3a e7 20 64 25 3d 37 20 |..md%+=1|:. d%=7 |
|00003230| 8c 20 64 25 3d 30 3a 77 | 25 2b 3d 31 3a f2 70 72 |. d%=0:w|%+=1:.pr|
|00003240| 69 6e 74 28 22 22 2c 32 | 29 3a f2 70 72 69 6e 74 |int("",2|):.print|
|00003250| 28 22 4a 6f 75 72 6e 61 | 6c 20 66 6f 72 20 74 68 |("Journa|l for th|
|00003260| 65 20 79 65 61 72 2c 20 | 22 2b 79 65 61 72 24 2b |e year, |"+year$+|
|00003270| 22 20 77 65 65 6b 20 22 | 2b c3 77 25 2c 31 29 3a |" week "|+.w%,1):|
|00003280| f2 70 72 69 6e 74 28 22 | 22 2c 30 29 0d 14 8c 09 |.print("|",0)....|
|00003290| 70 25 2b 3d 31 0d 14 96 | 27 e7 20 bf 28 30 29 3d |p%+=1...|'. .(0)=|
|000032a0| bd 32 37 20 8c 20 64 61 | 79 25 3d 33 32 3a 6d 6f |.27 . da|y%=32:mo|
|000032b0| 6e 25 3d 31 33 3a 65 73 | 63 25 3d b9 0d 14 a0 0a |n%=13:es|c%=.....|
|000032c0| ed 20 64 61 79 25 0d 14 | aa 0a ed 20 6d 6f 6e 25 |. day%..|... mon%|
|000032d0| 0d 14 b4 10 f2 70 72 69 | 6e 74 28 22 22 2c 32 29 |.....pri|nt("",2)|
|000032e0| 0d 14 be 0e e7 20 65 73 | 63 25 3d b9 20 8c 0d 14 |..... es|c%=. ...|
|000032f0| c8 29 71 25 21 30 3d 30 | 3a 24 28 71 25 2b 34 29 |.)q%!0=0|:$(q%+4)|
|00003300| 3d 22 50 72 69 6e 74 69 | 6e 67 20 53 74 6f 70 70 |="Printi|ng Stopp|
|00003310| 65 64 2e 22 2b bd 30 0d | 14 d2 30 c8 99 20 22 57 |ed."+.0.|..0.. "W|
|00003320| 69 6d 70 5f 52 65 70 6f | 72 74 45 72 72 6f 72 22 |imp_Repo|rtError"|
|00003330| 2c 71 25 2c 31 2c 22 21 | 4a 6f 75 72 6e 6f 20 57 |,q%,1,"!|Journo W|
|00003340| 61 72 6e 69 6e 67 22 0d | 14 dc 05 cd 0d 14 e6 19 |arning".|........|
|00003350| 64 61 79 25 3d 74 64 61 | 79 25 3a 6d 6f 6e 25 3d |day%=tda|y%:mon%=|
|00003360| 6f 6d 6f 6e 25 0d 14 f0 | 18 e7 20 63 61 6c 77 69 |omon%...|.. calwi|
|00003370| 6e 25 20 8c 20 f2 6f 70 | 65 6e 63 61 6c 0d 14 fa |n% . .op|encal...|
|00003380| 05 e1 0d 15 04 05 3a 0d | 15 0e 12 dd 20 a4 6c 65 |......:.|.... .le|
|00003390| 61 70 28 79 25 2c 6d 25 | 29 0d 15 18 1b e7 20 6d |ap(y%,m%|)..... m|
|000033a0| 25 3d 32 20 80 20 79 25 | 81 34 3d 30 20 3d 31 20 |%=2 . y%|.4=0 =1 |
|000033b0| 8b 20 3d 30 0d 15 22 05 | 3a 0d 15 2c 14 dd 20 f2 |. =0..".|:..,.. .|
|000033c0| 70 72 69 6e 74 28 70 24 | 2c 6f 70 25 29 0d 15 36 |print(p$|,op%)..6|
|000033d0| 19 e7 20 6f 70 25 3d 32 | 20 8c 20 ef 32 2c 31 2c |.. op%=2| . .2,1,|
|000033e0| 31 32 2c 33 3a e1 0d 15 | 40 26 e7 20 6f 70 25 3d |12,3:...|@&. op%=|
|000033f0| 31 20 8c 20 73 70 25 3d | 28 38 30 2d a9 28 70 24 |1 . sp%=|(80-.(p$|
|00003400| 29 29 81 32 20 8b 20 73 | 70 25 3d 30 0d 15 4a 13 |)).2 . s|p%=0..J.|
|00003410| 70 24 3d c4 73 70 25 2c | 22 20 22 29 2b 70 24 0d |p$=.sp%,|" ")+p$.|
|00003420| 15 54 06 ef 32 0d 15 5e | 11 e3 49 25 3d 31 20 b8 |.T..2..^|..I%=1 .|
|00003430| 20 a9 28 70 24 29 0d 15 | 68 30 e7 20 97 28 c1 70 | .(p$)..|h0. .(.p|
|00003440| 24 2c 49 25 2c 31 29 29 | 3e 31 32 38 20 8c 20 ef |$,I%,1))|>128 . .|
|00003450| 31 2c 33 32 20 8b 20 ef | 31 2c 97 28 c1 70 24 2c |1,32 . .|1,.(.p$,|
|00003460| 49 25 2c 31 29 29 0d 15 | 72 08 ed 20 49 25 0d 15 |I%,1))..|r.. I%..|
|00003470| 7c 0e ef 31 2c 31 33 2c | 31 2c 31 30 0d 15 86 06 ||..1,13,|1,10....|
|00003480| ef 33 0d 15 90 05 e1 0d | 15 9a 05 3a 0d 15 a4 10 |.3......|...:....|
|00003490| dd 20 a4 6d 6f 6e 28 6e | 75 6d 25 29 0d 15 ae 33 |. .mon(n|um%)...3|
|000034a0| 21 71 25 3d 70 72 69 6e | 74 25 3a 71 25 21 34 3d |!q%=prin|t%:q%!4=|
|000034b0| 6e 75 6d 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |num%:.. |"Wimp_Ge|
|000034c0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|000034d0| 15 b8 10 3d bb 28 24 28 | 71 25 21 32 38 29 29 0d |...=.($(|q%!28)).|
|000034e0| 15 c2 05 3a 0d 15 cc 0f | dd 20 f2 70 72 69 6e 74 |...:....|. .print|
|000034f0| 63 61 6c 0d 15 d6 32 f2 | 70 72 69 6e 74 28 22 43 |cal...2.|print("C|
|00003500| 61 6c 65 6e 64 61 72 20 | 66 6f 72 20 22 2b 6d 6f |alendar |for "+mo|
|00003510| 6e 24 28 6d 6f 6e 25 29 | 2b 22 20 22 2b 79 65 61 |n$(mon%)|+" "+yea|
|00003520| 72 24 2c 31 29 0d 15 e0 | 10 f2 70 72 69 6e 74 28 |r$,1)...|..print(|
|00003530| 22 22 2c 30 29 0d 15 ea | 10 f2 70 72 69 6e 74 28 |"",0)...|..print(|
|00003540| 22 22 2c 30 29 0d 15 f4 | 2b f2 70 72 69 6e 74 28 |"",0)...|+.print(|
|00003550| 22 53 75 6e 20 4d 6f 6e | 20 54 75 65 20 57 65 64 |"Sun Mon| Tue Wed|
|00003560| 20 54 68 75 20 46 72 69 | 20 53 61 74 22 2c 31 29 | Thu Fri| Sat",1)|
|00003570| 0d 15 fe 10 f2 70 72 69 | 6e 74 28 22 22 2c 30 29 |.....pri|nt("",0)|
|00003580| 0d 16 08 10 e3 6c 69 6e | 65 25 3d 31 20 b8 20 36 |.....lin|e%=1 . 6|
|00003590| 0d 16 12 19 f2 70 72 69 | 6e 74 28 63 61 6c 24 28 |.....pri|nt(cal$(|
|000035a0| 6c 69 6e 65 25 29 2c 31 | 29 0d 16 1c 10 f2 70 72 |line%),1|).....pr|
|000035b0| 69 6e 74 28 22 22 2c 30 | 29 0d 16 26 0b ed 20 6c |int("",0|)..&.. l|
|000035c0| 69 6e 65 25 0d 16 30 10 | f2 70 72 69 6e 74 28 22 |ine%..0.|.print("|
|000035d0| 22 2c 32 29 0d 16 3a 05 | e1 0d 16 44 05 3a 0d 16 |",2)..:.|...D.:..|
|000035e0| 4e 11 dd 20 f2 70 72 69 | 6e 74 65 6e 74 72 79 0d |N.. .pri|ntentry.|
|000035f0| 16 58 11 f2 73 74 6f 72 | 65 28 6f 64 61 79 25 29 |.X..stor|e(oday%)|
|00003600| 0d 16 62 18 64 25 3d 28 | 73 74 61 72 74 25 2b 64 |..b.d%=(|start%+d|
|00003610| 61 79 25 2d 31 29 83 37 | 0d 16 6c 45 f2 70 72 69 |ay%-1).7|..lE.pri|
|00003620| 6e 74 28 22 4a 6f 75 72 | 6e 61 6c 20 65 6e 74 72 |nt("Jour|nal entr|
|00003630| 79 20 66 6f 72 20 22 2b | 64 61 79 24 28 64 25 29 |y for "+|day$(d%)|
|00003640| 2b 22 2c 20 22 2b c3 64 | 61 79 25 2b 22 20 22 2b |+", "+.d|ay%+" "+|
|00003650| 6d 6f 6e 24 28 6d 6f 6e | 25 29 2c 31 29 0d 16 76 |mon$(mon|%),1)..v|
|00003660| 10 f2 70 72 69 6e 74 28 | 22 22 2c 30 29 0d 16 80 |..print(|"",0)...|
|00003670| 10 f2 70 72 69 6e 74 28 | 22 22 2c 30 29 0d 16 8a |..print(|"",0)...|
|00003680| 10 e3 6c 69 6e 65 25 3d | 30 20 b8 20 35 0d 16 94 |..line%=|0 . 5...|
|00003690| 26 f2 70 72 69 6e 74 28 | 22 20 20 20 20 20 22 2b |&.print(|" "+|
|000036a0| 6a 6f 24 28 6f 64 61 79 | 25 2c 6c 69 6e 65 25 29 |jo$(oday|%,line%)|
|000036b0| 2c 30 29 0d 16 9e 0a ed | 6c 69 6e 65 25 0d 16 a8 |,0).....|line%...|
|000036c0| 10 f2 70 72 69 6e 74 28 | 22 22 2c 32 29 0d 16 b2 |..print(|"",2)...|
|000036d0| 05 e1 0d 16 bc 05 3a 0d | 16 c6 0b dd 20 f2 71 75 |......:.|.... .qu|
|000036e0| 69 74 0d 16 d0 1f e7 20 | 6f 64 61 79 25 3c 3e 2d |it..... |oday%<>-|
|000036f0| 31 20 8c 20 f2 73 74 6f | 72 65 28 6f 64 61 79 25 |1 . .sto|re(oday%|
|00003700| 29 0d 16 da 0f e7 20 73 | 74 6f 72 65 64 25 20 8c |)..... s|tored% .|
|00003710| 0d 16 e4 53 21 71 25 3d | 30 3a 24 28 71 25 2b 34 |...S!q%=|0:$(q%+4|
|00003720| 29 3d 22 59 6f 75 20 68 | 61 76 65 20 61 20 6a 6f |)="You h|ave a jo|
|00003730| 75 72 6e 61 6c 20 69 6e | 20 6d 65 6d 6f 72 79 2c |urnal in| memory,|
|00003740| 20 61 72 65 20 79 6f 75 | 20 73 75 72 65 20 79 6f | are you| sure yo|
|00003750| 75 20 77 69 73 68 20 74 | 6f 20 71 75 69 74 2e 22 |u wish t|o quit."|
|00003760| 2b bd 30 0d 16 ee 36 c8 | 99 20 22 57 69 6d 70 5f |+.0...6.|. "Wimp_|
|00003770| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 71 25 2c |ReportEr|ror",q%,|
|00003780| 33 2c 22 21 4a 6f 75 72 | 6e 6f 20 57 61 72 6e 69 |3,"!Jour|no Warni|
|00003790| 6e 67 22 20 b8 20 2c 62 | 25 0d 16 f8 12 e7 20 62 |ng" . ,b|%..... b|
|000037a0| 25 3d 31 20 71 75 69 74 | 25 3d b9 0d 17 02 05 cc |%=1 quit|%=......|
|000037b0| 0d 17 0c 0b 71 75 69 74 | 25 3d b9 0d 17 16 05 cd |....quit|%=......|
|000037c0| 0d 17 20 05 e1 0d ff | |.. .... | |
+--------+-------------------------+-------------------------+--------+--------+
