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

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1c f4 20 3e 3c | 42 6c 6f 63 6b 24 44 69 |..... ><|Block$Di|
|00000010| 72 3e 2e 21 52 75 6e 49 | 6d 61 67 65 0d 00 14 05 |r>.!RunI|mage....|
|00000020| f4 0d 00 1e 2f f4 20 21 | 52 75 6e 49 6d 61 67 65 |..../. !|RunImage|
|00000030| 20 66 6f 72 20 21 42 6c | 6f 63 6b 20 2d 20 73 74 | for !Bl|ock - st|
|00000040| 75 64 65 6e 74 20 74 69 | 6d 65 74 61 62 6c 65 72 |udent ti|metabler|
|00000050| 0d 00 28 05 f4 0d 00 32 | 13 f4 20 a9 20 44 2e 4c |..(....2|.. . D.L|
|00000060| 2e 20 48 61 73 6c 61 6d | 0d 00 3c 05 3a 0d 00 46 |. Haslam|..<.:..F|
|00000070| 21 76 65 72 73 69 6f 6e | 24 3d 22 33 2e 31 30 20 |!version|$="3.10 |
|00000080| 28 31 31 2d 53 65 70 2d | 31 39 39 32 29 22 0d 00 |(11-Sep-|1992)"..|
|00000090| 50 2c 69 6e 74 76 65 72 | 73 69 6f 6e 24 3d 22 49 |P,intver|sion$="I|
|000000a0| 6e 74 65 72 66 61 63 65 | 20 4d 61 6e 61 67 65 72 |nterface| Manager|
|000000b0| 20 28 76 2e 32 2e 30 30 | 29 22 0d 00 5a 05 3a 0d | (v.2.00|)"..Z.:.|
|000000c0| 00 64 23 f4 20 48 65 61 | 70 20 4d 61 6e 61 67 65 |.d#. Hea|p Manage|
|000000d0| 72 20 28 6d 6f 64 75 6c | 65 20 2b 20 42 41 53 49 |r (modul|e + BASI|
|000000e0| 43 29 0d 00 6e 13 f4 20 | a9 20 53 2e 52 2e 20 48 |C)..n.. |. S.R. H|
|000000f0| 61 73 6c 61 6d 0d 00 78 | 05 3a 0d 00 82 21 f4 20 |aslam..x|.:...!. |
|00000100| 49 6e 74 65 72 66 61 63 | 65 20 4d 61 6e 61 67 65 |Interfac|e Manage|
|00000110| 72 20 28 76 2e 20 32 2e | 30 30 29 0d 00 8c 18 f4 |r (v. 2.|00).....|
|00000120| 20 a9 20 53 69 6d 6f 6e | 20 48 75 6e 74 69 6e 67 | . Simon| Hunting|
|00000130| 64 6f 6e 0d 00 96 05 3a | 0d 00 a0 20 6d 6f 61 6e |don....:|... moan|
|00000140| 5f 65 72 72 25 3d 32 35 | 34 3a 66 61 74 61 6c 5f |_err%=25|4:fatal_|
|00000150| 65 72 72 25 3d 32 35 35 | 0d 00 aa 48 ee 20 85 3a |err%=255|...H. .:|
|00000160| ee 20 85 20 87 3a 85 20 | 9f 2c 22 4c 30 20 65 72 |. . .:. |.,"L0 er|
|00000170| 72 6f 72 3a 20 22 2b f6 | 24 2b 22 20 64 75 72 69 |ror: "+.|$+" duri|
|00000180| 6e 67 20 69 6e 69 74 69 | 61 6c 69 73 61 74 69 6f |ng initi|alisatio|
|00000190| 6e 20 61 74 20 6c 69 6e | 65 20 22 2b c3 28 9e 29 |n at lin|e "+.(.)|
|000001a0| 0d 00 b4 0e 70 72 65 73 | 65 6e 74 25 3d a3 0d 00 |....pres|ent%=...|
|000001b0| be 0a f2 73 65 74 75 70 | 0d 00 c8 2e e7 20 62 75 |...setup|..... bu|
|000001c0| 66 66 25 3e 65 6e 64 62 | 75 66 66 25 20 8c 20 85 |ff%>endb|uff% . .|
|000001d0| 20 30 2c 22 4e 6f 20 72 | 6f 6f 6d 20 66 6f 72 20 | 0,"No r|oom for |
|000001e0| 64 65 66 73 2e 22 0d 00 | d2 32 e7 20 6d 65 6e 75 |defs."..|.2. menu|
|000001f0| 5f 70 74 72 25 3e 6d 65 | 6e 5f 65 6e 64 25 20 8c |_ptr%>me|n_end% .|
|00000200| 20 85 20 30 2c 22 4e 6f | 20 72 6f 6f 6d 20 66 6f | . 0,"No| room fo|
|00000210| 72 20 6d 65 6e 75 73 22 | 0d 00 dc 1f c8 99 20 22 |r menus"|...... "|
|00000220| 4f 53 5f 47 65 74 45 6e | 76 22 20 b8 20 43 6f 6d |OS_GetEn|v" . Com|
|00000230| 53 74 72 69 6e 67 24 0d | 00 e6 1d ee 20 85 20 f2 |String$.|.... . .|
|00000240| 77 69 6d 70 5f 65 72 72 | 6f 72 28 b9 2c 9f 2c 9e |wimp_err|or(.,.,.|
|00000250| 2c f6 24 29 0d 00 f0 20 | e7 20 a7 43 6f 6d 53 74 |,.$)... |. .ComSt|
|00000260| 72 69 6e 67 24 2c 22 2d | 64 61 74 61 62 61 73 65 |ring$,"-|database|
|00000270| 22 29 20 8c 0d 00 fa 34 | 20 20 46 69 6c 65 24 3d |") ....4|  File$=|
|00000280| c1 43 6f 6d 53 74 72 69 | 6e 67 24 2c a7 43 6f 6d |.ComStri|ng$,.Com|
|00000290| 53 74 72 69 6e 67 24 2c | 22 2d 64 61 74 61 62 61 |String$,|"-databa|
|000002a0| 73 65 22 29 2b 31 30 29 | 0d 01 04 35 20 20 c8 99 |se")+10)|...5  ..|
|000002b0| 20 22 4f 53 5f 47 53 54 | 72 61 6e 73 22 2c 46 69 | "OS_GST|rans",Fi|
|000002c0| 6c 65 24 2c c4 32 35 35 | 2c bd 31 33 29 2c 32 35 |le$,.255|,.13),25|
|000002d0| 35 20 b8 20 2c 46 69 6c | 65 24 2c 4c 25 0d 01 0e |5 . ,Fil|e$,L%...|
|000002e0| 16 20 20 46 69 6c 65 24 | 3d c0 46 69 6c 65 24 2c |.  File$|=.File$,|
|000002f0| 4c 25 29 0d 01 18 17 20 | 20 f2 67 65 74 5f 69 74 |L%).... | .get_it|
|00000300| 5f 69 6e 28 46 69 6c 65 | 24 29 0d 01 22 05 cd 0d |_in(File|$).."...|
|00000310| 01 2c 1d ee 20 85 20 f2 | 77 69 6d 70 5f 65 72 72 |.,.. . .|wimp_err|
|00000320| 6f 72 28 b9 2c 9f 2c 9e | 2c f6 24 29 0d 01 36 05 |or(.,.,.|,.$)..6.|
|00000330| f5 0d 01 40 0b 20 20 f2 | 70 6f 6c 6c 0d 01 4a 0b |...@.  .|poll..J.|
|00000340| fd 20 71 75 69 74 25 0d | 01 54 0f f2 63 6c 6f 73 |. quit%.|.T..clos|
|00000350| 65 5f 64 6f 77 6e 0d 01 | 5e 05 e0 0d 01 68 05 3a |e_down..|^....h.:|
|00000360| 0d 01 72 05 3a 0d 01 7c | 05 3a 0d 01 86 0b dd 20 |..r.:..||.:..... |
|00000370| f2 70 6f 6c 6c 0d 01 90 | 27 c8 99 20 22 4f 53 5f |.poll...|'.. "OS_|
|00000380| 42 79 74 65 22 2c 32 32 | 39 2c 31 3a c8 99 20 22 |Byte",22|9,1:.. "|
|00000390| 4f 53 5f 42 79 74 65 22 | 2c 31 32 34 0d 01 9a 29 |OS_Byte"|,124...)|
|000003a0| c8 99 20 22 57 69 6d 70 | 5f 50 6f 6c 6c 22 2c 6d |.. "Wimp|_Poll",m|
|000003b0| 61 73 6b 25 2c 62 6c 6f | 63 6b 25 20 b8 20 72 65 |ask%,blo|ck% . re|
|000003c0| 61 73 6f 6e 25 0d 01 a4 | 28 c8 99 20 22 49 6e 74 |ason%...|(.. "Int|
|000003d0| 65 72 66 61 63 65 5f 50 | 6f 6c 6c 22 2c 72 65 61 |erface_P|oll",rea|
|000003e0| 73 6f 6e 25 2c 2c 6d 79 | 74 61 73 6b 25 0d 01 ae |son%,,my|task%...|
|000003f0| 10 c8 8e 20 72 65 61 73 | 6f 6e 25 20 ca 0d 01 b8 |... reas|on% ....|
|00000400| 1a 20 20 c9 20 31 3a f2 | 72 65 64 72 61 77 28 21 |.  . 1:.|redraw(!|
|00000410| 62 6c 6f 63 6b 25 29 0d | 01 c2 0a 20 20 c9 20 32 |block%).|...  . 2|
|00000420| 3a 0d 01 cc 22 20 20 c8 | 99 20 22 57 69 6d 70 5f |:..."  .|. "Wimp_|
|00000430| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |OpenWind|ow",,blo|
|00000440| 63 6b 25 0d 01 d6 12 20 | 20 c8 8e 20 21 62 6c 6f |ck%.... | .. !blo|
|00000450| 63 6b 25 20 ca 0d 01 e0 | 29 20 20 20 20 c9 20 6d |ck% ....|)    . m|
|00000460| 61 69 6e 57 25 3a f2 75 | 70 64 61 74 65 5f 70 61 |ainW%:.u|pdate_pa|
|00000470| 6e 65 73 28 68 65 61 64 | 69 6e 67 57 25 29 0d 01 |nes(head|ingW%)..|
|00000480| ea 2b 20 20 20 20 c9 20 | 74 6f 74 61 6c 57 25 3a |.+    . |totalW%:|
|00000490| f2 75 70 64 61 74 65 5f | 70 61 6e 65 73 28 74 68 |.update_|panes(th|
|000004a0| 65 61 64 69 6e 67 57 25 | 29 0d 01 f4 2c 20 20 20 |eadingW%|)...,   |
|000004b0| 20 c9 20 77 65 69 67 68 | 74 57 25 3a f2 75 70 64 | . weigh|tW%:.upd|
|000004c0| 61 74 65 5f 70 61 6e 65 | 73 28 77 68 65 61 64 69 |ate_pane|s(wheadi|
|000004d0| 6e 67 57 25 29 0d 01 fe | 2d 20 20 20 20 c9 20 70 |ngW%)...|-    . p|
|000004e0| 72 6f 62 6c 65 6d 57 25 | 3a f2 75 70 64 61 74 65 |roblemW%|:.update|
|000004f0| 5f 70 61 6e 65 73 28 70 | 68 65 61 64 69 6e 67 57 |_panes(p|headingW|
|00000500| 25 29 0d 02 08 2b 20 20 | 20 20 c9 20 67 72 6f 75 |%)...+  |  . grou|
|00000510| 70 57 25 3a f2 75 70 64 | 61 74 65 5f 70 61 6e 65 |pW%:.upd|ate_pane|
|00000520| 73 28 67 68 65 61 64 69 | 6e 67 57 25 29 0d 02 12 |s(gheadi|ngW%)...|
|00000530| 07 20 20 cb 0d 02 1c 18 | 20 20 c9 20 33 3a f2 70 |.  .....|  . 3:.p|
|00000540| 65 72 66 6f 72 6d 5f 63 | 6c 6f 73 65 0d 02 26 17 |erform_c|lose..&.|
|00000550| 20 20 c9 20 34 3a f2 68 | 6f 75 72 67 6c 61 73 73 |  . 4:.h|ourglass|
|00000560| 28 a3 29 0d 02 30 17 20 | 20 c9 20 35 3a f2 68 6f |(.)..0. | . 5:.ho|
|00000570| 75 72 67 6c 61 73 73 28 | b9 29 0d 02 3a 40 20 20 |urglass(|.)..:@  |
|00000580| c9 20 36 3a f2 6d 6f 75 | 73 65 28 62 6c 6f 63 6b |. 6:.mou|se(block|
|00000590| 25 21 30 2c 62 6c 6f 63 | 6b 25 21 34 2c 62 6c 6f |%!0,bloc|k%!4,blo|
|000005a0| 63 6b 25 21 38 2c 62 6c | 6f 63 6b 25 21 31 32 2c |ck%!8,bl|ock%!12,|
|000005b0| 62 6c 6f 63 6b 25 21 31 | 36 29 0d 02 44 20 20 20 |block%!1|6)..D   |
|000005c0| c9 20 37 3a f2 65 6e 64 | 5f 64 72 61 67 28 53 74 |. 7:.end|_drag(St|
|000005d0| 61 72 74 25 2c 45 6e 64 | 25 29 0d 02 4e 16 20 20 |art%,End|%)..N.  |
|000005e0| c9 20 38 3a f2 70 72 6f | 63 65 73 73 5f 6b 65 79 |. 8:.pro|cess_key|
|000005f0| 0d 02 58 16 20 20 c9 20 | 39 3a f2 6d 65 6e 75 5f |..X.  . |9:.menu_|
|00000600| 73 65 6c 65 63 74 0d 02 | 62 16 20 20 c9 20 31 37 |select..|b.  . 17|
|00000610| 2c 31 38 3a f2 6d 65 73 | 73 61 67 65 0d 02 6c 0b |,18:.mes|sage..l.|
|00000620| 20 20 c9 20 31 39 3a 0d | 02 76 32 20 20 e7 20 62 |  . 19:.|.v2  . b|
|00000630| 6c 6f 63 6b 25 21 38 3d | 6d 79 72 65 66 25 20 8c |lock%!8=|myref% .|
|00000640| 20 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 36 2c | .. "OS_|File",6,|
|00000650| 62 6c 6f 63 6b 25 2b 34 | 34 0d 02 80 38 20 20 85 |block%+4|4...8  .|
|00000660| 20 32 35 34 2c 22 54 72 | 61 6e 73 66 65 72 20 6e | 254,"Tr|ansfer n|
|00000670| 6f 74 20 63 6f 6d 70 6c | 65 74 65 64 2e 20 52 65 |ot compl|eted. Re|
|00000680| 63 65 69 76 65 72 20 64 | 69 65 64 22 2b bd 28 30 |ceiver d|ied"+.(0|
|00000690| 29 0d 02 8a 05 cb 0d 02 | 94 05 e1 0d 02 9e 05 3a |).......|.......:|
|000006a0| 0d 02 a8 15 dd 20 f2 68 | 6f 75 72 67 6c 61 73 73 |..... .h|ourglass|
|000006b0| 28 6f 6e 25 29 0d 02 b2 | 3d e7 20 28 52 65 61 64 |(on%)...|=. (Read|
|000006c0| 69 6e 67 25 20 84 20 42 | 6c 6f 63 6b 69 6e 67 25 |ing% . B|locking%|
|000006d0| 20 84 20 50 72 69 6e 74 | 69 6e 67 25 29 20 80 20 | . Print|ing%) . |
|000006e0| 21 62 6c 6f 63 6b 25 3d | 6e 6f 74 69 66 79 57 25 |!block%=|notifyW%|
|000006f0| 20 8c 0d 02 bc 34 20 20 | e7 20 6f 6e 25 20 8c 20 | ....4  |. on% . |
|00000700| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 6e |.. "Hour|glass_On|
|00000710| 22 20 8b 20 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |" . .. "|Hourglas|
|00000720| 73 5f 4f 66 66 22 0d 02 | c6 05 cd 0d 02 d0 05 e1 |s_Off"..|........|
|00000730| 0d 02 da 05 3a 0d 02 e4 | 05 3a 0d 02 ee 05 3a 0d |....:...|.:....:.|
|00000740| 02 f8 49 f4 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..I. ---|--------|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 53 68 75 74 64 6f |--------|- Shutdo|
|00000760| 77 6e 20 72 6f 75 74 69 | 6e 65 73 20 2d 2d 2d 2d |wn routi|nes ----|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000780| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 03 02 05 3a 0d 03 0c |--------|....:...|
|00000790| 11 dd 20 f2 63 6c 6f 73 | 65 5f 64 6f 77 6e 0d 03 |.. .clos|e_down..|
|000007a0| 16 08 ea 20 46 25 0d 03 | 20 07 ea 20 85 0d 03 2a |... F%..| .. ...*|
|000007b0| 50 ee 20 85 20 ea 20 24 | 62 6c 6f 63 6b 25 3d 22 |P. . . $|block%="|
|000007c0| 54 41 53 4b 22 3a c8 99 | 20 22 57 69 6d 70 5f 43 |TASK":..| "Wimp_C|
|000007d0| 6c 6f 73 65 44 6f 77 6e | 22 2c 6d 79 74 61 73 6b |loseDown|",mytask|
|000007e0| 25 2c 21 62 6c 6f 63 6b | 25 3a eb 20 31 32 3a f6 |%,!block|%:. 12:.|
|000007f0| 3a f1 20 22 20 40 20 23 | 22 3b 9e 3a e0 0d 03 34 |:. " @ #|";.:...4|
|00000800| 09 f2 65 78 69 74 0d 03 | 3e 24 c8 99 20 22 49 6e |..exit..|>$.. "In|
|00000810| 74 65 72 66 61 63 65 5f | 43 6c 6f 73 65 44 6f 77 |terface_|CloseDow|
|00000820| 6e 22 2c 6d 79 74 61 73 | 6b 25 0d 03 48 08 f2 65 |n",mytas|k%..H..e|
|00000830| 6e 64 0d 03 52 05 e1 0d | 03 5c 05 3a 0d 03 66 0b |nd..R...|.\.:..f.|
|00000840| dd 20 f2 65 78 69 74 0d | 03 70 08 ea 20 49 25 0d |. .exit.|.p.. I%.|
|00000850| 03 7a 12 c8 99 20 22 4f | 53 5f 42 79 74 65 22 2c |.z... "O|S_Byte",|
|00000860| 33 0d 03 84 18 c8 99 20 | 22 48 6f 75 72 67 6c 61 |3...... |"Hourgla|
|00000870| 73 73 5f 53 6d 61 73 68 | 22 0d 03 8e 7a e7 20 77 |ss_Smash|"...z. w|
|00000880| 61 72 6e 25 20 80 20 72 | 61 6d 25 20 8c 20 e7 20 |arn% . r|am% . . |
|00000890| ac 20 a4 63 6f 6e 66 69 | 72 6d 28 22 43 6c 6f 73 |. .confi|rm("Clos|
|000008a0| 69 6e 67 20 64 6f 77 6e | 20 22 2b 24 64 61 74 61 |ing down| "+$data|
|000008b0| 62 61 73 65 25 2b 22 20 | 6f 6e 20 52 41 4d 20 64 |base%+" |on RAM d|
|000008c0| 69 73 63 2e 20 43 68 61 | 6e 67 65 73 20 6e 6f 74 |isc. Cha|nges not|
|000008d0| 20 63 6f 70 69 65 64 20 | 74 6f 20 70 65 72 6d 61 | copied |to perma|
|000008e0| 6e 65 6e 74 20 73 74 6f | 72 61 67 65 2e 22 29 20 |nent sto|rage.") |
|000008f0| 8c 20 e1 0d 03 98 10 f2 | 63 6c 6f 73 65 5f 66 69 |. ......|close_fi|
|00000900| 6c 65 73 0d 03 a2 11 f2 | 68 69 64 65 5f 77 69 6e |les.....|hide_win|
|00000910| 64 6f 77 73 0d 03 ac 1e | f2 64 65 6c 65 74 65 5f |dows....|.delete_|
|00000920| 69 63 6f 6e 73 28 64 61 | 74 61 64 69 63 57 25 2c |icons(da|tadicW%,|
|00000930| 30 29 0d 03 b6 13 f2 72 | 65 63 6f 76 65 72 5f 6d |0).....r|ecover_m|
|00000940| 65 6d 6f 72 79 0d 03 c0 | 0e f2 69 6e 69 74 5f 76 |emory...|..init_v|
|00000950| 61 72 73 0d 03 ca 11 24 | 50 61 73 73 77 6f 72 64 |ars....$|Password|
|00000960| 25 3d 22 22 0d 03 d4 0e | 70 72 65 73 65 6e 74 25 |%=""....|present%|
|00000970| 3d a3 0d 03 de 16 f2 6c | 69 74 28 6d 65 6e 75 25 |=......l|it(menu%|
|00000980| 28 30 29 2c 31 2c a3 29 | 0d 03 e8 16 f2 6c 69 74 |(0),1,.)|.....lit|
|00000990| 28 6d 65 6e 75 25 28 30 | 29 2c 32 2c a3 29 0d 03 |(menu%(0|),2,.)..|
|000009a0| f2 15 24 64 62 61 73 65 | 25 3d 22 4e 6f 20 64 61 |..$dbase|%="No da|
|000009b0| 74 61 22 0d 03 fc 1d f2 | 72 65 64 72 61 77 5f 69 |ta".....|redraw_i|
|000009c0| 63 6f 6e 28 2d 32 2c 61 | 70 70 69 63 6f 6e 25 29 |con(-2,a|ppicon%)|
|000009d0| 0d 04 06 0b 65 78 69 74 | 25 3d b9 0d 04 10 05 e1 |....exit|%=......|
|000009e0| 0d 04 1a 05 3a 0d 04 24 | 1c dd 20 f2 64 65 6c 65 |....:..$|.. .dele|
|000009f0| 74 65 5f 69 63 6f 6e 73 | 28 77 69 25 2c 69 63 25 |te_icons|(wi%,ic%|
|00000a00| 29 0d 04 2e 1c 21 62 6c | 6f 63 6b 25 3d 77 69 25 |)....!bl|ock%=wi%|
|00000a10| 3a 62 6c 6f 63 6b 25 21 | 34 3d 69 63 25 0d 04 38 |:block%!|4=ic%..8|
|00000a20| 05 f5 0d 04 42 22 20 20 | c8 99 20 22 57 69 6d 70 |....B"  |.. "Wimp|
|00000a30| 5f 44 65 6c 65 74 65 49 | 63 6f 6e 22 2c 2c 62 6c |_DeleteI|con",,bl|
|00000a40| 6f 63 6b 25 0d 04 4c 19 | 20 20 69 63 25 2b 3d 31 |ock%..L.|  ic%+=1|
|00000a50| 3a 62 6c 6f 63 6b 25 21 | 34 3d 69 63 25 0d 04 56 |:block%!|4=ic%..V|
|00000a60| 24 20 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |$  .. "W|imp_GetI|
|00000a70| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |conState|",,block|
|00000a80| 25 0d 04 60 1f fd 20 28 | 28 62 6c 6f 63 6b 25 21 |%..`.. (|(block%!|
|00000a90| 32 34 29 20 80 20 28 31 | 3c 3c 32 33 29 29 3e 30 |24) . (1|<<23))>0|
|00000aa0| 0d 04 6a 05 e1 0d 04 74 | 05 3a 0d 04 7e 12 dd 20 |..j....t|.:..~.. |
|00000ab0| f2 63 6c 6f 73 65 5f 66 | 69 6c 65 73 0d 04 88 1d |.close_f|iles....|
|00000ac0| f2 63 6c 6f 73 65 5f 66 | 69 6c 65 28 64 62 61 73 |.close_f|ile(dbas|
|00000ad0| 65 68 61 6e 64 6c 65 25 | 29 0d 04 92 05 e1 0d 04 |ehandle%|).......|
|00000ae0| 9c 05 3a 0d 04 a6 1c dd | 20 f2 63 6c 6f 73 65 5f |..:.....| .close_|
|00000af0| 66 69 6c 65 28 f8 20 68 | 61 6e 64 6c 65 25 29 0d |file(. h|andle%).|
|00000b00| 04 b0 11 e7 20 68 61 6e | 64 6c 65 25 3e 30 20 8c |.... han|dle%>0 .|
|00000b10| 0d 04 ba 0f 20 20 d9 23 | 68 61 6e 64 6c 65 25 0d |....  .#|handle%.|
|00000b20| 04 c4 0f 20 20 68 61 6e | 64 6c 65 25 3d 30 0d 04 |...  han|dle%=0..|
|00000b30| ce 05 cd 0d 04 d8 05 e1 | 0d 04 e2 05 3a 0d 04 ec |........|....:...|
|00000b40| 15 dd 20 f2 72 65 63 6f | 76 65 72 5f 6d 65 6d 6f |.. .reco|ver_memo|
|00000b50| 72 79 0d 04 f6 08 ea 20 | 49 25 0d 05 00 34 f2 73 |ry..... |I%...4.s|
|00000b60| 63 72 61 70 5f 73 6c 69 | 64 69 6e 67 5f 62 6c 6f |crap_sli|ding_blo|
|00000b70| 63 6b 28 6d 61 69 6e 61 | 6e 63 68 6f 72 25 29 3a |ck(maina|nchor%):|
|00000b80| 21 6d 61 69 6e 61 6e 63 | 68 6f 72 25 3d 30 0d 05 |!mainanc|hor%=0..|
|00000b90| 0a 36 f2 73 63 72 61 70 | 5f 73 6c 69 64 69 6e 67 |.6.scrap|_sliding|
|00000ba0| 5f 62 6c 6f 63 6b 28 74 | 6f 74 61 6c 61 6e 63 68 |_block(t|otalanch|
|00000bb0| 6f 72 25 29 3a 21 74 6f | 74 61 6c 61 6e 63 68 6f |or%):!to|talancho|
|00000bc0| 72 25 3d 30 0d 05 14 38 | f2 73 63 72 61 70 5f 73 |r%=0...8|.scrap_s|
|00000bd0| 6c 69 64 69 6e 67 5f 62 | 6c 6f 63 6b 28 77 65 69 |liding_b|lock(wei|
|00000be0| 67 68 74 61 6e 63 68 6f | 72 25 29 3a 21 77 65 69 |ghtancho|r%):!wei|
|00000bf0| 67 68 74 61 6e 63 68 6f | 72 25 3d 30 0d 05 1e 3a |ghtancho|r%=0...:|
|00000c00| f2 73 63 72 61 70 5f 73 | 6c 69 64 69 6e 67 5f 62 |.scrap_s|liding_b|
|00000c10| 6c 6f 63 6b 28 70 72 6f | 62 6c 65 6d 61 6e 63 68 |lock(pro|blemanch|
|00000c20| 6f 72 25 29 3a 21 70 72 | 6f 62 6c 65 6d 61 6e 63 |or%):!pr|oblemanc|
|00000c30| 68 6f 72 25 3d 30 0d 05 | 28 34 f2 73 63 72 61 70 |hor%=0..|(4.scrap|
|00000c40| 5f 73 6c 69 64 69 6e 67 | 5f 62 6c 6f 63 6b 28 74 |_sliding|_block(t|
|00000c50| 69 6d 65 61 6e 63 68 6f | 72 25 29 3a 21 74 69 6d |imeancho|r%):!tim|
|00000c60| 65 61 6e 63 68 6f 72 25 | 3d 30 0d 05 32 32 f2 73 |eanchor%|=0..22.s|
|00000c70| 63 72 61 70 5f 73 6c 69 | 64 69 6e 67 5f 62 6c 6f |crap_sli|ding_blo|
|00000c80| 63 6b 28 74 75 74 61 6e | 63 68 6f 72 25 29 3a 21 |ck(tutan|chor%):!|
|00000c90| 74 75 74 61 6e 63 68 6f | 72 25 3d 30 0d 05 3c 34 |tutancho|r%=0..<4|
|00000ca0| f2 73 63 72 61 70 5f 73 | 6c 69 64 69 6e 67 5f 62 |.scrap_s|liding_b|
|00000cb0| 6c 6f 63 6b 28 74 65 78 | 74 61 6e 63 68 6f 72 25 |lock(tex|tanchor%|
|00000cc0| 29 3a 21 74 65 78 74 61 | 6e 63 68 6f 72 25 3d 30 |):!texta|nchor%=0|
|00000cd0| 0d 05 46 32 f2 73 63 72 | 61 70 5f 73 6c 69 64 69 |..F2.scr|ap_slidi|
|00000ce0| 6e 67 5f 62 6c 6f 63 6b | 28 6b 65 79 61 6e 63 68 |ng_block|(keyanch|
|00000cf0| 6f 72 25 29 3a 21 6b 65 | 79 61 6e 63 68 6f 72 25 |or%):!ke|yanchor%|
|00000d00| 3d 30 0d 05 50 15 e3 20 | 49 25 3d 30 20 b8 20 4d |=0..P.. |I%=0 . M|
|00000d10| 61 78 54 61 62 73 25 0d | 05 5a 3c 20 20 f2 73 63 |axTabs%.|.Z<  .sc|
|00000d20| 72 61 70 5f 73 6c 69 64 | 69 6e 67 5f 62 6c 6f 63 |rap_slid|ing_bloc|
|00000d30| 6b 28 74 61 62 61 6e 63 | 68 6f 72 25 28 49 25 29 |k(tabanc|hor%(I%)|
|00000d40| 29 3a 21 74 61 62 61 6e | 63 68 6f 72 25 28 49 25 |):!taban|chor%(I%|
|00000d50| 29 3d 30 0d 05 64 08 ed | 20 49 25 0d 05 6e 05 e1 |)=0..d..| I%..n..|
|00000d60| 0d 05 78 05 3a 0d 05 82 | 0a dd 20 f2 65 6e 64 0d |..x.:...|.. .end.|
|00000d70| 05 8c 24 c8 99 20 22 49 | 6e 74 65 72 66 61 63 65 |..$.. "I|nterface|
|00000d80| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 2c 6d 79 74 61 |_CloseDo|wn",myta|
|00000d90| 73 6b 25 0d 05 96 12 24 | 62 6c 6f 63 6b 25 3d 22 |sk%....$|block%="|
|00000da0| 54 41 53 4b 22 0d 05 a0 | 27 c8 99 20 22 57 69 6d |TASK"...|'.. "Wim|
|00000db0| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 2c 6d 79 74 |p_CloseD|own",myt|
|00000dc0| 61 73 6b 25 2c 21 62 6c | 6f 63 6b 25 0d 05 aa 05 |ask%,!bl|ock%....|
|00000dd0| e0 0d 05 b4 05 e1 0d 05 | be 06 20 3a 0d 05 c8 48 |........|.. :...H|
|00000de0| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00000df0| 2d 2d 2d 20 45 6e 64 20 | 6f 66 20 53 68 75 74 64 |--- End |of Shutd|
|00000e00| 6f 77 6e 20 72 6f 75 74 | 69 6e 65 73 20 2d 2d 2d |own rout|ines ---|
|00000e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e20| 2d 2d 2d 2d 0d 05 d2 05 | 3a 0d 05 dc 05 3a 0d 05 |----....|:....:..|
|00000e30| e6 05 3a 0d 05 f0 48 f4 | 20 2d 2d 2d 2d 2d 2d 2d |..:...H.| -------|
|00000e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 45 |--------|------ E|
|00000e50| 72 72 6f 72 20 68 61 6e | 64 6c 69 6e 67 20 2d 2d |rror han|dling --|
|00000e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 05 fa 05 3a |--------|---....:|
|00000e80| 0d 06 04 29 dd 20 f2 77 | 69 6d 70 5f 65 72 72 6f |...). .w|imp_erro|
|00000e90| 72 28 72 65 74 75 72 6e | 25 2c 65 72 72 25 2c 65 |r(return|%,err%,e|
|00000ea0| 72 6c 25 2c 65 72 72 24 | 29 0d 06 0e 13 ea 20 74 |rl%,err$|)..... t|
|00000eb0| 79 70 65 25 2c 72 65 73 | 75 6c 74 25 0d 06 18 07 |ype%,res|ult%....|
|00000ec0| ea 20 85 0d 06 22 55 ee | 20 85 20 ea 20 ee 20 85 |. ..."U.| . . . .|
|00000ed0| 20 87 3a f2 63 6c 6f 73 | 65 5f 64 6f 77 6e 3a 85 | .:.clos|e_down:.|
|00000ee0| 20 9f 2c 22 4c 30 20 65 | 72 72 6f 72 3a 20 22 2b | .,"L0 e|rror: "+|
|00000ef0| f6 24 2b 22 20 64 75 72 | 69 6e 67 20 65 72 72 6f |.$+" dur|ing erro|
|00000f00| 72 20 68 61 6e 64 6c 65 | 72 20 61 74 20 6c 69 6e |r handle|r at lin|
|00000f10| 65 20 22 2b c3 28 9e 29 | 0d 06 2c 1e c8 99 20 22 |e "+.(.)|..,... "|
|00000f20| 57 69 6d 70 5f 43 6f 6d | 6d 61 6e 64 57 69 6e 64 |Wimp_Com|mandWind|
|00000f30| 6f 77 22 2c 2d 31 0d 06 | 36 11 62 6c 6f 63 6b 25 |ow",-1..|6.block%|
|00000f40| 21 30 3d 65 72 72 25 0d | 06 40 22 e7 20 72 65 74 |!0=err%.|.@". ret|
|00000f50| 75 72 6e 25 20 80 20 65 | 72 72 25 3c 3e 66 61 74 |urn% . e|rr%<>fat|
|00000f60| 61 6c 5f 65 72 72 25 20 | 8c 0d 06 4a 18 20 20 e7 |al_err% |...J.  .|
|00000f70| 20 65 72 72 25 3d 6d 6f | 61 6e 5f 65 72 72 25 20 | err%=mo|an_err% |
|00000f80| 8c 0d 06 54 3a 20 20 20 | 20 74 79 70 65 25 3d 26 |...T:   | type%=&|
|00000f90| 31 31 3a f4 20 4f 4b 20 | 62 75 74 74 6f 6e 20 61 |11:. OK |button a|
|00000fa0| 6e 64 20 6e 6f 20 22 45 | 72 72 6f 72 20 66 72 6f |nd no "E|rror fro|
|00000fb0| 6d 22 20 69 6e 20 74 69 | 74 6c 65 0d 06 5e 09 20 |m" in ti|tle..^. |
|00000fc0| 20 20 20 cc 0d 06 68 27 | 20 20 20 20 74 79 70 65 |   ...h'|    type|
|00000fd0| 25 3d 33 3a f4 20 4f 4b | 20 61 6e 64 20 43 61 6e |%=3:. OK| and Can|
|00000fe0| 63 65 6c 20 62 75 74 74 | 6f 6e 73 0d 06 72 40 20 |cel butt|ons..r@ |
|00000ff0| 20 20 20 65 72 72 24 2b | 3d 22 20 61 74 20 22 2b |   err$+|=" at "+|
|00001000| c3 28 65 72 6c 25 29 2b | 22 20 28 4f 4b 20 74 6f |.(erl%)+|" (OK to|
|00001010| 20 63 6f 6e 74 69 6e 75 | 65 2c 20 43 61 6e 63 65 | continu|e, Cance|
|00001020| 6c 20 74 6f 20 71 75 69 | 74 29 22 0d 06 7c 07 20 |l to qui|t)"..|. |
|00001030| 20 cd 0d 06 86 07 20 20 | cc 0d 06 90 1d 20 20 74 | .....  |.....  t|
|00001040| 79 70 65 25 3d 32 3a f4 | 20 43 61 6e 63 65 6c 20 |ype%=2:.| Cancel |
|00001050| 62 75 74 74 6f 6d 0d 06 | 9a 37 20 20 65 72 72 24 |buttom..|.7  err$|
|00001060| 2b 3d 22 20 61 74 20 22 | 2b c3 28 65 72 6c 25 29 |+=" at "|+.(erl%)|
|00001070| 2b 22 20 28 42 6c 6f 63 | 6b 20 6d 75 73 74 20 71 |+" (Bloc|k must q|
|00001080| 75 69 74 20 61 74 20 6f | 6e 63 65 29 22 0d 06 a4 |uit at o|nce)"...|
|00001090| 05 cd 0d 06 ae 19 24 28 | 62 6c 6f 63 6b 25 2b 34 |......$(|block%+4|
|000010a0| 29 3d 65 72 72 24 2b bd | 28 30 29 0d 06 b8 39 c8 |)=err$+.|(0)...9.|
|000010b0| 99 20 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |. "Wimp_|ReportEr|
|000010c0| 72 6f 72 22 2c 62 6c 6f | 63 6b 25 2c 74 79 70 65 |ror",blo|ck%,type|
|000010d0| 25 2c 22 42 6c 6f 63 6b | 22 20 b8 20 2c 72 65 73 |%,"Block|" . ,res|
|000010e0| 75 6c 74 25 0d 06 c2 39 | f4 20 72 65 73 75 6c 74 |ult%...9|. result|
|000010f0| 3d 31 20 6d 65 61 6e 73 | 20 4f 4b 20 73 65 6c 65 |=1 means| OK sele|
|00001100| 63 74 65 64 2c 20 32 20 | 6d 65 61 6e 73 20 43 61 |cted, 2 |means Ca|
|00001110| 6e 63 65 6c 20 73 65 6c | 65 63 74 65 64 0d 06 cc |ncel sel|ected...|
|00001120| 11 e7 20 72 65 73 75 6c | 74 25 3d 32 20 8c 0d 06 |.. resul|t%=2 ...|
|00001130| d6 11 20 20 f2 63 6c 6f | 73 65 5f 64 6f 77 6e 0d |..  .clo|se_down.|
|00001140| 06 e0 07 20 20 e0 0d 06 | ea 05 cd 0d 06 f4 07 f7 |...  ...|........|
|00001150| 20 85 0d 06 fe 05 e1 0d | 07 08 05 3a 0d 07 12 46 | .......|...:...F|
|00001160| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00001170| 2d 2d 20 45 6e 64 20 6f | 66 20 65 72 72 6f 72 20 |-- End o|f error |
|00001180| 68 61 6e 64 6c 69 6e 67 | 20 2d 2d 2d 2d 2d 2d 2d |handling| -------|
|00001190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011a0| 2d 2d 0d 07 1c 05 3a 0d | 07 26 05 3a 0d 07 30 05 |--....:.|.&.:..0.|
|000011b0| 3a 0d 07 3a 45 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |:..:E. -|--------|
|000011c0| 2d 2d 2d 2d 2d 2d 2d 2d | 20 50 72 6f 67 72 61 6d |--------| Program|
|000011d0| 20 69 6e 69 74 69 61 6c | 69 73 61 74 69 6f 6e 20 | initial|isation |
|000011e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011f0| 2d 2d 2d 2d 2d 2d 0d 07 | 44 05 3a 0d 07 4e 0c dd |------..|D.:..N..|
|00001200| 20 f2 73 65 74 75 70 0d | 07 58 18 ea 20 41 25 2c | .setup.|.X.. A%,|
|00001210| 49 25 2c 4a 25 2c 56 25 | 2c 76 61 6c 69 64 24 0d |I%,J%,V%|,valid$.|
|00001220| 07 62 1d 46 3d 8e 28 22 | 3c 42 6c 6f 63 6b 24 44 |.b.F=.("|<Block$D|
|00001230| 69 72 3e 2e 43 6f 6e 66 | 69 67 22 29 0d 07 6c 15 |ir>.Conf|ig")..l.|
|00001240| 4d 61 78 42 6c 6f 63 6b | 73 25 3d bb 28 be 23 46 |MaxBlock|s%=.(.#F|
|00001250| 29 0d 07 76 15 44 65 66 | 42 6c 6f 63 6b 73 25 3d |)..v.Def|Blocks%=|
|00001260| bb 28 be 23 46 29 0d 07 | 80 13 4d 61 78 53 75 62 |.(.#F)..|..MaxSub|
|00001270| 73 25 3d bb 28 be 23 46 | 29 0d 07 8a 13 4d 61 78 |s%=.(.#F|)....Max|
|00001280| 52 65 63 73 25 3d bb 28 | be 23 46 29 0d 07 94 13 |Recs%=.(|.#F)....|
|00001290| 4d 61 78 54 75 74 73 25 | 3d bb 28 be 23 46 29 0d |MaxTuts%|=.(.#F).|
|000012a0| 07 9e 29 43 24 3d be 23 | 46 3a 50 25 3d a7 43 24 |..)C$=.#|F:P%=.C$|
|000012b0| 2c 22 20 22 29 3a 43 6f | 75 72 73 65 73 24 3d c0 |," "):Co|urses$=.|
|000012c0| 43 24 2c 50 25 2d 31 29 | 0d 07 a8 12 f2 63 6c 6f |C$,P%-1)|.....clo|
|000012d0| 73 65 5f 66 69 6c 65 28 | 46 29 0d 07 b2 1d 4d 61 |se_file(|F)....Ma|
|000012e0| 78 46 69 65 6c 64 73 25 | 3d 31 30 30 3a 4d 61 78 |xFields%|=100:Max|
|000012f0| 54 61 62 73 25 3d 36 0d | 07 bc 0f f2 64 69 6d 5f |Tabs%=6.|....dim_|
|00001300| 61 72 72 61 79 73 0d 07 | c6 0e f2 69 6e 69 74 5f |arrays..|...init_|
|00001310| 76 61 72 73 0d 07 d0 45 | f4 20 2d 2d 2d 2d 2d 2d |vars...E|. ------|
|00001320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 49 6e 69 |--------|---- Ini|
|00001330| 74 69 61 6c 69 73 65 20 | 57 69 6d 70 20 2d 2d 2d |tialise |Wimp ---|
|00001340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 07 da 12 24 62 6c |--------|-....$bl|
|00001360| 6f 63 6b 25 3d 22 54 41 | 53 4b 22 0d 07 e4 19 6d |ock%="TA|SK"....m|
|00001370| 61 73 6b 25 3d 28 31 3c | 3c 31 31 29 2b 28 31 3c |ask%=(1<|<11)+(1<|
|00001380| 3c 31 32 29 0d 07 ee 3f | c8 99 20 22 57 69 6d 70 |<12)...?|.. "Wimp|
|00001390| 5f 49 6e 69 74 69 61 6c | 69 73 65 22 2c 32 30 30 |_Initial|ise",200|
|000013a0| 2c 21 62 6c 6f 63 6b 25 | 2c 22 42 6c 6f 63 6b 22 |,!block%|,"Block"|
|000013b0| 20 b8 20 76 65 72 73 69 | 6f 6e 25 2c 6d 79 74 61 | . versi|on%,myta|
|000013c0| 73 6b 25 0d 07 f8 25 c8 | 99 20 22 49 6e 74 65 72 |sk%...%.|. "Inter|
|000013d0| 66 61 63 65 5f 49 6e 69 | 74 69 61 6c 69 73 65 22 |face_Ini|tialise"|
|000013e0| 2c 6d 79 74 61 73 6b 25 | 0d 08 02 3c f4 20 69 63 |,mytask%|...<. ic|
|000013f0| 6f 6e 25 3d 46 4e 63 72 | 65 61 74 65 5f 69 63 6f |on%=FNcr|eate_ico|
|00001400| 6e 28 2d 31 2c 30 2c 30 | 2c 36 38 2c 37 32 2c 26 |n(-1,0,0|,68,72,&|
|00001410| 33 30 30 32 2c 22 21 42 | 6c 6f 63 6b 22 2c 30 2c |3002,"!B|lock",0,|
|00001420| 30 2c 30 29 0d 08 0c 4d | 61 70 70 69 63 6f 6e 25 |0,0)...M|appicon%|
|00001430| 3d a4 63 72 65 61 74 65 | 5f 69 63 6f 6e 28 2d 31 |=.create|_icon(-1|
|00001440| 2c 30 2c 2d 31 36 2c 31 | 34 34 2c 31 31 30 2c 26 |,0,-16,1|44,110,&|
|00001450| 31 37 30 30 33 31 32 42 | 2c 22 22 2c 64 62 61 73 |1700312B|,"",dbas|
|00001460| 65 25 2c 61 70 70 73 70 | 72 69 74 65 25 2c 31 30 |e%,appsp|rite%,10|
|00001470| 29 0d 08 16 40 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |)...@. -|--------|
|00001480| 20 53 65 74 20 75 70 20 | 48 65 61 70 20 4d 61 6e | Set up |Heap Man|
|00001490| 61 67 65 72 20 26 20 63 | 72 65 61 74 65 20 61 6e |ager & c|reate an|
|000014a0| 63 68 6f 72 73 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |chors --|--------|
|000014b0| 2d 0d 08 20 17 f2 69 6e | 69 74 68 65 61 70 73 28 |-.. ..in|itheaps(|
|000014c0| 31 32 38 2c 31 32 38 29 | 0d 08 2a 33 c8 99 20 22 |128,128)|..*3.. "|
|000014d0| 4f 53 5f 46 69 6c 65 22 | 2c 35 2c 22 3c 42 6c 6f |OS_File"|,5,"<Blo|
|000014e0| 63 6b 24 44 69 72 3e 2e | 53 70 72 69 74 65 73 22 |ck$Dir>.|Sprites"|
|000014f0| 20 b8 20 2c 2c 2c 2c 6c | 65 6e 25 0d 08 34 26 73 | . ,,,,l|en%..4&s|
|00001500| 70 72 69 74 65 73 25 3d | a4 63 72 65 61 74 65 5f |prites%=|.create_|
|00001510| 66 69 78 65 64 5f 62 6c | 6f 63 6b 28 6c 65 6e 25 |fixed_bl|ock(len%|
|00001520| 29 0d 08 3e 14 21 73 70 | 72 69 74 65 73 25 3d 6c |)..>.!sp|rites%=l|
|00001530| 65 6e 25 2b 34 0d 08 48 | 35 c8 99 20 22 4f 53 5f |en%+4..H|5.. "OS_|
|00001540| 46 69 6c 65 22 2c 32 35 | 35 2c 22 3c 42 6c 6f 63 |File",25|5,"<Bloc|
|00001550| 6b 24 44 69 72 3e 2e 53 | 70 72 69 74 65 73 22 2c |k$Dir>.S|prites",|
|00001560| 73 70 72 69 74 65 73 25 | 2b 34 0d 08 52 26 6d 61 |sprites%|+4..R&ma|
|00001570| 69 6e 61 6e 63 68 6f 72 | 25 3d a4 63 72 65 61 74 |inanchor|%=.creat|
|00001580| 65 5f 61 6e 63 68 6f 72 | 28 22 54 65 78 74 22 29 |e_anchor|("Text")|
|00001590| 0d 08 5c 2b 77 65 69 67 | 68 74 61 6e 63 68 6f 72 |..\+weig|htanchor|
|000015a0| 25 3d a4 63 72 65 61 74 | 65 5f 61 6e 63 68 6f 72 |%=.creat|e_anchor|
|000015b0| 28 22 57 65 69 67 68 74 | 73 22 29 0d 08 66 29 74 |("Weight|s")..f)t|
|000015c0| 6f 74 61 6c 61 6e 63 68 | 6f 72 25 3d a4 63 72 65 |otalanch|or%=.cre|
|000015d0| 61 74 65 5f 61 6e 63 68 | 6f 72 28 22 54 6f 74 61 |ate_anch|or("Tota|
|000015e0| 6c 73 22 29 0d 08 70 2d | 70 72 6f 62 6c 65 6d 61 |ls")..p-|problema|
|000015f0| 6e 63 68 6f 72 25 3d a4 | 63 72 65 61 74 65 5f 61 |nchor%=.|create_a|
|00001600| 6e 63 68 6f 72 28 22 50 | 72 6f 62 6c 65 6d 73 22 |nchor("P|roblems"|
|00001610| 29 0d 08 7a 27 74 69 6d | 65 61 6e 63 68 6f 72 25 |)..z'tim|eanchor%|
|00001620| 3d a4 63 72 65 61 74 65 | 5f 61 6e 63 68 6f 72 28 |=.create|_anchor(|
|00001630| 22 54 69 6d 65 73 22 29 | 0d 08 84 27 74 75 74 61 |"Times")|...'tuta|
|00001640| 6e 63 68 6f 72 25 3d a4 | 63 72 65 61 74 65 5f 61 |nchor%=.|create_a|
|00001650| 6e 63 68 6f 72 28 22 54 | 75 74 6f 72 73 22 29 0d |nchor("T|utors").|
|00001660| 08 8e 28 74 65 78 74 61 | 6e 63 68 6f 72 25 3d a4 |..(texta|nchor%=.|
|00001670| 63 72 65 61 74 65 5f 61 | 6e 63 68 6f 72 28 22 47 |create_a|nchor("G|
|00001680| 72 6f 75 70 73 22 29 0d | 08 98 2b 6b 65 79 61 6e |roups").|..+keyan|
|00001690| 63 68 6f 72 25 3d a4 63 | 72 65 61 74 65 5f 61 6e |chor%=.c|reate_an|
|000016a0| 63 68 6f 72 28 22 50 72 | 69 6d 61 72 79 4b 65 79 |chor("Pr|imaryKey|
|000016b0| 22 29 0d 08 a2 15 e3 20 | 49 25 3d 30 20 b8 20 4d |")..... |I%=0 . M|
|000016c0| 61 78 54 61 62 73 25 0d | 08 ac 36 20 20 20 74 61 |axTabs%.|..6   ta|
|000016d0| 62 61 6e 63 68 6f 72 25 | 28 49 25 29 3d a4 63 72 |banchor%|(I%)=.cr|
|000016e0| 65 61 74 65 5f 61 6e 63 | 68 6f 72 28 22 56 54 61 |eate_anc|hor("VTa|
|000016f0| 62 6c 65 20 23 22 2b c3 | 28 49 25 29 29 0d 08 b6 |ble #"+.|(I%))...|
|00001700| 08 ed 20 49 25 0d 08 c0 | 45 f4 20 2d 2d 2d 2d 2d |.. I%...|E. -----|
|00001710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 08 ca 2e f2 67 |--------|--.....g|
|00001750| 65 74 73 63 72 65 65 6e | 73 69 7a 65 28 53 63 72 |etscreen|size(Scr|
|00001760| 65 65 6e 57 69 64 74 68 | 25 2c 53 63 72 65 65 6e |eenWidth|%,Screen|
|00001770| 48 65 69 67 68 74 25 29 | 0d 08 d4 13 f2 63 72 65 |Height%)|.....cre|
|00001780| 61 74 65 5f 77 69 6e 64 | 6f 77 73 0d 08 de 0f f2 |ate_wind|ows.....|
|00001790| 6d 61 6b 65 5f 6d 65 6e | 75 73 0d 08 e8 05 e1 0d |make_men|us......|
|000017a0| 08 f2 05 3a 0d 08 fc 11 | dd 20 f2 64 69 6d 5f 61 |...:....|. .dim_a|
|000017b0| 72 72 61 79 73 0d 09 06 | 7a de 20 6e 75 6d 73 25 |rrays...|z. nums%|
|000017c0| 28 4d 61 78 42 6c 6f 63 | 6b 73 25 29 2c 70 65 72 |(MaxBloc|ks%),per|
|000017d0| 6d 25 28 4d 61 78 42 6c | 6f 63 6b 73 25 29 2c 72 |m%(MaxBl|ocks%),r|
|000017e0| 65 73 6e 75 6d 73 25 28 | 4d 61 78 42 6c 6f 63 6b |esnums%(|MaxBlock|
|000017f0| 73 25 29 2c 72 65 73 70 | 65 72 6d 25 28 4d 61 78 |s%),resp|erm%(Max|
|00001800| 42 6c 6f 63 6b 73 25 29 | 2c 62 65 73 74 25 28 4d |Blocks%)|,best%(M|
|00001810| 61 78 42 6c 6f 63 6b 73 | 25 29 2c 73 75 62 6a 65 |axBlocks|%),subje|
|00001820| 63 74 25 28 4d 61 78 42 | 6c 6f 63 6b 73 25 29 0d |ct%(MaxB|locks%).|
|00001830| 09 10 9c de 20 53 75 62 | 63 6f 64 65 24 28 4d 61 |.... Sub|code$(Ma|
|00001840| 78 53 75 62 73 25 29 2c | 53 75 62 6e 61 6d 65 24 |xSubs%),|Subname$|
|00001850| 28 4d 61 78 53 75 62 73 | 25 29 2c 53 75 62 64 65 |(MaxSubs|%),Subde|
|00001860| 70 74 24 28 4d 61 78 53 | 75 62 73 25 29 2c 74 6f |pt$(MaxS|ubs%),to|
|00001870| 74 61 6c 25 28 4d 61 78 | 53 75 62 73 25 2c 4d 61 |tal%(Max|Subs%,Ma|
|00001880| 78 42 6c 6f 63 6b 73 25 | 29 2c 77 65 69 67 68 74 |xBlocks%|),weight|
|00001890| 69 6e 67 25 28 4d 61 78 | 53 75 62 73 25 2c 4d 61 |ing%(Max|Subs%,Ma|
|000018a0| 78 42 6c 6f 63 6b 73 25 | 29 2c 73 75 62 6e 75 6d |xBlocks%|),subnum|
|000018b0| 62 65 72 25 28 4d 61 78 | 52 65 63 73 25 2c 4d 61 |ber%(Max|Recs%,Ma|
|000018c0| 78 42 6c 6f 63 6b 73 25 | 2b 31 29 0d 09 1a 46 de |xBlocks%|+1)...F.|
|000018d0| 20 6e 61 6d 65 24 28 4d | 61 78 52 65 63 73 25 29 | name$(M|axRecs%)|
|000018e0| 2c 64 65 70 74 24 28 4d | 61 78 52 65 63 73 25 29 |,dept$(M|axRecs%)|
|000018f0| 2c 74 75 74 24 28 4d 61 | 78 52 65 63 73 25 29 2c |,tut$(Ma|xRecs%),|
|00001900| 72 65 63 6e 75 6d 25 28 | 4d 61 78 52 65 63 73 25 |recnum%(|MaxRecs%|
|00001910| 29 0d 09 24 64 de 20 74 | 75 74 6f 72 24 28 4d 61 |)..$d. t|utor$(Ma|
|00001920| 78 54 75 74 73 25 2b 31 | 2c 33 29 2c 67 72 70 6d |xTuts%+1|,3),grpm|
|00001930| 61 78 25 28 4d 61 78 54 | 75 74 73 25 29 2c 74 75 |ax%(MaxT|uts%),tu|
|00001940| 74 67 72 70 25 28 4d 61 | 78 54 75 74 73 25 29 2c |tgrp%(Ma|xTuts%),|
|00001950| 62 65 73 74 74 75 74 25 | 28 4d 61 78 54 75 74 73 |besttut%|(MaxTuts|
|00001960| 25 29 2c 70 6f 73 73 74 | 75 74 25 28 4d 61 78 54 |%),posst|ut%(MaxT|
|00001970| 75 74 73 25 29 0d 09 2e | 17 e3 20 49 25 3d 30 20 |uts%)...|.. I%=0 |
|00001980| b8 20 4d 61 78 42 6c 6f | 63 6b 73 25 0d 09 38 15 |. MaxBlo|cks%..8.|
|00001990| 20 20 72 65 73 6e 75 6d | 73 25 28 49 25 29 3d 49 |  resnum|s%(I%)=I|
|000019a0| 25 0d 09 42 08 ed 20 49 | 25 0d 09 4c 14 de 20 46 |%..B.. I|%..L.. F|
|000019b0| 24 28 4d 61 78 46 69 65 | 6c 64 73 25 29 0d 09 56 |$(MaxFie|lds%)..V|
|000019c0| 21 de 20 4b 4c 25 28 31 | 30 29 2c 4b 46 25 28 31 |!. KL%(1|0),KF%(1|
|000019d0| 30 2c 31 29 2c 4b 57 25 | 28 31 30 2c 33 29 0d 09 |0,1),KW%|(10,3)..|
|000019e0| 60 0d de 20 6b 65 79 20 | 32 35 36 0d 09 6a 1a de |`.. key |256..j..|
|000019f0| 20 6d 65 6e 75 25 28 31 | 32 29 2c 63 68 6f 69 63 | menu%(1|2),choic|
|00001a00| 65 24 28 34 29 0d 09 74 | 20 de 20 74 61 62 6c 65 |e$(4)..t| . table|
|00001a10| 24 28 31 39 29 2c 74 61 | 62 66 69 65 6c 64 6c 65 |$(19),ta|bfieldle|
|00001a20| 6e 25 28 39 29 0d 09 7e | 13 de 20 74 69 6d 65 73 |n%(9)..~|.. times|
|00001a30| 6c 6f 74 73 25 20 38 30 | 0d 09 88 4a f4 20 2d 2d |lots% 80|...J. --|
|00001a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a50| 2d 2d 20 41 6c 6c 6f 63 | 61 74 65 20 62 75 66 66 |-- Alloc|ate buff|
|00001a60| 65 72 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ers ----|--------|
|00001a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a80| 2d 2d 0d 09 92 27 69 6e | 64 69 72 65 63 74 69 6f |--...'in|directio|
|00001a90| 6e 6d 65 6d 25 3d 26 31 | 38 30 30 3a 6d 65 6e 75 |nmem%=&1|800:menu|
|00001aa0| 6d 65 6d 25 3d 26 38 30 | 30 0d 09 9c 13 de 20 4d |mem%=&80|0..... M|
|00001ab0| 69 25 20 32 30 2c 4d 6f | 25 20 32 30 0d 09 a6 3c |i% 20,Mo|% 20...<|
|00001ac0| de 20 62 6c 6f 63 6b 25 | 20 26 31 30 30 30 2c 62 |. block%| &1000,b|
|00001ad0| 6c 6f 63 6b 32 25 20 26 | 31 30 30 2c 73 61 76 65 |lock2% &|100,save|
|00001ae0| 62 75 66 66 25 20 26 31 | 30 30 2c 63 68 6f 69 63 |buff% &1|00,choic|
|00001af0| 65 73 25 20 26 31 30 30 | 0d 09 b0 3a de 20 62 75 |es% &100|...:. bu|
|00001b00| 66 66 25 20 69 6e 64 69 | 72 65 63 74 69 6f 6e 6d |ff% indi|rectionm|
|00001b10| 65 6d 25 3a 65 6e 64 62 | 75 66 66 25 3d 62 75 66 |em%:endb|uff%=buf|
|00001b20| 66 25 2b 69 6e 64 69 72 | 65 63 74 69 6f 6e 6d 65 |f%+indir|ectionme|
|00001b30| 6d 25 0d 09 ba 42 de 20 | 6d 65 6e 62 6c 6b 25 20 |m%...B. |menblk% |
|00001b40| 6d 65 6e 75 6d 65 6d 25 | 3a 6d 65 6e 5f 65 6e 64 |menumem%|:men_end|
|00001b50| 25 3d 6d 65 6e 62 6c 6b | 25 2b 6d 65 6e 75 6d 65 |%=menblk|%+menume|
|00001b60| 6d 25 3a 6d 65 6e 75 5f | 70 74 72 25 3d 6d 65 6e |m%:menu_|ptr%=men|
|00001b70| 62 6c 6b 25 0d 09 c4 4a | f4 20 2d 2d 2d 2d 2d 2d |blk%...J|. ------|
|00001b80| 2d 2d 2d 2d 2d 2d 2d 20 | 49 6e 64 69 72 65 63 74 |------- |Indirect|
|00001b90| 69 6f 6e 20 61 64 64 72 | 65 73 73 65 73 20 66 6f |ion addr|esses fo|
|00001ba0| 72 20 48 65 61 70 20 4d | 61 6e 61 67 65 72 20 2d |r Heap M|anager -|
|00001bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 09 |--------|------..|
|00001bc0| ce 26 de 20 68 61 6e 64 | 25 20 31 36 3a 24 68 61 |.&. hand|% 16:$ha|
|00001bd0| 6e 64 25 3d 22 50 70 74 | 72 5f 68 61 6e 64 2c 31 |nd%="Ppt|r_hand,1|
|00001be0| 32 2c 38 22 0d 09 d8 2a | de 20 77 72 69 74 65 70 |2,8"...*|. writep|
|00001bf0| 25 20 31 36 3a 24 77 72 | 69 74 65 70 25 3d 22 50 |% 16:$wr|itep%="P|
|00001c00| 70 74 72 5f 77 72 69 74 | 65 2c 34 2c 34 22 0d 09 |ptr_writ|e,4,4"..|
|00001c10| e2 21 de 20 64 62 61 73 | 65 25 20 31 30 3a 24 64 |.!. dbas|e% 10:$d|
|00001c20| 62 61 73 65 25 3d 22 4e | 6f 20 64 61 74 61 22 0d |base%="N|o data".|
|00001c30| 09 ec 29 de 20 61 70 70 | 73 70 72 69 74 65 25 20 |..). app|sprite% |
|00001c40| 31 30 3a 24 61 70 70 73 | 70 72 69 74 65 25 3d 22 |10:$apps|prite%="|
|00001c50| 53 21 42 6c 6f 63 6b 22 | 0d 09 f6 1a de 20 74 61 |S!Block"|..... ta|
|00001c60| 62 61 6e 63 68 6f 72 25 | 28 4d 61 78 54 61 62 73 |banchor%|(MaxTabs|
|00001c70| 25 29 0d 0a 00 05 e1 0d | 0a 0a 05 3a 0d 0a 14 10 |%)......|...:....|
|00001c80| dd 20 f2 69 6e 69 74 5f | 76 61 72 73 0d 0a 1e 0d |. .init_|vars....|
|00001c90| 6d 79 72 65 66 25 3d 2d | 31 0d 0a 28 3b 52 65 61 |myref%=-|1..(;Rea|
|00001ca0| 64 69 6e 67 25 3d a3 3a | 50 72 69 6e 74 69 6e 67 |ding%=.:|Printing|
|00001cb0| 25 3d a3 3a 42 6c 6f 63 | 6b 69 6e 67 25 3d a3 3a |%=.:Bloc|king%=.:|
|00001cc0| 6c 69 73 74 65 64 25 3d | a3 3a 62 6c 6f 63 6b 65 |listed%=|.:blocke|
|00001cd0| 64 25 3d a3 0d 0a 32 30 | 61 63 63 65 73 73 62 75 |d%=...20|accessbu|
|00001ce0| 74 74 6f 6e 25 3d 30 3a | 62 6c 6f 63 6b 73 62 75 |tton%=0:|blocksbu|
|00001cf0| 74 74 6f 6e 25 3d 30 3a | 6d 61 78 62 6c 6f 63 6b |tton%=0:|maxblock|
|00001d00| 73 25 3d 30 0d 0a 3c 20 | 64 62 61 73 65 68 61 6e |s%=0..< |dbasehan|
|00001d10| 64 6c 65 25 3d 30 3a 46 | 3d 30 3a 68 61 6e 64 6c |dle%=0:F|=0:handl|
|00001d20| 65 25 3d 30 0d 0a 46 0d | 4e 70 72 6f 62 73 25 3d |e%=0..F.|Nprobs%=|
|00001d30| 30 0d 0a 50 25 54 75 74 | 24 3d 22 22 3a 74 69 6d |0..P%Tut|$="":tim|
|00001d40| 77 69 64 74 68 25 3d 35 | 30 3a 74 75 74 77 69 64 |width%=5|0:tutwid|
|00001d50| 74 68 25 3d 32 30 0d 0a | 5a 36 71 75 69 74 25 3d |th%=20..|Z6quit%=|
|00001d60| a3 3a 65 78 69 74 25 3d | a3 3a 72 61 6d 25 3d a3 |.:exit%=|.:ram%=.|
|00001d70| 3a 41 63 63 65 73 73 25 | 3d a3 3a 4d 6f 64 69 66 |:Access%|=.:Modif|
|00001d80| 79 25 3d a3 3a 77 61 72 | 6e 25 3d a3 0d 0a 64 16 |y%=.:war|n%=...d.|
|00001d90| 45 78 70 4c 65 6e 25 3d | 30 3a 43 6f 75 6e 74 25 |ExpLen%=|0:Count%|
|00001da0| 3d 30 0d 0a 6e 36 62 6c | 6f 63 6b 73 24 3d 22 20 |=0..n6bl|ocks$=" |
|00001db0| 42 4c 31 20 20 42 4c 32 | 20 20 42 4c 33 20 20 42 |BL1  BL2|  BL3  B|
|00001dc0| 4c 34 20 20 42 4c 35 20 | 20 42 4c 36 20 20 42 4c |L4  BL5 | BL6  BL|
|00001dd0| 37 20 20 42 4c 38 20 22 | 0d 0a 78 13 53 74 61 72 |7  BL8 "|..x.Star|
|00001de0| 74 25 3d 30 3a 45 6e 64 | 25 3d 30 0d 0a 82 0b 46 |t%=0:End|%=0....F|
|00001df0| 70 74 72 25 3d 30 0d 0a | 8c 30 4c 61 73 74 54 61 |ptr%=0..|.0LastTa|
|00001e00| 62 6c 65 25 3d 2d 31 3a | 54 61 62 6c 65 6e 75 6d |ble%=-1:|Tablenum|
|00001e10| 62 65 72 25 3d 2d 31 3a | 54 61 62 73 4c 6f 61 64 |ber%=-1:|TabsLoad|
|00001e20| 65 64 24 3d 22 22 0d 0a | 96 0f 74 61 62 6c 65 24 |ed$=""..|..table$|
|00001e30| 28 29 3d 22 22 0d 0a a0 | 1f 52 6f 77 73 25 3d 30 |()=""...|.Rows%=0|
|00001e40| 3a 54 61 62 46 69 65 6c | 64 73 25 3d 30 3a 52 65 |:TabFiel|ds%=0:Re|
|00001e50| 63 25 3d 30 0d 0a aa 31 | 4b 65 79 73 25 3d 30 3a |c%=0...1|Keys%=0:|
|00001e60| 4c 48 25 3d 39 30 3a 66 | 69 6c 65 25 3d 30 3a 6b |LH%=90:f|ile%=0:k|
|00001e70| 65 79 25 3d 30 3a 74 6f | 70 3d 38 2a 66 69 6c 65 |ey%=0:to|p=8*file|
|00001e80| 25 2b 4c 48 25 0d 0a b4 | 13 52 45 43 25 3d 30 3a |%+LH%...|.REC%=0:|
|00001e90| 4e 72 65 63 73 25 3d 30 | 0d 0a be 0e 75 70 5f 70 |Nrecs%=0|....up_p|
|00001ea0| 65 6e 64 25 3d a3 0d 0a | c8 05 e1 0d 0a d2 05 3a |end%=...|.......:|
|00001eb0| 0d 0a dc 49 f4 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...I. --|--------|
|00001ec0| 2d 2d 2d 2d 2d 2d 2d 20 | 45 6e 64 20 6f 66 20 50 |------- |End of P|
|00001ed0| 72 6f 67 72 61 6d 20 69 | 6e 69 74 69 61 6c 69 73 |rogram i|nitialis|
|00001ee0| 61 74 69 6f 6e 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ation --|--------|
|00001ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 0a e6 05 3a 0d 0a |--------|-....:..|
|00001f00| f0 05 3a 0d 0a fa 05 3a | 0d 0b 04 49 f4 20 2d 2d |..:....:|...I. --|
|00001f10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00001f20| 4d 65 6e 75 2d 72 65 6c | 61 74 65 64 20 72 6f 75 |Menu-rel|ated rou|
|00001f30| 74 69 6e 65 73 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |tines --|--------|
|00001f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f50| 2d 0d 0b 0e 05 3a 0d 0b | 18 11 dd 20 f2 6d 61 6b |-....:..|... .mak|
|00001f60| 65 5f 6d 65 6e 75 73 0d | 0b 22 08 ea 20 49 25 0d |e_menus.|.".. I%.|
|00001f70| 0b 2c 3a 6d 65 6e 75 25 | 28 34 29 3d a4 63 72 65 |.,:menu%|(4)=.cre|
|00001f80| 61 74 65 5f 6d 65 6e 75 | 28 6d 65 6e 75 5f 70 74 |ate_menu|(menu_pt|
|00001f90| 72 25 2c 36 34 2c 22 56 | 61 6c 75 65 3a 2c 22 2b |r%,64,"V|alue:,"+|
|00001fa0| c4 31 33 2c 22 30 22 29 | 29 0d 0b 36 16 6d 65 6e |.13,"0")|)..6.men|
|00001fb0| 69 63 25 3d 6d 65 6e 75 | 25 28 34 29 2b 32 38 0d |ic%=menu|%(4)+28.|
|00001fc0| 0b 40 1c 3f 6d 65 6e 69 | 63 25 3d 3f 6d 65 6e 69 |.@.?meni|c%=?meni|
|00001fd0| 63 25 20 84 20 28 31 3c | 3c 32 29 0d 0b 4a 2d 57 |c% . (1<|<2)..J-W|
|00001fe0| 74 70 6f 73 25 3d 6d 65 | 6e 69 63 25 21 31 32 3a |tpos%=me|nic%!12:|
|00001ff0| 6d 65 6e 69 63 25 21 31 | 36 3d 2d 31 3a 6d 65 6e |menic%!1|6=-1:men|
|00002000| 69 63 25 21 32 30 3d 34 | 0d 0b 54 62 6d 65 6e 75 |ic%!20=4|..Tbmenu|
|00002010| 25 28 33 29 3d a4 63 72 | 65 61 74 65 5f 6d 65 6e |%(3)=.cr|eate_men|
|00002020| 75 28 6d 65 6e 75 5f 70 | 74 72 25 2c 31 35 30 2c |u(menu_p|tr%,150,|
|00002030| 22 57 65 69 67 68 74 69 | 6e 67 73 2c 22 2b c4 31 |"Weighti|ngs,"+.1|
|00002040| 33 2c 22 30 22 29 2b 22 | 3e 22 2b c3 28 6d 65 6e |3,"0")+"|>"+.(men|
|00002050| 75 25 28 34 29 29 2b 22 | 2c 53 61 76 65 3e 22 2b |u%(4))+"|,Save>"+|
|00002060| c3 28 73 61 76 65 57 25 | 29 29 0d 0b 5e 16 6d 65 |.(saveW%|))..^.me|
|00002070| 6e 69 63 25 3d 6d 65 6e | 75 25 28 33 29 2b 32 38 |nic%=men|u%(3)+28|
|00002080| 0d 0b 68 2f 53 75 62 70 | 6f 73 25 3d 6d 65 6e 69 |..h/Subp|os%=meni|
|00002090| 63 25 21 31 32 3a 6d 65 | 6e 69 63 25 21 31 36 3d |c%!12:me|nic%!16=|
|000020a0| 2d 31 3a 6d 65 6e 69 63 | 25 21 32 30 3d 31 31 0d |-1:menic|%!20=11.|
|000020b0| 0b 72 6f 6d 65 6e 75 25 | 28 30 29 3d a4 63 72 65 |.romenu%|(0)=.cre|
|000020c0| 61 74 65 5f 6d 65 6e 75 | 28 6d 65 6e 75 5f 70 74 |ate_menu|(menu_pt|
|000020d0| 72 25 2c 32 37 30 2c 22 | 42 6c 6f 63 6b 2c 49 6e |r%,270,"|Block,In|
|000020e0| 66 6f 3e 22 2b c3 28 69 | 6e 66 6f 57 25 29 2b 22 |fo>"+.(i|nfoW%)+"|
|000020f0| 2c 7e 4d 61 6b 65 20 63 | 6c 61 73 73 20 74 61 62 |,~Make c|lass tab|
|00002100| 6c 65 2c 7e 43 6c 6f 73 | 65 20 64 61 74 61 62 61 |le,~Clos|e databa|
|00002110| 73 65 2c 48 65 6c 70 2c | 51 75 69 74 22 29 0d 0b |se,Help,|Quit")..|
|00002120| 7c 77 6d 65 6e 75 25 28 | 35 29 3d a4 63 72 65 61 ||wmenu%(|5)=.crea|
|00002130| 74 65 5f 6d 65 6e 75 28 | 6d 65 6e 75 5f 70 74 72 |te_menu(|menu_ptr|
|00002140| 25 2c 33 33 30 2c 22 54 | 69 6d 65 74 61 62 6c 65 |%,330,"T|imetable|
|00002150| 73 2c 22 2b c4 32 31 2c | 22 30 22 29 2b 22 2c 53 |s,"+.21,|"0")+",S|
|00002160| 65 6c 65 63 74 65 64 20 | 74 75 74 6f 72 20 67 72 |elected |tutor gr|
|00002170| 6f 75 70 3e 22 2b c3 28 | 74 75 74 6f 72 57 25 29 |oup>"+.(|tutorW%)|
|00002180| 2b 22 2c 45 76 65 72 79 | 6f 6e 65 20 69 6e 20 66 |+",Every|one in f|
|00002190| 69 6c 65 22 29 0d 0b 86 | 29 6d 65 6e 69 63 25 3d |ile")...|)menic%=|
|000021a0| 6d 65 6e 75 25 28 35 29 | 2b 32 38 3a 4e 61 6d 65 |menu%(5)|+28:Name|
|000021b0| 70 6f 73 25 3d 6d 65 6e | 69 63 25 21 31 32 0d 0b |pos%=men|ic%!12..|
|000021c0| 90 6b 6d 65 6e 75 25 28 | 36 29 3d a4 63 72 65 61 |.kmenu%(|6)=.crea|
|000021d0| 74 65 5f 6d 65 6e 75 28 | 6d 65 6e 75 5f 70 74 72 |te_menu(|menu_ptr|
|000021e0| 25 2c 32 37 30 2c 22 42 | 6c 6f 63 6b 69 6e 67 2c |%,270,"B|locking,|
|000021f0| 47 72 6f 75 70 20 73 69 | 7a 65 73 2c 42 6c 6f 63 |Group si|zes,Bloc|
|00002200| 6b 20 77 65 69 67 68 74 | 69 6e 67 73 2c 7e 50 72 |k weight|ings,~Pr|
|00002210| 6f 62 6c 65 6d 20 63 61 | 73 65 73 2c 44 6f 20 62 |oblem ca|ses,Do b|
|00002220| 6c 6f 63 6b 69 6e 67 22 | 29 0d 0b 9a 60 6d 65 6e |locking"|)...`men|
|00002230| 75 25 28 37 29 3d a4 63 | 72 65 61 74 65 5f 6d 65 |u%(7)=.c|reate_me|
|00002240| 6e 75 28 6d 65 6e 75 5f | 70 74 72 25 2c 32 32 30 |nu(menu_|ptr%,220|
|00002250| 2c 22 54 75 74 6f 72 20 | 67 72 6f 75 70 73 2c 47 |,"Tutor |groups,G|
|00002260| 72 6f 75 70 20 73 69 7a | 65 73 2c 7e 50 72 6f 62 |roup siz|es,~Prob|
|00002270| 6c 65 6d 20 63 61 73 65 | 73 2c 41 73 73 69 67 6e |lem case|s,Assign|
|00002280| 20 74 75 74 6f 72 73 22 | 29 0d 0b a4 53 6d 65 6e | tutors"|)...Smen|
|00002290| 75 25 28 38 29 3d a4 63 | 72 65 61 74 65 5f 6d 65 |u%(8)=.c|reate_me|
|000022a0| 6e 75 28 6d 65 6e 75 5f | 70 74 72 25 2c 32 30 30 |nu(menu_|ptr%,200|
|000022b0| 2c 22 54 61 62 6c 65 73 | 2c 53 75 62 6a 65 63 74 |,"Tables|,Subject|
|000022c0| 73 2c 43 6c 61 73 73 65 | 73 2c 54 75 74 6f 72 73 |s,Classe|s,Tutors|
|000022d0| 2c 41 6c 6c 20 73 74 61 | 66 66 22 29 0d 0b ae 3e |,All sta|ff")...>|
|000022e0| 6d 65 6e 75 25 28 39 29 | 3d a4 63 72 65 61 74 65 |menu%(9)|=.create|
|000022f0| 5f 6d 65 6e 75 28 6d 65 | 6e 75 5f 70 74 72 25 2c |_menu(me|nu_ptr%,|
|00002300| 36 34 2c 22 43 68 61 6e | 67 65 20 74 6f 3a 2c 22 |64,"Chan|ge to:,"|
|00002310| 2b c4 31 33 2c 22 30 22 | 29 29 0d 0b b8 16 6d 65 |+.13,"0"|))....me|
|00002320| 6e 69 63 25 3d 6d 65 6e | 75 25 28 39 29 2b 32 38 |nic%=men|u%(9)+28|
|00002330| 0d 0b c2 1c 3f 6d 65 6e | 69 63 25 3d 3f 6d 65 6e |....?men|ic%=?men|
|00002340| 69 63 25 20 84 20 28 31 | 3c 3c 32 29 0d 0b cc 3a |ic% . (1|<<2)...:|
|00002350| 4e 65 77 70 6f 73 25 3d | 6d 65 6e 69 63 25 21 31 |Newpos%=|menic%!1|
|00002360| 32 3a 6d 65 6e 69 63 25 | 21 31 36 3d 2d 31 3a 6d |2:menic%|!16=-1:m|
|00002370| 65 6e 69 63 25 21 32 30 | 3d 34 3a 24 4e 65 77 70 |enic%!20|=4:$Newp|
|00002380| 6f 73 25 3d 22 22 0d 0b | d6 4f 6d 65 6e 75 25 28 |os%=""..|.Omenu%(|
|00002390| 31 30 29 3d a4 63 72 65 | 61 74 65 5f 6d 65 6e 75 |10)=.cre|ate_menu|
|000023a0| 28 6d 65 6e 75 5f 70 74 | 72 25 2c 32 35 30 2c 22 |(menu_pt|r%,250,"|
|000023b0| 54 6f 74 61 6c 73 2c 22 | 2b c4 31 35 2c 22 30 22 |Totals,"|+.15,"0"|
|000023c0| 29 2b 22 2c 53 61 76 65 | 3e 22 2b c3 28 73 61 76 |)+",Save|>"+.(sav|
|000023d0| 65 57 25 29 29 0d 0b e0 | 17 6d 65 6e 69 63 25 3d |eW%))...|.menic%=|
|000023e0| 6d 65 6e 75 25 28 31 30 | 29 2b 32 38 0d 0b ea 43 |menu%(10|)+28...C|
|000023f0| 47 72 70 70 6f 73 25 3d | 6d 65 6e 69 63 25 21 31 |Grppos%=|menic%!1|
|00002400| 32 3a 6d 65 6e 69 63 25 | 21 31 36 3d 2d 31 3a 6d |2:menic%|!16=-1:m|
|00002410| 65 6e 69 63 25 21 32 30 | 3d 31 31 3a 24 47 72 70 |enic%!20|=11:$Grp|
|00002420| 70 6f 73 25 3d 22 50 72 | 69 6e 74 20 27 27 22 0d |pos%="Pr|int ''".|
|00002430| 0b f4 53 6d 65 6e 75 25 | 28 31 31 29 3d a4 63 72 |..Smenu%|(11)=.cr|
|00002440| 65 61 74 65 5f 6d 65 6e | 75 28 6d 65 6e 75 5f 70 |eate_men|u(menu_p|
|00002450| 74 72 25 2c 31 37 30 2c | 22 54 75 74 6f 72 20 67 |tr%,170,|"Tutor g|
|00002460| 72 70 73 2c 22 2b c4 31 | 33 2c 22 30 22 29 2b 22 |rps,"+.1|3,"0")+"|
|00002470| 2c 53 61 76 65 3e 22 2b | c3 28 73 61 76 65 57 25 |,Save>"+|.(saveW%|
|00002480| 29 29 0d 0b fe 17 6d 65 | 6e 69 63 25 3d 6d 65 6e |))....me|nic%=men|
|00002490| 75 25 28 31 31 29 2b 32 | 38 0d 0c 08 43 54 75 74 |u%(11)+2|8...CTut|
|000024a0| 70 6f 73 25 3d 6d 65 6e | 69 63 25 21 31 32 3a 6d |pos%=men|ic%!12:m|
|000024b0| 65 6e 69 63 25 21 31 36 | 3d 2d 31 3a 6d 65 6e 69 |enic%!16|=-1:meni|
|000024c0| 63 25 21 32 30 3d 31 31 | 3a 24 54 75 74 70 6f 73 |c%!20=11|:$Tutpos|
|000024d0| 25 3d 22 50 72 69 6e 74 | 20 27 27 22 0d 0c 12 60 |%="Print| ''"...`|
|000024e0| 6d 65 6e 75 25 28 31 32 | 29 3d a4 63 72 65 61 74 |menu%(12|)=.creat|
|000024f0| 65 5f 6d 65 6e 75 28 6d | 65 6e 75 5f 70 74 72 25 |e_menu(m|enu_ptr%|
|00002500| 2c 32 30 30 2c 22 43 6c | 61 73 73 20 67 72 6f 75 |,200,"Cl|ass grou|
|00002510| 70 73 2c 53 70 6c 69 74 | 20 67 72 6f 75 70 2c 4a |ps,Split| group,J|
|00002520| 6f 69 6e 20 68 61 6c 76 | 65 73 2c 53 61 76 65 3e |oin halv|es,Save>|
|00002530| 22 2b c3 28 73 61 76 65 | 57 25 29 29 0d 0c 1c 2d |"+.(save|W%))...-|
|00002540| 73 74 72 69 6e 67 24 3d | 22 42 6c 6f 63 6b 2c 22 |string$=|"Block,"|
|00002550| 2b c4 31 38 2c 22 30 22 | 29 2b 22 3e 22 2b c3 28 |+.18,"0"|)+">"+.(|
|00002560| 6d 65 6e 75 25 28 39 29 | 29 0d 0c 26 d6 73 74 72 |menu%(9)|)..&.str|
|00002570| 69 6e 67 24 2b 3d 22 2c | 53 75 62 6a 65 63 74 20 |ing$+=",|Subject |
|00002580| 62 6c 6f 63 6b 69 6e 67 | 3e 22 2b c3 28 6d 65 6e |blocking|>"+.(men|
|00002590| 75 25 28 36 29 29 2b 22 | 2c 54 75 74 6f 72 20 67 |u%(6))+"|,Tutor g|
|000025a0| 72 6f 75 70 73 3e 22 2b | c3 28 6d 65 6e 75 25 28 |roups>"+|.(menu%(|
|000025b0| 37 29 29 2b 22 2c 56 61 | 6c 69 64 61 74 69 6f 6e |7))+",Va|lidation|
|000025c0| 20 74 61 62 6c 65 73 3e | 22 2b c3 28 6d 65 6e 75 | tables>|"+.(menu|
|000025d0| 25 28 38 29 29 2b 22 2c | 50 72 69 6e 74 20 74 69 |%(8))+",|Print ti|
|000025e0| 6d 65 74 61 62 6c 65 73 | 3e 22 2b c3 28 6d 65 6e |metables|>"+.(men|
|000025f0| 75 25 28 35 29 29 2b 22 | 2c 57 72 69 74 65 20 74 |u%(5))+"|,Write t|
|00002600| 6f 20 64 61 74 61 62 61 | 73 65 2c 53 61 76 65 20 |o databa|se,Save |
|00002610| 66 69 6c 65 20 61 73 20 | 74 65 78 74 3e 22 2b c3 |file as |text>"+.|
|00002620| 28 73 61 76 65 57 25 29 | 2b 22 2c 53 68 6f 77 20 |(saveW%)|+",Show |
|00002630| 6a 6f 62 73 20 64 6f 6e | 65 2c 48 65 6c 70 22 0d |jobs don|e,Help".|
|00002640| 0c 30 30 6d 65 6e 75 25 | 28 31 29 3d a4 63 72 65 |.00menu%|(1)=.cre|
|00002650| 61 74 65 5f 6d 65 6e 75 | 28 6d 65 6e 75 5f 70 74 |ate_menu|(menu_pt|
|00002660| 72 25 2c 33 30 30 2c 73 | 74 72 69 6e 67 24 29 0d |r%,300,s|tring$).|
|00002670| 0c 3a 16 6d 65 6e 69 63 | 25 3d 6d 65 6e 75 25 28 |.:.menic|%=menu%(|
|00002680| 31 29 2b 32 38 0d 0c 44 | 45 4f 6c 64 70 6f 73 25 |1)+28..D|EOldpos%|
|00002690| 3d 6d 65 6e 69 63 25 21 | 31 32 3a 6d 65 6e 69 63 |=menic%!|12:menic|
|000026a0| 25 21 31 36 3d 2d 31 3a | 6d 65 6e 69 63 25 21 32 |%!16=-1:|menic%!2|
|000026b0| 30 3d 31 35 3a 24 4f 6c | 64 70 6f 73 25 3d 22 20 |0=15:$Ol|dpos%=" |
|000026c0| 20 3c 6e 75 6c 6c 3e 20 | 20 22 0d 0c 4e 4c 6d 65 | <null> | "..NLme|
|000026d0| 6e 75 25 28 32 29 3d a4 | 63 72 65 61 74 65 5f 6d |nu%(2)=.|create_m|
|000026e0| 65 6e 75 28 6d 65 6e 75 | 5f 70 74 72 25 2c 33 30 |enu(menu|_ptr%,30|
|000026f0| 30 2c 22 54 61 62 6c 65 | 2c 55 70 64 61 74 65 20 |0,"Table|,Update |
|00002700| 77 65 69 67 68 74 69 6e | 67 73 2c 53 61 76 65 2c |weightin|gs,Save,|
|00002710| 53 6f 72 74 22 29 0d 0c | 58 57 6d 65 6e 75 25 28 |Sort")..|XWmenu%(|
|00002720| 35 29 3d a4 63 72 65 61 | 74 65 5f 6d 65 6e 75 28 |5)=.crea|te_menu(|
|00002730| 6d 65 6e 75 5f 70 74 72 | 25 2c 32 30 30 2c 22 54 |menu_ptr|%,200,"T|
|00002740| 69 6d 65 74 61 62 6c 65 | 73 2c 53 61 76 65 20 66 |imetable|s,Save f|
|00002750| 69 6c 65 3e 22 2b c3 28 | 73 61 76 65 57 25 29 2b |ile>"+.(|saveW%)+|
|00002760| 22 2c 4c 6f 73 65 20 6c | 69 73 74 22 29 0d 0c 62 |",Lose l|ist")..b|
|00002770| 11 79 62 61 72 25 3d 39 | 36 2b 35 2a 34 34 0d 0c |.ybar%=9|6+5*44..|
|00002780| 6c 05 e1 0d 0c 76 05 3a | 0d 0c 80 28 dd 20 a4 63 |l....v.:|...(. .c|
|00002790| 72 65 61 74 65 5f 6d 65 | 6e 75 28 f8 20 6d 65 6e |reate_me|nu(. men|
|000027a0| 75 25 2c 77 69 64 74 68 | 25 2c 6c 69 73 74 24 29 |u%,width|%,list$)|
|000027b0| 0d 0c 8a 34 ea 20 73 74 | 61 72 74 25 2c 63 68 6f |...4. st|art%,cho|
|000027c0| 69 63 65 24 2c 65 6e 74 | 72 69 65 73 25 2c 69 74 |ice$,ent|ries%,it|
|000027d0| 65 6d 25 2c 50 25 2c 51 | 25 2c 53 25 2c 73 68 61 |em%,P%,Q|%,S%,sha|
|000027e0| 64 65 64 25 0d 0c 94 10 | 73 74 61 72 74 25 3d 6d |ded%....|start%=m|
|000027f0| 65 6e 75 25 0d 0c 9e 12 | 50 25 3d a7 6c 69 73 74 |enu%....|P%=.list|
|00002800| 24 2c 22 2c 22 29 0d 0c | a8 17 24 6d 65 6e 75 25 |$,",")..|..$menu%|
|00002810| 3d c0 6c 69 73 74 24 2c | 50 25 2d 31 29 0d 0c b2 |=.list$,|P%-1)...|
|00002820| 19 6d 65 6e 75 25 3f 31 | 32 3d 37 3a 6d 65 6e 75 |.menu%?1|2=7:menu|
|00002830| 25 3f 31 33 3d 32 0d 0c | bc 19 6d 65 6e 75 25 3f |%?13=2..|..menu%?|
|00002840| 31 34 3d 37 3a 6d 65 6e | 75 25 3f 31 35 3d 30 0d |14=7:men|u%?15=0.|
|00002850| 0c c6 2a 6d 65 6e 75 25 | 21 31 36 3d 77 69 64 74 |..*menu%|!16=widt|
|00002860| 68 25 3a 6d 65 6e 75 25 | 21 32 30 3d 34 34 3a 6d |h%:menu%|!20=44:m|
|00002870| 65 6e 75 25 21 32 34 3d | 30 0d 0c d0 12 69 74 65 |enu%!24=|0....ite|
|00002880| 6d 25 3d 6d 65 6e 75 25 | 2b 32 38 0d 0c da 0e 6c |m%=menu%|+28....l|
|00002890| 69 73 74 24 2b 3d 22 2c | 22 0d 0c e4 0e 65 6e 74 |ist$+=",|"....ent|
|000028a0| 72 69 65 73 25 3d 30 0d | 0c ee 05 f5 0d 0c f8 0d |ries%=0.|........|
|000028b0| 20 20 51 25 3d 50 25 2b | 31 0d 0d 02 17 20 20 50 |  Q%=P%+|1....  P|
|000028c0| 25 3d a7 6c 69 73 74 24 | 2c 22 2c 22 2c 51 25 29 |%=.list$|,",",Q%)|
|000028d0| 0d 0d 0c 0e 20 20 e7 20 | 50 25 3e 30 20 8c 0d 0d |....  . |P%>0 ...|
|000028e0| 16 1a 20 20 20 20 21 69 | 74 65 6d 25 3d 30 3a 73 |..    !i|tem%=0:s|
|000028f0| 68 61 64 65 64 25 3d 30 | 0d 0d 20 20 20 20 20 20 |haded%=0|..      |
|00002900| 63 68 6f 69 63 65 24 3d | c1 6c 69 73 74 24 2c 51 |choice$=|.list$,Q|
|00002910| 25 2c 50 25 2d 51 25 29 | 0d 0d 2a 3f 20 20 20 20 |%,P%-Q%)|..*?    |
|00002920| e7 20 c0 63 68 6f 69 63 | 65 24 2c 31 29 3d 22 7e |. .choic|e$,1)="~|
|00002930| 22 20 8c 20 63 68 6f 69 | 63 65 24 3d c1 63 68 6f |" . choi|ce$=.cho|
|00002940| 69 63 65 24 2c 32 29 3a | 73 68 61 64 65 64 25 3d |ice$,2):|shaded%=|
|00002950| 28 31 3c 3c 32 32 29 0d | 0d 34 41 20 20 20 20 e7 |(1<<22).|.4A    .|
|00002960| 20 c0 63 68 6f 69 63 65 | 24 2c 31 29 3d 22 5f 22 | .choice|$,1)="_"|
|00002970| 20 8c 20 63 68 6f 69 63 | 65 24 3d c1 63 68 6f 69 | . choic|e$=.choi|
|00002980| 63 65 24 2c 32 29 3a 3f | 69 74 65 6d 25 3d 3f 69 |ce$,2):?|item%=?i|
|00002990| 74 65 6d 25 20 84 20 32 | 0d 0d 3e 18 20 20 20 20 |tem% . 2|..>.    |
|000029a0| 53 25 3d a7 63 68 6f 69 | 63 65 24 2c 22 21 22 29 |S%=.choi|ce$,"!")|
|000029b0| 0d 0d 48 35 20 20 20 20 | e7 20 53 25 3e 30 20 8c |..H5    |. S%>0 .|
|000029c0| 20 3f 69 74 65 6d 25 3d | 3f 69 74 65 6d 25 20 84 | ?item%=|?item% .|
|000029d0| 20 38 3a c1 63 68 6f 69 | 63 65 24 2c 53 25 2c 31 | 8:.choi|ce$,S%,1|
|000029e0| 29 3d 22 3e 22 0d 0d 52 | 18 20 20 20 20 53 25 3d |)=">"..R|.    S%=|
|000029f0| a7 63 68 6f 69 63 65 24 | 2c 22 3e 22 29 0d 0d 5c |.choice$|,">")..\|
|00002a00| 10 20 20 20 20 e7 20 53 | 25 3d 30 20 8c 0d 0d 66 |.    . S|%=0 ...f|
|00002a10| 14 20 20 20 20 20 20 69 | 74 65 6d 25 21 34 3d 2d |.      i|tem%!4=-|
|00002a20| 31 0d 0d 70 0b 20 20 20 | 20 20 20 cc 0d 0d 7a 23 |1..p.   |   ...z#|
|00002a30| 20 20 20 20 20 20 69 74 | 65 6d 25 21 34 3d bb 28 |      it|em%!4=.(|
|00002a40| c1 63 68 6f 69 63 65 24 | 2c 53 25 2b 31 29 29 0d |.choice$|,S%+1)).|
|00002a50| 0d 84 20 20 20 20 20 20 | 20 63 68 6f 69 63 65 24 |..      | choice$|
|00002a60| 3d c0 63 68 6f 69 63 65 | 24 2c 53 25 2d 31 29 0d |=.choice|$,S%-1).|
|00002a70| 0d 8e 09 20 20 20 20 cd | 0d 0d 98 1a 20 20 20 20 |...    .|....    |
|00002a80| e7 20 a9 28 63 68 6f 69 | 63 65 24 29 3c 3d 31 32 |. .(choi|ce$)<=12|
|00002a90| 20 8c 0d 0d a2 1d 20 20 | 20 20 20 20 24 28 69 74 | .....  |    $(it|
|00002aa0| 65 6d 25 2b 31 32 29 3d | 63 68 6f 69 63 65 24 0d |em%+12)=|choice$.|
|00002ab0| 0d ac 1a 20 20 20 20 20 | 20 69 74 65 6d 25 21 38 |...     | item%!8|
|00002ac0| 3d 26 37 30 30 30 30 32 | 31 0d 0d b6 0b 20 20 20 |=&700002|1....   |
|00002ad0| 20 20 20 cc 0d 0d c0 19 | 20 20 20 20 20 20 4c 25 |   .....|      L%|
|00002ae0| 3d a9 28 63 68 6f 69 63 | 65 24 29 2b 31 0d 0d ca |=.(choic|e$)+1...|
|00002af0| 49 20 20 20 20 20 20 69 | 74 65 6d 25 21 31 32 3d |I      i|tem%!12=|
|00002b00| 62 75 66 66 25 3a 24 62 | 75 66 66 25 3d 63 68 6f |buff%:$b|uff%=cho|
|00002b10| 69 63 65 24 3a 62 75 66 | 66 25 2b 3d 4c 25 3a 69 |ice$:buf|f%+=L%:i|
|00002b20| 74 65 6d 25 21 31 36 3d | 2d 31 3a 69 74 65 6d 25 |tem%!16=|-1:item%|
|00002b30| 21 32 30 3d 4c 25 0d 0d | d4 1a 20 20 20 20 20 20 |!20=L%..|..      |
|00002b40| 69 74 65 6d 25 21 38 3d | 26 37 30 30 30 31 32 31 |item%!8=|&7000121|
|00002b50| 0d 0d de 09 20 20 20 20 | cd 0d 0d e8 21 20 20 20 |....    |....!   |
|00002b60| 20 69 74 65 6d 25 21 38 | 3d 69 74 65 6d 25 21 38 | item%!8|=item%!8|
|00002b70| 20 84 20 73 68 61 64 65 | 64 25 0d 0d f2 11 20 20 | . shade|d%....  |
|00002b80| 20 20 69 74 65 6d 25 2b | 3d 32 34 0d 0d fc 13 20 |  item%+|=24.... |
|00002b90| 20 20 20 65 6e 74 72 69 | 65 73 25 2b 3d 31 0d 0e |   entri|es%+=1..|
|00002ba0| 06 07 20 20 cd 0d 0e 10 | 0a fd 20 50 25 3d 30 0d |..  ....|.. P%=0.|
|00002bb0| 0e 1a 1d 69 74 65 6d 25 | 21 2d 32 34 3d 69 74 65 |...item%|!-24=ite|
|00002bc0| 6d 25 21 2d 32 34 20 84 | 20 26 38 30 0d 0e 24 0f |m%!-24 .| &80..$.|
|00002bd0| 6d 65 6e 75 25 3d 69 74 | 65 6d 25 0d 0e 2e 51 e7 |menu%=it|em%...Q.|
|00002be0| 20 6d 65 6e 75 25 3e 6d | 65 6e 5f 65 6e 64 25 20 | menu%>m|en_end% |
|00002bf0| 8c 20 85 20 a2 20 30 2c | 22 4e 6f 74 20 65 6e 6f |. . . 0,|"Not eno|
|00002c00| 75 67 68 20 72 6f 6f 6d | 20 66 6f 72 20 6d 65 6e |ugh room| for men|
|00002c10| 75 73 20 28 69 6e 74 65 | 72 6e 61 6c 20 65 72 72 |us (inte|rnal err|
|00002c20| 6f 72 20 63 6f 64 65 20 | 35 30 29 22 0d 0e 38 0b |or code |50)"..8.|
|00002c30| 3d 73 74 61 72 74 25 0d | 0e 42 05 3a 0d 0e 4c 1c |=start%.|.B.:..L.|
|00002c40| dd 20 f2 74 69 63 6b 28 | 6d 65 6e 75 25 2c 69 74 |. .tick(|menu%,it|
|00002c50| 65 6d 25 2c 6f 6e 25 29 | 0d 0e 56 1b 69 74 65 6d |em%,on%)|..V.item|
|00002c60| 25 3d 6d 65 6e 75 25 2b | 32 38 2b 69 74 65 6d 25 |%=menu%+|28+item%|
|00002c70| 2a 32 34 0d 0e 60 0c c8 | 8e 20 6f 6e 25 20 ca 0d |*24..`..|. on% ..|
|00002c80| 0e 6a 1b 20 20 c9 20 b9 | 3a 3f 69 74 65 6d 25 3d |.j.  . .|:?item%=|
|00002c90| 3f 69 74 65 6d 25 20 84 | 20 31 0d 0e 74 1d 20 20 |?item% .| 1..t.  |
|00002ca0| c9 20 a3 3a 3f 69 74 65 | 6d 25 3d 3f 69 74 65 6d |. .:?ite|m%=?item|
|00002cb0| 25 20 80 20 32 35 34 0d | 0e 7e 05 cb 0d 0e 88 05 |% . 254.|.~......|
|00002cc0| e1 0d 0e 92 05 3a 0d 0e | 9c 22 dd 20 f2 74 69 63 |.....:..|.". .tic|
|00002cd0| 6b 5f 6f 6e 65 28 6d 65 | 6e 75 25 2c 6c 61 73 74 |k_one(me|nu%,last|
|00002ce0| 25 2c 69 74 65 6d 25 29 | 0d 0e a6 08 ea 20 49 25 |%,item%)|..... I%|
|00002cf0| 0d 0e b0 12 e3 20 49 25 | 3d 30 20 b8 20 6c 61 73 |..... I%|=0 . las|
|00002d00| 74 25 0d 0e ba 20 20 20 | f2 74 69 63 6b 28 6d 65 |t%...   |.tick(me|
|00002d10| 6e 75 25 2c 49 25 2c 28 | 49 25 3d 69 74 65 6d 25 |nu%,I%,(|I%=item%|
|00002d20| 29 29 0d 0e c4 08 ed 20 | 49 25 0d 0e ce 05 e1 0d |))..... |I%......|
|00002d30| 0e d8 05 3a 0d 0e e2 1b | dd 20 f2 6c 69 74 28 6d |...:....|. .lit(m|
|00002d40| 65 6e 75 25 2c 69 74 65 | 6d 25 2c 6f 6e 25 29 0d |enu%,ite|m%,on%).|
|00002d50| 0e ec 1b 69 74 65 6d 25 | 3d 6d 65 6e 75 25 2b 32 |...item%|=menu%+2|
|00002d60| 38 2b 69 74 65 6d 25 2a | 32 34 0d 0e f6 0c c8 8e |8+item%*|24......|
|00002d70| 20 6f 6e 25 20 ca 0d 0f | 00 26 20 20 c9 20 b9 3a | on% ...|.&  . .:|
|00002d80| 20 69 74 65 6d 25 21 38 | 3d 69 74 65 6d 25 21 38 | item%!8|=item%!8|
|00002d90| 20 80 20 ac 20 28 31 3c | 3c 32 32 29 0d 0f 0a 24 | . . (1<|<22)...$|
|00002da0| 20 20 c9 20 a3 3a 20 69 | 74 65 6d 25 21 38 3d 69 |  . .: i|tem%!8=i|
|00002db0| 74 65 6d 25 21 38 20 84 | 20 28 31 3c 3c 32 32 29 |tem%!8 .| (1<<22)|
|00002dc0| 0d 0f 14 05 cb 0d 0f 1e | 05 e1 0d 0f 28 05 3a 0d |........|....(.:.|
|00002dd0| 0f 32 1d dd 20 f2 73 68 | 6f 77 5f 6d 65 6e 75 28 |.2.. .sh|ow_menu(|
|00002de0| 6d 65 6e 75 25 2c 78 25 | 2c 79 25 29 0d 0f 3c 29 |menu%,x%|,y%)..<)|
|00002df0| 6d 65 6e 75 68 61 6e 64 | 6c 65 25 3d 6d 65 6e 75 |menuhand|le%=menu|
|00002e00| 25 3a 6d 65 6e 75 78 25 | 3d 78 25 3a 6d 65 6e 75 |%:menux%|=x%:menu|
|00002e10| 79 25 3d 79 25 0d 0f 46 | 25 c8 99 20 22 57 69 6d |y%=y%..F|%.. "Wim|
|00002e20| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 6d |p_Create|Menu",,m|
|00002e30| 65 6e 75 25 2c 78 25 2c | 79 25 0d 0f 50 05 e1 0d |enu%,x%,|y%..P...|
|00002e40| 0f 5a 05 3a 0d 0f 64 12 | dd 20 f2 6d 65 6e 75 5f |.Z.:..d.|. .menu_|
|00002e50| 73 65 6c 65 63 74 0d 0f | 6e 16 ea 20 68 61 6e 64 |select..|n.. hand|
|00002e60| 6c 65 25 2c 50 25 2c 51 | 25 2c 49 25 0d 0f 78 26 |le%,P%,Q|%,I%..x&|
|00002e70| 63 68 6f 69 63 65 31 25 | 3d 21 62 6c 6f 63 6b 25 |choice1%|=!block%|
|00002e80| 3a 63 68 6f 69 63 65 32 | 25 3d 62 6c 6f 63 6b 25 |:choice2|%=block%|
|00002e90| 21 34 0d 0f 82 28 63 68 | 6f 69 63 65 33 25 3d 62 |!4...(ch|oice3%=b|
|00002ea0| 6c 6f 63 6b 25 21 38 3a | 63 68 6f 69 63 65 34 25 |lock%!8:|choice4%|
|00002eb0| 3d 62 6c 6f 63 6b 25 21 | 31 32 0d 0f 8c 08 50 25 |=block%!|12....P%|
|00002ec0| 3d 31 0d 0f 96 35 c8 99 | 20 22 57 69 6d 70 5f 44 |=1...5..| "Wimp_D|
|00002ed0| 65 63 6f 64 65 4d 65 6e | 75 22 2c 2c 6d 65 6e 75 |ecodeMen|u",,menu|
|00002ee0| 68 61 6e 64 6c 65 25 2c | 62 6c 6f 63 6b 25 2c 63 |handle%,|block%,c|
|00002ef0| 68 6f 69 63 65 73 25 0d | 0f a0 0e e3 20 49 25 3d |hoices%.|.... I%=|
|00002f00| 31 20 b8 20 34 0d 0f aa | 1d 20 20 51 25 3d a7 24 |1 . 4...|.  Q%=.$|
|00002f10| 63 68 6f 69 63 65 73 25 | 2c 22 2e 22 2c 50 25 2b |choices%|,".",P%+|
|00002f20| 31 29 0d 0f b4 26 20 20 | 63 68 6f 69 63 65 24 28 |1)...&  |choice$(|
|00002f30| 49 25 29 3d c1 24 63 68 | 6f 69 63 65 73 25 2c 50 |I%)=.$ch|oices%,P|
|00002f40| 25 2c 51 25 2d 50 25 29 | 0d 0f be 0d 20 20 50 25 |%,Q%-P%)|....  P%|
|00002f50| 3d 51 25 2b 31 0d 0f c8 | 08 ed 20 49 25 0d 0f d2 |=Q%+1...|.. I%...|
|00002f60| 24 c8 99 20 22 57 69 6d | 70 5f 47 65 74 50 6f 69 |$.. "Wim|p_GetPoi|
|00002f70| 6e 74 65 72 49 6e 66 6f | 22 2c 2c 62 6c 6f 63 6b |nterInfo|",,block|
|00002f80| 25 0d 0f dc 14 72 65 64 | 6f 25 3d 62 6c 6f 63 6b |%....red|o%=block|
|00002f90| 25 21 38 3d 31 0d 0f e6 | 14 c8 8e 20 6d 65 6e 75 |%!8=1...|... menu|
|00002fa0| 68 61 6e 64 6c 65 25 20 | ca 0d 0f f0 11 20 20 c9 |handle% |.....  .|
|00002fb0| 20 6d 65 6e 75 25 28 30 | 29 3a 0d 0f fa 15 20 20 | menu%(0|):....  |
|00002fc0| c8 8e 20 63 68 6f 69 63 | 65 24 28 31 29 20 ca 0d |.. choic|e$(1) ..|
|00002fd0| 10 04 2e 20 20 20 20 c9 | 20 22 4d 61 6b 65 20 63 |...    .| "Make c|
|00002fe0| 6c 61 73 73 20 74 61 62 | 6c 65 22 3a f2 6d 61 6b |lass tab|le":.mak|
|00002ff0| 65 5f 63 6c 61 73 73 5f | 74 61 62 6c 65 0d 10 0e |e_class_|table...|
|00003000| 38 20 20 20 20 c9 20 22 | 48 65 6c 70 22 3a c8 99 |8    . "|Help":..|
|00003010| 20 22 57 69 6d 70 5f 53 | 74 61 72 74 54 61 73 6b | "Wimp_S|tartTask|
|00003020| 22 2c 22 3c 42 6c 6f 63 | 6b 24 44 69 72 3e 2e 21 |","<Bloc|k$Dir>.!|
|00003030| 48 65 6c 70 22 0d 10 18 | 20 20 20 20 20 c9 20 22 |Help"...|     . "|
|00003040| 43 6c 6f 73 65 20 64 61 | 74 61 62 61 73 65 22 3a |Close da|tabase":|
|00003050| f2 65 78 69 74 0d 10 22 | 18 20 20 20 20 c9 20 22 |.exit.."|.    . "|
|00003060| 51 75 69 74 22 3a 71 75 | 69 74 25 3d b9 0d 10 2c |Quit":qu|it%=...,|
|00003070| 07 20 20 cb 0d 10 36 11 | 20 20 c9 20 6d 65 6e 75 |.  ...6.|  . menu|
|00003080| 25 28 31 29 3a 0d 10 40 | 15 20 20 c8 8e 20 63 68 |%(1):..@|.  .. ch|
|00003090| 6f 69 63 65 24 28 31 29 | 20 ca 0d 10 4a 1d 20 20 |oice$(1)| ...J.  |
|000030a0| 20 20 c9 20 22 53 75 62 | 6a 65 63 74 20 62 6c 6f |  . "Sub|ject blo|
|000030b0| 63 6b 69 6e 67 22 3a 0d | 10 54 17 20 20 20 20 c8 |cking":.|.T.    .|
|000030c0| 8e 20 63 68 6f 69 63 65 | 24 28 32 29 20 ca 0d 10 |. choice|$(2) ...|
|000030d0| 5e 62 20 20 20 20 20 20 | c9 20 22 47 72 6f 75 70 |^b      |. "Group|
|000030e0| 20 73 69 7a 65 73 22 3a | f2 64 69 73 70 6c 61 79 | sizes":|.display|
|000030f0| 5f 76 61 6c 75 65 73 28 | 74 6f 74 61 6c 61 6e 63 |_values(|totalanc|
|00003100| 68 6f 72 25 2c 74 6f 74 | 61 6c 25 28 29 2c 74 6f |hor%,tot|al%(),to|
|00003110| 74 61 6c 57 25 2c 74 68 | 65 61 64 69 6e 67 57 25 |talW%,th|eadingW%|
|00003120| 2c 22 42 4c 4f 43 4b 20 | 54 4f 54 41 4c 53 22 29 |,"BLOCK |TOTALS")|
|00003130| 0d 10 68 71 20 20 20 20 | 20 20 c9 20 22 42 6c 6f |..hq    |  . "Blo|
|00003140| 63 6b 20 77 65 69 67 68 | 74 69 6e 67 73 22 3a f2 |ck weigh|tings":.|
|00003150| 64 69 73 70 6c 61 79 5f | 76 61 6c 75 65 73 28 77 |display_|values(w|
|00003160| 65 69 67 68 74 61 6e 63 | 68 6f 72 25 2c 77 65 69 |eightanc|hor%,wei|
|00003170| 67 68 74 69 6e 67 25 28 | 29 2c 77 65 69 67 68 74 |ghting%(|),weight|
|00003180| 57 25 2c 77 68 65 61 64 | 69 6e 67 57 25 2c 22 42 |W%,whead|ingW%,"B|
|00003190| 4c 4f 43 4b 20 57 45 49 | 47 48 54 49 4e 47 53 22 |LOCK WEI|GHTINGS"|
|000031a0| 29 0d 10 72 5b 20 20 20 | 20 20 20 c9 20 22 50 72 |)..r[   |   . "Pr|
|000031b0| 6f 62 6c 65 6d 20 63 61 | 73 65 73 22 3a f2 73 68 |oblem ca|ses":.sh|
|000031c0| 6f 77 5f 66 69 6c 65 28 | 70 72 6f 62 6c 65 6d 61 |ow_file(|problema|
|000031d0| 6e 63 68 6f 72 25 2c 70 | 72 6f 62 6c 65 6d 57 25 |nchor%,p|roblemW%|
|000031e0| 2c 70 68 65 61 64 69 6e | 67 57 25 2c 22 50 52 4f |,pheadin|gW%,"PRO|
|000031f0| 42 4c 45 4d 20 43 41 53 | 45 53 22 29 0d 10 7c 29 |BLEM CAS|ES")..|)|
|00003200| 20 20 20 20 20 20 c9 20 | 22 44 6f 20 62 6c 6f 63 |      . |"Do bloc|
|00003210| 6b 69 6e 67 22 3a f2 62 | 6c 6f 63 6b 5f 73 74 75 |king":.b|lock_stu|
|00003220| 64 65 6e 74 73 0d 10 86 | 09 20 20 20 20 cb 0d 10 |dents...|.    ...|
|00003230| 90 19 20 20 20 20 c9 20 | 22 54 75 74 6f 72 20 67 |..    . |"Tutor g|
|00003240| 72 6f 75 70 73 22 3a 0d | 10 9a 17 20 20 20 20 c8 |roups":.|...    .|
|00003250| 8e 20 63 68 6f 69 63 65 | 24 28 32 29 20 ca 0d 10 |. choice|$(2) ...|
|00003260| a4 2c 20 20 20 20 20 20 | c9 20 22 47 72 6f 75 70 |.,      |. "Group|
|00003270| 20 73 69 7a 65 73 22 3a | f2 73 68 6f 77 5f 74 75 | sizes":|.show_tu|
|00003280| 74 6f 72 5f 67 72 6f 75 | 70 73 0d 10 ae 5b 20 20 |tor_grou|ps...[  |
|00003290| 20 20 20 20 c9 20 22 50 | 72 6f 62 6c 65 6d 20 63 |    . "P|roblem c|
|000032a0| 61 73 65 73 22 3a f2 73 | 68 6f 77 5f 66 69 6c 65 |ases":.s|how_file|
|000032b0| 28 70 72 6f 62 6c 65 6d | 61 6e 63 68 6f 72 25 2c |(problem|anchor%,|
|000032c0| 70 72 6f 62 6c 65 6d 57 | 25 2c 70 68 65 61 64 69 |problemW|%,pheadi|
|000032d0| 6e 67 57 25 2c 22 50 52 | 4f 42 4c 45 4d 20 43 41 |ngW%,"PR|OBLEM CA|
|000032e0| 53 45 53 22 29 0d 10 b8 | 2a 20 20 20 20 20 20 c9 |SES")...|*      .|
|000032f0| 20 22 41 73 73 69 67 6e | 20 74 75 74 6f 72 73 22 | "Assign| tutors"|
|00003300| 3a f2 61 73 73 69 67 6e | 5f 74 75 74 6f 72 73 0d |:.assign|_tutors.|
|00003310| 10 c2 09 20 20 20 20 cb | 0d 10 cc 1e 20 20 20 20 |...    .|....    |
|00003320| c9 20 22 56 61 6c 69 64 | 61 74 69 6f 6e 20 74 61 |. "Valid|ation ta|
|00003330| 62 6c 65 73 22 3a 0d 10 | d6 17 20 20 20 20 c8 8e |bles":..|..    ..|
|00003340| 20 63 68 6f 69 63 65 24 | 28 32 29 20 ca 0d 10 e0 | choice$|(2) ....|
|00003350| 25 20 20 20 20 20 20 c9 | 20 22 53 75 62 6a 65 63 |%      .| "Subjec|
|00003360| 74 73 22 3a f2 73 68 6f | 77 5f 74 61 62 6c 65 28 |ts":.sho|w_table(|
|00003370| 30 29 0d 10 ea 24 20 20 | 20 20 20 20 c9 20 22 43 |0)...$  |    . "C|
|00003380| 6c 61 73 73 65 73 22 3a | f2 73 68 6f 77 5f 74 61 |lasses":|.show_ta|
|00003390| 62 6c 65 28 33 29 0d 10 | f4 23 20 20 20 20 20 20 |ble(3)..|.#      |
|000033a0| c9 20 22 54 75 74 6f 72 | 73 22 3a f2 73 68 6f 77 |. "Tutor|s":.show|
|000033b0| 5f 74 61 62 6c 65 28 34 | 29 0d 10 fe 26 20 20 20 |_table(4|)...&   |
|000033c0| 20 20 20 c9 20 22 41 6c | 6c 20 73 74 61 66 66 22 |   . "Al|l staff"|
|000033d0| 3a f2 73 68 6f 77 5f 74 | 61 62 6c 65 28 35 29 0d |:.show_t|able(5).|
|000033e0| 11 08 09 20 20 20 20 cb | 0d 11 12 1d 20 20 20 20 |...    .|....    |
|000033f0| c9 20 22 50 72 69 6e 74 | 20 74 69 6d 65 74 61 62 |. "Print| timetab|
|00003400| 6c 65 73 22 3a 0d 11 1c | 15 20 20 20 20 c8 8e 20 |les":...|.    .. |
|00003410| 63 68 6f 69 63 65 32 25 | 20 ca 0d 11 26 26 20 20 |choice2%| ...&&  |
|00003420| 20 20 20 20 c9 20 30 3a | f2 74 69 6d 65 74 61 62 |    . 0:|.timetab|
|00003430| 6c 65 73 28 30 2c 74 69 | 6d 77 69 64 74 68 25 29 |les(0,ti|mwidth%)|
|00003440| 0d 11 30 26 20 20 20 20 | 20 20 c9 20 32 3a f2 74 |..0&    |  . 2:.t|
|00003450| 69 6d 65 74 61 62 6c 65 | 73 28 32 2c 74 69 6d 77 |imetable|s(2,timw|
|00003460| 69 64 74 68 25 29 0d 11 | 3a 09 20 20 20 20 cb 0d |idth%)..|:.    ..|
|00003470| 11 44 2d 20 20 20 20 c9 | 20 22 57 72 69 74 65 20 |.D-    .| "Write |
|00003480| 74 6f 20 64 61 74 61 62 | 61 73 65 22 3a f2 77 72 |to datab|ase":.wr|
|00003490| 69 74 65 5f 62 6c 6f 63 | 6b 69 6e 67 0d 11 4e 2c |ite_bloc|king..N,|
|000034a0| 20 20 20 20 c9 20 22 53 | 61 76 65 20 66 69 6c 65 |    . "S|ave file|
|000034b0| 20 61 73 20 74 65 78 74 | 22 3a f2 73 61 76 65 5f | as text|":.save_|
|000034c0| 63 6c 69 63 6b 28 32 29 | 0d 11 58 24 20 20 20 20 |click(2)|..X$    |
|000034d0| c9 20 22 53 68 6f 77 20 | 6a 6f 62 73 20 64 6f 6e |. "Show |jobs don|
|000034e0| 65 22 3a 2a 4a 6f 62 73 | 44 6f 6e 65 0d 11 62 38 |e":*Jobs|Done..b8|
|000034f0| 20 20 20 20 c9 20 22 48 | 65 6c 70 22 3a c8 99 20 |    . "H|elp":.. |
|00003500| 22 57 69 6d 70 5f 53 74 | 61 72 74 54 61 73 6b 22 |"Wimp_St|artTask"|
|00003510| 2c 22 3c 42 6c 6f 63 6b | 24 44 69 72 3e 2e 21 48 |,"<Block|$Dir>.!H|
|00003520| 65 6c 70 22 0d 11 6c 1c | 20 20 20 20 7f 3a f2 61 |elp"..l.|    .:.a|
|00003530| 6c 74 65 72 28 6e 61 6d | 65 25 2c 62 6c 6b 25 29 |lter(nam|e%,blk%)|
|00003540| 0d 11 76 07 20 20 cb 0d | 11 80 11 20 20 c9 20 6d |..v.  ..|...  . m|
|00003550| 65 6e 75 25 28 32 29 3a | 0d 11 8a 15 20 20 c8 8e |enu%(2):|....  ..|
|00003560| 20 63 68 6f 69 63 65 24 | 28 31 29 20 ca 0d 11 94 | choice$|(1) ....|
|00003570| 28 20 20 20 20 c9 20 22 | 53 61 76 65 22 3a f2 73 |(    . "|Save":.s|
|00003580| 61 76 65 5f 74 61 62 6c | 65 28 54 61 62 6c 65 6e |ave_tabl|e(Tablen|
|00003590| 61 6d 65 24 29 0d 11 9e | 2a 20 20 20 20 c9 20 22 |ame$)...|*    . "|
|000035a0| 55 70 64 61 74 65 20 77 | 65 69 67 68 74 69 6e 67 |Update w|eighting|
|000035b0| 73 22 3a f2 73 65 74 5f | 77 65 69 67 68 74 73 0d |s":.set_|weights.|
|000035c0| 11 a8 28 20 20 20 20 c9 | 20 22 53 6f 72 74 22 3a |..(    .| "Sort":|
|000035d0| f2 73 6f 72 74 5f 74 61 | 62 6c 65 28 54 61 62 6c |.sort_ta|ble(Tabl|
|000035e0| 65 6e 61 6d 65 24 29 0d | 11 b2 07 20 20 cb 0d 11 |ename$).|...  ...|
|000035f0| bc 11 20 20 c9 20 6d 65 | 6e 75 25 28 33 29 3a 0d |..  . me|nu%(3):.|
|00003600| 11 c6 15 20 20 c8 8e 20 | 63 68 6f 69 63 65 24 28 |...  .. |choice$(|
|00003610| 31 29 20 ca 0d 11 d0 1f | 20 20 20 20 c9 20 22 53 |1) .....|    . "S|
|00003620| 61 76 65 22 3a f2 73 61 | 76 65 5f 63 6c 69 63 6b |ave":.sa|ve_click|
|00003630| 28 32 29 0d 11 da 26 20 | 20 20 20 7f 3a f2 75 70 |(2)...& |   .:.up|
|00003640| 64 61 74 65 5f 77 65 69 | 67 68 74 69 6e 67 28 73 |date_wei|ghting(s|
|00003650| 75 62 25 2c 62 6c 6b 25 | 29 0d 11 e4 07 20 20 cb |ub%,blk%|)....  .|
|00003660| 0d 11 ee 11 20 20 c9 20 | 6d 65 6e 75 25 28 35 29 |....  . |menu%(5)|
|00003670| 3a 0d 11 f8 15 20 20 c8 | 8e 20 63 68 6f 69 63 65 |:....  .|. choice|
|00003680| 24 28 31 29 20 ca 0d 12 | 02 16 20 20 20 20 c9 20 |$(1) ...|..    . |
|00003690| 22 4c 6f 73 65 20 6c 69 | 73 74 22 3a 0d 12 0c 11 |"Lose li|st":....|
|000036a0| 20 20 20 20 6c 69 73 74 | 65 64 25 3d a3 0d 12 16 |    list|ed%=....|
|000036b0| 22 20 20 20 20 f2 63 6c | 6f 73 65 5f 77 69 6e 64 |"    .cl|ose_wind|
|000036c0| 6f 77 28 74 69 6d 65 74 | 61 62 6c 65 57 25 29 0d |ow(timet|ableW%).|
|000036d0| 12 20 38 20 20 20 20 f2 | 73 63 72 61 70 5f 73 6c |. 8    .|scrap_sl|
|000036e0| 69 64 69 6e 67 5f 62 6c | 6f 63 6b 28 74 69 6d 65 |iding_bl|ock(time|
|000036f0| 61 6e 63 68 6f 72 25 29 | 3a 21 74 69 6d 65 61 6e |anchor%)|:!timean|
|00003700| 63 68 6f 72 25 3d 30 0d | 12 2a 07 20 20 cb 0d 12 |chor%=0.|.*.  ...|
|00003710| 34 12 20 20 c9 20 6d 65 | 6e 75 25 28 31 30 29 3a |4.  . me|nu%(10):|
|00003720| 0d 12 3e 17 20 20 20 20 | c8 8e 20 63 68 6f 69 63 |..>.    |.. choic|
|00003730| 65 24 28 31 29 20 ca 0d | 12 48 12 20 20 20 20 20 |e$(1) ..|.H.     |
|00003740| 20 c9 20 22 53 61 76 65 | 22 0d 12 52 2b 20 20 20 | . "Save|"..R+   |
|00003750| 20 20 20 7f 3a f2 64 69 | 73 70 6c 61 79 5f 67 72 |   .:.di|splay_gr|
|00003760| 6f 75 70 28 73 75 62 25 | 2c 62 6c 6b 25 2c 22 23 |oup(sub%|,blk%,"#|
|00003770| 23 23 22 29 0d 12 5c 09 | 20 20 20 20 cb 0d 12 66 |##")..\.|    ...f|
|00003780| 11 20 20 c9 20 6d 65 6e | 75 25 28 31 31 29 0d 12 |.  . men|u%(11)..|
|00003790| 70 17 20 20 20 20 c8 8e | 20 63 68 6f 69 63 65 24 |p.    ..| choice$|
|000037a0| 28 31 29 20 ca 0d 12 7a | 12 20 20 20 20 20 20 c9 |(1) ...z|.      .|
|000037b0| 20 22 53 61 76 65 22 0d | 12 84 2c 20 20 20 20 20 | "Save".|..,     |
|000037c0| 20 7f 3a f2 64 69 73 70 | 6c 61 79 5f 67 72 6f 75 | .:.disp|lay_grou|
|000037d0| 70 28 30 2c 30 2c c2 24 | 54 75 74 70 6f 73 25 2c |p(0,0,.$|Tutpos%,|
|000037e0| 33 29 29 0d 12 8e 09 20 | 20 20 20 cb 0d 12 98 11 |3)).... |   .....|
|000037f0| 20 20 c9 20 6d 65 6e 75 | 25 28 31 32 29 0d 12 a2 |  . menu|%(12)...|
|00003800| 17 20 20 20 20 c8 8e 20 | 63 68 6f 69 63 65 24 28 |.    .. |choice$(|
|00003810| 31 29 20 ca 0d 12 ac 2b | 20 20 20 20 20 20 c9 20 |1) ....+|      . |
|00003820| 22 53 70 6c 69 74 20 67 | 72 6f 75 70 22 3a f2 73 |"Split g|roup":.s|
|00003830| 70 6c 69 74 28 73 75 62 | 25 2c 62 6c 6b 25 29 0d |plit(sub|%,blk%).|
|00003840| 12 b6 2a 20 20 20 20 20 | 20 c9 20 22 4a 6f 69 6e |..*     | . "Join|
|00003850| 20 68 61 6c 76 65 73 22 | 3a f2 6a 6f 69 6e 28 73 | halves"|:.join(s|
|00003860| 75 62 25 2c 62 6c 6b 25 | 29 0d 12 c0 09 20 20 20 |ub%,blk%|)....   |
|00003870| 20 cb 0d 12 ca 05 cb 0d | 12 d4 0f e7 20 ac 20 71 | .......|.... . q|
|00003880| 75 69 74 25 20 8c 0d 12 | de 35 20 20 e7 20 72 65 |uit% ...|.5  . re|
|00003890| 64 6f 25 20 8c 20 f2 73 | 68 6f 77 5f 6d 65 6e 75 |do% . .s|how_menu|
|000038a0| 28 6d 65 6e 75 68 61 6e | 64 6c 65 25 2c 6d 65 6e |(menuhan|dle%,men|
|000038b0| 75 78 25 2c 6d 65 6e 75 | 79 25 29 0d 12 e8 05 cd |ux%,menu|y%).....|
|000038c0| 0d 12 f2 05 e1 0d 12 fc | 05 3a 0d 13 06 48 f4 20 |........|.:...H. |
|000038d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038e0| 20 45 6e 64 20 6f 66 20 | 4d 65 6e 75 2d 72 65 6c | End of |Menu-rel|
|000038f0| 61 74 65 64 20 72 6f 75 | 74 69 6e 65 73 20 2d 2d |ated rou|tines --|
|00003900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003910| 2d 2d 0d 13 10 05 3a 0d | 13 1a 05 3a 0d 13 24 05 |--....:.|...:..$.|
|00003920| 3a 0d 13 2e 4b f4 20 49 | 63 6f 6e 20 68 61 6e 64 |:...K. I|con hand|
|00003930| 6c 69 6e 67 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ling ---|--------|
|00003940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 13 38 05 |--------|----..8.|
|00003970| 3a 0d 13 42 54 dd 20 a4 | 63 72 65 61 74 65 5f 69 |:..BT. .|create_i|
|00003980| 63 6f 6e 28 77 68 61 6e | 64 6c 65 25 2c 78 6d 69 |con(whan|dle%,xmi|
|00003990| 6e 25 2c 79 6d 69 6e 25 | 2c 77 69 64 74 68 25 2c |n%,ymin%|,width%,|
|000039a0| 68 65 69 67 68 74 25 2c | 69 63 6f 6e 66 6c 61 67 |height%,|iconflag|
|000039b0| 73 25 2c 74 65 78 74 24 | 2c 64 31 25 2c 64 32 25 |s%,text$|,d1%,d2%|
|000039c0| 2c 64 33 25 29 0d 13 4c | 0d ea 20 68 61 6e 64 6c |,d3%)..L|.. handl|
|000039d0| 65 25 0d 13 56 15 62 6c | 6f 63 6b 25 21 30 3d 77 |e%..V.bl|ock%!0=w|
|000039e0| 68 61 6e 64 6c 65 25 0d | 13 60 21 62 6c 6f 63 6b |handle%.|.`!block|
|000039f0| 25 21 34 3d 78 6d 69 6e | 25 3a 62 6c 6f 63 6b 25 |%!4=xmin|%:block%|
|00003a00| 21 38 3d 79 6d 69 6e 25 | 0d 13 6a 32 62 6c 6f 63 |!8=ymin%|..j2bloc|
|00003a10| 6b 25 21 31 32 3d 78 6d | 69 6e 25 2b 77 69 64 74 |k%!12=xm|in%+widt|
|00003a20| 68 25 3a 62 6c 6f 63 6b | 25 21 31 36 3d 79 6d 69 |h%:block|%!16=ymi|
|00003a30| 6e 25 2b 68 65 69 67 68 | 74 25 0d 13 74 18 62 6c |n%+heigh|t%..t.bl|
|00003a40| 6f 63 6b 25 21 32 30 3d | 69 63 6f 6e 66 6c 61 67 |ock%!20=|iconflag|
|00003a50| 73 25 0d 13 7e 0d e7 20 | 64 31 25 3d 30 20 8c 0d |s%..~.. |d1%=0 ..|
|00003a60| 13 88 18 20 20 24 28 62 | 6c 6f 63 6b 25 2b 32 34 |...  $(b|lock%+24|
|00003a70| 29 3d 74 65 78 74 24 0d | 13 92 07 20 20 cc 0d 13 |)=text$.|...  ...|
|00003a80| 9c 13 20 20 62 6c 6f 63 | 6b 25 21 32 34 3d 64 31 |..  bloc|k%!24=d1|
|00003a90| 25 0d 13 a6 13 20 20 62 | 6c 6f 63 6b 25 21 32 38 |%....  b|lock%!28|
|00003aa0| 3d 64 32 25 0d 13 b0 13 | 20 20 62 6c 6f 63 6b 25 |=d2%....|  block%|
|00003ab0| 21 33 32 3d 64 33 25 0d | 13 ba 05 cd 0d 13 c4 2a |!32=d3%.|.......*|
|00003ac0| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |.. "Wimp|_CreateI|
|00003ad0| 63 6f 6e 22 2c 2c 62 6c | 6f 63 6b 25 20 b8 20 68 |con",,bl|ock% . h|
|00003ae0| 61 6e 64 6c 65 25 0d 13 | ce 0c 3d 68 61 6e 64 6c |andle%..|..=handl|
|00003af0| 65 25 0d 13 d8 05 3a 0d | 13 e2 1b dd 20 f2 72 65 |e%....:.|.... .re|
|00003b00| 64 72 61 77 5f 69 63 6f | 6e 28 77 69 25 2c 69 63 |draw_ico|n(wi%,ic|
|00003b10| 25 29 0d 13 ec 0f 21 62 | 6c 6f 63 6b 25 3d 77 69 |%)....!b|lock%=wi|
|00003b20| 25 0d 13 f6 10 62 6c 6f | 63 6b 25 21 34 3d 69 63 |%....blo|ck%!4=ic|
|00003b30| 25 0d 14 00 0e 62 6c 6f | 63 6b 25 21 38 3d 30 0d |%....blo|ck%!8=0.|
|00003b40| 14 0a 0f 62 6c 6f 63 6b | 25 21 31 32 3d 30 0d 14 |...block|%!12=0..|
|00003b50| 14 22 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 49 63 |.".. "Wi|mp_SetIc|
|00003b60| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |onState"|,,block%|
|00003b70| 0d 14 1e 2a 62 6c 6f 63 | 6b 25 21 38 3d 30 3a 62 |...*bloc|k%!8=0:b|
|00003b80| 6c 6f 63 6b 25 21 31 32 | 3d 77 69 25 3a 62 6c 6f |lock%!12|=wi%:blo|
|00003b90| 63 6b 25 21 31 36 3d 69 | 63 25 0d 14 28 05 e1 0d |ck%!16=i|c%..(...|
|00003ba0| 14 32 05 3a 0d 14 3c 21 | dd 20 f2 69 63 6f 6e 5f |.2.:..<!|. .icon_|
|00003bb0| 62 69 74 28 62 69 74 25 | 2c 77 69 25 2c 69 63 25 |bit(bit%|,wi%,ic%|
|00003bc0| 2c 6f 6e 25 29 0d 14 46 | 0f 21 62 6c 6f 63 6b 25 |,on%)..F|.!block%|
|00003bd0| 3d 77 69 25 0d 14 50 10 | 62 6c 6f 63 6b 25 21 34 |=wi%..P.|block%!4|
|00003be0| 3d 69 63 25 0d 14 5a 0c | c8 8e 20 6f 6e 25 20 ca |=ic%..Z.|.. on% .|
|00003bf0| 0d 14 64 26 20 20 c9 20 | b9 3a 62 6c 6f 63 6b 25 |..d&  . |.:block%|
|00003c00| 21 38 3d 30 3a 62 6c 6f | 63 6b 25 21 31 32 3d 31 |!8=0:blo|ck%!12=1|
|00003c10| 3c 3c 62 69 74 25 0d 14 | 6e 2c 20 20 c9 20 a3 3a |<<bit%..|n,  . .:|
|00003c20| 62 6c 6f 63 6b 25 21 38 | 3d 31 3c 3c 62 69 74 25 |block%!8|=1<<bit%|
|00003c30| 3a 62 6c 6f 63 6b 25 21 | 31 32 3d 31 3c 3c 62 69 |:block%!|12=1<<bi|
|00003c40| 74 25 0d 14 78 05 cb 0d | 14 82 22 c8 99 20 22 57 |t%..x...|..".. "W|
|00003c50| 69 6d 70 5f 53 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_SetI|conState|
|00003c60| 22 2c 2c 62 6c 6f 63 6b | 25 0d 14 8c 05 e1 0d 14 |",,block|%.......|
|00003c70| 96 05 3a 0d 14 a0 16 dd | 20 f2 73 65 6c 65 63 74 |..:.....| .select|
|00003c80| 28 77 69 25 2c 69 63 25 | 29 0d 14 aa 0f 21 62 6c |(wi%,ic%|)....!bl|
|00003c90| 6f 63 6b 25 3d 77 69 25 | 0d 14 b4 10 62 6c 6f 63 |ock%=wi%|....bloc|
|00003ca0| 6b 25 21 34 3d 69 63 25 | 0d 14 be 12 62 6c 6f 63 |k%!4=ic%|....bloc|
|00003cb0| 6b 25 21 38 3d 31 3c 3c | 32 31 0d 14 c8 13 62 6c |k%!8=1<<|21....bl|
|00003cc0| 6f 63 6b 25 21 31 32 3d | 31 3c 3c 32 31 0d 14 d2 |ock%!12=|1<<21...|
|00003cd0| 22 c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |".. "Wim|p_SetIco|
|00003ce0| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |nState",|,block%.|
|00003cf0| 14 dc 05 e1 0d 14 e6 05 | 3a 0d 14 f0 18 dd 20 f2 |........|:..... .|
|00003d00| 64 65 73 65 6c 65 63 74 | 28 77 69 25 2c 69 63 25 |deselect|(wi%,ic%|
|00003d10| 29 0d 14 fa 0f 21 62 6c | 6f 63 6b 25 3d 77 69 25 |)....!bl|ock%=wi%|
|00003d20| 0d 15 04 10 62 6c 6f 63 | 6b 25 21 34 3d 69 63 25 |....bloc|k%!4=ic%|
|00003d30| 0d 15 0e 0e 62 6c 6f 63 | 6b 25 21 38 3d 30 0d 15 |....bloc|k%!8=0..|
|00003d40| 18 15 62 6c 6f 63 6b 25 | 21 31 32 3d 28 31 3c 3c |..block%|!12=(1<<|
|00003d50| 32 31 29 0d 15 22 22 c8 | 99 20 22 57 69 6d 70 5f |21).."".|. "Wimp_|
|00003d60| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |SetIconS|tate",,b|
|00003d70| 6c 6f 63 6b 25 0d 15 2c | 05 e1 0d 15 36 05 3a 0d |lock%..,|....6.:.|
|00003d80| 15 40 16 dd 20 f2 69 6e | 76 65 72 74 28 77 69 25 |.@.. .in|vert(wi%|
|00003d90| 2c 69 63 25 29 0d 15 4a | 40 e7 20 a4 73 65 6c 65 |,ic%)..J|@. .sele|
|00003da0| 63 74 65 64 28 77 69 25 | 2c 69 63 25 29 20 8c 20 |cted(wi%|,ic%) . |
|00003db0| f2 64 65 73 65 6c 65 63 | 74 28 77 69 25 2c 69 63 |.deselec|t(wi%,ic|
|00003dc0| 25 29 20 8b 20 f2 73 65 | 6c 65 63 74 28 77 69 25 |%) . .se|lect(wi%|
|00003dd0| 2c 69 63 25 29 0d 15 54 | 05 e1 0d 15 5e 05 3a 0d |,ic%)..T|....^.:.|
|00003de0| 15 68 18 dd 20 a4 73 65 | 6c 65 63 74 65 64 28 77 |.h.. .se|lected(w|
|00003df0| 69 25 2c 69 63 25 29 0d | 15 72 1c 21 62 6c 6f 63 |i%,ic%).|.r.!bloc|
|00003e00| 6b 25 3d 77 69 25 3a 62 | 6c 6f 63 6b 25 21 34 3d |k%=wi%:b|lock%!4=|
|00003e10| 69 63 25 0d 15 7c 22 c8 | 99 20 22 57 69 6d 70 5f |ic%..|".|. "Wimp_|
|00003e20| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |GetIconS|tate",,b|
|00003e30| 6c 6f 63 6b 25 0d 15 86 | 1e 3d 28 28 62 6c 6f 63 |lock%...|.=((bloc|
|00003e40| 6b 25 21 32 34 29 20 80 | 20 28 31 3c 3c 32 31 29 |k%!24) .| (1<<21)|
|00003e50| 29 3e 30 0d 15 90 05 3a | 0d 15 9a 16 dd 20 a4 73 |)>0....:|..... .s|
|00003e60| 68 61 64 65 64 28 77 69 | 25 2c 69 63 25 29 0d 15 |haded(wi|%,ic%)..|
|00003e70| a4 1c 21 62 6c 6f 63 6b | 25 3d 77 69 25 3a 62 6c |..!block|%=wi%:bl|
|00003e80| 6f 63 6b 25 21 34 3d 69 | 63 25 0d 15 ae 22 c8 99 |ock%!4=i|c%..."..|
|00003e90| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00003ea0| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 15 b8 1e |ate",,bl|ock%....|
|00003eb0| 3d 28 28 62 6c 6f 63 6b | 25 21 32 34 29 20 80 20 |=((block|%!24) . |
|00003ec0| 28 31 3c 3c 32 32 29 29 | 3e 30 0d 15 c2 05 3b 0d |(1<<22))|>0....;.|
|00003ed0| 15 cc 1d dd 20 a4 73 65 | 6c 65 63 74 65 64 5f 65 |.... .se|lected_e|
|00003ee0| 73 67 28 77 69 25 2c 65 | 73 67 25 29 0d 15 d6 41 |sg(wi%,e|sg%)...A|
|00003ef0| c8 99 20 22 57 69 6d 70 | 5f 57 68 69 63 68 49 63 |.. "Wimp|_WhichIc|
|00003f00| 6f 6e 22 2c 77 69 25 2c | 62 6c 6f 63 6b 25 2c 26 |on",wi%,|block%,&|
|00003f10| 30 30 33 46 30 30 30 30 | 2c 26 30 30 32 30 30 30 |003F0000|,&002000|
|00003f20| 30 30 2b 28 65 73 67 25 | 3c 3c 31 36 29 0d 15 e0 |00+(esg%|<<16)...|
|00003f30| 0c 3d 21 62 6c 6f 63 6b | 25 0d 15 ea 05 3a 0d 15 |.=!block|%....:..|
|00003f40| f4 22 dd 20 f2 73 65 74 | 5f 69 63 6f 6e 5f 63 6f |.". .set|_icon_co|
|00003f50| 6c 73 28 77 69 25 2c 69 | 63 25 2c 63 6f 6c 25 29 |ls(wi%,i|c%,col%)|
|00003f60| 0d 15 fe 44 21 62 6c 6f | 63 6b 25 3d 77 69 25 3a |...D!blo|ck%=wi%:|
|00003f70| 62 6c 6f 63 6b 25 21 34 | 3d 69 63 25 3a 62 6c 6f |block%!4|=ic%:blo|
|00003f80| 63 6b 25 21 38 3d 28 63 | 6f 6c 25 3c 3c 32 34 29 |ck%!8=(c|ol%<<24)|
|00003f90| 3a 62 6c 6f 63 6b 25 21 | 31 32 3d 26 46 46 30 30 |:block%!|12=&FF00|
|00003fa0| 30 30 30 30 0d 16 08 22 | c8 99 20 22 57 69 6d 70 |0000..."|.. "Wimp|
|00003fb0| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00003fc0| 62 6c 6f 63 6b 25 0d 16 | 12 05 e1 0d 16 1c 05 3a |block%..|.......:|
|00003fd0| 0d 16 26 24 dd 20 a4 6e | 65 78 74 5f 77 72 69 74 |..&$. .n|ext_writ|
|00003fe0| 65 61 62 6c 65 28 77 69 | 25 2c 69 63 25 2c 64 25 |eable(wi|%,ic%,d%|
|00003ff0| 2c 72 25 29 0d 16 30 11 | ea 20 50 25 2c 45 25 2c |,r%)..0.|. P%,E%,|
|00004000| 6e 65 78 74 25 0d 16 3a | 35 c8 99 20 22 57 69 6d |next%..:|5.. "Wim|
|00004010| 70 5f 57 68 69 63 68 49 | 63 6f 6e 22 2c 77 69 25 |p_WhichI|con",wi%|
|00004020| 2c 62 6c 6f 63 6b 25 2c | 26 30 30 43 30 45 30 30 |,block%,|&00C0E00|
|00004030| 30 2c 28 31 34 3c 3c 31 | 32 29 0d 16 44 05 f5 0d |0,(14<<1|2)..D...|
|00004040| 16 4e 0b 20 20 45 25 2b | 3d 34 0d 16 58 12 fd 20 |.N.  E%+|=4..X.. |
|00004050| 62 6c 6f 63 6b 25 21 45 | 25 3d 2d 31 0d 16 62 1d |block%!E|%=-1..b.|
|00004060| c8 95 20 62 6c 6f 63 6b | 25 21 50 25 3c 3e 69 63 |.. block|%!P%<>ic|
|00004070| 25 20 80 20 50 25 3c 45 | 25 0d 16 6c 0b 20 20 50 |% . P%<E|%..l.  P|
|00004080| 25 2b 3d 34 0d 16 76 05 | ce 0d 16 80 13 e7 20 50 |%+=4..v.|...... P|
|00004090| 25 3d 45 25 20 8c 20 50 | 25 2d 3d 34 0d 16 8a 18 |%=E% . P|%-=4....|
|000040a0| e7 20 72 25 3d 31 20 80 | 20 50 25 2b 34 3d 45 25 |. r%=1 .| P%+4=E%|
|000040b0| 20 8c 3d b9 0d 16 94 0b | c8 8e 20 64 25 20 ca 0d | .=.....|.. d% ..|
|000040c0| 16 9e 0f 20 20 c9 20 30 | 3a 50 25 3d 45 25 0d 16 |...  . 0|:P%=E%..|
|000040d0| a8 0f 20 20 c9 20 32 3a | 50 25 3d 2d 34 0d 16 b2 |..  . 2:|P%=-4...|
|000040e0| 10 20 20 7f 3a 50 25 2b | 3d 34 2a 64 25 0d 16 bc |.  .:P%+|=4*d%...|
|000040f0| 05 cb 0d 16 c6 0b c8 8e | 20 50 25 20 ca 0d 16 d0 |........| P% ....|
|00004100| 18 20 20 c9 20 45 25 3a | 6e 65 78 74 25 3d 21 62 |.  . E%:|next%=!b|
|00004110| 6c 6f 63 6b 25 0d 16 da | 1e 20 20 c9 20 2d 34 3a |lock%...|.  . -4:|
|00004120| 6e 65 78 74 25 3d 62 6c | 6f 63 6b 25 21 28 45 25 |next%=bl|ock%!(E%|
|00004130| 2d 34 29 0d 16 e4 17 20 | 20 7f 3a 6e 65 78 74 25 |-4).... | .:next%|
|00004140| 3d 62 6c 6f 63 6b 25 21 | 50 25 0d 16 ee 05 cb 0d |=block%!|P%......|
|00004150| 16 f8 19 f2 73 65 74 5f | 63 61 72 65 74 28 77 69 |....set_|caret(wi|
|00004160| 25 2c 6e 65 78 74 25 29 | 0d 17 02 06 3d a3 0d 17 |%,next%)|....=...|
|00004170| 0c 05 3a 0d 17 16 14 dd | 20 a4 74 65 78 74 28 77 |..:.....| .text(w|
|00004180| 69 25 2c 69 63 25 29 0d | 17 20 1c 21 62 6c 6f 63 |i%,ic%).|. .!bloc|
|00004190| 6b 25 3d 77 69 25 3a 62 | 6c 6f 63 6b 25 21 34 3d |k%=wi%:b|lock%!4=|
|000041a0| 69 63 25 0d 17 2a 22 c8 | 99 20 22 57 69 6d 70 5f |ic%..*".|. "Wimp_|
|000041b0| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |GetIconS|tate",,b|
|000041c0| 6c 6f 63 6b 25 0d 17 34 | 0e 3d 62 6c 6f 63 6b 25 |lock%..4|.=block%|
|000041d0| 21 32 38 0d 17 3e 05 3a | 0d 17 48 1b dd 20 a4 74 |!28..>.:|..H.. .t|
|000041e0| 65 78 74 5f 6c 65 6e 67 | 74 68 28 77 69 25 2c 69 |ext_leng|th(wi%,i|
|000041f0| 63 25 29 0d 17 52 1c 21 | 62 6c 6f 63 6b 25 3d 77 |c%)..R.!|block%=w|
|00004200| 69 25 3a 62 6c 6f 63 6b | 25 21 34 3d 69 63 25 0d |i%:block|%!4=ic%.|
|00004210| 17 5c 22 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |.\".. "W|imp_GetI|
|00004220| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |conState|",,block|
|00004230| 25 0d 17 66 14 3d a9 28 | 24 28 62 6c 6f 63 6b 25 |%..f.=.(|$(block%|
|00004240| 21 32 38 29 29 0d 17 70 | 05 3a 0d 17 7a 1d dd 20 |!28))..p|.:..z.. |
|00004250| f2 73 65 74 5f 63 61 72 | 65 74 28 68 61 6e 64 6c |.set_car|et(handl|
|00004260| 65 25 2c 69 63 25 29 0d | 17 84 4b c8 99 20 22 57 |e%,ic%).|..K.. "W|
|00004270| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|00004280| 74 69 6f 6e 22 2c 68 61 | 6e 64 6c 65 25 2c 69 63 |tion",ha|ndle%,ic|
|00004290| 25 2c 30 2c 30 2c 2d 31 | 2c a4 74 65 78 74 5f 6c |%,0,0,-1|,.text_l|
|000042a0| 65 6e 67 74 68 28 68 61 | 6e 64 6c 65 25 2c 69 63 |ength(ha|ndle%,ic|
|000042b0| 25 29 0d 17 8e 05 e1 0d | 17 98 05 3a 0d 17 a2 1d |%)......|...:....|
|000042c0| dd 20 f2 61 6c 74 65 72 | 5f 66 6c 61 67 73 28 64 |. .alter|_flags(d|
|000042d0| 66 67 25 2c 66 66 67 25 | 29 0d 17 ac 09 ea 20 69 |fg%,ffg%|)..... i|
|000042e0| 63 25 0d 17 b6 12 21 62 | 6c 6f 63 6b 25 3d 6d 61 |c%....!b|lock%=ma|
|000042f0| 69 6e 57 25 0d 17 c0 19 | e3 20 69 63 25 3d 30 20 |inW%....|. ic%=0 |
|00004300| b8 20 66 69 65 6c 64 73 | 25 2a 32 2d 31 0d 17 ca |. fields|%*2-1...|
|00004310| 31 20 20 62 6c 6f 63 6b | 25 21 34 3d 69 63 25 3a |1  block|%!4=ic%:|
|00004320| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00004330| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 17 |State",,|block%..|
|00004340| d4 33 20 20 e7 20 28 69 | 63 25 20 83 20 32 29 3d |.3  . (i|c% . 2)=|
|00004350| 30 20 8c 20 62 6c 6f 63 | 6b 25 21 38 3d 64 66 67 |0 . bloc|k%!8=dfg|
|00004360| 25 20 8b 20 62 6c 6f 63 | 6b 25 21 38 3d 66 66 67 |% . bloc|k%!8=ffg|
|00004370| 25 0d 17 de 19 20 20 62 | 6c 6f 63 6b 25 21 31 32 |%....  b|lock%!12|
|00004380| 3d 26 46 46 46 46 46 46 | 46 46 0d 17 e8 24 20 20 |=&FFFFFF|FF...$  |
|00004390| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|000043a0| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 17 |State",,|block%..|
|000043b0| f2 09 ed 20 69 63 25 0d | 17 fc 05 e1 0d 18 06 05 |... ic%.|........|
|000043c0| 3a 0d 18 10 20 dd 20 f2 | 64 63 6f 6c 6f 75 72 28 |:... . .|dcolour(|
|000043d0| 77 69 25 2c 69 63 25 2c | 63 6f 6c 25 2c 66 62 25 |wi%,ic%,|col%,fb%|
|000043e0| 29 0d 18 1a 3b 21 62 6c | 6f 63 6b 25 3d 77 69 25 |)...;!bl|ock%=wi%|
|000043f0| 3a 62 6c 6f 63 6b 25 21 | 34 3d 69 63 25 3a c8 99 |:block%!|4=ic%:..|
|00004400| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00004410| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 18 24 0c |ate",,bl|ock%..$.|
|00004420| c8 8e 20 66 62 25 20 ca | 0d 18 2e 2f 20 20 c9 20 |.. fb% .|.../  . |
|00004430| 30 3a 62 6c 6f 63 6b 25 | 21 38 3d 63 6f 6c 25 3c |0:block%|!8=col%<|
|00004440| 3c 32 38 3a 62 6c 6f 63 | 6b 25 21 31 32 3d 26 46 |<28:bloc|k%!12=&F|
|00004450| 30 30 30 30 30 30 30 0d | 18 38 2f 20 20 c9 20 31 |0000000.|.8/  . 1|
|00004460| 3a 62 6c 6f 63 6b 25 21 | 38 3d 63 6f 6c 25 3c 3c |:block%!|8=col%<<|
|00004470| 32 34 3a 62 6c 6f 63 6b | 25 21 31 32 3d 26 30 46 |24:block|%!12=&0F|
|00004480| 30 30 30 30 30 30 0d 18 | 42 05 cb 0d 18 4c 22 c8 |000000..|B....L".|
|00004490| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|000044a0| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 0d 18 56 |tate",,b|lock%..V|
|000044b0| 05 e1 0d 18 60 05 3a 0d | 18 6a 4b f4 20 2d 2d 2d |....`.:.|.jK. ---|
|000044c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 45 6e |--------|----- En|
|000044d0| 64 20 6f 66 20 49 63 6f | 6e 2d 72 65 6c 61 74 65 |d of Ico|n-relate|
|000044e0| 64 20 72 6f 75 74 69 6e | 65 73 20 2d 2d 2d 2d 2d |d routin|es -----|
|000044f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004500| 2d 2d 0d 18 74 05 3a 0d | 18 7e 05 3a 0d 18 88 05 |--..t.:.|.~.:....|
|00004510| 3a 0d 18 92 4b f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |:...K. -|--------|
|00004520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 57 69 6e 64 6f 77 |--------|- Window|
|00004530| 2d 72 65 6c 61 74 65 64 | 20 72 6f 75 74 69 6e 65 |-related| routine|
|00004540| 73 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |s ------|--------|
|00004550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 18 9c 05 |--------|----....|
|00004560| 3a 0d 18 a6 15 dd 20 f2 | 63 72 65 61 74 65 5f 77 |:..... .|create_w|
|00004570| 69 6e 64 6f 77 73 0d 18 | b0 33 c8 99 20 22 57 69 |indows..|.3.. "Wi|
|00004580| 6d 70 5f 4f 70 65 6e 54 | 65 6d 70 6c 61 74 65 22 |mp_OpenT|emplate"|
|00004590| 2c 2c 22 3c 42 6c 6f 63 | 6b 24 44 69 72 3e 2e 54 |,,"<Bloc|k$Dir>.T|
|000045a0| 65 6d 70 6c 61 74 65 73 | 22 0d 18 ba 20 69 6e 66 |emplates|"... inf|
|000045b0| 6f 57 25 3d a4 6e 65 77 | 5f 77 69 6e 64 6f 77 28 |oW%=.new|_window(|
|000045c0| 22 69 6e 66 6f 22 2c 31 | 29 0d 18 c4 1d 24 a4 74 |"info",1|)....$.t|
|000045d0| 65 78 74 28 69 6e 66 6f | 57 25 2c 37 29 3d 76 65 |ext(info|W%,7)=ve|
|000045e0| 72 73 69 6f 6e 24 0d 18 | ce 20 24 a4 74 65 78 74 |rsion$..|. $.text|
|000045f0| 28 69 6e 66 6f 57 25 2c | 38 29 3d 69 6e 74 76 65 |(infoW%,|8)=intve|
|00004600| 72 73 69 6f 6e 24 0d 18 | d8 20 6d 61 69 6e 57 25 |rsion$..|. mainW%|
|00004610| 3d a4 6e 65 77 5f 77 69 | 6e 64 6f 77 28 22 6d 61 |=.new_wi|ndow("ma|
|00004620| 69 6e 22 2c 31 29 0d 18 | e2 17 64 61 74 61 62 61 |in",1)..|..databa|
|00004630| 73 65 25 3d 62 6c 6f 63 | 6b 25 21 37 32 0d 18 ec |se%=bloc|k%!72...|
|00004640| 26 68 65 61 64 69 6e 67 | 57 25 3d a4 6e 65 77 5f |&heading|W%=.new_|
|00004650| 77 69 6e 64 6f 77 28 22 | 68 65 61 64 69 6e 67 22 |window("|heading"|
|00004660| 2c 31 29 0d 18 f6 23 f2 | 73 65 74 5f 69 63 6f 6e |,1)...#.|set_icon|
|00004670| 5f 63 6f 6c 73 28 68 65 | 61 64 69 6e 67 57 25 2c |_cols(he|adingW%,|
|00004680| 30 2c 26 46 37 29 0d 19 | 00 21 74 6f 74 61 6c 57 |0,&F7)..|.!totalW|
|00004690| 25 3d a4 6e 65 77 5f 77 | 69 6e 64 6f 77 28 22 6d |%=.new_w|indow("m|
|000046a0| 61 69 6e 22 2c 31 29 0d | 19 0a 1c 24 62 6c 6f 63 |ain",1).|...$bloc|
|000046b0| 6b 25 21 37 32 3d 22 47 | 72 6f 75 70 20 73 69 7a |k%!72="G|roup siz|
|000046c0| 65 73 22 0d 19 14 27 74 | 68 65 61 64 69 6e 67 57 |es"...'t|headingW|
|000046d0| 25 3d a4 6e 65 77 5f 77 | 69 6e 64 6f 77 28 22 68 |%=.new_w|indow("h|
|000046e0| 65 61 64 69 6e 67 22 2c | 31 29 0d 19 1e 24 f2 73 |eading",|1)...$.s|
|000046f0| 65 74 5f 69 63 6f 6e 5f | 63 6f 6c 73 28 74 68 65 |et_icon_|cols(the|
|00004700| 61 64 69 6e 67 57 25 2c | 30 2c 26 39 37 29 0d 19 |adingW%,|0,&97)..|
|00004710| 28 22 77 65 69 67 68 74 | 57 25 3d a4 6e 65 77 5f |("weight|W%=.new_|
|00004720| 77 69 6e 64 6f 77 28 22 | 6d 61 69 6e 22 2c 31 29 |window("|main",1)|
|00004730| 0d 19 32 21 24 62 6c 6f | 63 6b 25 21 37 32 3d 22 |..2!$blo|ck%!72="|
|00004740| 42 6c 6f 63 6b 20 77 65 | 69 67 68 74 69 6e 67 73 |Block we|ightings|
|00004750| 22 0d 19 3c 27 77 68 65 | 61 64 69 6e 67 57 25 3d |"..<'whe|adingW%=|
|00004760| a4 6e 65 77 5f 77 69 6e | 64 6f 77 28 22 68 65 61 |.new_win|dow("hea|
|00004770| 64 69 6e 67 22 2c 31 29 | 0d 19 46 24 f2 73 65 74 |ding",1)|..F$.set|
|00004780| 5f 69 63 6f 6e 5f 63 6f | 6c 73 28 77 68 65 61 64 |_icon_co|ls(whead|
|00004790| 69 6e 67 57 25 2c 30 2c | 26 41 37 29 0d 19 50 23 |ingW%,0,|&A7)..P#|
|000047a0| 70 72 6f 62 6c 65 6d 57 | 25 3d a4 6e 65 77 5f 77 |problemW|%=.new_w|
|000047b0| 69 6e 64 6f 77 28 22 6d | 61 69 6e 22 2c 31 29 0d |indow("m|ain",1).|
|000047c0| 19 5a 1e 24 62 6c 6f 63 | 6b 25 21 37 32 3d 22 50 |.Z.$bloc|k%!72="P|
|000047d0| 72 6f 62 6c 65 6d 20 63 | 61 73 65 73 22 0d 19 64 |roblem c|ases"..d|
|000047e0| 27 70 68 65 61 64 69 6e | 67 57 25 3d a4 6e 65 77 |'pheadin|gW%=.new|
|000047f0| 5f 77 69 6e 64 6f 77 28 | 22 68 65 61 64 69 6e 67 |_window(|"heading|
|00004800| 22 2c 31 29 0d 19 6e 24 | f2 73 65 74 5f 69 63 6f |",1)..n$|.set_ico|
|00004810| 6e 5f 63 6f 6c 73 28 70 | 68 65 61 64 69 6e 67 57 |n_cols(p|headingW|
|00004820| 25 2c 30 2c 26 42 37 29 | 0d 19 78 24 74 75 74 6f |%,0,&B7)|..x$tuto|
|00004830| 72 67 72 70 57 25 3d a4 | 6e 65 77 5f 77 69 6e 64 |rgrpW%=.|new_wind|
|00004840| 6f 77 28 22 6d 61 69 6e | 22 2c 31 29 0d 19 82 1d |ow("main|",1)....|
|00004850| 24 62 6c 6f 63 6b 25 21 | 37 32 3d 22 54 75 74 6f |$block%!|72="Tuto|
|00004860| 72 20 67 72 6f 75 70 73 | 22 0d 19 8c 21 67 72 6f |r groups|"...!gro|
|00004870| 75 70 57 25 3d a4 6e 65 | 77 5f 77 69 6e 64 6f 77 |upW%=.ne|w_window|
|00004880| 28 22 6d 61 69 6e 22 2c | 31 29 0d 19 96 19 47 72 |("main",|1)....Gr|
|00004890| 6f 75 70 54 69 74 6c 65 | 25 3d 62 6c 6f 63 6b 25 |oupTitle|%=block%|
|000048a0| 21 37 32 0d 19 a0 27 67 | 68 65 61 64 69 6e 67 57 |!72...'g|headingW|
|000048b0| 25 3d a4 6e 65 77 5f 77 | 69 6e 64 6f 77 28 22 68 |%=.new_w|indow("h|
|000048c0| 65 61 64 69 6e 67 22 2c | 31 29 0d 19 aa 24 f2 73 |eading",|1)...$.s|
|000048d0| 65 74 5f 69 63 6f 6e 5f | 63 6f 6c 73 28 67 68 65 |et_icon_|cols(ghe|
|000048e0| 61 64 69 6e 67 57 25 2c | 30 2c 26 45 37 29 0d 19 |adingW%,|0,&E7)..|
|000048f0| b4 3b 61 63 63 65 73 73 | 57 25 3d a4 6e 65 77 5f |.;access|W%=.new_|
|00004900| 77 69 6e 64 6f 77 28 22 | 61 63 63 65 73 73 22 2c |window("|access",|
|00004910| 31 29 3a 41 63 63 65 73 | 73 54 69 74 6c 65 25 3d |1):Acces|sTitle%=|
|00004920| 62 6c 6f 63 6b 25 21 37 | 32 0d 19 be 1f 50 61 73 |block%!7|2....Pas|
|00004930| 73 77 6f 72 64 25 3d a4 | 74 65 78 74 28 61 63 63 |sword%=.|text(acc|
|00004940| 65 73 73 57 25 2c 30 29 | 0d 19 c8 3a 64 61 74 61 |essW%,0)|...:data|
|00004950| 64 69 63 57 25 3d a4 6e | 65 77 5f 77 69 6e 64 6f |dicW%=.n|ew_windo|
|00004960| 77 28 22 64 61 74 61 64 | 69 63 22 2c 31 29 3a 54 |w("datad|ic",1):T|
|00004970| 61 62 54 69 74 6c 65 25 | 3d 62 6c 6f 63 6b 25 21 |abTitle%|=block%!|
|00004980| 37 32 0d 19 d2 3a 73 61 | 76 65 57 25 3d a4 6e 65 |72...:sa|veW%=.ne|
|00004990| 77 5f 77 69 6e 64 6f 77 | 28 22 73 61 76 65 22 2c |w_window|("save",|
|000049a0| 31 29 3a 53 61 76 65 4c | 69 73 74 25 3d a4 74 65 |1):SaveL|ist%=.te|
|000049b0| 78 74 28 73 61 76 65 57 | 25 2c 30 29 0d 19 dc 24 |xt(saveW|%,0)...$|
|000049c0| 70 72 6f 6d 70 74 57 25 | 3d a4 6e 65 77 5f 77 69 |promptW%|=.new_wi|
|000049d0| 6e 64 6f 77 28 22 70 72 | 6f 6d 70 74 22 2c 31 29 |ndow("pr|ompt",1)|
|000049e0| 0d 19 e6 22 74 75 74 6f | 72 57 25 3d a4 6e 65 77 |..."tuto|rW%=.new|
|000049f0| 5f 77 69 6e 64 6f 77 28 | 22 74 75 74 6f 72 22 2c |_window(|"tutor",|
|00004a00| 31 29 0d 19 f0 2a 74 69 | 6d 65 74 61 62 6c 65 57 |1)...*ti|metableW|
|00004a10| 25 3d a4 6e 65 77 5f 77 | 69 6e 64 6f 77 28 22 74 |%=.new_w|indow("t|
|00004a20| 69 6d 65 74 61 62 6c 65 | 22 2c 31 29 0d 19 fa 3e |imetable|",1)...>|
|00004a30| 6e 6f 74 69 66 79 57 25 | 3d a4 6e 65 77 5f 77 69 |notifyW%|=.new_wi|
|00004a40| 6e 64 6f 77 28 22 6e 6f | 74 69 66 79 22 2c 31 29 |ndow("no|tify",1)|
|00004a50| 3a 4e 6f 74 69 66 79 25 | 3d a4 74 65 78 74 28 6e |:Notify%|=.text(n|
|00004a60| 6f 74 69 66 79 57 25 2c | 30 29 0d 1a 04 2b 62 6c |otifyW%,|0)...+bl|
|00004a70| 6f 63 6b 73 57 25 3d a4 | 6e 65 77 5f 77 69 6e 64 |ocksW%=.|new_wind|
|00004a80| 6f 77 28 22 62 6c 6f 63 | 6b 73 22 2c 73 70 72 69 |ow("bloc|ks",spri|
|00004a90| 74 65 73 25 29 0d 1a 0e | 24 24 a4 74 65 78 74 28 |tes%)...|$$.text(|
|00004aa0| 62 6c 6f 63 6b 73 57 25 | 2c 30 29 3d c3 28 44 65 |blocksW%|,0)=.(De|
|00004ab0| 66 42 6c 6f 63 6b 73 25 | 29 0d 1a 18 1b c8 99 20 |fBlocks%|)...... |
|00004ac0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 54 65 6d 70 6c |"Wimp_Cl|oseTempl|
|00004ad0| 61 74 65 22 0d 1a 22 05 | e1 0d 1a 2c 05 3a 0d 1a |ate"..".|...,.:..|
|00004ae0| 36 1c dd 20 a4 6e 65 77 | 5f 77 69 6e 64 6f 77 28 |6.. .new|_window(|
|00004af0| 6e 61 6d 65 24 2c 73 70 | 25 29 0d 1a 40 0d ea 20 |name$,sp|%)..@.. |
|00004b00| 68 61 6e 64 6c 65 25 0d | 1a 4a 46 c8 99 20 22 57 |handle%.|.JF.. "W|
|00004b10| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00004b20| 22 2c 2c 62 6c 6f 63 6b | 25 2c 62 75 66 66 25 2c |",,block|%,buff%,|
|00004b30| 65 6e 64 62 75 66 66 25 | 2c 2d 31 2c 6e 61 6d 65 |endbuff%|,-1,name|
|00004b40| 24 2c 30 20 b8 20 2c 2c | 62 75 66 66 25 0d 1a 54 |$,0 . ,,|buff%..T|
|00004b50| 11 62 6c 6f 63 6b 25 21 | 36 34 3d 73 70 25 0d 1a |.block%!|64=sp%..|
|00004b60| 5e 2c c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |^,.. "Wi|mp_Creat|
|00004b70| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|00004b80| 20 b8 20 68 61 6e 64 6c | 65 25 0d 1a 68 0c 3d 68 | . handl|e%..h.=h|
|00004b90| 61 6e 64 6c 65 25 0d 1a | 72 05 3a 0d 1a 7c 13 dd |andle%..|r.:..|..|
|00004ba0| 20 f2 73 68 6f 77 5f 77 | 69 6e 64 6f 77 73 0d 1a | .show_w|indows..|
|00004bb0| 86 18 f2 6f 70 65 6e 5f | 77 69 6e 64 6f 77 28 6d |...open_|window(m|
|00004bc0| 61 69 6e 57 25 29 0d 1a | 90 1c f2 75 70 64 61 74 |ainW%)..|...updat|
|00004bd0| 65 5f 70 61 6e 65 73 28 | 68 65 61 64 69 6e 67 57 |e_panes(|headingW|
|00004be0| 25 29 0d 1a 9a 05 e1 0d | 1a a4 05 3a 0d 1a ae 1c |%)......|...:....|
|00004bf0| dd 20 f2 75 70 64 61 74 | 65 5f 70 61 6e 65 73 28 |. .updat|e_panes(|
|00004c00| 68 61 6e 64 6c 65 25 29 | 0d 1a b8 08 ea 20 49 25 |handle%)|..... I%|
|00004c10| 0d 1a c2 36 21 62 6c 6f | 63 6b 32 25 3d 68 61 6e |...6!blo|ck2%=han|
|00004c20| 64 6c 65 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |dle%:.. |"Wimp_Ge|
|00004c30| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|00004c40| 6c 6f 63 6b 32 25 0d 1a | cc 13 e3 20 49 25 3d 34 |lock2%..|... I%=4|
|00004c50| 20 b8 20 32 30 20 88 20 | 34 0d 1a d6 1a 20 20 62 | . 20 . |4....  b|
|00004c60| 6c 6f 63 6b 32 25 21 49 | 25 3d 62 6c 6f 63 6b 25 |lock2%!I|%=block%|
|00004c70| 21 49 25 0d 1a e0 08 ed | 20 49 25 0d 1a ea 2f 62 |!I%.....| I%.../b|
|00004c80| 6c 6f 63 6b 32 25 21 38 | 3d 62 6c 6f 63 6b 25 21 |lock2%!8|=block%!|
|00004c90| 31 36 2d 37 32 3a 62 6c | 6f 63 6b 32 25 21 32 38 |16-72:bl|ock2%!28|
|00004ca0| 3d 62 6c 6f 63 6b 25 21 | 32 38 0d 1a f4 15 62 6c |=block%!|28....bl|
|00004cb0| 6f 63 6b 25 21 32 38 3d | 68 61 6e 64 6c 65 25 0d |ock%!28=|handle%.|
|00004cc0| 1a fe 21 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |..!.. "W|imp_Open|
|00004cd0| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6f 63 6b 32 25 |Window",|,block2%|
|00004ce0| 0d 1b 08 20 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |... .. "|Wimp_Ope|
|00004cf0| 6e 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |nWindow"|,,block%|
|00004d00| 0d 1b 12 1d e7 20 75 70 | 5f 70 65 6e 64 25 20 8c |..... up|_pend% .|
|00004d10| 20 75 70 5f 70 65 6e 64 | 25 3d a3 3a e1 0d 1b 1c | up_pend|%=.:....|
|00004d20| 24 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e |$.. "Wim|p_GetWin|
|00004d30| 64 6f 77 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |dowState|",,block|
|00004d40| 25 0d 1b 26 3f e7 20 28 | 62 6c 6f 63 6b 25 21 33 |%..&?. (|block%!3|
|00004d50| 32 20 80 20 28 31 3c 3c | 31 38 29 29 20 8c 20 75 |2 . (1<<|18)) . u|
|00004d60| 70 5f 70 65 6e 64 25 3d | b9 3a f2 75 70 64 61 74 |p_pend%=|.:.updat|
|00004d70| 65 5f 70 61 6e 65 73 28 | 68 61 6e 64 6c 65 25 29 |e_panes(|handle%)|
|00004d80| 0d 1b 30 05 e1 0d 1b 3a | 05 3a 0d 1b 44 1c dd 20 |..0....:|.:..D.. |
|00004d90| f2 6f 70 65 6e 5f 77 69 | 6e 64 6f 77 28 77 68 61 |.open_wi|ndow(wha|
|00004da0| 6e 64 6c 65 25 29 0d 1b | 4e 15 62 6c 6f 63 6b 25 |ndle%)..|N.block%|
|00004db0| 21 30 3d 77 68 61 6e 64 | 6c 65 25 0d 1b 58 24 c8 |!0=whand|le%..X$.|
|00004dc0| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00004dd0| 77 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |wState",|,block%.|
|00004de0| 1b 62 10 62 6c 6f 63 6b | 25 21 32 38 3d 2d 31 0d |.b.block|%!28=-1.|
|00004df0| 1b 6c 20 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.l .. "W|imp_Open|
|00004e00| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6f 63 6b 25 0d |Window",|,block%.|
|00004e10| 1b 76 05 e1 0d 1b 80 05 | 3a 0d 1b 8a 14 dd 20 f2 |.v......|:..... .|
|00004e20| 70 65 72 66 6f 72 6d 5f | 63 6c 6f 73 65 0d 1b 94 |perform_|close...|
|00004e30| 13 68 61 6e 64 6c 65 25 | 3d 21 62 6c 6f 63 6b 25 |.handle%|=!block%|
|00004e40| 0d 1b 9e 10 c8 8e 20 21 | 62 6c 6f 63 6b 25 20 ca |...... !|block% .|
|00004e50| 0d 1b a8 1c 20 20 c9 20 | 6d 61 69 6e 57 25 3a f2 |....  . |mainW%:.|
|00004e60| 68 69 64 65 5f 77 69 6e | 64 6f 77 73 0d 1b b2 29 |hide_win|dows...)|
|00004e70| 20 20 c9 20 74 6f 74 61 | 6c 57 25 3a f2 63 6c 6f |  . tota|lW%:.clo|
|00004e80| 73 65 5f 77 69 6e 64 6f | 77 28 74 68 65 61 64 69 |se_windo|w(theadi|
|00004e90| 6e 67 57 25 29 0d 1b bc | 2a 20 20 c9 20 77 65 69 |ngW%)...|*  . wei|
|00004ea0| 67 68 74 57 25 3a f2 63 | 6c 6f 73 65 5f 77 69 6e |ghtW%:.c|lose_win|
|00004eb0| 64 6f 77 28 77 68 65 61 | 64 69 6e 67 57 25 29 0d |dow(whea|dingW%).|
|00004ec0| 1b c6 2b 20 20 c9 20 70 | 72 6f 62 6c 65 6d 57 25 |..+  . p|roblemW%|
|00004ed0| 3a f2 63 6c 6f 73 65 5f | 77 69 6e 64 6f 77 28 70 |:.close_|window(p|
|00004ee0| 68 65 61 64 69 6e 67 57 | 25 29 0d 1b d0 29 20 20 |headingW|%)...)  |
|00004ef0| c9 20 67 72 6f 75 70 57 | 25 3a f2 63 6c 6f 73 65 |. groupW|%:.close|
|00004f00| 5f 77 69 6e 64 6f 77 28 | 67 68 65 61 64 69 6e 67 |_window(|gheading|
|00004f10| 57 25 29 0d 1b da 05 cb | 0d 1b e4 1a f2 63 6c 6f |W%).....|.....clo|
|00004f20| 73 65 5f 77 69 6e 64 6f | 77 28 68 61 6e 64 6c 65 |se_windo|w(handle|
|00004f30| 25 29 0d 1b ee 05 e1 0d | 1b f8 05 3a 0d 1c 02 13 |%)......|...:....|
|00004f40| dd 20 f2 68 69 64 65 5f | 77 69 6e 64 6f 77 73 0d |. .hide_|windows.|
|00004f50| 1c 0c 1c f2 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |....clos|e_window|
|00004f60| 28 64 61 74 61 64 69 63 | 57 25 29 0d 1c 16 19 f2 |(datadic|W%).....|
|00004f70| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 6d 61 69 |close_wi|ndow(mai|
|00004f80| 6e 57 25 29 0d 1c 20 1c | f2 63 6c 6f 73 65 5f 77 |nW%).. .|.close_w|
|00004f90| 69 6e 64 6f 77 28 68 65 | 61 64 69 6e 67 57 25 29 |indow(he|adingW%)|
|00004fa0| 0d 1c 2a 1a f2 63 6c 6f | 73 65 5f 77 69 6e 64 6f |..*..clo|se_windo|
|00004fb0| 77 28 74 6f 74 61 6c 57 | 25 29 0d 1c 34 1d f2 63 |w(totalW|%)..4..c|
|00004fc0| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 74 68 65 61 |lose_win|dow(thea|
|00004fd0| 64 69 6e 67 57 25 29 0d | 1c 3e 1b f2 63 6c 6f 73 |dingW%).|.>..clos|
|00004fe0| 65 5f 77 69 6e 64 6f 77 | 28 77 65 69 67 68 74 57 |e_window|(weightW|
|00004ff0| 25 29 0d 1c 48 1d f2 63 | 6c 6f 73 65 5f 77 69 6e |%)..H..c|lose_win|
|00005000| 64 6f 77 28 77 68 65 61 | 64 69 6e 67 57 25 29 0d |dow(whea|dingW%).|
|00005010| 1c 52 1c f2 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |.R..clos|e_window|
|00005020| 28 70 72 6f 62 6c 65 6d | 57 25 29 0d 1c 5c 1d f2 |(problem|W%)..\..|
|00005030| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 70 68 65 |close_wi|ndow(phe|
|00005040| 61 64 69 6e 67 57 25 29 | 0d 1c 66 1a f2 63 6c 6f |adingW%)|..f..clo|
|00005050| 73 65 5f 77 69 6e 64 6f | 77 28 67 72 6f 75 70 57 |se_windo|w(groupW|
|00005060| 25 29 0d 1c 70 1d f2 63 | 6c 6f 73 65 5f 77 69 6e |%)..p..c|lose_win|
|00005070| 64 6f 77 28 67 68 65 61 | 64 69 6e 67 57 25 29 0d |dow(ghea|dingW%).|
|00005080| 1c 7a 1b f2 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |.z..clos|e_window|
|00005090| 28 62 6c 6f 63 6b 73 57 | 25 29 0d 1c 84 1d f2 63 |(blocksW|%).....c|
|000050a0| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 74 75 74 6f |lose_win|dow(tuto|
|000050b0| 72 67 72 70 57 25 29 0d | 1c 8e 05 e1 0d 1c 98 05 |rgrpW%).|........|
|000050c0| 3a 0d 1c a2 1d dd 20 f2 | 63 6c 6f 73 65 5f 77 69 |:..... .|close_wi|
|000050d0| 6e 64 6f 77 28 77 68 61 | 6e 64 6c 65 25 29 0d 1c |ndow(wha|ndle%)..|
|000050e0| ac 14 21 62 6c 6f 63 6b | 25 3d 77 68 61 6e 64 6c |..!block|%=whandl|
|000050f0| 65 25 0d 1c b6 21 c8 99 | 20 22 57 69 6d 70 5f 43 |e%...!..| "Wimp_C|
|00005100| 6c 6f 73 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |loseWind|ow",,blo|
|00005110| 63 6b 25 0d 1c c0 05 e1 | 0d 1c ca 05 3a 0d 1c d4 |ck%.....|....:...|
|00005120| 18 dd 20 f2 6d 6f 76 65 | 5f 77 69 6e 28 68 61 6e |.. .move|_win(han|
|00005130| 64 6c 65 25 29 0d 1c de | 20 ea 20 78 6d 69 6e 25 |dle%)...| . xmin%|
|00005140| 2c 79 6d 69 6e 25 2c 78 | 64 25 2c 79 64 25 2c 77 |,ymin%,x|d%,yd%,w|
|00005150| 69 64 74 68 25 0d 1c e8 | 10 c8 8e 20 68 61 6e 64 |idth%...|... hand|
|00005160| 6c 65 25 20 ca 0d 1c f2 | 21 20 20 c9 20 77 65 69 |le% ....|!  . wei|
|00005170| 67 68 74 57 25 3a 78 64 | 25 3d 32 30 30 3a 79 64 |ghtW%:xd|%=200:yd|
|00005180| 25 3d 2d 31 30 30 0d 1c | fc 21 20 20 c9 20 74 6f |%=-100..|.!  . to|
|00005190| 74 61 6c 57 25 3a 78 64 | 25 3d 2d 32 30 30 3a 79 |talW%:xd|%=-200:y|
|000051a0| 64 25 3d 2d 32 30 30 0d | 1d 06 2b 20 20 c9 20 70 |d%=-200.|..+  . p|
|000051b0| 72 6f 62 6c 65 6d 57 25 | 2c 67 72 6f 75 70 57 25 |roblemW%|,groupW%|
|000051c0| 3a 20 78 64 25 3d 31 30 | 30 3a 79 64 25 3d 2d 33 |: xd%=10|0:yd%=-3|
|000051d0| 30 30 0d 1d 10 21 20 20 | c9 20 67 72 6f 75 70 57 |00...!  |. groupW|
|000051e0| 25 3a 78 64 25 3d 2d 31 | 30 30 3a 79 64 25 3d 2d |%:xd%=-1|00:yd%=-|
|000051f0| 32 30 30 0d 1d 1a 05 cb | 0d 1d 24 33 21 62 6c 6f |200.....|..$3!blo|
|00005200| 63 6b 25 3d 6d 61 69 6e | 57 25 3a c8 99 20 22 57 |ck%=main|W%:.. "W|
|00005210| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00005220| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 1d 2e 22 78 |te",,blo|ck%..."x|
|00005230| 6d 69 6e 25 3d 62 6c 6f | 63 6b 25 21 34 3a 79 6d |min%=blo|ck%!4:ym|
|00005240| 61 78 25 3d 62 6c 6f 63 | 6b 25 21 31 36 0d 1d 38 |ax%=bloc|k%!16..8|
|00005250| 34 21 62 6c 6f 63 6b 25 | 3d 68 61 6e 64 6c 65 25 |4!block%|=handle%|
|00005260| 3a c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e |:.. "Wim|p_GetWin|
|00005270| 64 6f 77 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |dowState|",,block|
|00005280| 25 0d 1d 42 1d 77 69 64 | 74 68 25 3d 62 6c 6f 63 |%..B.wid|th%=bloc|
|00005290| 6b 25 21 31 32 2d 62 6c | 6f 63 6b 25 21 34 0d 1d |k%!12-bl|ock%!4..|
|000052a0| 4c 31 62 6c 6f 63 6b 25 | 21 34 3d 78 6d 69 6e 25 |L1block%|!4=xmin%|
|000052b0| 2b 78 64 25 3a 62 6c 6f | 63 6b 25 21 31 32 3d 78 |+xd%:blo|ck%!12=x|
|000052c0| 6d 69 6e 25 2b 77 69 64 | 74 68 25 2b 78 64 25 0d |min%+wid|th%+xd%.|
|000052d0| 1d 56 2e 62 6c 6f 63 6b | 25 21 31 36 3d 79 6d 61 |.V.block|%!16=yma|
|000052e0| 78 25 2b 79 64 25 3a 62 | 6c 6f 63 6b 25 21 38 3d |x%+yd%:b|lock%!8=|
|000052f0| 62 6c 6f 63 6b 25 21 31 | 36 2d 34 31 36 0d 1d 60 |block%!1|6-416..`|
|00005300| 10 62 6c 6f 63 6b 25 21 | 32 38 3d 2d 31 0d 1d 6a |.block%!|28=-1..j|
|00005310| 20 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 | .. "Wim|p_OpenWi|
|00005320| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 0d 1d 74 |ndow",,b|lock%..t|
|00005330| 05 e1 0d 1d 7e 05 3a 0d | 1d 88 16 dd 20 f2 72 65 |....~.:.|.... .re|
|00005340| 64 72 61 77 28 68 61 6e | 64 6c 65 25 29 0d 1d 92 |draw(han|dle%)...|
|00005350| 0c ea 20 6c 69 6e 65 73 | 25 0d 1d 9c 10 c8 8e 20 |.. lines|%...... |
|00005360| 68 61 6e 64 6c 65 25 20 | ca 0d 1d a6 0f 20 20 c9 |handle% |.....  .|
|00005370| 20 6d 61 69 6e 57 25 3a | 0d 1d b0 19 20 20 61 6e | mainW%:|....  an|
|00005380| 63 68 6f 72 25 3d 6d 61 | 69 6e 61 6e 63 68 6f 72 |chor%=ma|inanchor|
|00005390| 25 0d 1d ba 15 20 20 6c | 69 6e 65 73 25 3d 4e 72 |%....  l|ines%=Nr|
|000053a0| 65 63 73 25 2b 34 0d 1d | c4 14 20 20 c8 8e 20 42 |ecs%+4..|..  .. B|
|000053b0| 6c 6f 63 6b 69 6e 67 25 | 20 ca 0d 1d ce 2a 20 20 |locking%| ....*  |
|000053c0| 20 20 c9 20 b9 3a 6c 65 | 6e 25 3d 32 30 2b 32 2b |  . .:le|n%=20+2+|
|000053d0| 28 33 2b 32 29 2a 28 6f | 6c 64 62 6c 6f 63 6b 73 |(3+2)*(o|ldblocks|
|000053e0| 25 2b 31 29 0d 1d d8 18 | 20 20 20 20 7f 3a 6c 65 |%+1)....|    .:le|
|000053f0| 6e 25 3d 77 69 6e 77 69 | 64 74 68 25 0d 1d e2 07 |n%=winwi|dth%....|
|00005400| 20 20 cb 0d 1d ec 43 20 | 20 c9 20 74 6f 74 61 6c |  ....C | . total|
|00005410| 57 25 3a 61 6e 63 68 6f | 72 25 3d 74 6f 74 61 6c |W%:ancho|r%=total|
|00005420| 61 6e 63 68 6f 72 25 3a | 6c 69 6e 65 73 25 3d 4e |anchor%:|lines%=N|
|00005430| 73 75 62 73 25 2b 32 3a | 6c 65 6e 25 3d 77 69 6e |subs%+2:|len%=win|
|00005440| 77 69 64 74 68 25 0d 1d | f6 46 20 20 c9 20 77 65 |width%..|.F  . we|
|00005450| 69 67 68 74 57 25 3a 61 | 6e 63 68 6f 72 25 3d 77 |ightW%:a|nchor%=w|
|00005460| 65 69 67 68 74 61 6e 63 | 68 6f 72 25 3a 6c 69 6e |eightanc|hor%:lin|
|00005470| 65 73 25 3d 4e 73 75 62 | 73 25 2b 32 3a 6c 65 6e |es%=Nsub|s%+2:len|
|00005480| 25 3d 57 77 69 6e 77 69 | 64 74 68 25 0d 1e 00 48 |%=Wwinwi|dth%...H|
|00005490| 20 20 c9 20 70 72 6f 62 | 6c 65 6d 57 25 3a 61 6e |  . prob|lemW%:an|
|000054a0| 63 68 6f 72 25 3d 70 72 | 6f 62 6c 65 6d 61 6e 63 |chor%=pr|oblemanc|
|000054b0| 68 6f 72 25 3a 6c 69 6e | 65 73 25 3d 4e 70 72 6f |hor%:lin|es%=Npro|
|000054c0| 62 73 25 2b 34 3a 6c 65 | 6e 25 3d 77 69 6e 77 69 |bs%+4:le|n%=winwi|
|000054d0| 64 74 68 25 0d 1e 0a 47 | 20 20 c9 20 74 69 6d 65 |dth%...G|  . time|
|000054e0| 74 61 62 6c 65 57 25 3a | 61 6e 63 68 6f 72 25 3d |tableW%:|anchor%=|
|000054f0| 74 69 6d 65 61 6e 63 68 | 6f 72 25 3a 6c 69 6e 65 |timeanch|or%:line|
|00005500| 73 25 3d 74 69 6d 63 6f | 75 6e 74 25 3a 6c 65 6e |s%=timco|unt%:len|
|00005510| 25 3d 74 69 6d 77 69 64 | 74 68 25 0d 1e 14 45 20 |%=timwid|th%...E |
|00005520| 20 c9 20 74 75 74 6f 72 | 67 72 70 57 25 3a 61 6e | . tutor|grpW%:an|
|00005530| 63 68 6f 72 25 3d 74 75 | 74 61 6e 63 68 6f 72 25 |chor%=tu|tanchor%|
|00005540| 3a 6c 69 6e 65 73 25 3d | 74 75 74 63 6f 75 6e 74 |:lines%=|tutcount|
|00005550| 25 3a 6c 65 6e 25 3d 74 | 75 74 77 69 64 74 68 25 |%:len%=t|utwidth%|
|00005560| 0d 1e 1e 43 20 20 c9 20 | 67 72 6f 75 70 57 25 3a |...C  . |groupW%:|
|00005570| 61 6e 63 68 6f 72 25 3d | 74 65 78 74 61 6e 63 68 |anchor%=|textanch|
|00005580| 6f 72 25 3a 6c 69 6e 65 | 73 25 3d 67 72 70 63 6f |or%:line|s%=grpco|
|00005590| 75 6e 74 25 3a 6c 65 6e | 25 3d 77 69 6e 77 69 64 |unt%:len|%=winwid|
|000055a0| 74 68 25 0d 1e 28 05 cb | 0d 1e 32 13 21 62 6c 6f |th%..(..|..2.!blo|
|000055b0| 63 6b 25 3d 68 61 6e 64 | 6c 65 25 0d 1e 3c 2a c8 |ck%=hand|le%..<*.|
|000055c0| 99 20 22 57 69 6d 70 5f | 52 65 64 72 61 77 57 69 |. "Wimp_|RedrawWi|
|000055d0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 20 b8 20 |ndow",,b|lock% . |
|000055e0| 6d 6f 72 65 25 0d 1e 46 | 1f f2 67 65 74 5f 6f 72 |more%..F|..get_or|
|000055f0| 69 67 69 6e 28 62 6c 6f | 63 6b 25 2c 78 30 25 2c |igin(blo|ck%,x0%,|
|00005600| 79 30 25 29 0d 1e 50 0c | c8 95 20 6d 6f 72 65 25 |y0%)..P.|.. more%|
|00005610| 0d 1e 5a 14 20 20 f2 64 | 72 61 77 28 78 30 25 2c |..Z.  .d|raw(x0%,|
|00005620| 79 30 25 29 0d 1e 64 42 | 20 20 e7 20 68 61 6e 64 |y0%)..dB|  . hand|
|00005630| 6c 65 25 3c 3e 64 61 74 | 61 64 69 63 57 25 20 8c |le%<>dat|adicW% .|
|00005640| 20 c8 99 20 22 49 6e 74 | 65 72 66 61 63 65 5f 52 | .. "Int|erface_R|
|00005650| 65 6e 64 65 72 33 64 57 | 69 6e 64 6f 77 22 2c 2c |ender3dW|indow",,|
|00005660| 62 6c 6f 63 6b 25 0d 1e | 6e 2c 20 20 c8 99 20 22 |block%..|n,  .. "|
|00005670| 57 69 6d 70 5f 47 65 74 | 52 65 63 74 61 6e 67 6c |Wimp_Get|Rectangl|
|00005680| 65 22 2c 2c 62 6c 6f 63 | 6b 25 20 b8 20 6d 6f 72 |e",,bloc|k% . mor|
|00005690| 65 25 0d 1e 78 05 ce 0d | 1e 82 05 e1 0d 1e 8c 05 |e%..x...|........|
|000056a0| 3a 0d 1e 96 25 dd 20 f2 | 67 65 74 5f 6f 72 69 67 |:...%. .|get_orig|
|000056b0| 69 6e 28 62 6c 6f 63 6b | 25 2c f8 20 78 30 25 2c |in(block|%,. x0%,|
|000056c0| f8 20 79 30 25 29 0d 1e | a0 1a 78 30 25 3d 62 6c |. y0%)..|..x0%=bl|
|000056d0| 6f 63 6b 25 21 34 2d 62 | 6c 6f 63 6b 25 21 32 30 |ock%!4-b|lock%!20|
|000056e0| 0d 1e aa 1b 79 30 25 3d | 62 6c 6f 63 6b 25 21 31 |....y0%=|block%!1|
|000056f0| 36 2d 62 6c 6f 63 6b 25 | 21 32 34 0d 1e b4 05 e1 |6-block%|!24.....|
|00005700| 0d 1e be 05 3a 0d 1e c8 | 14 dd 20 f2 64 72 61 77 |....:...|.. .draw|
|00005710| 28 78 30 25 2c 79 30 25 | 29 0d 1e d2 25 ea 20 54 |(x0%,y0%|)...%. T|
|00005720| 65 78 74 50 74 72 25 2c | 79 31 25 2c 79 32 25 2c |extPtr%,|y1%,y2%,|
|00005730| 49 25 2c 63 68 61 72 73 | 25 2c 63 6f 6c 25 0d 1e |I%,chars|%,col%..|
|00005740| dc 29 e7 20 68 61 6e 64 | 6c 65 25 3d 74 69 6d 65 |.). hand|le%=time|
|00005750| 74 61 62 6c 65 57 25 20 | 80 20 6c 69 73 74 65 64 |tableW% |. listed|
|00005760| 25 3d a3 20 8c 20 e1 0d | 1e e6 10 c8 8e 20 68 61 |%=. . ..|..... ha|
|00005770| 6e 64 6c 65 25 20 ca 0d | 1e f0 48 20 20 c9 20 6d |ndle% ..|..H  . m|
|00005780| 61 69 6e 57 25 2c 74 6f | 74 61 6c 57 25 2c 77 65 |ainW%,to|talW%,we|
|00005790| 69 67 68 74 57 25 2c 70 | 72 6f 62 6c 65 6d 57 25 |ightW%,p|roblemW%|
|000057a0| 2c 74 69 6d 65 74 61 62 | 6c 65 57 25 2c 74 75 74 |,timetab|leW%,tut|
|000057b0| 6f 72 67 72 70 57 25 2c | 67 72 6f 75 70 57 25 0d |orgrpW%,|groupW%.|
|000057c0| 1e fa 1a 20 20 79 31 25 | 3d 2d 28 62 6c 6f 63 6b |...  y1%|=-(block|
|000057d0| 25 21 34 30 2d 79 30 25 | 29 0d 1f 04 1a 20 20 79 |%!40-y0%|)....  y|
|000057e0| 32 25 3d 2d 28 62 6c 6f | 63 6b 25 21 33 32 2d 79 |2%=-(blo|ck%!32-y|
|000057f0| 30 25 29 0d 1f 0e 14 20 | 20 79 31 25 3d 79 31 25 |0%).... | y1%=y1%|
|00005800| 20 81 20 33 32 2b 31 0d | 1f 18 14 20 20 79 32 25 | . 32+1.|...  y2%|
|00005810| 3d 79 32 25 20 81 20 33 | 32 2b 31 0d 1f 22 26 20 |=y2% . 3|2+1.."& |
|00005820| 20 54 65 78 74 50 74 72 | 25 3d 28 21 61 6e 63 68 | TextPtr|%=(!anch|
|00005830| 6f 72 25 29 2b 28 79 31 | 25 2d 31 29 2a 6c 65 6e |or%)+(y1|%-1)*len|
|00005840| 25 0d 1f 2c 1f 20 20 e7 | 20 79 32 25 3e 6c 69 6e |%..,.  .| y2%>lin|
|00005850| 65 73 25 20 8c 20 79 32 | 25 3d 6c 69 6e 65 73 25 |es% . y2|%=lines%|
|00005860| 0d 1f 36 14 20 20 e3 20 | 49 25 3d 79 31 25 20 b8 |..6.  . |I%=y1% .|
|00005870| 20 79 32 25 0d 1f 40 3b | 20 20 20 20 e7 20 68 61 | y2%..@;|    . ha|
|00005880| 6e 64 6c 65 25 3d 6d 61 | 69 6e 57 25 20 8c 20 63 |ndle%=ma|inW% . c|
|00005890| 6f 6c 25 3d 73 75 62 6e | 75 6d 62 65 72 25 28 49 |ol%=subn|umber%(I|
|000058a0| 25 2d 32 2c 30 29 20 8b | 20 63 6f 6c 25 3d 37 0d |%-2,0) .| col%=7.|
|000058b0| 1f 4a 16 20 20 20 20 f2 | 64 72 61 77 5f 6c 69 6e |.J.    .|draw_lin|
|000058c0| 65 28 49 25 29 0d 1f 54 | 16 20 20 20 20 54 65 78 |e(I%)..T|.    Tex|
|000058d0| 74 50 74 72 25 2b 3d 6c | 65 6e 25 0d 1f 5e 0a 20 |tPtr%+=l|en%..^. |
|000058e0| 20 ed 20 49 25 0d 1f 68 | 05 cb 0d 1f 72 05 e1 0d | . I%..h|....r...|
|000058f0| 1f 7c 05 3a 0d 1f 86 17 | dd 20 f2 64 72 61 77 5f |.|.:....|. .draw_|
|00005900| 6c 69 6e 65 28 4c 69 6e | 65 25 29 0d 1f 90 17 e7 |line(Lin|e%).....|
|00005910| 20 54 65 78 74 50 74 72 | 25 3f 31 3d 31 32 20 8c | TextPtr|%?1=12 .|
|00005920| 20 e1 0d 1f 9a 1c ec 20 | 78 30 25 2c 79 30 25 2d | ...... |x0%,y0%-|
|00005930| 28 4c 69 6e 65 25 2d 31 | 29 2a 33 32 2d 34 0d 1f |(Line%-1|)*32-4..|
|00005940| a4 1c c8 99 20 22 57 69 | 6d 70 5f 53 65 74 43 6f |.... "Wi|mp_SetCo|
|00005950| 6c 6f 75 72 22 2c 63 6f | 6c 25 0d 1f ae 20 c8 99 |lour",co|l%... ..|
|00005960| 20 22 4f 53 5f 57 72 69 | 74 65 4e 22 2c 54 65 78 | "OS_Wri|teN",Tex|
|00005970| 74 50 74 72 25 2c 6c 65 | 6e 25 0d 1f b8 05 e1 0d |tPtr%,le|n%......|
|00005980| 1f c2 05 3a 0d 1f cc 3a | dd 20 f2 75 70 64 61 74 |...:...:|. .updat|
|00005990| 65 5f 6c 69 6e 65 28 68 | 61 6e 64 6c 65 25 2c 61 |e_line(h|andle%,a|
|000059a0| 6e 63 68 6f 72 25 2c 6c | 69 6e 65 25 2c 73 74 72 |nchor%,l|ine%,str|
|000059b0| 69 6e 67 24 2c 4c 65 6e | 4c 69 6e 65 25 29 0d 1f |ing$,Len|Line%)..|
|000059c0| d6 24 54 65 78 74 50 74 | 72 25 3d 21 61 6e 63 68 |.$TextPt|r%=!anch|
|000059d0| 6f 72 25 2b 6c 69 6e 65 | 25 2a 4c 65 6e 4c 69 6e |or%+line|%*LenLin|
|000059e0| 65 25 0d 1f e0 17 73 74 | 72 69 6e 67 24 3d 22 20 |e%....st|ring$=" |
|000059f0| 22 2b 73 74 72 69 6e 67 | 24 0d 1f ea 28 73 74 72 |"+string|$...(str|
|00005a00| 69 6e 67 24 2b 3d c4 4c | 65 6e 4c 69 6e 65 25 2d |ing$+=.L|enLine%-|
|00005a10| 31 2d a9 28 73 74 72 69 | 6e 67 24 29 2c 22 20 22 |1-.(stri|ng$)," "|
|00005a20| 29 0d 1f f4 43 24 54 65 | 78 74 50 74 72 25 3d 73 |)...C$Te|xtPtr%=s|
|00005a30| 74 72 69 6e 67 24 3a 54 | 65 78 74 50 74 72 25 2b |tring$:T|extPtr%+|
|00005a40| 3d 4c 65 6e 4c 69 6e 65 | 25 2d 31 3a 3f 54 65 78 |=LenLine|%-1:?Tex|
|00005a50| 74 50 74 72 25 3d 31 30 | 3a 54 65 78 74 50 74 72 |tPtr%=10|:TextPtr|
|00005a60| 25 2b 3d 31 0d 1f fe 1b | f2 72 65 66 72 65 73 68 |%+=1....|.refresh|
|00005a70| 28 68 61 6e 64 6c 65 25 | 2c 6c 69 6e 65 25 29 0d |(handle%|,line%).|
|00005a80| 20 08 05 e1 0d 20 12 05 | 3a 0d 20 1c 1d dd 20 f2 | .... ..|:. ... .|
|00005a90| 72 65 66 72 65 73 68 28 | 68 61 6e 64 6c 65 25 2c |refresh(|handle%,|
|00005aa0| 6c 69 6e 65 25 29 0d 20 | 26 1d ea 20 78 6d 69 6e |line%). |&.. xmin|
|00005ab0| 25 2c 79 6d 69 6e 25 2c | 78 6d 61 78 25 2c 79 6d |%,ymin%,|xmax%,ym|
|00005ac0| 61 78 25 0d 20 30 13 21 | 62 6c 6f 63 6b 25 3d 68 |ax%. 0.!|block%=h|
|00005ad0| 61 6e 64 6c 65 25 0d 20 | 3a 24 c8 99 20 22 57 69 |andle%. |:$.. "Wi|
|00005ae0| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00005af0| 65 22 2c 2c 62 6c 6f 63 | 6b 25 0d 20 44 1c 78 6d |e",,bloc|k%. D.xm|
|00005b00| 69 6e 25 3d 62 6c 6f 63 | 6b 25 21 34 2d 62 6c 6f |in%=bloc|k%!4-blo|
|00005b10| 63 6b 25 21 32 30 0d 20 | 4e 1d 78 6d 61 78 25 3d |ck%!20. |N.xmax%=|
|00005b20| 62 6c 6f 63 6b 25 21 31 | 32 2d 62 6c 6f 63 6b 25 |block%!1|2-block%|
|00005b30| 21 32 30 0d 20 58 13 79 | 6d 61 78 25 3d 2d 6c 69 |!20. X.y|max%=-li|
|00005b40| 6e 65 25 2a 33 32 0d 20 | 62 12 79 6d 69 6e 25 3d |ne%*32. |b.ymin%=|
|00005b50| 79 6d 61 78 25 2d 33 32 | 0d 20 6c 39 c8 99 20 22 |ymax%-32|. l9.. "|
|00005b60| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|00005b70| 22 2c 68 61 6e 64 6c 65 | 25 2c 78 6d 69 6e 25 2c |",handle|%,xmin%,|
|00005b80| 79 6d 69 6e 25 2c 78 6d | 61 78 25 2c 79 6d 61 78 |ymin%,xm|ax%,ymax|
|00005b90| 25 0d 20 76 05 e1 0d 20 | 80 05 3a 0d 20 8a 4c f4 |%. v... |..:. .L.|
|00005ba0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00005bb0| 2d 2d 2d 20 45 6e 64 20 | 6f 66 20 57 69 6e 64 6f |--- End |of Windo|
|00005bc0| 77 2d 72 65 6c 61 74 65 | 64 20 72 6f 75 74 69 6e |w-relate|d routin|
|00005bd0| 65 73 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |es------|--------|
|00005be0| 2d 2d 2d 2d 2d 2d 2d 0d | 20 94 05 3a 0d 20 9e 05 |-------.| ..:. ..|
|00005bf0| 3a 0d 20 a8 05 3a 0d 20 | b2 4b f4 20 2d 2d 2d 2d |:. ..:. |.K. ----|
|00005c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005c10| 2d 20 4d 6f 75 73 65 2d | 63 6c 69 63 6b 20 70 72 |- Mouse-|click pr|
|00005c20| 6f 63 65 73 73 69 6e 67 | 20 2d 2d 2d 2d 2d 2d 2d |ocessing| -------|
|00005c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005c40| 2d 0d 20 bc 05 3a 0d 20 | c6 1e dd 20 f2 6d 6f 75 |-. ..:. |... .mou|
|00005c50| 73 65 28 78 25 2c 79 25 | 2c 62 25 2c 77 69 25 2c |se(x%,y%|,b%,wi%,|
|00005c60| 69 63 25 29 0d 20 d0 42 | 21 62 6c 6f 63 6b 25 3d |ic%). .B|!block%=|
|00005c70| 78 25 3a 62 6c 6f 63 6b | 25 21 34 3d 79 25 3a 62 |x%:block|%!4=y%:b|
|00005c80| 6c 6f 63 6b 25 21 38 3d | 62 25 3a 62 6c 6f 63 6b |lock%!8=|b%:block|
|00005c90| 25 21 31 32 3d 77 69 25 | 3a 62 6c 6f 63 6b 25 21 |%!12=wi%|:block%!|
|00005ca0| 31 36 3d 69 63 25 0d 20 | da 25 c8 99 20 22 49 6e |16=ic%. |.%.. "In|
|00005cb0| 74 65 72 66 61 63 65 5f | 53 6c 61 62 42 75 74 74 |terface_|SlabButt|
|00005cc0| 6f 6e 22 2c 2c 62 6c 6f | 63 6b 25 0d 20 e4 0c c8 |on",,blo|ck%. ...|
|00005cd0| 8e 20 77 69 25 20 ca 0d | 20 ee 19 20 20 c9 20 2d |. wi% ..| ..  . -|
|00005ce0| 32 3a f2 69 63 6f 6e 62 | 61 72 5f 63 6c 69 63 6b |2:.iconb|ar_click|
|00005cf0| 0d 20 f8 1a 20 20 c9 20 | 6d 61 69 6e 57 25 3a f2 |. ..  . |mainW%:.|
|00005d00| 6d 61 69 6e 5f 63 6c 69 | 63 6b 0d 21 02 22 20 20 |main_cli|ck.!."  |
|00005d10| c9 20 61 63 63 65 73 73 | 57 25 3a 61 63 63 65 73 |. access|W%:acces|
|00005d20| 73 62 75 74 74 6f 6e 25 | 3d 69 63 25 0d 21 0c 1e |sbutton%|=ic%.!..|
|00005d30| 20 20 c9 20 77 65 69 67 | 68 74 57 25 3a f2 77 65 |  . weig|htW%:.we|
|00005d40| 69 67 68 74 5f 63 6c 69 | 63 6b 0d 21 16 1c 20 20 |ight_cli|ck.!..  |
|00005d50| c9 20 74 6f 74 61 6c 57 | 25 3a f2 74 6f 74 61 6c |. totalW|%:.total|
|00005d60| 5f 63 6c 69 63 6b 0d 21 | 20 20 20 20 c9 20 70 72 |_click.!|    . pr|
|00005d70| 6f 62 6c 65 6d 57 25 3a | f2 70 72 6f 62 6c 65 6d |oblemW%:|.problem|
|00005d80| 5f 63 6c 69 63 6b 0d 21 | 2a 1f 20 20 c9 20 73 61 |_click.!|*.  . sa|
|00005d90| 76 65 57 25 3a f2 73 61 | 76 65 5f 63 6c 69 63 6b |veW%:.sa|ve_click|
|00005da0| 28 69 63 25 29 0d 21 34 | 20 20 20 c9 20 64 61 74 |(ic%).!4|   . dat|
|00005db0| 61 64 69 63 57 25 3a f2 | 64 61 74 61 64 69 63 5f |adicW%:.|datadic_|
|00005dc0| 63 6c 69 63 6b 0d 21 3e | 1f 20 20 c9 20 74 69 6d |click.!>|.  . tim|
|00005dd0| 65 74 61 62 6c 65 57 25 | 3a f2 74 69 6d 65 5f 63 |etableW%|:.time_c|
|00005de0| 6c 69 63 6b 0d 21 48 1c | 20 20 c9 20 74 75 74 6f |lick.!H.|  . tuto|
|00005df0| 72 57 25 3a f2 74 75 74 | 6f 72 5f 63 6c 69 63 6b |rW%:.tut|or_click|
|00005e00| 0d 21 52 1d 20 20 c9 20 | 62 6c 6f 63 6b 73 57 25 |.!R.  . |blocksW%|
|00005e10| 3a f2 62 6c 6f 63 6b 5f | 63 6c 69 63 6b 0d 21 5c |:.block_|click.!\|
|00005e20| 20 20 20 c9 20 74 75 74 | 6f 72 67 72 70 57 25 3a |   . tut|orgrpW%:|
|00005e30| f2 74 75 74 67 72 70 5f | 63 6c 69 63 6b 0d 21 66 |.tutgrp_|click.!f|
|00005e40| 1c 20 20 c9 20 67 72 6f | 75 70 57 25 3a f2 67 72 |.  . gro|upW%:.gr|
|00005e50| 6f 75 70 5f 63 6c 69 63 | 6b 0d 21 70 05 cb 0d 21 |oup_clic|k.!p...!|
|00005e60| 7a 2a 62 6c 6f 63 6b 25 | 21 38 3d 30 3a 62 6c 6f |z*block%|!8=0:blo|
|00005e70| 63 6b 25 21 31 32 3d 77 | 69 25 3a 62 6c 6f 63 6b |ck%!12=w|i%:block|
|00005e80| 25 21 31 36 3d 69 63 25 | 0d 21 84 25 c8 99 20 22 |%!16=ic%|.!.%.. "|
|00005e90| 49 6e 74 65 72 66 61 63 | 65 5f 53 6c 61 62 42 75 |Interfac|e_SlabBu|
|00005ea0| 74 74 6f 6e 22 2c 2c 62 | 6c 6f 63 6b 25 0d 21 8e |tton",,b|lock%.!.|
|00005eb0| 05 e1 0d 21 98 05 3a 0d | 21 a2 14 dd 20 f2 69 63 |...!..:.|!... .ic|
|00005ec0| 6f 6e 62 61 72 5f 63 6c | 69 63 6b 0d 21 ac 12 e7 |onbar_cl|ick.!...|
|00005ed0| 20 52 65 61 64 69 6e 67 | 25 20 8c 20 e1 0d 21 b6 | Reading|% . ..!.|
|00005ee0| 0b c8 8e 20 62 25 20 ca | 0d 21 c0 2a 20 20 c9 20 |... b% .|.!.*  . |
|00005ef0| 32 3a f2 73 68 6f 77 5f | 6d 65 6e 75 28 6d 65 6e |2:.show_|menu(men|
|00005f00| 75 25 28 30 29 2c 78 25 | 2d 36 34 2c 79 62 61 72 |u%(0),x%|-64,ybar|
|00005f10| 25 29 0d 21 ca 3f 20 20 | c9 20 34 3a e7 20 70 72 |%).!.?  |. 4:. pr|
|00005f20| 65 73 65 6e 74 25 3d 37 | 20 8c 20 f2 73 68 6f 77 |esent%=7| . .show|
|00005f30| 5f 77 69 6e 64 6f 77 73 | 20 8b 20 f2 6f 70 65 6e |_windows| . .open|
|00005f40| 5f 77 69 6e 64 6f 77 28 | 70 72 6f 6d 70 74 57 25 |_window(|promptW%|
|00005f50| 29 0d 21 d4 2b 20 20 e7 | 20 6c 69 73 74 65 64 25 |).!.+  .| listed%|
|00005f60| 20 8c 20 f2 6f 70 65 6e | 5f 77 69 6e 64 6f 77 28 | . .open|_window(|
|00005f70| 74 69 6d 65 74 61 62 6c | 65 57 25 29 0d 21 de 05 |timetabl|eW%).!..|
|00005f80| cb 0d 21 e8 05 e1 0d 21 | f2 05 3a 0d 21 fc 11 dd |..!....!|..:.!...|
|00005f90| 20 f2 6d 61 69 6e 5f 63 | 6c 69 63 6b 0d 22 06 0f | .main_c|lick."..|
|00005fa0| 21 62 6c 6f 63 6b 25 3d | 77 69 25 0d 22 10 24 c8 |!block%=|wi%.".$.|
|00005fb0| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00005fc0| 77 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |wState",|,block%.|
|00005fd0| 22 1a 2a 6e 61 6d 65 25 | 3d 28 62 6c 6f 63 6b 25 |".*name%|=(block%|
|00005fe0| 21 31 36 2d 62 6c 6f 63 | 6b 25 21 32 34 2d 79 25 |!16-bloc|k%!24-y%|
|00005ff0| 2d 33 32 29 20 81 20 33 | 32 0d 22 24 1a 24 4e 61 |-32) . 3|2."$.$Na|
|00006000| 6d 65 70 6f 73 25 3d 6e | 61 6d 65 24 28 6e 61 6d |mepos%=n|ame$(nam|
|00006010| 65 25 29 0d 22 2e 30 62 | 6c 6b 25 3d 28 28 28 78 |e%).".0b|lk%=(((x|
|00006020| 25 2d 62 6c 6f 63 6b 25 | 21 34 2b 62 6c 6f 63 6b |%-block%|!4+block|
|00006030| 25 21 32 30 29 20 81 20 | 31 36 29 2d 31 37 29 20 |%!20) . |16)-17) |
|00006040| 81 20 35 0d 22 38 0d c8 | 8e 20 62 6c 6b 25 20 ca |. 5."8..|. blk% .|
|00006050| 0d 22 42 32 20 20 c9 20 | 30 3a 24 4f 6c 64 70 6f |."B2  . |0:$Oldpo|
|00006060| 73 25 3d 22 20 20 3c 6e | 75 6c 6c 3e 20 20 22 3a |s%="  <n|ull>  ":|
|00006070| f2 6c 69 74 28 6d 65 6e | 75 25 28 31 29 2c 30 2c |.lit(men|u%(1),0,|
|00006080| a3 29 0d 22 4c 12 20 20 | c9 20 62 6c 6f 63 6b 73 |.)."L.  |. blocks|
|00006090| 25 2b 31 3a 0d 22 56 27 | 20 20 24 4f 6c 64 70 6f |%+1:."V'|  $Oldpo|
|000060a0| 73 25 3d 22 54 75 74 6f | 72 20 69 73 3a 20 22 2b |s%="Tuto|r is: "+|
|000060b0| 74 75 74 24 28 6e 61 6d | 65 25 29 0d 22 60 11 20 |tut$(nam|e%)."`. |
|000060c0| 20 24 4e 65 77 70 6f 73 | 25 3d 22 22 0d 22 6a 18 | $Newpos|%=""."j.|
|000060d0| 20 20 f2 6c 69 74 28 6d | 65 6e 75 25 28 31 29 2c |  .lit(m|enu%(1),|
|000060e0| 30 2c b9 29 0d 22 74 18 | 20 20 c9 20 31 2c 32 2c |0,.)."t.|  . 1,2,|
|000060f0| 33 2c 34 2c 35 2c 36 2c | 37 2c 38 3a 0d 22 7e 4d |3,4,5,6,|7,8:."~M|
|00006100| 20 20 24 4f 6c 64 70 6f | 73 25 3d 22 42 4c 22 2b |  $Oldpo|s%="BL"+|
|00006110| c3 28 62 6c 6b 25 29 2b | 22 20 63 6f 6e 74 61 69 |.(blk%)+|" contai|
|00006120| 6e 73 3a 20 22 2b 53 75 | 62 63 6f 64 65 24 28 94 |ns: "+Su|bcode$(.|
|00006130| 28 73 75 62 6e 75 6d 62 | 65 72 25 28 6e 61 6d 65 |(subnumb|er%(name|
|00006140| 25 2c 62 6c 6b 25 29 29 | 29 0d 22 88 11 20 20 24 |%,blk%))|)."..  $|
|00006150| 4e 65 77 70 6f 73 25 3d | 22 22 0d 22 92 18 20 20 |Newpos%=|""."..  |
|00006160| f2 6c 69 74 28 6d 65 6e | 75 25 28 31 29 2c 30 2c |.lit(men|u%(1),0,|
|00006170| b9 29 0d 22 9c 05 cb 0d | 22 a6 2f 24 53 61 76 65 |.)."....|"./$Save|
|00006180| 4c 69 73 74 25 3d 24 64 | 61 74 61 62 61 73 65 25 |List%=$d|atabase%|
|00006190| 2b 22 2e 50 72 69 6e 74 | 4a 6f 62 73 2e 46 69 6c |+".Print|Jobs.Fil|
|000061a0| 65 4c 69 73 74 22 0d 22 | b0 0f 6c 69 73 74 74 79 |eList"."|..listty|
|000061b0| 70 65 25 3d 31 0d 22 ba | 14 c8 8e 20 28 62 25 20 |pe%=1.".|... (b% |
|000061c0| 80 20 25 31 31 31 29 20 | ca 0d 22 c4 2a 20 20 c9 |. %111) |..".*  .|
|000061d0| 20 32 3a f2 73 68 6f 77 | 5f 6d 65 6e 75 28 6d 65 | 2:.show|_menu(me|
|000061e0| 6e 75 25 28 31 29 2c 78 | 25 2d 36 34 2c 79 25 2b |nu%(1),x|%-64,y%+|
|000061f0| 32 34 29 0d 22 ce 22 20 | 20 c9 20 34 3a f2 74 69 |24)."." | . 4:.ti|
|00006200| 6d 65 74 61 62 6c 65 73 | 28 30 2c 74 69 6d 77 69 |metables|(0,timwi|
|00006210| 64 74 68 25 29 0d 22 d8 | 05 cb 0d 22 e2 05 e1 0d |dth%).".|..."....|
|00006220| 22 ec 05 3a 0d 22 f6 13 | dd 20 f2 77 65 69 67 68 |"..:."..|. .weigh|
|00006230| 74 5f 63 6c 69 63 6b 0d | 23 00 15 e7 20 28 62 25 |t_click.|#... (b%|
|00006240| 20 80 20 25 31 31 31 29 | 3d 32 20 8c 0d 23 0a 11 | . %111)|=2 ..#..|
|00006250| 20 20 21 62 6c 6f 63 6b | 25 3d 77 69 25 0d 23 14 |  !block|%=wi%.#.|
|00006260| 26 20 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 57 |&  .. "W|imp_GetW|
|00006270| 69 6e 64 6f 77 53 74 61 | 74 65 22 2c 2c 62 6c 6f |indowSta|te",,blo|
|00006280| 63 6b 25 0d 23 1e 2b 20 | 20 73 75 62 25 3d 28 62 |ck%.#.+ | sub%=(b|
|00006290| 6c 6f 63 6b 25 21 31 36 | 2d 62 6c 6f 63 6b 25 21 |lock%!16|-block%!|
|000062a0| 32 34 2d 79 25 2d 33 32 | 29 20 81 20 33 32 0d 23 |24-y%-32|) . 32.#|
|000062b0| 28 32 20 20 62 6c 6b 25 | 3d 28 28 28 78 25 2d 62 |(2  blk%|=(((x%-b|
|000062c0| 6c 6f 63 6b 25 21 34 2b | 62 6c 6f 63 6b 25 21 32 |lock%!4+|block%!2|
|000062d0| 30 29 20 81 20 31 36 29 | 2d 31 37 29 20 81 20 35 |0) . 16)|-17) . 5|
|000062e0| 0d 23 32 2c 20 20 24 53 | 75 62 70 6f 73 25 3d 53 |.#2,  $S|ubpos%=S|
|000062f0| 75 62 63 6f 64 65 24 28 | 73 75 62 25 29 2b 22 20 |ubcode$(|sub%)+" |
|00006300| 42 4c 20 22 2b c3 28 62 | 6c 6b 25 29 0d 23 3c 10 |BL "+.(b|lk%).#<.|
|00006310| 20 20 e7 20 62 6c 6b 25 | 3e 30 20 8c 0d 23 46 28 |  . blk%|>0 ..#F(|
|00006320| 20 20 20 20 24 57 74 70 | 6f 73 25 3d c3 28 77 65 |    $Wtp|os%=.(we|
|00006330| 69 67 68 74 69 6e 67 25 | 28 73 75 62 25 2c 62 6c |ighting%|(sub%,bl|
|00006340| 6b 25 29 29 0d 23 50 1a | 20 20 20 20 f2 6c 69 74 |k%)).#P.|    .lit|
|00006350| 28 6d 65 6e 75 25 28 33 | 29 2c 30 2c b9 29 0d 23 |(menu%(3|),0,.).#|
|00006360| 5a 1c 20 20 20 20 cc 20 | f2 6c 69 74 28 6d 65 6e |Z.    . |.lit(men|
|00006370| 75 25 28 33 29 2c 30 2c | a3 29 0d 23 64 07 20 20 |u%(3),0,|.).#d.  |
|00006380| cd 0d 23 6e 33 20 20 24 | 53 61 76 65 4c 69 73 74 |..#n3  $|SaveList|
|00006390| 25 3d 24 64 61 74 61 62 | 61 73 65 25 2b 22 2e 50 |%=$datab|ase%+".P|
|000063a0| 72 69 6e 74 4a 6f 62 73 | 2e 57 65 69 67 68 74 69 |rintJobs|.Weighti|
|000063b0| 6e 67 73 22 0d 23 78 11 | 20 20 6c 69 73 74 74 79 |ngs".#x.|  listty|
|000063c0| 70 65 25 3d 32 0d 23 82 | 26 20 20 f2 73 68 6f 77 |pe%=2.#.|&  .show|
|000063d0| 5f 6d 65 6e 75 28 6d 65 | 6e 75 25 28 33 29 2c 78 |_menu(me|nu%(3),x|
|000063e0| 25 2d 36 34 2c 79 25 2b | 32 34 29 0d 23 8c 05 cd |%-64,y%+|24).#...|
|000063f0| 0d 23 96 05 e1 0d 23 a0 | 05 3a 0d 23 aa 12 dd 20 |.#....#.|.:.#... |
|00006400| f2 74 6f 74 61 6c 5f 63 | 6c 69 63 6b 0d 23 b4 0f |.total_c|lick.#..|
|00006410| 21 62 6c 6f 63 6b 25 3d | 77 69 25 0d 23 be 24 c8 |!block%=|wi%.#.$.|
|00006420| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00006430| 77 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |wState",|,block%.|
|00006440| 23 c8 29 73 75 62 25 3d | 28 62 6c 6f 63 6b 25 21 |#.)sub%=|(block%!|
|00006450| 31 36 2d 62 6c 6f 63 6b | 25 21 32 34 2d 79 25 2d |16-block|%!24-y%-|
|00006460| 33 32 29 20 81 20 33 32 | 0d 23 d2 30 62 6c 6b 25 |32) . 32|.#.0blk%|
|00006470| 3d 28 28 28 78 25 2d 62 | 6c 6f 63 6b 25 21 34 2b |=(((x%-b|lock%!4+|
|00006480| 62 6c 6f 63 6b 25 21 32 | 30 29 20 81 20 31 36 29 |block%!2|0) . 16)|
|00006490| 2d 31 37 29 20 81 20 35 | 0d 23 dc 0e e7 20 62 6c |-17) . 5|.#... bl|
|000064a0| 6b 25 3e 30 20 8c 0d 23 | e6 26 20 20 24 47 72 70 |k%>0 ..#|.&  $Grp|
|000064b0| 70 6f 73 25 3d 22 50 72 | 69 6e 74 20 22 2b 53 75 |pos%="Pr|int "+Su|
|000064c0| 62 63 6f 64 65 24 28 73 | 75 62 25 29 0d 23 f0 30 |bcode$(s|ub%).#.0|
|000064d0| 20 20 e7 20 62 6c 6b 25 | 3c 3d 62 6c 6f 63 6b 73 |  . blk%|<=blocks|
|000064e0| 25 20 8c 20 24 47 72 70 | 70 6f 73 25 2b 3d 22 20 |% . $Grp|pos%+=" |
|000064f0| 42 4c 20 22 2b c3 28 62 | 6c 6b 25 29 0d 23 fa 19 |BL "+.(b|lk%).#..|
|00006500| 20 20 f2 6c 69 74 28 6d | 65 6e 75 25 28 31 30 29 |  .lit(m|enu%(10)|
|00006510| 2c 30 2c b9 29 0d 24 04 | 07 20 20 cc 0d 24 0e 19 |,0,.).$.|.  ..$..|
|00006520| 20 20 24 47 72 70 70 6f | 73 25 3d 22 50 72 69 6e |  $Grppo|s%="Prin|
|00006530| 74 20 27 27 22 0d 24 18 | 19 20 20 f2 6c 69 74 28 |t ''".$.|.  .lit(|
|00006540| 6d 65 6e 75 25 28 31 30 | 29 2c 30 2c a3 29 0d 24 |menu%(10|),0,.).$|
|00006550| 22 05 cd 0d 24 2c 2d 24 | 53 61 76 65 4c 69 73 74 |"...$,-$|SaveList|
|00006560| 25 3d 24 64 61 74 61 62 | 61 73 65 25 2b 22 2e 50 |%=$datab|ase%+".P|
|00006570| 72 69 6e 74 4a 6f 62 73 | 2e 54 6f 74 61 6c 73 22 |rintJobs|.Totals"|
|00006580| 0d 24 36 0f 6c 69 73 74 | 74 79 70 65 25 3d 33 0d |.$6.list|type%=3.|
|00006590| 24 40 14 c8 8e 20 28 62 | 25 20 80 20 25 31 31 31 |$@... (b|% . %111|
|000065a0| 29 20 ca 0d 24 4a 2b 20 | 20 c9 20 32 3a f2 73 68 |) ..$J+ | . 2:.sh|
|000065b0| 6f 77 5f 6d 65 6e 75 28 | 6d 65 6e 75 25 28 31 30 |ow_menu(|menu%(10|
|000065c0| 29 2c 78 25 2d 36 34 2c | 79 25 2b 32 34 29 0d 24 |),x%-64,|y%+24).$|
|000065d0| 54 34 20 20 c9 20 34 3a | e7 20 62 6c 6b 25 3e 30 |T4  . 4:|. blk%>0|
|000065e0| 20 8c 20 f2 64 69 73 70 | 6c 61 79 5f 67 72 6f 75 | . .disp|lay_grou|
|000065f0| 70 28 73 75 62 25 2c 62 | 6c 6b 25 2c 22 23 23 23 |p(sub%,b|lk%,"###|
|00006600| 22 29 0d 24 5e 05 cb 0d | 24 68 05 e1 0d 24 72 05 |").$^...|$h...$r.|
|00006610| 3a 0d 24 7c 14 dd 20 f2 | 70 72 6f 62 6c 65 6d 5f |:.$|.. .|problem_|
|00006620| 63 6c 69 63 6b 0d 24 86 | 15 e7 20 28 62 25 20 80 |click.$.|.. (b% .|
|00006630| 20 25 31 31 31 29 3d 32 | 20 8c 0d 24 90 31 20 20 | %111)=2| ..$.1  |
|00006640| 24 53 61 76 65 4c 69 73 | 74 25 3d 24 64 61 74 61 |$SaveLis|t%=$data|
|00006650| 62 61 73 65 25 2b 22 2e | 50 72 69 6e 74 4a 6f 62 |base%+".|PrintJob|
|00006660| 73 2e 50 72 6f 62 6c 65 | 6d 73 22 0d 24 9a 11 20 |s.Proble|ms".$.. |
|00006670| 20 6c 69 73 74 74 79 70 | 65 25 3d 34 0d 24 a4 25 | listtyp|e%=4.$.%|
|00006680| 20 20 f2 73 68 6f 77 5f | 6d 65 6e 75 28 73 61 76 |  .show_|menu(sav|
|00006690| 65 57 25 2c 78 25 2d 31 | 32 38 2c 79 25 2d 34 38 |eW%,x%-1|28,y%-48|
|000066a0| 29 0d 24 ae 05 cd 0d 24 | b8 05 e1 0d 24 c2 05 3a |).$....$|....$..:|
|000066b0| 0d 24 cc 11 dd 20 f2 74 | 69 6d 65 5f 63 6c 69 63 |.$... .t|ime_clic|
|000066c0| 6b 0d 24 d6 15 e7 20 28 | 62 25 20 80 20 25 31 31 |k.$... (|b% . %11|
|000066d0| 31 29 3d 32 20 8c 0d 24 | e0 2e 20 20 24 53 61 76 |1)=2 ..$|..  $Sav|
|000066e0| 65 4c 69 73 74 25 3d 24 | 64 61 74 61 62 61 73 65 |eList%=$|database|
|000066f0| 25 2b 22 2e 50 72 69 6e | 74 4a 6f 62 73 2e 22 2b |%+".Prin|tJobs."+|
|00006700| 74 69 6d 24 0d 24 ea 11 | 20 20 6c 69 73 74 74 79 |tim$.$..|  listty|
|00006710| 70 65 25 3d 35 0d 24 f4 | 26 20 20 f2 73 68 6f 77 |pe%=5.$.|&  .show|
|00006720| 5f 6d 65 6e 75 28 6d 65 | 6e 75 25 28 35 29 2c 78 |_menu(me|nu%(5),x|
|00006730| 25 2d 36 34 2c 79 25 2b | 31 36 29 0d 24 fe 05 cd |%-64,y%+|16).$...|
|00006740| 0d 25 08 05 e1 0d 25 12 | 05 3a 0d 25 1c 13 dd 20 |.%....%.|.:.%... |
|00006750| f2 74 75 74 67 72 70 5f | 63 6c 69 63 6b 0d 25 26 |.tutgrp_|click.%&|
|00006760| 0f 21 62 6c 6f 63 6b 25 | 3d 77 69 25 0d 25 30 24 |.!block%|=wi%.%0$|
|00006770| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|00006780| 6f 77 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |owState"|,,block%|
|00006790| 0d 25 3a 29 74 75 74 25 | 3d 28 62 6c 6f 63 6b 25 |.%:)tut%|=(block%|
|000067a0| 21 31 36 2d 62 6c 6f 63 | 6b 25 21 32 34 2d 79 25 |!16-bloc|k%!24-y%|
|000067b0| 2b 33 32 29 20 81 20 33 | 32 0d 25 44 24 24 54 75 |+32) . 3|2.%D$$Tu|
|000067c0| 74 70 6f 73 25 3d 22 50 | 72 69 6e 74 20 22 2b 74 |tpos%="P|rint "+t|
|000067d0| 75 74 6f 72 24 28 74 75 | 74 25 2c 30 29 0d 25 4e |utor$(tu|t%,0).%N|
|000067e0| 30 24 53 61 76 65 4c 69 | 73 74 25 3d 24 64 61 74 |0$SaveLi|st%=$dat|
|000067f0| 61 62 61 73 65 25 2b 22 | 2e 50 72 69 6e 74 4a 6f |abase%+"|.PrintJo|
|00006800| 62 73 2e 54 75 74 6f 72 | 53 69 7a 65 22 0d 25 58 |bs.Tutor|Size".%X|
|00006810| 0f 6c 69 73 74 74 79 70 | 65 25 3d 36 0d 25 62 14 |.listtyp|e%=6.%b.|
|00006820| c8 8e 20 28 62 25 20 80 | 20 25 31 31 31 29 20 ca |.. (b% .| %111) .|
|00006830| 0d 25 6c 2b 20 20 c9 20 | 32 3a f2 73 68 6f 77 5f |.%l+  . |2:.show_|
|00006840| 6d 65 6e 75 28 6d 65 6e | 75 25 28 31 31 29 2c 78 |menu(men|u%(11),x|
|00006850| 25 2d 36 34 2c 79 25 2b | 32 34 29 0d 25 76 2a 20 |%-64,y%+|24).%v* |
|00006860| 20 c9 20 34 3a f2 64 69 | 73 70 6c 61 79 5f 67 72 | . 4:.di|splay_gr|
|00006870| 6f 75 70 28 30 2c 30 2c | c2 24 54 75 74 70 6f 73 |oup(0,0,|.$Tutpos|
|00006880| 25 2c 33 29 29 0d 25 80 | 05 cb 0d 25 8a 05 e1 0d |%,3)).%.|...%....|
|00006890| 25 94 05 3a 0d 25 9e 12 | dd 20 f2 67 72 6f 75 70 |%..:.%..|. .group|
|000068a0| 5f 63 6c 69 63 6b 0d 25 | a8 15 e7 20 28 62 25 20 |_click.%|... (b% |
|000068b0| 80 20 25 31 31 31 29 3d | 32 20 8c 0d 25 b2 20 20 |. %111)=|2 ..%.  |
|000068c0| 20 f2 6c 69 74 28 6d 65 | 6e 75 25 28 31 32 29 2c | .lit(me|nu%(12),|
|000068d0| 30 2c ac 20 73 70 6c 69 | 74 25 29 0d 25 bc 1e 20 |0,. spli|t%).%.. |
|000068e0| 20 f2 6c 69 74 28 6d 65 | 6e 75 25 28 31 32 29 2c | .lit(me|nu%(12),|
|000068f0| 31 2c 73 70 6c 69 74 25 | 29 0d 25 c6 32 20 20 24 |1,split%|).%.2  $|
|00006900| 53 61 76 65 4c 69 73 74 | 25 3d 24 64 61 74 61 62 |SaveList|%=$datab|
|00006910| 61 73 65 25 2b 22 2e 50 | 72 69 6e 74 4a 6f 62 73 |ase%+".P|rintJobs|
|00006920| 2e 22 2b 67 72 70 66 69 | 6c 65 24 0d 25 d0 11 20 |."+grpfi|le$.%.. |
|00006930| 20 6c 69 73 74 74 79 70 | 65 25 3d 37 0d 25 da 27 | listtyp|e%=7.%.'|
|00006940| 20 20 f2 73 68 6f 77 5f | 6d 65 6e 75 28 6d 65 6e |  .show_|menu(men|
|00006950| 75 25 28 31 32 29 2c 78 | 25 2d 36 34 2c 79 25 2b |u%(12),x|%-64,y%+|
|00006960| 32 34 29 0d 25 e4 05 cd | 0d 25 ee 05 e1 0d 25 f8 |24).%...|.%....%.|
|00006970| 05 3a 0d 26 02 12 dd 20 | f2 74 75 74 6f 72 5f 63 |.:.&... |.tutor_c|
|00006980| 6c 69 63 6b 0d 26 0c 0c | c8 8e 20 69 63 25 20 ca |lick.&..|.. ic% .|
|00006990| 0d 26 16 0a 20 20 c9 20 | 32 3a 0d 26 20 1c 20 20 |.&..  . |2:.& .  |
|000069a0| 54 75 74 24 3d 24 a4 74 | 65 78 74 28 74 75 74 6f |Tut$=$.t|ext(tuto|
|000069b0| 72 57 25 2c 31 29 0d 26 | 2a 12 20 20 e7 20 54 75 |rW%,1).&|*.  . Tu|
|000069c0| 74 24 3c 3e 22 22 20 8c | 0d 26 34 0e 20 20 20 20 |t$<>"" .|.&4.    |
|000069d0| c8 8e 20 b9 20 ca 0d 26 | 3e 43 20 20 20 20 20 20 |.. . ..&|>C      |
|000069e0| c9 20 a4 76 61 6c 69 64 | 61 74 65 28 54 75 74 24 |. .valid|ate(Tut$|
|000069f0| 2b 22 30 41 22 2c 22 43 | 6c 61 73 73 65 73 22 29 |+"0A","C|lasses")|
|00006a00| 3a f2 74 69 6d 65 74 61 | 62 6c 65 73 28 31 2c 74 |:.timeta|bles(1,t|
|00006a10| 69 6d 77 69 64 74 68 25 | 29 0d 26 48 2f 20 20 20 |imwidth%|).&H/   |
|00006a20| 20 20 20 c9 20 54 75 74 | 24 3d 22 41 4c 4c 22 3a |   . Tut|$="ALL":|
|00006a30| f2 74 69 6d 65 74 61 62 | 6c 65 73 28 33 2c 74 69 |.timetab|les(3,ti|
|00006a40| 6d 77 69 64 74 68 25 29 | 0d 26 52 5d 20 20 20 20 |mwidth%)|.&R]    |
|00006a50| 20 20 7f 3a 24 a4 74 65 | 78 74 28 74 75 74 6f 72 |  .:$.te|xt(tutor|
|00006a60| 57 25 2c 31 29 3d 22 22 | 3a f2 77 69 6d 70 5f 65 |W%,1)=""|:.wimp_e|
|00006a70| 72 72 6f 72 28 b9 2c 6d | 6f 61 6e 5f 65 72 72 25 |rror(.,m|oan_err%|
|00006a80| 2c 30 2c 54 75 74 24 2b | 22 20 69 73 20 6e 6f 74 |,0,Tut$+|" is not|
|00006a90| 20 61 20 22 2b 79 65 61 | 72 24 2b 22 20 74 75 74 | a "+yea|r$+" tut|
|00006aa0| 6f 72 2e 22 29 0d 26 5c | 09 20 20 20 20 cb 0d 26 |or.").&\|.    ..&|
|00006ab0| 66 18 20 20 20 20 cc 20 | f2 73 68 6f 77 5f 74 61 |f.    . |.show_ta|
|00006ac0| 62 6c 65 28 34 29 0d 26 | 70 07 20 20 cd 0d 26 7a |ble(4).&|p.  ..&z|
|00006ad0| 18 20 20 c9 20 33 3a f2 | 73 68 6f 77 5f 74 61 62 |.  . 3:.|show_tab|
|00006ae0| 6c 65 28 34 29 0d 26 84 | 05 cb 0d 26 8e 05 e1 0d |le(4).&.|...&....|
|00006af0| 26 98 05 3a 0d 26 a2 12 | dd 20 f2 62 6c 6f 63 6b |&..:.&..|. .block|
|00006b00| 5f 63 6c 69 63 6b 0d 26 | ac 15 62 6c 6f 63 6b 73 |_click.&|..blocks|
|00006b10| 62 75 74 74 6f 6e 25 3d | 69 63 25 0d 26 b6 21 62 |button%=|ic%.&.!b|
|00006b20| 6c 6f 63 6b 73 25 3d bb | 28 24 a4 74 65 78 74 28 |locks%=.|($.text(|
|00006b30| 62 6c 6f 63 6b 73 57 25 | 2c 30 29 29 0d 26 c0 0c |blocksW%|,0)).&..|
|00006b40| c8 8e 20 69 63 25 20 ca | 0d 26 ca 35 20 20 c9 20 |.. ic% .|.&.5  . |
|00006b50| 31 3a 62 6c 6f 63 6b 73 | 25 2b 3d 31 3a e7 20 62 |1:blocks|%+=1:. b|
|00006b60| 6c 6f 63 6b 73 25 3e 6d | 61 78 62 6c 6f 63 6b 73 |locks%>m|axblocks|
|00006b70| 25 20 8c 20 62 6c 6f 63 | 6b 73 25 3d 33 0d 26 d4 |% . bloc|ks%=3.&.|
|00006b80| 35 20 20 c9 20 32 3a 62 | 6c 6f 63 6b 73 25 2d 3d |5  . 2:b|locks%-=|
|00006b90| 31 3a e7 20 62 6c 6f 63 | 6b 73 25 3d 32 20 8c 20 |1:. bloc|ks%=2 . |
|00006ba0| 62 6c 6f 63 6b 73 25 3d | 6d 61 78 62 6c 6f 63 6b |blocks%=|maxblock|
|00006bb0| 73 25 0d 26 de 05 cb 0d | 26 e8 21 24 a4 74 65 78 |s%.&....|&.!$.tex|
|00006bc0| 74 28 62 6c 6f 63 6b 73 | 57 25 2c 30 29 3d c3 28 |t(blocks|W%,0)=.(|
|00006bd0| 62 6c 6f 63 6b 73 25 29 | 0d 26 f2 1c f2 72 65 64 |blocks%)|.&...red|
|00006be0| 72 61 77 5f 69 63 6f 6e | 28 62 6c 6f 63 6b 73 57 |raw_icon|(blocksW|
|00006bf0| 25 2c 30 29 0d 26 fc 05 | e1 0d 27 06 05 3a 0d 27 |%,0).&..|..'..:.'|
|00006c00| 10 19 dd 20 a4 76 61 6c | 69 64 61 74 65 28 43 24 |... .val|idate(C$|
|00006c10| 2c 6e 61 6d 65 24 29 0d | 27 1a 32 ea 20 72 6f 77 |,name$).|'.2. row|
|00006c20| 25 2c 66 69 65 6c 64 25 | 2c 52 6f 77 73 25 2c 52 |%,field%|,Rows%,R|
|00006c30| 65 63 25 2c 69 6e 64 25 | 2c 70 6f 73 25 2c 73 74 |ec%,ind%|,pos%,st|
|00006c40| 61 72 74 25 2c 72 65 6c | 25 0d 27 24 1b 54 25 3d |art%,rel|%.'$.T%=|
|00006c50| a4 74 61 62 6c 65 5f 6e | 75 6d 62 65 72 28 6e 61 |.table_n|umber(na|
|00006c60| 6d 65 24 29 0d 27 2e 3b | 54 24 3d a4 74 61 62 6c |me$).'.;|T$=.tabl|
|00006c70| 65 5f 69 6e 66 6f 28 54 | 25 2c 52 6f 77 73 25 2c |e_info(T|%,Rows%,|
|00006c80| 54 61 62 46 69 65 6c 64 | 73 25 2c 52 65 63 25 2c |TabField|s%,Rec%,|
|00006c90| 74 61 62 66 69 65 6c 64 | 6c 65 6e 25 28 29 29 0d |tabfield|len%()).|
|00006ca0| 27 38 2c 70 6f 73 25 3d | a4 74 61 62 6c 65 5f 66 |'8,pos%=|.table_f|
|00006cb0| 69 65 6c 64 28 66 69 65 | 6c 64 25 2c 74 61 62 66 |ield(fie|ld%,tabf|
|00006cc0| 69 65 6c 64 6c 65 6e 25 | 28 29 29 0d 27 42 23 73 |ieldlen%|()).'B#s|
|00006cd0| 74 61 72 74 25 3d 21 74 | 61 62 61 6e 63 68 6f 72 |tart%=!t|abanchor|
|00006ce0| 25 28 54 25 29 2b 31 36 | 30 2d 52 65 63 25 0d 27 |%(T%)+16|0-Rec%.'|
|00006cf0| 4c 0d f5 20 72 6f 77 25 | 2b 3d 31 0d 27 56 20 20 |L.. row%|+=1.'V  |
|00006d00| 20 69 6e 64 25 3d 73 74 | 61 72 74 25 2b 72 6f 77 | ind%=st|art%+row|
|00006d10| 25 2a 52 65 63 25 2b 70 | 6f 73 25 0d 27 60 1b fd |%*Rec%+p|os%.'`..|
|00006d20| 20 72 6f 77 25 3e 52 6f | 77 73 25 20 84 20 24 69 | row%>Ro|ws% . $i|
|00006d30| 6e 64 25 3d 43 24 0d 27 | 6a 18 e7 20 72 6f 77 25 |nd%=C$.'|j.. row%|
|00006d40| 3e 52 6f 77 73 25 20 8c | 3d a3 20 8b 3d b9 0d 27 |>Rows% .|=. .=..'|
|00006d50| 74 05 3a 0d 27 7e 16 dd | 20 f2 73 61 76 65 5f 63 |t.:.'~..| .save_c|
|00006d60| 6c 69 63 6b 28 69 63 25 | 29 0d 27 88 08 ea 20 48 |lick(ic%|).'... H|
|00006d70| 24 0d 27 92 23 46 69 6c | 65 6e 61 6d 65 24 3d 24 |$.'.#Fil|ename$=$|
|00006d80| 53 61 76 65 4c 69 73 74 | 25 3a 54 79 70 65 25 3d |SaveList|%:Type%=|
|00006d90| 26 46 46 46 0d 27 9c 12 | c8 8e 20 6c 69 73 74 74 |&FFF.'..|.. listt|
|00006da0| 79 70 65 25 20 ca 0d 27 | a6 3d 20 20 c9 20 37 3a |ype% ..'|.=  . 7:|
|00006db0| 53 74 61 72 74 25 3d 21 | 74 65 78 74 61 6e 63 68 |Start%=!|textanch|
|00006dc0| 6f 72 25 3a 45 6e 64 25 | 3d 53 74 61 72 74 25 2b |or%:End%|=Start%+|
|00006dd0| 77 69 6e 77 69 64 74 68 | 25 2a 67 72 70 63 6f 75 |winwidth|%*grpcou|
|00006de0| 6e 74 25 0d 27 b0 3c 20 | 20 c9 20 36 3a 53 74 61 |nt%.'.< | . 6:Sta|
|00006df0| 72 74 25 3d 21 74 75 74 | 61 6e 63 68 6f 72 25 3a |rt%=!tut|anchor%:|
|00006e00| 45 6e 64 25 3d 53 74 61 | 72 74 25 2b 74 75 74 77 |End%=Sta|rt%+tutw|
|00006e10| 69 64 74 68 25 2a 74 75 | 74 63 6f 75 6e 74 25 0d |idth%*tu|tcount%.|
|00006e20| 27 ba 3a 20 20 c9 20 35 | 3a 53 74 61 72 74 25 3d |'.:  . 5|:Start%=|
|00006e30| 21 74 69 6d 65 61 6e 63 | 68 6f 72 25 3a 45 6e 64 |!timeanc|hor%:End|
|00006e40| 25 3d 53 74 61 72 74 25 | 2b 74 69 6d 77 69 64 74 |%=Start%|+timwidt|
|00006e50| 68 25 2a 43 6f 75 6e 74 | 25 0d 27 c4 42 20 20 c9 |h%*Count|%.'.B  .|
|00006e60| 20 34 3a 53 74 61 72 74 | 25 3d 21 70 72 6f 62 6c | 4:Start|%=!probl|
|00006e70| 65 6d 61 6e 63 68 6f 72 | 25 3a 45 6e 64 25 3d 53 |emanchor|%:End%=S|
|00006e80| 74 61 72 74 25 2b 77 69 | 6e 77 69 64 74 68 25 2a |tart%+wi|nwidth%*|
|00006e90| 28 4e 70 72 6f 62 73 25 | 2b 34 29 0d 27 ce 3f 20 |(Nprobs%|+4).'.? |
|00006ea0| 20 c9 20 33 3a 53 74 61 | 72 74 25 3d 21 74 6f 74 | . 3:Sta|rt%=!tot|
|00006eb0| 61 6c 61 6e 63 68 6f 72 | 25 3a 45 6e 64 25 3d 53 |alanchor|%:End%=S|
|00006ec0| 74 61 72 74 25 2b 77 69 | 6e 77 69 64 74 68 25 2a |tart%+wi|nwidth%*|
|00006ed0| 28 4e 73 75 62 73 25 2b | 32 29 0d 27 d8 40 20 20 |(Nsubs%+|2).'.@  |
|00006ee0| c9 20 32 3a 53 74 61 72 | 74 25 3d 21 77 65 69 67 |. 2:Star|t%=!weig|
|00006ef0| 68 74 61 6e 63 68 6f 72 | 25 3a 45 6e 64 25 3d 53 |htanchor|%:End%=S|
|00006f00| 74 61 72 74 25 2b 77 69 | 6e 77 69 64 74 68 25 2a |tart%+wi|nwidth%*|
|00006f10| 28 4e 73 75 62 73 25 2b | 32 29 0d 27 e2 3e 20 20 |(Nsubs%+|2).'.>  |
|00006f20| c9 20 31 3a 53 74 61 72 | 74 25 3d 21 6d 61 69 6e |. 1:Star|t%=!main|
|00006f30| 61 6e 63 68 6f 72 25 3a | 45 6e 64 25 3d 53 74 61 |anchor%:|End%=Sta|
|00006f40| 72 74 25 2b 77 69 6e 77 | 69 64 74 68 25 2a 28 4e |rt%+winw|idth%*(N|
|00006f50| 72 65 63 73 25 2b 34 29 | 0d 27 ec 05 cb 0d 27 f6 |recs%+4)|.'....'.|
|00006f60| 0c c8 8e 20 69 63 25 20 | ca 0d 28 00 36 20 20 c9 |... ic% |..(.6  .|
|00006f70| 20 31 3a e7 20 28 62 25 | 20 80 20 25 31 31 31 31 | 1:. (b%| . %1111|
|00006f80| 30 30 30 30 29 3e 30 20 | 8c 20 f2 69 6e 69 74 5f |0000)>0 |. .init_|
|00006f90| 64 72 61 67 28 77 69 25 | 2c 69 63 25 2c 35 29 0d |drag(wi%|,ic%,5).|
|00006fa0| 28 0a 0a 20 20 c9 20 32 | 3a 0d 28 14 1b 20 20 e7 |(..  . 2|:.(..  .|
|00006fb0| 20 a7 46 69 6c 65 6e 61 | 6d 65 24 2c 22 2e 22 29 | .Filena|me$,".")|
|00006fc0| 3e 30 20 8c 0d 28 1e 2a | 20 20 20 20 f2 73 61 76 |>0 ..(.*|    .sav|
|00006fd0| 65 28 46 69 6c 65 6e 61 | 6d 65 24 2c 54 79 70 65 |e(Filena|me$,Type|
|00006fe0| 25 2c 53 74 61 72 74 25 | 2c 45 6e 64 25 29 0d 28 |%,Start%|,End%).(|
|00006ff0| 28 20 20 20 20 20 c8 99 | 20 22 57 69 6d 70 5f 43 |(     ..| "Wimp_C|
|00007000| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 2d 31 0d 28 |reateMen|u",,-1.(|
|00007010| 32 68 20 20 20 20 cc 20 | f2 77 69 6d 70 5f 65 72 |2h    . |.wimp_er|
|00007020| 72 6f 72 28 b9 2c 6d 6f | 61 6e 5f 65 72 72 25 2c |ror(.,mo|an_err%,|
|00007030| 30 2c 22 4e 6f 20 70 61 | 74 68 6e 61 6d 65 2e 20 |0,"No pa|thname. |
|00007040| 44 72 61 67 20 74 68 65 | 20 66 69 6c 65 20 69 63 |Drag the| file ic|
|00007050| 6f 6e 20 74 6f 20 61 20 | 64 69 72 65 63 74 6f 72 |on to a |director|
|00007060| 79 20 77 69 6e 64 6f 77 | 20 74 6f 20 73 61 76 65 |y window| to save|
|00007070| 20 69 74 2e 22 29 0d 28 | 3c 07 20 20 cd 0d 28 46 | it.").(|<.  ..(F|
|00007080| 05 cb 0d 28 50 05 e1 0d | 28 5a 05 3a 0d 28 64 14 |...(P...|(Z.:.(d.|
|00007090| dd 20 f2 64 61 74 61 64 | 69 63 5f 63 6c 69 63 6b |. .datad|ic_click|
|000070a0| 0d 28 6e 12 c8 8e 20 62 | 25 20 80 20 25 31 31 31 |.(n... b|% . %111|
|000070b0| 20 ca 0d 28 78 0a 20 20 | c9 20 34 3a 0d 28 82 38 | ..(x.  |. 4:.(.8|
|000070c0| 20 20 21 62 6c 6f 63 6b | 25 3d 64 61 74 61 64 69 |  !block|%=datadi|
|000070d0| 63 57 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |cW%:.. "|Wimp_Get|
|000070e0| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 6c |WindowSt|ate",,bl|
|000070f0| 6f 63 6b 25 0d 28 8c 4d | 20 20 c8 99 20 22 57 69 |ock%.(.M|  .. "Wi|
|00007100| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|00007110| 69 6f 6e 22 2c 64 61 74 | 61 64 69 63 57 25 2c 69 |ion",dat|adicW%,i|
|00007120| 63 25 2c 78 25 2d 62 6c | 6f 63 6b 25 21 34 2b 62 |c%,x%-bl|ock%!4+b|
|00007130| 6c 6f 63 6b 25 21 32 30 | 2c 79 25 2c 2d 31 2c 2d |lock%!20|,y%,-1,-|
|00007140| 31 0d 28 96 2a 20 20 c9 | 20 32 3a f2 73 68 6f 77 |1.(.*  .| 2:.show|
|00007150| 5f 6d 65 6e 75 28 6d 65 | 6e 75 25 28 32 29 2c 78 |_menu(me|nu%(2),x|
|00007160| 25 2d 36 34 2c 79 25 2d | 32 30 29 0d 28 a0 05 cb |%-64,y%-|20).(...|
|00007170| 0d 28 aa 05 e1 0d 28 b4 | 05 3a 0d 28 be 1f dd 20 |.(....(.|.:.(... |
|00007180| f2 73 61 76 65 28 66 24 | 2c 66 74 25 2c 73 74 61 |.save(f$|,ft%,sta|
|00007190| 72 74 25 2c 65 6e 64 25 | 29 0d 28 c8 27 c8 99 20 |rt%,end%|).(.'.. |
|000071a0| 22 4f 53 5f 46 69 6c 65 | 22 2c 31 30 2c 66 24 2c |"OS_File|",10,f$,|
|000071b0| 66 74 25 2c 2c 73 74 61 | 72 74 25 2c 65 6e 64 25 |ft%,,sta|rt%,end%|
|000071c0| 0d 28 d2 0b 77 61 72 6e | 25 3d b9 0d 28 dc 05 e1 |.(..warn|%=..(...|
|000071d0| 0d 28 e6 05 3a 0d 28 f0 | 48 f4 20 2d 2d 2d 2d 2d |.(..:.(.|H. -----|
|000071e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 45 6e |--------|----- En|
|000071f0| 64 20 6f 66 20 4d 6f 75 | 73 65 2d 63 6c 69 63 6b |d of Mou|se-click|
|00007200| 20 70 72 6f 63 65 73 73 | 69 6e 67 20 2d 2d 2d 2d | process|ing ----|
|00007210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 28 fa |--------|-----.(.|
|00007220| 05 3a 0d 29 04 05 3a 0d | 29 0e 05 3a 0d 29 18 4a |.:.)..:.|)..:.).J|
|00007230| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00007240| 2d 2d 2d 2d 2d 2d 2d 2d | 20 4b 65 79 2d 70 72 65 |--------| Key-pre|
|00007250| 73 73 20 70 72 6f 63 65 | 73 73 69 6e 67 20 2d 2d |ss proce|ssing --|
|00007260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00007270| 2d 2d 2d 2d 2d 2d 0d 29 | 22 05 3a 0d 29 2c 12 dd |------.)|".:.),..|
|00007280| 20 f2 70 72 6f 63 65 73 | 73 5f 6b 65 79 0d 29 36 | .proces|s_key.)6|
|00007290| 0b ea 20 54 25 2c 4e 24 | 0d 29 40 26 c8 99 20 22 |.. T%,N$|.)@&.. "|
|000072a0| 57 69 6d 70 5f 47 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Get|CaretPos|
|000072b0| 69 74 69 6f 6e 22 2c 2c | 62 6c 6f 63 6b 25 0d 29 |ition",,|block%.)|
|000072c0| 4a 34 77 69 25 3d 62 6c | 6f 63 6b 25 21 30 3a 69 |J4wi%=bl|ock%!0:i|
|000072d0| 63 25 3d 62 6c 6f 63 6b | 25 21 34 3a 6b 65 79 5f |c%=block|%!4:key_|
|000072e0| 70 72 65 73 73 65 64 25 | 3d 62 6c 6f 63 6b 25 21 |pressed%|=block%!|
|000072f0| 32 34 0d 29 54 0c c8 8e | 20 77 69 25 20 ca 0d 29 |24.)T...| wi% ..)|
|00007300| 5e 1f 20 20 c9 20 61 63 | 63 65 73 73 57 25 3a f2 |^.  . ac|cessW%:.|
|00007310| 64 62 6f 78 5f 70 72 65 | 73 73 28 33 29 0d 29 68 |dbox_pre|ss(3).)h|
|00007320| 1e 20 20 c9 20 74 75 74 | 6f 72 57 25 3a f2 64 62 |.  . tut|orW%:.db|
|00007330| 6f 78 5f 70 72 65 73 73 | 28 32 29 0d 29 72 1d 20 |ox_press|(2).)r. |
|00007340| 20 c9 20 73 61 76 65 57 | 25 3a f2 64 62 6f 78 5f | . saveW|%:.dbox_|
|00007350| 70 72 65 73 73 28 32 29 | 0d 29 7c 20 20 20 c9 20 |press(2)|.)|   . |
|00007360| 64 61 74 61 64 69 63 57 | 25 3a f2 64 61 74 61 64 |datadicW|%:.datad|
|00007370| 69 63 5f 70 72 65 73 73 | 0d 29 86 05 cb 0d 29 90 |ic_press|.)....).|
|00007380| 05 e1 0d 29 9a 05 3a 0d | 29 a4 16 dd 20 f2 64 62 |...)..:.|)... .db|
|00007390| 6f 78 5f 70 72 65 73 73 | 28 6f 6b 25 29 0d 29 ae |ox_press|(ok%).).|
|000073a0| 15 c8 8e 20 6b 65 79 5f | 70 72 65 73 73 65 64 25 |... key_|pressed%|
|000073b0| 20 ca 0d 29 b8 42 20 20 | c9 20 31 33 3a e7 20 a4 | ..).B  |. 13:. .|
|000073c0| 6e 65 78 74 5f 77 72 69 | 74 65 61 62 6c 65 28 77 |next_wri|teable(w|
|000073d0| 69 25 2c 69 63 25 2c 31 | 2c 31 29 3d b9 20 8c f2 |i%,ic%,1|,1)=. ..|
|000073e0| 6d 6f 75 73 65 28 30 2c | 30 2c 34 2c 77 69 25 2c |mouse(0,|0,4,wi%,|
|000073f0| 6f 6b 25 29 0d 29 c2 2b | 20 20 c9 20 33 39 38 3a |ok%).).+|  . 398:|
|00007400| 66 25 3d a4 6e 65 78 74 | 5f 77 72 69 74 65 61 62 |f%=.next|_writeab|
|00007410| 6c 65 28 77 69 25 2c 69 | 63 25 2c 31 2c 30 29 0d |le(wi%,i|c%,1,0).|
|00007420| 29 cc 2c 20 20 c9 20 33 | 39 39 3a 66 25 3d a4 6e |).,  . 3|99:f%=.n|
|00007430| 65 78 74 5f 77 72 69 74 | 65 61 62 6c 65 28 77 69 |ext_writ|eable(wi|
|00007440| 25 2c 69 63 25 2c 2d 31 | 2c 30 29 0d 29 d6 29 20 |%,ic%,-1|,0).).) |
|00007450| 20 7f 20 c8 99 20 22 57 | 69 6d 70 5f 50 72 6f 63 | . .. "W|imp_Proc|
|00007460| 65 73 73 4b 65 79 22 2c | 6b 65 79 5f 70 72 65 73 |essKey",|key_pres|
|00007470| 73 65 64 25 0d 29 e0 05 | cb 0d 29 ea 05 e1 0d 29 |sed%.)..|..)....)|
|00007480| f4 05 3a 0d 29 fe 14 dd | 20 f2 64 61 74 61 64 69 |..:.)...| .datadi|
|00007490| 63 5f 70 72 65 73 73 0d | 2a 08 0c ea 20 69 63 6f |c_press.|*... ico|
|000074a0| 6e 73 25 0d 2a 12 1f 69 | 63 6f 6e 73 25 3d 52 6f |ns%.*..i|cons%=Ro|
|000074b0| 77 73 25 2a 28 54 61 62 | 46 69 65 6c 64 73 25 2b |ws%*(Tab|Fields%+|
|000074c0| 31 29 0d 2a 1c 15 c8 8e | 20 6b 65 79 5f 70 72 65 |1).*....| key_pre|
|000074d0| 73 73 65 64 25 20 ca 0d | 2a 26 0b 20 20 c9 20 31 |ssed% ..|*&.  . 1|
|000074e0| 33 3a 0d 2a 30 32 20 20 | e7 20 69 63 25 3c 69 63 |3:.*02  |. ic%<ic|
|000074f0| 6f 6e 73 25 2d 31 20 8c | 20 f2 73 65 74 5f 63 61 |ons%-1 .| .set_ca|
|00007500| 72 65 74 28 64 61 74 61 | 64 69 63 57 25 2c 69 63 |ret(data|dicW%,ic|
|00007510| 25 2b 31 29 0d 2a 3a 0c | 20 20 c9 20 33 39 38 3a |%+1).*:.|  . 398:|
|00007520| 0d 2a 44 48 20 20 e7 20 | 69 63 25 3c 69 63 6f 6e |.*DH  . |ic%<icon|
|00007530| 73 25 2d 54 61 62 46 69 | 65 6c 64 73 25 2d 31 20 |s%-TabFi|elds%-1 |
|00007540| 8c 20 f2 73 65 74 5f 63 | 61 72 65 74 28 64 61 74 |. .set_c|aret(dat|
|00007550| 61 64 69 63 57 25 2c 69 | 63 25 2b 54 61 62 46 69 |adicW%,i|c%+TabFi|
|00007560| 65 6c 64 73 25 2b 31 29 | 0d 2a 4e 0c 20 20 c9 20 |elds%+1)|.*N.  . |
|00007570| 33 39 39 3a 0d 2a 58 42 | 20 20 e7 20 69 63 25 3e |399:.*XB|  . ic%>|
|00007580| 3d 54 61 62 46 69 65 6c | 64 73 25 2b 31 20 8c 20 |=TabFiel|ds%+1 . |
|00007590| f2 73 65 74 5f 63 61 72 | 65 74 28 64 61 74 61 64 |.set_car|et(datad|
|000075a0| 69 63 57 25 2c 69 63 25 | 2d 54 61 62 46 69 65 6c |icW%,ic%|-TabFiel|
|000075b0| 64 73 25 2d 31 29 0d 2a | 62 29 20 20 7f 3a c8 99 |ds%-1).*|b)  .:..|
|000075c0| 20 22 57 69 6d 70 5f 50 | 72 6f 63 65 73 73 4b 65 | "Wimp_P|rocessKe|
|000075d0| 79 22 2c 6b 65 79 5f 70 | 72 65 73 73 65 64 25 0d |y",key_p|ressed%.|
|000075e0| 2a 6c 05 cb 0d 2a 76 05 | e1 0d 2a 80 05 3a 0d 2a |*l...*v.|..*..:.*|
|000075f0| 8a 49 f4 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.I. ----|--------|
|00007600| 2d 2d 2d 2d 20 45 6e 64 | 20 6f 66 20 4b 65 79 2d |---- End| of Key-|
|00007610| 70 72 65 73 73 20 70 72 | 6f 63 65 73 73 69 6e 67 |press pr|ocessing|
|00007620| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00007630| 2d 2d 2d 2d 2d 2d 2d 0d | 2a 94 05 3a 0d 2a 9e 05 |-------.|*..:.*..|
|00007640| 3a 0d 2a a8 05 3a 0d 2a | b2 47 f4 20 2d 2d 2d 2d |:.*..:.*|.G. ----|
|00007650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00007660| 20 4d 65 73 73 61 67 65 | 20 68 61 6e 64 6c 69 6e | Message| handlin|
|00007670| 67 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |g ------|--------|
|00007680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 2a bc |--------|-----.*.|
|00007690| 05 3a 0d 2a c6 0e dd 20 | f2 6d 65 73 73 61 67 65 |.:.*... |.message|
|000076a0| 0d 2a d0 18 ea 20 74 61 | 73 6b 25 2c 72 65 66 25 |.*... ta|sk%,ref%|
|000076b0| 2c 50 72 65 66 69 78 24 | 0d 2a da 12 74 61 73 6b |,Prefix$|.*..task|
|000076c0| 25 3d 62 6c 6f 63 6b 25 | 21 34 0d 2a e4 11 72 65 |%=block%|!4.*..re|
|000076d0| 66 25 3d 62 6c 6f 63 6b | 25 21 38 0d 2a ee 12 c8 |f%=block|%!8.*...|
|000076e0| 8e 20 62 6c 6f 63 6b 25 | 21 31 36 20 ca 0d 2a f8 |. block%|!16 ..*.|
|000076f0| 11 20 20 c9 20 30 3a 71 | 75 69 74 25 3d b9 0d 2b |.  . 0:q|uit%=..+|
|00007700| 02 0a 20 20 c9 20 32 3a | 0d 2b 0c 31 20 20 f2 73 |..  . 2:|.+.1  .s|
|00007710| 61 76 65 28 a4 67 65 74 | 73 74 72 28 62 6c 6f 63 |ave(.get|str(bloc|
|00007720| 6b 25 2b 34 34 29 2c 54 | 79 70 65 25 2c 53 74 61 |k%+44),T|ype%,Sta|
|00007730| 72 74 25 2c 45 6e 64 25 | 29 0d 2b 16 26 20 20 c8 |rt%,End%|).+.&  .|
|00007740| 99 20 22 57 69 6d 70 5f | 47 65 74 50 6f 69 6e 74 |. "Wimp_|GetPoint|
|00007750| 65 72 49 6e 66 6f 22 2c | 2c 62 6c 6f 63 6b 25 0d |erInfo",|,block%.|
|00007760| 2b 20 19 20 20 62 6c 6f | 63 6b 25 21 32 30 3d 62 |+ .  blo|ck%!20=b|
|00007770| 6c 6f 63 6b 25 21 31 32 | 0d 2b 2a 19 20 20 62 6c |lock%!12|.+*.  bl|
|00007780| 6f 63 6b 25 21 32 34 3d | 62 6c 6f 63 6b 25 21 31 |ock%!24=|block%!1|
|00007790| 36 0d 2b 34 18 20 20 62 | 6c 6f 63 6b 25 21 32 38 |6.+4.  b|lock%!28|
|000077a0| 3d 62 6c 6f 63 6b 25 21 | 30 0d 2b 3e 18 20 20 62 |=block%!|0.+>.  b|
|000077b0| 6c 6f 63 6b 25 21 33 32 | 3d 62 6c 6f 63 6b 25 21 |lock%!32|=block%!|
|000077c0| 34 0d 2b 48 11 20 20 21 | 62 6c 6f 63 6b 25 3d 32 |4.+H.  !|block%=2|
|000077d0| 35 36 0d 2b 52 15 20 20 | 62 6c 6f 63 6b 25 21 34 |56.+R.  |block%!4|
|000077e0| 30 3d 54 79 70 65 25 0d | 2b 5c 1e 20 20 6d 79 72 |0=Type%.|+\.  myr|
|000077f0| 65 66 25 3d 72 65 66 25 | 3a f2 72 65 70 6c 79 28 |ef%=ref%|:.reply(|
|00007800| 31 38 2c 33 29 0d 2b 66 | 16 20 20 77 61 69 74 69 |18,3).+f|.  waiti|
|00007810| 6e 67 66 6f 72 61 63 6b | 25 3d b9 0d 2b 70 1e 20 |ngforack|%=..+p. |
|00007820| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|00007830| 4d 65 6e 75 22 2c 2c 2d | 31 0d 2b 7a 38 20 20 c9 |Menu",,-|1.+z8  .|
|00007840| 20 33 3a e7 20 62 6c 6f | 63 6b 25 21 31 32 3d 30 | 3:. blo|ck%!12=0|
|00007850| 20 8c 20 f2 67 65 74 5f | 69 74 5f 69 6e 28 a4 67 | . .get_|it_in(.g|
|00007860| 65 74 73 74 72 28 62 6c | 6f 63 6b 25 2b 34 34 29 |etstr(bl|ock%+44)|
|00007870| 29 0d 2b 84 1a 20 20 c9 | 20 34 3a 77 61 69 74 69 |).+..  .| 4:waiti|
|00007880| 6e 67 66 6f 72 61 63 6b | 25 3d a3 0d 2b 8e 0a 20 |ngforack|%=..+.. |
|00007890| 20 c9 20 35 3a 0d 2b 98 | 14 20 20 c8 8e 20 62 6c | . 5:.+.|.  .. bl|
|000078a0| 6f 63 6b 25 21 34 30 20 | ca 0d 2b a2 19 20 20 20 |ock%!40 |..+..   |
|000078b0| 20 c9 20 26 37 46 31 2c | 26 37 46 33 2c 26 37 46 | . &7F1,|&7F3,&7F|
|000078c0| 34 3a 0d 2b ac 16 20 20 | 20 20 e7 20 70 72 65 73 |4:.+..  |  . pres|
|000078d0| 65 6e 74 25 3d 37 20 8c | 0d 2b b6 15 20 20 20 20 |ent%=7 .|.+..    |
|000078e0| 20 20 62 6c 6f 63 6b 25 | 21 30 3d 32 30 0d 2b c0 |  block%|!0=20.+.|
|000078f0| 18 20 20 20 20 20 20 62 | 6c 6f 63 6b 25 21 31 32 |.      b|lock%!12|
|00007900| 3d 72 65 66 25 0d 2b ca | 15 20 20 20 20 20 20 62 |=ref%.+.|.      b|
|00007910| 6c 6f 63 6b 25 21 31 36 | 3d 34 0d 2b d4 29 20 20 |lock%!16|=4.+.)  |
|00007920| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |    .. "|Wimp_Sen|
|00007930| 64 4d 65 73 73 61 67 65 | 22 2c 31 37 2c 62 6c 6f |dMessage|",17,blo|
|00007940| 63 6b 25 0d 2b de 28 20 | 20 20 20 20 20 f2 67 65 |ck%.+.( |     .ge|
|00007950| 74 5f 69 74 5f 69 6e 28 | a4 67 65 74 73 74 72 28 |t_it_in(|.getstr(|
|00007960| 62 6c 6f 63 6b 25 2b 34 | 34 29 29 0d 2b e8 09 20 |block%+4|4)).+.. |
|00007970| 20 20 20 cd 0d 2b f2 10 | 20 20 20 20 c9 20 26 32 |   ..+..|    . &2|
|00007980| 30 30 30 3a 0d 2b fc 28 | 20 20 20 20 66 24 3d a4 |000:.+.(|    f$=.|
|00007990| 67 65 74 73 74 72 28 62 | 6c 6f 63 6b 25 2b 34 34 |getstr(b|lock%+44|
|000079a0| 29 2b 22 2e 49 6e 64 69 | 63 65 73 22 0d 2c 06 1e |)+".Indi|ces".,..|
|000079b0| 20 20 20 20 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |    .. "|OS_File"|
|000079c0| 2c 35 2c 66 24 20 b8 20 | 64 25 0d 2c 10 10 20 20 |,5,f$ . |d%.,..  |
|000079d0| 20 20 e7 20 64 25 3d 32 | 20 8c 0d 2c 1a 15 20 20 |  . d%=2| ..,..  |
|000079e0| 20 20 20 20 62 6c 6f 63 | 6b 25 21 30 3d 32 30 0d |    bloc|k%!0=20.|
|000079f0| 2c 24 18 20 20 20 20 20 | 20 62 6c 6f 63 6b 25 21 |,$.     | block%!|
|00007a00| 31 32 3d 72 65 66 25 0d | 2c 2e 15 20 20 20 20 20 |12=ref%.|,..     |
|00007a10| 20 62 6c 6f 63 6b 25 21 | 31 36 3d 34 0d 2c 38 29 | block%!|16=4.,8)|
|00007a20| 20 20 20 20 20 20 c8 99 | 20 22 57 69 6d 70 5f 53 |      ..| "Wimp_S|
|00007a30| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 37 2c 62 |endMessa|ge",17,b|
|00007a40| 6c 6f 63 6b 25 0d 2c 42 | 28 20 20 20 20 20 20 f2 |lock%.,B|(      .|
|00007a50| 67 65 74 5f 69 74 5f 69 | 6e 28 a4 67 65 74 73 74 |get_it_i|n(.getst|
|00007a60| 72 28 62 6c 6f 63 6b 25 | 2b 34 34 29 29 0d 2c 4c |r(block%|+44)).,L|
|00007a70| 09 20 20 20 20 cd 0d 2c | 56 07 20 20 cb 0d 2c 60 |.    ..,|V.  ..,`|
|00007a80| 17 20 20 c9 20 36 3a f2 | 72 61 6d 5f 74 72 61 6e |.  . 6:.|ram_tran|
|00007a90| 73 6d 69 74 0d 2c 6a 0d | 20 20 c9 20 26 35 30 32 |smit.,j.|  . &502|
|00007aa0| 3a 0d 2c 74 14 20 20 c8 | 8e 20 62 6c 6f 63 6b 25 |:.,t.  .|. block%|
|00007ab0| 21 33 32 20 ca 0d 2c 7e | 70 20 20 20 20 c9 20 2d |!32 ..,~|p    . -|
|00007ac0| 32 2c 6d 61 69 6e 57 25 | 2c 74 69 6d 65 74 61 62 |2,mainW%|,timetab|
|00007ad0| 6c 65 57 25 2c 64 61 74 | 61 64 69 63 57 25 2c 74 |leW%,dat|adicW%,t|
|00007ae0| 6f 74 61 6c 57 25 2c 77 | 65 69 67 68 74 57 25 2c |otalW%,w|eightW%,|
|00007af0| 70 72 6f 62 6c 65 6d 57 | 25 2c 74 75 74 6f 72 67 |problemW|%,tutorg|
|00007b00| 72 70 57 25 2c 67 72 6f | 75 70 57 25 3a f2 68 65 |rpW%,gro|upW%:.he|
|00007b10| 6c 70 5f 6d 65 73 73 61 | 67 65 28 62 6c 6f 63 6b |lp_messa|ge(block|
|00007b20| 25 21 33 32 29 0d 2c 88 | 29 20 20 20 20 7f 3a c8 |%!32).,.|)    .:.|
|00007b30| 99 20 22 49 6e 74 65 72 | 66 61 63 65 5f 53 65 6e |. "Inter|face_Sen|
|00007b40| 64 48 65 6c 70 22 2c 2c | 62 6c 6f 63 6b 25 0d 2c |dHelp",,|block%.,|
|00007b50| 92 07 20 20 cb 0d 2c 9c | 39 20 20 c9 20 26 34 30 |..  ..,.|9  . &40|
|00007b60| 30 43 32 3a f2 67 65 74 | 73 63 72 65 65 6e 73 69 |0C2:.get|screensi|
|00007b70| 7a 65 28 53 63 72 65 65 | 6e 57 69 64 74 68 25 2c |ze(Scree|nWidth%,|
|00007b80| 53 63 72 65 65 6e 48 65 | 69 67 68 74 25 29 0d 2c |ScreenHe|ight%).,|
|00007b90| a6 05 cb 0d 2c b0 05 e1 | 0d 2c ba 05 3a 0d 2c c4 |....,...|.,..:.,.|
|00007ba0| 13 dd 20 f2 72 61 6d 5f | 74 72 61 6e 73 6d 69 74 |.. .ram_|transmit|
|00007bb0| 0d 2c ce 41 e7 20 64 61 | 74 61 73 69 7a 65 25 3e |.,.A. da|tasize%>|
|00007bc0| 62 6c 6f 63 6b 25 21 32 | 34 20 8c 20 74 6f 73 65 |block%!2|4 . tose|
|00007bd0| 6e 64 25 3d 62 6c 6f 63 | 6b 25 21 32 34 20 8b 20 |nd%=bloc|k%!24 . |
|00007be0| 74 6f 73 65 6e 64 25 3d | 64 61 74 61 73 69 7a 65 |tosend%=|datasize|
|00007bf0| 25 0d 2c d8 46 c8 99 20 | 22 57 69 6d 70 5f 54 72 |%.,.F.. |"Wimp_Tr|
|00007c00| 61 6e 73 66 65 72 42 6c | 6f 63 6b 22 2c 6d 79 74 |ansferBl|ock",myt|
|00007c10| 61 73 6b 25 2c 72 61 6d | 70 74 72 25 2c 62 6c 6f |ask%,ram|ptr%,blo|
|00007c20| 63 6b 25 21 34 2c 62 6c | 6f 63 6b 25 21 32 30 2c |ck%!4,bl|ock%!20,|
|00007c30| 74 6f 73 65 6e 64 25 0d | 2c e2 15 62 6c 6f 63 6b |tosend%.|,..block|
|00007c40| 25 21 32 34 3d 74 6f 73 | 65 6e 64 25 0d 2c ec 16 |%!24=tos|end%.,..|
|00007c50| 64 61 74 61 73 69 7a 65 | 25 2d 3d 74 6f 73 65 6e |datasize|%-=tosen|
|00007c60| 64 25 0d 2c f6 14 72 61 | 6d 70 74 72 25 2b 3d 74 |d%.,..ra|mptr%+=t|
|00007c70| 6f 73 65 6e 64 25 0d 2d | 00 16 62 6c 6f 63 6b 25 |osend%.-|..block%|
|00007c80| 21 31 32 3d 62 6c 6f 63 | 6b 25 21 38 0d 2d 0a 0f |!12=bloc|k%!8.-..|
|00007c90| 62 6c 6f 63 6b 25 21 31 | 36 3d 37 0d 2d 14 3a c8 |block%!1|6=7.-.:.|
|00007ca0| 99 20 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |. "Wimp_|SendMess|
|00007cb0| 61 67 65 22 2c 31 38 2b | 28 64 61 74 61 73 69 7a |age",18+|(datasiz|
|00007cc0| 65 25 3d 30 29 2c 62 6c | 6f 63 6b 25 2c 62 6c 6f |e%=0),bl|ock%,blo|
|00007cd0| 63 6b 25 21 34 0d 2d 1e | 05 e1 0d 2d 28 05 3a 0d |ck%!4.-.|...-(.:.|
|00007ce0| 2d 32 18 dd 20 f2 68 65 | 6c 70 5f 6d 65 73 73 61 |-2.. .he|lp_messa|
|00007cf0| 67 65 28 77 69 25 29 0d | 2d 3c 0c c8 8e 20 77 69 |ge(wi%).|-<... wi|
|00007d00| 25 20 ca 0d 2d 46 86 20 | 20 c9 20 2d 32 3a f2 73 |% ..-F. | . -2:.s|
|00007d10| 65 6e 64 5f 68 65 6c 70 | 28 22 54 68 69 73 20 69 |end_help|("This i|
|00007d20| 73 20 74 68 65 20 42 6c | 6f 63 6b 20 69 63 6f 6e |s the Bl|ock icon|
|00007d30| 2c 20 73 68 6f 77 69 6e | 67 20 74 68 61 74 20 74 |, showin|g that t|
|00007d40| 68 65 20 70 72 6f 67 72 | 61 6d 20 69 73 20 72 75 |he progr|am is ru|
|00007d50| 6e 6e 69 6e 67 2e 20 4e | 6f 77 20 64 6f 75 62 6c |nning. N|ow doubl|
|00007d60| 65 20 63 6c 69 63 6b 20 | 6f 6e 20 74 68 65 20 59 |e click |on the Y|
|00007d70| 65 61 72 31 20 6f 72 20 | 59 65 61 72 32 20 64 61 |ear1 or |Year2 da|
|00007d80| 74 61 62 61 73 65 2e 22 | 29 0d 2d 50 6b 20 20 c9 |tabase."|).-Pk  .|
|00007d90| 20 74 69 6d 65 74 61 62 | 6c 65 57 25 3a f2 73 65 | timetab|leW%:.se|
|00007da0| 6e 64 5f 68 65 6c 70 28 | 22 49 66 20 79 6f 75 20 |nd_help(|"If you |
|00007db0| 77 69 73 68 20 74 6f 20 | 73 61 76 65 20 74 68 69 |wish to |save thi|
|00007dc0| 73 20 64 61 74 61 20 63 | 6c 69 63 6b 20 4d 45 4e |s data c|lick MEN|
|00007dd0| 55 20 6f 76 65 72 20 69 | 74 20 74 6f 20 64 69 73 |U over i|t to dis|
|00007de0| 70 6c 61 79 20 74 68 65 | 20 53 61 76 65 20 62 6f |play the| Save bo|
|00007df0| 78 2e 22 29 0d 2d 5a 88 | 20 20 c9 20 64 61 74 61 |x.").-Z.|  . data|
|00007e00| 64 69 63 57 25 3a f2 73 | 65 6e 64 5f 68 65 6c 70 |dicW%:.s|end_help|
|00007e10| 28 22 54 68 69 73 20 74 | 61 62 6c 65 20 6d 61 79 |("This t|able may|
|00007e20| 20 62 65 20 65 64 69 74 | 65 64 20 28 69 66 20 79 | be edit|ed (if y|
|00007e30| 6f 75 20 68 61 76 65 20 | 61 70 70 72 6f 70 72 69 |ou have |appropri|
|00007e40| 61 74 65 20 61 63 63 65 | 73 73 20 72 69 67 68 74 |ate acce|ss right|
|00007e50| 73 29 2e 20 43 6c 69 63 | 6b 20 4d 45 4e 55 20 6f |s). Clic|k MENU o|
|00007e60| 76 65 72 20 74 68 65 20 | 77 69 6e 64 6f 77 20 74 |ver the |window t|
|00007e70| 6f 20 73 61 76 65 20 69 | 74 2e 22 29 0d 2d 64 9c |o save i|t.").-d.|
|00007e80| 20 20 c9 20 70 72 6f 62 | 6c 65 6d 57 25 3a f2 73 |  . prob|lemW%:.s|
|00007e90| 65 6e 64 5f 68 65 6c 70 | 28 22 54 68 65 73 65 20 |end_help|("These |
|00007ea0| 61 72 65 20 74 68 65 20 | 73 74 75 64 65 6e 74 73 |are the |students|
|00007eb0| 20 77 68 6f 20 63 6f 75 | 6c 64 20 6e 6f 74 20 62 | who cou|ld not b|
|00007ec0| 65 20 62 6c 6f 63 6b 65 | 64 20 28 6f 72 20 61 73 |e blocke|d (or as|
|00007ed0| 73 69 67 6e 65 64 20 74 | 75 74 6f 72 73 29 2e 20 |signed t|utors). |
|00007ee0| 49 74 20 6d 61 79 20 62 | 65 20 6e 65 63 65 73 73 |It may b|e necess|
|00007ef0| 61 72 79 20 74 6f 20 72 | 65 6d 6f 76 65 20 6f 72 |ary to r|emove or|
|00007f00| 20 73 75 62 73 74 69 74 | 75 74 65 20 61 20 73 75 | substit|ute a su|
|00007f10| 62 6a 65 63 74 2e 22 29 | 0d 2d 6e b0 20 20 c9 20 |bject.")|.-n.  . |
|00007f20| 74 6f 74 61 6c 57 25 3a | f2 73 65 6e 64 5f 68 65 |totalW%:|.send_he|
|00007f30| 6c 70 28 22 54 68 69 73 | 20 74 61 62 6c 65 20 73 |lp("This| table s|
|00007f40| 68 6f 77 73 20 74 68 65 | 20 6e 75 6d 62 65 72 73 |hows the| numbers|
|00007f50| 20 6f 66 20 73 74 75 64 | 65 6e 74 73 20 63 75 72 | of stud|ents cur|
|00007f60| 72 65 6e 74 6c 79 20 69 | 6e 20 65 61 63 68 20 67 |rently i|n each g|
|00007f70| 72 6f 75 70 2e 20 50 6f | 69 6e 74 20 61 74 20 61 |roup. Po|int at a|
|00007f80| 6e 79 20 6e 75 6d 62 65 | 72 20 61 6e 64 20 63 6c |ny numbe|r and cl|
|00007f90| 69 63 6b 20 4d 45 4e 55 | 20 69 66 20 79 6f 75 20 |ick MENU| if you |
|00007fa0| 77 69 73 68 20 74 6f 20 | 6c 69 73 74 20 74 68 65 |wish to |list the|
|00007fb0| 20 6d 65 6d 62 65 72 73 | 20 6f 66 20 74 68 65 20 | members| of the |
|00007fc0| 67 72 6f 75 70 2e 22 29 | 0d 2d 78 be 20 20 c9 20 |group.")|.-x.  . |
|00007fd0| 77 65 69 67 68 74 57 25 | 3a f2 73 65 6e 64 5f 68 |weightW%|:.send_h|
|00007fe0| 65 6c 70 28 22 54 68 69 | 73 20 74 61 62 6c 65 20 |elp("Thi|s table |
|00007ff0| 73 68 6f 77 73 20 74 68 | 65 20 62 6c 6f 63 6b 20 |shows th|e block |
|00008000| 77 65 69 67 68 74 69 6e | 67 73 2e 20 35 30 30 20 |weightin|gs. 500 |
|00008010| 6d 65 61 6e 73 20 74 68 | 61 74 20 74 68 65 20 73 |means th|at the s|
|00008020| 75 62 6a 65 63 74 20 69 | 73 6e 27 74 20 6f 66 66 |ubject i|sn't off|
|00008030| 65 72 65 64 20 69 6e 20 | 74 68 61 74 20 62 6c 6f |ered in |that blo|
|00008040| 63 6b 2e 20 54 6f 20 6d | 61 6b 65 20 61 6c 74 65 |ck. To m|ake alte|
|00008050| 72 61 74 69 6f 6e 73 20 | 70 6f 69 6e 74 20 61 74 |rations |point at|
|00008060| 20 74 68 65 20 76 61 6c | 75 65 20 74 6f 20 63 68 | the val|ue to ch|
|00008070| 61 6e 67 65 20 61 6e 64 | 20 63 6c 69 63 6b 20 4d |ange and| click M|
|00008080| 45 4e 55 2e 22 29 0d 2d | 82 dc 20 20 c9 20 6d 61 |ENU.").-|..  . ma|
|00008090| 69 6e 57 25 3a f2 73 65 | 6e 64 5f 68 65 6c 70 28 |inW%:.se|nd_help(|
|000080a0| 22 54 68 69 73 20 69 73 | 20 74 68 65 20 63 75 72 |"This is| the cur|
|000080b0| 72 65 6e 74 20 73 74 61 | 74 65 20 6f 66 20 74 68 |rent sta|te of th|
|000080c0| 65 20 66 69 6c 65 2e 20 | 41 66 74 65 72 20 62 6c |e file. |After bl|
|000080d0| 6f 63 6b 69 6e 67 20 74 | 68 65 20 65 6e 74 72 69 |ocking t|he entri|
|000080e0| 65 73 20 77 69 6c 6c 20 | 61 70 70 65 61 72 20 62 |es will |appear b|
|000080f0| 6c 75 65 20 28 73 75 63 | 63 65 73 73 66 75 6c 20 |lue (suc|cessful |
|00008100| 62 6c 6f 63 6b 69 6e 67 | 29 20 6f 72 20 72 65 64 |blocking|) or red|
|00008110| 20 28 62 6c 6f 63 6b 69 | 6e 67 20 68 61 73 20 66 | (blocki|ng has f|
|00008120| 61 69 6c 65 64 29 2e 20 | 50 6f 69 6e 74 20 61 74 |ailed). |Point at|
|00008130| 20 61 20 63 6f 64 65 20 | 61 6e 64 20 63 6c 69 63 | a code |and clic|
|00008140| 6b 20 4d 45 4e 55 20 69 | 66 20 79 6f 75 20 77 69 |k MENU i|f you wi|
|00008150| 73 68 20 74 6f 20 63 68 | 61 6e 67 65 20 69 74 2e |sh to ch|ange it.|
|00008160| 22 29 0d 2d 8c 9a 20 20 | c9 20 74 75 74 6f 72 67 |").-..  |. tutorg|
|00008170| 72 70 57 25 3a f2 73 65 | 6e 64 5f 68 65 6c 70 28 |rpW%:.se|nd_help(|
|00008180| 22 54 68 65 73 65 20 61 | 72 65 20 74 68 65 20 63 |"These a|re the c|
|00008190| 75 72 72 65 6e 74 20 6e | 75 6d 62 65 72 73 20 69 |urrent n|umbers i|
|000081a0| 6e 20 74 68 65 20 74 75 | 74 6f 72 20 67 72 6f 75 |n the tu|tor grou|
|000081b0| 70 73 2e 20 43 6c 69 63 | 6b 20 4d 45 4e 55 20 6f |ps. Clic|k MENU o|
|000081c0| 76 65 72 20 61 6e 79 20 | 6c 69 6e 65 20 69 66 20 |ver any |line if |
|000081d0| 79 6f 75 20 77 69 73 68 | 20 74 6f 20 6c 69 73 74 |you wish| to list|
|000081e0| 20 74 68 65 20 6d 65 6d | 62 65 72 73 20 6f 66 20 | the mem|bers of |
|000081f0| 74 68 65 20 67 72 6f 75 | 70 2e 22 29 0d 2d 96 67 |the grou|p.").-.g|
|00008200| 20 20 c9 20 67 72 6f 75 | 70 57 25 3a f2 73 65 6e |  . grou|pW%:.sen|
|00008210| 64 5f 68 65 6c 70 28 22 | 49 66 20 79 6f 75 20 77 |d_help("|If you w|
|00008220| 69 73 68 20 74 6f 20 73 | 61 76 65 20 74 68 69 73 |ish to s|ave this|
|00008230| 20 64 61 74 61 20 63 6c | 69 63 6b 20 4d 45 4e 55 | data cl|ick MENU|
|00008240| 20 6f 76 65 72 20 69 74 | 20 74 6f 20 64 69 73 70 | over it| to disp|
|00008250| 6c 61 79 20 74 68 65 20 | 53 61 76 65 20 62 6f 78 |lay the |Save box|
|00008260| 2e 22 29 0d 2d a0 05 cb | 0d 2d aa 05 e1 0d 2d b4 |.").-...|.-....-.|
|00008270| 05 3a 0d 2d be 14 dd 20 | f2 73 65 6e 64 5f 68 65 |.:.-... |.send_he|
|00008280| 6c 70 28 48 24 29 0d 2d | c8 0f 21 62 6c 6f 63 6b |lp(H$).-|..!block|
|00008290| 25 3d 32 35 36 0d 2d d2 | 12 62 6c 6f 63 6b 25 21 |%=256.-.|.block%!|
|000082a0| 31 32 3d 72 65 66 25 0d | 2d dc 12 62 6c 6f 63 6b |12=ref%.|-..block|
|000082b0| 25 21 31 36 3d 26 35 30 | 33 0d 2d e6 13 24 28 62 |%!16=&50|3.-..$(b|
|000082c0| 6c 6f 63 6b 25 2b 32 30 | 29 3d 48 24 0d 2d f0 2c |lock%+20|)=H$.-.,|
|000082d0| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|000082e0| 73 61 67 65 22 2c 31 37 | 2c 62 6c 6f 63 6b 25 2c |sage",17|,block%,|
|000082f0| 62 6c 6f 63 6b 25 21 34 | 0d 2d fa 05 e1 0d 2e 04 |block%!4|.-......|
|00008300| 05 3a 0d 2e 0e 1f dd 20 | f2 72 65 70 6c 79 28 6d |.:..... |.reply(m|
|00008310| 65 73 73 74 79 70 65 25 | 2c 72 65 61 73 6f 6e 25 |esstype%|,reason%|
|00008320| 29 0d 2e 18 12 62 6c 6f | 63 6b 25 21 31 32 3d 72 |)....blo|ck%!12=r|
|00008330| 65 66 25 0d 2e 22 15 62 | 6c 6f 63 6b 25 21 31 36 |ef%..".b|lock%!16|
|00008340| 3d 72 65 61 73 6f 6e 25 | 0d 2e 2c 30 c8 99 20 22 |=reason%|..,0.. "|
|00008350| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|00008360| 22 2c 6d 65 73 73 74 79 | 70 65 25 2c 62 6c 6f 63 |",messty|pe%,bloc|
|00008370| 6b 25 2c 74 61 73 6b 25 | 0d 2e 36 05 e1 0d 2e 40 |k%,task%|..6....@|
|00008380| 05 3a 0d 2e 4a 47 f4 20 | 2d 2d 2d 2d 2d 2d 2d 2d |.:..JG. |--------|
|00008390| 2d 2d 2d 2d 2d 2d 2d 2d | 20 45 6e 64 20 6f 66 20 |--------| End of |
|000083a0| 4d 65 73 73 61 67 65 20 | 68 61 6e 64 6c 69 6e 67 |Message |handling|
|000083b0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000083c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2e 54 05 3a 0d 2e |--------|-..T.:..|
|000083d0| 5e 05 3a 0d 2e 68 05 3a | 0d 2e 72 4a f4 20 2d 2d |^.:..h.:|..rJ. --|
|000083e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000083f0| 2d 20 46 69 6c 65 20 6c | 6f 61 64 69 6e 67 2f 6f |- File l|oading/o|
|00008400| 70 65 6e 69 6e 67 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |pening -|--------|
|00008410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00008420| 2d 2d 0d 2e 7c 05 3a 0d | 2e 86 1b dd 20 f2 67 65 |--..|.:.|.... .ge|
|00008430| 74 5f 69 74 5f 69 6e 28 | 66 69 6c 65 6e 61 6d 65 |t_it_in(|filename|
|00008440| 24 29 0d 2e 90 27 c8 99 | 20 22 4f 53 5f 46 69 6c |$)...'..| "OS_Fil|
|00008450| 65 22 2c 35 2c 66 69 6c | 65 6e 61 6d 65 24 20 b8 |e",5,fil|ename$ .|
|00008460| 20 2c 2c 66 74 79 70 65 | 25 0d 2e 9a 1d 66 74 79 | ,,ftype|%....fty|
|00008470| 70 65 25 3d 28 66 74 79 | 70 65 25 3e 3e 38 29 20 |pe%=(fty|pe%>>8) |
|00008480| 80 20 26 46 46 46 0d 2e | a4 0f c8 8e 20 66 74 79 |. &FFF..|.... fty|
|00008490| 70 65 25 20 ca 0d 2e ae | 08 20 20 7f 3a 0d 2e b8 |pe% ....|.  .:...|
|000084a0| 5a 20 20 e7 20 c0 a4 6c | 65 61 66 28 66 69 6c 65 |Z  . ..l|eaf(file|
|000084b0| 6e 61 6d 65 24 29 2c 35 | 29 3c 3e 22 21 59 65 61 |name$),5|)<>"!Yea|
|000084c0| 72 22 20 8c 20 85 20 32 | 35 34 2c 22 54 68 69 73 |r" . . 2|54,"This|
|000084d0| 20 69 73 20 6e 6f 74 20 | 61 20 73 74 75 64 65 6e | is not |a studen|
|000084e0| 74 20 72 65 63 6f 72 64 | 20 64 61 74 61 62 61 73 |t record| databas|
|000084f0| 65 22 2b bd 28 30 29 0d | 2e c2 1a 20 20 e7 20 70 |e"+.(0).|...  . p|
|00008500| 72 65 73 65 6e 74 25 3e | 30 20 8c 20 f2 65 78 69 |resent%>|0 . .exi|
|00008510| 74 0d 2e cc 1c 20 20 f2 | 6f 70 65 6e 5f 66 69 6c |t....  .|open_fil|
|00008520| 65 73 28 66 69 6c 65 6e | 61 6d 65 24 29 0d 2e d6 |es(filen|ame$)...|
|00008530| 05 cb 0d 2e e0 05 e1 0d | 2e ea 06 20 3a 0d 2e f4 |........|... :...|
|00008540| 15 dd 20 f2 6f 70 65 6e | 5f 66 69 6c 65 73 28 66 |.. .open|_files(f|
|00008550| 24 29 0d 2e fe 0e ea 20 | 49 25 2c 4a 25 2c 46 25 |$)..... |I%,J%,F%|
|00008560| 0d 2f 08 26 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |./.&.. "|OS_File"|
|00008570| 2c 35 2c 66 24 2b 22 2e | 44 61 74 61 62 61 73 65 |,5,f$+".|Database|
|00008580| 22 20 b8 20 64 25 0d 2f | 12 22 e7 20 64 25 3d 31 |" . d%./|.". d%=1|
|00008590| 20 8c 20 70 72 65 73 65 | 6e 74 25 3d 70 72 65 73 | . prese|nt%=pres|
|000085a0| 65 6e 74 25 20 84 20 34 | 0d 2f 1c 28 c8 99 20 22 |ent% . 4|./.(.. "|
|000085b0| 4f 53 5f 46 69 6c 65 22 | 2c 35 2c 66 24 2b 22 2e |OS_File"|,5,f$+".|
|000085c0| 50 72 69 6d 61 72 79 4b | 65 79 22 20 b8 20 64 25 |PrimaryK|ey" . d%|
|000085d0| 0d 2f 26 22 e7 20 64 25 | 3d 31 20 8c 20 70 72 65 |./&". d%|=1 . pre|
|000085e0| 73 65 6e 74 25 3d 70 72 | 65 73 65 6e 74 25 20 84 |sent%=pr|esent% .|
|000085f0| 20 32 0d 2f 30 22 c8 99 | 20 22 4f 53 5f 46 69 6c | 2./0"..| "OS_Fil|
|00008600| 65 22 2c 35 2c 66 24 2b | 22 2e 46 6f 72 6d 22 20 |e",5,f$+|".Form" |
|00008610| b8 20 64 25 0d 2f 3a 22 | e7 20 64 25 3d 31 20 8c |. d%./:"|. d%=1 .|
|00008620| 20 70 72 65 73 65 6e 74 | 25 3d 70 72 65 73 65 6e | present|%=presen|
|00008630| 74 25 20 84 20 31 0d 2f | 44 23 c8 99 20 22 4f 53 |t% . 1./|D#.. "OS|
|00008640| 5f 43 4c 49 22 2c 22 53 | 65 74 20 44 42 61 73 65 |_CLI","S|et DBase|
|00008650| 24 44 69 72 20 22 2b 66 | 24 0d 2f 4e 11 24 64 61 |$Dir "+f|$./N.$da|
|00008660| 74 61 62 61 73 65 25 3d | 66 24 0d 2f 58 1f 79 65 |tabase%=|f$./X.ye|
|00008670| 61 72 24 3d c1 a4 6c 65 | 61 66 28 24 64 61 74 61 |ar$=..le|af($data|
|00008680| 62 61 73 65 25 29 2c 32 | 29 0d 2f 62 1d 79 65 61 |base%),2|)./b.yea|
|00008690| 72 24 3d c0 79 65 61 72 | 24 29 2b 22 20 22 2b c2 |r$=.year|$)+" "+.|
|000086a0| 79 65 61 72 24 29 0d 2f | 6c 0f 79 72 24 3d c2 79 |year$)./|l.yr$=.y|
|000086b0| 65 61 72 24 29 0d 2f 76 | 86 e7 20 70 72 65 73 65 |ear$)./v|.. prese|
|000086c0| 6e 74 25 3d 37 20 8c 20 | f2 61 63 63 65 73 73 28 |nt%=7 . |.access(|
|000086d0| 66 24 29 20 8b 20 85 20 | 32 35 34 2c 22 54 68 69 |f$) . . |254,"Thi|
|000086e0| 73 20 69 73 20 6e 6f 74 | 20 61 20 72 75 6e 6e 61 |s is not| a runna|
|000086f0| 62 6c 65 20 64 61 74 61 | 62 61 73 65 2e 20 43 68 |ble data|base. Ch|
|00008700| 65 63 6b 20 66 6f 72 20 | 61 62 73 65 6e 63 65 20 |eck for |absence |
|00008710| 6f 66 20 46 6f 72 6d 2c | 20 50 72 69 6d 61 72 79 |of Form,| Primary|
|00008720| 4b 65 79 20 6f 72 20 44 | 61 74 61 62 61 73 65 20 |Key or D|atabase |
|00008730| 66 69 6c 65 73 22 2b bd | 28 30 29 0d 2f 80 05 e1 |files"+.|(0)./...|
|00008740| 0d 2f 8a 05 3a 0d 2f 94 | 11 dd 20 f2 61 63 63 65 |./..:./.|.. .acce|
|00008750| 73 73 28 66 24 29 0d 2f | 9e 14 ea 20 4c 25 2c 50 |ss(f$)./|... L%,P|
|00008760| 25 2c 6b 65 79 62 61 73 | 65 25 0d 2f a8 16 46 3d |%,keybas|e%./..F=|
|00008770| 8e 28 66 24 2b 22 2e 43 | 6f 6c 6f 75 72 73 22 29 |.(f$+".C|olours")|
|00008780| 0d 2f b2 3a e7 20 46 3d | 30 20 8c 20 85 20 66 61 |./.:. F=|0 . . fa|
|00008790| 74 61 6c 5f 65 72 72 25 | 2c 66 24 2b 22 2e 43 6f |tal_err%|,f$+".Co|
|000087a0| 6c 6f 75 72 73 20 66 69 | 6c 65 20 6e 6f 74 20 66 |lours fi|le not f|
|000087b0| 6f 75 6e 64 22 2b bd 28 | 30 29 0d 2f bc 0a cf 23 |ound"+.(|0)./...#|
|000087c0| 46 3d 33 35 0d 2f c6 1f | e8 23 46 2c 53 24 3a 52 |F=35./..|.#F,S$:R|
|000087d0| 65 61 64 24 3d a4 65 6e | 63 72 79 70 74 28 53 24 |ead$=.en|crypt(S$|
|000087e0| 2c a3 29 0d 2f d0 20 e8 | 23 46 2c 53 24 3a 57 72 |,.)./. .|#F,S$:Wr|
|000087f0| 69 74 65 24 3d a4 65 6e | 63 72 79 70 74 28 53 24 |ite$=.en|crypt(S$|
|00008800| 2c a3 29 0d 2f da 22 e8 | 23 46 2c 53 24 3a 4d 61 |,.)./.".|#F,S$:Ma|
|00008810| 6e 61 67 65 72 24 3d a4 | 65 6e 63 72 79 70 74 28 |nager$=.|encrypt(|
|00008820| 53 24 2c a3 29 0d 2f e4 | 12 f2 63 6c 6f 73 65 5f |S$,.)./.|..close_|
|00008830| 66 69 6c 65 28 46 29 0d | 2f ee 13 e7 20 4d 61 6e |file(F).|/... Man|
|00008840| 61 67 65 72 24 3d 22 22 | 20 8c 0d 2f f8 19 20 20 |ager$=""| ../..  |
|00008850| 41 63 63 65 73 73 25 3d | b9 3a 4d 6f 64 69 66 79 |Access%=|.:Modify|
|00008860| 25 3d b9 0d 30 02 15 20 | 20 f2 72 65 73 75 6d 65 |%=..0.. | .resume|
|00008870| 5f 6f 70 65 6e 69 6e 67 | 0d 30 0c 07 20 20 cc 0d |_opening|.0..  ..|
|00008880| 30 16 37 20 20 24 41 63 | 63 65 73 73 54 69 74 6c |0.7  $Ac|cessTitl|
|00008890| 65 25 3d 22 21 42 6c 6f | 63 6b 20 6f 70 65 6e 69 |e%="!Blo|ck openi|
|000088a0| 6e 67 20 22 2b a4 6c 65 | 61 66 28 24 64 61 74 61 |ng "+.le|af($data|
|000088b0| 62 61 73 65 25 29 0d 30 | 20 1c 20 20 f2 6f 70 65 |base%).0| .  .ope|
|000088c0| 6e 5f 77 69 6e 64 6f 77 | 28 61 63 63 65 73 73 57 |n_window|(accessW|
|000088d0| 25 29 0d 30 2a 13 20 20 | 24 50 61 73 73 77 6f 72 |%).0*.  |$Passwor|
|000088e0| 64 25 3d 22 22 0d 30 34 | 1c 20 20 f2 73 65 74 5f |d%="".04|.  .set_|
|000088f0| 63 61 72 65 74 28 61 63 | 63 65 73 73 57 25 2c 30 |caret(ac|cessW%,0|
|00008900| 29 0d 30 3e 26 20 20 c8 | 99 20 22 57 69 6d 70 5f |).0>&  .|. "Wimp_|
|00008910| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00008920| 2c 62 6c 6f 63 6b 25 0d | 30 48 43 20 20 c8 97 20 |,block%.|0HC  .. |
|00008930| c8 93 20 62 6c 6f 63 6b | 25 21 34 2c 62 6c 6f 63 |.. block|%!4,bloc|
|00008940| 6b 25 21 38 2c 62 6c 6f | 63 6b 25 21 31 32 2d 62 |k%!8,blo|ck%!12-b|
|00008950| 6c 6f 63 6b 25 21 34 2c | 62 6c 6f 63 6b 25 21 31 |lock%!4,|block%!1|
|00008960| 36 2d 62 6c 6f 63 6b 25 | 21 38 0d 30 52 07 20 20 |6-block%|!8.0R.  |
|00008970| f5 0d 30 5c 0c 20 20 61 | 63 74 25 3d 30 0d 30 66 |..0\.  a|ct%=0.0f|
|00008980| 07 20 20 f5 0d 30 70 0d | 20 20 20 20 f2 70 6f 6c |.  ..0p.|    .pol|
|00008990| 6c 0d 30 7a 17 20 20 fd | 20 61 63 63 65 73 73 62 |l.0z.  .| accessb|
|000089a0| 75 74 74 6f 6e 25 3e 30 | 0d 30 84 18 20 20 c8 8e |utton%>0|.0..  ..|
|000089b0| 20 61 63 63 65 73 73 62 | 75 74 74 6f 6e 25 20 ca | accessb|utton% .|
|000089c0| 0d 30 8e 23 20 20 20 20 | c9 20 32 3a f2 63 6c 6f |.0.#    |. 2:.clo|
|000089d0| 73 65 5f 77 69 6e 64 6f | 77 28 61 63 63 65 73 73 |se_windo|w(access|
|000089e0| 57 25 29 0d 30 98 29 20 | 20 20 20 70 72 65 73 65 |W%).0.) |   prese|
|000089f0| 6e 74 25 3d a3 3a 61 63 | 63 65 73 73 62 75 74 74 |nt%=.:ac|cessbutt|
|00008a00| 6f 6e 25 3d 30 3a 61 63 | 74 25 3d 31 0d 30 a2 0c |on%=0:ac|t%=1.0..|
|00008a10| 20 20 20 20 c9 20 33 3a | 0d 30 ac 20 20 20 20 20 |    . 3:|.0.     |
|00008a20| 70 61 73 73 77 6f 72 64 | 24 3d a4 75 28 24 50 61 |password|$=.u($Pa|
|00008a30| 73 73 77 6f 72 64 25 29 | 0d 30 b6 16 20 20 20 20 |ssword%)|.0..    |
|00008a40| c8 8e 20 70 61 73 73 77 | 6f 72 64 24 20 ca 0d 30 |.. passw|ord$ ..0|
|00008a50| c0 2f 20 20 20 20 20 20 | c9 20 4d 61 6e 61 67 65 |./      |. Manage|
|00008a60| 72 24 3a 41 63 63 65 73 | 73 25 3d b9 3a 4d 6f 64 |r$:Acces|s%=.:Mod|
|00008a70| 69 66 79 25 3d b9 3a 61 | 63 74 25 3d 32 0d 30 ca |ify%=.:a|ct%=2.0.|
|00008a80| 2d 20 20 20 20 20 20 c9 | 20 57 72 69 74 65 24 3a |-      .| Write$:|
|00008a90| 41 63 63 65 73 73 25 3d | b9 3a 4d 6f 64 69 66 79 |Access%=|.:Modify|
|00008aa0| 25 3d a3 3a 61 63 74 25 | 3d 32 0d 30 d4 2c 20 20 |%=.:act%|=2.0.,  |
|00008ab0| 20 20 20 20 c9 20 52 65 | 61 64 24 3a 41 63 63 65 |    . Re|ad$:Acce|
|00008ac0| 73 73 25 3d a3 3a 4d 6f | 64 69 66 79 25 3d a3 3a |ss%=.:Mo|dify%=.:|
|00008ad0| 61 63 74 25 3d 32 0d 30 | de 1f 20 20 20 20 20 20 |act%=2.0|..      |
|00008ae0| 7f 3a 61 63 63 65 73 73 | 62 75 74 74 6f 6e 25 3d |.:access|button%=|
|00008af0| 30 3a ef 20 37 0d 30 e8 | 31 20 20 20 20 20 20 24 |0:. 7.0.|1      $|
|00008b00| a4 74 65 78 74 28 61 63 | 63 65 73 73 57 25 2c 31 |.text(ac|cessW%,1|
|00008b10| 29 3d 22 50 61 73 73 77 | 6f 72 64 20 6e 6f 74 20 |)="Passw|ord not |
|00008b20| 6b 6e 6f 77 6e 22 0d 30 | f2 23 20 20 20 20 20 20 |known".0|.#      |
|00008b30| f2 64 63 6f 6c 6f 75 72 | 28 61 63 63 65 73 73 57 |.dcolour|(accessW|
|00008b40| 25 2c 31 2c 31 31 2c 31 | 29 0d 30 fc 16 20 20 20 |%,1,11,1|).0..   |
|00008b50| 20 20 20 64 65 6c 61 79 | 25 3d 91 2b 31 35 30 0d |   delay|%=.+150.|
|00008b60| 31 06 0b 20 20 20 20 20 | 20 f5 0d 31 10 11 20 20 |1..     | ..1..  |
|00008b70| 20 20 20 20 20 20 f2 70 | 6f 6c 6c 0d 31 1a 14 20 |      .p|oll.1.. |
|00008b80| 20 20 20 20 20 fd 20 91 | 3e 64 65 6c 61 79 25 0d |     . .|>delay%.|
|00008b90| 31 24 47 20 20 20 20 20 | 20 24 50 61 73 73 77 6f |1$G     | $Passwo|
|00008ba0| 72 64 25 3d 22 22 3a f2 | 72 65 64 72 61 77 5f 69 |rd%="":.|redraw_i|
|00008bb0| 63 6f 6e 28 61 63 63 65 | 73 73 57 25 2c 30 29 3a |con(acce|ssW%,0):|
|00008bc0| f2 73 65 74 5f 63 61 72 | 65 74 28 61 63 63 65 73 |.set_car|et(acces|
|00008bd0| 73 57 25 2c 30 29 0d 31 | 2e 34 20 20 20 20 20 20 |sW%,0).1|.4      |
|00008be0| 24 a4 74 65 78 74 28 61 | 63 63 65 73 73 57 25 2c |$.text(a|ccessW%,|
|00008bf0| 31 29 3d 22 54 79 70 65 | 20 69 6e 20 79 6f 75 72 |1)="Type| in your|
|00008c00| 20 70 61 73 73 77 6f 72 | 64 22 0d 31 38 22 20 20 | passwor|d".18"  |
|00008c10| 20 20 20 20 f2 64 63 6f | 6c 6f 75 72 28 61 63 63 |    .dco|lour(acc|
|00008c20| 65 73 73 57 25 2c 31 2c | 37 2c 31 29 0d 31 42 09 |essW%,1,|7,1).1B.|
|00008c30| 20 20 20 20 cb 0d 31 4c | 07 20 20 cb 0d 31 56 0e |    ..1L|.  ..1V.|
|00008c40| 20 20 fd 20 61 63 74 25 | 3e 30 0d 31 60 1d 20 20 |  . act%|>0.1`.  |
|00008c50| f2 63 6c 6f 73 65 5f 77 | 69 6e 64 6f 77 28 61 63 |.close_w|indow(ac|
|00008c60| 63 65 73 73 57 25 29 0d | 31 6a 1b 20 20 f2 67 65 |cessW%).|1j.  .ge|
|00008c70| 74 73 63 72 65 65 6e 73 | 69 7a 65 28 57 25 2c 48 |tscreens|ize(W%,H|
|00008c80| 25 29 0d 31 74 15 20 20 | c8 97 20 c8 93 20 30 2c |%).1t.  |.. .. 0,|
|00008c90| 30 2c 57 25 2c 48 25 0d | 31 7e 20 20 20 e7 20 61 |0,W%,H%.|1~   . a|
|00008ca0| 63 74 25 3d 32 20 8c 20 | f2 72 65 73 75 6d 65 5f |ct%=2 . |.resume_|
|00008cb0| 6f 70 65 6e 69 6e 67 0d | 31 88 05 cd 0d 31 92 05 |opening.|1....1..|
|00008cc0| e1 0d 31 9c 05 3a 0d 31 | a6 15 dd 20 f2 72 65 73 |..1..:.1|... .res|
|00008cd0| 75 6d 65 5f 6f 70 65 6e | 69 6e 67 0d 31 b0 19 6d |ume_open|ing.1..m|
|00008ce0| 61 78 62 6c 6f 63 6b 73 | 25 3d 4d 61 78 42 6c 6f |axblocks|%=MaxBlo|
|00008cf0| 63 6b 73 25 0d 31 ba 0f | f2 67 65 74 5f 62 6c 6f |cks%.1..|.get_blo|
|00008d00| 63 6b 73 0d 31 c4 34 e7 | 20 62 6c 6f 63 6b 73 62 |cks.1.4.| blocksb|
|00008d10| 75 74 74 6f 6e 25 3d 30 | 20 8c 20 61 63 63 65 73 |utton%=0| . acces|
|00008d20| 73 62 75 74 74 6f 6e 25 | 3d 30 3a 70 72 65 73 65 |sbutton%|=0:prese|
|00008d30| 6e 74 25 3d 30 3a e1 0d | 31 ce 15 c8 99 20 22 48 |nt%=0:..|1.... "H|
|00008d40| 6f 75 72 67 6c 61 73 73 | 5f 4f 6e 22 0d 31 d8 3b |ourglass|_On".1.;|
|00008d50| 2a 53 65 74 20 41 6c 69 | 61 73 24 4a 6f 62 73 44 |*Set Ali|as$JobsD|
|00008d60| 6f 6e 65 20 46 69 6c 65 | 72 5f 4f 70 65 6e 44 69 |one File|r_OpenDi|
|00008d70| 72 20 3c 44 62 61 73 65 | 24 44 69 72 3e 2e 50 72 |r <Dbase|$Dir>.Pr|
|00008d80| 69 6e 74 4a 6f 62 73 0d | 31 e2 1b e7 20 c0 66 24 |intJobs.|1... .f$|
|00008d90| 2c 33 29 3d 22 52 41 4d | 22 20 8c 20 72 61 6d 25 |,3)="RAM|" . ram%|
|00008da0| 3d b9 0d 31 ec 15 66 69 | 65 6c 64 73 25 3d a4 67 |=..1..fi|elds%=.g|
|00008db0| 65 74 5f 66 6f 72 6d 0d | 31 f6 2b f2 6f 70 65 6e |et_form.|1.+.open|
|00008dc0| 5f 69 6e 64 65 78 28 24 | 64 61 74 61 62 61 73 65 |_index($|database|
|00008dd0| 25 2b 22 2e 50 72 69 6d | 61 72 79 4b 65 79 22 2c |%+".Prim|aryKey",|
|00008de0| 30 29 0d 32 00 34 c8 99 | 20 22 4f 53 5f 46 69 6c |0).2.4..| "OS_Fil|
|00008df0| 65 22 2c 35 2c 24 64 61 | 74 61 62 61 73 65 25 2b |e",5,$da|tabase%+|
|00008e00| 22 2e 44 61 74 61 62 61 | 73 65 22 20 b8 20 2c 2c |".Databa|se" . ,,|
|00008e10| 2c 2c 6c 65 6e 25 0d 32 | 0a 1a 52 41 25 3d 28 6c |,,len%.2|..RA%=(l|
|00008e20| 65 6e 25 20 81 20 4c 65 | 6e 67 74 68 25 29 2d 31 |en% . Le|ngth%)-1|
|00008e30| 0d 32 14 22 6b 65 79 25 | 3d 30 3a 66 69 6c 65 25 |.2."key%|=0:file%|
|00008e40| 3d 30 3a 74 6f 70 3d 38 | 2a 66 69 6c 65 25 2b 4c |=0:top=8|*file%+L|
|00008e50| 48 25 0d 32 1e 0f f2 67 | 65 74 5f 74 61 62 6c 65 |H%.2...g|et_table|
|00008e60| 73 0d 32 28 14 f2 72 65 | 61 64 5f 74 75 74 6f 72 |s.2(..re|ad_tutor|
|00008e70| 5f 64 61 74 61 0d 32 32 | 1b f2 63 6c 6f 73 65 5f |_data.22|..close_|
|00008e80| 77 69 6e 64 6f 77 28 70 | 72 6f 6d 70 74 57 25 29 |window(p|romptW%)|
|00008e90| 0d 32 3c 16 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |.2<... "|Hourglas|
|00008ea0| 73 5f 4f 66 66 22 0d 32 | 46 10 f2 73 65 74 5f 77 |s_Off".2|F..set_w|
|00008eb0| 65 69 67 68 74 73 0d 32 | 50 33 f2 6e 6f 74 69 66 |eights.2|P3.notif|
|00008ec0| 79 28 22 21 42 6c 6f 63 | 6b 20 69 73 20 72 65 61 |y("!Bloc|k is rea|
|00008ed0| 64 69 6e 67 20 22 2b 79 | 65 61 72 24 2b 22 20 64 |ding "+y|ear$+" d|
|00008ee0| 61 74 61 62 61 73 65 22 | 29 0d 32 5a 15 4e 72 65 |atabase"|).2Z.Nre|
|00008ef0| 63 73 25 3d a4 72 65 61 | 64 5f 66 69 6c 65 0d 32 |cs%=.rea|d_file.2|
|00008f00| 64 13 e7 20 4e 72 65 63 | 73 25 3d 2d 31 20 8c 20 |d.. Nrec|s%=-1 . |
|00008f10| e1 0d 32 6e 16 f2 6c 69 | 74 28 6d 65 6e 75 25 28 |..2n..li|t(menu%(|
|00008f20| 30 29 2c 32 2c b9 29 0d | 32 78 1c f2 6c 69 74 28 |0),2,.).|2x..lit(|
|00008f30| 6d 65 6e 75 25 28 30 29 | 2c 31 2c 41 63 63 65 73 |menu%(0)|,1,Acces|
|00008f40| 73 25 29 0d 32 82 1c f2 | 6c 69 74 28 6d 65 6e 75 |s%).2...|lit(menu|
|00008f50| 25 28 32 29 2c 31 2c 41 | 63 63 65 73 73 25 29 0d |%(2),1,A|ccess%).|
|00008f60| 32 8c 1c f2 6c 69 74 28 | 6d 65 6e 75 25 28 31 29 |2...lit(|menu%(1)|
|00008f70| 2c 35 2c 41 63 63 65 73 | 73 25 29 0d 32 96 33 f2 |,5,Acces|s%).2.3.|
|00008f80| 73 68 6f 77 5f 66 69 6c | 65 28 6d 61 69 6e 61 6e |show_fil|e(mainan|
|00008f90| 63 68 6f 72 25 2c 6d 61 | 69 6e 57 25 2c 68 65 61 |chor%,ma|inW%,hea|
|00008fa0| 64 69 6e 67 57 25 2c 22 | 4e 61 6d 65 22 29 0d 32 |dingW%,"|Name").2|
|00008fb0| a0 11 f2 73 68 6f 77 5f | 77 69 6e 64 6f 77 73 0d |...show_|windows.|
|00008fc0| 32 aa 16 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |2.... "H|ourglass|
|00008fd0| 5f 4f 66 66 22 0d 32 b4 | 21 24 64 62 61 73 65 25 |_Off".2.|!$dbase%|
|00008fe0| 3d c1 a4 6c 65 61 66 28 | 24 64 61 74 61 62 61 73 |=..leaf(|$databas|
|00008ff0| 65 25 29 2c 32 29 0d 32 | be 1d f2 72 65 64 72 61 |e%),2).2|...redra|
|00009000| 77 5f 69 63 6f 6e 28 2d | 32 2c 61 70 70 69 63 6f |w_icon(-|2,appico|
|00009010| 6e 25 29 0d 32 c8 05 e1 | 0d 32 d2 05 3a 0d 32 dc |n%).2...|.2..:.2.|
|00009020| 11 dd 20 f2 67 65 74 5f | 62 6c 6f 63 6b 73 0d 32 |.. .get_|blocks.2|
|00009030| e6 1a f2 6f 70 65 6e 5f | 77 69 6e 64 6f 77 28 62 |...open_|window(b|
|00009040| 6c 6f 63 6b 73 57 25 29 | 0d 32 f0 24 c8 99 20 22 |locksW%)|.2.$.. "|
|00009050| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00009060| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 32 fa 41 |ate",,bl|ock%.2.A|
|00009070| c8 97 20 c8 93 20 62 6c | 6f 63 6b 25 21 34 2c 62 |.. .. bl|ock%!4,b|
|00009080| 6c 6f 63 6b 25 21 38 2c | 62 6c 6f 63 6b 25 21 31 |lock%!8,|block%!1|
|00009090| 32 2d 62 6c 6f 63 6b 25 | 21 34 2c 62 6c 6f 63 6b |2-block%|!4,block|
|000090a0| 25 21 31 36 2d 62 6c 6f | 63 6b 25 21 38 0d 33 04 |%!16-blo|ck%!8.3.|
|000090b0| 05 f5 0d 33 0e 0b 20 20 | f2 70 6f 6c 6c 0d 33 18 |...3..  |.poll.3.|
|000090c0| 15 fd 20 62 6c 6f 63 6b | 73 62 75 74 74 6f 6e 25 |.. block|sbutton%|
|000090d0| 3e 32 0d 33 22 19 f2 67 | 65 74 73 63 72 65 65 6e |>2.3"..g|etscreen|
|000090e0| 73 69 7a 65 28 57 25 2c | 48 25 29 0d 33 2c 13 c8 |size(W%,|H%).3,..|
|000090f0| 97 20 c8 93 20 30 2c 30 | 2c 57 25 2c 48 25 0d 33 |. .. 0,0|,W%,H%.3|
|00009100| 36 16 c8 8e 20 62 6c 6f | 63 6b 73 62 75 74 74 6f |6... blo|cksbutto|
|00009110| 6e 25 20 ca 0d 33 40 0a | 20 20 c9 20 33 3a 0d 33 |n% ..3@.|  . 3:.3|
|00009120| 4a 1d 20 20 f2 63 6c 6f | 73 65 5f 77 69 6e 64 6f |J.  .clo|se_windo|
|00009130| 77 28 62 6c 6f 63 6b 73 | 57 25 29 0d 33 54 23 20 |w(blocks|W%).3T# |
|00009140| 20 62 6c 6f 63 6b 73 25 | 3d bb 28 24 a4 74 65 78 | blocks%|=.($.tex|
|00009150| 74 28 62 6c 6f 63 6b 73 | 57 25 2c 30 29 29 0d 33 |t(blocks|W%,0)).3|
|00009160| 5e 11 20 20 f2 73 65 74 | 5f 77 69 64 74 68 73 0d |^.  .set|_widths.|
|00009170| 33 68 31 20 20 c9 20 34 | 3a f2 63 6c 6f 73 65 5f |3h1  . 4|:.close_|
|00009180| 77 69 6e 64 6f 77 28 62 | 6c 6f 63 6b 73 57 25 29 |window(b|locksW%)|
|00009190| 3a 62 6c 6f 63 6b 73 62 | 75 74 74 6f 6e 25 3d 30 |:blocksb|utton%=0|
|000091a0| 0d 33 72 05 cb 0d 33 7c | 05 e1 0d 33 86 05 3a 0d |.3r...3||...3..:.|
|000091b0| 33 90 11 dd 20 f2 73 65 | 74 5f 77 69 64 74 68 73 |3... .se|t_widths|
|000091c0| 0d 33 9a 26 20 20 77 69 | 6e 77 69 64 74 68 25 3d |.3.&  wi|nwidth%=|
|000091d0| 32 30 2b 32 2b 28 33 2b | 32 29 2a 28 62 6c 6f 63 |20+2+(3+|2)*(bloc|
|000091e0| 6b 73 25 2b 31 29 0d 33 | a4 23 20 20 57 77 69 6e |ks%+1).3|.#  Wwin|
|000091f0| 77 69 64 74 68 25 3d 32 | 30 2b 32 2b 28 33 2b 32 |width%=2|0+2+(3+2|
|00009200| 29 2a 62 6c 6f 63 6b 73 | 25 0d 33 ae 4e 20 20 24 |)*blocks|%.3.N  $|
|00009210| a4 74 65 78 74 28 74 68 | 65 61 64 69 6e 67 57 25 |.text(th|eadingW%|
|00009220| 2c 30 29 3d 22 20 53 75 | 62 6a 65 63 74 20 20 20 |,0)=" Su|bject   |
|00009230| 20 20 20 20 20 20 20 20 | 20 20 20 22 2b c0 62 6c |        |   "+.bl|
|00009240| 6f 63 6b 73 24 2c 62 6c | 6f 63 6b 73 25 2a 35 29 |ocks$,bl|ocks%*5)|
|00009250| 2b 22 20 41 4c 4c 22 0d | 33 b8 47 20 20 24 a4 74 |+" ALL".|3.G  $.t|
|00009260| 65 78 74 28 77 68 65 61 | 64 69 6e 67 57 25 2c 30 |ext(whea|dingW%,0|
|00009270| 29 3d 22 20 53 75 62 6a | 65 63 74 20 20 20 20 20 |)=" Subj|ect     |
|00009280| 20 20 20 20 20 20 20 20 | 20 22 2b c0 62 6c 6f 63 |        | "+.bloc|
|00009290| 6b 73 24 2c 62 6c 6f 63 | 6b 73 25 2a 35 29 0d 33 |ks$,bloc|ks%*5).3|
|000092a0| c2 4d 20 20 24 a4 74 65 | 78 74 28 68 65 61 64 69 |.M  $.te|xt(headi|
|000092b0| 6e 67 57 25 2c 30 29 3d | 22 20 4e 61 6d 65 20 20 |ngW%,0)=|" Name  |
|000092c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 22 |        |       "|
|000092d0| 2b c0 62 6c 6f 63 6b 73 | 24 2c 62 6c 6f 63 6b 73 |+.blocks|$,blocks|
|000092e0| 25 2a 35 29 2b 22 20 54 | 55 54 22 0d 33 cc 2e 20 |%*5)+" T|UT".3.. |
|000092f0| 20 24 a4 74 65 78 74 28 | 70 68 65 61 64 69 6e 67 | $.text(|pheading|
|00009300| 57 25 2c 30 29 3d 24 a4 | 74 65 78 74 28 68 65 61 |W%,0)=$.|text(hea|
|00009310| 64 69 6e 67 57 25 2c 30 | 29 0d 33 d6 2e 20 20 24 |dingW%,0|).3..  $|
|00009320| a4 74 65 78 74 28 67 68 | 65 61 64 69 6e 67 57 25 |.text(gh|eadingW%|
|00009330| 2c 30 29 3d 24 a4 74 65 | 78 74 28 68 65 61 64 69 |,0)=$.te|xt(headi|
|00009340| 6e 67 57 25 2c 30 29 0d | 33 e0 05 e1 0d 33 ea 05 |ngW%,0).|3....3..|
|00009350| 3a 0d 33 f4 16 dd 20 f2 | 72 65 61 64 5f 74 75 74 |:.3... .|read_tut|
|00009360| 6f 72 5f 64 61 74 61 0d | 33 fe 38 ea 20 52 65 63 |or_data.|3.8. Rec|
|00009370| 25 2c 54 24 2c 73 74 61 | 72 74 25 2c 49 25 2c 4a |%,T$,sta|rt%,I%,J|
|00009380| 25 2c 54 25 2c 69 6e 64 | 25 2c 72 6f 77 25 2c 52 |%,T%,ind|%,row%,R|
|00009390| 6f 77 73 25 2c 54 61 62 | 46 69 65 6c 64 73 25 0d |ows%,Tab|Fields%.|
|000093a0| 34 08 1e 54 25 3d a4 74 | 61 62 6c 65 5f 6e 75 6d |4..T%=.t|able_num|
|000093b0| 62 65 72 28 22 54 75 74 | 6f 72 73 22 29 0d 34 12 |ber("Tut|ors").4.|
|000093c0| 3b 54 24 3d a4 74 61 62 | 6c 65 5f 69 6e 66 6f 28 |;T$=.tab|le_info(|
|000093d0| 54 25 2c 52 6f 77 73 25 | 2c 54 61 62 46 69 65 6c |T%,Rows%|,TabFiel|
|000093e0| 64 73 25 2c 52 65 63 25 | 2c 74 61 62 66 69 65 6c |ds%,Rec%|,tabfiel|
|000093f0| 64 6c 65 6e 25 28 29 29 | 0d 34 1c 1e 73 74 61 72 |dlen%())|.4..star|
|00009400| 74 25 3d 21 74 61 62 61 | 6e 63 68 6f 72 25 28 54 |t%=!taba|nchor%(T|
|00009410| 25 29 2b 31 36 30 0d 34 | 26 0c 4e 74 75 74 73 25 |%)+160.4|&.Ntuts%|
|00009420| 3d 30 0d 34 30 15 e3 20 | 49 25 3d 31 20 b8 20 4d |=0.40.. |I%=1 . M|
|00009430| 61 78 54 75 74 73 25 0d | 34 3a 11 20 20 69 6e 64 |axTuts%.|4:.  ind|
|00009440| 25 3d 73 74 61 72 74 25 | 0d 34 44 10 20 20 e3 20 |%=start%|.4D.  . |
|00009450| 4a 25 3d 30 20 b8 20 33 | 0d 34 4e 3b 20 20 20 20 |J%=0 . 3|.4N;    |
|00009460| e7 20 4a 25 3d 32 20 8c | 20 67 72 70 6d 61 78 25 |. J%=2 .| grpmax%|
|00009470| 28 49 25 29 3d bb 28 24 | 69 6e 64 25 29 20 8b 20 |(I%)=.($|ind%) . |
|00009480| 74 75 74 6f 72 24 28 49 | 25 2c 4a 25 29 3d 24 69 |tutor$(I|%,J%)=$i|
|00009490| 6e 64 25 0d 34 58 18 20 | 20 20 20 69 6e 64 25 2b |nd%.4X. |   ind%+|
|000094a0| 3d a9 28 24 69 6e 64 25 | 29 2b 31 0d 34 62 0a 20 |=.($ind%|)+1.4b. |
|000094b0| 20 ed 20 4a 25 0d 34 6c | 12 20 20 73 74 61 72 74 | . J%.4l|.  start|
|000094c0| 25 2b 3d 52 65 63 25 0d | 34 76 24 20 20 e7 20 74 |%+=Rec%.|4v$  . t|
|000094d0| 75 74 6f 72 24 28 49 25 | 2c 30 29 3c 3e 22 22 20 |utor$(I%|,0)<>"" |
|000094e0| 8c 20 4e 74 75 74 73 25 | 2b 3d 31 0d 34 80 08 ed |. Ntuts%|+=1.4...|
|000094f0| 20 49 25 0d 34 8a 05 e1 | 0d 34 94 05 3a 0d 34 9e | I%.4...|.4..:.4.|
|00009500| 10 dd 20 a4 72 65 61 64 | 5f 66 69 6c 65 0d 34 a8 |.. .read|_file.4.|
|00009510| 2a ea 20 49 25 2c 4e 25 | 2c 50 25 2c 52 25 2c 42 |*. I%,N%|,P%,R%,B|
|00009520| 25 2c 73 74 75 64 65 6e | 74 25 2c 65 78 61 6d 69 |%,studen|t%,exami|
|00009530| 6e 65 64 25 2c 53 24 0d | 34 b2 07 ea 20 85 0d 34 |ned%,S$.|4... ..4|
|00009540| bc 1a ee 20 85 20 ea 3a | f7 20 85 3a f2 61 62 61 |... . .:|. .:.aba|
|00009550| 6e 64 6f 6e 3a 3d 2d 31 | 0d 34 c6 0e 52 65 61 64 |ndon:=-1|.4..Read|
|00009560| 69 6e 67 25 3d b9 0d 34 | d0 18 4e 25 3d a4 63 6f |ing%=..4|..N%=.co|
|00009570| 75 6e 74 5f 72 65 63 73 | 28 6b 65 79 25 29 0d 34 |unt_recs|(key%).4|
|00009580| da 29 74 6f 74 61 6c 25 | 28 29 3d 30 3a 73 75 62 |.)total%|()=0:sub|
|00009590| 6e 75 6d 62 65 72 25 28 | 29 3d 30 3a 74 75 74 67 |number%(|)=0:tutg|
|000095a0| 72 70 25 28 29 3d 30 0d | 34 e4 1f 54 25 3d a4 74 |rp%()=0.|4..T%=.t|
|000095b0| 61 62 6c 65 5f 6e 75 6d | 62 65 72 28 22 53 75 62 |able_num|ber("Sub|
|000095c0| 6a 65 63 74 22 29 0d 34 | ee 3b 54 24 3d a4 74 61 |ject").4|.;T$=.ta|
|000095d0| 62 6c 65 5f 69 6e 66 6f | 28 54 25 2c 52 6f 77 73 |ble_info|(T%,Rows|
|000095e0| 25 2c 54 61 62 46 69 65 | 6c 64 73 25 2c 52 65 63 |%,TabFie|lds%,Rec|
|000095f0| 25 2c 74 61 62 66 69 65 | 6c 64 6c 65 6e 25 28 29 |%,tabfie|ldlen%()|
|00009600| 29 0d 34 f8 22 73 74 61 | 72 74 25 3d 21 74 61 62 |).4."sta|rt%=!tab|
|00009610| 61 6e 63 68 6f 72 25 28 | 30 29 2b 31 36 30 2d 52 |anchor%(|0)+160-R|
|00009620| 65 63 25 0d 35 02 0a f2 | 62 6c 61 63 6b 0d 35 0c |ec%.5...|black.5.|
|00009630| 2a 64 62 61 73 65 68 61 | 6e 64 6c 65 25 3d 8e 28 |*dbaseha|ndle%=.(|
|00009640| 24 64 61 74 61 62 61 73 | 65 25 2b 22 2e 44 61 74 |$databas|e%+".Dat|
|00009650| 61 62 61 73 65 22 29 0d | 35 16 15 c8 99 20 22 48 |abase").|5.... "H|
|00009660| 6f 75 72 67 6c 61 73 73 | 5f 4f 6e 22 0d 35 20 1d |ourglass|_On".5 .|
|00009670| 50 25 3d a4 6e 65 69 67 | 68 62 6f 75 72 28 6b 65 |P%=.neig|hbour(ke|
|00009680| 79 25 2c 74 6f 70 2c 31 | 29 0d 35 2a 0e c8 95 20 |y%,top,1|).5*... |
|00009690| 50 25 3c 3e 74 6f 70 0d | 35 34 18 20 20 c8 99 20 |P%<>top.|54.  .. |
|000096a0| 22 4f 53 5f 42 79 74 65 | 22 2c 32 32 39 2c 30 0d |"OS_Byte|",229,0.|
|000096b0| 35 3e 19 20 20 52 25 3d | a4 72 65 63 5f 6e 6f 28 |5>.  R%=|.rec_no(|
|000096c0| 6b 65 79 25 2c 50 25 29 | 0d 35 48 0f 20 20 f2 72 |key%,P%)|.5H.  .r|
|000096d0| 65 61 64 28 52 25 29 0d | 35 52 16 20 20 53 24 3d |ead(R%).|5R.  S$=|
|000096e0| 46 24 28 43 72 73 46 69 | 65 6c 64 25 29 0d 35 5c |F$(CrsFi|eld%).5\|
|000096f0| 22 20 20 e7 20 53 24 3c | 3e 22 22 20 80 20 a7 43 |"  . S$<|>"" . .C|
|00009700| 6f 75 72 73 65 73 24 2c | 53 24 29 3e 30 20 8c 0d |ourses$,|S$)>0 ..|
|00009710| 35 66 13 20 20 20 20 73 | 74 75 64 65 6e 74 25 2b |5f.    s|tudent%+|
|00009720| 3d 31 0d 35 70 1c 20 20 | 20 20 72 65 63 6e 75 6d |=1.5p.  |  recnum|
|00009730| 25 28 73 74 75 64 65 6e | 74 25 29 3d 52 25 0d 35 |%(studen|t%)=R%.5|
|00009740| 7a 27 20 20 20 20 6e 61 | 6d 65 24 28 73 74 75 64 |z'    na|me$(stud|
|00009750| 65 6e 74 25 29 3d a4 6e | 61 6d 65 28 46 24 28 31 |ent%)=.n|ame(F$(1|
|00009760| 29 2c 32 30 29 0d 35 84 | 24 20 20 20 20 74 75 74 |),20).5.|$    tut|
|00009770| 24 28 73 74 75 64 65 6e | 74 25 29 3d 46 24 28 54 |$(studen|t%)=F$(T|
|00009780| 75 74 46 69 65 6c 64 25 | 29 0d 35 8e 26 20 20 20 |utField%|).5.&   |
|00009790| 20 54 25 3d a4 74 75 74 | 5f 6e 75 6d 62 65 72 28 | T%=.tut|_number(|
|000097a0| 74 75 74 24 28 73 74 75 | 64 65 6e 74 25 29 29 0d |tut$(stu|dent%)).|
|000097b0| 35 98 1f 20 20 20 20 e7 | 20 54 25 3e 30 20 8c 20 |5..    .| T%>0 . |
|000097c0| 74 75 74 67 72 70 25 28 | 54 25 29 2b 3d 31 0d 35 |tutgrp%(|T%)+=1.5|
|000097d0| a2 18 20 20 20 20 e3 20 | 42 25 3d 31 20 b8 20 62 |..    . |B%=1 . b|
|000097e0| 6c 6f 63 6b 73 25 0d 35 | ac 1b 20 20 20 20 20 20 |locks%.5|..      |
|000097f0| 49 25 3d 53 75 62 46 69 | 65 6c 64 25 2b 42 25 2d |I%=SubFi|eld%+B%-|
|00009800| 31 0d 35 b6 22 20 20 20 | 20 20 20 73 75 62 25 3d |1.5."   |   sub%=|
|00009810| a4 73 75 62 5f 6e 75 6d | 62 65 72 28 46 24 28 49 |.sub_num|ber(F$(I|
|00009820| 25 29 29 0d 35 c0 18 20 | 20 20 20 20 20 e7 20 46 |%)).5.. |     . F|
|00009830| 24 28 49 25 29 3c 3e 22 | 22 20 8c 0d 35 ca 28 20 |$(I%)<>"|" ..5.( |
|00009840| 20 20 20 20 20 20 20 73 | 75 62 6e 75 6d 62 65 72 |       s|ubnumber|
|00009850| 25 28 73 74 75 64 65 6e | 74 25 2c 42 25 29 3d 73 |%(studen|t%,B%)=s|
|00009860| 75 62 25 0d 35 d4 1e 20 | 20 20 20 20 20 20 20 74 |ub%.5.. |       t|
|00009870| 6f 74 61 6c 25 28 73 75 | 62 25 2c 42 25 29 2b 3d |otal%(su|b%,B%)+=|
|00009880| 31 0d 35 de 1d 20 20 20 | 20 20 20 20 20 74 6f 74 |1.5..   |     tot|
|00009890| 61 6c 25 28 73 75 62 25 | 2c 30 29 2b 3d 31 0d 35 |al%(sub%|,0)+=1.5|
|000098a0| e8 0b 20 20 20 20 20 20 | cd 0d 35 f2 1c 20 20 20 |..      |..5..   |
|000098b0| 20 20 20 49 25 3d 53 75 | 62 46 69 65 6c 64 42 25 |   I%=Su|bFieldB%|
|000098c0| 2b 42 25 2d 31 0d 35 fc | 22 20 20 20 20 20 20 73 |+B%-1.5.|"      s|
|000098d0| 75 62 25 3d a4 73 75 62 | 5f 6e 75 6d 62 65 72 28 |ub%=.sub|_number(|
|000098e0| 46 24 28 49 25 29 29 0d | 36 06 18 20 20 20 20 20 |F$(I%)).|6..     |
|000098f0| 20 e7 20 46 24 28 49 25 | 29 3c 3e 22 22 20 8c 0d | . F$(I%|)<>"" ..|
|00009900| 36 10 29 20 20 20 20 20 | 20 20 20 73 75 62 6e 75 |6.)     |   subnu|
|00009910| 6d 62 65 72 25 28 73 74 | 75 64 65 6e 74 25 2c 42 |mber%(st|udent%,B|
|00009920| 25 29 3d 2d 73 75 62 25 | 0d 36 1a 1e 20 20 20 20 |%)=-sub%|.6..    |
|00009930| 20 20 20 20 74 6f 74 61 | 6c 25 28 73 75 62 25 2c |    tota|l%(sub%,|
|00009940| 42 25 29 2b 3d 31 0d 36 | 24 1d 20 20 20 20 20 20 |B%)+=1.6|$.      |
|00009950| 20 20 74 6f 74 61 6c 25 | 28 73 75 62 25 2c 30 29 |  total%|(sub%,0)|
|00009960| 2b 3d 31 0d 36 2e 0b 20 | 20 20 20 20 20 cd 0d 36 |+=1.6.. |     ..6|
|00009970| 38 0c 20 20 20 20 ed 20 | 42 25 0d 36 42 07 20 20 |8.    . |B%.6B.  |
|00009980| cd 0d 36 4c 12 20 20 65 | 78 61 6d 69 6e 65 64 25 |..6L.  e|xamined%|
|00009990| 2b 3d 31 0d 36 56 32 20 | 20 c8 99 20 22 48 6f 75 |+=1.6V2 | .. "Hou|
|000099a0| 72 67 6c 61 73 73 5f 50 | 65 72 63 65 6e 74 61 67 |rglass_P|ercentag|
|000099b0| 65 22 2c 65 78 61 6d 69 | 6e 65 64 25 2a 31 30 30 |e",exami|ned%*100|
|000099c0| 20 81 20 4e 25 0d 36 60 | 1e 20 20 50 25 3d a4 6e | . N%.6`|.  P%=.n|
|000099d0| 65 69 67 68 62 6f 75 72 | 28 6b 65 79 25 2c 50 25 |eighbour|(key%,P%|
|000099e0| 2c 31 29 0d 36 6a 0b 20 | 20 f2 70 6f 6c 6c 0d 36 |,1).6j. | .poll.6|
|000099f0| 74 05 ce 0d 36 7e 0e 52 | 65 61 64 69 6e 67 25 3d |t...6~.R|eading%=|
|00009a00| a3 0d 36 88 1d f2 63 6c | 6f 73 65 5f 66 69 6c 65 |..6...cl|ose_file|
|00009a10| 28 64 62 61 73 65 68 61 | 6e 64 6c 65 25 29 0d 36 |(dbaseha|ndle%).6|
|00009a20| 92 1b f2 63 6c 6f 73 65 | 5f 77 69 6e 64 6f 77 28 |...close|_window(|
|00009a30| 6e 6f 74 69 66 79 57 25 | 29 0d 36 9c 16 c8 99 20 |notifyW%|).6.... |
|00009a40| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 66 66 22 0d |"Hourgla|ss_Off".|
|00009a50| 36 a6 0d 3d 73 74 75 64 | 65 6e 74 25 0d 36 b0 05 |6..=stud|ent%.6..|
|00009a60| 3a 0d 36 ba 0e dd 20 f2 | 61 62 61 6e 64 6f 6e 0d |:.6... .|abandon.|
|00009a70| 36 c4 0e 52 65 61 64 69 | 6e 67 25 3d a3 0d 36 ce |6..Readi|ng%=..6.|
|00009a80| 18 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 53 |... "Hou|rglass_S|
|00009a90| 6d 61 73 68 22 0d 36 d8 | 1d f2 63 6c 6f 73 65 5f |mash".6.|..close_|
|00009aa0| 66 69 6c 65 28 64 62 61 | 73 65 68 61 6e 64 6c 65 |file(dba|sehandle|
|00009ab0| 25 29 0d 36 e2 1b f2 63 | 6c 6f 73 65 5f 77 69 6e |%).6...c|lose_win|
|00009ac0| 64 6f 77 28 6e 6f 74 69 | 66 79 57 25 29 0d 36 ec |dow(noti|fyW%).6.|
|00009ad0| 09 f2 70 6f 6c 6c 0d 36 | f6 0c e7 20 9f 3d 31 37 |..poll.6|... .=17|
|00009ae0| 20 8c 0d 37 00 0b 20 20 | f2 65 78 69 74 0d 37 0a | ..7..  |.exit.7.|
|00009af0| 34 20 20 85 20 32 35 34 | 2c 22 45 73 63 61 70 65 |4  . 254|,"Escape|
|00009b00| 20 70 72 65 73 73 65 64 | 2e 20 52 65 61 64 69 6e | pressed|. Readin|
|00009b10| 67 20 61 62 61 6e 64 6f | 6e 65 64 22 2b bd 28 30 |g abando|ned"+.(0|
|00009b20| 29 0d 37 14 1d 20 20 cc | 20 f2 77 69 6d 70 5f 65 |).7..  .| .wimp_e|
|00009b30| 72 72 6f 72 28 b9 2c 9f | 2c 9e 2c f6 24 29 0d 37 |rror(.,.|,.,.$).7|
|00009b40| 1e 05 cd 0d 37 28 05 e1 | 0d 37 32 05 3a 0d 37 3c |....7(..|.72.:.7<|
|00009b50| 12 dd 20 f2 73 65 74 5f | 77 65 69 67 68 74 73 0d |.. .set_|weights.|
|00009b60| 37 46 3e ea 20 42 25 2c | 52 25 2c 49 25 2c 54 25 |7F>. B%,|R%,I%,T%|
|00009b70| 2c 42 6c 6b 24 2c 44 24 | 2c 54 24 2c 52 65 63 25 |,Blk$,D$|,T$,Rec%|
|00009b80| 2c 54 61 62 46 69 65 6c | 64 73 25 2c 52 6f 77 73 |,TabFiel|ds%,Rows|
|00009b90| 25 2c 69 6e 64 25 2c 73 | 74 61 72 74 25 0d 37 50 |%,ind%,s|tart%.7P|
|00009ba0| 14 77 65 69 67 68 74 69 | 6e 67 25 28 29 3d 35 30 |.weighti|ng%()=50|
|00009bb0| 30 0d 37 5a 14 e3 20 42 | 25 3d 31 20 b8 20 62 6c |0.7Z.. B|%=1 . bl|
|00009bc0| 6f 63 6b 73 25 0d 37 64 | 18 20 20 77 65 69 67 68 |ocks%.7d|.  weigh|
|00009bd0| 74 69 6e 67 25 28 30 2c | 42 25 29 3d 30 0d 37 6e |ting%(0,|B%)=0.7n|
|00009be0| 08 ed 20 42 25 0d 37 78 | 1f 54 25 3d a4 74 61 62 |.. B%.7x|.T%=.tab|
|00009bf0| 6c 65 5f 6e 75 6d 62 65 | 72 28 22 53 75 62 6a 65 |le_numbe|r("Subje|
|00009c00| 63 74 22 29 0d 37 82 3b | 54 24 3d a4 74 61 62 6c |ct").7.;|T$=.tabl|
|00009c10| 65 5f 69 6e 66 6f 28 54 | 25 2c 52 6f 77 73 25 2c |e_info(T|%,Rows%,|
|00009c20| 54 61 62 46 69 65 6c 64 | 73 25 2c 52 65 63 25 2c |TabField|s%,Rec%,|
|00009c30| 74 61 62 66 69 65 6c 64 | 6c 65 6e 25 28 29 29 0d |tabfield|len%()).|
|00009c40| 37 8c 22 73 74 61 72 74 | 25 3d 21 74 61 62 61 6e |7."start|%=!taban|
|00009c50| 63 68 6f 72 25 28 30 29 | 2b 31 36 30 2d 52 65 63 |chor%(0)|+160-Rec|
|00009c60| 25 0d 37 96 0c 4e 73 75 | 62 73 25 3d 30 0d 37 a0 |%.7..Nsu|bs%=0.7.|
|00009c70| 12 e3 20 52 25 3d 31 20 | b8 20 52 6f 77 73 25 0d |.. R%=1 |. Rows%.|
|00009c80| 37 aa 18 20 20 77 65 69 | 67 68 74 69 6e 67 25 28 |7..  wei|ghting%(|
|00009c90| 52 25 2c 30 29 3d 30 0d | 37 b4 19 20 20 69 6e 64 |R%,0)=0.|7..  ind|
|00009ca0| 25 3d 73 74 61 72 74 25 | 2b 52 25 2a 52 65 63 25 |%=start%|+R%*Rec%|
|00009cb0| 0d 37 be 13 20 20 e7 20 | 24 69 6e 64 25 3c 3e 22 |.7..  . |$ind%<>"|
|00009cc0| 22 20 8c 0d 37 c8 32 20 | 20 20 20 53 75 62 63 6f |" ..7.2 |   Subco|
|00009cd0| 64 65 24 28 52 25 29 3d | 24 69 6e 64 25 3a 69 6e |de$(R%)=|$ind%:in|
|00009ce0| 64 25 2b 3d 74 61 62 66 | 69 65 6c 64 6c 65 6e 25 |d%+=tabf|ieldlen%|
|00009cf0| 28 30 29 2b 31 0d 37 d2 | 32 20 20 20 20 53 75 62 |(0)+1.7.|2    Sub|
|00009d00| 6e 61 6d 65 24 28 52 25 | 29 3d 24 69 6e 64 25 3a |name$(R%|)=$ind%:|
|00009d10| 69 6e 64 25 2b 3d 74 61 | 62 66 69 65 6c 64 6c 65 |ind%+=ta|bfieldle|
|00009d20| 6e 25 28 31 29 2b 31 0d | 37 dc 12 20 20 20 20 42 |n%(1)+1.|7..    B|
|00009d30| 6c 6b 24 3d 24 69 6e 64 | 25 0d 37 e6 13 20 20 20 |lk$=$ind|%.7..   |
|00009d40| 20 44 24 3d c0 42 6c 6b | 24 2c 31 29 0d 37 f0 38 | D$=.Blk|$,1).7.8|
|00009d50| 20 20 20 20 e7 20 a7 22 | 41 53 48 4d 43 22 2c 44 |    . ."|ASHMC",D|
|00009d60| 24 29 3e 30 20 8c 20 53 | 75 62 64 65 70 74 24 28 |$)>0 . S|ubdept$(|
|00009d70| 52 25 29 3d 44 24 3a 42 | 6c 6b 24 3d c1 42 6c 6b |R%)=D$:B|lk$=.Blk|
|00009d80| 24 2c 32 29 0d 37 fa 18 | 20 20 20 20 e3 20 49 25 |$,2).7..|    . I%|
|00009d90| 3d 31 20 b8 20 a9 28 42 | 6c 6b 24 29 0d 38 04 1b |=1 . .(B|lk$).8..|
|00009da0| 20 20 20 20 20 20 42 25 | 3d bb 28 c1 42 6c 6b 24 |      B%|=.(.Blk$|
|00009db0| 2c 49 25 2c 31 29 29 0d | 38 0e 26 20 20 20 20 20 |,I%,1)).|8.&     |
|00009dc0| 20 e7 20 42 25 3e 30 20 | 8c 20 77 65 69 67 68 74 | . B%>0 |. weight|
|00009dd0| 69 6e 67 25 28 52 25 2c | 42 25 29 3d 30 0d 38 18 |ing%(R%,|B%)=0.8.|
|00009de0| 0c 20 20 20 20 ed 20 49 | 25 0d 38 22 11 20 20 20 |.    . I|%.8".   |
|00009df0| 20 4e 73 75 62 73 25 2b | 3d 31 0d 38 2c 07 20 20 | Nsubs%+|=1.8,.  |
|00009e00| cd 0d 38 36 08 ed 20 52 | 25 0d 38 40 15 53 75 62 |..86.. R|%.8@.Sub|
|00009e10| 63 6f 64 65 24 28 30 29 | 3d 22 20 20 20 22 0d 38 |code$(0)|="   ".8|
|00009e20| 4a 05 e1 0d 38 54 05 3a | 0d 38 5e 17 dd 20 f2 6d |J...8T.:|.8^.. .m|
|00009e30| 61 6b 65 5f 63 6c 61 73 | 73 5f 74 61 62 6c 65 0d |ake_clas|s_table.|
|00009e40| 38 68 68 e7 20 ac 20 a4 | 63 6f 6e 66 69 72 6d 28 |8hh. . .|confirm(|
|00009e50| 22 54 68 69 73 20 77 69 | 6c 6c 20 6f 76 65 72 77 |"This wi|ll overw|
|00009e60| 72 69 74 65 20 74 68 65 | 20 65 78 69 73 74 69 6e |rite the| existin|
|00009e70| 67 20 43 6c 61 73 73 65 | 73 20 74 61 62 6c 65 2e |g Classe|s table.|
|00009e80| 20 41 72 65 20 79 6f 75 | 20 73 75 72 65 20 79 6f | Are you| sure yo|
|00009e90| 75 20 77 69 73 68 20 74 | 6f 20 70 72 6f 63 65 65 |u wish t|o procee|
|00009ea0| 64 3f 22 29 8c 20 e1 0d | 38 72 45 ea 20 4e 25 2c |d?"). ..|8rE. N%,|
|00009eb0| 42 25 2c 52 25 2c 49 25 | 2c 42 6c 6b 24 2c 63 6f |B%,R%,I%|,Blk$,co|
|00009ec0| 64 65 24 2c 6e 61 6d 65 | 24 2c 63 6c 61 73 73 24 |de$,name|$,class$|
|00009ed0| 2c 64 61 79 24 2c 62 6c | 6f 63 6b 24 2c 42 24 2c |,day$,bl|ock$,B$,|
|00009ee0| 74 69 6d 65 25 2c 62 6c | 61 6e 6b 24 0d 38 7c 15 |time%,bl|ank$.8|.|
|00009ef0| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 6e |.. "Hour|glass_On|
|00009f00| 22 0d 38 86 1f 54 25 3d | a4 74 61 62 6c 65 5f 6e |".8..T%=|.table_n|
|00009f10| 75 6d 62 65 72 28 22 43 | 6c 61 73 73 65 73 22 29 |umber("C|lasses")|
|00009f20| 0d 38 90 3b 54 24 3d a4 | 74 61 62 6c 65 5f 69 6e |.8.;T$=.|table_in|
|00009f30| 66 6f 28 54 25 2c 52 6f | 77 73 25 2c 54 61 62 46 |fo(T%,Ro|ws%,TabF|
|00009f40| 69 65 6c 64 73 25 2c 52 | 65 63 25 2c 74 61 62 66 |ields%,R|ec%,tabf|
|00009f50| 69 65 6c 64 6c 65 6e 25 | 28 29 29 0d 38 9a 2f 63 |ieldlen%|()).8./c|
|00009f60| 73 74 61 72 74 25 3d 21 | 74 61 62 61 6e 63 68 6f |start%=!|tabancho|
|00009f70| 72 25 28 54 25 29 2b 31 | 36 30 2d 52 65 63 25 3a |r%(T%)+1|60-Rec%:|
|00009f80| 52 65 63 63 25 3d 52 65 | 63 25 0d 38 a4 1e 54 25 |Recc%=Re|c%.8..T%|
|00009f90| 3d a4 74 61 62 6c 65 5f | 6e 75 6d 62 65 72 28 22 |=.table_|number("|
|00009fa0| 42 6c 6f 63 6b 73 22 29 | 0d 38 ae 3b 54 24 3d a4 |Blocks")|.8.;T$=.|
|00009fb0| 74 61 62 6c 65 5f 69 6e | 66 6f 28 54 25 2c 52 6f |table_in|fo(T%,Ro|
|00009fc0| 77 73 25 2c 54 61 62 46 | 69 65 6c 64 73 25 2c 52 |ws%,TabF|ields%,R|
|00009fd0| 65 63 25 2c 74 61 62 66 | 69 65 6c 64 6c 65 6e 25 |ec%,tabf|ieldlen%|
|00009fe0| 28 29 29 0d 38 b8 2f 62 | 73 74 61 72 74 25 3d 21 |()).8./b|start%=!|
|00009ff0| 74 61 62 61 6e 63 68 6f | 72 25 28 54 25 29 2b 31 |tabancho|r%(T%)+1|
|0000a000| 36 30 2d 52 65 63 25 3a | 52 65 63 62 25 3d 52 65 |60-Rec%:|Recb%=Re|
|0000a010| 63 25 0d 38 c2 1f 54 25 | 3d a4 74 61 62 6c 65 5f |c%.8..T%|=.table_|
|0000a020| 6e 75 6d 62 65 72 28 22 | 53 75 62 6a 65 63 74 22 |number("|Subject"|
|0000a030| 29 0d 38 cc 3b 54 24 3d | a4 74 61 62 6c 65 5f 69 |).8.;T$=|.table_i|
|0000a040| 6e 66 6f 28 54 25 2c 52 | 6f 77 73 25 2c 54 61 62 |nfo(T%,R|ows%,Tab|
|0000a050| 46 69 65 6c 64 73 25 2c | 52 65 63 25 2c 74 61 62 |Fields%,|Rec%,tab|
|0000a060| 66 69 65 6c 64 6c 65 6e | 25 28 29 29 0d 38 d6 23 |fieldlen|%()).8.#|
|0000a070| 73 74 61 72 74 25 3d 21 | 74 61 62 61 6e 63 68 6f |start%=!|tabancho|
|0000a080| 72 25 28 54 25 29 2b 31 | 36 30 2d 52 65 63 25 0d |r%(T%)+1|60-Rec%.|
|0000a090| 38 e0 08 4e 25 3d 31 0d | 38 ea 12 e3 20 52 25 3d |8..N%=1.|8... R%=|
|0000a0a0| 31 20 b8 20 52 6f 77 73 | 25 0d 38 f4 19 20 20 69 |1 . Rows|%.8..  i|
|0000a0b0| 6e 64 25 3d 73 74 61 72 | 74 25 2b 52 25 2a 52 65 |nd%=star|t%+R%*Re|
|0000a0c0| 63 25 0d 38 fe 13 20 20 | e7 20 24 69 6e 64 25 3c |c%.8..  |. $ind%<|
|0000a0d0| 3e 22 22 20 8c 0d 39 08 | 2b 20 20 20 20 63 6f 64 |>"" ..9.|+    cod|
|0000a0e0| 65 24 3d 24 69 6e 64 25 | 3a 69 6e 64 25 2b 3d 74 |e$=$ind%|:ind%+=t|
|0000a0f0| 61 62 66 69 65 6c 64 6c | 65 6e 25 28 30 29 2b 31 |abfieldl|en%(0)+1|
|0000a100| 0d 39 12 2b 20 20 20 20 | 6e 61 6d 65 24 3d 24 69 |.9.+    |name$=$i|
|0000a110| 6e 64 25 3a 69 6e 64 25 | 2b 3d 74 61 62 66 69 65 |nd%:ind%|+=tabfie|
|0000a120| 6c 64 6c 65 6e 25 28 31 | 29 2b 31 0d 39 1c 12 20 |ldlen%(1|)+1.9.. |
|0000a130| 20 20 20 42 6c 6b 24 3d | 24 69 6e 64 25 0d 39 26 |   Blk$=|$ind%.9&|
|0000a140| 18 20 20 20 20 e3 20 49 | 25 3d 31 20 b8 20 a9 28 |.    . I|%=1 . .(|
|0000a150| 42 6c 6b 24 29 0d 39 30 | 18 20 20 20 20 20 20 42 |Blk$).90|.      B|
|0000a160| 24 3d c1 42 6c 6b 24 2c | 49 25 2c 31 29 0d 39 3a |$=.Blk$,|I%,1).9:|
|0000a170| 1d 20 20 20 20 20 20 63 | 6c 61 73 73 24 3d 63 6f |.      c|lass$=co|
|0000a180| 64 65 24 2b 42 24 2b 22 | 41 22 0d 39 44 1f 20 20 |de$+B$+"|A".9D.  |
|0000a190| 20 20 20 20 69 6e 64 25 | 3d 63 73 74 61 72 74 25 |    ind%|=cstart%|
|0000a1a0| 2b 4e 25 2a 52 65 63 63 | 25 0d 39 4e 1e 20 20 20 |+N%*Recc|%.9N.   |
|0000a1b0| 20 20 20 24 69 6e 64 25 | 3d 63 6c 61 73 73 24 3a |   $ind%|=class$:|
|0000a1c0| 69 6e 64 25 2b 3d 36 0d | 39 58 0f 20 20 20 20 20 |ind%+=6.|9X.     |
|0000a1d0| 20 4e 25 2b 3d 31 0d 39 | 62 18 20 20 20 20 20 20 | N%+=1.9|b.      |
|0000a1e0| e3 20 74 69 6d 65 25 3d | 30 20 b8 20 37 39 0d 39 |. time%=|0 . 79.9|
|0000a1f0| 6c 25 20 20 20 20 20 20 | 20 20 69 6e 64 32 25 3d |l%      |  ind2%=|
|0000a200| 62 73 74 61 72 74 25 2b | 74 69 6d 65 25 2a 52 65 |bstart%+|time%*Re|
|0000a210| 63 62 25 0d 39 76 33 20 | 20 20 20 20 20 20 20 64 |cb%.9v3 |       d|
|0000a220| 61 79 24 3d c0 24 69 6e | 64 32 25 2c 33 29 3a 69 |ay$=.$in|d2%,3):i|
|0000a230| 6e 64 32 25 2b 3d 31 30 | 3a 62 6c 6f 63 6b 24 3d |nd2%+=10|:block$=|
|0000a240| 24 69 6e 64 32 25 0d 39 | 80 19 20 20 20 20 20 20 |$ind2%.9|..      |
|0000a250| 20 20 e7 20 62 6c 6f 63 | 6b 24 3d 42 24 20 8c 0d |  . bloc|k$=B$ ..|
|0000a260| 39 8a 31 20 20 20 20 20 | 20 20 20 20 20 24 69 6e |9.1     |     $in|
|0000a270| 64 25 3d 64 61 79 24 3a | 69 6e 64 25 2b 3d 34 3a |d%=day$:|ind%+=4:|
|0000a280| 24 69 6e 64 25 3d 22 22 | 3a 69 6e 64 25 2b 3d 35 |$ind%=""|:ind%+=5|
|0000a290| 0d 39 94 18 20 20 20 20 | 20 20 20 20 20 20 f5 20 |.9..    |      . |
|0000a2a0| 74 69 6d 65 25 2b 3d 31 | 0d 39 9e 2c 20 20 20 20 |time%+=1|.9.,    |
|0000a2b0| 20 20 20 20 20 20 20 20 | 69 6e 64 32 25 3d 62 73 |        |ind2%=bs|
|0000a2c0| 74 61 72 74 25 2b 74 69 | 6d 65 25 2a 52 65 63 62 |tart%+ti|me%*Recb|
|0000a2d0| 25 2b 31 30 0d 39 a8 25 | 20 20 20 20 20 20 20 20 |%+10.9.%|        |
|0000a2e0| 20 20 fd 20 24 69 6e 64 | 32 25 3c 3e 42 24 20 84 |  . $ind|2%<>B$ .|
|0000a2f0| 20 74 69 6d 65 25 3d 37 | 39 0d 39 b2 0d 20 20 20 | time%=7|9.9..   |
|0000a300| 20 20 20 20 20 cd 0d 39 | bc 11 20 20 20 20 20 20 |     ..9|..      |
|0000a310| ed 20 74 69 6d 65 25 0d | 39 c6 0c 20 20 20 20 ed |. time%.|9..    .|
|0000a320| 20 49 25 0d 39 d0 07 20 | 20 cd 0d 39 da 08 ed 20 | I%.9.. | ..9... |
|0000a330| 52 25 0d 39 e4 16 c8 99 | 20 22 48 6f 75 72 67 6c |R%.9....| "Hourgl|
|0000a340| 61 73 73 5f 4f 66 66 22 | 0d 39 ee 05 e1 0d 39 f8 |ass_Off"|.9....9.|
|0000a350| 05 3a 0d 3a 02 0f dd 20 | a4 67 65 74 5f 66 6f 72 |.:.:... |.get_for|
|0000a360| 6d 0d 3a 0c 0b ea 20 4e | 25 2c 49 25 0d 3a 16 1b |m.:... N|%,I%.:..|
|0000a370| 46 3d 8e 28 24 64 61 74 | 61 62 61 73 65 25 2b 22 |F=.($dat|abase%+"|
|0000a380| 2e 46 6f 72 6d 22 29 0d | 3a 20 0b e7 20 46 3e 30 |.Form").|: .. F>0|
|0000a390| 20 8c 0d 3a 2a 0c 20 20 | e8 23 46 2c 4e 25 0d 3a | ..:*.  |.#F,N%.:|
|0000a3a0| 34 0f 20 20 4c 65 6e 67 | 74 68 25 3d 30 0d 3a 3e |4.  Leng|th%=0.:>|
|0000a3b0| 11 20 20 e3 20 49 25 3d | 31 20 b8 20 4e 25 0d 3a |.  . I%=|1 . N%.:|
|0000a3c0| 48 3d 20 20 20 20 e8 23 | 46 2c 44 65 73 63 24 2c |H=    .#|F,Desc$,|
|0000a3d0| 54 61 67 24 2c 78 64 25 | 2c 79 64 25 2c 78 66 25 |Tag$,xd%|,yd%,xf%|
|0000a3e0| 2c 79 66 25 2c 6c 65 6e | 25 2c 63 68 61 72 25 2c |,yf%,len|%,char%,|
|0000a3f0| 66 69 78 25 2c 65 78 74 | 72 61 25 0d 3a 52 24 20 |fix%,ext|ra%.:R$ |
|0000a400| 20 20 20 e7 20 54 61 67 | 24 3d 22 43 52 53 45 22 |   . Tag|$="CRSE"|
|0000a410| 20 8c 20 43 72 73 46 69 | 65 6c 64 25 3d 49 25 0d | . CrsFi|eld%=I%.|
|0000a420| 3a 5c 23 20 20 20 20 e7 | 20 54 61 67 24 3d 22 54 |:\#    .| Tag$="T|
|0000a430| 55 54 22 20 8c 20 54 75 | 74 46 69 65 6c 64 25 3d |UT" . Tu|tField%=|
|0000a440| 49 25 0d 3a 66 22 20 20 | 20 20 e7 20 54 61 67 24 |I%.:f"  |  . Tag$|
|0000a450| 3d 22 42 31 22 20 8c 20 | 53 75 62 46 69 65 6c 64 |="B1" . |SubField|
|0000a460| 25 3d 49 25 0d 3a 70 24 | 20 20 20 20 e7 20 54 61 |%=I%.:p$|    . Ta|
|0000a470| 67 24 3d 22 42 31 42 22 | 20 8c 20 53 75 62 46 69 |g$="B1B"| . SubFi|
|0000a480| 65 6c 64 42 25 3d 49 25 | 0d 3a 7a 17 20 20 20 20 |eldB%=I%|.:z.    |
|0000a490| 4c 65 6e 67 74 68 25 2b | 3d 6c 65 6e 25 2b 31 0d |Length%+|=len%+1.|
|0000a4a0| 3a 84 0a 20 20 ed 20 49 | 25 0d 3a 8e 1b 20 20 70 |:..  . I|%.:..  p|
|0000a4b0| 72 65 73 65 6e 74 25 3d | 70 72 65 73 65 6e 74 25 |resent%=|present%|
|0000a4c0| 20 84 20 31 0d 3a 98 05 | cd 0d 3a a2 07 d9 23 46 | . 1.:..|..:...#F|
|0000a4d0| 0d 3a ac 07 3d 4e 25 0d | 3a b6 05 3a 0d 3a c0 1a |.:..=N%.|:..:.:..|
|0000a4e0| dd 20 f2 6f 70 65 6e 5f | 69 6e 64 65 78 28 66 24 |. .open_|index(f$|
|0000a4f0| 2c 6b 65 79 25 29 0d 3a | ca 11 ea 20 6b 65 79 62 |,key%).:|... keyb|
|0000a500| 61 73 65 25 2c 49 25 0d | 3a d4 33 e7 20 6b 65 79 |ase%,I%.|:.3. key|
|0000a510| 61 6e 63 68 6f 72 25 20 | 8c 20 f2 73 63 72 61 70 |anchor% |. .scrap|
|0000a520| 5f 73 6c 69 64 69 6e 67 | 5f 62 6c 6f 63 6b 28 6b |_sliding|_block(k|
|0000a530| 65 79 61 6e 63 68 6f 72 | 25 29 0d 3a de 20 c8 99 |eyanchor|%).:. ..|
|0000a540| 20 22 4f 53 5f 46 69 6c | 65 22 2c 35 2c 66 24 20 | "OS_Fil|e",5,f$ |
|0000a550| b8 20 2c 2c 2c 2c 6c 65 | 6e 25 0d 3a e8 30 f2 63 |. ,,,,le|n%.:.0.c|
|0000a560| 72 65 61 74 65 5f 6e 61 | 6d 65 64 5f 73 6c 69 64 |reate_na|med_slid|
|0000a570| 69 6e 67 5f 62 6c 6f 63 | 6b 28 6b 65 79 61 6e 63 |ing_bloc|k(keyanc|
|0000a580| 68 6f 72 25 2c 6c 65 6e | 25 29 0d 3a f2 23 c8 99 |hor%,len|%).:.#..|
|0000a590| 20 22 4f 53 5f 46 69 6c | 65 22 2c 32 35 35 2c 66 | "OS_Fil|e",255,f|
|0000a5a0| 24 2c 21 6b 65 79 61 6e | 63 68 6f 72 25 0d 3a fc |$,!keyan|chor%.:.|
|0000a5b0| 18 6b 65 79 62 61 73 65 | 25 3d 21 6b 65 79 61 6e |.keybase|%=!keyan|
|0000a5c0| 63 68 6f 72 25 0d 3b 06 | 1b 4b 46 25 28 6b 65 79 |chor%.;.|.KF%(key|
|0000a5d0| 25 2c 30 29 3d 6b 65 79 | 62 61 73 65 25 21 36 32 |%,0)=key|base%!62|
|0000a5e0| 0d 3b 10 1b 4b 46 25 28 | 6b 65 79 25 2c 31 29 3d |.;..KF%(|key%,1)=|
|0000a5f0| 6b 65 79 62 61 73 65 25 | 21 36 36 0d 3b 1a 19 4b |keybase%|!66.;..K|
|0000a600| 4c 25 28 6b 65 79 25 29 | 3d 6b 65 79 62 61 73 65 |L%(key%)|=keybase|
|0000a610| 25 21 37 30 0d 3b 24 0e | e3 20 49 25 3d 30 20 b8 |%!70.;$.|. I%=0 .|
|0000a620| 20 33 0d 3b 2e 26 20 20 | 4b 57 25 28 6b 65 79 25 | 3.;.&  |KW%(key%|
|0000a630| 2c 49 25 29 3d 21 28 6b | 65 79 62 61 73 65 25 2b |,I%)=!(k|eybase%+|
|0000a640| 37 34 2b 49 25 2a 34 29 | 0d 3b 38 08 ed 20 49 25 |74+I%*4)|.;8.. I%|
|0000a650| 0d 3b 42 05 e1 0d 3b 4c | 05 3a 0d 3b 56 11 dd 20 |.;B...;L|.:.;V.. |
|0000a660| f2 67 65 74 5f 74 61 62 | 6c 65 73 0d 3b 60 0d ea |.get_tab|les.;`..|
|0000a670| 20 49 25 2c 69 6e 64 25 | 0d 3b 6a 30 f2 6c 6f 61 | I%,ind%|.;j0.loa|
|0000a680| 64 5f 74 61 62 6c 65 28 | 22 3c 44 62 61 73 65 24 |d_table(|"<Dbase$|
|0000a690| 44 69 72 3e 2e 56 61 6c | 54 61 62 6c 65 73 2e 53 |Dir>.Val|Tables.S|
|0000a6a0| 75 62 6a 65 63 74 22 29 | 0d 3b 74 2f f2 6c 6f 61 |ubject")|.;t/.loa|
|0000a6b0| 64 5f 74 61 62 6c 65 28 | 22 3c 44 62 61 73 65 24 |d_table(|"<Dbase$|
|0000a6c0| 44 69 72 3e 2e 56 61 6c | 54 61 62 6c 65 73 2e 42 |Dir>.Val|Tables.B|
|0000a6d0| 6c 6f 63 6b 73 22 29 0d | 3b 7e 1e 69 6e 64 25 3d |locks").|;~.ind%=|
|0000a6e0| 21 74 61 62 61 6e 63 68 | 6f 72 25 28 31 29 2b 31 |!tabanch|or%(1)+1|
|0000a6f0| 36 30 2b 31 30 0d 3b 88 | 0f e3 20 49 25 3d 30 20 |60+10.;.|.. I%=0 |
|0000a700| b8 20 37 39 0d 3b 92 1c | 20 20 74 69 6d 65 73 6c |. 79.;..|  timesl|
|0000a710| 6f 74 73 25 3f 49 25 3d | bb 28 24 69 6e 64 25 29 |ots%?I%=|.($ind%)|
|0000a720| 0d 3b 9c 0e 20 20 69 6e | 64 25 2b 3d 31 32 0d 3b |.;..  in|d%+=12.;|
|0000a730| a6 08 ed 20 49 25 0d 3b | b0 2e f2 6c 6f 61 64 5f |... I%.;|...load_|
|0000a740| 74 61 62 6c 65 28 22 3c | 44 62 61 73 65 24 44 69 |table("<|Dbase$Di|
|0000a750| 72 3e 2e 56 61 6c 54 61 | 62 6c 65 73 2e 53 74 61 |r>.ValTa|bles.Sta|
|0000a760| 66 66 22 29 0d 3b ba 30 | f2 6c 6f 61 64 5f 74 61 |ff").;.0|.load_ta|
|0000a770| 62 6c 65 28 22 3c 44 62 | 61 73 65 24 44 69 72 3e |ble("<Db|ase$Dir>|
|0000a780| 2e 56 61 6c 54 61 62 6c | 65 73 2e 43 6c 61 73 73 |.ValTabl|es.Class|
|0000a790| 65 73 22 29 0d 3b c4 2f | f2 6c 6f 61 64 5f 74 61 |es").;./|.load_ta|
|0000a7a0| 62 6c 65 28 22 3c 44 62 | 61 73 65 24 44 69 72 3e |ble("<Db|ase$Dir>|
|0000a7b0| 2e 56 61 6c 54 61 62 6c | 65 73 2e 54 75 74 6f 72 |.ValTabl|es.Tutor|
|0000a7c0| 73 22 29 0d 3b ce 2e f2 | 6c 6f 61 64 5f 74 61 62 |s").;...|load_tab|
|0000a7d0| 6c 65 28 22 3c 44 62 61 | 73 65 24 44 69 72 3e 2e |le("<Dba|se$Dir>.|
|0000a7e0| 56 61 6c 54 61 62 6c 65 | 73 2e 53 74 61 66 66 22 |ValTable|s.Staff"|
|0000a7f0| 29 0d 3b d8 05 e1 0d 3b | e2 05 3a 0d 3b ec 15 dd |).;....;|..:.;...|
|0000a800| 20 f2 6c 6f 61 64 5f 74 | 61 62 6c 65 28 66 24 29 | .load_t|able(f$)|
|0000a810| 0d 3b f6 10 ea 20 70 6f | 73 25 2c 6e 61 6d 65 24 |.;... po|s%,name$|
|0000a820| 0d 3c 00 13 6e 61 6d 65 | 24 3d a4 6c 65 61 66 28 |.<..name|$=.leaf(|
|0000a830| 66 24 29 0d 3c 0a 25 c8 | 99 20 22 4f 53 5f 46 69 |f$).<.%.|. "OS_Fi|
|0000a840| 6c 65 22 2c 35 2c 66 24 | 20 b8 20 64 25 2c 2c 2c |le",5,f$| . d%,,,|
|0000a850| 2c 74 61 62 6c 65 6e 25 | 0d 3c 14 4d e7 20 64 25 |,tablen%|.<.M. d%|
|0000a860| 3d 30 20 8c 20 f2 63 6c | 6f 73 65 5f 77 69 6e 64 |=0 . .cl|ose_wind|
|0000a870| 6f 77 28 61 63 63 65 73 | 73 57 25 29 3a 85 20 32 |ow(acces|sW%):. 2|
|0000a880| 35 34 2c 22 54 61 62 6c | 65 20 27 22 2b 6e 61 6d |54,"Tabl|e '"+nam|
|0000a890| 65 24 2b 22 27 20 6e 6f | 74 20 66 6f 75 6e 64 22 |e$+"' no|t found"|
|0000a8a0| 2b bd 28 30 29 0d 3c 1e | 11 4c 61 73 74 54 61 62 |+.(0).<.|.LastTab|
|0000a8b0| 6c 65 25 2b 3d 31 0d 3c | 28 49 f2 63 72 65 61 74 |le%+=1.<|(I.creat|
|0000a8c0| 65 5f 6e 61 6d 65 64 5f | 73 6c 69 64 69 6e 67 5f |e_named_|sliding_|
|0000a8d0| 62 6c 6f 63 6b 28 74 61 | 62 61 6e 63 68 6f 72 25 |block(ta|banchor%|
|0000a8e0| 28 4c 61 73 74 54 61 62 | 6c 65 25 29 2c 28 74 61 |(LastTab|le%),(ta|
|0000a8f0| 62 6c 65 6e 25 2b 33 29 | 20 80 20 ac 20 33 29 0d |blen%+3)| . . 3).|
|0000a900| 3c 32 2f c8 99 20 22 4f | 53 5f 46 69 6c 65 22 2c |<2/.. "O|S_File",|
|0000a910| 32 35 35 2c 66 24 2c 21 | 74 61 62 61 6e 63 68 6f |255,f$,!|tabancho|
|0000a920| 72 25 28 4c 61 73 74 54 | 61 62 6c 65 25 29 0d 3c |r%(LastT|able%).<|
|0000a930| 3c 1c 74 61 62 6c 65 24 | 28 4c 61 73 74 54 61 62 |<.table$|(LastTab|
|0000a940| 6c 65 25 29 3d 6e 61 6d | 65 24 0d 3c 46 05 e1 0d |le%)=nam|e$.<F...|
|0000a950| 3c 50 05 3a 0d 3c 5a 18 | dd 20 f2 73 6f 72 74 5f |<P.:.<Z.|. .sort_|
|0000a960| 74 61 62 6c 65 28 6e 61 | 6d 65 24 29 0d 3c 64 1b |table(na|me$).<d.|
|0000a970| 54 25 3d a4 74 61 62 6c | 65 5f 6e 75 6d 62 65 72 |T%=.tabl|e_number|
|0000a980| 28 6e 61 6d 65 24 29 0d | 3c 6e 3f 74 69 74 6c 65 |(name$).|<n?title|
|0000a990| 24 3d a4 74 61 62 6c 65 | 5f 69 6e 66 6f 28 54 25 |$=.table|_info(T%|
|0000a9a0| 2c 52 6f 77 73 25 2c 54 | 61 62 46 69 65 6c 64 73 |,Rows%,T|abFields|
|0000a9b0| 25 2c 52 65 63 25 2c 74 | 61 62 66 69 65 6c 64 6c |%,Rec%,t|abfieldl|
|0000a9c0| 65 6e 25 28 29 29 0d 3c | 78 21 69 6e 64 25 3d 21 |en%()).<|x!ind%=!|
|0000a9d0| 74 61 62 61 6e 63 68 6f | 72 25 28 54 25 29 2b 31 |tabancho|r%(T%)+1|
|0000a9e0| 36 30 2d 52 65 63 25 0d | 3c 82 16 e3 20 72 6f 77 |60-Rec%.|<... row|
|0000a9f0| 25 3d 30 20 b8 20 52 6f | 77 73 25 2d 31 0d 3c 8c |%=0 . Ro|ws%-1.<.|
|0000aa00| 10 20 20 69 6e 64 25 2b | 3d 52 65 63 25 0d 3c 96 |.  ind%+|=Rec%.<.|
|0000aa10| 1a 20 20 62 6c 6f 63 6b | 25 21 28 72 6f 77 25 2a |.  block|%!(row%*|
|0000aa20| 34 29 3d 69 6e 64 25 0d | 3c a0 1c 20 20 e7 20 24 |4)=ind%.|<..  . $|
|0000aa30| 69 6e 64 25 3d 22 22 20 | 8c 20 24 69 6e 64 25 3d |ind%="" |. $ind%=|
|0000aa40| 22 7e 22 0d 3c aa 0a ed | 20 72 6f 77 25 0d 3c b4 |"~".<...| row%.<.|
|0000aa50| 53 c8 99 20 22 4f 53 5f | 48 65 61 70 53 6f 72 74 |S.. "OS_|HeapSort|
|0000aa60| 22 2c 52 6f 77 73 25 2c | 28 62 6c 6f 63 6b 25 20 |",Rows%,|(block% |
|0000aa70| 84 20 28 31 3c 3c 33 30 | 29 20 84 20 28 31 3c 3c |. (1<<30|) . (1<<|
|0000aa80| 33 31 29 29 2c 34 2c 2c | 21 74 61 62 61 6e 63 68 |31)),4,,|!tabanch|
|0000aa90| 6f 72 25 28 54 25 29 2b | 31 36 30 2c 52 65 63 25 |or%(T%)+|160,Rec%|
|0000aaa0| 0d 3c be 21 69 6e 64 25 | 3d 21 74 61 62 61 6e 63 |.<.!ind%|=!tabanc|
|0000aab0| 68 6f 72 25 28 54 25 29 | 2b 31 36 30 2d 52 65 63 |hor%(T%)|+160-Rec|
|0000aac0| 25 0d 3c c8 16 e3 20 72 | 6f 77 25 3d 30 20 b8 20 |%.<... r|ow%=0 . |
|0000aad0| 52 6f 77 73 25 2d 31 0d | 3c d2 10 20 20 69 6e 64 |Rows%-1.|<..  ind|
|0000aae0| 25 2b 3d 52 65 63 25 0d | 3c dc 1c 20 20 e7 20 24 |%+=Rec%.|<..  . $|
|0000aaf0| 69 6e 64 25 3d 22 7e 22 | 20 8c 20 24 69 6e 64 25 |ind%="~"| . $ind%|
|0000ab00| 3d 22 22 0d 3c e6 0a ed | 20 72 6f 77 25 0d 3c f0 |="".<...| row%.<.|
|0000ab10| 16 f2 72 65 64 72 61 77 | 28 64 61 74 61 64 69 63 |..redraw|(datadic|
|0000ab20| 57 25 29 0d 3c fa 05 e1 | 0d 3d 04 05 3a 0d 3d 0e |W%).<...|.=..:.=.|
|0000ab30| 18 dd 20 f2 73 61 76 65 | 5f 74 61 62 6c 65 28 6e |.. .save|_table(n|
|0000ab40| 61 6d 65 24 29 0d 3d 18 | 08 ea 20 54 25 0d 3d 22 |ame$).=.|.. T%.="|
|0000ab50| 1b 54 25 3d a4 74 61 62 | 6c 65 5f 6e 75 6d 62 65 |.T%=.tab|le_numbe|
|0000ab60| 72 28 6e 61 6d 65 24 29 | 0d 3d 2c 0e 54 79 70 65 |r(name$)|.=,.Type|
|0000ab70| 25 3d 26 37 66 31 0d 3d | 36 43 24 54 61 62 54 69 |%=&7f1.=|6C$TabTi|
|0000ab80| 74 6c 65 25 3d a4 74 61 | 62 6c 65 5f 69 6e 66 6f |tle%=.ta|ble_info|
|0000ab90| 28 54 25 2c 52 6f 77 73 | 25 2c 54 61 62 46 69 65 |(T%,Rows|%,TabFie|
|0000aba0| 6c 64 73 25 2c 52 65 63 | 25 2c 74 61 62 66 69 65 |lds%,Rec|%,tabfie|
|0000abb0| 6c 64 6c 65 6e 25 28 29 | 29 0d 3d 40 1a 53 74 61 |ldlen%()|).=@.Sta|
|0000abc0| 72 74 25 3d 21 74 61 62 | 61 6e 63 68 6f 72 25 28 |rt%=!tab|anchor%(|
|0000abd0| 54 25 29 0d 3d 4a 1e 45 | 6e 64 25 3d 53 74 61 72 |T%).=J.E|nd%=Star|
|0000abe0| 74 25 2b 31 36 30 2b 52 | 6f 77 73 25 2a 52 65 63 |t%+160+R|ows%*Rec|
|0000abf0| 25 0d 3d 54 3b f2 73 61 | 76 65 28 22 3c 44 62 61 |%.=T;.sa|ve("<Dba|
|0000ac00| 73 65 24 44 69 72 3e 2e | 56 61 6c 54 61 62 6c 65 |se$Dir>.|ValTable|
|0000ac10| 73 2e 22 2b 6e 61 6d 65 | 24 2c 54 79 70 65 25 2c |s."+name|$,Type%,|
|0000ac20| 53 74 61 72 74 25 2c 45 | 6e 64 25 29 0d 3d 5e 05 |Start%,E|nd%).=^.|
|0000ac30| e1 0d 3d 68 05 3a 0d 3d | 72 23 dd 20 f2 69 6e 69 |..=h.:.=|r#. .ini|
|0000ac40| 74 5f 64 72 61 67 28 77 | 69 25 2c 69 63 25 2c 64 |t_drag(w|i%,ic%,d|
|0000ac50| 72 61 67 74 79 70 65 25 | 29 0d 3d 7c 19 f2 67 65 |ragtype%|).=|..ge|
|0000ac60| 74 73 63 72 65 65 6e 73 | 69 7a 65 28 57 25 2c 48 |tscreens|ize(W%,H|
|0000ac70| 25 29 0d 3d 86 0f 21 62 | 6c 6f 63 6b 25 3d 77 69 |%).=..!b|lock%=wi|
|0000ac80| 25 0d 3d 90 24 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%.=.$.. |"Wimp_Ge|
|0000ac90| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|0000aca0| 6c 6f 63 6b 25 0d 3d 9a | 1d 79 73 69 7a 65 25 3d |lock%.=.|.ysize%=|
|0000acb0| 62 6c 6f 63 6b 25 21 31 | 36 2d 62 6c 6f 63 6b 25 |block%!1|6-block%|
|0000acc0| 21 38 0d 3d a4 19 78 25 | 3d 62 6c 6f 63 6b 25 21 |!8.=..x%|=block%!|
|0000acd0| 34 2d 62 6c 6f 63 6b 25 | 21 32 30 0d 3d ae 1a 79 |4-block%|!20.=..y|
|0000ace0| 25 3d 62 6c 6f 63 6b 25 | 21 31 36 2d 62 6c 6f 63 |%=block%|!16-bloc|
|0000acf0| 6b 25 21 32 34 0d 3d b8 | 10 62 6c 6f 63 6b 25 21 |k%!24.=.|.block%!|
|0000ad00| 34 3d 69 63 25 0d 3d c2 | 22 c8 99 20 22 57 69 6d |4=ic%.=.|".. "Wim|
|0000ad10| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|0000ad20| 2c 62 6c 6f 63 6b 25 0d | 3d cc 1f 62 6c 6f 63 6b |,block%.|=..block|
|0000ad30| 25 21 38 2b 3d 78 25 3a | 6d 69 6e 78 25 3d 62 6c |%!8+=x%:|minx%=bl|
|0000ad40| 6f 63 6b 25 21 38 0d 3d | d6 21 62 6c 6f 63 6b 25 |ock%!8.=|.!block%|
|0000ad50| 21 31 32 2b 3d 79 25 3a | 6d 69 6e 79 25 3d 62 6c |!12+=y%:|miny%=bl|
|0000ad60| 6f 63 6b 25 21 31 32 0d | 3d e0 21 62 6c 6f 63 6b |ock%!12.|=.!block|
|0000ad70| 25 21 31 36 2b 3d 78 25 | 3a 6d 61 78 78 25 3d 62 |%!16+=x%|:maxx%=b|
|0000ad80| 6c 6f 63 6b 25 21 31 36 | 0d 3d ea 21 62 6c 6f 63 |lock%!16|.=.!bloc|
|0000ad90| 6b 25 21 32 30 2b 3d 79 | 25 3a 6d 61 78 79 25 3d |k%!20+=y|%:maxy%=|
|0000ada0| 62 6c 6f 63 6b 25 21 32 | 30 0d 3d f4 13 e7 20 64 |block%!2|0.=... d|
|0000adb0| 72 61 67 74 79 70 65 25 | 3d 36 20 8c 0d 3d fe 35 |ragtype%|=6 ..=.5|
|0000adc0| 20 20 62 6c 6f 63 6b 25 | 21 32 34 3d 32 2a 6d 69 |  block%|!24=2*mi|
|0000add0| 6e 78 25 2d 6d 61 78 78 | 25 3a 62 6c 6f 63 6b 25 |nx%-maxx|%:block%|
|0000ade0| 21 33 36 3d 32 2a 6d 61 | 78 79 25 2d 6d 69 6e 79 |!36=2*ma|xy%-miny|
|0000adf0| 25 0d 3e 08 20 20 20 cc | 20 62 6c 6f 63 6b 25 21 |%.>.   .| block%!|
|0000ae00| 32 34 3d 30 3a 62 6c 6f | 63 6b 25 21 33 36 3d 48 |24=0:blo|ck%!36=H|
|0000ae10| 25 0d 3e 12 05 cd 0d 3e | 1c 0f 62 6c 6f 63 6b 25 |%.>....>|..block%|
|0000ae20| 21 32 38 3d 30 0d 3e 26 | 10 62 6c 6f 63 6b 25 21 |!28=0.>&|.block%!|
|0000ae30| 33 32 3d 57 25 0d 3e 30 | 0d 21 62 6c 6f 63 6b 25 |32=W%.>0|.!block%|
|0000ae40| 3d 30 0d 3e 3a 16 62 6c | 6f 63 6b 25 21 34 3d 64 |=0.>:.bl|ock%!4=d|
|0000ae50| 72 61 67 74 79 70 65 25 | 0d 3e 44 0f 64 72 61 67 |ragtype%|.>D.drag|
|0000ae60| 67 69 6e 67 25 3d b9 0d | 3e 4e 1d c8 99 20 22 57 |ging%=..|>N... "W|
|0000ae70| 69 6d 70 5f 44 72 61 67 | 42 6f 78 22 2c 2c 62 6c |imp_Drag|Box",,bl|
|0000ae80| 6f 63 6b 25 0d 3e 58 05 | e1 0d 3e 62 05 3a 0d 3e |ock%.>X.|..>b.:.>|
|0000ae90| 6c 1c dd 20 f2 65 6e 64 | 5f 64 72 61 67 28 73 74 |l.. .end|_drag(st|
|0000aea0| 61 72 74 25 2c 65 6e 64 | 25 29 0d 3e 76 0f 64 72 |art%,end|%).>v.dr|
|0000aeb0| 61 67 67 69 6e 67 25 3d | a3 0d 3e 80 19 64 61 74 |agging%=|..>..dat|
|0000aec0| 61 73 69 7a 65 25 3d 65 | 6e 64 25 2d 73 74 61 72 |asize%=e|nd%-star|
|0000aed0| 74 25 0d 3e 8a 24 c8 99 | 20 22 57 69 6d 70 5f 47 |t%.>.$..| "Wimp_G|
|0000aee0| 65 74 50 6f 69 6e 74 65 | 72 49 6e 66 6f 22 2c 2c |etPointe|rInfo",,|
|0000aef0| 62 6c 6f 63 6b 25 0d 3e | 94 16 62 6c 6f 63 6b 25 |block%.>|..block%|
|0000af00| 21 33 32 3d 62 6c 6f 63 | 6b 25 21 34 0d 3e 9e 16 |!32=bloc|k%!4.>..|
|0000af10| 62 6c 6f 63 6b 25 21 32 | 38 3d 62 6c 6f 63 6b 25 |block%!2|8=block%|
|0000af20| 21 30 0d 3e a8 17 62 6c | 6f 63 6b 25 21 32 34 3d |!0.>..bl|ock%!24=|
|0000af30| 62 6c 6f 63 6b 25 21 31 | 36 0d 3e b2 17 62 6c 6f |block%!1|6.>..blo|
|0000af40| 63 6b 25 21 32 30 3d 62 | 6c 6f 63 6b 25 21 31 32 |ck%!20=b|lock%!12|
|0000af50| 0d 3e bc 0f 62 6c 6f 63 | 6b 25 21 31 36 3d 31 0d |.>..bloc|k%!16=1.|
|0000af60| 3e c6 0f 62 6c 6f 63 6b | 25 21 31 32 3d 30 0d 3e |>..block|%!12=0.>|
|0000af70| d0 17 62 6c 6f 63 6b 25 | 21 33 36 3d 64 61 74 61 |..block%|!36=data|
|0000af80| 73 69 7a 65 25 0d 3e da | 13 62 6c 6f 63 6b 25 21 |size%.>.|.block%!|
|0000af90| 34 30 3d 54 79 70 65 25 | 0d 3e e4 17 66 24 3d a4 |40=Type%|.>..f$=.|
|0000afa0| 6c 65 61 66 28 46 69 6c | 65 6e 61 6d 65 24 29 0d |leaf(Fil|ename$).|
|0000afb0| 3e ee 13 24 28 62 6c 6f | 63 6b 25 2b 34 34 29 3d |>..$(blo|ck%+44)=|
|0000afc0| 66 24 0d 3e f8 0e 21 62 | 6c 6f 63 6b 25 3d 36 30 |f$.>..!b|lock%=60|
|0000afd0| 0d 3f 02 37 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |.?.7.. "|Wimp_Sen|
|0000afe0| 64 4d 65 73 73 61 67 65 | 22 2c 31 37 2c 62 6c 6f |dMessage|",17,blo|
|0000aff0| 63 6b 25 2c 62 6c 6f 63 | 6b 25 21 32 30 2c 62 6c |ck%,bloc|k%!20,bl|
|0000b000| 6f 63 6b 25 21 32 34 0d | 3f 0c 12 72 61 6d 70 74 |ock%!24.|?..rampt|
|0000b010| 72 25 3d 73 74 61 72 74 | 25 0d 3f 16 1c c8 99 20 |r%=start|%.?.... |
|0000b020| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|0000b030| 22 2c 2c 2d 31 0d 3f 20 | 05 e1 0d 3f 2a 05 3a 0d |",,-1.? |...?*.:.|
|0000b040| 3f 34 0f dd 20 a4 6c 65 | 61 66 28 73 24 29 0d 3f |?4.. .le|af(s$).?|
|0000b050| 3e 0a 73 32 24 3d 22 22 | 0d 3f 48 19 c8 95 20 c2 |>.s2$=""|.?H... .|
|0000b060| 73 24 29 3c 3e 22 2e 22 | 20 80 20 73 24 3c 3e 22 |s$)<>"."| . s$<>"|
|0000b070| 22 0d 3f 52 12 20 20 73 | 32 24 3d c2 73 24 29 2b |".?R.  s|2$=.s$)+|
|0000b080| 73 32 24 0d 3f 5c 0d 20 | 20 73 24 3d c0 73 24 29 |s2$.?\. | s$=.s$)|
|0000b090| 0d 3f 66 05 ce 0d 3f 70 | 08 3d 73 32 24 0d 3f 7a |.?f...?p|.=s2$.?z|
|0000b0a0| 05 3a 0d 3f 84 4a f4 20 | 2d 2d 2d 2d 2d 2d 2d 2d |.:.?.J. |--------|
|0000b0b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 45 6e 64 20 6f |--------|-- End o|
|0000b0c0| 66 20 66 69 6c 65 20 6c | 6f 61 64 69 6e 67 2f 6f |f file l|oading/o|
|0000b0d0| 70 65 6e 69 6e 67 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |pening -|--------|
|0000b0e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 3f 8e 05 |--------|----.?..|
|0000b0f0| 3a 0d 3f 98 05 3a 0d 3f | a2 05 3a 0d 3f ac 4a f4 |:.?..:.?|..:.?.J.|
|0000b100| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|0000b110| 2d 2d 2d 2d 20 56 61 6c | 69 64 61 74 69 6f 6e 20 |---- Val|idation |
|0000b120| 74 61 62 6c 65 20 68 61 | 6e 64 6c 69 6e 67 20 2d |table ha|ndling -|
|0000b130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000b140| 2d 2d 2d 2d 2d 0d 3f b6 | 05 3a 0d 3f c0 15 dd 20 |-----.?.|.:.?... |
|0000b150| f2 73 68 6f 77 5f 74 61 | 62 6c 65 28 54 25 29 0d |.show_ta|ble(T%).|
|0000b160| 3f ca 32 ea 20 52 25 2c | 69 6e 64 25 2c 73 74 61 |?.2. R%,|ind%,sta|
|0000b170| 72 74 25 2c 69 66 6c 61 | 67 73 25 2c 49 25 2c 70 |rt%,ifla|gs%,I%,p|
|0000b180| 6f 73 25 2c 70 24 2c 72 | 6f 77 25 2c 6c 69 6e 65 |os%,p$,r|ow%,line|
|0000b190| 25 0d 3f d4 1e f2 64 65 | 6c 65 74 65 5f 69 63 6f |%.?...de|lete_ico|
|0000b1a0| 6e 73 28 64 61 74 61 64 | 69 63 57 25 2c 30 29 0d |ns(datad|icW%,0).|
|0000b1b0| 3f de 25 6e 61 6d 65 24 | 3d 74 61 62 6c 65 24 28 |?.%name$|=table$(|
|0000b1c0| 54 25 29 3a 54 61 62 6c | 65 6e 61 6d 65 24 3d 6e |T%):Tabl|ename$=n|
|0000b1d0| 61 6d 65 24 0d 3f e8 13 | c8 8e 20 54 61 62 6c 65 |ame$.?..|.. Table|
|0000b1e0| 6e 61 6d 65 24 20 ca 0d | 3f f2 23 20 20 c9 20 22 |name$ ..|?.#  . "|
|0000b1f0| 43 6c 61 73 73 65 73 22 | 2c 22 54 75 74 6f 72 73 |Classes"|,"Tutors|
|0000b200| 22 2c 22 53 74 61 66 66 | 22 3a 0d 3f fc 2b 20 20 |","Staff|":.?.+  |
|0000b210| f2 6c 69 74 28 6d 65 6e | 75 25 28 32 29 2c 32 2c |.lit(men|u%(2),2,|
|0000b220| b9 29 3a f2 6c 69 74 28 | 6d 65 6e 75 25 28 32 29 |.):.lit(|menu%(2)|
|0000b230| 2c 30 2c a3 29 0d 40 06 | 12 20 20 c9 20 22 53 75 |,0,.).@.|.  . "Su|
|0000b240| 62 6a 65 63 74 22 3a 0d | 40 10 2b 20 20 f2 6c 69 |bject":.|@.+  .li|
|0000b250| 74 28 6d 65 6e 75 25 28 | 32 29 2c 30 2c b9 29 3a |t(menu%(|2),0,.):|
|0000b260| f2 6c 69 74 28 6d 65 6e | 75 25 28 32 29 2c 32 2c |.lit(men|u%(2),2,|
|0000b270| a3 29 0d 40 1a 05 cb 0d | 40 24 43 24 54 61 62 54 |.).@....|@$C$TabT|
|0000b280| 69 74 6c 65 25 3d a4 74 | 61 62 6c 65 5f 69 6e 66 |itle%=.t|able_inf|
|0000b290| 6f 28 54 25 2c 52 6f 77 | 73 25 2c 54 61 62 46 69 |o(T%,Row|s%,TabFi|
|0000b2a0| 65 6c 64 73 25 2c 52 65 | 63 25 2c 74 61 62 66 69 |elds%,Re|c%,tabfi|
|0000b2b0| 65 6c 64 6c 65 6e 25 28 | 29 29 0d 40 2e 35 e7 20 |eldlen%(|)).@.5. |
|0000b2c0| 41 63 63 65 73 73 25 20 | 8c 20 69 66 6c 61 67 73 |Access% |. iflags|
|0000b2d0| 25 3d 26 30 37 30 30 33 | 35 33 31 20 8b 20 69 66 |%=&07003|531 . if|
|0000b2e0| 6c 61 67 73 25 3d 26 30 | 37 30 30 30 35 33 31 0d |lags%=&0|7000531.|
|0000b2f0| 40 38 1c 69 6e 64 25 3d | 21 74 61 62 61 6e 63 68 |@8.ind%=|!tabanch|
|0000b300| 6f 72 25 28 54 25 29 2b | 31 36 30 0d 40 42 15 c8 |or%(T%)+|160.@B..|
|0000b310| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 6e 22 |. "Hourg|lass_On"|
|0000b320| 0d 40 4c 14 e3 20 72 6f | 77 25 3d 31 20 b8 20 52 |.@L.. ro|w%=1 . R|
|0000b330| 6f 77 73 25 0d 40 56 0e | 20 20 6c 69 6e 65 25 2b |ows%.@V.|  line%+|
|0000b340| 3d 31 0d 40 60 0d 20 20 | 70 6f 73 25 3d 38 30 0d |=1.@`.  |pos%=80.|
|0000b350| 40 6a 19 20 20 e3 20 49 | 25 3d 30 20 b8 20 54 61 |@j.  . I|%=0 . Ta|
|0000b360| 62 46 69 65 6c 64 73 25 | 0d 40 74 77 20 20 20 20 |bFields%|.@tw    |
|0000b370| 52 25 3d a4 63 72 65 61 | 74 65 5f 69 63 6f 6e 28 |R%=.crea|te_icon(|
|0000b380| 64 61 74 61 64 69 63 57 | 25 2c 70 6f 73 25 2c 2d |datadicW|%,pos%,-|
|0000b390| 6c 69 6e 65 25 2a 33 36 | 2c 28 74 61 62 66 69 65 |line%*36|,(tabfie|
|0000b3a0| 6c 64 6c 65 6e 25 28 49 | 25 29 2b 31 29 2a 31 36 |ldlen%(I|%)+1)*16|
|0000b3b0| 2c 33 32 2c 69 66 6c 61 | 67 73 25 2c 22 22 2c 69 |,32,ifla|gs%,"",i|
|0000b3c0| 6e 64 25 2c 77 72 69 74 | 65 70 25 2c 74 61 62 66 |nd%,writ|ep%,tabf|
|0000b3d0| 69 65 6c 64 6c 65 6e 25 | 28 49 25 29 2b 31 29 0d |ieldlen%|(I%)+1).|
|0000b3e0| 40 7e 25 20 20 20 20 70 | 6f 73 25 2b 3d 28 74 61 |@~%    p|os%+=(ta|
|0000b3f0| 62 66 69 65 6c 64 6c 65 | 6e 25 28 49 25 29 2b 32 |bfieldle|n%(I%)+2|
|0000b400| 29 2a 31 36 0d 40 88 20 | 20 20 20 20 69 6e 64 25 |)*16.@. |    ind%|
|0000b410| 2b 3d 74 61 62 66 69 65 | 6c 64 6c 65 6e 25 28 49 |+=tabfie|ldlen%(I|
|0000b420| 25 29 2b 31 0d 40 92 0a | 20 20 ed 20 49 25 0d 40 |%)+1.@..|  . I%.@|
|0000b430| 9c 30 20 20 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |.0  .. "|Hourglas|
|0000b440| 73 5f 50 65 72 63 65 6e | 74 61 67 65 22 2c 72 6f |s_Percen|tage",ro|
|0000b450| 77 25 2a 31 30 30 20 81 | 20 52 6f 77 73 25 0d 40 |w%*100 .| Rows%.@|
|0000b460| a6 0a ed 20 72 6f 77 25 | 0d 40 b0 16 c8 99 20 22 |... row%|.@.... "|
|0000b470| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 66 66 22 0d 40 |Hourglas|s_Off".@|
|0000b480| ba 16 77 6d 61 78 25 3d | 28 52 65 63 25 2b 31 30 |..wmax%=|(Rec%+10|
|0000b490| 29 2a 31 36 0d 40 c4 22 | 21 62 6c 6f 63 6b 25 3d |)*16.@."|!block%=|
|0000b4a0| 30 3a 62 6c 6f 63 6b 25 | 21 34 3d 2d 6c 69 6e 65 |0:block%|!4=-line|
|0000b4b0| 25 2a 33 36 2d 34 0d 40 | ce 1e 62 6c 6f 63 6b 25 |%*36-4.@|..block%|
|0000b4c0| 21 38 3d 77 6d 61 78 25 | 3a 62 6c 6f 63 6b 25 21 |!8=wmax%|:block%!|
|0000b4d0| 31 32 3d 30 0d 40 d8 28 | c8 99 20 22 57 69 6d 70 |12=0.@.(|.. "Wimp|
|0000b4e0| 5f 53 65 74 45 78 74 65 | 6e 74 22 2c 64 61 74 61 |_SetExte|nt",data|
|0000b4f0| 64 69 63 57 25 2c 62 6c | 6f 63 6b 25 0d 40 e2 15 |dicW%,bl|ock%.@..|
|0000b500| 21 62 6c 6f 63 6b 25 3d | 64 61 74 61 64 69 63 57 |!block%=|datadicW|
|0000b510| 25 0d 40 ec 24 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%.@.$.. |"Wimp_Ge|
|0000b520| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|0000b530| 6c 6f 63 6b 25 0d 40 f6 | 10 e7 20 6c 69 6e 65 25 |lock%.@.|.. line%|
|0000b540| 3c 32 30 20 8c 0d 41 00 | 23 20 20 62 6c 6f 63 6b |<20 ..A.|#  block|
|0000b550| 25 21 31 36 3d 62 6c 6f | 63 6b 25 21 38 2b 6c 69 |%!16=blo|ck%!8+li|
|0000b560| 6e 65 25 2a 33 36 2b 34 | 0d 41 0a 07 20 20 cc 0d |ne%*36+4|.A..  ..|
|0000b570| 41 14 20 20 20 62 6c 6f | 63 6b 25 21 31 36 3d 62 |A.   blo|ck%!16=b|
|0000b580| 6c 6f 63 6b 25 21 38 2b | 33 36 2a 32 30 2b 34 0d |lock%!8+|36*20+4.|
|0000b590| 41 1e 05 cd 0d 41 28 20 | c8 99 20 22 57 69 6d 70 |A....A( |.. "Wimp|
|0000b5a0| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 6c |_OpenWin|dow",,bl|
|0000b5b0| 6f 63 6b 25 0d 41 32 16 | f2 72 65 64 72 61 77 28 |ock%.A2.|.redraw(|
|0000b5c0| 64 61 74 61 64 69 63 57 | 25 29 0d 41 3c 27 e7 20 |datadicW|%).A<'. |
|0000b5d0| 41 63 63 65 73 73 25 20 | 8c 20 f2 73 65 74 5f 63 |Access% |. .set_c|
|0000b5e0| 61 72 65 74 28 64 61 74 | 61 64 69 63 57 25 2c 30 |aret(dat|adicW%,0|
|0000b5f0| 29 0d 41 46 05 e1 0d 41 | 50 05 3a 0d 41 5a 15 dd |).AF...A|P.:.AZ..|
|0000b600| 20 a4 74 61 62 6c 65 5f | 6e 61 6d 65 28 54 25 29 | .table_|name(T%)|
|0000b610| 0d 41 64 2c e7 20 54 25 | 3c 3d 4c 61 73 74 54 61 |.Ad,. T%|<=LastTa|
|0000b620| 62 6c 65 25 20 8c 3d 24 | 21 74 61 62 61 6e 63 68 |ble% .=$|!tabanch|
|0000b630| 6f 72 25 28 54 25 29 20 | 8b 3d 22 22 0d 41 6e 05 |or%(T%) |.="".An.|
|0000b640| 3a 0d 41 78 17 dd 20 a4 | 74 61 62 6c 65 5f 6e 75 |:.Ax.. .|table_nu|
|0000b650| 6d 62 65 72 28 4e 24 29 | 0d 41 82 0b ea 20 54 25 |mber(N$)|.A... T%|
|0000b660| 2c 50 25 0d 41 8c 10 e7 | 20 4e 24 3d 22 22 20 8c |,P%.A...| N$="" .|
|0000b670| 3d 2d 31 0d 41 96 09 54 | 25 3d 2d 31 0d 41 a0 05 |=-1.A..T|%=-1.A..|
|0000b680| f5 0d 41 aa 0b 20 20 54 | 25 2b 3d 31 0d 41 b4 23 |..A..  T|%+=1.A.#|
|0000b690| fd 20 74 61 62 6c 65 24 | 28 54 25 29 3d 4e 24 20 |. table$|(T%)=N$ |
|0000b6a0| 84 20 54 25 3e 4c 61 73 | 74 54 61 62 6c 65 25 0d |. T%>Las|tTable%.|
|0000b6b0| 41 be 1d e7 20 54 25 3e | 4c 61 73 74 54 61 62 6c |A... T%>|LastTabl|
|0000b6c0| 65 25 20 8c 3d 2d 31 20 | 8b 3d 54 25 0d 41 c8 05 |e% .=-1 |.=T%.A..|
|0000b6d0| 3a 0d 41 d2 2a dd 20 a4 | 74 61 62 6c 65 5f 69 6e |:.A.*. .|table_in|
|0000b6e0| 66 6f 28 54 25 2c f8 20 | 52 25 2c f8 20 46 25 2c |fo(T%,. |R%,. F%,|
|0000b6f0| f8 20 52 4c 25 2c 4c 25 | 28 29 29 0d 41 dc 0b ea |. RL%,L%|()).A...|
|0000b700| 20 50 25 2c 49 25 0d 41 | e6 16 50 25 3d 21 74 61 | P%,I%.A|..P%=!ta|
|0000b710| 62 61 6e 63 68 6f 72 25 | 28 54 25 29 0d 41 f0 1a |banchor%|(T%).A..|
|0000b720| 52 25 3d bb 28 24 50 25 | 29 3a 50 25 2b 3d a9 28 |R%=.($P%|):P%+=.(|
|0000b730| 24 50 25 29 2b 31 0d 41 | fa 1a 46 25 3d bb 28 24 |$P%)+1.A|..F%=.($|
|0000b740| 50 25 29 3a 50 25 2b 3d | a9 28 24 50 25 29 2b 31 |P%):P%+=|.($P%)+1|
|0000b750| 0d 42 04 09 52 4c 25 3d | 30 0d 42 0e 0f e3 20 49 |.B..RL%=|0.B... I|
|0000b760| 25 3d 30 20 b8 20 46 25 | 0d 42 18 20 20 20 4c 25 |%=0 . F%|.B.   L%|
|0000b770| 28 49 25 29 3d bb 28 24 | 50 25 29 3a 50 25 2b 3d |(I%)=.($|P%):P%+=|
|0000b780| a9 28 24 50 25 29 2b 31 | 0d 42 22 13 20 20 52 4c |.($P%)+1|.B".  RL|
|0000b790| 25 2b 3d 4c 25 28 49 25 | 29 2b 31 0d 42 2c 08 ed |%+=L%(I%|)+1.B,..|
|0000b7a0| 20 49 25 0d 42 36 08 3d | 24 50 25 0d 42 40 05 3a | I%.B6.=|$P%.B@.:|
|0000b7b0| 0d 42 4a 1b dd 20 a4 74 | 61 62 6c 65 5f 66 69 65 |.BJ.. .t|able_fie|
|0000b7c0| 6c 64 28 46 25 2c 4c 25 | 28 29 29 0d 42 54 10 ea |ld(F%,L%|()).BT..|
|0000b7d0| 20 49 25 2c 50 25 3a 49 | 25 3d 31 0d 42 5e 0c c8 | I%,P%:I|%=1.B^..|
|0000b7e0| 95 20 49 25 3c 46 25 0d | 42 68 12 20 20 50 25 2b |. I%<F%.|Bh.  P%+|
|0000b7f0| 3d 4c 25 28 49 25 29 2b | 31 0d 42 72 0b 20 20 49 |=L%(I%)+|1.Br.  I|
|0000b800| 25 2b 3d 31 0d 42 7c 05 | ce 0d 42 86 07 3d 50 25 |%+=1.B|.|..B..=P%|
|0000b810| 0d 42 90 05 3a 0d 42 9a | 27 dd 20 a4 65 78 70 61 |.B..:.B.|'. .expa|
|0000b820| 6e 64 28 73 74 72 69 6e | 67 24 2c 74 61 62 6c 65 |nd(strin|g$,table|
|0000b830| 24 2c f8 20 45 78 70 4c | 65 6e 25 29 0d 42 a4 47 |$,. ExpL|en%).B.G|
|0000b840| ea 20 52 65 63 25 2c 54 | 24 2c 73 24 2c 73 74 61 |. Rec%,T|$,s$,sta|
|0000b850| 72 74 25 2c 46 25 2c 49 | 25 2c 54 25 2c 69 6e 64 |rt%,F%,I|%,T%,ind|
|0000b860| 25 2c 72 6f 77 25 2c 52 | 6f 77 73 25 2c 54 61 62 |%,row%,R|ows%,Tab|
|0000b870| 46 69 65 6c 64 73 25 2c | 66 69 65 6c 64 25 2c 70 |Fields%,|field%,p|
|0000b880| 6f 73 25 0d 42 ae 39 e7 | 20 74 61 62 6c 65 24 3d |os%.B.9.| table$=|
|0000b890| 22 22 20 8c 20 45 78 70 | 4c 65 6e 25 3d 30 3a 3d |"" . Exp|Len%=0:=|
|0000b8a0| 73 74 72 69 6e 67 24 3a | f4 20 23 23 23 20 4e 6f |string$:|. ### No|
|0000b8b0| 74 20 6c 69 6e 6b 65 64 | 20 23 23 23 0d 42 b8 26 |t linked| ###.B.&|
|0000b8c0| 66 69 65 6c 64 25 3d bb | 28 c2 74 61 62 6c 65 24 |field%=.|(.table$|
|0000b8d0| 29 29 3a 74 61 62 6c 65 | 24 3d c0 74 61 62 6c 65 |)):table|$=.table|
|0000b8e0| 24 29 0d 42 c2 1c 54 25 | 3d a4 74 61 62 6c 65 5f |$).B..T%|=.table_|
|0000b8f0| 6e 75 6d 62 65 72 28 74 | 61 62 6c 65 24 29 0d 42 |number(t|able$).B|
|0000b900| cc 39 e7 20 54 25 3c 30 | 20 8c 20 45 78 70 4c 65 |.9. T%<0| . ExpLe|
|0000b910| 6e 25 3d 30 3a 3d 73 74 | 72 69 6e 67 24 3a f4 20 |n%=0:=st|ring$:. |
|0000b920| 23 23 23 20 54 61 62 6c | 65 20 6e 6f 74 20 66 6f |### Tabl|e not fo|
|0000b930| 75 6e 64 20 23 23 23 0d | 42 d6 3b 54 24 3d a4 74 |und ###.|B.;T$=.t|
|0000b940| 61 62 6c 65 5f 69 6e 66 | 6f 28 54 25 2c 52 6f 77 |able_inf|o(T%,Row|
|0000b950| 73 25 2c 54 61 62 46 69 | 65 6c 64 73 25 2c 52 65 |s%,TabFi|elds%,Re|
|0000b960| 63 25 2c 74 61 62 66 69 | 65 6c 64 6c 65 6e 25 28 |c%,tabfi|eldlen%(|
|0000b970| 29 29 0d 42 e0 2c 70 6f | 73 25 3d a4 74 61 62 6c |)).B.,po|s%=.tabl|
|0000b980| 65 5f 66 69 65 6c 64 28 | 66 69 65 6c 64 25 2c 74 |e_field(|field%,t|
|0000b990| 61 62 66 69 65 6c 64 6c | 65 6e 25 28 29 29 0d 42 |abfieldl|en%()).B|
|0000b9a0| ea 23 73 74 61 72 74 25 | 3d 21 74 61 62 61 6e 63 |.#start%|=!tabanc|
|0000b9b0| 68 6f 72 25 28 54 25 29 | 2b 31 36 30 2d 52 65 63 |hor%(T%)|+160-Rec|
|0000b9c0| 25 0d 42 f4 0d f5 20 72 | 6f 77 25 2b 3d 31 0d 42 |%.B... r|ow%+=1.B|
|0000b9d0| fe 20 20 20 69 6e 64 25 | 3d 73 74 61 72 74 25 2b |.   ind%|=start%+|
|0000b9e0| 72 6f 77 25 2a 52 65 63 | 25 2b 70 6f 73 25 0d 43 |row%*Rec|%+pos%.C|
|0000b9f0| 08 20 fd 20 72 6f 77 25 | 3e 52 6f 77 73 25 20 84 |. . row%|>Rows% .|
|0000ba00| 20 24 69 6e 64 25 3d 73 | 74 72 69 6e 67 24 0d 43 | $ind%=s|tring$.C|
|0000ba10| 12 37 e7 20 72 6f 77 25 | 3e 52 6f 77 73 25 20 8c |.7. row%|>Rows% .|
|0000ba20| 3d 73 74 72 69 6e 67 24 | 3a f4 20 23 23 20 53 74 |=string$|:. ## St|
|0000ba30| 72 69 6e 67 20 6e 6f 74 | 20 69 6e 20 74 61 62 6c |ring not| in tabl|
|0000ba40| 65 20 23 23 23 0d 43 1c | 19 69 6e 64 25 3d 73 74 |e ###.C.|.ind%=st|
|0000ba50| 61 72 74 25 2b 72 6f 77 | 25 2a 52 65 63 25 0d 43 |art%+row|%*Rec%.C|
|0000ba60| 26 3f 69 6e 64 25 2b 3d | 74 61 62 66 69 65 6c 64 |&?ind%+=|tabfield|
|0000ba70| 6c 65 6e 25 28 30 29 2b | 31 3a 73 24 3d 24 69 6e |len%(0)+|1:s$=$in|
|0000ba80| 64 25 3a f4 20 23 23 23 | 20 52 65 74 75 72 6e 20 |d%:. ###| Return |
|0000ba90| 32 6e 64 20 66 69 65 6c | 64 20 23 23 23 0d 43 30 |2nd fiel|d ###.C0|
|0000baa0| 07 3d 73 24 0d 43 3a 05 | 3a 0d 43 44 11 dd 20 a4 |.=s$.C:.|:.CD.. .|
|0000bab0| 70 61 64 28 73 24 2c 4c | 25 29 0d 43 4e 0f c8 95 |pad(s$,L|%).CN...|
|0000bac0| 20 a9 28 73 24 29 3c 4c | 25 0d 43 58 0d 20 20 73 | .(s$)<L|%.CX.  s|
|0000bad0| 24 2b 3d 22 20 22 0d 43 | 62 05 ce 0d 43 6c 07 3d |$+=" ".C|b...Cl.=|
|0000bae0| 73 24 0d 43 76 05 3a 0d | 43 80 4c f4 20 2d 2d 2d |s$.Cv.:.|C.L. ---|
|0000baf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 45 6e 64 20 6f |--------|-- End o|
|0000bb00| 66 20 56 61 6c 69 64 61 | 74 69 6f 6e 20 74 61 62 |f Valida|tion tab|
|0000bb10| 6c 65 20 68 61 6e 64 6c | 69 6e 67 20 2d 2d 2d 2d |le handl|ing ----|
|0000bb20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000bb30| 2d 2d 2d 0d 43 8a 05 3a | 0d 43 94 05 3a 0d 43 9e |---.C..:|.C..:.C.|
|0000bb40| 05 3a 0d 43 a8 4c f4 20 | 2d 2d 2d 2d 2d 2d 2d 2d |.:.C.L. |--------|
|0000bb50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 49 6e |--------|----- In|
|0000bb60| 64 65 78 20 68 61 6e 64 | 6c 69 6e 67 20 2d 2d 2d |dex hand|ling ---|
|0000bb70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000bb80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 43 |--------|------.C|
|0000bb90| b2 05 3a 0d 43 bc 14 dd | 20 a4 66 69 6e 64 28 53 |..:.C...| .find(S|
|0000bba0| 24 2c 6b 65 79 25 29 0d | 43 c6 11 ea 20 50 25 2c |$,key%).|C... P%,|
|0000bbb0| 46 25 2c 49 25 2c 48 25 | 0d 43 d0 0d 53 24 3d a4 |F%,I%,H%|.C..S$=.|
|0000bbc0| 75 28 53 24 29 0d 43 da | 0c 49 25 3d 66 69 6c 65 |u(S$).C.|.I%=file|
|0000bbd0| 25 0d 43 e4 0b 76 61 6c | 24 3d 22 22 0d 43 ee 0f |%.C..val|$="".C..|
|0000bbe0| 50 25 3d a7 53 24 2c 22 | 20 22 29 0d 43 f8 19 e7 |P%=.S$,"| ").C...|
|0000bbf0| 20 50 25 3e 30 20 8c 20 | 53 24 3d c0 53 24 2c 50 | P%>0 . |S$=.S$,P|
|0000bc00| 25 2d 31 29 0d 44 02 0d | 6b 6c 25 3d a9 28 53 24 |%-1).D..|kl%=.(S$|
|0000bc10| 29 0d 44 0c 10 74 6f 70 | 3d 38 2a 49 25 2b 4c 48 |).D..top|=8*I%+LH|
|0000bc20| 25 0d 44 16 19 50 25 3d | a4 73 65 61 72 63 68 28 |%.D..P%=|.search(|
|0000bc30| 53 24 2c 6b 65 79 25 2c | 31 29 0d 44 20 07 3d 50 |S$,key%,|1).D .=P|
|0000bc40| 25 0d 44 2a 05 3a 0d 44 | 34 1f dd 20 a4 6e 65 69 |%.D*.:.D|4.. .nei|
|0000bc50| 67 68 62 6f 75 72 28 6b | 65 79 25 2c 61 64 64 72 |ghbour(k|ey%,addr|
|0000bc60| 25 2c 64 25 29 0d 44 3e | 17 ea 20 52 25 2c 53 25 |%,d%).D>|.. R%,S%|
|0000bc70| 2c 70 25 2c 6b 65 79 62 | 61 73 65 25 0d 44 48 18 |,p%,keyb|ase%.DH.|
|0000bc80| 6b 65 79 62 61 73 65 25 | 3d 21 6b 65 79 61 6e 63 |keybase%|=!keyanc|
|0000bc90| 68 6f 72 25 0d 44 52 0b | 70 25 3d 64 25 2a 34 0d |hor%.DR.|p%=d%*4.|
|0000bca0| 44 5c 1b 52 25 3d 21 28 | 6b 65 79 62 61 73 65 25 |D\.R%=!(|keybase%|
|0000bcb0| 2b 61 64 64 72 25 2b 70 | 25 29 0d 44 66 11 e7 20 |+addr%+p|%).Df.. |
|0000bcc0| 52 25 3c 30 20 8c 20 3d | 2d 52 25 0d 44 70 0b 70 |R%<0 . =|-R%.Dp.p|
|0000bcd0| 25 3d 34 2d 70 25 0d 44 | 7a 05 f5 0d 44 84 0e 20 |%=4-p%.D|z...D.. |
|0000bce0| 20 61 64 64 72 25 3d 52 | 25 0d 44 8e 1d 20 20 53 | addr%=R|%.D..  S|
|0000bcf0| 25 3d 21 28 6b 65 79 62 | 61 73 65 25 2b 61 64 64 |%=!(keyb|ase%+add|
|0000bd00| 72 25 2b 70 25 29 0d 44 | 98 14 20 20 e7 20 53 25 |r%+p%).D|..  . S%|
|0000bd10| 3e 30 20 8c 20 52 25 3d | 53 25 0d 44 a2 0b fd 20 |>0 . R%=|S%.D... |
|0000bd20| 53 25 3c 3d 30 0d 44 ac | 07 3d 52 25 0d 44 b6 05 |S%<=0.D.|.=R%.D..|
|0000bd30| 3a 0d 44 c0 17 dd 20 a4 | 63 6f 75 6e 74 5f 72 65 |:.D... .|count_re|
|0000bd40| 63 73 28 6b 65 79 25 29 | 0d 44 ca 0f ea 20 50 25 |cs(key%)|.D... P%|
|0000bd50| 2c 63 6f 75 6e 74 25 0d | 44 d4 15 c8 99 20 22 48 |,count%.|D.... "H|
|0000bd60| 6f 75 72 67 6c 61 73 73 | 5f 4f 6e 22 0d 44 de 1d |ourglass|_On".D..|
|0000bd70| 50 25 3d a4 6e 65 69 67 | 68 62 6f 75 72 28 6b 65 |P%=.neig|hbour(ke|
|0000bd80| 79 25 2c 74 6f 70 2c 31 | 29 0d 44 e8 0e c8 95 20 |y%,top,1|).D.... |
|0000bd90| 50 25 3c 3e 74 6f 70 0d | 44 f2 0f 20 20 63 6f 75 |P%<>top.|D..  cou|
|0000bda0| 6e 74 25 2b 3d 31 0d 44 | fc 1e 20 20 50 25 3d a4 |nt%+=1.D|..  P%=.|
|0000bdb0| 6e 65 69 67 68 62 6f 75 | 72 28 6b 65 79 25 2c 50 |neighbou|r(key%,P|
|0000bdc0| 25 2c 31 29 0d 45 06 05 | ce 0d 45 10 16 c8 99 20 |%,1).E..|..E.... |
|0000bdd0| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 66 66 22 0d |"Hourgla|ss_Off".|
|0000bde0| 45 1a 0b 3d 63 6f 75 6e | 74 25 0d 45 24 05 3a 0d |E..=coun|t%.E$.:.|
|0000bdf0| 45 2e 3c dd 20 a4 72 65 | 63 5f 6e 6f 28 6b 65 79 |E.<. .re|c_no(key|
|0000be00| 25 2c 61 64 64 72 25 29 | 3d 21 28 21 6b 65 79 61 |%,addr%)|=!(!keya|
|0000be10| 6e 63 68 6f 72 25 2b 61 | 64 64 72 25 2b 38 2b 4b |nchor%+a|ddr%+8+K|
|0000be20| 4c 25 28 6b 65 79 25 29 | 2b 31 29 0d 45 38 05 3a |L%(key%)|+1).E8.:|
|0000be30| 0d 45 42 19 dd 20 a4 73 | 65 61 72 63 68 28 53 24 |.EB.. .s|earch(S$|
|0000be40| 2c 6b 65 79 25 2c 4d 25 | 29 0d 45 4c 1e ea 20 50 |,key%,M%|).EL.. P|
|0000be50| 25 2c 66 6f 75 6e 64 25 | 2c 69 6e 66 6f 24 2c 6b |%,found%|,info$,k|
|0000be60| 65 79 62 61 73 65 25 0d | 45 56 18 6b 65 79 62 61 |eybase%.|EV.keyba|
|0000be70| 73 65 25 3d 21 6b 65 79 | 61 6e 63 68 6f 72 25 0d |se%=!key|anchor%.|
|0000be80| 45 60 0f 5a 25 3d 30 3a | 50 25 3d 74 6f 70 0d 45 |E`.Z%=0:|P%=top.E|
|0000be90| 6a 05 f5 0d 45 74 0b 20 | 20 4c 25 3d 50 25 0d 45 |j...Et. | L%=P%.E|
|0000bea0| 7e 1a 20 20 50 25 3d 21 | 28 6b 65 79 62 61 73 65 |~.  P%=!|(keybase|
|0000beb0| 25 2b 4c 25 2b 5a 25 29 | 0d 45 88 16 e7 20 50 25 |%+L%+Z%)|.E... P%|
|0000bec0| 3c 3d 30 20 8c 20 fd 20 | b9 3a 3d 2d 4c 25 0d 45 |<=0 . . |.:=-L%.E|
|0000bed0| 92 1a 69 6e 66 6f 24 3d | 24 28 6b 65 79 62 61 73 |..info$=|$(keybas|
|0000bee0| 65 25 2b 50 25 2b 38 29 | 0d 45 9c 19 72 65 63 25 |e%+P%+8)|.E..rec%|
|0000bef0| 3d a4 72 65 63 5f 6e 6f | 28 6b 65 79 25 2c 50 25 |=.rec_no|(key%,P%|
|0000bf00| 29 0d 45 a6 38 e7 20 a0 | 28 76 61 6c 24 2b 22 28 |).E.8. .|(val$+"(|
|0000bf10| 53 24 29 3d 22 2b 76 61 | 6c 24 2b 22 4c 45 46 54 |S$)="+va|l$+"LEFT|
|0000bf20| 24 28 69 6e 66 6f 24 2c | 6b 6c 25 29 22 29 20 8c |$(info$,|kl%)") .|
|0000bf30| 20 66 6f 75 6e 64 25 3d | b9 0d 45 b0 2e e7 20 66 | found%=|..E... f|
|0000bf40| 6f 75 6e 64 25 3d b9 20 | 80 20 28 4d 25 3d 31 20 |ound%=. |. (M%=1 |
|0000bf50| 84 20 28 4d 25 3d 32 20 | 80 20 72 65 63 25 3d 52 |. (M%=2 |. rec%=R|
|0000bf60| 45 43 25 29 29 20 8c 0d | 45 ba 07 20 20 cc 0d 45 |EC%)) ..|E..  ..E|
|0000bf70| c4 0e 20 20 66 6f 75 6e | 64 25 3d a3 0d 45 ce 2b |..  foun|d%=..E.+|
|0000bf80| 20 20 5a 25 3d 2d a0 28 | 76 61 6c 24 2b 22 28 53 |  Z%=-.(|val$+"(S|
|0000bf90| 24 29 3e 3d 22 2b 76 61 | 6c 24 2b 22 28 69 6e 66 |$)>="+va|l$+"(inf|
|0000bfa0| 6f 24 29 22 29 2a 34 0d | 45 d8 05 cd 0d 45 e2 13 |o$)")*4.|E....E..|
|0000bfb0| fd 20 66 6f 75 6e 64 25 | 20 80 20 4d 25 3e 30 0d |. found%| . M%>0.|
|0000bfc0| 45 ec 16 e7 20 4d 25 3d | 31 20 8c 20 52 45 43 25 |E... M%=|1 . REC%|
|0000bfd0| 3d 72 65 63 25 0d 45 f6 | 07 3d 50 25 0d 46 00 05 |=rec%.E.|.=P%.F..|
|0000bfe0| 3a 0d 46 0a 11 dd 20 a4 | 6b 65 79 28 6e 61 6d 65 |:.F... .|key(name|
|0000bff0| 24 29 0d 46 14 0b ea 20 | 50 25 2c 49 24 0d 46 1e |$).F... |P%,I$.F.|
|0000c000| 12 50 25 3d a7 6e 61 6d | 65 24 2c 22 20 22 29 0d |.P%=.nam|e$," ").|
|0000c010| 46 28 1e e7 20 50 25 3e | 30 20 8c 20 49 24 3d c1 |F(.. P%>|0 . I$=.|
|0000c020| 6e 61 6d 65 24 2c 50 25 | 2b 31 2c 31 29 0d 46 32 |name$,P%|+1,1).F2|
|0000c030| 15 3d a4 75 28 c0 6e 61 | 6d 65 24 2c 34 29 2b 49 |.=.u(.na|me$,4)+I|
|0000c040| 24 29 0d 46 3c 05 3a 0d | 46 46 0c dd 20 a4 75 28 |$).F<.:.|FF.. .u(|
|0000c050| 4e 24 29 0d 46 50 0b ea | 20 49 25 2c 42 25 0d 46 |N$).FP..| I%,B%.F|
|0000c060| 5a 0b 24 6b 65 79 3d 4e | 24 0d 46 64 14 e3 20 49 |Z.$key=N|$.Fd.. I|
|0000c070| 25 3d 30 20 b8 20 a9 28 | 4e 24 29 2d 31 0d 46 6e |%=0 . .(|N$)-1.Fn|
|0000c080| 0f 20 20 42 25 3d 6b 65 | 79 3f 49 25 0d 46 78 28 |.  B%=ke|y?I%.Fx(|
|0000c090| 20 20 e7 20 42 25 3e 39 | 36 20 80 20 42 25 3c 31 |  . B%>9|6 . B%<1|
|0000c0a0| 32 33 20 8c 20 6b 65 79 | 3f 49 25 3d 42 25 20 80 |23 . key|?I%=B% .|
|0000c0b0| 20 32 32 33 0d 46 82 08 | ed 20 49 25 0d 46 8c 09 | 223.F..|. I%.F..|
|0000c0c0| 3d 24 6b 65 79 0d 46 96 | 05 3a 0d 46 a0 47 f4 20 |=$key.F.|.:.F.G. |
|0000c0d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000c0e0| 2d 2d 2d 2d 20 45 6e 64 | 20 6f 66 20 49 6e 64 65 |---- End| of Inde|
|0000c0f0| 78 20 68 61 6e 64 6c 69 | 6e 67 20 2d 2d 2d 2d 2d |x handli|ng -----|
|0000c100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000c110| 2d 0d 46 aa 05 3a 0d 46 | b4 05 3a 0d 46 be 05 3a |-.F..:.F|..:.F..:|
|0000c120| 0d 46 c8 47 f4 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.F.G. --|--------|
|0000c130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 4d 69 73 63 65 |--------|-- Misce|
|0000c140| 6c 6c 61 6e 65 6f 75 73 | 20 72 6f 75 74 69 6e 65 |llaneous| routine|
|0000c150| 73 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |s ------|--------|
|0000c160| 2d 2d 2d 2d 2d 2d 2d 0d | 46 d2 05 3a 0d 46 dc 15 |-------.|F..:.F..|
|0000c170| dd 20 a4 73 75 62 5f 6e | 75 6d 62 65 72 28 53 24 |. .sub_n|umber(S$|
|0000c180| 29 0d 46 e6 0f ea 20 72 | 6f 77 25 2c 69 6e 64 25 |).F... r|ow%,ind%|
|0000c190| 0d 46 f0 0d f5 20 72 6f | 77 25 2b 3d 31 0d 46 fa |.F... ro|w%+=1.F.|
|0000c1a0| 1b 20 20 69 6e 64 25 3d | 73 74 61 72 74 25 2b 72 |.  ind%=|start%+r|
|0000c1b0| 6f 77 25 2a 52 65 63 25 | 0d 47 04 1b fd 20 72 6f |ow%*Rec%|.G... ro|
|0000c1c0| 77 25 3e 52 6f 77 73 25 | 20 84 20 53 24 3d 24 69 |w%>Rows%| . S$=$i|
|0000c1d0| 6e 64 25 0d 47 0e 1b e7 | 20 72 6f 77 25 3e 52 6f |nd%.G...| row%>Ro|
|0000c1e0| 77 73 25 20 8c 3d 30 20 | 8b 3d 72 6f 77 25 0d 47 |ws% .=0 |.=row%.G|
|0000c1f0| 18 05 3a 0d 47 22 15 dd | 20 a4 74 75 74 5f 6e 75 |..:.G"..| .tut_nu|
|0000c200| 6d 62 65 72 28 54 24 29 | 0d 47 2c 08 ea 20 54 25 |mber(T$)|.G,.. T%|
|0000c210| 0d 47 36 0e e7 20 54 24 | 3c 3e 22 22 20 8c 0d 47 |.G6.. T$|<>"" ..G|
|0000c220| 40 11 20 20 54 25 3d 4e | 74 75 74 73 25 2b 31 0d |@.  T%=N|tuts%+1.|
|0000c230| 47 4a 07 20 20 f5 0d 47 | 54 0d 20 20 20 20 54 25 |GJ.  ..G|T.    T%|
|0000c240| 2d 3d 31 0d 47 5e 1e 20 | 20 fd 20 74 75 74 6f 72 |-=1.G^. | . tutor|
|0000c250| 24 28 54 25 2c 30 29 3d | 54 24 20 84 20 54 25 3d |$(T%,0)=|T$ . T%=|
|0000c260| 30 0d 47 68 05 cd 0d 47 | 72 07 3d 54 25 0d 47 7c |0.Gh...G|r.=T%.G||
|0000c270| 05 3a 0d 47 86 14 dd 20 | f2 6e 6f 74 69 66 79 28 |.:.G... |.notify(|
|0000c280| 6d 65 73 73 24 29 0d 47 | 90 12 24 4e 6f 74 69 66 |mess$).G|..$Notif|
|0000c290| 79 25 3d 6d 65 73 73 24 | 0d 47 9a 1a f2 6f 70 65 |y%=mess$|.G...ope|
|0000c2a0| 6e 5f 77 69 6e 64 6f 77 | 28 6e 6f 74 69 66 79 57 |n_window|(notifyW|
|0000c2b0| 25 29 0d 47 a4 15 f2 70 | 6f 6c 6c 3a f2 70 6f 6c |%).G...p|oll:.pol|
|0000c2c0| 6c 3a f2 70 6f 6c 6c 0d | 47 ae 10 c8 97 20 b8 20 |l:.poll.|G.... . |
|0000c2d0| 36 34 30 2c 36 30 30 0d | 47 b8 05 e1 0d 47 c2 05 |640,600.|G....G..|
|0000c2e0| 3a 0d 47 cc 11 dd 20 f2 | 72 65 61 64 28 52 45 43 |:.G... .|read(REC|
|0000c2f0| 25 29 0d 47 d6 0b ea 20 | 6c 6f 6f 70 25 0d 47 e0 |%).G... |loop%.G.|
|0000c300| 1f cf 23 64 62 61 73 65 | 68 61 6e 64 6c 65 25 3d |..#dbase|handle%=|
|0000c310| 52 45 43 25 2a 4c 65 6e | 67 74 68 25 0d 47 ea 17 |REC%*Len|gth%.G..|
|0000c320| e3 20 6c 6f 6f 70 25 3d | 31 20 b8 20 66 69 65 6c |. loop%=|1 . fiel|
|0000c330| 64 73 25 0d 47 f4 1e 20 | 20 46 24 28 6c 6f 6f 70 |ds%.G.. | F$(loop|
|0000c340| 25 29 3d be 23 64 62 61 | 73 65 68 61 6e 64 6c 65 |%)=.#dba|sehandle|
|0000c350| 25 0d 47 fe 0b ed 20 6c | 6f 6f 70 25 0d 48 08 05 |%.G... l|oop%.H..|
|0000c360| e1 0d 48 12 05 3a 0d 48 | 1c 12 dd 20 f2 77 72 69 |..H..:.H|... .wri|
|0000c370| 74 65 28 52 45 43 25 29 | 0d 48 26 0b ea 20 6c 6f |te(REC%)|.H&.. lo|
|0000c380| 6f 70 25 0d 48 30 1f cf | 23 64 62 61 73 65 68 61 |op%.H0..|#dbaseha|
|0000c390| 6e 64 6c 65 25 3d 52 45 | 43 25 2a 4c 65 6e 67 74 |ndle%=RE|C%*Lengt|
|0000c3a0| 68 25 0d 48 3a 17 e3 20 | 6c 6f 6f 70 25 3d 31 20 |h%.H:.. |loop%=1 |
|0000c3b0| b8 20 66 69 65 6c 64 73 | 25 0d 48 44 1e 20 20 d5 |. fields|%.HD.  .|
|0000c3c0| 23 64 62 61 73 65 68 61 | 6e 64 6c 65 25 2c 46 24 |#dbaseha|ndle%,F$|
|0000c3d0| 28 6c 6f 6f 70 25 29 0d | 48 4e 0b ed 20 6c 6f 6f |(loop%).|HN.. loo|
|0000c3e0| 70 25 0d 48 58 05 e1 0d | 48 62 05 3a 0d 48 6c 16 |p%.HX...|Hb.:.Hl.|
|0000c3f0| dd 20 a4 73 74 72 69 70 | 73 70 61 63 65 73 28 73 |. .strip|spaces(s|
|0000c400| 24 29 0d 48 76 28 e7 20 | c2 73 24 29 3d 22 20 22 |$).Hv(. |.s$)=" "|
|0000c410| 20 8c 3d a4 73 74 72 69 | 70 73 70 61 63 65 73 28 | .=.stri|pspaces(|
|0000c420| c0 73 24 29 29 20 8b 3d | 73 24 0d 48 80 05 3a 0d |.s$)) .=|s$.H..:.|
|0000c430| 48 8a 11 dd 20 a4 67 65 | 74 73 74 72 28 70 25 29 |H... .ge|tstr(p%)|
|0000c440| 0d 48 94 08 ea 20 70 24 | 0d 48 9e 0d c8 95 20 3f |.H... p$|.H.... ?|
|0000c450| 70 25 3e 33 31 0d 48 a8 | 10 20 20 70 24 2b 3d bd |p%>31.H.|.  p$+=.|
|0000c460| 28 3f 70 25 29 0d 48 b2 | 0b 20 20 70 25 2b 3d 31 |(?p%).H.|.  p%+=1|
|0000c470| 0d 48 bc 05 ce 0d 48 c6 | 07 3d 70 24 0d 48 d0 05 |.H....H.|.=p$.H..|
|0000c480| 3a 0d 48 da 17 dd 20 a4 | 63 6f 6e 66 69 72 6d 28 |:.H... .|confirm(|
|0000c490| 73 74 72 69 6e 67 24 29 | 0d 48 e4 0f 21 62 6c 6f |string$)|.H..!blo|
|0000c4a0| 63 6b 25 3d 32 35 35 0d | 48 ee 17 24 28 62 6c 6f |ck%=255.|H..$(blo|
|0000c4b0| 63 6b 25 2b 34 29 3d 73 | 74 72 69 6e 67 24 0d 48 |ck%+4)=s|tring$.H|
|0000c4c0| f8 59 c8 99 20 22 57 69 | 6d 70 5f 52 65 70 6f 72 |.Y.. "Wi|mp_Repor|
|0000c4d0| 74 45 72 72 6f 72 22 2c | 62 6c 6f 63 6b 25 2c 28 |tError",|block%,(|
|0000c4e0| 31 3c 3c 30 29 2b 28 31 | 3c 3c 31 29 2b 28 31 3c |1<<0)+(1|<<1)+(1<|
|0000c4f0| 3c 34 29 2c 22 42 6c 6f | 63 6b 3a 20 70 6c 65 61 |<4),"Blo|ck: plea|
|0000c500| 73 65 20 63 6f 6e 66 69 | 72 6d 3a 22 20 b8 20 2c |se confi|rm:" . ,|
|0000c510| 72 65 73 75 6c 74 25 0d | 49 02 0e 3d 72 65 73 75 |result%.|I..=resu|
|0000c520| 6c 74 25 3d 31 0d 49 0c | 05 3a 0d 49 16 2c dd 20 |lt%=1.I.|.:.I.,. |
|0000c530| f2 67 65 74 73 63 72 65 | 65 6e 73 69 7a 65 28 f8 |.getscre|ensize(.|
|0000c540| 20 53 5f 57 69 64 74 68 | 25 2c f8 20 53 5f 48 65 | S_Width|%,. S_He|
|0000c550| 69 67 68 74 25 29 0d 49 | 20 0a ea 20 45 6e 64 25 |ight%).I| .. End%|
|0000c560| 0d 49 2a 24 48 31 25 3d | 30 3a 56 31 25 3d 34 3a |.I*$H1%=|0:V1%=4:|
|0000c570| 48 32 25 3d 38 3a 56 32 | 25 3d 31 32 3a 45 6e 64 |H2%=8:V2|%=12:End|
|0000c580| 25 3d 31 36 0d 49 34 39 | 4d 69 25 21 48 31 25 3d |%=16.I49|Mi%!H1%=|
|0000c590| 34 3a 4d 69 25 21 56 31 | 25 3d 35 3a 4d 69 25 21 |4:Mi%!V1|%=5:Mi%!|
|0000c5a0| 48 32 25 3d 31 31 3a 4d | 69 25 21 56 32 25 3d 31 |H2%=11:M|i%!V2%=1|
|0000c5b0| 32 3a 4d 69 25 21 45 6e | 64 25 3d 2d 31 0d 49 3e |2:Mi%!En|d%=-1.I>|
|0000c5c0| 24 c8 99 20 22 4f 53 5f | 52 65 61 64 56 64 75 56 |$.. "OS_|ReadVduV|
|0000c5d0| 61 72 69 61 62 6c 65 73 | 22 2c 4d 69 25 2c 4d 6f |ariables|",Mi%,Mo|
|0000c5e0| 25 0d 49 48 29 53 5f 57 | 69 64 74 68 25 3d 28 31 |%.IH)S_W|idth%=(1|
|0000c5f0| 3c 3c 28 4d 6f 25 21 48 | 31 25 29 29 2a 28 28 4d |<<(Mo%!H|1%))*((M|
|0000c600| 6f 25 21 48 32 25 29 2b | 31 29 0d 49 52 2a 53 5f |o%!H2%)+|1).IR*S_|
|0000c610| 48 65 69 67 68 74 25 3d | 28 31 3c 3c 28 4d 6f 25 |Height%=|(1<<(Mo%|
|0000c620| 21 56 31 25 29 29 2a 28 | 28 4d 6f 25 21 56 32 25 |!V1%))*(|(Mo%!V2%|
|0000c630| 29 2b 31 29 0d 49 5c 05 | e1 0d 49 66 05 3a 0d 49 |)+1).I\.|..If.:.I|
|0000c640| 70 15 dd 20 a4 65 6e 63 | 72 79 70 74 28 53 24 2c |p.. .enc|rypt(S$,|
|0000c650| 5a 25 29 0d 49 7a 0b ea | 20 49 25 2c 52 25 0d 49 |Z%).Iz..| I%,R%.I|
|0000c660| 84 10 52 25 3d b3 28 2d | 31 32 38 31 37 29 0d 49 |..R%=.(-|12817).I|
|0000c670| 8e 12 e3 20 49 25 3d 31 | 20 b8 20 a9 28 53 24 29 |... I%=1| . .(S$)|
|0000c680| 0d 49 98 10 20 20 52 25 | 3d b3 28 35 38 29 2d 31 |.I..  R%|=.(58)-1|
|0000c690| 0d 49 a2 17 20 20 e7 20 | ac 20 5a 25 20 8c 20 52 |.I..  . |. Z% . R|
|0000c6a0| 25 3d 35 38 2d 52 25 0d | 49 ac 2f 20 20 c1 53 24 |%=58-R%.|I./  .S$|
|0000c6b0| 2c 49 25 2c 31 29 3d bd | 28 28 97 28 c1 53 24 2c |,I%,1)=.|((.(.S$,|
|0000c6c0| 49 25 2c 31 29 29 2d 36 | 35 2b 52 25 29 20 83 20 |I%,1))-6|5+R%) . |
|0000c6d0| 35 38 2b 36 35 29 0d 49 | b6 08 ed 20 49 25 0d 49 |58+65).I|... I%.I|
|0000c6e0| c0 07 3d 53 24 0d 49 ca | 05 3a 0d 49 d4 12 dd 20 |..=S$.I.|.:.I... |
|0000c6f0| a4 6e 61 6d 65 28 4e 24 | 2c 46 25 29 0d 49 de 0e |.name(N$|,F%).I..|
|0000c700| ea 20 50 25 2c 51 25 2c | 4c 25 0d 49 e8 10 50 25 |. P%,Q%,|L%.I..P%|
|0000c710| 3d a7 4e 24 2c 22 20 20 | 22 29 0d 49 f2 19 e7 20 |=.N$,"  |").I... |
|0000c720| 50 25 3e 30 20 8c 20 4e | 24 3d c0 4e 24 2c 50 25 |P%>0 . N|$=.N$,P%|
|0000c730| 2d 31 29 0d 49 fc 18 50 | 25 3d a9 28 4e 24 29 3a |-1).I..P|%=.(N$):|
|0000c740| 51 25 3d 50 25 3a 4c 25 | 3d 50 25 0d 4a 06 0e e7 |Q%=P%:L%|=P%.J...|
|0000c750| 20 4c 25 3e 3d 46 25 20 | 8c 0d 4a 10 07 20 20 f5 | L%>=F% |..J..  .|
|0000c760| 0d 4a 1a 28 20 20 20 20 | f5 20 50 25 3d 50 25 2d |.J.(    |. P%=P%-|
|0000c770| 31 3a fd 20 c1 4e 24 2c | 50 25 2c 31 29 3d 22 20 |1:. .N$,|P%,1)=" |
|0000c780| 22 20 84 20 50 25 3d 30 | 0d 4a 24 38 20 20 20 20 |" . P%=0|.J$8    |
|0000c790| e7 20 50 25 20 8c 20 4e | 24 3d c0 4e 24 2c 50 25 |. P% . N|$=.N$,P%|
|0000c7a0| 2b 31 29 2b 22 2e 22 2b | c1 4e 24 2c 51 25 2b 31 |+1)+"."+|.N$,Q%+1|
|0000c7b0| 29 20 8b 20 4e 24 3d c0 | 4e 24 2c 46 25 2d 31 29 |) . N$=.|N$,F%-1)|
|0000c7c0| 0d 4a 2e 16 20 20 20 20 | 51 25 3d 50 25 3a 4c 25 |.J..    |Q%=P%:L%|
|0000c7d0| 3d a9 28 4e 24 29 0d 4a | 38 14 20 20 fd 20 4c 25 |=.(N$).J|8.  . L%|
|0000c7e0| 3c 46 25 20 84 20 50 25 | 3d 30 0d 4a 42 05 cd 0d |<F% . P%|=0.JB...|
|0000c7f0| 4a 4c 13 3d 4e 24 2b c4 | 46 25 2d 4c 25 2c 22 20 |JL.=N$+.|F%-L%," |
|0000c800| 22 29 0d 4a 56 05 3a 0d | 4a 60 05 3a 0d 4a 6a 49 |").JV.:.|J`.:.JjI|
|0000c810| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|0000c820| 2d 2d 20 45 6e 64 20 6f | 66 20 4d 69 73 63 65 6c |-- End o|f Miscel|
|0000c830| 6c 61 6e 65 6f 75 73 20 | 72 6f 75 74 69 6e 65 73 |laneous |routines|
|0000c840| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|0000c850| 2d 2d 2d 2d 2d 0d 4a 74 | 05 3a 0d 4a 7e 47 f4 20 |-----.Jt|.:.J~G. |
|0000c860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000c870| 2d 2d 20 4c 69 73 74 20 | 6f 75 74 70 75 74 20 74 |-- List |output t|
|0000c880| 6f 20 73 63 72 65 65 6e | 20 2d 2d 2d 2d 2d 2d 2d |o screen| -------|
|0000c890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000c8a0| 2d 0d 4a 88 05 3a 0d 4a | 92 23 dd 20 f2 73 74 61 |-.J..:.J|.#. .sta|
|0000c8b0| 72 74 5f 6c 69 73 74 28 | 61 6e 63 68 6f 72 25 2c |rt_list(|anchor%,|
|0000c8c0| 4c 65 6e 4c 69 6e 65 25 | 29 0d 4a 9c 3b 74 65 78 |LenLine%|).J.;tex|
|0000c8d0| 74 62 6c 6f 63 6b 73 69 | 7a 65 25 3d 33 30 2a 4c |tblocksi|ze%=30*L|
|0000c8e0| 65 6e 4c 69 6e 65 25 3a | 74 65 78 74 62 6c 6f 63 |enLine%:|textbloc|
|0000c8f0| 6b 69 6e 63 25 3d 74 65 | 78 74 62 6c 6f 63 6b 73 |kinc%=te|xtblocks|
|0000c900| 69 7a 65 25 0d 4a a6 37 | f2 65 78 74 65 6e 64 5f |ize%.J.7|.extend_|
|0000c910| 6e 61 6d 65 64 5f 73 6c | 69 64 69 6e 67 5f 62 6c |named_sl|iding_bl|
|0000c920| 6f 63 6b 28 61 6e 63 68 | 6f 72 25 2c 74 65 78 74 |ock(anch|or%,text|
|0000c930| 62 6c 6f 63 6b 73 69 7a | 65 25 29 0d 4a b0 1e 54 |blocksiz|e%).J..T|
|0000c940| 65 78 74 50 74 72 25 3d | 21 61 6e 63 68 6f 72 25 |extPtr%=|!anchor%|
|0000c950| 3a 43 6f 75 6e 74 25 3d | 30 0d 4a ba 05 e1 0d 4a |:Count%=|0.J....J|
|0000c960| c4 05 3a 0d 4a ce 2a dd | 20 f2 6c 69 73 74 5f 6c |..:.J.*.| .list_l|
|0000c970| 69 6e 65 28 73 74 72 69 | 6e 67 24 2c 61 6e 63 68 |ine(stri|ng$,anch|
|0000c980| 6f 72 25 2c 4c 65 6e 4c | 69 6e 65 25 29 0d 4a d8 |or%,LenL|ine%).J.|
|0000c990| 0d 43 6f 75 6e 74 25 2b | 3d 31 0d 4a e2 28 e7 20 |.Count%+|=1.J.(. |
|0000c9a0| 28 4c 65 6e 4c 69 6e 65 | 25 2a 43 6f 75 6e 74 25 |(LenLine|%*Count%|
|0000c9b0| 29 3e 74 65 78 74 62 6c | 6f 63 6b 73 69 7a 65 25 |)>textbl|ocksize%|
|0000c9c0| 20 8c 0d 4a ec 23 20 20 | 74 65 78 74 62 6c 6f 63 | ..J.#  |textbloc|
|0000c9d0| 6b 73 69 7a 65 25 2b 3d | 74 65 78 74 62 6c 6f 63 |ksize%+=|textbloc|
|0000c9e0| 6b 69 6e 63 25 0d 4a f6 | 39 20 20 f2 65 78 74 65 |kinc%.J.|9  .exte|
|0000c9f0| 6e 64 5f 6e 61 6d 65 64 | 5f 73 6c 69 64 69 6e 67 |nd_named|_sliding|
|0000ca00| 5f 62 6c 6f 63 6b 28 61 | 6e 63 68 6f 72 25 2c 74 |_block(a|nchor%,t|
|0000ca10| 65 78 74 62 6c 6f 63 6b | 73 69 7a 65 25 29 0d 4b |extblock|size%).K|
|0000ca20| 00 05 cd 0d 4b 0a 33 73 | 74 72 69 6e 67 24 3d 22 |....K.3s|tring$="|
|0000ca30| 20 22 2b 73 74 72 69 6e | 67 24 2b c4 4c 65 6e 4c | "+strin|g$+.LenL|
|0000ca40| 69 6e 65 25 2d 31 2d a9 | 28 73 74 72 69 6e 67 24 |ine%-1-.|(string$|
|0000ca50| 29 2c 22 20 22 29 0d 4b | 14 3a e7 20 a9 73 74 72 |)," ").K|.:. .str|
|0000ca60| 69 6e 67 24 3e 28 4c 65 | 6e 4c 69 6e 65 25 2d 31 |ing$>(Le|nLine%-1|
|0000ca70| 29 20 8c 20 73 74 72 69 | 6e 67 24 3d c0 73 74 72 |) . stri|ng$=.str|
|0000ca80| 69 6e 67 24 2c 4c 65 6e | 4c 69 6e 65 25 2d 31 29 |ing$,Len|Line%-1)|
|0000ca90| 0d 4b 1e 43 24 54 65 78 | 74 50 74 72 25 3d 73 74 |.K.C$Tex|tPtr%=st|
|0000caa0| 72 69 6e 67 24 3a 54 65 | 78 74 50 74 72 25 2b 3d |ring$:Te|xtPtr%+=|
|0000cab0| 4c 65 6e 4c 69 6e 65 25 | 2d 31 3a 3f 54 65 78 74 |LenLine%|-1:?Text|
|0000cac0| 50 74 72 25 3d 31 30 3a | 54 65 78 74 50 74 72 25 |Ptr%=10:|TextPtr%|
|0000cad0| 2b 3d 31 0d 4b 28 09 f2 | 70 6f 6c 6c 0d 4b 32 05 |+=1.K(..|poll.K2.|
|0000cae0| e1 0d 4b 3c 05 3a 0d 4b | 46 05 3a 0d 4b 50 24 dd |..K<.:.K|F.:.KP$.|
|0000caf0| 20 f2 73 63 72 65 65 6e | 5f 6c 69 73 74 28 68 61 | .screen|_list(ha|
|0000cb00| 6e 64 6c 65 25 2c 4c 65 | 6e 4c 69 6e 65 25 29 0d |ndle%,Le|nLine%).|
|0000cb10| 4b 5a 21 21 62 6c 6f 63 | 6b 25 3d 30 3a 62 6c 6f |KZ!!bloc|k%=0:blo|
|0000cb20| 63 6b 25 21 34 3d 2d 43 | 6f 75 6e 74 25 2a 33 32 |ck%!4=-C|ount%*32|
|0000cb30| 0d 4b 64 24 62 6c 6f 63 | 6b 25 21 38 3d 4c 65 6e |.Kd$bloc|k%!8=Len|
|0000cb40| 4c 69 6e 65 25 2a 31 36 | 3a 62 6c 6f 63 6b 25 21 |Line%*16|:block%!|
|0000cb50| 31 32 3d 30 0d 4b 6e 26 | c8 99 20 22 57 69 6d 70 |12=0.Kn&|.. "Wimp|
|0000cb60| 5f 53 65 74 45 78 74 65 | 6e 74 22 2c 68 61 6e 64 |_SetExte|nt",hand|
|0000cb70| 6c 65 25 2c 62 6c 6f 63 | 6b 25 0d 4b 78 13 21 62 |le%,bloc|k%.Kx.!b|
|0000cb80| 6c 6f 63 6b 25 3d 68 61 | 6e 64 6c 65 25 0d 4b 82 |lock%=ha|ndle%.K.|
|0000cb90| 24 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e |$.. "Wim|p_GetWin|
|0000cba0| 64 6f 77 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |dowState|",,block|
|0000cbb0| 25 0d 4b 8c 22 62 6c 6f | 63 6b 25 21 31 32 3d 62 |%.K."blo|ck%!12=b|
|0000cbc0| 6c 6f 63 6b 25 21 34 2b | 4c 65 6e 4c 69 6e 65 25 |lock%!4+|LenLine%|
|0000cbd0| 2a 31 36 0d 4b 96 11 e7 | 20 43 6f 75 6e 74 25 3c |*16.K...| Count%<|
|0000cbe0| 32 38 20 8c 0d 4b a0 22 | 20 20 62 6c 6f 63 6b 25 |28 ..K."|  block%|
|0000cbf0| 21 31 36 3d 62 6c 6f 63 | 6b 25 21 38 2b 43 6f 75 |!16=bloc|k%!8+Cou|
|0000cc00| 6e 74 25 2a 33 32 0d 4b | aa 07 20 20 cc 0d 4b b4 |nt%*32.K|..  ..K.|
|0000cc10| 1e 20 20 62 6c 6f 63 6b | 25 21 31 36 3d 62 6c 6f |.  block|%!16=blo|
|0000cc20| 63 6b 25 21 38 2b 33 32 | 2a 32 38 0d 4b be 05 cd |ck%!8+32|*28.K...|
|0000cc30| 0d 4b c8 21 c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |.K.!.. "|Wimp_Clo|
|0000cc40| 73 65 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |seWindow|",,block|
|0000cc50| 25 0d 4b d2 19 f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |%.K...op|en_windo|
|0000cc60| 77 28 68 61 6e 64 6c 65 | 25 29 0d 4b dc 05 e1 0d |w(handle|%).K....|
|0000cc70| 4b e6 05 3a 0d 4b f0 46 | f4 20 2d 2d 2d 2d 2d 2d |K..:.K.F|. ------|
|0000cc80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 45 6e 64 20 6f |--------|-- End o|
|0000cc90| 66 20 53 63 72 65 65 6e | 20 6f 75 74 70 75 74 20 |f Screen| output |
|0000cca0| 72 6f 75 74 69 6e 65 73 | 20 2d 2d 2d 2d 2d 2d 2d |routines| -------|
|0000ccb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 4b fa 05 3a 0d |--------|--.K..:.|
|0000ccc0| 4c 04 05 3a 0d 4c 0e 05 | 3a 0d 4c 18 46 f4 20 2d |L..:.L..|:.L.F. -|
|0000ccd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000cce0| 2d 2d 20 42 6c 6f 63 6b | 69 6e 67 20 72 6f 75 74 |-- Block|ing rout|
|0000ccf0| 69 6e 65 73 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ines ---|--------|
|0000cd00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|0000cd10| 4c 22 05 3a 0d 4c 2c 15 | dd 20 f2 62 6c 6f 63 6b |L".:.L,.|. .block|
|0000cd20| 5f 73 74 75 64 65 6e 74 | 73 0d 4c 36 1f e7 20 42 |_student|s.L6.. B|
|0000cd30| 6c 6f 63 6b 69 6e 67 25 | 20 84 20 50 72 69 6e 74 |locking%| . Print|
|0000cd40| 69 6e 67 25 20 8c 20 e1 | 0d 4c 40 13 62 6c 6f 63 |ing% . .|.L@.bloc|
|0000cd50| 6b 73 62 75 74 74 6f 6e | 25 3d 30 0d 4c 4a 23 6d |ksbutton|%=0.LJ#m|
|0000cd60| 61 78 62 6c 6f 63 6b 73 | 25 3d 35 3a 6f 6c 64 62 |axblocks|%=5:oldb|
|0000cd70| 6c 6f 63 6b 73 25 3d 62 | 6c 6f 63 6b 73 25 0d 4c |locks%=b|locks%.L|
|0000cd80| 54 24 24 a4 74 65 78 74 | 28 62 6c 6f 63 6b 73 57 |T$$.text|(blocksW|
|0000cd90| 25 2c 30 29 3d c3 28 6d | 61 78 62 6c 6f 63 6b 73 |%,0)=.(m|axblocks|
|0000cda0| 25 29 0d 4c 5e 0f f2 67 | 65 74 5f 62 6c 6f 63 6b |%).L^..g|et_block|
|0000cdb0| 73 0d 4c 68 19 e7 20 62 | 6c 6f 63 6b 73 62 75 74 |s.Lh.. b|locksbut|
|0000cdc0| 74 6f 6e 25 3d 30 20 8c | 20 e1 0d 4c 72 18 ea 20 |ton%=0 .| ..Lr.. |
|0000cdd0| 42 25 2c 6d 69 6e 25 2c | 73 75 62 25 2c 66 61 69 |B%,min%,|sub%,fai|
|0000cde0| 6c 25 0d 4c 7c 07 ea 20 | 85 0d 4c 86 21 ee 20 85 |l%.L|.. |..L.!. .|
|0000cdf0| 20 ea 3a f7 20 85 3a f2 | 61 62 61 6e 64 6f 6e 5f | .:. .:.|abandon_|
|0000ce00| 62 6c 6f 63 6b 69 6e 67 | 3a e1 0d 4c 90 0a f2 62 |blocking|:..L...b|
|0000ce10| 6c 61 63 6b 0d 4c 9a 19 | 74 6f 74 61 6c 25 28 29 |lack.L..|total%()|
|0000ce20| 3d 77 65 69 67 68 74 69 | 6e 67 25 28 29 0d 4c a4 |=weighti|ng%().L.|
|0000ce30| 1c 4e 70 72 6f 62 73 25 | 3d 30 3a 6e 65 78 74 73 |.Nprobs%|=0:nexts|
|0000ce40| 74 75 64 65 6e 74 25 3d | 30 0d 4c ae 20 f2 6e 6f |tudent%=|0.L. .no|
|0000ce50| 74 69 66 79 28 22 42 6c | 6f 63 6b 69 6e 67 20 73 |tify("Bl|ocking s|
|0000ce60| 74 75 64 65 6e 74 73 22 | 29 0d 4c b8 0f 42 6c 6f |tudents"|).L..Blo|
|0000ce70| 63 6b 69 6e 67 25 3d b9 | 0d 4c c2 1a f2 63 6c 6f |cking%=.|.L...clo|
|0000ce80| 73 65 5f 77 69 6e 64 6f | 77 28 74 6f 74 61 6c 57 |se_windo|w(totalW|
|0000ce90| 25 29 0d 4c cc 1d f2 63 | 6c 6f 73 65 5f 77 69 6e |%).L...c|lose_win|
|0000cea0| 64 6f 77 28 74 68 65 61 | 64 69 6e 67 57 25 29 0d |dow(thea|dingW%).|
|0000ceb0| 4c d6 1b f2 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |L...clos|e_window|
|0000cec0| 28 77 65 69 67 68 74 57 | 25 29 0d 4c e0 1d f2 63 |(weightW|%).L...c|
|0000ced0| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 77 68 65 61 |lose_win|dow(whea|
|0000cee0| 64 69 6e 67 57 25 29 0d | 4c ea 1c f2 63 6c 6f 73 |dingW%).|L...clos|
|0000cef0| 65 5f 77 69 6e 64 6f 77 | 28 70 72 6f 62 6c 65 6d |e_window|(problem|
|0000cf00| 57 25 29 0d 4c f4 1d f2 | 63 6c 6f 73 65 5f 77 69 |W%).L...|close_wi|
|0000cf10| 6e 64 6f 77 28 70 68 65 | 61 64 69 6e 67 57 25 29 |ndow(phe|adingW%)|
|0000cf20| 0d 4c fe 19 e3 20 73 74 | 75 64 65 6e 74 25 3d 31 |.L... st|udent%=1|
|0000cf30| 20 b8 20 4e 72 65 63 73 | 25 0d 4d 08 18 20 20 c8 | . Nrecs|%.M..  .|
|0000cf40| 99 20 22 4f 53 5f 42 79 | 74 65 22 2c 32 32 39 2c |. "OS_By|te",229,|
|0000cf50| 30 0d 4d 12 16 20 20 e3 | 20 42 25 3d 31 20 b8 20 |0.M..  .| B%=1 . |
|0000cf60| 62 6c 6f 63 6b 73 25 0d | 4d 1c 2f 20 20 20 20 73 |blocks%.|M./    s|
|0000cf70| 75 62 6a 65 63 74 25 28 | 42 25 29 3d 94 28 73 75 |ubject%(|B%)=.(su|
|0000cf80| 62 6e 75 6d 62 65 72 25 | 28 73 74 75 64 65 6e 74 |bnumber%|(student|
|0000cf90| 25 2c 42 25 29 29 0d 4d | 26 0a 20 20 ed 20 42 25 |%,B%)).M|&.  . B%|
|0000cfa0| 0d 4d 30 17 20 20 6d 69 | 6e 25 3d 31 30 30 30 3a |.M0.  mi|n%=1000:|
|0000cfb0| 66 61 69 6c 25 3d a3 0d | 4d 3a 17 20 20 f2 70 65 |fail%=..|M:.  .pe|
|0000cfc0| 72 6d 75 74 65 28 62 6c | 6f 63 6b 73 25 29 0d 4d |rmute(bl|ocks%).M|
|0000cfd0| 44 16 20 20 e3 20 42 25 | 3d 31 20 b8 20 62 6c 6f |D.  . B%|=1 . blo|
|0000cfe0| 63 6b 73 25 0d 4d 4e 14 | 20 20 20 20 e7 20 6d 69 |cks%.MN.|    . mi|
|0000cff0| 6e 25 3c 35 30 30 20 8c | 0d 4d 58 18 20 20 20 20 |n%<500 .|.MX.    |
|0000d000| 20 20 73 75 62 25 3d 62 | 65 73 74 25 28 42 25 29 |  sub%=b|est%(B%)|
|0000d010| 0d 4d 62 37 20 20 20 20 | 20 20 73 75 62 6e 75 6d |.Mb7    |  subnum|
|0000d020| 62 65 72 25 28 73 74 75 | 64 65 6e 74 25 2c 30 29 |ber%(stu|dent%,0)|
|0000d030| 3d 38 3a f4 20 42 6c 75 | 65 20 66 6f 72 20 73 75 |=8:. Blu|e for su|
|0000d040| 63 63 65 73 73 65 73 0d | 4d 6c 0b 20 20 20 20 20 |ccesses.|Ml.     |
|0000d050| 20 cc 0d 4d 76 1b 20 20 | 20 20 20 20 73 75 62 25 | ..Mv.  |    sub%|
|0000d060| 3d 73 75 62 6a 65 63 74 | 25 28 42 25 29 0d 4d 80 |=subject|%(B%).M.|
|0000d070| 36 20 20 20 20 20 20 73 | 75 62 6e 75 6d 62 65 72 |6      s|ubnumber|
|0000d080| 25 28 73 74 75 64 65 6e | 74 25 2c 30 29 3d 31 31 |%(studen|t%,0)=11|
|0000d090| 3a f4 20 52 65 64 20 66 | 6f 72 20 66 61 69 6c 75 |:. Red f|or failu|
|0000d0a0| 72 65 73 0d 4d 8a 11 20 | 20 20 20 20 20 66 61 69 |res.M.. |     fai|
|0000d0b0| 6c 25 3d b9 0d 4d 94 09 | 20 20 20 20 cd 0d 4d 9e |l%=..M..|    ..M.|
|0000d0c0| 24 20 20 20 20 73 75 62 | 6e 75 6d 62 65 72 25 28 |$    sub|number%(|
|0000d0d0| 73 74 75 64 65 6e 74 25 | 2c 42 25 29 3d 73 75 62 |student%|,B%)=sub|
|0000d0e0| 25 0d 4d a8 37 20 20 20 | 20 e7 20 73 75 62 25 3e |%.M.7   | . sub%>|
|0000d0f0| 30 20 8c 20 74 6f 74 61 | 6c 25 28 73 75 62 25 2c |0 . tota|l%(sub%,|
|0000d100| 42 25 29 2b 3d 31 3a 74 | 6f 74 61 6c 25 28 73 75 |B%)+=1:t|otal%(su|
|0000d110| 62 25 2c 30 29 2b 3d 31 | 0d 4d b2 5a 20 20 20 20 |b%,0)+=1|.M.Z    |
|0000d120| f4 20 49 6e 63 72 65 6d | 65 6e 74 20 74 6f 74 61 |. Increm|ent tota|
|0000d130| 6c 25 28 29 20 6f 6e 6c | 79 20 69 66 20 73 75 62 |l%() onl|y if sub|
|0000d140| 6a 65 63 74 20 69 73 20 | 61 20 22 72 65 61 6c 22 |ject is |a "real"|
|0000d150| 20 6f 6e 65 2c 20 69 2e | 65 2e 20 6e 6f 74 20 6a | one, i.|e. not j|
|0000d160| 75 73 74 20 61 6e 20 65 | 6d 70 74 79 20 62 6c 6f |ust an e|mpty blo|
|0000d170| 63 6b 0d 4d bc 0a 20 20 | ed 20 42 25 0d 4d c6 18 |ck.M..  |. B%.M..|
|0000d180| 20 20 e7 20 66 61 69 6c | 25 20 4e 70 72 6f 62 73 |  . fail|% Nprobs|
|0000d190| 25 2b 3d 31 0d 4d d0 35 | 20 20 c8 99 20 22 48 6f |%+=1.M.5|  .. "Ho|
|0000d1a0| 75 72 67 6c 61 73 73 5f | 50 65 72 63 65 6e 74 61 |urglass_|Percenta|
|0000d1b0| 67 65 22 2c 73 74 75 64 | 65 6e 74 25 2a 31 30 30 |ge",stud|ent%*100|
|0000d1c0| 20 81 20 4e 72 65 63 73 | 25 0d 4d da 0b 20 20 f2 | . Nrecs|%.M..  .|
|0000d1d0| 70 6f 6c 6c 0d 4d e4 0e | ed 20 73 74 75 64 65 6e |poll.M..|. studen|
|0000d1e0| 74 25 0d 4d ee 16 c8 99 | 20 22 48 6f 75 72 67 6c |t%.M....| "Hourgl|
|0000d1f0| 61 73 73 5f 4f 66 66 22 | 0d 4d f8 1b f2 63 6c 6f |ass_Off"|.M...clo|
|0000d200| 73 65 5f 77 69 6e 64 6f | 77 28 6e 6f 74 69 66 79 |se_windo|w(notify|
|0000d210| 57 25 29 0d 4e 02 09 f2 | 70 6f 6c 6c 0d 4e 0c 0f |W%).N...|poll.N..|
|0000d220| 42 6c 6f 63 6b 69 6e 67 | 25 3d a3 0d 4e 16 0e 62 |Blocking|%=..N..b|
|0000d230| 6c 6f 63 6b 65 64 25 3d | b9 0d 4e 20 16 f2 6c 69 |locked%=|..N ..li|
|0000d240| 74 28 6d 65 6e 75 25 28 | 36 29 2c 32 2c b9 29 0d |t(menu%(|6),2,.).|
|0000d250| 4e 2a 33 f2 73 68 6f 77 | 5f 66 69 6c 65 28 6d 61 |N*3.show|_file(ma|
|0000d260| 69 6e 61 6e 63 68 6f 72 | 25 2c 6d 61 69 6e 57 25 |inanchor|%,mainW%|
|0000d270| 2c 68 65 61 64 69 6e 67 | 57 25 2c 22 4e 41 4d 45 |,heading|W%,"NAME|
|0000d280| 22 29 0d 4e 34 05 e1 0d | 4e 3e 05 3a 0d 4e 48 17 |").N4...|N>.:.NH.|
|0000d290| dd 20 f2 61 62 61 6e 64 | 6f 6e 5f 62 6c 6f 63 6b |. .aband|on_block|
|0000d2a0| 69 6e 67 0d 4e 52 18 c8 | 99 20 22 48 6f 75 72 67 |ing.NR..|. "Hourg|
|0000d2b0| 6c 61 73 73 5f 53 6d 61 | 73 68 22 0d 4e 5c 1b f2 |lass_Sma|sh".N\..|
|0000d2c0| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 6e 6f 74 |close_wi|ndow(not|
|0000d2d0| 69 66 79 57 25 29 0d 4e | 66 0f 42 6c 6f 63 6b 69 |ifyW%).N|f.Blocki|
|0000d2e0| 6e 67 25 3d a3 0d 4e 70 | 16 62 6c 6f 63 6b 73 25 |ng%=..Np|.blocks%|
|0000d2f0| 3d 6f 6c 64 62 6c 6f 63 | 6b 73 25 0d 4e 7a 0f f2 |=oldbloc|ks%.Nz..|
|0000d300| 73 65 74 5f 77 69 64 74 | 68 73 0d 4e 84 0c e7 20 |set_widt|hs.N... |
|0000d310| 9f 3d 31 37 20 8c 0d 4e | 8e 0c 20 20 f2 62 6c 61 |.=17 ..N|..  .bla|
|0000d320| 63 6b 0d 4e 98 40 20 20 | f2 77 69 6d 70 5f 65 72 |ck.N.@  |.wimp_er|
|0000d330| 72 6f 72 28 b9 2c 32 35 | 34 2c 30 2c 22 45 73 63 |ror(.,25|4,0,"Esc|
|0000d340| 61 70 65 20 70 72 65 73 | 73 65 64 2e 20 42 6c 6f |ape pres|sed. Blo|
|0000d350| 63 6b 69 6e 67 20 61 62 | 61 6e 64 6f 6e 65 64 2e |cking ab|andoned.|
|0000d360| 22 29 0d 4e a2 35 20 20 | f2 73 68 6f 77 5f 66 69 |").N.5  |.show_fi|
|0000d370| 6c 65 28 6d 61 69 6e 61 | 6e 63 68 6f 72 25 2c 6d |le(maina|nchor%,m|
|0000d380| 61 69 6e 57 25 2c 68 65 | 61 64 69 6e 67 57 25 2c |ainW%,he|adingW%,|
|0000d390| 22 4e 41 4d 45 22 29 0d | 4e ac 1d 20 20 cc 20 f2 |"NAME").|N..  . .|
|0000d3a0| 77 69 6d 70 5f 65 72 72 | 6f 72 28 b9 2c 9f 2c 9e |wimp_err|or(.,.,.|
|0000d3b0| 2c f6 24 29 0d 4e b6 05 | cd 0d 4e c0 05 e1 0d 4e |,.$).N..|..N....N|
|0000d3c0| ca 05 3a 0d 4e d4 17 dd | 20 f2 70 65 72 6d 75 74 |..:.N...| .permut|
|0000d3d0| 65 28 62 6c 6f 63 6b 73 | 25 29 0d 4e de 11 ea 20 |e(blocks|%).N... |
|0000d3e0| 53 25 2c 58 25 2c 66 6c | 61 67 25 0d 4e e8 16 6e |S%,X%,fl|ag%.N..n|
|0000d3f0| 75 6d 73 25 28 29 3d 72 | 65 73 6e 75 6d 73 25 28 |ums%()=r|esnums%(|
|0000d400| 29 0d 4e f2 05 f5 0d 4e | fc 0d 20 20 66 6c 61 67 |).N....N|..  flag|
|0000d410| 25 3d a3 0d 4f 06 18 20 | 20 70 65 72 6d 25 28 29 |%=..O.. | perm%()|
|0000d420| 3d 73 75 62 6a 65 63 74 | 25 28 29 0d 4f 10 1b 20 |=subject|%().O.. |
|0000d430| 20 58 25 3d 62 6c 6f 63 | 6b 73 25 3a 53 25 3d 62 | X%=bloc|ks%:S%=b|
|0000d440| 6c 6f 63 6b 73 25 0d 4f | 1a 0d 20 20 c8 95 20 58 |locks%.O|..  .. X|
|0000d450| 25 3e 30 0d 4f 24 25 20 | 20 20 20 c8 94 20 70 65 |%>0.O$% |   .. pe|
|0000d460| 72 6d 25 28 58 25 29 2c | 70 65 72 6d 25 28 6e 75 |rm%(X%),|perm%(nu|
|0000d470| 6d 73 25 28 58 25 29 29 | 0d 4f 2e 0d 20 20 20 20 |ms%(X%))|.O..    |
|0000d480| 58 25 2d 3d 31 0d 4f 38 | 07 20 20 ce 0d 4f 42 14 |X%-=1.O8|.  ..OB.|
|0000d490| 20 20 f2 74 65 73 74 28 | 62 6c 6f 63 6b 73 25 29 |  .test(|blocks%)|
|0000d4a0| 0d 4f 4c 07 20 20 f5 0d | 4f 56 14 20 20 20 20 6e |.OL.  ..|OV.    n|
|0000d4b0| 75 6d 73 25 28 53 25 29 | 2d 3d 31 0d 4f 60 18 20 |ums%(S%)|-=1.O`. |
|0000d4c0| 20 20 20 e7 20 6e 75 6d | 73 25 28 53 25 29 3c 3d |   . num|s%(S%)<=|
|0000d4d0| 30 20 8c 0d 4f 6a 16 20 | 20 20 20 20 20 6e 75 6d |0 ..Oj. |     num|
|0000d4e0| 73 25 28 53 25 29 3d 53 | 25 0d 4f 74 0f 20 20 20 |s%(S%)=S|%.Ot.   |
|0000d4f0| 20 20 20 53 25 2d 3d 31 | 0d 4f 7e 13 20 20 20 20 |   S%-=1|.O~.    |
|0000d500| 20 20 cc 20 66 6c 61 67 | 25 3d b9 0d 4f 88 09 20 |  . flag|%=..O.. |
|0000d510| 20 20 20 cd 0d 4f 92 16 | 20 20 fd 20 53 25 3d 30 |   ..O..|  . S%=0|
|0000d520| 20 84 20 66 6c 61 67 25 | 3d b9 0d 4f 9c 0d fd 20 | . flag%|=..O... |
|0000d530| 66 6c 61 67 25 3d a3 0d | 4f a6 05 e1 0d 4f b0 05 |flag%=..|O....O..|
|0000d540| 3a 0d 4f ba 14 dd 20 f2 | 74 65 73 74 28 62 6c 6f |:.O... .|test(blo|
|0000d550| 63 6b 73 25 29 0d 4f c4 | 0d ea 20 42 25 2c 73 75 |cks%).O.|.. B%,su|
|0000d560| 6d 25 0d 4f ce 14 e3 20 | 42 25 3d 31 20 b8 20 62 |m%.O... |B%=1 . b|
|0000d570| 6c 6f 63 6b 73 25 0d 4f | d8 20 20 20 73 75 6d 25 |locks%.O|.   sum%|
|0000d580| 2b 3d 74 6f 74 61 6c 25 | 28 70 65 72 6d 25 28 42 |+=total%|(perm%(B|
|0000d590| 25 29 2c 42 25 29 0d 4f | e2 08 ed 20 42 25 0d 4f |%),B%).O|... B%.O|
|0000d5a0| ec 11 e7 20 73 75 6d 25 | 3c 6d 69 6e 25 20 8c 0d |... sum%|<min% ..|
|0000d5b0| 4f f6 0f 20 20 6d 69 6e | 25 3d 73 75 6d 25 0d 50 |O..  min|%=sum%.P|
|0000d5c0| 00 15 20 20 62 65 73 74 | 25 28 29 3d 70 65 72 6d |..  best|%()=perm|
|0000d5d0| 25 28 29 0d 50 0a 05 cd | 0d 50 14 05 e1 0d 50 1e |%().P...|.P....P.|
|0000d5e0| 05 3a 0d 50 28 15 dd 20 | f2 77 72 69 74 65 5f 62 |.:.P(.. |.write_b|
|0000d5f0| 6c 6f 63 6b 69 6e 67 0d | 50 32 1a ea 20 50 25 2c |locking.|P2.. P%,|
|0000d600| 42 25 2c 73 74 75 64 65 | 6e 74 25 2c 61 25 2c 62 |B%,stude|nt%,a%,b|
|0000d610| 25 0d 50 3c 5e e7 20 ac | 20 a4 63 6f 6e 66 69 72 |%.P<^. .| .confir|
|0000d620| 6d 28 22 54 68 69 73 20 | 77 69 6c 6c 20 61 6c 74 |m("This |will alt|
|0000d630| 65 72 20 74 68 65 20 73 | 74 75 64 65 6e 74 20 64 |er the s|tudent d|
|0000d640| 61 74 61 62 61 73 65 2e | 20 41 72 65 20 79 6f 75 |atabase.| Are you|
|0000d650| 20 73 75 72 65 20 79 6f | 75 20 77 69 73 68 20 74 | sure yo|u wish t|
|0000d660| 6f 20 70 72 6f 63 65 65 | 64 3f 22 29 8c 20 e1 0d |o procee|d?"). ..|
|0000d670| 50 46 15 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |PF... "H|ourglass|
|0000d680| 5f 4f 6e 22 0d 50 50 2a | 64 62 61 73 65 68 61 6e |_On".PP*|dbasehan|
|0000d690| 64 6c 65 25 3d ad 28 24 | 64 61 74 61 62 61 73 65 |dle%=.($|database|
|0000d6a0| 25 2b 22 2e 44 61 74 61 | 62 61 73 65 22 29 0d 50 |%+".Data|base").P|
|0000d6b0| 5a 19 e3 20 73 74 75 64 | 65 6e 74 25 3d 31 20 b8 |Z.. stud|ent%=1 .|
|0000d6c0| 20 4e 72 65 63 73 25 0d | 50 64 1a 20 20 52 25 3d | Nrecs%.|Pd.  R%=|
|0000d6d0| 72 65 63 6e 75 6d 25 28 | 73 74 75 64 65 6e 74 25 |recnum%(|student%|
|0000d6e0| 29 0d 50 6e 0f 20 20 f2 | 72 65 61 64 28 52 25 29 |).Pn.  .|read(R%)|
|0000d6f0| 0d 50 78 16 20 20 e3 20 | 42 25 3d 31 20 b8 20 62 |.Px.  . |B%=1 . b|
|0000d700| 6c 6f 63 6b 73 25 0d 50 | 82 2c 20 20 20 20 61 25 |locks%.P|.,    a%|
|0000d710| 3d 53 75 62 46 69 65 6c | 64 25 2b 42 25 2d 31 3a |=SubFiel|d%+B%-1:|
|0000d720| 62 25 3d 53 75 62 46 69 | 65 6c 64 42 25 2b 42 25 |b%=SubFi|eldB%+B%|
|0000d730| 2d 31 0d 50 8c 1b 20 20 | 20 20 46 24 28 61 25 29 |-1.P..  |  F$(a%)|
|0000d740| 3d 22 22 3a 46 24 28 62 | 25 29 3d 22 22 0d 50 96 |="":F$(b|%)="".P.|
|0000d750| 24 20 20 20 20 73 75 62 | 25 3d 73 75 62 6e 75 6d |$    sub|%=subnum|
|0000d760| 62 65 72 25 28 73 74 75 | 64 65 6e 74 25 2c 42 25 |ber%(stu|dent%,B%|
|0000d770| 29 0d 50 a0 0e 20 20 20 | 20 c8 8e 20 b9 20 ca 0d |).P..   | .. . ..|
|0000d780| 50 aa 28 20 20 20 20 20 | 20 c9 20 73 75 62 25 3e |P.(     | . sub%>|
|0000d790| 30 3a 46 24 28 61 25 29 | 3d 53 75 62 63 6f 64 65 |0:F$(a%)|=Subcode|
|0000d7a0| 24 28 73 75 62 25 29 0d | 50 b4 29 20 20 20 20 20 |$(sub%).|P.)     |
|0000d7b0| 20 c9 20 73 75 62 25 3c | 30 3a 46 24 28 62 25 29 | . sub%<|0:F$(b%)|
|0000d7c0| 3d 53 75 62 63 6f 64 65 | 24 28 2d 73 75 62 25 29 |=Subcode|$(-sub%)|
|0000d7d0| 0d 50 be 09 20 20 20 20 | cb 0d 50 c8 0a 20 20 ed |.P..    |..P..  .|
|0000d7e0| 20 42 25 0d 50 d2 22 20 | 20 46 24 28 54 75 74 46 | B%.P." | F$(TutF|
|0000d7f0| 69 65 6c 64 25 29 3d 74 | 75 74 24 28 73 74 75 64 |ield%)=t|ut$(stud|
|0000d800| 65 6e 74 25 29 0d 50 dc | 10 20 20 f2 77 72 69 74 |ent%).P.|.  .writ|
|0000d810| 65 28 52 25 29 0d 50 e6 | 35 20 20 c8 99 20 22 48 |e(R%).P.|5  .. "H|
|0000d820| 6f 75 72 67 6c 61 73 73 | 5f 50 65 72 63 65 6e 74 |ourglass|_Percent|
|0000d830| 61 67 65 22 2c 73 74 75 | 64 65 6e 74 25 2a 31 30 |age",stu|dent%*10|
|0000d840| 30 20 81 20 4e 72 65 63 | 73 25 0d 50 f0 0e ed 20 |0 . Nrec|s%.P... |
|0000d850| 73 74 75 64 65 6e 74 25 | 0d 50 fa 1d f2 63 6c 6f |student%|.P...clo|
|0000d860| 73 65 5f 66 69 6c 65 28 | 64 62 61 73 65 68 61 6e |se_file(|dbasehan|
|0000d870| 64 6c 65 25 29 0d 51 04 | 16 c8 99 20 22 48 6f 75 |dle%).Q.|... "Hou|
|0000d880| 72 67 6c 61 73 73 5f 4f | 66 66 22 0d 51 0e 05 e1 |rglass_O|ff".Q...|
|0000d890| 0d 51 18 05 3a 0d 51 22 | 0c dd 20 f2 62 6c 61 63 |.Q..:.Q"|.. .blac|
|0000d8a0| 6b 0d 51 2c 08 ea 20 49 | 25 0d 51 36 15 e3 20 49 |k.Q,.. I|%.Q6.. I|
|0000d8b0| 25 3d 30 20 b8 20 4d 61 | 78 52 65 63 73 25 0d 51 |%=0 . Ma|xRecs%.Q|
|0000d8c0| 40 18 20 20 73 75 62 6e | 75 6d 62 65 72 25 28 49 |@.  subn|umber%(I|
|0000d8d0| 25 2c 30 29 3d 37 0d 51 | 4a 08 ed 20 49 25 0d 51 |%,0)=7.Q|J.. I%.Q|
|0000d8e0| 54 05 e1 0d 51 5e 05 3a | 0d 51 68 49 f4 20 2d 2d |T...Q^.:|.QhI. --|
|0000d8f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000d900| 2d 2d 20 42 6c 6f 63 6b | 20 73 70 6c 69 74 74 69 |-- Block| splitti|
|0000d910| 6e 67 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ng -----|--------|
|0000d920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000d930| 2d 0d 51 72 05 3a 0d 51 | 7c 17 dd 20 f2 73 70 6c |-.Qr.:.Q||.. .spl|
|0000d940| 69 74 28 73 75 62 25 2c | 62 6c 6b 25 29 0d 51 86 |it(sub%,|blk%).Q.|
|0000d950| 14 ea 20 73 74 75 64 65 | 6e 74 25 2c 73 69 67 6e |.. stude|nt%,sign|
|0000d960| 25 0d 51 90 0b 73 69 67 | 6e 25 3d 31 0d 51 9a 1f |%.Q..sig|n%=1.Q..|
|0000d970| e7 20 62 6c 6b 25 3d 30 | 20 84 20 62 6c 6b 25 3e |. blk%=0| . blk%>|
|0000d980| 62 6c 6f 63 6b 73 25 20 | 8c 20 e1 0d 51 a4 19 e3 |blocks% |. ..Q...|
|0000d990| 20 73 74 75 64 65 6e 74 | 25 3d 31 20 b8 20 4e 72 | student|%=1 . Nr|
|0000d9a0| 65 63 73 25 0d 51 ae 28 | 20 20 e7 20 73 75 62 6e |ecs%.Q.(|  . subn|
|0000d9b0| 75 6d 62 65 72 25 28 73 | 74 75 64 65 6e 74 25 2c |umber%(s|tudent%,|
|0000d9c0| 62 6c 6b 25 29 3d 73 75 | 62 25 20 8c 0d 51 b8 2c |blk%)=su|b% ..Q.,|
|0000d9d0| 20 20 20 20 73 75 62 6e | 75 6d 62 65 72 25 28 73 |    subn|umber%(s|
|0000d9e0| 74 75 64 65 6e 74 25 2c | 62 6c 6b 25 29 3d 73 75 |tudent%,|blk%)=su|
|0000d9f0| 62 25 2a 73 69 67 6e 25 | 0d 51 c2 14 20 20 20 20 |b%*sign%|.Q..    |
|0000da00| 73 69 67 6e 25 3d 2d 73 | 69 67 6e 25 0d 51 cc 07 |sign%=-s|ign%.Q..|
|0000da10| 20 20 cd 0d 51 d6 0e ed | 20 73 74 75 64 65 6e 74 |  ..Q...| student|
|0000da20| 25 0d 51 e0 23 f2 64 69 | 73 70 6c 61 79 5f 67 72 |%.Q.#.di|splay_gr|
|0000da30| 6f 75 70 28 73 75 62 25 | 2c 62 6c 6b 25 2c 22 23 |oup(sub%|,blk%,"#|
|0000da40| 23 23 22 29 0d 51 ea 05 | e1 0d 51 f4 05 3a 0d 51 |##").Q..|..Q..:.Q|
|0000da50| fe 16 dd 20 f2 6a 6f 69 | 6e 28 73 75 62 25 2c 62 |... .joi|n(sub%,b|
|0000da60| 6c 6b 25 29 0d 52 08 0e | ea 20 73 74 75 64 65 6e |lk%).R..|. studen|
|0000da70| 74 25 0d 52 12 1f e7 20 | 62 6c 6b 25 3d 30 20 84 |t%.R... |blk%=0 .|
|0000da80| 20 62 6c 6b 25 3e 62 6c | 6f 63 6b 73 25 20 8c 20 | blk%>bl|ocks% . |
|0000da90| e1 0d 52 1c 19 e3 20 73 | 74 75 64 65 6e 74 25 3d |..R... s|tudent%=|
|0000daa0| 31 20 b8 20 4e 72 65 63 | 73 25 0d 52 26 48 20 20 |1 . Nrec|s%.R&H  |
|0000dab0| e7 20 73 75 62 6e 75 6d | 62 65 72 25 28 73 74 75 |. subnum|ber%(stu|
|0000dac0| 64 65 6e 74 25 2c 62 6c | 6b 25 29 3d 2d 73 75 62 |dent%,bl|k%)=-sub|
|0000dad0| 25 20 8c 20 73 75 62 6e | 75 6d 62 65 72 25 28 73 |% . subn|umber%(s|
|0000dae0| 74 75 64 65 6e 74 25 2c | 62 6c 6b 25 29 3d 73 75 |tudent%,|blk%)=su|
|0000daf0| 62 25 0d 52 30 0e ed 20 | 73 74 75 64 65 6e 74 25 |b%.R0.. |student%|
|0000db00| 0d 52 3a 23 f2 64 69 73 | 70 6c 61 79 5f 67 72 6f |.R:#.dis|play_gro|
|0000db10| 75 70 28 73 75 62 25 2c | 62 6c 6b 25 2c 22 23 23 |up(sub%,|blk%,"##|
|0000db20| 23 22 29 0d 52 44 05 e1 | 0d 52 4e 05 3a 0d 52 58 |#").RD..|.RN.:.RX|
|0000db30| 49 f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |I. -----|--------|
|0000db40| 2d 2d 2d 2d 2d 20 54 75 | 74 6f 72 20 61 73 73 69 |----- Tu|tor assi|
|0000db50| 67 6e 6d 65 6e 74 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |gnment -|--------|
|0000db60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000db70| 2d 2d 2d 2d 2d 2d 0d 52 | 62 05 3a 0d 52 6c 14 dd |------.R|b.:.Rl..|
|0000db80| 20 f2 61 73 73 69 67 6e | 5f 74 75 74 6f 72 73 0d | .assign|_tutors.|
|0000db90| 52 76 0e ea 20 73 74 75 | 64 65 6e 74 25 0d 52 80 |Rv.. stu|dent%.R.|
|0000dba0| 0d 74 75 74 24 28 29 3d | 22 22 0d 52 8a 0e 64 65 |.tut$()=|"".R..de|
|0000dbb0| 70 74 24 28 29 3d 22 22 | 0d 52 94 0f 74 75 74 67 |pt$()=""|.R..tutg|
|0000dbc0| 72 70 25 28 29 3d 30 0d | 52 9e 0d 4e 70 72 6f 62 |rp%()=0.|R..Nprob|
|0000dbd0| 73 25 3d 30 0d 52 a8 1a | f2 63 6c 6f 73 65 5f 77 |s%=0.R..|.close_w|
|0000dbe0| 69 6e 64 6f 77 28 74 6f | 74 61 6c 57 25 29 0d 52 |indow(to|talW%).R|
|0000dbf0| b2 1d f2 63 6c 6f 73 65 | 5f 77 69 6e 64 6f 77 28 |...close|_window(|
|0000dc00| 74 68 65 61 64 69 6e 67 | 57 25 29 0d 52 bc 1b f2 |theading|W%).R...|
|0000dc10| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 77 65 69 |close_wi|ndow(wei|
|0000dc20| 67 68 74 57 25 29 0d 52 | c6 1d f2 63 6c 6f 73 65 |ghtW%).R|...close|
|0000dc30| 5f 77 69 6e 64 6f 77 28 | 77 68 65 61 64 69 6e 67 |_window(|wheading|
|0000dc40| 57 25 29 0d 52 d0 1c f2 | 63 6c 6f 73 65 5f 77 69 |W%).R...|close_wi|
|0000dc50| 6e 64 6f 77 28 70 72 6f | 62 6c 65 6d 57 25 29 0d |ndow(pro|blemW%).|
|0000dc60| 52 da 1d f2 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |R...clos|e_window|
|0000dc70| 28 70 68 65 61 64 69 6e | 67 57 25 29 0d 52 e4 15 |(pheadin|gW%).R..|
|0000dc80| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 6e |.. "Hour|glass_On|
|0000dc90| 22 0d 52 ee 0a f2 62 6c | 61 63 6b 0d 52 f8 19 e3 |".R...bl|ack.R...|
|0000dca0| 20 73 74 75 64 65 6e 74 | 25 3d 31 20 b8 20 4e 72 | student|%=1 . Nr|
|0000dcb0| 65 63 73 25 0d 53 02 0b | 20 20 f2 68 75 6e 74 0d |ecs%.S..|  .hunt.|
|0000dcc0| 53 0c 11 20 20 f2 66 69 | 78 5f 63 68 6f 69 63 65 |S..  .fi|x_choice|
|0000dcd0| 0d 53 16 35 20 20 c8 99 | 20 22 48 6f 75 72 67 6c |.S.5  ..| "Hourgl|
|0000dce0| 61 73 73 5f 50 65 72 63 | 65 6e 74 61 67 65 22 2c |ass_Perc|entage",|
|0000dcf0| 73 74 75 64 65 6e 74 25 | 2a 31 30 30 20 81 20 4e |student%|*100 . N|
|0000dd00| 72 65 63 73 25 0d 53 20 | 0b 20 20 f2 70 6f 6c 6c |recs%.S |.  .poll|
|0000dd10| 0d 53 2a 0e ed 20 73 74 | 75 64 65 6e 74 25 0d 53 |.S*.. st|udent%.S|
|0000dd20| 34 16 f2 6c 69 74 28 6d | 65 6e 75 25 28 37 29 2c |4..lit(m|enu%(7),|
|0000dd30| 31 2c b9 29 0d 53 3e 16 | c8 99 20 22 48 6f 75 72 |1,.).S>.|.. "Hour|
|0000dd40| 67 6c 61 73 73 5f 4f 66 | 66 22 0d 53 48 33 f2 73 |glass_Of|f".SH3.s|
|0000dd50| 68 6f 77 5f 66 69 6c 65 | 28 6d 61 69 6e 61 6e 63 |how_file|(mainanc|
|0000dd60| 68 6f 72 25 2c 6d 61 69 | 6e 57 25 2c 68 65 61 64 |hor%,mai|nW%,head|
|0000dd70| 69 6e 67 57 25 2c 22 4e | 61 6d 65 22 29 0d 53 52 |ingW%,"N|ame").SR|
|0000dd80| 05 e1 0d 53 5c 05 3a 0d | 53 66 0b dd 20 f2 68 75 |...S\.:.|Sf.. .hu|
|0000dd90| 6e 74 0d 53 70 27 ea 20 | 42 25 2c 54 25 2c 73 75 |nt.Sp'. |B%,T%,su|
|0000dda0| 62 25 2c 73 75 62 24 2c | 73 75 62 62 24 2c 64 65 |b%,sub$,|subb$,de|
|0000ddb0| 70 74 24 2c 64 65 70 74 | 25 0d 53 7a 10 62 65 73 |pt$,dept|%.Sz.bes|
|0000ddc0| 74 74 75 74 25 28 29 3d | 30 0d 53 84 14 e3 20 42 |ttut%()=|0.S... B|
|0000ddd0| 25 3d 31 20 b8 20 62 6c | 6f 63 6b 73 25 0d 53 8e |%=1 . bl|ocks%.S.|
|0000dde0| 22 20 20 73 75 62 25 3d | 73 75 62 6e 75 6d 62 65 |"  sub%=|subnumbe|
|0000ddf0| 72 25 28 73 74 75 64 65 | 6e 74 25 2c 42 25 29 0d |r%(stude|nt%,B%).|
|0000de00| 53 98 11 20 20 e7 20 73 | 75 62 25 3c 3e 30 20 8c |S..  . s|ub%<>0 .|
|0000de10| 0d 53 a2 1e 20 20 20 20 | 73 75 62 24 3d 53 75 62 |.S..    |sub$=Sub|
|0000de20| 63 6f 64 65 24 28 94 28 | 73 75 62 25 29 29 0d 53 |code$(.(|sub%)).S|
|0000de30| ac 18 20 20 20 20 73 75 | 62 62 24 3d 73 75 62 24 |..    su|bb$=sub$|
|0000de40| 2b c3 28 42 25 29 0d 53 | b6 2a 20 20 20 20 e7 20 |+.(B%).S|.*    . |
|0000de50| 73 75 62 25 3e 30 20 8c | 20 73 75 62 62 24 2b 3d |sub%>0 .| subb$+=|
|0000de60| 22 41 22 20 8b 20 73 75 | 62 62 24 2b 3d 22 42 22 |"A" . su|bb$+="B"|
|0000de70| 0d 53 c0 1f 20 20 20 20 | 64 65 70 74 24 3d 53 75 |.S..    |dept$=Su|
|0000de80| 62 64 65 70 74 24 28 94 | 28 73 75 62 25 29 29 0d |bdept$(.|(sub%)).|
|0000de90| 53 ca 12 20 20 20 20 c8 | 8e 20 64 65 70 74 24 20 |S..    .|. dept$ |
|0000dea0| ca 0d 53 d4 29 20 20 20 | 20 20 20 c9 20 22 4d 22 |..S.)   |   . "M"|
|0000deb0| 2c 22 43 22 3a 64 65 70 | 74 24 28 73 74 75 64 65 |,"C":dep|t$(stude|
|0000dec0| 6e 74 25 29 3d 64 65 70 | 74 24 0d 53 de 18 20 20 |nt%)=dep|t$.S..  |
|0000ded0| 20 20 20 20 c9 20 22 53 | 22 3a 64 65 70 74 25 2b |    . "S|":dept%+|
|0000dee0| 3d 31 0d 53 e8 18 20 20 | 20 20 20 20 c9 20 22 41 |=1.S..  |    . "A|
|0000def0| 22 3a 64 65 70 74 25 2d | 3d 31 0d 53 f2 09 20 20 |":dept%-|=1.S..  |
|0000df00| 20 20 cb 0d 53 fc 17 20 | 20 20 20 e3 20 54 25 3d |  ..S.. |   . T%=|
|0000df10| 31 20 b8 20 4e 74 75 74 | 73 25 0d 54 06 34 20 20 |1 . Ntut|s%.T.4  |
|0000df20| 20 20 20 20 e7 20 a7 74 | 75 74 6f 72 24 28 54 25 |    . .t|utor$(T%|
|0000df30| 2c 33 29 2c 73 75 62 62 | 24 29 3e 30 20 8c 20 62 |,3),subb|$)>0 . b|
|0000df40| 65 73 74 74 75 74 25 28 | 54 25 29 2b 3d 31 0d 54 |esttut%(|T%)+=1.T|
|0000df50| 10 33 20 20 20 20 20 20 | e7 20 a7 74 75 74 6f 72 |.3      |. .tutor|
|0000df60| 24 28 54 25 2c 33 29 2c | 73 75 62 24 29 3e 30 20 |$(T%,3),|sub$)>0 |
|0000df70| 8c 20 70 6f 73 73 74 75 | 74 25 28 54 25 29 2b 3d |. posstu|t%(T%)+=|
|0000df80| 31 0d 54 1a 0c 20 20 20 | 20 ed 20 54 25 0d 54 24 |1.T..   | . T%.T$|
|0000df90| 07 20 20 cd 0d 54 2e 08 | ed 20 42 25 0d 54 38 1a |.  ..T..|. B%.T8.|
|0000dfa0| e7 20 64 65 70 74 24 28 | 73 74 75 64 65 6e 74 25 |. dept$(|student%|
|0000dfb0| 29 3d 22 22 20 8c 0d 54 | 42 13 20 20 c8 8e 20 b4 |)="" ..T|B.  .. .|
|0000dfc0| 28 64 65 70 74 25 29 20 | ca 0d 54 4c 20 20 20 20 |(dept%) |..TL    |
|0000dfd0| 20 c9 20 2b 31 3a 64 65 | 70 74 24 28 73 74 75 64 | . +1:de|pt$(stud|
|0000dfe0| 65 6e 74 25 29 3d 22 53 | 22 0d 54 56 20 20 20 20 |ent%)="S|".TV    |
|0000dff0| 20 c9 20 2d 31 3a 64 65 | 70 74 24 28 73 74 75 64 | . -1:de|pt$(stud|
|0000e000| 65 6e 74 25 29 3d 22 41 | 22 0d 54 60 07 20 20 cb |ent%)="A|".T`.  .|
|0000e010| 0d 54 6a 05 cd 0d 54 74 | 05 e1 0d 54 7e 05 3a 0d |.Tj...Tt|...T~.:.|
|0000e020| 54 88 11 dd 20 f2 66 69 | 78 5f 63 68 6f 69 63 65 |T... .fi|x_choice|
|0000e030| 0d 54 92 15 ea 20 6d 69 | 6e 25 2c 54 25 2c 63 68 |.T... mi|n%,T%,ch|
|0000e040| 6f 73 65 6e 25 0d 54 9c | 0c 6d 69 6e 25 3d 31 30 |osen%.T.|.min%=10|
|0000e050| 30 0d 54 a6 40 f4 20 23 | 23 23 20 4c 6f 6f 6b 20 |0.T.@. #|## Look |
|0000e060| 66 6f 72 20 73 6f 6d 65 | 6f 6e 65 20 69 6e 20 73 |for some|one in s|
|0000e070| 61 6d 65 20 64 65 70 74 | 2e 20 77 68 6f 20 74 65 |ame dept|. who te|
|0000e080| 61 63 68 65 73 20 73 74 | 75 64 65 6e 74 20 23 23 |aches st|udent ##|
|0000e090| 23 0d 54 b0 18 e7 20 c6 | 8e 28 62 65 73 74 74 75 |#.T... .|.(besttu|
|0000e0a0| 74 25 28 29 29 3e 30 20 | 8c 0d 54 ba 15 20 20 e3 |t%())>0 |..T..  .|
|0000e0b0| 20 54 25 3d 31 20 b8 20 | 4e 74 75 74 73 25 0d 54 | T%=1 . |Ntuts%.T|
|0000e0c0| c4 5e 20 20 20 20 e7 20 | 74 75 74 67 72 70 25 28 |.^    . |tutgrp%(|
|0000e0d0| 54 25 29 3c 67 72 70 6d | 61 78 25 28 54 25 29 20 |T%)<grpm|ax%(T%) |
|0000e0e0| 80 20 62 65 73 74 74 75 | 74 25 28 54 25 29 3e 30 |. besttu|t%(T%)>0|
|0000e0f0| 20 80 20 64 65 70 74 24 | 28 73 74 75 64 65 6e 74 | . dept$|(student|
|0000e100| 25 29 3d 74 75 74 6f 72 | 24 28 54 25 2c 31 29 20 |%)=tutor|$(T%,1) |
|0000e110| 8c 20 63 68 6f 73 65 6e | 25 3d 54 25 0d 54 ce 0a |. chosen|%=T%.T..|
|0000e120| 20 20 ed 20 54 25 0d 54 | d8 05 cd 0d 54 e2 11 e7 |  . T%.T|....T...|
|0000e130| 20 ac 20 63 68 6f 73 65 | 6e 25 20 8c 0d 54 ec 38 | . chose|n% ..T.8|
|0000e140| f4 20 23 23 23 20 4c 6f | 6f 6b 20 66 6f 72 20 61 |. ### Lo|ok for a|
|0000e150| 6e 79 6f 6e 65 20 61 74 | 20 61 6c 6c 20 77 68 6f |nyone at| all who|
|0000e160| 20 74 65 61 63 68 65 73 | 20 73 74 75 64 65 6e 74 | teaches| student|
|0000e170| 20 23 23 23 0d 54 f6 1a | 20 20 e7 20 c6 8e 28 62 | ###.T..|  . ..(b|
|0000e180| 65 73 74 74 75 74 25 28 | 29 29 3e 30 20 8c 0d 55 |esttut%(|))>0 ..U|
|0000e190| 00 17 20 20 20 20 e3 20 | 54 25 3d 31 20 b8 20 4e |..    . |T%=1 . N|
|0000e1a0| 74 75 74 73 25 0d 55 0a | 41 20 20 20 20 20 20 e7 |tuts%.U.|A      .|
|0000e1b0| 20 74 75 74 67 72 70 25 | 28 54 25 29 3c 67 72 70 | tutgrp%|(T%)<grp|
|0000e1c0| 6d 61 78 25 28 54 25 29 | 20 80 20 62 65 73 74 74 |max%(T%)| . bestt|
|0000e1d0| 75 74 25 28 54 25 29 3e | 30 20 8c 20 63 68 6f 73 |ut%(T%)>|0 . chos|
|0000e1e0| 65 6e 25 3d 54 25 0d 55 | 14 0c 20 20 20 20 ed 20 |en%=T%.U|..    . |
|0000e1f0| 54 25 0d 55 1e 07 20 20 | cd 0d 55 28 05 cd 0d 55 |T%.U..  |..U(...U|
|0000e200| 32 11 e7 20 ac 20 63 68 | 6f 73 65 6e 25 20 8c 0d |2.. . ch|osen% ..|
|0000e210| 55 3c 40 f4 20 23 23 23 | 20 4c 6f 6f 6b 20 66 6f |U<@. ###| Look fo|
|0000e220| 72 20 73 6f 6d 65 6f 6e | 65 20 69 6e 20 73 61 6d |r someon|e in sam|
|0000e230| 65 20 64 65 70 74 2e 20 | 77 68 6f 20 74 65 61 63 |e dept. |who teac|
|0000e240| 68 65 73 20 73 75 62 6a | 65 63 74 20 23 23 23 0d |hes subj|ect ###.|
|0000e250| 55 46 1a 20 20 e7 20 c6 | 8e 28 70 6f 73 73 74 75 |UF.  . .|.(posstu|
|0000e260| 74 25 28 29 29 3e 30 20 | 8c 0d 55 50 17 20 20 20 |t%())>0 |..UP.   |
|0000e270| 20 e3 20 54 25 3d 31 20 | b8 20 4e 74 75 74 73 25 | . T%=1 |. Ntuts%|
|0000e280| 0d 55 5a 60 20 20 20 20 | 20 20 e7 20 74 75 74 67 |.UZ`    |  . tutg|
|0000e290| 72 70 25 28 54 25 29 3c | 67 72 70 6d 61 78 25 28 |rp%(T%)<|grpmax%(|
|0000e2a0| 54 25 29 20 80 20 70 6f | 73 73 74 75 74 25 28 54 |T%) . po|sstut%(T|
|0000e2b0| 25 29 3e 30 20 80 20 64 | 65 70 74 24 28 73 74 75 |%)>0 . d|ept$(stu|
|0000e2c0| 64 65 6e 74 25 29 3d 74 | 75 74 6f 72 24 28 54 25 |dent%)=t|utor$(T%|
|0000e2d0| 2c 31 29 20 8c 20 63 68 | 6f 73 65 6e 25 3d 54 25 |,1) . ch|osen%=T%|
|0000e2e0| 0d 55 64 0c 20 20 20 20 | ed 20 54 25 0d 55 6e 07 |.Ud.    |. T%.Un.|
|0000e2f0| 20 20 cd 0d 55 78 05 cd | 0d 55 82 11 e7 20 ac 20 |  ..Ux..|.U... . |
|0000e300| 63 68 6f 73 65 6e 25 20 | 8c 0d 55 8c 38 f4 20 23 |chosen% |..U.8. #|
|0000e310| 23 23 20 4c 6f 6f 6b 20 | 66 6f 72 20 61 6e 79 6f |## Look |for anyo|
|0000e320| 6e 65 20 61 74 20 61 6c | 6c 20 77 68 6f 20 74 65 |ne at al|l who te|
|0000e330| 61 63 68 65 73 20 73 75 | 62 6a 65 63 74 20 23 23 |aches su|bject ##|
|0000e340| 23 0d 55 96 1a 20 20 e7 | 20 c6 8e 28 70 6f 73 73 |#.U..  .| ..(poss|
|0000e350| 74 75 74 25 28 29 29 3e | 30 20 8c 0d 55 a0 17 20 |tut%())>|0 ..U.. |
|0000e360| 20 20 20 e3 20 54 25 3d | 31 20 b8 20 4e 74 75 74 |   . T%=|1 . Ntut|
|0000e370| 73 25 0d 55 aa 41 20 20 | 20 20 20 20 e7 20 74 75 |s%.U.A  |    . tu|
|0000e380| 74 67 72 70 25 28 54 25 | 29 3c 67 72 70 6d 61 78 |tgrp%(T%|)<grpmax|
|0000e390| 25 28 54 25 29 20 80 20 | 70 6f 73 73 74 75 74 25 |%(T%) . |posstut%|
|0000e3a0| 28 54 25 29 3e 30 20 8c | 20 63 68 6f 73 65 6e 25 |(T%)>0 .| chosen%|
|0000e3b0| 3d 54 25 0d 55 b4 0c 20 | 20 20 20 ed 20 54 25 0d |=T%.U.. |   . T%.|
|0000e3c0| 55 be 07 20 20 cd 0d 55 | c8 05 cd 0d 55 d2 11 e7 |U..  ..U|....U...|
|0000e3d0| 20 ac 20 63 68 6f 73 65 | 6e 25 20 8c 0d 55 dc 2e | . chose|n% ..U..|
|0000e3e0| f4 20 23 23 23 20 4c 6f | 6f 6b 20 66 6f 72 20 61 |. ### Lo|ok for a|
|0000e3f0| 6e 79 20 74 75 74 6f 72 | 20 69 6e 20 73 61 6d 65 |ny tutor| in same|
|0000e400| 20 64 65 70 74 2e 20 23 | 23 23 0d 55 e6 15 20 20 | dept. #|##.U..  |
|0000e410| e3 20 54 25 3d 31 20 b8 | 20 4e 74 75 74 73 25 0d |. T%=1 .| Ntuts%.|
|0000e420| 55 f0 71 20 20 20 20 e7 | 20 74 75 74 67 72 70 25 |U.q    .| tutgrp%|
|0000e430| 28 54 25 29 3c 67 72 70 | 6d 61 78 25 28 54 25 29 |(T%)<grp|max%(T%)|
|0000e440| 20 80 20 74 75 74 67 72 | 70 25 28 54 25 29 3c 6d | . tutgr|p%(T%)<m|
|0000e450| 69 6e 25 20 80 20 64 65 | 70 74 24 28 73 74 75 64 |in% . de|pt$(stud|
|0000e460| 65 6e 74 25 29 3d 74 75 | 74 6f 72 24 28 54 25 2c |ent%)=tu|tor$(T%,|
|0000e470| 31 29 20 8c 20 6d 69 6e | 25 3d 74 75 74 67 72 70 |1) . min|%=tutgrp|
|0000e480| 25 28 54 25 29 3a 63 68 | 6f 73 65 6e 25 3d 54 25 |%(T%):ch|osen%=T%|
|0000e490| 0d 55 fa 0a 20 20 ed 20 | 54 25 0d 56 04 05 cd 0d |.U..  . |T%.V....|
|0000e4a0| 56 0e 0f e7 20 63 68 6f | 73 65 6e 25 20 8c 0d 56 |V... cho|sen% ..V|
|0000e4b0| 18 19 20 20 74 75 74 67 | 72 70 25 28 63 68 6f 73 |..  tutg|rp%(chos|
|0000e4c0| 65 6e 25 29 2b 3d 31 0d | 56 22 26 20 20 74 75 74 |en%)+=1.|V"&  tut|
|0000e4d0| 24 28 73 74 75 64 65 6e | 74 25 29 3d 74 75 74 6f |$(studen|t%)=tuto|
|0000e4e0| 72 24 28 63 68 6f 73 65 | 6e 25 2c 30 29 0d 56 2c |r$(chose|n%,0).V,|
|0000e4f0| 1e 20 20 73 75 62 6e 75 | 6d 62 65 72 25 28 73 74 |.  subnu|mber%(st|
|0000e500| 75 64 65 6e 74 25 2c 30 | 29 3d 38 0d 56 36 07 20 |udent%,0|)=8.V6. |
|0000e510| 20 cc 0d 56 40 10 20 20 | 4e 70 72 6f 62 73 25 2b | ..V@.  |Nprobs%+|
|0000e520| 3d 31 0d 56 4a 1f 20 20 | 73 75 62 6e 75 6d 62 65 |=1.VJ.  |subnumbe|
|0000e530| 72 25 28 73 74 75 64 65 | 6e 74 25 2c 30 29 3d 31 |r%(stude|nt%,0)=1|
|0000e540| 31 0d 56 54 05 cd 0d 56 | 5e 05 e1 0d 56 68 05 3a |1.VT...V|^...Vh.:|
|0000e550| 0d 56 72 49 f4 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.VrI. --|--------|
|0000e560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 44 69 73 70 6c 61 |--------|- Displa|
|0000e570| 79 20 72 6f 75 74 69 6e | 65 73 20 2d 2d 2d 2d 2d |y routin|es -----|
|0000e580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000e590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 56 7c 05 3a 0d 56 |--------|-.V|.:.V|
|0000e5a0| 86 28 dd 20 f2 64 69 73 | 70 6c 61 79 5f 67 72 6f |.(. .dis|play_gro|
|0000e5b0| 75 70 28 73 75 62 6a 65 | 63 74 25 2c 62 6c 6b 25 |up(subje|ct%,blk%|
|0000e5c0| 2c 74 75 74 24 29 0d 56 | 90 1f ea 20 73 74 75 64 |,tut$).V|... stud|
|0000e5d0| 65 6e 74 25 2c 53 24 2c | 42 25 2c 73 75 62 25 2c |ent%,S$,|B%,sub%,|
|0000e5e0| 4e 25 2c 4d 25 0d 56 9a | 15 c8 99 20 22 48 6f 75 |N%,M%.V.|... "Hou|
|0000e5f0| 72 67 6c 61 73 73 5f 4f | 6e 22 0d 56 a4 26 f2 73 |rglass_O|n".V.&.s|
|0000e600| 74 61 72 74 5f 6c 69 73 | 74 28 74 65 78 74 61 6e |tart_lis|t(textan|
|0000e610| 63 68 6f 72 25 2c 77 69 | 6e 77 69 64 74 68 25 29 |chor%,wi|nwidth%)|
|0000e620| 0d 56 ae 28 f2 6c 69 73 | 74 5f 6c 69 6e 65 28 91 |.V.(.lis|t_line(.|
|0000e630| 24 2c 74 65 78 74 61 6e | 63 68 6f 72 25 2c 77 69 |$,textan|chor%,wi|
|0000e640| 6e 77 69 64 74 68 25 29 | 0d 56 b8 50 f2 6c 69 73 |nwidth%)|.V.P.lis|
|0000e650| 74 5f 6c 69 6e 65 28 22 | 4e 61 6d 65 22 2b c4 31 |t_line("|Name"+.1|
|0000e660| 37 2c 22 20 22 29 2b c0 | 62 6c 6f 63 6b 73 24 2c |7," ")+.|blocks$,|
|0000e670| 62 6c 6f 63 6b 73 25 2a | 35 29 2b 22 20 54 55 54 |blocks%*|5)+" TUT|
|0000e680| 22 2c 74 65 78 74 61 6e | 63 68 6f 72 25 2c 77 69 |",textan|chor%,wi|
|0000e690| 6e 77 69 64 74 68 25 29 | 0d 56 c2 10 4e 25 3d a4 |nwidth%)|.V..N%=.|
|0000e6a0| 73 63 61 6e 28 2b 31 29 | 0d 56 cc 28 f2 6c 69 73 |scan(+1)|.V.(.lis|
|0000e6b0| 74 5f 6c 69 6e 65 28 22 | 22 2c 74 65 78 74 61 6e |t_line("|",textan|
|0000e6c0| 63 68 6f 72 25 2c 77 69 | 6e 77 69 64 74 68 25 29 |chor%,wi|nwidth%)|
|0000e6d0| 0d 56 d6 40 f2 6c 69 73 | 74 5f 6c 69 6e 65 28 22 |.V.@.lis|t_line("|
|0000e6e0| 4e 6f 2e 20 6f 66 20 73 | 74 75 64 65 6e 74 73 20 |No. of s|tudents |
|0000e6f0| 3d 20 22 2b c3 28 4e 25 | 29 2c 74 65 78 74 61 6e |= "+.(N%|),textan|
|0000e700| 63 68 6f 72 25 2c 77 69 | 6e 77 69 64 74 68 25 29 |chor%,wi|nwidth%)|
|0000e710| 0d 56 e0 1f e7 20 73 75 | 62 6a 65 63 74 25 3e 30 |.V... su|bject%>0|
|0000e720| 20 8c 20 4d 25 3d a4 73 | 63 61 6e 28 2d 31 29 0d | . M%=.s|can(-1).|
|0000e730| 56 ea 0a e7 20 4d 25 20 | 8c 0d 56 f4 2a 20 20 f2 |V... M% |..V.*  .|
|0000e740| 6c 69 73 74 5f 6c 69 6e | 65 28 22 22 2c 74 65 78 |list_lin|e("",tex|
|0000e750| 74 61 6e 63 68 6f 72 25 | 2c 77 69 6e 77 69 64 74 |tanchor%|,winwidt|
|0000e760| 68 25 29 0d 56 fe 42 20 | 20 f2 6c 69 73 74 5f 6c |h%).V.B | .list_l|
|0000e770| 69 6e 65 28 22 4e 6f 2e | 20 6f 66 20 73 74 75 64 |ine("No.| of stud|
|0000e780| 65 6e 74 73 20 3d 20 22 | 2b c3 28 4d 25 29 2c 74 |ents = "|+.(M%),t|
|0000e790| 65 78 74 61 6e 63 68 6f | 72 25 2c 77 69 6e 77 69 |extancho|r%,winwi|
|0000e7a0| 64 74 68 25 29 0d 57 08 | 39 20 20 f2 6c 69 73 74 |dth%).W.|9  .list|
|0000e7b0| 5f 6c 69 6e 65 28 c4 77 | 69 6e 77 69 64 74 68 25 |_line(.w|inwidth%|
|0000e7c0| 2d 31 2c 22 2d 22 29 2c | 74 65 78 74 61 6e 63 68 |-1,"-"),|textanch|
|0000e7d0| 6f 72 25 2c 77 69 6e 77 | 69 64 74 68 25 29 0d 57 |or%,winw|idth%).W|
|0000e7e0| 12 42 20 20 f2 6c 69 73 | 74 5f 6c 69 6e 65 28 22 |.B  .lis|t_line("|
|0000e7f0| 54 6f 74 61 6c 20 6e 75 | 6d 62 65 72 20 3d 20 22 |Total nu|mber = "|
|0000e800| 2b c3 28 4e 25 2b 4d 25 | 29 2c 74 65 78 74 61 6e |+.(N%+M%|),textan|
|0000e810| 63 68 6f 72 25 2c 77 69 | 6e 77 69 64 74 68 25 29 |chor%,wi|nwidth%)|
|0000e820| 0d 57 1c 05 cd 0d 57 26 | 12 e7 20 73 75 62 6a 65 |.W....W&|.. subje|
|0000e830| 63 74 25 3e 30 20 8c 0d | 57 30 3c 20 20 24 47 72 |ct%>0 ..|W0<  $Gr|
|0000e840| 6f 75 70 54 69 74 6c 65 | 25 3d a4 65 78 70 61 6e |oupTitle|%=.expan|
|0000e850| 64 28 53 75 62 63 6f 64 | 65 24 28 73 75 62 6a 65 |d(Subcod|e$(subje|
|0000e860| 63 74 25 29 2c 22 53 75 | 62 6a 65 63 74 31 22 2c |ct%),"Su|bject1",|
|0000e870| 4c 25 29 0d 57 3a 21 20 | 20 67 72 70 66 69 6c 65 |L%).W:! | grpfile|
|0000e880| 24 3d 53 75 62 63 6f 64 | 65 24 28 73 75 62 6a 65 |$=Subcod|e$(subje|
|0000e890| 63 74 25 29 0d 57 44 17 | 20 20 e7 20 62 6c 6b 25 |ct%).WD.|  . blk%|
|0000e8a0| 3c 3d 62 6c 6f 63 6b 73 | 25 20 8c 0d 57 4e 23 20 |<=blocks|% ..WN# |
|0000e8b0| 20 20 20 24 47 72 6f 75 | 70 54 69 74 6c 65 25 2b |   $Grou|pTitle%+|
|0000e8c0| 3d 22 20 42 4c 22 2b c3 | 28 62 6c 6b 25 29 0d 57 |=" BL"+.|(blk%).W|
|0000e8d0| 58 19 20 20 20 20 67 72 | 70 66 69 6c 65 24 2b 3d |X.    gr|pfile$+=|
|0000e8e0| c3 28 62 6c 6b 25 29 0d | 57 62 07 20 20 cd 0d 57 |.(blk%).|Wb.  ..W|
|0000e8f0| 6c 07 20 20 cc 0d 57 76 | 2c 20 20 24 47 72 6f 75 |l.  ..Wv|,  $Grou|
|0000e900| 70 54 69 74 6c 65 25 3d | a4 65 78 70 61 6e 64 28 |pTitle%=|.expand(|
|0000e910| 74 75 74 24 2c 22 53 74 | 61 66 66 31 22 2c 4c 25 |tut$,"St|aff1",L%|
|0000e920| 29 0d 57 80 13 20 20 67 | 72 70 66 69 6c 65 24 3d |).W..  g|rpfile$=|
|0000e930| 74 75 74 24 0d 57 8a 05 | cd 0d 57 94 14 67 72 70 |tut$.W..|..W..grp|
|0000e940| 63 6f 75 6e 74 25 3d 43 | 6f 75 6e 74 25 0d 57 9e |count%=C|ount%.W.|
|0000e950| 23 f2 73 63 72 65 65 6e | 5f 6c 69 73 74 28 67 72 |#.screen|_list(gr|
|0000e960| 6f 75 70 57 25 2c 77 69 | 6e 77 69 64 74 68 25 29 |oupW%,wi|nwidth%)|
|0000e970| 0d 57 a8 16 f2 6d 6f 76 | 65 5f 77 69 6e 28 67 72 |.W...mov|e_win(gr|
|0000e980| 6f 75 70 57 25 29 0d 57 | b2 1d f2 75 70 64 61 74 |oupW%).W|...updat|
|0000e990| 65 5f 70 61 6e 65 73 28 | 67 68 65 61 64 69 6e 67 |e_panes(|gheading|
|0000e9a0| 57 25 29 0d 57 bc 16 c8 | 99 20 22 48 6f 75 72 67 |W%).W...|. "Hourg|
|0000e9b0| 6c 61 73 73 5f 4f 66 66 | 22 0d 57 c6 11 73 70 6c |lass_Off|".W..spl|
|0000e9c0| 69 74 25 3d 28 4d 25 3e | 30 29 0d 57 d0 05 e1 0d |it%=(M%>|0).W....|
|0000e9d0| 57 da 05 3a 0d 57 e4 12 | dd 20 a4 73 63 61 6e 28 |W..:.W..|. .scan(|
|0000e9e0| 73 69 67 6e 25 29 0d 57 | ee 0e ea 20 4e 25 2c 66 |sign%).W|... N%,f|
|0000e9f0| 6c 61 67 25 0d 57 f8 19 | e3 20 73 74 75 64 65 6e |lag%.W..|. studen|
|0000ea00| 74 25 3d 31 20 b8 20 4e | 72 65 63 73 25 0d 58 02 |t%=1 . N|recs%.X.|
|0000ea10| 15 20 20 e7 20 a4 68 69 | 74 28 73 69 67 6e 25 29 |.  . .hi|t(sign%)|
|0000ea20| 20 8c 0d 58 0c 1a 20 20 | 20 20 53 24 3d 6e 61 6d | ..X..  |  S$=nam|
|0000ea30| 65 24 28 73 74 75 64 65 | 6e 74 25 29 0d 58 16 18 |e$(stude|nt%).X..|
|0000ea40| 20 20 20 20 e3 20 42 25 | 3d 31 20 b8 20 62 6c 6f |    . B%|=1 . blo|
|0000ea50| 63 6b 73 25 0d 58 20 29 | 20 20 20 20 20 20 73 75 |cks%.X )|      su|
|0000ea60| 62 25 3d 94 28 73 75 62 | 6e 75 6d 62 65 72 25 28 |b%=.(sub|number%(|
|0000ea70| 73 74 75 64 65 6e 74 25 | 2c 42 25 29 29 0d 58 2a |student%|,B%)).X*|
|0000ea80| 22 20 20 20 20 20 20 73 | 75 62 24 3d 22 20 20 22 |"      s|ub$="  "|
|0000ea90| 2b 53 75 62 63 6f 64 65 | 24 28 73 75 62 25 29 0d |+Subcode|$(sub%).|
|0000eaa0| 58 34 12 20 20 20 20 20 | 20 53 24 2b 3d 73 75 62 |X4.     | S$+=sub|
|0000eab0| 24 0d 58 3e 0c 20 20 20 | 20 ed 20 42 25 0d 58 48 |$.X>.   | . B%.XH|
|0000eac0| 1f 20 20 20 20 53 24 2b | 3d 22 20 20 22 2b 74 75 |.    S$+|="  "+tu|
|0000ead0| 74 24 28 73 74 75 64 65 | 6e 74 25 29 0d 58 52 1e |t$(stude|nt%).XR.|
|0000eae0| 20 20 20 20 e7 20 73 69 | 67 6e 25 3d 2d 31 20 80 |    . si|gn%=-1 .|
|0000eaf0| 20 66 6c 61 67 25 3d a3 | 20 8c 0d 58 5c 3d 20 20 | flag%=.| ..X\=  |
|0000eb00| 20 20 20 20 f2 6c 69 73 | 74 5f 6c 69 6e 65 28 c4 |    .lis|t_line(.|
|0000eb10| 77 69 6e 77 69 64 74 68 | 25 2d 31 2c 22 2d 22 29 |winwidth|%-1,"-")|
|0000eb20| 2c 74 65 78 74 61 6e 63 | 68 6f 72 25 2c 77 69 6e |,textanc|hor%,win|
|0000eb30| 77 69 64 74 68 25 29 0d | 58 66 11 20 20 20 20 20 |width%).|Xf.     |
|0000eb40| 20 66 6c 61 67 25 3d b9 | 0d 58 70 09 20 20 20 20 | flag%=.|.Xp.    |
|0000eb50| cd 0d 58 7a 2c 20 20 20 | 20 f2 6c 69 73 74 5f 6c |..Xz,   | .list_l|
|0000eb60| 69 6e 65 28 53 24 2c 74 | 65 78 74 61 6e 63 68 6f |ine(S$,t|extancho|
|0000eb70| 72 25 2c 77 69 6e 77 69 | 64 74 68 25 29 0d 58 84 |r%,winwi|dth%).X.|
|0000eb80| 0d 20 20 20 20 4e 25 2b | 3d 31 0d 58 8e 07 20 20 |.    N%+|=1.X..  |
|0000eb90| cd 0d 58 98 0e ed 20 73 | 74 75 64 65 6e 74 25 0d |..X... s|tudent%.|
|0000eba0| 58 a2 07 3d 4e 25 0d 58 | ac 05 3a 0d 58 b6 11 dd |X..=N%.X|..:.X...|
|0000ebb0| 20 a4 68 69 74 28 73 69 | 67 6e 25 29 0d 58 c0 0c | .hit(si|gn%).X..|
|0000ebc0| ea 20 6f 6b 25 2c 42 25 | 0d 58 ca 0a c8 8e 20 b9 |. ok%,B%|.X.... .|
|0000ebd0| 20 ca 0d 58 d4 21 20 20 | c9 20 74 75 74 24 28 73 | ..X.!  |. tut$(s|
|0000ebe0| 74 75 64 65 6e 74 25 29 | 3d 74 75 74 24 3a 6f 6b |tudent%)|=tut$:ok|
|0000ebf0| 25 3d b9 0d 58 de 36 20 | 20 c9 20 73 75 62 6e 75 |%=..X.6 | . subnu|
|0000ec00| 6d 62 65 72 25 28 73 74 | 75 64 65 6e 74 25 2c 62 |mber%(st|udent%,b|
|0000ec10| 6c 6b 25 29 3d 73 75 62 | 6a 65 63 74 25 2a 73 69 |lk%)=sub|ject%*si|
|0000ec20| 67 6e 25 3a 6f 6b 25 3d | b9 0d 58 e8 17 20 20 c9 |gn%:ok%=|..X..  .|
|0000ec30| 20 62 6c 6b 25 3d 62 6c | 6f 63 6b 73 25 2b 31 3a | blk%=bl|ocks%+1:|
|0000ec40| 0d 58 f2 0d 20 20 f5 20 | 42 25 2b 3d 31 0d 58 fc |.X..  . |B%+=1.X.|
|0000ec50| 38 20 20 fd 20 73 75 62 | 6e 75 6d 62 65 72 25 28 |8  . sub|number%(|
|0000ec60| 73 74 75 64 65 6e 74 25 | 2c 42 25 29 3d 73 75 62 |student%|,B%)=sub|
|0000ec70| 6a 65 63 74 25 2a 73 69 | 67 6e 25 20 84 20 42 25 |ject%*si|gn% . B%|
|0000ec80| 3d 62 6c 6b 25 0d 59 06 | 17 20 20 e7 20 42 25 3c |=blk%.Y.|.  . B%<|
|0000ec90| 62 6c 6b 25 20 8c 20 6f | 6b 25 3d b9 0d 59 10 05 |blk% . o|k%=..Y..|
|0000eca0| cb 0d 59 1a 08 3d 6f 6b | 25 0d 59 24 05 3a 0d 59 |..Y..=ok|%.Y$.:.Y|
|0000ecb0| 2e 18 dd 20 f2 73 68 6f | 77 5f 74 75 74 6f 72 5f |... .sho|w_tutor_|
|0000ecc0| 67 72 6f 75 70 73 0d 59 | 38 25 f2 73 74 61 72 74 |groups.Y|8%.start|
|0000ecd0| 5f 6c 69 73 74 28 74 75 | 74 61 6e 63 68 6f 72 25 |_list(tu|tanchor%|
|0000ece0| 2c 74 75 74 77 69 64 74 | 68 25 29 0d 59 42 13 e3 |,tutwidt|h%).YB..|
|0000ecf0| 20 54 25 3d 31 20 b8 20 | 4e 74 75 74 73 25 0d 59 | T%=1 . |Ntuts%.Y|
|0000ed00| 4c 42 20 20 53 24 3d a4 | 70 61 64 28 a4 65 78 70 |LB  S$=.|pad(.exp|
|0000ed10| 61 6e 64 28 74 75 74 6f | 72 24 28 54 25 2c 30 29 |and(tuto|r$(T%,0)|
|0000ed20| 2c 22 53 74 61 66 66 31 | 22 2c 4c 25 29 2c 31 35 |,"Staff1|",L%),15|
|0000ed30| 29 2b c3 28 74 75 74 67 | 72 70 25 28 54 25 29 29 |)+.(tutg|rp%(T%))|
|0000ed40| 0d 59 56 29 20 20 f2 6c | 69 73 74 5f 6c 69 6e 65 |.YV)  .l|ist_line|
|0000ed50| 28 53 24 2c 74 75 74 61 | 6e 63 68 6f 72 25 2c 74 |(S$,tuta|nchor%,t|
|0000ed60| 75 74 77 69 64 74 68 25 | 29 0d 59 60 08 ed 20 54 |utwidth%|).Y`.. T|
|0000ed70| 25 0d 59 6a 14 74 75 74 | 63 6f 75 6e 74 25 3d 43 |%.Yj.tut|count%=C|
|0000ed80| 6f 75 6e 74 25 0d 59 74 | 26 f2 73 63 72 65 65 6e |ount%.Yt|&.screen|
|0000ed90| 5f 6c 69 73 74 28 74 75 | 74 6f 72 67 72 70 57 25 |_list(tu|torgrpW%|
|0000eda0| 2c 74 75 74 77 69 64 74 | 68 25 29 0d 59 7e 05 e1 |,tutwidt|h%).Y~..|
|0000edb0| 0d 59 88 05 3a 0d 59 92 | 30 dd 20 f2 73 68 6f 77 |.Y..:.Y.|0. .show|
|0000edc0| 5f 66 69 6c 65 28 61 6e | 63 68 6f 72 25 2c 68 61 |_file(an|chor%,ha|
|0000edd0| 6e 64 6c 65 25 2c 68 65 | 61 64 68 61 6e 64 6c 65 |ndle%,he|adhandle|
|0000ede0| 25 2c 48 24 29 0d 59 9c | 14 ea 20 4e 25 2c 42 25 |%,H$).Y.|.. N%,B%|
|0000edf0| 2c 73 74 75 64 65 6e 74 | 25 0d 59 a6 2d e7 20 68 |,student|%.Y.-. h|
|0000ee00| 61 6e 64 6c 65 25 3d 6d | 61 69 6e 57 25 20 8c 20 |andle%=m|ainW% . |
|0000ee10| 4e 25 3d 4e 72 65 63 73 | 25 20 8b 20 4e 25 3d 4e |N%=Nrecs|% . N%=N|
|0000ee20| 70 72 6f 62 73 25 0d 59 | b0 15 c8 99 20 22 48 6f |probs%.Y|.... "Ho|
|0000ee30| 75 72 67 6c 61 73 73 5f | 4f 6e 22 0d 59 ba 22 f2 |urglass_|On".Y.".|
|0000ee40| 73 74 61 72 74 5f 6c 69 | 73 74 28 61 6e 63 68 6f |start_li|st(ancho|
|0000ee50| 72 25 2c 77 69 6e 77 69 | 64 74 68 25 29 0d 59 c4 |r%,winwi|dth%).Y.|
|0000ee60| 24 f2 6c 69 73 74 5f 6c | 69 6e 65 28 91 24 2c 61 |$.list_l|ine(.$,a|
|0000ee70| 6e 63 68 6f 72 25 2c 77 | 69 6e 77 69 64 74 68 25 |nchor%,w|inwidth%|
|0000ee80| 29 0d 59 ce 4e f2 6c 69 | 73 74 5f 6c 69 6e 65 28 |).Y.N.li|st_line(|
|0000ee90| 48 24 2b c4 32 31 2d a9 | 28 48 24 29 2c 22 20 22 |H$+.21-.|(H$)," "|
|0000eea0| 29 2b c0 62 6c 6f 63 6b | 73 24 2c 62 6c 6f 63 6b |)+.block|s$,block|
|0000eeb0| 73 25 2a 35 29 2b 22 20 | 54 55 54 22 2c 61 6e 63 |s%*5)+" |TUT",anc|
|0000eec0| 68 6f 72 25 2c 77 69 6e | 77 69 64 74 68 25 29 0d |hor%,win|width%).|
|0000eed0| 59 d8 19 e3 20 73 74 75 | 64 65 6e 74 25 3d 31 20 |Y... stu|dent%=1 |
|0000eee0| b8 20 4e 72 65 63 73 25 | 0d 59 e2 34 20 20 e7 20 |. Nrecs%|.Y.4  . |
|0000eef0| 68 61 6e 64 6c 65 25 3d | 6d 61 69 6e 57 25 20 84 |handle%=|mainW% .|
|0000ef00| 20 73 75 62 6e 75 6d 62 | 65 72 25 28 73 74 75 64 | subnumb|er%(stud|
|0000ef10| 65 6e 74 25 2c 30 29 3d | 31 31 20 8c 0d 59 ec 1a |ent%,0)=|11 ..Y..|
|0000ef20| 20 20 20 20 53 24 3d 6e | 61 6d 65 24 28 73 74 75 |    S$=n|ame$(stu|
|0000ef30| 64 65 6e 74 25 29 0d 59 | f6 18 20 20 20 20 e3 20 |dent%).Y|..    . |
|0000ef40| 42 25 3d 31 20 b8 20 62 | 6c 6f 63 6b 73 25 0d 5a |B%=1 . b|locks%.Z|
|0000ef50| 00 29 20 20 20 20 20 20 | 73 75 62 25 3d 94 28 73 |.)      |sub%=.(s|
|0000ef60| 75 62 6e 75 6d 62 65 72 | 25 28 73 74 75 64 65 6e |ubnumber|%(studen|
|0000ef70| 74 25 2c 42 25 29 29 0d | 5a 0a 22 20 20 20 20 20 |t%,B%)).|Z."     |
|0000ef80| 20 73 75 62 24 3d 22 20 | 20 22 2b 53 75 62 63 6f | sub$=" | "+Subco|
|0000ef90| 64 65 24 28 73 75 62 25 | 29 0d 5a 14 12 20 20 20 |de$(sub%|).Z..   |
|0000efa0| 20 20 20 53 24 2b 3d 73 | 75 62 24 0d 5a 1e 0c 20 |   S$+=s|ub$.Z.. |
|0000efb0| 20 20 20 ed 20 42 25 0d | 5a 28 21 20 20 20 20 20 |   . B%.|Z(!     |
|0000efc0| 20 53 24 2b 3d 22 20 20 | 22 2b 74 75 74 24 28 73 | S$+="  |"+tut$(s|
|0000efd0| 74 75 64 65 6e 74 25 29 | 0d 5a 32 28 20 20 20 20 |tudent%)|.Z2(    |
|0000efe0| f2 6c 69 73 74 5f 6c 69 | 6e 65 28 53 24 2c 61 6e |.list_li|ne(S$,an|
|0000eff0| 63 68 6f 72 25 2c 77 69 | 6e 77 69 64 74 68 25 29 |chor%,wi|nwidth%)|
|0000f000| 0d 5a 3c 07 20 20 cd 0d | 5a 46 0e ed 20 73 74 75 |.Z<.  ..|ZF.. stu|
|0000f010| 64 65 6e 74 25 0d 5a 50 | 24 f2 6c 69 73 74 5f 6c |dent%.ZP|$.list_l|
|0000f020| 69 6e 65 28 22 22 2c 61 | 6e 63 68 6f 72 25 2c 77 |ine("",a|nchor%,w|
|0000f030| 69 6e 77 69 64 74 68 25 | 29 0d 5a 5a 3c f2 6c 69 |inwidth%|).ZZ<.li|
|0000f040| 73 74 5f 6c 69 6e 65 28 | 22 4e 6f 2e 20 6f 66 20 |st_line(|"No. of |
|0000f050| 73 74 75 64 65 6e 74 73 | 20 3d 20 22 2b c3 28 4e |students| = "+.(N|
|0000f060| 25 29 2c 61 6e 63 68 6f | 72 25 2c 77 69 6e 77 69 |%),ancho|r%,winwi|
|0000f070| 64 74 68 25 29 0d 5a 64 | 16 c8 99 20 22 48 6f 75 |dth%).Zd|... "Hou|
|0000f080| 72 67 6c 61 73 73 5f 4f | 66 66 22 0d 5a 6e 23 f2 |rglass_O|ff".Zn#.|
|0000f090| 73 63 72 65 65 6e 5f 6c | 69 73 74 28 68 61 6e 64 |screen_l|ist(hand|
|0000f0a0| 6c 65 25 2c 77 69 6e 77 | 69 64 74 68 25 29 0d 5a |le%,winw|idth%).Z|
|0000f0b0| 78 2c e7 20 68 61 6e 64 | 6c 65 25 3d 70 72 6f 62 |x,. hand|le%=prob|
|0000f0c0| 6c 65 6d 57 25 20 8c 20 | f2 6d 6f 76 65 5f 77 69 |lemW% . |.move_wi|
|0000f0d0| 6e 28 68 61 6e 64 6c 65 | 25 29 0d 5a 82 1e f2 75 |n(handle|%).Z...u|
|0000f0e0| 70 64 61 74 65 5f 70 61 | 6e 65 73 28 68 65 61 64 |pdate_pa|nes(head|
|0000f0f0| 68 61 6e 64 6c 65 25 29 | 0d 5a 8c 05 e1 0d 5a 96 |handle%)|.Z....Z.|
|0000f100| 05 3a 0d 5a a0 3e dd 20 | f2 64 69 73 70 6c 61 79 |.:.Z.>. |.display|
|0000f110| 5f 76 61 6c 75 65 73 28 | 61 6e 63 68 6f 72 25 2c |_values(|anchor%,|
|0000f120| 61 72 72 61 79 25 28 29 | 2c 68 61 6e 64 6c 65 25 |array%()|,handle%|
|0000f130| 2c 68 65 61 64 68 61 6e | 64 6c 65 25 2c 48 24 29 |,headhan|dle%,H$)|
|0000f140| 0d 5a aa 14 ea 20 49 25 | 2c 4a 25 2c 56 25 2c 53 |.Z... I%|,J%,V%,S|
|0000f150| 24 2c 56 24 0d 5a b4 15 | c8 99 20 22 48 6f 75 72 |$,V$.Z..|.. "Hour|
|0000f160| 67 6c 61 73 73 5f 4f 6e | 22 0d 5a be 41 e7 20 68 |glass_On|".Z.A. h|
|0000f170| 61 6e 64 6c 65 25 3d 77 | 65 69 67 68 74 57 25 20 |andle%=w|eightW% |
|0000f180| 8c 20 4c 65 6e 4c 69 6e | 65 25 3d 57 77 69 6e 77 |. LenLin|e%=Wwinw|
|0000f190| 69 64 74 68 25 20 8b 20 | 4c 65 6e 4c 69 6e 65 25 |idth% . |LenLine%|
|0000f1a0| 3d 77 69 6e 77 69 64 74 | 68 25 0d 5a c8 21 f2 73 |=winwidt|h%.Z.!.s|
|0000f1b0| 74 61 72 74 5f 6c 69 73 | 74 28 61 6e 63 68 6f 72 |tart_lis|t(anchor|
|0000f1c0| 25 2c 4c 65 6e 4c 69 6e | 65 25 29 0d 5a d2 23 f2 |%,LenLin|e%).Z.#.|
|0000f1d0| 6c 69 73 74 5f 6c 69 6e | 65 28 91 24 2c 61 6e 63 |list_lin|e(.$,anc|
|0000f1e0| 68 6f 72 25 2c 4c 65 6e | 4c 69 6e 65 25 29 0d 5a |hor%,Len|Line%).Z|
|0000f1f0| dc 72 e7 20 68 61 6e 64 | 6c 65 25 3d 74 6f 74 61 |.r. hand|le%=tota|
|0000f200| 6c 57 25 20 8c 20 48 24 | 3d 48 24 2b c4 32 31 2d |lW% . H$|=H$+.21-|
|0000f210| a9 28 48 24 29 2c 22 20 | 22 29 2b c0 62 6c 6f 63 |.(H$)," |")+.bloc|
|0000f220| 6b 73 24 2c 62 6c 6f 63 | 6b 73 25 2a 35 29 2b 22 |ks$,bloc|ks%*5)+"|
|0000f230| 20 41 4c 4c 22 20 8b 20 | 48 24 3d 48 24 2b c4 32 | ALL" . |H$=H$+.2|
|0000f240| 31 2d a9 28 48 24 29 2c | 22 20 22 29 2b c0 62 6c |1-.(H$),|" ")+.bl|
|0000f250| 6f 63 6b 73 24 2c 62 6c | 6f 63 6b 73 25 2a 35 29 |ocks$,bl|ocks%*5)|
|0000f260| 0d 5a e6 23 f2 6c 69 73 | 74 5f 6c 69 6e 65 28 48 |.Z.#.lis|t_line(H|
|0000f270| 24 2c 61 6e 63 68 6f 72 | 25 2c 4c 65 6e 4c 69 6e |$,anchor|%,LenLin|
|0000f280| 65 25 29 0d 5a f0 13 e3 | 20 49 25 3d 31 20 b8 20 |e%).Z...| I%=1 . |
|0000f290| 4e 73 75 62 73 25 0d 5a | fa 1e 20 20 53 24 3d a4 |Nsubs%.Z|..  S$=.|
|0000f2a0| 70 61 64 28 53 75 62 6e | 61 6d 65 24 28 49 25 29 |pad(Subn|ame$(I%)|
|0000f2b0| 2c 32 30 29 0d 5b 04 16 | 20 20 e3 20 4a 25 3d 31 |,20).[..|  . J%=1|
|0000f2c0| 20 b8 20 62 6c 6f 63 6b | 73 25 0d 5b 0e 18 20 20 | . block|s%.[..  |
|0000f2d0| 20 20 56 25 3d 61 72 72 | 61 79 25 28 49 25 2c 4a |  V%=arr|ay%(I%,J|
|0000f2e0| 25 29 0d 5b 18 3e 20 20 | 20 20 e7 20 68 61 6e 64 |%).[.>  |  . hand|
|0000f2f0| 6c 65 25 3d 74 6f 74 61 | 6c 57 25 20 80 20 62 6c |le%=tota|lW% . bl|
|0000f300| 6f 63 6b 65 64 25 3d b9 | 20 8c 20 56 25 2d 3d 77 |ocked%=.| . V%-=w|
|0000f310| 65 69 67 68 74 69 6e 67 | 25 28 49 25 2c 4a 25 29 |eighting|%(I%,J%)|
|0000f320| 0d 5b 22 10 20 20 20 20 | 56 24 3d c3 28 56 25 29 |.[".    |V$=.(V%)|
|0000f330| 0d 5b 2c 1b 20 20 20 20 | 56 24 3d c4 35 2d a9 28 |.[,.    |V$=.5-.(|
|0000f340| 56 24 29 2c 22 20 22 29 | 2b 56 24 0d 5b 36 0e 20 |V$)," ")|+V$.[6. |
|0000f350| 20 20 20 53 24 2b 3d 56 | 24 0d 5b 40 0a 20 20 ed |   S$+=V|$.[@.  .|
|0000f360| 20 4a 25 0d 5b 4a 19 20 | 20 e7 20 68 61 6e 64 6c | J%.[J. | . handl|
|0000f370| 65 25 3d 74 6f 74 61 6c | 57 25 20 8c 0d 5b 54 1a |e%=total|W% ..[T.|
|0000f380| 20 20 20 20 56 24 3d c3 | 28 61 72 72 61 79 25 28 |    V$=.|(array%(|
|0000f390| 49 25 2c 30 29 29 0d 5b | 5e 1b 20 20 20 20 56 24 |I%,0)).[|^.    V$|
|0000f3a0| 3d c4 35 2d a9 28 56 24 | 29 2c 22 20 22 29 2b 56 |=.5-.(V$|)," ")+V|
|0000f3b0| 24 0d 5b 68 0e 20 20 20 | 20 53 24 2b 3d 56 24 0d |$.[h.   | S$+=V$.|
|0000f3c0| 5b 72 07 20 20 cd 0d 5b | 7c 25 20 20 f2 6c 69 73 |[r.  ..[||%  .lis|
|0000f3d0| 74 5f 6c 69 6e 65 28 53 | 24 2c 61 6e 63 68 6f 72 |t_line(S|$,anchor|
|0000f3e0| 25 2c 4c 65 6e 4c 69 6e | 65 25 29 0d 5b 86 08 ed |%,LenLin|e%).[...|
|0000f3f0| 20 49 25 0d 5b 90 16 c8 | 99 20 22 48 6f 75 72 67 | I%.[...|. "Hourg|
|0000f400| 6c 61 73 73 5f 4f 66 66 | 22 0d 5b 9a 22 f2 73 63 |lass_Off|".[.".sc|
|0000f410| 72 65 65 6e 5f 6c 69 73 | 74 28 68 61 6e 64 6c 65 |reen_lis|t(handle|
|0000f420| 25 2c 4c 65 6e 4c 69 6e | 65 25 29 0d 5b a4 16 f2 |%,LenLin|e%).[...|
|0000f430| 6d 6f 76 65 5f 77 69 6e | 28 68 61 6e 64 6c 65 25 |move_win|(handle%|
|0000f440| 29 0d 5b ae 1e f2 75 70 | 64 61 74 65 5f 70 61 6e |).[...up|date_pan|
|0000f450| 65 73 28 68 65 61 64 68 | 61 6e 64 6c 65 25 29 0d |es(headh|andle%).|
|0000f460| 5b b8 05 e1 0d 5b c2 05 | 3a 0d 5b cc 48 f4 20 2d |[....[..|:.[.H. -|
|0000f470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000f480| 2d 2d 20 45 64 69 74 69 | 6e 67 20 72 6f 75 74 69 |-- Editi|ng routi|
|0000f490| 6e 65 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nes ----|--------|
|0000f4a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000f4b0| 2d 0d 5b d6 05 3a 0d 5b | e0 19 dd 20 f2 61 6c 74 |-.[..:.[|... .alt|
|0000f4c0| 65 72 28 73 74 75 64 65 | 6e 74 25 2c 42 25 29 0d |er(stude|nt%,B%).|
|0000f4d0| 5b ea 1f ea 20 49 25 2c | 6f 6c 64 25 2c 6e 65 77 |[... I%,|old%,new|
|0000f4e0| 25 2c 6f 6c 64 24 2c 6e | 65 77 24 2c 53 24 0d 5b |%,old$,n|ew$,S$.[|
|0000f4f0| f4 15 6f 6c 64 24 3d c2 | 24 4f 6c 64 70 6f 73 25 |..old$=.|$Oldpos%|
|0000f500| 2c 33 29 0d 5b fe 11 6e | 65 77 24 3d 24 4e 65 77 |,3).[..n|ew$=$New|
|0000f510| 70 6f 73 25 0d 5c 08 20 | e7 20 6e 65 77 24 3d 22 |pos%.\. |. new$="|
|0000f520| 22 20 8c 20 6e 65 77 24 | 3d 53 75 62 63 6f 64 65 |" . new$|=Subcode|
|0000f530| 24 28 30 29 0d 5c 12 0b | c8 8e 20 42 25 20 ca 0d |$(0).\..|.. B% ..|
|0000f540| 5c 1c 12 20 20 c9 20 62 | 6c 6f 63 6b 73 25 2b 31 |\..  . b|locks%+1|
|0000f550| 3a 0d 5c 26 1c 20 20 6f | 6c 64 25 3d a4 74 75 74 |:.\&.  o|ld%=.tut|
|0000f560| 5f 6e 75 6d 62 65 72 28 | 6f 6c 64 24 29 0d 5c 30 |_number(|old$).\0|
|0000f570| 1c 20 20 6e 65 77 25 3d | a4 74 75 74 5f 6e 75 6d |.  new%=|.tut_num|
|0000f580| 62 65 72 28 6e 65 77 24 | 29 0d 5c 3a 21 20 20 e7 |ber(new$|).\:!  .|
|0000f590| 20 6f 6c 64 25 3e 30 20 | 8c 20 74 75 74 67 72 70 | old%>0 |. tutgrp|
|0000f5a0| 25 28 6f 6c 64 25 29 2d | 3d 31 0d 5c 44 1a 20 20 |%(old%)-|=1.\D.  |
|0000f5b0| f2 75 70 64 61 74 65 5f | 74 75 74 67 72 70 28 6f |.update_|tutgrp(o|
|0000f5c0| 6c 64 25 29 0d 5c 4e 21 | 20 20 e7 20 6e 65 77 25 |ld%).\N!|  . new%|
|0000f5d0| 3e 30 20 8c 20 74 75 74 | 67 72 70 25 28 6e 65 77 |>0 . tut|grp%(new|
|0000f5e0| 25 29 2b 3d 31 0d 5c 58 | 1a 20 20 f2 75 70 64 61 |%)+=1.\X|.  .upda|
|0000f5f0| 74 65 5f 74 75 74 67 72 | 70 28 6e 65 77 25 29 0d |te_tutgr|p(new%).|
|0000f600| 5c 62 19 20 20 74 75 74 | 24 28 73 74 75 64 65 6e |\b.  tut|$(studen|
|0000f610| 74 25 29 3d 6e 65 77 24 | 0d 5c 6c 08 20 20 7f 3a |t%)=new$|.\l.  .:|
|0000f620| 0d 5c 76 21 20 20 54 25 | 3d a4 74 61 62 6c 65 5f |.\v!  T%|=.table_|
|0000f630| 6e 75 6d 62 65 72 28 22 | 53 75 62 6a 65 63 74 22 |number("|Subject"|
|0000f640| 29 0d 5c 80 3d 20 20 54 | 24 3d a4 74 61 62 6c 65 |).\.=  T|$=.table|
|0000f650| 5f 69 6e 66 6f 28 54 25 | 2c 52 6f 77 73 25 2c 54 |_info(T%|,Rows%,T|
|0000f660| 61 62 46 69 65 6c 64 73 | 25 2c 52 65 63 25 2c 74 |abFields|%,Rec%,t|
|0000f670| 61 62 66 69 65 6c 64 6c | 65 6e 25 28 29 29 0d 5c |abfieldl|en%()).\|
|0000f680| 8a 24 20 20 73 74 61 72 | 74 25 3d 21 74 61 62 61 |.$  star|t%=!taba|
|0000f690| 6e 63 68 6f 72 25 28 30 | 29 2b 31 36 30 2d 52 65 |nchor%(0|)+160-Re|
|0000f6a0| 63 25 0d 5c 94 1c 20 20 | 6f 6c 64 25 3d a4 73 75 |c%.\..  |old%=.su|
|0000f6b0| 62 5f 6e 75 6d 62 65 72 | 28 6f 6c 64 24 29 0d 5c |b_number|(old$).\|
|0000f6c0| 9e 1c 20 20 6e 65 77 25 | 3d a4 73 75 62 5f 6e 75 |..  new%|=.sub_nu|
|0000f6d0| 6d 62 65 72 28 6e 65 77 | 24 29 0d 5c a8 23 20 20 |mber(new|$).\.#  |
|0000f6e0| e7 20 6f 6c 64 25 3e 30 | 20 8c 20 74 6f 74 61 6c |. old%>0| . total|
|0000f6f0| 25 28 6f 6c 64 25 2c 42 | 25 29 2d 3d 31 0d 5c b2 |%(old%,B|%)-=1.\.|
|0000f700| 17 20 20 74 6f 74 61 6c | 25 28 6f 6c 64 25 2c 30 |.  total|%(old%,0|
|0000f710| 29 2d 3d 31 0d 5c bc 19 | 20 20 f2 75 70 64 61 74 |)-=1.\..|  .updat|
|0000f720| 65 5f 74 6f 74 61 6c 28 | 6f 6c 64 25 29 0d 5c c6 |e_total(|old%).\.|
|0000f730| 23 20 20 e7 20 6e 65 77 | 25 3e 30 20 8c 20 74 6f |#  . new|%>0 . to|
|0000f740| 74 61 6c 25 28 6e 65 77 | 25 2c 42 25 29 2b 3d 31 |tal%(new|%,B%)+=1|
|0000f750| 0d 5c d0 17 20 20 74 6f | 74 61 6c 25 28 6e 65 77 |.\..  to|tal%(new|
|0000f760| 25 2c 30 29 2b 3d 31 0d | 5c da 19 20 20 f2 75 70 |%,0)+=1.|\..  .up|
|0000f770| 64 61 74 65 5f 74 6f 74 | 61 6c 28 6e 65 77 25 29 |date_tot|al(new%)|
|0000f780| 0d 5c e4 22 20 20 73 75 | 62 6e 75 6d 62 65 72 25 |.\."  su|bnumber%|
|0000f790| 28 73 74 75 64 65 6e 74 | 25 2c 42 25 29 3d 6e 65 |(student|%,B%)=ne|
|0000f7a0| 77 25 0d 5c ee 05 cb 0d | 5c f8 1f 53 24 3d a4 70 |w%.\....|\..S$=.p|
|0000f7b0| 61 64 28 6e 61 6d 65 24 | 28 73 74 75 64 65 6e 74 |ad(name$|(student|
|0000f7c0| 25 29 2c 32 31 29 0d 5d | 02 14 e3 20 49 25 3d 31 |%),21).]|... I%=1|
|0000f7d0| 20 b8 20 62 6c 6f 63 6b | 73 25 0d 5d 0c 33 20 20 | . block|s%.].3  |
|0000f7e0| 53 24 2b 3d 22 20 22 2b | 53 75 62 63 6f 64 65 24 |S$+=" "+|Subcode$|
|0000f7f0| 28 73 75 62 6e 75 6d 62 | 65 72 25 28 73 74 75 64 |(subnumb|er%(stud|
|0000f800| 65 6e 74 25 2c 49 25 29 | 29 2b 22 20 22 0d 5d 16 |ent%,I%)|)+" ".].|
|0000f810| 08 ed 20 49 25 0d 5d 20 | 1a 53 24 2b 3d 22 20 22 |.. I%.] |.S$+=" "|
|0000f820| 2b 74 75 74 24 28 73 74 | 75 64 65 6e 74 25 29 0d |+tut$(st|udent%).|
|0000f830| 5d 2a 3c f2 75 70 64 61 | 74 65 5f 6c 69 6e 65 28 |]*<.upda|te_line(|
|0000f840| 6d 61 69 6e 57 25 2c 6d | 61 69 6e 61 6e 63 68 6f |mainW%,m|ainancho|
|0000f850| 72 25 2c 73 74 75 64 65 | 6e 74 25 2b 31 2c 53 24 |r%,stude|nt%+1,S$|
|0000f860| 2c 77 69 6e 77 69 64 74 | 68 25 29 0d 5d 34 05 e1 |,winwidt|h%).]4..|
|0000f870| 0d 5d 3e 05 3a 0d 5d 48 | 19 dd 20 f2 75 70 64 61 |.]>.:.]H|.. .upda|
|0000f880| 74 65 5f 74 6f 74 61 6c | 28 73 75 62 25 29 0d 5d |te_total|(sub%).]|
|0000f890| 52 19 e7 20 21 74 6f 74 | 61 6c 61 6e 63 68 6f 72 |R.. !tot|alanchor|
|0000f8a0| 25 3d 30 20 8c 20 e1 0d | 5d 5c 17 ea 20 54 25 2c |%=0 . ..|]\.. T%,|
|0000f8b0| 4a 25 2c 56 25 2c 53 24 | 2c 54 24 2c 56 24 0d 5d |J%,V%,S$|,T$,V$.]|
|0000f8c0| 66 1e 53 24 3d a4 70 61 | 64 28 53 75 62 6e 61 6d |f.S$=.pa|d(Subnam|
|0000f8d0| 65 24 28 73 75 62 25 29 | 2c 32 30 29 0d 5d 70 14 |e$(sub%)|,20).]p.|
|0000f8e0| e3 20 4a 25 3d 31 20 b8 | 20 62 6c 6f 63 6b 73 25 |. J%=1 .| blocks%|
|0000f8f0| 0d 5d 7a 18 20 20 56 25 | 3d 74 6f 74 61 6c 25 28 |.]z.  V%|=total%(|
|0000f900| 73 75 62 25 2c 4a 25 29 | 0d 5d 84 0c 20 20 54 25 |sub%,J%)|.]..  T%|
|0000f910| 2b 3d 56 25 0d 5d 8e 0e | 20 20 56 24 3d c3 28 56 |+=V%.]..|  V$=.(V|
|0000f920| 25 29 0d 5d 98 19 20 20 | 56 24 3d c4 35 2d a9 28 |%).]..  |V$=.5-.(|
|0000f930| 56 24 29 2c 22 20 22 29 | 2b 56 24 0d 5d a2 0c 20 |V$)," ")|+V$.].. |
|0000f940| 20 53 24 2b 3d 56 24 0d | 5d ac 08 ed 20 4a 25 0d | S$+=V$.|]... J%.|
|0000f950| 5d b6 0c 54 24 3d c3 28 | 54 25 29 0d 5d c0 18 53 |]..T$=.(|T%).]..S|
|0000f960| 24 2b 3d c4 35 2d a9 28 | 54 24 29 2c 22 20 22 29 |$+=.5-.(|T$)," ")|
|0000f970| 2b 54 24 0d 5d ca 3a f2 | 75 70 64 61 74 65 5f 6c |+T$.].:.|update_l|
|0000f980| 69 6e 65 28 74 6f 74 61 | 6c 57 25 2c 74 6f 74 61 |ine(tota|lW%,tota|
|0000f990| 6c 61 6e 63 68 6f 72 25 | 2c 73 75 62 25 2b 31 2c |lanchor%|,sub%+1,|
|0000f9a0| 53 24 2c 77 69 6e 77 69 | 64 74 68 25 29 0d 5d d4 |S$,winwi|dth%).].|
|0000f9b0| 05 e1 0d 5d de 05 3a 0d | 5d e8 1a dd 20 f2 75 70 |...]..:.|]... .up|
|0000f9c0| 64 61 74 65 5f 74 75 74 | 67 72 70 28 74 75 74 25 |date_tut|grp(tut%|
|0000f9d0| 29 0d 5d f2 17 e7 20 21 | 74 75 74 61 6e 63 68 6f |).]... !|tutancho|
|0000f9e0| 72 25 3d 30 20 8c 20 e1 | 0d 5d fc 0b ea 20 4c 25 |r%=0 . .|.]... L%|
|0000f9f0| 2c 53 24 0d 5e 06 44 53 | 24 3d a4 70 61 64 28 a4 |,S$.^.DS|$=.pad(.|
|0000fa00| 65 78 70 61 6e 64 28 74 | 75 74 6f 72 24 28 74 75 |expand(t|utor$(tu|
|0000fa10| 74 25 2c 30 29 2c 22 53 | 74 61 66 66 31 22 2c 4c |t%,0),"S|taff1",L|
|0000fa20| 25 29 2c 31 35 29 2b c3 | 28 74 75 74 67 72 70 25 |%),15)+.|(tutgrp%|
|0000fa30| 28 74 75 74 25 29 29 0d | 5e 10 3b f2 75 70 64 61 |(tut%)).|^.;.upda|
|0000fa40| 74 65 5f 6c 69 6e 65 28 | 74 75 74 6f 72 67 72 70 |te_line(|tutorgrp|
|0000fa50| 57 25 2c 74 75 74 61 6e | 63 68 6f 72 25 2c 74 75 |W%,tutan|chor%,tu|
|0000fa60| 74 25 2d 31 2c 53 24 2c | 74 75 74 77 69 64 74 68 |t%-1,S$,|tutwidth|
|0000fa70| 25 29 0d 5e 1a 17 f2 72 | 65 64 72 61 77 28 74 75 |%).^...r|edraw(tu|
|0000fa80| 74 6f 72 67 72 70 57 25 | 29 0d 5e 24 05 e1 0d 5e |torgrpW%|).^$...^|
|0000fa90| 2e 05 3a 0d 5e 38 22 dd | 20 f2 75 70 64 61 74 65 |..:.^8".| .update|
|0000faa0| 5f 77 65 69 67 68 74 69 | 6e 67 28 73 75 62 25 2c |_weighti|ng(sub%,|
|0000fab0| 62 6c 6b 25 29 0d 5e 42 | 11 ea 20 53 24 2c 56 24 |blk%).^B|.. S$,V$|
|0000fac0| 2c 4a 25 2c 56 25 0d 5e | 4c 11 56 25 3d bb 28 24 |,J%,V%.^|L.V%=.($|
|0000fad0| 57 74 70 6f 73 25 29 0d | 5e 56 1c 77 65 69 67 68 |Wtpos%).|^V.weigh|
|0000fae0| 74 69 6e 67 25 28 73 75 | 62 25 2c 62 6c 6b 25 29 |ting%(su|b%,blk%)|
|0000faf0| 3d 56 25 0d 5e 60 1e 53 | 24 3d a4 70 61 64 28 53 |=V%.^`.S|$=.pad(S|
|0000fb00| 75 62 6e 61 6d 65 24 28 | 73 75 62 25 29 2c 32 30 |ubname$(|sub%),20|
|0000fb10| 29 0d 5e 6a 14 e3 20 4a | 25 3d 31 20 b8 20 62 6c |).^j.. J|%=1 . bl|
|0000fb20| 6f 63 6b 73 25 0d 5e 74 | 1f 20 20 56 24 3d c3 28 |ocks%.^t|.  V$=.(|
|0000fb30| 77 65 69 67 68 74 69 6e | 67 25 28 73 75 62 25 2c |weightin|g%(sub%,|
|0000fb40| 4a 25 29 29 0d 5e 7e 19 | 20 20 56 24 3d c4 35 2d |J%)).^~.|  V$=.5-|
|0000fb50| a9 28 56 24 29 2c 22 20 | 22 29 2b 56 24 0d 5e 88 |.(V$)," |")+V$.^.|
|0000fb60| 0c 20 20 53 24 2b 3d 56 | 24 0d 5e 92 08 ed 20 4a |.  S$+=V|$.^... J|
|0000fb70| 25 0d 5e 9c 3d f2 75 70 | 64 61 74 65 5f 6c 69 6e |%.^.=.up|date_lin|
|0000fb80| 65 28 77 65 69 67 68 74 | 57 25 2c 77 65 69 67 68 |e(weight|W%,weigh|
|0000fb90| 74 61 6e 63 68 6f 72 25 | 2c 73 75 62 25 2b 31 2c |tanchor%|,sub%+1,|
|0000fba0| 53 24 2c 57 77 69 6e 77 | 69 64 74 68 25 29 0d 5e |S$,Wwinw|idth%).^|
|0000fbb0| a6 26 72 6f 77 25 3d a4 | 73 75 62 5f 6e 75 6d 62 |.&row%=.|sub_numb|
|0000fbc0| 65 72 28 53 75 62 63 6f | 64 65 24 28 73 75 62 25 |er(Subco|de$(sub%|
|0000fbd0| 29 29 2d 31 0d 5e b0 1f | 54 25 3d a4 74 61 62 6c |))-1.^..|T%=.tabl|
|0000fbe0| 65 5f 6e 75 6d 62 65 72 | 28 22 53 75 62 6a 65 63 |e_number|("Subjec|
|0000fbf0| 74 22 29 0d 5e ba 3b 54 | 24 3d a4 74 61 62 6c 65 |t").^.;T|$=.table|
|0000fc00| 5f 69 6e 66 6f 28 54 25 | 2c 52 6f 77 73 25 2c 54 |_info(T%|,Rows%,T|
|0000fc10| 61 62 46 69 65 6c 64 73 | 25 2c 52 65 63 25 2c 74 |abFields|%,Rec%,t|
|0000fc20| 61 62 66 69 65 6c 64 6c | 65 6e 25 28 29 29 0d 5e |abfieldl|en%()).^|
|0000fc30| c4 47 69 6e 64 25 3d 21 | 74 61 62 61 6e 63 68 6f |.Gind%=!|tabancho|
|0000fc40| 72 25 28 30 29 2b 31 36 | 30 2b 72 6f 77 25 2a 52 |r%(0)+16|0+row%*R|
|0000fc50| 65 63 25 2b 74 61 62 66 | 69 65 6c 64 6c 65 6e 25 |ec%+tabf|ieldlen%|
|0000fc60| 28 30 29 2b 74 61 62 66 | 69 65 6c 64 6c 65 6e 25 |(0)+tabf|ieldlen%|
|0000fc70| 28 31 29 2b 32 0d 5e ce | 19 42 6c 6b 24 3d 24 69 |(1)+2.^.|.Blk$=$i|
|0000fc80| 6e 64 25 3a 42 24 3d c3 | 28 62 6c 6b 25 29 0d 5e |nd%:B$=.|(blk%).^|
|0000fc90| d8 10 50 25 3d a7 42 6c | 6b 24 2c 42 24 29 0d 5e |..P%=.Bl|k$,B$).^|
|0000fca0| e2 0a c8 8e 20 b9 20 ca | 0d 5e ec 33 20 20 c9 20 |.... . .|.^.3  . |
|0000fcb0| 50 25 3e 30 20 80 20 56 | 25 3e 3d 32 30 30 3a 42 |P%>0 . V|%>=200:B|
|0000fcc0| 6c 6b 24 3d c0 42 6c 6b | 24 2c 50 25 2d 31 29 2b |lk$=.Blk|$,P%-1)+|
|0000fcd0| c1 42 6c 6b 24 2c 50 25 | 2b 31 29 0d 5e f6 1e 20 |.Blk$,P%|+1).^.. |
|0000fce0| 20 c9 20 50 25 3d 30 20 | 80 20 56 25 3c 32 30 30 | . P%=0 |. V%<200|
|0000fcf0| 3a 42 6c 6b 24 2b 3d 42 | 24 0d 5f 00 05 cb 0d 5f |:Blk$+=B|$._...._|
|0000fd00| 0a 0e 24 69 6e 64 25 3d | 42 6c 6b 24 0d 5f 14 05 |..$ind%=|Blk$._..|
|0000fd10| e1 0d 5f 1e 05 3a 0d 5f | 28 4b f4 20 2d 2d 2d 2d |.._..:._|(K. ----|
|0000fd20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 45 |--------|------ E|
|0000fd30| 6e 64 20 6f 66 20 65 64 | 69 74 69 6e 67 20 72 6f |nd of ed|iting ro|
|0000fd40| 75 74 69 6e 65 73 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |utines -|--------|
|0000fd50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000fd60| 2d 0d 5f 32 05 3a 0d 5f | 3c 47 f4 20 2d 2d 2d 2d |-._2.:._|<G. ----|
|0000fd70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000fd80| 2d 20 54 69 6d 65 74 61 | 62 6c 65 20 70 72 69 6e |- Timeta|ble prin|
|0000fd90| 74 69 6e 67 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ting ---|--------|
|0000fda0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 5f 46 |--------|-----._F|
|0000fdb0| 05 3a 0d 5f 50 1e dd 20 | f2 74 69 6d 65 74 61 62 |.:._P.. |.timetab|
|0000fdc0| 6c 65 73 28 5a 25 2c 4c | 65 6e 4c 69 6e 65 25 29 |les(Z%,L|enLine%)|
|0000fdd0| 0d 5f 5a 1a ea 20 68 61 | 6c 66 25 2c 74 75 74 6f |._Z.. ha|lf%,tuto|
|0000fde0| 72 25 2c 54 55 54 24 2c | 4d 24 0d 5f 64 07 ea 20 |r%,TUT$,|M$._d.. |
|0000fdf0| 85 0d 5f 6e 21 ee 20 85 | 20 ea 3a f7 20 85 3a f2 |.._n!. .| .:. .:.|
|0000fe00| 61 62 61 6e 64 6f 6e 5f | 70 72 69 6e 74 69 6e 67 |abandon_|printing|
|0000fe10| 3a e1 0d 5f 78 1f e7 20 | 50 72 69 6e 74 69 6e 67 |:.._x.. |Printing|
|0000fe20| 25 20 84 20 42 6c 6f 63 | 6b 69 6e 67 25 20 8c 20 |% . Bloc|king% . |
|0000fe30| e1 0d 5f 82 17 55 24 3d | c4 4c 65 6e 4c 69 6e 65 |.._..U$=|.LenLine|
|0000fe40| 25 2d 31 2c 22 2d 22 29 | 0d 5f 8c 18 55 44 24 3d |%-1,"-")|._..UD$=|
|0000fe50| c4 4c 65 6e 4c 69 6e 65 | 25 2d 31 2c 22 3d 22 29 |.LenLine|%-1,"=")|
|0000fe60| 0d 5f 96 3a 46 6f 24 3d | 22 52 20 6d 65 61 6e 73 |._.:Fo$=|"R means|
|0000fe70| 20 72 6f 6f 6d 20 61 74 | 20 52 65 65 64 79 66 6f | room at| Reedyfo|
|0000fe80| 72 64 2c 42 20 6d 65 61 | 6e 73 20 42 61 72 72 6f |rd,B mea|ns Barro|
|0000fe90| 77 66 6f 72 64 20 52 64 | 2e 22 0d 5f a0 25 f2 73 |wford Rd|."._.%.s|
|0000fea0| 74 61 72 74 5f 6c 69 73 | 74 28 74 69 6d 65 61 6e |tart_lis|t(timean|
|0000feb0| 63 68 6f 72 25 2c 4c 65 | 6e 4c 69 6e 65 25 29 0d |chor%,Le|nLine%).|
|0000fec0| 5f aa 0b c8 8e 20 5a 25 | 20 ca 0d 5f b4 46 20 20 |_.... Z%| .._.F  |
|0000fed0| c9 20 30 3a 74 69 6d 24 | 3d 22 54 69 6d 5f 22 2b |. 0:tim$|="Tim_"+|
|0000fee0| a4 6b 65 79 28 24 4e 61 | 6d 65 70 6f 73 25 29 3a |.key($Na|mepos%):|
|0000fef0| 66 69 72 73 74 25 3d 6e | 61 6d 65 25 3a 6c 61 73 |first%=n|ame%:las|
|0000ff00| 74 25 3d 6e 61 6d 65 25 | 3a 54 75 74 24 3d 22 22 |t%=name%|:Tut$=""|
|0000ff10| 0d 5f be 45 20 20 c9 20 | 31 3a 74 69 6d 24 3d 22 |._.E  . |1:tim$="|
|0000ff20| 54 69 6d 5f 22 2b 54 75 | 74 24 3a 66 69 72 73 74 |Tim_"+Tu|t$:first|
|0000ff30| 25 3d 31 3a 6c 61 73 74 | 25 3d 4e 72 65 63 73 25 |%=1:last|%=Nrecs%|
|0000ff40| 3a 24 a4 74 65 78 74 28 | 74 75 74 6f 72 57 25 2c |:$.text(|tutorW%,|
|0000ff50| 31 29 3d 22 22 0d 5f c8 | 36 20 20 c9 20 32 3a 74 |1)=""._.|6  . 2:t|
|0000ff60| 69 6d 24 3d 22 54 69 6d | 5f 41 6c 6c 22 3a 66 69 |im$="Tim|_All":fi|
|0000ff70| 72 73 74 25 3d 31 3a 6c | 61 73 74 25 3d 4e 72 65 |rst%=1:l|ast%=Nre|
|0000ff80| 63 73 25 3a 54 75 74 24 | 3d 22 22 0d 5f d2 31 20 |cs%:Tut$|=""._.1 |
|0000ff90| 20 c9 20 33 3a 74 69 6d | 24 3d 22 54 69 6d 41 6c | . 3:tim|$="TimAl|
|0000ffa0| 6c 47 72 70 73 22 3a 66 | 69 72 73 74 25 3d 31 3a |lGrps":f|irst%=1:|
|0000ffb0| 6c 61 73 74 25 3d 4e 72 | 65 63 73 25 0d 5f dc 1e |last%=Nr|ecs%._..|
|0000ffc0| 20 20 54 75 74 24 3d a4 | 6e 65 78 74 5f 74 75 74 |  Tut$=.|next_tut|
|0000ffd0| 6f 72 28 74 75 74 6f 72 | 25 29 0d 5f e6 1c 20 20 |or(tutor|%)._..  |
|0000ffe0| 24 a4 74 65 78 74 28 74 | 75 74 6f 72 57 25 2c 31 |$.text(t|utorW%,1|
|0000fff0| 29 3d 54 75 74 24 0d 5f | f0 1d 20 20 f2 72 65 64 |)=Tut$._|..  .red|
|00010000| 72 61 77 5f 69 63 6f 6e | 28 74 75 74 6f 72 57 25 |raw_icon|(tutorW%|
|00010010| 2c 31 29 0d 5f fa 05 cb | 0d 60 04 2c 4d 24 3d 22 |,1)._...|.`.,M$="|
|00010020| 50 72 69 6e 74 69 6e 67 | 20 74 69 6d 65 74 61 62 |Printing| timetab|
|00010030| 6c 65 22 3a e7 20 5a 25 | 3e 30 20 8c 20 4d 24 2b |le":. Z%|>0 . M$+|
|00010040| 3d 22 73 22 0d 60 0e 0f | f2 6e 6f 74 69 66 79 28 |="s".`..|.notify(|
|00010050| 4d 24 29 0d 60 18 0f 50 | 72 69 6e 74 69 6e 67 25 |M$).`..P|rinting%|
|00010060| 3d b9 0d 60 22 18 c8 99 | 20 22 48 6f 75 72 67 6c |=..`"...| "Hourgl|
|00010070| 61 73 73 5f 53 6d 61 73 | 68 22 0d 60 2c 05 f5 0d |ass_Smas|h".`,...|
|00010080| 60 36 1f 20 20 e3 20 73 | 74 75 64 65 6e 74 25 3d |`6.  . s|tudent%=|
|00010090| 66 69 72 73 74 25 20 b8 | 20 6c 61 73 74 25 0d 60 |first% .| last%.`|
|000100a0| 40 1a 20 20 20 20 c8 99 | 20 22 4f 53 5f 42 79 74 |@.    ..| "OS_Byt|
|000100b0| 65 22 2c 32 32 39 2c 30 | 0d 60 4a 29 20 20 20 20 |e",229,0|.`J)    |
|000100c0| e7 20 54 75 74 24 3d 22 | 22 20 84 20 54 75 74 24 |. Tut$="|" . Tut$|
|000100d0| 3d 74 75 74 24 28 73 74 | 75 64 65 6e 74 25 29 20 |=tut$(st|udent%) |
|000100e0| 8c 0d 60 54 14 20 20 20 | 20 20 20 f2 70 72 69 6e |..`T.   |   .prin|
|000100f0| 74 5f 6f 6e 65 0d 60 5e | 12 20 20 20 20 20 20 68 |t_one.`^|.      h|
|00010100| 61 6c 66 25 2b 3d 31 0d | 60 68 19 20 20 20 20 20 |alf%+=1.|`h.     |
|00010110| 20 e7 20 68 61 6c 66 25 | 20 83 20 32 3d 30 20 8c | . half%| . 2=0 .|
|00010120| 0d 60 72 2f 20 20 20 20 | 20 20 20 20 f2 6c 69 73 |.`r/    |    .lis|
|00010130| 74 5f 6c 69 6e 65 28 22 | 22 2c 74 69 6d 65 61 6e |t_line("|",timean|
|00010140| 63 68 6f 72 25 2c 4c 65 | 6e 4c 69 6e 65 25 29 0d |chor%,Le|nLine%).|
|00010150| 60 7c 32 20 20 20 20 20 | 20 20 20 f2 6c 69 73 74 |`|2     |   .list|
|00010160| 5f 6c 69 6e 65 28 bd 28 | 31 32 29 2c 74 69 6d 65 |_line(.(|12),time|
|00010170| 61 6e 63 68 6f 72 25 2c | 4c 65 6e 4c 69 6e 65 25 |anchor%,|LenLine%|
|00010180| 29 0d 60 86 0d 20 20 20 | 20 20 20 20 20 cc 0d 60 |).`..   |     ..`|
|00010190| 90 16 20 20 20 20 20 20 | 20 20 e3 20 49 25 3d 31 |..      |  . I%=1|
|000101a0| 20 b8 20 36 0d 60 9a 31 | 20 20 20 20 20 20 20 20 | . 6.`.1|        |
|000101b0| 20 20 f2 6c 69 73 74 5f | 6c 69 6e 65 28 22 22 2c |  .list_|line("",|
|000101c0| 74 69 6d 65 61 6e 63 68 | 6f 72 25 2c 4c 65 6e 4c |timeanch|or%,LenL|
|000101d0| 69 6e 65 25 29 0d 60 a4 | 10 20 20 20 20 20 20 20 |ine%).`.|.       |
|000101e0| 20 ed 20 49 25 0d 60 ae | 0b 20 20 20 20 20 20 cd | . I%.`.|.      .|
|000101f0| 0d 60 b8 09 20 20 20 20 | cd 0d 60 c2 36 20 20 20 |.`..    |..`.6   |
|00010200| 20 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 50 | .. "Hou|rglass_P|
|00010210| 65 72 63 65 6e 74 61 67 | 65 22 2c 73 74 75 64 65 |ercentag|e",stude|
|00010220| 6e 74 25 2a 31 30 30 20 | 81 20 6c 61 73 74 25 0d |nt%*100 |. last%.|
|00010230| 60 cc 10 20 20 ed 20 73 | 74 75 64 65 6e 74 25 0d |`..  . s|tudent%.|
|00010240| 60 d6 0e 20 20 e7 20 5a | 25 3d 33 20 8c 0d 60 e0 |`..  . Z|%=3 ..`.|
|00010250| 20 20 20 20 20 54 75 74 | 24 3d a4 6e 65 78 74 5f |     Tut|$=.next_|
|00010260| 74 75 74 6f 72 28 74 75 | 74 6f 72 25 29 0d 60 ea |tutor(tu|tor%).`.|
|00010270| 1e 20 20 20 20 24 a4 74 | 65 78 74 28 74 75 74 6f |.    $.t|ext(tuto|
|00010280| 72 57 25 2c 31 29 3d 54 | 75 74 24 0d 60 f4 1f 20 |rW%,1)=T|ut$.`.. |
|00010290| 20 20 20 f2 72 65 64 72 | 61 77 5f 69 63 6f 6e 28 |   .redr|aw_icon(|
|000102a0| 74 75 74 6f 72 57 25 2c | 31 29 0d 60 fe 40 20 20 |tutorW%,|1).`.@  |
|000102b0| 20 20 e7 20 28 68 61 6c | 66 25 20 83 20 32 29 3d |  . (hal|f% . 2)=|
|000102c0| 31 20 8c 20 f2 6c 69 73 | 74 5f 6c 69 6e 65 28 bd |1 . .lis|t_line(.|
|000102d0| 28 31 32 29 2c 74 69 6d | 65 61 6e 63 68 6f 72 25 |(12),tim|eanchor%|
|000102e0| 2c 4c 65 6e 4c 69 6e 65 | 25 29 0d 61 08 11 20 20 |,LenLine|%).a..  |
|000102f0| 20 20 cc 20 54 75 74 24 | 3d 22 22 0d 61 12 07 20 |  . Tut$|="".a.. |
|00010300| 20 cd 0d 61 1c 0d fd 20 | 54 75 74 24 3d 22 22 0d | ..a... |Tut$="".|
|00010310| 61 26 1b f2 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |a&..clos|e_window|
|00010320| 28 6e 6f 74 69 66 79 57 | 25 29 0d 61 30 14 74 69 |(notifyW|%).a0.ti|
|00010330| 6d 63 6f 75 6e 74 25 3d | 43 6f 75 6e 74 25 0d 61 |mcount%=|Count%.a|
|00010340| 3a 26 f2 73 63 72 65 65 | 6e 5f 6c 69 73 74 28 74 |:&.scree|n_list(t|
|00010350| 69 6d 65 74 61 62 6c 65 | 57 25 2c 4c 65 6e 4c 69 |imetable|W%,LenLi|
|00010360| 6e 65 25 29 0d 61 44 0d | 6c 69 73 74 65 64 25 3d |ne%).aD.|listed%=|
|00010370| b9 0d 61 4e 0f 50 72 69 | 6e 74 69 6e 67 25 3d a3 |..aN.Pri|nting%=.|
|00010380| 0d 61 58 16 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |.aX... "|Hourglas|
|00010390| 73 5f 4f 66 66 22 0d 61 | 62 1c c8 99 20 22 57 69 |s_Off".a|b... "Wi|
|000103a0| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|000103b0| 2d 31 0d 61 6c 07 f7 20 | 85 0d 61 76 05 e1 0d 61 |-1.al.. |..av...a|
|000103c0| 80 05 3a 0d 61 8a 17 dd | 20 f2 61 62 61 6e 64 6f |..:.a...| .abando|
|000103d0| 6e 5f 70 72 69 6e 74 69 | 6e 67 0d 61 94 1b f2 63 |n_printi|ng.a...c|
|000103e0| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 6e 6f 74 69 |lose_win|dow(noti|
|000103f0| 66 79 57 25 29 0d 61 9e | 27 f2 73 63 72 65 65 6e |fyW%).a.|'.screen|
|00010400| 5f 6c 69 73 74 28 74 69 | 6d 65 74 61 62 6c 65 57 |_list(ti|metableW|
|00010410| 25 2c 74 69 6d 77 69 64 | 74 68 25 29 0d 61 a8 0d |%,timwid|th%).a..|
|00010420| 6c 69 73 74 65 64 25 3d | b9 0d 61 b2 0f 50 72 69 |listed%=|..a..Pri|
|00010430| 6e 74 69 6e 67 25 3d a3 | 0d 61 bc 18 c8 99 20 22 |nting%=.|.a.... "|
|00010440| 48 6f 75 72 67 6c 61 73 | 73 5f 53 6d 61 73 68 22 |Hourglas|s_Smash"|
|00010450| 0d 61 c6 0c e7 20 9f 3d | 31 37 20 8c 0d 61 d0 46 |.a... .=|17 ..a.F|
|00010460| 20 20 f2 77 69 6d 70 5f | 65 72 72 6f 72 28 b9 2c |  .wimp_|error(.,|
|00010470| 6d 6f 61 6e 5f 65 72 72 | 25 2c 30 2c 22 45 73 63 |moan_err|%,0,"Esc|
|00010480| 61 70 65 20 70 72 65 73 | 73 65 64 2e 20 50 72 69 |ape pres|sed. Pri|
|00010490| 6e 74 69 6e 67 20 61 62 | 61 6e 64 6f 6e 65 64 2e |nting ab|andoned.|
|000104a0| 22 29 0d 61 da 1d 20 20 | cc 20 f2 77 69 6d 70 5f |").a..  |. .wimp_|
|000104b0| 65 72 72 6f 72 28 b9 2c | 9f 2c 9e 2c f6 24 29 0d |error(.,|.,.,.$).|
|000104c0| 61 e4 05 cd 0d 61 ee 05 | e1 0d 61 f8 05 3a 0d 62 |a....a..|..a..:.b|
|000104d0| 02 10 dd 20 f2 70 72 69 | 6e 74 5f 6f 6e 65 0d 62 |... .pri|nt_one.b|
|000104e0| 0c 46 ea 20 42 25 2c 44 | 25 2c 50 25 2c 51 25 2c |.F. B%,D|%,P%,Q%,|
|000104f0| 73 75 62 25 2c 53 24 2c | 73 74 61 72 74 24 2c 65 |sub%,S$,|start$,e|
|00010500| 6e 64 24 2c 73 75 62 24 | 2c 62 6c 6b 24 2c 63 6c |nd$,sub$|,blk$,cl|
|00010510| 61 73 73 24 2c 66 6c 61 | 67 25 2c 73 6c 6f 74 25 |ass$,fla|g%,slot%|
|00010520| 2c 69 63 25 0d 62 16 0e | e3 20 49 25 3d 31 20 b8 |,ic%.b..|. I%=1 .|
|00010530| 20 33 0d 62 20 27 f2 6c | 69 73 74 5f 6c 69 6e 65 | 3.b '.l|ist_line|
|00010540| 28 22 22 2c 74 69 6d 65 | 61 6e 63 68 6f 72 25 2c |("",time|anchor%,|
|00010550| 4c 65 6e 4c 69 6e 65 25 | 29 0d 62 2a 28 f2 6c 69 |LenLine%|).b*(.li|
|00010560| 73 74 5f 6c 69 6e 65 28 | 55 44 24 2c 74 69 6d 65 |st_line(|UD$,time|
|00010570| 61 6e 63 68 6f 72 25 2c | 4c 65 6e 4c 69 6e 65 25 |anchor%,|LenLine%|
|00010580| 29 0d 62 34 44 f2 6c 69 | 73 74 5f 6c 69 6e 65 28 |).b4D.li|st_line(|
|00010590| a4 70 61 64 28 6e 61 6d | 65 24 28 73 74 75 64 65 |.pad(nam|e$(stude|
|000105a0| 6e 74 25 29 2c 34 34 29 | 2b 22 52 6f 6f 6d 22 2c |nt%),44)|+"Room",|
|000105b0| 74 69 6d 65 61 6e 63 68 | 6f 72 25 2c 4c 65 6e 4c |timeanch|or%,LenL|
|000105c0| 69 6e 65 25 29 0d 62 3e | 28 f2 6c 69 73 74 5f 6c |ine%).b>|(.list_l|
|000105d0| 69 6e 65 28 55 44 24 2c | 74 69 6d 65 61 6e 63 68 |ine(UD$,|timeanch|
|000105e0| 6f 72 25 2c 4c 65 6e 4c | 69 6e 65 25 29 0d 62 48 |or%,LenL|ine%).bH|
|000105f0| 1e 54 25 3d a4 74 61 62 | 6c 65 5f 6e 75 6d 62 65 |.T%=.tab|le_numbe|
|00010600| 72 28 22 42 6c 6f 63 6b | 73 22 29 0d 62 52 3b 5a |r("Block|s").bR;Z|
|00010610| 24 3d a4 74 61 62 6c 65 | 5f 69 6e 66 6f 28 54 25 |$=.table|_info(T%|
|00010620| 2c 52 6f 77 73 25 2c 54 | 61 62 46 69 65 6c 64 73 |,Rows%,T|abFields|
|00010630| 25 2c 52 65 63 25 2c 74 | 61 62 66 69 65 6c 64 6c |%,Rec%,t|abfieldl|
|00010640| 65 6e 25 28 29 29 0d 62 | 5c 0e e3 20 44 25 3d 30 |en%()).b|\.. D%=0|
|00010650| 20 b8 20 34 0d 62 66 15 | 20 20 51 25 3d 44 25 2a | . 4.bf.|  Q%=D%*|
|00010660| 31 36 2d 31 3a 50 25 3d | 30 0d 62 70 07 20 20 f5 |16-1:P%=|0.bp.  .|
|00010670| 0d 62 7a 09 20 20 20 20 | f5 0d 62 84 26 20 20 20 |.bz.    |..b.&   |
|00010680| 20 20 20 51 25 2b 3d 31 | 3a 50 25 2b 3d 31 3a 42 |   Q%+=1|:P%+=1:B|
|00010690| 25 3d 74 69 6d 65 73 6c | 6f 74 73 25 3f 51 25 0d |%=timesl|ots%?Q%.|
|000106a0| 62 8e 1d 20 20 20 20 fd | 20 42 25 3c 3d 62 6c 6f |b..    .| B%<=blo|
|000106b0| 63 6b 73 25 20 84 20 50 | 25 3d 31 36 0d 62 98 11 |cks% . P|%=16.b..|
|000106c0| 20 20 20 20 e7 20 50 25 | 3c 31 36 20 8c 0d 62 a2 |    . P%|<16 ..b.|
|000106d0| 29 20 20 20 20 20 20 73 | 75 62 25 3d 94 28 73 75 |)      s|ub%=.(su|
|000106e0| 62 6e 75 6d 62 65 72 25 | 28 73 74 75 64 65 6e 74 |bnumber%|(student|
|000106f0| 25 2c 42 25 29 29 0d 62 | ac 14 20 20 20 20 20 20 |%,B%)).b|..      |
|00010700| e7 20 73 75 62 25 3e 30 | 20 8c 0d 62 b6 31 20 20 |. sub%>0| ..b.1  |
|00010710| 20 20 20 20 20 20 73 74 | 61 72 74 24 3d 24 28 21 |      st|art$=$(!|
|00010720| 74 61 62 61 6e 63 68 6f | 72 25 28 54 25 29 2b 31 |tabancho|r%(T%)+1|
|00010730| 36 30 2b 52 65 63 25 2a | 51 25 29 0d 62 c0 0d 20 |60+Rec%*|Q%).b.. |
|00010740| 20 20 20 20 20 20 20 f5 | 0d 62 ca 19 20 20 20 20 |       .|.b..    |
|00010750| 20 20 20 20 20 20 51 25 | 2b 3d 31 3a 50 25 2b 3d |      Q%|+=1:P%+=|
|00010760| 31 0d 62 d4 27 20 20 20 | 20 20 20 20 20 fd 20 74 |1.b.'   |     . t|
|00010770| 69 6d 65 73 6c 6f 74 73 | 25 3f 51 25 3c 3e 42 25 |imeslots|%?Q%<>B%|
|00010780| 20 84 20 50 25 3d 31 36 | 0d 62 de 6c 20 20 20 20 | . P%=16|.b.l    |
|00010790| 20 20 20 20 e7 20 74 69 | 6d 65 73 6c 6f 74 73 25 |    . ti|meslots%|
|000107a0| 3f 51 25 3c 3e 42 25 20 | 8c 20 65 6e 64 24 3d 24 |?Q%<>B% |. end$=$|
|000107b0| 28 21 74 61 62 61 6e 63 | 68 6f 72 25 28 54 25 29 |(!tabanc|hor%(T%)|
|000107c0| 2b 31 36 30 2b 52 65 63 | 25 2a 51 25 29 3a 51 25 |+160+Rec|%*Q%):Q%|
|000107d0| 2d 3d 31 3a 50 25 2d 3d | 31 20 8b 20 65 6e 64 24 |-=1:P%-=|1 . end$|
|000107e0| 3d c0 73 74 61 72 74 24 | 2c 33 29 2b 22 20 20 35 |=.start$|,3)+"  5|
|000107f0| 2d 30 30 22 0d 62 e8 14 | 20 20 20 20 20 20 20 20 |-00".b..|        |
|00010800| e7 20 42 25 3d 30 20 8c | 0d 62 f2 3f 20 20 20 20 |. B%=0 .|.b.?    |
|00010810| 20 20 20 20 20 20 73 75 | 62 24 3d a4 70 61 64 28 |      su|b$=.pad(|
|00010820| a4 65 78 70 61 6e 64 28 | 74 75 74 24 28 73 74 75 |.expand(|tut$(stu|
|00010830| 64 65 6e 74 25 29 2c 22 | 53 74 61 66 66 31 22 2c |dent%),"|Staff1",|
|00010840| 4c 25 29 2c 32 30 29 0d | 62 fc 18 20 20 20 20 20 |L%),20).|b..     |
|00010850| 20 20 20 20 20 62 6c 6b | 24 3d 22 54 75 74 22 0d |     blk|$="Tut".|
|00010860| 63 06 2d 20 20 20 20 20 | 20 20 20 20 20 63 6c 61 |c.-     |     cla|
|00010870| 73 73 24 3d 74 75 74 24 | 28 73 74 75 64 65 6e 74 |ss$=tut$|(student|
|00010880| 25 29 2b c3 28 42 25 29 | 2b 22 41 22 0d 63 10 0f |%)+.(B%)|+"A".c..|
|00010890| 20 20 20 20 20 20 20 20 | 20 20 cc 0d 63 1a 2a 20 |        |  ..c.* |
|000108a0| 20 20 20 20 20 20 20 20 | 20 73 75 62 24 3d a4 70 |        | sub$=.p|
|000108b0| 61 64 28 53 75 62 6e 61 | 6d 65 24 28 73 75 62 25 |ad(Subna|me$(sub%|
|000108c0| 29 2c 32 30 29 0d 63 24 | 20 20 20 20 20 20 20 20 |),20).c$|        |
|000108d0| 20 20 20 62 6c 6b 24 3d | 79 72 24 2b 22 42 22 2b |   blk$=|yr$+"B"+|
|000108e0| c3 28 42 25 29 0d 63 2e | 2d 20 20 20 20 20 20 20 |.(B%).c.|-       |
|000108f0| 20 20 20 63 6c 61 73 73 | 24 3d 53 75 62 63 6f 64 |   class|$=Subcod|
|00010900| 65 24 28 73 75 62 25 29 | 2b c3 28 42 25 29 2b 22 |e$(sub%)|+.(B%)+"|
|00010910| 41 22 0d 63 38 0d 20 20 | 20 20 20 20 20 20 cd 0d |A".c8.  |      ..|
|00010920| 63 42 2e 20 20 20 20 20 | 20 20 20 72 6f 6f 6d 24 |cB.     |   room$|
|00010930| 3d a4 67 65 74 5f 72 6f | 6f 6d 28 c0 73 74 61 72 |=.get_ro|om(.star|
|00010940| 74 24 2c 33 29 2c 63 6c | 61 73 73 24 29 0d 63 4c |t$,3),cl|ass$).cL|
|00010950| 1d 20 20 20 20 20 20 20 | 20 e7 20 72 6f 6f 6d 24 |.       | . room$|
|00010960| 3c 3e 22 2a 2a 2a 2a 22 | 20 8c 0d 63 56 43 20 20 |<>"****"| ..cVC  |
|00010970| 20 20 20 20 20 20 20 20 | 53 24 3d 73 74 61 72 74 |        |S$=start|
|00010980| 24 2b 22 20 20 22 2b c2 | 65 6e 64 24 2c 35 29 2b |$+"  "+.|end$,5)+|
|00010990| 22 20 20 22 2b 62 6c 6b | 24 2b 22 20 22 2b 73 75 |"  "+blk|$+" "+su|
|000109a0| 62 24 2b 22 20 20 22 2b | 72 6f 6f 6d 24 0d 63 60 |b$+"  "+|room$.c`|
|000109b0| 31 20 20 20 20 20 20 20 | 20 20 20 f2 6c 69 73 74 |1       |   .list|
|000109c0| 5f 6c 69 6e 65 28 53 24 | 2c 74 69 6d 65 61 6e 63 |_line(S$|,timeanc|
|000109d0| 68 6f 72 25 2c 4c 65 6e | 4c 69 6e 65 25 29 0d 63 |hor%,Len|Line%).c|
|000109e0| 6a 0d 20 20 20 20 20 20 | 20 20 cd 0d 63 74 0b 20 |j.      |  ..ct. |
|000109f0| 20 20 20 20 20 cd 0d 63 | 7e 09 20 20 20 20 cd 0d |     ..c|~.    ..|
|00010a00| 63 88 0d 20 20 fd 20 50 | 25 3d 31 36 0d 63 92 32 |c..  . P|%=16.c.2|
|00010a10| 20 20 e7 20 44 25 3c 34 | 20 8c 20 f2 6c 69 73 74 |  . D%<4| . .list|
|00010a20| 5f 6c 69 6e 65 28 55 24 | 2c 74 69 6d 65 61 6e 63 |_line(U$|,timeanc|
|00010a30| 68 6f 72 25 2c 4c 65 6e | 4c 69 6e 65 25 29 0d 63 |hor%,Len|Line%).c|
|00010a40| 9c 08 ed 20 44 25 0d 63 | a6 28 f2 6c 69 73 74 5f |... D%.c|.(.list_|
|00010a50| 6c 69 6e 65 28 55 44 24 | 2c 74 69 6d 65 61 6e 63 |line(UD$|,timeanc|
|00010a60| 68 6f 72 25 2c 4c 65 6e | 4c 69 6e 65 25 29 0d 63 |hor%,Len|Line%).c|
|00010a70| b0 28 f2 6c 69 73 74 5f | 6c 69 6e 65 28 46 6f 24 |.(.list_|line(Fo$|
|00010a80| 2c 74 69 6d 65 61 6e 63 | 68 6f 72 25 2c 4c 65 6e |,timeanc|hor%,Len|
|00010a90| 4c 69 6e 65 25 29 0d 63 | ba 05 e1 0d 63 c4 05 3a |Line%).c|....c..:|
|00010aa0| 0d 63 ce 1c dd 20 a4 67 | 65 74 5f 72 6f 6f 6d 28 |.c... .g|et_room(|
|00010ab0| 64 61 79 24 2c 63 6c 61 | 73 73 24 29 0d 63 d8 2d |day$,cla|ss$).c.-|
|00010ac0| ea 20 73 74 61 72 74 25 | 2c 52 65 63 25 2c 46 25 |. start%|,Rec%,F%|
|00010ad0| 2c 54 25 2c 69 6e 64 25 | 2c 69 6e 64 32 25 2c 72 |,T%,ind%|,ind2%,r|
|00010ae0| 6f 77 25 2c 52 6f 77 73 | 25 0d 63 e2 1f 54 25 3d |ow%,Rows|%.c..T%=|
|00010af0| a4 74 61 62 6c 65 5f 6e | 75 6d 62 65 72 28 22 43 |.table_n|umber("C|
|00010b00| 6c 61 73 73 65 73 22 29 | 0d 63 ec 3b 5a 24 3d a4 |lasses")|.c.;Z$=.|
|00010b10| 74 61 62 6c 65 5f 69 6e | 66 6f 28 54 25 2c 52 6f |table_in|fo(T%,Ro|
|00010b20| 77 73 25 2c 54 61 62 46 | 69 65 6c 64 73 25 2c 52 |ws%,TabF|ields%,R|
|00010b30| 65 63 25 2c 74 61 62 66 | 69 65 6c 64 6c 65 6e 25 |ec%,tabf|ieldlen%|
|00010b40| 28 29 29 0d 63 f6 21 69 | 6e 64 25 3d 21 74 61 62 |()).c.!i|nd%=!tab|
|00010b50| 61 6e 63 68 6f 72 25 28 | 54 25 29 2b 31 36 30 2d |anchor%(|T%)+160-|
|00010b60| 52 65 63 25 0d 64 00 0d | f5 20 72 6f 77 25 2b 3d |Rec%.d..|. row%+=|
|00010b70| 31 0d 64 0a 10 20 20 69 | 6e 64 25 2b 3d 52 65 63 |1.d..  i|nd%+=Rec|
|00010b80| 25 0d 64 14 1f fd 20 72 | 6f 77 25 3e 52 6f 77 73 |%.d... r|ow%>Rows|
|00010b90| 25 20 84 20 24 69 6e 64 | 25 3d 63 6c 61 73 73 24 |% . $ind|%=class$|
|00010ba0| 0d 64 1e 19 e7 20 72 6f | 77 25 3e 52 6f 77 73 25 |.d... ro|w%>Rows%|
|00010bb0| 20 8c 3d 22 2a 2a 2a 2a | 22 0d 64 28 10 69 6e 64 | .="****|".d(.ind|
|00010bc0| 32 25 3d 69 6e 64 25 2b | 36 0d 64 32 23 c8 95 20 |2%=ind%+|6.d2#.. |
|00010bd0| 24 69 6e 64 32 25 3c 3e | 64 61 79 24 20 80 20 69 |$ind2%<>|day$ . i|
|00010be0| 6e 64 32 25 2d 69 6e 64 | 25 3c 33 36 0d 64 3c 0e |nd2%-ind|%<36.d<.|
|00010bf0| 20 20 69 6e 64 32 25 2b | 3d 39 0d 64 46 05 ce 0d |  ind2%+|=9.dF...|
|00010c00| 64 50 27 e7 20 24 69 6e | 64 32 25 3d 64 61 79 24 |dP'. $in|d2%=day$|
|00010c10| 20 8c 3d 24 28 69 6e 64 | 32 25 2b 34 29 20 8b 3d | .=$(ind|2%+4) .=|
|00010c20| 22 2a 2a 2a 2a 22 0d 64 | 5a 05 3a 0d 64 64 19 dd |"****".d|Z.:.dd..|
|00010c30| 20 a4 6e 65 78 74 5f 74 | 75 74 6f 72 28 f8 20 74 | .next_t|utor(. t|
|00010c40| 75 74 25 29 0d 64 6e 16 | e7 20 74 75 74 25 3d 4e |ut%).dn.|. tut%=N|
|00010c50| 74 75 74 73 25 20 8c 3d | 22 22 0d 64 78 0b 74 75 |tuts% .=|"".dx.tu|
|00010c60| 74 25 2b 3d 31 0d 64 82 | 13 3d 74 75 74 6f 72 24 |t%+=1.d.|.=tutor$|
|00010c70| 28 74 75 74 25 2c 30 29 | 0d 64 8c 05 3a 0d 64 96 |(tut%,0)|.d..:.d.|
|00010c80| 4a f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |J. -----|--------|
|00010c90| 2d 2d 2d 2d 2d 20 45 6e | 64 20 6f 66 20 74 69 6d |----- En|d of tim|
|00010ca0| 65 74 61 62 6c 65 20 70 | 72 69 6e 74 69 6e 67 20 |etable p|rinting |
|00010cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00010cc0| 2d 2d 2d 2d 2d 2d 2d 0d | 64 a0 05 3a 0d 64 aa 26 |-------.|d..:.d.&|
|00010cd0| f4 20 2d 2d 2d 20 53 4c | 49 44 49 4e 47 20 48 45 |. --- SL|IDING HE|
|00010ce0| 41 50 20 32 2e 30 30 20 | 50 52 4f 43 45 44 55 52 |AP 2.00 |PROCEDUR|
|00010cf0| 45 53 0d 64 b4 05 3a 0d | 64 be 1f f4 20 72 65 71 |ES.d..:.|d... req|
|00010d00| 75 69 72 65 73 20 53 6c | 69 64 69 6e 67 48 65 61 |uires Sl|idingHea|
|00010d10| 70 20 32 2e 30 30 0d 64 | c8 05 3a 0d 64 d2 16 f4 |p 2.00.d|..:.d...|
|00010d20| 20 6d 6f 64 75 6c 65 20 | 61 6e 64 20 50 52 4f 43 | module |and PROC|
|00010d30| 73 0d 64 dc 1a f4 20 a9 | 20 53 74 65 76 65 6e 20 |s.d... .| Steven |
|00010d40| 48 61 73 6c 61 6d 20 31 | 39 39 32 0d 64 e6 05 3a |Haslam 1|992.d..:|
|00010d50| 0d 64 f0 15 dd 20 a4 5f | 68 65 61 70 5f 73 6c 6f |.d... ._|heap_slo|
|00010d60| 74 73 69 7a 65 0d 64 fa | 09 ea 20 52 30 25 0d 65 |tsize.d.|.. R0%.e|
|00010d70| 04 22 c8 99 20 22 57 69 | 6d 70 5f 53 6c 6f 74 53 |.".. "Wi|mp_SlotS|
|00010d80| 69 7a 65 22 2c 2d 31 2c | 2d 31 20 b8 20 52 30 25 |ize",-1,|-1 . R0%|
|00010d90| 0d 65 0e 08 3d 52 30 25 | 0d 65 18 05 3a 0d 65 22 |.e..=R0%|.e..:.e"|
|00010da0| 2f dd 20 a4 5f 68 65 61 | 70 5f 6e 75 6d 74 6f 73 |/. ._hea|p_numtos|
|00010db0| 74 72 28 64 25 2c 6e 25 | 29 3d c2 c4 64 25 2c 22 |tr(d%,n%|)=..d%,"|
|00010dc0| 30 22 29 2b c3 7e 6e 25 | 2c 64 25 29 0d 65 2c 2f |0")+.~n%|,d%).e,/|
|00010dd0| dd 20 a4 5f 68 65 61 70 | 5f 73 6e 75 6d 74 6f 73 |. ._heap|_snumtos|
|00010de0| 74 72 28 64 25 2c 6e 25 | 29 3d c2 c4 64 25 2c 22 |tr(d%,n%|)=..d%,"|
|00010df0| 20 22 29 2b c3 6e 25 2c | 64 25 29 0d 65 36 05 3a | ")+.n%,|d%).e6.:|
|00010e00| 0d 65 40 10 dd 20 f2 68 | 65 61 70 73 69 6e 66 6f |.e@.. .h|eapsinfo|
|00010e10| 0d 65 4a 37 c8 99 20 22 | 4f 53 5f 48 65 61 70 22 |.eJ7.. "|OS_Heap"|
|00010e20| 2c 31 2c 66 69 78 65 64 | 68 65 61 70 62 61 73 65 |,1,fixed|heapbase|
|00010e30| 25 20 b8 20 2c 2c 62 69 | 67 62 6c 6f 63 25 2c 74 |% . ,,bi|gbloc%,t|
|00010e40| 6f 74 66 72 65 65 25 0d | 65 54 12 f1 20 22 46 69 |otfree%.|eT.. "Fi|
|00010e50| 78 65 64 20 68 65 61 70 | 22 0d 65 5e 12 f1 20 22 |xed heap|".e^.. "|
|00010e60| 2d 2d 2d 2d 2d 20 2d 2d | 2d 2d 22 0d 65 68 3a f1 |----- --|--".eh:.|
|00010e70| 20 22 48 65 61 70 20 62 | 61 73 65 20 20 20 20 3a | "Heap b|ase    :|
|00010e80| 20 26 22 3b a4 5f 68 65 | 61 70 5f 6e 75 6d 74 6f | &";._he|ap_numto|
|00010e90| 73 74 72 28 38 2c 66 69 | 78 65 64 68 65 61 70 62 |str(8,fi|xedheapb|
|00010ea0| 61 73 65 25 29 0d 65 72 | 35 f1 20 22 48 65 61 70 |ase%).er|5. "Heap|
|00010eb0| 20 73 69 7a 65 20 20 20 | 20 3a 20 22 3b a4 5f 68 | size   | : ";._h|
|00010ec0| 65 61 70 5f 62 79 74 65 | 73 32 28 66 69 78 65 64 |eap_byte|s2(fixed|
|00010ed0| 68 65 61 70 73 69 7a 65 | 25 29 0d 65 7c 2f f1 20 |heapsize|%).e|/. |
|00010ee0| 22 4c 61 72 67 65 73 74 | 20 66 72 65 65 20 3a 20 |"Largest| free : |
|00010ef0| 22 3b a4 5f 68 65 61 70 | 5f 62 79 74 65 73 32 28 |";._heap|_bytes2(|
|00010f00| 62 69 67 62 6c 6f 63 25 | 29 0d 65 86 2f f1 20 22 |bigbloc%|).e./. "|
|00010f10| 54 6f 74 61 6c 20 66 72 | 65 65 20 20 20 3a 20 22 |Total fr|ee   : "|
|00010f20| 3b a4 5f 68 65 61 70 5f | 62 79 74 65 73 32 28 74 |;._heap_|bytes2(t|
|00010f30| 6f 74 66 72 65 65 25 29 | 0d 65 90 05 f1 0d 65 9a |otfree%)|.e....e.|
|00010f40| 14 f1 20 22 53 6c 69 64 | 69 6e 67 20 68 65 61 70 |.. "Slid|ing heap|
|00010f50| 22 0d 65 a4 14 f1 20 22 | 2d 2d 2d 2d 2d 2d 2d 20 |".e... "|------- |
|00010f60| 2d 2d 2d 2d 22 0d 65 ae | 2e c8 99 20 22 53 6c 69 |----".e.|... "Sli|
|00010f70| 64 69 6e 67 48 65 61 70 | 5f 48 65 61 70 49 6e 66 |dingHeap|_HeapInf|
|00010f80| 6f 22 2c 73 6c 69 64 69 | 6e 67 68 65 61 70 62 61 |o",slidi|ngheapba|
|00010f90| 73 65 25 0d 65 b8 05 e1 | 0d 65 c2 05 3a 0d 65 cc |se%.e...|.e..:.e.|
|00010fa0| 17 dd 20 a4 5f 68 65 61 | 70 5f 70 61 67 65 75 70 |.. ._hea|p_pageup|
|00010fb0| 28 6e 25 29 0d 65 d6 09 | ea 20 52 30 25 0d 65 e0 |(n%).e..|. R0%.e.|
|00010fc0| 20 c8 99 20 22 4f 53 5f | 52 65 61 64 4d 65 6d 4d | .. "OS_|ReadMemM|
|00010fd0| 61 70 49 6e 66 6f 22 20 | b8 20 52 30 25 0d 65 ea |apInfo" |. R0%.e.|
|00010fe0| 1b 3d 28 6e 25 2b 52 30 | 25 2d 31 29 20 80 20 ac |.=(n%+R0|%-1) . .|
|00010ff0| 20 28 52 30 25 2d 31 29 | 0d 65 f4 05 3a 0d 65 fe | (R0%-1)|.e..:.e.|
|00011000| 2a dd 20 f2 69 6e 69 74 | 68 65 61 70 73 28 68 65 |*. .init|heaps(he|
|00011010| 61 70 73 69 7a 65 25 2c | 73 6c 69 64 69 6e 67 62 |apsize%,|slidingb|
|00011020| 6c 6f 63 6b 73 25 29 0d | 66 08 1c 66 69 78 65 64 |locks%).|f..fixed|
|00011030| 68 65 61 70 73 69 7a 65 | 25 3d 68 65 61 70 73 69 |heapsize|%=heapsi|
|00011040| 7a 65 25 0d 66 12 4c 68 | 65 61 70 5f 74 72 69 67 |ze%.f.Lh|eap_trig|
|00011050| 67 65 72 25 3d a4 5f 68 | 65 61 70 5f 70 61 67 65 |ger%=._h|eap_page|
|00011060| 75 70 28 93 2b 66 69 78 | 65 64 68 65 61 70 73 69 |up(.+fix|edheapsi|
|00011070| 7a 65 25 2b 32 30 2b 32 | 30 2a 73 6c 69 64 69 6e |ze%+20+2|0*slidin|
|00011080| 67 62 6c 6f 63 6b 73 25 | 2d 26 38 30 30 30 29 0d |gblocks%|-&8000).|
|00011090| 66 1c 1f f2 73 65 74 73 | 6c 6f 74 73 69 7a 65 28 |f...sets|lotsize(|
|000110a0| 68 65 61 70 5f 74 72 69 | 67 67 65 72 25 29 0d 66 |heap_tri|gger%).f|
|000110b0| 26 47 e7 20 a4 5f 68 65 | 61 70 5f 73 6c 6f 74 73 |&G. ._he|ap_slots|
|000110c0| 69 7a 65 3c 68 65 61 70 | 5f 74 72 69 67 67 65 72 |ize<heap|_trigger|
|000110d0| 25 20 8c 20 85 20 31 33 | 30 2c 22 55 6e 61 62 6c |% . . 13|0,"Unabl|
|000110e0| 65 20 74 6f 20 69 6e 69 | 74 69 61 6c 69 73 65 20 |e to ini|tialise |
|000110f0| 68 65 61 70 22 0d 66 30 | 14 66 69 78 65 64 68 65 |heap".f0|.fixedhe|
|00011100| 61 70 62 61 73 65 25 3d | 93 0d 66 3a 25 73 6c 69 |apbase%=|..f:%sli|
|00011110| 64 69 6e 67 68 65 61 70 | 62 61 73 65 25 3d 93 2b |dingheap|base%=.+|
|00011120| 66 69 78 65 64 68 65 61 | 70 73 69 7a 65 25 0d 66 |fixedhea|psize%.f|
|00011130| 44 31 c8 99 20 22 4f 53 | 5f 48 65 61 70 22 2c 30 |D1.. "OS|_Heap",0|
|00011140| 2c 66 69 78 65 64 68 65 | 61 70 62 61 73 65 25 2c |,fixedhe|apbase%,|
|00011150| 2c 66 69 78 65 64 68 65 | 61 70 73 69 7a 65 25 0d |,fixedhe|apsize%.|
|00011160| 66 4e 3d c8 99 20 22 53 | 6c 69 64 69 6e 67 48 65 |fN=.. "S|lidingHe|
|00011170| 61 70 5f 43 72 65 61 74 | 65 22 2c 73 6c 69 64 69 |ap_Creat|e",slidi|
|00011180| 6e 67 68 65 61 70 62 61 | 73 65 25 2c 32 2c 73 6c |ngheapba|se%,2,sl|
|00011190| 69 64 69 6e 67 62 6c 6f | 63 6b 73 25 0d 66 58 30 |idingblo|cks%.fX0|
|000111a0| c8 99 20 22 53 6c 69 64 | 69 6e 67 48 65 61 70 5f |.. "Slid|ingHeap_|
|000111b0| 56 65 72 69 66 79 48 65 | 61 70 22 2c 73 6c 69 64 |VerifyHe|ap",slid|
|000111c0| 69 6e 67 68 65 61 70 62 | 61 73 65 25 0d 66 62 05 |ingheapb|ase%.fb.|
|000111d0| e1 0d 66 6c 05 3a 0d 66 | 76 15 dd 20 a4 5f 68 65 |..fl.:.f|v.. ._he|
|000111e0| 61 70 5f 6e 65 78 74 66 | 72 65 65 0d 66 80 0f ea |ap_nextf|ree.f...|
|000111f0| 20 6e 65 78 74 66 72 65 | 65 25 0d 66 8a 3a c8 99 | nextfre|e%.f.:..|
|00011200| 20 22 53 6c 69 64 69 6e | 67 48 65 61 70 5f 4e 65 | "Slidin|gHeap_Ne|
|00011210| 78 74 46 72 65 65 22 2c | 73 6c 69 64 69 6e 67 68 |xtFree",|slidingh|
|00011220| 65 61 70 62 61 73 65 25 | 20 b8 20 6e 65 78 74 66 |eapbase%| . nextf|
|00011230| 72 65 65 25 0d 66 94 0e | 3d 6e 65 78 74 66 72 65 |ree%.f..|=nextfre|
|00011240| 65 25 0d 66 9e 05 3a 0d | 66 a8 13 dd 20 f2 64 65 |e%.f..:.|f... .de|
|00011250| 73 74 72 6f 79 68 65 61 | 70 73 0d 66 b2 19 f2 73 |stroyhea|ps.f...s|
|00011260| 65 74 73 6c 6f 74 73 69 | 7a 65 28 93 2d 26 38 30 |etslotsi|ze(.-&80|
|00011270| 30 30 29 0d 66 bc 05 e1 | 0d 66 c6 05 3a 0d 66 d0 |00).f...|.f..:.f.|
|00011280| 24 dd 20 a4 5f 68 65 61 | 70 5f 77 6f 72 64 75 70 |$. ._hea|p_wordup|
|00011290| 28 78 25 29 3d 28 78 25 | 2b 33 29 20 80 20 ac 20 |(x%)=(x%|+3) . . |
|000112a0| 33 0d 66 da 05 3a 0d 66 | e4 1b dd 20 a4 63 72 65 |3.f..:.f|... .cre|
|000112b0| 61 74 65 5f 61 6e 63 68 | 6f 72 28 6e 61 6d 65 24 |ate_anch|or(name$|
|000112c0| 29 0d 66 ee 0c ea 20 73 | 70 61 63 65 25 0d 66 f8 |).f... s|pace%.f.|
|000112d0| 17 de 20 73 70 61 63 65 | 25 20 34 2b a9 6e 61 6d |.. space|% 4+.nam|
|000112e0| 65 24 2b 31 0d 67 02 0d | 21 73 70 61 63 65 25 3d |e$+1.g..|!space%=|
|000112f0| 30 0d 67 0c 15 24 28 73 | 70 61 63 65 25 2b 34 29 |0.g..$(s|pace%+4)|
|00011300| 3d 6e 61 6d 65 24 0d 67 | 16 0b 3d 73 70 61 63 65 |=name$.g|..=space|
|00011310| 25 0d 67 20 05 3a 0d 67 | 2a 30 dd 20 f2 63 72 65 |%.g .:.g|*0. .cre|
|00011320| 61 74 65 5f 6e 61 6d 65 | 64 5f 73 6c 69 64 69 6e |ate_name|d_slidin|
|00011330| 67 5f 62 6c 6f 63 6b 28 | 61 6e 63 68 6f 72 25 2c |g_block(|anchor%,|
|00011340| 73 69 7a 65 25 29 0d 67 | 34 0e ea 20 74 72 79 73 |size%).g|4.. trys|
|00011350| 69 7a 65 25 0d 67 3e 1e | 73 69 7a 65 25 3d a4 5f |ize%.g>.|size%=._|
|00011360| 68 65 61 70 5f 77 6f 72 | 64 75 70 28 73 69 7a 65 |heap_wor|dup(size|
|00011370| 25 29 0d 67 48 37 74 72 | 79 73 69 7a 65 25 3d a4 |%).gH7tr|ysize%=.|
|00011380| 5f 68 65 61 70 5f 70 61 | 67 65 75 70 28 a4 5f 68 |_heap_pa|geup(._h|
|00011390| 65 61 70 5f 6e 65 78 74 | 66 72 65 65 2b 73 69 7a |eap_next|free+siz|
|000113a0| 65 25 2d 26 37 46 46 34 | 29 0d 67 52 1e e7 20 74 |e%-&7FF4|).gR.. t|
|000113b0| 72 79 73 69 7a 65 25 3e | 68 65 61 70 5f 74 72 69 |rysize%>|heap_tri|
|000113c0| 67 67 65 72 25 20 8c 0d | 67 5c 1d 20 20 20 f2 73 |gger% ..|g\.   .s|
|000113d0| 65 74 73 6c 6f 74 73 69 | 7a 65 28 74 72 79 73 69 |etslotsi|ze(trysi|
|000113e0| 7a 65 25 29 0d 67 66 23 | 20 20 20 e7 20 a4 5f 68 |ze%).gf#|   . ._h|
|000113f0| 65 61 70 5f 73 6c 6f 74 | 73 69 7a 65 3c 74 72 79 |eap_slot|size<try|
|00011400| 73 69 7a 65 25 20 8c 0d | 67 70 25 20 20 20 20 20 |size% ..|gp%     |
|00011410| 20 f2 73 65 74 73 6c 6f | 74 73 69 7a 65 28 68 65 | .setslo|tsize(he|
|00011420| 61 70 5f 74 72 69 67 67 | 65 72 25 29 0d 67 7a 46 |ap_trigg|er%).gzF|
|00011430| 20 20 20 20 20 20 85 20 | 31 33 31 2c 22 4e 6f 74 |      . |131,"Not|
|00011440| 20 65 6e 6f 75 67 68 20 | 72 6f 6f 6d 20 74 6f 20 | enough |room to |
|00011450| 63 72 65 61 74 65 20 62 | 6c 6f 63 6b 20 22 22 22 |create b|lock """|
|00011460| 2b 24 28 61 6e 63 68 6f | 72 25 2b 34 29 2b 22 22 |+$(ancho|r%+4)+""|
|00011470| 22 22 0d 67 84 08 20 20 | 20 cc 0d 67 8e 20 20 20 |"".g..  | ..g.   |
|00011480| 20 20 20 20 68 65 61 70 | 5f 74 72 69 67 67 65 72 |    heap|_trigger|
|00011490| 25 3d 74 72 79 73 69 7a | 65 25 0d 67 98 08 20 20 |%=trysiz|e%.g..  |
|000114a0| 20 cd 0d 67 a2 05 cd 0d | 67 ac 46 c8 99 20 22 53 | ..g....|g.F.. "S|
|000114b0| 6c 69 64 69 6e 67 48 65 | 61 70 5f 4e 65 77 42 6c |lidingHe|ap_NewBl|
|000114c0| 6f 63 6b 22 2c 73 6c 69 | 64 69 6e 67 68 65 61 70 |ock",sli|dingheap|
|000114d0| 62 61 73 65 25 2c 61 6e | 63 68 6f 72 25 2c 73 69 |base%,an|chor%,si|
|000114e0| 7a 65 25 2c 61 6e 63 68 | 6f 72 25 2b 34 0d 67 b6 |ze%,anch|or%+4.g.|
|000114f0| 30 c8 99 20 22 53 6c 69 | 64 69 6e 67 48 65 61 70 |0.. "Sli|dingHeap|
|00011500| 5f 56 65 72 69 66 79 48 | 65 61 70 22 2c 73 6c 69 |_VerifyH|eap",sli|
|00011510| 64 69 6e 67 68 65 61 70 | 62 61 73 65 25 0d 67 c0 |dingheap|base%.g.|
|00011520| 05 e1 0d 67 ca 05 3a 0d | 67 d4 23 dd 20 f2 73 63 |...g..:.|g.#. .sc|
|00011530| 72 61 70 5f 73 6c 69 64 | 69 6e 67 5f 62 6c 6f 63 |rap_slid|ing_bloc|
|00011540| 6b 28 61 6e 63 68 6f 72 | 25 29 0d 67 de 14 e7 20 |k(anchor|%).g... |
|00011550| 21 61 6e 63 68 6f 72 25 | 3d 30 20 8c 20 e1 0d 67 |!anchor%|=0 . ..g|
|00011560| e8 38 c8 99 20 22 53 6c | 69 64 69 6e 67 48 65 61 |.8.. "Sl|idingHea|
|00011570| 70 5f 53 63 72 61 70 42 | 6c 6f 63 6b 22 2c 73 6c |p_ScrapB|lock",sl|
|00011580| 69 64 69 6e 67 68 65 61 | 70 62 61 73 65 25 2c 61 |idinghea|pbase%,a|
|00011590| 6e 63 68 6f 72 25 0d 67 | f2 31 74 72 79 73 69 7a |nchor%.g|.1trysiz|
|000115a0| 65 25 3d a4 5f 68 65 61 | 70 5f 70 61 67 65 75 70 |e%=._hea|p_pageup|
|000115b0| 28 a4 5f 68 65 61 70 5f | 6e 65 78 74 66 72 65 65 |(._heap_|nextfree|
|000115c0| 2d 26 37 46 46 43 29 0d | 67 fc 1f e7 20 74 72 79 |-&7FFC).|g... try|
|000115d0| 73 69 7a 65 25 3c 3e 68 | 65 61 70 5f 74 72 69 67 |size%<>h|eap_trig|
|000115e0| 67 65 72 25 20 8c 0d 68 | 06 1d 20 20 20 f2 73 65 |ger% ..h|..   .se|
|000115f0| 74 73 6c 6f 74 73 69 7a | 65 28 74 72 79 73 69 7a |tslotsiz|e(trysiz|
|00011600| 65 25 29 0d 68 10 1d 20 | 20 20 68 65 61 70 5f 74 |e%).h.. |  heap_t|
|00011610| 72 69 67 67 65 72 25 3d | 74 72 79 73 69 7a 65 25 |rigger%=|trysize%|
|00011620| 0d 68 1a 05 cd 0d 68 24 | 0e 21 61 6e 63 68 6f 72 |.h....h$|.!anchor|
|00011630| 25 3d 30 0d 68 2e 30 c8 | 99 20 22 53 6c 69 64 69 |%=0.h.0.|. "Slidi|
|00011640| 6e 67 48 65 61 70 5f 56 | 65 72 69 66 79 48 65 61 |ngHeap_V|erifyHea|
|00011650| 70 22 2c 73 6c 69 64 69 | 6e 67 68 65 61 70 62 61 |p",slidi|ngheapba|
|00011660| 73 65 25 0d 68 38 05 e1 | 0d 68 42 05 3a 0d 68 4c |se%.h8..|.hB.:.hL|
|00011670| 1c dd 20 f2 73 65 74 73 | 6c 6f 74 73 69 7a 65 28 |.. .sets|lotsize(|
|00011680| 6e 65 77 73 69 7a 65 25 | 29 0d 68 56 22 c8 99 20 |newsize%|).hV".. |
|00011690| 22 57 69 6d 70 5f 53 6c | 6f 74 53 69 7a 65 22 2c |"Wimp_Sl|otSize",|
|000116a0| 6e 65 77 73 69 7a 65 25 | 2c 2d 31 0d 68 60 05 e1 |newsize%|,-1.h`..|
|000116b0| 0d 68 6a 05 3a 0d 68 74 | 33 dd 20 f2 65 78 74 65 |.hj.:.ht|3. .exte|
|000116c0| 6e 64 5f 6e 61 6d 65 64 | 5f 73 6c 69 64 69 6e 67 |nd_named|_sliding|
|000116d0| 5f 62 6c 6f 63 6b 28 61 | 6e 63 68 6f 72 25 2c 6e |_block(a|nchor%,n|
|000116e0| 65 77 73 69 7a 65 25 29 | 0d 68 7e 42 e7 20 21 61 |ewsize%)|.h~B. !a|
|000116f0| 6e 63 68 6f 72 25 3d 30 | 20 8c 20 f2 63 72 65 61 |nchor%=0| . .crea|
|00011700| 74 65 5f 6e 61 6d 65 64 | 5f 73 6c 69 64 69 6e 67 |te_named|_sliding|
|00011710| 5f 62 6c 6f 63 6b 28 61 | 6e 63 68 6f 72 25 2c 6e |_block(a|nchor%,n|
|00011720| 65 77 73 69 7a 65 25 29 | 3a e1 0d 68 88 41 e7 20 |ewsize%)|:..h.A. |
|00011730| 21 61 6e 63 68 6f 72 25 | 3e a4 5f 68 65 61 70 5f |!anchor%|>._heap_|
|00011740| 6e 65 78 74 66 72 65 65 | 20 8c 20 85 20 31 32 39 |nextfree| . . 129|
|00011750| 2c 22 42 6c 6f 63 6b 20 | 62 65 79 6f 6e 64 20 68 |,"Block |beyond h|
|00011760| 65 61 70 20 6c 69 6d 69 | 74 73 22 0d 68 92 24 6e |eap limi|ts".h.$n|
|00011770| 65 77 73 69 7a 65 25 3d | a4 5f 68 65 61 70 5f 77 |ewsize%=|._heap_w|
|00011780| 6f 72 64 75 70 28 6e 65 | 77 73 69 7a 65 25 29 0d |ordup(ne|wsize%).|
|00011790| 68 9c 48 c8 99 20 22 53 | 6c 69 64 69 6e 67 48 65 |h.H.. "S|lidingHe|
|000117a0| 61 70 5f 44 65 73 63 72 | 69 62 65 42 6c 6f 63 6b |ap_Descr|ibeBlock|
|000117b0| 22 2c 73 6c 69 64 69 6e | 67 68 65 61 70 62 61 73 |",slidin|gheapbas|
|000117c0| 65 25 2c 61 6e 63 68 6f | 72 25 20 b8 20 2c 2c 6f |e%,ancho|r% . ,,o|
|000117d0| 6c 64 73 69 7a 65 25 0d | 68 a6 1d 6c 61 72 67 65 |ldsize%.|h..large|
|000117e0| 72 25 3d 6e 65 77 73 69 | 7a 65 25 3e 6f 6c 64 73 |r%=newsi|ze%>olds|
|000117f0| 69 7a 65 25 0d 68 b0 0f | e7 20 6c 61 72 67 65 72 |ize%.h..|. larger|
|00011800| 25 20 8c 0d 68 ba 48 20 | 20 20 74 72 79 73 69 7a |% ..h.H |  trysiz|
|00011810| 65 25 3d a4 5f 68 65 61 | 70 5f 70 61 67 65 75 70 |e%=._hea|p_pageup|
|00011820| 28 a4 5f 68 65 61 70 5f | 6e 65 78 74 66 72 65 65 |(._heap_|nextfree|
|00011830| 2b 28 6e 65 77 73 69 7a | 65 25 2d 6f 6c 64 73 69 |+(newsiz|e%-oldsi|
|00011840| 7a 65 25 29 2d 26 37 46 | 46 43 29 0d 68 c4 21 20 |ze%)-&7F|FC).h.! |
|00011850| 20 20 e7 20 74 72 79 73 | 69 7a 65 25 3e 68 65 61 |  . trys|ize%>hea|
|00011860| 70 5f 74 72 69 67 67 65 | 72 25 20 8c 0d 68 ce 20 |p_trigge|r% ..h. |
|00011870| 20 20 20 20 20 20 f2 73 | 65 74 73 6c 6f 74 73 69 |      .s|etslotsi|
|00011880| 7a 65 28 74 72 79 73 69 | 7a 65 25 29 0d 68 d8 26 |ze(trysi|ze%).h.&|
|00011890| 20 20 20 20 20 20 e7 20 | a4 5f 68 65 61 70 5f 73 |      . |._heap_s|
|000118a0| 6c 6f 74 73 69 7a 65 3c | 74 72 79 73 69 7a 65 25 |lotsize<|trysize%|
|000118b0| 20 8c 0d 68 e2 28 20 20 | 20 20 20 20 20 20 20 f2 | ..h.(  |       .|
|000118c0| 73 65 74 73 6c 6f 74 73 | 69 7a 65 28 68 65 61 70 |setslots|ize(heap|
|000118d0| 5f 74 72 69 67 67 65 72 | 25 29 0d 68 ec 40 20 20 |_trigger|%).h.@  |
|000118e0| 20 20 20 20 20 20 20 85 | 20 31 33 32 2c 22 4e 6f |       .| 132,"No|
|000118f0| 74 20 65 6e 6f 75 67 68 | 20 72 6f 6f 6d 20 74 6f |t enough| room to|
|00011900| 20 65 78 74 65 6e 64 20 | 62 6c 6f 63 6b 20 23 22 | extend |block #"|
|00011910| 2b c3 7e 61 6e 63 68 6f | 72 25 0d 68 f6 0b 20 20 |+.~ancho|r%.h..  |
|00011920| 20 20 20 20 cc 0d 69 00 | 23 20 20 20 20 20 20 20 |    ..i.|#       |
|00011930| 20 20 68 65 61 70 5f 74 | 72 69 67 67 65 72 25 3d |  heap_t|rigger%=|
|00011940| 74 72 79 73 69 7a 65 25 | 0d 69 0a 0b 20 20 20 20 |trysize%|.i..    |
|00011950| 20 20 cd 0d 69 14 08 20 | 20 20 cd 0d 69 1e 05 cd |  ..i.. |  ..i...|
|00011960| 0d 69 28 42 c8 99 20 22 | 53 6c 69 64 69 6e 67 48 |.i(B.. "|SlidingH|
|00011970| 65 61 70 5f 45 78 74 65 | 6e 64 42 6c 6f 63 6b 22 |eap_Exte|ndBlock"|
|00011980| 2c 73 6c 69 64 69 6e 67 | 68 65 61 70 62 61 73 65 |,sliding|heapbase|
|00011990| 25 2c 61 6e 63 68 6f 72 | 25 2c 6e 65 77 73 69 7a |%,anchor|%,newsiz|
|000119a0| 65 25 0d 69 32 31 74 72 | 79 73 69 7a 65 25 3d a4 |e%.i21tr|ysize%=.|
|000119b0| 5f 68 65 61 70 5f 70 61 | 67 65 75 70 28 a4 5f 68 |_heap_pa|geup(._h|
|000119c0| 65 61 70 5f 6e 65 78 74 | 66 72 65 65 2d 26 37 46 |eap_next|free-&7F|
|000119d0| 46 43 29 0d 69 3c 1f e7 | 20 74 72 79 73 69 7a 65 |FC).i<..| trysize|
|000119e0| 25 3c 3e 68 65 61 70 5f | 74 72 69 67 67 65 72 25 |%<>heap_|trigger%|
|000119f0| 20 8c 0d 69 46 1d 20 20 | 20 f2 73 65 74 73 6c 6f | ..iF.  | .setslo|
|00011a00| 74 73 69 7a 65 28 74 72 | 79 73 69 7a 65 25 29 0d |tsize(tr|ysize%).|
|00011a10| 69 50 1d 20 20 20 68 65 | 61 70 5f 74 72 69 67 67 |iP.   he|ap_trigg|
|00011a20| 65 72 25 3d 74 72 79 73 | 69 7a 65 25 0d 69 5a 05 |er%=trys|ize%.iZ.|
|00011a30| cd 0d 69 64 30 c8 99 20 | 22 53 6c 69 64 69 6e 67 |..id0.. |"Sliding|
|00011a40| 48 65 61 70 5f 56 65 72 | 69 66 79 48 65 61 70 22 |Heap_Ver|ifyHeap"|
|00011a50| 2c 73 6c 69 64 69 6e 67 | 68 65 61 70 62 61 73 65 |,sliding|heapbase|
|00011a60| 25 0d 69 6e 05 e1 0d 69 | 78 05 3a 0d 69 82 16 dd |%.in...i|x.:.i...|
|00011a70| 20 a4 5f 68 65 61 70 5f | 62 79 74 65 73 28 62 25 | ._heap_|bytes(b%|
|00011a80| 29 0d 69 8c 0a ea 20 65 | 6e 64 25 0d 69 96 3e c8 |).i... e|nd%.i.>.|
|00011a90| 99 20 22 4f 53 5f 43 6f | 6e 76 65 72 74 46 69 78 |. "OS_Co|nvertFix|
|00011aa0| 65 64 46 69 6c 65 53 69 | 7a 65 22 2c 62 25 2c 62 |edFileSi|ze",b%,b|
|00011ab0| 6c 6f 63 6b 25 2c 62 6c | 6f 63 6b 25 2b 26 31 30 |lock%,bl|ock%+&10|
|00011ac0| 30 20 b8 20 2c 65 6e 64 | 25 0d 69 a0 0c 3f 65 6e |0 . ,end|%.i..?en|
|00011ad0| 64 25 3d 31 33 0d 69 aa | 0c 3d 24 62 6c 6f 63 6b |d%=13.i.|.=$block|
|00011ae0| 25 0d 69 b4 05 3a 0d 69 | be 17 dd 20 a4 5f 68 65 |%.i..:.i|... ._he|
|00011af0| 61 70 5f 62 79 74 65 73 | 32 28 62 25 29 0d 69 c8 |ap_bytes|2(b%).i.|
|00011b00| 0a ea 20 65 6e 64 25 0d | 69 d2 39 c8 99 20 22 4f |.. end%.|i.9.. "O|
|00011b10| 53 5f 43 6f 6e 76 65 72 | 74 46 69 6c 65 53 69 7a |S_Conver|tFileSiz|
|00011b20| 65 22 2c 62 25 2c 62 6c | 6f 63 6b 25 2c 62 6c 6f |e",b%,bl|ock%,blo|
|00011b30| 63 6b 25 2b 26 31 30 30 | 20 b8 20 2c 65 6e 64 25 |ck%+&100| . ,end%|
|00011b40| 0d 69 dc 0c 3f 65 6e 64 | 25 3d 31 33 0d 69 e6 0c |.i..?end|%=13.i..|
|00011b50| 3d 24 62 6c 6f 63 6b 25 | 0d 69 f0 05 3a 0d 69 fa |=$block%|.i..:.i.|
|00011b60| 20 dd 20 a4 63 72 65 61 | 74 65 5f 66 69 78 65 64 | . .crea|te_fixed|
|00011b70| 5f 62 6c 6f 63 6b 28 73 | 69 7a 65 25 29 0d 6a 04 |_block(s|ize%).j.|
|00011b80| 14 ea 20 70 6f 69 6e 74 | 65 72 25 2c 66 6c 61 67 |.. point|er%,flag|
|00011b90| 25 0d 6a 0e 3c c8 99 20 | 22 58 4f 53 5f 48 65 61 |%.j.<.. |"XOS_Hea|
|00011ba0| 70 22 2c 32 2c 66 69 78 | 65 64 68 65 61 70 62 61 |p",2,fix|edheapba|
|00011bb0| 73 65 25 2c 2c 73 69 7a | 65 25 20 b8 20 2c 2c 70 |se%,,siz|e% . ,,p|
|00011bc0| 6f 69 6e 74 65 72 25 3b | 66 6c 61 67 25 0d 6a 18 |ointer%;|flag%.j.|
|00011bd0| 10 c8 95 20 66 6c 61 67 | 25 20 80 20 31 0d 6a 22 |... flag|% . 1.j"|
|00011be0| 14 f2 65 78 74 65 6e 64 | 66 69 78 65 64 68 65 61 |..extend|fixedhea|
|00011bf0| 70 0d 6a 2c 3c c8 99 20 | 22 58 4f 53 5f 48 65 61 |p.j,<.. |"XOS_Hea|
|00011c00| 70 22 2c 32 2c 66 69 78 | 65 64 68 65 61 70 62 61 |p",2,fix|edheapba|
|00011c10| 73 65 25 2c 2c 73 69 7a | 65 25 20 b8 20 2c 2c 70 |se%,,siz|e% . ,,p|
|00011c20| 6f 69 6e 74 65 72 25 3b | 66 6c 61 67 25 0d 6a 36 |ointer%;|flag%.j6|
|00011c30| 05 ce 0d 6a 40 0d 3d 70 | 6f 69 6e 74 65 72 25 0d |...j@.=p|ointer%.|
|00011c40| 6a 4a 05 3a 0d 6a 54 16 | dd 20 f2 65 78 74 65 6e |jJ.:.jT.|. .exten|
|00011c50| 64 66 69 78 65 64 68 65 | 61 70 0d 6a 5e 1c ea 20 |dfixedhe|ap.j^.. |
|00011c60| 6e 73 68 62 25 2c 65 78 | 74 65 6e 64 25 2c 74 72 |nshb%,ex|tend%,tr|
|00011c70| 79 73 69 7a 65 25 0d 6a | 68 24 c8 99 20 22 4f 53 |ysize%.j|h$.. "OS|
|00011c80| 5f 52 65 61 64 4d 65 6d | 4d 61 70 49 6e 66 6f 22 |_ReadMem|MapInfo"|
|00011c90| 20 b8 20 65 78 74 65 6e | 64 25 0d 6a 72 24 74 72 | . exten|d%.jr$tr|
|00011ca0| 79 73 69 7a 65 25 3d a4 | 5f 68 65 61 70 5f 73 6c |ysize%=.|_heap_sl|
|00011cb0| 6f 74 73 69 7a 65 2b 65 | 78 74 65 6e 64 25 0d 6a |otsize+e|xtend%.j|
|00011cc0| 7c 1a f2 73 65 74 73 6c | 6f 74 73 69 7a 65 28 74 ||..setsl|otsize(t|
|00011cd0| 72 79 73 69 7a 65 25 29 | 0d 6a 86 45 e7 20 a4 5f |rysize%)|.j.E. ._|
|00011ce0| 68 65 61 70 5f 73 6c 6f | 74 73 69 7a 65 3c 74 72 |heap_slo|tsize<tr|
|00011cf0| 79 73 69 7a 65 25 20 8c | 20 85 20 32 35 35 2c 22 |ysize% .| . 255,"|
|00011d00| 4e 6f 20 72 6f 6f 6d 20 | 74 6f 20 65 78 74 65 6e |No room |to exten|
|00011d10| 64 20 66 69 78 65 64 20 | 68 65 61 70 22 0d 6a 90 |d fixed |heap".j.|
|00011d20| 22 6e 73 68 62 25 3d 73 | 6c 69 64 69 6e 67 68 65 |"nshb%=s|lidinghe|
|00011d30| 61 70 62 61 73 65 25 2b | 65 78 74 65 6e 64 25 0d |apbase%+|extend%.|
|00011d40| 6a 9a 35 c8 99 20 22 53 | 6c 69 64 69 6e 67 48 65 |j.5.. "S|lidingHe|
|00011d50| 61 70 5f 53 68 69 66 74 | 48 65 61 70 22 2c 73 6c |ap_Shift|Heap",sl|
|00011d60| 69 64 69 6e 67 68 65 61 | 70 62 61 73 65 25 2c 6e |idinghea|pbase%,n|
|00011d70| 73 68 62 25 0d 6a a4 2a | c8 99 20 22 4f 53 5f 48 |shb%.j.*|.. "OS_H|
|00011d80| 65 61 70 22 2c 35 2c 66 | 69 78 65 64 68 65 61 70 |eap",5,f|ixedheap|
|00011d90| 62 61 73 65 25 2c 2c 65 | 78 74 65 6e 64 25 0d 6a |base%,,e|xtend%.j|
|00011da0| ae 1b 66 69 78 65 64 68 | 65 61 70 73 69 7a 65 25 |..fixedh|eapsize%|
|00011db0| 2b 3d 65 78 74 65 6e 64 | 25 0d 6a b8 1a 73 6c 69 |+=extend|%.j..sli|
|00011dc0| 64 69 6e 67 68 65 61 70 | 62 61 73 65 25 3d 6e 73 |dingheap|base%=ns|
|00011dd0| 68 62 25 0d 6a c2 30 c8 | 99 20 22 53 6c 69 64 69 |hb%.j.0.|. "Slidi|
|00011de0| 6e 67 48 65 61 70 5f 56 | 65 72 69 66 79 48 65 61 |ngHeap_V|erifyHea|
|00011df0| 70 22 2c 73 6c 69 64 69 | 6e 67 68 65 61 70 62 61 |p",slidi|ngheapba|
|00011e00| 73 65 25 0d 6a cc 05 e1 | 0d ff                   |se%.j...|..      |
+--------+-------------------------+-------------------------+--------+--------+