/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsp / powercas / !Appoint / !RunImage

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f 20 f4 20 3e | 3c 41 70 70 6f 69 6e 74 |.... . >|<Appoint|
|00000010| 24 44 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 0d |$Dir>.!R|unImage.|
|00000020| 00 14 06 20 f4 0d 00 1e | 3d 20 f4 20 21 52 75 6e |... ....|= . !Run|
|00000030| 49 6d 61 67 65 20 66 6f | 72 20 21 41 70 70 6f 69 |Image fo|r !Appoi|
|00000040| 6e 74 20 2d 20 50 61 72 | 65 6e 74 73 27 20 65 76 |nt - Par|ents' ev|
|00000050| 65 6e 69 6e 67 20 61 70 | 70 6f 69 6e 74 6d 65 6e |ening ap|pointmen|
|00000060| 74 73 0d 00 28 06 20 f4 | 0d 00 32 14 20 f4 20 a9 |ts..(. .|..2. . .|
|00000070| 20 44 2e 4c 2e 20 48 61 | 73 6c 61 6d 0d 00 3c 06 | D.L. Ha|slam..<.|
|00000080| 20 3a 0d 00 46 22 20 76 | 65 72 73 69 6f 6e 24 3d | :..F" v|ersion$=|
|00000090| 22 32 2e 33 30 20 28 31 | 37 2d 4a 61 6e 2d 31 39 |"2.30 (1|7-Jan-19|
|000000a0| 39 33 29 22 0d 00 50 2d | 20 69 6e 74 76 65 72 73 |93)"..P-| intvers|
|000000b0| 69 6f 6e 24 3d 22 49 6e | 74 65 72 66 61 63 65 20 |ion$="In|terface |
|000000c0| 4d 61 6e 61 67 65 72 20 | 28 76 2e 32 2e 30 30 29 |Manager |(v.2.00)|
|000000d0| 22 0d 00 5a 06 20 3a 0d | 00 64 24 20 f4 20 48 65 |"..Z. :.|.d$ . He|
|000000e0| 61 70 20 4d 61 6e 61 67 | 65 72 20 28 6d 6f 64 75 |ap Manag|er (modu|
|000000f0| 6c 65 20 2b 20 42 41 53 | 49 43 29 0d 00 6e 14 20 |le + BAS|IC)..n. |
|00000100| f4 20 a9 20 53 2e 52 2e | 20 48 61 73 6c 61 6d 0d |. . S.R.| Haslam.|
|00000110| 00 78 06 20 3a 0d 00 82 | 22 20 f4 20 49 6e 74 65 |.x. :...|" . Inte|
|00000120| 72 66 61 63 65 20 4d 61 | 6e 61 67 65 72 20 28 76 |rface Ma|nager (v|
|00000130| 2e 20 32 2e 30 30 29 0d | 00 8c 19 20 f4 20 a9 20 |. 2.00).|... . . |
|00000140| 53 69 6d 6f 6e 20 48 75 | 6e 74 69 6e 67 64 6f 6e |Simon Hu|ntingdon|
|00000150| 0d 00 96 06 20 3a 0d 00 | a0 21 20 6d 6f 61 6e 5f |.... :..|.! moan_|
|00000160| 65 72 72 25 3d 32 35 34 | 3a 66 61 74 61 6c 5f 65 |err%=254|:fatal_e|
|00000170| 72 72 25 3d 32 35 35 0d | 00 aa 49 20 ee 20 85 3a |rr%=255.|..I . .:|
|00000180| ee 20 85 20 87 3a 85 20 | 9f 2c 22 4c 30 20 65 72 |. . .:. |.,"L0 er|
|00000190| 72 6f 72 3a 20 22 2b f6 | 24 2b 22 20 64 75 72 69 |ror: "+.|$+" duri|
|000001a0| 6e 67 20 69 6e 69 74 69 | 61 6c 69 73 61 74 69 6f |ng initi|alisatio|
|000001b0| 6e 20 61 74 20 6c 69 6e | 65 20 22 2b c3 28 9e 29 |n at lin|e "+.(.)|
|000001c0| 0d 00 b4 10 20 6e 65 78 | 74 66 69 6c 65 25 3d 30 |.... nex|tfile%=0|
|000001d0| 0d 00 be 0f 20 70 72 65 | 73 65 6e 74 25 3d a3 0d |.... pre|sent%=..|
|000001e0| 00 c8 0b 20 f2 73 65 74 | 75 70 0d 00 d2 2f 20 e7 |... .set|up.../ .|
|000001f0| 20 62 75 66 66 25 3e 65 | 6e 64 62 75 66 66 25 20 | buff%>e|ndbuff% |
|00000200| 8c 20 85 20 30 2c 22 4e | 6f 20 72 6f 6f 6d 20 66 |. . 0,"N|o room f|
|00000210| 6f 72 20 64 65 66 73 2e | 22 0d 00 dc 33 20 e7 20 |or defs.|"...3 . |
|00000220| 6d 65 6e 75 5f 70 74 72 | 25 3e 6d 65 6e 5f 65 6e |menu_ptr|%>men_en|
|00000230| 64 25 20 8c 20 85 20 30 | 2c 22 4e 6f 20 72 6f 6f |d% . . 0|,"No roo|
|00000240| 6d 20 66 6f 72 20 6d 65 | 6e 75 73 22 0d 00 e6 20 |m for me|nus"... |
|00000250| 20 c8 99 20 22 4f 53 5f | 47 65 74 45 6e 76 22 20 | .. "OS_|GetEnv" |
|00000260| b8 20 43 6f 6d 53 74 72 | 69 6e 67 24 0d 00 f0 21 |. ComStr|ing$...!|
|00000270| 20 e7 20 a7 43 6f 6d 53 | 74 72 69 6e 67 24 2c 22 | . .ComS|tring$,"|
|00000280| 2d 64 61 74 61 62 61 73 | 65 22 29 20 8c 0d 00 fa |-databas|e") ....|
|00000290| 35 20 20 20 46 69 6c 65 | 24 3d c1 43 6f 6d 53 74 |5   File|$=.ComSt|
|000002a0| 72 69 6e 67 24 2c a7 43 | 6f 6d 53 74 72 69 6e 67 |ring$,.C|omString|
|000002b0| 24 2c 22 2d 64 61 74 61 | 62 61 73 65 22 29 2b 31 |$,"-data|base")+1|
|000002c0| 30 29 0d 01 04 36 20 20 | 20 c8 99 20 22 4f 53 5f |0)...6  | .. "OS_|
|000002d0| 47 53 54 72 61 6e 73 22 | 2c 46 69 6c 65 24 2c c4 |GSTrans"|,File$,.|
|000002e0| 32 35 35 2c bd 31 33 29 | 2c 32 35 35 20 b8 20 2c |255,.13)|,255 . ,|
|000002f0| 46 69 6c 65 24 2c 4c 25 | 0d 01 0e 17 20 20 20 46 |File$,L%|....   F|
|00000300| 69 6c 65 24 3d c0 46 69 | 6c 65 24 2c 4c 25 29 0d |ile$=.Fi|le$,L%).|
|00000310| 01 18 20 20 20 20 ee 20 | 85 20 f2 77 69 6d 70 5f |..    . |. .wimp_|
|00000320| 65 72 72 6f 72 28 b9 2c | 9f 2c 9e 2c f6 24 29 0d |error(.,|.,.,.$).|
|00000330| 01 22 18 20 20 20 f2 67 | 65 74 5f 69 74 5f 69 6e |.".   .g|et_it_in|
|00000340| 28 46 69 6c 65 24 29 0d | 01 2c 06 20 cd 0d 01 36 |(File$).|.,. ...6|
|00000350| 1e 20 ee 20 85 20 f2 77 | 69 6d 70 5f 65 72 72 6f |. . . .w|imp_erro|
|00000360| 72 28 b9 2c 9f 2c 9e 2c | f6 24 29 0d 01 40 06 20 |r(.,.,.,|.$)..@. |
|00000370| f5 0d 01 4a 0c 20 20 20 | f2 70 6f 6c 6c 0d 01 54 |...J.   |.poll..T|
|00000380| 0c 20 fd 20 71 75 69 74 | 25 0d 01 5e 10 20 f2 63 |. . quit|%..^. .c|
|00000390| 6c 6f 73 65 5f 64 6f 77 | 6e 0d 01 68 06 20 e0 0d |lose_dow|n..h. ..|
|000003a0| 01 72 06 20 3a 0d 01 7c | 06 20 3a 0d 01 86 06 20 |.r. :..||. :.... |
|000003b0| 3a 0d 01 90 0c 20 dd 20 | f2 70 6f 6c 6c 0d 01 9a |:.... . |.poll...|
|000003c0| 28 20 c8 99 20 22 4f 53 | 5f 42 79 74 65 22 2c 32 |( .. "OS|_Byte",2|
|000003d0| 32 39 2c 31 3a c8 99 20 | 22 4f 53 5f 42 79 74 65 |29,1:.. |"OS_Byte|
|000003e0| 22 2c 31 32 34 0d 01 a4 | 2a 20 c8 99 20 22 57 69 |",124...|* .. "Wi|
|000003f0| 6d 70 5f 50 6f 6c 6c 22 | 2c 6d 61 73 6b 25 2c 62 |mp_Poll"|,mask%,b|
|00000400| 6c 6f 63 6b 25 20 b8 20 | 72 65 61 73 6f 6e 25 0d |lock% . |reason%.|
|00000410| 01 ae 29 20 c8 99 20 22 | 49 6e 74 65 72 66 61 63 |..) .. "|Interfac|
|00000420| 65 5f 50 6f 6c 6c 22 2c | 72 65 61 73 6f 6e 25 2c |e_Poll",|reason%,|
|00000430| 2c 6d 79 74 61 73 6b 25 | 0d 01 b8 11 20 c8 8e 20 |,mytask%|.... .. |
|00000440| 72 65 61 73 6f 6e 25 20 | ca 0d 01 c2 1b 20 20 20 |reason% |.....   |
|00000450| c9 20 31 3a f2 72 65 64 | 72 61 77 28 21 62 6c 6f |. 1:.red|raw(!blo|
|00000460| 63 6b 25 29 0d 01 cc 0b | 20 20 20 c9 20 32 3a 0d |ck%)....|   . 2:.|
|00000470| 01 d6 1b 20 20 20 e7 20 | 21 62 6c 6f 63 6b 25 3d |...   . |!block%=|
|00000480| 6d 61 6e 75 61 6c 57 25 | 20 8c 0d 01 e0 16 20 20 |manualW%| .....  |
|00000490| 20 20 20 f2 75 70 64 61 | 74 65 5f 70 61 6e 65 73 |   .upda|te_panes|
|000004a0| 0d 01 ea 27 20 20 20 20 | 20 cc 20 c8 99 20 22 57 |...'    | . .. "W|
|000004b0| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|000004c0| 2c 62 6c 6f 63 6b 25 0d | 01 f4 08 20 20 20 cd 0d |,block%.|...   ..|
|000004d0| 01 fe 19 20 20 20 c9 20 | 33 3a f2 70 65 72 66 6f |...   . |3:.perfo|
|000004e0| 72 6d 5f 63 6c 6f 73 65 | 0d 02 08 41 20 20 20 c9 |rm_close|...A   .|
|000004f0| 20 36 3a f2 6d 6f 75 73 | 65 28 62 6c 6f 63 6b 25 | 6:.mous|e(block%|
|00000500| 21 30 2c 62 6c 6f 63 6b | 25 21 34 2c 62 6c 6f 63 |!0,block|%!4,bloc|
|00000510| 6b 25 21 38 2c 62 6c 6f | 63 6b 25 21 31 32 2c 62 |k%!8,blo|ck%!12,b|
|00000520| 6c 6f 63 6b 25 21 31 36 | 29 0d 02 12 21 20 20 20 |lock%!16|)...!   |
|00000530| c9 20 37 3a f2 65 6e 64 | 5f 64 72 61 67 28 53 74 |. 7:.end|_drag(St|
|00000540| 61 72 74 25 2c 45 6e 64 | 25 29 0d 02 1c 17 20 20 |art%,End|%)....  |
|00000550| 20 c9 20 38 3a f2 70 72 | 6f 63 65 73 73 5f 6b 65 | . 8:.pr|ocess_ke|
|00000560| 79 0d 02 26 17 20 20 20 | c9 20 39 3a f2 6d 65 6e |y..&.   |. 9:.men|
|00000570| 75 5f 73 65 6c 65 63 74 | 0d 02 30 17 20 20 20 c9 |u_select|..0.   .|
|00000580| 20 31 37 2c 31 38 3a f2 | 6d 65 73 73 61 67 65 0d | 17,18:.|message.|
|00000590| 02 3a 0c 20 20 20 c9 20 | 31 39 3a 0d 02 44 3f 20 |.:.   . |19:..D? |
|000005a0| 20 20 85 20 6d 6f 61 6e | 5f 65 72 72 25 2c 22 54 |  . moan|_err%,"T|
|000005b0| 72 61 6e 73 66 65 72 20 | 6e 6f 74 20 63 6f 6d 70 |ransfer |not comp|
|000005c0| 6c 65 74 65 64 2e 20 52 | 65 63 65 69 76 65 72 20 |leted. R|eceiver |
|000005d0| 64 69 65 64 22 2b bd 28 | 30 29 0d 02 4e 32 20 20 |died"+.(|0)..N2  |
|000005e0| 20 e7 20 62 6c 6f 63 6b | 25 21 38 3d 6d 79 72 65 | . block|%!8=myre|
|000005f0| 66 25 20 8c 20 c8 99 20 | 22 4f 53 5f 46 69 6c 65 |f% . .. |"OS_File|
|00000600| 22 2c 36 2c 62 6c 6f 63 | 6b 2b 34 34 0d 02 58 06 |",6,bloc|k+44..X.|
|00000610| 20 cb 0d 02 62 06 20 e1 | 0d 02 6c 06 20 3a 0d 02 | ...b. .|..l. :..|
|00000620| 76 06 20 3a 0d 02 80 06 | 20 3a 0d 02 8a 4a 20 f4 |v. :....| :...J .|
|00000630| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00000640| 2d 2d 2d 2d 2d 20 53 68 | 75 74 64 6f 77 6e 20 72 |----- Sh|utdown r|
|00000650| 6f 75 74 69 6e 65 73 20 | 2d 2d 2d 2d 2d 2d 2d 2d |outines |--------|
|00000660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000670| 2d 2d 2d 2d 0d 02 94 06 | 20 3a 0d 02 9e 12 20 dd |----....| :.... .|
|00000680| 20 f2 63 6c 6f 73 65 5f | 64 6f 77 6e 0d 02 a8 09 | .close_|down....|
|00000690| 20 ea 20 46 25 0d 02 b2 | 08 20 ea 20 85 0d 02 bc | . F%...|. . ....|
|000006a0| 51 20 ee 20 85 20 ea 20 | 24 62 6c 6f 63 6b 25 3d |Q . . . |$block%=|
|000006b0| 22 54 41 53 4b 22 3a c8 | 99 20 22 57 69 6d 70 5f |"TASK":.|. "Wimp_|
|000006c0| 43 6c 6f 73 65 44 6f 77 | 6e 22 2c 6d 79 74 61 73 |CloseDow|n",mytas|
|000006d0| 6b 25 2c 21 62 6c 6f 63 | 6b 25 3a eb 20 31 32 3a |k%,!bloc|k%:. 12:|
|000006e0| f6 3a f1 20 22 20 40 20 | 23 22 3b 9e 3a e0 0d 02 |.:. " @ |#";.:...|
|000006f0| c6 0a 20 f2 65 78 69 74 | 0d 02 d0 25 20 c8 99 20 |.. .exit|...% .. |
|00000700| 22 49 6e 74 65 72 66 61 | 63 65 5f 43 6c 6f 73 65 |"Interfa|ce_Close|
|00000710| 44 6f 77 6e 22 2c 6d 79 | 74 61 73 6b 25 0d 02 da |Down",my|task%...|
|00000720| 09 20 f2 65 6e 64 0d 02 | e4 06 20 e1 0d 02 ee 06 |. .end..|.. .....|
|00000730| 20 3a 0d 02 f8 0c 20 dd | 20 f2 65 78 69 74 0d 03 | :.... .| .exit..|
|00000740| 02 09 20 ea 20 49 25 0d | 03 0c 13 20 c8 99 20 22 |.. . I%.|... .. "|
|00000750| 4f 53 5f 42 79 74 65 22 | 2c 33 0d 03 16 16 20 e7 |OS_Byte"|,3.... .|
|00000760| 20 61 70 70 74 66 69 6c | 65 24 3c 3e 22 22 20 8c | apptfil|e$<>"" .|
|00000770| 0d 03 20 1f 20 20 20 61 | 70 70 74 68 61 6e 64 6c |.. .   a|ppthandl|
|00000780| 65 25 3d ad 28 61 70 70 | 74 66 69 6c 65 24 29 0d |e%=.(app|tfile$).|
|00000790| 03 2a 1a 20 20 20 f2 77 | 72 69 74 65 5f 61 70 70 |.*.   .w|rite_app|
|000007a0| 28 5a 25 2c 52 45 43 25 | 29 0d 03 34 1f 20 20 20 |(Z%,REC%|)..4.   |
|000007b0| f2 63 6c 6f 73 65 5f 66 | 69 6c 65 28 61 70 70 74 |.close_f|ile(appt|
|000007c0| 68 61 6e 64 6c 65 25 29 | 0d 03 3e 06 20 cd 0d 03 |handle%)|..>. ...|
|000007d0| 48 1f 20 e7 20 41 70 70 | 74 73 4d 61 64 65 25 20 |H. . App|tsMade% |
|000007e0| 8c 20 f2 73 61 76 65 5f | 73 74 61 66 66 0d 03 52 |. .save_|staff..R|
|000007f0| 19 20 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |. .. "Ho|urglass_|
|00000800| 53 6d 61 73 68 22 0d 03 | 5c 7b 20 e7 20 77 61 72 |Smash"..|\{ . war|
|00000810| 6e 25 20 80 20 72 61 6d | 25 20 8c 20 e7 20 ac 20 |n% . ram|% . . . |
|00000820| a4 63 6f 6e 66 69 72 6d | 28 22 43 6c 6f 73 69 6e |.confirm|("Closin|
|00000830| 67 20 64 6f 77 6e 20 22 | 2b 24 64 61 74 61 62 61 |g down "|+$databa|
|00000840| 73 65 25 2b 22 20 6f 6e | 20 52 41 4d 20 64 69 73 |se%+" on| RAM dis|
|00000850| 63 2e 20 43 68 61 6e 67 | 65 73 20 6e 6f 74 20 63 |c. Chang|es not c|
|00000860| 6f 70 69 65 64 20 74 6f | 20 70 65 72 6d 61 6e 65 |opied to| permane|
|00000870| 6e 74 20 73 74 6f 72 61 | 67 65 2e 22 29 20 8c 20 |nt stora|ge.") . |
|00000880| e1 0d 03 66 11 20 f2 63 | 6c 6f 73 65 5f 66 69 6c |...f. .c|lose_fil|
|00000890| 65 73 0d 03 70 12 20 f2 | 68 69 64 65 5f 77 69 6e |es..p. .|hide_win|
|000008a0| 64 6f 77 73 0d 03 7a 1f | 20 f2 64 65 6c 65 74 65 |dows..z.| .delete|
|000008b0| 5f 69 63 6f 6e 73 28 64 | 61 74 61 64 69 63 57 25 |_icons(d|atadicW%|
|000008c0| 2c 30 29 0d 03 84 14 20 | f2 72 65 63 6f 76 65 72 |,0).... |.recover|
|000008d0| 5f 6d 65 6d 6f 72 79 0d | 03 8e 0f 20 f2 69 6e 69 |_memory.|... .ini|
|000008e0| 74 5f 76 61 72 73 0d 03 | 98 12 20 24 50 61 73 73 |t_vars..|.. $Pass|
|000008f0| 77 6f 72 64 25 3d 22 22 | 0d 03 a2 20 20 46 3d ad |word%=""|...  F=.|
|00000900| 28 22 3c 41 70 70 6f 69 | 6e 74 24 44 69 72 3e 2e |("<Appoi|nt$Dir>.|
|00000910| 43 6f 6e 66 69 67 22 29 | 0d 03 ac 15 20 cf 23 46 |Config")|.... .#F|
|00000920| 3d 63 6f 6e 66 69 67 77 | 72 69 74 65 25 0d 03 b6 |=configw|rite%...|
|00000930| 32 20 d5 23 46 2c 24 45 | 76 65 6e 74 44 61 74 65 |2 .#F,$E|ventDate|
|00000940| 25 2b 22 7c 20 20 44 61 | 74 65 20 6f 66 20 50 61 |%+"|  Da|te of Pa|
|00000950| 72 65 6e 74 73 27 20 45 | 76 65 6e 69 6e 67 22 0d |rents' E|vening".|
|00000960| 03 c0 3a 20 d5 23 46 2c | 24 4d 61 74 68 53 63 69 |..: .#F,|$MathSci|
|00000970| 4c 6f 63 25 2b 22 7c 20 | 20 4c 6f 63 61 74 69 6f |Loc%+"| | Locatio|
|00000980| 6e 20 6f 66 20 4d 61 74 | 68 73 2f 53 63 69 65 6e |n of Mat|hs/Scien|
|00000990| 63 65 20 53 74 61 66 66 | 22 0d 03 ca 33 20 d5 23 |ce Staff|"...3 .#|
|000009a0| 46 2c 24 48 75 6d 4c 6f | 63 25 2b 22 7c 20 20 4c |F,$HumLo|c%+"|  L|
|000009b0| 6f 63 61 74 69 6f 6e 20 | 6f 66 20 48 75 6d 61 6e |ocation |of Human|
|000009c0| 69 74 69 65 73 20 53 74 | 61 66 66 22 0d 03 d4 13 |ities St|aff"....|
|000009d0| 20 f2 63 6c 6f 73 65 5f | 66 69 6c 65 28 46 29 0d | .close_|file(F).|
|000009e0| 03 de 13 20 e7 20 70 72 | 65 73 65 6e 74 25 3d 37 |... . pr|esent%=7|
|000009f0| 20 8c 0d 03 e8 21 20 20 | 20 73 74 61 72 74 25 3d | ....!  | start%=|
|00000a00| a4 74 65 78 74 28 72 65 | 73 74 72 69 63 74 57 25 |.text(re|strictW%|
|00000a10| 2c 33 29 0d 03 f2 22 20 | 20 20 65 6e 64 25 3d a4 |,3)..." |  end%=.|
|00000a20| 74 65 78 74 28 72 65 73 | 74 72 69 63 74 57 25 2c |text(res|trictW%,|
|00000a30| 32 30 29 2b 35 0d 03 fc | 3b 20 20 20 f2 73 61 76 |20)+5...|;   .sav|
|00000a40| 65 28 24 64 61 74 61 62 | 61 73 65 25 2b 22 2e 41 |e($datab|ase%+".A|
|00000a50| 70 70 74 73 2e 52 65 73 | 74 72 69 63 74 22 2c 26 |ppts.Res|trict",&|
|00000a60| 37 66 32 2c 73 74 61 72 | 74 25 2c 65 6e 64 25 29 |7f2,star|t%,end%)|
|00000a70| 0d 04 06 06 20 cd 0d 04 | 10 0f 20 70 72 65 73 65 |.... ...|.. prese|
|00000a80| 6e 74 25 3d a3 0d 04 1a | 17 20 f2 6c 69 74 28 6d |nt%=....|. .lit(m|
|00000a90| 65 6e 75 25 28 31 29 2c | 32 2c a3 29 0d 04 24 17 |enu%(1),|2,.)..$.|
|00000aa0| 20 f2 6c 69 74 28 6d 65 | 6e 75 25 28 31 29 2c 33 | .lit(me|nu%(1),3|
|00000ab0| 2c a3 29 0d 04 2e 17 20 | f2 6c 69 74 28 6d 65 6e |,.).... |.lit(men|
|00000ac0| 75 25 28 31 29 2c 34 2c | a3 29 0d 04 38 17 20 f2 |u%(1),4,|.)..8. .|
|00000ad0| 6c 69 74 28 6d 65 6e 75 | 25 28 31 29 2c 35 2c a3 |lit(menu|%(1),5,.|
|00000ae0| 29 0d 04 42 17 20 f2 6c | 69 74 28 6d 65 6e 75 25 |)..B. .l|it(menu%|
|00000af0| 28 30 29 2c 31 2c a3 29 | 0d 04 4c 17 20 f2 6c 69 |(0),1,.)|..L. .li|
|00000b00| 74 28 6d 65 6e 75 25 28 | 30 29 2c 32 2c a3 29 0d |t(menu%(|0),2,.).|
|00000b10| 04 56 16 20 24 64 62 61 | 73 65 25 3d 22 4e 6f 20 |.V. $dba|se%="No |
|00000b20| 64 61 74 61 22 0d 04 60 | 1e 20 f2 72 65 64 72 61 |data"..`|. .redra|
|00000b30| 77 5f 69 63 6f 6e 28 2d | 32 2c 61 70 70 69 63 6f |w_icon(-|2,appico|
|00000b40| 6e 25 29 0d 04 6a 0c 20 | 65 78 69 74 25 3d b9 0d |n%)..j. |exit%=..|
|00000b50| 04 74 06 20 e1 0d 04 7e | 06 20 3a 0d 04 88 1d 20 |.t. ...~|. :.... |
|00000b60| dd 20 f2 64 65 6c 65 74 | 65 5f 69 63 6f 6e 73 28 |. .delet|e_icons(|
|00000b70| 77 69 25 2c 69 63 25 29 | 0d 04 92 1d 20 21 62 6c |wi%,ic%)|.... !bl|
|00000b80| 6f 63 6b 25 3d 77 69 25 | 3a 62 6c 6f 63 6b 25 21 |ock%=wi%|:block%!|
|00000b90| 34 3d 69 63 25 0d 04 9c | 06 20 f5 0d 04 a6 23 20 |4=ic%...|. ....# |
|00000ba0| 20 20 c8 99 20 22 57 69 | 6d 70 5f 44 65 6c 65 74 |  .. "Wi|mp_Delet|
|00000bb0| 65 49 63 6f 6e 22 2c 2c | 62 6c 6f 63 6b 25 0d 04 |eIcon",,|block%..|
|00000bc0| b0 1a 20 20 20 69 63 25 | 2b 3d 31 3a 62 6c 6f 63 |..   ic%|+=1:bloc|
|00000bd0| 6b 25 21 34 3d 69 63 25 | 0d 04 ba 25 20 20 20 c8 |k%!4=ic%|...%   .|
|00000be0| 99 20 22 57 69 6d 70 5f | 47 65 74 49 63 6f 6e 53 |. "Wimp_|GetIconS|
|00000bf0| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 0d 04 c4 |tate",,b|lock%...|
|00000c00| 20 20 fd 20 28 28 62 6c | 6f 63 6b 25 21 32 34 29 |  . ((bl|ock%!24)|
|00000c10| 20 80 20 28 31 3c 3c 32 | 33 29 29 3e 30 0d 04 ce | . (1<<2|3))>0...|
|00000c20| 06 20 e1 0d 04 d8 06 20 | 3a 0d 04 e2 13 20 dd 20 |. ..... |:.... . |
|00000c30| f2 63 6c 6f 73 65 5f 66 | 69 6c 65 73 0d 04 ec 1e |.close_f|iles....|
|00000c40| 20 f2 63 6c 6f 73 65 5f | 66 69 6c 65 28 64 62 61 | .close_|file(dba|
|00000c50| 73 65 68 61 6e 64 6c 65 | 25 29 0d 04 f6 1d 20 f2 |sehandle|%).... .|
|00000c60| 63 6c 6f 73 65 5f 66 69 | 6c 65 28 61 70 70 74 68 |close_fi|le(appth|
|00000c70| 61 6e 64 6c 65 25 29 0d | 05 00 1e 20 f2 63 6c 6f |andle%).|... .clo|
|00000c80| 73 65 5f 66 69 6c 65 28 | 70 72 69 6e 74 68 61 6e |se_file(|printhan|
|00000c90| 64 6c 65 25 29 0d 05 0a | 06 20 e1 0d 05 14 06 20 |dle%)...|. ..... |
|00000ca0| 3a 0d 05 1e 1d 20 dd 20 | f2 63 6c 6f 73 65 5f 66 |:.... . |.close_f|
|00000cb0| 69 6c 65 28 f8 20 68 61 | 6e 64 6c 65 25 29 0d 05 |ile(. ha|ndle%)..|
|00000cc0| 28 12 20 e7 20 68 61 6e | 64 6c 65 25 3e 30 20 8c |(. . han|dle%>0 .|
|00000cd0| 0d 05 32 10 20 20 20 d9 | 23 68 61 6e 64 6c 65 25 |..2.   .|#handle%|
|00000ce0| 0d 05 3c 10 20 20 20 68 | 61 6e 64 6c 65 25 3d 30 |..<.   h|andle%=0|
|00000cf0| 0d 05 46 06 20 cd 0d 05 | 50 06 20 e1 0d 05 5a 06 |..F. ...|P. ...Z.|
|00000d00| 20 3a 0d 05 64 15 dd 20 | f2 72 65 63 6f 76 65 72 | :..d.. |.recover|
|00000d10| 5f 6d 65 6d 6f 72 79 0d | 05 6e 08 ea 20 49 25 0d |_memory.|.n.. I%.|
|00000d20| 05 78 24 f2 73 63 72 61 | 70 5f 73 6c 69 64 69 6e |.x$.scra|p_slidin|
|00000d30| 67 5f 62 6c 6f 63 6b 28 | 6b 65 79 61 6e 63 68 6f |g_block(|keyancho|
|00000d40| 72 25 29 0d 05 82 25 f2 | 73 63 72 61 70 5f 73 6c |r%)...%.|scrap_sl|
|00000d50| 69 64 69 6e 67 5f 62 6c | 6f 63 6b 28 74 65 78 74 |iding_bl|ock(text|
|00000d60| 61 6e 63 68 6f 72 25 29 | 0d 05 8c 29 f2 73 63 72 |anchor%)|...).scr|
|00000d70| 61 70 5f 73 6c 69 64 69 | 6e 67 5f 62 6c 6f 63 6b |ap_slidi|ng_block|
|00000d80| 28 70 72 69 6f 72 69 74 | 79 61 6e 63 68 6f 72 25 |(priorit|yanchor%|
|00000d90| 29 0d 05 96 25 f2 73 63 | 72 61 70 5f 73 6c 69 64 |)...%.sc|rap_slid|
|00000da0| 69 6e 67 5f 62 6c 6f 63 | 6b 28 74 65 78 74 61 6e |ing_bloc|k(textan|
|00000db0| 63 68 6f 72 25 29 0d 05 | a0 15 e3 20 49 25 3d 30 |chor%)..|... I%=0|
|00000dc0| 20 b8 20 4d 61 78 54 61 | 62 73 25 0d 05 aa 2a 20 | . MaxTa|bs%...* |
|00000dd0| 20 f2 73 63 72 61 70 5f | 73 6c 69 64 69 6e 67 5f | .scrap_|sliding_|
|00000de0| 62 6c 6f 63 6b 28 74 61 | 62 61 6e 63 68 6f 72 25 |block(ta|banchor%|
|00000df0| 28 49 25 29 29 0d 05 b4 | 08 ed 20 49 25 0d 05 be |(I%))...|.. I%...|
|00000e00| 15 e3 20 49 25 3d 30 20 | b8 20 4d 61 78 4b 65 79 |.. I%=0 |. MaxKey|
|00000e10| 73 25 0d 05 c8 2a 20 20 | f2 73 63 72 61 70 5f 73 |s%...*  |.scrap_s|
|00000e20| 6c 69 64 69 6e 67 5f 62 | 6c 6f 63 6b 28 6b 65 79 |liding_b|lock(key|
|00000e30| 61 6e 63 68 6f 72 25 28 | 49 25 29 29 0d 05 d2 08 |anchor%(|I%))....|
|00000e40| ed 20 49 25 0d 05 dc 05 | e1 0d 05 e6 06 20 3a 0d |. I%....|..... :.|
|00000e50| 05 f0 0b 20 dd 20 f2 65 | 6e 64 0d 05 fa 25 20 c8 |... . .e|nd...% .|
|00000e60| 99 20 22 49 6e 74 65 72 | 66 61 63 65 5f 43 6c 6f |. "Inter|face_Clo|
|00000e70| 73 65 44 6f 77 6e 22 2c | 6d 79 74 61 73 6b 25 0d |seDown",|mytask%.|
|00000e80| 06 04 13 20 24 62 6c 6f | 63 6b 25 3d 22 54 41 53 |... $blo|ck%="TAS|
|00000e90| 4b 22 0d 06 0e 28 20 c8 | 99 20 22 57 69 6d 70 5f |K"...( .|. "Wimp_|
|00000ea0| 43 6c 6f 73 65 44 6f 77 | 6e 22 2c 6d 79 74 61 73 |CloseDow|n",mytas|
|00000eb0| 6b 25 2c 21 62 6c 6f 63 | 6b 25 0d 06 18 06 20 e0 |k%,!bloc|k%.... .|
|00000ec0| 0d 06 22 06 20 e1 0d 06 | 2c 06 20 3a 0d 06 36 48 |..". ...|,. :..6H|
|00000ed0| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00000ee0| 2d 2d 2d 20 45 6e 64 20 | 6f 66 20 53 68 75 74 64 |--- End |of Shutd|
|00000ef0| 6f 77 6e 20 72 6f 75 74 | 69 6e 65 73 20 2d 2d 2d |own rout|ines ---|
|00000f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f10| 2d 2d 2d 2d 0d 06 40 05 | 3a 0d 06 4a 05 3a 0d 06 |----..@.|:..J.:..|
|00000f20| 54 05 3a 0d 06 5e 48 f4 | 20 2d 2d 2d 2d 2d 2d 2d |T.:..^H.| -------|
|00000f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 45 |--------|------ E|
|00000f40| 72 72 6f 72 20 68 61 6e | 64 6c 69 6e 67 20 2d 2d |rror han|dling --|
|00000f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 06 68 05 3a |--------|---..h.:|
|00000f70| 0d 06 72 29 dd 20 f2 77 | 69 6d 70 5f 65 72 72 6f |..r). .w|imp_erro|
|00000f80| 72 28 72 65 74 75 72 6e | 25 2c 65 72 72 25 2c 65 |r(return|%,err%,e|
|00000f90| 72 6c 25 2c 65 72 72 24 | 29 0d 06 7c 2a 62 6c 6f |rl%,err$|)..|*blo|
|00000fa0| 63 6b 25 21 38 3d 30 3a | 62 6c 6f 63 6b 25 21 31 |ck%!8=0:|block%!1|
|00000fb0| 32 3d 77 69 25 3a 62 6c | 6f 63 6b 25 21 31 36 3d |2=wi%:bl|ock%!16=|
|00000fc0| 69 63 25 0d 06 86 25 c8 | 99 20 22 49 6e 74 65 72 |ic%...%.|. "Inter|
|00000fd0| 66 61 63 65 5f 53 6c 61 | 62 42 75 74 74 6f 6e 22 |face_Sla|bButton"|
|00000fe0| 2c 2c 62 6c 6f 63 6b 25 | 0d 06 90 13 ea 20 74 79 |,,block%|..... ty|
|00000ff0| 70 65 25 2c 72 65 73 75 | 6c 74 25 0d 06 9a 07 ea |pe%,resu|lt%.....|
|00001000| 20 85 0d 06 a4 55 ee 20 | 85 20 ea 20 ee 20 85 20 | ....U. |. . . . |
|00001010| 87 3a f2 63 6c 6f 73 65 | 5f 64 6f 77 6e 3a 85 20 |.:.close|_down:. |
|00001020| 9f 2c 22 4c 30 20 65 72 | 72 6f 72 3a 20 22 2b f6 |.,"L0 er|ror: "+.|
|00001030| 24 2b 22 20 64 75 72 69 | 6e 67 20 65 72 72 6f 72 |$+" duri|ng error|
|00001040| 20 68 61 6e 64 6c 65 72 | 20 61 74 20 6c 69 6e 65 | handler| at line|
|00001050| 20 22 2b c3 28 9e 29 0d | 06 ae 1e c8 99 20 22 57 | "+.(.).|..... "W|
|00001060| 69 6d 70 5f 43 6f 6d 6d | 61 6e 64 57 69 6e 64 6f |imp_Comm|andWindo|
|00001070| 77 22 2c 2d 31 0d 06 b8 | 11 62 6c 6f 63 6b 25 21 |w",-1...|.block%!|
|00001080| 30 3d 65 72 72 25 0d 06 | c2 22 e7 20 72 65 74 75 |0=err%..|.". retu|
|00001090| 72 6e 25 20 80 20 65 72 | 72 25 3c 3e 66 61 74 61 |rn% . er|r%<>fata|
|000010a0| 6c 5f 65 72 72 25 20 8c | 0d 06 cc 19 20 20 20 e7 |l_err% .|....   .|
|000010b0| 20 65 72 72 25 3d 6d 6f | 61 6e 5f 65 72 72 25 20 | err%=mo|an_err% |
|000010c0| 8c 0d 06 d6 3c 20 20 20 | 20 20 20 74 79 70 65 25 |....<   |   type%|
|000010d0| 3d 26 31 31 3a f4 20 4f | 4b 20 62 75 74 74 6f 6e |=&11:. O|K button|
|000010e0| 20 61 6e 64 20 6e 6f 20 | 22 45 72 72 6f 72 20 66 | and no |"Error f|
|000010f0| 72 6f 6d 22 20 69 6e 20 | 74 69 74 6c 65 0d 06 e0 |rom" in |title...|
|00001100| 08 20 20 20 cc 0d 06 ea | 29 20 20 20 20 20 20 74 |.   ....|)      t|
|00001110| 79 70 65 25 3d 33 3a f4 | 20 4f 4b 20 61 6e 64 20 |ype%=3:.| OK and |
|00001120| 43 61 6e 63 65 6c 20 62 | 75 74 74 6f 6e 73 0d 06 |Cancel b|uttons..|
|00001130| f4 42 20 20 20 20 20 20 | 65 72 72 24 2b 3d 22 20 |.B      |err$+=" |
|00001140| 61 74 20 22 2b c3 28 65 | 72 6c 25 29 2b 22 20 28 |at "+.(e|rl%)+" (|
|00001150| 4f 4b 20 74 6f 20 63 6f | 6e 74 69 6e 75 65 2c 20 |OK to co|ntinue, |
|00001160| 43 61 6e 63 65 6c 20 74 | 6f 20 71 75 69 74 29 22 |Cancel t|o quit)"|
|00001170| 0d 06 fe 08 20 20 20 cd | 0d 07 08 05 cc 0d 07 12 |....   .|........|
|00001180| 1e 20 20 20 74 79 70 65 | 25 3d 32 3a f4 20 43 61 |.   type|%=2:. Ca|
|00001190| 6e 63 65 6c 20 62 75 74 | 74 6f 6d 0d 07 1c 3a 20 |ncel but|tom...: |
|000011a0| 20 20 65 72 72 24 2b 3d | 22 20 61 74 20 22 2b c3 |  err$+=|" at "+.|
|000011b0| 28 65 72 6c 25 29 2b 22 | 20 28 41 70 70 6f 69 6e |(erl%)+"| (Appoin|
|000011c0| 74 20 6d 75 73 74 20 71 | 75 69 74 20 61 74 20 6f |t must q|uit at o|
|000011d0| 6e 63 65 29 22 0d 07 26 | 05 cd 0d 07 30 19 24 28 |nce)"..&|....0.$(|
|000011e0| 62 6c 6f 63 6b 25 2b 34 | 29 3d 65 72 72 24 2b bd |block%+4|)=err$+.|
|000011f0| 28 30 29 0d 07 3a 3b c8 | 99 20 22 57 69 6d 70 5f |(0)..:;.|. "Wimp_|
|00001200| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 62 6c 6f |ReportEr|ror",blo|
|00001210| 63 6b 25 2c 74 79 70 65 | 25 2c 22 41 70 70 6f 69 |ck%,type|%,"Appoi|
|00001220| 6e 74 22 20 b8 20 2c 72 | 65 73 75 6c 74 25 0d 07 |nt" . ,r|esult%..|
|00001230| 44 39 f4 20 72 65 73 75 | 6c 74 3d 31 20 6d 65 61 |D9. resu|lt=1 mea|
|00001240| 6e 73 20 4f 4b 20 73 65 | 6c 65 63 74 65 64 2c 20 |ns OK se|lected, |
|00001250| 32 20 6d 65 61 6e 73 20 | 43 61 6e 63 65 6c 20 73 |2 means |Cancel s|
|00001260| 65 6c 65 63 74 65 64 0d | 07 4e 11 e7 20 72 65 73 |elected.|.N.. res|
|00001270| 75 6c 74 25 3d 32 20 8c | 0d 07 58 12 20 20 20 f2 |ult%=2 .|..X.   .|
|00001280| 63 6c 6f 73 65 5f 64 6f | 77 6e 0d 07 62 08 20 20 |close_do|wn..b.  |
|00001290| 20 e0 0d 07 6c 05 cd 0d | 07 76 07 f7 20 85 0d 07 | ...l...|.v.. ...|
|000012a0| 80 05 e1 0d 07 8a 06 20 | 3a 0d 07 94 47 20 f4 20 |....... |:...G . |
|000012b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012c0| 20 45 6e 64 20 6f 66 20 | 65 72 72 6f 72 20 68 61 | End of |error ha|
|000012d0| 6e 64 6c 69 6e 67 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ndling -|--------|
|000012e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012f0| 0d 07 9e 06 20 3a 0d 07 | a8 06 20 3a 0d 07 b2 06 |.... :..|.. :....|
|00001300| 20 3a 0d 07 bc 46 20 f4 | 20 2d 2d 2d 2d 2d 2d 2d | :...F .| -------|
|00001310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 50 72 6f 67 72 |--------|-- Progr|
|00001320| 61 6d 20 69 6e 69 74 69 | 61 6c 69 73 61 74 69 6f |am initi|alisatio|
|00001330| 6e 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |n ------|--------|
|00001340| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 07 c6 06 20 3a 0d 07 |--------|.... :..|
|00001350| d0 0d 20 dd 20 f2 73 65 | 74 75 70 0d 07 da 19 20 |.. . .se|tup.... |
|00001360| ea 20 41 25 2c 49 25 2c | 4a 25 2c 56 25 2c 76 61 |. A%,I%,|J%,V%,va|
|00001370| 6c 69 64 24 0d 07 e4 20 | 20 46 3d 8e 28 22 3c 41 |lid$... | F=.("<A|
|00001380| 70 70 6f 69 6e 74 24 44 | 69 72 3e 2e 43 6f 6e 66 |ppoint$D|ir>.Conf|
|00001390| 69 67 22 29 0d 07 ee 1b | 20 45 61 72 6c 69 65 73 |ig")....| Earlies|
|000013a0| 74 24 3d a4 72 65 61 64 | 5f 63 6f 6e 66 69 67 0d |t$=.read|_config.|
|000013b0| 07 f8 19 20 4c 61 74 65 | 73 74 24 3d a4 72 65 61 |... Late|st$=.rea|
|000013c0| 64 5f 63 6f 6e 66 69 67 | 0d 08 02 19 20 53 74 61 |d_config|.... Sta|
|000013d0| 74 75 73 24 3d a4 72 65 | 61 64 5f 63 6f 6e 66 69 |tus$=.re|ad_confi|
|000013e0| 67 0d 08 0c 15 20 4d 61 | 78 53 74 61 66 66 25 3d |g.... Ma|xStaff%=|
|000013f0| bb 28 be 23 46 29 0d 08 | 16 15 20 4d 61 78 53 6c |.(.#F)..|.. MaxSl|
|00001400| 6f 74 73 25 3d bb 28 be | 23 46 29 0d 08 20 12 20 |ots%=.(.|#F).. . |
|00001410| 73 6c 61 63 6b 25 3d bb | 28 be 23 46 29 0d 08 2a |slack%=.|(.#F)..*|
|00001420| 35 20 72 65 74 72 79 25 | 3d bb 28 be 23 46 29 3a |5 retry%|=.(.#F):|
|00001430| e7 20 72 65 74 72 79 25 | 3d 31 35 20 8c 20 72 65 |. retry%|=15 . re|
|00001440| 74 72 79 25 3d 31 20 8b | 20 72 65 74 72 79 25 3d |try%=1 .| retry%=|
|00001450| 2d 31 0d 08 34 15 20 63 | 6f 6e 66 69 67 77 72 69 |-1..4. c|onfigwri|
|00001460| 74 65 25 3d 8f 23 46 0d | 08 3e 1c 20 45 76 65 6e |te%=.#F.|.>. Even|
|00001470| 74 44 61 74 65 24 3d a4 | 72 65 61 64 5f 63 6f 6e |tDate$=.|read_con|
|00001480| 66 69 67 0d 08 48 1d 20 | 4d 61 74 68 53 63 69 4c |fig..H. |MathSciL|
|00001490| 6f 63 24 3d a4 72 65 61 | 64 5f 63 6f 6e 66 69 67 |oc$=.rea|d_config|
|000014a0| 0d 08 52 19 20 48 75 6d | 4c 6f 63 24 3d a4 72 65 |..R. Hum|Loc$=.re|
|000014b0| 61 64 5f 63 6f 6e 66 69 | 67 0d 08 5c 13 20 f2 63 |ad_confi|g..\. .c|
|000014c0| 6c 6f 73 65 5f 66 69 6c | 65 28 46 29 0d 08 66 1a |lose_fil|e(F)..f.|
|000014d0| 20 4d 61 78 54 61 62 73 | 25 3d 32 3a 4d 61 78 4b | MaxTabs|%=2:MaxK|
|000014e0| 65 79 73 25 3d 32 0d 08 | 70 10 20 f2 64 69 6d 5f |eys%=2..|p. .dim_|
|000014f0| 61 72 72 61 79 73 0d 08 | 7a 0f 20 f2 69 6e 69 74 |arrays..|z. .init|
|00001500| 5f 76 61 72 73 0d 08 84 | 46 20 f4 20 2d 2d 2d 2d |_vars...|F . ----|
|00001510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 49 |--------|------ I|
|00001520| 6e 69 74 69 61 6c 69 73 | 65 20 57 69 6d 70 20 2d |nitialis|e Wimp -|
|00001530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 08 8e 13 20 |--------|---.... |
|00001550| 24 62 6c 6f 63 6b 25 3d | 22 54 41 53 4b 22 0d 08 |$block%=|"TASK"..|
|00001560| 98 28 20 6d 61 73 6b 25 | 3d 28 31 3c 3c 34 29 2b |.( mask%|=(1<<4)+|
|00001570| 28 31 3c 3c 35 29 2b 28 | 31 3c 3c 31 31 29 2b 28 |(1<<5)+(|1<<11)+(|
|00001580| 31 3c 3c 31 32 29 0d 08 | a2 42 20 c8 99 20 22 57 |1<<12)..|.B .. "W|
|00001590| 69 6d 70 5f 49 6e 69 74 | 69 61 6c 69 73 65 22 2c |imp_Init|ialise",|
|000015a0| 32 30 30 2c 21 62 6c 6f | 63 6b 25 2c 22 41 70 70 |200,!blo|ck%,"App|
|000015b0| 6f 69 6e 74 22 20 b8 20 | 76 65 72 73 69 6f 6e 25 |oint" . |version%|
|000015c0| 2c 6d 79 74 61 73 6b 25 | 0d 08 ac 26 20 c8 99 20 |,mytask%|...& .. |
|000015d0| 22 49 6e 74 65 72 66 61 | 63 65 5f 49 6e 69 74 69 |"Interfa|ce_Initi|
|000015e0| 61 6c 69 73 65 22 2c 6d | 79 74 61 73 6b 25 0d 08 |alise",m|ytask%..|
|000015f0| b6 4e 20 61 70 70 69 63 | 6f 6e 25 3d a4 63 72 65 |.N appic|on%=.cre|
|00001600| 61 74 65 5f 69 63 6f 6e | 28 2d 31 2c 30 2c 2d 31 |ate_icon|(-1,0,-1|
|00001610| 36 2c 31 34 34 2c 31 31 | 30 2c 26 31 37 30 30 33 |6,144,11|0,&17003|
|00001620| 31 32 42 2c 22 22 2c 64 | 62 61 73 65 25 2c 61 70 |12B,"",d|base%,ap|
|00001630| 70 73 70 72 69 74 65 25 | 2c 31 30 29 0d 08 c0 3f |psprite%|,10)...?|
|00001640| 20 f4 20 69 63 6f 6e 25 | 3d 46 4e 63 72 65 61 74 | . icon%|=FNcreat|
|00001650| 65 5f 69 63 6f 6e 28 2d | 31 2c 30 2c 30 2c 36 38 |e_icon(-|1,0,0,68|
|00001660| 2c 37 32 2c 26 33 30 30 | 32 2c 22 21 41 70 70 6f |,72,&300|2,"!Appo|
|00001670| 69 6e 74 22 2c 30 2c 30 | 2c 30 29 0d 08 ca 3a 20 |int",0,0|,0)...: |
|00001680| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 20 53 65 74 20 |. ------|--- Set |
|00001690| 75 70 20 48 65 61 70 20 | 4d 61 6e 61 67 65 72 20 |up Heap |Manager |
|000016a0| 26 20 61 6e 63 68 6f 72 | 73 20 2d 2d 2d 2d 2d 2d |& anchor|s ------|
|000016b0| 2d 2d 2d 2d 2d 0d 08 d4 | 18 20 f2 69 6e 69 74 68 |-----...|. .inith|
|000016c0| 65 61 70 73 28 31 32 38 | 2c 31 32 38 29 0d 08 de |eaps(128|,128)...|
|000016d0| 36 20 c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 35 |6 .. "OS|_File",5|
|000016e0| 2c 22 3c 41 70 70 6f 69 | 6e 74 24 44 69 72 3e 2e |,"<Appoi|nt$Dir>.|
|000016f0| 53 70 72 69 74 65 73 22 | 20 b8 20 2c 2c 2c 2c 6c |Sprites"| . ,,,,l|
|00001700| 65 6e 25 0d 08 e8 27 20 | 73 70 72 69 74 65 73 25 |en%...' |sprites%|
|00001710| 3d a4 63 72 65 61 74 65 | 5f 66 69 78 65 64 5f 62 |=.create|_fixed_b|
|00001720| 6c 6f 63 6b 28 6c 65 6e | 25 29 0d 08 f2 15 20 21 |lock(len|%).... !|
|00001730| 73 70 72 69 74 65 73 25 | 3d 6c 65 6e 25 2b 34 0d |sprites%|=len%+4.|
|00001740| 08 fc 38 20 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |..8 .. "|OS_File"|
|00001750| 2c 32 35 35 2c 22 3c 41 | 70 70 6f 69 6e 74 24 44 |,255,"<A|ppoint$D|
|00001760| 69 72 3e 2e 53 70 72 69 | 74 65 73 22 2c 73 70 72 |ir>.Spri|tes",spr|
|00001770| 69 74 65 73 25 2b 34 0d | 09 06 27 20 74 65 78 74 |ites%+4.|..' text|
|00001780| 61 6e 63 68 6f 72 25 3d | a4 63 72 65 61 74 65 5f |anchor%=|.create_|
|00001790| 61 6e 63 68 6f 72 28 22 | 54 65 78 74 22 29 0d 09 |anchor("|Text")..|
|000017a0| 10 2c 20 6b 65 79 61 6e | 63 68 6f 72 25 3d a4 63 |., keyan|chor%=.c|
|000017b0| 72 65 61 74 65 5f 61 6e | 63 68 6f 72 28 22 50 72 |reate_an|chor("Pr|
|000017c0| 69 6d 61 72 79 4b 65 79 | 22 29 0d 09 1a 31 20 70 |imaryKey|")...1 p|
|000017d0| 72 69 6f 72 69 74 79 61 | 6e 63 68 6f 72 25 3d a4 |rioritya|nchor%=.|
|000017e0| 63 72 65 61 74 65 5f 61 | 6e 63 68 6f 72 28 22 50 |create_a|nchor("P|
|000017f0| 72 69 6f 72 69 74 69 65 | 73 22 29 0d 09 24 16 20 |rioritie|s")..$. |
|00001800| e3 20 49 25 3d 30 20 b8 | 20 4d 61 78 4b 65 79 73 |. I%=0 .| MaxKeys|
|00001810| 25 0d 09 2e 33 20 20 20 | 6b 65 79 61 6e 63 68 6f |%...3   |keyancho|
|00001820| 72 25 28 49 25 29 3d a4 | 63 72 65 61 74 65 5f 61 |r%(I%)=.|create_a|
|00001830| 6e 63 68 6f 72 28 22 4b | 65 79 20 23 22 2b c3 28 |nchor("K|ey #"+.(|
|00001840| 49 25 29 29 0d 09 38 09 | 20 ed 20 49 25 0d 09 42 |I%))..8.| . I%..B|
|00001850| 16 20 e3 20 49 25 3d 30 | 20 b8 20 4d 61 78 54 61 |. . I%=0| . MaxTa|
|00001860| 62 73 25 0d 09 4c 36 20 | 20 20 74 61 62 61 6e 63 |bs%..L6 |  tabanc|
|00001870| 68 6f 72 25 28 49 25 29 | 3d a4 63 72 65 61 74 65 |hor%(I%)|=.create|
|00001880| 5f 61 6e 63 68 6f 72 28 | 22 56 54 61 62 6c 65 20 |_anchor(|"VTable |
|00001890| 23 22 2b c3 28 49 25 29 | 29 0d 09 56 09 20 ed 20 |#"+.(I%)|)..V. . |
|000018a0| 49 25 0d 09 60 46 20 f4 | 20 2d 2d 2d 2d 2d 2d 2d |I%..`F .| -------|
|000018b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018e0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 6a 2f 20 f2 67 65 |--------|..j/ .ge|
|000018f0| 74 73 63 72 65 65 6e 73 | 69 7a 65 28 53 63 72 65 |tscreens|ize(Scre|
|00001900| 65 6e 57 69 64 74 68 25 | 2c 53 63 72 65 65 6e 48 |enWidth%|,ScreenH|
|00001910| 65 69 67 68 74 25 29 0d | 09 74 14 20 f2 63 72 65 |eight%).|.t. .cre|
|00001920| 61 74 65 5f 77 69 6e 64 | 6f 77 73 0d 09 7e 10 20 |ate_wind|ows..~. |
|00001930| f2 6d 61 6b 65 5f 6d 65 | 6e 75 73 0d 09 88 06 20 |.make_me|nus.... |
|00001940| e1 0d 09 92 06 20 3a 0d | 09 9c 13 20 dd 20 a4 72 |..... :.|... . .r|
|00001950| 65 61 64 5f 63 6f 6e 66 | 69 67 0d 09 a6 0c 20 ea |ead_conf|ig.... .|
|00001960| 20 53 24 2c 50 25 0d 09 | b0 0b 20 53 24 3d be 23 | S$,P%..|.. S$=.#|
|00001970| 46 0d 09 ba 10 20 50 25 | 3d a7 53 24 2c 22 7c 22 |F.... P%|=.S$,"|"|
|00001980| 29 0d 09 c4 36 20 e7 20 | 50 25 3d 30 20 8c 20 85 |)...6 . |P%=0 . .|
|00001990| 20 32 35 35 2c 22 42 61 | 64 20 65 6e 74 72 79 20 | 255,"Ba|d entry |
|000019a0| 69 6e 20 43 6f 6e 66 69 | 67 20 66 69 6c 65 3a 20 |in Confi|g file: |
|000019b0| 4e 6f 20 27 7c 27 22 0d | 09 ce 0f 20 3d c0 53 24 |No '|'".|... =.S$|
|000019c0| 2c 50 25 2d 31 29 0d 09 | d8 06 20 3a 0d 09 e2 12 |,P%-1)..|.. :....|
|000019d0| 20 dd 20 f2 64 69 6d 5f | 61 72 72 61 79 73 0d 09 | . .dim_|arrays..|
|000019e0| ec 12 20 de 20 66 69 65 | 6c 64 24 28 31 30 30 29 |.. . fie|ld$(100)|
|000019f0| 0d 09 f6 25 20 de 20 53 | 75 62 6a 65 63 74 25 28 |...% . S|ubject%(|
|00001a00| 35 29 2c 53 74 61 66 66 | 25 28 37 29 2c 54 69 6d |5),Staff|%(7),Tim|
|00001a10| 65 25 28 37 29 0d 0a 00 | 35 20 de 20 52 73 74 61 |e%(7)...|5 . Rsta|
|00001a20| 66 66 25 28 37 29 2c 57 | 73 74 61 66 66 25 28 37 |ff%(7),W|staff%(7|
|00001a30| 29 2c 74 69 6d 65 25 28 | 4d 61 78 53 6c 6f 74 73 |),time%(|MaxSlots|
|00001a40| 25 29 2c 72 65 63 25 28 | 33 29 0d 0a 0a 2b 20 de |%),rec%(|3)...+ .|
|00001a50| 20 4b 4c 25 28 31 30 29 | 2c 4b 46 25 28 31 30 2c | KL%(10)|,KF%(10,|
|00001a60| 31 29 2c 4b 57 25 28 31 | 30 2c 33 29 2c 6b 65 79 |1),KW%(1|0,3),key|
|00001a70| 24 28 31 30 29 0d 0a 14 | 0e 20 de 20 6b 65 79 20 |$(10)...|. . key |
|00001a80| 32 35 36 0d 0a 1e 1a 20 | de 20 6d 65 6e 75 25 28 |256.... |. menu%(|
|00001a90| 35 29 2c 63 68 6f 69 63 | 65 24 28 34 29 0d 0a 28 |5),choic|e$(4)..(|
|00001aa0| 21 20 de 20 74 61 62 6c | 65 24 28 31 39 29 2c 74 |! . tabl|e$(19),t|
|00001ab0| 61 62 66 69 65 6c 64 6c | 65 6e 25 28 39 29 0d 0a |abfieldl|en%(9)..|
|00001ac0| 32 3e 20 de 20 53 74 61 | 66 66 43 6f 64 65 73 24 |2> . Sta|ffCodes$|
|00001ad0| 28 4d 61 78 53 74 61 66 | 66 25 29 2c 53 74 61 66 |(MaxStaf|f%),Staf|
|00001ae0| 66 41 70 70 74 73 25 28 | 4d 61 78 53 74 61 66 66 |fAppts%(|MaxStaff|
|00001af0| 25 2c 4d 61 78 53 6c 6f | 74 73 25 29 0d 0a 3c 4b |%,MaxSlo|ts%)..<K|
|00001b00| 20 f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | . -----|--------|
|00001b10| 2d 2d 2d 2d 2d 2d 2d 20 | 41 6c 6c 6f 63 61 74 65 |------- |Allocate|
|00001b20| 20 62 75 66 66 65 72 73 | 20 2d 2d 2d 2d 2d 2d 2d | buffers| -------|
|00001b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b40| 2d 2d 2d 2d 2d 2d 2d 0d | 0a 46 28 20 69 6e 64 69 |-------.|.F( indi|
|00001b50| 72 65 63 74 69 6f 6e 6d | 65 6d 25 3d 26 34 30 30 |rectionm|em%=&400|
|00001b60| 30 3a 6d 65 6e 75 6d 65 | 6d 25 3d 26 38 30 30 0d |0:menume|m%=&800.|
|00001b70| 0a 50 14 20 de 20 4d 69 | 25 20 32 30 2c 4d 6f 25 |.P. . Mi|% 20,Mo%|
|00001b80| 20 32 30 0d 0a 5a 4a 20 | de 20 62 6c 6f 63 6b 25 | 20..ZJ |. block%|
|00001b90| 20 26 31 30 30 30 2c 62 | 6c 6f 63 6b 32 25 20 26 | &1000,b|lock2% &|
|00001ba0| 31 30 30 2c 62 6c 6f 63 | 6b 33 25 20 26 31 30 30 |100,bloc|k3% &100|
|00001bb0| 2c 73 61 76 65 62 75 66 | 66 25 20 26 31 30 30 2c |,savebuf|f% &100,|
|00001bc0| 63 68 6f 69 63 65 73 25 | 20 26 31 30 30 0d 0a 64 |choices%| &100..d|
|00001bd0| 3b 20 de 20 62 75 66 66 | 25 20 69 6e 64 69 72 65 |; . buff|% indire|
|00001be0| 63 74 69 6f 6e 6d 65 6d | 25 3a 65 6e 64 62 75 66 |ctionmem|%:endbuf|
|00001bf0| 66 25 3d 62 75 66 66 25 | 2b 69 6e 64 69 72 65 63 |f%=buff%|+indirec|
|00001c00| 74 69 6f 6e 6d 65 6d 25 | 0d 0a 6e 43 20 de 20 6d |tionmem%|..nC . m|
|00001c10| 65 6e 62 6c 6b 25 20 6d | 65 6e 75 6d 65 6d 25 3a |enblk% m|enumem%:|
|00001c20| 6d 65 6e 5f 65 6e 64 25 | 3d 6d 65 6e 62 6c 6b 25 |men_end%|=menblk%|
|00001c30| 2b 6d 65 6e 75 6d 65 6d | 25 3a 6d 65 6e 75 5f 70 |+menumem|%:menu_p|
|00001c40| 74 72 25 3d 6d 65 6e 62 | 6c 6b 25 0d 0a 78 4b 20 |tr%=menb|lk%..xK |
|00001c50| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |. ------|------- |
|00001c60| 49 6e 64 69 72 65 63 74 | 69 6f 6e 20 61 64 64 72 |Indirect|ion addr|
|00001c70| 65 73 73 65 73 20 66 6f | 72 20 48 65 61 70 20 4d |esses fo|r Heap M|
|00001c80| 61 6e 61 67 65 72 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |anager -|--------|
|00001c90| 2d 2d 2d 2d 2d 2d 0d 0a | 82 23 20 de 20 74 65 78 |------..|.# . tex|
|00001ca0| 74 61 6e 63 68 6f 72 25 | 20 33 3a 21 74 65 78 74 |tanchor%| 3:!text|
|00001cb0| 61 6e 63 68 6f 72 25 3d | 30 0d 0a 8c 1b 20 de 20 |anchor%=|0.... . |
|00001cc0| 6b 65 79 61 6e 63 68 6f | 72 25 28 4d 61 78 4b 65 |keyancho|r%(MaxKe|
|00001cd0| 79 73 25 29 0d 0a 96 1b | 20 de 20 74 61 62 61 6e |ys%)....| . taban|
|00001ce0| 63 68 6f 72 25 28 4d 61 | 78 54 61 62 73 25 29 0d |chor%(Ma|xTabs%).|
|00001cf0| 0a a0 43 20 de 20 62 6f | 78 25 20 31 36 2c 62 6f |..C . bo|x% 16,bo|
|00001d00| 78 32 25 20 31 36 2c 6d | 61 74 72 69 78 25 20 31 |x2% 16,m|atrix% 1|
|00001d10| 36 2c 6f 72 69 67 69 6e | 31 25 20 38 2c 6f 72 69 |6,origin|1% 8,ori|
|00001d20| 67 69 6e 32 25 20 38 2c | 6f 72 69 67 69 6e 33 25 |gin2% 8,|origin3%|
|00001d30| 20 38 0d 0a aa 27 20 de | 20 68 61 6e 64 25 20 31 | 8...' .| hand% 1|
|00001d40| 36 3a 24 68 61 6e 64 25 | 3d 22 50 70 74 72 5f 68 |6:$hand%|="Pptr_h|
|00001d50| 61 6e 64 2c 31 32 2c 38 | 22 0d 0a b4 2b 20 de 20 |and,12,8|"...+ . |
|00001d60| 77 72 69 74 65 70 25 20 | 31 36 3a 24 77 72 69 74 |writep% |16:$writ|
|00001d70| 65 70 25 3d 22 50 70 74 | 72 5f 77 72 69 74 65 2c |ep%="Ppt|r_write,|
|00001d80| 34 2c 34 22 0d 0a be 22 | 20 de 20 64 62 61 73 65 |4,4"..."| . dbase|
|00001d90| 25 20 31 30 3a 24 64 62 | 61 73 65 25 3d 22 4e 6f |% 10:$db|ase%="No|
|00001da0| 20 64 61 74 61 22 0d 0a | c8 2c 20 de 20 61 70 70 | data"..|., . app|
|00001db0| 73 70 72 69 74 65 25 20 | 31 30 3a 24 61 70 70 73 |sprite% |10:$apps|
|00001dc0| 70 72 69 74 65 25 3d 22 | 53 21 41 70 70 6f 69 6e |prite%="|S!Appoin|
|00001dd0| 74 22 0d 0a d2 06 20 e1 | 0d 0a dc 06 20 3a 0d 0a |t".... .|.... :..|
|00001de0| e6 11 20 dd 20 f2 69 6e | 69 74 5f 76 61 72 73 0d |.. . .in|it_vars.|
|00001df0| 0a f0 13 20 52 65 73 74 | 72 69 63 74 65 64 24 3d |... Rest|ricted$=|
|00001e00| 22 22 0d 0a fa 20 20 4d | 61 6b 69 6e 67 41 70 70 |""...  M|akingApp|
|00001e10| 74 73 25 3d a3 3a 41 70 | 70 74 73 4d 61 64 65 25 |ts%=.:Ap|ptsMade%|
|00001e20| 3d a3 0d 0b 04 10 20 4c | 65 6e 4c 69 6e 65 25 3d |=..... L|enLine%=|
|00001e30| 36 31 0d 0b 0e 18 20 55 | 24 3d c4 4c 65 6e 4c 69 |61.... U|$=.LenLi|
|00001e40| 6e 65 25 2d 35 2c 22 3d | 22 29 0d 0b 18 1b 20 4e |ne%-5,"=|").... N|
|00001e50| 73 74 61 66 66 25 3d 30 | 3a 61 70 70 74 66 69 6c |staff%=0|:apptfil|
|00001e60| 65 24 3d 22 22 0d 0b 22 | 41 20 61 63 63 65 73 73 |e$="".."|A access|
|00001e70| 62 75 74 74 6f 6e 25 3d | 30 3a 70 72 65 73 65 6e |button%=|0:presen|
|00001e80| 74 25 3d 30 3a 69 6e 64 | 65 78 69 6e 67 25 3d a3 |t%=0:ind|exing%=.|
|00001e90| 3a 70 72 69 6e 74 69 6e | 67 25 3d a3 3a 6c 69 73 |:printin|g%=.:lis|
|00001ea0| 74 65 64 25 3d a3 0d 0b | 2c 0e 20 6d 79 72 65 66 |ted%=...|,. myref|
|00001eb0| 25 3d 2d 31 0d 0b 36 2f | 20 46 3d 30 3a 68 61 6e |%=-1..6/| F=0:han|
|00001ec0| 64 6c 65 25 3d 30 3a 64 | 62 61 73 65 68 61 6e 64 |dle%=0:d|basehand|
|00001ed0| 6c 65 25 3d 30 3a 61 70 | 70 74 68 61 6e 64 6c 65 |le%=0:ap|pthandle|
|00001ee0| 25 3d 30 0d 0b 40 37 20 | 71 75 69 74 25 3d a3 3a |%=0..@7 |quit%=.:|
|00001ef0| 65 78 69 74 25 3d a3 3a | 72 61 6d 25 3d a3 3a 41 |exit%=.:|ram%=.:A|
|00001f00| 63 63 65 73 73 25 3d a3 | 3a 4d 6f 64 69 66 79 25 |ccess%=.|:Modify%|
|00001f10| 3d a3 3a 77 61 72 6e 25 | 3d a3 0d 0b 4a 14 20 53 |=.:warn%|=...J. S|
|00001f20| 74 61 72 74 25 3d 30 3a | 45 6e 64 25 3d 30 0d 0b |tart%=0:|End%=0..|
|00001f30| 54 0c 20 46 70 74 72 25 | 3d 30 0d 0b 5e 31 20 4c |T. Fptr%|=0..^1 L|
|00001f40| 61 73 74 54 61 62 6c 65 | 25 3d 2d 31 3a 54 61 62 |astTable|%=-1:Tab|
|00001f50| 6c 65 6e 75 6d 62 65 72 | 25 3d 2d 31 3a 54 61 62 |lenumber|%=-1:Tab|
|00001f60| 73 4c 6f 61 64 65 64 24 | 3d 22 22 0d 0b 68 10 20 |sLoaded$|=""..h. |
|00001f70| 74 61 62 6c 65 24 28 29 | 3d 22 22 0d 0b 72 20 20 |table$()|=""..r  |
|00001f80| 52 6f 77 73 25 3d 30 3a | 54 61 62 46 69 65 6c 64 |Rows%=0:|TabField|
|00001f90| 73 25 3d 30 3a 52 65 63 | 25 3d 30 0d 0b 7c 32 20 |s%=0:Rec|%=0..|2 |
|00001fa0| 4b 65 79 73 25 3d 30 3a | 4c 48 25 3d 39 30 3a 66 |Keys%=0:|LH%=90:f|
|00001fb0| 69 6c 65 25 3d 30 3a 6b | 65 79 25 3d 30 3a 74 6f |ile%=0:k|ey%=0:to|
|00001fc0| 70 3d 38 2a 66 69 6c 65 | 25 2b 4c 48 25 0d 0b 86 |p=8*file|%+LH%...|
|00001fd0| 11 20 52 55 25 3d 30 3a | 52 45 43 25 3d 30 0d 0b |. RU%=0:|REC%=0..|
|00001fe0| 90 0f 20 75 70 5f 70 65 | 6e 64 25 3d a3 0d 0b 9a |.. up_pe|nd%=....|
|00001ff0| 06 20 e1 0d 0b a4 06 20 | 3a 0d 0b ae 4a 20 f4 20 |. ..... |:...J . |
|00002000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002010| 2d 20 45 6e 64 20 6f 66 | 20 50 72 6f 67 72 61 6d |- End of| Program|
|00002020| 20 69 6e 69 74 69 61 6c | 69 73 61 74 69 6f 6e 20 | initial|isation |
|00002030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002040| 2d 2d 2d 0d 0b b8 06 20 | 3a 0d 0b c2 06 20 3a 0d |---.... |:.... :.|
|00002050| 0b cc 06 20 3a 0d 0b d6 | 4a 20 f4 20 2d 2d 2d 2d |... :...|J . ----|
|00002060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 4d 65 |--------|----- Me|
|00002070| 6e 75 2d 72 65 6c 61 74 | 65 64 20 72 6f 75 74 69 |nu-relat|ed routi|
|00002080| 6e 65 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nes ----|--------|
|00002090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000020a0| 0b e0 06 20 3a 0d 0b ea | 12 20 dd 20 f2 6d 61 6b |... :...|. . .mak|
|000020b0| 65 5f 6d 65 6e 75 73 0d | 0b f4 09 20 ea 20 49 25 |e_menus.|... . I%|
|000020c0| 0d 0b fe 71 20 6d 65 6e | 75 25 28 30 29 3d a4 63 |...q men|u%(0)=.c|
|000020d0| 72 65 61 74 65 5f 6d 65 | 6e 75 28 6d 65 6e 75 5f |reate_me|nu(menu_|
|000020e0| 70 74 72 25 2c 32 35 30 | 2c 22 41 70 70 6f 69 6e |ptr%,250|,"Appoin|
|000020f0| 74 2c 49 6e 66 6f 3e 22 | 2b c3 28 69 6e 66 6f 57 |t,Info>"|+.(infoW|
|00002100| 25 29 2b 22 2c 7e 43 72 | 65 61 74 65 20 6e 65 77 |%)+",~Cr|eate new|
|00002110| 20 66 69 6c 65 2c 7e 43 | 6c 6f 73 65 20 64 61 74 | file,~C|lose dat|
|00002120| 61 62 61 73 65 2c 48 65 | 6c 70 2c 51 75 69 74 22 |abase,He|lp,Quit"|
|00002130| 29 0d 0c 08 4e 20 6d 65 | 6e 75 25 28 34 29 3d a4 |)...N me|nu%(4)=.|
|00002140| 63 72 65 61 74 65 5f 6d | 65 6e 75 28 6d 65 6e 75 |create_m|enu(menu|
|00002150| 5f 70 74 72 25 2c 31 35 | 30 2c 22 53 74 61 66 66 |_ptr%,15|0,"Staff|
|00002160| 20 6c 69 73 74 73 2c 22 | 2b c4 31 33 2c 22 30 22 | lists,"|+.13,"0"|
|00002170| 29 2b 22 2c 41 6c 6c 20 | 73 74 61 66 66 22 29 0d |)+",All |staff").|
|00002180| 0c 12 16 6d 65 6e 69 63 | 25 3d 6d 65 6e 75 25 28 |...menic|%=menu%(|
|00002190| 34 29 2b 32 38 0d 0c 1c | 3e 53 74 61 66 66 70 6f |4)+28...|>Staffpo|
|000021a0| 73 25 3d 6d 65 6e 69 63 | 25 21 31 32 3a 6d 65 6e |s%=menic|%!12:men|
|000021b0| 69 63 25 21 31 36 3d 62 | 75 66 66 25 3a 24 62 75 |ic%!16=b|uff%:$bu|
|000021c0| 66 66 25 3d 22 41 41 2d | 5a 22 3a 62 75 66 66 25 |ff%="AA-|Z":buff%|
|000021d0| 2b 3d 34 0d 0c 26 2a 3f | 6d 65 6e 69 63 25 3d 3f |+=4..&*?|menic%=?|
|000021e0| 6d 65 6e 69 63 25 20 84 | 20 28 31 3c 3c 32 29 3a |menic% .| (1<<2):|
|000021f0| 24 53 74 61 66 66 70 6f | 73 25 3d 22 22 0d 0c 30 |$Staffpo|s%=""..0|
|00002200| e0 6d 65 6e 75 25 28 31 | 29 3d a4 63 72 65 61 74 |.menu%(1|)=.creat|
|00002210| 65 5f 6d 65 6e 75 28 6d | 65 6e 75 5f 70 74 72 25 |e_menu(m|enu_ptr%|
|00002220| 2c 33 30 30 2c 22 41 70 | 70 6f 69 6e 74 2c 52 65 |,300,"Ap|point,Re|
|00002230| 73 74 72 69 63 74 20 73 | 74 61 66 66 3e 22 2b c3 |strict s|taff>"+.|
|00002240| 28 72 65 73 74 72 69 63 | 74 57 25 29 2b 22 2c 4d |(restric|tW%)+",M|
|00002250| 61 6b 65 20 61 70 70 6f | 69 6e 74 6d 65 6e 74 73 |ake appo|intments|
|00002260| 2c 7e 50 72 69 6e 74 20 | 73 6c 69 70 73 3e 22 2b |,~Print |slips>"+|
|00002270| c3 28 70 72 69 6e 74 57 | 25 29 2b 22 2c 7e 50 72 |.(printW|%)+",~Pr|
|00002280| 69 6e 74 20 6c 69 73 74 | 73 3e 22 2b c3 28 6d 65 |int list|s>"+.(me|
|00002290| 6e 75 25 28 34 29 29 2b | 22 2c 7e 50 72 69 6e 74 |nu%(4))+|",~Print|
|000022a0| 20 70 72 6f 62 6c 65 6d | 73 2c 7e 49 6e 64 65 78 | problem|s,~Index|
|000022b0| 20 61 70 70 6f 69 6e 74 | 6d 65 6e 74 73 2c 53 68 | appoint|ments,Sh|
|000022c0| 6f 77 20 6a 6f 62 73 20 | 64 6f 6e 65 2c 4c 6f 73 |ow jobs |done,Los|
|000022d0| 65 20 6c 69 73 74 2c 48 | 65 6c 70 22 29 0d 0c 3a |e list,H|elp")..:|
|000022e0| 41 20 6d 65 6e 75 25 28 | 32 29 3d a4 63 72 65 61 |A menu%(|2)=.crea|
|000022f0| 74 65 5f 6d 65 6e 75 28 | 6d 65 6e 75 5f 70 74 72 |te_menu(|menu_ptr|
|00002300| 25 2c 31 35 30 2c 22 53 | 74 61 66 66 20 63 6f 64 |%,150,"S|taff cod|
|00002310| 65 73 2c 53 6f 72 74 2c | 53 61 76 65 22 29 0d 0c |es,Sort,|Save")..|
|00002320| 44 12 20 79 62 61 72 25 | 3d 39 36 2b 35 2a 34 34 |D. ybar%|=96+5*44|
|00002330| 0d 0c 4e 06 20 e1 0d 0c | 58 06 20 3a 0d 0c 62 29 |..N. ...|X. :..b)|
|00002340| 20 dd 20 a4 63 72 65 61 | 74 65 5f 6d 65 6e 75 28 | . .crea|te_menu(|
|00002350| f8 20 6d 65 6e 75 25 2c | 77 69 64 74 68 25 2c 6c |. menu%,|width%,l|
|00002360| 69 73 74 24 29 0d 0c 6c | 35 20 ea 20 73 74 61 72 |ist$)..l|5 . star|
|00002370| 74 25 2c 63 68 6f 69 63 | 65 24 2c 65 6e 74 72 69 |t%,choic|e$,entri|
|00002380| 65 73 25 2c 69 74 65 6d | 25 2c 50 25 2c 51 25 2c |es%,item|%,P%,Q%,|
|00002390| 53 25 2c 73 68 61 64 65 | 64 25 0d 0c 76 11 20 73 |S%,shade|d%..v. s|
|000023a0| 74 61 72 74 25 3d 6d 65 | 6e 75 25 0d 0c 80 13 20 |tart%=me|nu%.... |
|000023b0| 50 25 3d a7 6c 69 73 74 | 24 2c 22 2c 22 29 0d 0c |P%=.list|$,",")..|
|000023c0| 8a 18 20 24 6d 65 6e 75 | 25 3d c0 6c 69 73 74 24 |.. $menu|%=.list$|
|000023d0| 2c 50 25 2d 31 29 0d 0c | 94 1a 20 6d 65 6e 75 25 |,P%-1)..|.. menu%|
|000023e0| 3f 31 32 3d 37 3a 6d 65 | 6e 75 25 3f 31 33 3d 32 |?12=7:me|nu%?13=2|
|000023f0| 0d 0c 9e 1a 20 6d 65 6e | 75 25 3f 31 34 3d 37 3a |.... men|u%?14=7:|
|00002400| 6d 65 6e 75 25 3f 31 35 | 3d 30 0d 0c a8 2b 20 6d |menu%?15|=0...+ m|
|00002410| 65 6e 75 25 21 31 36 3d | 77 69 64 74 68 25 3a 6d |enu%!16=|width%:m|
|00002420| 65 6e 75 25 21 32 30 3d | 34 34 3a 6d 65 6e 75 25 |enu%!20=|44:menu%|
|00002430| 21 32 34 3d 30 0d 0c b2 | 13 20 69 74 65 6d 25 3d |!24=0...|. item%=|
|00002440| 6d 65 6e 75 25 2b 32 38 | 0d 0c bc 0f 20 6c 69 73 |menu%+28|.... lis|
|00002450| 74 24 2b 3d 22 2c 22 0d | 0c c6 0f 20 65 6e 74 72 |t$+=",".|... entr|
|00002460| 69 65 73 25 3d 30 0d 0c | d0 06 20 f5 0d 0c da 0e |ies%=0..|.. .....|
|00002470| 20 20 20 51 25 3d 50 25 | 2b 31 0d 0c e4 18 20 20 |   Q%=P%|+1....  |
|00002480| 20 50 25 3d a7 6c 69 73 | 74 24 2c 22 2c 22 2c 51 | P%=.lis|t$,",",Q|
|00002490| 25 29 0d 0c ee 0f 20 20 | 20 e7 20 50 25 3e 30 20 |%)....  | . P%>0 |
|000024a0| 8c 0d 0c f8 1b 20 20 20 | 20 20 21 69 74 65 6d 25 |.....   |  !item%|
|000024b0| 3d 30 3a 73 68 61 64 65 | 64 25 3d 30 0d 0d 02 21 |=0:shade|d%=0...!|
|000024c0| 20 20 20 20 20 63 68 6f | 69 63 65 24 3d c1 6c 69 |     cho|ice$=.li|
|000024d0| 73 74 24 2c 51 25 2c 50 | 25 2d 51 25 29 0d 0d 0c |st$,Q%,P|%-Q%)...|
|000024e0| 40 20 20 20 20 20 e7 20 | c0 63 68 6f 69 63 65 24 |@     . |.choice$|
|000024f0| 2c 31 29 3d 22 7e 22 20 | 8c 20 63 68 6f 69 63 65 |,1)="~" |. choice|
|00002500| 24 3d c1 63 68 6f 69 63 | 65 24 2c 32 29 3a 73 68 |$=.choic|e$,2):sh|
|00002510| 61 64 65 64 25 3d 28 31 | 3c 3c 32 32 29 0d 0d 16 |aded%=(1|<<22)...|
|00002520| 42 20 20 20 20 20 e7 20 | c0 63 68 6f 69 63 65 24 |B     . |.choice$|
|00002530| 2c 31 29 3d 22 5f 22 20 | 8c 20 63 68 6f 69 63 65 |,1)="_" |. choice|
|00002540| 24 3d c1 63 68 6f 69 63 | 65 24 2c 32 29 3a 3f 69 |$=.choic|e$,2):?i|
|00002550| 74 65 6d 25 3d 3f 69 74 | 65 6d 25 20 84 20 32 0d |tem%=?it|em% . 2.|
|00002560| 0d 20 19 20 20 20 20 20 | 53 25 3d a7 63 68 6f 69 |. .     |S%=.choi|
|00002570| 63 65 24 2c 22 21 22 29 | 0d 0d 2a 36 20 20 20 20 |ce$,"!")|..*6    |
|00002580| 20 e7 20 53 25 3e 30 20 | 8c 20 3f 69 74 65 6d 25 | . S%>0 |. ?item%|
|00002590| 3d 3f 69 74 65 6d 25 20 | 84 20 38 3a c1 63 68 6f |=?item% |. 8:.cho|
|000025a0| 69 63 65 24 2c 53 25 2c | 31 29 3d 22 3e 22 0d 0d |ice$,S%,|1)=">"..|
|000025b0| 34 19 20 20 20 20 20 53 | 25 3d a7 63 68 6f 69 63 |4.     S|%=.choic|
|000025c0| 65 24 2c 22 3e 22 29 0d | 0d 3e 11 20 20 20 20 20 |e$,">").|.>.     |
|000025d0| e7 20 53 25 3d 30 20 8c | 0d 0d 48 15 20 20 20 20 |. S%=0 .|..H.    |
|000025e0| 20 20 20 69 74 65 6d 25 | 21 34 3d 2d 31 0d 0d 52 |   item%|!4=-1..R|
|000025f0| 0c 20 20 20 20 20 20 20 | cc 0d 0d 5c 24 20 20 20 |.       |...\$   |
|00002600| 20 20 20 20 69 74 65 6d | 25 21 34 3d bb 28 c1 63 |    item|%!4=.(.c|
|00002610| 68 6f 69 63 65 24 2c 53 | 25 2b 31 29 29 0d 0d 66 |hoice$,S|%+1))..f|
|00002620| 21 20 20 20 20 20 20 20 | 63 68 6f 69 63 65 24 3d |!       |choice$=|
|00002630| c0 63 68 6f 69 63 65 24 | 2c 53 25 2d 31 29 0d 0d |.choice$|,S%-1)..|
|00002640| 70 0a 20 20 20 20 20 cd | 0d 0d 7a 1b 20 20 20 20 |p.     .|..z.    |
|00002650| 20 e7 20 a9 28 63 68 6f | 69 63 65 24 29 3c 3d 31 | . .(cho|ice$)<=1|
|00002660| 32 20 8c 0d 0d 84 1e 20 | 20 20 20 20 20 20 24 28 |2 ..... |      $(|
|00002670| 69 74 65 6d 25 2b 31 32 | 29 3d 63 68 6f 69 63 65 |item%+12|)=choice|
|00002680| 24 0d 0d 8e 1b 20 20 20 | 20 20 20 20 69 74 65 6d |$....   |    item|
|00002690| 25 21 38 3d 26 37 30 30 | 30 30 32 31 0d 0d 98 0c |%!8=&700|0021....|
|000026a0| 20 20 20 20 20 20 20 cc | 0d 0d a2 1a 20 20 20 20 |       .|....    |
|000026b0| 20 20 20 4c 25 3d a9 28 | 63 68 6f 69 63 65 24 29 |   L%=.(|choice$)|
|000026c0| 2b 31 0d 0d ac 4a 20 20 | 20 20 20 20 20 69 74 65 |+1...J  |     ite|
|000026d0| 6d 25 21 31 32 3d 62 75 | 66 66 25 3a 24 62 75 66 |m%!12=bu|ff%:$buf|
|000026e0| 66 25 3d 63 68 6f 69 63 | 65 24 3a 62 75 66 66 25 |f%=choic|e$:buff%|
|000026f0| 2b 3d 4c 25 3a 69 74 65 | 6d 25 21 31 36 3d 2d 31 |+=L%:ite|m%!16=-1|
|00002700| 3a 69 74 65 6d 25 21 32 | 30 3d 4c 25 0d 0d b6 1b |:item%!2|0=L%....|
|00002710| 20 20 20 20 20 20 20 69 | 74 65 6d 25 21 38 3d 26 |       i|tem%!8=&|
|00002720| 37 30 30 30 31 32 31 0d | 0d c0 0a 20 20 20 20 20 |7000121.|...     |
|00002730| cd 0d 0d ca 22 20 20 20 | 20 20 69 74 65 6d 25 21 |...."   |  item%!|
|00002740| 38 3d 69 74 65 6d 25 21 | 38 20 84 20 73 68 61 64 |8=item%!|8 . shad|
|00002750| 65 64 25 0d 0d d4 12 20 | 20 20 20 20 69 74 65 6d |ed%.... |    item|
|00002760| 25 2b 3d 32 34 0d 0d de | 14 20 20 20 20 20 65 6e |%+=24...|.     en|
|00002770| 74 72 69 65 73 25 2b 3d | 31 0d 0d e8 08 20 20 20 |tries%+=|1....   |
|00002780| cd 0d 0d f2 0b 20 fd 20 | 50 25 3d 30 0d 0d fc 1e |..... . |P%=0....|
|00002790| 20 69 74 65 6d 25 21 2d | 32 34 3d 69 74 65 6d 25 | item%!-|24=item%|
|000027a0| 21 2d 32 34 20 84 20 26 | 38 30 0d 0e 06 10 20 6d |!-24 . &|80.... m|
|000027b0| 65 6e 75 25 3d 69 74 65 | 6d 25 0d 0e 10 52 20 e7 |enu%=ite|m%...R .|
|000027c0| 20 6d 65 6e 75 25 3e 6d | 65 6e 5f 65 6e 64 25 20 | menu%>m|en_end% |
|000027d0| 8c 20 85 20 a2 20 30 2c | 22 4e 6f 74 20 65 6e 6f |. . . 0,|"Not eno|
|000027e0| 75 67 68 20 72 6f 6f 6d | 20 66 6f 72 20 6d 65 6e |ugh room| for men|
|000027f0| 75 73 20 28 69 6e 74 65 | 72 6e 61 6c 20 65 72 72 |us (inte|rnal err|
|00002800| 6f 72 20 63 6f 64 65 20 | 35 30 29 22 0d 0e 1a 0c |or code |50)"....|
|00002810| 20 3d 73 74 61 72 74 25 | 0d 0e 24 06 20 3a 0d 0e | =start%|..$. :..|
|00002820| 2e 1d 20 dd 20 f2 74 69 | 63 6b 28 6d 65 6e 75 25 |.. . .ti|ck(menu%|
|00002830| 2c 69 74 65 6d 25 2c 6f | 6e 25 29 0d 0e 38 1c 20 |,item%,o|n%)..8. |
|00002840| 69 74 65 6d 25 3d 6d 65 | 6e 75 25 2b 32 38 2b 69 |item%=me|nu%+28+i|
|00002850| 74 65 6d 25 2a 32 34 0d | 0e 42 0d 20 c8 8e 20 6f |tem%*24.|.B. .. o|
|00002860| 6e 25 20 ca 0d 0e 4c 1c | 20 20 20 c9 20 b9 3a 3f |n% ...L.|   . .:?|
|00002870| 69 74 65 6d 25 3d 3f 69 | 74 65 6d 25 20 84 20 31 |item%=?i|tem% . 1|
|00002880| 0d 0e 56 1e 20 20 20 c9 | 20 a3 3a 3f 69 74 65 6d |..V.   .| .:?item|
|00002890| 25 3d 3f 69 74 65 6d 25 | 20 80 20 32 35 34 0d 0e |%=?item%| . 254..|
|000028a0| 60 06 20 cb 0d 0e 6a 06 | 20 e1 0d 0e 74 06 20 3a |`. ...j.| ...t. :|
|000028b0| 0d 0e 7e 23 20 dd 20 f2 | 74 69 63 6b 5f 6f 6e 65 |..~# . .|tick_one|
|000028c0| 28 6d 65 6e 75 25 2c 6c | 61 73 74 25 2c 69 74 65 |(menu%,l|ast%,ite|
|000028d0| 6d 25 29 0d 0e 88 09 20 | ea 20 49 25 0d 0e 92 13 |m%).... |. I%....|
|000028e0| 20 e3 20 49 25 3d 30 20 | b8 20 6c 61 73 74 25 0d | . I%=0 |. last%.|
|000028f0| 0e 9c 21 20 20 20 f2 74 | 69 63 6b 28 6d 65 6e 75 |..!   .t|ick(menu|
|00002900| 25 2c 49 25 2c 28 49 25 | 3d 69 74 65 6d 25 29 29 |%,I%,(I%|=item%))|
|00002910| 0d 0e a6 09 20 ed 20 49 | 25 0d 0e b0 06 20 e1 0d |.... . I|%.... ..|
|00002920| 0e ba 06 20 3a 0d 0e c4 | 1c 20 dd 20 f2 6c 69 74 |... :...|. . .lit|
|00002930| 28 6d 65 6e 75 25 2c 69 | 74 65 6d 25 2c 6f 6e 25 |(menu%,i|tem%,on%|
|00002940| 29 0d 0e ce 1c 20 69 74 | 65 6d 25 3d 6d 65 6e 75 |).... it|em%=menu|
|00002950| 25 2b 32 38 2b 69 74 65 | 6d 25 2a 32 34 0d 0e d8 |%+28+ite|m%*24...|
|00002960| 0d 20 c8 8e 20 6f 6e 25 | 20 ca 0d 0e e2 27 20 20 |. .. on%| ....'  |
|00002970| 20 c9 20 b9 3a 20 69 74 | 65 6d 25 21 38 3d 69 74 | . .: it|em%!8=it|
|00002980| 65 6d 25 21 38 20 80 20 | ac 20 28 31 3c 3c 32 32 |em%!8 . |. (1<<22|
|00002990| 29 0d 0e ec 25 20 20 20 | c9 20 a3 3a 20 69 74 65 |)...%   |. .: ite|
|000029a0| 6d 25 21 38 3d 69 74 65 | 6d 25 21 38 20 84 20 28 |m%!8=ite|m%!8 . (|
|000029b0| 31 3c 3c 32 32 29 0d 0e | f6 06 20 cb 0d 0f 00 06 |1<<22)..|.. .....|
|000029c0| 20 e1 0d 0f 0a 06 20 3a | 0d 0f 14 1e 20 dd 20 f2 | ..... :|.... . .|
|000029d0| 73 68 6f 77 5f 6d 65 6e | 75 28 6d 65 6e 75 25 2c |show_men|u(menu%,|
|000029e0| 78 25 2c 79 25 29 0d 0f | 1e 2a 20 6d 65 6e 75 68 |x%,y%)..|.* menuh|
|000029f0| 61 6e 64 6c 65 25 3d 6d | 65 6e 75 25 3a 6d 65 6e |andle%=m|enu%:men|
|00002a00| 75 78 25 3d 78 25 3a 6d | 65 6e 75 79 25 3d 79 25 |ux%=x%:m|enuy%=y%|
|00002a10| 0d 0f 28 26 20 c8 99 20 | 22 57 69 6d 70 5f 43 72 |..(& .. |"Wimp_Cr|
|00002a20| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 6d 65 6e 75 25 |eateMenu|",,menu%|
|00002a30| 2c 78 25 2c 79 25 0d 0f | 32 06 20 e1 0d 0f 3c 06 |,x%,y%..|2. ...<.|
|00002a40| 20 3a 0d 0f 46 13 20 dd | 20 f2 6d 65 6e 75 5f 73 | :..F. .| .menu_s|
|00002a50| 65 6c 65 63 74 0d 0f 50 | 1c 20 ea 20 68 61 6e 64 |elect..P|. . hand|
|00002a60| 6c 65 25 2c 50 25 2c 51 | 25 2c 49 25 2c 6b 65 79 |le%,P%,Q|%,I%,key|
|00002a70| 25 0d 0f 5a 27 20 63 68 | 6f 69 63 65 31 25 3d 21 |%..Z' ch|oice1%=!|
|00002a80| 62 6c 6f 63 6b 25 3a 63 | 68 6f 69 63 65 32 25 3d |block%:c|hoice2%=|
|00002a90| 62 6c 6f 63 6b 25 21 34 | 0d 0f 64 29 20 63 68 6f |block%!4|..d) cho|
|00002aa0| 69 63 65 33 25 3d 62 6c | 6f 63 6b 25 21 38 3a 63 |ice3%=bl|ock%!8:c|
|00002ab0| 68 6f 69 63 65 34 25 3d | 62 6c 6f 63 6b 25 21 31 |hoice4%=|block%!1|
|00002ac0| 32 0d 0f 6e 09 20 50 25 | 3d 31 0d 0f 78 36 20 c8 |2..n. P%|=1..x6 .|
|00002ad0| 99 20 22 57 69 6d 70 5f | 44 65 63 6f 64 65 4d 65 |. "Wimp_|DecodeMe|
|00002ae0| 6e 75 22 2c 2c 6d 65 6e | 75 68 61 6e 64 6c 65 25 |nu",,men|uhandle%|
|00002af0| 2c 62 6c 6f 63 6b 25 2c | 63 68 6f 69 63 65 73 25 |,block%,|choices%|
|00002b00| 0d 0f 82 0f 20 e3 20 49 | 25 3d 31 20 b8 20 34 0d |.... . I|%=1 . 4.|
|00002b10| 0f 8c 1e 20 20 20 51 25 | 3d a7 24 63 68 6f 69 63 |...   Q%|=.$choic|
|00002b20| 65 73 25 2c 22 2e 22 2c | 50 25 2b 31 29 0d 0f 96 |es%,".",|P%+1)...|
|00002b30| 27 20 20 20 63 68 6f 69 | 63 65 24 28 49 25 29 3d |'   choi|ce$(I%)=|
|00002b40| c1 24 63 68 6f 69 63 65 | 73 25 2c 50 25 2c 51 25 |.$choice|s%,P%,Q%|
|00002b50| 2d 50 25 29 0d 0f a0 0e | 20 20 20 50 25 3d 51 25 |-P%)....|   P%=Q%|
|00002b60| 2b 31 0d 0f aa 09 20 ed | 20 49 25 0d 0f b4 25 20 |+1.... .| I%...% |
|00002b70| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 50 6f 69 6e |.. "Wimp|_GetPoin|
|00002b80| 74 65 72 49 6e 66 6f 22 | 2c 2c 62 6c 6f 63 6b 25 |terInfo"|,,block%|
|00002b90| 0d 0f be 15 20 72 65 64 | 6f 25 3d 62 6c 6f 63 6b |.... red|o%=block|
|00002ba0| 25 21 38 3d 31 0d 0f c8 | 15 20 c8 8e 20 6d 65 6e |%!8=1...|. .. men|
|00002bb0| 75 68 61 6e 64 6c 65 25 | 20 ca 0d 0f d2 12 20 20 |uhandle%| .....  |
|00002bc0| 20 c9 20 6d 65 6e 75 25 | 28 30 29 3a 0d 0f dc 16 | . menu%|(0):....|
|00002bd0| 20 20 20 c8 8e 20 63 68 | 6f 69 63 65 24 28 31 29 |   .. ch|oice$(1)|
|00002be0| 20 ca 0d 0f e6 9a 20 20 | 20 20 20 c9 20 22 43 72 | .....  |   . "Cr|
|00002bf0| 65 61 74 65 20 6e 65 77 | 20 66 69 6c 65 22 3a e7 |eate new| file":.|
|00002c00| 20 a4 63 6f 6e 66 69 72 | 6d 28 22 41 72 65 20 79 | .confir|m("Are y|
|00002c10| 6f 75 20 73 75 72 65 3f | 20 41 6e 79 20 65 78 69 |ou sure?| Any exi|
|00002c20| 73 74 69 6e 67 20 61 70 | 70 6f 69 6e 74 6d 65 6e |sting ap|pointmen|
|00002c30| 74 20 64 61 74 61 20 77 | 69 6c 6c 20 62 65 20 64 |t data w|ill be d|
|00002c40| 65 73 74 72 6f 79 65 64 | 2e 22 29 3d b9 20 8c 20 |estroyed|.")=. . |
|00002c50| f2 6d 61 6b 65 5f 66 69 | 6c 65 28 61 70 70 74 66 |.make_fi|le(apptf|
|00002c60| 69 6c 65 24 2c 52 41 25 | 29 3a f2 69 6e 64 65 78 |ile$,RA%|):.index|
|00002c70| 5f 74 75 74 6f 72 73 28 | 52 41 25 29 0d 0f f0 3b |_tutors(|RA%)...;|
|00002c80| 20 20 20 20 20 c9 20 22 | 48 65 6c 70 22 3a c8 99 |     . "|Help":..|
|00002c90| 20 22 57 69 6d 70 5f 53 | 74 61 72 74 54 61 73 6b | "Wimp_S|tartTask|
|00002ca0| 22 2c 22 3c 41 70 70 6f | 69 6e 74 24 44 69 72 3e |","<Appo|int$Dir>|
|00002cb0| 2e 21 48 65 6c 70 22 0d | 0f fa 21 20 20 20 20 20 |.!Help".|..!     |
|00002cc0| c9 20 22 43 6c 6f 73 65 | 20 64 61 74 61 62 61 73 |. "Close| databas|
|00002cd0| 65 22 3a f2 65 78 69 74 | 0d 10 04 19 20 20 20 20 |e":.exit|....    |
|00002ce0| 20 c9 20 22 51 75 69 74 | 22 3a 71 75 69 74 25 3d | . "Quit|":quit%=|
|00002cf0| b9 0d 10 0e 08 20 20 20 | cb 0d 10 18 12 20 20 20 |.....   |.....   |
|00002d00| c9 20 6d 65 6e 75 25 28 | 31 29 3a 0d 10 22 16 20 |. menu%(|1):..". |
|00002d10| 20 20 c8 8e 20 63 68 6f | 69 63 65 24 28 31 29 20 |  .. cho|ice$(1) |
|00002d20| ca 0d 10 2c 2c 20 20 20 | 20 20 c9 20 22 4d 61 6b |...,,   |  . "Mak|
|00002d30| 65 20 61 70 70 6f 69 6e | 74 6d 65 6e 74 73 22 3a |e appoin|tments":|
|00002d40| f2 61 70 70 6f 69 6e 74 | 6d 65 6e 74 73 0d 10 36 |.appoint|ments..6|
|00002d50| 19 20 20 20 20 20 c9 20 | 22 50 72 69 6e 74 20 6c |.     . |"Print l|
|00002d60| 69 73 74 73 22 3a 0d 10 | 40 16 20 20 20 20 20 c8 |ists":..|@.     .|
|00002d70| 8e 20 63 68 6f 69 63 65 | 32 25 20 ca 0d 10 4a 21 |. choice|2% ...J!|
|00002d80| 20 20 20 20 20 20 20 c9 | 20 30 3a f2 6c 69 73 74 |       .| 0:.list|
|00002d90| 73 28 24 53 74 61 66 66 | 70 6f 73 25 29 0d 10 54 |s($Staff|pos%)..T|
|00002da0| 1c 20 20 20 20 20 20 20 | c9 20 31 3a f2 6c 69 73 |.       |. 1:.lis|
|00002db0| 74 73 28 22 41 4c 4c 22 | 29 0d 10 5e 0a 20 20 20 |ts("ALL"|)..^.   |
|00002dc0| 20 20 cb 0d 10 68 2b 20 | 20 20 20 20 c9 20 22 50 |  ...h+ |    . "P|
|00002dd0| 72 69 6e 74 20 70 72 6f | 62 6c 65 6d 73 22 3a f2 |rint pro|blems":.|
|00002de0| 70 72 69 6e 74 5f 70 72 | 6f 62 6c 65 6d 73 0d 10 |print_pr|oblems..|
|00002df0| 72 2c 20 20 20 20 20 c9 | 20 22 49 6e 64 65 78 20 |r,     .| "Index |
|00002e00| 61 70 70 6f 69 6e 74 6d | 65 6e 74 73 22 3a f2 69 |appointm|ents":.i|
|00002e10| 6e 64 65 78 5f 61 70 70 | 74 73 0d 10 7c 25 20 20 |ndex_app|ts..|%  |
|00002e20| 20 20 20 c9 20 22 53 68 | 6f 77 20 6a 6f 62 73 20 |   . "Sh|ow jobs |
|00002e30| 64 6f 6e 65 22 3a 2a 4a | 6f 62 73 44 6f 6e 65 0d |done":*J|obsDone.|
|00002e40| 10 86 17 20 20 20 20 20 | c9 20 22 4c 6f 73 65 20 |...     |. "Lose |
|00002e50| 6c 69 73 74 22 3a 0d 10 | 90 39 20 20 20 20 20 f2 |list":..|.9     .|
|00002e60| 73 63 72 61 70 5f 73 6c | 69 64 69 6e 67 5f 62 6c |scrap_sl|iding_bl|
|00002e70| 6f 63 6b 28 74 65 78 74 | 61 6e 63 68 6f 72 25 29 |ock(text|anchor%)|
|00002e80| 3a 21 74 65 78 74 61 6e | 63 68 6f 72 25 3d 30 0d |:!textan|chor%=0.|
|00002e90| 10 9a 1e 20 20 20 20 20 | f2 63 6c 6f 73 65 5f 77 |...     |.close_w|
|00002ea0| 69 6e 64 6f 77 28 6c 69 | 73 74 57 25 29 0d 10 a4 |indow(li|stW%)...|
|00002eb0| 12 20 20 20 20 20 6c 69 | 73 74 65 64 25 3d a3 0d |.     li|sted%=..|
|00002ec0| 10 ae 3b 20 20 20 20 20 | c9 20 22 48 65 6c 70 22 |..;     |. "Help"|
|00002ed0| 3a c8 99 20 22 57 69 6d | 70 5f 53 74 61 72 74 54 |:.. "Wim|p_StartT|
|00002ee0| 61 73 6b 22 2c 22 3c 41 | 70 70 6f 69 6e 74 24 44 |ask","<A|ppoint$D|
|00002ef0| 69 72 3e 2e 21 48 65 6c | 70 22 0d 10 b8 08 20 20 |ir>.!Hel|p"....  |
|00002f00| 20 cb 0d 10 c2 12 20 20 | 20 c9 20 6d 65 6e 75 25 | .....  | . menu%|
|00002f10| 28 32 29 3a 0d 10 cc 16 | 20 20 20 c8 8e 20 63 68 |(2):....|   .. ch|
|00002f20| 6f 69 63 65 24 28 31 29 | 20 ca 0d 10 d6 26 20 20 |oice$(1)| ....&  |
|00002f30| 20 20 20 c9 20 22 53 6f | 72 74 22 3a f2 73 6f 72 |   . "So|rt":.sor|
|00002f40| 74 5f 74 61 62 6c 65 28 | 22 53 74 61 66 66 22 29 |t_table(|"Staff")|
|00002f50| 0d 10 e0 26 20 20 20 20 | 20 c9 20 22 53 61 76 65 |...&    | . "Save|
|00002f60| 22 3a f2 73 61 76 65 5f | 74 61 62 6c 65 28 22 53 |":.save_|table("S|
|00002f70| 74 61 66 66 22 29 0d 10 | ea 08 20 20 20 cb 0d 10 |taff")..|..   ...|
|00002f80| f4 06 20 cb 0d 10 fe 10 | 20 e7 20 ac 20 71 75 69 |.. .....| . . qui|
|00002f90| 74 25 20 8c 0d 11 08 36 | 20 20 20 e7 20 72 65 64 |t% ....6|   . red|
|00002fa0| 6f 25 20 8c 20 f2 73 68 | 6f 77 5f 6d 65 6e 75 28 |o% . .sh|ow_menu(|
|00002fb0| 6d 65 6e 75 68 61 6e 64 | 6c 65 25 2c 6d 65 6e 75 |menuhand|le%,menu|
|00002fc0| 78 25 2c 6d 65 6e 75 79 | 25 29 0d 11 12 06 20 cd |x%,menuy|%).... .|
|00002fd0| 0d 11 1c 06 20 e1 0d 11 | 26 06 20 3a 0d 11 30 49 |.... ...|&. :..0I|
|00002fe0| 20 f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | . -----|--------|
|00002ff0| 2d 2d 2d 20 45 6e 64 20 | 6f 66 20 4d 65 6e 75 2d |--- End |of Menu-|
|00003000| 72 65 6c 61 74 65 64 20 | 72 6f 75 74 69 6e 65 73 |related |routines|
|00003010| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00003020| 2d 2d 2d 2d 2d 0d 11 3a | 06 20 3a 0d 11 44 06 20 |-----..:|. :..D. |
|00003030| 3a 0d 11 4e 06 20 3a 0d | 11 58 4b f4 20 49 63 6f |:..N. :.|.XK. Ico|
|00003040| 6e 20 68 61 6e 64 6c 69 | 6e 67 20 2d 2d 2d 2d 2d |n handli|ng -----|
|00003050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003080| 2d 2d 0d 11 62 05 3a 0d | 11 6c 54 dd 20 a4 63 72 |--..b.:.|.lT. .cr|
|00003090| 65 61 74 65 5f 69 63 6f | 6e 28 77 68 61 6e 64 6c |eate_ico|n(whandl|
|000030a0| 65 25 2c 78 6d 69 6e 25 | 2c 79 6d 69 6e 25 2c 77 |e%,xmin%|,ymin%,w|
|000030b0| 69 64 74 68 25 2c 68 65 | 69 67 68 74 25 2c 69 63 |idth%,he|ight%,ic|
|000030c0| 6f 6e 66 6c 61 67 73 25 | 2c 74 65 78 74 24 2c 64 |onflags%|,text$,d|
|000030d0| 31 25 2c 64 32 25 2c 64 | 33 25 29 0d 11 76 0d ea |1%,d2%,d|3%)..v..|
|000030e0| 20 68 61 6e 64 6c 65 25 | 0d 11 80 15 62 6c 6f 63 | handle%|....bloc|
|000030f0| 6b 25 21 30 3d 77 68 61 | 6e 64 6c 65 25 0d 11 8a |k%!0=wha|ndle%...|
|00003100| 21 62 6c 6f 63 6b 25 21 | 34 3d 78 6d 69 6e 25 3a |!block%!|4=xmin%:|
|00003110| 62 6c 6f 63 6b 25 21 38 | 3d 79 6d 69 6e 25 0d 11 |block%!8|=ymin%..|
|00003120| 94 32 62 6c 6f 63 6b 25 | 21 31 32 3d 78 6d 69 6e |.2block%|!12=xmin|
|00003130| 25 2b 77 69 64 74 68 25 | 3a 62 6c 6f 63 6b 25 21 |%+width%|:block%!|
|00003140| 31 36 3d 79 6d 69 6e 25 | 2b 68 65 69 67 68 74 25 |16=ymin%|+height%|
|00003150| 0d 11 9e 18 62 6c 6f 63 | 6b 25 21 32 30 3d 69 63 |....bloc|k%!20=ic|
|00003160| 6f 6e 66 6c 61 67 73 25 | 0d 11 a8 0d e7 20 64 31 |onflags%|..... d1|
|00003170| 25 3d 30 20 8c 0d 11 b2 | 18 20 20 24 28 62 6c 6f |%=0 ....|.  $(blo|
|00003180| 63 6b 25 2b 32 34 29 3d | 74 65 78 74 24 0d 11 bc |ck%+24)=|text$...|
|00003190| 07 20 20 cc 0d 11 c6 13 | 20 20 62 6c 6f 63 6b 25 |.  .....|  block%|
|000031a0| 21 32 34 3d 64 31 25 0d | 11 d0 13 20 20 62 6c 6f |!24=d1%.|...  blo|
|000031b0| 63 6b 25 21 32 38 3d 64 | 32 25 0d 11 da 13 20 20 |ck%!28=d|2%....  |
|000031c0| 62 6c 6f 63 6b 25 21 33 | 32 3d 64 33 25 0d 11 e4 |block%!3|2=d3%...|
|000031d0| 05 cd 0d 11 ee 2a c8 99 | 20 22 57 69 6d 70 5f 43 |.....*..| "Wimp_C|
|000031e0| 72 65 61 74 65 49 63 6f | 6e 22 2c 2c 62 6c 6f 63 |reateIco|n",,bloc|
|000031f0| 6b 25 20 b8 20 68 61 6e | 64 6c 65 25 0d 11 f8 0c |k% . han|dle%....|
|00003200| 3d 68 61 6e 64 6c 65 25 | 0d 12 02 05 3a 0d 12 0c |=handle%|....:...|
|00003210| 1b dd 20 f2 72 65 64 72 | 61 77 5f 69 63 6f 6e 28 |.. .redr|aw_icon(|
|00003220| 77 69 25 2c 69 63 25 29 | 0d 12 16 0f 21 62 6c 6f |wi%,ic%)|....!blo|
|00003230| 63 6b 25 3d 77 69 25 0d | 12 20 10 62 6c 6f 63 6b |ck%=wi%.|. .block|
|00003240| 25 21 34 3d 69 63 25 0d | 12 2a 0e 62 6c 6f 63 6b |%!4=ic%.|.*.block|
|00003250| 25 21 38 3d 30 0d 12 34 | 0f 62 6c 6f 63 6b 25 21 |%!8=0..4|.block%!|
|00003260| 31 32 3d 30 0d 12 3e 22 | c8 99 20 22 57 69 6d 70 |12=0..>"|.. "Wimp|
|00003270| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00003280| 62 6c 6f 63 6b 25 0d 12 | 48 2a 62 6c 6f 63 6b 25 |block%..|H*block%|
|00003290| 21 38 3d 30 3a 62 6c 6f | 63 6b 25 21 31 32 3d 77 |!8=0:blo|ck%!12=w|
|000032a0| 69 25 3a 62 6c 6f 63 6b | 25 21 31 36 3d 69 63 25 |i%:block|%!16=ic%|
|000032b0| 0d 12 52 05 e1 0d 12 5c | 05 3a 0d 12 66 21 dd 20 |..R....\|.:..f!. |
|000032c0| f2 69 63 6f 6e 5f 62 69 | 74 28 62 69 74 25 2c 77 |.icon_bi|t(bit%,w|
|000032d0| 69 25 2c 69 63 25 2c 6f | 6e 25 29 0d 12 70 0f 21 |i%,ic%,o|n%)..p.!|
|000032e0| 62 6c 6f 63 6b 25 3d 77 | 69 25 0d 12 7a 10 62 6c |block%=w|i%..z.bl|
|000032f0| 6f 63 6b 25 21 34 3d 69 | 63 25 0d 12 84 0c c8 8e |ock%!4=i|c%......|
|00003300| 20 6f 6e 25 20 ca 0d 12 | 8e 26 20 20 c9 20 b9 3a | on% ...|.&  . .:|
|00003310| 62 6c 6f 63 6b 25 21 38 | 3d 30 3a 62 6c 6f 63 6b |block%!8|=0:block|
|00003320| 25 21 31 32 3d 31 3c 3c | 62 69 74 25 0d 12 98 2c |%!12=1<<|bit%...,|
|00003330| 20 20 c9 20 a3 3a 62 6c | 6f 63 6b 25 21 38 3d 31 |  . .:bl|ock%!8=1|
|00003340| 3c 3c 62 69 74 25 3a 62 | 6c 6f 63 6b 25 21 31 32 |<<bit%:b|lock%!12|
|00003350| 3d 31 3c 3c 62 69 74 25 | 0d 12 a2 05 cb 0d 12 ac |=1<<bit%|........|
|00003360| 22 c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |".. "Wim|p_SetIco|
|00003370| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |nState",|,block%.|
|00003380| 12 b6 05 e1 0d 12 c0 05 | 3a 0d 12 ca 16 dd 20 f2 |........|:..... .|
|00003390| 73 65 6c 65 63 74 28 77 | 69 25 2c 69 63 25 29 0d |select(w|i%,ic%).|
|000033a0| 12 d4 0f 21 62 6c 6f 63 | 6b 25 3d 77 69 25 0d 12 |...!bloc|k%=wi%..|
|000033b0| de 10 62 6c 6f 63 6b 25 | 21 34 3d 69 63 25 0d 12 |..block%|!4=ic%..|
|000033c0| e8 12 62 6c 6f 63 6b 25 | 21 38 3d 31 3c 3c 32 31 |..block%|!8=1<<21|
|000033d0| 0d 12 f2 13 62 6c 6f 63 | 6b 25 21 31 32 3d 31 3c |....bloc|k%!12=1<|
|000033e0| 3c 32 31 0d 12 fc 22 c8 | 99 20 22 57 69 6d 70 5f |<21...".|. "Wimp_|
|000033f0| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |SetIconS|tate",,b|
|00003400| 6c 6f 63 6b 25 0d 13 06 | 05 e1 0d 13 10 05 3a 0d |lock%...|......:.|
|00003410| 13 1a 29 dd 20 f2 73 65 | 6c 65 63 74 61 62 6c 65 |..). .se|lectable|
|00003420| 28 77 69 25 2c 73 74 61 | 72 74 25 2c 66 69 6e 69 |(wi%,sta|rt%,fini|
|00003430| 73 68 25 2c 6f 6e 25 29 | 0d 13 24 09 ea 20 69 63 |sh%,on%)|..$.. ic|
|00003440| 25 0d 13 2e 1a e3 20 69 | 63 25 3d 73 74 61 72 74 |%..... i|c%=start|
|00003450| 25 20 b8 20 66 69 6e 69 | 73 68 25 0d 13 38 1f 20 |% . fini|sh%..8. |
|00003460| 20 f2 69 63 6f 6e 5f 62 | 69 74 28 32 32 2c 77 69 | .icon_b|it(22,wi|
|00003470| 25 2c 69 63 25 2c 6f 6e | 25 29 0d 13 42 09 ed 20 |%,ic%,on|%)..B.. |
|00003480| 69 63 25 0d 13 4c 05 e1 | 0d 13 56 05 3a 0d 13 60 |ic%..L..|..V.:..`|
|00003490| 18 dd 20 f2 64 65 73 65 | 6c 65 63 74 28 77 69 25 |.. .dese|lect(wi%|
|000034a0| 2c 69 63 25 29 0d 13 6a | 0f 21 62 6c 6f 63 6b 25 |,ic%)..j|.!block%|
|000034b0| 3d 77 69 25 0d 13 74 10 | 62 6c 6f 63 6b 25 21 34 |=wi%..t.|block%!4|
|000034c0| 3d 69 63 25 0d 13 7e 0e | 62 6c 6f 63 6b 25 21 38 |=ic%..~.|block%!8|
|000034d0| 3d 30 0d 13 88 15 62 6c | 6f 63 6b 25 21 31 32 3d |=0....bl|ock%!12=|
|000034e0| 28 31 3c 3c 32 31 29 0d | 13 92 22 c8 99 20 22 57 |(1<<21).|..".. "W|
|000034f0| 69 6d 70 5f 53 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_SetI|conState|
|00003500| 22 2c 2c 62 6c 6f 63 6b | 25 0d 13 9c 05 e1 0d 13 |",,block|%.......|
|00003510| a6 05 3a 0d 13 b0 16 dd | 20 f2 69 6e 76 65 72 74 |..:.....| .invert|
|00003520| 28 77 69 25 2c 69 63 25 | 29 0d 13 ba 40 e7 20 a4 |(wi%,ic%|)...@. .|
|00003530| 73 65 6c 65 63 74 65 64 | 28 77 69 25 2c 69 63 25 |selected|(wi%,ic%|
|00003540| 29 20 8c 20 f2 64 65 73 | 65 6c 65 63 74 28 77 69 |) . .des|elect(wi|
|00003550| 25 2c 69 63 25 29 20 8b | 20 f2 73 65 6c 65 63 74 |%,ic%) .| .select|
|00003560| 28 77 69 25 2c 69 63 25 | 29 0d 13 c4 05 e1 0d 13 |(wi%,ic%|).......|
|00003570| ce 05 3a 0d 13 d8 18 dd | 20 a4 73 65 6c 65 63 74 |..:.....| .select|
|00003580| 65 64 28 77 69 25 2c 69 | 63 25 29 0d 13 e2 1c 21 |ed(wi%,i|c%)....!|
|00003590| 62 6c 6f 63 6b 25 3d 77 | 69 25 3a 62 6c 6f 63 6b |block%=w|i%:block|
|000035a0| 25 21 34 3d 69 63 25 0d | 13 ec 22 c8 99 20 22 57 |%!4=ic%.|..".. "W|
|000035b0| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|000035c0| 22 2c 2c 62 6c 6f 63 6b | 25 0d 13 f6 1e 3d 28 28 |",,block|%....=((|
|000035d0| 62 6c 6f 63 6b 25 21 32 | 34 29 20 80 20 28 31 3c |block%!2|4) . (1<|
|000035e0| 3c 32 31 29 29 3e 30 0d | 14 00 05 3a 0d 14 0a 16 |<21))>0.|...:....|
|000035f0| dd 20 a4 73 68 61 64 65 | 64 28 77 69 25 2c 69 63 |. .shade|d(wi%,ic|
|00003600| 25 29 0d 14 14 1c 21 62 | 6c 6f 63 6b 25 3d 77 69 |%)....!b|lock%=wi|
|00003610| 25 3a 62 6c 6f 63 6b 25 | 21 34 3d 69 63 25 0d 14 |%:block%|!4=ic%..|
|00003620| 1e 22 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |.".. "Wi|mp_GetIc|
|00003630| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |onState"|,,block%|
|00003640| 0d 14 28 1e 3d 28 28 62 | 6c 6f 63 6b 25 21 32 34 |..(.=((b|lock%!24|
|00003650| 29 20 80 20 28 31 3c 3c | 32 32 29 29 3e 30 0d 14 |) . (1<<|22))>0..|
|00003660| 32 05 3b 0d 14 3c 1d dd | 20 a4 73 65 6c 65 63 74 |2.;..<..| .select|
|00003670| 65 64 5f 65 73 67 28 77 | 69 25 2c 65 73 67 25 29 |ed_esg(w|i%,esg%)|
|00003680| 0d 14 46 41 c8 99 20 22 | 57 69 6d 70 5f 57 68 69 |..FA.. "|Wimp_Whi|
|00003690| 63 68 49 63 6f 6e 22 2c | 77 69 25 2c 62 6c 6f 63 |chIcon",|wi%,bloc|
|000036a0| 6b 25 2c 26 30 30 33 46 | 30 30 30 30 2c 26 30 30 |k%,&003F|0000,&00|
|000036b0| 32 30 30 30 30 30 2b 28 | 65 73 67 25 3c 3c 31 36 |200000+(|esg%<<16|
|000036c0| 29 0d 14 50 0c 3d 21 62 | 6c 6f 63 6b 25 0d 14 5a |)..P.=!b|lock%..Z|
|000036d0| 05 3a 0d 14 64 24 dd 20 | a4 6e 65 78 74 5f 77 72 |.:..d$. |.next_wr|
|000036e0| 69 74 65 61 62 6c 65 28 | 77 69 25 2c 69 63 25 2c |iteable(|wi%,ic%,|
|000036f0| 64 25 2c 72 25 29 0d 14 | 6e 11 ea 20 50 25 2c 45 |d%,r%)..|n.. P%,E|
|00003700| 25 2c 6e 65 78 74 25 0d | 14 78 35 c8 99 20 22 57 |%,next%.|.x5.. "W|
|00003710| 69 6d 70 5f 57 68 69 63 | 68 49 63 6f 6e 22 2c 77 |imp_Whic|hIcon",w|
|00003720| 69 25 2c 62 6c 6f 63 6b | 25 2c 26 30 30 43 30 45 |i%,block|%,&00C0E|
|00003730| 30 30 30 2c 28 31 34 3c | 3c 31 32 29 0d 14 82 05 |000,(14<|<12)....|
|00003740| f5 0d 14 8c 0b 20 20 45 | 25 2b 3d 34 0d 14 96 12 |.....  E|%+=4....|
|00003750| fd 20 62 6c 6f 63 6b 25 | 21 45 25 3d 2d 31 0d 14 |. block%|!E%=-1..|
|00003760| a0 1d c8 95 20 62 6c 6f | 63 6b 25 21 50 25 3c 3e |.... blo|ck%!P%<>|
|00003770| 69 63 25 20 80 20 50 25 | 3c 45 25 0d 14 aa 0b 20 |ic% . P%|<E%.... |
|00003780| 20 50 25 2b 3d 34 0d 14 | b4 05 ce 0d 14 be 13 e7 | P%+=4..|........|
|00003790| 20 50 25 3d 45 25 20 8c | 20 50 25 2d 3d 34 0d 14 | P%=E% .| P%-=4..|
|000037a0| c8 18 e7 20 72 25 3d 31 | 20 80 20 50 25 2b 34 3d |... r%=1| . P%+4=|
|000037b0| 45 25 20 8c 3d b9 0d 14 | d2 0b c8 8e 20 64 25 20 |E% .=...|.... d% |
|000037c0| ca 0d 14 dc 0f 20 20 c9 | 20 30 3a 50 25 3d 45 25 |.....  .| 0:P%=E%|
|000037d0| 0d 14 e6 0f 20 20 c9 20 | 32 3a 50 25 3d 2d 34 0d |....  . |2:P%=-4.|
|000037e0| 14 f0 10 20 20 7f 3a 50 | 25 2b 3d 34 2a 64 25 0d |...  .:P|%+=4*d%.|
|000037f0| 14 fa 05 cb 0d 15 04 0b | c8 8e 20 50 25 20 ca 0d |........|.. P% ..|
|00003800| 15 0e 18 20 20 c9 20 45 | 25 3a 6e 65 78 74 25 3d |...  . E|%:next%=|
|00003810| 21 62 6c 6f 63 6b 25 0d | 15 18 1e 20 20 c9 20 2d |!block%.|...  . -|
|00003820| 34 3a 6e 65 78 74 25 3d | 62 6c 6f 63 6b 25 21 28 |4:next%=|block%!(|
|00003830| 45 25 2d 34 29 0d 15 22 | 17 20 20 7f 3a 6e 65 78 |E%-4).."|.  .:nex|
|00003840| 74 25 3d 62 6c 6f 63 6b | 25 21 50 25 0d 15 2c 05 |t%=block|%!P%..,.|
|00003850| cb 0d 15 36 19 f2 73 65 | 74 5f 63 61 72 65 74 28 |...6..se|t_caret(|
|00003860| 77 69 25 2c 6e 65 78 74 | 25 29 0d 15 40 06 3d a3 |wi%,next|%)..@.=.|
|00003870| 0d 15 4a 05 3a 0d 15 54 | 14 dd 20 a4 74 65 78 74 |..J.:..T|.. .text|
|00003880| 28 77 69 25 2c 69 63 25 | 29 0d 15 5e 1c 21 62 6c |(wi%,ic%|)..^.!bl|
|00003890| 6f 63 6b 25 3d 77 69 25 | 3a 62 6c 6f 63 6b 25 21 |ock%=wi%|:block%!|
|000038a0| 34 3d 69 63 25 0d 15 68 | 22 c8 99 20 22 57 69 6d |4=ic%..h|".. "Wim|
|000038b0| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|000038c0| 2c 62 6c 6f 63 6b 25 0d | 15 72 0e 3d 62 6c 6f 63 |,block%.|.r.=bloc|
|000038d0| 6b 25 21 32 38 0d 15 7c | 05 3a 0d 15 86 1b dd 20 |k%!28..||.:..... |
|000038e0| a4 74 65 78 74 5f 6c 65 | 6e 67 74 68 28 77 69 25 |.text_le|ngth(wi%|
|000038f0| 2c 69 63 25 29 0d 15 90 | 1c 21 62 6c 6f 63 6b 25 |,ic%)...|.!block%|
|00003900| 3d 77 69 25 3a 62 6c 6f | 63 6b 25 21 34 3d 69 63 |=wi%:blo|ck%!4=ic|
|00003910| 25 0d 15 9a 22 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%...".. |"Wimp_Ge|
|00003920| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6f |tIconSta|te",,blo|
|00003930| 63 6b 25 0d 15 a4 14 3d | a9 28 24 28 62 6c 6f 63 |ck%....=|.($(bloc|
|00003940| 6b 25 21 32 38 29 29 0d | 15 ae 05 3a 0d 15 b8 1d |k%!28)).|...:....|
|00003950| dd 20 f2 73 65 74 5f 63 | 61 72 65 74 28 68 61 6e |. .set_c|aret(han|
|00003960| 64 6c 65 25 2c 69 63 25 | 29 0d 15 c2 4b c8 99 20 |dle%,ic%|)...K.. |
|00003970| 22 57 69 6d 70 5f 53 65 | 74 43 61 72 65 74 50 6f |"Wimp_Se|tCaretPo|
|00003980| 73 69 74 69 6f 6e 22 2c | 68 61 6e 64 6c 65 25 2c |sition",|handle%,|
|00003990| 69 63 25 2c 30 2c 30 2c | 2d 31 2c a4 74 65 78 74 |ic%,0,0,|-1,.text|
|000039a0| 5f 6c 65 6e 67 74 68 28 | 68 61 6e 64 6c 65 25 2c |_length(|handle%,|
|000039b0| 69 63 25 29 0d 15 cc 05 | e1 0d 15 d6 05 3a 0d 15 |ic%)....|.....:..|
|000039c0| e0 1d dd 20 f2 61 6c 74 | 65 72 5f 66 6c 61 67 73 |... .alt|er_flags|
|000039d0| 28 64 66 67 25 2c 66 66 | 67 25 29 0d 15 ea 09 ea |(dfg%,ff|g%).....|
|000039e0| 20 69 63 25 0d 15 f4 12 | 21 62 6c 6f 63 6b 25 3d | ic%....|!block%=|
|000039f0| 6d 61 69 6e 57 25 0d 15 | fe 19 e3 20 69 63 25 3d |mainW%..|... ic%=|
|00003a00| 30 20 b8 20 66 69 65 6c | 64 73 25 2a 32 2d 31 0d |0 . fiel|ds%*2-1.|
|00003a10| 16 08 31 20 20 62 6c 6f | 63 6b 25 21 34 3d 69 63 |..1  blo|ck%!4=ic|
|00003a20| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |%:.. "Wi|mp_GetIc|
|00003a30| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |onState"|,,block%|
|00003a40| 0d 16 12 33 20 20 e7 20 | 28 69 63 25 20 83 20 32 |...3  . |(ic% . 2|
|00003a50| 29 3d 30 20 8c 20 62 6c | 6f 63 6b 25 21 38 3d 64 |)=0 . bl|ock%!8=d|
|00003a60| 66 67 25 20 8b 20 62 6c | 6f 63 6b 25 21 38 3d 66 |fg% . bl|ock%!8=f|
|00003a70| 66 67 25 0d 16 1c 19 20 | 20 62 6c 6f 63 6b 25 21 |fg%.... | block%!|
|00003a80| 31 32 3d 26 46 46 46 46 | 46 46 46 46 0d 16 26 24 |12=&FFFF|FFFF..&$|
|00003a90| 20 20 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 49 63 |  .. "Wi|mp_SetIc|
|00003aa0| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |onState"|,,block%|
|00003ab0| 0d 16 30 09 ed 20 69 63 | 25 0d 16 3a 05 e1 0d 16 |..0.. ic|%..:....|
|00003ac0| 44 05 3a 0d 16 4e 20 dd | 20 f2 64 63 6f 6c 6f 75 |D.:..N .| .dcolou|
|00003ad0| 72 28 77 69 25 2c 69 63 | 25 2c 63 6f 6c 25 2c 66 |r(wi%,ic|%,col%,f|
|00003ae0| 62 25 29 0d 16 58 3b 21 | 62 6c 6f 63 6b 25 3d 77 |b%)..X;!|block%=w|
|00003af0| 69 25 3a 62 6c 6f 63 6b | 25 21 34 3d 69 63 25 3a |i%:block|%!4=ic%:|
|00003b00| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00003b10| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 16 |State",,|block%..|
|00003b20| 62 0c c8 8e 20 66 62 25 | 20 ca 0d 16 6c 2f 20 20 |b... fb%| ...l/  |
|00003b30| c9 20 30 3a 62 6c 6f 63 | 6b 25 21 38 3d 63 6f 6c |. 0:bloc|k%!8=col|
|00003b40| 25 3c 3c 32 38 3a 62 6c | 6f 63 6b 25 21 31 32 3d |%<<28:bl|ock%!12=|
|00003b50| 26 46 30 30 30 30 30 30 | 30 0d 16 76 2f 20 20 c9 |&F000000|0..v/  .|
|00003b60| 20 31 3a 62 6c 6f 63 6b | 25 21 38 3d 63 6f 6c 25 | 1:block|%!8=col%|
|00003b70| 3c 3c 32 34 3a 62 6c 6f | 63 6b 25 21 31 32 3d 26 |<<24:blo|ck%!12=&|
|00003b80| 30 46 30 30 30 30 30 30 | 0d 16 80 05 cb 0d 16 8a |0F000000|........|
|00003b90| 22 c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |".. "Wim|p_SetIco|
|00003ba0| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |nState",|,block%.|
|00003bb0| 16 94 05 e1 0d 16 9e 05 | 3a 0d 16 a8 4b f4 20 2d |........|:...K. -|
|00003bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00003bd0| 45 6e 64 20 6f 66 20 49 | 63 6f 6e 2d 72 65 6c 61 |End of I|con-rela|
|00003be0| 74 65 64 20 72 6f 75 74 | 69 6e 65 73 20 2d 2d 2d |ted rout|ines ---|
|00003bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c00| 2d 2d 2d 2d 0d 16 b2 06 | 20 3a 0d 16 bc 06 20 3a |----....| :.... :|
|00003c10| 0d 16 c6 06 20 3a 0d 16 | d0 4c 20 f4 20 2d 2d 2d |.... :..|.L . ---|
|00003c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00003c30| 57 69 6e 64 6f 77 2d 72 | 65 6c 61 74 65 64 20 72 |Window-r|elated r|
|00003c40| 6f 75 74 69 6e 65 73 20 | 2d 2d 2d 2d 2d 2d 2d 2d |outines |--------|
|00003c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c60| 2d 2d 0d 16 da 06 20 3a | 0d 16 e4 16 20 dd 20 f2 |--.... :|.... . .|
|00003c70| 63 72 65 61 74 65 5f 77 | 69 6e 64 6f 77 73 0d 16 |create_w|indows..|
|00003c80| ee 36 20 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.6 .. "W|imp_Open|
|00003c90| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 22 3c 41 70 70 |Template|",,"<App|
|00003ca0| 6f 69 6e 74 24 44 69 72 | 3e 2e 54 65 6d 70 6c 61 |oint$Dir|>.Templa|
|00003cb0| 74 65 73 22 0d 16 f8 21 | 20 69 6e 66 6f 57 25 3d |tes"...!| infoW%=|
|00003cc0| a4 6e 65 77 5f 77 69 6e | 64 6f 77 28 22 69 6e 66 |.new_win|dow("inf|
|00003cd0| 6f 22 2c 31 29 0d 17 02 | 1e 20 24 a4 74 65 78 74 |o",1)...|. $.text|
|00003ce0| 28 69 6e 66 6f 57 25 2c | 37 29 3d 76 65 72 73 69 |(infoW%,|7)=versi|
|00003cf0| 6f 6e 24 0d 17 0c 21 20 | 24 a4 74 65 78 74 28 69 |on$...! |$.text(i|
|00003d00| 6e 66 6f 57 25 2c 38 29 | 3d 69 6e 74 76 65 72 73 |nfoW%,8)|=intvers|
|00003d10| 69 6f 6e 24 0d 17 16 3c | 20 6d 61 69 6e 57 25 3d |ion$...<| mainW%=|
|00003d20| a4 6e 65 77 5f 77 69 6e | 64 6f 77 28 22 6d 61 69 |.new_win|dow("mai|
|00003d30| 6e 22 2c 73 70 72 69 74 | 65 73 25 29 3a 64 61 74 |n",sprit|es%):dat|
|00003d40| 61 62 61 73 65 25 3d 62 | 6c 6f 63 6b 25 21 37 32 |abase%=b|lock%!72|
|00003d50| 0d 17 20 1a 20 4e 61 6d | 65 25 3d a4 74 65 78 74 |.. . Nam|e%=.text|
|00003d60| 28 6d 61 69 6e 57 25 2c | 38 29 0d 17 2a 1c 20 43 |(mainW%,|8)..*. C|
|00003d70| 6f 75 72 73 65 25 3d a4 | 74 65 78 74 28 6d 61 69 |ourse%=.|text(mai|
|00003d80| 6e 57 25 2c 39 29 0d 17 | 34 1c 20 54 75 74 6f 72 |nW%,9)..|4. Tutor|
|00003d90| 25 3d a4 74 65 78 74 28 | 6d 61 69 6e 57 25 2c 31 |%=.text(|mainW%,1|
|00003da0| 30 29 0d 17 3e 37 20 45 | 76 65 6e 74 44 61 74 65 |0)..>7 E|ventDate|
|00003db0| 25 3d a4 74 65 78 74 28 | 6d 61 69 6e 57 25 2c 35 |%=.text(|mainW%,5|
|00003dc0| 35 29 3a 24 45 76 65 6e | 74 44 61 74 65 25 3d 45 |5):$Even|tDate%=E|
|00003dd0| 76 65 6e 74 44 61 74 65 | 24 0d 17 48 3a 20 4d 61 |ventDate|$..H: Ma|
|00003de0| 74 68 53 63 69 4c 6f 63 | 25 3d a4 74 65 78 74 28 |thSciLoc|%=.text(|
|00003df0| 6d 61 69 6e 57 25 2c 35 | 36 29 3a 24 4d 61 74 68 |mainW%,5|6):$Math|
|00003e00| 53 63 69 4c 6f 63 25 3d | 4d 61 74 68 53 63 69 4c |SciLoc%=|MathSciL|
|00003e10| 6f 63 24 0d 17 52 2e 20 | 48 75 6d 4c 6f 63 25 3d |oc$..R. |HumLoc%=|
|00003e20| a4 74 65 78 74 28 6d 61 | 69 6e 57 25 2c 35 37 29 |.text(ma|inW%,57)|
|00003e30| 3a 24 48 75 6d 4c 6f 63 | 25 3d 48 75 6d 4c 6f 63 |:$HumLoc|%=HumLoc|
|00003e40| 24 0d 17 5c 0f 20 e3 20 | 49 25 3d 31 20 b8 20 35 |$..\. . |I%=1 . 5|
|00003e50| 0d 17 66 25 20 53 75 62 | 6a 65 63 74 25 28 49 25 |..f% Sub|ject%(I%|
|00003e60| 29 3d a4 74 65 78 74 28 | 6d 61 69 6e 57 25 2c 49 |)=.text(|mainW%,I|
|00003e70| 25 2b 31 30 29 0d 17 70 | 09 20 ed 20 49 25 0d 17 |%+10)..p|. . I%..|
|00003e80| 7a 1f 20 45 61 72 6c 69 | 65 73 74 25 3d a4 74 65 |z. Earli|est%=.te|
|00003e90| 78 74 28 6d 61 69 6e 57 | 25 2c 32 31 29 0d 17 84 |xt(mainW|%,21)...|
|00003ea0| 1d 20 4c 61 74 65 73 74 | 25 3d a4 74 65 78 74 28 |. Latest|%=.text(|
|00003eb0| 6d 61 69 6e 57 25 2c 32 | 32 29 0d 17 8e 1d 20 53 |mainW%,2|2).... S|
|00003ec0| 74 61 74 75 73 25 3d a4 | 74 65 78 74 28 6d 61 69 |tatus%=.|text(mai|
|00003ed0| 6e 57 25 2c 32 33 29 0d | 17 98 0f 20 e3 20 49 25 |nW%,23).|... . I%|
|00003ee0| 3d 31 20 b8 20 37 0d 17 | a2 23 20 53 74 61 66 66 |=1 . 7..|.# Staff|
|00003ef0| 25 28 49 25 29 3d a4 74 | 65 78 74 28 6d 61 69 6e |%(I%)=.t|ext(main|
|00003f00| 57 25 2c 49 25 2b 32 33 | 29 0d 17 ac 22 20 54 69 |W%,I%+23|)..." Ti|
|00003f10| 6d 65 25 28 49 25 29 3d | a4 74 65 78 74 28 6d 61 |me%(I%)=|.text(ma|
|00003f20| 69 6e 57 25 2c 49 25 2b | 33 30 29 0d 17 b6 09 20 |inW%,I%+|30).... |
|00003f30| ed 20 49 25 0d 17 c0 20 | 20 4b 65 79 73 74 72 69 |. I%... | Keystri|
|00003f40| 6e 67 25 3d a4 74 65 78 | 74 28 6d 61 69 6e 57 25 |ng%=.tex|t(mainW%|
|00003f50| 2c 34 36 29 0d 17 ca 3c | 20 61 63 63 65 73 73 57 |,46)...<| accessW|
|00003f60| 25 3d a4 6e 65 77 5f 77 | 69 6e 64 6f 77 28 22 61 |%=.new_w|indow("a|
|00003f70| 63 63 65 73 73 22 2c 31 | 29 3a 41 63 63 65 73 73 |ccess",1|):Access|
|00003f80| 54 69 74 6c 65 25 3d 62 | 6c 6f 63 6b 25 21 37 32 |Title%=b|lock%!72|
|00003f90| 0d 17 d4 20 20 50 61 73 | 73 77 6f 72 64 25 3d a4 |...  Pas|sword%=.|
|00003fa0| 74 65 78 74 28 61 63 63 | 65 73 73 57 25 2c 30 29 |text(acc|essW%,0)|
|00003fb0| 0d 17 de 3b 20 64 61 74 | 61 64 69 63 57 25 3d a4 |...; dat|adicW%=.|
|00003fc0| 6e 65 77 5f 77 69 6e 64 | 6f 77 28 22 64 61 74 61 |new_wind|ow("data|
|00003fd0| 64 69 63 22 2c 31 29 3a | 54 61 62 54 69 74 6c 65 |dic",1):|TabTitle|
|00003fe0| 25 3d 62 6c 6f 63 6b 25 | 21 37 32 0d 17 e8 2a 20 |%=block%|!72...* |
|00003ff0| 70 72 69 6e 74 57 25 3d | a4 6e 65 77 5f 77 69 6e |printW%=|.new_win|
|00004000| 64 6f 77 28 22 70 72 69 | 6e 74 22 2c 73 70 72 69 |dow("pri|nt",spri|
|00004010| 74 65 73 25 29 0d 17 f2 | 1e 20 f2 69 63 6f 6e 5f |tes%)...|. .icon_|
|00004020| 62 69 74 28 32 32 2c 70 | 72 69 6e 74 57 25 2c 33 |bit(22,p|rintW%,3|
|00004030| 2c a3 29 0d 17 fc 36 20 | 6c 69 73 74 57 25 3d a4 |,.)...6 |listW%=.|
|00004040| 6e 65 77 5f 77 69 6e 64 | 6f 77 28 22 6c 69 73 74 |new_wind|ow("list|
|00004050| 22 2c 31 29 3a 4c 69 73 | 74 54 69 74 6c 65 25 3d |",1):Lis|tTitle%=|
|00004060| 62 6c 6f 63 6b 25 21 37 | 32 0d 18 06 3b 20 73 61 |block%!7|2...; sa|
|00004070| 76 65 57 25 3d a4 6e 65 | 77 5f 77 69 6e 64 6f 77 |veW%=.ne|w_window|
|00004080| 28 22 73 61 76 65 22 2c | 31 29 3a 53 61 76 65 4c |("save",|1):SaveL|
|00004090| 69 73 74 25 3d a4 74 65 | 78 74 28 73 61 76 65 57 |ist%=.te|xt(saveW|
|000040a0| 25 2c 30 29 0d 18 10 25 | 20 70 72 6f 6d 70 74 57 |%,0)...%| promptW|
|000040b0| 25 3d a4 6e 65 77 5f 77 | 69 6e 64 6f 77 28 22 70 |%=.new_w|indow("p|
|000040c0| 72 6f 6d 70 74 22 2c 31 | 29 0d 18 1a 3f 20 6e 6f |rompt",1|)...? no|
|000040d0| 74 69 66 79 57 25 3d a4 | 6e 65 77 5f 77 69 6e 64 |tifyW%=.|new_wind|
|000040e0| 6f 77 28 22 6e 6f 74 69 | 66 79 22 2c 31 29 3a 4e |ow("noti|fy",1):N|
|000040f0| 6f 74 69 66 79 25 3d a4 | 74 65 78 74 28 6e 6f 74 |otify%=.|text(not|
|00004100| 69 66 79 57 25 2c 30 29 | 0d 18 24 3c 20 6d 61 6e |ifyW%,0)|..$< man|
|00004110| 75 61 6c 57 25 3d a4 6e | 65 77 5f 77 69 6e 64 6f |ualW%=.n|ew_windo|
|00004120| 77 28 22 6d 61 6e 75 61 | 6c 22 2c 31 29 3a 4d 61 |w("manua|l",1):Ma|
|00004130| 6e 75 61 6c 54 69 74 6c | 65 25 3d 62 6c 6f 63 6b |nualTitl|e%=block|
|00004140| 25 21 37 32 0d 18 2e 27 | 20 68 65 61 64 69 6e 67 |%!72...'| heading|
|00004150| 57 25 3d a4 6e 65 77 5f | 77 69 6e 64 6f 77 28 22 |W%=.new_|window("|
|00004160| 68 65 61 64 69 6e 67 22 | 2c 31 29 0d 18 38 27 20 |heading"|,1)..8' |
|00004170| 63 6f 6e 74 72 6f 6c 57 | 25 3d a4 6e 65 77 5f 77 |controlW|%=.new_w|
|00004180| 69 6e 64 6f 77 28 22 63 | 6f 6e 74 72 6f 6c 22 2c |indow("c|ontrol",|
|00004190| 31 29 0d 18 42 29 20 72 | 65 73 74 72 69 63 74 57 |1)..B) r|estrictW|
|000041a0| 25 3d a4 6e 65 77 5f 77 | 69 6e 64 6f 77 28 22 72 |%=.new_w|indow("r|
|000041b0| 65 73 74 72 69 63 74 22 | 2c 31 29 0d 18 4c 22 20 |estrict"|,1)..L" |
|000041c0| 73 74 61 74 57 25 3d a4 | 6e 65 77 5f 77 69 6e 64 |statW%=.|new_wind|
|000041d0| 6f 77 28 22 73 74 61 74 | 73 22 2c 31 29 0d 18 56 |ow("stat|s",1)..V|
|000041e0| 1d 20 4d 65 73 73 61 67 | 65 25 3d a4 74 65 78 74 |. Messag|e%=.text|
|000041f0| 28 73 74 61 74 57 25 2c | 30 29 0d 18 60 1b 20 54 |(statW%,|0)..`. T|
|00004200| 6f 74 61 6c 25 3d a4 74 | 65 78 74 28 73 74 61 74 |otal%=.t|ext(stat|
|00004210| 57 25 2c 31 29 0d 18 6a | 1e 20 53 75 62 74 6f 74 |W%,1)..j|. Subtot|
|00004220| 61 6c 25 3d a4 74 65 78 | 74 28 73 74 61 74 57 25 |al%=.tex|t(statW%|
|00004230| 2c 32 29 0d 18 74 1e 20 | 50 72 6f 62 6c 65 6d 73 |,2)..t. |Problems|
|00004240| 25 3d a4 74 65 78 74 28 | 73 74 61 74 57 25 2c 33 |%=.text(|statW%,3|
|00004250| 29 0d 18 7e 1c 20 c8 99 | 20 22 57 69 6d 70 5f 43 |)..~. ..| "Wimp_C|
|00004260| 6c 6f 73 65 54 65 6d 70 | 6c 61 74 65 22 0d 18 88 |loseTemp|late"...|
|00004270| 06 20 e1 0d 18 92 06 20 | 3a 0d 18 9c 10 dd 20 f2 |. ..... |:..... .|
|00004280| 72 65 70 6c 69 63 61 74 | 65 0d 18 a6 1d ea 20 49 |replicat|e..... I|
|00004290| 25 2c 4a 25 2c 72 61 6e | 67 65 25 2c 74 69 6d 65 |%,J%,ran|ge%,time|
|000042a0| 24 2c 65 73 67 25 0d 18 | b0 28 74 69 6d 65 24 3d |$,esg%..|.(time$=|
|000042b0| a4 73 74 72 69 6e 67 28 | 65 76 65 6e 69 6e 67 73 |.string(|evenings|
|000042c0| 74 61 72 74 25 2c 22 54 | 69 6d 65 73 22 29 0d 18 |tart%,"T|imes")..|
|000042d0| ba 0e e3 20 4a 25 3d 30 | 20 b8 20 36 0d 18 c4 1f |... J%=0| . 6....|
|000042e0| 20 20 24 a4 74 65 78 74 | 28 6d 61 6e 75 61 6c 57 |  $.text|(manualW|
|000042f0| 25 2c 4a 25 29 3d 74 69 | 6d 65 24 0d 18 ce 08 ed |%,J%)=ti|me$.....|
|00004300| 20 4a 25 0d 18 d8 24 72 | 61 6e 67 65 25 3d 65 76 | J%...$r|ange%=ev|
|00004310| 65 6e 69 6e 67 65 6e 64 | 25 2d 65 76 65 6e 69 6e |eningend|%-evenin|
|00004320| 67 73 74 61 72 74 25 0d | 18 e2 13 e3 20 49 25 3d |gstart%.|.... I%=|
|00004330| 30 20 b8 20 72 61 6e 67 | 65 25 0d 18 ec 27 e7 20 |0 . rang|e%...'. |
|00004340| 65 73 67 25 3c 33 30 20 | 8c 20 65 73 67 25 3d 28 |esg%<30 |. esg%=(|
|00004350| 65 73 67 25 2b 31 29 20 | 8b 20 65 73 67 25 3d 2d |esg%+1) |. esg%=-|
|00004360| 31 0d 18 f6 2d 74 69 6d | 65 24 3d a4 73 74 72 69 |1...-tim|e$=.stri|
|00004370| 6e 67 28 49 25 2b 65 76 | 65 6e 69 6e 67 73 74 61 |ng(I%+ev|eningsta|
|00004380| 72 74 25 2b 31 2c 22 54 | 69 6d 65 73 22 29 0d 19 |rt%+1,"T|imes")..|
|00004390| 00 10 20 20 e3 20 4a 25 | 3d 30 20 b8 20 36 0d 19 |..  . J%|=0 . 6..|
|000043a0| 0a 11 20 20 20 20 24 62 | 75 66 66 25 3d 22 22 0d |..    $b|uff%="".|
|000043b0| 19 14 43 20 20 20 20 21 | 62 6c 6f 63 6b 25 3d 6d |..C    !|block%=m|
|000043c0| 61 6e 75 61 6c 57 25 3a | 62 6c 6f 63 6b 25 21 34 |anualW%:|block%!4|
|000043d0| 3d 4a 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |=J%:.. "|Wimp_Get|
|000043e0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 6c 6f 63 |IconStat|e",,bloc|
|000043f0| 6b 25 0d 19 1e 20 20 20 | 20 20 62 6c 6f 63 6b 25 |k%...   |  block%|
|00004400| 3f 32 36 3d 62 6c 6f 63 | 6b 25 3f 32 36 2b 65 73 |?26=bloc|k%?26+es|
|00004410| 67 25 0d 19 28 77 20 20 | 20 20 68 61 6e 64 6c 65 |g%..(w  |  handle|
|00004420| 25 3d a4 63 72 65 61 74 | 65 5f 69 63 6f 6e 28 6d |%=.creat|e_icon(m|
|00004430| 61 6e 75 61 6c 57 25 2c | 62 6c 6f 63 6b 25 21 38 |anualW%,|block%!8|
|00004440| 2c 2d 49 25 2a 34 38 2d | 31 35 32 2c 62 6c 6f 63 |,-I%*48-|152,bloc|
|00004450| 6b 25 21 31 36 2d 62 6c | 6f 63 6b 25 21 38 2c 34 |k%!16-bl|ock%!8,4|
|00004460| 34 2c 62 6c 6f 63 6b 25 | 21 32 34 2c 22 22 2c 62 |4,block%|!24,"",b|
|00004470| 75 66 66 25 2c 62 6c 6f | 63 6b 25 21 33 32 2c 62 |uff%,blo|ck%!32,b|
|00004480| 6c 6f 63 6b 25 21 33 36 | 29 0d 19 32 26 20 20 20 |lock%!36|)..2&   |
|00004490| 20 24 a4 74 65 78 74 28 | 6d 61 6e 75 61 6c 57 25 | $.text(|manualW%|
|000044a0| 2c 68 61 6e 64 6c 65 25 | 29 3d 74 69 6d 65 24 0d |,handle%|)=time$.|
|000044b0| 19 3c 18 20 20 20 20 62 | 75 66 66 25 2b 3d 62 6c |.<.    b|uff%+=bl|
|000044c0| 6f 63 6b 25 21 33 36 0d | 19 46 0a 20 20 ed 20 4a |ock%!36.|.F.  . J|
|000044d0| 25 0d 19 50 08 ed 20 49 | 25 0d 19 5a 3e 21 62 6c |%..P.. I|%..Z>!bl|
|000044e0| 6f 63 6b 25 3d 30 3a 62 | 6c 6f 63 6b 25 21 34 3d |ock%=0:b|lock%!4=|
|000044f0| 2d 72 61 6e 67 65 25 2a | 34 38 2d 31 38 34 3a 62 |-range%*|48-184:b|
|00004500| 6c 6f 63 6b 25 21 38 3d | 37 33 32 3a 62 6c 6f 63 |lock%!8=|732:bloc|
|00004510| 6b 25 21 31 32 3d 30 0d | 19 64 27 c8 99 20 22 57 |k%!12=0.|.d'.. "W|
|00004520| 69 6d 70 5f 53 65 74 45 | 78 74 65 6e 74 22 2c 6d |imp_SetE|xtent",m|
|00004530| 61 6e 75 61 6c 57 25 2c | 62 6c 6f 63 6b 25 0d 19 |anualW%,|block%..|
|00004540| 6e 05 e1 0d 19 78 05 3a | 0d 19 82 1d 20 dd 20 a4 |n....x.:|.... . .|
|00004550| 6e 65 77 5f 77 69 6e 64 | 6f 77 28 6e 61 6d 65 24 |new_wind|ow(name$|
|00004560| 2c 73 70 25 29 0d 19 8c | 0e 20 ea 20 68 61 6e 64 |,sp%)...|. . hand|
|00004570| 6c 65 25 0d 19 96 47 20 | c8 99 20 22 57 69 6d 70 |le%...G |.. "Wimp|
|00004580| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|00004590| 62 6c 6f 63 6b 25 2c 62 | 75 66 66 25 2c 65 6e 64 |block%,b|uff%,end|
|000045a0| 62 75 66 66 25 2c 2d 31 | 2c 6e 61 6d 65 24 2c 30 |buff%,-1|,name$,0|
|000045b0| 20 b8 20 2c 2c 62 75 66 | 66 25 0d 19 a0 12 20 62 | . ,,buf|f%.... b|
|000045c0| 6c 6f 63 6b 25 21 36 34 | 3d 73 70 25 0d 19 aa 2d |lock%!64|=sp%...-|
|000045d0| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|000045e0| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6f 63 6b 25 20 |Window",|,block% |
|000045f0| b8 20 68 61 6e 64 6c 65 | 25 0d 19 b4 0d 20 3d 68 |. handle|%.... =h|
|00004600| 61 6e 64 6c 65 25 0d 19 | be 06 20 3a 0d 19 c8 14 |andle%..|.. :....|
|00004610| 20 dd 20 f2 73 68 6f 77 | 5f 77 69 6e 64 6f 77 73 | . .show|_windows|
|00004620| 0d 19 d2 19 20 f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |.... .op|en_windo|
|00004630| 77 28 6d 61 69 6e 57 25 | 29 0d 19 dc 06 20 e1 0d |w(mainW%|).... ..|
|00004640| 19 e6 06 20 3a 0d 19 f0 | 1d 20 dd 20 f2 6f 70 65 |... :...|. . .ope|
|00004650| 6e 5f 77 69 6e 64 6f 77 | 28 77 68 61 6e 64 6c 65 |n_window|(whandle|
|00004660| 25 29 0d 19 fa 16 20 62 | 6c 6f 63 6b 25 21 30 3d |%).... b|lock%!0=|
|00004670| 77 68 61 6e 64 6c 65 25 | 0d 1a 04 25 20 c8 99 20 |whandle%|...% .. |
|00004680| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00004690| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 0d 1a 0e |tate",,b|lock%...|
|000046a0| 11 20 62 6c 6f 63 6b 25 | 21 32 38 3d 2d 31 0d 1a |. block%|!28=-1..|
|000046b0| 18 21 20 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.! .. "W|imp_Open|
|000046c0| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6f 63 6b 25 0d |Window",|,block%.|
|000046d0| 1a 22 06 20 e1 0d 1a 2c | 06 20 3a 0d 1a 36 15 20 |.". ...,|. :..6. |
|000046e0| dd 20 f2 70 65 72 66 6f | 72 6d 5f 63 6c 6f 73 65 |. .perfo|rm_close|
|000046f0| 0d 1a 40 1b 20 f2 63 6c | 6f 73 65 5f 77 69 6e 64 |..@. .cl|ose_wind|
|00004700| 6f 77 28 21 62 6c 6f 63 | 6b 25 29 0d 1a 4a 11 20 |ow(!bloc|k%)..J. |
|00004710| c8 8e 20 21 62 6c 6f 63 | 6b 25 20 ca 0d 1a 54 1d |.. !bloc|k% ...T.|
|00004720| 20 20 20 c9 20 6d 61 69 | 6e 57 25 3a f2 68 69 64 |   . mai|nW%:.hid|
|00004730| 65 5f 77 69 6e 64 6f 77 | 73 0d 1a 5e 12 20 20 20 |e_window|s..^.   |
|00004740| c9 20 6d 61 6e 75 61 6c | 57 25 3a 0d 1a 68 21 20 |. manual|W%:..h! |
|00004750| 20 20 20 20 f2 63 6c 6f | 73 65 5f 77 69 6e 64 6f |    .clo|se_windo|
|00004760| 77 28 68 65 61 64 69 6e | 67 57 25 29 0d 1a 72 21 |w(headin|gW%)..r!|
|00004770| 20 20 20 20 20 f2 63 6c | 6f 73 65 5f 77 69 6e 64 |     .cl|ose_wind|
|00004780| 6f 77 28 63 6f 6e 74 72 | 6f 6c 57 25 29 0d 1a 7c |ow(contr|olW%)..||
|00004790| 1d 20 20 20 20 20 f2 64 | 65 73 65 6c 65 63 74 28 |.     .d|eselect(|
|000047a0| 6d 61 69 6e 57 25 2c 35 | 31 29 0d 1a 86 06 20 cb |mainW%,5|1).... .|
|000047b0| 0d 1a 90 06 20 e1 0d 1a | 9a 06 20 3a 0d 1a a4 14 |.... ...|.. :....|
|000047c0| 20 dd 20 f2 68 69 64 65 | 5f 77 69 6e 64 6f 77 73 | . .hide|_windows|
|000047d0| 0d 1a ae 1a 20 f2 63 6c | 6f 73 65 5f 77 69 6e 64 |.... .cl|ose_wind|
|000047e0| 6f 77 28 6d 61 69 6e 57 | 25 29 0d 1a b8 1d 20 f2 |ow(mainW|%).... .|
|000047f0| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 64 61 74 |close_wi|ndow(dat|
|00004800| 61 64 69 63 57 25 29 0d | 1a c2 1a 20 f2 63 6c 6f |adicW%).|... .clo|
|00004810| 73 65 5f 77 69 6e 64 6f | 77 28 6c 69 73 74 57 25 |se_windo|w(listW%|
|00004820| 29 0d 1a cc 1c 20 f2 63 | 6c 6f 73 65 5f 77 69 6e |).... .c|lose_win|
|00004830| 64 6f 77 28 6e 6f 74 69 | 66 79 57 25 29 0d 1a d6 |dow(noti|fyW%)...|
|00004840| 1c 20 f2 63 6c 6f 73 65 | 5f 77 69 6e 64 6f 77 28 |. .close|_window(|
|00004850| 6d 61 6e 75 61 6c 57 25 | 29 0d 1a e0 1d 20 f2 63 |manualW%|).... .c|
|00004860| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 68 65 61 64 |lose_win|dow(head|
|00004870| 69 6e 67 57 25 29 0d 1a | ea 1d 20 f2 63 6c 6f 73 |ingW%)..|.. .clos|
|00004880| 65 5f 77 69 6e 64 6f 77 | 28 63 6f 6e 74 72 6f 6c |e_window|(control|
|00004890| 57 25 29 0d 1a f4 1a 20 | f2 63 6c 6f 73 65 5f 77 |W%).... |.close_w|
|000048a0| 69 6e 64 6f 77 28 73 74 | 61 74 57 25 29 0d 1a fe |indow(st|atW%)...|
|000048b0| 19 20 f2 64 65 73 65 6c | 65 63 74 28 6d 61 69 6e |. .desel|ect(main|
|000048c0| 57 25 2c 35 31 29 0d 1b | 08 06 20 e1 0d 1b 12 06 |W%,51)..|.. .....|
|000048d0| 20 3a 0d 1b 1c 1e 20 dd | 20 f2 63 6c 6f 73 65 5f | :.... .| .close_|
|000048e0| 77 69 6e 64 6f 77 28 77 | 68 61 6e 64 6c 65 25 29 |window(w|handle%)|
|000048f0| 0d 1b 26 15 20 21 62 6c | 6f 63 6b 25 3d 77 68 61 |..&. !bl|ock%=wha|
|00004900| 6e 64 6c 65 25 0d 1b 30 | 22 20 c8 99 20 22 57 69 |ndle%..0|" .. "Wi|
|00004910| 6d 70 5f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 22 2c |mp_Close|Window",|
|00004920| 2c 62 6c 6f 63 6b 25 0d | 1b 3a 06 20 e1 0d 1b 44 |,block%.|.:. ...D|
|00004930| 06 20 3a 0d 1b 4e 17 20 | dd 20 f2 72 65 64 72 61 |. :..N. |. .redra|
|00004940| 77 28 68 61 6e 64 6c 65 | 25 29 0d 1b 58 14 20 21 |w(handle|%)..X. !|
|00004950| 62 6c 6f 63 6b 25 3d 68 | 61 6e 64 6c 65 25 0d 1b |block%=h|andle%..|
|00004960| 62 2b 20 c8 99 20 22 57 | 69 6d 70 5f 52 65 64 72 |b+ .. "W|imp_Redr|
|00004970| 61 77 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |awWindow|",,block|
|00004980| 25 20 b8 20 6d 6f 72 65 | 25 0d 1b 6c 20 20 f2 67 |% . more|%..l  .g|
|00004990| 65 74 5f 6f 72 69 67 69 | 6e 28 62 6c 6f 63 6b 25 |et_origi|n(block%|
|000049a0| 2c 78 30 25 2c 79 30 25 | 29 0d 1b 76 0d 20 c8 95 |,x0%,y0%|)..v. ..|
|000049b0| 20 6d 6f 72 65 25 0d 1b | 80 15 20 20 20 f2 64 72 | more%..|..   .dr|
|000049c0| 61 77 28 78 30 25 2c 79 | 30 25 29 0d 1b 8a 43 20 |aw(x0%,y|0%)...C |
|000049d0| 20 20 e7 20 68 61 6e 64 | 6c 65 25 3c 3e 64 61 74 |  . hand|le%<>dat|
|000049e0| 61 64 69 63 57 25 20 8c | 20 c8 99 20 22 49 6e 74 |adicW% .| .. "Int|
|000049f0| 65 72 66 61 63 65 5f 52 | 65 6e 64 65 72 33 64 57 |erface_R|ender3dW|
|00004a00| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 25 0d 1b |indow",,|block%..|
|00004a10| 94 2d 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 47 65 |.-   .. |"Wimp_Ge|
|00004a20| 74 52 65 63 74 61 6e 67 | 6c 65 22 2c 2c 62 6c 6f |tRectang|le",,blo|
|00004a30| 63 6b 25 20 b8 20 6d 6f | 72 65 25 0d 1b 9e 06 20 |ck% . mo|re%.... |
|00004a40| ce 0d 1b a8 06 20 e1 0d | 1b b2 06 20 3a 0d 1b bc |..... ..|... :...|
|00004a50| 26 20 dd 20 f2 67 65 74 | 5f 6f 72 69 67 69 6e 28 |& . .get|_origin(|
|00004a60| 62 6c 6f 63 6b 25 2c f8 | 20 78 30 25 2c f8 20 79 |block%,.| x0%,. y|
|00004a70| 30 25 29 0d 1b c6 1b 20 | 78 30 25 3d 62 6c 6f 63 |0%).... |x0%=bloc|
|00004a80| 6b 25 21 34 2d 62 6c 6f | 63 6b 25 21 32 30 0d 1b |k%!4-blo|ck%!20..|
|00004a90| d0 1c 20 79 30 25 3d 62 | 6c 6f 63 6b 25 21 31 36 |.. y0%=b|lock%!16|
|00004aa0| 2d 62 6c 6f 63 6b 25 21 | 32 34 0d 1b da 06 20 e1 |-block%!|24.... .|
|00004ab0| 0d 1b e4 06 20 3a 0d 1b | ee 15 20 dd 20 f2 64 72 |.... :..|.. . .dr|
|00004ac0| 61 77 28 78 30 25 2c 79 | 30 25 29 0d 1b f8 21 20 |aw(x0%,y|0%)...! |
|00004ad0| ea 20 54 65 78 74 50 74 | 72 25 2c 79 31 25 2c 79 |. TextPt|r%,y1%,y|
|00004ae0| 32 25 2c 49 25 2c 63 68 | 61 72 73 25 0d 1c 02 11 |2%,I%,ch|ars%....|
|00004af0| 20 c8 8e 20 68 61 6e 64 | 6c 65 25 20 ca 0d 1c 0c | .. hand|le% ....|
|00004b00| 0f 20 20 20 c9 20 6c 69 | 73 74 57 25 0d 1c 16 1b |.   . li|stW%....|
|00004b10| 20 20 20 79 31 25 3d 2d | 28 62 6c 6f 63 6b 25 21 |   y1%=-|(block%!|
|00004b20| 34 30 2d 79 30 25 29 0d | 1c 20 1b 20 20 20 79 32 |40-y0%).|. .   y2|
|00004b30| 25 3d 2d 28 62 6c 6f 63 | 6b 25 21 33 32 2d 79 30 |%=-(bloc|k%!32-y0|
|00004b40| 25 29 0d 1c 2a 15 20 20 | 20 79 31 25 3d 79 31 25 |%)..*.  | y1%=y1%|
|00004b50| 20 81 20 33 32 2b 31 0d | 1c 34 15 20 20 20 79 32 | . 32+1.|.4.   y2|
|00004b60| 25 3d 79 32 25 20 81 20 | 33 32 2b 31 0d 1c 3e 2f |%=y2% . |32+1..>/|
|00004b70| 20 20 20 54 65 78 74 50 | 74 72 25 3d 28 21 74 65 |   TextP|tr%=(!te|
|00004b80| 78 74 61 6e 63 68 6f 72 | 25 29 2b 28 79 31 25 2d |xtanchor|%)+(y1%-|
|00004b90| 31 29 2a 4c 65 6e 4c 69 | 6e 65 25 0d 1c 48 20 20 |1)*LenLi|ne%..H  |
|00004ba0| 20 20 e7 20 79 32 25 3e | 43 6f 75 6e 74 25 20 8c |  . y2%>|Count% .|
|00004bb0| 20 79 32 25 3d 43 6f 75 | 6e 74 25 0d 1c 52 15 20 | y2%=Cou|nt%..R. |
|00004bc0| 20 20 e3 20 49 25 3d 79 | 31 25 20 b8 20 79 32 25 |  . I%=y|1% . y2%|
|00004bd0| 0d 1c 5c 17 20 20 20 20 | 20 f2 64 72 61 77 5f 6c |..\.    | .draw_l|
|00004be0| 69 6e 65 28 49 25 29 0d | 1c 66 1b 20 20 20 20 20 |ine(I%).|.f.     |
|00004bf0| 54 65 78 74 50 74 72 25 | 2b 3d 4c 65 6e 4c 69 6e |TextPtr%|+=LenLin|
|00004c00| 65 25 0d 1c 70 0b 20 20 | 20 ed 20 49 25 0d 1c 7a |e%..p.  | . I%..z|
|00004c10| 06 20 cb 0d 1c 84 06 20 | e1 0d 1c 8e 06 20 3a 0d |. ..... |..... :.|
|00004c20| 1c 98 18 20 dd 20 f2 64 | 72 61 77 5f 6c 69 6e 65 |... . .d|raw_line|
|00004c30| 28 4c 69 6e 65 25 29 0d | 1c a2 18 20 e7 20 54 65 |(Line%).|... . Te|
|00004c40| 78 74 50 74 72 25 3f 31 | 3d 31 32 20 8c 20 e1 0d |xtPtr%?1|=12 . ..|
|00004c50| 1c ac 1d 20 ec 20 78 30 | 25 2c 79 30 25 2d 28 4c |... . x0|%,y0%-(L|
|00004c60| 69 6e 65 25 2d 31 29 2a | 33 32 2d 34 0d 1c b6 25 |ine%-1)*|32-4...%|
|00004c70| 20 c8 99 20 22 4f 53 5f | 57 72 69 74 65 4e 22 2c | .. "OS_|WriteN",|
|00004c80| 54 65 78 74 50 74 72 25 | 2c 4c 65 6e 4c 69 6e 65 |TextPtr%|,LenLine|
|00004c90| 25 0d 1c c0 06 20 e1 0d | 1c ca 06 20 3a 0d 1c d4 |%.... ..|... :...|
|00004ca0| 14 20 dd 20 f2 75 70 64 | 61 74 65 5f 70 61 6e 65 |. . .upd|ate_pane|
|00004cb0| 73 0d 1c de 09 20 ea 20 | 49 25 0d 1c e8 39 20 21 |s.... . |I%...9 !|
|00004cc0| 62 6c 6f 63 6b 32 25 3d | 68 65 61 64 69 6e 67 57 |block2%=|headingW|
|00004cd0| 25 3a c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |%:.. "Wi|mp_GetWi|
|00004ce0| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 62 6c 6f 63 |ndowStat|e",,bloc|
|00004cf0| 6b 32 25 0d 1c f2 39 20 | 21 62 6c 6f 63 6b 33 25 |k2%...9 |!block3%|
|00004d00| 3d 63 6f 6e 74 72 6f 6c | 57 25 3a c8 99 20 22 57 |=control|W%:.. "W|
|00004d10| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00004d20| 74 65 22 2c 2c 62 6c 6f | 63 6b 33 25 0d 1c fc 14 |te",,blo|ck3%....|
|00004d30| 20 e3 20 49 25 3d 34 20 | b8 20 32 30 20 88 20 34 | . I%=4 |. 20 . 4|
|00004d40| 0d 1d 06 30 20 20 20 62 | 6c 6f 63 6b 32 25 21 49 |...0   b|lock2%!I|
|00004d50| 25 3d 62 6c 6f 63 6b 25 | 21 49 25 3a 62 6c 6f 63 |%=block%|!I%:bloc|
|00004d60| 6b 33 25 21 49 25 3d 62 | 6c 6f 63 6b 25 21 49 25 |k3%!I%=b|lock%!I%|
|00004d70| 0d 1d 10 09 20 ed 20 49 | 25 0d 1d 1a 30 20 62 6c |.... . I|%...0 bl|
|00004d80| 6f 63 6b 32 25 21 38 3d | 62 6c 6f 63 6b 25 21 31 |ock2%!8=|block%!1|
|00004d90| 36 2d 37 32 3a 62 6c 6f | 63 6b 32 25 21 32 38 3d |6-72:blo|ck2%!28=|
|00004da0| 62 6c 6f 63 6b 25 21 32 | 38 0d 1d 24 30 20 62 6c |block%!2|8..$0 bl|
|00004db0| 6f 63 6b 33 25 21 31 36 | 3d 62 6c 6f 63 6b 25 21 |ock3%!16|=block%!|
|00004dc0| 38 2b 37 32 3a 62 6c 6f | 63 6b 33 25 21 32 38 3d |8+72:blo|ck3%!28=|
|00004dd0| 68 65 61 64 69 6e 67 57 | 25 0d 1d 2e 18 20 62 6c |headingW|%.... bl|
|00004de0| 6f 63 6b 25 21 32 38 3d | 63 6f 6e 74 72 6f 6c 57 |ock%!28=|controlW|
|00004df0| 25 0d 1d 38 22 20 c8 99 | 20 22 57 69 6d 70 5f 4f |%..8" ..| "Wimp_O|
|00004e00| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |penWindo|w",,bloc|
|00004e10| 6b 32 25 0d 1d 42 22 20 | c8 99 20 22 57 69 6d 70 |k2%..B" |.. "Wimp|
|00004e20| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 6c |_OpenWin|dow",,bl|
|00004e30| 6f 63 6b 33 25 0d 1d 4c | 21 20 c8 99 20 22 57 69 |ock3%..L|! .. "Wi|
|00004e40| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|00004e50| 62 6c 6f 63 6b 25 0d 1d | 56 1e 20 e7 20 75 70 5f |block%..|V. . up_|
|00004e60| 70 65 6e 64 25 20 8c 20 | 75 70 5f 70 65 6e 64 25 |pend% . |up_pend%|
|00004e70| 3d a3 3a e1 0d 1d 60 25 | 20 c8 99 20 22 57 69 6d |=.:...`%| .. "Wim|
|00004e80| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00004e90| 22 2c 2c 62 6c 6f 63 6b | 25 0d 1d 6a 37 20 e7 20 |",,block|%..j7 . |
|00004ea0| 28 62 6c 6f 63 6b 25 21 | 33 32 20 80 20 28 31 3c |(block%!|32 . (1<|
|00004eb0| 3c 31 38 29 29 20 8c 20 | 75 70 5f 70 65 6e 64 25 |<18)) . |up_pend%|
|00004ec0| 3d b9 3a f2 75 70 64 61 | 74 65 5f 70 61 6e 65 73 |=.:.upda|te_panes|
|00004ed0| 0d 1d 74 06 20 e1 0d 1d | 7e 06 20 3a 0d 1d 88 4d |..t. ...|~. :...M|
|00004ee0| 20 f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | . -----|--------|
|00004ef0| 2d 2d 2d 2d 2d 20 45 6e | 64 20 6f 66 20 57 69 6e |----- En|d of Win|
|00004f00| 64 6f 77 2d 72 65 6c 61 | 74 65 64 20 72 6f 75 74 |dow-rela|ted rout|
|00004f10| 69 6e 65 73 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ines----|--------|
|00004f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 1d 92 06 20 3a 0d |--------|-.... :.|
|00004f30| 1d 9c 06 20 3a 0d 1d a6 | 06 20 3a 0d 1d b0 4c 20 |... :...|. :...L |
|00004f40| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00004f50| 2d 2d 2d 2d 2d 2d 2d 20 | 4d 6f 75 73 65 2d 63 6c |------- |Mouse-cl|
|00004f60| 69 63 6b 20 70 72 6f 63 | 65 73 73 69 6e 67 20 2d |ick proc|essing -|
|00004f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004f80| 2d 2d 2d 2d 2d 2d 2d 0d | 1d ba 06 20 3a 0d 1d c4 |-------.|... :...|
|00004f90| 1f 20 dd 20 f2 6d 6f 75 | 73 65 28 78 25 2c 79 25 |. . .mou|se(x%,y%|
|00004fa0| 2c 62 25 2c 77 69 25 2c | 69 63 25 29 0d 1d ce 13 |,b%,wi%,|ic%)....|
|00004fb0| 20 e7 20 28 62 25 20 80 | 20 32 29 3d a3 20 8c 0d | . (b% .| 2)=. ..|
|00004fc0| 1d d8 45 20 20 20 21 62 | 6c 6f 63 6b 25 3d 78 25 |..E   !b|lock%=x%|
|00004fd0| 3a 62 6c 6f 63 6b 25 21 | 34 3d 79 25 3a 62 6c 6f |:block%!|4=y%:blo|
|00004fe0| 63 6b 25 21 38 3d 62 25 | 3a 62 6c 6f 63 6b 25 21 |ck%!8=b%|:block%!|
|00004ff0| 31 32 3d 77 69 25 3a 62 | 6c 6f 63 6b 25 21 31 36 |12=wi%:b|lock%!16|
|00005000| 3d 69 63 25 0d 1d e2 28 | 20 20 20 c8 99 20 22 49 |=ic%...(|   .. "I|
|00005010| 6e 74 65 72 66 61 63 65 | 5f 53 6c 61 62 42 75 74 |nterface|_SlabBut|
|00005020| 74 6f 6e 22 2c 2c 62 6c | 6f 63 6b 25 0d 1d ec 06 |ton",,bl|ock%....|
|00005030| 20 cd 0d 1d f6 0d 20 c8 | 8e 20 77 69 25 20 ca 0d | ..... .|. wi% ..|
|00005040| 1e 00 1a 20 20 20 c9 20 | 2d 32 3a f2 69 63 6f 6e |...   . |-2:.icon|
|00005050| 62 61 72 5f 63 6c 69 63 | 6b 0d 1e 0a 08 20 20 20 |bar_clic|k....   |
|00005060| cd 0d 1e 14 24 20 20 20 | c9 20 6d 61 69 6e 57 25 |....$   |. mainW%|
|00005070| 3a f2 6d 61 69 6e 5f 63 | 6c 69 63 6b 28 77 69 25 |:.main_c|lick(wi%|
|00005080| 2c 69 63 25 29 0d 1e 1e | 23 20 20 20 c9 20 61 63 |,ic%)...|#   . ac|
|00005090| 63 65 73 73 57 25 3a 61 | 63 63 65 73 73 62 75 74 |cessW%:a|ccessbut|
|000050a0| 74 6f 6e 25 3d 69 63 25 | 0d 1e 28 26 20 20 20 c9 |ton%=ic%|..(&   .|
|000050b0| 20 70 72 69 6e 74 57 25 | 3a f2 70 72 69 6e 74 5f | printW%|:.print_|
|000050c0| 63 6c 69 63 6b 28 77 69 | 25 2c 69 63 25 29 0d 1e |click(wi|%,ic%)..|
|000050d0| 32 1b 20 20 20 c9 20 6c | 69 73 74 57 25 3a f2 6c |2.   . l|istW%:.l|
|000050e0| 69 73 74 5f 63 6c 69 63 | 6b 0d 1e 3c 24 20 20 20 |ist_clic|k..<$   |
|000050f0| c9 20 73 61 76 65 57 25 | 3a f2 73 61 76 65 5f 63 |. saveW%|:.save_c|
|00005100| 6c 69 63 6b 28 77 69 25 | 2c 69 63 25 29 0d 1e 46 |lick(wi%|,ic%)..F|
|00005110| 2a 20 20 20 c9 20 64 61 | 74 61 64 69 63 57 25 3a |*   . da|tadicW%:|
|00005120| f2 64 61 74 61 64 69 63 | 5f 63 6c 69 63 6b 28 77 |.datadic|_click(w|
|00005130| 69 25 2c 69 63 25 29 0d | 1e 50 29 20 20 20 c9 20 |i%,ic%).|.P)   . |
|00005140| 63 6f 6e 74 72 6f 6c 57 | 25 3a f2 66 69 6e 61 6c |controlW|%:.final|
|00005150| 69 73 65 5f 6d 61 6e 75 | 61 6c 28 52 45 43 25 29 |ise_manu|al(REC%)|
|00005160| 0d 1e 5a 2c 20 20 20 c9 | 20 72 65 73 74 72 69 63 |..Z,   .| restric|
|00005170| 74 57 25 3a c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |tW%:.. "|Wimp_Cre|
|00005180| 61 74 65 4d 65 6e 75 22 | 2c 2c 2d 31 0d 1e 64 06 |ateMenu"|,,-1..d.|
|00005190| 20 cb 0d 1e 6e 2b 20 62 | 6c 6f 63 6b 25 21 38 3d | ...n+ b|lock%!8=|
|000051a0| 30 3a 62 6c 6f 63 6b 25 | 21 31 32 3d 77 69 25 3a |0:block%|!12=wi%:|
|000051b0| 62 6c 6f 63 6b 25 21 31 | 36 3d 69 63 25 0d 1e 78 |block%!1|6=ic%..x|
|000051c0| 26 20 c8 99 20 22 49 6e | 74 65 72 66 61 63 65 5f |& .. "In|terface_|
|000051d0| 53 6c 61 62 42 75 74 74 | 6f 6e 22 2c 2c 62 6c 6f |SlabButt|on",,blo|
|000051e0| 63 6b 25 0d 1e 82 06 20 | e1 0d 1e 8c 06 20 3a 0d |ck%.... |..... :.|
|000051f0| 1e 96 15 20 dd 20 f2 69 | 63 6f 6e 62 61 72 5f 63 |... . .i|conbar_c|
|00005200| 6c 69 63 6b 0d 1e a0 0c | 20 c8 8e 20 62 25 20 ca |lick....| .. b% .|
|00005210| 0d 1e aa 2b 20 20 20 c9 | 20 32 3a f2 73 68 6f 77 |...+   .| 2:.show|
|00005220| 5f 6d 65 6e 75 28 6d 65 | 6e 75 25 28 30 29 2c 78 |_menu(me|nu%(0),x|
|00005230| 25 2d 36 34 2c 79 62 61 | 72 25 29 0d 1e b4 40 20 |%-64,yba|r%)...@ |
|00005240| 20 20 c9 20 34 3a e7 20 | 70 72 65 73 65 6e 74 25 |  . 4:. |present%|
|00005250| 3d 37 20 8c 20 f2 73 68 | 6f 77 5f 77 69 6e 64 6f |=7 . .sh|ow_windo|
|00005260| 77 73 20 8b 20 f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |ws . .op|en_windo|
|00005270| 77 28 70 72 6f 6d 70 74 | 57 25 29 0d 1e be 27 20 |w(prompt|W%)...' |
|00005280| 20 20 e7 20 6c 69 73 74 | 65 64 25 20 8c 20 f2 6f |  . list|ed% . .o|
|00005290| 70 65 6e 5f 77 69 6e 64 | 6f 77 28 6c 69 73 74 57 |pen_wind|ow(listW|
|000052a0| 25 29 0d 1e c8 06 20 cb | 0d 1e d2 06 20 e1 0d 1e |%).... .|.... ...|
|000052b0| dc 06 20 3a 0d 1e e6 1b | 20 dd 20 f2 6d 61 69 6e |.. :....| . .main|
|000052c0| 5f 63 6c 69 63 6b 28 77 | 69 25 2c 69 63 25 29 0d |_click(w|i%,ic%).|
|000052d0| 1e f0 0c 20 ea 20 7a 25 | 2c 5a 25 0d 1e fa 17 20 |... . z%|,Z%.... |
|000052e0| e7 20 4d 61 6b 69 6e 67 | 41 70 70 74 73 25 20 8c |. Making|Appts% .|
|000052f0| 20 e1 0d 1f 04 1d 20 61 | 70 70 74 68 61 6e 64 6c | ..... a|ppthandl|
|00005300| 65 25 3d ad 28 61 70 70 | 74 66 69 6c 65 24 29 0d |e%=.(app|tfile$).|
|00005310| 1f 0e 18 20 f2 77 72 69 | 74 65 5f 61 70 70 28 5a |... .wri|te_app(Z|
|00005320| 25 2c 52 45 43 25 29 0d | 1f 18 1d 20 f2 63 6c 6f |%,REC%).|... .clo|
|00005330| 73 65 5f 66 69 6c 65 28 | 61 70 70 74 68 61 6e 64 |se_file(|appthand|
|00005340| 6c 65 25 29 0d 1f 22 0f | 20 e7 20 5a 25 3e 30 20 |le%)..".| . Z%>0 |
|00005350| 8c 20 e1 0d 1f 2c 13 20 | c8 8e 20 62 25 20 80 20 |. ...,. |.. b% . |
|00005360| 25 31 31 31 20 ca 0d 1f | 36 0b 20 20 20 c9 20 32 |%111 ...|6.   . 2|
|00005370| 3a 0d 1f 40 1c 20 20 20 | f2 63 6c 6f 73 65 5f 77 |:..@.   |.close_w|
|00005380| 69 6e 64 6f 77 28 73 74 | 61 74 57 25 29 0d 1f 4a |indow(st|atW%)..J|
|00005390| 27 20 20 20 f2 73 68 6f | 77 5f 6d 65 6e 75 28 6d |'   .sho|w_menu(m|
|000053a0| 65 6e 75 25 28 31 29 2c | 78 25 2d 36 34 2c 79 25 |enu%(1),|x%-64,y%|
|000053b0| 2b 31 36 29 0d 1f 54 0d | 20 20 20 c9 20 31 2c 34 |+16)..T.|   . 1,4|
|000053c0| 3a 0d 1f 5e 25 20 20 20 | e7 20 28 62 25 20 80 20 |:..^%   |. (b% . |
|000053d0| 25 31 31 31 29 3d 34 20 | 8c 20 7a 25 3d 31 20 8b |%111)=4 |. z%=1 .|
|000053e0| 20 7a 25 3d 2d 31 0d 1f | 68 0f 20 20 20 c8 8e 20 | z%=-1..|h.   .. |
|000053f0| 69 63 25 20 ca 0d 1f 72 | 27 20 20 20 20 20 c9 20 |ic% ...r|'     . |
|00005400| 34 30 3a 61 64 64 72 3d | a4 6d 6f 76 65 74 6f 28 |40:addr=|.moveto(|
|00005410| 6b 65 79 25 2c 74 6f 70 | 2c 7a 25 29 0d 1f 7c 2b |key%,top|,z%)..|+|
|00005420| 20 20 20 20 20 c9 20 34 | 31 3a 61 64 64 72 3d a4 |     . 4|1:addr=.|
|00005430| 66 61 73 74 5f 77 69 6e | 64 28 74 6f 70 2c 61 64 |fast_win|d(top,ad|
|00005440| 64 72 2c 2d 7a 25 29 0d | 1f 86 29 20 20 20 20 20 |dr,-z%).|..)     |
|00005450| c9 20 34 32 3a 61 64 64 | 72 3d a4 6d 6f 76 65 74 |. 42:add|r=.movet|
|00005460| 6f 28 6b 65 79 25 2c 61 | 64 64 72 2c 2d 7a 25 29 |o(key%,a|ddr,-z%)|
|00005470| 0d 1f 90 28 20 20 20 20 | 20 c9 20 34 33 3a 61 64 |...(    | . 43:ad|
|00005480| 64 72 3d a4 6d 6f 76 65 | 74 6f 28 6b 65 79 25 2c |dr=.move|to(key%,|
|00005490| 61 64 64 72 2c 7a 25 29 | 0d 1f 9a 2a 20 20 20 20 |addr,z%)|...*    |
|000054a0| 20 c9 20 34 34 3a 61 64 | 64 72 3d a4 66 61 73 74 | . 44:ad|dr=.fast|
|000054b0| 5f 77 69 6e 64 28 74 6f | 70 2c 61 64 64 72 2c 7a |_wind(to|p,addr,z|
|000054c0| 25 29 0d 1f a4 28 20 20 | 20 20 20 c9 20 34 35 3a |%)...(  |   . 45:|
|000054d0| 61 64 64 72 3d a4 6d 6f | 76 65 74 6f 28 6b 65 79 |addr=.mo|veto(key|
|000054e0| 25 2c 74 6f 70 2c 2d 7a | 25 29 0d 1f ae 0e 20 20 |%,top,-z|%)....  |
|000054f0| 20 20 20 c9 20 34 37 3a | 0d 1f b8 1b 20 20 20 20 |   . 47:|....    |
|00005500| 20 e7 20 24 4b 65 79 73 | 74 72 69 6e 67 25 3d 22 | . $Keys|tring%="|
|00005510| 22 20 8c 0d 1f c2 20 20 | 20 20 20 20 20 20 f2 73 |" ....  |      .s|
|00005520| 65 74 5f 63 61 72 65 74 | 28 6d 61 69 6e 57 25 2c |et_caret|(mainW%,|
|00005530| 34 36 29 0d 1f cc 29 20 | 20 20 20 20 20 20 cc 20 |46)...) |      . |
|00005540| 61 64 64 72 3d a4 66 69 | 6e 64 28 24 4b 65 79 73 |addr=.fi|nd($Keys|
|00005550| 74 72 69 6e 67 25 2c 6b | 65 79 25 29 0d 1f d6 0a |tring%,k|ey%)....|
|00005560| 20 20 20 20 20 cd 0d 1f | e0 1c 20 20 20 20 20 c9 |     ...|..     .|
|00005570| 20 34 38 3a f2 73 68 6f | 77 5f 74 61 62 6c 65 28 | 48:.sho|w_table(|
|00005580| 30 29 0d 1f ea 14 20 20 | 20 20 20 c9 20 34 39 2c |0)....  |   . 49,|
|00005590| 35 30 2c 35 34 3a 0d 1f | f4 22 20 20 20 20 20 c8 |50,54:..|."     .|
|000055a0| 8e 20 a4 73 65 6c 65 63 | 74 65 64 5f 65 73 67 28 |. .selec|ted_esg(|
|000055b0| 77 69 25 2c 31 29 20 ca | 0d 1f fe 16 20 20 20 20 |wi%,1) .|....    |
|000055c0| 20 20 20 c9 20 34 39 3a | 6b 65 79 25 3d 30 0d 20 |   . 49:|key%=0. |
|000055d0| 08 16 20 20 20 20 20 20 | 20 c9 20 35 34 3a 6b 65 |..      | . 54:ke|
|000055e0| 79 25 3d 31 0d 20 12 16 | 20 20 20 20 20 20 20 c9 |y%=1. ..|       .|
|000055f0| 20 35 30 3a 6b 65 79 25 | 3d 32 0d 20 1c 0a 20 20 | 50:key%|=2. ..  |
|00005600| 20 20 20 cb 0d 20 26 21 | 20 20 20 20 20 61 64 64 |   .. &!|     add|
|00005610| 72 3d a4 6d 6f 76 65 74 | 6f 28 6b 65 79 25 2c 74 |r=.movet|o(key%,t|
|00005620| 6f 70 2c 31 29 0d 20 30 | 0e 20 20 20 20 20 c9 20 |op,1). 0|.     . |
|00005630| 35 31 3a 0d 20 3a 20 20 | 20 20 20 20 e7 20 ac 20 |51:. :  |    . . |
|00005640| a4 73 65 6c 65 63 74 65 | 64 28 77 69 25 2c 35 31 |.selecte|d(wi%,51|
|00005650| 29 20 8c 0d 20 44 22 20 | 20 20 20 20 20 20 f2 63 |) .. D" |      .c|
|00005660| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 6d 61 6e 75 |lose_win|dow(manu|
|00005670| 61 6c 57 25 29 0d 20 4e | 23 20 20 20 20 20 20 20 |alW%). N|#       |
|00005680| f2 63 6c 6f 73 65 5f 77 | 69 6e 64 6f 77 28 68 65 |.close_w|indow(he|
|00005690| 61 64 69 6e 67 57 25 29 | 0d 20 58 23 20 20 20 20 |adingW%)|. X#    |
|000056a0| 20 20 20 f2 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |   .clos|e_window|
|000056b0| 28 63 6f 6e 74 72 6f 6c | 57 25 29 0d 20 62 0a 20 |(control|W%). b. |
|000056c0| 20 20 20 20 cd 0d 20 6c | 19 20 20 20 20 20 c9 20 |    .. l|.     . |
|000056d0| 35 33 3a f2 75 6e 64 6f | 28 52 45 43 25 29 0d 20 |53:.undo|(REC%). |
|000056e0| 76 08 20 20 20 cb 0d 20 | 80 06 20 cb 0d 20 8a 28 |v.   .. |.. .. .(|
|000056f0| 20 e7 20 a4 73 65 6c 65 | 63 74 65 64 28 77 69 25 | . .sele|cted(wi%|
|00005700| 2c 35 31 29 20 8c 20 f2 | 6d 61 6e 75 61 6c 28 52 |,51) . .|manual(R|
|00005710| 45 43 25 29 0d 20 94 06 | 20 e1 0d 20 9e 05 3a 0d |EC%). ..| .. ..:.|
|00005720| 20 a8 1a dd 20 a4 66 61 | 73 74 5f 77 69 6e 64 28 | ... .fa|st_wind(|
|00005730| 54 25 2c 50 25 2c 44 25 | 29 0d 20 b2 08 ea 20 49 |T%,P%,D%|). ... I|
|00005740| 25 0d 20 bc 0c 66 61 73 | 74 25 3d 31 30 0d 20 c6 |%. ..fas|t%=10. .|
|00005750| 11 44 25 3d 28 44 25 2b | 31 29 20 81 20 32 0d 20 |.D%=(D%+|1) . 2. |
|00005760| d0 18 c8 95 20 50 25 3c | 3e 54 25 20 80 20 49 25 |.... P%<|>T% . I%|
|00005770| 3c 66 61 73 74 25 0d 20 | da 1f 20 20 50 25 3d a4 |<fast%. |..  P%=.|
|00005780| 6e 65 69 67 68 62 6f 75 | 72 28 6b 65 79 25 2c 50 |neighbou|r(key%,P|
|00005790| 25 2c 44 25 29 0d 20 e4 | 0b 20 20 49 25 2b 3d 31 |%,D%). .|.  I%+=1|
|000057a0| 0d 20 ee 05 ce 0d 20 f8 | 2d e7 20 50 25 3d 54 25 |. .... .|-. P%=T%|
|000057b0| 20 8c 20 ef 20 37 3a 50 | 25 3d a4 6e 65 69 67 68 | . . 7:P|%=.neigh|
|000057c0| 62 6f 75 72 28 6b 65 79 | 25 2c 50 25 2c 31 2d 44 |bour(key|%,P%,1-D|
|000057d0| 25 29 0d 21 02 15 f2 64 | 69 73 70 6c 61 79 28 6b |%).!...d|isplay(k|
|000057e0| 65 79 25 2c 50 25 29 0d | 21 0c 07 3d 50 25 0d 21 |ey%,P%).|!..=P%.!|
|000057f0| 16 06 20 3a 0d 21 20 1c | 20 dd 20 f2 70 72 69 6e |.. :.! .| . .prin|
|00005800| 74 5f 63 6c 69 63 6b 28 | 77 69 25 2c 69 63 25 29 |t_click(|wi%,ic%)|
|00005810| 0d 21 2a 1d 20 ea 20 6b | 65 79 25 2c 73 74 61 72 |.!*. . k|ey%,star|
|00005820| 74 25 2c 65 6e 64 25 2c | 66 24 2c 66 25 0d 21 34 |t%,end%,|f$,f%.!4|
|00005830| 0d 20 c8 8e 20 69 63 25 | 20 ca 0d 21 3e 33 20 20 |. .. ic%| ..!>3  |
|00005840| 20 c9 20 30 2c 31 2c 32 | 3a f2 69 63 6f 6e 5f 62 | . 0,1,2|:.icon_b|
|00005850| 69 74 28 32 32 2c 77 69 | 25 2c 33 2c a4 73 65 6c |it(22,wi|%,3,.sel|
|00005860| 65 63 74 65 64 28 77 69 | 25 2c 31 29 29 0d 21 48 |ected(wi|%,1)).!H|
|00005870| 19 20 20 20 c9 20 34 3a | f2 73 68 6f 77 5f 74 61 |.   . 4:|.show_ta|
|00005880| 62 6c 65 28 32 29 0d 21 | 52 0b 20 20 20 c9 20 37 |ble(2).!|R.   . 7|
|00005890| 3a 0d 21 5c 20 20 20 20 | c8 8e 20 a4 73 65 6c 65 |:.!\    |.. .sele|
|000058a0| 63 74 65 64 5f 65 73 67 | 28 77 69 25 2c 32 29 20 |cted_esg|(wi%,2) |
|000058b0| ca 0d 21 66 1a 20 20 20 | 20 20 c9 20 35 3a 66 24 |..!f.   |  . 5:f$|
|000058c0| 3d 22 70 72 69 6e 74 65 | 72 3a 22 0d 21 70 32 20 |="printe|r:".!p2 |
|000058d0| 20 20 20 20 c9 20 36 3a | 66 24 3d 24 64 61 74 61 |    . 6:|f$=$data|
|000058e0| 62 61 73 65 25 2b 22 2e | 50 72 69 6e 74 4a 6f 62 |base%+".|PrintJob|
|000058f0| 73 2e 41 70 70 74 5f 22 | 3a 66 25 3d b9 0d 21 7a |s.Appt_"|:f%=..!z|
|00005900| 08 20 20 20 cb 0d 21 84 | 20 20 20 20 c8 8e 20 a4 |.   ..!.|    .. .|
|00005910| 73 65 6c 65 63 74 65 64 | 5f 65 73 67 28 77 69 25 |selected|_esg(wi%|
|00005920| 2c 31 29 20 ca 0d 21 8e | 0d 20 20 20 20 20 c9 20 |,1) ..!.|.     . |
|00005930| 30 3a 0d 21 98 2d 20 20 | 20 20 20 6b 6c 25 3d 35 |0:.!.-  |   kl%=5|
|00005940| 3a 6b 65 79 25 3d 30 3a | 76 61 6c 24 3d 22 22 3a |:key%=0:|val$="":|
|00005950| 4b 45 59 24 3d a4 6b 65 | 79 28 6b 65 79 25 29 0d |KEY$=.ke|y(key%).|
|00005960| 21 a2 24 20 20 20 20 20 | 73 74 61 72 74 25 3d a4 |!.$     |start%=.|
|00005970| 73 65 61 72 63 68 28 4b | 45 59 24 2c 6b 65 79 25 |search(K|EY$,key%|
|00005980| 2c 31 29 0d 21 ac 27 20 | 20 20 20 20 65 6e 64 25 |,1).!.' |    end%|
|00005990| 3d a4 6e 65 69 67 68 62 | 6f 75 72 28 6b 65 79 25 |=.neighb|our(key%|
|000059a0| 2c 73 74 61 72 74 25 2c | 31 29 0d 21 b6 18 20 20 |,start%,|1).!..  |
|000059b0| 20 20 20 e7 20 66 25 20 | 8c 20 66 24 2b 3d 4b 45 |   . f% |. f$+=KE|
|000059c0| 59 24 0d 21 c0 0d 20 20 | 20 20 20 c9 20 31 3a 0d |Y$.!..  |   . 1:.|
|000059d0| 21 ca 1f 20 20 20 20 20 | 54 75 74 24 3d 24 a4 74 |!..     |Tut$=$.t|
|000059e0| 65 78 74 28 70 72 69 6e | 74 57 25 2c 33 29 0d 21 |ext(prin|tW%,3).!|
|000059f0| d4 15 20 20 20 20 20 e7 | 20 54 75 74 24 3c 3e 22 |..     .| Tut$<>"|
|00005a00| 22 20 8c 0d 21 de 1a 20 | 20 20 20 20 20 20 e7 20 |" ..!.. |      . |
|00005a10| 66 25 20 8c 20 66 24 2b | 3d 54 75 74 24 0d 21 e8 |f% . f$+|=Tut$.!.|
|00005a20| 1f 20 20 20 20 20 20 20 | 6b 6c 25 3d 33 3a 6b 65 |.       |kl%=3:ke|
|00005a30| 79 25 3d 31 3a 76 61 6c | 24 3d 22 22 0d 21 f2 30 |y%=1:val|$="".!.0|
|00005a40| 20 20 20 20 20 20 20 73 | 74 61 72 74 25 3d a4 73 |       s|tart%=.s|
|00005a50| 65 61 72 63 68 28 54 75 | 74 24 2c 6b 65 79 25 2c |earch(Tu|t$,key%,|
|00005a60| 31 29 3a 50 25 3d 73 74 | 61 72 74 25 0d 21 fc 14 |1):P%=st|art%.!..|
|00005a70| 20 20 20 20 20 20 20 e7 | 20 50 25 3e 3d 30 20 8c |       .| P%>=0 .|
|00005a80| 0d 22 06 0e 20 20 20 20 | 20 20 20 20 20 f5 0d 22 |."..    |     .."|
|00005a90| 10 27 20 20 20 20 20 20 | 20 20 20 20 20 50 25 3d |.'      |     P%=|
|00005aa0| a4 6e 65 69 67 68 62 6f | 75 72 28 6b 65 79 25 2c |.neighbo|ur(key%,|
|00005ab0| 50 25 2c 31 29 0d 22 1a | 2e 20 20 20 20 20 20 20 |P%,1).".|.       |
|00005ac0| 20 20 20 20 69 6e 66 6f | 24 3d 24 28 21 6b 65 79 |    info|$=$(!key|
|00005ad0| 61 6e 63 68 6f 72 25 28 | 6b 65 79 25 29 2b 50 25 |anchor%(|key%)+P%|
|00005ae0| 2b 38 29 0d 22 24 1a 20 | 20 20 20 20 20 20 20 20 |+8)."$. |        |
|00005af0| fd 20 69 6e 66 6f 24 3c | 3e 54 75 74 24 0d 22 2e |. info$<|>Tut$.".|
|00005b00| 14 20 20 20 20 20 20 20 | 20 20 65 6e 64 25 3d 50 |.       |  end%=P|
|00005b10| 25 0d 22 38 41 20 20 20 | 20 20 20 20 20 20 cc 20 |%."8A   |      . |
|00005b20| 85 20 6d 6f 61 6e 5f 65 | 72 72 25 2c 54 75 74 24 |. moan_e|rr%,Tut$|
|00005b30| 2b 22 20 69 73 20 6e 6f | 74 20 61 20 76 61 6c 69 |+" is no|t a vali|
|00005b40| 64 20 74 75 74 6f 72 20 | 63 6f 64 65 22 2b bd 28 |d tutor |code"+.(|
|00005b50| 30 29 0d 22 42 0c 20 20 | 20 20 20 20 20 cd 0d 22 |0)."B.  |     .."|
|00005b60| 4c 1b 20 20 20 20 20 20 | 20 cc 20 f2 73 68 6f 77 |L.      | . .show|
|00005b70| 5f 74 61 62 6c 65 28 32 | 29 0d 22 56 0a 20 20 20 |_table(2|)."V.   |
|00005b80| 20 20 cd 0d 22 60 0d 20 | 20 20 20 20 c9 20 32 3a |  .."`. |    . 2:|
|00005b90| 0d 22 6a 19 20 20 20 20 | 20 e7 20 66 25 20 8c 20 |."j.    | . f% . |
|00005ba0| 66 24 2b 3d 22 41 4c 4c | 22 0d 22 74 1d 20 20 20 |f$+="ALL|"."t.   |
|00005bb0| 20 20 6b 6c 25 3d 33 3a | 6b 65 79 25 3d 31 3a 76 |  kl%=3:|key%=1:v|
|00005bc0| 61 6c 24 3d 22 22 0d 22 | 7e 2f 20 20 20 20 20 73 |al$=""."|~/     s|
|00005bd0| 74 61 72 74 25 3d a4 6e | 65 69 67 68 62 6f 75 72 |tart%=.n|eighbour|
|00005be0| 28 6b 65 79 25 2c 74 6f | 70 2c 31 29 3a 65 6e 64 |(key%,to|p,1):end|
|00005bf0| 25 3d 74 6f 70 0d 22 88 | 08 20 20 20 cb 0d 22 92 |%=top.".|.   ..".|
|00005c00| 28 20 20 20 f2 70 72 69 | 6e 74 5f 73 6c 69 70 73 |(   .pri|nt_slips|
|00005c10| 28 66 24 2c 73 74 61 72 | 74 25 2c 65 6e 64 25 2c |(f$,star|t%,end%,|
|00005c20| 6b 65 79 25 29 0d 22 9c | 25 20 20 20 e7 20 66 25 |key%).".|%   . f%|
|00005c30| 20 8c 20 c8 99 20 22 4f | 53 5f 46 69 6c 65 22 2c | . .. "O|S_File",|
|00005c40| 31 38 2c 66 24 2c 26 66 | 66 34 0d 22 a6 1f 20 20 |18,f$,&f|f4."..  |
|00005c50| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|00005c60| 4d 65 6e 75 22 2c 2c 2d | 31 0d 22 b0 06 20 cb 0d |Menu",,-|1.".. ..|
|00005c70| 22 ba 06 20 e1 0d 22 c4 | 06 20 3a 0d 22 ce 12 20 |".. ..".|. :.".. |
|00005c80| dd 20 f2 6c 69 73 74 5f | 63 6c 69 63 6b 0d 22 d8 |. .list_|click.".|
|00005c90| 2d 20 e7 20 62 25 3d 32 | 20 8c 20 f2 73 68 6f 77 |- . b%=2| . .show|
|00005ca0| 5f 6d 65 6e 75 28 73 61 | 76 65 57 25 2c 78 25 2d |_menu(sa|veW%,x%-|
|00005cb0| 31 32 38 2c 79 25 2d 34 | 38 29 0d 22 e2 10 20 6c |128,y%-4|8).".. l|
|00005cc0| 69 73 74 74 79 70 65 25 | 3d 31 0d 22 ec 06 20 e1 |isttype%|=1.".. .|
|00005cd0| 0d 22 f6 06 20 3a 0d 23 | 00 1b 20 dd 20 f2 73 61 |.".. :.#|.. . .sa|
|00005ce0| 76 65 5f 63 6c 69 63 6b | 28 77 69 25 2c 69 63 25 |ve_click|(wi%,ic%|
|00005cf0| 29 0d 23 0a 09 20 ea 20 | 48 24 0d 23 14 34 20 53 |).#.. . |H$.#.4 S|
|00005d00| 74 61 72 74 25 3d 21 74 | 65 78 74 61 6e 63 68 6f |tart%=!t|extancho|
|00005d10| 72 25 3a 45 6e 64 25 3d | 53 74 61 72 74 25 2b 43 |r%:End%=|Start%+C|
|00005d20| 6f 75 6e 74 25 2a 4c 65 | 6e 4c 69 6e 65 25 0d 23 |ount%*Le|nLine%.#|
|00005d30| 1e 24 20 46 69 6c 65 6e | 61 6d 65 24 3d 24 53 61 |.$ Filen|ame$=$Sa|
|00005d40| 76 65 4c 69 73 74 25 3a | 54 79 70 65 25 3d 26 46 |veList%:|Type%=&F|
|00005d50| 46 46 0d 23 28 0d 20 c8 | 8e 20 69 63 25 20 ca 0d |FF.#(. .|. ic% ..|
|00005d60| 23 32 37 20 20 20 c9 20 | 31 3a e7 20 28 62 25 20 |#27   . |1:. (b% |
|00005d70| 80 20 25 31 31 31 31 30 | 30 30 30 29 3e 30 20 8c |. %11110|000)>0 .|
|00005d80| 20 f2 69 6e 69 74 5f 64 | 72 61 67 28 77 69 25 2c | .init_d|rag(wi%,|
|00005d90| 69 63 25 2c 35 29 0d 23 | 3c 0b 20 20 20 c9 20 32 |ic%,5).#|<.   . 2|
|00005da0| 3a 0d 23 46 1c 20 20 20 | e7 20 a7 46 69 6c 65 6e |:.#F.   |. .Filen|
|00005db0| 61 6d 65 24 2c 22 2e 22 | 29 3e 30 20 8c 0d 23 50 |ame$,"."|)>0 ..#P|
|00005dc0| 2b 20 20 20 20 20 f2 73 | 61 76 65 28 46 69 6c 65 |+     .s|ave(File|
|00005dd0| 6e 61 6d 65 24 2c 54 79 | 70 65 25 2c 53 74 61 72 |name$,Ty|pe%,Star|
|00005de0| 74 25 2c 45 6e 64 25 29 | 0d 23 5a 21 20 20 20 20 |t%,End%)|.#Z!    |
|00005df0| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|00005e00| 4d 65 6e 75 22 2c 2c 2d | 31 0d 23 64 68 20 20 20 |Menu",,-|1.#dh   |
|00005e10| 20 20 cc 20 f2 77 69 6d | 70 5f 65 72 72 6f 72 28 |  . .wim|p_error(|
|00005e20| b9 2c 6d 6f 61 6e 5f 65 | 72 72 25 2c 30 2c 22 4e |.,moan_e|rr%,0,"N|
|00005e30| 6f 20 70 61 74 68 6e 61 | 6d 65 2e 20 44 72 61 67 |o pathna|me. Drag|
|00005e40| 20 74 68 65 20 66 69 6c | 65 20 69 63 6f 6e 20 74 | the fil|e icon t|
|00005e50| 6f 20 61 20 64 69 72 65 | 63 74 6f 72 79 20 76 69 |o a dire|ctory vi|
|00005e60| 65 77 65 72 20 74 6f 20 | 73 61 76 65 20 69 74 22 |ewer to |save it"|
|00005e70| 29 0d 23 6e 08 20 20 20 | cd 0d 23 78 06 20 cb 0d |).#n.   |..#x. ..|
|00005e80| 23 82 06 20 e1 0d 23 8c | 06 20 3a 0d 23 96 1e 20 |#.. ..#.|. :.#.. |
|00005e90| dd 20 f2 64 61 74 61 64 | 69 63 5f 63 6c 69 63 6b |. .datad|ic_click|
|00005ea0| 28 77 69 25 2c 69 63 25 | 29 0d 23 a0 13 20 c8 8e |(wi%,ic%|).#.. ..|
|00005eb0| 20 62 25 20 80 20 25 31 | 31 31 20 ca 0d 23 aa 0b | b% . %1|11 ..#..|
|00005ec0| 20 20 20 c9 20 34 3a 0d | 23 b4 39 20 20 20 21 62 |   . 4:.|#.9   !b|
|00005ed0| 6c 6f 63 6b 25 3d 64 61 | 74 61 64 69 63 57 25 3a |lock%=da|tadicW%:|
|00005ee0| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|00005ef0| 6f 77 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |owState"|,,block%|
|00005f00| 0d 23 be 5a 20 20 20 e7 | 20 41 63 63 65 73 73 25 |.#.Z   .| Access%|
|00005f10| 20 8c 20 c8 99 20 22 57 | 69 6d 70 5f 53 65 74 43 | . .. "W|imp_SetC|
|00005f20| 61 72 65 74 50 6f 73 69 | 74 69 6f 6e 22 2c 64 61 |aretPosi|tion",da|
|00005f30| 74 61 64 69 63 57 25 2c | 69 63 25 2c 78 25 2d 62 |tadicW%,|ic%,x%-b|
|00005f40| 6c 6f 63 6b 25 21 34 2b | 62 6c 6f 63 6b 25 21 32 |lock%!4+|block%!2|
|00005f50| 30 2c 79 25 2c 2d 31 2c | 2d 31 0d 23 c8 2b 20 20 |0,y%,-1,|-1.#.+  |
|00005f60| 20 c9 20 32 3a f2 73 68 | 6f 77 5f 6d 65 6e 75 28 | . 2:.sh|ow_menu(|
|00005f70| 6d 65 6e 75 25 28 32 29 | 2c 78 25 2d 36 34 2c 79 |menu%(2)|,x%-64,y|
|00005f80| 25 2d 32 30 29 0d 23 d2 | 06 20 cb 0d 23 dc 06 20 |%-20).#.|. ..#.. |
|00005f90| e1 0d 23 e6 06 20 3a 0d | 23 f0 20 20 dd 20 f2 73 |..#.. :.|#.  . .s|
|00005fa0| 61 76 65 28 66 24 2c 66 | 74 25 2c 73 74 61 72 74 |ave(f$,f|t%,start|
|00005fb0| 25 2c 65 6e 64 25 29 0d | 23 fa 28 20 c8 99 20 22 |%,end%).|#.( .. "|
|00005fc0| 4f 53 5f 46 69 6c 65 22 | 2c 31 30 2c 66 24 2c 66 |OS_File"|,10,f$,f|
|00005fd0| 74 25 2c 2c 73 74 61 72 | 74 25 2c 65 6e 64 25 0d |t%,,star|t%,end%.|
|00005fe0| 24 04 0c 20 77 61 72 6e | 25 3d b9 0d 24 0e 06 20 |$.. warn|%=..$.. |
|00005ff0| e1 0d 24 18 06 20 3a 0d | 24 22 49 20 f4 20 2d 2d |..$.. :.|$"I . --|
|00006000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006010| 20 45 6e 64 20 6f 66 20 | 4d 6f 75 73 65 2d 63 6c | End of |Mouse-cl|
|00006020| 69 63 6b 20 70 72 6f 63 | 65 73 73 69 6e 67 20 2d |ick proc|essing -|
|00006030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006040| 0d 24 2c 06 20 3a 0d 24 | 36 06 20 3a 0d 24 40 06 |.$,. :.$|6. :.$@.|
|00006050| 20 3a 0d 24 4a 4b 20 f4 | 20 2d 2d 2d 2d 2d 2d 2d | :.$JK .| -------|
|00006060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00006070| 4b 65 79 2d 70 72 65 73 | 73 20 70 72 6f 63 65 73 |Key-pres|s proces|
|00006080| 73 69 6e 67 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |sing ---|--------|
|00006090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 24 54 |--------|-----.$T|
|000060a0| 06 20 3a 0d 24 5e 13 20 | dd 20 f2 70 72 6f 63 65 |. :.$^. |. .proce|
|000060b0| 73 73 5f 6b 65 79 0d 24 | 68 0c 20 ea 20 54 25 2c |ss_key.$|h. . T%,|
|000060c0| 4e 24 0d 24 72 27 20 c8 | 99 20 22 57 69 6d 70 5f |N$.$r' .|. "Wimp_|
|000060d0| 47 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |GetCaret|Position|
|000060e0| 22 2c 2c 62 6c 6f 63 6b | 25 0d 24 7c 35 20 77 69 |",,block|%.$|5 wi|
|000060f0| 25 3d 62 6c 6f 63 6b 25 | 21 30 3a 69 63 25 3d 62 |%=block%|!0:ic%=b|
|00006100| 6c 6f 63 6b 25 21 34 3a | 6b 65 79 5f 70 72 65 73 |lock%!4:|key_pres|
|00006110| 73 65 64 25 3d 62 6c 6f | 63 6b 25 21 32 34 0d 24 |sed%=blo|ck%!24.$|
|00006120| 86 0d 20 c8 8e 20 77 69 | 25 20 ca 0d 24 90 1b 20 |.. .. wi|% ..$.. |
|00006130| 20 20 c9 20 6d 61 69 6e | 57 25 3a f2 6d 61 69 6e |  . main|W%:.main|
|00006140| 5f 70 72 65 73 73 0d 24 | 9a 34 20 20 20 c9 20 70 |_press.$|.4   . p|
|00006150| 72 69 6e 74 57 25 3a e7 | 20 a4 73 65 6c 65 63 74 |rintW%:.| .select|
|00006160| 65 64 28 77 69 25 2c 31 | 29 20 8c 20 f2 64 62 6f |ed(wi%,1|) . .dbo|
|00006170| 78 5f 70 72 65 73 73 28 | 37 29 0d 24 a4 20 20 20 |x_press(|7).$.   |
|00006180| 20 c9 20 61 63 63 65 73 | 73 57 25 3a f2 64 62 6f | . acces|sW%:.dbo|
|00006190| 78 5f 70 72 65 73 73 28 | 33 29 0d 24 ae 1e 20 20 |x_press(|3).$..  |
|000061a0| 20 c9 20 73 61 76 65 57 | 25 3a f2 64 62 6f 78 5f | . saveW|%:.dbox_|
|000061b0| 70 72 65 73 73 28 32 29 | 0d 24 b8 21 20 20 20 c9 |press(2)|.$.!   .|
|000061c0| 20 64 61 74 61 64 69 63 | 57 25 3a f2 64 61 74 61 | datadic|W%:.data|
|000061d0| 64 69 63 5f 70 72 65 73 | 73 0d 24 c2 23 20 20 20 |dic_pres|s.$.#   |
|000061e0| c9 20 72 65 73 74 72 69 | 63 74 57 25 3a f2 64 62 |. restri|ctW%:.db|
|000061f0| 6f 78 5f 70 72 65 73 73 | 28 32 31 29 0d 24 cc 06 |ox_press|(21).$..|
|00006200| 20 cb 0d 24 d6 06 20 e1 | 0d 24 e0 06 20 3a 0d 24 | ..$.. .|.$.. :.$|
|00006210| ea 11 dd 20 f2 6d 61 69 | 6e 5f 70 72 65 73 73 0d |... .mai|n_press.|
|00006220| 24 f4 15 c8 8e 20 6b 65 | 79 5f 70 72 65 73 73 65 |$.... ke|y_presse|
|00006230| 64 25 20 ca 0d 24 fe 23 | 20 20 c9 20 33 38 37 3a |d% ..$.#|  . 387:|
|00006240| f2 6d 6f 75 73 65 28 30 | 2c 30 2c 34 2c 6d 61 69 |.mouse(0|,0,4,mai|
|00006250| 6e 57 25 2c 34 30 29 0d | 25 08 23 20 20 c9 20 34 |nW%,40).|%.#  . 4|
|00006260| 30 37 3a f2 6d 6f 75 73 | 65 28 30 2c 30 2c 34 2c |07:.mous|e(0,0,4,|
|00006270| 6d 61 69 6e 57 25 2c 34 | 31 29 0d 25 12 23 20 20 |mainW%,4|1).%.#  |
|00006280| c9 20 34 30 32 3a f2 6d | 6f 75 73 65 28 30 2c 30 |. 402:.m|ouse(0,0|
|00006290| 2c 34 2c 6d 61 69 6e 57 | 25 2c 34 32 29 0d 25 1c |,4,mainW|%,42).%.|
|000062a0| 23 20 20 c9 20 33 38 36 | 3a f2 6d 6f 75 73 65 28 |#  . 386|:.mouse(|
|000062b0| 30 2c 30 2c 34 2c 6d 61 | 69 6e 57 25 2c 34 33 29 |0,0,4,ma|inW%,43)|
|000062c0| 0d 25 26 23 20 20 c9 20 | 33 39 31 3a f2 6d 6f 75 |.%&#  . |391:.mou|
|000062d0| 73 65 28 30 2c 30 2c 34 | 2c 6d 61 69 6e 57 25 2c |se(0,0,4|,mainW%,|
|000062e0| 34 34 29 0d 25 30 23 20 | 20 c9 20 34 30 33 3a f2 |44).%0# | . 403:.|
|000062f0| 6d 6f 75 73 65 28 30 2c | 30 2c 34 2c 6d 61 69 6e |mouse(0,|0,4,main|
|00006300| 57 25 2c 34 35 29 0d 25 | 3a 23 20 20 c9 20 33 38 |W%,45).%|:#  . 38|
|00006310| 35 3a f2 6d 6f 75 73 65 | 28 30 2c 30 2c 34 2c 6d |5:.mouse|(0,0,4,m|
|00006320| 61 69 6e 57 25 2c 34 37 | 29 0d 25 44 1f 20 20 c9 |ainW%,47|).%D.  .|
|00006330| 20 33 39 38 2c 33 39 39 | 3a f2 64 62 6f 78 5f 70 | 398,399|:.dbox_p|
|00006340| 72 65 73 73 28 34 37 29 | 0d 25 4e 23 20 20 c9 20 |ress(47)|.%N#  . |
|00006350| 33 39 32 3a f2 6d 6f 75 | 73 65 28 30 2c 30 2c 34 |392:.mou|se(0,0,4|
|00006360| 2c 6d 61 69 6e 57 25 2c | 34 38 29 0d 25 58 3c 20 |,mainW%,|48).%X< |
|00006370| 20 c9 20 31 33 3a e7 20 | 69 63 25 3d 34 36 20 8c | . 13:. |ic%=46 .|
|00006380| 20 f2 6d 6f 75 73 65 28 | 30 2c 30 2c 34 2c 77 69 | .mouse(|0,0,4,wi|
|00006390| 25 2c 34 37 29 20 8b 20 | f2 64 62 6f 78 5f 70 72 |%,47) . |.dbox_pr|
|000063a0| 65 73 73 28 34 37 29 0d | 25 62 29 20 20 7f 3a c8 |ess(47).|%b)  .:.|
|000063b0| 99 20 22 57 69 6d 70 5f | 50 72 6f 63 65 73 73 4b |. "Wimp_|ProcessK|
|000063c0| 65 79 22 2c 6b 65 79 5f | 70 72 65 73 73 65 64 25 |ey",key_|pressed%|
|000063d0| 0d 25 6c 05 cb 0d 25 76 | 15 c8 99 20 22 4f 53 5f |.%l...%v|... "OS_|
|000063e0| 42 79 74 65 22 2c 31 35 | 2c 30 0d 25 80 05 e1 0d |Byte",15|,0.%....|
|000063f0| 25 8a 06 20 3a 0d 25 94 | 16 dd 20 f2 64 62 6f 78 |%.. :.%.|.. .dbox|
|00006400| 5f 70 72 65 73 73 28 6f | 6b 25 29 0d 25 9e 15 c8 |_press(o|k%).%...|
|00006410| 8e 20 6b 65 79 5f 70 72 | 65 73 73 65 64 25 20 ca |. key_pr|essed% .|
|00006420| 0d 25 a8 42 20 20 c9 20 | 31 33 3a e7 20 a4 6e 65 |.%.B  . |13:. .ne|
|00006430| 78 74 5f 77 72 69 74 65 | 61 62 6c 65 28 77 69 25 |xt_write|able(wi%|
|00006440| 2c 69 63 25 2c 31 2c 31 | 29 3d b9 20 8c f2 6d 6f |,ic%,1,1|)=. ..mo|
|00006450| 75 73 65 28 30 2c 30 2c | 34 2c 77 69 25 2c 6f 6b |use(0,0,|4,wi%,ok|
|00006460| 25 29 0d 25 b2 2b 20 20 | c9 20 33 39 38 3a 66 25 |%).%.+  |. 398:f%|
|00006470| 3d a4 6e 65 78 74 5f 77 | 72 69 74 65 61 62 6c 65 |=.next_w|riteable|
|00006480| 28 77 69 25 2c 69 63 25 | 2c 31 2c 30 29 0d 25 bc |(wi%,ic%|,1,0).%.|
|00006490| 2c 20 20 c9 20 33 39 39 | 3a 66 25 3d a4 6e 65 78 |,  . 399|:f%=.nex|
|000064a0| 74 5f 77 72 69 74 65 61 | 62 6c 65 28 77 69 25 2c |t_writea|ble(wi%,|
|000064b0| 69 63 25 2c 2d 31 2c 30 | 29 0d 25 c6 29 20 20 7f |ic%,-1,0|).%.)  .|
|000064c0| 20 c8 99 20 22 57 69 6d | 70 5f 50 72 6f 63 65 73 | .. "Wim|p_Proces|
|000064d0| 73 4b 65 79 22 2c 6b 65 | 79 5f 70 72 65 73 73 65 |sKey",ke|y_presse|
|000064e0| 64 25 0d 25 d0 05 cb 0d | 25 da 05 e1 0d 25 e4 06 |d%.%....|%....%..|
|000064f0| 20 3a 0d 25 ee 14 dd 20 | f2 64 61 74 61 64 69 63 | :.%... |.datadic|
|00006500| 5f 70 72 65 73 73 0d 25 | f8 15 c8 8e 20 6b 65 79 |_press.%|.... key|
|00006510| 5f 70 72 65 73 73 65 64 | 25 20 ca 0d 26 02 3a 20 |_pressed|% ..&.: |
|00006520| 20 c9 20 31 33 2c 33 39 | 38 3a e7 20 69 63 25 3c | . 13,39|8:. ic%<|
|00006530| 52 6f 77 73 25 2d 31 20 | 8c 20 f2 73 65 74 5f 63 |Rows%-1 |. .set_c|
|00006540| 61 72 65 74 28 64 61 74 | 61 64 69 63 57 25 2c 69 |aret(dat|adicW%,i|
|00006550| 63 25 2b 31 29 0d 26 0c | 31 20 20 c9 20 33 39 39 |c%+1).&.|1  . 399|
|00006560| 3a e7 20 69 63 25 3e 30 | 20 8c 20 f2 73 65 74 5f |:. ic%>0| . .set_|
|00006570| 63 61 72 65 74 28 64 61 | 74 61 64 69 63 57 25 2c |caret(da|tadicW%,|
|00006580| 69 63 25 2d 31 29 0d 26 | 16 08 20 20 7f 3a 0d 26 |ic%-1).&|..  .:.&|
|00006590| 20 27 20 20 c8 99 20 22 | 57 69 6d 70 5f 50 72 6f | '  .. "|Wimp_Pro|
|000065a0| 63 65 73 73 4b 65 79 22 | 2c 6b 65 79 5f 70 72 65 |cessKey"|,key_pre|
|000065b0| 73 73 65 64 25 0d 26 2a | 05 cb 0d 26 34 05 e1 0d |ssed%.&*|...&4...|
|000065c0| 26 3e 06 20 3a 0d 26 48 | 4a 20 f4 20 2d 2d 2d 2d |&>. :.&H|J . ----|
|000065d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 45 6e 64 |--------|---- End|
|000065e0| 20 6f 66 20 4b 65 79 2d | 70 72 65 73 73 20 70 72 | of Key-|press pr|
|000065f0| 6f 63 65 73 73 69 6e 67 | 20 2d 2d 2d 2d 2d 2d 2d |ocessing| -------|
|00006600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00006610| 26 52 06 20 3a 0d 26 5c | 06 20 3a 0d 26 66 06 20 |&R. :.&\|. :.&f. |
|00006620| 3a 0d 26 70 48 20 f4 20 | 2d 2d 2d 2d 2d 2d 2d 2d |:.&pH . |--------|
|00006630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 4d 65 73 |--------|---- Mes|
|00006640| 73 61 67 65 20 68 61 6e | 64 6c 69 6e 67 20 2d 2d |sage han|dling --|
|00006650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 26 7a 06 20 3a 0d |--------|-.&z. :.|
|00006670| 26 84 0f 20 dd 20 f2 6d | 65 73 73 61 67 65 0d 26 |&.. . .m|essage.&|
|00006680| 8e 19 20 ea 20 74 61 73 | 6b 25 2c 72 65 66 25 2c |.. . tas|k%,ref%,|
|00006690| 50 72 65 66 69 78 24 0d | 26 98 13 20 74 61 73 6b |Prefix$.|&.. task|
|000066a0| 25 3d 62 6c 6f 63 6b 25 | 21 34 0d 26 a2 12 20 72 |%=block%|!4.&.. r|
|000066b0| 65 66 25 3d 62 6c 6f 63 | 6b 25 21 38 0d 26 ac 13 |ef%=bloc|k%!8.&..|
|000066c0| 20 c8 8e 20 62 6c 6f 63 | 6b 25 21 31 36 20 ca 0d | .. bloc|k%!16 ..|
|000066d0| 26 b6 12 20 20 20 c9 20 | 30 3a 71 75 69 74 25 3d |&..   . |0:quit%=|
|000066e0| b9 0d 26 c0 0b 20 20 20 | c9 20 32 3a 0d 26 ca 32 |..&..   |. 2:.&.2|
|000066f0| 20 20 20 f2 73 61 76 65 | 28 a4 67 65 74 73 74 72 |   .save|(.getstr|
|00006700| 28 62 6c 6f 63 6b 25 2b | 34 34 29 2c 54 79 70 65 |(block%+|44),Type|
|00006710| 25 2c 53 74 61 72 74 25 | 2c 45 6e 64 25 29 0d 26 |%,Start%|,End%).&|
|00006720| d4 27 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 47 65 |.'   .. |"Wimp_Ge|
|00006730| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 62 |tPointer|Info",,b|
|00006740| 6c 6f 63 6b 25 0d 26 de | 1a 20 20 20 62 6c 6f 63 |lock%.&.|.   bloc|
|00006750| 6b 25 21 32 30 3d 62 6c | 6f 63 6b 25 21 31 32 0d |k%!20=bl|ock%!12.|
|00006760| 26 e8 1a 20 20 20 62 6c | 6f 63 6b 25 21 32 34 3d |&..   bl|ock%!24=|
|00006770| 62 6c 6f 63 6b 25 21 31 | 36 0d 26 f2 19 20 20 20 |block%!1|6.&..   |
|00006780| 62 6c 6f 63 6b 25 21 32 | 38 3d 62 6c 6f 63 6b 25 |block%!2|8=block%|
|00006790| 21 30 0d 26 fc 19 20 20 | 20 62 6c 6f 63 6b 25 21 |!0.&..  | block%!|
|000067a0| 33 32 3d 62 6c 6f 63 6b | 25 21 34 0d 27 06 12 20 |32=block|%!4.'.. |
|000067b0| 20 20 21 62 6c 6f 63 6b | 25 3d 32 35 36 0d 27 10 |  !block|%=256.'.|
|000067c0| 16 20 20 20 62 6c 6f 63 | 6b 25 21 34 30 3d 54 79 |.   bloc|k%!40=Ty|
|000067d0| 70 65 25 0d 27 1a 1f 20 | 20 20 6d 79 72 65 66 25 |pe%.'.. |  myref%|
|000067e0| 3d 72 65 66 25 3a f2 72 | 65 70 6c 79 28 31 38 2c |=ref%:.r|eply(18,|
|000067f0| 33 29 0d 27 24 17 20 20 | 20 77 61 69 74 69 6e 67 |3).'$.  | waiting|
|00006800| 66 6f 72 61 63 6b 25 3d | b9 0d 27 2e 1f 20 20 20 |forack%=|..'..   |
|00006810| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |.. "Wimp|_CreateM|
|00006820| 65 6e 75 22 2c 2c 2d 31 | 0d 27 38 39 20 20 20 c9 |enu",,-1|.'89   .|
|00006830| 20 33 3a e7 20 62 6c 6f | 63 6b 25 21 31 32 3d 30 | 3:. blo|ck%!12=0|
|00006840| 20 8c 20 f2 67 65 74 5f | 69 74 5f 69 6e 28 a4 67 | . .get_|it_in(.g|
|00006850| 65 74 73 74 72 28 62 6c | 6f 63 6b 25 2b 34 34 29 |etstr(bl|ock%+44)|
|00006860| 29 0d 27 42 1b 20 20 20 | c9 20 34 3a 77 61 69 74 |).'B.   |. 4:wait|
|00006870| 69 6e 67 66 6f 72 61 63 | 6b 25 3d a3 0d 27 4c 0b |ingforac|k%=..'L.|
|00006880| 20 20 20 c9 20 35 3a 0d | 27 56 15 20 20 20 c8 8e |   . 5:.|'V.   ..|
|00006890| 20 62 6c 6f 63 6b 25 21 | 34 30 20 ca 0d 27 60 1a | block%!|40 ..'`.|
|000068a0| 20 20 20 20 20 c9 20 26 | 37 46 31 2c 26 37 46 33 |     . &|7F1,&7F3|
|000068b0| 2c 26 37 46 34 3a 0d 27 | 6a 17 20 20 20 20 20 e7 |,&7F4:.'|j.     .|
|000068c0| 20 70 72 65 73 65 6e 74 | 25 3d 37 20 8c 0d 27 74 | present|%=7 ..'t|
|000068d0| 16 20 20 20 20 20 20 20 | 62 6c 6f 63 6b 25 21 30 |.       |block%!0|
|000068e0| 3d 32 30 0d 27 7e 19 20 | 20 20 20 20 20 20 62 6c |=20.'~. |      bl|
|000068f0| 6f 63 6b 25 21 31 32 3d | 72 65 66 25 0d 27 88 16 |ock%!12=|ref%.'..|
|00006900| 20 20 20 20 20 20 20 62 | 6c 6f 63 6b 25 21 31 36 |       b|lock%!16|
|00006910| 3d 34 0d 27 92 2a 20 20 | 20 20 20 20 20 c8 99 20 |=4.'.*  |     .. |
|00006920| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|00006930| 65 22 2c 31 37 2c 62 6c | 6f 63 6b 25 0d 27 9c 29 |e",17,bl|ock%.'.)|
|00006940| 20 20 20 20 20 20 20 f2 | 67 65 74 5f 69 74 5f 69 |       .|get_it_i|
|00006950| 6e 28 a4 67 65 74 73 74 | 72 28 62 6c 6f 63 6b 25 |n(.getst|r(block%|
|00006960| 2b 34 34 29 29 0d 27 a6 | 0a 20 20 20 20 20 cd 0d |+44)).'.|.     ..|
|00006970| 27 b0 11 20 20 20 20 20 | c9 20 26 32 30 30 30 3a |'..     |. &2000:|
|00006980| 0d 27 ba 29 20 20 20 20 | 20 66 24 3d a4 67 65 74 |.'.)    | f$=.get|
|00006990| 73 74 72 28 62 6c 6f 63 | 6b 25 2b 34 34 29 2b 22 |str(bloc|k%+44)+"|
|000069a0| 2e 49 6e 64 69 63 65 73 | 22 0d 27 c4 1f 20 20 20 |.Indices|".'..   |
|000069b0| 20 20 c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 35 |  .. "OS|_File",5|
|000069c0| 2c 66 24 20 b8 20 64 25 | 0d 27 ce 11 20 20 20 20 |,f$ . d%|.'..    |
|000069d0| 20 e7 20 64 25 3d 32 20 | 8c 0d 27 d8 16 20 20 20 | . d%=2 |..'..   |
|000069e0| 20 20 20 20 62 6c 6f 63 | 6b 25 21 30 3d 32 30 0d |    bloc|k%!0=20.|
|000069f0| 27 e2 19 20 20 20 20 20 | 20 20 62 6c 6f 63 6b 25 |'..     |  block%|
|00006a00| 21 31 32 3d 72 65 66 25 | 0d 27 ec 16 20 20 20 20 |!12=ref%|.'..    |
|00006a10| 20 20 20 62 6c 6f 63 6b | 25 21 31 36 3d 34 0d 27 |   block|%!16=4.'|
|00006a20| f6 2a 20 20 20 20 20 20 | 20 c8 99 20 22 57 69 6d |.*      | .. "Wim|
|00006a30| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00006a40| 37 2c 62 6c 6f 63 6b 25 | 0d 28 00 29 20 20 20 20 |7,block%|.(.)    |
|00006a50| 20 20 20 f2 67 65 74 5f | 69 74 5f 69 6e 28 a4 67 |   .get_|it_in(.g|
|00006a60| 65 74 73 74 72 28 62 6c | 6f 63 6b 25 2b 34 34 29 |etstr(bl|ock%+44)|
|00006a70| 29 0d 28 0a 0a 20 20 20 | 20 20 cd 0d 28 14 08 20 |).(..   |  ..(.. |
|00006a80| 20 20 cb 0d 28 1e 18 20 | 20 20 c9 20 36 3a f2 72 |  ..(.. |  . 6:.r|
|00006a90| 61 6d 5f 74 72 61 6e 73 | 6d 69 74 0d 28 28 0e 20 |am_trans|mit.((. |
|00006aa0| 20 20 c9 20 26 35 30 32 | 3a 0d 28 32 15 20 20 20 |  . &502|:.(2.   |
|00006ab0| c8 8e 20 62 6c 6f 63 6b | 25 21 33 32 20 ca 0d 28 |.. block|%!32 ..(|
|00006ac0| 3c 40 20 20 20 20 20 c9 | 20 2d 32 2c 6d 61 6e 75 |<@     .| -2,manu|
|00006ad0| 61 6c 57 25 2c 6c 69 73 | 74 57 25 2c 64 61 74 61 |alW%,lis|tW%,data|
|00006ae0| 64 69 63 57 25 3a f2 68 | 65 6c 70 5f 6d 65 73 73 |dicW%:.h|elp_mess|
|00006af0| 61 67 65 28 62 6c 6f 63 | 6b 25 21 33 32 29 0d 28 |age(bloc|k%!32).(|
|00006b00| 46 2a 20 20 20 20 20 7f | 3a c8 99 20 22 49 6e 74 |F*     .|:.. "Int|
|00006b10| 65 72 66 61 63 65 5f 53 | 65 6e 64 48 65 6c 70 22 |erface_S|endHelp"|
|00006b20| 2c 2c 62 6c 6f 63 6b 25 | 0d 28 50 08 20 20 20 cb |,,block%|.(P.   .|
|00006b30| 0d 28 5a 3a 20 20 20 c9 | 20 26 34 30 30 43 32 3a |.(Z:   .| &400C2:|
|00006b40| f2 67 65 74 73 63 72 65 | 65 6e 73 69 7a 65 28 53 |.getscre|ensize(S|
|00006b50| 63 72 65 65 6e 57 69 64 | 74 68 25 2c 53 63 72 65 |creenWid|th%,Scre|
|00006b60| 65 6e 48 65 69 67 68 74 | 25 29 0d 28 64 24 20 20 |enHeight|%).(d$  |
|00006b70| 20 c9 20 26 34 30 30 43 | 30 3a f2 6d 65 73 73 61 | . &400C|0:.messa|
|00006b80| 67 65 5f 6d 65 6e 75 5f | 73 65 6c 65 63 74 0d 28 |ge_menu_|select.(|
|00006b90| 6e 06 20 cb 0d 28 78 06 | 20 e1 0d 28 82 06 20 3a |n. ..(x.| ..(.. :|
|00006ba0| 0d 28 8c 14 20 dd 20 f2 | 72 61 6d 5f 74 72 61 6e |.(.. . .|ram_tran|
|00006bb0| 73 6d 69 74 0d 28 96 42 | 20 e7 20 64 61 74 61 73 |smit.(.B| . datas|
|00006bc0| 69 7a 65 25 3e 62 6c 6f | 63 6b 25 21 32 34 20 8c |ize%>blo|ck%!24 .|
|00006bd0| 20 74 6f 73 65 6e 64 25 | 3d 62 6c 6f 63 6b 25 21 | tosend%|=block%!|
|00006be0| 32 34 20 8b 20 74 6f 73 | 65 6e 64 25 3d 64 61 74 |24 . tos|end%=dat|
|00006bf0| 61 73 69 7a 65 25 0d 28 | a0 47 20 c8 99 20 22 57 |asize%.(|.G .. "W|
|00006c00| 69 6d 70 5f 54 72 61 6e | 73 66 65 72 42 6c 6f 63 |imp_Tran|sferBloc|
|00006c10| 6b 22 2c 6d 79 74 61 73 | 6b 25 2c 72 61 6d 70 74 |k",mytas|k%,rampt|
|00006c20| 72 25 2c 62 6c 6f 63 6b | 25 21 34 2c 62 6c 6f 63 |r%,block|%!4,bloc|
|00006c30| 6b 25 21 32 30 2c 74 6f | 73 65 6e 64 25 0d 28 aa |k%!20,to|send%.(.|
|00006c40| 16 20 62 6c 6f 63 6b 25 | 21 32 34 3d 74 6f 73 65 |. block%|!24=tose|
|00006c50| 6e 64 25 0d 28 b4 17 20 | 64 61 74 61 73 69 7a 65 |nd%.(.. |datasize|
|00006c60| 25 2d 3d 74 6f 73 65 6e | 64 25 0d 28 be 15 20 72 |%-=tosen|d%.(.. r|
|00006c70| 61 6d 70 74 72 25 2b 3d | 74 6f 73 65 6e 64 25 0d |amptr%+=|tosend%.|
|00006c80| 28 c8 17 20 62 6c 6f 63 | 6b 25 21 31 32 3d 62 6c |(.. bloc|k%!12=bl|
|00006c90| 6f 63 6b 25 21 38 0d 28 | d2 10 20 62 6c 6f 63 6b |ock%!8.(|.. block|
|00006ca0| 25 21 31 36 3d 37 0d 28 | dc 3b 20 c8 99 20 22 57 |%!16=7.(|.; .. "W|
|00006cb0| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|00006cc0| 2c 31 38 2b 28 64 61 74 | 61 73 69 7a 65 25 3d 30 |,18+(dat|asize%=0|
|00006cd0| 29 2c 62 6c 6f 63 6b 25 | 2c 62 6c 6f 63 6b 25 21 |),block%|,block%!|
|00006ce0| 34 0d 28 e6 06 20 e1 0d | 28 f0 06 20 3a 0d 28 fa |4.(.. ..|(.. :.(.|
|00006cf0| 19 20 dd 20 f2 68 65 6c | 70 5f 6d 65 73 73 61 67 |. . .hel|p_messag|
|00006d00| 65 28 77 69 25 29 0d 29 | 04 0d 20 c8 8e 20 77 69 |e(wi%).)|.. .. wi|
|00006d10| 25 20 ca 0d 29 0e 89 20 | 20 20 c9 20 2d 32 3a f2 |% ..).. |  . -2:.|
|00006d20| 73 65 6e 64 5f 68 65 6c | 70 28 22 54 68 69 73 20 |send_hel|p("This |
|00006d30| 69 73 20 74 68 65 20 41 | 70 70 6f 69 6e 74 20 69 |is the A|ppoint i|
|00006d40| 63 6f 6e 2c 20 73 68 6f | 77 69 6e 67 20 74 68 61 |con, sho|wing tha|
|00006d50| 74 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 69 73 |t the pr|ogram is|
|00006d60| 20 72 75 6e 6e 69 6e 67 | 2e 20 4e 6f 77 20 64 6f | running|. Now do|
|00006d70| 75 62 6c 65 20 63 6c 69 | 63 6b 20 6f 6e 20 74 68 |uble cli|ck on th|
|00006d80| 65 20 59 65 61 72 31 20 | 6f 72 20 59 65 61 72 32 |e Year1 |or Year2|
|00006d90| 20 64 61 74 61 62 61 73 | 65 2e 22 29 0d 29 18 67 | databas|e.").).g|
|00006da0| 20 20 20 c9 20 6c 69 73 | 74 57 25 3a f2 73 65 6e |   . lis|tW%:.sen|
|00006db0| 64 5f 68 65 6c 70 28 22 | 49 66 20 79 6f 75 20 77 |d_help("|If you w|
|00006dc0| 69 73 68 20 74 6f 20 73 | 61 76 65 20 74 68 69 73 |ish to s|ave this|
|00006dd0| 20 6c 69 73 74 20 63 6c | 69 63 6b 20 4d 45 4e 55 | list cl|ick MENU|
|00006de0| 20 6f 76 65 72 20 69 74 | 20 74 6f 20 64 69 73 70 | over it| to disp|
|00006df0| 6c 61 79 20 74 68 65 20 | 53 61 76 65 20 62 6f 78 |lay the |Save box|
|00006e00| 2e 22 29 0d 29 22 b9 20 | 20 20 c9 20 6d 61 6e 75 |.").)". |  . manu|
|00006e10| 61 6c 57 25 3a f2 73 65 | 6e 64 5f 68 65 6c 70 28 |alW%:.se|nd_help(|
|00006e20| 22 43 68 6f 6f 73 65 20 | 61 70 70 6f 69 6e 74 6d |"Choose |appointm|
|00006e30| 65 6e 74 73 20 62 79 20 | 63 6c 69 63 6b 69 6e 67 |ents by |clicking|
|00006e40| 20 77 69 74 68 20 53 45 | 4c 45 43 54 2e 20 43 6c | with SE|LECT. Cl|
|00006e50| 69 63 6b 69 6e 67 20 77 | 69 74 68 20 41 44 4a 55 |icking w|ith ADJU|
|00006e60| 53 54 20 64 65 2d 73 65 | 6c 65 63 74 73 2e 20 47 |ST de-se|lects. G|
|00006e70| 72 65 79 65 64 2d 6f 75 | 74 20 74 69 6d 65 73 20 |reyed-ou|t times |
|00006e80| 61 72 65 20 75 6e 61 76 | 61 69 6c 61 62 6c 65 2e |are unav|ailable.|
|00006e90| 20 43 6c 69 63 6b 20 6f | 6e 20 4f 4b 20 74 6f 20 | Click o|n OK to |
|00006ea0| 66 69 6e 61 6c 69 73 65 | 20 74 68 65 20 61 70 70 |finalise| the app|
|00006eb0| 6f 69 6e 74 6d 65 6e 74 | 73 2e 22 29 0d 29 2c 06 |ointment|s.").),.|
|00006ec0| 20 cb 0d 29 36 06 20 e1 | 0d 29 40 06 20 3a 0d 29 | ..)6. .|.)@. :.)|
|00006ed0| 4a 15 20 dd 20 f2 73 65 | 6e 64 5f 68 65 6c 70 28 |J. . .se|nd_help(|
|00006ee0| 48 24 29 0d 29 54 10 20 | 21 62 6c 6f 63 6b 25 3d |H$).)T. |!block%=|
|00006ef0| 32 35 36 0d 29 5e 13 20 | 62 6c 6f 63 6b 25 21 31 |256.)^. |block%!1|
|00006f00| 32 3d 72 65 66 25 0d 29 | 68 13 20 62 6c 6f 63 6b |2=ref%.)|h. block|
|00006f10| 25 21 31 36 3d 26 35 30 | 33 0d 29 72 14 20 24 28 |%!16=&50|3.)r. $(|
|00006f20| 62 6c 6f 63 6b 25 2b 32 | 30 29 3d 48 24 0d 29 7c |block%+2|0)=H$.)||
|00006f30| 2d 20 c8 99 20 22 57 69 | 6d 70 5f 53 65 6e 64 4d |- .. "Wi|mp_SendM|
|00006f40| 65 73 73 61 67 65 22 2c | 31 37 2c 62 6c 6f 63 6b |essage",|17,block|
|00006f50| 25 2c 62 6c 6f 63 6b 25 | 21 34 0d 29 86 06 20 e1 |%,block%|!4.).. .|
|00006f60| 0d 29 90 06 20 3a 0d 29 | 9a 20 20 dd 20 f2 72 65 |.).. :.)|.  . .re|
|00006f70| 70 6c 79 28 6d 65 73 73 | 74 79 70 65 25 2c 72 65 |ply(mess|type%,re|
|00006f80| 61 73 6f 6e 25 29 0d 29 | a4 13 20 62 6c 6f 63 6b |ason%).)|.. block|
|00006f90| 25 21 31 32 3d 72 65 66 | 25 0d 29 ae 16 20 62 6c |%!12=ref|%.).. bl|
|00006fa0| 6f 63 6b 25 21 31 36 3d | 72 65 61 73 6f 6e 25 0d |ock%!16=|reason%.|
|00006fb0| 29 b8 31 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |).1 .. "|Wimp_Sen|
|00006fc0| 64 4d 65 73 73 61 67 65 | 22 2c 6d 65 73 73 74 79 |dMessage|",messty|
|00006fd0| 70 65 25 2c 62 6c 6f 63 | 6b 25 2c 74 61 73 6b 25 |pe%,bloc|k%,task%|
|00006fe0| 0d 29 c2 06 20 e1 0d 29 | cc 06 20 3a 0d 29 d6 48 |.).. ..)|.. :.).H|
|00006ff0| 20 f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | . -----|--------|
|00007000| 2d 2d 2d 20 45 6e 64 20 | 6f 66 20 4d 65 73 73 61 |--- End |of Messa|
|00007010| 67 65 20 68 61 6e 64 6c | 69 6e 67 20 2d 2d 2d 2d |ge handl|ing ----|
|00007020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00007030| 2d 2d 2d 2d 0d 29 e0 06 | 20 3a 0d 29 ea 06 20 3a |----.)..| :.).. :|
|00007040| 0d 29 f4 06 20 3a 0d 29 | fe 48 20 f4 20 2d 2d 2d |.).. :.)|.H . ---|
|00007050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 44 61 74 |--------|---- Dat|
|00007060| 61 62 61 73 65 20 66 69 | 6c 65 20 6f 70 65 6e 69 |abase fi|le openi|
|00007070| 6e 67 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ng -----|--------|
|00007080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2a |--------|------.*|
|00007090| 08 06 20 3a 0d 2a 12 1c | 20 dd 20 f2 67 65 74 5f |.. :.*..| . .get_|
|000070a0| 69 74 5f 69 6e 28 66 69 | 6c 65 6e 61 6d 65 24 29 |it_in(fi|lename$)|
|000070b0| 0d 2a 1c 28 20 c8 99 20 | 22 4f 53 5f 46 69 6c 65 |.*.( .. |"OS_File|
|000070c0| 22 2c 35 2c 66 69 6c 65 | 6e 61 6d 65 24 20 b8 20 |",5,file|name$ . |
|000070d0| 2c 2c 66 74 79 70 65 25 | 0d 2a 26 1e 20 66 74 79 |,,ftype%|.*&. fty|
|000070e0| 70 65 25 3d 28 66 74 79 | 70 65 25 3e 3e 38 29 20 |pe%=(fty|pe%>>8) |
|000070f0| 80 20 26 46 46 46 0d 2a | 30 10 20 c8 8e 20 66 74 |. &FFF.*|0. .. ft|
|00007100| 79 70 65 25 20 ca 0d 2a | 3a 07 20 7f 3a 0d 2a 44 |ype% ..*|:. .:.*D|
|00007110| 5f 20 e7 20 c0 a4 6c 65 | 61 66 28 66 69 6c 65 6e |_ . ..le|af(filen|
|00007120| 61 6d 65 24 29 2c 35 29 | 3c 3e 22 21 59 65 61 72 |ame$),5)|<>"!Year|
|00007130| 22 20 8c 20 85 20 6d 6f | 61 6e 5f 65 72 72 25 2c |" . . mo|an_err%,|
|00007140| 22 54 68 69 73 20 69 73 | 20 6e 6f 74 20 61 20 73 |"This is| not a s|
|00007150| 74 75 64 65 6e 74 20 72 | 65 63 6f 72 64 20 64 61 |tudent r|ecord da|
|00007160| 74 61 62 61 73 65 22 2b | bd 28 30 29 0d 2a 4e 19 |tabase"+|.(0).*N.|
|00007170| 20 e7 20 70 72 65 73 65 | 6e 74 25 3e 30 20 8c 20 | . prese|nt%>0 . |
|00007180| f2 65 78 69 74 0d 2a 58 | 1b 20 f2 6f 70 65 6e 5f |.exit.*X|. .open_|
|00007190| 66 69 6c 65 73 28 66 69 | 6c 65 6e 61 6d 65 24 29 |files(fi|lename$)|
|000071a0| 0d 2a 62 06 20 cb 0d 2a | 6c 06 20 e1 0d 2a 76 06 |.*b. ..*|l. ..*v.|
|000071b0| 20 3a 0d 2a 80 15 dd 20 | f2 6f 70 65 6e 5f 66 69 | :.*... |.open_fi|
|000071c0| 6c 65 73 28 66 24 29 0d | 2a 8a 0e ea 20 49 25 2c |les(f$).|*... I%,|
|000071d0| 4a 25 2c 46 25 0d 2a 94 | 26 c8 99 20 22 4f 53 5f |J%,F%.*.|&.. "OS_|
|000071e0| 46 69 6c 65 22 2c 35 2c | 66 24 2b 22 2e 44 61 74 |File",5,|f$+".Dat|
|000071f0| 61 62 61 73 65 22 20 b8 | 20 64 25 0d 2a 9e 22 e7 |abase" .| d%.*.".|
|00007200| 20 64 25 3d 31 20 8c 20 | 70 72 65 73 65 6e 74 25 | d%=1 . |present%|
|00007210| 3d 70 72 65 73 65 6e 74 | 25 20 84 20 34 0d 2a a8 |=present|% . 4.*.|
|00007220| 28 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 35 2c |(.. "OS_|File",5,|
|00007230| 66 24 2b 22 2e 50 72 69 | 6d 61 72 79 4b 65 79 22 |f$+".Pri|maryKey"|
|00007240| 20 b8 20 64 25 0d 2a b2 | 22 e7 20 64 25 3d 31 20 | . d%.*.|". d%=1 |
|00007250| 8c 20 70 72 65 73 65 6e | 74 25 3d 70 72 65 73 65 |. presen|t%=prese|
|00007260| 6e 74 25 20 84 20 32 0d | 2a bc 22 c8 99 20 22 4f |nt% . 2.|*.".. "O|
|00007270| 53 5f 46 69 6c 65 22 2c | 35 2c 66 24 2b 22 2e 46 |S_File",|5,f$+".F|
|00007280| 6f 72 6d 22 20 b8 20 64 | 25 0d 2a c6 22 e7 20 64 |orm" . d|%.*.". d|
|00007290| 25 3d 31 20 8c 20 70 72 | 65 73 65 6e 74 25 3d 70 |%=1 . pr|esent%=p|
|000072a0| 72 65 73 65 6e 74 25 20 | 84 20 31 0d 2a d0 23 c8 |resent% |. 1.*.#.|
|000072b0| 99 20 22 4f 53 5f 43 4c | 49 22 2c 22 53 65 74 20 |. "OS_CL|I","Set |
|000072c0| 44 42 61 73 65 24 44 69 | 72 20 22 2b 66 24 0d 2a |DBase$Di|r "+f$.*|
|000072d0| da 11 24 64 61 74 61 62 | 61 73 65 25 3d 66 24 0d |..$datab|ase%=f$.|
|000072e0| 2a e4 1f 79 65 61 72 24 | 3d c1 a4 6c 65 61 66 28 |*..year$|=..leaf(|
|000072f0| 24 64 61 74 61 62 61 73 | 65 25 29 2c 32 29 0d 2a |$databas|e%),2).*|
|00007300| ee 1d 79 65 61 72 24 3d | c0 79 65 61 72 24 29 2b |..year$=|.year$)+|
|00007310| 22 20 22 2b c2 79 65 61 | 72 24 29 0d 2a f8 8c e7 |" "+.yea|r$).*...|
|00007320| 20 70 72 65 73 65 6e 74 | 25 3d 37 20 8c 20 f2 61 | present|%=7 . .a|
|00007330| 63 63 65 73 73 28 66 24 | 29 20 8b 20 85 20 6d 6f |ccess(f$|) . . mo|
|00007340| 61 6e 5f 65 72 72 25 2c | 22 54 68 69 73 20 69 73 |an_err%,|"This is|
|00007350| 20 6e 6f 74 20 61 20 72 | 75 6e 6e 61 62 6c 65 20 | not a r|unnable |
|00007360| 64 61 74 61 62 61 73 65 | 2e 20 43 68 65 63 6b 20 |database|. Check |
|00007370| 66 6f 72 20 61 62 73 65 | 6e 63 65 20 6f 66 20 46 |for abse|nce of F|
|00007380| 6f 72 6d 2c 20 50 72 69 | 6d 61 72 79 4b 65 79 20 |orm, Pri|maryKey |
|00007390| 6f 72 20 44 61 74 61 62 | 61 73 65 20 66 69 6c 65 |or Datab|ase file|
|000073a0| 73 22 2b bd 28 30 29 0d | 2b 02 05 e1 0d 2b 0c 05 |s"+.(0).|+....+..|
|000073b0| 3a 0d 2b 16 11 dd 20 f2 | 61 63 63 65 73 73 28 66 |:.+... .|access(f|
|000073c0| 24 29 0d 2b 20 14 ea 20 | 4c 25 2c 50 25 2c 6b 65 |$).+ .. |L%,P%,ke|
|000073d0| 79 62 61 73 65 25 0d 2b | 2a 16 46 3d 8e 28 66 24 |ybase%.+|*.F=.(f$|
|000073e0| 2b 22 2e 43 6f 6c 6f 75 | 72 73 22 29 0d 2b 34 28 |+".Colou|rs").+4(|
|000073f0| e7 20 46 3d 30 20 8c 20 | 85 20 66 61 74 61 6c 5f |. F=0 . |. fatal_|
|00007400| 65 72 72 25 2c 66 24 2b | 22 2e 22 2b a4 6d 73 67 |err%,f$+|"."+.msg|
|00007410| 28 31 38 29 0d 2b 3e 0a | cf 23 46 3d 33 35 0d 2b |(18).+>.|.#F=35.+|
|00007420| 48 1f e8 23 46 2c 53 24 | 3a 52 65 61 64 24 3d a4 |H..#F,S$|:Read$=.|
|00007430| 65 6e 63 72 79 70 74 28 | 53 24 2c a3 29 0d 2b 52 |encrypt(|S$,.).+R|
|00007440| 20 e8 23 46 2c 53 24 3a | 57 72 69 74 65 24 3d a4 | .#F,S$:|Write$=.|
|00007450| 65 6e 63 72 79 70 74 28 | 53 24 2c a3 29 0d 2b 5c |encrypt(|S$,.).+\|
|00007460| 22 e8 23 46 2c 53 24 3a | 4d 61 6e 61 67 65 72 24 |".#F,S$:|Manager$|
|00007470| 3d a4 65 6e 63 72 79 70 | 74 28 53 24 2c a3 29 0d |=.encryp|t(S$,.).|
|00007480| 2b 66 12 f2 63 6c 6f 73 | 65 5f 66 69 6c 65 28 46 |+f..clos|e_file(F|
|00007490| 29 0d 2b 70 13 e7 20 4d | 61 6e 61 67 65 72 24 3d |).+p.. M|anager$=|
|000074a0| 22 22 20 8c 0d 2b 7a 19 | 20 20 41 63 63 65 73 73 |"" ..+z.|  Access|
|000074b0| 25 3d b9 3a 4d 6f 64 69 | 66 79 25 3d b9 0d 2b 84 |%=.:Modi|fy%=..+.|
|000074c0| 15 20 20 f2 72 65 73 75 | 6d 65 5f 6f 70 65 6e 69 |.  .resu|me_openi|
|000074d0| 6e 67 0d 2b 8e 07 20 20 | cc 0d 2b 98 39 20 20 24 |ng.+..  |..+.9  $|
|000074e0| 41 63 63 65 73 73 54 69 | 74 6c 65 25 3d 22 21 41 |AccessTi|tle%="!A|
|000074f0| 70 70 6f 69 6e 74 20 6f | 70 65 6e 69 6e 67 20 22 |ppoint o|pening "|
|00007500| 2b a4 6c 65 61 66 28 24 | 64 61 74 61 62 61 73 65 |+.leaf($|database|
|00007510| 25 29 0d 2b a2 1c 20 20 | f2 6f 70 65 6e 5f 77 69 |%).+..  |.open_wi|
|00007520| 6e 64 6f 77 28 61 63 63 | 65 73 73 57 25 29 0d 2b |ndow(acc|essW%).+|
|00007530| ac 13 20 20 24 50 61 73 | 73 77 6f 72 64 25 3d 22 |..  $Pas|sword%="|
|00007540| 22 0d 2b b6 1c 20 20 f2 | 73 65 74 5f 63 61 72 65 |".+..  .|set_care|
|00007550| 74 28 61 63 63 65 73 73 | 57 25 2c 30 29 0d 2b c0 |t(access|W%,0).+.|
|00007560| 26 20 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 57 |&  .. "W|imp_GetW|
|00007570| 69 6e 64 6f 77 53 74 61 | 74 65 22 2c 2c 62 6c 6f |indowSta|te",,blo|
|00007580| 63 6b 25 0d 2b ca 43 20 | 20 c8 97 20 c8 93 20 62 |ck%.+.C | .. .. b|
|00007590| 6c 6f 63 6b 25 21 34 2c | 62 6c 6f 63 6b 25 21 38 |lock%!4,|block%!8|
|000075a0| 2c 62 6c 6f 63 6b 25 21 | 31 32 2d 62 6c 6f 63 6b |,block%!|12-block|
|000075b0| 25 21 34 2c 62 6c 6f 63 | 6b 25 21 31 36 2d 62 6c |%!4,bloc|k%!16-bl|
|000075c0| 6f 63 6b 25 21 38 0d 2b | d4 07 20 20 f5 0d 2b de |ock%!8.+|..  ..+.|
|000075d0| 0c 20 20 61 63 74 25 3d | 30 0d 2b e8 07 20 20 f5 |.  act%=|0.+..  .|
|000075e0| 0d 2b f2 0d 20 20 20 20 | f2 70 6f 6c 6c 0d 2b fc |.+..    |.poll.+.|
|000075f0| 17 20 20 fd 20 61 63 63 | 65 73 73 62 75 74 74 6f |.  . acc|essbutto|
|00007600| 6e 25 3e 30 0d 2c 06 18 | 20 20 c8 8e 20 61 63 63 |n%>0.,..|  .. acc|
|00007610| 65 73 73 62 75 74 74 6f | 6e 25 20 ca 0d 2c 10 23 |essbutto|n% ..,.#|
|00007620| 20 20 20 20 c9 20 32 3a | f2 63 6c 6f 73 65 5f 77 |    . 2:|.close_w|
|00007630| 69 6e 64 6f 77 28 61 63 | 63 65 73 73 57 25 29 0d |indow(ac|cessW%).|
|00007640| 2c 1a 29 20 20 20 20 70 | 72 65 73 65 6e 74 25 3d |,.)    p|resent%=|
|00007650| a3 3a 61 63 63 65 73 73 | 62 75 74 74 6f 6e 25 3d |.:access|button%=|
|00007660| 30 3a 61 63 74 25 3d 31 | 0d 2c 24 0c 20 20 20 20 |0:act%=1|.,$.    |
|00007670| c9 20 33 3a 0d 2c 2e 20 | 20 20 20 20 70 61 73 73 |. 3:.,. |    pass|
|00007680| 77 6f 72 64 24 3d a4 75 | 28 24 50 61 73 73 77 6f |word$=.u|($Passwo|
|00007690| 72 64 25 29 0d 2c 38 16 | 20 20 20 20 c8 8e 20 70 |rd%).,8.|    .. p|
|000076a0| 61 73 73 77 6f 72 64 24 | 20 ca 0d 2c 42 2f 20 20 |assword$| ..,B/  |
|000076b0| 20 20 20 20 c9 20 4d 61 | 6e 61 67 65 72 24 3a 41 |    . Ma|nager$:A|
|000076c0| 63 63 65 73 73 25 3d b9 | 3a 4d 6f 64 69 66 79 25 |ccess%=.|:Modify%|
|000076d0| 3d b9 3a 61 63 74 25 3d | 32 0d 2c 4c 2d 20 20 20 |=.:act%=|2.,L-   |
|000076e0| 20 20 20 c9 20 57 72 69 | 74 65 24 3a 41 63 63 65 |   . Wri|te$:Acce|
|000076f0| 73 73 25 3d b9 3a 4d 6f | 64 69 66 79 25 3d a3 3a |ss%=.:Mo|dify%=.:|
|00007700| 61 63 74 25 3d 32 0d 2c | 56 2c 20 20 20 20 20 20 |act%=2.,|V,      |
|00007710| c9 20 52 65 61 64 24 3a | 41 63 63 65 73 73 25 3d |. Read$:|Access%=|
|00007720| a3 3a 4d 6f 64 69 66 79 | 25 3d a3 3a 61 63 74 25 |.:Modify|%=.:act%|
|00007730| 3d 32 0d 2c 60 1f 20 20 | 20 20 20 20 7f 3a 61 63 |=2.,`.  |    .:ac|
|00007740| 63 65 73 73 62 75 74 74 | 6f 6e 25 3d 30 3a ef 20 |cessbutt|on%=0:. |
|00007750| 37 0d 2c 6a 31 20 20 20 | 20 20 20 24 a4 74 65 78 |7.,j1   |   $.tex|
|00007760| 74 28 61 63 63 65 73 73 | 57 25 2c 31 29 3d 22 50 |t(access|W%,1)="P|
|00007770| 61 73 73 77 6f 72 64 20 | 6e 6f 74 20 6b 6e 6f 77 |assword |not know|
|00007780| 6e 22 0d 2c 74 23 20 20 | 20 20 20 20 f2 64 63 6f |n".,t#  |    .dco|
|00007790| 6c 6f 75 72 28 61 63 63 | 65 73 73 57 25 2c 31 2c |lour(acc|essW%,1,|
|000077a0| 31 31 2c 31 29 0d 2c 7e | 16 20 20 20 20 20 20 64 |11,1).,~|.      d|
|000077b0| 65 6c 61 79 25 3d 91 2b | 31 35 30 0d 2c 88 0b 20 |elay%=.+|150.,.. |
|000077c0| 20 20 20 20 20 f5 0d 2c | 92 11 20 20 20 20 20 20 |     ..,|..      |
|000077d0| 20 20 f2 70 6f 6c 6c 0d | 2c 9c 14 20 20 20 20 20 |  .poll.|,..     |
|000077e0| 20 fd 20 91 3e 64 65 6c | 61 79 25 0d 2c a6 47 20 | . .>del|ay%.,.G |
|000077f0| 20 20 20 20 20 24 50 61 | 73 73 77 6f 72 64 25 3d |     $Pa|ssword%=|
|00007800| 22 22 3a f2 72 65 64 72 | 61 77 5f 69 63 6f 6e 28 |"":.redr|aw_icon(|
|00007810| 61 63 63 65 73 73 57 25 | 2c 30 29 3a f2 73 65 74 |accessW%|,0):.set|
|00007820| 5f 63 61 72 65 74 28 61 | 63 63 65 73 73 57 25 2c |_caret(a|ccessW%,|
|00007830| 30 29 0d 2c b0 34 20 20 | 20 20 20 20 24 a4 74 65 |0).,.4  |    $.te|
|00007840| 78 74 28 61 63 63 65 73 | 73 57 25 2c 31 29 3d 22 |xt(acces|sW%,1)="|
|00007850| 54 79 70 65 20 69 6e 20 | 79 6f 75 72 20 70 61 73 |Type in |your pas|
|00007860| 73 77 6f 72 64 22 0d 2c | ba 22 20 20 20 20 20 20 |sword".,|."      |
|00007870| f2 64 63 6f 6c 6f 75 72 | 28 61 63 63 65 73 73 57 |.dcolour|(accessW|
|00007880| 25 2c 31 2c 37 2c 31 29 | 0d 2c c4 09 20 20 20 20 |%,1,7,1)|.,..    |
|00007890| cb 0d 2c ce 07 20 20 cb | 0d 2c d8 0e 20 20 fd 20 |..,..  .|.,..  . |
|000078a0| 61 63 74 25 3e 30 0d 2c | e2 1d 20 20 f2 63 6c 6f |act%>0.,|..  .clo|
|000078b0| 73 65 5f 77 69 6e 64 6f | 77 28 61 63 63 65 73 73 |se_windo|w(access|
|000078c0| 57 25 29 0d 2c ec 1b 20 | 20 f2 67 65 74 73 63 72 |W%).,.. | .getscr|
|000078d0| 65 65 6e 73 69 7a 65 28 | 57 25 2c 48 25 29 0d 2c |eensize(|W%,H%).,|
|000078e0| f6 15 20 20 c8 97 20 c8 | 93 20 30 2c 30 2c 57 25 |..  .. .|. 0,0,W%|
|000078f0| 2c 48 25 0d 2d 00 20 20 | 20 e7 20 61 63 74 25 3d |,H%.-.  | . act%=|
|00007900| 32 20 8c 20 f2 72 65 73 | 75 6d 65 5f 6f 70 65 6e |2 . .res|ume_open|
|00007910| 69 6e 67 0d 2d 0a 05 cd | 0d 2d 14 05 e1 0d 2d 1e |ing.-...|.-....-.|
|00007920| 05 3a 0d 2d 28 15 dd 20 | f2 72 65 73 75 6d 65 5f |.:.-(.. |.resume_|
|00007930| 6f 70 65 6e 69 6e 67 0d | 2d 32 15 c8 99 20 22 48 |opening.|-2... "H|
|00007940| 6f 75 72 67 6c 61 73 73 | 5f 4f 6e 22 0d 2d 3c 3b |ourglass|_On".-<;|
|00007950| 2a 53 65 74 20 41 6c 69 | 61 73 24 4a 6f 62 73 44 |*Set Ali|as$JobsD|
|00007960| 6f 6e 65 20 46 69 6c 65 | 72 5f 4f 70 65 6e 44 69 |one File|r_OpenDi|
|00007970| 72 20 3c 44 62 61 73 65 | 24 44 69 72 3e 2e 50 72 |r <Dbase|$Dir>.Pr|
|00007980| 69 6e 74 4a 6f 62 73 0d | 2d 46 1b e7 20 c0 66 24 |intJobs.|-F.. .f$|
|00007990| 2c 33 29 3d 22 52 41 4d | 22 20 8c 20 72 61 6d 25 |,3)="RAM|" . ram%|
|000079a0| 3d b9 0d 2d 50 15 66 69 | 65 6c 64 73 25 3d a4 67 |=..-P.fi|elds%=.g|
|000079b0| 65 74 5f 66 6f 72 6d 0d | 2d 5a 2b f2 6c 6f 61 64 |et_form.|-Z+.load|
|000079c0| 5f 69 6e 64 65 78 28 24 | 64 61 74 61 62 61 73 65 |_index($|database|
|000079d0| 25 2b 22 2e 50 72 69 6d | 61 72 79 4b 65 79 22 2c |%+".Prim|aryKey",|
|000079e0| 30 29 0d 2d 64 36 c8 99 | 20 22 4f 53 5f 46 69 6c |0).-d6..| "OS_Fil|
|000079f0| 65 22 2c 35 2c 24 64 61 | 74 61 62 61 73 65 25 2b |e",5,$da|tabase%+|
|00007a00| 22 2e 44 61 74 61 62 61 | 73 65 22 20 b8 20 64 25 |".Databa|se" . d%|
|00007a10| 2c 2c 2c 2c 6c 65 6e 25 | 0d 2d 6e 1a 52 41 25 3d |,,,,len%|.-n.RA%=|
|00007a20| 28 6c 65 6e 25 20 81 20 | 4c 65 6e 67 74 68 25 29 |(len% . |Length%)|
|00007a30| 2d 31 0d 2d 78 34 f2 63 | 72 65 61 74 65 5f 6e 61 |-1.-x4.c|reate_na|
|00007a40| 6d 65 64 5f 73 6c 69 64 | 69 6e 67 5f 62 6c 6f 63 |med_slid|ing_bloc|
|00007a50| 6b 28 70 72 69 6f 72 69 | 74 79 61 6e 63 68 6f 72 |k(priori|tyanchor|
|00007a60| 25 2c 52 41 25 29 0d 2d | 82 0f f2 67 65 74 5f 74 |%,RA%).-|...get_t|
|00007a70| 61 62 6c 65 73 0d 2d 8c | 22 6b 65 79 25 3d 30 3a |ables.-.|"key%=0:|
|00007a80| 66 69 6c 65 25 3d 30 3a | 74 6f 70 3d 38 2a 66 69 |file%=0:|top=8*fi|
|00007a90| 6c 65 25 2b 4c 48 25 0d | 2d 96 1c f2 6c 69 74 28 |le%+LH%.|-...lit(|
|00007aa0| 6d 65 6e 75 25 28 30 29 | 2c 31 2c 4d 6f 64 69 66 |menu%(0)|,1,Modif|
|00007ab0| 79 25 29 0d 2d a0 16 f2 | 6c 69 74 28 6d 65 6e 75 |y%).-...|lit(menu|
|00007ac0| 25 28 30 29 2c 32 2c b9 | 29 0d 2d aa 1b f2 63 6c |%(0),2,.|).-...cl|
|00007ad0| 6f 73 65 5f 77 69 6e 64 | 6f 77 28 70 72 6f 6d 70 |ose_wind|ow(promp|
|00007ae0| 74 57 25 29 0d 2d b4 11 | f2 73 68 6f 77 5f 77 69 |tW%).-..|.show_wi|
|00007af0| 6e 64 6f 77 73 0d 2d be | 15 f2 70 6f 6c 6c 3a f2 |ndows.-.|..poll:.|
|00007b00| 70 6f 6c 6c 3a f2 70 6f | 6c 6c 0d 2d c8 21 24 64 |poll:.po|ll.-.!$d|
|00007b10| 62 61 73 65 25 3d c1 a4 | 6c 65 61 66 28 24 64 61 |base%=..|leaf($da|
|00007b20| 74 61 62 61 73 65 25 29 | 2c 32 29 0d 2d d2 1d f2 |tabase%)|,2).-...|
|00007b30| 72 65 64 72 61 77 5f 69 | 63 6f 6e 28 2d 32 2c 61 |redraw_i|con(-2,a|
|00007b40| 70 70 69 63 6f 6e 25 29 | 0d 2d dc 1a 66 24 3d 24 |ppicon%)|.-..f$=$|
|00007b50| 64 61 74 61 62 61 73 65 | 25 2b 22 2e 41 70 70 74 |database|%+".Appt|
|00007b60| 73 22 0d 2d e6 1a c8 99 | 20 22 4f 53 5f 46 69 6c |s".-....| "OS_Fil|
|00007b70| 65 22 2c 35 2c 66 24 20 | b8 20 64 25 0d 2d f0 24 |e",5,f$ |. d%.-.$|
|00007b80| e7 20 64 25 3c 3e 32 20 | 8c 20 c8 99 20 22 4f 53 |. d%<>2 |. .. "OS|
|00007b90| 5f 43 4c 49 22 2c 22 43 | 44 49 52 20 22 2b 66 24 |_CLI","C|DIR "+f$|
|00007ba0| 0d 2d fa 21 73 74 61 66 | 66 5f 69 6e 64 65 78 24 |.-.!staf|f_index$|
|00007bb0| 3d 66 24 2b 22 2e 53 74 | 61 66 66 49 6e 64 65 78 |=f$+".St|affIndex|
|00007bc0| 22 0d 2e 04 1c 61 70 70 | 74 66 69 6c 65 24 3d 66 |"....app|tfile$=f|
|00007bd0| 24 2b 22 2e 50 61 72 41 | 70 70 74 73 22 0d 2e 0e |$+".ParA|ppts"...|
|00007be0| 20 73 74 61 66 66 5f 66 | 69 6c 65 24 3d 66 24 2b | staff_f|ile$=f$+|
|00007bf0| 22 2e 53 74 61 66 66 41 | 70 70 74 73 22 0d 2e 18 |".StaffA|ppts"...|
|00007c00| 1c 74 75 74 6f 72 5f 69 | 6e 64 65 78 24 3d 66 24 |.tutor_i|ndex$=f$|
|00007c10| 2b 22 2e 54 75 74 6f 72 | 22 0d 2e 22 1c 72 65 73 |+".Tutor|"..".res|
|00007c20| 74 72 69 63 74 24 3d 66 | 24 2b 22 2e 52 65 73 74 |trict$=f|$+".Rest|
|00007c30| 72 69 63 74 22 0d 2e 2c | 24 c8 99 20 22 4f 53 5f |rict"..,|$.. "OS_|
|00007c40| 46 69 6c 65 22 2c 35 2c | 73 74 61 66 66 5f 69 6e |File",5,|staff_in|
|00007c50| 64 65 78 24 20 b8 20 64 | 25 0d 2e 36 0c e7 20 64 |dex$ . d|%..6.. d|
|00007c60| 25 3d 31 20 8c 0d 2e 40 | 21 20 20 f2 6c 6f 61 64 |%=1 ...@|!  .load|
|00007c70| 5f 69 6e 64 65 78 28 73 | 74 61 66 66 5f 69 6e 64 |_index(s|taff_ind|
|00007c80| 65 78 24 2c 32 29 0d 2e | 4a 1f 20 20 f2 69 63 6f |ex$,2)..|J.  .ico|
|00007c90| 6e 5f 62 69 74 28 32 32 | 2c 6d 61 69 6e 57 25 2c |n_bit(22|,mainW%,|
|00007ca0| 35 30 2c b9 29 0d 2e 54 | 07 20 20 cc 0d 2e 5e 1f |50,.)..T|.  ...^.|
|00007cb0| 20 20 f2 69 63 6f 6e 5f | 62 69 74 28 32 32 2c 6d |  .icon_|bit(22,m|
|00007cc0| 61 69 6e 57 25 2c 35 30 | 2c a3 29 0d 2e 68 05 cd |ainW%,50|,.)..h..|
|00007cd0| 0d 2e 72 21 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |..r!.. "|OS_File"|
|00007ce0| 2c 35 2c 61 70 70 74 66 | 69 6c 65 24 20 b8 20 64 |,5,apptf|ile$ . d|
|00007cf0| 25 0d 2e 7c 26 e7 20 64 | 25 3d 30 20 8c 20 f2 6d |%..|&. d|%=0 . .m|
|00007d00| 61 6b 65 5f 66 69 6c 65 | 28 61 70 70 74 66 69 6c |ake_file|(apptfil|
|00007d10| 65 24 2c 52 41 25 29 0d | 2e 86 24 c8 99 20 22 4f |e$,RA%).|..$.. "O|
|00007d20| 53 5f 46 69 6c 65 22 2c | 35 2c 74 75 74 6f 72 5f |S_File",|5,tutor_|
|00007d30| 69 6e 64 65 78 24 20 b8 | 20 64 25 0d 2e 90 0c e7 |index$ .| d%.....|
|00007d40| 20 64 25 3d 31 20 8c 0d | 2e 9a 21 20 20 f2 6c 6f | d%=1 ..|..!  .lo|
|00007d50| 61 64 5f 69 6e 64 65 78 | 28 74 75 74 6f 72 5f 69 |ad_index|(tutor_i|
|00007d60| 6e 64 65 78 24 2c 31 29 | 0d 2e a4 1f 20 20 f2 69 |ndex$,1)|....  .i|
|00007d70| 63 6f 6e 5f 62 69 74 28 | 32 32 2c 6d 61 69 6e 57 |con_bit(|22,mainW|
|00007d80| 25 2c 35 34 2c b9 29 0d | 2e ae 1a 20 20 cc 20 f2 |%,54,.).|...  . .|
|00007d90| 69 6e 64 65 78 5f 74 75 | 74 6f 72 73 28 52 41 25 |index_tu|tors(RA%|
|00007da0| 29 0d 2e b8 05 cd 0d 2e | c2 23 c8 99 20 22 4f 53 |).......|.#.. "OS|
|00007db0| 5f 46 69 6c 65 22 2c 35 | 2c 73 74 61 66 66 5f 66 |_File",5|,staff_f|
|00007dc0| 69 6c 65 24 20 b8 20 64 | 25 0d 2e cc 0c e7 20 64 |ile$ . d|%..... d|
|00007dd0| 25 3d 31 20 8c 0d 2e d6 | 26 20 20 4e 73 74 61 66 |%=1 ....|&  Nstaf|
|00007de0| 66 25 3d a4 6c 6f 61 64 | 5f 73 74 61 66 66 28 73 |f%=.load|_staff(s|
|00007df0| 74 61 66 66 5f 66 69 6c | 65 24 29 0d 2e e0 1f 20 |taff_fil|e$).... |
|00007e00| 20 f2 69 63 6f 6e 5f 62 | 69 74 28 32 32 2c 6d 61 | .icon_b|it(22,ma|
|00007e10| 69 6e 57 25 2c 35 31 2c | b9 29 0d 2e ea 1f 20 20 |inW%,51,|.)....  |
|00007e20| f2 69 63 6f 6e 5f 62 69 | 74 28 32 32 2c 6d 61 69 |.icon_bi|t(22,mai|
|00007e30| 6e 57 25 2c 35 33 2c b9 | 29 0d 2e f4 07 20 20 cc |nW%,53,.|)....  .|
|00007e40| 0d 2e fe 1f 20 20 f2 69 | 63 6f 6e 5f 62 69 74 28 |....  .i|con_bit(|
|00007e50| 32 32 2c 6d 61 69 6e 57 | 25 2c 35 31 2c a3 29 0d |22,mainW|%,51,.).|
|00007e60| 2f 08 1f 20 20 f2 69 63 | 6f 6e 5f 62 69 74 28 32 |/..  .ic|on_bit(2|
|00007e70| 32 2c 6d 61 69 6e 57 25 | 2c 35 33 2c a3 29 0d 2f |2,mainW%|,53,.)./|
|00007e80| 12 05 cd 0d 2f 1c 21 c8 | 99 20 22 4f 53 5f 46 69 |..../.!.|. "OS_Fi|
|00007e90| 6c 65 22 2c 35 2c 72 65 | 73 74 72 69 63 74 24 20 |le",5,re|strict$ |
|00007ea0| b8 20 64 25 0d 2f 26 0c | e7 20 64 25 3d 31 20 8c |. d%./&.|. d%=1 .|
|00007eb0| 0d 2f 30 21 20 20 20 73 | 74 61 72 74 25 3d a4 74 |./0!   s|tart%=.t|
|00007ec0| 65 78 74 28 72 65 73 74 | 72 69 63 74 57 25 2c 33 |ext(rest|rictW%,3|
|00007ed0| 29 0d 2f 3a 28 20 20 20 | c8 99 20 22 4f 53 5f 46 |)./:(   |.. "OS_F|
|00007ee0| 69 6c 65 22 2c 32 35 35 | 2c 72 65 73 74 72 69 63 |ile",255|,restric|
|00007ef0| 74 24 2c 73 74 61 72 74 | 25 0d 2f 44 05 cd 0d 2f |t$,start|%./D.../|
|00007f00| 4e 2c 65 76 65 6e 69 6e | 67 73 74 61 72 74 25 3d |N,evenin|gstart%=|
|00007f10| a4 6e 75 6d 62 65 72 28 | 45 61 72 6c 69 65 73 74 |.number(|Earliest|
|00007f20| 24 2c 22 54 69 6d 65 73 | 22 29 0d 2f 58 28 65 76 |$,"Times|")./X(ev|
|00007f30| 65 6e 69 6e 67 65 6e 64 | 25 3d a4 6e 75 6d 62 65 |eningend|%=.numbe|
|00007f40| 72 28 4c 61 74 65 73 74 | 24 2c 22 54 69 6d 65 73 |r(Latest|$,"Times|
|00007f50| 22 29 0d 2f 62 0e f2 72 | 65 70 6c 69 63 61 74 65 |")./b..r|eplicate|
|00007f60| 0d 2f 6c 16 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |./l... "|Hourglas|
|00007f70| 73 5f 4f 66 66 22 0d 2f | 76 1c 61 64 64 72 3d a4 |s_Off"./|v.addr=.|
|00007f80| 6d 6f 76 65 74 6f 28 6b | 65 79 25 2c 74 6f 70 2c |moveto(k|ey%,top,|
|00007f90| 31 29 0d 2f 80 05 e1 0d | 2f 8a 06 20 3a 0d 2f 94 |1)./....|/.. :./.|
|00007fa0| 0f dd 20 a4 67 65 74 5f | 66 6f 72 6d 0d 2f 9e 0d |.. .get_|form./..|
|00007fb0| ea 20 4e 25 2c 49 25 2c | 46 0d 2f a8 1b 46 3d 8e |. N%,I%,|F./..F=.|
|00007fc0| 28 24 64 61 74 61 62 61 | 73 65 25 2b 22 2e 46 6f |($databa|se%+".Fo|
|00007fd0| 72 6d 22 29 0d 2f b2 0c | 20 20 e8 23 46 2c 4e 25 |rm")./..|  .#F,N%|
|00007fe0| 0d 2f bc 0f 20 20 4c 65 | 6e 67 74 68 25 3d 30 0d |./..  Le|ngth%=0.|
|00007ff0| 2f c6 11 20 20 e3 20 49 | 25 3d 31 20 b8 20 4e 25 |/..  . I|%=1 . N%|
|00008000| 0d 2f d0 3d 20 20 20 20 | e8 23 46 2c 44 65 73 63 |./.=    |.#F,Desc|
|00008010| 24 2c 54 61 67 24 2c 78 | 64 25 2c 79 64 25 2c 78 |$,Tag$,x|d%,yd%,x|
|00008020| 66 25 2c 79 66 25 2c 6c | 65 6e 25 2c 63 68 61 72 |f%,yf%,l|en%,char|
|00008030| 25 2c 66 69 78 25 2c 65 | 78 74 72 61 25 0d 2f da |%,fix%,e|xtra%./.|
|00008040| 25 20 20 20 20 e7 20 54 | 61 67 24 3d 22 43 52 53 |%    . T|ag$="CRS|
|00008050| 45 22 20 8c 20 43 72 73 | 65 46 69 65 6c 64 25 3d |E" . Crs|eField%=|
|00008060| 49 25 0d 2f e4 23 20 20 | 20 20 e7 20 54 61 67 24 |I%./.#  |  . Tag$|
|00008070| 3d 22 54 55 54 22 20 8c | 20 54 75 74 46 69 65 6c |="TUT" .| TutFiel|
|00008080| 64 25 3d 49 25 0d 2f ee | 22 20 20 20 20 e7 20 54 |d%=I%./.|"    . T|
|00008090| 61 67 24 3d 22 42 31 22 | 20 8c 20 53 75 62 46 69 |ag$="B1"| . SubFi|
|000080a0| 65 6c 64 25 3d 49 25 0d | 2f f8 24 20 20 20 20 e7 |eld%=I%.|/.$    .|
|000080b0| 20 54 61 67 24 3d 22 42 | 31 42 22 20 8c 20 53 75 | Tag$="B|1B" . Su|
|000080c0| 62 46 69 65 6c 64 42 25 | 3d 49 25 0d 30 02 17 20 |bFieldB%|=I%.0.. |
|000080d0| 20 20 20 4c 65 6e 67 74 | 68 25 2b 3d 6c 65 6e 25 |   Lengt|h%+=len%|
|000080e0| 2b 31 0d 30 0c 0a 20 20 | ed 20 49 25 0d 30 16 12 |+1.0..  |. I%.0..|
|000080f0| f2 63 6c 6f 73 65 5f 66 | 69 6c 65 28 46 29 0d 30 |.close_f|ile(F).0|
|00008100| 20 12 41 70 70 74 4c 65 | 6e 67 74 68 25 3d 38 31 | .ApptLe|ngth%=81|
|00008110| 0d 30 2a 07 3d 4e 25 0d | 30 34 06 20 3a 0d 30 3e |.0*.=N%.|04. :.0>|
|00008120| 1a dd 20 f2 6c 6f 61 64 | 5f 69 6e 64 65 78 28 66 |.. .load|_index(f|
|00008130| 24 2c 6b 65 79 25 29 0d | 30 48 11 ea 20 6b 65 79 |$,key%).|0H.. key|
|00008140| 62 61 73 65 25 2c 49 25 | 0d 30 52 3f e7 20 6b 65 |base%,I%|.0R?. ke|
|00008150| 79 61 6e 63 68 6f 72 25 | 28 6b 65 79 25 29 20 8c |yanchor%|(key%) .|
|00008160| 20 f2 73 63 72 61 70 5f | 73 6c 69 64 69 6e 67 5f | .scrap_|sliding_|
|00008170| 62 6c 6f 63 6b 28 6b 65 | 79 61 6e 63 68 6f 72 25 |block(ke|yanchor%|
|00008180| 28 6b 65 79 25 29 29 0d | 30 5c 20 c8 99 20 22 4f |(key%)).|0\ .. "O|
|00008190| 53 5f 46 69 6c 65 22 2c | 35 2c 66 24 20 b8 20 2c |S_File",|5,f$ . ,|
|000081a0| 2c 2c 2c 6c 65 6e 25 0d | 30 66 36 f2 63 72 65 61 |,,,len%.|0f6.crea|
|000081b0| 74 65 5f 6e 61 6d 65 64 | 5f 73 6c 69 64 69 6e 67 |te_named|_sliding|
|000081c0| 5f 62 6c 6f 63 6b 28 6b | 65 79 61 6e 63 68 6f 72 |_block(k|eyanchor|
|000081d0| 25 28 6b 65 79 25 29 2c | 6c 65 6e 25 29 0d 30 70 |%(key%),|len%).0p|
|000081e0| 29 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 32 35 |).. "OS_|File",25|
|000081f0| 35 2c 66 24 2c 21 6b 65 | 79 61 6e 63 68 6f 72 25 |5,f$,!ke|yanchor%|
|00008200| 28 6b 65 79 25 29 0d 30 | 7a 1e 6b 65 79 62 61 73 |(key%).0|z.keybas|
|00008210| 65 25 3d 21 6b 65 79 61 | 6e 63 68 6f 72 25 28 6b |e%=!keya|nchor%(k|
|00008220| 65 79 25 29 0d 30 84 1b | 4b 46 25 28 6b 65 79 25 |ey%).0..|KF%(key%|
|00008230| 2c 30 29 3d 6b 65 79 62 | 61 73 65 25 21 36 32 0d |,0)=keyb|ase%!62.|
|00008240| 30 8e 1b 4b 46 25 28 6b | 65 79 25 2c 31 29 3d 6b |0..KF%(k|ey%,1)=k|
|00008250| 65 79 62 61 73 65 25 21 | 36 36 0d 30 98 19 4b 4c |eybase%!|66.0..KL|
|00008260| 25 28 6b 65 79 25 29 3d | 6b 65 79 62 61 73 65 25 |%(key%)=|keybase%|
|00008270| 21 37 30 0d 30 a2 0e e3 | 20 49 25 3d 30 20 b8 20 |!70.0...| I%=0 . |
|00008280| 33 0d 30 ac 26 20 20 4b | 57 25 28 6b 65 79 25 2c |3.0.&  K|W%(key%,|
|00008290| 49 25 29 3d 21 28 6b 65 | 79 62 61 73 65 25 2b 37 |I%)=!(ke|ybase%+7|
|000082a0| 34 2b 49 25 2a 34 29 0d | 30 b6 08 ed 20 49 25 0d |4+I%*4).|0... I%.|
|000082b0| 30 c0 05 e1 0d 30 ca 05 | 3a 0d 30 d4 12 20 dd 20 |0....0..|:.0.. . |
|000082c0| f2 67 65 74 5f 74 61 62 | 6c 65 73 0d 30 de 09 20 |.get_tab|les.0.. |
|000082d0| ea 20 49 25 0d 30 e8 2f | 20 f2 6c 6f 61 64 5f 74 |. I%.0./| .load_t|
|000082e0| 61 62 6c 65 28 24 64 61 | 74 61 62 61 73 65 25 2b |able($da|tabase%+|
|000082f0| 22 2e 56 61 6c 54 61 62 | 6c 65 73 2e 53 74 61 66 |".ValTab|les.Staf|
|00008300| 66 22 29 0d 30 f2 2f 20 | f2 6c 6f 61 64 5f 74 61 |f").0./ |.load_ta|
|00008310| 62 6c 65 28 24 64 61 74 | 61 62 61 73 65 25 2b 22 |ble($dat|abase%+"|
|00008320| 2e 56 61 6c 54 61 62 6c | 65 73 2e 54 69 6d 65 73 |.ValTabl|es.Times|
|00008330| 22 29 0d 30 fc 30 20 f2 | 6c 6f 61 64 5f 74 61 62 |").0.0 .|load_tab|
|00008340| 6c 65 28 24 64 61 74 61 | 62 61 73 65 25 2b 22 2e |le($data|base%+".|
|00008350| 56 61 6c 54 61 62 6c 65 | 73 2e 54 75 74 6f 72 73 |ValTable|s.Tutors|
|00008360| 22 29 0d 31 06 06 20 e1 | 0d 31 10 06 20 3a 0d 31 |").1.. .|.1.. :.1|
|00008370| 1a 16 20 dd 20 f2 6c 6f | 61 64 5f 74 61 62 6c 65 |.. . .lo|ad_table|
|00008380| 28 66 24 29 0d 31 24 11 | 20 ea 20 70 6f 73 25 2c |(f$).1$.| . pos%,|
|00008390| 6e 61 6d 65 24 0d 31 2e | 14 20 6e 61 6d 65 24 3d |name$.1.|. name$=|
|000083a0| a4 6c 65 61 66 28 66 24 | 29 0d 31 38 26 20 c8 99 |.leaf(f$|).18& ..|
|000083b0| 20 22 4f 53 5f 46 69 6c | 65 22 2c 35 2c 66 24 20 | "OS_Fil|e",5,f$ |
|000083c0| b8 20 64 25 2c 2c 2c 2c | 74 61 62 6c 65 6e 25 0d |. d%,,,,|tablen%.|
|000083d0| 31 42 54 20 e7 20 64 25 | 3d 30 20 8c 20 f2 63 6c |1BT . d%|=0 . .cl|
|000083e0| 6f 73 65 5f 77 69 6e 64 | 6f 77 28 61 63 63 65 73 |ose_wind|ow(acces|
|000083f0| 73 57 25 29 3a 85 20 6d | 6f 61 6e 5f 65 72 72 25 |sW%):. m|oan_err%|
|00008400| 2c 22 54 61 62 6c 65 20 | 27 22 2b 6e 61 6d 65 24 |,"Table |'"+name$|
|00008410| 2b 22 27 20 6e 6f 74 20 | 66 6f 75 6e 64 22 2b bd |+"' not |found"+.|
|00008420| 28 30 29 0d 31 4c 12 20 | 4c 61 73 74 54 61 62 6c |(0).1L. |LastTabl|
|00008430| 65 25 2b 3d 31 0d 31 56 | 40 20 f2 63 72 65 61 74 |e%+=1.1V|@ .creat|
|00008440| 65 5f 6e 61 6d 65 64 5f | 73 6c 69 64 69 6e 67 5f |e_named_|sliding_|
|00008450| 62 6c 6f 63 6b 28 74 61 | 62 61 6e 63 68 6f 72 25 |block(ta|banchor%|
|00008460| 28 4c 61 73 74 54 61 62 | 6c 65 25 29 2c 74 61 62 |(LastTab|le%),tab|
|00008470| 6c 65 6e 25 29 0d 31 60 | 30 20 c8 99 20 22 4f 53 |len%).1`|0 .. "OS|
|00008480| 5f 46 69 6c 65 22 2c 32 | 35 35 2c 66 24 2c 21 74 |_File",2|55,f$,!t|
|00008490| 61 62 61 6e 63 68 6f 72 | 25 28 4c 61 73 74 54 61 |abanchor|%(LastTa|
|000084a0| 62 6c 65 25 29 0d 31 6a | 1d 20 74 61 62 6c 65 24 |ble%).1j|. table$|
|000084b0| 28 4c 61 73 74 54 61 62 | 6c 65 25 29 3d 6e 61 6d |(LastTab|le%)=nam|
|000084c0| 65 24 0d 31 74 06 20 e1 | 0d 31 7e 06 20 3a 0d 31 |e$.1t. .|.1~. :.1|
|000084d0| 88 19 20 dd 20 f2 73 6f | 72 74 5f 74 61 62 6c 65 |.. . .so|rt_table|
|000084e0| 28 6e 61 6d 65 24 29 0d | 31 92 1c 20 54 25 3d a4 |(name$).|1.. T%=.|
|000084f0| 74 61 62 6c 65 5f 6e 75 | 6d 62 65 72 28 6e 61 6d |table_nu|mber(nam|
|00008500| 65 24 29 0d 31 9c 40 20 | 74 69 74 6c 65 24 3d a4 |e$).1.@ |title$=.|
|00008510| 74 61 62 6c 65 5f 69 6e | 66 6f 28 54 25 2c 52 6f |table_in|fo(T%,Ro|
|00008520| 77 73 25 2c 54 61 62 46 | 69 65 6c 64 73 25 2c 52 |ws%,TabF|ields%,R|
|00008530| 65 63 25 2c 74 61 62 66 | 69 65 6c 64 6c 65 6e 25 |ec%,tabf|ieldlen%|
|00008540| 28 29 29 0d 31 a6 22 20 | 69 6e 64 25 3d 21 74 61 |()).1." |ind%=!ta|
|00008550| 62 61 6e 63 68 6f 72 25 | 28 54 25 29 2b 31 36 30 |banchor%|(T%)+160|
|00008560| 2d 52 65 63 25 0d 31 b0 | 17 20 e3 20 72 6f 77 25 |-Rec%.1.|. . row%|
|00008570| 3d 30 20 b8 20 52 6f 77 | 73 25 2d 31 0d 31 ba 11 |=0 . Row|s%-1.1..|
|00008580| 20 20 20 69 6e 64 25 2b | 3d 52 65 63 25 0d 31 c4 |   ind%+|=Rec%.1.|
|00008590| 1b 20 20 20 62 6c 6f 63 | 6b 25 21 28 72 6f 77 25 |.   bloc|k%!(row%|
|000085a0| 2a 34 29 3d 69 6e 64 25 | 0d 31 ce 1d 20 20 20 e7 |*4)=ind%|.1..   .|
|000085b0| 20 24 69 6e 64 25 3d 22 | 22 20 8c 20 24 69 6e 64 | $ind%="|" . $ind|
|000085c0| 25 3d 22 7e 22 0d 31 d8 | 0b 20 ed 20 72 6f 77 25 |%="~".1.|. . row%|
|000085d0| 0d 31 e2 54 20 c8 99 20 | 22 4f 53 5f 48 65 61 70 |.1.T .. |"OS_Heap|
|000085e0| 53 6f 72 74 22 2c 52 6f | 77 73 25 2c 28 62 6c 6f |Sort",Ro|ws%,(blo|
|000085f0| 63 6b 25 20 84 20 28 31 | 3c 3c 33 30 29 20 84 20 |ck% . (1|<<30) . |
|00008600| 28 31 3c 3c 33 31 29 29 | 2c 34 2c 2c 21 74 61 62 |(1<<31))|,4,,!tab|
|00008610| 61 6e 63 68 6f 72 25 28 | 54 25 29 2b 31 36 30 2c |anchor%(|T%)+160,|
|00008620| 52 65 63 25 0d 31 ec 22 | 20 69 6e 64 25 3d 21 74 |Rec%.1."| ind%=!t|
|00008630| 61 62 61 6e 63 68 6f 72 | 25 28 54 25 29 2b 31 36 |abanchor|%(T%)+16|
|00008640| 30 2d 52 65 63 25 0d 31 | f6 17 20 e3 20 72 6f 77 |0-Rec%.1|.. . row|
|00008650| 25 3d 30 20 b8 20 52 6f | 77 73 25 2d 31 0d 32 00 |%=0 . Ro|ws%-1.2.|
|00008660| 11 20 20 20 69 6e 64 25 | 2b 3d 52 65 63 25 0d 32 |.   ind%|+=Rec%.2|
|00008670| 0a 1d 20 20 20 e7 20 24 | 69 6e 64 25 3d 22 7e 22 |..   . $|ind%="~"|
|00008680| 20 8c 20 24 69 6e 64 25 | 3d 22 22 0d 32 14 0b 20 | . $ind%|="".2.. |
|00008690| ed 20 72 6f 77 25 0d 32 | 1e 17 20 f2 72 65 64 72 |. row%.2|.. .redr|
|000086a0| 61 77 28 64 61 74 61 64 | 69 63 57 25 29 0d 32 28 |aw(datad|icW%).2(|
|000086b0| 06 20 e1 0d 32 32 06 20 | 3a 0d 32 3c 19 20 dd 20 |. ..22. |:.2<. . |
|000086c0| f2 73 61 76 65 5f 74 61 | 62 6c 65 28 6e 61 6d 65 |.save_ta|ble(name|
|000086d0| 24 29 0d 32 46 09 20 ea | 20 54 25 0d 32 50 1c 20 |$).2F. .| T%.2P. |
|000086e0| 54 25 3d a4 74 61 62 6c | 65 5f 6e 75 6d 62 65 72 |T%=.tabl|e_number|
|000086f0| 28 6e 61 6d 65 24 29 0d | 32 5a 0f 20 54 79 70 65 |(name$).|2Z. Type|
|00008700| 25 3d 26 37 66 31 0d 32 | 64 44 20 24 54 61 62 54 |%=&7f1.2|dD $TabT|
|00008710| 69 74 6c 65 25 3d a4 74 | 61 62 6c 65 5f 69 6e 66 |itle%=.t|able_inf|
|00008720| 6f 28 54 25 2c 52 6f 77 | 73 25 2c 54 61 62 46 69 |o(T%,Row|s%,TabFi|
|00008730| 65 6c 64 73 25 2c 52 65 | 63 25 2c 74 61 62 66 69 |elds%,Re|c%,tabfi|
|00008740| 65 6c 64 6c 65 6e 25 28 | 29 29 0d 32 6e 1b 20 53 |eldlen%(|)).2n. S|
|00008750| 74 61 72 74 25 3d 21 74 | 61 62 61 6e 63 68 6f 72 |tart%=!t|abanchor|
|00008760| 25 28 54 25 29 0d 32 78 | 1f 20 45 6e 64 25 3d 53 |%(T%).2x|. End%=S|
|00008770| 74 61 72 74 25 2b 31 36 | 30 2b 52 6f 77 73 25 2a |tart%+16|0+Rows%*|
|00008780| 52 65 63 25 0d 32 82 3c | 20 f2 73 61 76 65 28 24 |Rec%.2.<| .save($|
|00008790| 64 61 74 61 62 61 73 65 | 25 2b 22 2e 56 61 6c 54 |database|%+".ValT|
|000087a0| 61 62 6c 65 73 2e 22 2b | 6e 61 6d 65 24 2c 54 79 |ables."+|name$,Ty|
|000087b0| 70 65 25 2c 53 74 61 72 | 74 25 2c 45 6e 64 25 29 |pe%,Star|t%,End%)|
|000087c0| 0d 32 8c 06 20 e1 0d 32 | 96 06 20 3a 0d 32 a0 24 |.2.. ..2|.. :.2.$|
|000087d0| 20 dd 20 f2 69 6e 69 74 | 5f 64 72 61 67 28 77 69 | . .init|_drag(wi|
|000087e0| 25 2c 69 63 25 2c 64 72 | 61 67 74 79 70 65 25 29 |%,ic%,dr|agtype%)|
|000087f0| 0d 32 aa 1a 20 f2 67 65 | 74 73 63 72 65 65 6e 73 |.2.. .ge|tscreens|
|00008800| 69 7a 65 28 57 25 2c 48 | 25 29 0d 32 b4 10 20 21 |ize(W%,H|%).2.. !|
|00008810| 62 6c 6f 63 6b 25 3d 77 | 69 25 0d 32 be 25 20 c8 |block%=w|i%.2.% .|
|00008820| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00008830| 77 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |wState",|,block%.|
|00008840| 32 c8 1e 20 79 73 69 7a | 65 25 3d 62 6c 6f 63 6b |2.. ysiz|e%=block|
|00008850| 25 21 31 36 2d 62 6c 6f | 63 6b 25 21 38 0d 32 d2 |%!16-blo|ck%!8.2.|
|00008860| 1a 20 78 25 3d 62 6c 6f | 63 6b 25 21 34 2d 62 6c |. x%=blo|ck%!4-bl|
|00008870| 6f 63 6b 25 21 32 30 0d | 32 dc 1b 20 79 25 3d 62 |ock%!20.|2.. y%=b|
|00008880| 6c 6f 63 6b 25 21 31 36 | 2d 62 6c 6f 63 6b 25 21 |lock%!16|-block%!|
|00008890| 32 34 0d 32 e6 11 20 62 | 6c 6f 63 6b 25 21 34 3d |24.2.. b|lock%!4=|
|000088a0| 69 63 25 0d 32 f0 23 20 | c8 99 20 22 57 69 6d 70 |ic%.2.# |.. "Wimp|
|000088b0| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|000088c0| 62 6c 6f 63 6b 25 0d 32 | fa 20 20 62 6c 6f 63 6b |block%.2|.  block|
|000088d0| 25 21 38 2b 3d 78 25 3a | 6d 69 6e 78 25 3d 62 6c |%!8+=x%:|minx%=bl|
|000088e0| 6f 63 6b 25 21 38 0d 33 | 04 22 20 62 6c 6f 63 6b |ock%!8.3|." block|
|000088f0| 25 21 31 32 2b 3d 79 25 | 3a 6d 69 6e 79 25 3d 62 |%!12+=y%|:miny%=b|
|00008900| 6c 6f 63 6b 25 21 31 32 | 0d 33 0e 22 20 62 6c 6f |lock%!12|.3." blo|
|00008910| 63 6b 25 21 31 36 2b 3d | 78 25 3a 6d 61 78 78 25 |ck%!16+=|x%:maxx%|
|00008920| 3d 62 6c 6f 63 6b 25 21 | 31 36 0d 33 18 22 20 62 |=block%!|16.3." b|
|00008930| 6c 6f 63 6b 25 21 32 30 | 2b 3d 79 25 3a 6d 61 78 |lock%!20|+=y%:max|
|00008940| 79 25 3d 62 6c 6f 63 6b | 25 21 32 30 0d 33 22 14 |y%=block|%!20.3".|
|00008950| 20 e7 20 64 72 61 67 74 | 79 70 65 25 3d 36 20 8c | . dragt|ype%=6 .|
|00008960| 0d 33 2c 36 20 20 20 62 | 6c 6f 63 6b 25 21 32 34 |.3,6   b|lock%!24|
|00008970| 3d 32 2a 6d 69 6e 78 25 | 2d 6d 61 78 78 25 3a 62 |=2*minx%|-maxx%:b|
|00008980| 6c 6f 63 6b 25 21 33 36 | 3d 32 2a 6d 61 78 79 25 |lock%!36|=2*maxy%|
|00008990| 2d 6d 69 6e 79 25 0d 33 | 36 21 20 20 20 cc 20 62 |-miny%.3|6!   . b|
|000089a0| 6c 6f 63 6b 25 21 32 34 | 3d 30 3a 62 6c 6f 63 6b |lock%!24|=0:block|
|000089b0| 25 21 33 36 3d 48 25 0d | 33 40 06 20 cd 0d 33 4a |%!36=H%.|3@. ..3J|
|000089c0| 10 20 62 6c 6f 63 6b 25 | 21 32 38 3d 30 0d 33 54 |. block%|!28=0.3T|
|000089d0| 11 20 62 6c 6f 63 6b 25 | 21 33 32 3d 57 25 0d 33 |. block%|!32=W%.3|
|000089e0| 5e 0e 20 21 62 6c 6f 63 | 6b 25 3d 30 0d 33 68 17 |^. !bloc|k%=0.3h.|
|000089f0| 20 62 6c 6f 63 6b 25 21 | 34 3d 64 72 61 67 74 79 | block%!|4=dragty|
|00008a00| 70 65 25 0d 33 72 10 20 | 64 72 61 67 67 69 6e 67 |pe%.3r. |dragging|
|00008a10| 25 3d b9 0d 33 7c 1e 20 | c8 99 20 22 57 69 6d 70 |%=..3|. |.. "Wimp|
|00008a20| 5f 44 72 61 67 42 6f 78 | 22 2c 2c 62 6c 6f 63 6b |_DragBox|",,block|
|00008a30| 25 0d 33 86 06 20 e1 0d | 33 90 06 20 3a 0d 33 9a |%.3.. ..|3.. :.3.|
|00008a40| 1d 20 dd 20 f2 65 6e 64 | 5f 64 72 61 67 28 73 74 |. . .end|_drag(st|
|00008a50| 61 72 74 25 2c 65 6e 64 | 25 29 0d 33 a4 10 20 64 |art%,end|%).3.. d|
|00008a60| 72 61 67 67 69 6e 67 25 | 3d a3 0d 33 ae 1a 20 64 |ragging%|=..3.. d|
|00008a70| 61 74 61 73 69 7a 65 25 | 3d 65 6e 64 25 2d 73 74 |atasize%|=end%-st|
|00008a80| 61 72 74 25 0d 33 b8 25 | 20 c8 99 20 22 57 69 6d |art%.3.%| .. "Wim|
|00008a90| 70 5f 47 65 74 50 6f 69 | 6e 74 65 72 49 6e 66 6f |p_GetPoi|nterInfo|
|00008aa0| 22 2c 2c 62 6c 6f 63 6b | 25 0d 33 c2 17 20 62 6c |",,block|%.3.. bl|
|00008ab0| 6f 63 6b 25 21 33 32 3d | 62 6c 6f 63 6b 25 21 34 |ock%!32=|block%!4|
|00008ac0| 0d 33 cc 17 20 62 6c 6f | 63 6b 25 21 32 38 3d 62 |.3.. blo|ck%!28=b|
|00008ad0| 6c 6f 63 6b 25 21 30 0d | 33 d6 18 20 62 6c 6f 63 |lock%!0.|3.. bloc|
|00008ae0| 6b 25 21 32 34 3d 62 6c | 6f 63 6b 25 21 31 36 0d |k%!24=bl|ock%!16.|
|00008af0| 33 e0 18 20 62 6c 6f 63 | 6b 25 21 32 30 3d 62 6c |3.. bloc|k%!20=bl|
|00008b00| 6f 63 6b 25 21 31 32 0d | 33 ea 10 20 62 6c 6f 63 |ock%!12.|3.. bloc|
|00008b10| 6b 25 21 31 36 3d 31 0d | 33 f4 10 20 62 6c 6f 63 |k%!16=1.|3.. bloc|
|00008b20| 6b 25 21 31 32 3d 30 0d | 33 fe 18 20 62 6c 6f 63 |k%!12=0.|3.. bloc|
|00008b30| 6b 25 21 33 36 3d 64 61 | 74 61 73 69 7a 65 25 0d |k%!36=da|tasize%.|
|00008b40| 34 08 14 20 62 6c 6f 63 | 6b 25 21 34 30 3d 54 79 |4.. bloc|k%!40=Ty|
|00008b50| 70 65 25 0d 34 12 22 20 | 24 28 62 6c 6f 63 6b 25 |pe%.4." |$(block%|
|00008b60| 2b 34 34 29 3d a4 6c 65 | 61 66 28 46 69 6c 65 6e |+44)=.le|af(Filen|
|00008b70| 61 6d 65 24 29 0d 34 1c | 0f 20 21 62 6c 6f 63 6b |ame$).4.|. !block|
|00008b80| 25 3d 36 30 0d 34 26 38 | 20 c8 99 20 22 57 69 6d |%=60.4&8| .. "Wim|
|00008b90| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00008ba0| 37 2c 62 6c 6f 63 6b 25 | 2c 62 6c 6f 63 6b 25 21 |7,block%|,block%!|
|00008bb0| 32 30 2c 62 6c 6f 63 6b | 25 21 32 34 0d 34 30 13 |20,block|%!24.40.|
|00008bc0| 20 72 61 6d 70 74 72 25 | 3d 73 74 61 72 74 25 0d | ramptr%|=start%.|
|00008bd0| 34 3a 1d 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |4:. .. "|Wimp_Cre|
|00008be0| 61 74 65 4d 65 6e 75 22 | 2c 2c 2d 31 0d 34 44 06 |ateMenu"|,,-1.4D.|
|00008bf0| 20 e1 0d 34 4e 06 20 3a | 0d 34 58 10 20 dd 20 a4 | ..4N. :|.4X. . .|
|00008c00| 6c 65 61 66 28 73 24 29 | 0d 34 62 0b 20 73 32 24 |leaf(s$)|.4b. s2$|
|00008c10| 3d 22 22 0d 34 6c 1a 20 | c8 95 20 c2 73 24 29 3c |="".4l. |.. .s$)<|
|00008c20| 3e 22 2e 22 20 80 20 73 | 24 3c 3e 22 22 0d 34 76 |>"." . s|$<>"".4v|
|00008c30| 13 20 20 20 73 32 24 3d | c2 73 24 29 2b 73 32 24 |.   s2$=|.s$)+s2$|
|00008c40| 0d 34 80 0e 20 20 20 73 | 24 3d c0 73 24 29 0d 34 |.4..   s|$=.s$).4|
|00008c50| 8a 06 20 ce 0d 34 94 09 | 20 3d 73 32 24 0d 34 9e |.. ..4..| =s2$.4.|
|00008c60| 06 20 3a 0d 34 a8 4b 20 | f4 20 2d 2d 2d 2d 2d 2d |. :.4.K |. ------|
|00008c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 45 6e 64 |--------|---- End|
|00008c80| 20 6f 66 20 66 69 6c 65 | 20 6c 6f 61 64 69 6e 67 | of file| loading|
|00008c90| 2f 6f 70 65 6e 69 6e 67 | 20 2d 2d 2d 2d 2d 2d 2d |/opening| -------|
|00008ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 34 |--------|------.4|
|00008cb0| b2 06 20 3a 0d 34 bc 06 | 20 3a 0d 34 c6 06 20 3a |.. :.4..| :.4.. :|
|00008cc0| 0d 34 d0 4b 20 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.4.K . -|--------|
|00008cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 56 61 6c 69 64 |--------|-- Valid|
|00008ce0| 61 74 69 6f 6e 20 74 61 | 62 6c 65 20 68 61 6e 64 |ation ta|ble hand|
|00008cf0| 6c 69 6e 67 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ling ---|--------|
|00008d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 34 da 06 20 |--------|---.4.. |
|00008d10| 3a 0d 34 e4 16 20 dd 20 | f2 73 68 6f 77 5f 74 61 |:.4.. . |.show_ta|
|00008d20| 62 6c 65 28 54 25 29 0d | 34 ee 2d 20 ea 20 52 25 |ble(T%).|4.- . R%|
|00008d30| 2c 69 6e 64 25 2c 73 74 | 61 72 74 25 2c 69 66 6c |,ind%,st|art%,ifl|
|00008d40| 61 67 73 25 2c 49 25 2c | 70 6f 73 25 2c 70 24 2c |ags%,I%,|pos%,p$,|
|00008d50| 72 6f 77 25 0d 34 f8 1f | 20 f2 64 65 6c 65 74 65 |row%.4..| .delete|
|00008d60| 5f 69 63 6f 6e 73 28 64 | 61 74 61 64 69 63 57 25 |_icons(d|atadicW%|
|00008d70| 2c 30 29 0d 35 02 26 20 | 6e 61 6d 65 24 3d 74 61 |,0).5.& |name$=ta|
|00008d80| 62 6c 65 24 28 54 25 29 | 3a 54 61 62 6c 65 6e 61 |ble$(T%)|:Tablena|
|00008d90| 6d 65 24 3d 6e 61 6d 65 | 24 0d 35 0c 44 20 24 54 |me$=name|$.5.D $T|
|00008da0| 61 62 54 69 74 6c 65 25 | 3d a4 74 61 62 6c 65 5f |abTitle%|=.table_|
|00008db0| 69 6e 66 6f 28 54 25 2c | 52 6f 77 73 25 2c 54 61 |info(T%,|Rows%,Ta|
|00008dc0| 62 46 69 65 6c 64 73 25 | 2c 52 65 63 25 2c 74 61 |bFields%|,Rec%,ta|
|00008dd0| 62 66 69 65 6c 64 6c 65 | 6e 25 28 29 29 0d 35 16 |bfieldle|n%()).5.|
|00008de0| 36 20 e7 20 41 63 63 65 | 73 73 25 20 8c 20 69 66 |6 . Acce|ss% . if|
|00008df0| 6c 61 67 73 25 3d 26 30 | 37 30 30 33 35 33 31 20 |lags%=&0|7003531 |
|00008e00| 8b 20 69 66 6c 61 67 73 | 25 3d 26 30 37 30 30 30 |. iflags|%=&07000|
|00008e10| 35 33 31 0d 35 20 1d 20 | 69 6e 64 25 3d 21 74 61 |531.5 . |ind%=!ta|
|00008e20| 62 61 6e 63 68 6f 72 25 | 28 54 25 29 2b 31 36 30 |banchor%|(T%)+160|
|00008e30| 0d 35 2a 16 20 c8 99 20 | 22 48 6f 75 72 67 6c 61 |.5*. .. |"Hourgla|
|00008e40| 73 73 5f 4f 6e 22 0d 35 | 34 15 20 e3 20 72 6f 77 |ss_On".5|4. . row|
|00008e50| 25 3d 31 20 b8 20 52 6f | 77 73 25 0d 35 3e 0e 20 |%=1 . Ro|ws%.5>. |
|00008e60| 20 20 70 6f 73 25 3d 38 | 30 0d 35 48 1a 20 20 20 |  pos%=8|0.5H.   |
|00008e70| e3 20 49 25 3d 30 20 b8 | 20 54 61 62 46 69 65 6c |. I%=0 .| TabFiel|
|00008e80| 64 73 25 0d 35 52 77 20 | 20 20 20 20 52 25 3d a4 |ds%.5Rw |    R%=.|
|00008e90| 63 72 65 61 74 65 5f 69 | 63 6f 6e 28 64 61 74 61 |create_i|con(data|
|00008ea0| 64 69 63 57 25 2c 70 6f | 73 25 2c 2d 72 6f 77 25 |dicW%,po|s%,-row%|
|00008eb0| 2a 33 36 2c 28 74 61 62 | 66 69 65 6c 64 6c 65 6e |*36,(tab|fieldlen|
|00008ec0| 25 28 49 25 29 2b 31 29 | 2a 31 36 2c 33 32 2c 69 |%(I%)+1)|*16,32,i|
|00008ed0| 66 6c 61 67 73 25 2c 22 | 22 2c 69 6e 64 25 2c 77 |flags%,"|",ind%,w|
|00008ee0| 72 69 74 65 70 25 2c 74 | 61 62 66 69 65 6c 64 6c |ritep%,t|abfieldl|
|00008ef0| 65 6e 25 28 49 25 29 2b | 31 29 0d 35 5c 26 20 20 |en%(I%)+|1).5\&  |
|00008f00| 20 20 20 70 6f 73 25 2b | 3d 28 74 61 62 66 69 65 |   pos%+|=(tabfie|
|00008f10| 6c 64 6c 65 6e 25 28 49 | 25 29 2b 32 29 2a 31 36 |ldlen%(I|%)+2)*16|
|00008f20| 0d 35 66 21 20 20 20 20 | 20 69 6e 64 25 2b 3d 74 |.5f!    | ind%+=t|
|00008f30| 61 62 66 69 65 6c 64 6c | 65 6e 25 28 49 25 29 2b |abfieldl|en%(I%)+|
|00008f40| 31 0d 35 70 0b 20 20 20 | ed 20 49 25 0d 35 7a 31 |1.5p.   |. I%.5z1|
|00008f50| 20 20 20 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |   .. "H|ourglass|
|00008f60| 5f 50 65 72 63 65 6e 74 | 61 67 65 22 2c 72 6f 77 |_Percent|age",row|
|00008f70| 25 2a 31 30 30 20 81 20 | 52 6f 77 73 25 0d 35 84 |%*100 . |Rows%.5.|
|00008f80| 0b 20 ed 20 72 6f 77 25 | 0d 35 8e 17 20 c8 99 20 |. . row%|.5.. .. |
|00008f90| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 66 66 22 0d |"Hourgla|ss_Off".|
|00008fa0| 35 98 17 20 77 6d 61 78 | 25 3d 28 52 65 63 25 2b |5.. wmax|%=(Rec%+|
|00008fb0| 31 30 29 2a 31 36 0d 35 | a2 22 20 21 62 6c 6f 63 |10)*16.5|." !bloc|
|00008fc0| 6b 25 3d 30 3a 62 6c 6f | 63 6b 25 21 34 3d 2d 72 |k%=0:blo|ck%!4=-r|
|00008fd0| 6f 77 25 2a 33 36 2d 34 | 0d 35 ac 1f 20 62 6c 6f |ow%*36-4|.5.. blo|
|00008fe0| 63 6b 25 21 38 3d 77 6d | 61 78 25 3a 62 6c 6f 63 |ck%!8=wm|ax%:bloc|
|00008ff0| 6b 25 21 31 32 3d 30 0d | 35 b6 29 20 c8 99 20 22 |k%!12=0.|5.) .. "|
|00009000| 57 69 6d 70 5f 53 65 74 | 45 78 74 65 6e 74 22 2c |Wimp_Set|Extent",|
|00009010| 64 61 74 61 64 69 63 57 | 25 2c 62 6c 6f 63 6b 25 |datadicW|%,block%|
|00009020| 0d 35 c0 16 20 21 62 6c | 6f 63 6b 25 3d 64 61 74 |.5.. !bl|ock%=dat|
|00009030| 61 64 69 63 57 25 0d 35 | ca 25 20 c8 99 20 22 57 |adicW%.5|.% .. "W|
|00009040| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00009050| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 35 d4 10 20 |te",,blo|ck%.5.. |
|00009060| e7 20 72 6f 77 25 3c 32 | 30 20 8c 0d 35 de 23 20 |. row%<2|0 ..5.# |
|00009070| 20 20 62 6c 6f 63 6b 25 | 21 31 36 3d 62 6c 6f 63 |  block%|!16=bloc|
|00009080| 6b 25 21 38 2b 72 6f 77 | 25 2a 33 36 2b 34 0d 35 |k%!8+row|%*36+4.5|
|00009090| e8 08 20 20 20 cc 0d 35 | f2 21 20 20 20 62 6c 6f |..   ..5|.!   blo|
|000090a0| 63 6b 25 21 31 36 3d 62 | 6c 6f 63 6b 25 21 38 2b |ck%!16=b|lock%!8+|
|000090b0| 33 36 2a 32 30 2b 34 0d | 35 fc 06 20 cd 0d 36 06 |36*20+4.|5.. ..6.|
|000090c0| 21 20 c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |! .. "Wi|mp_OpenW|
|000090d0| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 25 0d 36 |indow",,|block%.6|
|000090e0| 10 17 20 f2 72 65 64 72 | 61 77 28 64 61 74 61 64 |.. .redr|aw(datad|
|000090f0| 69 63 57 25 29 0d 36 1a | 28 20 e7 20 41 63 63 65 |icW%).6.|( . Acce|
|00009100| 73 73 25 20 8c 20 f2 73 | 65 74 5f 63 61 72 65 74 |ss% . .s|et_caret|
|00009110| 28 64 61 74 61 64 69 63 | 57 25 2c 30 29 0d 36 24 |(datadic|W%,0).6$|
|00009120| 06 20 e1 0d 36 2e 06 20 | 3a 0d 36 38 16 20 dd 20 |. ..6.. |:.68. . |
|00009130| a4 74 61 62 6c 65 5f 6e | 61 6d 65 28 54 25 29 0d |.table_n|ame(T%).|
|00009140| 36 42 2d 20 e7 20 54 25 | 3c 3d 4c 61 73 74 54 61 |6B- . T%|<=LastTa|
|00009150| 62 6c 65 25 20 8c 3d 24 | 21 74 61 62 61 6e 63 68 |ble% .=$|!tabanch|
|00009160| 6f 72 25 28 54 25 29 20 | 8b 3d 22 22 0d 36 4c 06 |or%(T%) |.="".6L.|
|00009170| 20 3a 0d 36 56 18 20 dd | 20 a4 74 61 62 6c 65 5f | :.6V. .| .table_|
|00009180| 6e 75 6d 62 65 72 28 4e | 24 29 0d 36 60 0c 20 ea |number(N|$).6`. .|
|00009190| 20 54 25 2c 50 25 0d 36 | 6a 11 20 e7 20 4e 24 3d | T%,P%.6|j. . N$=|
|000091a0| 22 22 20 8c 3d 2d 31 0d | 36 74 0a 20 54 25 3d 2d |"" .=-1.|6t. T%=-|
|000091b0| 31 0d 36 7e 06 20 f5 0d | 36 88 0c 20 20 20 54 25 |1.6~. ..|6..   T%|
|000091c0| 2b 3d 31 0d 36 92 24 20 | fd 20 74 61 62 6c 65 24 |+=1.6.$ |. table$|
|000091d0| 28 54 25 29 3d 4e 24 20 | 84 20 54 25 3e 4c 61 73 |(T%)=N$ |. T%>Las|
|000091e0| 74 54 61 62 6c 65 25 0d | 36 9c 1e 20 e7 20 54 25 |tTable%.|6.. . T%|
|000091f0| 3e 4c 61 73 74 54 61 62 | 6c 65 25 20 8c 3d 2d 31 |>LastTab|le% .=-1|
|00009200| 20 8b 3d 54 25 0d 36 a6 | 06 20 3a 0d 36 b0 2b 20 | .=T%.6.|. :.6.+ |
|00009210| dd 20 a4 74 61 62 6c 65 | 5f 69 6e 66 6f 28 54 25 |. .table|_info(T%|
|00009220| 2c f8 20 52 25 2c f8 20 | 46 25 2c f8 20 52 4c 25 |,. R%,. |F%,. RL%|
|00009230| 2c 4c 25 28 29 29 0d 36 | ba 0c 20 ea 20 50 25 2c |,L%()).6|.. . P%,|
|00009240| 49 25 0d 36 c4 17 20 50 | 25 3d 21 74 61 62 61 6e |I%.6.. P|%=!taban|
|00009250| 63 68 6f 72 25 28 54 25 | 29 0d 36 ce 1b 20 52 25 |chor%(T%|).6.. R%|
|00009260| 3d bb 28 24 50 25 29 3a | 50 25 2b 3d a9 28 24 50 |=.($P%):|P%+=.($P|
|00009270| 25 29 2b 31 0d 36 d8 1b | 20 46 25 3d bb 28 24 50 |%)+1.6..| F%=.($P|
|00009280| 25 29 3a 50 25 2b 3d a9 | 28 24 50 25 29 2b 31 0d |%):P%+=.|($P%)+1.|
|00009290| 36 e2 0a 20 52 4c 25 3d | 30 0d 36 ec 10 20 e3 20 |6.. RL%=|0.6.. . |
|000092a0| 49 25 3d 30 20 b8 20 46 | 25 0d 36 f6 21 20 20 20 |I%=0 . F|%.6.!   |
|000092b0| 4c 25 28 49 25 29 3d bb | 28 24 50 25 29 3a 50 25 |L%(I%)=.|($P%):P%|
|000092c0| 2b 3d a9 28 24 50 25 29 | 2b 31 0d 37 00 14 20 20 |+=.($P%)|+1.7..  |
|000092d0| 20 52 4c 25 2b 3d 4c 25 | 28 49 25 29 2b 31 0d 37 | RL%+=L%|(I%)+1.7|
|000092e0| 0a 09 20 ed 20 49 25 0d | 37 14 09 20 3d 24 50 25 |.. . I%.|7.. =$P%|
|000092f0| 0d 37 1e 06 20 3a 0d 37 | 28 1c 20 dd 20 a4 74 61 |.7.. :.7|(. . .ta|
|00009300| 62 6c 65 5f 66 69 65 6c | 64 28 46 25 2c 4c 25 28 |ble_fiel|d(F%,L%(|
|00009310| 29 29 0d 37 32 11 20 ea | 20 49 25 2c 50 25 3a 49 |)).72. .| I%,P%:I|
|00009320| 25 3d 31 0d 37 3c 0d 20 | c8 95 20 49 25 3c 46 25 |%=1.7<. |.. I%<F%|
|00009330| 0d 37 46 13 20 20 20 50 | 25 2b 3d 4c 25 28 49 25 |.7F.   P|%+=L%(I%|
|00009340| 29 2b 31 0d 37 50 0c 20 | 20 20 49 25 2b 3d 31 0d |)+1.7P. |  I%+=1.|
|00009350| 37 5a 06 20 ce 0d 37 64 | 08 20 3d 50 25 0d 37 6e |7Z. ..7d|. =P%.7n|
|00009360| 06 20 3a 0d 37 78 14 dd | 20 a4 6e 75 6d 62 65 72 |. :.7x..| .number|
|00009370| 28 53 24 2c 54 24 29 0d | 37 82 2f ea 20 54 25 2c |(S$,T$).|7./. T%,|
|00009380| 72 6f 77 25 2c 69 6e 64 | 25 2c 73 74 61 72 74 25 |row%,ind|%,start%|
|00009390| 2c 52 6f 77 73 25 2c 52 | 65 63 25 2c 54 61 62 46 |,Rows%,R|ec%,TabF|
|000093a0| 69 65 6c 64 73 25 0d 37 | 8c 18 54 25 3d a4 74 61 |ields%.7|..T%=.ta|
|000093b0| 62 6c 65 5f 6e 75 6d 62 | 65 72 28 54 24 29 0d 37 |ble_numb|er(T$).7|
|000093c0| 96 3b 54 24 3d a4 74 61 | 62 6c 65 5f 69 6e 66 6f |.;T$=.ta|ble_info|
|000093d0| 28 54 25 2c 52 6f 77 73 | 25 2c 54 61 62 46 69 65 |(T%,Rows|%,TabFie|
|000093e0| 6c 64 73 25 2c 52 65 63 | 25 2c 74 61 62 66 69 65 |lds%,Rec|%,tabfie|
|000093f0| 6c 64 6c 65 6e 25 28 29 | 29 0d 37 a0 23 73 74 61 |ldlen%()|).7.#sta|
|00009400| 72 74 25 3d 21 74 61 62 | 61 6e 63 68 6f 72 25 28 |rt%=!tab|anchor%(|
|00009410| 54 25 29 2b 31 36 30 2d | 52 65 63 25 0d 37 aa 0d |T%)+160-|Rec%.7..|
|00009420| f5 20 72 6f 77 25 2b 3d | 31 0d 37 b4 1b 20 20 69 |. row%+=|1.7..  i|
|00009430| 6e 64 25 3d 73 74 61 72 | 74 25 2b 72 6f 77 25 2a |nd%=star|t%+row%*|
|00009440| 52 65 63 25 0d 37 be 1b | fd 20 72 6f 77 25 3e 52 |Rec%.7..|. row%>R|
|00009450| 6f 77 73 25 20 84 20 53 | 24 3d 24 69 6e 64 25 0d |ows% . S|$=$ind%.|
|00009460| 37 c8 1b e7 20 72 6f 77 | 25 3e 52 6f 77 73 25 20 |7... row|%>Rows% |
|00009470| 8c 3d 30 20 8b 3d 72 6f | 77 25 0d 37 d2 05 3a 0d |.=0 .=ro|w%.7..:.|
|00009480| 37 dc 14 dd 20 a4 73 74 | 72 69 6e 67 28 4e 25 2c |7... .st|ring(N%,|
|00009490| 54 24 29 0d 37 e6 1e ea | 20 54 25 2c 52 6f 77 73 |T$).7...| T%,Rows|
|000094a0| 25 2c 52 65 63 25 2c 54 | 61 62 46 69 65 6c 64 73 |%,Rec%,T|abFields|
|000094b0| 25 0d 37 f0 18 54 25 3d | a4 74 61 62 6c 65 5f 6e |%.7..T%=|.table_n|
|000094c0| 75 6d 62 65 72 28 54 24 | 29 0d 37 fa 3b 54 24 3d |umber(T$|).7.;T$=|
|000094d0| a4 74 61 62 6c 65 5f 69 | 6e 66 6f 28 54 25 2c 52 |.table_i|nfo(T%,R|
|000094e0| 6f 77 73 25 2c 54 61 62 | 46 69 65 6c 64 73 25 2c |ows%,Tab|Fields%,|
|000094f0| 52 65 63 25 2c 74 61 62 | 66 69 65 6c 64 6c 65 6e |Rec%,tab|fieldlen|
|00009500| 25 28 29 29 0d 38 04 2a | 3d 24 28 21 74 61 62 61 |%()).8.*|=$(!taba|
|00009510| 6e 63 68 6f 72 25 28 54 | 25 29 2b 31 36 30 2b 28 |nchor%(T|%)+160+(|
|00009520| 52 65 63 25 2a 4e 25 29 | 2d 52 65 63 25 29 0d 38 |Rec%*N%)|-Rec%).8|
|00009530| 0e 05 3a 0d 38 18 0f dd | 20 a4 64 65 70 74 28 53 |..:.8...| .dept(S|
|00009540| 24 29 0d 38 22 2f ea 20 | 54 25 2c 72 6f 77 25 2c |$).8"/. |T%,row%,|
|00009550| 69 6e 64 25 2c 73 74 61 | 72 74 25 2c 52 6f 77 73 |ind%,sta|rt%,Rows|
|00009560| 25 2c 52 65 63 25 2c 54 | 61 62 46 69 65 6c 64 73 |%,Rec%,T|abFields|
|00009570| 25 0d 38 2c 1d 54 25 3d | a4 74 61 62 6c 65 5f 6e |%.8,.T%=|.table_n|
|00009580| 75 6d 62 65 72 28 22 53 | 74 61 66 66 22 29 0d 38 |umber("S|taff").8|
|00009590| 36 3b 54 24 3d a4 74 61 | 62 6c 65 5f 69 6e 66 6f |6;T$=.ta|ble_info|
|000095a0| 28 54 25 2c 52 6f 77 73 | 25 2c 54 61 62 46 69 65 |(T%,Rows|%,TabFie|
|000095b0| 6c 64 73 25 2c 52 65 63 | 25 2c 74 61 62 66 69 65 |lds%,Rec|%,tabfie|
|000095c0| 6c 64 6c 65 6e 25 28 29 | 29 0d 38 40 23 73 74 61 |ldlen%()|).8@#sta|
|000095d0| 72 74 25 3d 21 74 61 62 | 61 6e 63 68 6f 72 25 28 |rt%=!tab|anchor%(|
|000095e0| 54 25 29 2b 31 36 30 2d | 52 65 63 25 0d 38 4a 0d |T%)+160-|Rec%.8J.|
|000095f0| f5 20 72 6f 77 25 2b 3d | 31 0d 38 54 1b 20 20 69 |. row%+=|1.8T.  i|
|00009600| 6e 64 25 3d 73 74 61 72 | 74 25 2b 72 6f 77 25 2a |nd%=star|t%+row%*|
|00009610| 52 65 63 25 0d 38 5e 1b | fd 20 72 6f 77 25 3e 52 |Rec%.8^.|. row%>R|
|00009620| 6f 77 73 25 20 84 20 53 | 24 3d 24 69 6e 64 25 0d |ows% . S|$=$ind%.|
|00009630| 38 68 42 e7 20 72 6f 77 | 25 3e 52 6f 77 73 25 20 |8hB. row|%>Rows% |
|00009640| 8c 3d 22 23 22 20 8b 3d | 24 28 69 6e 64 25 2b 74 |.="#" .=|$(ind%+t|
|00009650| 61 62 66 69 65 6c 64 6c | 65 6e 25 28 30 29 2b 74 |abfieldl|en%(0)+t|
|00009660| 61 62 66 69 65 6c 64 6c | 65 6e 25 28 31 29 2b 32 |abfieldl|en%(1)+2|
|00009670| 29 0d 38 72 05 3a 0d 38 | 7c 28 20 dd 20 a4 65 78 |).8r.:.8||( . .ex|
|00009680| 70 61 6e 64 28 73 74 72 | 69 6e 67 24 2c 74 61 62 |pand(str|ing$,tab|
|00009690| 6c 65 24 2c f8 20 45 78 | 70 4c 65 6e 25 29 0d 38 |le$,. Ex|pLen%).8|
|000096a0| 86 45 20 ea 20 52 65 63 | 25 2c 73 24 2c 73 74 61 |.E . Rec|%,s$,sta|
|000096b0| 72 74 25 2c 46 25 2c 49 | 25 2c 54 25 2c 69 6e 64 |rt%,F%,I|%,T%,ind|
|000096c0| 25 2c 72 6f 77 25 2c 52 | 6f 77 73 25 2c 54 61 62 |%,row%,R|ows%,Tab|
|000096d0| 46 69 65 6c 64 73 25 2c | 66 69 65 6c 64 25 2c 70 |Fields%,|field%,p|
|000096e0| 6f 73 25 0d 38 90 3a 20 | e7 20 74 61 62 6c 65 24 |os%.8.: |. table$|
|000096f0| 3d 22 22 20 8c 20 45 78 | 70 4c 65 6e 25 3d 30 3a |="" . Ex|pLen%=0:|
|00009700| 3d 73 74 72 69 6e 67 24 | 3a f4 20 23 23 23 20 4e |=string$|:. ### N|
|00009710| 6f 74 20 6c 69 6e 6b 65 | 64 20 23 23 23 0d 38 9a |ot linke|d ###.8.|
|00009720| 27 20 66 69 65 6c 64 25 | 3d bb 28 c2 74 61 62 6c |' field%|=.(.tabl|
|00009730| 65 24 29 29 3a 74 61 62 | 6c 65 24 3d c0 74 61 62 |e$)):tab|le$=.tab|
|00009740| 6c 65 24 29 0d 38 a4 1d | 20 54 25 3d a4 74 61 62 |le$).8..| T%=.tab|
|00009750| 6c 65 5f 6e 75 6d 62 65 | 72 28 74 61 62 6c 65 24 |le_numbe|r(table$|
|00009760| 29 0d 38 ae 3a 20 e7 20 | 54 25 3c 30 20 8c 20 45 |).8.: . |T%<0 . E|
|00009770| 78 70 4c 65 6e 25 3d 30 | 3a 3d 73 74 72 69 6e 67 |xpLen%=0|:=string|
|00009780| 24 3a f4 20 23 23 23 20 | 54 61 62 6c 65 20 6e 6f |$:. ### |Table no|
|00009790| 74 20 66 6f 75 6e 64 20 | 23 23 23 0d 38 b8 3c 20 |t found |###.8.< |
|000097a0| 54 24 3d a4 74 61 62 6c | 65 5f 69 6e 66 6f 28 54 |T$=.tabl|e_info(T|
|000097b0| 25 2c 52 6f 77 73 25 2c | 54 61 62 46 69 65 6c 64 |%,Rows%,|TabField|
|000097c0| 73 25 2c 52 65 63 25 2c | 74 61 62 66 69 65 6c 64 |s%,Rec%,|tabfield|
|000097d0| 6c 65 6e 25 28 29 29 0d | 38 c2 2d 20 70 6f 73 25 |len%()).|8.- pos%|
|000097e0| 3d a4 74 61 62 6c 65 5f | 66 69 65 6c 64 28 66 69 |=.table_|field(fi|
|000097f0| 65 6c 64 25 2c 74 61 62 | 66 69 65 6c 64 6c 65 6e |eld%,tab|fieldlen|
|00009800| 25 28 29 29 0d 38 cc 24 | 20 73 74 61 72 74 25 3d |%()).8.$| start%=|
|00009810| 21 74 61 62 61 6e 63 68 | 6f 72 25 28 54 25 29 2b |!tabanch|or%(T%)+|
|00009820| 31 36 30 2d 52 65 63 25 | 0d 38 d6 0e 20 f5 20 72 |160-Rec%|.8.. . r|
|00009830| 6f 77 25 2b 3d 31 0d 38 | e0 21 20 20 20 69 6e 64 |ow%+=1.8|.!   ind|
|00009840| 25 3d 73 74 61 72 74 25 | 2b 72 6f 77 25 2a 52 65 |%=start%|+row%*Re|
|00009850| 63 25 2b 70 6f 73 25 0d | 38 ea 21 20 fd 20 72 6f |c%+pos%.|8.! . ro|
|00009860| 77 25 3e 52 6f 77 73 25 | 20 84 20 24 69 6e 64 25 |w%>Rows%| . $ind%|
|00009870| 3d 73 74 72 69 6e 67 24 | 0d 38 f4 38 20 e7 20 72 |=string$|.8.8 . r|
|00009880| 6f 77 25 3e 52 6f 77 73 | 25 20 8c 3d 73 74 72 69 |ow%>Rows|% .=stri|
|00009890| 6e 67 24 3a f4 20 23 23 | 20 53 74 72 69 6e 67 20 |ng$:. ##| String |
|000098a0| 6e 6f 74 20 69 6e 20 74 | 61 62 6c 65 20 23 23 23 |not in t|able ###|
|000098b0| 0d 38 fe 1a 20 69 6e 64 | 25 3d 73 74 61 72 74 25 |.8.. ind|%=start%|
|000098c0| 2b 72 6f 77 25 2a 52 65 | 63 25 0d 39 08 40 20 69 |+row%*Re|c%.9.@ i|
|000098d0| 6e 64 25 2b 3d 74 61 62 | 66 69 65 6c 64 6c 65 6e |nd%+=tab|fieldlen|
|000098e0| 25 28 30 29 2b 31 3a 73 | 24 3d 24 69 6e 64 25 3a |%(0)+1:s|$=$ind%:|
|000098f0| f4 20 23 23 23 20 52 65 | 74 75 72 6e 20 32 6e 64 |. ### Re|turn 2nd|
|00009900| 20 66 69 65 6c 64 20 23 | 23 23 0d 39 12 08 20 3d | field #|##.9.. =|
|00009910| 73 24 0d 39 1c 06 20 3a | 0d 39 26 12 20 dd 20 a4 |s$.9.. :|.9&. . .|
|00009920| 70 61 64 28 73 24 2c 4c | 25 29 0d 39 30 10 20 c8 |pad(s$,L|%).90. .|
|00009930| 95 20 a9 28 73 24 29 3c | 4c 25 0d 39 3a 0e 20 20 |. .(s$)<|L%.9:.  |
|00009940| 20 73 24 2b 3d 22 20 22 | 0d 39 44 06 20 ce 0d 39 | s$+=" "|.9D. ..9|
|00009950| 4e 08 20 3d 73 24 0d 39 | 58 06 20 3a 0d 39 62 4d |N. =s$.9|X. :.9bM|
|00009960| 20 f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | . -----|--------|
|00009970| 20 45 6e 64 20 6f 66 20 | 56 61 6c 69 64 61 74 69 | End of |Validati|
|00009980| 6f 6e 20 74 61 62 6c 65 | 20 68 61 6e 64 6c 69 6e |on table| handlin|
|00009990| 67 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |g ------|--------|
|000099a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 39 6c 06 20 3a 0d |--------|-.9l. :.|
|000099b0| 39 76 06 20 3a 0d 39 80 | 06 20 3a 0d 39 8a 4b 20 |9v. :.9.|. :.9.K |
|000099c0| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|000099d0| 2d 2d 2d 2d 2d 2d 2d 20 | 49 6e 64 65 78 20 68 61 |------- |Index ha|
|000099e0| 6e 64 6c 69 6e 67 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ndling -|--------|
|000099f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00009a00| 2d 2d 2d 2d 2d 2d 0d 39 | 94 06 20 3a 0d 39 9e 17 |------.9|.. :.9..|
|00009a10| dd 20 f2 69 6e 64 65 78 | 5f 74 75 74 6f 72 73 28 |. .index|_tutors(|
|00009a20| 4e 25 29 0d 39 a8 15 ea | 20 74 6b 65 79 25 2c 65 |N%).9...| tkey%,e|
|00009a30| 78 61 6d 69 6e 65 64 25 | 0d 39 b2 22 74 6b 65 79 |xamined%|.9."tkey|
|00009a40| 25 3d 31 3a 76 61 6c 24 | 3d 22 22 3a 6b 6c 25 3d |%=1:val$|="":kl%=|
|00009a50| 33 3a 4b 4c 25 28 31 29 | 3d 33 0d 39 bc 23 f2 6e |3:KL%(1)|=3.9.#.n|
|00009a60| 6f 74 69 66 79 28 22 43 | 72 65 61 74 69 6e 67 20 |otify("C|reating |
|00009a70| 74 75 74 6f 72 20 69 6e | 64 65 78 22 29 0d 39 c6 |tutor in|dex").9.|
|00009a80| 2a 64 62 61 73 65 68 61 | 6e 64 6c 65 25 3d 8e 28 |*dbaseha|ndle%=.(|
|00009a90| 24 64 61 74 61 62 61 73 | 65 25 2b 22 2e 44 61 74 |$databas|e%+".Dat|
|00009aa0| 61 62 61 73 65 22 29 0d | 39 d0 15 c8 99 20 22 48 |abase").|9.... "H|
|00009ab0| 6f 75 72 67 6c 61 73 73 | 5f 4f 6e 22 0d 39 da 27 |ourglass|_On".9.'|
|00009ac0| f2 73 63 72 61 70 5f 73 | 6c 69 64 69 6e 67 5f 62 |.scrap_s|liding_b|
|00009ad0| 6c 6f 63 6b 28 6b 65 79 | 61 6e 63 68 6f 72 25 28 |lock(key|anchor%(|
|00009ae0| 31 29 29 0d 39 e4 21 f2 | 6d 61 6b 65 5f 65 6d 70 |1)).9.!.|make_emp|
|00009af0| 74 79 5f 69 6e 64 65 78 | 28 4e 25 2c 74 6b 65 79 |ty_index|(N%,tkey|
|00009b00| 25 2c b9 29 0d 39 ee 1d | 50 25 3d a4 6e 65 69 67 |%,.).9..|P%=.neig|
|00009b10| 68 62 6f 75 72 28 6b 65 | 79 25 2c 74 6f 70 2c 31 |hbour(ke|y%,top,1|
|00009b20| 29 0d 39 f8 0e c8 95 20 | 50 25 3c 3e 74 6f 70 0d |).9.... |P%<>top.|
|00009b30| 3a 02 1b 20 20 52 45 43 | 25 3d a4 72 65 63 5f 6e |:..  REC|%=.rec_n|
|00009b40| 6f 28 6b 65 79 25 2c 50 | 25 29 0d 3a 0c 11 20 20 |o(key%,P|%).:..  |
|00009b50| f2 72 65 61 64 28 52 45 | 43 25 29 0d 3a 16 1e 20 |.read(RE|C%).:.. |
|00009b60| 20 f2 69 6e 73 65 72 74 | 28 a3 2c 24 54 75 74 6f | .insert|(.,$Tuto|
|00009b70| 72 25 2c 74 6b 65 79 25 | 29 0d 3a 20 1e 20 20 50 |r%,tkey%|).: .  P|
|00009b80| 25 3d a4 6e 65 69 67 68 | 62 6f 75 72 28 6b 65 79 |%=.neigh|bour(key|
|00009b90| 25 2c 50 25 2c 31 29 0d | 3a 2a 12 20 20 65 78 61 |%,P%,1).|:*.  exa|
|00009ba0| 6d 69 6e 65 64 25 2b 3d | 31 0d 3a 34 32 20 20 c8 |mined%+=|1.:42  .|
|00009bb0| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 50 65 72 |. "Hourg|lass_Per|
|00009bc0| 63 65 6e 74 61 67 65 22 | 2c 65 78 61 6d 69 6e 65 |centage"|,examine|
|00009bd0| 64 25 2a 31 30 30 20 81 | 20 4e 25 0d 3a 3e 05 ce |d%*100 .| N%.:>..|
|00009be0| 0d 3a 48 2f f2 73 61 76 | 65 5f 74 72 65 65 28 74 |.:H/.sav|e_tree(t|
|00009bf0| 6b 65 79 25 2c 24 64 61 | 74 61 62 61 73 65 25 2b |key%,$da|tabase%+|
|00009c00| 22 2e 41 70 70 74 73 2e | 54 75 74 6f 72 22 29 0d |".Appts.|Tutor").|
|00009c10| 3a 52 1d f2 69 63 6f 6e | 5f 62 69 74 28 32 32 2c |:R..icon|_bit(22,|
|00009c20| 6d 61 69 6e 57 25 2c 35 | 34 2c b9 29 0d 3a 5c 1b |mainW%,5|4,.).:\.|
|00009c30| f2 63 6c 6f 73 65 5f 77 | 69 6e 64 6f 77 28 6e 6f |.close_w|indow(no|
|00009c40| 74 69 66 79 57 25 29 0d | 3a 66 16 c8 99 20 22 48 |tifyW%).|:f... "H|
|00009c50| 6f 75 72 67 6c 61 73 73 | 5f 4f 66 66 22 0d 3a 70 |ourglass|_Off".:p|
|00009c60| 1d f2 63 6c 6f 73 65 5f | 66 69 6c 65 28 64 62 61 |..close_|file(dba|
|00009c70| 73 65 68 61 6e 64 6c 65 | 25 29 0d 3a 7a 05 e1 0d |sehandle|%).:z...|
|00009c80| 3a 84 06 20 3a 0d 3a 8e | 12 dd 20 f2 69 6e 64 65 |:.. :.:.|.. .inde|
|00009c90| 78 5f 61 70 70 74 73 0d | 3a 98 32 ea 20 50 25 2c |x_appts.|:.2. P%,|
|00009ca0| 53 25 2c 6b 65 79 25 2c | 73 6b 65 79 25 2c 73 74 |S%,key%,|skey%,st|
|00009cb0| 75 64 65 6e 74 73 25 2c | 65 78 61 6d 69 6e 65 64 |udents%,|examined|
|00009cc0| 25 2c 70 61 64 24 2c 53 | 24 0d 3a a2 07 ea 20 85 |%,pad$,S|$.:... .|
|00009cd0| 0d 3a ac 1c ee 20 85 20 | ea 3a f7 20 85 3a f2 61 |.:... . |.:. .:.a|
|00009ce0| 62 6f 72 74 5f 69 6e 64 | 65 78 3a e1 0d 3a b6 38 |bort_ind|ex:..:.8|
|00009cf0| 73 6b 65 79 25 3d 32 3a | 53 25 3d 31 3a 4b 4c 25 |skey%=2:|S%=1:KL%|
|00009d00| 28 73 6b 65 79 25 29 3d | 37 3a 6b 6c 25 3d 37 3a |(skey%)=|7:kl%=7:|
|00009d10| 76 61 6c 24 3d 22 22 3a | 70 61 64 24 3d c4 34 2c |val$="":|pad$=.4,|
|00009d20| 22 23 22 29 0d 3a c0 1f | 73 74 75 64 65 6e 74 73 |"#").:..|students|
|00009d30| 25 3d a4 63 6f 75 6e 74 | 5f 72 65 63 73 28 6b 65 |%=.count|_recs(ke|
|00009d40| 79 25 29 0d 3a ca 30 f2 | 6e 6f 74 69 66 79 28 22 |y%).:.0.|notify("|
|00009d50| 49 6e 64 65 78 69 6e 67 | 20 61 70 70 6f 69 6e 74 |Indexing| appoint|
|00009d60| 6d 65 6e 74 73 20 69 6e | 20 64 61 74 61 66 69 6c |ments in| datafil|
|00009d70| 65 22 29 0d 3a d4 2a f2 | 6d 61 6b 65 5f 65 6d 70 |e").:.*.|make_emp|
|00009d80| 74 79 5f 69 6e 64 65 78 | 28 73 74 75 64 65 6e 74 |ty_index|(student|
|00009d90| 73 25 2a 34 2c 73 6b 65 | 79 25 2c b9 29 0d 3a de |s%*4,ske|y%,.).:.|
|00009da0| 15 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f |... "Hou|rglass_O|
|00009db0| 6e 22 0d 3a e8 1c 61 70 | 70 74 68 61 6e 64 6c 65 |n".:..ap|pthandle|
|00009dc0| 25 3d ad 28 61 70 70 74 | 66 69 6c 65 24 29 0d 3a |%=.(appt|file$).:|
|00009dd0| f2 1d 50 25 3d a4 6e 65 | 69 67 68 62 6f 75 72 28 |..P%=.ne|ighbour(|
|00009de0| 6b 65 79 25 2c 74 6f 70 | 2c 31 29 0d 3a fc 0e c8 |key%,top|,1).:...|
|00009df0| 95 20 50 25 3c 3e 74 6f | 70 0d 3b 06 18 20 20 c8 |. P%<>to|p.;..  .|
|00009e00| 99 20 22 4f 53 5f 42 79 | 74 65 22 2c 32 32 39 2c |. "OS_By|te",229,|
|00009e10| 30 0d 3b 10 1d 20 20 20 | 20 52 45 43 25 3d a4 72 |0.;..   | REC%=.r|
|00009e20| 65 63 5f 6e 6f 28 6b 65 | 79 25 2c 50 25 29 0d 3b |ec_no(ke|y%,P%).;|
|00009e30| 1a 1b 20 20 20 20 f2 72 | 65 61 64 5f 61 70 70 74 |..    .r|ead_appt|
|00009e40| 73 28 52 45 43 25 2c 30 | 29 0d 3b 24 0c 20 20 20 |s(REC%,0|).;$.   |
|00009e50| 20 53 25 3d 31 0d 3b 2e | 1a 20 20 20 20 c8 95 20 | S%=1.;.|.    .. |
|00009e60| 24 53 74 61 66 66 25 28 | 53 25 29 3c 3e 22 22 0d |$Staff%(|S%)<>"".|
|00009e70| 3b 38 4d 20 20 20 20 20 | 20 e7 20 24 53 74 61 74 |;8M     | . $Stat|
|00009e80| 75 73 25 3d 22 44 6f 6e | 65 22 20 8c 20 53 24 3d |us%="Don|e" . S$=|
|00009e90| 24 53 74 61 66 66 25 28 | 53 25 29 2b 24 54 69 6d |$Staff%(|S%)+$Tim|
|00009ea0| 65 25 28 53 25 29 20 8b | 20 53 24 3d 24 53 74 61 |e%(S%) .| S$=$Sta|
|00009eb0| 66 66 25 28 53 25 29 2b | 70 61 64 24 0d 3b 42 1d |ff%(S%)+|pad$.;B.|
|00009ec0| 20 20 20 20 20 20 f2 69 | 6e 73 65 72 74 28 a3 2c |      .i|nsert(.,|
|00009ed0| 53 24 2c 73 6b 65 79 25 | 29 0d 3b 4c 0f 20 20 20 |S$,skey%|).;L.   |
|00009ee0| 20 20 20 53 25 2b 3d 31 | 0d 3b 56 09 20 20 20 20 |   S%+=1|.;V.    |
|00009ef0| ce 0d 3b 60 12 20 20 65 | 78 61 6d 69 6e 65 64 25 |..;`.  e|xamined%|
|00009f00| 2b 3d 31 0d 3b 6a 1e 20 | 20 50 25 3d a4 6e 65 69 |+=1.;j. | P%=.nei|
|00009f10| 67 68 62 6f 75 72 28 6b | 65 79 25 2c 50 25 2c 31 |ghbour(k|ey%,P%,1|
|00009f20| 29 0d 3b 74 39 20 20 c8 | 99 20 22 48 6f 75 72 67 |).;t9  .|. "Hourg|
|00009f30| 6c 61 73 73 5f 50 65 72 | 63 65 6e 74 61 67 65 22 |lass_Per|centage"|
|00009f40| 2c 65 78 61 6d 69 6e 65 | 64 25 2a 31 30 30 20 81 |,examine|d%*100 .|
|00009f50| 20 73 74 75 64 65 6e 74 | 73 25 0d 3b 7e 0b 20 20 | student|s%.;~.  |
|00009f60| f2 70 6f 6c 6c 0d 3b 88 | 05 ce 0d 3b 92 34 f2 73 |.poll.;.|...;.4.s|
|00009f70| 61 76 65 5f 74 72 65 65 | 28 73 6b 65 79 25 2c 24 |ave_tree|(skey%,$|
|00009f80| 64 61 74 61 62 61 73 65 | 25 2b 22 2e 41 70 70 74 |database|%+".Appt|
|00009f90| 73 2e 53 74 61 66 66 49 | 6e 64 65 78 22 29 0d 3b |s.StaffI|ndex").;|
|00009fa0| 9c 1d f2 69 63 6f 6e 5f | 62 69 74 28 32 32 2c 6d |...icon_|bit(22,m|
|00009fb0| 61 69 6e 57 25 2c 35 30 | 2c b9 29 0d 3b a6 1c f2 |ainW%,50|,.).;...|
|00009fc0| 63 6c 6f 73 65 5f 66 69 | 6c 65 28 61 70 70 74 68 |close_fi|le(appth|
|00009fd0| 61 6e 64 6c 65 25 29 0d | 3b b0 1b f2 63 6c 6f 73 |andle%).|;...clos|
|00009fe0| 65 5f 77 69 6e 64 6f 77 | 28 6e 6f 74 69 66 79 57 |e_window|(notifyW|
|00009ff0| 25 29 0d 3b ba 16 c8 99 | 20 22 48 6f 75 72 67 6c |%).;....| "Hourgl|
|0000a000| 61 73 73 5f 4f 66 66 22 | 0d 3b c4 07 f7 20 85 0d |ass_Off"|.;... ..|
|0000a010| 3b ce 05 e1 0d 3b d8 06 | 20 3a 0d 3b e2 12 dd 20 |;....;..| :.;... |
|0000a020| f2 61 62 6f 72 74 5f 69 | 6e 64 65 78 0d 3b ec 18 |.abort_i|ndex.;..|
|0000a030| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 53 6d |.. "Hour|glass_Sm|
|0000a040| 61 73 68 22 0d 3b f6 1c | f2 63 6c 6f 73 65 5f 66 |ash".;..|.close_f|
|0000a050| 69 6c 65 28 61 70 70 74 | 68 61 6e 64 6c 65 25 29 |ile(appt|handle%)|
|0000a060| 0d 3c 00 1d f2 69 63 6f | 6e 5f 62 69 74 28 32 32 |.<...ico|n_bit(22|
|0000a070| 2c 6d 61 69 6e 57 25 2c | 35 30 2c a3 29 0d 3c 0a |,mainW%,|50,.).<.|
|0000a080| 1b f2 63 6c 6f 73 65 5f | 77 69 6e 64 6f 77 28 6e |..close_|window(n|
|0000a090| 6f 74 69 66 79 57 25 29 | 0d 3c 14 0c e7 20 9f 3d |otifyW%)|.<... .=|
|0000a0a0| 31 37 20 8c 0d 3c 1e 46 | 20 20 f2 77 69 6d 70 5f |17 ..<.F|  .wimp_|
|0000a0b0| 65 72 72 6f 72 28 b9 2c | 6d 6f 61 6e 5f 65 72 72 |error(.,|moan_err|
|0000a0c0| 25 2c 30 2c 22 45 73 63 | 61 70 65 20 70 72 65 73 |%,0,"Esc|ape pres|
|0000a0d0| 73 65 64 2e 20 49 6e 64 | 65 78 69 6e 67 20 61 62 |sed. Ind|exing ab|
|0000a0e0| 61 6e 64 6f 6e 65 64 2e | 22 29 0d 3c 28 1d 20 20 |andoned.|").<(.  |
|0000a0f0| cc 20 f2 77 69 6d 70 5f | 65 72 72 6f 72 28 b9 2c |. .wimp_|error(.,|
|0000a100| 9f 2c 9e 2c f6 24 29 0d | 3c 32 05 cd 0d 3c 3c 05 |.,.,.$).|<2...<<.|
|0000a110| e1 0d 3c 46 06 20 3a 0d | 3c 50 1a 20 dd 20 f2 73 |..<F. :.|<P. . .s|
|0000a120| 61 76 65 5f 74 72 65 65 | 28 6b 65 79 25 2c 66 24 |ave_tree|(key%,f$|
|0000a130| 29 0d 3c 5a 16 20 c8 99 | 20 22 48 6f 75 72 67 6c |).<Z. ..| "Hourgl|
|0000a140| 61 73 73 5f 4f 6e 22 0d | 3c 64 1f 20 6b 65 79 62 |ass_On".|<d. keyb|
|0000a150| 61 73 65 25 3d 21 6b 65 | 79 61 6e 63 68 6f 72 25 |ase%=!ke|yanchor%|
|0000a160| 28 6b 65 79 25 29 0d 3c | 6e 55 20 c8 99 20 22 53 |(key%).<|nU .. "S|
|0000a170| 6c 69 64 69 6e 67 48 65 | 61 70 5f 44 65 73 63 72 |lidingHe|ap_Descr|
|0000a180| 69 62 65 42 6c 6f 63 6b | 22 2c 73 6c 69 64 69 6e |ibeBlock|",slidin|
|0000a190| 67 68 65 61 70 62 61 73 | 65 25 2c 6b 65 79 61 6e |gheapbas|e%,keyan|
|0000a1a0| 63 68 6f 72 25 28 6b 65 | 79 25 29 20 b8 20 2c 2c |chor%(ke|y%) . ,,|
|0000a1b0| 66 69 6c 65 6c 65 6e 67 | 74 68 25 0d 3c 78 3b 20 |fileleng|th%.<x; |
|0000a1c0| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 31 30 2c |.. "OS_F|ile",10,|
|0000a1d0| 66 24 2c 26 37 46 30 2c | 2c 6b 65 79 62 61 73 65 |f$,&7F0,|,keybase|
|0000a1e0| 25 2c 6b 65 79 62 61 73 | 65 25 2b 66 69 6c 65 6c |%,keybas|e%+filel|
|0000a1f0| 65 6e 67 74 68 25 0d 3c | 82 17 20 c8 99 20 22 48 |ength%.<|.. .. "H|
|0000a200| 6f 75 72 67 6c 61 73 73 | 5f 4f 66 66 22 0d 3c 8c |ourglass|_Off".<.|
|0000a210| 06 20 e1 0d 3c 96 06 20 | 3a 0d 3c a0 24 dd 20 f2 |. ..<.. |:.<.$. .|
|0000a220| 6d 61 6b 65 5f 65 6d 70 | 74 79 5f 69 6e 64 65 78 |make_emp|ty_index|
|0000a230| 28 52 41 25 2c 6b 65 79 | 25 2c 5a 25 29 0d 3c aa |(RA%,key|%,Z%).<.|
|0000a240| 16 ea 20 49 25 2c 4b 25 | 2c 50 25 2c 4b 4c 4d 25 |.. I%,K%|,P%,KLM%|
|0000a250| 2c 53 24 0d 3c b4 15 c8 | 99 20 22 48 6f 75 72 67 |,S$.<...|. "Hourg|
|0000a260| 6c 61 73 73 5f 4f 6e 22 | 0d 3c be 16 53 24 3d c4 |lass_On"|.<..S$=.|
|0000a270| 4b 4c 25 28 6b 65 79 25 | 29 2c 22 2e 22 29 0d 3c |KL%(key%|),".").<|
|0000a280| c8 15 4b 4c 4d 25 3d 4b | 4c 25 28 6b 65 79 25 29 |..KLM%=K|L%(key%)|
|0000a290| 2b 31 33 0d 3c d2 1a 50 | 25 3d 4c 48 25 2b 34 38 |+13.<..P|%=LH%+48|
|0000a2a0| 2b 28 52 41 25 2b 31 29 | 2a 4b 4c 4d 25 0d 3c dc |+(RA%+1)|*KLM%.<.|
|0000a2b0| 3b e7 20 5a 25 20 8c 20 | f2 63 72 65 61 74 65 5f |;. Z% . |.create_|
|0000a2c0| 6e 61 6d 65 64 5f 73 6c | 69 64 69 6e 67 5f 62 6c |named_sl|iding_bl|
|0000a2d0| 6f 63 6b 28 6b 65 79 61 | 6e 63 68 6f 72 25 28 6b |ock(keya|nchor%(k|
|0000a2e0| 65 79 25 29 2c 50 25 29 | 0d 3c e6 1e 6b 65 79 62 |ey%),P%)|.<..keyb|
|0000a2f0| 61 73 65 25 3d 21 6b 65 | 79 61 6e 63 68 6f 72 25 |ase%=!ke|yanchor%|
|0000a300| 28 6b 65 79 25 29 0d 3c | f0 12 6b 65 79 62 61 73 |(key%).<|..keybas|
|0000a310| 65 25 21 30 3d 31 33 38 | 0d 3c fa 10 6b 65 79 62 |e%!0=138|.<..keyb|
|0000a320| 61 73 65 25 21 34 3d 30 | 0d 3d 04 1b 6b 65 79 62 |ase%!4=0|.=..keyb|
|0000a330| 61 73 65 25 21 36 32 3d | 4b 46 25 28 6b 65 79 25 |ase%!62=|KF%(key%|
|0000a340| 2c 30 29 0d 3d 0e 1b 6b | 65 79 62 61 73 65 25 21 |,0).=..k|eybase%!|
|0000a350| 36 36 3d 4b 46 25 28 6b | 65 79 25 2c 31 29 0d 3d |66=KF%(k|ey%,1).=|
|0000a360| 18 19 6b 65 79 62 61 73 | 65 25 21 37 30 3d 4b 4c |..keybas|e%!70=KL|
|0000a370| 25 28 6b 65 79 25 29 0d | 3d 22 0e e3 20 49 25 3d |%(key%).|=".. I%=|
|0000a380| 30 20 b8 20 33 0d 3d 2c | 28 20 20 21 28 6b 65 79 |0 . 3.=,|(  !(key|
|0000a390| 62 61 73 65 25 2b 37 34 | 2b 28 49 25 2a 34 29 29 |base%+74|+(I%*4))|
|0000a3a0| 3d 4b 57 25 28 6b 65 79 | 25 2c 49 25 29 0d 3d 36 |=KW%(key|%,I%).=6|
|0000a3b0| 08 ed 20 49 25 0d 3d 40 | 0e e3 20 49 25 3d 30 20 |.. I%.=@|.. I%=0 |
|0000a3c0| b8 20 35 0d 3d 4a 11 20 | 20 50 25 3d 49 25 2a 38 |. 5.=J. | P%=I%*8|
|0000a3d0| 2b 4c 48 25 0d 3d 54 18 | 20 20 21 28 6b 65 79 62 |+LH%.=T.|  !(keyb|
|0000a3e0| 61 73 65 25 2b 50 25 29 | 3d 2d 50 25 0d 3d 5e 19 |ase%+P%)|=-P%.=^.|
|0000a3f0| 20 20 21 28 6b 65 79 62 | 61 73 65 25 2b 50 25 2b |  !(keyb|ase%+P%+|
|0000a400| 34 29 3d 50 25 0d 3d 68 | 08 ed 20 49 25 0d 3d 72 |4)=P%.=h|.. I%.=r|
|0000a410| 10 50 25 3d 21 6b 65 79 | 62 61 73 65 25 0d 3d 7c |.P%=!key|base%.=||
|0000a420| 12 e3 20 49 25 3d 30 20 | b8 20 52 41 25 2d 31 0d |.. I%=0 |. RA%-1.|
|0000a430| 3d 86 2e 20 20 c8 99 20 | 22 48 6f 75 72 67 6c 61 |=..  .. |"Hourgla|
|0000a440| 73 73 5f 50 65 72 63 65 | 6e 74 61 67 65 22 2c 28 |ss_Perce|ntage",(|
|0000a450| 49 25 2a 31 30 30 29 20 | 81 20 52 41 25 0d 3d 90 |I%*100) |. RA%.=.|
|0000a460| 1c 20 20 21 28 6b 65 79 | 62 61 73 65 25 2b 50 25 |.  !(key|base%+P%|
|0000a470| 29 3d 50 25 2b 4b 4c 4d | 25 0d 3d 9a 18 20 20 21 |)=P%+KLM|%.=..  !|
|0000a480| 28 6b 65 79 62 61 73 65 | 25 2b 50 25 2b 34 29 3d |(keybase|%+P%+4)=|
|0000a490| 30 0d 3d a4 19 20 20 24 | 28 6b 65 79 62 61 73 65 |0.=..  $|(keybase|
|0000a4a0| 25 2b 50 25 2b 38 29 3d | 53 24 0d 3d ae 23 20 20 |%+P%+8)=|S$.=.#  |
|0000a4b0| 21 28 6b 65 79 62 61 73 | 65 25 2b 50 25 2b 4b 4c |!(keybas|e%+P%+KL|
|0000a4c0| 25 28 6b 65 79 25 29 2b | 39 29 3d 49 25 0d 3d b8 |%(key%)+|9)=I%.=.|
|0000a4d0| 0e 20 20 50 25 2b 3d 4b | 4c 4d 25 0d 3d c2 08 ed |.  P%+=K|LM%.=...|
|0000a4e0| 20 49 25 0d 3d cc 14 21 | 28 6b 65 79 62 61 73 65 | I%.=..!|(keybase|
|0000a4f0| 25 2b 50 25 29 3d 30 0d | 3d d6 16 21 28 6b 65 79 |%+P%)=0.|=..!(key|
|0000a500| 62 61 73 65 25 2b 50 25 | 2b 34 29 3d 30 0d 3d e0 |base%+P%|+4)=0.=.|
|0000a510| 17 24 28 6b 65 79 62 61 | 73 65 25 2b 50 25 2b 38 |.$(keyba|se%+P%+8|
|0000a520| 29 3d 53 24 0d 3d ea 20 | 21 28 6b 65 79 62 61 73 |)=S$.=. |!(keybas|
|0000a530| 65 25 2b 50 25 2b 4b 4c | 25 28 6b 65 79 25 29 2b |e%+P%+KL|%(key%)+|
|0000a540| 39 29 3d 30 0d 3d f4 16 | c8 99 20 22 48 6f 75 72 |9)=0.=..|.. "Hour|
|0000a550| 67 6c 61 73 73 5f 4f 66 | 66 22 0d 3d fe 05 e1 0d |glass_Of|f".=....|
|0000a560| 3e 08 06 20 3a 0d 3e 12 | 15 20 dd 20 a4 66 69 6e |>.. :.>.|. . .fin|
|0000a570| 64 28 53 24 2c 6b 65 79 | 25 29 0d 3e 1c 12 20 ea |d(S$,key|%).>.. .|
|0000a580| 20 50 25 2c 46 25 2c 49 | 25 2c 48 25 0d 3e 26 0e | P%,F%,I|%,H%.>&.|
|0000a590| 20 53 24 3d a4 75 28 53 | 24 29 0d 3e 30 0d 20 49 | S$=.u(S|$).>0. I|
|0000a5a0| 25 3d 66 69 6c 65 25 0d | 3e 3a 0c 20 76 61 6c 24 |%=file%.|>:. val$|
|0000a5b0| 3d 22 22 0d 3e 44 10 20 | 50 25 3d a7 53 24 2c 22 |="".>D. |P%=.S$,"|
|0000a5c0| 20 22 29 0d 3e 4e 1a 20 | e7 20 50 25 3e 30 20 8c | ").>N. |. P%>0 .|
|0000a5d0| 20 53 24 3d c0 53 24 2c | 50 25 2d 31 29 0d 3e 58 | S$=.S$,|P%-1).>X|
|0000a5e0| 0e 20 6b 6c 25 3d a9 28 | 53 24 29 0d 3e 62 11 20 |. kl%=.(|S$).>b. |
|0000a5f0| 74 6f 70 3d 38 2a 49 25 | 2b 4c 48 25 0d 3e 6c 1a |top=8*I%|+LH%.>l.|
|0000a600| 20 50 25 3d a4 73 65 61 | 72 63 68 28 53 24 2c 6b | P%=.sea|rch(S$,k|
|0000a610| 65 79 25 2c 31 29 0d 3e | 76 0d 20 e7 20 50 25 3e |ey%,1).>|v. . P%>|
|0000a620| 30 20 8c 0d 3e 80 0e 20 | 20 20 61 64 64 72 3d 50 |0 ..>.. |  addr=P|
|0000a630| 25 0d 3e 8a 18 20 20 20 | f2 64 69 73 70 6c 61 79 |%.>..   |.display|
|0000a640| 28 6b 65 79 25 2c 50 25 | 29 0d 3e 94 40 20 20 20 |(key%,P%|).>.@   |
|0000a650| cc 20 f2 77 69 6d 70 5f | 65 72 72 6f 72 28 b9 2c |. .wimp_|error(.,|
|0000a660| 6d 6f 61 6e 5f 65 72 72 | 25 2c 30 2c 22 54 68 69 |moan_err|%,0,"Thi|
|0000a670| 73 20 6b 65 79 20 69 73 | 6e 27 74 20 69 6e 20 74 |s key is|n't in t|
|0000a680| 68 65 20 66 69 6c 65 22 | 29 0d 3e 9e 06 20 cd 0d |he file"|).>.. ..|
|0000a690| 3e a8 0a 20 3d 61 64 64 | 72 0d 3e b2 06 20 3a 0d |>.. =add|r.>.. :.|
|0000a6a0| 3e bc 1a 20 dd 20 a4 6d | 6f 76 65 74 6f 28 6b 65 |>.. . .m|oveto(ke|
|0000a6b0| 79 25 2c 50 25 2c 44 25 | 29 0d 3e c6 12 20 44 25 |y%,P%,D%|).>.. D%|
|0000a6c0| 3d 28 44 25 2b 31 29 20 | 81 20 32 0d 3e d0 1e 20 |=(D%+1) |. 2.>.. |
|0000a6d0| 50 25 3d a4 6e 65 69 67 | 68 62 6f 75 72 28 6b 65 |P%=.neig|hbour(ke|
|0000a6e0| 79 25 2c 50 25 2c 44 25 | 29 0d 3e da 2d 20 e7 20 |y%,P%,D%|).>.- . |
|0000a6f0| 50 25 3d 74 6f 70 20 8c | 20 ef 20 37 3a 50 25 3d |P%=top .| . 7:P%=|
|0000a700| a4 6e 65 69 67 68 62 6f | 75 72 28 6b 65 79 25 2c |.neighbo|ur(key%,|
|0000a710| 50 25 2c 44 25 29 0d 3e | e4 1a 20 52 45 43 25 3d |P%,D%).>|.. REC%=|
|0000a720| a4 72 65 63 5f 6e 6f 28 | 6b 65 79 25 2c 50 25 29 |.rec_no(|key%,P%)|
|0000a730| 0d 3e ee 16 20 f2 64 69 | 73 70 6c 61 79 28 6b 65 |.>.. .di|splay(ke|
|0000a740| 79 25 2c 50 25 29 0d 3e | f8 08 20 3d 50 25 0d 3f |y%,P%).>|.. =P%.?|
|0000a750| 02 06 20 3a 0d 3f 0c 17 | dd 20 f2 64 69 73 70 6c |.. :.?..|. .displ|
|0000a760| 61 79 28 6b 65 79 25 2c | 50 25 29 0d 3f 16 14 ea |ay(key%,|P%).?...|
|0000a770| 20 49 25 2c 4c 25 2c 53 | 25 2c 53 24 2c 6b 24 0d | I%,L%,S|%,S$,k$.|
|0000a780| 3f 20 19 52 45 43 25 3d | a4 72 65 63 5f 6e 6f 28 |? .REC%=|.rec_no(|
|0000a790| 6b 65 79 25 2c 50 25 29 | 0d 3f 2a 18 f2 63 6f 6d |key%,P%)|.?*..com|
|0000a7a0| 70 6c 65 74 65 5f 72 65 | 61 64 28 52 45 43 25 29 |plete_re|ad(REC%)|
|0000a7b0| 0d 3f 34 11 6b 24 3d 6b | 65 79 24 28 6b 65 79 25 |.?4.k$=k|ey$(key%|
|0000a7c0| 29 0d 3f 3e 28 68 65 72 | 65 25 3d a4 6e 65 78 74 |).?>(her|e%=.next|
|0000a7d0| 5f 77 72 69 74 65 61 62 | 6c 65 28 6d 61 69 6e 57 |_writeab|le(mainW|
|0000a7e0| 25 2c 32 32 2c 31 2c 30 | 29 0d 3f 48 12 24 4b 65 |%,22,1,0|).?H.$Ke|
|0000a7f0| 79 73 74 72 69 6e 67 25 | 3d 22 22 0d 3f 52 13 f2 |ystring%|="".?R..|
|0000a800| 72 65 64 72 61 77 28 6d | 61 69 6e 57 25 29 0d 3f |redraw(m|ainW%).?|
|0000a810| 5c 05 e1 0d 3f 66 05 3a | 0d 3f 70 1f 20 dd 20 a4 |\...?f.:|.?p. . .|
|0000a820| 6e 65 78 74 5f 6e 6f 64 | 65 28 6b 65 79 25 2c f8 |next_nod|e(key%,.|
|0000a830| 20 50 25 2c 44 25 29 0d | 3f 7a 12 20 44 25 3d 28 | P%,D%).|?z. D%=(|
|0000a840| 44 25 2b 31 29 20 81 20 | 32 0d 3f 84 1e 20 50 25 |D%+1) . |2.?.. P%|
|0000a850| 3d a4 6e 65 69 67 68 62 | 6f 75 72 28 6b 65 79 25 |=.neighb|our(key%|
|0000a860| 2c 50 25 2c 44 25 29 0d | 3f 8e 31 20 e7 20 50 25 |,P%,D%).|?.1 . P%|
|0000a870| 3d 74 6f 70 20 8c 3d 22 | 54 6f 70 22 20 8b 3d 24 |=top .="|Top" .=$|
|0000a880| 28 21 6b 65 79 61 6e 63 | 68 6f 72 25 28 6b 65 79 |(!keyanc|hor%(key|
|0000a890| 25 29 2b 50 25 2b 38 29 | 0d 3f 98 06 20 3a 0d 3f |%)+P%+8)|.?.. :.?|
|0000a8a0| a2 20 20 dd 20 a4 6e 65 | 69 67 68 62 6f 75 72 28 |.  . .ne|ighbour(|
|0000a8b0| 6b 65 79 25 2c 61 64 64 | 72 25 2c 64 25 29 0d 3f |key%,add|r%,d%).?|
|0000a8c0| ac 18 20 ea 20 52 25 2c | 53 25 2c 70 25 2c 6b 65 |.. . R%,|S%,p%,ke|
|0000a8d0| 79 62 61 73 65 25 0d 3f | b6 1f 20 6b 65 79 62 61 |ybase%.?|.. keyba|
|0000a8e0| 73 65 25 3d 21 6b 65 79 | 61 6e 63 68 6f 72 25 28 |se%=!key|anchor%(|
|0000a8f0| 6b 65 79 25 29 0d 3f c0 | 0c 20 70 25 3d 64 25 2a |key%).?.|. p%=d%*|
|0000a900| 34 0d 3f ca 1c 20 52 25 | 3d 21 28 6b 65 79 62 61 |4.?.. R%|=!(keyba|
|0000a910| 73 65 25 2b 61 64 64 72 | 25 2b 70 25 29 0d 3f d4 |se%+addr|%+p%).?.|
|0000a920| 12 20 e7 20 52 25 3c 30 | 20 8c 20 3d 2d 52 25 0d |. . R%<0| . =-R%.|
|0000a930| 3f de 0c 20 70 25 3d 34 | 2d 70 25 0d 3f e8 06 20 |?.. p%=4|-p%.?.. |
|0000a940| f5 0d 3f f2 0f 20 20 20 | 61 64 64 72 25 3d 52 25 |..?..   |addr%=R%|
|0000a950| 0d 3f fc 1e 20 20 20 53 | 25 3d 21 28 6b 65 79 62 |.?..   S|%=!(keyb|
|0000a960| 61 73 65 25 2b 61 64 64 | 72 25 2b 70 25 29 0d 40 |ase%+add|r%+p%).@|
|0000a970| 06 15 20 20 20 e7 20 53 | 25 3e 30 20 8c 20 52 25 |..   . S|%>0 . R%|
|0000a980| 3d 53 25 0d 40 10 0c 20 | fd 20 53 25 3c 3d 30 0d |=S%.@.. |. S%<=0.|
|0000a990| 40 1a 08 20 3d 52 25 0d | 40 24 06 20 3a 0d 40 2e |@.. =R%.|@$. :.@.|
|0000a9a0| 18 20 dd 20 a4 63 6f 75 | 6e 74 5f 72 65 63 73 28 |. . .cou|nt_recs(|
|0000a9b0| 6b 65 79 25 29 0d 40 38 | 10 20 ea 20 50 25 2c 63 |key%).@8|. . P%,c|
|0000a9c0| 6f 75 6e 74 25 0d 40 42 | 16 20 c8 99 20 22 48 6f |ount%.@B|. .. "Ho|
|0000a9d0| 75 72 67 6c 61 73 73 5f | 4f 6e 22 0d 40 4c 1e 20 |urglass_|On".@L. |
|0000a9e0| 50 25 3d a4 6e 65 69 67 | 68 62 6f 75 72 28 6b 65 |P%=.neig|hbour(ke|
|0000a9f0| 79 25 2c 74 6f 70 2c 31 | 29 0d 40 56 0f 20 c8 95 |y%,top,1|).@V. ..|
|0000aa00| 20 50 25 3c 3e 74 6f 70 | 0d 40 60 10 20 20 20 63 | P%<>top|.@`.   c|
|0000aa10| 6f 75 6e 74 25 2b 3d 31 | 0d 40 6a 1f 20 20 20 50 |ount%+=1|.@j.   P|
|0000aa20| 25 3d a4 6e 65 69 67 68 | 62 6f 75 72 28 6b 65 79 |%=.neigh|bour(key|
|0000aa30| 25 2c 50 25 2c 31 29 0d | 40 74 06 20 ce 0d 40 7e |%,P%,1).|@t. ..@~|
|0000aa40| 17 20 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |. .. "Ho|urglass_|
|0000aa50| 4f 66 66 22 0d 40 88 0c | 20 3d 63 6f 75 6e 74 25 |Off".@..| =count%|
|0000aa60| 0d 40 92 06 20 3a 0d 40 | 9c 43 20 dd 20 a4 72 65 |.@.. :.@|.C . .re|
|0000aa70| 63 5f 6e 6f 28 6b 65 79 | 25 2c 61 64 64 72 25 29 |c_no(key|%,addr%)|
|0000aa80| 3d 21 28 21 6b 65 79 61 | 6e 63 68 6f 72 25 28 6b |=!(!keya|nchor%(k|
|0000aa90| 65 79 25 29 2b 61 64 64 | 72 25 2b 38 2b 4b 4c 25 |ey%)+add|r%+8+KL%|
|0000aaa0| 28 6b 65 79 25 29 2b 31 | 29 0d 40 a6 06 20 3a 0d |(key%)+1|).@.. :.|
|0000aab0| 40 b0 35 20 dd 20 a4 69 | 6e 66 6f 28 6b 65 79 25 |@.5 . .i|nfo(key%|
|0000aac0| 2c 61 64 64 72 25 29 3d | 24 28 21 6b 65 79 61 6e |,addr%)=|$(!keyan|
|0000aad0| 63 68 6f 72 25 28 6b 65 | 79 25 29 2b 61 64 64 72 |chor%(ke|y%)+addr|
|0000aae0| 25 2b 38 29 0d 40 ba 06 | 20 3a 0d 40 c4 1a 20 dd |%+8).@..| :.@.. .|
|0000aaf0| 20 a4 73 65 61 72 63 68 | 28 53 24 2c 6b 65 79 25 | .search|(S$,key%|
|0000ab00| 2c 4d 25 29 0d 40 ce 1f | 20 ea 20 50 25 2c 66 6f |,M%).@..| . P%,fo|
|0000ab10| 75 6e 64 25 2c 69 6e 66 | 6f 24 2c 6b 65 79 62 61 |und%,inf|o$,keyba|
|0000ab20| 73 65 25 0d 40 d8 1f 20 | 6b 65 79 62 61 73 65 25 |se%.@.. |keybase%|
|0000ab30| 3d 21 6b 65 79 61 6e 63 | 68 6f 72 25 28 6b 65 79 |=!keyanc|hor%(key|
|0000ab40| 25 29 0d 40 e2 10 20 5a | 25 3d 30 3a 50 25 3d 74 |%).@.. Z|%=0:P%=t|
|0000ab50| 6f 70 0d 40 ec 06 20 f5 | 0d 40 f6 0c 20 20 20 4c |op.@.. .|.@..   L|
|0000ab60| 25 3d 50 25 0d 41 00 1b | 20 20 20 50 25 3d 21 28 |%=P%.A..|   P%=!(|
|0000ab70| 6b 65 79 62 61 73 65 25 | 2b 4c 25 2b 5a 25 29 0d |keybase%|+L%+Z%).|
|0000ab80| 41 0a 17 20 e7 20 50 25 | 3c 3d 30 20 8c 20 fd 20 |A.. . P%|<=0 . . |
|0000ab90| b9 3a 3d 2d 4c 25 0d 41 | 14 1b 20 69 6e 66 6f 24 |.:=-L%.A|.. info$|
|0000aba0| 3d 24 28 6b 65 79 62 61 | 73 65 25 2b 50 25 2b 38 |=$(keyba|se%+P%+8|
|0000abb0| 29 0d 41 1e 1a 20 72 65 | 63 25 3d a4 72 65 63 5f |).A.. re|c%=.rec_|
|0000abc0| 6e 6f 28 6b 65 79 25 2c | 50 25 29 0d 41 28 39 20 |no(key%,|P%).A(9 |
|0000abd0| e7 20 a0 28 76 61 6c 24 | 2b 22 28 53 24 29 3d 22 |. .(val$|+"(S$)="|
|0000abe0| 2b 76 61 6c 24 2b 22 4c | 45 46 54 24 28 69 6e 66 |+val$+"L|EFT$(inf|
|0000abf0| 6f 24 2c 6b 6c 25 29 22 | 29 20 8c 20 66 6f 75 6e |o$,kl%)"|) . foun|
|0000ac00| 64 25 3d b9 0d 41 32 2f | 20 e7 20 66 6f 75 6e 64 |d%=..A2/| . found|
|0000ac10| 25 3d b9 20 80 20 28 4d | 25 3d 31 20 84 20 28 4d |%=. . (M|%=1 . (M|
|0000ac20| 25 3d 32 20 80 20 72 65 | 63 25 3d 52 45 43 25 29 |%=2 . re|c%=REC%)|
|0000ac30| 29 20 8c 0d 41 3c 08 20 | 20 20 cc 0d 41 46 0f 20 |) ..A<. |  ..AF. |
|0000ac40| 20 20 66 6f 75 6e 64 25 | 3d a3 0d 41 50 2c 20 20 |  found%|=..AP,  |
|0000ac50| 20 5a 25 3d 2d a0 28 76 | 61 6c 24 2b 22 28 53 24 | Z%=-.(v|al$+"(S$|
|0000ac60| 29 3e 3d 22 2b 76 61 6c | 24 2b 22 28 69 6e 66 6f |)>="+val|$+"(info|
|0000ac70| 24 29 22 29 2a 34 0d 41 | 5a 06 20 cd 0d 41 64 14 |$)")*4.A|Z. ..Ad.|
|0000ac80| 20 fd 20 66 6f 75 6e 64 | 25 20 80 20 4d 25 3e 30 | . found|% . M%>0|
|0000ac90| 0d 41 6e 17 20 e7 20 4d | 25 3d 31 20 8c 20 52 45 |.An. . M|%=1 . RE|
|0000aca0| 43 25 3d 72 65 63 25 0d | 41 78 08 20 3d 50 25 0d |C%=rec%.|Ax. =P%.|
|0000acb0| 41 82 06 20 3a 0d 41 8c | 1c 20 dd 20 f2 69 6e 73 |A.. :.A.|. . .ins|
|0000acc0| 65 72 74 28 52 25 2c f8 | 20 53 24 2c 6b 65 79 25 |ert(R%,.| S$,key%|
|0000acd0| 29 0d 41 96 19 20 ea 20 | 50 25 2c 41 25 2c 6b 6c |).A.. . |P%,A%,kl|
|0000ace0| 25 2c 6b 65 79 62 61 73 | 65 25 0d 41 a0 1f 20 6b |%,keybas|e%.A.. k|
|0000acf0| 65 79 62 61 73 65 25 3d | 21 6b 65 79 61 6e 63 68 |eybase%=|!keyanch|
|0000ad00| 6f 72 25 28 6b 65 79 25 | 29 0d 41 aa 12 20 6b 6c |or%(key%|).A.. kl|
|0000ad10| 25 3d 4b 4c 25 28 6b 65 | 79 25 29 0d 41 b4 17 20 |%=KL%(ke|y%).A.. |
|0000ad20| 41 25 3d 21 6b 65 79 62 | 61 73 65 25 3a 46 25 3d |A%=!keyb|ase%:F%=|
|0000ad30| 41 25 0d 41 be 1b 20 50 | 25 3d 2d a4 73 65 61 72 |A%.A.. P|%=-.sear|
|0000ad40| 63 68 28 53 24 2c 6b 65 | 79 25 2c 30 29 0d 41 c8 |ch(S$,ke|y%,0).A.|
|0000ad50| 4c 20 e7 20 21 28 6b 65 | 79 62 61 73 65 25 2b 46 |L . !(ke|ybase%+F|
|0000ad60| 25 29 3e 30 20 8c 20 41 | 25 3d 21 28 6b 65 79 62 |%)>0 . A|%=!(keyb|
|0000ad70| 61 73 65 25 2b 46 25 29 | 20 8b 20 85 20 66 61 74 |ase%+F%)| . . fat|
|0000ad80| 61 6c 5f 65 72 72 25 2c | 22 46 69 6c 65 20 66 75 |al_err%,|"File fu|
|0000ad90| 6c 6c 21 22 2b bd 28 30 | 29 0d 41 d2 27 20 e7 20 |ll!"+.(0|).A.' . |
|0000ada0| 52 25 20 8c 20 52 45 43 | 25 3d 21 28 6b 65 79 62 |R% . REC|%=!(keyb|
|0000adb0| 61 73 65 25 2b 46 25 2b | 38 2b 6b 6c 25 2b 31 29 |ase%+F%+|8+kl%+1)|
|0000adc0| 0d 41 dc 28 20 21 28 6b | 65 79 62 61 73 65 25 2b |.A.( !(k|eybase%+|
|0000add0| 46 25 2b 5a 25 29 3d 21 | 28 6b 65 79 62 61 73 65 |F%+Z%)=!|(keybase|
|0000ade0| 25 2b 50 25 2b 5a 25 29 | 0d 41 e6 1e 20 21 28 6b |%+P%+Z%)|.A.. !(k|
|0000adf0| 65 79 62 61 73 65 25 2b | 46 25 2b 28 34 2d 5a 25 |eybase%+|F%+(4-Z%|
|0000ae00| 29 29 3d 2d 50 25 0d 41 | f0 18 20 24 28 6b 65 79 |))=-P%.A|.. $(key|
|0000ae10| 62 61 73 65 25 2b 46 25 | 2b 38 29 3d 53 24 0d 41 |base%+F%|+8)=S$.A|
|0000ae20| fa 26 20 21 28 6b 65 79 | 62 61 73 65 25 2b 46 25 |.& !(key|base%+F%|
|0000ae30| 2b 38 2b 4b 4c 25 28 6b | 65 79 25 29 2b 31 29 3d |+8+KL%(k|ey%)+1)=|
|0000ae40| 52 45 43 25 0d 42 04 19 | 20 21 28 6b 65 79 62 61 |REC%.B..| !(keyba|
|0000ae50| 73 65 25 2b 50 25 2b 5a | 25 29 3d 46 25 0d 42 0e |se%+P%+Z|%)=F%.B.|
|0000ae60| 11 20 21 6b 65 79 62 61 | 73 65 25 3d 41 25 0d 42 |. !keyba|se%=A%.B|
|0000ae70| 18 25 20 e7 20 6b 65 79 | 25 3d 30 20 8c 20 52 55 |.% . key|%=0 . RU|
|0000ae80| 25 2b 3d 31 3a 6b 65 79 | 62 61 73 65 25 21 34 3d |%+=1:key|base%!4=|
|0000ae90| 52 55 25 0d 42 22 06 20 | e1 0d 42 2c 06 20 3a 0d |RU%.B". |..B,. :.|
|0000aea0| 42 36 11 20 dd 20 a4 6b | 65 79 28 6b 65 79 25 29 |B6. . .k|ey(key%)|
|0000aeb0| 0d 42 40 18 20 ea 20 49 | 25 2c 4e 25 2c 50 25 2c |.B@. . I|%,N%,P%,|
|0000aec0| 53 25 2c 53 24 2c 54 24 | 0d 42 4a 09 20 50 25 3d |S%,S$,T$|.BJ. P%=|
|0000aed0| 31 0d 42 54 0e 20 53 24 | 3d 24 4e 61 6d 65 25 0d |1.BT. S$|=$Name%.|
|0000aee0| 42 5e 12 20 e7 20 53 24 | 3d 22 20 22 20 8c 3d 22 |B^. . S$|=" " .="|
|0000aef0| 22 0d 42 68 1a 20 e7 20 | c2 53 24 29 3c 3e 22 20 |".Bh. . |.S$)<>" |
|0000af00| 22 20 8c 20 53 24 2b 3d | 22 20 22 0d 42 72 0f 20 |" . S$+=|" ".Br. |
|0000af10| e3 20 49 25 3d 30 20 b8 | 20 33 0d 42 7c 16 20 20 |. I%=0 .| 3.B|.  |
|0000af20| 20 4e 25 3d 4b 57 25 28 | 6b 65 79 25 2c 49 25 29 | N%=KW%(|key%,I%)|
|0000af30| 0d 42 86 1c 20 20 20 e7 | 20 4e 25 3c 3e 30 20 80 |.B..   .| N%<>0 .|
|0000af40| 20 50 25 3c 3e a9 28 53 | 24 29 20 8c 0d 42 90 19 | P%<>.(S|$) ..B..|
|0000af50| 20 20 20 20 20 53 25 3d | a7 53 24 2c 22 20 22 2c |     S%=|.S$," ",|
|0000af60| 50 25 2b 31 29 0d 42 9a | 1e 20 20 20 20 20 e7 20 |P%+1).B.|.     . |
|0000af70| 53 25 2d 50 25 3c 4e 25 | 20 8c 20 4e 25 3d 53 25 |S%-P%<N%| . N%=S%|
|0000af80| 2d 50 25 0d 42 a4 17 20 | 20 20 20 20 54 24 2b 3d |-P%.B.. |    T$+=|
|0000af90| c1 53 24 2c 50 25 2c 4e | 25 29 0d 42 ae 10 20 20 |.S$,P%,N|%).B..  |
|0000afa0| 20 20 20 50 25 3d 53 25 | 2b 31 0d 42 b8 08 20 20 |   P%=S%|+1.B..  |
|0000afb0| 20 cd 0d 42 c2 09 20 ed | 20 49 25 0d 42 cc 1e 20 | ..B.. .| I%.B.. |
|0000afc0| 54 24 2b 3d c4 4b 4c 25 | 28 6b 65 79 25 29 2d a9 |T$+=.KL%|(key%)-.|
|0000afd0| 28 54 24 29 2c 22 23 22 | 29 0d 42 d6 0c 20 3d a4 |(T$),"#"|).B.. =.|
|0000afe0| 75 28 54 24 29 0d 42 e0 | 06 20 3a 0d 42 ea 0d 20 |u(T$).B.|. :.B.. |
|0000aff0| dd 20 a4 75 28 4e 24 29 | 0d 42 f4 0c 20 ea 20 49 |. .u(N$)|.B.. . I|
|0000b000| 25 2c 42 25 0d 42 fe 0c | 20 24 6b 65 79 3d 4e 24 |%,B%.B..| $key=N$|
|0000b010| 0d 43 08 15 20 e3 20 49 | 25 3d 30 20 b8 20 a9 28 |.C.. . I|%=0 . .(|
|0000b020| 4e 24 29 2d 31 0d 43 12 | 10 20 20 20 42 25 3d 6b |N$)-1.C.|.   B%=k|
|0000b030| 65 79 3f 49 25 0d 43 1c | 29 20 20 20 e7 20 42 25 |ey?I%.C.|)   . B%|
|0000b040| 3e 39 36 20 80 20 42 25 | 3c 31 32 33 20 8c 20 6b |>96 . B%|<123 . k|
|0000b050| 65 79 3f 49 25 3d 42 25 | 20 80 20 32 32 33 0d 43 |ey?I%=B%| . 223.C|
|0000b060| 26 09 20 ed 20 49 25 0d | 43 30 0a 20 3d 24 6b 65 |&. . I%.|C0. =$ke|
|0000b070| 79 0d 43 3a 06 20 3a 0d | 43 44 48 20 f4 20 2d 2d |y.C:. :.|CDH . --|
|0000b080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000b090| 2d 2d 20 45 6e 64 20 6f | 66 20 49 6e 64 65 78 20 |-- End o|f Index |
|0000b0a0| 68 61 6e 64 6c 69 6e 67 | 20 2d 2d 2d 2d 2d 2d 2d |handling| -------|
|0000b0b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|0000b0c0| 43 4e 06 20 3a 0d 43 58 | 06 20 3a 0d 43 62 4c 20 |CN. :.CX|. :.CbL |
|0000b0d0| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|0000b0e0| 2d 2d 2d 20 41 70 70 6f | 69 6e 74 6d 65 6e 74 20 |--- Appo|intment |
|0000b0f0| 66 69 6c 65 20 68 61 6e | 64 6c 69 6e 67 20 2d 2d |file han|dling --|
|0000b100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000b110| 2d 2d 2d 2d 2d 2d 2d 0d | 43 6c 06 20 3a 0d 43 76 |-------.|Cl. :.Cv|
|0000b120| 1b 20 dd 20 f2 63 6f 6d | 70 6c 65 74 65 5f 72 65 |. . .com|plete_re|
|0000b130| 61 64 28 52 45 43 25 29 | 0d 43 80 2b 20 64 62 61 |ad(REC%)|.C.+ dba|
|0000b140| 73 65 68 61 6e 64 6c 65 | 25 3d 8e 28 24 64 61 74 |sehandle|%=.($dat|
|0000b150| 61 62 61 73 65 25 2b 22 | 2e 44 61 74 61 62 61 73 |abase%+"|.Databas|
|0000b160| 65 22 29 0d 43 8a 10 20 | f2 72 65 61 64 28 52 45 |e").C.. |.read(RE|
|0000b170| 43 25 29 0d 43 94 1e 20 | f2 63 6c 6f 73 65 5f 66 |C%).C.. |.close_f|
|0000b180| 69 6c 65 28 64 62 61 73 | 65 68 61 6e 64 6c 65 25 |ile(dbas|ehandle%|
|0000b190| 29 0d 43 9e 1d 20 61 70 | 70 74 68 61 6e 64 6c 65 |).C.. ap|pthandle|
|0000b1a0| 25 3d 8e 28 61 70 70 74 | 66 69 6c 65 24 29 0d 43 |%=.(appt|file$).C|
|0000b1b0| a8 18 20 f2 72 65 61 64 | 5f 61 70 70 74 73 28 52 |.. .read|_appts(R|
|0000b1c0| 45 43 25 2c 30 29 0d 43 | b2 1d 20 f2 63 6c 6f 73 |EC%,0).C|.. .clos|
|0000b1d0| 65 5f 66 69 6c 65 28 61 | 70 70 74 68 61 6e 64 6c |e_file(a|ppthandl|
|0000b1e0| 65 25 29 0d 43 bc 06 20 | e1 0d 43 c6 06 20 3a 0d |e%).C.. |..C.. :.|
|0000b1f0| 43 d0 12 20 dd 20 f2 72 | 65 61 64 28 52 45 43 25 |C.. . .r|ead(REC%|
|0000b200| 29 0d 43 da 18 20 ea 20 | 6c 6f 6f 70 25 2c 73 75 |).C.. . |loop%,su|
|0000b210| 62 41 24 2c 73 75 62 42 | 24 0d 43 e4 20 20 cf 23 |bA$,subB|$.C.  .#|
|0000b220| 64 62 61 73 65 68 61 6e | 64 6c 65 25 3d 52 45 43 |dbasehan|dle%=REC|
|0000b230| 25 2a 4c 65 6e 67 74 68 | 25 0d 43 ee 1d 20 e3 20 |%*Length|%.C.. . |
|0000b240| 6c 6f 6f 70 25 3d 31 20 | b8 20 53 75 62 46 69 65 |loop%=1 |. SubFie|
|0000b250| 6c 64 25 2b 31 34 0d 43 | f8 23 20 20 20 66 69 65 |ld%+14.C|.#   fie|
|0000b260| 6c 64 24 28 6c 6f 6f 70 | 25 29 3d be 23 64 62 61 |ld$(loop|%)=.#dba|
|0000b270| 73 65 68 61 6e 64 6c 65 | 25 0d 44 02 0c 20 ed 20 |sehandle|%.D.. . |
|0000b280| 6c 6f 6f 70 25 0d 44 0c | 15 20 24 4e 61 6d 65 25 |loop%.D.|. $Name%|
|0000b290| 3d 66 69 65 6c 64 24 28 | 31 29 0d 44 16 20 20 24 |=field$(|1).D.  $|
|0000b2a0| 43 6f 75 72 73 65 25 3d | 66 69 65 6c 64 24 28 43 |Course%=|field$(C|
|0000b2b0| 72 73 65 46 69 65 6c 64 | 25 29 0d 44 20 1e 20 24 |rseField|%).D . $|
|0000b2c0| 54 75 74 6f 72 25 3d 66 | 69 65 6c 64 24 28 54 75 |Tutor%=f|ield$(Tu|
|0000b2d0| 74 46 69 65 6c 64 25 29 | 0d 44 2a 12 20 e3 20 6c |tField%)|.D*. . l|
|0000b2e0| 6f 6f 70 25 3d 31 20 b8 | 20 35 0d 44 34 26 20 20 |oop%=1 .| 5.D4&  |
|0000b2f0| 20 73 75 62 41 24 3d 66 | 69 65 6c 64 24 28 53 75 | subA$=f|ield$(Su|
|0000b300| 62 46 69 65 6c 64 25 2b | 6c 6f 6f 70 25 2d 31 29 |bField%+|loop%-1)|
|0000b310| 0d 44 3e 27 20 20 20 73 | 75 62 42 24 3d 66 69 65 |.D>'   s|ubB$=fie|
|0000b320| 6c 64 24 28 53 75 62 46 | 69 65 6c 64 42 25 2b 6c |ld$(SubF|ieldB%+l|
|0000b330| 6f 6f 70 25 2d 31 29 0d | 44 48 44 20 20 20 e7 20 |oop%-1).|DHD   . |
|0000b340| 73 75 62 41 24 3c 3e 22 | 22 20 8c 20 24 53 75 62 |subA$<>"|" . $Sub|
|0000b350| 6a 65 63 74 25 28 6c 6f | 6f 70 25 29 3d 73 75 62 |ject%(lo|op%)=sub|
|0000b360| 41 24 20 8b 20 24 53 75 | 62 6a 65 63 74 25 28 6c |A$ . $Su|bject%(l|
|0000b370| 6f 6f 70 25 29 3d 73 75 | 62 42 24 0d 44 52 0c 20 |oop%)=su|bB$.DR. |
|0000b380| ed 20 6c 6f 6f 70 25 0d | 44 5c 1a 20 6b 65 79 24 |. loop%.|D\. key$|
|0000b390| 28 6b 65 79 25 29 3d a4 | 6b 65 79 28 6b 65 79 25 |(key%)=.|key(key%|
|0000b3a0| 29 0d 44 66 06 20 e1 0d | 44 70 06 20 3a 0d 44 7a |).Df. ..|Dp. :.Dz|
|0000b3b0| 20 20 dd 20 f2 72 65 61 | 64 5f 61 70 70 74 73 28 |  . .rea|d_appts(|
|0000b3c0| 52 45 43 25 2c 73 74 61 | 74 75 73 25 29 0d 44 84 |REC%,sta|tus%).D.|
|0000b3d0| 20 20 ea 20 6c 6f 6f 70 | 25 2c 73 63 69 25 2c 68 |  . loop|%,sci%,h|
|0000b3e0| 75 6d 25 2c 72 65 73 74 | 72 69 63 74 25 0d 44 8e |um%,rest|rict%.D.|
|0000b3f0| 23 20 cf 23 61 70 70 74 | 68 61 6e 64 6c 65 25 3d |# .#appt|handle%=|
|0000b400| 52 45 43 25 2a 41 70 70 | 74 4c 65 6e 67 74 68 25 |REC%*App|tLength%|
|0000b410| 0d 44 98 1d 20 24 45 61 | 72 6c 69 65 73 74 25 3d |.D.. $Ea|rliest%=|
|0000b420| be 23 61 70 70 74 68 61 | 6e 64 6c 65 25 0d 44 a2 |.#apptha|ndle%.D.|
|0000b430| 1b 20 24 4c 61 74 65 73 | 74 25 3d be 23 61 70 70 |. $Lates|t%=.#app|
|0000b440| 74 68 61 6e 64 6c 65 25 | 0d 44 ac 1b 20 24 53 74 |thandle%|.D.. $St|
|0000b450| 61 74 75 73 25 3d be 23 | 61 70 70 74 68 61 6e 64 |atus%=.#|appthand|
|0000b460| 6c 65 25 0d 44 b6 12 20 | e3 20 6c 6f 6f 70 25 3d |le%.D.. |. loop%=|
|0000b470| 31 20 b8 20 37 0d 44 c0 | 1b 20 20 20 73 74 61 66 |1 . 7.D.|.   staf|
|0000b480| 66 24 3d be 23 61 70 70 | 74 68 61 6e 64 6c 65 25 |f$=.#app|thandle%|
|0000b490| 0d 44 ca 1c 20 20 20 24 | 53 74 61 66 66 25 28 6c |.D..   $|Staff%(l|
|0000b4a0| 6f 6f 70 25 29 3d 73 74 | 61 66 66 24 0d 44 d4 14 |oop%)=st|aff$.D..|
|0000b4b0| 20 20 20 e7 20 73 74 61 | 74 75 73 25 3d 31 20 8c |   . sta|tus%=1 .|
|0000b4c0| 0d 44 de 2e 20 20 20 20 | 20 e7 20 a4 72 65 73 74 |.D..    | . .rest|
|0000b4d0| 72 69 63 74 65 64 28 73 | 74 61 66 66 24 29 3e 30 |ricted(s|taff$)>0|
|0000b4e0| 20 8c 20 72 65 73 74 72 | 69 63 74 25 3d b9 0d 44 | . restr|ict%=..D|
|0000b4f0| e8 1c 20 20 20 20 20 64 | 65 70 74 24 3d a4 64 65 |..     d|ept$=.de|
|0000b500| 70 74 28 73 74 61 66 66 | 24 29 0d 44 f2 13 20 20 |pt(staff|$).D..  |
|0000b510| 20 20 20 c8 8e 20 64 65 | 70 74 24 20 ca 0d 44 fc |   .. de|pt$ ..D.|
|0000b520| 17 20 20 20 20 20 20 20 | c9 20 22 53 22 3a 73 63 |.       |. "S":sc|
|0000b530| 69 25 3d b9 0d 45 06 17 | 20 20 20 20 20 20 20 c9 |i%=..E..|       .|
|0000b540| 20 22 48 22 3a 68 75 6d | 25 3d b9 0d 45 10 0a 20 | "H":hum|%=..E.. |
|0000b550| 20 20 20 20 cb 0d 45 1a | 08 20 20 20 cd 0d 45 24 |    ..E.|.   ..E$|
|0000b560| 0c 20 ed 20 6c 6f 6f 70 | 25 0d 45 2e 12 20 e3 20 |. . loop|%.E.. . |
|0000b570| 6c 6f 6f 70 25 3d 31 20 | b8 20 37 0d 45 38 22 20 |loop%=1 |. 7.E8" |
|0000b580| 20 20 24 54 69 6d 65 25 | 28 6c 6f 6f 70 25 29 3d |  $Time%|(loop%)=|
|0000b590| be 23 61 70 70 74 68 61 | 6e 64 6c 65 25 0d 45 42 |.#apptha|ndle%.EB|
|0000b5a0| 0c 20 ed 20 6c 6f 6f 70 | 25 0d 45 4c 12 20 e7 20 |. . loop|%.EL. . |
|0000b5b0| 73 74 61 74 75 73 25 3d | 31 20 8c 0d 45 56 0d 20 |status%=|1 ..EV. |
|0000b5c0| 20 20 70 72 69 25 3d 30 | 0d 45 60 1e 20 20 20 e7 |  pri%=0|.E`.   .|
|0000b5d0| 20 73 63 69 25 20 80 20 | 68 75 6d 25 20 8c 20 70 | sci% . |hum% . p|
|0000b5e0| 72 69 25 2b 3d 31 0d 45 | 6a 3a 20 20 20 e7 20 24 |ri%+=1.E|j:   . $|
|0000b5f0| 45 61 72 6c 69 65 73 74 | 25 3e 45 61 72 6c 69 65 |Earliest|%>Earlie|
|0000b600| 73 74 24 20 84 20 24 4c | 61 74 65 73 74 25 3c 4c |st$ . $L|atest%<L|
|0000b610| 61 74 65 73 74 24 20 8c | 20 70 72 69 25 2b 3d 32 |atest$ .| pri%+=2|
|0000b620| 0d 45 74 1c 20 20 20 e7 | 20 72 65 73 74 72 69 63 |.Et.   .| restric|
|0000b630| 74 25 20 8c 20 70 72 69 | 25 2b 3d 34 0d 45 7e 06 |t% . pri|%+=4.E~.|
|0000b640| 20 cd 0d 45 88 06 20 e1 | 0d 45 92 06 20 3a 0d 45 | ..E.. .|.E.. :.E|
|0000b650| 9c 1c 20 dd 20 f2 77 72 | 69 74 65 5f 61 70 70 28 |.. . .wr|ite_app(|
|0000b660| f8 20 5a 25 2c 52 45 43 | 25 29 0d 45 a6 2c 20 ea |. Z%,REC|%).E., .|
|0000b670| 20 73 63 69 25 2c 68 75 | 6d 25 2c 72 65 73 74 72 | sci%,hu|m%,restr|
|0000b680| 69 63 74 25 2c 70 72 69 | 6f 72 69 74 79 25 2c 73 |ict%,pri|ority%,s|
|0000b690| 74 61 74 75 73 24 0d 45 | b0 08 20 ea 20 85 0d 45 |tatus$.E|.. . ..E|
|0000b6a0| ba 3f 20 ee 20 85 20 ea | 3a f7 20 85 3a f2 63 6c |.? . . .|:. .:.cl|
|0000b6b0| 6f 73 65 5f 66 69 6c 65 | 28 61 70 70 74 68 61 6e |ose_file|(appthan|
|0000b6c0| 64 6c 65 25 29 3a f2 77 | 69 6d 70 5f 65 72 72 6f |dle%):.w|imp_erro|
|0000b6d0| 72 28 b9 2c 9f 2c 9e 2c | f6 24 29 3a e1 0d 45 c4 |r(.,.,.,|.$):..E.|
|0000b6e0| 23 20 cf 23 61 70 70 74 | 68 61 6e 64 6c 65 25 3d |# .#appt|handle%=|
|0000b6f0| 52 45 43 25 2a 41 70 70 | 74 4c 65 6e 67 74 68 25 |REC%*App|tLength%|
|0000b700| 0d 45 ce 1d 20 d5 23 61 | 70 70 74 68 61 6e 64 6c |.E.. .#a|ppthandl|
|0000b710| 65 25 2c 24 45 61 72 6c | 69 65 73 74 25 0d 45 d8 |e%,$Earl|iest%.E.|
|0000b720| 1b 20 d5 23 61 70 70 74 | 68 61 6e 64 6c 65 25 2c |. .#appt|handle%,|
|0000b730| 24 4c 61 74 65 73 74 25 | 0d 45 e2 0b 20 c8 8e 20 |$Latest%|.E.. .. |
|0000b740| b9 20 ca 0d 45 ec 24 20 | 20 20 c9 20 24 53 74 61 |. ..E.$ |  . $Sta|
|0000b750| 66 66 25 28 31 29 3d 22 | 22 3a 73 74 61 74 75 73 |ff%(1)="|":status|
|0000b760| 24 3d 22 4e 65 77 22 0d | 45 f6 3e 20 20 20 c9 20 |$="New".|E.>   . |
|0000b770| 24 53 74 61 74 75 73 25 | 3d 22 44 6f 6e 65 22 20 |$Status%|="Done" |
|0000b780| 84 20 24 53 74 61 74 75 | 73 25 3d 22 50 72 6f 62 |. $Statu|s%="Prob|
|0000b790| 6c 65 6d 22 3a 73 74 61 | 74 75 73 24 3d 24 53 74 |lem":sta|tus$=$St|
|0000b7a0| 61 74 75 73 25 0d 46 00 | 19 20 20 20 7f 3a 73 74 |atus%.F.|.   .:st|
|0000b7b0| 61 74 75 73 24 3d 22 43 | 6f 6d 69 6e 67 22 0d 46 |atus$="C|oming".F|
|0000b7c0| 0a 06 20 cb 0d 46 14 1a | 20 d5 23 61 70 70 74 68 |.. ..F..| .#appth|
|0000b7d0| 61 6e 64 6c 65 25 2c 73 | 74 61 74 75 73 24 0d 46 |andle%,s|tatus$.F|
|0000b7e0| 1e 09 20 5a 25 3d a3 0d | 46 28 12 20 e3 20 6c 6f |.. Z%=..|F(. . lo|
|0000b7f0| 6f 70 25 3d 31 20 b8 20 | 37 0d 46 32 21 20 20 20 |op%=1 . |7.F2!   |
|0000b800| f2 64 65 73 65 6c 65 63 | 74 28 6d 61 69 6e 57 25 |.deselec|t(mainW%|
|0000b810| 2c 6c 6f 6f 70 25 2b 32 | 33 29 0d 46 3c 1c 20 20 |,loop%+2|3).F<.  |
|0000b820| 20 73 74 61 66 66 24 3d | 24 53 74 61 66 66 25 28 | staff$=|$Staff%(|
|0000b830| 6c 6f 6f 70 25 29 0d 46 | 46 1a 20 20 20 64 65 70 |loop%).F|F.   dep|
|0000b840| 74 24 3d a4 64 65 70 74 | 28 73 74 61 66 66 24 29 |t$=.dept|(staff$)|
|0000b850| 0d 46 50 72 20 20 20 e7 | 20 64 65 70 74 24 3d 22 |.FPr   .| dept$="|
|0000b860| 23 22 20 8c 20 f2 77 69 | 6d 70 5f 65 72 72 6f 72 |#" . .wi|mp_error|
|0000b870| 28 b9 2c 6d 6f 61 6e 5f | 65 72 72 25 2c 30 2c 22 |(.,moan_|err%,0,"|
|0000b880| 49 6e 76 61 6c 69 64 20 | 73 74 61 66 66 20 63 6f |Invalid |staff co|
|0000b890| 64 65 20 69 6e 20 74 68 | 69 73 20 72 65 63 6f 72 |de in th|is recor|
|0000b8a0| 64 22 29 3a 5a 25 3d 6c | 6f 6f 70 25 2b 32 33 3a |d"):Z%=l|oop%+23:|
|0000b8b0| f2 73 65 6c 65 63 74 28 | 6d 61 69 6e 57 25 2c 5a |.select(|mainW%,Z|
|0000b8c0| 25 29 0d 46 5a 1b 20 20 | 20 d5 23 61 70 70 74 68 |%).FZ.  | .#appth|
|0000b8d0| 61 6e 64 6c 65 25 2c 73 | 74 61 66 66 24 0d 46 64 |andle%,s|taff$.Fd|
|0000b8e0| 0c 20 ed 20 6c 6f 6f 70 | 25 0d 46 6e 12 20 e3 20 |. . loop|%.Fn. . |
|0000b8f0| 6c 6f 6f 70 25 3d 31 20 | b8 20 37 0d 46 78 22 20 |loop%=1 |. 7.Fx" |
|0000b900| 20 20 d5 23 61 70 70 74 | 68 61 6e 64 6c 65 25 2c |  .#appt|handle%,|
|0000b910| 24 54 69 6d 65 25 28 6c | 6f 6f 70 25 29 0d 46 82 |$Time%(l|oop%).F.|
|0000b920| 0c 20 ed 20 6c 6f 6f 70 | 25 0d 46 8c 08 20 f7 20 |. . loop|%.F.. . |
|0000b930| 85 0d 46 96 06 20 e1 0d | 46 a0 06 20 3a 0d 46 aa |..F.. ..|F.. :.F.|
|0000b940| 11 dd 20 f2 73 61 76 65 | 5f 73 74 61 66 66 0d 46 |.. .save|_staff.F|
|0000b950| b4 19 ea 20 46 2c 74 65 | 61 63 68 65 72 25 2c 73 |... F,te|acher%,s|
|0000b960| 6c 6f 74 25 2c 66 24 0d | 46 be 14 46 3d ae 28 73 |lot%,f$.|F..F=.(s|
|0000b970| 74 61 66 66 5f 66 69 6c | 65 24 29 0d 46 c8 1c e3 |taff_fil|e$).F...|
|0000b980| 20 74 65 61 63 68 65 72 | 25 3d 31 20 b8 20 4d 61 | teacher|%=1 . Ma|
|0000b990| 78 53 74 61 66 66 25 0d | 46 d2 1f 20 20 f1 23 46 |xStaff%.|F..  .#F|
|0000b9a0| 2c 53 74 61 66 66 43 6f | 64 65 73 24 28 74 65 61 |,StaffCo|des$(tea|
|0000b9b0| 63 68 65 72 25 29 0d 46 | dc 1b 20 20 e3 20 73 6c |cher%).F|..  . sl|
|0000b9c0| 6f 74 25 3d 30 20 b8 20 | 4d 61 78 53 6c 6f 74 73 |ot%=0 . |MaxSlots|
|0000b9d0| 25 0d 46 e6 27 20 20 20 | 20 f1 23 46 2c 53 74 61 |%.F.'   | .#F,Sta|
|0000b9e0| 66 66 41 70 70 74 73 25 | 28 74 65 61 63 68 65 72 |ffAppts%|(teacher|
|0000b9f0| 25 2c 73 6c 6f 74 25 29 | 0d 46 f0 0d 20 20 ed 20 |%,slot%)|.F..  . |
|0000ba00| 73 6c 6f 74 25 0d 46 fa | 0e ed 20 74 65 61 63 68 |slot%.F.|.. teach|
|0000ba10| 65 72 25 0d 47 04 12 f2 | 63 6c 6f 73 65 5f 66 69 |er%.G...|close_fi|
|0000ba20| 6c 65 28 46 29 0d 47 0e | 24 c8 99 20 22 4f 53 5f |le(F).G.|$.. "OS_|
|0000ba30| 46 69 6c 65 22 2c 31 38 | 2c 73 74 61 66 66 5f 66 |File",18|,staff_f|
|0000ba40| 69 6c 65 24 2c 26 37 66 | 32 0d 47 18 05 e1 0d 47 |ile$,&7f|2.G....G|
|0000ba50| 22 05 3a 0d 47 2c 15 dd | 20 a4 6c 6f 61 64 5f 73 |".:.G,..| .load_s|
|0000ba60| 74 61 66 66 28 66 24 29 | 0d 47 36 19 ea 20 46 2c |taff(f$)|.G6.. F,|
|0000ba70| 74 65 61 63 68 65 72 25 | 2c 73 6c 6f 74 25 2c 4e |teacher%|,slot%,N|
|0000ba80| 25 0d 47 40 0b 46 3d 8e | 28 66 24 29 0d 47 4a 1c |%.G@.F=.|(f$).GJ.|
|0000ba90| e3 20 74 65 61 63 68 65 | 72 25 3d 31 20 b8 20 4d |. teache|r%=1 . M|
|0000baa0| 61 78 53 74 61 66 66 25 | 0d 47 54 1f 20 20 e8 23 |axStaff%|.GT.  .#|
|0000bab0| 46 2c 53 74 61 66 66 43 | 6f 64 65 73 24 28 74 65 |F,StaffC|odes$(te|
|0000bac0| 61 63 68 65 72 25 29 0d | 47 5e 29 20 20 e7 20 53 |acher%).|G^)  . S|
|0000bad0| 74 61 66 66 43 6f 64 65 | 73 24 28 74 65 61 63 68 |taffCode|s$(teach|
|0000bae0| 65 72 25 29 3c 3e 22 22 | 20 8c 20 4e 25 2b 3d 31 |er%)<>""| . N%+=1|
|0000baf0| 0d 47 68 1b 20 20 e3 20 | 73 6c 6f 74 25 3d 30 20 |.Gh.  . |slot%=0 |
|0000bb00| b8 20 4d 61 78 53 6c 6f | 74 73 25 0d 47 72 27 20 |. MaxSlo|ts%.Gr' |
|0000bb10| 20 20 20 e8 23 46 2c 53 | 74 61 66 66 41 70 70 74 |   .#F,S|taffAppt|
|0000bb20| 73 25 28 74 65 61 63 68 | 65 72 25 2c 73 6c 6f 74 |s%(teach|er%,slot|
|0000bb30| 25 29 0d 47 7c 0d 20 20 | ed 20 73 6c 6f 74 25 0d |%).G|.  |. slot%.|
|0000bb40| 47 86 0e ed 20 74 65 61 | 63 68 65 72 25 0d 47 90 |G... tea|cher%.G.|
|0000bb50| 12 f2 63 6c 6f 73 65 5f | 66 69 6c 65 28 46 29 0d |..close_|file(F).|
|0000bb60| 47 9a 10 41 70 70 74 73 | 4d 61 64 65 25 3d b9 0d |G..Appts|Made%=..|
|0000bb70| 47 a4 16 f2 6c 69 74 28 | 6d 65 6e 75 25 28 31 29 |G...lit(|menu%(1)|
|0000bb80| 2c 32 2c b9 29 0d 47 ae | 16 f2 6c 69 74 28 6d 65 |,2,.).G.|..lit(me|
|0000bb90| 6e 75 25 28 31 29 2c 33 | 2c b9 29 0d 47 b8 16 f2 |nu%(1),3|,.).G...|
|0000bba0| 6c 69 74 28 6d 65 6e 75 | 25 28 31 29 2c 34 2c b9 |lit(menu|%(1),4,.|
|0000bbb0| 29 0d 47 c2 16 f2 6c 69 | 74 28 6d 65 6e 75 25 28 |).G...li|t(menu%(|
|0000bbc0| 31 29 2c 35 2c b9 29 0d | 47 cc 07 3d 4e 25 0d 47 |1),5,.).|G..=N%.G|
|0000bbd0| d6 05 3a 0d 47 e0 17 dd | 20 f2 6d 61 6b 65 5f 66 |..:.G...| .make_f|
|0000bbe0| 69 6c 65 28 66 24 2c 4e | 25 29 0d 47 ea 21 ea 20 |ile(f$,N|%).G.!. |
|0000bbf0| 49 25 2c 4a 25 2c 61 70 | 70 74 68 61 6e 64 6c 65 |I%,J%,ap|pthandle|
|0000bc00| 25 2c 74 6b 65 79 25 2c | 69 63 25 0d 47 f4 30 f2 |%,tkey%,|ic%.G.0.|
|0000bc10| 6e 6f 74 69 66 79 28 22 | 43 72 65 61 74 69 6e 67 |notify("|Creating|
|0000bc20| 20 70 61 72 65 6e 74 20 | 61 70 70 6f 69 6e 74 6d | parent |appointm|
|0000bc30| 65 6e 74 73 20 66 69 6c | 65 22 29 0d 47 fe 26 c8 |ents fil|e").G.&.|
|0000bc40| 99 20 22 4f 53 5f 43 4c | 49 22 2c 22 52 65 6d 6f |. "OS_CL|I","Remo|
|0000bc50| 76 65 20 22 2b 73 74 61 | 66 66 5f 69 6e 64 65 78 |ve "+sta|ff_index|
|0000bc60| 24 0d 48 08 23 c8 99 20 | 22 4f 53 5f 43 4c 49 22 |$.H.#.. |"OS_CLI"|
|0000bc70| 2c 22 52 65 6d 6f 76 65 | 20 22 2b 61 70 70 74 66 |,"Remove| "+apptf|
|0000bc80| 69 6c 65 24 0d 48 12 25 | c8 99 20 22 4f 53 5f 43 |ile$.H.%|.. "OS_C|
|0000bc90| 4c 49 22 2c 22 52 65 6d | 6f 76 65 20 22 2b 73 74 |LI","Rem|ove "+st|
|0000bca0| 61 66 66 5f 66 69 6c 65 | 24 0d 48 1c 26 c8 99 20 |aff_file|$.H.&.. |
|0000bcb0| 22 4f 53 5f 43 4c 49 22 | 2c 22 52 65 6d 6f 76 65 |"OS_CLI"|,"Remove|
|0000bcc0| 20 22 2b 74 75 74 6f 72 | 5f 69 6e 64 65 78 24 0d | "+tutor|_index$.|
|0000bcd0| 48 26 23 c8 99 20 22 4f | 53 5f 43 4c 49 22 2c 22 |H&#.. "O|S_CLI","|
|0000bce0| 52 65 6d 6f 76 65 20 22 | 2b 72 65 73 74 72 69 63 |Remove "|+restric|
|0000bcf0| 74 24 0d 48 30 10 e3 20 | 69 63 25 3d 33 20 b8 20 |t$.H0.. |ic%=3 . |
|0000bd00| 32 30 0d 48 3a 1f 20 20 | 24 a4 74 65 78 74 28 72 |20.H:.  |$.text(r|
|0000bd10| 65 73 74 72 69 63 74 57 | 25 2c 69 63 25 29 3d 22 |estrictW|%,ic%)="|
|0000bd20| 22 0d 48 44 09 ed 20 69 | 63 25 0d 48 4e 15 61 70 |".HD.. i|c%.HN.ap|
|0000bd30| 70 74 68 61 6e 64 6c 65 | 25 3d ae 28 66 24 29 0d |pthandle|%=.(f$).|
|0000bd40| 48 58 15 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |HX... "H|ourglass|
|0000bd50| 5f 4f 6e 22 0d 48 62 0f | e3 20 49 25 3d 30 20 b8 |_On".Hb.|. I%=0 .|
|0000bd60| 20 4e 25 0d 48 6c 22 20 | 20 cf 23 61 70 70 74 68 | N%.Hl" | .#appth|
|0000bd70| 61 6e 64 6c 65 25 3d 49 | 25 2a 41 70 70 74 4c 65 |andle%=I|%*ApptLe|
|0000bd80| 6e 67 74 68 25 0d 48 76 | 1d 20 20 d5 23 61 70 70 |ngth%.Hv|.  .#app|
|0000bd90| 74 68 61 6e 64 6c 65 25 | 2c 45 61 72 6c 69 65 73 |thandle%|,Earlies|
|0000bda0| 74 24 0d 48 80 1b 20 20 | d5 23 61 70 70 74 68 61 |t$.H..  |.#apptha|
|0000bdb0| 6e 64 6c 65 25 2c 4c 61 | 74 65 73 74 24 0d 48 8a |ndle%,La|test$.H.|
|0000bdc0| 1b 20 20 d5 23 61 70 70 | 74 68 61 6e 64 6c 65 25 |.  .#app|thandle%|
|0000bdd0| 2c 53 74 61 74 75 73 24 | 0d 48 94 11 20 20 e3 20 |,Status$|.H..  . |
|0000bde0| 4a 25 3d 31 20 b8 20 31 | 34 0d 48 9e 18 20 20 20 |J%=1 . 1|4.H..   |
|0000bdf0| 20 d5 23 61 70 70 74 68 | 61 6e 64 6c 65 25 2c 22 | .#appth|andle%,"|
|0000be00| 22 0d 48 a8 0a 20 20 ed | 20 4a 25 0d 48 b2 2b 20 |".H..  .| J%.H.+ |
|0000be10| 20 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 50 | .. "Hou|rglass_P|
|0000be20| 65 72 63 65 6e 74 61 67 | 65 22 2c 49 25 2a 31 30 |ercentag|e",I%*10|
|0000be30| 30 20 81 20 4e 25 0d 48 | bc 08 ed 20 49 25 0d 48 |0 . N%.H|... I%.H|
|0000be40| c6 1c f2 63 6c 6f 73 65 | 5f 66 69 6c 65 28 61 70 |...close|_file(ap|
|0000be50| 70 74 68 61 6e 64 6c 65 | 25 29 0d 48 d0 1b c8 99 |pthandle|%).H....|
|0000be60| 20 22 4f 53 5f 46 69 6c | 65 22 2c 31 38 2c 66 24 | "OS_Fil|e",18,f$|
|0000be70| 2c 26 37 66 32 0d 48 da | 10 41 70 70 74 73 4d 61 |,&7f2.H.|.ApptsMa|
|0000be80| 64 65 25 3d a3 0d 48 e4 | 16 c8 99 20 22 48 6f 75 |de%=..H.|... "Hou|
|0000be90| 72 67 6c 61 73 73 5f 4f | 66 66 22 0d 48 ee 1b f2 |rglass_O|ff".H...|
|0000bea0| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 6e 6f 74 |close_wi|ndow(not|
|0000beb0| 69 66 79 57 25 29 0d 48 | f8 05 e1 0d 49 02 06 20 |ifyW%).H|....I.. |
|0000bec0| 3a 0d 49 0c 48 20 f4 20 | 2d 2d 2d 2d 2d 2d 2d 2d |:.I.H . |--------|
|0000bed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 45 6e |--------|----- En|
|0000bee0| 64 20 6f 66 20 66 69 6c | 65 20 68 61 6e 64 6c 69 |d of fil|e handli|
|0000bef0| 6e 67 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ng -----|--------|
|0000bf00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 49 16 06 20 3a 0d |--------|-.I.. :.|
|0000bf10| 49 20 48 20 f4 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |I H . --|--------|
|0000bf20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 4d 69 73 63 65 |--------|-- Misce|
|0000bf30| 6c 6c 61 6e 65 6f 75 73 | 20 72 6f 75 74 69 6e 65 |llaneous| routine|
|0000bf40| 73 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |s ------|--------|
|0000bf50| 2d 2d 2d 2d 2d 2d 2d 0d | 49 2a 06 20 3a 0d 49 34 |-------.|I*. :.I4|
|0000bf60| 17 20 dd 20 a4 73 74 72 | 69 70 73 70 61 63 65 73 |. . .str|ipspaces|
|0000bf70| 28 73 24 29 0d 49 3e 29 | 20 e7 20 c2 73 24 29 3d |(s$).I>)| . .s$)=|
|0000bf80| 22 20 22 20 8c 3d a4 73 | 74 72 69 70 73 70 61 63 |" " .=.s|tripspac|
|0000bf90| 65 73 28 c0 73 24 29 29 | 20 8b 3d 73 24 0d 49 48 |es(.s$))| .=s$.IH|
|0000bfa0| 06 20 3a 0d 49 52 12 20 | dd 20 a4 67 65 74 73 74 |. :.IR. |. .getst|
|0000bfb0| 72 28 70 25 29 0d 49 5c | 09 20 ea 20 70 24 0d 49 |r(p%).I\|. . p$.I|
|0000bfc0| 66 0e 20 c8 95 20 3f 70 | 25 3e 33 31 0d 49 70 11 |f. .. ?p|%>31.Ip.|
|0000bfd0| 20 20 20 70 24 2b 3d bd | 28 3f 70 25 29 0d 49 7a |   p$+=.|(?p%).Iz|
|0000bfe0| 0c 20 20 20 70 25 2b 3d | 31 0d 49 84 06 20 ce 0d |.   p%+=|1.I.. ..|
|0000bff0| 49 8e 08 20 3d 70 24 0d | 49 98 06 20 3a 0d 49 a2 |I.. =p$.|I.. :.I.|
|0000c000| 18 20 dd 20 a4 63 6f 6e | 66 69 72 6d 28 73 74 72 |. . .con|firm(str|
|0000c010| 69 6e 67 24 29 0d 49 ac | 10 20 21 62 6c 6f 63 6b |ing$).I.|. !block|
|0000c020| 25 3d 32 35 35 0d 49 b6 | 18 20 24 28 62 6c 6f 63 |%=255.I.|. $(bloc|
|0000c030| 6b 25 2b 34 29 3d 73 74 | 72 69 6e 67 24 0d 49 c0 |k%+4)=st|ring$.I.|
|0000c040| 5c 20 c8 99 20 22 57 69 | 6d 70 5f 52 65 70 6f 72 |\ .. "Wi|mp_Repor|
|0000c050| 74 45 72 72 6f 72 22 2c | 62 6c 6f 63 6b 25 2c 28 |tError",|block%,(|
|0000c060| 31 3c 3c 30 29 2b 28 31 | 3c 3c 31 29 2b 28 31 3c |1<<0)+(1|<<1)+(1<|
|0000c070| 3c 34 29 2c 22 41 70 70 | 6f 69 6e 74 3a 20 70 6c |<4),"App|oint: pl|
|0000c080| 65 61 73 65 20 63 6f 6e | 66 69 72 6d 3a 22 20 b8 |ease con|firm:" .|
|0000c090| 20 2c 72 65 73 75 6c 74 | 25 0d 49 ca 0f 20 3d 72 | ,result|%.I.. =r|
|0000c0a0| 65 73 75 6c 74 25 3d 31 | 0d 49 d4 06 20 3a 0d 49 |esult%=1|.I.. :.I|
|0000c0b0| de 2d 20 dd 20 f2 67 65 | 74 73 63 72 65 65 6e 73 |.- . .ge|tscreens|
|0000c0c0| 69 7a 65 28 f8 20 53 5f | 57 69 64 74 68 25 2c f8 |ize(. S_|Width%,.|
|0000c0d0| 20 53 5f 48 65 69 67 68 | 74 25 29 0d 49 e8 0b 20 | S_Heigh|t%).I.. |
|0000c0e0| ea 20 45 6e 64 25 0d 49 | f2 25 20 48 31 25 3d 30 |. End%.I|.% H1%=0|
|0000c0f0| 3a 56 31 25 3d 34 3a 48 | 32 25 3d 38 3a 56 32 25 |:V1%=4:H|2%=8:V2%|
|0000c100| 3d 31 32 3a 45 6e 64 25 | 3d 31 36 0d 49 fc 3a 20 |=12:End%|=16.I.: |
|0000c110| 4d 69 25 21 48 31 25 3d | 34 3a 4d 69 25 21 56 31 |Mi%!H1%=|4:Mi%!V1|
|0000c120| 25 3d 35 3a 4d 69 25 21 | 48 32 25 3d 31 31 3a 4d |%=5:Mi%!|H2%=11:M|
|0000c130| 69 25 21 56 32 25 3d 31 | 32 3a 4d 69 25 21 45 6e |i%!V2%=1|2:Mi%!En|
|0000c140| 64 25 3d 2d 31 0d 4a 06 | 25 20 c8 99 20 22 4f 53 |d%=-1.J.|% .. "OS|
|0000c150| 5f 52 65 61 64 56 64 75 | 56 61 72 69 61 62 6c 65 |_ReadVdu|Variable|
|0000c160| 73 22 2c 4d 69 25 2c 4d | 6f 25 0d 4a 10 2a 20 53 |s",Mi%,M|o%.J.* S|
|0000c170| 5f 57 69 64 74 68 25 3d | 28 31 3c 3c 28 4d 6f 25 |_Width%=|(1<<(Mo%|
|0000c180| 21 48 31 25 29 29 2a 28 | 28 4d 6f 25 21 48 32 25 |!H1%))*(|(Mo%!H2%|
|0000c190| 29 2b 31 29 0d 4a 1a 2b | 20 53 5f 48 65 69 67 68 |)+1).J.+| S_Heigh|
|0000c1a0| 74 25 3d 28 31 3c 3c 28 | 4d 6f 25 21 56 31 25 29 |t%=(1<<(|Mo%!V1%)|
|0000c1b0| 29 2a 28 28 4d 6f 25 21 | 56 32 25 29 2b 31 29 0d |)*((Mo%!|V2%)+1).|
|0000c1c0| 4a 24 06 20 e1 0d 4a 2e | 06 20 3a 0d 4a 38 16 20 |J$. ..J.|. :.J8. |
|0000c1d0| dd 20 a4 65 6e 63 72 79 | 70 74 28 53 24 2c 5a 25 |. .encry|pt(S$,Z%|
|0000c1e0| 29 0d 4a 42 0c 20 ea 20 | 49 25 2c 52 25 0d 4a 4c |).JB. . |I%,R%.JL|
|0000c1f0| 11 20 52 25 3d b3 28 2d | 31 32 38 31 37 29 0d 4a |. R%=.(-|12817).J|
|0000c200| 56 13 20 e3 20 49 25 3d | 31 20 b8 20 a9 28 53 24 |V. . I%=|1 . .(S$|
|0000c210| 29 0d 4a 60 11 20 20 20 | 52 25 3d b3 28 35 38 29 |).J`.   |R%=.(58)|
|0000c220| 2d 31 0d 4a 6a 18 20 20 | 20 e7 20 ac 20 5a 25 20 |-1.Jj.  | . . Z% |
|0000c230| 8c 20 52 25 3d 35 38 2d | 52 25 0d 4a 74 30 20 20 |. R%=58-|R%.Jt0  |
|0000c240| 20 c1 53 24 2c 49 25 2c | 31 29 3d bd 28 28 97 28 | .S$,I%,|1)=.((.(|
|0000c250| c1 53 24 2c 49 25 2c 31 | 29 29 2d 36 35 2b 52 25 |.S$,I%,1|))-65+R%|
|0000c260| 29 20 83 20 35 38 2b 36 | 35 29 0d 4a 7e 09 20 ed |) . 58+6|5).J~. .|
|0000c270| 20 49 25 0d 4a 88 08 20 | 3d 53 24 0d 4a 92 06 20 | I%.J.. |=S$.J.. |
|0000c280| 3a 0d 4a 9c 15 20 dd 20 | f2 6e 6f 74 69 66 79 28 |:.J.. . |.notify(|
|0000c290| 6d 65 73 73 24 29 0d 4a | a6 13 20 24 4e 6f 74 69 |mess$).J|.. $Noti|
|0000c2a0| 66 79 25 3d 6d 65 73 73 | 24 0d 4a b0 1b 20 f2 6f |fy%=mess|$.J.. .o|
|0000c2b0| 70 65 6e 5f 77 69 6e 64 | 6f 77 28 6e 6f 74 69 66 |pen_wind|ow(notif|
|0000c2c0| 79 57 25 29 0d 4a ba 16 | 20 f2 70 6f 6c 6c 3a f2 |yW%).J..| .poll:.|
|0000c2d0| 70 6f 6c 6c 3a f2 70 6f | 6c 6c 0d 4a c4 06 20 e1 |poll:.po|ll.J.. .|
|0000c2e0| 0d 4a ce 06 20 3a 0d 4a | d8 19 20 dd 20 f2 72 65 |.J.. :.J|.. . .re|
|0000c2f0| 70 6f 72 74 28 70 72 25 | 2c 6d 65 73 73 24 29 0d |port(pr%|,mess$).|
|0000c300| 4a e2 14 20 24 4d 65 73 | 73 61 67 65 25 3d 6d 65 |J.. $Mes|sage%=me|
|0000c310| 73 73 24 0d 4a ec 13 20 | 24 53 75 62 74 6f 74 61 |ss$.J.. |$Subtota|
|0000c320| 6c 25 3d 22 30 22 0d 4a | f6 19 20 f2 6f 70 65 6e |l%="0".J|.. .open|
|0000c330| 5f 77 69 6e 64 6f 77 28 | 73 74 61 74 57 25 29 0d |_window(|statW%).|
|0000c340| 4b 00 1b 20 f2 72 65 64 | 72 61 77 5f 69 63 6f 6e |K.. .red|raw_icon|
|0000c350| 28 73 74 61 74 57 25 2c | 30 29 0d 4b 0a 16 20 f2 |(statW%,|0).K.. .|
|0000c360| 70 6f 6c 6c 3a f2 70 6f | 6c 6c 3a f2 70 6f 6c 6c |poll:.po|ll:.poll|
|0000c370| 0d 4b 14 06 20 e1 0d 4b | 1e 06 20 3a 0d 4b 28 13 |.K.. ..K|.. :.K(.|
|0000c380| 20 dd 20 a4 6e 61 6d 65 | 28 4e 24 2c 46 25 29 0d | . .name|(N$,F%).|
|0000c390| 4b 32 0f 20 ea 20 50 25 | 2c 51 25 2c 4c 25 0d 4b |K2. . P%|,Q%,L%.K|
|0000c3a0| 3c 11 20 50 25 3d a7 4e | 24 2c 22 20 20 22 29 0d |<. P%=.N|$,"  ").|
|0000c3b0| 4b 46 1a 20 e7 20 50 25 | 3e 30 20 8c 20 4e 24 3d |KF. . P%|>0 . N$=|
|0000c3c0| c0 4e 24 2c 50 25 2d 31 | 29 0d 4b 50 19 20 50 25 |.N$,P%-1|).KP. P%|
|0000c3d0| 3d a9 28 4e 24 29 3a 51 | 25 3d 50 25 3a 4c 25 3d |=.(N$):Q|%=P%:L%=|
|0000c3e0| 50 25 0d 4b 5a 0f 20 e7 | 20 4c 25 3e 3d 46 25 20 |P%.KZ. .| L%>=F% |
|0000c3f0| 8c 0d 4b 64 08 20 20 20 | f5 0d 4b 6e 29 20 20 20 |..Kd.   |..Kn)   |
|0000c400| 20 20 f5 20 50 25 3d 50 | 25 2d 31 3a fd 20 c1 4e |  . P%=P|%-1:. .N|
|0000c410| 24 2c 50 25 2c 31 29 3d | 22 20 22 20 84 20 50 25 |$,P%,1)=|" " . P%|
|0000c420| 3d 30 0d 4b 78 39 20 20 | 20 20 20 e7 20 50 25 20 |=0.Kx9  |   . P% |
|0000c430| 8c 20 4e 24 3d c0 4e 24 | 2c 50 25 2b 31 29 2b 22 |. N$=.N$|,P%+1)+"|
|0000c440| 2e 22 2b c1 4e 24 2c 51 | 25 2b 31 29 20 8b 20 4e |."+.N$,Q|%+1) . N|
|0000c450| 24 3d c0 4e 24 2c 46 25 | 2d 31 29 0d 4b 82 17 20 |$=.N$,F%|-1).K.. |
|0000c460| 20 20 20 20 51 25 3d 50 | 25 3a 4c 25 3d a9 28 4e |    Q%=P|%:L%=.(N|
|0000c470| 24 29 0d 4b 8c 15 20 20 | 20 fd 20 4c 25 3c 46 25 |$).K..  | . L%<F%|
|0000c480| 20 84 20 50 25 3d 30 0d | 4b 96 06 20 cd 0d 4b a0 | . P%=0.|K.. ..K.|
|0000c490| 14 20 3d 4e 24 2b c4 46 | 25 2d 4c 25 2c 22 20 22 |. =N$+.F|%-L%," "|
|0000c4a0| 29 0d 4b aa 06 20 3a 0d | 4b b4 4a 20 f4 20 2d 2d |).K.. :.|K.J . --|
|0000c4b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 45 |--------|------ E|
|0000c4c0| 6e 64 20 6f 66 20 4d 69 | 73 63 65 6c 6c 61 6e 65 |nd of Mi|scellane|
|0000c4d0| 6f 75 73 20 72 6f 75 74 | 69 6e 65 73 20 2d 2d 2d |ous rout|ines ---|
|0000c4e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000c4f0| 2d 0d 4b be 06 20 3a 0d | 4b c8 48 20 f4 20 2d 2d |-.K.. :.|K.H . --|
|0000c500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000c510| 20 4c 69 73 74 20 6f 75 | 74 70 75 74 20 74 6f 20 | List ou|tput to |
|0000c520| 73 63 72 65 65 6e 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |screen -|--------|
|0000c530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|0000c540| 4b d2 06 20 3a 0d 4b dc | 12 20 dd 20 f2 73 74 61 |K.. :.K.|. . .sta|
|0000c550| 72 74 5f 6c 69 73 74 0d | 4b e6 3c 20 74 65 78 74 |rt_list.|K.< text|
|0000c560| 62 6c 6f 63 6b 73 69 7a | 65 25 3d 35 30 2a 4c 65 |blocksiz|e%=50*Le|
|0000c570| 6e 4c 69 6e 65 25 3a 74 | 65 78 74 62 6c 6f 63 6b |nLine%:t|extblock|
|0000c580| 69 6e 63 25 3d 74 65 78 | 74 62 6c 6f 63 6b 73 69 |inc%=tex|tblocksi|
|0000c590| 7a 65 25 0d 4b f0 3c 20 | f2 65 78 74 65 6e 64 5f |ze%.K.< |.extend_|
|0000c5a0| 6e 61 6d 65 64 5f 73 6c | 69 64 69 6e 67 5f 62 6c |named_sl|iding_bl|
|0000c5b0| 6f 63 6b 28 74 65 78 74 | 61 6e 63 68 6f 72 25 2c |ock(text|anchor%,|
|0000c5c0| 74 65 78 74 62 6c 6f 63 | 6b 73 69 7a 65 25 29 0d |textbloc|ksize%).|
|0000c5d0| 4b fa 32 20 54 65 78 74 | 50 74 72 25 3d 21 74 65 |K.2 Text|Ptr%=!te|
|0000c5e0| 78 74 61 6e 63 68 6f 72 | 25 3a 43 6f 75 6e 74 25 |xtanchor|%:Count%|
|0000c5f0| 3d 30 3a f2 6c 69 73 74 | 5f 6c 69 6e 65 28 22 22 |=0:.list|_line(""|
|0000c600| 29 0d 4c 04 06 20 e1 0d | 4c 0e 06 20 3a 0d 4c 18 |).L.. ..|L.. :.L.|
|0000c610| 1a 20 dd 20 f2 6c 69 73 | 74 5f 6c 69 6e 65 28 73 |. . .lis|t_line(s|
|0000c620| 74 72 69 6e 67 24 29 0d | 4c 22 0e 20 43 6f 75 6e |tring$).|L". Coun|
|0000c630| 74 25 2b 3d 31 0d 4c 2c | 29 20 e7 20 28 4c 65 6e |t%+=1.L,|) . (Len|
|0000c640| 4c 69 6e 65 25 2a 43 6f | 75 6e 74 25 29 3e 74 65 |Line%*Co|unt%)>te|
|0000c650| 78 74 62 6c 6f 63 6b 73 | 69 7a 65 25 20 8c 0d 4c |xtblocks|ize% ..L|
|0000c660| 36 24 20 20 20 74 65 78 | 74 62 6c 6f 63 6b 73 69 |6$   tex|tblocksi|
|0000c670| 7a 65 25 2b 3d 74 65 78 | 74 62 6c 6f 63 6b 69 6e |ze%+=tex|tblockin|
|0000c680| 63 25 0d 4c 40 3e 20 20 | 20 f2 65 78 74 65 6e 64 |c%.L@>  | .extend|
|0000c690| 5f 6e 61 6d 65 64 5f 73 | 6c 69 64 69 6e 67 5f 62 |_named_s|liding_b|
|0000c6a0| 6c 6f 63 6b 28 74 65 78 | 74 61 6e 63 68 6f 72 25 |lock(tex|tanchor%|
|0000c6b0| 2c 74 65 78 74 62 6c 6f | 63 6b 73 69 7a 65 25 29 |,textblo|cksize%)|
|0000c6c0| 0d 4c 4a 06 20 cd 0d 4c | 54 18 20 73 74 72 69 6e |.LJ. ..L|T. strin|
|0000c6d0| 67 24 3d 22 20 22 2b 73 | 74 72 69 6e 67 24 0d 4c |g$=" "+s|tring$.L|
|0000c6e0| 5e 29 20 73 74 72 69 6e | 67 24 2b 3d c4 4c 65 6e |^) strin|g$+=.Len|
|0000c6f0| 4c 69 6e 65 25 2d 31 2d | a9 28 73 74 72 69 6e 67 |Line%-1-|.(string|
|0000c700| 24 29 2c 22 20 22 29 0d | 4c 68 44 20 24 54 65 78 |$)," ").|LhD $Tex|
|0000c710| 74 50 74 72 25 3d 73 74 | 72 69 6e 67 24 3a 54 65 |tPtr%=st|ring$:Te|
|0000c720| 78 74 50 74 72 25 2b 3d | 4c 65 6e 4c 69 6e 65 25 |xtPtr%+=|LenLine%|
|0000c730| 2d 31 3a 3f 54 65 78 74 | 50 74 72 25 3d 31 30 3a |-1:?Text|Ptr%=10:|
|0000c740| 54 65 78 74 50 74 72 25 | 2b 3d 31 0d 4c 72 0a 20 |TextPtr%|+=1.Lr. |
|0000c750| f2 70 6f 6c 6c 0d 4c 7c | 06 20 e1 0d 4c 86 06 20 |.poll.L||. ..L.. |
|0000c760| 3a 0d 4c 90 13 20 dd 20 | f2 73 63 72 65 65 6e 5f |:.L.. . |.screen_|
|0000c770| 6c 69 73 74 0d 4c 9a 22 | 20 21 62 6c 6f 63 6b 25 |list.L."| !block%|
|0000c780| 3d 30 3a 62 6c 6f 63 6b | 25 21 34 3d 2d 43 6f 75 |=0:block|%!4=-Cou|
|0000c790| 6e 74 25 2a 33 32 0d 4c | a4 29 20 62 6c 6f 63 6b |nt%*32.L|.) block|
|0000c7a0| 25 21 38 3d 28 4c 65 6e | 4c 69 6e 65 25 2d 32 29 |%!8=(Len|Line%-2)|
|0000c7b0| 2a 31 36 3a 62 6c 6f 63 | 6b 25 21 31 32 3d 30 0d |*16:bloc|k%!12=0.|
|0000c7c0| 4c ae 26 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |L.& .. "|Wimp_Set|
|0000c7d0| 45 78 74 65 6e 74 22 2c | 6c 69 73 74 57 25 2c 62 |Extent",|listW%,b|
|0000c7e0| 6c 6f 63 6b 25 0d 4c b8 | 13 20 21 62 6c 6f 63 6b |lock%.L.|. !block|
|0000c7f0| 25 3d 6c 69 73 74 57 25 | 0d 4c c2 25 20 c8 99 20 |%=listW%|.L.% .. |
|0000c800| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|0000c810| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 0d 4c cc |tate",,b|lock%.L.|
|0000c820| 3c 20 78 25 3d 28 62 6c | 6f 63 6b 25 21 34 2b 62 |< x%=(bl|ock%!4+b|
|0000c830| 6c 6f 63 6b 25 21 31 32 | 29 20 81 20 32 3a 79 25 |lock%!12|) . 2:y%|
|0000c840| 3d 28 62 6c 6f 63 6b 25 | 21 38 2b 62 6c 6f 63 6b |=(block%|!8+block|
|0000c850| 25 21 31 36 29 20 81 20 | 32 0d 4c d6 23 20 62 6c |%!16) . |2.L.# bl|
|0000c860| 6f 63 6b 25 21 31 32 3d | 62 6c 6f 63 6b 25 21 34 |ock%!12=|block%!4|
|0000c870| 2b 4c 65 6e 4c 69 6e 65 | 25 2a 31 36 0d 4c e0 12 |+LenLine|%*16.L..|
|0000c880| 20 e7 20 43 6f 75 6e 74 | 25 3c 32 38 20 8c 0d 4c | . Count|%<28 ..L|
|0000c890| ea 23 20 20 20 62 6c 6f | 63 6b 25 21 31 36 3d 62 |.#   blo|ck%!16=b|
|0000c8a0| 6c 6f 63 6b 25 21 38 2b | 43 6f 75 6e 74 25 2a 33 |lock%!8+|Count%*3|
|0000c8b0| 32 0d 4c f4 08 20 20 20 | cc 0d 4c fe 1f 20 20 20 |2.L..   |..L..   |
|0000c8c0| 62 6c 6f 63 6b 25 21 31 | 36 3d 62 6c 6f 63 6b 25 |block%!1|6=block%|
|0000c8d0| 21 38 2b 33 32 2a 32 38 | 0d 4d 08 06 20 cd 0d 4d |!8+32*28|.M.. ..M|
|0000c8e0| 12 22 20 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |." .. "W|imp_Clos|
|0000c8f0| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|0000c900| 0d 4d 1c 0e 20 6c 69 73 | 74 65 64 25 3d b9 0d 4d |.M.. lis|ted%=..M|
|0000c910| 26 19 20 f2 6f 70 65 6e | 5f 77 69 6e 64 6f 77 28 |&. .open|_window(|
|0000c920| 6c 69 73 74 57 25 29 0d | 4d 30 1d 20 f2 73 68 6f |listW%).|M0. .sho|
|0000c930| 77 5f 6d 65 6e 75 28 73 | 61 76 65 57 25 2c 78 25 |w_menu(s|aveW%,x%|
|0000c940| 2c 79 25 29 0d 4d 3a 06 | 20 e1 0d 4d 44 05 3a 0d |,y%).M:.| ..MD.:.|
|0000c950| 4d 4e 14 dd 20 f2 6c 69 | 73 74 73 28 53 74 61 66 |MN.. .li|sts(Staf|
|0000c960| 66 24 29 0d 4d 58 13 e7 | 20 70 72 69 6e 74 69 6e |f$).MX..| printin|
|0000c970| 67 25 20 8c 20 e1 0d 4d | 62 2f ea 20 54 25 2c 72 |g% . ..M|b/. T%,r|
|0000c980| 6f 77 25 2c 69 6e 64 25 | 2c 73 74 61 72 74 25 2c |ow%,ind%|,start%,|
|0000c990| 52 6f 77 73 25 2c 52 65 | 63 25 2c 54 61 62 46 69 |Rows%,Re|c%,TabFi|
|0000c9a0| 65 6c 64 73 25 0d 4d 6c | 22 ea 20 6b 65 79 25 2c |elds%.Ml|". key%,|
|0000c9b0| 64 62 61 73 65 68 61 6e | 64 6c 65 25 2c 69 6e 66 |dbasehan|dle%,inf|
|0000c9c0| 6f 24 2c 76 61 6c 24 0d | 4d 76 07 ea 20 85 0d 4d |o$,val$.|Mv.. ..M|
|0000c9d0| 80 1b ee 20 85 20 ea 3a | f7 20 85 3a f2 61 62 6f |... . .:|. .:.abo|
|0000c9e0| 72 74 5f 6c 69 73 74 3a | e1 0d 4d 8a 2a 64 62 61 |rt_list:|..M.*dba|
|0000c9f0| 73 65 68 61 6e 64 6c 65 | 25 3d 8e 28 24 64 61 74 |sehandle|%=.($dat|
|0000ca00| 61 62 61 73 65 25 2b 22 | 2e 44 61 74 61 62 61 73 |abase%+"|.Databas|
|0000ca10| 65 22 29 0d 4d 94 0f 70 | 72 69 6e 74 69 6e 67 25 |e").M..p|rinting%|
|0000ca20| 3d b9 0d 4d 9e 15 c8 99 | 20 22 48 6f 75 72 67 6c |=..M....| "Hourgl|
|0000ca30| 61 73 73 5f 4f 6e 22 0d | 4d a8 0f f2 73 74 61 72 |ass_On".|M...star|
|0000ca40| 74 5f 6c 69 73 74 0d 4d | b2 14 e7 20 53 74 61 66 |t_list.M|... Staf|
|0000ca50| 66 24 3d 22 41 4c 4c 22 | 20 8c 0d 4d bc 33 20 20 |f$="ALL"| ..M.3  |
|0000ca60| 24 53 61 76 65 4c 69 73 | 74 25 3d 24 64 61 74 61 |$SaveLis|t%=$data|
|0000ca70| 62 61 73 65 25 2b 22 2e | 50 72 69 6e 74 4a 6f 62 |base%+".|PrintJob|
|0000ca80| 73 2e 53 74 61 66 66 41 | 70 70 74 73 22 0d 4d c6 |s.StaffA|ppts".M.|
|0000ca90| 1f 20 20 54 25 3d a4 74 | 61 62 6c 65 5f 6e 75 6d |.  T%=.t|able_num|
|0000caa0| 62 65 72 28 22 53 74 61 | 66 66 22 29 0d 4d d0 3d |ber("Sta|ff").M.=|
|0000cab0| 20 20 54 24 3d a4 74 61 | 62 6c 65 5f 69 6e 66 6f |  T$=.ta|ble_info|
|0000cac0| 28 54 25 2c 52 6f 77 73 | 25 2c 54 61 62 46 69 65 |(T%,Rows|%,TabFie|
|0000cad0| 6c 64 73 25 2c 52 65 63 | 25 2c 74 61 62 66 69 65 |lds%,Rec|%,tabfie|
|0000cae0| 6c 64 6c 65 6e 25 28 29 | 29 0d 4d da 18 20 20 e3 |ldlen%()|).M..  .|
|0000caf0| 20 72 6f 77 25 3d 30 20 | b8 20 52 6f 77 73 25 2d | row%=0 |. Rows%-|
|0000cb00| 31 0d 4d e4 18 20 20 c8 | 99 20 22 4f 53 5f 42 79 |1.M..  .|. "OS_By|
|0000cb10| 74 65 22 2c 32 32 39 2c | 30 0d 4d ee 2c 20 20 20 |te",229,|0.M.,   |
|0000cb20| 20 69 6e 64 25 3d 21 74 | 61 62 61 6e 63 68 6f 72 | ind%=!t|abanchor|
|0000cb30| 25 28 54 25 29 2b 31 36 | 30 2b 28 72 6f 77 25 2a |%(T%)+16|0+(row%*|
|0000cb40| 52 65 63 25 29 0d 4d f8 | 26 20 20 20 20 e7 20 24 |Rec%).M.|&    . $|
|0000cb50| 69 6e 64 25 3c 3e 22 22 | 20 8c 20 f2 6f 6e 65 5f |ind%<>""| . .one_|
|0000cb60| 6c 69 73 74 28 24 69 6e | 64 25 29 0d 4e 02 0c 20 |list($in|d%).N.. |
|0000cb70| 20 ed 20 72 6f 77 25 0d | 4e 0c 07 20 20 cc 0d 4e | . row%.|N..  ..N|
|0000cb80| 16 39 20 20 24 53 61 76 | 65 4c 69 73 74 25 3d 24 |.9  $Sav|eList%=$|
|0000cb90| 64 61 74 61 62 61 73 65 | 25 2b 22 2e 50 72 69 6e |database|%+".Prin|
|0000cba0| 74 4a 6f 62 73 2e 22 2b | 53 74 61 66 66 24 2b 22 |tJobs."+|Staff$+"|
|0000cbb0| 5f 41 70 70 74 73 22 0d | 4e 20 17 20 20 f2 6f 6e |_Appts".|N .  .on|
|0000cbc0| 65 5f 6c 69 73 74 28 53 | 74 61 66 66 24 29 0d 4e |e_list(S|taff$).N|
|0000cbd0| 2a 05 cd 0d 4e 34 16 c8 | 99 20 22 48 6f 75 72 67 |*...N4..|. "Hourg|
|0000cbe0| 6c 61 73 73 5f 4f 66 66 | 22 0d 4e 3e 0f 70 72 69 |lass_Off|".N>.pri|
|0000cbf0| 6e 74 69 6e 67 25 3d a3 | 0d 4e 48 24 24 4c 69 73 |nting%=.|.NH$$Lis|
|0000cc00| 74 54 69 74 6c 65 25 3d | 22 53 74 61 66 66 20 61 |tTitle%=|"Staff a|
|0000cc10| 70 70 6f 69 6e 74 6d 65 | 6e 74 73 22 0d 4e 52 10 |ppointme|nts".NR.|
|0000cc20| f2 73 63 72 65 65 6e 5f | 6c 69 73 74 0d 4e 5c 1d |.screen_|list.N\.|
|0000cc30| f2 63 6c 6f 73 65 5f 66 | 69 6c 65 28 64 62 61 73 |.close_f|ile(dbas|
|0000cc40| 65 68 61 6e 64 6c 65 25 | 29 0d 4e 66 07 f7 20 85 |ehandle%|).Nf.. .|
|0000cc50| 0d 4e 70 05 e1 0d 4e 7a | 05 3a 0d 4e 84 17 dd 20 |.Np...Nz|.:.N... |
|0000cc60| f2 6f 6e 65 5f 6c 69 73 | 74 28 53 74 61 66 66 24 |.one_lis|t(Staff$|
|0000cc70| 29 0d 4e 8e 19 ea 20 74 | 65 61 63 68 65 72 25 2c |).N... t|eacher%,|
|0000cc80| 73 6c 6f 74 25 2c 52 45 | 43 25 0d 4e 98 1f 74 65 |slot%,RE|C%.N..te|
|0000cc90| 61 63 68 65 72 25 3d a4 | 67 65 74 5f 73 74 61 66 |acher%=.|get_staf|
|0000cca0| 66 28 53 74 61 66 66 24 | 29 0d 4e a2 23 e7 20 53 |f(Staff$|).N.#. S|
|0000ccb0| 74 61 66 66 41 70 70 74 | 73 25 28 74 65 61 63 68 |taffAppt|s%(teach|
|0000ccc0| 65 72 25 2c 30 29 3d 30 | 20 8c 20 e1 0d 4e ac 30 |er%,0)=0| . ..N.0|
|0000ccd0| f2 6e 6f 74 69 66 79 28 | 22 50 72 69 6e 74 69 6e |.notify(|"Printin|
|0000cce0| 67 20 61 70 70 6f 69 6e | 74 6d 65 6e 74 73 20 66 |g appoin|tments f|
|0000ccf0| 6f 72 20 22 2b 53 74 61 | 66 66 24 29 0d 4e b6 2b |or "+Sta|ff$).N.+|
|0000cd00| f2 6c 69 73 74 5f 6c 69 | 6e 65 28 a4 65 78 70 61 |.list_li|ne(.expa|
|0000cd10| 6e 64 28 53 74 61 66 66 | 24 2c 22 53 74 61 66 66 |nd(Staff|$,"Staff|
|0000cd20| 30 22 2c 4c 25 29 29 0d | 4e c0 43 f2 6c 69 73 74 |0",L%)).|N.C.list|
|0000cd30| 5f 6c 69 6e 65 28 22 41 | 70 70 6f 69 6e 74 6d 65 |_line("A|ppointme|
|0000cd40| 6e 74 73 20 66 6f 72 20 | 70 61 72 65 6e 74 73 27 |nts for |parents'|
|0000cd50| 20 65 76 65 6e 69 6e 67 | 20 6f 6e 20 22 2b 24 45 | evening| on "+$E|
|0000cd60| 76 65 6e 74 44 61 74 65 | 25 29 0d 4e ca 12 f2 6c |ventDate|%).N...l|
|0000cd70| 69 73 74 5f 6c 69 6e 65 | 28 55 24 29 0d 4e d4 27 |ist_line|(U$).N.'|
|0000cd80| e3 20 73 6c 6f 74 25 3d | 65 76 65 6e 69 6e 67 73 |. slot%=|evenings|
|0000cd90| 74 61 72 74 25 20 b8 20 | 65 76 65 6e 69 6e 67 65 |tart% . |eveninge|
|0000cda0| 6e 64 25 0d 4e de 26 20 | 20 52 45 43 25 3d 53 74 |nd%.N.& | REC%=St|
|0000cdb0| 61 66 66 41 70 70 74 73 | 25 28 74 65 61 63 68 65 |affAppts|%(teache|
|0000cdc0| 72 25 2c 73 6c 6f 74 25 | 29 0d 4e e8 11 20 20 e7 |r%,slot%|).N..  .|
|0000cdd0| 20 52 45 43 25 3e 3d 30 | 20 8c 0d 4e f2 24 20 20 | REC%>=0| ..N.$  |
|0000cde0| 20 20 74 69 6d 65 24 3d | a4 73 74 72 69 6e 67 28 |  time$=|.string(|
|0000cdf0| 73 6c 6f 74 25 2c 22 54 | 69 6d 65 73 22 29 0d 4e |slot%,"T|imes").N|
|0000ce00| fc 23 20 20 20 20 cf 23 | 64 62 61 73 65 68 61 6e |.#    .#|dbasehan|
|0000ce10| 64 6c 65 25 3d 52 45 43 | 25 2a 4c 65 6e 67 74 68 |dle%=REC|%*Length|
|0000ce20| 25 0d 4f 06 1c 20 20 20 | 20 6e 61 6d 65 24 3d be |%.O..   | name$=.|
|0000ce30| 23 64 62 61 73 65 68 61 | 6e 64 6c 65 25 0d 4f 10 |#dbaseha|ndle%.O.|
|0000ce40| 27 20 20 20 20 f2 6c 69 | 73 74 5f 6c 69 6e 65 28 |'    .li|st_line(|
|0000ce50| 74 69 6d 65 24 2b 22 20 | 20 20 20 20 22 2b 6e 61 |time$+" |    "+na|
|0000ce60| 6d 65 24 29 0d 4f 1a 07 | 20 20 cd 0d 4f 24 0b ed |me$).O..|  ..O$..|
|0000ce70| 20 73 6c 6f 74 25 0d 4f | 2e 12 f2 6c 69 73 74 5f | slot%.O|...list_|
|0000ce80| 6c 69 6e 65 28 55 24 29 | 0d 4f 38 3d f2 6c 69 73 |line(U$)|.O8=.lis|
|0000ce90| 74 5f 6c 69 6e 65 28 22 | 4e 75 6d 62 65 72 20 74 |t_line("|Number t|
|0000cea0| 6f 20 73 65 65 20 3d 20 | 22 2b c3 28 53 74 61 66 |o see = |"+.(Staf|
|0000ceb0| 66 41 70 70 74 73 25 28 | 74 65 61 63 68 65 72 25 |fAppts%(|teacher%|
|0000cec0| 2c 30 29 29 29 0d 4f 42 | 12 f2 6c 69 73 74 5f 6c |,0))).OB|..list_l|
|0000ced0| 69 6e 65 28 55 24 29 0d | 4f 4c 15 f2 6c 69 73 74 |ine(U$).|OL..list|
|0000cee0| 5f 6c 69 6e 65 28 bd 28 | 31 32 29 29 0d 4f 56 12 |_line(.(|12)).OV.|
|0000cef0| f2 6c 69 73 74 5f 6c 69 | 6e 65 28 22 22 29 0d 4f |.list_li|ne("").O|
|0000cf00| 60 1b f2 63 6c 6f 73 65 | 5f 77 69 6e 64 6f 77 28 |`..close|_window(|
|0000cf10| 6e 6f 74 69 66 79 57 25 | 29 0d 4f 6a 05 cd 0d 4f |notifyW%|).Oj...O|
|0000cf20| 74 05 e1 0d 4f 7e 05 3a | 0d 4f 88 11 dd 20 f2 61 |t...O~.:|.O... .a|
|0000cf30| 62 6f 72 74 5f 6c 69 73 | 74 0d 4f 92 18 c8 99 20 |bort_lis|t.O.... |
|0000cf40| 22 48 6f 75 72 67 6c 61 | 73 73 5f 53 6d 61 73 68 |"Hourgla|ss_Smash|
|0000cf50| 22 0d 4f 9c 0f 70 72 69 | 6e 74 69 6e 67 25 3d a3 |".O..pri|nting%=.|
|0000cf60| 0d 4f a6 10 f2 73 63 72 | 65 65 6e 5f 6c 69 73 74 |.O...scr|een_list|
|0000cf70| 0d 4f b0 24 24 4c 69 73 | 74 54 69 74 6c 65 25 3d |.O.$$Lis|tTitle%=|
|0000cf80| 22 53 74 61 66 66 20 61 | 70 70 6f 69 6e 74 6d 65 |"Staff a|ppointme|
|0000cf90| 6e 74 73 22 0d 4f ba 1d | f2 63 6c 6f 73 65 5f 66 |nts".O..|.close_f|
|0000cfa0| 69 6c 65 28 64 62 61 73 | 65 68 61 6e 64 6c 65 25 |ile(dbas|ehandle%|
|0000cfb0| 29 0d 4f c4 0c e7 20 9f | 3d 31 37 20 8c 0d 4f ce |).O... .|=17 ..O.|
|0000cfc0| 45 20 20 f2 77 69 6d 70 | 5f 65 72 72 6f 72 28 b9 |E  .wimp|_error(.|
|0000cfd0| 2c 6d 6f 61 6e 5f 65 72 | 72 25 2c 30 2c 22 45 73 |,moan_er|r%,0,"Es|
|0000cfe0| 63 61 70 65 20 70 72 65 | 73 73 65 64 2e 20 4c 69 |cape pre|ssed. Li|
|0000cff0| 73 74 69 6e 67 20 61 62 | 61 6e 64 6f 6e 65 64 2e |sting ab|andoned.|
|0000d000| 22 29 0d 4f d8 1d 20 20 | cc 20 f2 77 69 6d 70 5f |").O..  |. .wimp_|
|0000d010| 65 72 72 6f 72 28 b9 2c | 9f 2c 9e 2c f6 24 29 0d |error(.,|.,.,.$).|
|0000d020| 4f e2 05 cd 0d 4f ec 05 | e1 0d 4f f6 05 3a 0d 50 |O....O..|..O..:.P|
|0000d030| 00 15 dd 20 f2 70 72 69 | 6e 74 5f 70 72 6f 62 6c |... .pri|nt_probl|
|0000d040| 65 6d 73 0d 50 0a 29 ea | 20 6b 65 79 25 2c 50 25 |ems.P.).| key%,P%|
|0000d050| 2c 53 24 2c 73 74 75 64 | 65 6e 74 73 25 2c 65 78 |,S$,stud|ents%,ex|
|0000d060| 61 6d 69 6e 65 64 25 2c | 6e 75 6d 25 0d 50 14 1f |amined%,|num%.P..|
|0000d070| 73 74 75 64 65 6e 74 73 | 25 3d a4 63 6f 75 6e 74 |students|%=.count|
|0000d080| 5f 72 65 63 73 28 6b 65 | 79 25 29 0d 50 1e 0f f2 |_recs(ke|y%).P...|
|0000d090| 73 74 61 72 74 5f 6c 69 | 73 74 0d 50 28 36 f2 6c |start_li|st.P(6.l|
|0000d0a0| 69 73 74 5f 6c 69 6e 65 | 28 22 41 70 70 6f 69 6e |ist_line|("Appoin|
|0000d0b0| 74 6d 65 6e 74 73 20 63 | 6f 75 6c 64 20 6e 6f 74 |tments c|ould not|
|0000d0c0| 20 62 65 20 6d 61 64 65 | 20 66 6f 72 3a 2d 22 29 | be made| for:-")|
|0000d0d0| 0d 50 32 12 f2 6c 69 73 | 74 5f 6c 69 6e 65 28 55 |.P2..lis|t_line(U|
|0000d0e0| 24 29 0d 50 3c 1c 61 70 | 70 74 68 61 6e 64 6c 65 |$).P<.ap|pthandle|
|0000d0f0| 25 3d 8e 28 61 70 70 74 | 66 69 6c 65 24 29 0d 50 |%=.(appt|file$).P|
|0000d100| 46 2a 64 62 61 73 65 68 | 61 6e 64 6c 65 25 3d 8e |F*dbaseh|andle%=.|
|0000d110| 28 24 64 61 74 61 62 61 | 73 65 25 2b 22 2e 44 61 |($databa|se%+".Da|
|0000d120| 74 61 62 61 73 65 22 29 | 0d 50 50 15 c8 99 20 22 |tabase")|.PP... "|
|0000d130| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 6e 22 0d 50 5a |Hourglas|s_On".PZ|
|0000d140| 1d 50 25 3d a4 6e 65 69 | 67 68 62 6f 75 72 28 6b |.P%=.nei|ghbour(k|
|0000d150| 65 79 25 2c 74 6f 70 2c | 31 29 0d 50 64 0e c8 95 |ey%,top,|1).Pd...|
|0000d160| 20 50 25 3c 3e 74 6f 70 | 0d 50 6e 1b 20 20 52 45 | P%<>top|.Pn.  RE|
|0000d170| 43 25 3d a4 72 65 63 5f | 6e 6f 28 6b 65 79 25 2c |C%=.rec_|no(key%,|
|0000d180| 50 25 29 0d 50 78 19 20 | 20 f2 72 65 61 64 5f 61 |P%).Px. | .read_a|
|0000d190| 70 70 74 73 28 52 45 43 | 25 2c 30 29 0d 50 82 12 |ppts(REC|%,0).P..|
|0000d1a0| 20 20 65 78 61 6d 69 6e | 65 64 25 2b 3d 31 0d 50 |  examin|ed%+=1.P|
|0000d1b0| 8c 1c 20 20 e7 20 24 53 | 74 61 74 75 73 25 3d 22 |..  . $S|tatus%="|
|0000d1c0| 50 72 6f 62 6c 65 6d 22 | 20 8c 0d 50 96 13 20 20 |Problem"| ..P..  |
|0000d1d0| 20 20 f2 72 65 61 64 28 | 52 45 43 25 29 0d 50 a0 |  .read(|REC%).P.|
|0000d1e0| 24 20 20 20 20 53 24 3d | 24 4e 61 6d 65 25 2b c4 |$    S$=|$Name%+.|
|0000d1f0| 33 33 2d a9 28 24 4e 61 | 6d 65 25 29 2c 22 20 22 |33-.($Na|me%)," "|
|0000d200| 29 0d 50 aa 12 20 20 20 | 20 e3 20 49 25 3d 31 20 |).P..   | . I%=1 |
|0000d210| b8 20 37 0d 50 b4 31 20 | 20 20 20 20 20 e7 20 24 |. 7.P.1 |     . $|
|0000d220| 53 74 61 66 66 25 28 49 | 25 29 3c 3e 22 22 20 8c |Staff%(I|%)<>"" .|
|0000d230| 20 53 24 2b 3d 24 53 74 | 61 66 66 25 28 49 25 29 | S$+=$St|aff%(I%)|
|0000d240| 2b 22 20 22 0d 50 be 0c | 20 20 20 20 ed 20 49 25 |+" ".P..|    . I%|
|0000d250| 0d 50 c8 0f 20 20 20 20 | 6e 75 6d 25 2b 3d 31 0d |.P..    |num%+=1.|
|0000d260| 50 d2 16 20 20 20 20 f2 | 6c 69 73 74 5f 6c 69 6e |P..    .|list_lin|
|0000d270| 65 28 53 24 29 0d 50 dc | 07 20 20 cd 0d 50 e6 1c |e(S$).P.|.  ..P..|
|0000d280| 50 25 3d a4 6e 65 69 67 | 68 62 6f 75 72 28 6b 65 |P%=.neig|hbour(ke|
|0000d290| 79 25 2c 50 25 2c 31 29 | 0d 50 f0 37 c8 99 20 22 |y%,P%,1)|.P.7.. "|
|0000d2a0| 48 6f 75 72 67 6c 61 73 | 73 5f 50 65 72 63 65 6e |Hourglas|s_Percen|
|0000d2b0| 74 61 67 65 22 2c 65 78 | 61 6d 69 6e 65 64 25 2a |tage",ex|amined%*|
|0000d2c0| 31 30 30 20 81 20 73 74 | 75 64 65 6e 74 73 25 0d |100 . st|udents%.|
|0000d2d0| 50 fa 05 ce 0d 51 04 16 | c8 99 20 22 48 6f 75 72 |P....Q..|.. "Hour|
|0000d2e0| 67 6c 61 73 73 5f 4f 66 | 66 22 0d 51 0e 1c f2 63 |glass_Of|f".Q...c|
|0000d2f0| 6c 6f 73 65 5f 66 69 6c | 65 28 61 70 70 74 68 61 |lose_fil|e(apptha|
|0000d300| 6e 64 6c 65 25 29 0d 51 | 18 1d f2 63 6c 6f 73 65 |ndle%).Q|...close|
|0000d310| 5f 66 69 6c 65 28 64 62 | 61 73 65 68 61 6e 64 6c |_file(db|asehandl|
|0000d320| 65 25 29 0d 51 22 12 f2 | 6c 69 73 74 5f 6c 69 6e |e%).Q"..|list_lin|
|0000d330| 65 28 22 22 29 0d 51 2c | 2c f2 6c 69 73 74 5f 6c |e("").Q,|,.list_l|
|0000d340| 69 6e 65 28 22 4e 6f 2e | 20 6f 66 20 70 72 6f 62 |ine("No.| of prob|
|0000d350| 6c 65 6d 73 20 3d 20 22 | 2b c3 28 6e 75 6d 25 29 |lems = "|+.(num%)|
|0000d360| 29 0d 51 36 30 24 53 61 | 76 65 4c 69 73 74 25 3d |).Q60$Sa|veList%=|
|0000d370| 24 64 61 74 61 62 61 73 | 65 25 2b 22 2e 50 72 69 |$databas|e%+".Pri|
|0000d380| 6e 74 4a 6f 62 73 2e 41 | 70 70 74 50 72 6f 62 73 |ntJobs.A|pptProbs|
|0000d390| 22 0d 51 40 1f 24 4c 69 | 73 74 54 69 74 6c 65 25 |".Q@.$Li|stTitle%|
|0000d3a0| 3d 22 50 72 6f 62 6c 65 | 6d 20 63 61 73 65 73 22 |="Proble|m cases"|
|0000d3b0| 0d 51 4a 10 f2 73 63 72 | 65 65 6e 5f 6c 69 73 74 |.QJ..scr|een_list|
|0000d3c0| 0d 51 54 05 e1 0d 51 5e | 06 20 3a 0d 51 68 47 20 |.QT...Q^|. :.QhG |
|0000d3d0| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|0000d3e0| 2d 2d 20 45 6e 64 20 6f | 66 20 53 63 72 65 65 6e |-- End o|f Screen|
|0000d3f0| 20 6f 75 74 70 75 74 20 | 72 6f 75 74 69 6e 65 73 | output |routines|
|0000d400| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|0000d410| 2d 2d 0d 51 72 06 20 3a | 0d 51 7c 47 20 f4 20 2d |--.Qr. :|.Q|G . -|
|0000d420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000d430| 2d 2d 20 50 72 69 6e 74 | 65 72 20 44 72 69 76 65 |-- Print|er Drive|
|0000d440| 72 20 72 6f 75 74 69 6e | 65 73 20 2d 2d 2d 2d 2d |r routin|es -----|
|0000d450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|0000d460| 51 86 06 20 3a 0d 51 90 | 2f 20 dd 20 f2 70 72 69 |Q.. :.Q.|/ . .pri|
|0000d470| 6e 74 5f 73 6c 69 70 73 | 28 66 69 6c 65 6e 61 6d |nt_slips|(filenam|
|0000d480| 65 24 2c 73 74 61 72 74 | 25 2c 65 6e 64 25 2c 6b |e$,start|%,end%,k|
|0000d490| 65 79 25 29 0d 51 9a 3f | 20 2a 20 52 4d 45 6e 73 |ey%).Q.?| * RMEns|
|0000d4a0| 75 72 65 20 50 44 72 69 | 76 65 72 20 30 20 45 52 |ure PDri|ver 0 ER|
|0000d4b0| 52 4f 52 20 32 35 34 20 | 4e 6f 20 70 72 69 6e 74 |ROR 254 |No print|
|0000d4c0| 65 72 20 64 72 69 76 65 | 72 20 69 6e 73 74 61 6c |er drive|r instal|
|0000d4d0| 6c 65 64 0d 51 a4 4e 20 | ea 20 77 69 64 74 68 25 |led.Q.N |. width%|
|0000d4e0| 2c 68 65 69 67 68 74 25 | 2c 6c 65 66 74 25 2c 62 |,height%|,left%,b|
|0000d4f0| 6f 74 74 6f 6d 25 2c 72 | 69 67 68 74 25 2c 74 6f |ottom%,r|ight%,to|
|0000d500| 70 25 2c 70 61 67 65 25 | 2c 63 6f 70 69 65 73 6c |p%,page%|,copiesl|
|0000d510| 65 66 74 25 2c 70 61 67 | 65 74 6f 70 72 69 6e 74 |eft%,pag|etoprint|
|0000d520| 25 0d 51 ae 2b 20 f2 6e | 6f 74 69 66 79 28 22 50 |%.Q.+ .n|otify("P|
|0000d530| 72 69 6e 74 69 6e 67 20 | 61 70 70 6f 69 6e 74 6d |rinting |appointm|
|0000d540| 65 6e 74 20 73 6c 69 70 | 73 20 22 29 0d 51 b8 1e |ent slip|s ").Q..|
|0000d550| 20 70 72 69 6e 74 68 61 | 6e 64 6c 65 25 3d ae 28 | printha|ndle%=.(|
|0000d560| 66 69 6c 65 6e 61 6d 65 | 24 29 0d 51 c2 34 20 c8 |filename|$).Q.4 .|
|0000d570| 99 20 22 50 44 72 69 76 | 65 72 5f 53 65 6c 65 63 |. "PDriv|er_Selec|
|0000d580| 74 4a 6f 62 22 2c 70 72 | 69 6e 74 68 61 6e 64 6c |tJob",pr|inthandl|
|0000d590| 65 25 2c 22 41 70 70 74 | 53 6c 69 70 73 22 0d 51 |e%,"Appt|Slips".Q|
|0000d5a0| cc 08 20 ea 20 85 0d 51 | d6 20 20 ee 20 85 20 ea |.. . ..Q|.  . . .|
|0000d5b0| 3a f7 20 85 3a f2 61 62 | 6f 72 74 5f 70 72 69 6e |:. .:.ab|ort_prin|
|0000d5c0| 74 69 6e 67 3a e1 0d 51 | e0 37 20 f2 67 65 74 5f |ting:..Q|.7 .get_|
|0000d5d0| 64 6f 63 75 6d 65 6e 74 | 5f 73 69 7a 65 28 62 6f |document|_size(bo|
|0000d5e0| 78 25 2c 6c 65 66 74 25 | 2c 62 6f 74 74 6f 6d 25 |x%,left%|,bottom%|
|0000d5f0| 2c 72 69 67 68 74 25 2c | 74 6f 70 25 29 0d 51 ea |,right%,|top%).Q.|
|0000d600| 0f 20 f2 66 69 74 5f 74 | 68 72 65 65 0d 51 f4 27 |. .fit_t|hree.Q.'|
|0000d610| 20 c8 99 20 22 43 6f 6c | 6f 75 72 54 72 61 6e 73 | .. "Col|ourTrans|
|0000d620| 5f 53 65 74 47 43 4f 4c | 22 2c 30 2c 30 2c 30 2c |_SetGCOL|",0,0,0,|
|0000d630| 30 2c 30 0d 51 fe 0e 20 | 50 25 3d 73 74 61 72 74 |0,0.Q.. |P%=start|
|0000d640| 25 0d 52 08 16 20 c8 99 | 20 22 48 6f 75 72 67 6c |%.R.. ..| "Hourgl|
|0000d650| 61 73 73 5f 4f 6e 22 0d | 52 12 06 20 f5 0d 52 1c |ass_On".|R.. ..R.|
|0000d660| 1d 20 20 20 72 65 63 25 | 28 29 3d 2d 32 3a 72 25 |.   rec%|()=-2:r%|
|0000d670| 3d 30 3a 74 6f 64 6f 25 | 3d a3 0d 52 26 0e 20 20 |=0:todo%|=..R&.  |
|0000d680| 20 f5 20 72 25 2b 3d 31 | 0d 52 30 24 20 20 20 20 | . r%+=1|.R0$    |
|0000d690| 20 72 65 63 25 28 72 25 | 29 3d a4 6e 65 78 74 5f | rec%(r%|)=.next_|
|0000d6a0| 72 65 63 28 6b 65 79 25 | 2c 50 25 29 0d 52 3a 1b |rec(key%|,P%).R:.|
|0000d6b0| 20 20 20 fd 20 72 25 3d | 33 20 84 20 72 65 63 25 |   . r%=|3 . rec%|
|0000d6c0| 28 72 25 29 3d 2d 31 0d | 52 44 5a 20 20 20 e7 20 |(r%)=-1.|RDZ   . |
|0000d6d0| 72 65 63 25 28 33 29 3e | 3d 30 20 8c 20 c8 99 20 |rec%(3)>|=0 . .. |
|0000d6e0| 22 50 44 72 69 76 65 72 | 5f 47 69 76 65 52 65 63 |"PDriver|_GiveRec|
|0000d6f0| 74 61 6e 67 6c 65 22 2c | 33 2c 62 6f 78 25 2c 6d |tangle",|3,box%,m|
|0000d700| 61 74 72 69 78 25 2c 6f | 72 69 67 69 6e 31 25 2c |atrix%,o|rigin1%,|
|0000d710| 26 46 46 46 46 46 46 30 | 30 3a 74 6f 64 6f 25 3d |&FFFFFF0|0:todo%=|
|0000d720| b9 0d 52 4e 5a 20 20 20 | e7 20 72 65 63 25 28 32 |..RNZ   |. rec%(2|
|0000d730| 29 3e 3d 30 20 8c 20 c8 | 99 20 22 50 44 72 69 76 |)>=0 . .|. "PDriv|
|0000d740| 65 72 5f 47 69 76 65 52 | 65 63 74 61 6e 67 6c 65 |er_GiveR|ectangle|
|0000d750| 22 2c 32 2c 62 6f 78 25 | 2c 6d 61 74 72 69 78 25 |",2,box%|,matrix%|
|0000d760| 2c 6f 72 69 67 69 6e 32 | 25 2c 26 46 46 46 46 46 |,origin2|%,&FFFFF|
|0000d770| 46 30 30 3a 74 6f 64 6f | 25 3d b9 0d 52 58 5a 20 |F00:todo|%=..RXZ |
|0000d780| 20 20 e7 20 72 65 63 25 | 28 31 29 3e 3d 30 20 8c |  . rec%|(1)>=0 .|
|0000d790| 20 c8 99 20 22 50 44 72 | 69 76 65 72 5f 47 69 76 | .. "PDr|iver_Giv|
|0000d7a0| 65 52 65 63 74 61 6e 67 | 6c 65 22 2c 31 2c 62 6f |eRectang|le",1,bo|
|0000d7b0| 78 25 2c 6d 61 74 72 69 | 78 25 2c 6f 72 69 67 69 |x%,matri|x%,origi|
|0000d7c0| 6e 33 25 2c 26 46 46 46 | 46 46 46 30 30 3a 74 6f |n3%,&FFF|FFF00:to|
|0000d7d0| 64 6f 25 3d b9 0d 52 62 | 10 20 20 20 e7 20 74 6f |do%=..Rb|.   . to|
|0000d7e0| 64 6f 25 20 8c 0d 52 6c | 39 20 20 20 20 20 c8 99 |do% ..Rl|9     ..|
|0000d7f0| 20 22 50 44 72 69 76 65 | 72 5f 44 72 61 77 50 61 | "PDrive|r_DrawPa|
|0000d800| 67 65 22 2c 31 2c 62 6f | 78 32 25 2c 30 2c 30 20 |ge",1,bo|x2%,0,0 |
|0000d810| b8 20 6d 6f 72 65 25 2c | 2c 73 6c 69 70 25 0d 52 |. more%,|,slip%.R|
|0000d820| 76 11 20 20 20 20 20 c8 | 95 20 6d 6f 72 65 25 0d |v.     .|. more%.|
|0000d830| 52 80 22 20 20 20 20 20 | 20 20 f2 64 72 61 77 5f |R."     |  .draw_|
|0000d840| 73 6c 69 70 28 72 65 63 | 25 28 73 6c 69 70 25 29 |slip(rec|%(slip%)|
|0000d850| 29 0d 52 8a 3a 20 20 20 | 20 20 20 20 c8 99 20 22 |).R.:   |    .. "|
|0000d860| 50 44 72 69 76 65 72 5f | 47 65 74 52 65 63 74 61 |PDriver_|GetRecta|
|0000d870| 6e 67 6c 65 22 2c 2c 62 | 6f 78 32 25 20 b8 20 6d |ngle",,b|ox2% . m|
|0000d880| 6f 72 65 25 2c 2c 73 6c | 69 70 25 0d 52 94 0a 20 |ore%,,sl|ip%.R.. |
|0000d890| 20 20 20 20 ce 0d 52 9e | 08 20 20 20 cd 0d 52 a8 |    ..R.|.   ..R.|
|0000d8a0| 1c 20 fd 20 72 65 63 25 | 28 31 29 3c 30 3a f4 20 |. . rec%|(1)<0:. |
|0000d8b0| 4e 4f 54 20 74 6f 64 6f | 25 0d 52 b2 17 20 c8 99 |NOT todo|%.R.. ..|
|0000d8c0| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 66 66 22 | "Hourgl|ass_Off"|
|0000d8d0| 0d 52 bc 25 20 c8 99 20 | 22 50 44 72 69 76 65 72 |.R.% .. |"PDriver|
|0000d8e0| 5f 45 6e 64 4a 6f 62 22 | 2c 70 72 69 6e 74 68 61 |_EndJob"|,printha|
|0000d8f0| 6e 64 6c 65 25 0d 52 c6 | 1e 20 f2 63 6c 6f 73 65 |ndle%.R.|. .close|
|0000d900| 5f 66 69 6c 65 28 70 72 | 69 6e 74 68 61 6e 64 6c |_file(pr|inthandl|
|0000d910| 65 25 29 0d 52 d0 1c 20 | f2 63 6c 6f 73 65 5f 77 |e%).R.. |.close_w|
|0000d920| 69 6e 64 6f 77 28 6e 6f | 74 69 66 79 57 25 29 0d |indow(no|tifyW%).|
|0000d930| 52 da 18 20 f2 64 69 73 | 70 6c 61 79 28 6b 65 79 |R.. .dis|play(key|
|0000d940| 25 2c 61 64 64 72 29 0d | 52 e4 08 20 f7 20 85 0d |%,addr).|R.. . ..|
|0000d950| 52 ee 06 20 e1 0d 52 f8 | 06 20 3a 0d 53 02 1b 20 |R.. ..R.|. :.S.. |
|0000d960| dd 20 a4 6e 65 78 74 5f | 72 65 63 28 6b 65 79 25 |. .next_|rec(key%|
|0000d970| 2c f8 20 50 25 29 0d 53 | 0c 11 20 ea 20 52 45 43 |,. P%).S|.. . REC|
|0000d980| 25 2c 66 6c 61 67 25 0d | 53 16 1d 20 61 70 70 74 |%,flag%.|S.. appt|
|0000d990| 68 61 6e 64 6c 65 25 3d | 8e 28 61 70 70 74 66 69 |handle%=|.(apptfi|
|0000d9a0| 6c 65 24 29 0d 53 20 1a | 20 c8 95 20 50 25 3c 3e |le$).S .| .. P%<>|
|0000d9b0| 65 6e 64 25 20 80 20 66 | 6c 61 67 25 3d a3 0d 53 |end% . f|lag%=..S|
|0000d9c0| 2a 1c 20 20 20 52 45 43 | 25 3d a4 72 65 63 5f 6e |*.   REC|%=.rec_n|
|0000d9d0| 6f 28 6b 65 79 25 2c 50 | 25 29 0d 53 34 1a 20 20 |o(key%,P|%).S4.  |
|0000d9e0| 20 f2 72 65 61 64 5f 61 | 70 70 74 73 28 52 45 43 | .read_a|ppts(REC|
|0000d9f0| 25 2c 30 29 0d 53 3e 22 | 20 20 20 e7 20 24 53 74 |%,0).S>"|   . $St|
|0000da00| 61 74 75 73 25 3d 22 44 | 6f 6e 65 22 20 8c 20 66 |atus%="D|one" . f|
|0000da10| 6c 61 67 25 3d b9 0d 53 | 48 1f 20 20 20 50 25 3d |lag%=..S|H.   P%=|
|0000da20| a4 6e 65 69 67 68 62 6f | 75 72 28 6b 65 79 25 2c |.neighbo|ur(key%,|
|0000da30| 50 25 2c 31 29 0d 53 52 | 06 20 ce 0d 53 5c 1d 20 |P%,1).SR|. ..S\. |
|0000da40| f2 63 6c 6f 73 65 5f 66 | 69 6c 65 28 61 70 70 74 |.close_f|ile(appt|
|0000da50| 68 61 6e 64 6c 65 25 29 | 0d 53 66 1a 20 e7 20 66 |handle%)|.Sf. . f|
|0000da60| 6c 61 67 25 3d b9 20 8c | 3d 52 45 43 25 20 8b 3d |lag%=. .|=REC% .=|
|0000da70| 2d 31 0d 53 70 06 20 3a | 0d 53 7a 17 20 dd 20 f2 |-1.Sp. :|.Sz. . .|
|0000da80| 64 72 61 77 5f 73 6c 69 | 70 28 52 45 43 25 29 0d |draw_sli|p(REC%).|
|0000da90| 53 84 15 20 ea 20 53 24 | 2c 73 24 2c 54 24 2c 64 |S.. . S$|,s$,T$,d|
|0000daa0| 24 2c 44 24 0d 53 8e 19 | 20 f2 63 6f 6d 70 6c 65 |$,D$.S..| .comple|
|0000dab0| 74 65 5f 72 65 61 64 28 | 52 45 43 25 29 0d 53 98 |te_read(|REC%).S.|
|0000dac0| 28 20 68 65 69 67 68 74 | 25 3d 35 30 30 3a 77 69 |( height|%=500:wi|
|0000dad0| 64 74 68 25 3d 72 69 67 | 68 74 25 2d 6c 65 66 74 |dth%=rig|ht%-left|
|0000dae0| 25 2d 32 30 30 0d 53 a2 | 24 20 c8 93 20 6c 65 66 |%-200.S.|$ .. lef|
|0000daf0| 74 25 2b 31 30 30 2c 31 | 30 30 2c 77 69 64 74 68 |t%+100,1|00,width|
|0000db00| 25 2c 68 65 69 67 68 74 | 25 0d 53 ac 23 20 c8 93 |%,height|%.S.# ..|
|0000db10| 20 6c 65 66 74 25 2b 31 | 31 30 2c 31 31 30 2c 77 | left%+1|10,110,w|
|0000db20| 69 64 74 68 25 2d 32 30 | 2c 33 30 30 0d 53 b6 31 |idth%-20|,300.S.1|
|0000db30| 20 c8 93 20 6c 65 66 74 | 25 2d 35 30 2b 77 69 64 | .. left|%-50+wid|
|0000db40| 74 68 25 20 81 20 32 2c | 34 32 30 2c 31 30 30 2b |th% . 2,|420,100+|
|0000db50| 77 69 64 74 68 25 20 81 | 20 32 2c 36 30 0d 53 c0 |width% .| 2,60.S.|
|0000db60| 4a 20 f2 66 6f 6e 74 5f | 70 72 69 6e 74 28 22 4e |J .font_|print("N|
|0000db70| 45 4c 53 4f 4e 20 26 20 | 43 4f 4c 4e 45 20 43 4f |ELSON & |COLNE CO|
|0000db80| 4c 4c 45 47 45 22 2c 6c | 65 66 74 25 2b 31 33 30 |LLEGE",l|eft%+130|
|0000db90| 2c 35 35 30 2c 22 4e 65 | 77 68 61 6c 6c 2e 42 6f |,550,"Ne|whall.Bo|
|0000dba0| 6c 64 22 2c 31 34 29 0d | 53 ca 67 20 f2 66 6f 6e |ld",14).|S.g .fon|
|0000dbb0| 74 5f 70 72 69 6e 74 28 | 22 28 54 75 74 6f 72 3a |t_print(|"(Tutor:|
|0000dbc0| 20 22 2b a4 65 78 70 61 | 6e 64 28 24 54 75 74 6f | "+.expa|nd($Tuto|
|0000dbd0| 72 25 2c 22 53 74 61 66 | 66 30 22 2c 4c 25 29 2b |r%,"Staf|f0",L%)+|
|0000dbe0| 22 29 22 2c 6c 65 66 74 | 25 2b 77 69 64 74 68 25 |")",left|%+width%|
|0000dbf0| 2d 32 30 30 2c 35 35 30 | 2c 22 48 6f 6d 65 72 74 |-200,550|,"Homert|
|0000dc00| 6f 6e 2e 4d 65 64 69 75 | 6d 22 2c 31 30 29 0d 53 |on.Mediu|m",10).S|
|0000dc10| d4 71 20 f2 66 6f 6e 74 | 5f 70 72 69 6e 74 28 22 |.q .font|_print("|
|0000dc20| 54 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 61 70 |The foll|owing ap|
|0000dc30| 70 6f 69 6e 74 6d 65 6e | 74 73 20 68 61 76 65 20 |pointmen|ts have |
|0000dc40| 62 65 65 6e 20 6d 61 64 | 65 20 66 6f 72 20 22 2b |been mad|e for "+|
|0000dc50| 24 45 76 65 6e 74 44 61 | 74 65 25 2c 6c 65 66 74 |$EventDa|te%,left|
|0000dc60| 25 2b 31 33 30 2c 35 30 | 35 2c 22 50 65 6d 62 72 |%+130,50|5,"Pembr|
|0000dc70| 6f 6b 65 2e 4d 65 64 69 | 75 6d 22 2c 31 32 29 0d |oke.Medi|um",12).|
|0000dc80| 53 de 51 20 f2 66 6f 6e | 74 5f 70 72 69 6e 74 28 |S.Q .fon|t_print(|
|0000dc90| 22 74 6f 20 64 69 73 63 | 75 73 73 20 74 68 65 20 |"to disc|uss the |
|0000dca0| 70 72 6f 67 72 65 73 73 | 20 6f 66 22 2c 6c 65 66 |progress| of",lef|
|0000dcb0| 74 25 2b 31 33 30 2c 34 | 34 30 2c 22 50 65 6d 62 |t%+130,4|40,"Pemb|
|0000dcc0| 72 6f 6b 65 2e 4d 65 64 | 69 75 6d 22 2c 31 32 29 |roke.Med|ium",12)|
|0000dcd0| 0d 53 e8 42 20 f2 66 6f | 6e 74 5f 70 72 69 6e 74 |.S.B .fo|nt_print|
|0000dce0| 28 24 4e 61 6d 65 25 2c | 6c 65 66 74 25 2d 34 30 |($Name%,|left%-40|
|0000dcf0| 2b 77 69 64 74 68 25 20 | 81 20 32 2c 34 33 37 2c |+width% |. 2,437,|
|0000dd00| 22 4e 65 77 68 61 6c 6c | 2e 42 6f 6c 64 22 2c 31 |"Newhall|.Bold",1|
|0000dd10| 34 29 0d 53 f2 12 20 e3 | 20 61 70 70 74 25 3d 31 |4).S.. .| appt%=1|
|0000dd20| 20 b8 20 37 0d 53 fc 18 | 20 20 20 73 24 3d 24 53 | . 7.S..|   s$=$S|
|0000dd30| 74 61 66 66 25 28 61 70 | 70 74 25 29 0d 54 06 11 |taff%(ap|pt%).T..|
|0000dd40| 20 20 20 e7 20 73 24 3c | 3e 22 22 20 8c 0d 54 10 |   . s$<|>"" ..T.|
|0000dd50| 15 20 20 20 20 20 64 24 | 3d a4 64 65 70 74 28 73 |.     d$|=.dept(s|
|0000dd60| 24 29 0d 54 1a 10 20 20 | 20 20 20 c8 8e 20 64 24 |$).T..  |   .. d$|
|0000dd70| 20 ca 0d 54 24 20 20 20 | 20 20 20 20 20 c9 20 22 | ..T$   |     . "|
|0000dd80| 53 22 3a 44 24 3d 24 4d | 61 74 68 53 63 69 4c 6f |S":D$=$M|athSciLo|
|0000dd90| 63 25 0d 54 2e 1c 20 20 | 20 20 20 20 20 c9 20 22 |c%.T..  |     . "|
|0000dda0| 48 22 3a 44 24 3d 24 48 | 75 6d 4c 6f 63 25 0d 54 |H":D$=$H|umLoc%.T|
|0000ddb0| 38 12 20 20 20 20 20 20 | 20 7f 3a 44 24 3d 22 22 |8.      | .:D$=""|
|0000ddc0| 0d 54 42 0a 20 20 20 20 | 20 cb 0d 54 4c 23 20 20 |.TB.    | ..TL#  |
|0000ddd0| 20 20 20 53 24 3d a4 65 | 78 70 61 6e 64 28 73 24 |   S$=.e|xpand(s$|
|0000dde0| 2c 22 53 74 61 66 66 30 | 22 2c 4c 25 29 0d 54 56 |,"Staff0|",L%).TV|
|0000ddf0| 19 20 20 20 20 20 54 24 | 3d 24 54 69 6d 65 25 28 |.     T$|=$Time%(|
|0000de00| 61 70 70 74 25 29 0d 54 | 60 48 20 20 20 20 20 f2 |appt%).T|`H     .|
|0000de10| 66 6f 6e 74 5f 70 72 69 | 6e 74 28 53 24 2c 6c 65 |font_pri|nt(S$,le|
|0000de20| 66 74 25 2b 33 30 30 2c | 34 30 2a 28 37 2d 61 70 |ft%+300,|40*(7-ap|
|0000de30| 70 74 25 29 2b 31 33 30 | 2c 22 50 65 6d 62 72 6f |pt%)+130|,"Pembro|
|0000de40| 6b 65 2e 4d 65 64 69 75 | 6d 22 2c 31 32 29 0d 54 |ke.Mediu|m",12).T|
|0000de50| 6a 5f 20 20 20 20 20 f2 | 66 6f 6e 74 5f 70 72 69 |j_     .|font_pri|
|0000de60| 6e 74 28 22 61 74 20 20 | 22 2b 54 24 2b 22 20 20 |nt("at  |"+T$+"  |
|0000de70| 69 6e 20 74 68 65 20 20 | 22 2b 44 24 2c 6c 65 66 |in the  |"+D$,lef|
|0000de80| 74 25 2b 35 35 30 2c 34 | 30 2a 28 37 2d 61 70 70 |t%+550,4|0*(7-app|
|0000de90| 74 25 29 2b 31 33 30 2c | 22 50 65 6d 62 72 6f 6b |t%)+130,|"Pembrok|
|0000dea0| 65 2e 4d 65 64 69 75 6d | 22 2c 31 32 29 0d 54 74 |e.Medium|",12).Tt|
|0000deb0| 08 20 20 20 cd 0d 54 7e | 0c 20 ed 20 61 70 70 74 |.   ..T~|. . appt|
|0000dec0| 25 0d 54 88 06 20 e1 0d | 54 92 06 20 3a 0d 54 9c |%.T.. ..|T.. :.T.|
|0000ded0| 16 20 dd 20 f2 61 62 6f | 72 74 5f 70 72 69 6e 74 |. . .abo|rt_print|
|0000dee0| 69 6e 67 0d 54 a6 27 20 | c8 99 20 22 50 44 72 69 |ing.T.' |.. "PDri|
|0000def0| 76 65 72 5f 41 62 6f 72 | 74 4a 6f 62 22 2c 70 72 |ver_Abor|tJob",pr|
|0000df00| 69 6e 74 68 61 6e 64 6c | 65 25 0d 54 b0 1e 20 f2 |inthandl|e%.T.. .|
|0000df10| 63 6c 6f 73 65 5f 66 69 | 6c 65 28 70 72 69 6e 74 |close_fi|le(print|
|0000df20| 68 61 6e 64 6c 65 25 29 | 0d 54 ba 1c 20 f2 63 6c |handle%)|.T.. .cl|
|0000df30| 6f 73 65 5f 77 69 6e 64 | 6f 77 28 6e 6f 74 69 66 |ose_wind|ow(notif|
|0000df40| 79 57 25 29 0d 54 c4 17 | 20 c8 99 20 22 48 6f 75 |yW%).T..| .. "Hou|
|0000df50| 72 67 6c 61 73 73 5f 4f | 66 66 22 0d 54 ce 0d 20 |rglass_O|ff".T.. |
|0000df60| e7 20 9f 3d 31 37 20 8c | 0d 54 d8 41 20 20 20 f2 |. .=17 .|.T.A   .|
|0000df70| 77 69 6d 70 5f 65 72 72 | 6f 72 28 b9 2c 32 35 34 |wimp_err|or(.,254|
|0000df80| 2c 30 2c 22 45 73 63 61 | 70 65 20 70 72 65 73 73 |,0,"Esca|pe press|
|0000df90| 65 64 2e 20 50 72 69 6e | 74 69 6e 67 20 61 62 61 |ed. Prin|ting aba|
|0000dfa0| 6e 64 6f 6e 65 64 2e 22 | 29 0d 54 e2 1e 20 20 20 |ndoned."|).T..   |
|0000dfb0| cc 20 f2 77 69 6d 70 5f | 65 72 72 6f 72 28 b9 2c |. .wimp_|error(.,|
|0000dfc0| 9f 2c 9e 2c f6 24 29 0d | 54 ec 06 20 cd 0d 54 f6 |.,.,.$).|T.. ..T.|
|0000dfd0| 06 20 e1 0d 55 00 06 20 | 3a 0d 55 0a 33 20 dd 20 |. ..U.. |:.U.3 . |
|0000dfe0| f2 67 65 74 5f 64 6f 63 | 75 6d 65 6e 74 5f 73 69 |.get_doc|ument_si|
|0000dff0| 7a 65 28 62 6f 78 25 2c | f8 20 6c 25 2c f8 20 62 |ze(box%,|. l%,. b|
|0000e000| 25 2c f8 20 72 25 2c f8 | 20 74 25 29 0d 55 14 2e |%,. r%,.| t%).U..|
|0000e010| 20 c8 99 20 22 50 44 72 | 69 76 65 72 5f 50 61 67 | .. "PDr|iver_Pag|
|0000e020| 65 53 69 7a 65 22 20 b8 | 2c 78 25 2c 79 25 2c 6c |eSize" .|,x%,y%,l|
|0000e030| 25 2c 62 25 2c 72 25 2c | 74 25 0d 55 1e 1c 20 6c |%,b%,r%,|t%.U.. l|
|0000e040| 25 3d 6c 25 20 81 20 34 | 30 30 3a 62 25 3d 62 25 |%=l% . 4|00:b%=b%|
|0000e050| 20 81 20 34 30 30 0d 55 | 28 1c 20 72 25 3d 72 25 | . 400.U|(. r%=r%|
|0000e060| 20 81 20 34 30 30 3a 74 | 25 3d 74 25 20 81 20 34 | . 400:t|%=t% . 4|
|0000e070| 30 30 0d 55 32 2d 20 62 | 6f 78 25 21 30 3d 6c 25 |00.U2- b|ox%!0=l%|
|0000e080| 3a 62 6f 78 25 21 34 3d | 62 25 3a 62 6f 78 25 21 |:box%!4=|b%:box%!|
|0000e090| 38 3d 72 25 3a 62 6f 78 | 25 21 31 32 3d 74 25 0d |8=r%:box|%!12=t%.|
|0000e0a0| 55 3c 1c 20 6c 25 2b 3d | 34 3a 62 25 2b 3d 34 3a |U<. l%+=|4:b%+=4:|
|0000e0b0| 72 25 2d 3d 34 3a 74 25 | 2d 3d 36 0d 55 46 06 20 |r%-=4:t%|-=6.UF. |
|0000e0c0| e1 0d 55 50 06 20 3a 0d | 55 5a 11 20 dd 20 f2 66 |..UP. :.|UZ. . .f|
|0000e0d0| 69 74 5f 74 68 72 65 65 | 0d 55 64 19 20 68 65 69 |it_three|.Ud. hei|
|0000e0e0| 67 68 74 25 3d 74 6f 70 | 25 2d 62 6f 74 74 6f 6d |ght%=top|%-bottom|
|0000e0f0| 25 0d 55 6e 31 20 21 6f | 72 69 67 69 6e 31 25 3d |%.Un1 !o|rigin1%=|
|0000e100| 6c 65 66 74 25 2a 34 30 | 30 3a 6f 72 69 67 69 6e |left%*40|0:origin|
|0000e110| 31 25 21 34 3d 28 62 6f | 74 74 6f 6d 25 29 2a 34 |1%!4=(bo|ttom%)*4|
|0000e120| 30 30 0d 55 78 3d 20 21 | 6f 72 69 67 69 6e 32 25 |00.Ux= !|origin2%|
|0000e130| 3d 6c 65 66 74 25 2a 34 | 30 30 3a 6f 72 69 67 69 |=left%*4|00:origi|
|0000e140| 6e 32 25 21 34 3d 28 62 | 6f 74 74 6f 6d 25 2b 68 |n2%!4=(b|ottom%+h|
|0000e150| 65 69 67 68 74 25 20 81 | 20 33 29 2a 34 30 30 0d |eight% .| 3)*400.|
|0000e160| 55 82 3f 20 21 6f 72 69 | 67 69 6e 33 25 3d 6c 65 |U.? !ori|gin3%=le|
|0000e170| 66 74 25 2a 34 30 30 3a | 6f 72 69 67 69 6e 33 25 |ft%*400:|origin3%|
|0000e180| 21 34 3d 28 62 6f 74 74 | 6f 6d 25 2b 68 65 69 67 |!4=(bott|om%+heig|
|0000e190| 68 74 25 2a 32 20 81 20 | 33 29 2a 34 30 30 0d 55 |ht%*2 . |3)*400.U|
|0000e1a0| 8c 14 20 6d 61 74 72 69 | 78 25 21 30 3d 31 3c 3c |.. matri|x%!0=1<<|
|0000e1b0| 31 36 0d 55 96 10 20 6d | 61 74 72 69 78 25 21 34 |16.U.. m|atrix%!4|
|0000e1c0| 3d 30 0d 55 a0 10 20 6d | 61 74 72 69 78 25 21 38 |=0.U.. m|atrix%!8|
|0000e1d0| 3d 30 0d 55 aa 15 20 6d | 61 74 72 69 78 25 21 31 |=0.U.. m|atrix%!1|
|0000e1e0| 32 3d 31 3c 3c 31 36 0d | 55 b4 06 20 e1 0d 55 be |2=1<<16.|U.. ..U.|
|0000e1f0| 06 20 3a 0d 55 c8 2c 20 | dd 20 f2 66 6f 6e 74 5f |. :.U., |. .font_|
|0000e200| 70 72 69 6e 74 28 53 24 | 2c 78 25 2c 79 25 2c 66 |print(S$|,x%,y%,f|
|0000e210| 6f 6e 74 6e 61 6d 65 24 | 2c 73 69 7a 65 25 29 0d |ontname$|,size%).|
|0000e220| 55 d2 3c 20 c8 99 20 22 | 46 6f 6e 74 5f 46 69 6e |U.< .. "|Font_Fin|
|0000e230| 64 46 6f 6e 74 22 2c 2c | 66 6f 6e 74 6e 61 6d 65 |dFont",,|fontname|
|0000e240| 24 2c 73 69 7a 65 25 2a | 31 36 2c 73 69 7a 65 25 |$,size%*|16,size%|
|0000e250| 2a 31 36 20 b8 20 66 6f | 6e 74 25 0d 55 dc 1c 20 |*16 . fo|nt%.U.. |
|0000e260| c8 99 20 22 46 6f 6e 74 | 5f 53 65 74 46 6f 6e 74 |.. "Font|_SetFont|
|0000e270| 22 2c 66 6f 6e 74 25 0d | 55 e6 2f 20 c8 99 20 22 |",font%.|U./ .. "|
|0000e280| 43 6f 6c 6f 75 72 54 72 | 61 6e 73 5f 53 65 74 46 |ColourTr|ans_SetF|
|0000e290| 6f 6e 74 43 6f 6c 6f 75 | 72 73 22 2c 2c 2d 32 35 |ontColou|rs",,-25|
|0000e2a0| 36 2c 30 2c 31 34 0d 55 | f0 23 20 c8 99 20 22 46 |6,0,14.U|.# .. "F|
|0000e2b0| 6f 6e 74 5f 50 61 69 6e | 74 22 2c 2c 53 24 2c 31 |ont_Pain|t",,S$,1|
|0000e2c0| 3c 3c 34 2c 78 25 2c 79 | 25 0d 55 fa 1d 20 c8 99 |<<4,x%,y|%.U.. ..|
|0000e2d0| 20 22 46 6f 6e 74 5f 4c | 6f 73 65 46 6f 6e 74 22 | "Font_L|oseFont"|
|0000e2e0| 2c 66 6f 6e 74 25 0d 56 | 04 06 20 e1 0d 56 0e 05 |,font%.V|.. ..V..|
|0000e2f0| 3a 0d 56 18 49 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |:.V.I. -|--------|
|0000e300| 2d 2d 2d 2d 2d 2d 2d 20 | 45 6e 64 20 6f 66 20 50 |------- |End of P|
|0000e310| 72 69 6e 74 65 72 20 44 | 72 69 76 65 72 20 72 6f |rinter D|river ro|
|0000e320| 75 74 69 6e 65 73 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |utines -|--------|
|0000e330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 56 22 05 3b 0d |--------|--.V".;.|
|0000e340| 56 2c 49 f4 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |V,I. ---|--------|
|0000e350| 2d 2d 2d 2d 2d 2d 2d 20 | 41 70 70 6f 69 6e 74 6d |------- |Appointm|
|0000e360| 65 6e 74 73 20 72 6f 75 | 74 69 6e 65 73 20 2d 2d |ents rou|tines --|
|0000e370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000e380| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 56 36 05 3a 0d 56 40 |--------|.V6.:.V@|
|0000e390| 13 dd 20 f2 61 70 70 6f | 69 6e 74 6d 65 6e 74 73 |.. .appo|intments|
|0000e3a0| 0d 56 4a 86 e7 20 41 70 | 70 74 73 4d 61 64 65 25 |.VJ.. Ap|ptsMade%|
|0000e3b0| 20 8c 20 e7 20 a4 63 6f | 6e 66 69 72 6d 28 22 54 | . . .co|nfirm("T|
|0000e3c0| 68 69 73 20 66 69 6c 65 | 20 61 6c 72 65 61 64 79 |his file| already|
|0000e3d0| 20 63 6f 6e 74 61 69 6e | 73 20 61 70 70 6f 69 6e | contain|s appoin|
|0000e3e0| 74 6d 65 6e 74 73 2e 20 | 43 6c 69 63 6b 20 4f 4b |tments. |Click OK|
|0000e3f0| 20 69 66 20 79 6f 75 20 | 77 69 73 68 20 74 6f 20 | if you |wish to |
|0000e400| 6f 76 65 72 2d 77 72 69 | 74 65 20 74 68 65 6d 20 |over-wri|te them |
|0000e410| 77 69 74 68 20 6e 65 77 | 20 6f 6e 65 73 2e 22 29 |with new| ones.")|
|0000e420| 3d a3 20 8c 20 e1 0d 56 | 54 16 e7 20 4d 61 6b 69 |=. . ..V|T.. Maki|
|0000e430| 6e 67 41 70 70 74 73 25 | 20 8c 20 e1 0d 56 5e 2e |ngAppts%| . ..V^.|
|0000e440| ea 20 50 25 2c 6b 65 79 | 25 2c 74 6f 74 61 6c 25 |. P%,key|%,total%|
|0000e450| 2c 73 75 62 74 6f 74 61 | 6c 25 2c 70 72 6f 62 6c |,subtota|l%,probl|
|0000e460| 65 6d 73 25 2c 62 61 73 | 65 25 0d 56 68 07 ea 20 |ems%,bas|e%.Vh.. |
|0000e470| 85 0d 56 72 1e ee 20 85 | 20 ea 3a f7 20 85 3a f2 |..Vr.. .| .:. .:.|
|0000e480| 61 62 61 6e 64 6f 6e 5f | 61 70 70 74 73 3a e1 0d |abandon_|appts:..|
|0000e490| 56 7c 17 4e 73 74 61 66 | 66 25 3d a4 69 6e 69 74 |V|.Nstaf|f%=.init|
|0000e4a0| 5f 61 70 70 74 73 0d 56 | 86 20 4e 73 74 75 64 65 |_appts.V|. Nstude|
|0000e4b0| 6e 74 73 25 3d a4 63 6f | 75 6e 74 5f 72 65 63 73 |nts%=.co|unt_recs|
|0000e4c0| 28 6b 65 79 25 29 0d 56 | 90 15 c8 99 20 22 48 6f |(key%).V|.... "Ho|
|0000e4d0| 75 72 67 6c 61 73 73 5f | 4f 6e 22 0d 56 9a 12 4d |urglass_|On".V..M|
|0000e4e0| 61 6b 69 6e 67 41 70 70 | 74 73 25 3d b9 0d 56 a4 |akingApp|ts%=..V.|
|0000e4f0| 1c 61 70 70 74 68 61 6e | 64 6c 65 25 3d ad 28 61 |.appthan|dle%=.(a|
|0000e500| 70 70 74 66 69 6c 65 24 | 29 0d 56 ae 1a 62 61 73 |pptfile$|).V..bas|
|0000e510| 65 25 3d 21 70 72 69 6f | 72 69 74 79 61 6e 63 68 |e%=!prio|rityanch|
|0000e520| 6f 72 25 0d 56 b8 19 f2 | 73 65 74 5f 70 72 69 6f |or%.V...|set_prio|
|0000e530| 72 69 74 69 65 73 28 6b | 65 79 25 29 0d 56 c2 0f |rities(k|ey%).V..|
|0000e540| f2 73 74 61 72 74 5f 6c | 69 73 74 0d 56 cc 36 f2 |.start_l|ist.V.6.|
|0000e550| 6c 69 73 74 5f 6c 69 6e | 65 28 22 41 70 70 6f 69 |list_lin|e("Appoi|
|0000e560| 6e 74 6d 65 6e 74 73 20 | 63 6f 75 6c 64 20 6e 6f |ntments |could no|
|0000e570| 74 20 62 65 20 6d 61 64 | 65 20 66 6f 72 3a 2d 22 |t be mad|e for:-"|
|0000e580| 29 0d 56 d6 12 f2 6c 69 | 73 74 5f 6c 69 6e 65 28 |).V...li|st_line(|
|0000e590| 55 24 29 0d 56 e0 19 e3 | 20 70 72 69 6f 72 69 74 |U$).V...| priorit|
|0000e5a0| 79 25 3d 37 20 b8 20 30 | 20 88 2d 31 0d 56 ea 37 |y%=7 . 0| .-1.V.7|
|0000e5b0| 20 20 73 75 62 74 6f 74 | 61 6c 25 3d 30 3a 24 53 |  subtot|al%=0:$S|
|0000e5c0| 75 62 74 6f 74 61 6c 25 | 3d 22 30 22 3a f2 72 65 |ubtotal%|="0":.re|
|0000e5d0| 64 72 61 77 5f 69 63 6f | 6e 28 73 74 61 74 57 25 |draw_ico|n(statW%|
|0000e5e0| 2c 32 29 0d 56 f4 14 20 | 20 c8 8e 20 70 72 69 6f |,2).V.. | .. prio|
|0000e5f0| 72 69 74 79 25 20 ca 0d | 56 fe 50 20 20 20 20 c9 |rity% ..|V.P    .|
|0000e600| 20 37 3a f2 72 65 70 6f | 72 74 28 70 72 69 6f 72 | 7:.repo|rt(prior|
|0000e610| 69 74 79 25 2c 22 54 69 | 6d 65 2d 72 65 73 74 72 |ity%,"Ti|me-restr|
|0000e620| 69 63 74 65 64 20 73 74 | 61 66 66 20 26 20 70 61 |icted st|aff & pa|
|0000e630| 72 65 6e 74 73 2e 20 4d | 69 78 65 64 20 73 75 62 |rents. M|ixed sub|
|0000e640| 6a 65 63 74 73 22 29 0d | 57 08 40 20 20 20 20 c9 |jects").|W.@    .|
|0000e650| 20 36 3a f2 72 65 70 6f | 72 74 28 70 72 69 6f 72 | 6:.repo|rt(prior|
|0000e660| 69 74 79 25 2c 22 54 69 | 6d 65 2d 72 65 73 74 72 |ity%,"Ti|me-restr|
|0000e670| 69 63 74 65 64 20 73 74 | 61 66 66 20 26 20 70 61 |icted st|aff & pa|
|0000e680| 72 65 6e 74 73 22 29 0d | 57 12 46 20 20 20 20 c9 |rents").|W.F    .|
|0000e690| 20 35 3a f2 72 65 70 6f | 72 74 28 70 72 69 6f 72 | 5:.repo|rt(prior|
|0000e6a0| 69 74 79 25 2c 22 54 69 | 6d 65 2d 72 65 73 74 72 |ity%,"Ti|me-restr|
|0000e6b0| 69 63 74 65 64 20 73 74 | 61 66 66 2e 20 4d 69 78 |icted st|aff. Mix|
|0000e6c0| 65 64 20 73 75 62 6a 65 | 63 74 73 22 29 0d 57 1c |ed subje|cts").W.|
|0000e6d0| 36 20 20 20 20 c9 20 34 | 3a f2 72 65 70 6f 72 74 |6    . 4|:.report|
|0000e6e0| 28 70 72 69 6f 72 69 74 | 79 25 2c 22 54 69 6d 65 |(priorit|y%,"Time|
|0000e6f0| 2d 72 65 73 74 72 69 63 | 74 65 64 20 73 74 61 66 |-restric|ted staf|
|0000e700| 66 22 29 0d 57 26 48 20 | 20 20 20 c9 20 33 3a f2 |f").W&H |   . 3:.|
|0000e710| 72 65 70 6f 72 74 28 70 | 72 69 6f 72 69 74 79 25 |report(p|riority%|
|0000e720| 2c 22 54 69 6d 65 2d 72 | 65 73 74 72 69 63 74 65 |,"Time-r|estricte|
|0000e730| 64 20 70 61 72 65 6e 74 | 73 2e 20 4d 69 78 65 64 |d parent|s. Mixed|
|0000e740| 20 73 75 62 6a 65 63 74 | 73 22 29 0d 57 30 38 20 | subject|s").W08 |
|0000e750| 20 20 20 c9 20 32 3a f2 | 72 65 70 6f 72 74 28 70 |   . 2:.|report(p|
|0000e760| 72 69 6f 72 69 74 79 25 | 2c 22 54 69 6d 65 2d 72 |riority%|,"Time-r|
|0000e770| 65 73 74 72 69 63 74 65 | 64 20 70 61 72 65 6e 74 |estricte|d parent|
|0000e780| 73 22 29 0d 57 3a 2f 20 | 20 20 20 c9 20 31 3a f2 |s").W:/ |   . 1:.|
|0000e790| 72 65 70 6f 72 74 28 70 | 72 69 6f 72 69 74 79 25 |report(p|riority%|
|0000e7a0| 2c 22 4d 69 78 65 64 20 | 73 75 62 6a 65 63 74 73 |,"Mixed |subjects|
|0000e7b0| 22 29 0d 57 44 30 20 20 | 20 20 c9 20 30 3a f2 72 |").WD0  |  . 0:.r|
|0000e7c0| 65 70 6f 72 74 28 70 72 | 69 6f 72 69 74 79 25 2c |eport(pr|iority%,|
|0000e7d0| 22 4e 6f 20 72 65 73 74 | 72 69 63 74 69 6f 6e 73 |"No rest|rictions|
|0000e7e0| 22 29 0d 57 4e 07 20 20 | cb 0d 57 58 16 20 20 e3 |").WN.  |..WX.  .|
|0000e7f0| 20 52 45 43 25 3d 30 20 | b8 20 52 41 25 2d 31 0d | REC%=0 |. RA%-1.|
|0000e800| 57 62 1a 20 20 20 20 c8 | 99 20 22 4f 53 5f 42 79 |Wb.    .|. "OS_By|
|0000e810| 74 65 22 2c 32 32 39 2c | 30 0d 57 6c 20 20 20 20 |te",229,|0.Wl    |
|0000e820| 20 e7 20 62 61 73 65 25 | 3f 52 45 43 25 3d 70 72 | . base%|?REC%=pr|
|0000e830| 69 6f 72 69 74 79 25 20 | 8c 0d 57 76 1d 20 20 20 |iority% |..Wv.   |
|0000e840| 20 20 20 f2 72 65 61 64 | 5f 61 70 70 74 73 28 52 |   .read|_appts(R|
|0000e850| 45 43 25 2c 30 29 0d 57 | 80 1d 20 20 20 20 20 20 |EC%,0).W|..      |
|0000e860| e7 20 24 53 74 61 74 75 | 73 25 3c 3e 22 4e 65 77 |. $Statu|s%<>"New|
|0000e870| 22 20 8c 0d 57 8a 27 20 | 20 20 20 20 20 20 20 73 |" ..W.' |       s|
|0000e880| 74 61 66 66 5f 74 6f 5f | 73 65 65 25 3d a4 63 6f |taff_to_|see%=.co|
|0000e890| 6e 76 65 72 74 5f 64 61 | 74 61 0d 57 94 25 20 20 |nvert_da|ta.W.%  |
|0000e8a0| 20 20 20 20 20 20 e7 20 | a4 6d 61 6b 65 5f 61 70 |      . |.make_ap|
|0000e8b0| 70 74 73 28 73 6c 61 63 | 6b 25 29 3d b9 20 8c 0d |pts(slac|k%)=. ..|
|0000e8c0| 57 9e 17 20 20 20 20 20 | 20 20 20 20 20 f2 66 69 |W..     |     .fi|
|0000e8d0| 6e 61 6c 69 73 65 0d 57 | a8 0f 20 20 20 20 20 20 |nalise.W|..      |
|0000e8e0| 20 20 20 20 cc 0d 57 b2 | 16 20 20 20 20 20 20 20 |    ..W.|.       |
|0000e8f0| 20 20 20 f2 70 72 6f 62 | 6c 65 6d 0d 57 bc 0d 20 |   .prob|lem.W.. |
|0000e900| 20 20 20 20 20 20 20 cd | 0d 57 c6 1f 20 20 20 20 |       .|.W..    |
|0000e910| 20 20 20 20 f2 77 72 69 | 74 65 5f 61 70 70 28 5a |    .wri|te_app(Z|
|0000e920| 25 2c 52 45 43 25 29 0d | 57 d0 0b 20 20 20 20 20 |%,REC%).|W..     |
|0000e930| 20 cd 0d 57 da 09 20 20 | 20 20 cd 0d 57 e4 30 20 | ..W..  |  ..W.0 |
|0000e940| 20 20 20 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |   .. "H|ourglass|
|0000e950| 5f 50 65 72 63 65 6e 74 | 61 67 65 22 2c 52 45 43 |_Percent|age",REC|
|0000e960| 25 2a 31 30 30 20 81 20 | 52 41 25 0d 57 ee 0d 20 |%*100 . |RA%.W.. |
|0000e970| 20 20 20 f2 70 6f 6c 6c | 0d 57 f8 0c 20 20 ed 20 |   .poll|.W..  . |
|0000e980| 52 45 43 25 0d 58 02 40 | 20 20 74 6f 74 61 6c 25 |REC%.X.@|  total%|
|0000e990| 2b 3d 73 75 62 74 6f 74 | 61 6c 25 3a 24 54 6f 74 |+=subtot|al%:$Tot|
|0000e9a0| 61 6c 25 3d c3 28 74 6f | 74 61 6c 25 29 3a f2 72 |al%=.(to|tal%):.r|
|0000e9b0| 65 64 72 61 77 5f 69 63 | 6f 6e 28 73 74 61 74 57 |edraw_ic|on(statW|
|0000e9c0| 25 2c 31 29 0d 58 0c 0f | ed 20 70 72 69 6f 72 69 |%,1).X..|. priori|
|0000e9d0| 74 79 25 0d 58 16 1c f2 | 63 6c 6f 73 65 5f 66 69 |ty%.X...|close_fi|
|0000e9e0| 6c 65 28 61 70 70 74 68 | 61 6e 64 6c 65 25 29 0d |le(appth|andle%).|
|0000e9f0| 58 20 1d 61 64 64 72 3d | a4 6d 6f 76 65 74 6f 28 |X .addr=|.moveto(|
|0000ea00| 6b 65 79 25 2c 74 6f 70 | 2c 7a 25 29 0d 58 2a 16 |key%,top|,z%).X*.|
|0000ea10| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 66 |.. "Hour|glass_Of|
|0000ea20| 66 22 0d 58 34 0e f2 65 | 6e 64 5f 61 70 70 74 73 |f".X4..e|nd_appts|
|0000ea30| 0d 58 3e 12 4d 61 6b 69 | 6e 67 41 70 70 74 73 25 |.X>.Maki|ngAppts%|
|0000ea40| 3d a3 0d 58 48 10 41 70 | 70 74 73 4d 61 64 65 25 |=..XH.Ap|ptsMade%|
|0000ea50| 3d b9 0d 58 52 16 f2 6c | 69 74 28 6d 65 6e 75 25 |=..XR..l|it(menu%|
|0000ea60| 28 31 29 2c 32 2c b9 29 | 0d 58 5c 16 f2 6c 69 74 |(1),2,.)|.X\..lit|
|0000ea70| 28 6d 65 6e 75 25 28 31 | 29 2c 33 2c b9 29 0d 58 |(menu%(1|),3,.).X|
|0000ea80| 66 16 f2 6c 69 74 28 6d | 65 6e 75 25 28 31 29 2c |f..lit(m|enu%(1),|
|0000ea90| 34 2c b9 29 0d 58 70 16 | f2 6c 69 74 28 6d 65 6e |4,.).Xp.|.lit(men|
|0000eaa0| 75 25 28 31 29 2c 35 2c | b9 29 0d 58 7a 1d f2 69 |u%(1),5,|.).Xz..i|
|0000eab0| 63 6f 6e 5f 62 69 74 28 | 32 32 2c 6d 61 69 6e 57 |con_bit(|22,mainW|
|0000eac0| 25 2c 35 31 2c b9 29 0d | 58 84 1d f2 69 63 6f 6e |%,51,.).|X...icon|
|0000ead0| 5f 62 69 74 28 32 32 2c | 6d 61 69 6e 57 25 2c 35 |_bit(22,|mainW%,5|
|0000eae0| 33 2c b9 29 0d 58 8e 12 | f2 6c 69 73 74 5f 6c 69 |3,.).X..|.list_li|
|0000eaf0| 6e 65 28 22 22 29 0d 58 | 98 31 f2 6c 69 73 74 5f |ne("").X|.1.list_|
|0000eb00| 6c 69 6e 65 28 22 4e 6f | 2e 20 6f 66 20 70 72 6f |line("No|. of pro|
|0000eb10| 62 6c 65 6d 73 20 3d 20 | 22 2b c3 28 70 72 6f 62 |blems = |"+.(prob|
|0000eb20| 6c 65 6d 73 25 29 29 0d | 58 a2 30 24 53 61 76 65 |lems%)).|X.0$Save|
|0000eb30| 4c 69 73 74 25 3d 24 64 | 61 74 61 62 61 73 65 25 |List%=$d|atabase%|
|0000eb40| 2b 22 2e 50 72 69 6e 74 | 4a 6f 62 73 2e 41 70 70 |+".Print|Jobs.App|
|0000eb50| 74 50 72 6f 62 73 22 0d | 58 ac 1f 24 4c 69 73 74 |tProbs".|X..$List|
|0000eb60| 54 69 74 6c 65 25 3d 22 | 50 72 6f 62 6c 65 6d 20 |Title%="|Problem |
|0000eb70| 63 61 73 65 73 22 0d 58 | b6 10 f2 73 63 72 65 65 |cases".X|...scree|
|0000eb80| 6e 5f 6c 69 73 74 0d 58 | c0 07 f7 20 85 0d 58 ca |n_list.X|... ..X.|
|0000eb90| 05 e1 0d 58 d4 05 3a 0d | 58 de 14 dd 20 f2 61 62 |...X..:.|X... .ab|
|0000eba0| 61 6e 64 6f 6e 5f 61 70 | 70 74 73 0d 58 e8 18 c8 |andon_ap|pts.X...|
|0000ebb0| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 53 6d 61 |. "Hourg|lass_Sma|
|0000ebc0| 73 68 22 0d 58 f2 1c f2 | 63 6c 6f 73 65 5f 66 69 |sh".X...|close_fi|
|0000ebd0| 6c 65 28 61 70 70 74 68 | 61 6e 64 6c 65 25 29 0d |le(appth|andle%).|
|0000ebe0| 58 fc 12 4d 61 6b 69 6e | 67 41 70 70 74 73 25 3d |X..Makin|gAppts%=|
|0000ebf0| a3 0d 59 06 0c e7 20 9f | 3d 31 37 20 8c 0d 59 10 |..Y... .|=17 ..Y.|
|0000ec00| 50 20 20 f2 77 69 6d 70 | 5f 65 72 72 6f 72 28 b9 |P  .wimp|_error(.|
|0000ec10| 2c 6d 6f 61 6e 5f 65 72 | 72 25 2c 30 2c 22 45 73 |,moan_er|r%,0,"Es|
|0000ec20| 63 61 70 65 20 70 72 65 | 73 73 65 64 2e 20 41 70 |cape pre|ssed. Ap|
|0000ec30| 70 6f 69 6e 74 6d 65 6e | 74 20 6d 61 6b 69 6e 67 |pointmen|t making|
|0000ec40| 20 61 62 61 6e 64 6f 6e | 65 64 2e 22 29 0d 59 1a | abandon|ed.").Y.|
|0000ec50| 1d 20 20 cc 20 f2 77 69 | 6d 70 5f 65 72 72 6f 72 |.  . .wi|mp_error|
|0000ec60| 28 b9 2c 9f 2c 9e 2c f6 | 24 29 0d 59 24 05 cd 0d |(.,.,.,.|$).Y$...|
|0000ec70| 59 2e 0e f2 65 6e 64 5f | 61 70 70 74 73 0d 59 38 |Y...end_|appts.Y8|
|0000ec80| 05 e1 0d 59 42 05 3a 0d | 59 4c 10 dd 20 f2 65 6e |...YB.:.|YL.. .en|
|0000ec90| 64 5f 61 70 70 74 73 0d | 59 56 1b f2 63 6c 6f 73 |d_appts.|YV..clos|
|0000eca0| 65 5f 77 69 6e 64 6f 77 | 28 6e 6f 74 69 66 79 57 |e_window|(notifyW|
|0000ecb0| 25 29 0d 59 60 1c 61 64 | 64 72 3d a4 6d 6f 76 65 |%).Y`.ad|dr=.move|
|0000ecc0| 74 6f 28 6b 65 79 25 2c | 74 6f 70 2c 31 29 0d 59 |to(key%,|top,1).Y|
|0000ecd0| 6a 05 e1 0d 59 74 05 3a | 0d 59 7e 11 dd 20 a4 69 |j...Yt.:|.Y~.. .i|
|0000ece0| 6e 69 74 5f 61 70 70 74 | 73 0d 59 88 39 ea 20 69 |nit_appt|s.Y.9. i|
|0000ecf0| 63 25 2c 74 65 61 63 68 | 65 72 25 2c 73 6c 6f 74 |c%,teach|er%,slot|
|0000ed00| 25 2c 66 69 72 73 74 25 | 2c 6c 61 73 74 25 2c 66 |%,first%|,last%,f|
|0000ed10| 69 72 73 74 24 2c 6c 61 | 73 74 24 2c 73 74 61 66 |irst$,la|st$,staf|
|0000ed20| 66 24 0d 59 92 2d 24 54 | 6f 74 61 6c 25 3d 22 30 |f$.Y.-$T|otal%="0|
|0000ed30| 22 3a 24 53 75 62 74 6f | 74 61 6c 25 3d 22 30 22 |":$Subto|tal%="0"|
|0000ed40| 3a 24 50 72 6f 62 6c 65 | 6d 73 25 3d 22 30 22 0d |:$Proble|ms%="0".|
|0000ed50| 59 9c 10 41 70 70 74 73 | 4d 61 64 65 25 3d a3 0d |Y..Appts|Made%=..|
|0000ed60| 59 a6 15 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |Y.... "H|ourglass|
|0000ed70| 5f 4f 6e 22 0d 59 b0 14 | 53 74 61 66 66 41 70 70 |_On".Y..|StaffApp|
|0000ed80| 74 73 25 28 29 3d 2d 31 | 0d 59 ba 05 f5 0d 59 c4 |ts%()=-1|.Y....Y.|
|0000ed90| 0f 74 65 61 63 68 65 72 | 25 2b 3d 31 0d 59 ce 26 |.teacher|%+=1.Y.&|
|0000eda0| 20 20 73 74 61 66 66 24 | 3d a4 73 74 72 69 6e 67 |  staff$|=.string|
|0000edb0| 28 74 65 61 63 68 65 72 | 25 2c 22 53 74 61 66 66 |(teacher|%,"Staff|
|0000edc0| 22 29 0d 59 d8 22 20 20 | 53 74 61 66 66 43 6f 64 |").Y."  |StaffCod|
|0000edd0| 65 73 24 28 74 65 61 63 | 68 65 72 25 29 3d 73 74 |es$(teac|her%)=st|
|0000ede0| 61 66 66 24 0d 59 e2 1f | 20 20 53 74 61 66 66 41 |aff$.Y..|  StaffA|
|0000edf0| 70 70 74 73 25 28 74 65 | 61 63 68 65 72 25 2c 30 |ppts%(te|acher%,0|
|0000ee00| 29 3d 30 0d 59 ec 1d 20 | 20 69 63 25 3d a4 72 65 |)=0.Y.. | ic%=.re|
|0000ee10| 73 74 72 69 63 74 65 64 | 28 73 74 61 66 66 24 29 |stricted|(staff$)|
|0000ee20| 0d 59 f6 0f 20 20 e7 20 | 69 63 25 3e 30 20 8c 0d |.Y..  . |ic%>0 ..|
|0000ee30| 5a 00 27 20 20 20 20 66 | 69 72 73 74 24 3d 24 a4 |Z.'    f|irst$=$.|
|0000ee40| 74 65 78 74 28 72 65 73 | 74 72 69 63 74 57 25 2c |text(res|trictW%,|
|0000ee50| 69 63 25 2b 31 29 0d 5a | 0a 4b 20 20 20 20 e7 20 |ic%+1).Z|.K    . |
|0000ee60| 66 69 72 73 74 24 3d 22 | 22 20 8c 20 66 69 72 73 |first$="|" . firs|
|0000ee70| 74 25 3d 65 76 65 6e 69 | 6e 67 73 74 61 72 74 25 |t%=eveni|ngstart%|
|0000ee80| 20 8b 20 66 69 72 73 74 | 25 3d a4 6e 75 6d 62 65 | . first|%=.numbe|
|0000ee90| 72 28 66 69 72 73 74 24 | 2c 22 54 69 6d 65 73 22 |r(first$|,"Times"|
|0000eea0| 29 0d 5a 14 26 20 20 20 | 20 6c 61 73 74 24 3d 24 |).Z.&   | last$=$|
|0000eeb0| a4 74 65 78 74 28 72 65 | 73 74 72 69 63 74 57 25 |.text(re|strictW%|
|0000eec0| 2c 69 63 25 2b 32 29 0d | 5a 1e 45 20 20 20 20 e7 |,ic%+2).|Z.E    .|
|0000eed0| 20 6c 61 73 74 24 3d 22 | 22 20 8c 20 6c 61 73 74 | last$="|" . last|
|0000eee0| 25 3d 65 76 65 6e 69 6e | 67 65 6e 64 25 20 8b 20 |%=evenin|gend% . |
|0000eef0| 6c 61 73 74 25 3d a4 6e | 75 6d 62 65 72 28 6c 61 |last%=.n|umber(la|
|0000ef00| 73 74 24 2c 22 54 69 6d | 65 73 22 29 0d 5a 28 30 |st$,"Tim|es").Z(0|
|0000ef10| 20 20 20 20 cc 20 66 69 | 72 73 74 25 3d 65 76 65 |    . fi|rst%=eve|
|0000ef20| 6e 69 6e 67 73 74 61 72 | 74 25 3a 6c 61 73 74 25 |ningstar|t%:last%|
|0000ef30| 3d 65 76 65 6e 69 6e 67 | 65 6e 64 25 0d 5a 32 07 |=evening|end%.Z2.|
|0000ef40| 20 20 cd 0d 5a 3c 1c 20 | 20 e3 20 73 6c 6f 74 25 |  ..Z<. | . slot%|
|0000ef50| 3d 66 69 72 73 74 25 20 | b8 20 6c 61 73 74 25 0d |=first% |. last%.|
|0000ef60| 5a 46 26 20 20 20 20 53 | 74 61 66 66 41 70 70 74 |ZF&    S|taffAppt|
|0000ef70| 73 25 28 74 65 61 63 68 | 65 72 25 2c 73 6c 6f 74 |s%(teach|er%,slot|
|0000ef80| 25 29 3d 2d 32 0d 5a 50 | 0d 20 20 ed 20 73 6c 6f |%)=-2.ZP|.  . slo|
|0000ef90| 74 25 0d 5a 5a 38 20 20 | c8 99 20 22 48 6f 75 72 |t%.ZZ8  |.. "Hour|
|0000efa0| 67 6c 61 73 73 5f 50 65 | 72 63 65 6e 74 61 67 65 |glass_Pe|rcentage|
|0000efb0| 22 2c 74 65 61 63 68 65 | 72 25 2a 31 30 30 20 81 |",teache|r%*100 .|
|0000efc0| 20 4d 61 78 53 74 61 66 | 66 25 0d 5a 64 24 fd 20 | MaxStaf|f%.Zd$. |
|0000efd0| 74 65 61 63 68 65 72 25 | 3d 4d 61 78 53 74 61 66 |teacher%|=MaxStaf|
|0000efe0| 66 25 20 84 20 73 74 61 | 66 66 24 3d 22 22 0d 5a |f% . sta|ff$="".Z|
|0000eff0| 6e 16 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |n... "Ho|urglass_|
|0000f000| 4f 66 66 22 0d 5a 78 89 | e7 20 74 65 61 63 68 65 |Off".Zx.|. teache|
|0000f010| 72 25 3d 4d 61 78 53 74 | 61 66 66 25 20 8c 20 85 |r%=MaxSt|aff% . .|
|0000f020| 20 32 35 35 2c 22 49 6e | 73 75 66 66 69 63 69 65 | 255,"In|sufficie|
|0000f030| 6e 74 20 61 72 72 61 79 | 20 73 74 6f 72 61 67 65 |nt array| storage|
|0000f040| 20 66 6f 72 20 73 74 61 | 66 66 20 64 61 74 61 2e | for sta|ff data.|
|0000f050| 20 45 64 69 74 20 27 43 | 6f 6e 66 69 67 27 20 66 | Edit 'C|onfig' f|
|0000f060| 69 6c 65 20 74 6f 20 69 | 6e 63 72 65 61 73 65 20 |ile to i|ncrease |
|0000f070| 6d 61 78 69 6d 75 6d 20 | 6e 75 6d 62 65 72 20 6f |maximum |number o|
|0000f080| 66 20 73 74 61 66 66 22 | 2b bd 28 30 29 0d 5a 82 |f staff"|+.(0).Z.|
|0000f090| 0f 3d 74 65 61 63 68 65 | 72 25 2d 31 0d 5a 8c 05 |.=teache|r%-1.Z..|
|0000f0a0| 3a 0d 5a 96 1b dd 20 f2 | 73 65 74 5f 70 72 69 6f |:.Z... .|set_prio|
|0000f0b0| 72 69 74 69 65 73 28 6b | 65 79 25 29 0d 5a a0 12 |rities(k|ey%).Z..|
|0000f0c0| ea 20 65 78 61 6d 69 6e | 65 64 25 2c 49 25 0d 5a |. examin|ed%,I%.Z|
|0000f0d0| aa 25 f2 6e 6f 74 69 66 | 79 28 22 44 65 74 65 72 |.%.notif|y("Deter|
|0000f0e0| 6d 69 6e 69 6e 67 20 70 | 72 69 6f 72 69 74 69 65 |mining p|rioritie|
|0000f0f0| 73 22 29 0d 5a b4 12 e3 | 20 49 25 3d 30 20 b8 20 |s").Z...| I%=0 . |
|0000f100| 52 41 25 2d 31 0d 5a be | 11 20 20 62 61 73 65 25 |RA%-1.Z.|.  base%|
|0000f110| 3f 49 25 3d 2d 31 0d 5a | c8 08 ed 20 49 25 0d 5a |?I%=-1.Z|... I%.Z|
|0000f120| d2 1d 50 25 3d a4 6e 65 | 69 67 68 62 6f 75 72 28 |..P%=.ne|ighbour(|
|0000f130| 6b 65 79 25 2c 74 6f 70 | 2c 31 29 0d 5a dc 0e c8 |key%,top|,1).Z...|
|0000f140| 95 20 50 25 3c 3e 74 6f | 70 0d 5a e6 18 20 20 c8 |. P%<>to|p.Z..  .|
|0000f150| 99 20 22 4f 53 5f 42 79 | 74 65 22 2c 32 32 39 2c |. "OS_By|te",229,|
|0000f160| 30 0d 5a f0 0c 20 20 73 | 63 69 25 3d a3 0d 5a fa |0.Z..  s|ci%=..Z.|
|0000f170| 1b 20 20 52 45 43 25 3d | a4 72 65 63 5f 6e 6f 28 |.  REC%=|.rec_no(|
|0000f180| 6b 65 79 25 2c 50 25 29 | 0d 5b 04 19 20 20 f2 72 |key%,P%)|.[..  .r|
|0000f190| 65 61 64 5f 61 70 70 74 | 73 28 52 45 43 25 2c 31 |ead_appt|s(REC%,1|
|0000f1a0| 29 0d 5b 0e 15 20 20 62 | 61 73 65 25 3f 52 45 43 |).[..  b|ase%?REC|
|0000f1b0| 25 3d 70 72 69 25 0d 5b | 18 1e 20 20 50 25 3d a4 |%=pri%.[|..  P%=.|
|0000f1c0| 6e 65 69 67 68 62 6f 75 | 72 28 6b 65 79 25 2c 50 |neighbou|r(key%,P|
|0000f1d0| 25 2c 31 29 0d 5b 22 12 | 20 20 65 78 61 6d 69 6e |%,1).[".|  examin|
|0000f1e0| 65 64 25 2b 3d 31 0d 5b | 2c 3a 20 20 c8 99 20 22 |ed%+=1.[|,:  .. "|
|0000f1f0| 48 6f 75 72 67 6c 61 73 | 73 5f 50 65 72 63 65 6e |Hourglas|s_Percen|
|0000f200| 74 61 67 65 22 2c 65 78 | 61 6d 69 6e 65 64 25 2a |tage",ex|amined%*|
|0000f210| 31 30 30 20 81 20 4e 73 | 74 75 64 65 6e 74 73 25 |100 . Ns|tudents%|
|0000f220| 0d 5b 36 0b 20 20 f2 70 | 6f 6c 6c 0d 5b 40 05 ce |.[6.  .p|oll.[@..|
|0000f230| 0d 5b 4a 1b f2 63 6c 6f | 73 65 5f 77 69 6e 64 6f |.[J..clo|se_windo|
|0000f240| 77 28 6e 6f 74 69 66 79 | 57 25 29 0d 5b 54 05 e1 |w(notify|W%).[T..|
|0000f250| 0d 5b 5e 05 3a 0d 5b 68 | 13 dd 20 a4 63 6f 6e 76 |.[^.:.[h|.. .conv|
|0000f260| 65 72 74 5f 64 61 74 61 | 0d 5b 72 0b ea 20 53 25 |ert_data|.[r.. S%|
|0000f270| 2c 53 24 0d 5b 7c 29 65 | 61 72 6c 69 65 73 74 25 |,S$.[|)e|arliest%|
|0000f280| 3d a4 6e 75 6d 62 65 72 | 28 24 45 61 72 6c 69 65 |=.number|($Earlie|
|0000f290| 73 74 25 2c 22 54 69 6d | 65 73 22 29 0d 5b 86 25 |st%,"Tim|es").[.%|
|0000f2a0| 6c 61 74 65 73 74 25 3d | a4 6e 75 6d 62 65 72 28 |latest%=|.number(|
|0000f2b0| 24 4c 61 74 65 73 74 25 | 2c 22 54 69 6d 65 73 22 |$Latest%|,"Times"|
|0000f2c0| 29 0d 5b 90 05 f5 0d 5b | 9a 0b 20 20 53 25 2b 3d |).[....[|..  S%+=|
|0000f2d0| 31 0d 5b a4 14 20 20 53 | 24 3d 24 53 74 61 66 66 |1.[..  S|$=$Staff|
|0000f2e0| 25 28 53 25 29 0d 5b ae | 25 20 20 52 73 74 61 66 |%(S%).[.|%  Rstaf|
|0000f2f0| 66 25 28 53 25 29 3d a4 | 6e 75 6d 62 65 72 28 53 |f%(S%)=.|number(S|
|0000f300| 24 2c 22 53 74 61 66 66 | 22 29 0d 5b b8 12 fd 20 |$,"Staff|").[... |
|0000f310| 53 24 3d 22 22 20 84 20 | 53 25 3d 37 0d 5b c2 13 |S$="" . |S%=7.[..|
|0000f320| e7 20 53 24 3d 22 22 20 | 8c 20 53 25 2d 3d 31 0d |. S$="" |. S%-=1.|
|0000f330| 5b cc 07 3d 53 25 0d 5b | d6 05 3a 0d 5b e0 19 dd |[..=S%.[|..:.[...|
|0000f340| 20 a4 6d 61 6b 65 5f 61 | 70 70 74 73 28 73 6c 61 | .make_a|ppts(sla|
|0000f350| 63 6b 25 29 0d 5b ea 46 | ea 20 4f 4b 25 2c 6f 6b |ck%).[.F|. OK%,ok|
|0000f360| 25 2c 64 6f 6e 65 25 2c | 62 65 67 69 6e 25 2c 66 |%,done%,|begin%,f|
|0000f370| 69 72 73 74 25 2c 6c 61 | 73 74 25 2c 73 6c 6f 74 |irst%,la|st%,slot|
|0000f380| 25 2c 74 65 61 63 68 65 | 72 25 2c 53 25 2c 69 6e |%,teache|r%,S%,in|
|0000f390| 63 25 2c 73 70 72 65 61 | 64 25 0d 5b f4 0a 69 6e |c%,sprea|d%.[..in|
|0000f3a0| 63 25 3d 32 0d 5b fe 05 | f5 0d 5c 08 2b 20 20 73 |c%=2.[..|..\.+  s|
|0000f3b0| 70 72 65 61 64 25 3d 28 | 73 74 61 66 66 5f 74 6f |pread%=(|staff_to|
|0000f3c0| 5f 73 65 65 25 2d 31 29 | 2a 69 6e 63 25 2b 73 6c |_see%-1)|*inc%+sl|
|0000f3d0| 61 63 6b 25 0d 5c 12 2c | 20 20 e7 20 73 70 72 65 |ack%.\.,|  . spre|
|0000f3e0| 61 64 25 2d 73 6c 61 63 | 6b 25 3e 6c 61 74 65 73 |ad%-slac|k%>lates|
|0000f3f0| 74 25 2d 65 61 72 6c 69 | 65 73 74 25 20 8c 3d a3 |t%-earli|est% .=.|
|0000f400| 0d 5c 1c 1b 20 20 62 65 | 67 69 6e 25 3d 65 61 72 |.\..  be|gin%=ear|
|0000f410| 6c 69 65 73 74 25 2d 69 | 6e 63 25 0d 5c 26 07 20 |liest%-i|nc%.\&. |
|0000f420| 20 f5 0d 5c 30 1b 20 20 | 20 20 57 73 74 61 66 66 | ..\0.  |  Wstaff|
|0000f430| 25 28 29 3d 52 73 74 61 | 66 66 25 28 29 0d 5c 3a |%()=Rsta|ff%().\:|
|0000f440| 14 20 20 20 20 73 6c 6f | 74 25 3d 62 65 67 69 6e |.    slo|t%=begin|
|0000f450| 25 0d 5c 44 16 20 20 20 | 20 66 69 72 73 74 25 3d |%.\D.   | first%=|
|0000f460| 6c 61 74 65 73 74 25 0d | 5c 4e 17 20 20 20 20 6c |latest%.|\N.    l|
|0000f470| 61 73 74 25 3d 65 61 72 | 6c 69 65 73 74 25 0d 5c |ast%=ear|liest%.\|
|0000f480| 58 0f 20 20 20 20 64 6f | 6e 65 25 3d 30 0d 5c 62 |X.    do|ne%=0.\b|
|0000f490| 11 20 20 20 20 74 69 6d | 65 25 28 29 3d 30 0d 5c |.    tim|e%()=0.\|
|0000f4a0| 6c 2e 20 20 20 20 c8 95 | 20 73 6c 6f 74 25 3c 6c |l.    ..| slot%<l|
|0000f4b0| 61 74 65 73 74 25 20 80 | 20 64 6f 6e 65 25 3c 73 |atest% .| done%<s|
|0000f4c0| 74 61 66 66 5f 74 6f 5f | 73 65 65 25 0d 5c 76 42 |taff_to_|see%.\vB|
|0000f4d0| f4 20 23 23 20 4d 61 6b | 65 20 61 20 73 65 74 20 |. ## Mak|e a set |
|0000f4e0| 6f 66 20 70 72 6f 76 69 | 73 69 6f 6e 61 6c 20 61 |of provi|sional a|
|0000f4f0| 70 70 74 73 20 66 6f 72 | 20 73 74 61 66 66 20 69 |ppts for| staff i|
|0000f500| 6e 20 57 73 74 61 66 66 | 25 28 29 20 23 23 0d 5c |n Wstaff|%() ##.\|
|0000f510| 80 15 20 20 20 20 20 20 | 73 6c 6f 74 25 2b 3d 69 |..      |slot%+=i|
|0000f520| 6e 63 25 0d 5c 8a 0e 20 | 20 20 20 20 20 53 25 3d |nc%.\.. |     S%=|
|0000f530| 30 0d 5c 94 0f 20 20 20 | 20 20 20 6f 6b 25 3d a3 |0.\..   |   ok%=.|
|0000f540| 0d 5c 9e 46 f4 20 23 23 | 20 46 69 6e 64 20 61 6e |.\.F. ##| Find an|
|0000f550| 20 65 6d 70 74 79 20 73 | 6c 6f 74 20 66 6f 72 20 | empty s|lot for |
|0000f560| 61 20 74 65 61 63 68 65 | 72 20 26 20 6d 61 6b 65 |a teache|r & make|
|0000f570| 20 61 20 70 72 6f 76 69 | 73 69 6f 6e 61 6c 20 61 | a provi|sional a|
|0000f580| 70 70 74 20 23 23 0d 5c | a8 25 20 20 20 20 20 20 |ppt ##.\|.%      |
|0000f590| c8 95 20 53 25 3c 73 74 | 61 66 66 5f 74 6f 5f 73 |.. S%<st|aff_to_s|
|0000f5a0| 65 65 25 20 80 20 6f 6b | 25 3d a3 0d 5c b2 11 20 |ee% . ok|%=..\.. |
|0000f5b0| 20 20 20 20 20 20 20 53 | 25 2b 3d 31 0d 5c bc 20 |       S|%+=1.\. |
|0000f5c0| 20 20 20 20 20 20 20 20 | 74 65 61 63 68 65 72 25 |        |teacher%|
|0000f5d0| 3d 57 73 74 61 66 66 25 | 28 53 25 29 0d 5c c6 1a |=Wstaff%|(S%).\..|
|0000f5e0| 20 20 20 20 20 20 20 20 | e7 20 74 65 61 63 68 65 |        |. teache|
|0000f5f0| 72 25 3e 30 20 8c 0d 5c | d0 3d 20 20 20 20 20 20 |r%>0 ..\|.=      |
|0000f600| 20 20 20 20 e7 20 53 74 | 61 66 66 41 70 70 74 73 |    . St|affAppts|
|0000f610| 25 28 74 65 61 63 68 65 | 72 25 2c 73 6c 6f 74 25 |%(teache|r%,slot%|
|0000f620| 29 2b 74 69 6d 65 25 28 | 73 6c 6f 74 25 29 3d 2d |)+time%(|slot%)=-|
|0000f630| 32 20 8c 0d 5c da 2d 20 | 20 20 20 20 20 20 20 20 |2 ..\.- |        |
|0000f640| 20 20 20 e7 20 73 6c 6f | 74 25 3c 66 69 72 73 74 |   . slo|t%<first|
|0000f650| 25 20 8c 20 66 69 72 73 | 74 25 3d 73 6c 6f 74 25 |% . firs|t%=slot%|
|0000f660| 0d 5c e4 2b 20 20 20 20 | 20 20 20 20 20 20 20 20 |.\.+    |        |
|0000f670| e7 20 73 6c 6f 74 25 3e | 6c 61 73 74 25 20 8c 20 |. slot%>|last% . |
|0000f680| 6c 61 73 74 25 3d 73 6c | 6f 74 25 0d 5c ee 25 20 |last%=sl|ot%.\.% |
|0000f690| 20 20 20 20 20 20 20 20 | 20 20 20 74 69 6d 65 25 |        |   time%|
|0000f6a0| 28 73 6c 6f 74 25 29 3d | 74 65 61 63 68 65 72 25 |(slot%)=|teacher%|
|0000f6b0| 0d 5c f8 44 20 20 20 20 | 20 20 20 20 20 20 20 20 |.\.D    |        |
|0000f6c0| 57 73 74 61 66 66 25 28 | 53 25 29 3d 30 3a f4 20 |Wstaff%(|S%)=0:. |
|0000f6d0| 23 23 20 44 6f 6e 27 74 | 20 74 72 79 20 74 6f 20 |## Don't| try to |
|0000f6e0| 64 6f 20 74 68 69 73 20 | 6f 6e 65 20 61 67 61 69 |do this |one agai|
|0000f6f0| 6e 20 23 23 0d 5d 02 18 | 20 20 20 20 20 20 20 20 |n ##.]..|        |
|0000f700| 20 20 20 20 64 6f 6e 65 | 25 2b 3d 31 0d 5d 0c 41 |    done|%+=1.].A|
|0000f710| 20 20 20 20 20 20 20 20 | 20 20 20 20 6f 6b 25 3d |        |    ok%=|
|0000f720| b9 3a f4 20 23 23 20 54 | 65 6c 6c 20 6c 6f 6f 70 |.:. ## T|ell loop|
|0000f730| 20 74 6f 20 66 69 6e 69 | 73 68 3b 20 77 65 27 76 | to fini|sh; we'v|
|0000f740| 65 20 64 6f 6e 65 20 6f | 6e 65 20 23 23 0d 5d 16 |e done o|ne ##.].|
|0000f750| 0f 20 20 20 20 20 20 20 | 20 20 20 cd 0d 5d 20 0d |.       |   ..] .|
|0000f760| 20 20 20 20 20 20 20 20 | cd 0d 5d 2a 0b 20 20 20 |        |..]*.   |
|0000f770| 20 20 20 ce 0d 5d 34 09 | 20 20 20 20 ce 0d 5d 3e |   ..]4.|    ..]>|
|0000f780| 1f 20 20 20 20 e7 20 64 | 6f 6e 65 25 3d 73 74 61 |.    . d|one%=sta|
|0000f790| 66 66 5f 74 6f 5f 73 65 | 65 25 20 8c 0d 5d 48 36 |ff_to_se|e% ..]H6|
|0000f7a0| f4 20 23 23 20 41 6c 6c | 20 73 74 61 66 66 20 66 |. ## All| staff f|
|0000f7b0| 69 74 74 65 64 20 2d 20 | 62 75 74 20 69 73 20 73 |itted - |but is s|
|0000f7c0| 70 72 65 61 64 20 74 6f | 6f 20 77 69 64 65 3f 20 |pread to|o wide? |
|0000f7d0| 23 23 0d 5d 52 22 20 20 | 20 20 20 20 e7 20 6c 61 |##.]R"  |    . la|
|0000f7e0| 73 74 25 2d 66 69 72 73 | 74 25 3e 73 70 72 65 61 |st%-firs|t%>sprea|
|0000f7f0| 64 25 20 8c 0d 5d 5c 3d | f4 20 23 23 20 53 70 72 |d% ..]\=|. ## Spr|
|0000f800| 65 61 64 20 75 6e 61 63 | 63 65 70 74 61 62 6c 65 |ead unac|ceptable|
|0000f810| 2e 20 54 72 79 20 61 67 | 61 69 6e 20 77 69 74 68 |. Try ag|ain with|
|0000f820| 20 61 20 6c 61 74 65 72 | 20 73 74 61 72 74 20 23 | a later| start #|
|0000f830| 23 0d 5d 66 18 20 20 20 | 20 20 20 20 20 62 65 67 |#.]f.   |     beg|
|0000f840| 69 6e 25 2b 3d 69 6e 63 | 25 0d 5d 70 0b 20 20 20 |in%+=inc|%.]p.   |
|0000f850| 20 20 20 cc 0d 5d 7a 0f | 20 20 20 20 20 20 4f 4b |   ..]z.|      OK|
|0000f860| 25 3d b9 0d 5d 84 0b 20 | 20 20 20 20 20 cd 0d 5d |%=..].. |     ..]|
|0000f870| 8e 0b 20 20 20 20 20 20 | cc 0d 5d 98 3d f4 20 23 |..      |..].=. #|
|0000f880| 23 20 73 6c 6f 74 25 20 | 68 61 73 20 65 78 63 65 |# slot% |has exce|
|0000f890| 65 64 65 64 20 6c 69 6d | 69 74 20 77 68 69 6c 65 |eded lim|it while|
|0000f8a0| 20 73 74 69 6c 6c 20 73 | 74 61 66 66 20 74 6f 20 | still s|taff to |
|0000f8b0| 66 69 74 20 23 23 0d 5d | a2 16 20 20 20 20 20 20 |fit ##.]|..      |
|0000f8c0| 62 65 67 69 6e 25 2b 3d | 69 6e 63 25 0d 5d ac 09 |begin%+=|inc%.]..|
|0000f8d0| 20 20 20 20 cd 0d 5d b6 | 1c 20 20 fd 20 4f 4b 25 |    ..].|.  . OK%|
|0000f8e0| 20 84 20 62 65 67 69 6e | 25 3e 6c 61 74 65 73 74 | . begin|%>latest|
|0000f8f0| 25 0d 5d c0 41 f4 20 23 | 23 20 49 66 20 4f 4b 25 |%.].A. #|# If OK%|
|0000f900| 20 73 74 69 6c 6c 20 66 | 61 6c 73 65 20 74 72 79 | still f|alse try|
|0000f910| 20 61 67 61 69 6e 20 61 | 74 20 31 35 20 6f 72 20 | again a|t 15 or |
|0000f920| 35 20 6d 69 6e 20 69 6e | 74 65 72 76 61 6c 73 20 |5 min in|tervals |
|0000f930| 23 23 0d 5d ca 48 f4 20 | 23 23 20 49 66 20 72 65 |##.].H. |## If re|
|0000f940| 74 72 79 25 20 69 73 20 | 2b 31 20 75 73 65 20 31 |try% is |+1 use 1|
|0000f950| 35 20 6d 69 6e 20 69 6e | 74 65 72 76 61 6c 73 20 |5 min in|tervals |
|0000f960| 26 20 63 6f 6e 74 69 6e | 75 65 20 75 6e 74 69 6c |& contin|ue until|
|0000f970| 20 69 6e 63 25 3d 34 20 | 23 23 0d 5d d4 47 f4 20 | inc%=4 |##.].G. |
|0000f980| 23 23 20 49 66 20 72 65 | 74 72 79 25 20 69 73 20 |## If re|try% is |
|0000f990| 2d 31 20 75 73 65 20 35 | 20 6d 69 6e 20 69 6e 74 |-1 use 5| min int|
|0000f9a0| 65 72 76 61 6c 73 20 26 | 20 63 6f 6e 74 69 6e 75 |ervals &| continu|
|0000f9b0| 65 20 75 6e 74 69 6c 20 | 69 6e 63 25 3d 30 20 23 |e until |inc%=0 #|
|0000f9c0| 23 0d 5d de 12 20 20 69 | 6e 63 25 2b 3d 72 65 74 |#.]..  i|nc%+=ret|
|0000f9d0| 72 79 25 0d 5d e8 1e fd | 20 4f 4b 25 20 84 20 69 |ry%.]...| OK% . i|
|0000f9e0| 6e 63 25 3d 2d 34 2a 28 | 72 65 74 72 79 25 3d 31 |nc%=-4*(|retry%=1|
|0000f9f0| 29 0d 5d f2 47 f4 20 23 | 23 20 43 6f 6e 74 69 6e |).].G. #|# Contin|
|0000fa00| 75 65 20 75 6e 74 69 6c | 20 61 70 70 74 73 20 61 |ue until| appts a|
|0000fa10| 72 65 20 63 6c 6f 73 65 | 20 65 6e 6f 75 67 68 20 |re close| enough |
|0000fa20| 6f 72 20 77 65 20 72 75 | 6e 20 6f 75 74 20 6f 66 |or we ru|n out of|
|0000fa30| 20 74 69 6d 65 20 23 23 | 0d 5d fc 11 e7 20 4f 4b | time ##|.]... OK|
|0000fa40| 25 20 8c 3d b9 20 8b 3d | a3 0d 5e 06 05 3a 0d 5e |% .=. .=|..^..:.^|
|0000fa50| 10 0f dd 20 f2 66 69 6e | 61 6c 69 73 65 0d 5e 1a |... .fin|alise.^.|
|0000fa60| 17 ea 20 73 6c 6f 74 25 | 2c 74 65 61 63 68 65 72 |.. slot%|,teacher|
|0000fa70| 25 2c 53 25 0d 5e 24 1f | e3 20 73 6c 6f 74 25 3d |%,S%.^$.|. slot%=|
|0000fa80| 65 61 72 6c 69 65 73 74 | 25 20 b8 20 6c 61 74 65 |earliest|% . late|
|0000fa90| 73 74 25 0d 5e 2e 1b 20 | 20 74 65 61 63 68 65 72 |st%.^.. | teacher|
|0000faa0| 25 3d 74 69 6d 65 25 28 | 73 6c 6f 74 25 29 0d 5e |%=time%(|slot%).^|
|0000fab0| 38 14 20 20 e7 20 74 65 | 61 63 68 65 72 25 3e 30 |8.  . te|acher%>0|
|0000fac0| 20 8c 0d 5e 42 0d 20 20 | 20 20 53 25 2b 3d 31 0d | ..^B.  |  S%+=1.|
|0000fad0| 5e 4c 2d 20 20 20 20 24 | 53 74 61 66 66 25 28 53 |^L-    $|Staff%(S|
|0000fae0| 25 29 3d a4 73 74 72 69 | 6e 67 28 74 65 61 63 68 |%)=.stri|ng(teach|
|0000faf0| 65 72 25 2c 22 53 74 61 | 66 66 22 29 0d 5e 56 29 |er%,"Sta|ff").^V)|
|0000fb00| 20 20 20 20 24 54 69 6d | 65 25 28 53 25 29 3d a4 |    $Tim|e%(S%)=.|
|0000fb10| 73 74 72 69 6e 67 28 73 | 6c 6f 74 25 2c 22 54 69 |string(s|lot%,"Ti|
|0000fb20| 6d 65 73 22 29 0d 5e 60 | 28 20 20 20 20 53 74 61 |mes").^`|(    Sta|
|0000fb30| 66 66 41 70 70 74 73 25 | 28 74 65 61 63 68 65 72 |ffAppts%|(teacher|
|0000fb40| 25 2c 73 6c 6f 74 25 29 | 3d 52 45 43 25 0d 5e 6a |%,slot%)|=REC%.^j|
|0000fb50| 22 20 20 20 20 53 74 61 | 66 66 41 70 70 74 73 25 |"    Sta|ffAppts%|
|0000fb60| 28 74 65 61 63 68 65 72 | 25 2c 30 29 2b 3d 31 0d |(teacher|%,0)+=1.|
|0000fb70| 5e 74 07 20 20 cd 0d 5e | 7e 0b ed 20 73 6c 6f 74 |^t.  ..^|~.. slot|
|0000fb80| 25 0d 5e 88 13 24 53 74 | 61 74 75 73 25 3d 22 44 |%.^..$St|atus%="D|
|0000fb90| 6f 6e 65 22 0d 5e 92 3f | 73 75 62 74 6f 74 61 6c |one".^.?|subtotal|
|0000fba0| 25 2b 3d 31 3a 24 53 75 | 62 74 6f 74 61 6c 25 3d |%+=1:$Su|btotal%=|
|0000fbb0| c3 28 73 75 62 74 6f 74 | 61 6c 25 29 3a f2 72 65 |.(subtot|al%):.re|
|0000fbc0| 64 72 61 77 5f 69 63 6f | 6e 28 73 74 61 74 57 25 |draw_ico|n(statW%|
|0000fbd0| 2c 32 29 0d 5e 9c 05 e1 | 0d 5e a6 05 3a 0d 5e b0 |,2).^...|.^..:.^.|
|0000fbe0| 0e dd 20 f2 70 72 6f 62 | 6c 65 6d 0d 5e ba 0e ea |.. .prob|lem.^...|
|0000fbf0| 20 49 25 2c 54 25 2c 53 | 24 0d 5e c4 0e e3 20 54 | I%,T%,S|$.^... T|
|0000fc00| 25 3d 31 20 b8 20 37 0d | 5e ce 13 20 20 24 54 69 |%=1 . 7.|^..  $Ti|
|0000fc10| 6d 65 25 28 54 25 29 3d | 22 22 0d 5e d8 08 ed 20 |me%(T%)=|"".^... |
|0000fc20| 54 25 0d 5e e2 16 24 53 | 74 61 74 75 73 25 3d 22 |T%.^..$S|tatus%="|
|0000fc30| 50 72 6f 62 6c 65 6d 22 | 0d 5e ec 3f 70 72 6f 62 |Problem"|.^.?prob|
|0000fc40| 6c 65 6d 73 25 2b 3d 31 | 3a 24 50 72 6f 62 6c 65 |lems%+=1|:$Proble|
|0000fc50| 6d 73 25 3d c3 28 70 72 | 6f 62 6c 65 6d 73 25 29 |ms%=.(pr|oblems%)|
|0000fc60| 3a f2 72 65 64 72 61 77 | 5f 69 63 6f 6e 28 73 74 |:.redraw|_icon(st|
|0000fc70| 61 74 57 25 2c 33 29 0d | 5e f6 2a 64 62 61 73 65 |atW%,3).|^.*dbase|
|0000fc80| 68 61 6e 64 6c 65 25 3d | 8e 28 24 64 61 74 61 62 |handle%=|.($datab|
|0000fc90| 61 73 65 25 2b 22 2e 44 | 61 74 61 62 61 73 65 22 |ase%+".D|atabase"|
|0000fca0| 29 0d 5f 00 0f f2 72 65 | 61 64 28 52 45 43 25 29 |)._...re|ad(REC%)|
|0000fcb0| 0d 5f 0a 1d f2 63 6c 6f | 73 65 5f 66 69 6c 65 28 |._...clo|se_file(|
|0000fcc0| 64 62 61 73 65 68 61 6e | 64 6c 65 25 29 0d 5f 14 |dbasehan|dle%)._.|
|0000fcd0| 20 53 24 3d 24 4e 61 6d | 65 25 2b c4 33 33 2d a9 | S$=$Nam|e%+.33-.|
|0000fce0| 28 24 4e 61 6d 65 25 29 | 2c 22 20 22 29 0d 5f 1e |($Name%)|," ")._.|
|0000fcf0| 0e e3 20 49 25 3d 31 20 | b8 20 37 0d 5f 28 2d 20 |.. I%=1 |. 7._(- |
|0000fd00| 20 e7 20 24 53 74 61 66 | 66 25 28 49 25 29 3c 3e | . $Staf|f%(I%)<>|
|0000fd10| 22 22 20 8c 20 53 24 2b | 3d 24 53 74 61 66 66 25 |"" . S$+|=$Staff%|
|0000fd20| 28 49 25 29 2b 22 20 22 | 0d 5f 32 08 ed 20 49 25 |(I%)+" "|._2.. I%|
|0000fd30| 0d 5f 3c 12 f2 6c 69 73 | 74 5f 6c 69 6e 65 28 53 |._<..lis|t_line(S|
|0000fd40| 24 29 0d 5f 46 05 e1 0d | 5f 50 05 3a 0d 5f 5a 05 |$)._F...|_P.:._Z.|
|0000fd50| 3a 0d 5f 64 11 dd 20 f2 | 75 6e 64 6f 28 52 45 43 |:._d.. .|undo(REC|
|0000fd60| 25 29 0d 5f 6e 4b e7 20 | a4 63 6f 6e 66 69 72 6d |%)._nK. |.confirm|
|0000fd70| 28 22 43 61 6e 63 65 6c | 20 61 70 70 6f 69 6e 74 |("Cancel| appoint|
|0000fd80| 6d 65 6e 74 73 20 66 6f | 72 20 74 68 69 73 20 72 |ments fo|r this r|
|0000fd90| 65 63 6f 72 64 2e 20 20 | 41 72 65 20 79 6f 75 20 |ecord.  |Are you |
|0000fda0| 73 75 72 65 3f 22 29 3d | a3 20 8c 20 e1 0d 5f 78 |sure?")=|. . .._x|
|0000fdb0| 1a ea 20 74 65 61 63 68 | 65 72 25 2c 73 6c 6f 74 |.. teach|er%,slot|
|0000fdc0| 25 2c 53 25 2c 53 24 0d | 5f 82 1f 73 74 61 66 66 |%,S%,S$.|_..staff|
|0000fdd0| 5f 74 6f 5f 73 65 65 25 | 3d a4 63 6f 6e 76 65 72 |_to_see%|=.conver|
|0000fde0| 74 5f 64 61 74 61 0d 5f | 8c 1c e3 20 53 25 3d 30 |t_data._|... S%=0|
|0000fdf0| 20 b8 20 73 74 61 66 66 | 5f 74 6f 5f 73 65 65 25 | . staff|_to_see%|
|0000fe00| 2d 31 0d 5f 96 16 20 20 | 53 24 3d 24 53 74 61 66 |-1._..  |S$=$Staf|
|0000fe10| 66 25 28 53 25 2b 31 29 | 0d 5f a0 25 20 20 54 24 |f%(S%+1)|._.%  T$|
|0000fe20| 3d 24 54 69 6d 65 25 28 | 53 25 2b 31 29 3a 24 54 |=$Time%(|S%+1):$T|
|0000fe30| 69 6d 65 25 28 53 25 2b | 31 29 3d 22 22 0d 5f aa |ime%(S%+|1)=""._.|
|0000fe40| 1d 20 20 74 65 61 63 68 | 65 72 25 3d a4 67 65 74 |.  teach|er%=.get|
|0000fe50| 5f 73 74 61 66 66 28 53 | 24 29 0d 5f b4 1f 20 20 |_staff(S|$)._..  |
|0000fe60| 73 6c 6f 74 25 3d a4 6e | 75 6d 62 65 72 28 54 24 |slot%=.n|umber(T$|
|0000fe70| 2c 22 54 69 6d 65 73 22 | 29 0d 5f be 24 20 20 53 |,"Times"|)._.$  S|
|0000fe80| 74 61 66 66 41 70 70 74 | 73 25 28 74 65 61 63 68 |taffAppt|s%(teach|
|0000fe90| 65 72 25 2c 73 6c 6f 74 | 25 29 3d 2d 32 0d 5f c8 |er%,slot|%)=-2._.|
|0000fea0| 20 20 20 53 74 61 66 66 | 41 70 70 74 73 25 28 74 |   Staff|Appts%(t|
|0000feb0| 65 61 63 68 65 72 25 2c | 30 29 2d 3d 31 0d 5f d2 |eacher%,|0)-=1._.|
|0000fec0| 08 ed 20 53 25 0d 5f dc | 05 e1 0d 5f e6 05 3a 0d |.. S%._.|..._..:.|
|0000fed0| 5f f0 13 dd 20 f2 6d 61 | 6e 75 61 6c 28 52 45 43 |_... .ma|nual(REC|
|0000fee0| 25 29 0d 5f fa 1a ea 20 | 74 65 61 63 68 65 72 25 |%)._... |teacher%|
|0000fef0| 2c 73 6c 6f 74 25 2c 53 | 25 2c 53 24 0d 60 04 1f |,slot%,S|%,S$.`..|
|0000ff00| 73 74 61 66 66 5f 74 6f | 5f 73 65 65 25 3d a4 63 |staff_to|_see%=.c|
|0000ff10| 6f 6e 76 65 72 74 5f 64 | 61 74 61 0d 60 0e 3d f2 |onvert_d|ata.`.=.|
|0000ff20| 73 65 6c 65 63 74 61 62 | 6c 65 28 6d 61 6e 75 61 |selectab|le(manua|
|0000ff30| 6c 57 25 2c 30 2c 28 65 | 76 65 6e 69 6e 67 65 6e |lW%,0,(e|veningen|
|0000ff40| 64 25 2d 65 76 65 6e 69 | 6e 67 73 74 61 72 74 25 |d%-eveni|ngstart%|
|0000ff50| 2b 31 29 2a 37 2c a3 29 | 0d 60 18 0e e3 20 53 25 |+1)*7,.)|.`... S%|
|0000ff60| 3d 30 20 b8 20 36 0d 60 | 22 16 20 20 53 24 3d 24 |=0 . 6.`|".  S$=$|
|0000ff70| 53 74 61 66 66 25 28 53 | 25 2b 31 29 0d 60 2c 1d |Staff%(S|%+1).`,.|
|0000ff80| 20 20 24 a4 74 65 78 74 | 28 68 65 61 64 69 6e 67 |  $.text|(heading|
|0000ff90| 57 25 2c 53 25 29 3d 53 | 24 0d 60 36 10 20 20 e7 |W%,S%)=S|$.`6.  .|
|0000ffa0| 20 53 24 3c 3e 22 22 20 | 8c 0d 60 40 1f 20 20 20 | S$<>"" |..`@.   |
|0000ffb0| 20 74 65 61 63 68 65 72 | 25 3d a4 67 65 74 5f 73 | teacher|%=.get_s|
|0000ffc0| 74 61 66 66 28 53 24 29 | 0d 60 4a 23 20 20 20 20 |taff(S$)|.`J#    |
|0000ffd0| e3 20 73 6c 6f 74 25 3d | 65 61 72 6c 69 65 73 74 |. slot%=|earliest|
|0000ffe0| 25 20 b8 20 6c 61 74 65 | 73 74 25 0d 60 54 2c 20 |% . late|st%.`T, |
|0000fff0| 20 20 20 20 20 e7 20 53 | 74 61 66 66 41 70 70 74 |     . S|taffAppt|
|00010000| 73 25 28 74 65 61 63 68 | 65 72 25 2c 73 6c 6f 74 |s%(teach|er%,slot|
|00010010| 25 29 3d 2d 32 20 8c 0d | 60 5e 3f 20 20 20 20 20 |%)=-2 ..|`^?     |
|00010020| 20 20 20 f2 69 63 6f 6e | 5f 62 69 74 28 32 32 2c |   .icon|_bit(22,|
|00010030| 6d 61 6e 75 61 6c 57 25 | 2c 28 73 6c 6f 74 25 2d |manualW%|,(slot%-|
|00010040| 65 76 65 6e 69 6e 67 73 | 74 61 72 74 25 29 2a 37 |evenings|tart%)*7|
|00010050| 2b 53 25 2c b9 29 0d 60 | 68 0b 20 20 20 20 20 20 |+S%,.).`|h.      |
|00010060| cd 0d 60 72 0f 20 20 20 | 20 ed 20 73 6c 6f 74 25 |..`r.   | . slot%|
|00010070| 0d 60 7c 07 20 20 cd 0d | 60 86 08 ed 20 53 25 0d |.`|.  ..|`... S%.|
|00010080| 60 90 1e 24 a4 74 65 78 | 74 28 63 6f 6e 74 72 6f |`..$.tex|t(contro|
|00010090| 6c 57 25 2c 31 29 3d 24 | 4e 61 6d 65 25 0d 60 9a |lW%,1)=$|Name%.`.|
|000100a0| 1a f2 6f 70 65 6e 5f 77 | 69 6e 64 6f 77 28 6d 61 |..open_w|indow(ma|
|000100b0| 6e 75 61 6c 57 25 29 0d | 60 a4 11 f2 75 70 64 61 |nualW%).|`...upda|
|000100c0| 74 65 5f 70 61 6e 65 73 | 0d 60 ae 05 e1 0d 60 b8 |te_panes|.`....`.|
|000100d0| 05 3a 0d 60 c2 1c dd 20 | f2 66 69 6e 61 6c 69 73 |.:.`... |.finalis|
|000100e0| 65 5f 6d 61 6e 75 61 6c | 28 52 45 43 25 29 0d 60 |e_manual|(REC%).`|
|000100f0| cc 1e ea 20 53 25 2c 74 | 65 61 63 68 65 72 25 2c |... S%,t|eacher%,|
|00010100| 73 6c 6f 74 25 2c 53 24 | 2c 69 63 25 0d 60 d6 0d |slot%,S$|,ic%.`..|
|00010110| 74 69 6d 65 25 28 29 3d | 30 0d 60 e0 1c e3 20 53 |time%()=|0.`... S|
|00010120| 25 3d 30 20 b8 20 73 74 | 61 66 66 5f 74 6f 5f 73 |%=0 . st|aff_to_s|
|00010130| 65 65 25 2d 31 0d 60 ea | 1d 20 20 53 24 3d 24 a4 |ee%-1.`.|.  S$=$.|
|00010140| 74 65 78 74 28 68 65 61 | 64 69 6e 67 57 25 2c 53 |text(hea|dingW%,S|
|00010150| 25 29 0d 60 f4 1d 20 20 | 74 65 61 63 68 65 72 25 |%).`..  |teacher%|
|00010160| 3d a4 67 65 74 5f 73 74 | 61 66 66 28 53 24 29 0d |=.get_st|aff(S$).|
|00010170| 60 fe 17 20 20 73 6c 6f | 74 25 3d 65 61 72 6c 69 |`..  slo|t%=earli|
|00010180| 65 73 74 25 2d 31 0d 61 | 08 10 20 20 f5 20 73 6c |est%-1.a|..  . sl|
|00010190| 6f 74 25 2b 3d 31 0d 61 | 12 24 20 20 69 63 25 3d |ot%+=1.a|.$  ic%=|
|000101a0| 28 73 6c 6f 74 25 2d 65 | 76 65 6e 69 6e 67 73 74 |(slot%-e|veningst|
|000101b0| 61 72 74 25 29 2a 37 2b | 53 25 0d 61 1c 2f 20 20 |art%)*7+|S%.a./  |
|000101c0| fd 20 a4 73 65 6c 65 63 | 74 65 64 28 6d 61 6e 75 |. .selec|ted(manu|
|000101d0| 61 6c 57 25 2c 69 63 25 | 29 20 84 20 73 6c 6f 74 |alW%,ic%|) . slot|
|000101e0| 25 3e 6c 61 74 65 73 74 | 25 0d 61 26 18 20 20 e7 |%>latest|%.a&.  .|
|000101f0| 20 73 6c 6f 74 25 3c 3d | 6c 61 74 65 73 74 25 20 | slot%<=|latest% |
|00010200| 8c 0d 61 30 1d 20 20 20 | 20 74 69 6d 65 25 28 73 |..a0.   | time%(s|
|00010210| 6c 6f 74 25 29 3d 74 65 | 61 63 68 65 72 25 0d 61 |lot%)=te|acher%.a|
|00010220| 3a 1f 20 20 20 20 f2 64 | 65 73 65 6c 65 63 74 28 |:.    .d|eselect(|
|00010230| 6d 61 6e 75 61 6c 57 25 | 2c 69 63 25 29 0d 61 44 |manualW%|,ic%).aD|
|00010240| 24 20 20 20 20 f2 69 63 | 6f 6e 5f 62 69 74 28 32 |$    .ic|on_bit(2|
|00010250| 32 2c 6d 61 6e 75 61 6c | 57 25 2c 69 63 25 2c a3 |2,manual|W%,ic%,.|
|00010260| 29 0d 61 4e 07 20 20 cd | 0d 61 58 08 ed 20 53 25 |).aN.  .|.aX.. S%|
|00010270| 0d 61 62 0d f2 66 69 6e | 61 6c 69 73 65 0d 61 6c |.ab..fin|alise.al|
|00010280| 1c 61 70 70 74 68 61 6e | 64 6c 65 25 3d ad 28 61 |.appthan|dle%=.(a|
|00010290| 70 70 74 66 69 6c 65 24 | 29 0d 61 76 17 f2 77 72 |pptfile$|).av..wr|
|000102a0| 69 74 65 5f 61 70 70 28 | 5a 25 2c 52 45 43 25 29 |ite_app(|Z%,REC%)|
|000102b0| 0d 61 80 1c f2 63 6c 6f | 73 65 5f 66 69 6c 65 28 |.a...clo|se_file(|
|000102c0| 61 70 70 74 68 61 6e 64 | 6c 65 25 29 0d 61 8a 17 |appthand|le%).a..|
|000102d0| f2 64 69 73 70 6c 61 79 | 28 6b 65 79 25 2c 61 64 |.display|(key%,ad|
|000102e0| 64 72 29 0d 61 94 05 e1 | 0d 61 9e 05 3a 0d 61 a8 |dr).a...|.a..:.a.|
|000102f0| 14 dd 20 a4 67 65 74 5f | 73 74 61 66 66 28 53 24 |.. .get_|staff(S$|
|00010300| 29 0d 61 b2 08 ea 20 53 | 25 0d 61 bc 0b f5 20 53 |).a... S|%.a... S|
|00010310| 25 2b 3d 31 0d 61 c6 4b | e7 20 53 25 3e 4e 73 74 |%+=1.a.K|. S%>Nst|
|00010320| 61 66 66 25 20 8c 20 85 | 20 66 61 74 61 6c 5f 65 |aff% . .| fatal_e|
|00010330| 72 72 25 2c 22 53 74 61 | 66 66 20 63 6f 64 65 20 |rr%,"Sta|ff code |
|00010340| 6e 6f 74 20 69 6e 20 61 | 70 70 6f 69 6e 74 6d 65 |not in a|ppointme|
|00010350| 6e 74 73 20 74 61 62 6c | 65 22 2b bd 28 30 29 0d |nts tabl|e"+.(0).|
|00010360| 61 d0 18 fd 20 53 74 61 | 66 66 43 6f 64 65 73 24 |a... Sta|ffCodes$|
|00010370| 28 53 25 29 3d 53 24 0d | 61 da 07 3d 53 25 0d 61 |(S%)=S$.|a..=S%.a|
|00010380| e4 05 3a 0d 61 ee 15 dd | 20 a4 72 65 73 74 72 69 |..:.a...| .restri|
|00010390| 63 74 65 64 28 53 24 29 | 0d 61 f8 09 ea 20 69 63 |cted(S$)|.a... ic|
|000103a0| 25 0d 62 02 0f e7 20 53 | 24 3d 22 22 20 8c 3d 30 |%.b... S|$="" .=0|
|000103b0| 0d 62 0c 05 f5 0d 62 16 | 0c 20 20 69 63 25 2b 3d |.b....b.|.  ic%+=|
|000103c0| 33 0d 62 20 28 fd 20 24 | a4 74 65 78 74 28 72 65 |3.b (. $|.text(re|
|000103d0| 73 74 72 69 63 74 57 25 | 2c 69 63 25 29 3d 53 24 |strictW%|,ic%)=S$|
|000103e0| 20 84 20 69 63 25 3d 31 | 38 0d 62 2a 29 e7 20 24 | . ic%=1|8.b*). $|
|000103f0| a4 74 65 78 74 28 72 65 | 73 74 72 69 63 74 57 25 |.text(re|strictW%|
|00010400| 2c 69 63 25 29 3d 53 24 | 20 8c 3d 69 63 25 20 8b |,ic%)=S$| .=ic% .|
|00010410| 3d 30 0d 62 34 05 3a 0d | 62 3e 26 f4 20 2d 2d 2d |=0.b4.:.|b>&. ---|
|00010420| 20 53 4c 49 44 49 4e 47 | 20 48 45 41 50 20 32 2e | SLIDING| HEAP 2.|
|00010430| 30 30 20 50 52 4f 43 45 | 44 55 52 45 53 0d 62 48 |00 PROCE|DURES.bH|
|00010440| 05 3a 0d 62 52 1f f4 20 | 72 65 71 75 69 72 65 73 |.:.bR.. |requires|
|00010450| 20 53 6c 69 64 69 6e 67 | 48 65 61 70 20 32 2e 30 | Sliding|Heap 2.0|
|00010460| 30 0d 62 5c 05 3a 0d 62 | 66 16 f4 20 6d 6f 64 75 |0.b\.:.b|f.. modu|
|00010470| 6c 65 20 61 6e 64 20 50 | 52 4f 43 73 0d 62 70 1a |le and P|ROCs.bp.|
|00010480| f4 20 a9 20 53 74 65 76 | 65 6e 20 48 61 73 6c 61 |. . Stev|en Hasla|
|00010490| 6d 20 31 39 39 32 0d 62 | 7a 05 3a 0d 62 84 15 dd |m 1992.b|z.:.b...|
|000104a0| 20 a4 5f 68 65 61 70 5f | 73 6c 6f 74 73 69 7a 65 | ._heap_|slotsize|
|000104b0| 0d 62 8e 09 ea 20 52 30 | 25 0d 62 98 22 c8 99 20 |.b... R0|%.b.".. |
|000104c0| 22 57 69 6d 70 5f 53 6c | 6f 74 53 69 7a 65 22 2c |"Wimp_Sl|otSize",|
|000104d0| 2d 31 2c 2d 31 20 b8 20 | 52 30 25 0d 62 a2 08 3d |-1,-1 . |R0%.b..=|
|000104e0| 52 30 25 0d 62 ac 05 3a | 0d 62 b6 2f dd 20 a4 5f |R0%.b..:|.b./. ._|
|000104f0| 68 65 61 70 5f 6e 75 6d | 74 6f 73 74 72 28 64 25 |heap_num|tostr(d%|
|00010500| 2c 6e 25 29 3d c2 c4 64 | 25 2c 22 30 22 29 2b c3 |,n%)=..d|%,"0")+.|
|00010510| 7e 6e 25 2c 64 25 29 0d | 62 c0 2f dd 20 a4 5f 68 |~n%,d%).|b./. ._h|
|00010520| 65 61 70 5f 73 6e 75 6d | 74 6f 73 74 72 28 64 25 |eap_snum|tostr(d%|
|00010530| 2c 6e 25 29 3d c2 c4 64 | 25 2c 22 20 22 29 2b c3 |,n%)=..d|%," ")+.|
|00010540| 6e 25 2c 64 25 29 0d 62 | ca 05 3a 0d 62 d4 10 dd |n%,d%).b|..:.b...|
|00010550| 20 f2 68 65 61 70 73 69 | 6e 66 6f 0d 62 de 37 c8 | .heapsi|nfo.b.7.|
|00010560| 99 20 22 4f 53 5f 48 65 | 61 70 22 2c 31 2c 66 69 |. "OS_He|ap",1,fi|
|00010570| 78 65 64 68 65 61 70 62 | 61 73 65 25 20 b8 20 2c |xedheapb|ase% . ,|
|00010580| 2c 62 69 67 62 6c 6f 63 | 25 2c 74 6f 74 66 72 65 |,bigbloc|%,totfre|
|00010590| 65 25 0d 62 e8 12 f1 20 | 22 46 69 78 65 64 20 68 |e%.b... |"Fixed h|
|000105a0| 65 61 70 22 0d 62 f2 12 | f1 20 22 2d 2d 2d 2d 2d |eap".b..|. "-----|
|000105b0| 20 2d 2d 2d 2d 22 0d 62 | fc 3a f1 20 22 48 65 61 | ----".b|.:. "Hea|
|000105c0| 70 20 62 61 73 65 20 20 | 20 20 3a 20 26 22 3b a4 |p base  |  : &";.|
|000105d0| 5f 68 65 61 70 5f 6e 75 | 6d 74 6f 73 74 72 28 38 |_heap_nu|mtostr(8|
|000105e0| 2c 66 69 78 65 64 68 65 | 61 70 62 61 73 65 25 29 |,fixedhe|apbase%)|
|000105f0| 0d 63 06 35 f1 20 22 48 | 65 61 70 20 73 69 7a 65 |.c.5. "H|eap size|
|00010600| 20 20 20 20 3a 20 22 3b | a4 5f 68 65 61 70 5f 62 |    : ";|._heap_b|
|00010610| 79 74 65 73 32 28 66 69 | 78 65 64 68 65 61 70 73 |ytes2(fi|xedheaps|
|00010620| 69 7a 65 25 29 0d 63 10 | 2f f1 20 22 4c 61 72 67 |ize%).c.|/. "Larg|
|00010630| 65 73 74 20 66 72 65 65 | 20 3a 20 22 3b a4 5f 68 |est free| : ";._h|
|00010640| 65 61 70 5f 62 79 74 65 | 73 32 28 62 69 67 62 6c |eap_byte|s2(bigbl|
|00010650| 6f 63 25 29 0d 63 1a 2f | f1 20 22 54 6f 74 61 6c |oc%).c./|. "Total|
|00010660| 20 66 72 65 65 20 20 20 | 3a 20 22 3b a4 5f 68 65 | free   |: ";._he|
|00010670| 61 70 5f 62 79 74 65 73 | 32 28 74 6f 74 66 72 65 |ap_bytes|2(totfre|
|00010680| 65 25 29 0d 63 24 05 f1 | 0d 63 2e 14 f1 20 22 53 |e%).c$..|.c... "S|
|00010690| 6c 69 64 69 6e 67 20 68 | 65 61 70 22 0d 63 38 14 |liding h|eap".c8.|
|000106a0| f1 20 22 2d 2d 2d 2d 2d | 2d 2d 20 2d 2d 2d 2d 22 |. "-----|-- ----"|
|000106b0| 0d 63 42 2e c8 99 20 22 | 53 6c 69 64 69 6e 67 48 |.cB... "|SlidingH|
|000106c0| 65 61 70 5f 48 65 61 70 | 49 6e 66 6f 22 2c 73 6c |eap_Heap|Info",sl|
|000106d0| 69 64 69 6e 67 68 65 61 | 70 62 61 73 65 25 0d 63 |idinghea|pbase%.c|
|000106e0| 4c 05 e1 0d 63 56 05 3a | 0d 63 60 17 dd 20 a4 5f |L...cV.:|.c`.. ._|
|000106f0| 68 65 61 70 5f 70 61 67 | 65 75 70 28 6e 25 29 0d |heap_pag|eup(n%).|
|00010700| 63 6a 09 ea 20 52 30 25 | 0d 63 74 20 c8 99 20 22 |cj.. R0%|.ct .. "|
|00010710| 4f 53 5f 52 65 61 64 4d | 65 6d 4d 61 70 49 6e 66 |OS_ReadM|emMapInf|
|00010720| 6f 22 20 b8 20 52 30 25 | 0d 63 7e 1b 3d 28 6e 25 |o" . R0%|.c~.=(n%|
|00010730| 2b 52 30 25 2d 31 29 20 | 80 20 ac 20 28 52 30 25 |+R0%-1) |. . (R0%|
|00010740| 2d 31 29 0d 63 88 05 3a | 0d 63 92 2a dd 20 f2 69 |-1).c..:|.c.*. .i|
|00010750| 6e 69 74 68 65 61 70 73 | 28 68 65 61 70 73 69 7a |nitheaps|(heapsiz|
|00010760| 65 25 2c 73 6c 69 64 69 | 6e 67 62 6c 6f 63 6b 73 |e%,slidi|ngblocks|
|00010770| 25 29 0d 63 9c 1c 66 69 | 78 65 64 68 65 61 70 73 |%).c..fi|xedheaps|
|00010780| 69 7a 65 25 3d 68 65 61 | 70 73 69 7a 65 25 0d 63 |ize%=hea|psize%.c|
|00010790| a6 4c 68 65 61 70 5f 74 | 72 69 67 67 65 72 25 3d |.Lheap_t|rigger%=|
|000107a0| a4 5f 68 65 61 70 5f 70 | 61 67 65 75 70 28 93 2b |._heap_p|ageup(.+|
|000107b0| 66 69 78 65 64 68 65 61 | 70 73 69 7a 65 25 2b 32 |fixedhea|psize%+2|
|000107c0| 30 2b 32 30 2a 73 6c 69 | 64 69 6e 67 62 6c 6f 63 |0+20*sli|dingbloc|
|000107d0| 6b 73 25 2d 26 38 30 30 | 30 29 0d 63 b0 1f f2 73 |ks%-&800|0).c...s|
|000107e0| 65 74 73 6c 6f 74 73 69 | 7a 65 28 68 65 61 70 5f |etslotsi|ze(heap_|
|000107f0| 74 72 69 67 67 65 72 25 | 29 0d 63 ba 47 e7 20 a4 |trigger%|).c.G. .|
|00010800| 5f 68 65 61 70 5f 73 6c | 6f 74 73 69 7a 65 3c 68 |_heap_sl|otsize<h|
|00010810| 65 61 70 5f 74 72 69 67 | 67 65 72 25 20 8c 20 85 |eap_trig|ger% . .|
|00010820| 20 31 33 30 2c 22 55 6e | 61 62 6c 65 20 74 6f 20 | 130,"Un|able to |
|00010830| 69 6e 69 74 69 61 6c 69 | 73 65 20 68 65 61 70 22 |initiali|se heap"|
|00010840| 0d 63 c4 14 66 69 78 65 | 64 68 65 61 70 62 61 73 |.c..fixe|dheapbas|
|00010850| 65 25 3d 93 0d 63 ce 25 | 73 6c 69 64 69 6e 67 68 |e%=..c.%|slidingh|
|00010860| 65 61 70 62 61 73 65 25 | 3d 93 2b 66 69 78 65 64 |eapbase%|=.+fixed|
|00010870| 68 65 61 70 73 69 7a 65 | 25 0d 63 d8 31 c8 99 20 |heapsize|%.c.1.. |
|00010880| 22 4f 53 5f 48 65 61 70 | 22 2c 30 2c 66 69 78 65 |"OS_Heap|",0,fixe|
|00010890| 64 68 65 61 70 62 61 73 | 65 25 2c 2c 66 69 78 65 |dheapbas|e%,,fixe|
|000108a0| 64 68 65 61 70 73 69 7a | 65 25 0d 63 e2 3d c8 99 |dheapsiz|e%.c.=..|
|000108b0| 20 22 53 6c 69 64 69 6e | 67 48 65 61 70 5f 43 72 | "Slidin|gHeap_Cr|
|000108c0| 65 61 74 65 22 2c 73 6c | 69 64 69 6e 67 68 65 61 |eate",sl|idinghea|
|000108d0| 70 62 61 73 65 25 2c 32 | 2c 73 6c 69 64 69 6e 67 |pbase%,2|,sliding|
|000108e0| 62 6c 6f 63 6b 73 25 0d | 63 ec 30 c8 99 20 22 53 |blocks%.|c.0.. "S|
|000108f0| 6c 69 64 69 6e 67 48 65 | 61 70 5f 56 65 72 69 66 |lidingHe|ap_Verif|
|00010900| 79 48 65 61 70 22 2c 73 | 6c 69 64 69 6e 67 68 65 |yHeap",s|lidinghe|
|00010910| 61 70 62 61 73 65 25 0d | 63 f6 05 e1 0d 64 00 05 |apbase%.|c....d..|
|00010920| 3a 0d 64 0a 15 dd 20 a4 | 5f 68 65 61 70 5f 6e 65 |:.d... .|_heap_ne|
|00010930| 78 74 66 72 65 65 0d 64 | 14 0f ea 20 6e 65 78 74 |xtfree.d|... next|
|00010940| 66 72 65 65 25 0d 64 1e | 3a c8 99 20 22 53 6c 69 |free%.d.|:.. "Sli|
|00010950| 64 69 6e 67 48 65 61 70 | 5f 4e 65 78 74 46 72 65 |dingHeap|_NextFre|
|00010960| 65 22 2c 73 6c 69 64 69 | 6e 67 68 65 61 70 62 61 |e",slidi|ngheapba|
|00010970| 73 65 25 20 b8 20 6e 65 | 78 74 66 72 65 65 25 0d |se% . ne|xtfree%.|
|00010980| 64 28 0e 3d 6e 65 78 74 | 66 72 65 65 25 0d 64 32 |d(.=next|free%.d2|
|00010990| 05 3a 0d 64 3c 13 dd 20 | f2 64 65 73 74 72 6f 79 |.:.d<.. |.destroy|
|000109a0| 68 65 61 70 73 0d 64 46 | 19 f2 73 65 74 73 6c 6f |heaps.dF|..setslo|
|000109b0| 74 73 69 7a 65 28 93 2d | 26 38 30 30 30 29 0d 64 |tsize(.-|&8000).d|
|000109c0| 50 05 e1 0d 64 5a 05 3a | 0d 64 64 24 dd 20 a4 5f |P...dZ.:|.dd$. ._|
|000109d0| 68 65 61 70 5f 77 6f 72 | 64 75 70 28 78 25 29 3d |heap_wor|dup(x%)=|
|000109e0| 28 78 25 2b 33 29 20 80 | 20 ac 20 33 0d 64 6e 05 |(x%+3) .| . 3.dn.|
|000109f0| 3a 0d 64 78 1b dd 20 a4 | 63 72 65 61 74 65 5f 61 |:.dx.. .|create_a|
|00010a00| 6e 63 68 6f 72 28 6e 61 | 6d 65 24 29 0d 64 82 0c |nchor(na|me$).d..|
|00010a10| ea 20 73 70 61 63 65 25 | 0d 64 8c 17 de 20 73 70 |. space%|.d... sp|
|00010a20| 61 63 65 25 20 34 2b a9 | 6e 61 6d 65 24 2b 31 0d |ace% 4+.|name$+1.|
|00010a30| 64 96 0d 21 73 70 61 63 | 65 25 3d 30 0d 64 a0 15 |d..!spac|e%=0.d..|
|00010a40| 24 28 73 70 61 63 65 25 | 2b 34 29 3d 6e 61 6d 65 |$(space%|+4)=name|
|00010a50| 24 0d 64 aa 0b 3d 73 70 | 61 63 65 25 0d 64 b4 05 |$.d..=sp|ace%.d..|
|00010a60| 3a 0d 64 be 30 dd 20 f2 | 63 72 65 61 74 65 5f 6e |:.d.0. .|create_n|
|00010a70| 61 6d 65 64 5f 73 6c 69 | 64 69 6e 67 5f 62 6c 6f |amed_sli|ding_blo|
|00010a80| 63 6b 28 61 6e 63 68 6f | 72 25 2c 73 69 7a 65 25 |ck(ancho|r%,size%|
|00010a90| 29 0d 64 c8 0e ea 20 74 | 72 79 73 69 7a 65 25 0d |).d... t|rysize%.|
|00010aa0| 64 d2 1e 73 69 7a 65 25 | 3d a4 5f 68 65 61 70 5f |d..size%|=._heap_|
|00010ab0| 77 6f 72 64 75 70 28 73 | 69 7a 65 25 29 0d 64 dc |wordup(s|ize%).d.|
|00010ac0| 37 74 72 79 73 69 7a 65 | 25 3d a4 5f 68 65 61 70 |7trysize|%=._heap|
|00010ad0| 5f 70 61 67 65 75 70 28 | a4 5f 68 65 61 70 5f 6e |_pageup(|._heap_n|
|00010ae0| 65 78 74 66 72 65 65 2b | 73 69 7a 65 25 2d 26 37 |extfree+|size%-&7|
|00010af0| 46 46 34 29 0d 64 e6 1e | e7 20 74 72 79 73 69 7a |FF4).d..|. trysiz|
|00010b00| 65 25 3e 68 65 61 70 5f | 74 72 69 67 67 65 72 25 |e%>heap_|trigger%|
|00010b10| 20 8c 0d 64 f0 1d 20 20 | 20 f2 73 65 74 73 6c 6f | ..d..  | .setslo|
|00010b20| 74 73 69 7a 65 28 74 72 | 79 73 69 7a 65 25 29 0d |tsize(tr|ysize%).|
|00010b30| 64 fa 23 20 20 20 e7 20 | a4 5f 68 65 61 70 5f 73 |d.#   . |._heap_s|
|00010b40| 6c 6f 74 73 69 7a 65 3c | 74 72 79 73 69 7a 65 25 |lotsize<|trysize%|
|00010b50| 20 8c 0d 65 04 25 20 20 | 20 20 20 20 f2 73 65 74 | ..e.%  |    .set|
|00010b60| 73 6c 6f 74 73 69 7a 65 | 28 68 65 61 70 5f 74 72 |slotsize|(heap_tr|
|00010b70| 69 67 67 65 72 25 29 0d | 65 0e 46 20 20 20 20 20 |igger%).|e.F     |
|00010b80| 20 85 20 31 33 31 2c 22 | 4e 6f 74 20 65 6e 6f 75 | . 131,"|Not enou|
|00010b90| 67 68 20 72 6f 6f 6d 20 | 74 6f 20 63 72 65 61 74 |gh room |to creat|
|00010ba0| 65 20 62 6c 6f 63 6b 20 | 22 22 22 2b 24 28 61 6e |e block |"""+$(an|
|00010bb0| 63 68 6f 72 25 2b 34 29 | 2b 22 22 22 22 0d 65 18 |chor%+4)|+"""".e.|
|00010bc0| 08 20 20 20 cc 0d 65 22 | 20 20 20 20 20 20 20 68 |.   ..e"|       h|
|00010bd0| 65 61 70 5f 74 72 69 67 | 67 65 72 25 3d 74 72 79 |eap_trig|ger%=try|
|00010be0| 73 69 7a 65 25 0d 65 2c | 08 20 20 20 cd 0d 65 36 |size%.e,|.   ..e6|
|00010bf0| 05 cd 0d 65 40 46 c8 99 | 20 22 53 6c 69 64 69 6e |...e@F..| "Slidin|
|00010c00| 67 48 65 61 70 5f 4e 65 | 77 42 6c 6f 63 6b 22 2c |gHeap_Ne|wBlock",|
|00010c10| 73 6c 69 64 69 6e 67 68 | 65 61 70 62 61 73 65 25 |slidingh|eapbase%|
|00010c20| 2c 61 6e 63 68 6f 72 25 | 2c 73 69 7a 65 25 2c 61 |,anchor%|,size%,a|
|00010c30| 6e 63 68 6f 72 25 2b 34 | 0d 65 4a 30 c8 99 20 22 |nchor%+4|.eJ0.. "|
|00010c40| 53 6c 69 64 69 6e 67 48 | 65 61 70 5f 56 65 72 69 |SlidingH|eap_Veri|
|00010c50| 66 79 48 65 61 70 22 2c | 73 6c 69 64 69 6e 67 68 |fyHeap",|slidingh|
|00010c60| 65 61 70 62 61 73 65 25 | 0d 65 54 05 e1 0d 65 5e |eapbase%|.eT...e^|
|00010c70| 05 3a 0d 65 68 23 dd 20 | f2 73 63 72 61 70 5f 73 |.:.eh#. |.scrap_s|
|00010c80| 6c 69 64 69 6e 67 5f 62 | 6c 6f 63 6b 28 61 6e 63 |liding_b|lock(anc|
|00010c90| 68 6f 72 25 29 0d 65 72 | 14 e7 20 21 61 6e 63 68 |hor%).er|.. !anch|
|00010ca0| 6f 72 25 3d 30 20 8c 20 | e1 0d 65 7c 38 c8 99 20 |or%=0 . |..e|8.. |
|00010cb0| 22 53 6c 69 64 69 6e 67 | 48 65 61 70 5f 53 63 72 |"Sliding|Heap_Scr|
|00010cc0| 61 70 42 6c 6f 63 6b 22 | 2c 73 6c 69 64 69 6e 67 |apBlock"|,sliding|
|00010cd0| 68 65 61 70 62 61 73 65 | 25 2c 61 6e 63 68 6f 72 |heapbase|%,anchor|
|00010ce0| 25 0d 65 86 31 74 72 79 | 73 69 7a 65 25 3d a4 5f |%.e.1try|size%=._|
|00010cf0| 68 65 61 70 5f 70 61 67 | 65 75 70 28 a4 5f 68 65 |heap_pag|eup(._he|
|00010d00| 61 70 5f 6e 65 78 74 66 | 72 65 65 2d 26 37 46 46 |ap_nextf|ree-&7FF|
|00010d10| 43 29 0d 65 90 1f e7 20 | 74 72 79 73 69 7a 65 25 |C).e... |trysize%|
|00010d20| 3c 3e 68 65 61 70 5f 74 | 72 69 67 67 65 72 25 20 |<>heap_t|rigger% |
|00010d30| 8c 0d 65 9a 1d 20 20 20 | f2 73 65 74 73 6c 6f 74 |..e..   |.setslot|
|00010d40| 73 69 7a 65 28 74 72 79 | 73 69 7a 65 25 29 0d 65 |size(try|size%).e|
|00010d50| a4 1d 20 20 20 68 65 61 | 70 5f 74 72 69 67 67 65 |..   hea|p_trigge|
|00010d60| 72 25 3d 74 72 79 73 69 | 7a 65 25 0d 65 ae 05 cd |r%=trysi|ze%.e...|
|00010d70| 0d 65 b8 0e 21 61 6e 63 | 68 6f 72 25 3d 30 0d 65 |.e..!anc|hor%=0.e|
|00010d80| c2 30 c8 99 20 22 53 6c | 69 64 69 6e 67 48 65 61 |.0.. "Sl|idingHea|
|00010d90| 70 5f 56 65 72 69 66 79 | 48 65 61 70 22 2c 73 6c |p_Verify|Heap",sl|
|00010da0| 69 64 69 6e 67 68 65 61 | 70 62 61 73 65 25 0d 65 |idinghea|pbase%.e|
|00010db0| cc 05 e1 0d 65 d6 05 3a | 0d 65 e0 1c dd 20 f2 73 |....e..:|.e... .s|
|00010dc0| 65 74 73 6c 6f 74 73 69 | 7a 65 28 6e 65 77 73 69 |etslotsi|ze(newsi|
|00010dd0| 7a 65 25 29 0d 65 ea 22 | c8 99 20 22 57 69 6d 70 |ze%).e."|.. "Wimp|
|00010de0| 5f 53 6c 6f 74 53 69 7a | 65 22 2c 6e 65 77 73 69 |_SlotSiz|e",newsi|
|00010df0| 7a 65 25 2c 2d 31 0d 65 | f4 05 e1 0d 65 fe 05 3a |ze%,-1.e|....e..:|
|00010e00| 0d 66 08 33 dd 20 f2 65 | 78 74 65 6e 64 5f 6e 61 |.f.3. .e|xtend_na|
|00010e10| 6d 65 64 5f 73 6c 69 64 | 69 6e 67 5f 62 6c 6f 63 |med_slid|ing_bloc|
|00010e20| 6b 28 61 6e 63 68 6f 72 | 25 2c 6e 65 77 73 69 7a |k(anchor|%,newsiz|
|00010e30| 65 25 29 0d 66 12 42 e7 | 20 21 61 6e 63 68 6f 72 |e%).f.B.| !anchor|
|00010e40| 25 3d 30 20 8c 20 f2 63 | 72 65 61 74 65 5f 6e 61 |%=0 . .c|reate_na|
|00010e50| 6d 65 64 5f 73 6c 69 64 | 69 6e 67 5f 62 6c 6f 63 |med_slid|ing_bloc|
|00010e60| 6b 28 61 6e 63 68 6f 72 | 25 2c 6e 65 77 73 69 7a |k(anchor|%,newsiz|
|00010e70| 65 25 29 3a e1 0d 66 1c | 41 e7 20 21 61 6e 63 68 |e%):..f.|A. !anch|
|00010e80| 6f 72 25 3e a4 5f 68 65 | 61 70 5f 6e 65 78 74 66 |or%>._he|ap_nextf|
|00010e90| 72 65 65 20 8c 20 85 20 | 31 32 39 2c 22 42 6c 6f |ree . . |129,"Blo|
|00010ea0| 63 6b 20 62 65 79 6f 6e | 64 20 68 65 61 70 20 6c |ck beyon|d heap l|
|00010eb0| 69 6d 69 74 73 22 0d 66 | 26 24 6e 65 77 73 69 7a |imits".f|&$newsiz|
|00010ec0| 65 25 3d a4 5f 68 65 61 | 70 5f 77 6f 72 64 75 70 |e%=._hea|p_wordup|
|00010ed0| 28 6e 65 77 73 69 7a 65 | 25 29 0d 66 30 48 c8 99 |(newsize|%).f0H..|
|00010ee0| 20 22 53 6c 69 64 69 6e | 67 48 65 61 70 5f 44 65 | "Slidin|gHeap_De|
|00010ef0| 73 63 72 69 62 65 42 6c | 6f 63 6b 22 2c 73 6c 69 |scribeBl|ock",sli|
|00010f00| 64 69 6e 67 68 65 61 70 | 62 61 73 65 25 2c 61 6e |dingheap|base%,an|
|00010f10| 63 68 6f 72 25 20 b8 20 | 2c 2c 6f 6c 64 73 69 7a |chor% . |,,oldsiz|
|00010f20| 65 25 0d 66 3a 1d 6c 61 | 72 67 65 72 25 3d 6e 65 |e%.f:.la|rger%=ne|
|00010f30| 77 73 69 7a 65 25 3e 6f | 6c 64 73 69 7a 65 25 0d |wsize%>o|ldsize%.|
|00010f40| 66 44 0f e7 20 6c 61 72 | 67 65 72 25 20 8c 0d 66 |fD.. lar|ger% ..f|
|00010f50| 4e 48 20 20 20 74 72 79 | 73 69 7a 65 25 3d a4 5f |NH   try|size%=._|
|00010f60| 68 65 61 70 5f 70 61 67 | 65 75 70 28 a4 5f 68 65 |heap_pag|eup(._he|
|00010f70| 61 70 5f 6e 65 78 74 66 | 72 65 65 2b 28 6e 65 77 |ap_nextf|ree+(new|
|00010f80| 73 69 7a 65 25 2d 6f 6c | 64 73 69 7a 65 25 29 2d |size%-ol|dsize%)-|
|00010f90| 26 37 46 46 43 29 0d 66 | 58 21 20 20 20 e7 20 74 |&7FFC).f|X!   . t|
|00010fa0| 72 79 73 69 7a 65 25 3e | 68 65 61 70 5f 74 72 69 |rysize%>|heap_tri|
|00010fb0| 67 67 65 72 25 20 8c 0d | 66 62 20 20 20 20 20 20 |gger% ..|fb      |
|00010fc0| 20 f2 73 65 74 73 6c 6f | 74 73 69 7a 65 28 74 72 | .setslo|tsize(tr|
|00010fd0| 79 73 69 7a 65 25 29 0d | 66 6c 26 20 20 20 20 20 |ysize%).|fl&     |
|00010fe0| 20 e7 20 a4 5f 68 65 61 | 70 5f 73 6c 6f 74 73 69 | . ._hea|p_slotsi|
|00010ff0| 7a 65 3c 74 72 79 73 69 | 7a 65 25 20 8c 0d 66 76 |ze<trysi|ze% ..fv|
|00011000| 28 20 20 20 20 20 20 20 | 20 20 f2 73 65 74 73 6c |(       |  .setsl|
|00011010| 6f 74 73 69 7a 65 28 68 | 65 61 70 5f 74 72 69 67 |otsize(h|eap_trig|
|00011020| 67 65 72 25 29 0d 66 80 | 40 20 20 20 20 20 20 20 |ger%).f.|@       |
|00011030| 20 20 85 20 31 33 32 2c | 22 4e 6f 74 20 65 6e 6f |  . 132,|"Not eno|
|00011040| 75 67 68 20 72 6f 6f 6d | 20 74 6f 20 65 78 74 65 |ugh room| to exte|
|00011050| 6e 64 20 62 6c 6f 63 6b | 20 23 22 2b c3 7e 61 6e |nd block| #"+.~an|
|00011060| 63 68 6f 72 25 0d 66 8a | 0b 20 20 20 20 20 20 cc |chor%.f.|.      .|
|00011070| 0d 66 94 23 20 20 20 20 | 20 20 20 20 20 68 65 61 |.f.#    |     hea|
|00011080| 70 5f 74 72 69 67 67 65 | 72 25 3d 74 72 79 73 69 |p_trigge|r%=trysi|
|00011090| 7a 65 25 0d 66 9e 0b 20 | 20 20 20 20 20 cd 0d 66 |ze%.f.. |     ..f|
|000110a0| a8 08 20 20 20 cd 0d 66 | b2 05 cd 0d 66 bc 42 c8 |..   ..f|....f.B.|
|000110b0| 99 20 22 53 6c 69 64 69 | 6e 67 48 65 61 70 5f 45 |. "Slidi|ngHeap_E|
|000110c0| 78 74 65 6e 64 42 6c 6f | 63 6b 22 2c 73 6c 69 64 |xtendBlo|ck",slid|
|000110d0| 69 6e 67 68 65 61 70 62 | 61 73 65 25 2c 61 6e 63 |ingheapb|ase%,anc|
|000110e0| 68 6f 72 25 2c 6e 65 77 | 73 69 7a 65 25 0d 66 c6 |hor%,new|size%.f.|
|000110f0| 31 74 72 79 73 69 7a 65 | 25 3d a4 5f 68 65 61 70 |1trysize|%=._heap|
|00011100| 5f 70 61 67 65 75 70 28 | a4 5f 68 65 61 70 5f 6e |_pageup(|._heap_n|
|00011110| 65 78 74 66 72 65 65 2d | 26 37 46 46 43 29 0d 66 |extfree-|&7FFC).f|
|00011120| d0 1f e7 20 74 72 79 73 | 69 7a 65 25 3c 3e 68 65 |... trys|ize%<>he|
|00011130| 61 70 5f 74 72 69 67 67 | 65 72 25 20 8c 0d 66 da |ap_trigg|er% ..f.|
|00011140| 1d 20 20 20 f2 73 65 74 | 73 6c 6f 74 73 69 7a 65 |.   .set|slotsize|
|00011150| 28 74 72 79 73 69 7a 65 | 25 29 0d 66 e4 1d 20 20 |(trysize|%).f..  |
|00011160| 20 68 65 61 70 5f 74 72 | 69 67 67 65 72 25 3d 74 | heap_tr|igger%=t|
|00011170| 72 79 73 69 7a 65 25 0d | 66 ee 05 cd 0d 66 f8 30 |rysize%.|f....f.0|
|00011180| c8 99 20 22 53 6c 69 64 | 69 6e 67 48 65 61 70 5f |.. "Slid|ingHeap_|
|00011190| 56 65 72 69 66 79 48 65 | 61 70 22 2c 73 6c 69 64 |VerifyHe|ap",slid|
|000111a0| 69 6e 67 68 65 61 70 62 | 61 73 65 25 0d 67 02 05 |ingheapb|ase%.g..|
|000111b0| e1 0d 67 0c 05 3a 0d 67 | 16 16 dd 20 a4 5f 68 65 |..g..:.g|... ._he|
|000111c0| 61 70 5f 62 79 74 65 73 | 28 62 25 29 0d 67 20 0a |ap_bytes|(b%).g .|
|000111d0| ea 20 65 6e 64 25 0d 67 | 2a 3e c8 99 20 22 4f 53 |. end%.g|*>.. "OS|
|000111e0| 5f 43 6f 6e 76 65 72 74 | 46 69 78 65 64 46 69 6c |_Convert|FixedFil|
|000111f0| 65 53 69 7a 65 22 2c 62 | 25 2c 62 6c 6f 63 6b 25 |eSize",b|%,block%|
|00011200| 2c 62 6c 6f 63 6b 25 2b | 26 31 30 30 20 b8 20 2c |,block%+|&100 . ,|
|00011210| 65 6e 64 25 0d 67 34 0c | 3f 65 6e 64 25 3d 31 33 |end%.g4.|?end%=13|
|00011220| 0d 67 3e 0c 3d 24 62 6c | 6f 63 6b 25 0d 67 48 05 |.g>.=$bl|ock%.gH.|
|00011230| 3a 0d 67 52 17 dd 20 a4 | 5f 68 65 61 70 5f 62 79 |:.gR.. .|_heap_by|
|00011240| 74 65 73 32 28 62 25 29 | 0d 67 5c 0a ea 20 65 6e |tes2(b%)|.g\.. en|
|00011250| 64 25 0d 67 66 39 c8 99 | 20 22 4f 53 5f 43 6f 6e |d%.gf9..| "OS_Con|
|00011260| 76 65 72 74 46 69 6c 65 | 53 69 7a 65 22 2c 62 25 |vertFile|Size",b%|
|00011270| 2c 62 6c 6f 63 6b 25 2c | 62 6c 6f 63 6b 25 2b 26 |,block%,|block%+&|
|00011280| 31 30 30 20 b8 20 2c 65 | 6e 64 25 0d 67 70 0c 3f |100 . ,e|nd%.gp.?|
|00011290| 65 6e 64 25 3d 31 33 0d | 67 7a 0c 3d 24 62 6c 6f |end%=13.|gz.=$blo|
|000112a0| 63 6b 25 0d 67 84 05 3a | 0d 67 8e 20 dd 20 a4 63 |ck%.g..:|.g. . .c|
|000112b0| 72 65 61 74 65 5f 66 69 | 78 65 64 5f 62 6c 6f 63 |reate_fi|xed_bloc|
|000112c0| 6b 28 73 69 7a 65 25 29 | 0d 67 98 14 ea 20 70 6f |k(size%)|.g... po|
|000112d0| 69 6e 74 65 72 25 2c 66 | 6c 61 67 25 0d 67 a2 3c |inter%,f|lag%.g.<|
|000112e0| c8 99 20 22 58 4f 53 5f | 48 65 61 70 22 2c 32 2c |.. "XOS_|Heap",2,|
|000112f0| 66 69 78 65 64 68 65 61 | 70 62 61 73 65 25 2c 2c |fixedhea|pbase%,,|
|00011300| 73 69 7a 65 25 20 b8 20 | 2c 2c 70 6f 69 6e 74 65 |size% . |,,pointe|
|00011310| 72 25 3b 66 6c 61 67 25 | 0d 67 ac 10 c8 95 20 66 |r%;flag%|.g.... f|
|00011320| 6c 61 67 25 20 80 20 31 | 0d 67 b6 14 f2 65 78 74 |lag% . 1|.g...ext|
|00011330| 65 6e 64 66 69 78 65 64 | 68 65 61 70 0d 67 c0 3c |endfixed|heap.g.<|
|00011340| c8 99 20 22 58 4f 53 5f | 48 65 61 70 22 2c 32 2c |.. "XOS_|Heap",2,|
|00011350| 66 69 78 65 64 68 65 61 | 70 62 61 73 65 25 2c 2c |fixedhea|pbase%,,|
|00011360| 73 69 7a 65 25 20 b8 20 | 2c 2c 70 6f 69 6e 74 65 |size% . |,,pointe|
|00011370| 72 25 3b 66 6c 61 67 25 | 0d 67 ca 05 ce 0d 67 d4 |r%;flag%|.g....g.|
|00011380| 0d 3d 70 6f 69 6e 74 65 | 72 25 0d 67 de 05 3a 0d |.=pointe|r%.g..:.|
|00011390| 67 e8 16 dd 20 f2 65 78 | 74 65 6e 64 66 69 78 65 |g... .ex|tendfixe|
|000113a0| 64 68 65 61 70 0d 67 f2 | 1c ea 20 6e 73 68 62 25 |dheap.g.|.. nshb%|
|000113b0| 2c 65 78 74 65 6e 64 25 | 2c 74 72 79 73 69 7a 65 |,extend%|,trysize|
|000113c0| 25 0d 67 fc 24 c8 99 20 | 22 4f 53 5f 52 65 61 64 |%.g.$.. |"OS_Read|
|000113d0| 4d 65 6d 4d 61 70 49 6e | 66 6f 22 20 b8 20 65 78 |MemMapIn|fo" . ex|
|000113e0| 74 65 6e 64 25 0d 68 06 | 24 74 72 79 73 69 7a 65 |tend%.h.|$trysize|
|000113f0| 25 3d a4 5f 68 65 61 70 | 5f 73 6c 6f 74 73 69 7a |%=._heap|_slotsiz|
|00011400| 65 2b 65 78 74 65 6e 64 | 25 0d 68 10 1a f2 73 65 |e+extend|%.h...se|
|00011410| 74 73 6c 6f 74 73 69 7a | 65 28 74 72 79 73 69 7a |tslotsiz|e(trysiz|
|00011420| 65 25 29 0d 68 1a 45 e7 | 20 a4 5f 68 65 61 70 5f |e%).h.E.| ._heap_|
|00011430| 73 6c 6f 74 73 69 7a 65 | 3c 74 72 79 73 69 7a 65 |slotsize|<trysize|
|00011440| 25 20 8c 20 85 20 32 35 | 35 2c 22 4e 6f 20 72 6f |% . . 25|5,"No ro|
|00011450| 6f 6d 20 74 6f 20 65 78 | 74 65 6e 64 20 66 69 78 |om to ex|tend fix|
|00011460| 65 64 20 68 65 61 70 22 | 0d 68 24 22 6e 73 68 62 |ed heap"|.h$"nshb|
|00011470| 25 3d 73 6c 69 64 69 6e | 67 68 65 61 70 62 61 73 |%=slidin|gheapbas|
|00011480| 65 25 2b 65 78 74 65 6e | 64 25 0d 68 2e 35 c8 99 |e%+exten|d%.h.5..|
|00011490| 20 22 53 6c 69 64 69 6e | 67 48 65 61 70 5f 53 68 | "Slidin|gHeap_Sh|
|000114a0| 69 66 74 48 65 61 70 22 | 2c 73 6c 69 64 69 6e 67 |iftHeap"|,sliding|
|000114b0| 68 65 61 70 62 61 73 65 | 25 2c 6e 73 68 62 25 0d |heapbase|%,nshb%.|
|000114c0| 68 38 2a c8 99 20 22 4f | 53 5f 48 65 61 70 22 2c |h8*.. "O|S_Heap",|
|000114d0| 35 2c 66 69 78 65 64 68 | 65 61 70 62 61 73 65 25 |5,fixedh|eapbase%|
|000114e0| 2c 2c 65 78 74 65 6e 64 | 25 0d 68 42 1b 66 69 78 |,,extend|%.hB.fix|
|000114f0| 65 64 68 65 61 70 73 69 | 7a 65 25 2b 3d 65 78 74 |edheapsi|ze%+=ext|
|00011500| 65 6e 64 25 0d 68 4c 1a | 73 6c 69 64 69 6e 67 68 |end%.hL.|slidingh|
|00011510| 65 61 70 62 61 73 65 25 | 3d 6e 73 68 62 25 0d 68 |eapbase%|=nshb%.h|
|00011520| 56 30 c8 99 20 22 53 6c | 69 64 69 6e 67 48 65 61 |V0.. "Sl|idingHea|
|00011530| 70 5f 56 65 72 69 66 79 | 48 65 61 70 22 2c 73 6c |p_Verify|Heap",sl|
|00011540| 69 64 69 6e 67 68 65 61 | 70 62 61 73 65 25 0d 68 |idinghea|pbase%.h|
|00011550| 60 05 e1 0d ff          |                         |`....   |        |
+--------+-------------------------+-------------------------+--------+--------+