/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / databases / progs / videobase / !VideoBase / Crunched

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 4c f4 3e 21 52 | 75 6e 49 6d 61 67 65 20 |...L.>!R|unImage |
|00000010| 73 71 75 69 73 68 65 64 | 20 62 79 20 4d 48 27 73 |squished| by MH's|
|00000020| 20 42 41 53 49 43 20 63 | 72 75 6e 63 68 65 72 20 | BASIC c|runcher |
|00000030| 76 31 2e 32 30 20 31 34 | 2f 35 2f 38 39 20 4f 6e |v1.20 14|/5/89 On|
|00000040| 20 32 34 20 53 65 70 20 | 31 39 38 39 0d 00 02 ba | 24 Sep |1989....|
|00000050| 71 24 3d 22 31 2e 33 36 | 20 28 32 34 2d 53 65 70 |q$="1.36| (24-Sep|
|00000060| 2d 38 39 29 22 3a 3a de | 71 25 20 31 34 30 30 3a |-89)"::.|q% 1400:|
|00000070| 24 71 25 3d 22 54 41 53 | 4b 22 3a c8 99 22 57 69 |$q%="TAS|K":.."Wi|
|00000080| 6d 70 5f 49 6e 69 74 69 | 61 6c 69 73 65 22 2c 32 |mp_Initi|alise",2|
|00000090| 30 30 2c 21 71 25 2c 22 | 56 69 64 65 6f 42 61 73 |00,!q%,"|VideoBas|
|000000a0| 65 22 b8 2c 61 61 3a c8 | 99 22 48 6f 75 72 67 6c |e".,aa:.|."Hourgl|
|000000b0| 61 73 73 5f 4f 6e 22 3a | 53 25 3d 8e 22 3c 56 69 |ass_On":|S%=."<Vi|
|000000c0| 64 65 6f 42 61 73 65 24 | 44 69 72 3e 2e 53 70 72 |deoBase$|Dir>.Spr|
|000000d0| 69 74 65 73 22 3a 54 25 | 3d 82 23 53 25 2b 31 36 |ites":T%|=.#S%+16|
|000000e0| 3a d9 23 53 25 3a de 63 | 20 54 25 3a 21 63 3d 54 |:.#S%:.c| T%:!c=T|
|000000f0| 25 3a 63 21 34 3d 30 3a | 63 21 38 3d 31 36 3a 63 |%:c!4=0:|c!8=16:c|
|00000100| 21 31 32 3d 31 36 0d 01 | 04 db c8 99 22 4f 53 5f |!12=16..|...."OS_|
|00000110| 53 70 72 69 74 65 4f 70 | 22 2c 35 32 31 2c 63 3a |SpriteOp|",521,c:|
|00000120| c8 99 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |.."OS_Sp|riteOp",|
|00000130| 35 32 32 2c 63 2c 22 3c | 56 69 64 65 6f 42 61 73 |522,c,"<|VideoBas|
|00000140| 65 24 44 69 72 3e 2e 53 | 70 72 69 74 65 73 22 3a |e$Dir>.S|prites":|
|00000150| 4e 3d a4 66 28 2d 31 2c | 30 2c 30 2c 36 38 2c 36 |N=.f(-1,|0,0,68,6|
|00000160| 38 2c 30 2c 30 2c 31 32 | 32 39 30 2c 22 21 56 69 |8,0,0,12|290,"!Vi|
|00000170| 64 65 6f 42 61 73 65 22 | 29 3a 4f 3d 33 3a 50 3d |deoBase"|):O=3:P=|
|00000180| 31 3a 51 3d 32 3a 52 3d | 37 3a 53 3d 32 3a 6b 3d |1:Q=2:R=|7:S=2:k=|
|00000190| 31 3a 55 3d 32 3a 56 3d | 34 3a 57 3d 38 3a 5a 3d |1:U=2:V=|4:W=8:Z=|
|000001a0| 6b 2b 55 2b 57 2b 56 3a | 5f 3d 31 3a 60 3d 32 3a |k+U+W+V:|_=1:`=2:|
|000001b0| 62 61 3d 34 3a 75 3d 31 | 32 38 3a 65 3d 36 35 35 |ba=4:u=1|28:e=655|
|000001c0| 36 39 3a 63 61 3d 34 31 | 39 34 33 30 34 3a 69 24 |69:ca=41|94304:i$|
|000001d0| 3d 22 22 3a 69 3d a3 3a | 61 61 25 3d 33 3a 6d 3d |="":i=.:|aa%=3:m=|
|000001e0| a3 0d 03 2a bc de 64 24 | 28 35 30 29 2c 61 28 35 |...*..d$|(50),a(5|
|000001f0| 30 29 2c 63 28 35 30 29 | 3a de 62 28 35 30 29 2c |0),c(50)|:.b(50),|
|00000200| 64 28 35 30 29 2c 65 28 | 32 30 29 3a de 62 61 25 |d(50),e(|20):.ba%|
|00000210| 20 31 36 3a de 64 61 20 | 36 30 3a de 63 61 25 20 | 16:.da |60:.ca% |
|00000220| 35 31 32 3a de 64 61 25 | 20 34 33 35 32 3a de 76 |512:.da%| 4352:.v|
|00000230| 20 31 30 30 3a de 7a 20 | 31 30 30 3a 24 62 61 25 | 100:.z |100:$ba%|
|00000240| 3d 22 44 65 6c 65 74 65 | 20 52 65 63 6f 72 64 22 |="Delete| Record"|
|00000250| 3a 65 61 25 3d 64 61 25 | 3a 66 61 25 3d 65 61 25 |:ea%=da%|:fa%=ea%|
|00000260| 2b 34 33 35 32 3a e3 67 | 61 25 3d 30 b8 36 30 3a |+4352:.g|a%=0.60:|
|00000270| 64 61 3f 67 61 25 3d 31 | 33 3a ed 67 61 25 3a 4f |da?ga%=1|3:.ga%:O|
|00000280| 25 3d 33 30 3a 45 25 3d | 32 30 30 3a 6a 25 3d 30 |%=30:E%=|200:j%=0|
|00000290| 3a 67 3d 31 3a 64 24 3d | 22 61 6c 6c 22 0d 04 56 |:g=1:d$=|"all"..V|
|000002a0| dd de 62 24 28 45 25 29 | 2c 63 24 28 45 25 29 2c |..b$(E%)|,c$(E%),|
|000002b0| 61 24 28 45 25 29 3a de | 61 25 28 45 25 29 2c 63 |a$(E%):.|a%(E%),c|
|000002c0| 25 28 45 25 29 3a de 62 | 25 28 45 25 29 3a de 69 |%(E%):.b|%(E%):.i|
|000002d0| 25 28 4f 25 29 2c 64 25 | 28 4f 25 29 3a de 65 25 |%(O%),d%|(O%):.e%|
|000002e0| 28 36 29 2c 66 25 28 36 | 29 2c 67 25 28 36 29 2c |(6),f%(6|),g%(6),|
|000002f0| 68 25 28 36 29 3a 62 24 | 28 29 3d c4 34 30 2c 22 |h%(6):b$|()=.40,"|
|00000300| 20 22 29 3a 63 24 28 29 | 3d c4 34 30 2c 22 20 22 | "):c$()|=.40," "|
|00000310| 29 3a 61 24 28 29 3d 22 | 20 20 22 3a 61 25 28 29 |):a$()="|  ":a%()|
|00000320| 3d 30 3a 63 25 28 29 3d | 30 3a 62 25 28 29 3d 30 |=0:c%()=|0:b%()=0|
|00000330| 3a 64 25 3d 31 3a 42 25 | 3d a3 3a 62 24 3d 22 22 |:d%=1:B%|=.:b$=""|
|00000340| 3a 52 25 3d 30 3a 46 25 | 3d 31 3a 58 25 3d 8e 28 |:R%=0:F%|=1:X%=.(|
|00000350| 22 3c 56 69 64 65 6f 42 | 61 73 65 24 44 69 72 3e |"<VideoB|ase$Dir>|
|00000360| 2e 57 56 44 41 54 41 22 | 29 3a d9 23 58 25 3a e7 |.WVDATA"|):.#X%:.|
|00000370| 58 25 3d 30 8c f2 45 8b | f2 46 0d 05 5a eb f2 47 |X%=0..E.|.F..Z..G|
|00000380| 28 22 3c 56 69 64 65 6f | 42 61 73 65 24 44 69 72 |("<Video|Base$Dir|
|00000390| 3e 2e 74 65 6d 70 6c 61 | 74 65 73 22 29 3a f2 68 |>.templa|tes"):.h|
|000003a0| 28 22 76 62 61 73 65 22 | 29 3a 71 25 21 36 34 3d |("vbase"|):q%!64=|
|000003b0| 63 3a c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |c:.."Wim|p_Create|
|000003c0| 57 69 6e 64 6f 77 22 2c | 2c 71 25 b8 6b 25 3a f2 |Window",|,q%.k%:.|
|000003d0| 68 28 22 6e 65 77 72 65 | 63 22 29 3a 71 25 21 36 |h("newre|c"):q%!6|
|000003e0| 34 3d 63 3a c8 99 22 57 | 69 6d 70 5f 43 72 65 61 |4=c:.."W|imp_Crea|
|000003f0| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 71 25 b8 6d 25 |teWindow|",,q%.m%|
|00000400| 3a f2 68 28 22 64 65 6c | 74 61 70 65 22 29 3a 71 |:.h("del|tape"):q|
|00000410| 25 21 36 34 3d 63 3a c8 | 99 22 57 69 6d 70 5f 43 |%!64=c:.|."Wimp_C|
|00000420| 72 65 61 74 65 57 69 6e | 64 6f 77 22 2c 2c 71 25 |reateWin|dow",,q%|
|00000430| b8 55 25 3a f2 68 28 22 | 73 65 61 72 63 68 22 29 |.U%:.h("|search")|
|00000440| 3a 71 25 21 36 34 3d 63 | 3a c8 99 22 57 69 6d 70 |:q%!64=c|:.."Wimp|
|00000450| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00000460| 71 25 b8 75 25 0d 05 fa | e4 f2 68 28 22 66 69 6e |q%.u%...|..h("fin|
|00000470| 64 73 70 22 29 3a 71 25 | 21 36 34 3d 63 3a c8 99 |dsp"):q%|!64=c:..|
|00000480| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000490| 6f 77 22 2c 2c 71 25 b8 | 56 25 3a f2 68 28 22 6e |ow",,q%.|V%:.h("n|
|000004a0| 65 77 74 61 70 65 22 29 | 3a 71 25 21 36 34 3d 63 |ewtape")|:q%!64=c|
|000004b0| 3a c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |:.."Wimp|_CreateW|
|000004c0| 69 6e 64 6f 77 22 2c 2c | 71 25 b8 50 25 3a f2 68 |indow",,|q%.P%:.h|
|000004d0| 28 22 63 61 6c 74 61 70 | 65 22 29 3a 71 25 21 36 |("caltap|e"):q%!6|
|000004e0| 34 3d 63 3a c8 99 22 57 | 69 6d 70 5f 43 72 65 61 |4=c:.."W|imp_Crea|
|000004f0| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 71 25 b8 6f 25 |teWindow|",,q%.o%|
|00000500| 3a f2 68 28 22 73 75 72 | 65 64 65 6c 22 29 3a 71 |:.h("sur|edel"):q|
|00000510| 25 21 36 34 3d 63 3a c8 | 99 22 57 69 6d 70 5f 43 |%!64=c:.|."Wimp_C|
|00000520| 72 65 61 74 65 57 69 6e | 64 6f 77 22 2c 2c 71 25 |reateWin|dow",,q%|
|00000530| b8 57 25 3a f2 68 28 22 | 75 6e 73 61 76 65 64 22 |.W%:.h("|unsaved"|
|00000540| 29 3a 71 25 21 36 34 3d | 63 0d 06 86 c6 c8 99 22 |):q%!64=|c......"|
|00000550| 57 69 6d 70 5f 43 72 65 | 61 74 65 57 69 6e 64 6f |Wimp_Cre|ateWindo|
|00000560| 77 22 2c 2c 71 25 b8 59 | 25 3a f2 68 28 22 70 72 |w",,q%.Y|%:.h("pr|
|00000570| 6f 67 49 6e 66 6f 22 29 | 3a c8 99 22 57 69 6d 70 |ogInfo")|:.."Wimp|
|00000580| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00000590| 71 25 b8 68 61 25 3a f2 | 48 3a 24 76 3d 22 54 61 |q%.ha%:.|H:$v="Ta|
|000005a0| 70 65 20 53 74 61 74 75 | 73 22 3a 69 61 25 3d a4 |pe Statu|s":ia%=.|
|000005b0| 67 28 76 2c 5a 2c 37 2c | 30 2c 36 30 30 2c 33 30 |g(v,Z,7,|0,600,30|
|000005c0| 30 30 2c 39 30 30 2c 32 | 30 30 2c 31 35 30 30 2c |00,900,2|00,1500,|
|000005d0| 39 30 30 29 3a f2 61 28 | 71 25 2c 68 61 25 2c 34 |900):.a(|q%,ha%,4|
|000005e0| 2c 71 24 2c 30 29 3a e3 | 63 25 3d 31 b8 36 3a f2 |,q$,0):.|c%=1.6:.|
|000005f0| 61 28 71 25 2c 6f 25 2c | 28 63 25 2d 31 29 2a 34 |a(q%,o%,|(c%-1)*4|
|00000600| 2b 32 2c c3 28 65 25 28 | 63 25 29 29 2c a3 29 0d |+2,.(e%(|c%)),.).|
|00000610| 07 1c 81 f2 61 28 71 25 | 2c 6f 25 2c 28 63 25 2d |....a(q%|,o%,(c%-|
|00000620| 31 29 2a 34 2b 33 2c c3 | 28 67 25 28 63 25 29 29 |1)*4+3,.|(g%(c%))|
|00000630| 2c a3 29 3a f2 61 28 71 | 25 2c 6f 25 2c 28 63 25 |,.):.a(q|%,o%,(c%|
|00000640| 2d 31 29 2a 34 2b 34 2c | c3 28 66 25 28 63 25 29 |-1)*4+4,|.(f%(c%)|
|00000650| 29 2c a3 29 3a f2 61 28 | 71 25 2c 6f 25 2c 28 63 |),.):.a(|q%,o%,(c|
|00000660| 25 2d 31 29 2a 34 2b 35 | 2c c3 28 68 25 28 63 25 |%-1)*4+5|,.(h%(c%|
|00000670| 29 29 2c a3 29 3a ed 63 | 25 3a c8 99 22 48 6f 75 |)),.):.c|%:.."Hou|
|00000680| 72 67 6c 61 73 73 5f 4f | 66 66 22 3a ee 85 f2 49 |rglass_O|ff":...I|
|00000690| 0d 07 94 27 f5 3a f2 4a | 28 a4 68 28 31 29 29 3a |...'.:.J|(.h(1)):|
|000006a0| fd 69 3a c8 99 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |.i:.."Wi|mp_Close|
|000006b0| 44 6f 77 6e 22 3a e0 0d | 08 02 0f dd f2 49 3a e7 |Down":..|.....I:.|
|000006c0| 61 61 25 3d 33 8c 0d 08 | 66 3b f2 71 28 22 55 6e |aa%=3...|f;.q("Un|
|000006d0| 65 78 70 65 63 74 65 64 | 20 65 72 72 6f 72 3a 2d |expected| error:-|
|000006e0| 20 22 2b f6 24 2b 22 20 | 49 6e 74 65 72 6e 61 6c | "+.$+" |Internal|
|000006f0| 20 65 72 72 6f 72 20 63 | 6f 64 65 20 22 2b c3 9e | error c|ode "+..|
|00000700| 29 0d 08 7a 0c cc 3a f2 | 71 28 f6 24 29 0d 08 8e |)..z..:.|q(.$)...|
|00000710| 05 cd 0d 08 8e 1f 61 61 | 25 3d 33 3a c8 99 22 48 |......aa|%=3:.."H|
|00000720| 6f 75 72 67 6c 61 73 73 | 5f 53 6d 61 73 68 22 3a |ourglass|_Smash":|
|00000730| e1 0d 08 ac 19 dd f2 62 | 28 65 24 29 3a 61 61 25 |.......b|(e$):aa%|
|00000740| 3d 31 3a 85 31 2c 65 24 | 3a e1 0d 08 de 5a dd f2 |=1:.1,e$|:....Z..|
|00000750| 71 28 72 24 29 3a ea 72 | 25 3a 21 71 25 3d 9f 3a |q(r$):.r|%:!q%=.:|
|00000760| 24 28 71 25 2b 34 29 3d | 72 24 2b bd 28 30 29 3a |$(q%+4)=|r$+.(0):|
|00000770| c8 99 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |.."Wimp_|ReportEr|
|00000780| 72 6f 72 22 2c 71 25 2c | 61 61 25 2c 22 56 69 64 |ror",q%,|aa%,"Vid|
|00000790| 65 6f 42 61 73 65 22 b8 | 72 25 3a e7 72 25 3d 32 |eoBase".|r%:.r%=2|
|000007a0| 8c 69 3d b9 0d 09 4c 05 | e1 0d 09 56 23 dd f2 4b |.i=...L.|...V#..K|
|000007b0| 28 6a 61 25 2c 6b 61 25 | 2c 67 25 2c 7a 25 2c 66 |(ja%,ka%|,g%,z%,f|
|000007c0| 25 2c 6c 61 25 29 3a c8 | 8e 7a 25 ca 0d 09 7e 11 |%,la%):.|.z%...~.|
|000007d0| c9 6b 25 3a f2 4c 28 67 | 25 2c 66 25 29 0d 09 92 |.k%:.L(g|%,f%)...|
|000007e0| 11 c9 6d 25 3a f2 4d 28 | 67 25 2c 66 25 29 0d 09 |..m%:.M(|g%,f%)..|
|000007f0| 9c 11 c9 55 25 3a f2 4e | 28 67 25 2c 66 25 29 0d |...U%:.N|(g%,f%).|
|00000800| 09 a6 11 c9 75 25 3a f2 | 4f 28 67 25 2c 66 25 29 |....u%:.|O(g%,f%)|
|00000810| 0d 09 b0 11 c9 56 25 3a | f2 50 28 67 25 2c 66 25 |.....V%:|.P(g%,f%|
|00000820| 29 0d 09 ba 11 c9 50 25 | 3a f2 51 28 67 25 2c 66 |).....P%|:.Q(g%,f|
|00000830| 25 29 0d 09 c4 11 c9 6f | 25 3a f2 52 28 67 25 2c |%).....o|%:.R(g%,|
|00000840| 66 25 29 0d 09 ce 11 c9 | 57 25 3a f2 53 28 67 25 |f%).....|W%:.S(g%|
|00000850| 2c 66 25 29 0d 09 d8 11 | c9 59 25 3a f2 54 28 67 |,f%)....|.Y%:.T(g|
|00000860| 25 2c 66 25 29 0d 09 e2 | 11 c9 2d 32 3a f2 55 28 |%,f%)...|..-2:.U(|
|00000870| 67 25 2c 66 25 29 0d 09 | ec 05 cb 0d 09 ec 05 e1 |g%,f%)..|........|
|00000880| 0d 09 f6 16 dd f2 55 28 | 67 25 2c 66 25 29 3a e7 |......U(|g%,f%):.|
|00000890| 66 25 3c 30 8c e1 0d 0a | 28 08 c8 8e b9 ca 0d 0a |f%<0....|(.......|
|000008a0| 32 10 c9 67 25 3d 32 3a | e7 66 25 3d 4e 8c 0d 0a |2..g%=2:|.f%=N...|
|000008b0| 46 06 f2 56 0d 0a 5a 05 | cd 0d 0a 5a 0e c9 67 25 |F..V..Z.|...Z..g%|
|000008c0| 3d 34 3a e7 ac 6d 8c 0d | 0a 6e 1c f2 6c 3a f2 63 |=4:..m..|.n..l:.c|
|000008d0| 28 31 29 3a f2 6d 28 6b | 25 2c a3 2c 2d 31 29 3a |(1):.m(k|%,.,-1):|
|000008e0| 6d 3d b9 0d 0a a0 05 cd | 0d 0a a0 05 cb 0d 0a aa |m=......|........|
|000008f0| 05 e1 0d 0a b4 15 dd f2 | 4c 28 67 25 2c 66 25 29 |........|L(g%,f%)|
|00000900| 3a e7 67 25 3d 32 8c 0d | 0a d2 06 f2 57 0d 0a e6 |:.g%=2..|....W...|
|00000910| 05 cd 0d 0a e6 08 c8 8e | b9 ca 0d 0a f0 2b c9 28 |........|.....+.(|
|00000920| 67 25 80 34 29 3d 34 80 | 66 25 3d 31 37 3a 67 3d |g%.4)=4.|f%=17:g=|
|00000930| 2d 31 3a e7 64 25 3c 3e | 31 8c 64 25 2d 3d 31 8b |-1:.d%<>|1.d%-=1.|
|00000940| 64 25 3d 6a 25 0d 0b 0e | 21 c8 95 63 25 28 64 25 |d%=j%...|!..c%(d%|
|00000950| 29 3c 3e 30 3a 64 25 2d | 3d 31 3a e7 64 25 3d 30 |)<>0:d%-|=1:.d%=0|
|00000960| 8c 64 25 3d 6a 25 0d 0b | 2c 0c ce 3a f2 63 28 64 |.d%=j%..|,..:.c(d|
|00000970| 25 29 0d 0b 4a 2c c9 28 | 67 25 80 34 29 3d 34 80 |%)..J,.(|g%.4)=4.|
|00000980| 66 25 3d 31 38 3a 64 25 | 2d 3d 31 3a 67 3d 2d 31 |f%=18:d%|-=1:g=-1|
|00000990| 3a e7 64 24 3d 22 75 6e | 73 65 65 6e 22 8c 0d 0b |:.d$="un|seen"...|
|000009a0| 68 27 c8 95 c2 61 24 28 | 64 25 29 2c 31 29 3c 3e |h'...a$(|d%),1)<>|
|000009b0| 22 2a 22 3a 64 25 2b 3d | 67 3a e7 64 25 3e 6a 25 |"*":d%+=|g:.d%>j%|
|000009c0| 3a 64 25 3d 31 0d 0b 86 | 0f e7 64 25 3d 30 3a 64 |:d%=1...|..d%=0:d|
|000009d0| 25 3d 6a 25 0d 0b 90 05 | ce 0d 0b a4 05 cd 0d 0b |%=j%....|........|
|000009e0| a4 0f e7 64 25 3d 30 3a | 64 25 3d 6a 25 0d 0b ae |...d%=0:|d%=j%...|
|000009f0| 0a f2 63 28 64 25 29 0d | 0b c2 16 c9 28 67 25 80 |..c(d%).|....(g%.|
|00000a00| 34 29 3d 34 80 66 25 3d | 31 39 3a f2 72 0d 0b d6 |4)=4.f%=|19:.r...|
|00000a10| 2b c9 28 67 25 80 34 29 | 3d 34 80 66 25 3d 32 30 |+.(g%.4)|=4.f%=20|
|00000a20| 3a 64 25 2b 3d 31 3a 67 | 3d 31 3a e7 64 24 3d 22 |:d%+=1:g|=1:.d$="|
|00000a30| 75 6e 73 65 65 6e 22 8c | 0d 0b f4 27 c8 95 c2 61 |unseen".|...'...a|
|00000a40| 24 28 64 25 29 2c 31 29 | 3c 3e 22 2a 22 3a 64 25 |$(d%),1)|<>"*":d%|
|00000a50| 2b 3d 67 3a e7 64 25 3e | 6a 25 3a 64 25 3d 31 0d |+=g:.d%>|j%:d%=1.|
|00000a60| 0c 12 0f e7 64 25 3d 30 | 3a 64 25 3d 6a 25 0d 0c |....d%=0|:d%=j%..|
|00000a70| 1c 05 ce 0d 0c 30 05 cd | 0d 0c 30 0f e7 64 25 3e |.....0..|..0..d%>|
|00000a80| 6a 25 3a 64 25 3d 31 0d | 0c 3a 0a f2 63 28 64 25 |j%:d%=1.|.:..c(d%|
|00000a90| 29 0d 0c 4e 3b c9 28 67 | 25 80 34 29 3d 34 80 66 |)..N;.(g|%.4)=4.f|
|00000aa0| 25 3d 32 31 3a 5a 25 3d | 61 25 28 64 25 29 3a c8 |%=21:Z%=|a%(d%):.|
|00000ab0| 95 61 25 28 64 25 29 3d | 5a 25 3a 64 25 2b 3d 31 |.a%(d%)=|Z%:d%+=1|
|00000ac0| 3a e7 64 25 3e 6a 25 8c | 64 25 3d 31 0d 0c 76 0c |:.d%>j%.|d%=1..v.|
|00000ad0| ce 3a f2 63 28 64 25 29 | 0d 0c 94 1f c9 28 67 25 |.:.c(d%)|.....(g%|
|00000ae0| 80 34 29 3d 34 80 66 25 | 3d 32 32 3a 64 25 3d 31 |.4)=4.f%|=22:d%=1|
|00000af0| 3a f2 63 28 64 25 29 0d | 0c b2 20 c9 28 67 25 80 |:.c(d%).|.. .(g%.|
|00000b00| 34 29 3d 34 80 66 25 3d | 32 33 3a 64 25 3d 6a 25 |4)=4.f%=|23:d%=j%|
|00000b10| 3a f2 63 28 64 25 29 0d | 0c d0 59 c9 28 67 25 80 |:.c(d%).|..Y.(g%.|
|00000b20| 34 29 3d 34 80 66 25 3d | 33 34 3a 64 24 3d 22 61 |4)=4.f%=|34:d$="a|
|00000b30| 6c 6c 22 3a 73 25 3d a4 | 62 28 71 25 2c 6b 25 2c |ll":s%=.|b(q%,k%,|
|00000b40| 33 34 2c 22 72 61 64 69 | 6f 32 5f 6f 6e 22 2c b9 |34,"radi|o2_on",.|
|00000b50| 29 3a 73 25 3d a4 62 28 | 71 25 2c 6b 25 2c 33 37 |):s%=.b(|q%,k%,37|
|00000b60| 2c 22 72 61 64 69 6f 32 | 5f 6f 66 66 22 2c b9 29 |,"radio2|_off",.)|
|00000b70| 0d 0c f8 38 c9 28 67 25 | 80 34 29 3d 34 80 66 25 |...8.(g%|.4)=4.f%|
|00000b80| 3d 33 35 3a e7 c0 62 24 | 28 64 25 29 2c 35 29 3c |=35:..b$|(d%),5)<|
|00000b90| 3e 22 2a 47 41 50 2a 22 | 80 c0 61 24 28 64 25 29 |>"*GAP*"|..a$(d%)|
|00000ba0| 2c 31 29 3d 22 20 22 8c | 0d 0d 02 3c 61 24 28 64 |,1)=" ".|...<a$(d|
|00000bb0| 25 29 3d 22 2a 22 2b c2 | 61 24 28 64 25 29 2c 31 |%)="*"+.|a$(d%),1|
|00000bc0| 29 3a 73 25 3d a4 62 28 | 71 25 2c 6b 25 2c 33 35 |):s%=.b(|q%,k%,35|
|00000bd0| 2c 22 72 61 64 69 6f 31 | 5f 6f 6e 22 2c b9 29 3a |,"radio1|_on",.):|
|00000be0| 42 25 3d b9 0d 0d 2a 16 | cc 3a e7 c0 61 24 28 64 |B%=...*.|.:..a$(d|
|00000bf0| 25 29 2c 31 29 3d 22 2a | 22 8c 0d 0d 34 3d 61 24 |%),1)="*|"...4=a$|
|00000c00| 28 64 25 29 3d 22 20 22 | 2b c2 61 24 28 64 25 29 |(d%)=" "|+.a$(d%)|
|00000c10| 2c 31 29 3a 73 25 3d a4 | 62 28 71 25 2c 6b 25 2c |,1):s%=.|b(q%,k%,|
|00000c20| 33 35 2c 22 72 61 64 69 | 6f 31 5f 6f 66 66 22 2c |35,"radi|o1_off",|
|00000c30| b9 29 3a 42 25 3d b9 0d | 0d 5c 05 cd 0d 0d 5c 05 |.):B%=..|.\....\.|
|00000c40| cd 0d 0d 66 24 c9 28 67 | 25 80 34 29 3d 34 80 66 |...f$.(g|%.4)=4.f|
|00000c50| 25 3d 33 36 3a e7 c2 61 | 24 28 64 25 29 2c 31 29 |%=36:..a|$(d%),1)|
|00000c60| 3d 22 2a 22 8c 0d 0d 7a | 46 61 24 28 64 25 29 3d |="*"...z|Fa$(d%)=|
|00000c70| c0 61 24 28 64 25 29 2c | 31 29 2b 22 20 22 3a 73 |.a$(d%),|1)+" ":s|
|00000c80| 25 3d a4 62 28 71 25 2c | 6b 25 2c 33 36 2c 22 72 |%=.b(q%,|k%,36,"r|
|00000c90| 61 64 69 6f 31 5f 6f 66 | 66 22 2c b9 29 3a 52 25 |adio1_of|f",.):R%|
|00000ca0| 2d 3d 31 3a f2 6c 3a 42 | 25 3d b9 0d 0d b6 16 cc |-=1:.l:B|%=......|
|00000cb0| 3a e7 c2 61 24 28 64 25 | 29 2c 31 29 3d 22 20 22 |:..a$(d%|),1)=" "|
|00000cc0| 8c 0d 0d c0 45 61 24 28 | 64 25 29 3d c0 61 24 28 |....Ea$(|d%)=.a$(|
|00000cd0| 64 25 29 2c 31 29 2b 22 | 2a 22 3a 73 25 3d a4 62 |d%),1)+"|*":s%=.b|
|00000ce0| 28 71 25 2c 6b 25 2c 33 | 36 2c 22 72 61 64 69 6f |(q%,k%,3|6,"radio|
|00000cf0| 31 5f 6f 6e 22 2c b9 29 | 3a 52 25 2b 3d 31 3a f2 |1_on",.)|:R%+=1:.|
|00000d00| 6c 3a 42 25 3d b9 0d 0d | fc 05 cd 0d 0d fc 05 cd |l:B%=...|........|
|00000d10| 0d 0e 06 1a c9 28 67 25 | 80 34 29 3d 34 80 66 25 |.....(g%|.4)=4.f%|
|00000d20| 3d 33 37 3a e7 52 25 3d | 30 8c 0d 0e 1a 1b f2 62 |=37:.R%=|0......b|
|00000d30| 28 22 4e 6f 20 75 6e 73 | 65 65 6e 20 72 65 63 6f |("No uns|een reco|
|00000d40| 72 64 73 22 29 0d 0e 2e | 72 cc 3a 64 24 3d 22 75 |rds")...|r.:d$="u|
|00000d50| 6e 73 65 65 6e 22 3a 73 | 25 3d a4 62 28 71 25 2c |nseen":s|%=.b(q%,|
|00000d60| 6b 25 2c 33 37 2c 22 72 | 61 64 69 6f 32 5f 6f 6e |k%,37,"r|adio2_on|
|00000d70| 22 2c b9 29 3a 73 25 3d | a4 62 28 71 25 2c 6b 25 |",.):s%=|.b(q%,k%|
|00000d80| 2c 33 34 2c 22 72 61 64 | 69 6f 32 5f 6f 66 66 22 |,34,"rad|io2_off"|
|00000d90| 2c b9 29 3a c8 95 c2 61 | 24 28 64 25 29 2c 31 29 |,.):...a|$(d%),1)|
|00000da0| 3c 3e 22 2a 22 3a 64 25 | 2b 3d 67 3a e7 64 25 3e |<>"*":d%|+=g:.d%>|
|00000db0| 6a 25 3a 64 25 3d 31 0d | 0e 6a 0f e7 64 25 3d 30 |j%:d%=1.|.j..d%=0|
|00000dc0| 3a 64 25 3d 6a 25 0d 0e | 74 0c ce 3a f2 63 28 64 |:d%=j%..|t..:.c(d|
|00000dd0| 25 29 0d 0e 92 05 cd 0d | 0e 92 05 7f 0d 0e a6 05 |%)......|........|
|00000de0| cb 0d 0e a6 05 e1 0d 0e | b0 17 dd f2 51 28 67 25 |........|....Q(g%|
|00000df0| 2c 66 25 29 3a e7 66 25 | 3d 2d 31 3a e1 0d 0e ce |,f%):.f%|=-1:....|
|00000e00| 08 c8 8e b9 ca 0d 0e d8 | 0c c9 66 25 3d 31 3a f2 |........|..f%=1:.|
|00000e10| 73 0d 0e f6 05 cb 0d 0e | f6 05 e1 0d 0f 00 17 dd |s.......|........|
|00000e20| f2 4e 28 67 25 2c 66 25 | 29 3a e7 66 25 3d 2d 31 |.N(g%,f%|):.f%=-1|
|00000e30| 3a e1 0d 0f 1e 0c ea 73 | 25 3a c8 8e b9 ca 0d 0f |:......s|%:......|
|00000e40| 32 0c c9 66 25 3d 30 3a | f2 74 0d 0f 50 05 cb 0d |2..f%=0:|.t..P...|
|00000e50| 0f 50 05 e1 0d 0f 5a 17 | dd f2 4f 28 67 25 2c 66 |.P....Z.|..O(g%,f|
|00000e60| 25 29 3a e7 66 25 3d 2d | 31 3a e1 0d 0f 78 08 c8 |%):.f%=-|1:...x..|
|00000e70| 8e b9 ca 0d 0f 82 2f c9 | 66 25 3d 36 3a f2 75 3a |....../.|f%=6:.u:|
|00000e80| e7 67 25 3d 34 84 67 25 | 3d 32 8c c8 99 22 57 69 |.g%=4.g%|=2..."Wi|
|00000e90| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00000ea0| 2d 31 0d 0f a0 2b c9 66 | 25 3d 37 3a f2 61 28 71 |-1...+.f|%=7:.a(q|
|00000eb0| 25 2c 75 25 2c 32 2c 22 | 22 2c b9 29 3a f2 61 28 |%,u%,2,"|",.):.a(|
|00000ec0| 71 25 2c 75 25 2c 33 2c | 22 22 2c b9 29 0d 0f c8 |q%,u%,3,|"",.)...|
|00000ed0| 05 cb 0d 0f c8 05 e1 0d | 0f d2 17 dd f2 50 28 67 |........|.....P(g|
|00000ee0| 25 2c 66 25 29 3a e7 66 | 25 3d 2d 31 3a e1 0d 0f |%,f%):.f|%=-1:...|
|00000ef0| f0 0c ea 73 25 3a c8 8e | b9 ca 0d 10 04 2f c9 66 |...s%:..|...../.f|
|00000f00| 25 3d 30 3a f2 76 3a e7 | 67 25 3d 34 84 67 25 3d |%=0:.v:.|g%=4.g%=|
|00000f10| 32 8c c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |2..."Wim|p_Create|
|00000f20| 4d 65 6e 75 22 2c 2c 2d | 31 0d 10 22 05 cb 0d 10 |Menu",,-|1.."....|
|00000f30| 2c 05 e1 0d 10 36 1e dd | f2 52 28 67 25 2c 66 25 |,....6..|.R(g%,f%|
|00000f40| 29 3a ea 63 25 2c 58 25 | 3a e7 66 25 3d 2d 31 3a |):.c%,X%|:.f%=-1:|
|00000f50| e1 0d 10 5e 08 c8 8e b9 | ca 0d 10 68 2f c9 66 25 |...^....|...h/.f%|
|00000f60| 3d 30 3a f2 77 3a e7 67 | 25 3d 34 84 67 25 3d 32 |=0:.w:.g|%=4.g%=2|
|00000f70| 8c c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |..."Wimp|_CreateM|
|00000f80| 65 6e 75 22 2c 2c 2d 31 | 0d 10 86 05 cb 0d 10 90 |enu",,-1|........|
|00000f90| 05 e1 0d 10 9a 17 dd f2 | 4d 28 67 25 2c 66 25 29 |........|M(g%,f%)|
|00000fa0| 3a e7 66 25 3d 2d 31 3a | e1 0d 10 b8 0c ea 73 25 |:.f%=-1:|......s%|
|00000fb0| 3a c8 8e b9 ca 0d 10 cc | 0d c9 66 25 3d 31 30 3a |:.......|..f%=10:|
|00000fc0| f2 78 0d 10 ea 5e c9 66 | 25 3d 37 3a f2 61 28 71 |.x...^.f|%=7:.a(q|
|00000fd0| 25 2c 6d 25 2c 32 2c 22 | 22 2c b9 29 3a f2 61 28 |%,m%,2,"|",.):.a(|
|00000fe0| 71 25 2c 6d 25 2c 33 2c | 22 22 2c b9 29 3a f2 61 |q%,m%,3,|"",.):.a|
|00000ff0| 28 71 25 2c 6d 25 2c 34 | 2c 22 22 2c b9 29 3a f2 |(q%,m%,4|,"",.):.|
|00001000| 61 28 71 25 2c 6d 25 2c | 35 2c 22 22 2c b9 29 3a |a(q%,m%,|5,"",.):|
|00001010| f2 61 28 71 25 2c 6d 25 | 2c 36 2c 22 22 2c b9 29 |.a(q%,m%|,6,"",.)|
|00001020| 0d 11 26 05 cb 0d 11 26 | 26 e7 67 25 3d 34 84 67 |..&....&|&.g%=4.g|
|00001030| 25 3d 32 8c c8 99 22 57 | 69 6d 70 5f 43 72 65 61 |%=2..."W|imp_Crea|
|00001040| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 0d 11 30 05 e1 |teMenu",|,-1..0..|
|00001050| 0d 11 3a 13 dd f2 53 28 | 67 25 2c 66 25 29 3a c8 |..:...S(|g%,f%):.|
|00001060| 8e b9 ca 0d 11 58 1a c9 | 28 67 25 80 34 29 3d 34 |.....X..|(g%.4)=4|
|00001070| 80 66 25 3c 3e 2d 31 3a | c8 8e 66 25 ca 0d 11 6c |.f%<>-1:|..f%...l|
|00001080| 29 c9 34 3a f2 6e 28 57 | 25 29 3a f2 70 28 57 25 |).4:.n(W|%):.p(W%|
|00001090| 2c 66 25 29 3a f2 6f 28 | 30 2c 30 2c 33 30 30 30 |,f%):.o(|0,0,3000|
|000010a0| 2c 33 30 30 30 29 0d 11 | 9e 3a c9 35 3a f2 6e 28 |,3000)..|.:.5:.n(|
|000010b0| 57 25 29 3a f2 70 28 57 | 25 2c 66 25 29 3a f2 6f |W%):.p(W|%,f%):.o|
|000010c0| 28 30 2c 30 2c 33 30 30 | 30 2c 33 30 30 30 29 3a |(0,0,300|0,3000):|
|000010d0| e7 c0 61 24 28 64 25 29 | 2c 31 29 3d 22 20 22 8c |..a$(d%)|,1)=" ".|
|000010e0| 0d 11 c6 19 e7 c2 61 24 | 28 64 25 29 2c 31 29 3d |......a$|(d%),1)=|
|000010f0| 22 2a 22 8c 52 25 2d 3d | 31 0d 11 d0 16 f2 58 28 |"*".R%-=|1.....X(|
|00001100| 64 25 29 3a e7 64 25 3e | 6a 25 8c 64 25 3d 31 0d |d%):.d%>|j%.d%=1.|
|00001110| 11 e4 12 f2 63 28 64 25 | 29 3a f2 6c 3a 42 25 3d |....c(d%|):.l:B%=|
|00001120| b9 0d 12 0c 2a cc 3a f2 | 62 28 22 43 61 6e 27 74 |....*.:.|b("Can't|
|00001130| 20 64 65 6c 65 74 65 20 | 43 48 45 52 49 53 48 45 | delete |CHERISHE|
|00001140| 44 20 72 65 63 6f 72 64 | 21 22 29 0d 12 20 05 cd |D record|!").. ..|
|00001150| 0d 12 20 05 cb 0d 12 2a | 05 cb 0d 12 34 05 e1 0d |.. ....*|....4...|
|00001160| 12 3e 13 dd f2 54 28 67 | 25 2c 66 25 29 3a c8 8e |.>...T(g|%,f%):..|
|00001170| b9 ca 0d 12 5c 1a c9 28 | 67 25 80 34 29 3d 34 80 |....\..(|g%.4)=4.|
|00001180| 66 25 3c 3e 2d 31 3a c8 | 8e 66 25 ca 0d 12 70 2d |f%<>-1:.|.f%...p-|
|00001190| c9 34 3a f2 6e 28 59 25 | 29 3a f2 70 28 59 25 2c |.4:.n(Y%|):.p(Y%,|
|000011a0| 66 25 29 3a f2 6f 28 30 | 2c 30 2c 33 30 30 30 2c |f%):.o(0|,0,3000,|
|000011b0| 33 30 30 30 29 3a 69 3d | b9 0d 12 ac 53 c9 35 3a |3000):i=|....S.5:|
|000011c0| f2 6e 28 59 25 29 3a f2 | 70 28 59 25 2c 66 25 29 |.n(Y%):.|p(Y%,f%)|
|000011d0| 3a c8 99 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 6e |:.."Hour|glass_On|
|000011e0| 22 3a f2 79 3a c8 99 22 | 48 6f 75 72 67 6c 61 73 |":.y:.."|Hourglas|
|000011f0| 73 5f 4f 66 66 22 3a 69 | 3d b9 3a f2 6f 28 30 2c |s_Off":i|=.:.o(0,|
|00001200| 30 2c 33 30 30 30 2c 33 | 30 30 30 29 0d 12 fc 05 |0,3000,3|000)....|
|00001210| cb 0d 12 fc 05 cb 0d 13 | 06 05 e1 0d 13 10 09 dd |........|........|
|00001220| f2 59 3a e1 0d 13 2e 55 | dd f2 7a 28 7a 25 29 3a |.Y:....U|..z(z%):|
|00001230| ea 73 25 3a 71 25 21 30 | 3d 7a 25 3a c8 99 22 57 |.s%:q%!0|=z%:.."W|
|00001240| 69 6d 70 5f 52 65 64 72 | 61 77 57 69 6e 64 6f 77 |imp_Redr|awWindow|
|00001250| 22 2c 30 2c 71 25 b8 6d | 61 25 3a f2 5a 28 71 25 |",0,q%.m|a%:.Z(q%|
|00001260| 2b 34 2c 5f 25 2c 6e 61 | 25 29 3a c8 95 6d 61 25 |+4,_%,na|%):..ma%|
|00001270| 3a f2 5f 3a c8 8e 7a 25 | ca 0d 13 7e 16 c9 69 61 |:._:..z%|...~..ia|
|00001280| 25 3a 73 25 3d a4 69 28 | 5f 25 2c 6e 61 25 29 0d |%:s%=.i(|_%,na%).|
|00001290| 13 92 05 cb 0d 13 92 26 | c8 99 22 57 69 6d 70 5f |.......&|.."Wimp_|
|000012a0| 47 65 74 52 65 63 74 61 | 6e 67 6c 65 22 2c 30 2c |GetRecta|ngle",0,|
|000012b0| 71 25 b8 6d 61 25 3a ce | 3a e1 0d 13 b0 1b dd a4 |q%.ma%:.|:.......|
|000012c0| 6a 28 7a 25 29 3a 65 61 | 3d b9 3a e7 7a 25 3d 6b |j(z%):ea|=.:.z%=k|
|000012d0| 25 8c 6d 3d a3 0d 13 d8 | 07 3d 65 61 0d 14 1e 16 |%.m=....|.=ea....|
|000012e0| dd f2 60 3a ea 65 25 3a | e7 71 25 21 34 3c 3e 2d |..`:.e%:|.q%!4<>-|
|000012f0| 31 8c 0d 14 32 30 c8 99 | 22 57 69 6d 70 5f 47 65 |1...20..|"Wimp_Ge|
|00001300| 74 43 61 72 65 74 50 6f | 73 69 74 69 6f 6e 22 2c |tCaretPo|sition",|
|00001310| 2c 7a 3a 65 25 3d 7a 21 | 34 3a c8 8e 71 25 21 32 |,z:e%=z!|4:..q%!2|
|00001320| 34 ca 0d 14 50 1f c9 32 | 37 3a c8 99 22 57 69 6d |4...P..2|7:.."Wim|
|00001330| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 2d |p_Create|Menu",,-|
|00001340| 31 0d 14 6e 0f c9 31 33 | 3a c8 8e 71 25 21 30 ca |1..n..13|:..q%!0.|
|00001350| 0d 14 78 0d c9 6d 25 3a | c8 8e 65 25 ca 0d 14 8c |..x..m%:|..e%....|
|00001360| 33 c9 32 2c 33 2c 34 2c | 35 3a f2 64 28 6d 25 2c |3.2,3,4,|5:.d(m%,|
|00001370| 65 25 2b 31 2c 2d 31 2c | 2d 31 2c 2d 31 2c a9 28 |e%+1,-1,|-1,-1,.(|
|00001380| a4 61 28 71 25 2c 6d 25 | 2c 65 25 2b 31 29 29 29 |.a(q%,m%|,e%+1)))|
|00001390| 0d 14 aa 67 c9 36 3a f2 | 65 28 71 25 2c 6d 25 2c |...g.6:.|e(q%,m%,|
|000013a0| 31 30 2c 31 32 29 3a f2 | 66 28 71 25 2c 6d 25 2c |10,12):.|f(q%,m%,|
|000013b0| 31 30 2c 37 29 3a f2 69 | 28 30 2e 32 29 3a f2 65 |10,7):.i|(0.2):.e|
|000013c0| 28 71 25 2c 6d 25 2c 31 | 30 2c 37 29 3a f2 66 28 |(q%,m%,1|0,7):.f(|
|000013d0| 71 25 2c 6d 25 2c 31 30 | 2c 31 32 29 3a f2 78 3a |q%,m%,10|,12):.x:|
|000013e0| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |.."Wimp_|CreateMe|
|000013f0| 6e 75 22 2c 2c 2d 31 0d | 14 fa 05 cb 0d 14 fa 0d |nu",,-1.|........|
|00001400| c9 75 25 3a c8 8e 65 25 | ca 0d 15 0e 2d c9 32 3a |.u%:..e%|....-.2:|
|00001410| f2 64 28 75 25 2c 65 25 | 2b 31 2c 2d 31 2c 2d 31 |.d(u%,e%|+1,-1,-1|
|00001420| 2c 2d 31 2c a9 28 a4 61 | 28 71 25 2c 75 25 2c 65 |,-1,.(.a|(q%,u%,e|
|00001430| 25 2b 31 29 29 29 0d 15 | 2c 63 c9 33 3a f2 65 28 |%+1)))..|,c.3:.e(|
|00001440| 71 25 2c 75 25 2c 36 2c | 31 32 29 3a f2 66 28 71 |q%,u%,6,|12):.f(q|
|00001450| 25 2c 75 25 2c 36 2c 37 | 29 3a f2 69 28 30 2e 32 |%,u%,6,7|):.i(0.2|
|00001460| 29 3a f2 65 28 71 25 2c | 75 25 2c 36 2c 37 29 3a |):.e(q%,|u%,6,7):|
|00001470| f2 66 28 71 25 2c 75 25 | 2c 36 2c 31 32 29 3a f2 |.f(q%,u%|,6,12):.|
|00001480| 75 3a c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |u:.."Wim|p_Create|
|00001490| 4d 65 6e 75 22 2c 2c 2d | 31 0d 15 7c 05 cb 0d 15 |Menu",,-|1..|....|
|000014a0| 7c 0d c9 6f 25 3a c8 8e | 65 25 ca 0d 15 90 64 c9 ||..o%:..|e%....d.|
|000014b0| 32 35 3a f2 65 28 71 25 | 2c 6f 25 2c 30 2c 31 32 |25:.e(q%|,o%,0,12|
|000014c0| 29 3a f2 66 28 71 25 2c | 6f 25 2c 30 2c 37 29 3a |):.f(q%,|o%,0,7):|
|000014d0| f2 69 28 30 2e 32 29 3a | f2 65 28 71 25 2c 6f 25 |.i(0.2):|.e(q%,o%|
|000014e0| 2c 30 2c 37 29 3a f2 66 | 28 71 25 2c 6f 25 2c 30 |,0,7):.f|(q%,o%,0|
|000014f0| 2c 31 32 29 3a f2 77 3a | c8 99 22 57 69 6d 70 5f |,12):.w:|.."Wimp_|
|00001500| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 2d 31 0d |CreateMe|nu",,-1.|
|00001510| 15 ea 2c 7f 3a f2 64 28 | 6f 25 2c 65 25 2b 31 2c |..,.:.d(|o%,e%+1,|
|00001520| 2d 31 2c 2d 31 2c 2d 31 | 2c a9 28 a4 61 28 71 25 |-1,-1,-1|,.(.a(q%|
|00001530| 2c 6f 25 2c 65 25 2b 31 | 29 29 29 0d 15 fe 05 cb |,o%,e%+1|))).....|
|00001540| 0d 15 fe 64 c9 50 25 3a | f2 65 28 71 25 2c 50 25 |...d.P%:|.e(q%,P%|
|00001550| 2c 31 2c 31 32 29 3a f2 | 66 28 71 25 2c 50 25 2c |,1,12):.|f(q%,P%,|
|00001560| 31 2c 37 29 3a f2 69 28 | 30 2e 32 29 3a f2 65 28 |1,7):.i(|0.2):.e(|
|00001570| 71 25 2c 50 25 2c 31 2c | 37 29 3a f2 66 28 71 25 |q%,P%,1,|7):.f(q%|
|00001580| 2c 50 25 2c 31 2c 31 32 | 29 3a f2 73 3a c8 99 22 |,P%,1,12|):.s:.."|
|00001590| 57 69 6d 70 5f 43 72 65 | 61 74 65 4d 65 6e 75 22 |Wimp_Cre|ateMenu"|
|000015a0| 2c 2c 2d 31 0d 16 58 64 | c9 55 25 3a f2 65 28 71 |,,-1..Xd|.U%:.e(q|
|000015b0| 25 2c 55 25 2c 30 2c 31 | 32 29 3a f2 66 28 71 25 |%,U%,0,1|2):.f(q%|
|000015c0| 2c 55 25 2c 30 2c 37 29 | 3a f2 69 28 30 2e 32 29 |,U%,0,7)|:.i(0.2)|
|000015d0| 3a f2 65 28 71 25 2c 55 | 25 2c 30 2c 37 29 3a f2 |:.e(q%,U|%,0,7):.|
|000015e0| 66 28 71 25 2c 55 25 2c | 30 2c 31 32 29 3a f2 74 |f(q%,U%,|0,12):.t|
|000015f0| 3a c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |:.."Wimp|_CreateM|
|00001600| 65 6e 75 22 2c 2c 2d 31 | 0d 16 a8 64 c9 56 25 3a |enu",,-1|...d.V%:|
|00001610| f2 65 28 71 25 2c 56 25 | 2c 30 2c 31 32 29 3a f2 |.e(q%,V%|,0,12):.|
|00001620| 66 28 71 25 2c 56 25 2c | 30 2c 37 29 3a f2 69 28 |f(q%,V%,|0,7):.i(|
|00001630| 30 2e 32 29 3a f2 65 28 | 71 25 2c 56 25 2c 30 2c |0.2):.e(|q%,V%,0,|
|00001640| 37 29 3a f2 66 28 71 25 | 2c 56 25 2c 30 2c 31 32 |7):.f(q%|,V%,0,12|
|00001650| 29 3a f2 76 3a c8 99 22 | 57 69 6d 70 5f 43 72 65 |):.v:.."|Wimp_Cre|
|00001660| 61 74 65 4d 65 6e 75 22 | 2c 2c 2d 31 0d 16 f8 0d |ateMenu"|,,-1....|
|00001670| c9 6b 25 3a c8 8e 65 25 | ca 0d 17 02 0d c9 31 31 |.k%:..e%|......11|
|00001680| 3a 65 25 3d 31 32 0d 17 | 16 0d c9 31 32 3a 65 25 |:e%=12..|...12:e%|
|00001690| 3d 31 34 0d 17 20 0d c9 | 31 34 3a 65 25 3d 31 36 |=14.. ..|14:e%=16|
|000016a0| 0d 17 2a 0d c9 31 36 3a | 65 25 3d 2d 31 0d 17 34 |..*..16:|e%=-1..4|
|000016b0| 05 cb 0d 17 34 0c e7 65 | 25 3c 3e 2d 31 8c 0d 17 |....4..e|%<>-1...|
|000016c0| 3e 26 f2 64 28 6b 25 2c | 65 25 2c 2d 31 2c 2d 31 |>&.d(k%,|e%,-1,-1|
|000016d0| 2c 2d 31 2c a9 28 a4 61 | 28 71 25 2c 6b 25 2c 65 |,-1,.(.a|(q%,k%,e|
|000016e0| 25 29 29 29 0d 17 52 25 | cc 3a f2 72 3a c8 99 22 |%)))..R%|.:.r:.."|
|000016f0| 57 69 6d 70 5f 53 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Set|CaretPos|
|00001700| 69 74 69 6f 6e 22 2c 2d | 31 0d 17 70 05 cd 0d 17 |ition",-|1..p....|
|00001710| 70 05 cb 0d 17 7a 10 c9 | 33 39 38 3a c8 8e 71 25 |p....z..|398:..q%|
|00001720| 21 30 ca 0d 17 8e 0d c9 | 6b 25 3a c8 8e 65 25 ca |!0......|k%:..e%.|
|00001730| 0d 17 a2 0d c9 31 31 3a | 65 25 3d 31 32 0d 17 b6 |.....11:|e%=12...|
|00001740| 0d c9 31 32 3a 65 25 3d | 31 34 0d 17 c0 0d c9 31 |..12:e%=|14.....1|
|00001750| 34 3a 65 25 3d 31 36 0d | 17 ca 0d c9 31 36 3a 65 |4:e%=16.|....16:e|
|00001760| 25 3d 31 31 0d 17 d4 05 | cb 0d 17 d4 26 f2 64 28 |%=11....|....&.d(|
|00001770| 6b 25 2c 65 25 2c 2d 31 | 2c 2d 31 2c 2d 31 2c a9 |k%,e%,-1|,-1,-1,.|
|00001780| 28 a4 61 28 71 25 2c 6b | 25 2c 65 25 29 29 29 0d |(.a(q%,k|%,e%))).|
|00001790| 17 e8 1a c9 6d 25 3a 65 | 25 3d 65 25 2b 31 3a e7 |....m%:e|%=e%+1:.|
|000017a0| 65 25 3e 36 8c 65 25 3d | 32 0d 17 f2 26 f2 64 28 |e%>6.e%=|2...&.d(|
|000017b0| 6d 25 2c 65 25 2c 2d 31 | 2c 2d 31 2c 2d 31 2c a9 |m%,e%,-1|,-1,-1,.|
|000017c0| 28 a4 61 28 71 25 2c 6d | 25 2c 65 25 29 29 29 0d |(.a(q%,m|%,e%))).|
|000017d0| 18 06 1a c9 75 25 3a 65 | 25 3d 65 25 2b 31 3a e7 |....u%:e|%=e%+1:.|
|000017e0| 65 25 3e 33 8c 65 25 3d | 32 0d 18 10 26 f2 64 28 |e%>3.e%=|2...&.d(|
|000017f0| 75 25 2c 65 25 2c 2d 31 | 2c 2d 31 2c 2d 31 2c a9 |u%,e%,-1|,-1,-1,.|
|00001800| 28 a4 61 28 71 25 2c 75 | 25 2c 65 25 29 29 29 0d |(.a(q%,u|%,e%))).|
|00001810| 18 24 1b c9 6f 25 3a 65 | 25 3d 65 25 2b 31 3a e7 |.$..o%:e|%=e%+1:.|
|00001820| 65 25 3e 32 35 8c 65 25 | 3d 32 0d 18 2e 26 f2 64 |e%>25.e%|=2...&.d|
|00001830| 28 6f 25 2c 65 25 2c 2d | 31 2c 2d 31 2c 2d 31 2c |(o%,e%,-|1,-1,-1,|
|00001840| a9 28 a4 61 28 71 25 2c | 6f 25 2c 65 25 29 29 29 |.(.a(q%,|o%,e%)))|
|00001850| 0d 18 42 05 cb 0d 18 42 | 10 c9 33 39 39 3a c8 8e |..B....B|..399:..|
|00001860| 71 25 21 30 ca 0d 18 56 | 0d c9 6b 25 3a c8 8e 65 |q%!0...V|..k%:..e|
|00001870| 25 ca 0d 18 6a 0d c9 31 | 31 3a 65 25 3d 31 36 0d |%...j..1|1:e%=16.|
|00001880| 18 7e 0d c9 31 32 3a 65 | 25 3d 31 31 0d 18 88 0d |.~..12:e|%=11....|
|00001890| c9 31 34 3a 65 25 3d 31 | 32 0d 18 92 0d c9 31 36 |.14:e%=1|2.....16|
|000018a0| 3a 65 25 3d 31 34 0d 18 | 9c 05 cb 0d 18 9c 26 f2 |:e%=14..|......&.|
|000018b0| 64 28 6b 25 2c 65 25 2c | 2d 31 2c 2d 31 2c 2d 31 |d(k%,e%,|-1,-1,-1|
|000018c0| 2c a9 28 a4 61 28 71 25 | 2c 6b 25 2c 65 25 29 29 |,.(.a(q%|,k%,e%))|
|000018d0| 29 0d 18 b0 1a c9 6d 25 | 3a 65 25 3d 65 25 2d 31 |).....m%|:e%=e%-1|
|000018e0| 3a e7 65 25 3c 32 8c 65 | 25 3d 36 0d 18 ba 26 f2 |:.e%<2.e|%=6...&.|
|000018f0| 64 28 6d 25 2c 65 25 2c | 2d 31 2c 2d 31 2c 2d 31 |d(m%,e%,|-1,-1,-1|
|00001900| 2c a9 28 a4 61 28 71 25 | 2c 6d 25 2c 65 25 29 29 |,.(.a(q%|,m%,e%))|
|00001910| 29 0d 18 ce 1a c9 75 25 | 3a 65 25 3d 65 25 2d 31 |).....u%|:e%=e%-1|
|00001920| 3a e7 65 25 3c 32 8c 65 | 25 3d 33 0d 18 d8 26 f2 |:.e%<2.e|%=3...&.|
|00001930| 64 28 75 25 2c 65 25 2c | 2d 31 2c 2d 31 2c 2d 31 |d(u%,e%,|-1,-1,-1|
|00001940| 2c a9 28 a4 61 28 71 25 | 2c 75 25 2c 65 25 29 29 |,.(.a(q%|,u%,e%))|
|00001950| 29 0d 18 ec 1b c9 6f 25 | 3a 65 25 3d 65 25 2d 31 |).....o%|:e%=e%-1|
|00001960| 3a e7 65 25 3c 32 8c 65 | 25 3d 32 35 0d 18 f6 26 |:.e%<2.e|%=25...&|
|00001970| f2 64 28 6f 25 2c 65 25 | 2c 2d 31 2c 2d 31 2c 2d |.d(o%,e%|,-1,-1,-|
|00001980| 31 2c a9 28 a4 61 28 71 | 25 2c 6f 25 2c 65 25 29 |1,.(.a(q|%,o%,e%)|
|00001990| 29 29 0d 19 0a 05 cb 0d | 19 0a 05 cb 0d 19 14 08 |))......|........|
|000019a0| cc 3a ef 37 0d 19 28 05 | cd 0d 19 32 05 e1 0d 19 |.:.7..(.|...2....|
|000019b0| 3c 6e dd f2 73 3a c8 99 | 22 57 69 6d 70 5f 57 68 |<n..s:..|"Wimp_Wh|
|000019c0| 69 63 68 49 63 6f 6e 22 | 2c 50 25 2c 71 25 2c 34 |ichIcon"|,P%,q%,4|
|000019d0| 31 32 38 37 36 38 2c 32 | 31 36 32 36 38 38 3a 60 |128768,2|162688:`|
|000019e0| 25 3d 71 25 21 30 3a 6e | 25 3d bb 28 a4 61 28 71 |%=q%!0:n|%=.(.a(q|
|000019f0| 25 2c 50 25 2c 31 30 29 | 29 3a e7 64 25 28 6e 25 |%,P%,10)|):.d%(n%|
|00001a00| 29 3c 3e 30 8c f2 62 28 | 22 44 75 70 6c 69 63 61 |)<>0..b(|"Duplica|
|00001a10| 74 65 20 74 61 70 65 20 | 69 64 22 29 0d 19 78 0c |te tape |id")..x.|
|00001a20| e7 60 25 3c 3e 2d 31 8c | 0d 19 82 13 e7 60 25 3d |.`%<>-1.|.....`%=|
|00001a30| 30 3a 64 25 28 6e 25 29 | 3d 36 30 0d 19 8c 14 e7 |0:d%(n%)|=60.....|
|00001a40| 60 25 3d 35 3a 64 25 28 | 6e 25 29 3d 31 32 30 0d |`%=5:d%(|n%)=120.|
|00001a50| 19 96 14 e7 60 25 3d 33 | 3a 64 25 28 6e 25 29 3d |....`%=3|:d%(n%)=|
|00001a60| 31 38 30 0d 19 a0 14 e7 | 60 25 3d 34 3a 64 25 28 |180.....|`%=4:d%(|
|00001a70| 6e 25 29 3d 32 34 30 0d | 19 aa 14 e7 60 25 3d 37 |n%)=240.|....`%=7|
|00001a80| 3a 64 25 28 6e 25 29 3d | 33 36 30 0d 19 b4 14 e7 |:d%(n%)=|360.....|
|00001a90| 60 25 3d 38 3a 64 25 28 | 6e 25 29 3d 34 38 30 0d |`%=8:d%(|n%)=480.|
|00001aa0| 19 be 0b e7 6e 25 3c 3e | 30 8c 0d 19 c8 5f 6a 25 |....n%<>|0...._j%|
|00001ab0| 2b 3d 31 3a f2 6a 28 6a | 25 2c 22 2a 47 41 50 2a |+=1:.j(j|%,"*GAP*|
|00001ac0| 22 2c 22 22 2c 22 20 22 | 2c 6e 25 2c 30 2c 64 25 |",""," "|,n%,0,d%|
|00001ad0| 28 6e 25 29 29 3a 69 25 | 28 6e 25 29 3d 30 3a 42 |(n%)):i%|(n%)=0:B|
|00001ae0| 25 3d b9 3a c8 99 22 57 | 69 6d 70 5f 46 6f 72 63 |%=.:.."W|imp_Forc|
|00001af0| 65 52 65 64 72 61 77 22 | 2c 69 61 25 2c 30 2c 30 |eRedraw"|,ia%,0,0|
|00001b00| 2c 36 30 30 2c 33 30 30 | 30 0d 1a 04 1e cc 3a f2 |,600,300|0.....:.|
|00001b10| 62 28 22 4e 6f 20 74 61 | 70 65 20 6e 72 20 65 6e |b("No ta|pe nr en|
|00001b20| 74 65 72 65 64 22 29 0d | 1a 18 05 cd 0d 1a 18 28 |tered").|.......(|
|00001b30| cc 3a f2 62 28 22 54 61 | 70 65 20 6c 65 6e 67 74 |.:.b("Ta|pe lengt|
|00001b40| 68 20 6d 75 73 74 20 62 | 65 20 73 65 6c 65 63 74 |h must b|e select|
|00001b50| 65 64 22 29 0d 1a 36 05 | cd 0d 1a 36 26 e7 67 25 |ed")..6.|...6&.g%|
|00001b60| 3d 34 84 67 25 3d 32 8c | c8 99 22 57 69 6d 70 5f |=4.g%=2.|.."Wimp_|
|00001b70| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 2d 31 0d |CreateMe|nu",,-1.|
|00001b80| 1a 40 05 e1 0d 1a 4a 30 | dd f2 74 3a 73 25 3d a4 |.@....J0|..t:s%=.|
|00001b90| 6b 3a e7 67 25 3d 34 84 | 67 25 3d 32 8c c8 99 22 |k:.g%=4.|g%=2..."|
|00001ba0| 57 69 6d 70 5f 43 72 65 | 61 74 65 4d 65 6e 75 22 |Wimp_Cre|ateMenu"|
|00001bb0| 2c 2c 2d 31 0d 1a 72 05 | e1 0d 1a 7c 18 dd f2 75 |,,-1..r.|...|...u|
|00001bc0| 3a f2 61 61 3a f2 62 61 | 3a f2 63 28 64 25 29 3a |:.aa:.ba|:.c(d%):|
|00001bd0| e1 0d 1a c2 29 dd f2 76 | 3a ea 73 25 3a 6f 61 25 |....)..v|:.s%:oa%|
|00001be0| 3d b9 3a 73 25 3d a4 6c | 28 bb 28 a4 61 28 71 25 |=.:s%=.l|(.(.a(q%|
|00001bf0| 2c 56 25 2c 33 29 29 29 | 3a e1 0d 1a fe 12 dd f2 |,V%,3)))|:.......|
|00001c00| 78 3a f2 6b 3a 73 25 3d | a4 6d 3a e1 0d 1b 30 37 |x:.k:s%=|.m:...07|
|00001c10| dd f2 72 3a ea 73 25 3a | 73 25 3d a4 6e 3a f2 63 |..r:.s%:|s%=.n:.c|
|00001c20| 28 64 25 29 3a c8 99 22 | 57 69 6d 70 5f 53 65 74 |(d%):.."|Wimp_Set|
|00001c30| 43 61 72 65 74 50 6f 73 | 69 74 69 6f 6e 22 2c 2d |CaretPos|ition",-|
|00001c40| 31 3a e1 0d 1b 76 c1 dd | f2 77 3a 71 25 21 30 3d |1:...v..|.w:q%!0=|
|00001c50| 6f 25 3a e3 63 25 3d 31 | b8 36 3a 65 25 28 63 25 |o%:.c%=1|.6:e%(c%|
|00001c60| 29 3d bb 28 a4 61 28 71 | 25 2c 6f 25 2c 28 63 25 |)=.(.a(q|%,o%,(c%|
|00001c70| 2d 31 29 2a 34 2b 32 29 | 29 3a 67 25 28 63 25 29 |-1)*4+2)|):g%(c%)|
|00001c80| 3d bb 28 a4 61 28 71 25 | 2c 6f 25 2c 28 63 25 2d |=.(.a(q%|,o%,(c%-|
|00001c90| 31 29 2a 34 2b 33 29 29 | 3a 66 25 28 63 25 29 3d |1)*4+3))|:f%(c%)=|
|00001ca0| bb 28 a4 61 28 71 25 2c | 6f 25 2c 28 63 25 2d 31 |.(.a(q%,|o%,(c%-1|
|00001cb0| 29 2a 34 2b 34 29 29 3a | 68 25 28 63 25 29 3d bb |)*4+4)):|h%(c%)=.|
|00001cc0| 28 a4 61 28 71 25 2c 6f | 25 2c 28 63 25 2d 31 29 |(.a(q%,o|%,(c%-1)|
|00001cd0| 2a 34 2b 35 29 29 3a ed | 63 25 3a 58 25 3d ae 28 |*4+5)):.|c%:X%=.(|
|00001ce0| 22 3c 56 69 64 65 6f 42 | 61 73 65 24 44 69 72 3e |"<VideoB|ase$Dir>|
|00001cf0| 2e 57 56 43 41 4c 44 41 | 54 41 22 29 3a e3 63 25 |.WVCALDA|TA"):.c%|
|00001d00| 3d 31 b8 36 0d 1b e4 2d | f1 23 58 25 2c 65 25 28 |=1.6...-|.#X%,e%(|
|00001d10| 63 25 29 2c 66 25 28 63 | 25 29 2c 67 25 28 63 25 |c%),f%(c|%),g%(c%|
|00001d20| 29 2c 68 25 28 63 25 29 | 3a ed 63 25 3a d9 23 58 |),h%(c%)|:.c%:.#X|
|00001d30| 25 0d 1c 0c 24 2a 53 54 | 41 4d 50 20 3c 56 69 64 |%...$*ST|AMP <Vid|
|00001d40| 65 6f 42 61 73 65 24 44 | 69 72 3e 2e 57 56 43 41 |eoBase$D|ir>.WVCA|
|00001d50| 4c 44 41 54 41 0d 1c 0c | 05 e1 0d 1c 16 55 dd a4 |LDATA...|.....U..|
|00001d60| 69 28 5f 25 2c 6e 61 25 | 29 3a ea 63 25 2c 78 25 |i(_%,na%|):.c%,x%|
|00001d70| 2c 79 25 2c 70 61 25 2c | 71 61 25 2c 72 61 25 3a |,y%,pa%,|qa%,ra%:|
|00001d80| ec 5f 25 2b 32 30 2c 6e | 61 25 2b 32 39 35 30 3a |._%+20,n|a%+2950:|
|00001d90| 79 25 3d 6e 61 25 2b 32 | 39 35 30 3a e3 63 25 3d |y%=na%+2|950:.c%=|
|00001da0| 31 b8 4f 25 3a e7 64 25 | 28 63 25 29 3e 30 8c 0d |1.O%:.d%|(c%)>0..|
|00001db0| 1c 5c 6e 71 61 25 3d 30 | 3a 72 61 25 3d 30 3a ec |.\nqa%=0|:ra%=0:.|
|00001dc0| 5f 25 2b 32 30 2c 79 25 | 3a f1 22 46 72 65 65 20 |_%+20,y%|:."Free |
|00001dd0| 73 70 61 63 65 28 73 29 | 20 74 61 70 65 20 6e 72 |space(s)| tape nr|
|00001de0| 20 22 3b c2 22 20 20 20 | 22 2b c3 28 63 25 29 2c | ";."   |"+.(c%),|
|00001df0| 33 29 3a e3 70 61 25 3d | 31 b8 6a 25 3a e7 61 25 |3):.pa%=|1.j%:.a%|
|00001e00| 28 70 61 25 29 3d 63 25 | 80 c0 62 24 28 70 61 25 |(pa%)=c%|..b$(pa%|
|00001e10| 29 2c 35 29 3d 22 2a 47 | 41 50 2a 22 8c 0d 1c 8e |),5)="*G|AP*"....|
|00001e20| 3a 71 61 25 2b 3d 31 3a | ec 5f 25 2b 34 35 30 2c |:qa%+=1:|._%+450,|
|00001e30| 79 25 3a f1 c2 22 20 20 | 20 22 2b c3 28 62 25 28 |y%:.."  | "+.(b%(|
|00001e40| 70 61 25 29 29 2c 33 29 | 3b 22 20 6d 69 6e 73 22 |pa%)),3)|;" mins"|
|00001e50| 3a 79 25 2d 3d 33 32 0d | 1c c0 05 cd 0d 1c c0 35 |:y%-=32.|.......5|
|00001e60| ec 5f 25 2b 32 30 2c 79 | 25 3a ed 70 61 25 3a e7 |._%+20,y|%:.pa%:.|
|00001e70| 71 61 25 3d 30 8c ec 5f | 25 2b 34 38 34 2c 79 25 |qa%=0.._|%+484,y%|
|00001e80| 3a f1 22 30 20 6d 69 6e | 73 22 3a 79 25 2d 3d 33 |:."0 min|s":y%-=3|
|00001e90| 32 0d 1c de 05 cd 0d 1c | e8 0a ed 63 25 3a 3d 30 |2.......|...c%:=0|
|00001ea0| 0d 1d 10 da dd f2 63 28 | 6e 29 3a f2 61 28 71 25 |......c(|n):.a(q%|
|00001eb0| 2c 6b 25 2c 34 2c c3 28 | 6e 29 2c b9 29 3a f2 61 |,k%,4,.(|n),.):.a|
|00001ec0| 28 71 25 2c 6b 25 2c 31 | 31 2c a4 64 28 62 24 28 |(q%,k%,1|1,.d(b$(|
|00001ed0| 6e 29 2c 22 20 22 29 2c | b9 29 3a f2 61 28 71 25 |n)," "),|.):.a(q%|
|00001ee0| 2c 6b 25 2c 31 32 2c a4 | 64 28 63 24 28 6e 29 2c |,k%,12,.|d(c$(n),|
|00001ef0| 22 20 22 29 2c b9 29 3a | f2 61 28 71 25 2c 6b 25 |" "),.):|.a(q%,k%|
|00001f00| 2c 31 33 2c a4 64 28 c3 | 28 61 25 28 6e 29 29 2c |,13,.d(.|(a%(n)),|
|00001f10| 22 20 22 29 2c b9 29 3a | f2 61 28 71 25 2c 6b 25 |" "),.):|.a(q%,k%|
|00001f20| 2c 31 34 2c a4 64 28 c3 | 28 62 25 28 6e 29 29 2c |,14,.d(.|(b%(n)),|
|00001f30| 22 20 22 29 2c b9 29 3a | f2 61 28 71 25 2c 6b 25 |" "),.):|.a(q%,k%|
|00001f40| 2c 31 35 2c a4 64 28 c3 | 28 63 25 28 6e 29 29 2c |,15,.d(.|(c%(n)),|
|00001f50| 22 20 22 29 2c b9 29 3a | f2 61 28 71 25 2c 6b 25 |" "),.):|.a(q%,k%|
|00001f60| 2c 31 36 2c 22 22 2c b9 | 29 3a e7 61 25 28 6e 2b |,16,"",.|):.a%(n+|
|00001f70| 31 29 3c 3e 61 25 28 6e | 29 8c 0d 1d 60 19 f2 61 |1)<>a%(n|)...`..a|
|00001f80| 28 71 25 2c 6b 25 2c 31 | 36 2c 22 39 39 39 39 22 |(q%,k%,1|6,"9999"|
|00001f90| 2c a3 29 0d 1d 74 1f cc | 3a f2 61 28 71 25 2c 6b |,.)..t..|:.a(q%,k|
|00001fa0| 25 2c 31 36 2c c3 28 63 | 25 28 6e 2b 31 29 29 2c |%,16,.(c|%(n+1)),|
|00001fb0| a3 29 0d 1d 88 05 cd 0d | 1d 88 14 e7 c0 61 24 28 |.)......|.....a$(|
|00001fc0| 6e 29 2c 31 29 3c 3e 22 | 20 22 8c 0d 1d 92 22 73 |n),1)<>"| "...."s|
|00001fd0| 61 25 3d a4 62 28 71 25 | 2c 6b 25 2c 33 35 2c 22 |a%=.b(q%|,k%,35,"|
|00001fe0| 72 61 64 69 6f 31 5f 6f | 6e 22 2c b9 29 0d 1d a6 |radio1_o|n",.)...|
|00001ff0| 25 cc 3a 73 61 25 3d a4 | 62 28 71 25 2c 6b 25 2c |%.:sa%=.|b(q%,k%,|
|00002000| 33 35 2c 22 72 61 64 69 | 6f 31 5f 6f 66 66 22 2c |35,"radi|o1_off",|
|00002010| b9 29 0d 1d ba 05 cd 0d | 1d ba 14 e7 c2 61 24 28 |.)......|.....a$(|
|00002020| 6e 29 2c 31 29 3c 3e 22 | 20 22 8c 0d 1d c4 22 74 |n),1)<>"| "...."t|
|00002030| 61 25 3d a4 62 28 71 25 | 2c 6b 25 2c 33 36 2c 22 |a%=.b(q%|,k%,36,"|
|00002040| 72 61 64 69 6f 31 5f 6f | 6e 22 2c b9 29 0d 1d d8 |radio1_o|n",.)...|
|00002050| 25 cc 3a 74 61 25 3d a4 | 62 28 71 25 2c 6b 25 2c |%.:ta%=.|b(q%,k%,|
|00002060| 33 36 2c 22 72 61 64 69 | 6f 31 5f 6f 66 66 22 2c |36,"radi|o1_off",|
|00002070| b9 29 0d 1d ec 05 cd 0d | 1d ec 22 c8 99 22 57 69 |.)......|..".."Wi|
|00002080| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|00002090| 69 6f 6e 22 2c 2d 31 3a | e1 0d 1e 00 4b dd f2 6c |ion",-1:|....K..l|
|000020a0| 3a f2 61 28 71 25 2c 6b | 25 2c 32 34 2c c3 28 6a |:.a(q%,k|%,24,.(j|
|000020b0| 25 29 2c b9 29 3a f2 61 | 28 71 25 2c 6b 25 2c 32 |%),.):.a|(q%,k%,2|
|000020c0| 35 2c c3 28 45 25 2d 6a | 25 29 2c b9 29 3a f2 61 |5,.(E%-j|%),.):.a|
|000020d0| 28 71 25 2c 6b 25 2c 32 | 36 2c c3 28 52 25 29 2c |(q%,k%,2|6,.(R%),|
|000020e0| b9 29 3a e1 0d 1e 3c 13 | dd a4 6f 3a 6f 3d 71 25 |.):...<.|..o:o=q%|
|000020f0| 21 30 3a c8 8e 6f ca 0d | 1e 6e 13 c9 30 3a f2 6d |!0:..o..|.n..0:.m|
|00002100| 28 69 61 25 2c a3 2c 2d | 31 29 0d 1e 8c 06 c9 31 |(ia%,.,-|1).....1|
|00002110| 0d 1e 96 06 c9 32 0d 1e | a0 06 c9 33 0d 1e aa 1c |.....2..|...3....|
|00002120| c9 34 3a f2 6d 28 57 25 | 2c a3 2c 2d 31 29 3a f2 |.4:.m(W%|,.,-1):.|
|00002130| 41 28 71 25 2c 57 25 29 | 0d 1e c8 06 c9 35 0d 1e |A(q%,W%)|.....5..|
|00002140| d2 06 c9 36 0d 1e dc 06 | c9 37 0d 1e e6 09 c9 38 |...6....|.7.....8|
|00002150| 3a f2 79 0d 1e fa 05 cb | 0d 1e fa 06 3d 30 0d 1f |:.y.....|....=0..|
|00002160| 18 13 dd a4 70 3a 6f 3d | 71 25 21 30 3a c8 8e 6f |....p:o=|q%!0:..o|
|00002170| ca 0d 1f 2c 06 c9 30 0d | 1f 40 0b c9 31 3a e7 42 |...,..0.|.@..1:.B|
|00002180| 25 8c 0d 1f 4a 19 f2 6d | 28 59 25 2c a3 2c 2d 31 |%...J..m|(Y%,.,-1|
|00002190| 29 3a f2 41 28 71 25 2c | 59 25 29 0d 1f 68 09 cc |):.A(q%,|Y%)..h..|
|000021a0| 3a 69 3d b9 0d 1f 7c 05 | cd 0d 1f 7c 05 cb 0d 1f |:i=...|.|...|....|
|000021b0| 86 06 3d 30 0d 1f a4 d4 | dd f2 57 3a 61 3d 30 3a |..=0....|..W:a=0:|
|000021c0| c8 97 78 2c 79 2c 62 3a | f2 67 28 22 54 61 70 65 |..x,y,b:|.g("Tape|
|000021d0| 20 53 74 61 74 75 73 22 | 2c 61 2c 30 2c 30 2c 30 | Status"|,a,0,0,0|
|000021e0| 2c 30 2c 65 2c 30 2c 30 | 29 3a 61 2b 3d 31 3a f2 |,0,e,0,0|):a+=1:.|
|000021f0| 67 28 22 41 64 64 20 54 | 61 70 65 22 2c 61 2c 30 |g("Add T|ape",a,0|
|00002200| 2c 30 2c 30 2c 30 2c 65 | 2c 50 25 2c 30 29 3a 61 |,0,0,0,e|,P%,0):a|
|00002210| 2b 3d 31 3a f2 67 28 22 | 44 65 6c 65 74 65 20 54 |+=1:.g("|Delete T|
|00002220| 61 70 65 22 2c 61 2c 30 | 2c 30 2c 30 2c 30 2c 65 |ape",a,0|,0,0,0,e|
|00002230| 2c 55 25 2c 30 29 3a 61 | 2b 3d 31 3a f2 67 28 22 |,U%,0):a|+=1:.g("|
|00002240| 43 61 6c 69 62 72 61 74 | 65 22 2c 61 2c 30 2c 30 |Calibrat|e",a,0,0|
|00002250| 2c 2d 31 2c 30 2c 65 2c | 6f 25 2c 30 29 3a 61 2b |,-1,0,e,|o%,0):a+|
|00002260| 3d 31 3a f2 67 28 22 44 | 65 6c 65 74 65 20 52 65 |=1:.g("D|elete Re|
|00002270| 63 22 2c 61 2c 30 2c 30 | 2c 30 2c 30 2c 65 2c 30 |c",a,0,0|,0,0,e,0|
|00002280| 2c 30 29 3a 61 2b 3d 31 | 0d 1f ea f0 f2 67 28 22 |,0):a+=1|.....g("|
|00002290| 4e 65 77 20 52 65 63 6f | 72 64 22 2c 61 2c 30 2c |New Reco|rd",a,0,|
|000022a0| 30 2c 30 2c 30 2c 65 2c | 6d 25 2c 30 29 3a 61 2b |0,0,0,e,|m%,0):a+|
|000022b0| 3d 31 3a f2 67 28 22 53 | 65 61 72 63 68 20 46 69 |=1:.g("S|earch Fi|
|000022c0| 6c 65 22 2c 61 2c 30 2c | 30 2c 30 2c 30 2c 65 2c |le",a,0,|0,0,0,e,|
|000022d0| 75 25 2c 30 29 3a 61 2b | 3d 31 3a f2 67 28 22 46 |u%,0):a+|=1:.g("F|
|000022e0| 69 6e 64 20 53 70 61 63 | 65 22 2c 61 2c 30 2c 30 |ind Spac|e",a,0,0|
|000022f0| 2c 2d 31 2c 30 2c 65 2c | 56 25 2c 30 29 3a 61 2b |,-1,0,e,|V%,0):a+|
|00002300| 3d 31 3a f2 67 28 22 53 | 61 76 65 20 44 61 74 61 |=1:.g("S|ave Data|
|00002310| 22 2c 61 2c 30 2c 30 2c | 30 2c 28 ac 42 25 29 2c |",a,0,0,|0,(.B%),|
|00002320| 65 2c 30 2c 2d 31 29 3a | 61 2b 3d 31 3a f2 42 28 |e,0,-1):|a+=1:.B(|
|00002330| 22 56 69 64 65 6f 42 61 | 73 65 22 2c 61 2c 32 32 |"VideoBa|se",a,22|
|00002340| 30 2c 78 2d 36 34 2c 79 | 29 3a 75 61 25 3d 30 3a |0,x-64,y|):ua%=0:|
|00002350| 69 24 3d 22 6d 61 69 6e | 22 3a c8 99 22 57 69 6d |i$="main|":.."Wim|
|00002360| 70 5f 53 65 74 43 61 72 | 65 74 50 6f 73 69 74 69 |p_SetCar|etPositi|
|00002370| 6f 6e 22 2c 2d 31 3a e1 | 0d 20 44 88 dd f2 56 3a |on",-1:.|. D...V:|
|00002380| 61 3d 30 3a c8 97 78 2c | 79 2c 62 3a f2 67 28 22 |a=0:..x,|y,b:.g("|
|00002390| 49 6e 66 6f 22 2c 61 2c | 30 2c 30 2c 30 2c 30 2c |Info",a,|0,0,0,0,|
|000023a0| 65 2c 68 61 25 2c 30 29 | 3a 61 2b 3d 31 3a f2 67 |e,ha%,0)|:a+=1:.g|
|000023b0| 28 22 51 75 69 74 22 2c | 61 2c 30 2c 30 2c 30 2c |("Quit",|a,0,0,0,|
|000023c0| 30 2c 65 2c 30 2c 2d 31 | 29 3a 61 2b 3d 31 3a f2 |0,e,0,-1|):a+=1:.|
|000023d0| 42 28 22 56 69 64 65 6f | 42 61 73 65 22 2c 61 2c |B("Video|Base",a,|
|000023e0| 31 33 30 2c 78 2d 36 34 | 2c 31 39 36 29 3a 75 61 |130,x-64|,196):ua|
|000023f0| 25 3d 30 3a 69 24 3d 22 | 73 69 63 6f 6e 22 3a e1 |%=0:i$="|sicon":.|
|00002400| 0d 20 9e ee dd f2 46 3a | 52 25 3d 30 3a 58 25 3d |. ....F:|R%=0:X%=|
|00002410| ad 28 22 3c 56 69 64 65 | 6f 42 61 73 65 24 44 69 |.("<Vide|oBase$Di|
|00002420| 72 3e 2e 57 56 44 41 54 | 41 22 29 3a e3 63 25 3d |r>.WVDAT|A"):.c%=|
|00002430| 31 b8 45 25 3a e8 23 58 | 25 2c 62 24 28 63 25 29 |1.E%:.#X|%,b$(c%)|
|00002440| 3a e8 23 58 25 2c 63 24 | 28 63 25 29 3a e8 23 58 |:.#X%,c$|(c%):.#X|
|00002450| 25 2c 61 24 28 63 25 29 | 3a e8 23 58 25 2c 61 25 |%,a$(c%)|:.#X%,a%|
|00002460| 28 63 25 29 3a e8 23 58 | 25 2c 63 25 28 63 25 29 |(c%):.#X|%,c%(c%)|
|00002470| 3a e8 23 58 25 2c 62 25 | 28 63 25 29 3a ed 63 25 |:.#X%,b%|(c%):.c%|
|00002480| 3a d9 23 58 25 3a 58 25 | 3d ad 28 22 3c 56 69 64 |:.#X%:X%|=.("<Vid|
|00002490| 65 6f 42 61 73 65 24 44 | 69 72 3e 2e 57 56 46 4f |eoBase$D|ir>.WVFO|
|000024a0| 52 4d 41 54 22 29 3a e8 | 23 58 25 2c 6a 25 3a e3 |RMAT"):.|#X%,j%:.|
|000024b0| 63 25 3d 32 b8 31 30 3a | e8 23 58 25 2c 76 61 25 |c%=2.10:|.#X%,va%|
|000024c0| 3a ed 63 25 3a e3 63 25 | 3d 31 b8 4f 25 3a e8 23 |:.c%:.c%|=1.O%:.#|
|000024d0| 58 25 2c 64 25 28 63 25 | 29 3a e8 23 58 25 2c 69 |X%,d%(c%|):.#X%,i|
|000024e0| 25 28 63 25 29 3a ed 63 | 25 3a d9 23 58 25 0d 21 |%(c%):.c|%:.#X%.!|
|000024f0| 98 22 e3 63 25 3d 31 b8 | 6a 25 3a e7 c2 61 24 28 |.".c%=1.|j%:..a$(|
|00002500| 63 25 29 2c 31 29 3d 22 | 2a 22 8c 52 25 2b 3d 31 |c%),1)="|*".R%+=1|
|00002510| 0d 21 ac 5d ed 63 25 3a | 58 25 3d ad 28 22 3c 56 |.!.].c%:|X%=.("<V|
|00002520| 69 64 65 6f 42 61 73 65 | 24 44 69 72 3e 2e 57 56 |ideoBase|$Dir>.WV|
|00002530| 43 41 4c 44 41 54 41 22 | 29 3a e3 63 25 3d 31 b8 |CALDATA"|):.c%=1.|
|00002540| 36 3a e8 23 58 25 2c 65 | 25 28 63 25 29 2c 66 25 |6:.#X%,e|%(c%),f%|
|00002550| 28 63 25 29 2c 67 25 28 | 63 25 29 2c 68 25 28 63 |(c%),g%(|c%),h%(c|
|00002560| 25 29 3a ed 63 25 3a d9 | 23 58 25 3a e1 0d 21 f2 |%):.c%:.|#X%:..!.|
|00002570| 04 0d 22 06 eb dd f2 45 | 3a ea 63 25 3a 58 25 3d |.."....E|:.c%:X%=|
|00002580| ae 28 22 3c 56 69 64 65 | 6f 42 61 73 65 24 44 69 |.("<Vide|oBase$Di|
|00002590| 72 3e 2e 57 56 44 41 54 | 41 22 29 3a e3 63 25 3d |r>.WVDAT|A"):.c%=|
|000025a0| 31 b8 45 25 3a f1 23 58 | 25 2c 62 24 28 63 25 29 |1.E%:.#X|%,b$(c%)|
|000025b0| 3a f1 23 58 25 2c 63 24 | 28 63 25 29 3a f1 23 58 |:.#X%,c$|(c%):.#X|
|000025c0| 25 2c 61 24 28 63 25 29 | 3a f1 23 58 25 2c 61 25 |%,a$(c%)|:.#X%,a%|
|000025d0| 28 63 25 29 3a f1 23 58 | 25 2c 63 25 28 63 25 29 |(c%):.#X|%,c%(c%)|
|000025e0| 3a f1 23 58 25 2c 62 25 | 28 63 25 29 3a ed 63 25 |:.#X%,b%|(c%):.c%|
|000025f0| 3a d9 23 58 25 3a 58 25 | 3d ae 28 22 3c 56 69 64 |:.#X%:X%|=.("<Vid|
|00002600| 65 6f 42 61 73 65 24 44 | 69 72 3e 2e 57 56 46 4f |eoBase$D|ir>.WVFO|
|00002610| 52 4d 41 54 22 29 3a f1 | 23 58 25 2c 6a 25 3a e3 |RMAT"):.|#X%,j%:.|
|00002620| 63 25 3d 32 b8 31 30 3a | f1 23 58 25 2c 30 3a ed |c%=2.10:|.#X%,0:.|
|00002630| 63 25 3a e3 63 25 3d 31 | b8 4f 25 3a f1 23 58 25 |c%:.c%=1|.O%:.#X%|
|00002640| 2c 64 25 28 63 25 29 3a | f1 23 58 25 2c 69 25 28 |,d%(c%):|.#X%,i%(|
|00002650| 63 25 29 3a ed 63 25 3a | d9 23 58 25 0d 22 d8 31 |c%):.c%:|.#X%.".1|
|00002660| 58 25 3d 8e 28 22 3c 56 | 69 64 65 6f 42 61 73 65 |X%=.("<V|ideoBase|
|00002670| 24 44 69 72 3e 2e 57 56 | 43 41 4c 44 41 54 41 22 |$Dir>.WV|CALDATA"|
|00002680| 29 3a d9 23 58 25 3a e7 | 58 25 3d 30 8c 0d 22 f6 |):.#X%:.|X%=0..".|
|00002690| 3d 58 25 3d ae 28 22 3c | 56 69 64 65 6f 42 61 73 |=X%=.("<|VideoBas|
|000026a0| 65 24 44 69 72 3e 2e 57 | 56 43 41 4c 44 41 54 41 |e$Dir>.W|VCALDATA|
|000026b0| 22 29 3a e3 63 25 3d 31 | b8 36 3a f1 23 58 25 2c |"):.c%=1|.6:.#X%,|
|000026c0| 30 3a ed 63 25 3a d9 23 | 58 25 0d 23 32 59 cc 3a |0:.c%:.#|X%.#2Y.:|
|000026d0| 58 25 3d ad 28 22 3c 56 | 69 64 65 6f 42 61 73 65 |X%=.("<V|ideoBase|
|000026e0| 24 44 69 72 3e 2e 57 56 | 43 41 4c 44 41 54 41 22 |$Dir>.WV|CALDATA"|
|000026f0| 29 3a e3 63 25 3d 31 b8 | 36 3a e8 23 58 25 2c 65 |):.c%=1.|6:.#X%,e|
|00002700| 25 28 63 25 29 2c 66 25 | 28 63 25 29 2c 67 25 28 |%(c%),f%|(c%),g%(|
|00002710| 63 25 29 2c 68 25 28 63 | 25 29 3a ed 63 25 3a d9 |c%),h%(c|%):.c%:.|
|00002720| 23 58 25 0d 23 6e 05 cd | 0d 23 6e 21 2a 53 54 41 |#X%.#n..|.#n!*STA|
|00002730| 4d 50 20 3c 56 69 64 65 | 6f 42 61 73 65 24 44 69 |MP <Vide|oBase$Di|
|00002740| 72 3e 2e 57 56 44 41 54 | 41 0d 23 78 23 2a 53 54 |r>.WVDAT|A.#x#*ST|
|00002750| 41 4d 50 20 3c 56 69 64 | 65 6f 42 61 73 65 24 44 |AMP <Vid|eoBase$D|
|00002760| 69 72 3e 2e 57 56 46 4f | 52 4d 41 54 0d 23 82 24 |ir>.WVFO|RMAT.#.$|
|00002770| 2a 53 54 41 4d 50 20 3c | 56 69 64 65 6f 42 61 73 |*STAMP <|VideoBas|
|00002780| 65 24 44 69 72 3e 2e 57 | 56 43 41 4c 44 41 54 41 |e$Dir>.W|VCALDATA|
|00002790| 0d 23 8c 05 e1 0d 23 96 | 04 0d 23 aa 2a dd a4 6d |.#....#.|..#.*..m|
|000027a0| 3a ea 77 61 25 2c 41 25 | 2c 6a 24 2c 6b 24 2c 6e |:.wa%,A%|,j$,k$,n|
|000027b0| 24 2c 6f 24 3a ea 48 25 | 2c 70 24 3a e7 6a 25 3c |$,o$:.H%|,p$:.j%<|
|000027c0| 45 25 8c 0d 23 c8 70 6a | 24 3d a4 61 28 71 25 2c |E%..#.pj|$=.a(q%,|
|000027d0| 6d 25 2c 32 29 3a 6b 24 | 3d a4 61 28 71 25 2c 6d |m%,2):k$|=.a(q%,m|
|000027e0| 25 2c 33 29 3a 6e 24 3d | a4 61 28 71 25 2c 6d 25 |%,3):n$=|.a(q%,m%|
|000027f0| 2c 34 29 3a 6f 24 3d a4 | 61 28 71 25 2c 6d 25 2c |,4):o$=.|a(q%,m%,|
|00002800| 36 29 3a 70 24 3d a4 61 | 28 71 25 2c 6d 25 2c 35 |6):p$=.a|(q%,m%,5|
|00002810| 29 3a e7 a9 28 6a 24 29 | 3d 30 8c f2 62 28 22 4d |):..(j$)|=0..b("M|
|00002820| 75 73 74 20 65 6e 74 65 | 72 20 61 20 74 69 74 6c |ust ente|r a titl|
|00002830| 65 22 29 0d 24 04 27 e7 | a9 28 6b 24 29 3d 30 8c |e").$.'.|.(k$)=0.|
|00002840| f2 62 28 22 4d 75 73 74 | 20 65 6e 74 65 72 20 61 |.b("Must| enter a|
|00002850| 20 73 75 62 6a 65 63 74 | 22 29 0d 24 0e 44 6e 25 | subject|").$.Dn%|
|00002860| 3d bb 28 6e 24 29 3a 41 | 25 3d bb 28 70 24 29 3a |=.(n$):A|%=.(p$):|
|00002870| 48 25 3d bb 28 6f 24 29 | 3a e7 6e 25 3c 31 84 6e |H%=.(o$)|:.n%<1.n|
|00002880| 25 3e 4f 25 8c f2 62 28 | 22 49 6e 76 61 6c 69 64 |%>O%..b(|"Invalid|
|00002890| 20 74 61 70 65 20 6e 75 | 6d 62 65 72 22 29 0d 24 | tape nu|mber").$|
|000028a0| 36 28 e7 41 25 3d 30 8c | f2 62 28 22 49 6e 76 61 |6(.A%=0.|.b("Inva|
|000028b0| 6c 69 64 20 72 65 63 6f | 72 64 69 6e 67 20 6c 65 |lid reco|rding le|
|000028c0| 6e 67 74 68 22 29 0d 24 | 40 22 6c 24 3d 22 2a 2a |ngth").$|@"l$="**|
|000028d0| 22 3a 52 25 2b 3d 31 3a | e7 61 25 28 31 29 3d 30 |":R%+=1:|.a%(1)=0|
|000028e0| 8c 61 25 28 31 29 3d 31 | 0d 24 54 32 70 25 3d a4 |.a%(1)=1|.$T2p%=.|
|000028f0| 71 28 6e 25 2c 41 25 29 | 3a e7 64 25 28 6e 25 29 |q(n%,A%)|:.d%(n%)|
|00002900| 3d 30 8c f2 62 28 22 54 | 61 70 65 20 6e 72 20 6e |=0..b("T|ape nr n|
|00002910| 6f 74 20 66 6f 75 6e 64 | 22 29 0d 24 68 0d e7 48 |ot found|").$h..H|
|00002920| 25 3d 30 8c f2 63 61 0d | 24 72 2a e7 70 25 3d 2d |%=0..ca.|$r*.p%=-|
|00002930| 31 3a f2 62 28 22 52 65 | 63 6f 72 64 69 6e 67 20 |1:.b("Re|cording |
|00002940| 6c 65 6e 67 74 68 20 74 | 6f 6f 20 6c 6f 6e 67 22 |length t|oo long"|
|00002950| 29 0d 24 7c 0a e7 70 25 | 3e 31 8c 0d 24 90 15 e7 |).$|..p%|>1..$...|
|00002960| 61 25 28 70 25 2d 31 29 | 3d 61 25 28 70 25 29 8c |a%(p%-1)|=a%(p%).|
|00002970| 0d 24 9a 44 e7 48 25 3c | 3d 63 25 28 70 25 29 8c |.$.D.H%<|=c%(p%).|
|00002980| f2 62 28 22 43 6f 75 6e | 74 65 72 20 6e 75 6d 62 |.b("Coun|ter numb|
|00002990| 65 72 20 6d 75 73 74 20 | 62 65 20 67 72 65 61 74 |er must |be great|
|000029a0| 65 72 20 74 68 61 6e 20 | 22 2b c3 28 63 25 28 70 |er than |"+.(c%(p|
|000029b0| 25 29 29 29 0d 24 a4 05 | cd 0d 24 ae 05 cd 0d 24 |%))).$..|..$....$|
|000029c0| b8 0b e7 70 25 3c 6a 25 | 8c 0d 24 c2 15 e7 61 25 |...p%<j%|..$...a%|
|000029d0| 28 70 25 2b 31 29 3d 61 | 25 28 70 25 29 8c 0d 24 |(p%+1)=a|%(p%)..$|
|000029e0| cc 44 e7 48 25 3e 63 25 | 28 70 25 2b 31 29 8c f2 |.D.H%>c%|(p%+1)..|
|000029f0| 62 28 22 43 6f 75 6e 74 | 65 72 20 6e 75 6d 62 65 |b("Count|er numbe|
|00002a00| 72 20 6d 75 73 74 20 62 | 65 20 6c 65 73 73 20 74 |r must b|e less t|
|00002a10| 68 61 6e 20 22 2b c3 28 | 63 25 28 70 25 2b 31 29 |han "+.(|c%(p%+1)|
|00002a20| 29 29 0d 24 d6 05 cd 0d | 24 e0 05 cd 0d 24 ea 14 |)).$....|$....$..|
|00002a30| e7 41 25 3c 62 25 28 70 | 25 29 80 70 25 3e 30 8c |.A%<b%(p|%).p%>0.|
|00002a40| 0d 24 fe 4c 6a 25 2b 3d | 31 3a f2 6a 28 6a 25 2c |.$.Lj%+=|1:.j(j%,|
|00002a50| 6a 24 2c 6b 24 2c 6c 24 | 2c 6e 25 2c 63 25 28 70 |j$,k$,l$|,n%,c%(p|
|00002a60| 25 29 2c 41 25 29 3a f2 | 6a 28 70 25 2c 22 2a 47 |%),A%):.|j(p%,"*G|
|00002a70| 41 50 2a 22 2c 22 22 2c | 22 20 22 2c 6e 25 2c 48 |AP*","",|" ",n%,H|
|00002a80| 25 2c 62 25 28 70 25 29 | 2d 41 25 29 0d 25 26 22 |%,b%(p%)|-A%).%&"|
|00002a90| cc 3a f2 6a 28 70 25 2c | 6a 24 2c 6b 24 2c 6c 24 |.:.j(p%,|j$,k$,l$|
|00002aa0| 2c 6e 25 2c 63 25 28 70 | 25 29 2c 41 25 29 0d 25 |,n%,c%(p|%),A%).%|
|00002ab0| 3a 05 cd 0d 25 3a 26 69 | 25 28 6e 25 29 2b 3d 41 |:...%:&i|%(n%)+=A|
|00002ac0| 25 3a f2 6b 3a 42 25 3d | b9 3a 64 25 3d 70 25 3a |%:.k:B%=|.:d%=p%:|
|00002ad0| f2 63 28 64 25 29 3a f2 | 6c 0d 25 80 05 cd 0d 25 |.c(d%):.|l.%....%|
|00002ae0| 80 06 3d b9 0d 25 9e 2a | dd f2 63 61 3a ea 78 61 |..=..%.*|..ca:.xa|
|00002af0| 25 2c 5a 25 2c 4d 25 2c | 4a 25 2c 79 61 25 2c 7a |%,Z%,M%,|J%,ya%,z|
|00002b00| 61 25 3a e7 41 25 3d 62 | 25 28 70 25 29 8c 0d 25 |a%:.A%=b|%(p%)..%|
|00002b10| b2 1d 48 25 3d 63 25 28 | 70 25 2b 31 29 3a e7 48 |..H%=c%(|p%+1):.H|
|00002b20| 25 3d 30 8c 48 25 3d 39 | 39 39 39 0d 25 c6 17 f2 |%=0.H%=9|999.%...|
|00002b30| 61 28 71 25 2c 6d 25 2c | 36 2c c3 28 48 25 29 2c |a(q%,m%,|6,.(H%),|
|00002b40| b9 29 0d 25 da 3e cc 3a | 78 61 25 3d 41 25 3a 5a |.).%.>.:|xa%=A%:Z|
|00002b50| 25 3d 70 25 2d 31 3a c8 | 95 61 25 28 5a 25 29 3d |%=p%-1:.|.a%(Z%)=|
|00002b60| 6e 25 3a 78 61 25 2b 3d | 62 25 28 5a 25 29 3a 5a |n%:xa%+=|b%(Z%):Z|
|00002b70| 25 2d 3d 31 3a ce 3a c8 | 8e 64 25 28 6e 25 29 ca |%-=1:.:.|.d%(n%).|
|00002b80| 0d 26 16 2d c9 36 30 3a | 4d 25 3d 65 25 28 31 29 |.&.-.60:|M%=e%(1)|
|00002b90| 3a 4a 25 3d 66 25 28 31 | 29 3a 79 61 25 3d 67 25 |:J%=f%(1|):ya%=g%|
|00002ba0| 28 31 29 3a 7a 61 25 3d | 68 25 28 31 29 0d 26 34 |(1):za%=|h%(1).&4|
|00002bb0| 2e c9 31 32 30 3a 4d 25 | 3d 65 25 28 32 29 3a 4a |..120:M%|=e%(2):J|
|00002bc0| 25 3d 66 25 28 32 29 3a | 79 61 25 3d 67 25 28 32 |%=f%(2):|ya%=g%(2|
|00002bd0| 29 3a 7a 61 25 3d 68 25 | 28 32 29 0d 26 48 2e c9 |):za%=h%|(2).&H..|
|00002be0| 31 38 30 3a 4d 25 3d 65 | 25 28 33 29 3a 4a 25 3d |180:M%=e|%(3):J%=|
|00002bf0| 66 25 28 33 29 3a 79 61 | 25 3d 67 25 28 33 29 3a |f%(3):ya|%=g%(3):|
|00002c00| 7a 61 25 3d 68 25 28 33 | 29 0d 26 5c 2e c9 32 34 |za%=h%(3|).&\..24|
|00002c10| 30 3a 4d 25 3d 65 25 28 | 34 29 3a 4a 25 3d 66 25 |0:M%=e%(|4):J%=f%|
|00002c20| 28 34 29 3a 79 61 25 3d | 67 25 28 34 29 3a 7a 61 |(4):ya%=|g%(4):za|
|00002c30| 25 3d 68 25 28 34 29 0d | 26 70 2e c9 33 36 30 3a |%=h%(4).|&p..360:|
|00002c40| 4d 25 3d 65 25 28 35 29 | 3a 4a 25 3d 66 25 28 35 |M%=e%(5)|:J%=f%(5|
|00002c50| 29 3a 79 61 25 3d 67 25 | 28 35 29 3a 7a 61 25 3d |):ya%=g%|(5):za%=|
|00002c60| 68 25 28 35 29 0d 26 84 | 2e c9 34 38 30 3a 4d 25 |h%(5).&.|..480:M%|
|00002c70| 3d 65 25 28 36 29 3a 4a | 25 3d 66 25 28 36 29 3a |=e%(6):J|%=f%(6):|
|00002c80| 79 61 25 3d 67 25 28 36 | 29 3a 7a 61 25 3d 68 25 |ya%=g%(6|):za%=h%|
|00002c90| 28 36 29 0d 26 98 05 cb | 0d 26 98 30 48 25 3d a4 |(6).&...|.&.0H%=.|
|00002ca0| 72 28 4d 25 2c 79 61 25 | 2c 4a 25 2c 7a 61 25 2c |r(M%,ya%|,J%,za%,|
|00002cb0| 78 61 25 29 3a f2 61 28 | 71 25 2c 6d 25 2c 36 2c |xa%):.a(|q%,m%,6,|
|00002cc0| c3 28 48 25 29 2c b9 29 | 0d 26 b6 05 cd 0d 26 b6 |.(H%),.)|.&....&.|
|00002cd0| 05 e1 0d 26 c0 04 0d 26 | d4 68 dd f2 6a 28 41 61 |...&...&|.h..j(Aa|
|00002ce0| 25 2c 6d 24 2c 73 24 2c | 6c 24 2c 42 61 25 2c 77 |%,m$,s$,|l$,Ba%,w|
|00002cf0| 61 25 2c 43 61 25 29 3a | 62 24 28 41 61 25 29 3d |a%,Ca%):|b$(Aa%)=|
|00002d00| 6d 24 3a 63 24 28 41 61 | 25 29 3d 73 24 3a 61 24 |m$:c$(Aa|%)=s$:a$|
|00002d10| 28 41 61 25 29 3d 6c 24 | 3a 61 25 28 41 61 25 29 |(Aa%)=l$|:a%(Aa%)|
|00002d20| 3d 42 61 25 3a 63 25 28 | 41 61 25 29 3d 77 61 25 |=Ba%:c%(|Aa%)=wa%|
|00002d30| 3a 62 25 28 41 61 25 29 | 3d 43 61 25 3a e1 0d 27 |:b%(Aa%)|=Ca%:..'|
|00002d40| 1a 04 0d 27 2e 46 dd f2 | 6b 3a ea 69 25 2c 44 61 |...'.F..|k:.i%,Da|
|00002d50| 25 3a f5 3a 44 61 25 3d | b9 3a e3 69 25 3d 31 b8 |%:.:Da%=|.:.i%=1.|
|00002d60| 6a 25 2d 31 3a e7 61 25 | 28 69 25 29 3d 61 25 28 |j%-1:.a%|(i%)=a%(|
|00002d70| 69 25 2b 31 29 8c e7 63 | 25 28 69 25 29 3e 63 25 |i%+1)..c|%(i%)>c%|
|00002d80| 28 69 25 2b 31 29 f2 43 | 0d 27 60 16 e7 61 25 28 |(i%+1).C|.'`..a%(|
|00002d90| 69 25 29 3e 61 25 28 69 | 25 2b 31 29 f2 43 0d 27 |i%)>a%(i|%+1).C.'|
|00002da0| 6a 0c ed 3a fd 44 61 25 | 3a e1 0d 27 88 04 0d 27 |j..:.Da%|:..'...'|
|00002db0| 9c 7f dd f2 43 3a ea 5a | 25 3a 44 61 25 3d a3 3a |....C:.Z|%:Da%=.:|
|00002dc0| c8 94 62 24 28 69 25 29 | 2c 62 24 28 69 25 2b 31 |..b$(i%)|,b$(i%+1|
|00002dd0| 29 3a c8 94 63 24 28 69 | 25 29 2c 63 24 28 69 25 |):..c$(i|%),c$(i%|
|00002de0| 2b 31 29 3a c8 94 61 24 | 28 69 25 29 2c 61 24 28 |+1):..a$|(i%),a$(|
|00002df0| 69 25 2b 31 29 3a c8 94 | 61 25 28 69 25 29 2c 61 |i%+1):..|a%(i%),a|
|00002e00| 25 28 69 25 2b 31 29 3a | c8 94 63 25 28 69 25 29 |%(i%+1):|..c%(i%)|
|00002e10| 2c 63 25 28 69 25 2b 31 | 29 3a c8 94 62 25 28 69 |,c%(i%+1|):..b%(i|
|00002e20| 25 29 2c 62 25 28 69 25 | 2b 31 29 3a e1 0d 27 f6 |%),b%(i%|+1):..'.|
|00002e30| 04 0d 28 0a 3a dd a4 71 | 28 6e 25 2c 41 25 29 3a |..(.:..q|(n%,A%):|
|00002e40| ea 69 25 2c 76 25 2c 45 | 61 25 2c 46 61 25 3a 76 |.i%,v%,E|a%,Fa%:v|
|00002e50| 25 3d 31 30 30 30 3a 46 | 61 25 3d 30 3a e7 6a 25 |%=1000:F|a%=0:.j%|
|00002e60| 3d 31 80 62 25 28 31 29 | 3d 30 8c 0d 28 32 1e 62 |=1.b%(1)|=0..(2.b|
|00002e70| 24 28 31 29 3d 22 2a 47 | 41 50 2a 22 3a 62 25 28 |$(1)="*G|AP*":b%(|
|00002e80| 31 29 3d 64 25 28 6e 25 | 29 0d 28 46 05 cd 0d 28 |1)=d%(n%|).(F...(|
|00002e90| 46 18 e3 69 25 3d 31 b8 | 6a 25 3a e7 6e 25 3d 61 |F..i%=1.|j%:.n%=a|
|00002ea0| 25 28 69 25 29 8c 0d 28 | 5a 1e e7 62 24 28 69 25 |%(i%)..(|Z..b$(i%|
|00002eb0| 29 3d 22 2a 47 41 50 2a | 22 80 62 25 28 69 25 29 |)="*GAP*|".b%(i%)|
|00002ec0| 3d 41 25 8c 0d 28 64 10 | 76 25 3d 41 25 3a 46 61 |=A%..(d.|v%=A%:Fa|
|00002ed0| 25 3d 69 25 0d 28 82 05 | cd 0d 28 82 25 e7 62 24 |%=i%.(..|..(.%.b$|
|00002ee0| 28 69 25 29 3d 22 2a 47 | 41 50 2a 22 80 62 25 28 |(i%)="*G|AP*".b%(|
|00002ef0| 69 25 29 3e 41 25 80 76 | 25 3c 3e 41 25 8c 0d 28 |i%)>A%.v|%<>A%..(|
|00002f00| 8c 0f e7 62 25 28 69 25 | 29 3c 76 25 8c 0d 28 96 |...b%(i%|)<v%..(.|
|00002f10| 14 76 25 3d 62 25 28 69 | 25 29 3a 46 61 25 3d 69 |.v%=b%(i|%):Fa%=i|
|00002f20| 25 0d 28 aa 05 cd 0d 28 | aa 05 cd 0d 28 b4 05 cd |%.(....(|....(...|
|00002f30| 0d 28 be 17 ed 3a e7 76 | 25 3d 31 30 30 30 8c 3d |.(...:.v|%=1000.=|
|00002f40| 2d 31 8b 3d 46 61 25 0d | 28 d2 04 0d 28 e6 28 dd |-1.=Fa%.|(...(.(.|
|00002f50| f2 61 61 3a 62 24 3d a4 | 61 28 71 25 2c 75 25 2c |.aa:b$=.|a(q%,u%,|
|00002f60| 32 29 3a 63 24 3d a4 61 | 28 71 25 2c 75 25 2c 33 |2):c$=.a|(q%,u%,3|
|00002f70| 29 3a e1 0d 29 04 04 0d | 29 18 49 dd f2 62 61 3a |):..)...|).I..ba:|
|00002f80| ea 69 25 2c 47 61 25 2c | 48 61 25 3a 46 25 3d 64 |.i%,Ga%,|Ha%:F%=d|
|00002f90| 25 3a 62 24 3d a4 63 28 | 62 24 29 3a 63 24 3d a4 |%:b$=.c(|b$):c$=.|
|00002fa0| 63 28 63 24 29 3a f5 3a | 46 25 2b 3d 31 3a 47 61 |c(c$):.:|F%+=1:Ga|
|00002fb0| 25 2b 3d 31 3a e7 46 25 | 3e 6a 25 8c 46 25 3d 31 |%+=1:.F%|>j%.F%=1|
|00002fc0| 0d 29 68 12 e7 62 24 3c | 3e 22 22 80 63 24 3d 22 |.)h..b$<|>"".c$="|
|00002fd0| 22 8c 0d 29 72 15 e7 a7 | a4 63 28 62 24 28 46 25 |"..)r...|.c(b$(F%|
|00002fe0| 29 29 2c 62 24 29 8c 0d | 29 7c 10 48 61 25 2b 3d |)),b$)..|)|.Ha%+=|
|00002ff0| 31 3a 64 25 3d 46 25 0d | 29 9a 05 cd 0d 29 9a 05 |1:d%=F%.|)....)..|
|00003000| cd 0d 29 a4 12 e7 63 24 | 3c 3e 22 22 80 62 24 3d |..)...c$|<>"".b$=|
|00003010| 22 22 8c 0d 29 ae 15 e7 | a7 a4 63 28 63 24 28 46 |""..)...|..c(c$(F|
|00003020| 25 29 29 2c 63 24 29 8c | 0d 29 b8 10 48 61 25 2b |%)),c$).|.)..Ha%+|
|00003030| 3d 31 3a 64 25 3d 46 25 | 0d 29 d6 05 cd 0d 29 d6 |=1:d%=F%|.)....).|
|00003040| 05 cd 0d 29 e0 13 e7 62 | 24 3c 3e 22 22 80 63 24 |...)...b|$<>"".c$|
|00003050| 3c 3e 22 22 8c 0d 29 ea | 25 e7 a7 a4 63 28 62 24 |<>""..).|%...c(b$|
|00003060| 28 46 25 29 29 2c 62 24 | 29 80 a7 a4 63 28 63 24 |(F%)),b$|)...c(c$|
|00003070| 28 46 25 29 29 2c 63 24 | 29 8c 0d 29 f4 10 48 61 |(F%)),c$|)..)..Ha|
|00003080| 25 2b 3d 31 3a 64 25 3d | 46 25 0d 2a 12 05 cd 0d |%+=1:d%=|F%.*....|
|00003090| 2a 12 05 cd 0d 2a 1c 2f | fd 48 61 25 3e 30 84 47 |*....*./|.Ha%>0.G|
|000030a0| 61 25 3d 6a 25 3a e7 48 | 61 25 3d 30 3a f2 62 28 |a%=j%:.H|a%=0:.b(|
|000030b0| 22 52 65 63 6f 72 64 20 | 6e 6f 74 20 66 6f 75 6e |"Record |not foun|
|000030c0| 64 22 29 0d 2a 30 05 e1 | 0d 2a 3a 04 0d 2a 8a 79 |d").*0..|.*:..*.y|
|000030d0| dd f2 58 28 64 25 29 3a | ea 63 25 3a 69 25 28 61 |..X(d%):|.c%:i%(a|
|000030e0| 25 28 64 25 29 29 2d 3d | 62 25 28 64 25 29 3a f2 |%(d%))-=|b%(d%):.|
|000030f0| 6a 28 64 25 2c 22 2a 47 | 41 50 2a 22 2c 22 22 2c |j(d%,"*G|AP*","",|
|00003100| 22 20 22 2c 61 25 28 64 | 25 29 2c 63 25 28 64 25 |" ",a%(d|%),c%(d%|
|00003110| 29 2c 62 25 28 64 25 29 | 29 3a f2 6b 3a e7 c0 62 |),b%(d%)|):.k:..b|
|00003120| 24 28 64 25 2b 31 29 2c | 35 29 3d 22 2a 47 41 50 |$(d%+1),|5)="*GAP|
|00003130| 2a 22 80 28 61 25 28 64 | 25 2b 31 29 3d 61 25 28 |*".(a%(d|%+1)=a%(|
|00003140| 64 25 29 29 8c 0d 2a bc | 97 62 25 28 64 25 29 3d |d%))..*.|.b%(d%)=|
|00003150| 62 25 28 64 25 29 2b 62 | 25 28 64 25 2b 31 29 3a |b%(d%)+b|%(d%+1):|
|00003160| e3 63 25 3d 64 25 2b 31 | b8 6a 25 2d 31 3a 62 24 |.c%=d%+1|.j%-1:b$|
|00003170| 28 63 25 29 3d 62 24 28 | 63 25 2b 31 29 3a 63 24 |(c%)=b$(|c%+1):c$|
|00003180| 28 63 25 29 3d 63 24 28 | 63 25 2b 31 29 3a 61 24 |(c%)=c$(|c%+1):a$|
|00003190| 28 63 25 29 3d 61 24 28 | 63 25 2b 31 29 3a 61 25 |(c%)=a$(|c%+1):a%|
|000031a0| 28 63 25 29 3d 61 25 28 | 63 25 2b 31 29 3a 63 25 |(c%)=a%(|c%+1):c%|
|000031b0| 28 63 25 29 3d 63 25 28 | 63 25 2b 31 29 3a 62 25 |(c%)=c%(|c%+1):b%|
|000031c0| 28 63 25 29 3d 62 25 28 | 63 25 2b 31 29 3a ed 63 |(c%)=b%(|c%+1):.c|
|000031d0| 25 3a 6a 25 3d 6a 25 2d | 31 3a f2 6b 0d 2b 34 05 |%:j%=j%-|1:.k.+4.|
|000031e0| cd 0d 2b 34 31 e7 64 25 | 3e 31 80 c0 62 24 28 64 |..+41.d%|>1..b$(d|
|000031f0| 25 2d 31 29 2c 35 29 3d | 22 2a 47 41 50 2a 22 80 |%-1),5)=|"*GAP*".|
|00003200| 28 61 25 28 64 25 2d 31 | 29 3d 61 25 28 64 25 29 |(a%(d%-1|)=a%(d%)|
|00003210| 29 8c 0d 2b 48 90 62 25 | 28 64 25 29 3d 62 25 28 |)..+H.b%|(d%)=b%(|
|00003220| 64 25 29 2b 62 25 28 64 | 25 2d 31 29 3a e3 63 25 |d%)+b%(d|%-1):.c%|
|00003230| 3d 64 25 2d 31 b8 6a 25 | 3a 62 24 28 63 25 29 3d |=d%-1.j%|:b$(c%)=|
|00003240| 62 24 28 63 25 2b 31 29 | 3a 63 24 28 63 25 29 3d |b$(c%+1)|:c$(c%)=|
|00003250| 63 24 28 63 25 2b 31 29 | 3a 61 24 28 63 25 29 3d |c$(c%+1)|:a$(c%)=|
|00003260| 61 24 28 63 25 2b 31 29 | 3a 62 25 28 63 25 29 3d |a$(c%+1)|:b%(c%)=|
|00003270| 62 25 28 63 25 2b 31 29 | 3a 61 25 28 63 25 29 3d |b%(c%+1)|:a%(c%)=|
|00003280| 61 25 28 63 25 2b 31 29 | 3a e7 63 25 3c 3e 64 25 |a%(c%+1)|:.c%<>d%|
|00003290| 2d 31 3a 63 25 28 63 25 | 29 3d 63 25 28 63 25 2b |-1:c%(c%|)=c%(c%+|
|000032a0| 31 29 0d 2b 98 12 ed 63 | 25 3a 6a 25 3d 6a 25 2d |1).+...c|%:j%=j%-|
|000032b0| 31 3a f2 6b 0d 2b c0 05 | cd 0d 2b c0 05 e1 0d 2b |1:.k.+..|..+....+|
|000032c0| ca 04 0d 2b de 37 dd a4 | 6e 3a ea 66 24 2c 68 24 |...+.7..|n:.f$,h$|
|000032d0| 2c 44 25 2c 49 61 25 3a | 66 24 3d a4 61 28 71 25 |,D%,Ia%:|f$=.a(q%|
|000032e0| 2c 6b 25 2c 31 36 29 3a | e7 61 25 28 64 25 2b 31 |,k%,16):|.a%(d%+1|
|000032f0| 29 3d 61 25 28 64 25 29 | 8c 0d 2b fc 17 63 25 28 |)=a%(d%)|..+..c%(|
|00003300| 64 25 2b 31 29 3d bb 28 | 66 24 29 3a 42 25 3d b9 |d%+1)=.(|f$):B%=.|
|00003310| 0d 2c 1a 05 cd 0d 2c 1a | 71 66 24 3d a4 61 28 71 |.,....,.|qf$=.a(q|
|00003320| 25 2c 6b 25 2c 31 31 29 | 3a 62 24 28 64 25 29 3d |%,k%,11)|:b$(d%)=|
|00003330| c0 66 24 2b c4 32 30 2c | 22 20 22 29 2c 32 30 29 |.f$+.20,|" "),20)|
|00003340| 3a 66 24 3d a4 61 28 71 | 25 2c 6b 25 2c 31 32 29 |:f$=.a(q|%,k%,12)|
|00003350| 3a 63 24 28 64 25 29 3d | c0 66 24 2b c4 32 30 2c |:c$(d%)=|.f$+.20,|
|00003360| 22 20 22 29 2c 32 30 29 | 3a 68 24 3d a4 61 28 71 |" "),20)|:h$=.a(q|
|00003370| 25 2c 6b 25 2c 31 34 29 | 3a e7 bb 68 24 3c 3e 62 |%,k%,14)|:..h$<>b|
|00003380| 25 28 64 25 29 8c 0d 2c | 56 36 42 25 3d b9 3a 44 |%(d%)..,|V6B%=.:D|
|00003390| 25 3d 64 25 3a 49 61 25 | 3d a3 3a f5 3a 44 25 2b |%=d%:Ia%|=.:.:D%+|
|000033a0| 3d 31 3a e7 c0 62 24 28 | 44 25 29 2c 35 29 3d 22 |=1:..b$(|D%),5)="|
|000033b0| 2a 47 41 50 2a 22 8c 49 | 61 25 3d b9 0d 2c 88 1f |*GAP*".I|a%=..,..|
|000033c0| fd 49 61 25 84 61 25 28 | 44 25 29 3c 3e 61 25 28 |.Ia%.a%(|D%)<>a%(|
|000033d0| 64 25 29 3a e7 49 61 25 | 3d b9 8c 0d 2c 9c 71 f2 |d%):.Ia%|=...,.q.|
|000033e0| 6a 28 44 25 2c 62 24 28 | 44 25 29 2c 63 24 28 44 |j(D%,b$(|D%),c$(D|
|000033f0| 25 29 2c 61 24 28 44 25 | 29 2c 61 25 28 44 25 29 |%),a$(D%|),a%(D%)|
|00003400| 2c 63 25 28 44 25 29 2c | 62 25 28 44 25 29 2b 28 |,c%(D%),|b%(D%)+(|
|00003410| 62 25 28 64 25 29 2d bb | 28 68 24 29 29 29 3a 69 |b%(d%)-.|(h$))):i|
|00003420| 25 28 61 25 28 64 25 29 | 29 2b 3d 28 bb 68 24 2d |%(a%(d%)|)+=(.h$-|
|00003430| 62 25 28 64 25 29 29 3a | 62 25 28 64 25 29 3d bb |b%(d%)):|b%(d%)=.|
|00003440| 28 68 24 29 3a f2 7a 28 | 69 61 25 29 0d 2c ce 27 |(h$):.z(|ia%).,.'|
|00003450| cc 3a f2 62 28 22 45 64 | 69 74 20 6f 66 20 6c 65 |.:.b("Ed|it of le|
|00003460| 6e 67 74 68 20 6e 6f 74 | 20 70 6f 73 73 69 62 6c |ngth not| possibl|
|00003470| 65 22 29 0d 2c e2 05 cd | 0d 2c e2 05 cd 0d 2c ec |e").,...|.,....,.|
|00003480| 06 3d 30 0d 2d 0a 30 dd | f2 79 3a ea 76 61 25 3a |.=0.-.0.|.y:.va%:|
|00003490| e7 ac 42 25 8c f2 62 28 | 22 46 69 6c 65 20 61 6c |..B%..b(|"File al|
|000034a0| 72 65 61 64 79 20 75 70 | 20 74 6f 20 64 61 74 65 |ready up| to date|
|000034b0| 21 22 29 0d 2d 1e e5 58 | 25 3d ad 28 22 3c 56 69 |!").-..X|%=.("<Vi|
|000034c0| 64 65 6f 42 61 73 65 24 | 44 69 72 3e 2e 57 56 44 |deoBase$|Dir>.WVD|
|000034d0| 41 54 41 22 29 3a e3 63 | 25 3d 31 b8 45 25 3a f1 |ATA"):.c|%=1.E%:.|
|000034e0| 23 58 25 2c 62 24 28 63 | 25 29 3a f1 23 58 25 2c |#X%,b$(c|%):.#X%,|
|000034f0| 63 24 28 63 25 29 3a f1 | 23 58 25 2c 61 24 28 63 |c$(c%):.|#X%,a$(c|
|00003500| 25 29 3a f1 23 58 25 2c | 61 25 28 63 25 29 3a f1 |%):.#X%,|a%(c%):.|
|00003510| 23 58 25 2c 63 25 28 63 | 25 29 3a f1 23 58 25 2c |#X%,c%(c|%):.#X%,|
|00003520| 62 25 28 63 25 29 3a ed | 63 25 3a d9 23 58 25 3a |b%(c%):.|c%:.#X%:|
|00003530| 58 25 3d ad 28 22 3c 56 | 69 64 65 6f 42 61 73 65 |X%=.("<V|ideoBase|
|00003540| 24 44 69 72 3e 2e 57 56 | 46 4f 52 4d 41 54 22 29 |$Dir>.WV|FORMAT")|
|00003550| 3a f1 23 58 25 2c 6a 25 | 3a e3 63 25 3d 32 b8 31 |:.#X%,j%|:.c%=2.1|
|00003560| 30 3a f1 23 58 25 2c 76 | 61 25 3a ed 63 25 3a e3 |0:.#X%,v|a%:.c%:.|
|00003570| 63 25 3d 31 b8 4f 25 3a | f1 23 58 25 2c 64 25 28 |c%=1.O%:|.#X%,d%(|
|00003580| 63 25 29 3a f1 23 58 25 | 2c 69 25 28 63 25 29 3a |c%):.#X%|,i%(c%):|
|00003590| ed 63 25 3a d9 23 58 25 | 0d 2d e6 21 2a 53 54 41 |.c%:.#X%|.-.!*STA|
|000035a0| 4d 50 20 3c 56 69 64 65 | 6f 42 61 73 65 24 44 69 |MP <Vide|oBase$Di|
|000035b0| 72 3e 2e 57 56 44 41 54 | 41 0d 2d f0 23 2a 53 54 |r>.WVDAT|A.-.#*ST|
|000035c0| 41 4d 50 20 3c 56 69 64 | 65 6f 42 61 73 65 24 44 |AMP <Vid|eoBase$D|
|000035d0| 69 72 3e 2e 57 56 46 4f | 52 4d 41 54 0d 2d fa 0a |ir>.WVFO|RMAT.-..|
|000035e0| 42 25 3d a3 3a e1 0d 2e | 0e 04 0d 2e 22 51 dd a4 |B%=.:...|...."Q..|
|000035f0| 6c 28 47 25 29 3a ea 69 | 25 2c 76 25 2c 78 25 2c |l(G%):.i|%,v%,x%,|
|00003600| 4a 61 25 2c 45 61 25 2c | 4b 61 25 3a 76 25 3d 31 |Ja%,Ea%,|Ka%:v%=1|
|00003610| 30 30 30 3a e3 69 25 3d | 31 b8 6a 25 3a e7 c0 62 |000:.i%=|1.j%:..b|
|00003620| 24 28 69 25 29 2c 35 29 | 3d 22 2a 47 41 50 2a 22 |$(i%),5)|="*GAP*"|
|00003630| 80 62 25 28 69 25 29 3d | 47 25 8c 0d 2e 4a 10 76 |.b%(i%)=|G%...J.v|
|00003640| 25 3d 47 25 3a 4a 61 25 | 3d 69 25 0d 2e 68 05 cd |%=G%:Ja%|=i%..h..|
|00003650| 0d 2e 68 29 e7 c0 62 24 | 28 69 25 29 2c 35 29 3d |..h)..b$|(i%),5)=|
|00003660| 22 2a 47 41 50 2a 22 80 | 62 25 28 69 25 29 3e 47 |"*GAP*".|b%(i%)>G|
|00003670| 25 80 76 25 3c 3e 47 25 | 8c 0d 2e 72 0f e7 62 25 |%.v%<>G%|...r..b%|
|00003680| 28 69 25 29 3c 76 25 8c | 0d 2e 7c 14 76 25 3d 62 |(i%)<v%.|..|.v%=b|
|00003690| 25 28 69 25 29 3a 4a 61 | 25 3d 69 25 0d 2e 9a 05 |%(i%):Ja|%=i%....|
|000036a0| cd 0d 2e 9a 05 cd 0d 2e | a4 35 cc 3a e7 c0 62 24 |........|.5.:..b$|
|000036b0| 28 69 25 29 2c 35 29 3c | 3e 22 2a 47 41 50 2a 22 |(i%),5)<|>"*GAP*"|
|000036c0| 80 62 25 28 69 25 29 3d | 47 25 80 c0 61 24 28 69 |.b%(i%)=|G%..a$(i|
|000036d0| 25 29 2c 31 29 3c 3e 22 | 2a 22 8c 0d 2e cc 16 76 |%),1)<>"|*".....v|
|000036e0| 25 3d 47 25 3a 4a 61 25 | 3d 69 25 3a 69 25 3d 6a |%=G%:Ja%|=i%:i%=j|
|000036f0| 25 0d 2e f4 05 cd 0d 2e | f4 26 e7 62 25 28 69 25 |%.......|.&.b%(i%|
|00003700| 29 3e 47 25 80 76 25 3c | 3e 47 25 80 c0 61 24 28 |)>G%.v%<|>G%..a$(|
|00003710| 69 25 29 2c 31 29 3c 3e | 22 2a 22 8c 0d 2e fe 0f |i%),1)<>|"*".....|
|00003720| e7 62 25 28 69 25 29 3c | 76 25 8c 0d 2f 08 14 76 |.b%(i%)<|v%../..v|
|00003730| 25 3d 62 25 28 69 25 29 | 3a 4a 61 25 3d 69 25 0d |%=b%(i%)|:Ja%=i%.|
|00003740| 2f 26 05 cd 0d 2f 26 05 | cd 0d 2f 30 05 cd 0d 2f |/&.../&.|../0.../|
|00003750| 3a 0f ed 3a e7 76 25 3c | 31 30 30 30 8c 0d 2f 4e |:..:.v%<|1000../N|
|00003760| 17 64 25 3d 4a 61 25 3a | f2 63 28 64 25 29 3a 4b |.d%=Ja%:|.c(d%):K|
|00003770| 61 25 3d b9 0d 2f 76 05 | cd 0d 2f 76 0d e7 76 25 |a%=../v.|../v..v%|
|00003780| 3d 31 30 30 30 8c 0d 2f | 80 0f e7 6f 61 25 8c 4b |=1000../|...oa%.K|
|00003790| 61 25 3d a4 73 0d 2f 8a | 0b e7 4b 61 25 3d a3 8c |a%=.s./.|..Ka%=..|
|000037a0| 0d 2f 94 1d f2 62 28 22 | 4e 6f 20 53 70 61 63 65 |./...b("|No Space|
|000037b0| 20 41 76 61 69 6c 61 62 | 6c 65 21 22 29 0d 2f a8 | Availab|le!")./.|
|000037c0| 2c cc 3a 64 25 3d 4c 61 | 25 3a f2 63 28 64 25 29 |,.:d%=La|%:.c(d%)|
|000037d0| 3a f2 62 28 22 44 65 6c | 65 74 69 6f 6e 73 20 72 |:.b("Del|etions r|
|000037e0| 65 71 75 69 72 65 64 22 | 29 0d 2f d0 05 cd 0d 2f |equired"|)./..../|
|000037f0| d0 05 cd 0d 2f da 08 3d | 4b 61 25 0d 2f f8 54 dd |..../..=|Ka%./.T.|
|00003800| a4 6b 3a ea 4d 61 25 2c | 63 25 2c 4e 61 25 3a 4e |.k:.Ma%,|c%,Na%:N|
|00003810| 61 25 3d 30 3a 4d 61 25 | 3d bb 28 a4 61 28 71 25 |a%=0:Ma%|=.(.a(q%|
|00003820| 2c 55 25 2c 33 29 29 3a | e7 4d 61 25 3c 31 84 4d |,U%,3)):|.Ma%<1.M|
|00003830| 61 25 3e 4f 25 8c f2 62 | 28 22 49 6e 76 61 6c 69 |a%>O%..b|("Invali|
|00003840| 64 20 74 61 70 65 20 6e | 75 6d 62 65 72 22 29 0d |d tape n|umber").|
|00003850| 30 20 23 e7 64 25 28 4d | 61 25 29 3d 30 3a f2 62 |0 #.d%(M|a%)=0:.b|
|00003860| 28 22 54 61 70 65 20 6e | 6f 74 20 66 6f 75 6e 64 |("Tape n|ot found|
|00003870| 22 29 0d 30 2a 19 e3 63 | 25 3d 31 b8 6a 25 3a e7 |").0*..c|%=1.j%:.|
|00003880| 61 25 28 63 25 29 3d 4d | 61 25 8c 0d 30 3e 15 61 |a%(c%)=M|a%..0>.a|
|00003890| 25 28 63 25 29 3d 39 39 | 39 3a 4e 61 25 2b 3d 31 |%(c%)=99|9:Na%+=1|
|000038a0| 0d 30 5c 05 cd 0d 30 5c | 54 ed 63 25 3a f2 6b 3a |.0\...0\|T.c%:.k:|
|000038b0| 69 25 28 4d 61 25 29 3d | 30 3a 64 25 28 4d 61 25 |i%(Ma%)=|0:d%(Ma%|
|000038c0| 29 3d 30 3a 42 25 3d b9 | 3a 6a 25 3d 6a 25 2d 4e |)=0:B%=.|:j%=j%-N|
|000038d0| 61 25 3a c8 95 61 25 28 | 64 25 29 3e 4f 25 84 61 |a%:..a%(|d%)>O%.a|
|000038e0| 25 28 64 25 29 3d 30 3a | 64 25 2b 3d 31 3a e7 64 |%(d%)=0:|d%+=1:.d|
|000038f0| 25 3e 6a 25 8c 64 25 3d | 31 0d 30 a2 35 ce 3a f2 |%>j%.d%=|1.0.5.:.|
|00003900| 63 28 64 25 29 3a c8 99 | 22 57 69 6d 70 5f 46 6f |c(d%):..|"Wimp_Fo|
|00003910| 72 63 65 52 65 64 72 61 | 77 22 2c 69 61 25 2c 30 |rceRedra|w",ia%,0|
|00003920| 2c 30 2c 36 30 30 2c 33 | 30 30 30 3a 3d b9 0d 30 |,0,600,3|000:=..0|
|00003930| de 2b dd a4 73 3a 42 61 | 25 3d 2d 31 3a 4b 61 25 |.+..s:Ba|%=-1:Ka%|
|00003940| 3d a3 3a e3 63 25 3d 31 | b8 6a 25 3a e7 61 25 28 |=.:.c%=1|.j%:.a%(|
|00003950| 63 25 29 3c 3e 42 61 25 | 8c 0d 31 06 20 43 61 25 |c%)<>Ba%|..1. Ca%|
|00003960| 3d 30 3a 4f 61 25 3d 30 | 3a 77 61 25 3d 30 3a 42 |=0:Oa%=0|:wa%=0:B|
|00003970| 61 25 3d 61 25 28 63 25 | 29 0d 31 24 05 cd 0d 31 |a%=a%(c%|).1$...1|
|00003980| 24 15 e7 c0 61 24 28 63 | 25 29 2c 31 29 3c 3e 22 |$...a$(c|%),1)<>"|
|00003990| 2a 22 8c 0d 31 2e 32 43 | 61 25 2b 3d 62 25 28 63 |*"..1.2C|a%+=b%(c|
|000039a0| 25 29 3a 77 61 25 2b 3d | 31 3a e7 c0 62 24 28 63 |%):wa%+=|1:..b$(c|
|000039b0| 25 29 2c 35 29 3c 3e 22 | 2a 47 41 50 2a 22 8c 4f |%),5)<>"|*GAP*".O|
|000039c0| 61 25 2b 3d 31 0d 31 42 | 25 e7 43 61 25 3e 3d 47 |a%+=1.1B|%.Ca%>=G|
|000039d0| 25 3a 4c 61 25 3d 63 25 | 2d 77 61 25 2b 31 3a 63 |%:La%=c%|-wa%+1:c|
|000039e0| 25 3d 6a 25 3a 4b 61 25 | 3d b9 0d 31 4c 17 cc 3a |%=j%:Ka%|=..1L..:|
|000039f0| 77 61 25 3d 30 3a 43 61 | 25 3d 30 3a 4f 61 25 3d |wa%=0:Ca|%=0:Oa%=|
|00003a00| 30 0d 31 6a 05 cd 0d 31 | 6a d1 ed 3a 3d 4b 61 25 |0.1j...1|j..:=Ka%|
|00003a10| 3a 3a 3a e8 22 43 6f 75 | 6e 74 20 31 3a 22 3b 50 |:::."Cou|nt 1:";P|
|00003a20| 61 25 8a 31 35 2c bc 2d | 31 29 22 54 69 6d 65 20 |a%.15,.-|1)"Time |
|00003a30| 31 3a 22 3b 51 61 25 3a | e8 22 43 6f 75 6e 74 20 |1:";Qa%:|."Count |
|00003a40| 32 3a 22 3b 52 61 25 8a | 31 35 2c bc 2d 31 29 22 |2:";Ra%.|15,.-1)"|
|00003a50| 54 69 6d 65 20 32 3a 22 | 3b 53 61 25 3a e8 22 4c |Time 2:"|;Sa%:."L|
|00003a60| 65 6e 67 74 68 20 6f 66 | 20 74 61 70 65 20 28 6d |ength of| tape (m|
|00003a70| 69 6e 73 29 3a 22 3b 4c | 25 3a e8 22 53 74 65 70 |ins):";L|%:."Step|
|00003a80| 20 53 69 7a 65 20 28 6d | 69 6e 73 29 3a 22 3b 53 | Size (m|ins):";S|
|00003a90| 25 3a f1 22 4f 75 74 70 | 75 74 20 74 6f 20 70 72 |%:."Outp|ut to pr|
|00003aa0| 69 6e 74 65 72 3f 20 28 | 59 2f 4e 29 20 22 3b 3a |inter? (|Y/N) ";:|
|00003ab0| f5 41 24 3d bd 28 a5 80 | 39 35 29 3a fd a7 22 59 |.A$=.(..|95):.."Y|
|00003ac0| 4e 22 2c 41 24 29 3e 30 | 3a f1 41 24 3a e7 41 24 |N",A$)>0|:.A$:.A$|
|00003ad0| 3d 22 59 22 8c ef 32 0d | 32 00 4d f2 44 28 50 61 |="Y"..2.|2.M.D(Pa|
|00003ae0| 25 5e 32 2c 50 61 25 2c | 51 61 25 2c 52 61 25 5e |%^2,Pa%,|Qa%,Ra%^|
|00003af0| 32 2c 52 61 25 2c 53 61 | 25 29 3a 41 3d 58 3a 42 |2,Ra%,Sa|%):A=X:B|
|00003b00| 3d 59 3a f1 22 41 3d 22 | 3b 41 22 42 3d 22 3b 42 |=Y:."A="|;A"B=";B|
|00003b10| 27 3a 49 25 3d 53 25 3a | e7 a7 22 59 79 22 2c 41 |':I%=S%:|.."Yy",A|
|00003b20| 24 29 ef 32 0d 32 32 57 | f1 27 22 54 61 70 65 20 |$).2.22W|.'"Tape |
|00003b30| 4c 65 6e 67 74 68 20 22 | 3b 4c 25 22 20 6d 69 6e |Length "|;L%" min|
|00003b40| 73 22 3a e3 4e 25 3d 49 | 25 b8 4c 25 88 49 25 3a |s":.N%=I|%.L%.I%:|
|00003b50| 54 61 25 3d a4 65 28 4e | 25 2c 41 2c 42 2c 52 61 |Ta%=.e(N|%,A,B,Ra|
|00003b60| 25 2c 53 61 25 29 3a f1 | 4e 25 22 20 6d 69 6e 73 |%,Sa%):.|N%" mins|
|00003b70| 20 22 2c 54 61 25 3a ed | 3a ef 33 0d 32 64 05 e0 | ",Ta%:.|:.3.2d..|
|00003b80| 0d 32 6e 04 0d 32 82 5b | dd a4 65 28 68 2c 41 2c |.2n..2.[|..e(h,A,|
|00003b90| 42 2c 52 61 25 2c 53 61 | 25 29 3a ea 43 2c 4b 3a |B,Ra%,Sa|%):.C,K:|
|00003ba0| 4b 3d 52 61 25 2f 53 61 | 25 3a 43 3d 68 2a 4b 3a |K=Ra%/Sa|%:C=h*K:|
|00003bb0| f5 54 3d 28 41 2a 43 2b | 42 29 2a 43 3a 43 3d 43 |.T=(A*C+|B)*C:C=C|
|00003bc0| 2b 28 68 2d 54 29 2a 4b | 3a fd 94 28 68 2d 54 29 |+(h-T)*K|:..(h-T)|
|00003bd0| 3c 30 2e 30 31 3a 3d a8 | 28 43 2b 30 2e 35 29 0d |<0.01:=.|(C+0.5).|
|00003be0| 32 be 3f dd f2 44 28 44 | 2c 45 2c 46 2c 47 2c 48 |2.?..D(D|,E,F,G,H|
|00003bf0| 2c 49 29 3a ea 4b 3a 4b | 3d 44 2a 48 2d 45 2a 47 |,I):.K:K|=D*H-E*G|
|00003c00| 3a 58 3d 28 46 2a 48 2d | 45 2a 49 29 2f 4b 3a 59 |:X=(F*H-|E*I)/K:Y|
|00003c10| 3d 28 44 2a 49 2d 46 2a | 47 29 2f 4b 3a e1 0d 32 |=(D*I-F*|G)/K:..2|
|00003c20| f0 04 0d 33 04 4f dd a4 | 72 28 4d 25 2c 55 61 25 |...3.O..|r(M%,Ua%|
|00003c30| 2c 4a 25 2c 56 61 25 2c | 57 61 25 29 3a ea 58 2c |,J%,Va%,|Wa%):.X,|
|00003c40| 59 3a f2 44 28 4d 25 5e | 32 2c 4d 25 2c 55 61 25 |Y:.D(M%^|2,M%,Ua%|
|00003c50| 2c 4a 25 5e 32 2c 4a 25 | 2c 56 61 25 29 3a 3d a4 |,J%^2,J%|,Va%):=.|
|00003c60| 65 28 57 61 25 2c 58 2c | 59 2c 4a 25 2c 56 61 25 |e(Wa%,X,|Y,J%,Va%|
|00003c70| 29 0d 33 86 30 dd a4 64 | 28 61 24 2c 75 24 29 3a |).3.0..d|(a$,u$):|
|00003c80| c8 95 c2 61 24 2c 31 29 | 3d 75 24 3a 61 24 3d c0 |...a$,1)|=u$:a$=.|
|00003c90| 61 24 2c a9 28 61 24 29 | 2d 31 29 3a ce 3a 3d 61 |a$,.(a$)|-1):.:=a|
|00003ca0| 24 0d 34 44 ee dd a4 67 | 28 6b 2c 58 61 25 2c 59 |$.4D...g|(k,Xa%,Y|
|00003cb0| 61 25 2c 5a 61 25 2c 5f | 61 25 2c 60 61 25 2c 6c |a%,Za%,_|a%,`a%,l|
|00003cc0| 25 2c 62 25 2c 72 25 2c | 74 25 29 3a 71 25 21 30 |%,b%,r%,|t%):q%!0|
|00003cd0| 3d 6c 25 3a 71 25 21 34 | 3d 62 25 3a 71 25 21 38 |=l%:q%!4|=b%:q%!8|
|00003ce0| 3d 72 25 3a 71 25 21 31 | 32 3d 74 25 3a 71 25 21 |=r%:q%!1|2=t%:q%!|
|00003cf0| 31 36 3d 30 3a 71 25 21 | 32 30 3d 60 61 25 3a 71 |16=0:q%!|20=`a%:q|
|00003d00| 25 21 32 34 3d 2d 31 3a | 71 25 21 32 38 3d 58 61 |%!24=-1:|q%!28=Xa|
|00003d10| 25 3a 71 25 3f 33 32 3d | 52 3a 71 25 3f 33 33 3d |%:q%?32=|R:q%?33=|
|00003d20| 53 3a 71 25 3f 33 34 3d | 59 61 25 3a 71 25 3f 33 |S:q%?34=|Ya%:q%?3|
|00003d30| 35 3d 5a 61 25 3a 71 25 | 3f 33 36 3d 50 3a 71 25 |5=Za%:q%|?36=P:q%|
|00003d40| 3f 33 37 3d 4f 3a 71 25 | 3f 33 38 3d 51 3a 71 25 |?37=O:q%|?38=Q:q%|
|00003d50| 3f 33 39 3d 30 3a 71 25 | 21 34 30 3d 30 3a 71 25 |?39=0:q%|!40=0:q%|
|00003d60| 21 34 34 3d 30 3a 71 25 | 21 34 38 3d 5f 61 25 3a |!44=0:q%|!48=_a%:|
|00003d70| 71 25 21 35 32 3d 60 61 | 25 3a 71 25 21 35 36 3d |q%!52=`a|%:q%!56=|
|00003d80| 33 31 37 3a 71 25 21 36 | 30 3d 31 32 32 38 38 0d |317:q%!6|0=12288.|
|00003d90| 34 80 50 71 25 21 36 38 | 3d 31 3a 71 25 21 37 32 |4.Pq%!68|=1:q%!72|
|00003da0| 3d 6b 3a 71 25 21 37 36 | 3d 2d 31 3a 71 25 21 38 |=k:q%!76|=-1:q%!8|
|00003db0| 30 3d a9 24 6b 3a 71 25 | 21 38 34 3d 30 3a c8 99 |0=.$k:q%|!84=0:..|
|00003dc0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00003dd0| 6f 77 22 2c 30 2c 71 25 | b8 7a 25 3a 3d 7a 25 0d |ow",0,q%|.z%:=z%.|
|00003de0| 34 ee 3e dd f2 6d 28 7a | 25 2c 61 62 25 2c 62 62 |4.>..m(z|%,ab%,bb|
|00003df0| 25 29 3a 71 25 21 30 3d | 7a 25 3a e7 ac 61 62 25 |%):q%!0=|z%:..ab%|
|00003e00| 8c c8 99 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |..."Wimp|_GetWind|
|00003e10| 6f 77 53 74 61 74 65 22 | 2c 30 2c 71 25 0d 35 02 |owState"|,0,q%.5.|
|00003e20| 11 e7 62 62 25 8c 71 25 | 21 32 38 3d 2d 31 0d 35 |..bb%.q%|!28=-1.5|
|00003e30| 0c 1e c8 99 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |...."Wim|p_OpenWi|
|00003e40| 6e 64 6f 77 22 2c 30 2c | 71 25 3a e1 0d 35 20 14 |ndow",0,|q%:..5 .|
|00003e50| dd f2 6e 28 7a 25 29 3a | e7 a4 6a 28 7a 25 29 8c |..n(z%):|..j(z%).|
|00003e60| 0d 35 3e 25 71 25 21 30 | 3d 7a 25 3a c8 99 22 57 |.5>%q%!0|=z%:.."W|
|00003e70| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00003e80| 2c 30 2c 71 25 0d 35 5c | 05 cd 0d 35 5c 05 e1 0d |,0,q%.5\|...5\...|
|00003e90| 35 66 28 dd a4 68 28 63 | 62 25 29 3a c8 99 22 57 |5f(..h(c|b%):.."W|
|00003ea0| 69 6d 70 5f 50 6f 6c 6c | 22 2c 63 62 25 2c 71 25 |imp_Poll|",cb%,q%|
|00003eb0| b8 61 25 3a 3d 61 25 0d | 35 fc 13 dd f2 4a 28 64 |.a%:=a%.|5....J(d|
|00003ec0| 62 25 29 3a c8 8e 64 62 | 25 ca 0d 36 06 09 c9 30 |b%):..db|%..6...0|
|00003ed0| 3a f2 59 0d 36 1a 0f c9 | 31 3a f2 7a 28 71 25 21 |:.Y.6...|1:.z(q%!|
|00003ee0| 30 29 0d 36 24 13 c9 32 | 3a f2 6d 28 71 25 21 30 |0).6$..2|:.m(q%!0|
|00003ef0| 2c b9 2c 30 29 0d 36 2e | 0f c9 33 3a f2 6e 28 71 |,.,0).6.|..3:.n(q|
|00003f00| 25 21 30 29 0d 36 38 06 | c9 34 0d 36 42 06 c9 35 |%!0).68.|.4.6B..5|
|00003f10| 0d 36 4c 2a c9 36 3a f2 | 4b 28 21 71 25 2c 71 25 |.6L*.6:.|K(!q%,q%|
|00003f20| 21 34 2c 71 25 21 38 2c | 71 25 21 31 32 2c 71 25 |!4,q%!8,|q%!12,q%|
|00003f30| 21 31 36 2c 71 25 21 32 | 30 29 0d 36 56 09 c9 38 |!16,q%!2|0).6V..8|
|00003f40| 3a f2 60 0d 36 60 16 c9 | 39 3a e7 69 24 3c 3e 22 |:.`.6`..|9:.i$<>"|
|00003f50| 22 8c f2 64 61 28 69 24 | 29 0d 36 60 12 c9 31 37 |"..da(i$|).6`..17|
|00003f60| 2c 31 38 3a f2 65 61 28 | 71 25 29 0d 36 74 05 cb |,18:.ea(|q%).6t..|
|00003f70| 0d 36 74 05 e1 0d 36 7e | 16 dd f2 64 61 28 76 24 |.6t...6~|...da(v$|
|00003f80| 29 3a ea 73 25 3a c8 8e | 76 24 ca 0d 36 a6 11 c9 |):.s%:..|v$..6...|
|00003f90| 22 6d 61 69 6e 22 3a 73 | 25 3d a4 6f 0d 36 ba 12 |"main":s|%=.o.6..|
|00003fa0| c9 22 73 69 63 6f 6e 22 | 3a 73 25 3d a4 70 0d 36 |."sicon"|:s%=.p.6|
|00003fb0| c4 05 cb 0d 36 c4 05 e1 | 0d 36 ce 15 dd f2 65 61 |....6...|.6....ea|
|00003fc0| 28 71 25 29 3a c8 8e 71 | 25 21 31 36 ca 0d 36 ec |(q%):..q|%!16..6.|
|00003fd0| 1b c9 30 3a c8 99 22 57 | 69 6d 70 5f 43 6c 6f 73 |..0:.."W|imp_Clos|
|00003fe0| 65 44 6f 77 6e 22 3a e0 | 0d 36 f6 11 c9 31 32 38 |eDown":.|.6...128|
|00003ff0| 32 3a f2 66 61 28 71 25 | 29 0d 37 0a 05 cb 0d 37 |2:.fa(q%|).7....7|
|00004000| 0a 05 e1 0d 37 14 2d dd | f2 5a 28 62 2c f8 78 25 |....7.-.|.Z(b,.x%|
|00004010| 2c f8 79 25 29 3a 78 25 | 3d 62 21 30 2d 62 21 31 |,.y%):x%|=b!0-b!1|
|00004020| 36 3a 79 25 3d 62 21 31 | 32 2d 62 21 32 30 3a e1 |6:y%=b!1|2-b!20:.|
|00004030| 0d 37 5a 8c dd a4 66 28 | 65 62 25 2c 66 62 25 2c |.7Z...f(|eb%,fb%,|
|00004040| 67 62 25 2c 68 62 25 2c | 69 62 25 2c 6a 62 25 2c |gb%,hb%,|ib%,jb%,|
|00004050| 6b 62 25 2c 6c 62 25 2c | 67 24 29 3a ea 69 25 3a |kb%,lb%,|g$):.i%:|
|00004060| 71 25 21 30 3d 65 62 25 | 3a 71 25 21 34 3d 66 62 |q%!0=eb%|:q%!4=fb|
|00004070| 25 3a 71 25 21 38 3d 67 | 62 25 3a 71 25 21 31 32 |%:q%!8=g|b%:q%!12|
|00004080| 3d 66 62 25 2b 68 62 25 | 3a 71 25 21 31 36 3d 67 |=fb%+hb%|:q%!16=g|
|00004090| 62 25 2b 69 62 25 3a 71 | 25 21 32 30 3d 6c 62 25 |b%+ib%:q|%!20=lb%|
|000040a0| 84 6b 62 25 3c 3c 32 38 | 84 6a 62 25 3c 3c 32 34 |.kb%<<28|.jb%<<24|
|000040b0| 3a e7 71 25 21 32 30 80 | 32 35 36 8c 0d 37 aa 3e |:.q%!20.|256..7.>|
|000040c0| 69 25 3d a7 67 24 2c 22 | 2c 22 29 3a 71 25 21 32 |i%=.g$,"|,"):q%!2|
|000040d0| 34 3d a0 28 c0 67 24 2c | 69 25 2d 31 29 29 3a 71 |4=.(.g$,|i%-1)):q|
|000040e0| 25 21 32 38 3d 2d 31 3a | 71 25 21 33 32 3d a0 28 |%!28=-1:|q%!32=.(|
|000040f0| c1 67 24 2c 69 25 2b 31 | 29 29 0d 37 dc 16 cc 3a |.g$,i%+1|)).7...:|
|00004100| 24 28 71 25 2b 32 34 29 | 3d c0 67 24 2c 31 31 29 |$(q%+24)|=.g$,11)|
|00004110| 0d 37 f0 05 cd 0d 37 f0 | 23 c8 99 22 57 69 6d 70 |.7....7.|#.."Wimp|
|00004120| 5f 43 72 65 61 74 65 49 | 63 6f 6e 22 2c 30 2c 71 |_CreateI|con",0,q|
|00004130| 25 b8 69 25 3a 3d 69 25 | 0d 38 18 19 dd f2 70 28 |%.i%:=i%|.8....p(|
|00004140| 7a 25 2c 6d 62 25 29 3a | e7 6d 62 25 3c 3e 2d 31 |z%,mb%):|.mb%<>-1|
|00004150| 8c 0d 38 22 43 71 25 21 | 30 3d 7a 25 3a 71 25 21 |..8"Cq%!|0=z%:q%!|
|00004160| 34 3d 6d 62 25 3a 71 25 | 21 38 3d 32 30 39 37 31 |4=mb%:q%|!8=20971|
|00004170| 35 32 3a 71 25 21 31 32 | 3d 30 3a c8 99 22 57 69 |52:q%!12|=0:.."Wi|
|00004180| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00004190| 2c 2c 71 25 0d 38 4a 05 | cd 0d 38 4a 05 e1 0d 38 |,,q%.8J.|..8J...8|
|000041a0| 54 50 dd f2 61 28 71 25 | 2c 43 25 2c 51 25 2c 67 |TP..a(q%|,C%,Q%,g|
|000041b0| 24 2c 70 29 3a 71 25 21 | 30 3d 43 25 3a 71 25 21 |$,p):q%!|0=C%:q%!|
|000041c0| 34 3d 51 25 3a c8 99 22 | 57 69 6d 70 5f 47 65 74 |4=Q%:.."|Wimp_Get|
|000041d0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 25 3a 24 |IconStat|e",,q%:$|
|000041e0| 28 71 25 21 32 38 29 3d | 67 24 3a e7 70 8c 0d 38 |(q%!28)=|g$:.p..8|
|000041f0| ea 32 c8 99 22 57 69 6d | 70 5f 46 6f 72 63 65 52 |.2.."Wim|p_ForceR|
|00004200| 65 64 72 61 77 22 2c 43 | 25 2c 71 25 21 38 2c 71 |edraw",C|%,q%!8,q|
|00004210| 25 21 31 32 2c 71 25 21 | 31 36 2c 71 25 21 32 30 |%!12,q%!|16,q%!20|
|00004220| 0d 38 fe 05 cd 0d 38 fe | 05 e1 0d 39 08 58 dd f2 |.8....8.|...9.X..|
|00004230| 66 28 62 2c 43 25 2c 66 | 25 2c 6e 62 25 29 3a 21 |f(b,C%,f|%,nb%):!|
|00004240| 62 3d 43 25 3a 62 21 34 | 3d 66 25 3a 62 21 38 3d |b=C%:b!4|=f%:b!8=|
|00004250| 6e 62 25 3c 3c 32 38 3a | 62 21 31 32 3d 26 46 30 |nb%<<28:|b!12=&F0|
|00004260| 30 30 30 30 30 30 3a c8 | 99 22 57 69 6d 70 5f 53 |000000:.|."Wimp_S|
|00004270| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 30 2c 62 |etIconSt|ate",0,b|
|00004280| 3a e1 0d 39 3a 57 dd f2 | 65 28 62 2c 43 25 2c 66 |:..9:W..|e(b,C%,f|
|00004290| 25 2c 6e 62 25 29 3a 21 | 62 3d 43 25 3a 62 21 34 |%,nb%):!|b=C%:b!4|
|000042a0| 3d 66 25 3a 62 21 38 3d | 6e 62 25 3c 3c 32 34 3a |=f%:b!8=|nb%<<24:|
|000042b0| 62 21 31 32 3d 26 46 30 | 30 30 30 30 30 3a c8 99 |b!12=&F0|00000:..|
|000042c0| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|000042d0| 74 65 22 2c 30 2c 62 3a | e1 0d 39 6c d5 dd a4 62 |te",0,b:|..9l...b|
|000042e0| 28 62 2c 43 25 2c 51 25 | 2c 77 24 2c 70 29 3a 62 |(b,C%,Q%|,w$,p):b|
|000042f0| 21 30 3d 43 25 3a 62 21 | 34 3d 51 25 3a c8 99 22 |!0=C%:b!|4=Q%:.."|
|00004300| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00004310| 65 22 2c 2c 62 3a c8 99 | 22 57 69 6d 70 5f 44 65 |e",,b:..|"Wimp_De|
|00004320| 6c 65 74 65 49 63 6f 6e | 22 2c 2c 62 3a 62 21 34 |leteIcon|",,b:b!4|
|00004330| 3d 62 21 38 3a 62 21 38 | 3d 62 21 31 32 3a 62 21 |=b!8:b!8|=b!12:b!|
|00004340| 31 32 3d 62 21 31 36 3a | 62 21 31 36 3d 62 21 32 |12=b!16:|b!16=b!2|
|00004350| 30 3a 62 21 32 30 3d 62 | 21 32 34 3a 24 28 62 2b |0:b!20=b|!24:$(b+|
|00004360| 32 34 29 3d 77 24 3a c8 | 99 22 57 69 6d 70 5f 43 |24)=w$:.|."Wimp_C|
|00004370| 72 65 61 74 65 49 63 6f | 6e 22 2c 2c 62 b8 51 25 |reateIco|n",,b.Q%|
|00004380| 3a e7 70 8c c8 99 22 57 | 69 6d 70 5f 46 6f 72 63 |:.p..."W|imp_Forc|
|00004390| 65 52 65 64 72 61 77 22 | 2c 62 21 30 2c 62 21 34 |eRedraw"|,b!0,b!4|
|000043a0| 2c 62 21 38 2c 62 21 31 | 32 2c 62 21 31 36 0d 39 |,b!8,b!1|2,b!16.9|
|000043b0| bc 07 3d 51 25 0d 39 da | 45 dd a4 61 28 71 25 2c |..=Q%.9.|E..a(q%,|
|000043c0| 43 25 2c 51 25 29 3a 71 | 25 21 30 3d 43 25 3a 71 |C%,Q%):q|%!0=C%:q|
|000043d0| 25 21 34 3d 51 25 3a c8 | 99 22 57 69 6d 70 5f 47 |%!4=Q%:.|."Wimp_G|
|000043e0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 71 25 |etIconSt|ate",,q%|
|000043f0| 3a 3d 24 28 71 25 21 32 | 38 29 0d 3a 16 4e dd f2 |:=$(q%!2|8).:.N..|
|00004400| 64 28 43 25 2c 51 25 2c | 6f 62 25 2c 70 62 25 2c |d(C%,Q%,|ob%,pb%,|
|00004410| 69 62 25 2c 44 25 29 3a | c8 99 22 57 69 6d 70 5f |ib%,D%):|.."Wimp_|
|00004420| 53 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |SetCaret|Position|
|00004430| 22 2c 43 25 2c 51 25 2c | 6f 62 25 2c 70 62 25 2c |",C%,Q%,|ob%,pb%,|
|00004440| 69 62 25 2c 44 25 3a e1 | 0d 3a 2a 79 dd f2 5f 3a |ib%,D%:.|.:*y.._:|
|00004450| 66 61 3d 71 25 21 33 36 | 3a 67 61 3d 71 25 21 34 |fa=q%!36|:ga=q%!4|
|00004460| 30 3a 68 61 3d 71 25 21 | 34 3a 69 61 3d 71 25 21 |0:ha=q%!|4:ia=q%!|
|00004470| 38 3a 6a 61 3d 71 25 21 | 31 32 3a 6b 61 3d 71 25 |8:ja=q%!|12:ka=q%|
|00004480| 21 31 36 3a 4a 3d 71 25 | 21 32 30 3a 4c 3d 71 25 |!16:J=q%|!20:L=q%|
|00004490| 21 32 34 3a 6c 61 3d 6a | 61 2d 68 61 3a 6d 61 3d |!24:la=j|a-ha:ma=|
|000044a0| 6b 61 2d 69 61 3a 6e 61 | 3d 4a 3a 6f 61 3d 4a 2b |ka-ia:na|=J:oa=J+|
|000044b0| 6c 61 3a 70 61 3d 4c 3a | 71 61 3d 4c 2d 6d 61 3a |la:pa=L:|qa=L-ma:|
|000044c0| e1 0d 3b 60 44 dd f2 67 | 28 78 24 2c 6e 2c 77 2c |..;`D..g|(x$,n,w,|
|000044d0| 74 2c 64 2c 73 2c 6a 2c | 72 61 2c 6c 29 3a 64 24 |t,d,s,j,|ra,l):d$|
|000044e0| 28 6e 29 3d 78 24 3a 61 | 28 6e 29 3d 30 3a e7 77 |(n)=x$:a|(n)=0:.w|
|000044f0| 8c 61 28 6e 29 3d 61 28 | 6e 29 84 62 61 3a 6a 3d |.a(n)=a(|n).ba:j=|
|00004500| 6a 84 32 35 36 0d 3b 92 | 12 e7 74 8c 61 28 6e 29 |j.256.;.|..t.a(n)|
|00004510| 3d 61 28 6e 29 84 5f 0d | 3b 9c 12 e7 64 8c 61 28 |=a(n)._.|;...d.a(|
|00004520| 6e 29 3d 61 28 6e 29 84 | 60 0d 3b a6 12 e7 6c 8c |n)=a(n).|`.;...l.|
|00004530| 61 28 6e 29 3d 61 28 6e | 29 84 75 0d 3b b0 0d e7 |a(n)=a(n|).u.;...|
|00004540| 73 8c 6a 3d 6a 84 63 61 | 0d 3b ba 14 63 28 6e 29 |s.j=j.ca|.;..c(n)|
|00004550| 3d 6a 3a 62 28 6e 29 3d | 72 61 3a e1 0d 3b d8 b6 |=j:b(n)=|ra:..;..|
|00004560| dd f2 42 28 6d 24 2c 6e | 2c 68 62 25 2c 78 2c 79 |..B(m$,n|,hb%,x,y|
|00004570| 29 3a 4b 25 3d 63 61 25 | 3a 72 3d 30 3a 71 3d 30 |):K%=ca%|:r=0:q=0|
|00004580| 3a f5 3a 65 28 72 29 3d | 4b 25 3a 72 2b 3d 31 3a |:.:e(r)=|K%:r+=1:|
|00004590| 24 4b 25 3d 6d 24 3a 4b | 25 3f 31 32 3d 37 3a 4b |$K%=m$:K|%?12=7:K|
|000045a0| 25 3f 31 33 3d 32 3a 4b | 25 3f 31 34 3d 37 3a 4b |%?13=2:K|%?14=7:K|
|000045b0| 25 3f 31 35 3d 30 3a 4b | 25 21 31 36 3d 68 62 25 |%?15=0:K|%!16=hb%|
|000045c0| 3a 4b 25 21 32 30 3d 34 | 30 3a 4b 25 21 32 34 3d |:K%!20=4|0:K%!24=|
|000045d0| 31 30 3a 66 3d 4b 25 2b | 32 38 3a f5 3a 66 21 30 |10:f=K%+|28:.:f!0|
|000045e0| 3d 61 28 71 29 3a 64 28 | 71 29 3d 66 2b 34 3a 66 |=a(q):d(|q)=f+4:f|
|000045f0| 21 38 3d 63 28 71 29 84 | 30 3c 3c 32 38 84 37 3c |!8=c(q).|0<<28.7<|
|00004600| 3c 32 34 3a e7 28 63 28 | 71 29 80 32 35 36 29 3d |<24:.(c(|q).256)=|
|00004610| 30 8c 0d 3c a0 11 24 28 | 66 2b 31 32 29 3d 64 24 |0..<..$(|f+12)=d$|
|00004620| 28 71 29 0d 3c b4 4a cc | 3a 4d 3d a7 64 24 28 71 |(q).<.J.|:M=.d$(q|
|00004630| 29 2c 22 28 22 29 3a 66 | 21 31 32 3d a0 28 c0 64 |),"("):f|!12=.(.d|
|00004640| 24 28 71 29 2c 4d 2d 31 | 29 29 3a 66 21 31 36 3d |$(q),M-1|)):f!16=|
|00004650| 2d 31 3a 66 21 32 30 3d | a0 28 c2 64 24 28 71 29 |-1:f!20=|.(.d$(q)|
|00004660| 2c a9 28 64 24 28 71 29 | 29 2d 4d 29 29 0d 3c e6 |,.(d$(q)|)-M)).<.|
|00004670| 05 cd 0d 3c e6 35 66 2b | 3d 32 34 3a 71 2b 3d 31 |...<.5f+|=24:q+=1|
|00004680| 3a fd 28 61 28 71 2d 31 | 29 80 75 29 3e 30 3a 4b |:.(a(q-1|).u)>0:K|
|00004690| 25 3d 66 3a e7 71 3c 3e | 6e 8c 6d 24 3d 64 24 28 |%=f:.q<>|n.m$=d$(|
|000046a0| 71 29 3a 71 2b 3d 31 0d | 3d 0e 21 fd 71 3d 6e 3a |q):q+=1.|=.!.q=n:|
|000046b0| e3 71 3d 30 b8 6e 2d 31 | 3a e7 62 28 71 29 3e 30 |.q=0.n-1|:.b(q)>0|
|000046c0| 80 62 28 71 29 3c 72 8c | 0d 3d 36 11 21 64 28 71 |.b(q)<r.|.=6.!d(q|
|000046d0| 29 3d 65 28 62 28 71 29 | 29 0d 3d 4a 10 cc 3a 21 |)=e(b(q)|).=J..:!|
|000046e0| 64 28 71 29 3d 62 28 71 | 29 0d 3d 68 05 cd 0d 3d |d(q)=b(q|).=h...=|
|000046f0| 68 25 ed 71 3a c8 99 22 | 57 69 6d 70 5f 43 72 65 |h%.q:.."|Wimp_Cre|
|00004700| 61 74 65 4d 65 6e 75 22 | 2c 2c 63 61 25 2c 78 2c |ateMenu"|,,ca%,x,|
|00004710| 79 3a e1 0d 3d 86 27 dd | f2 47 28 79 24 29 3a c8 |y:..=.'.|.G(y$):.|
|00004720| 99 22 57 69 6d 70 5f 4f | 70 65 6e 54 65 6d 70 6c |."Wimp_O|penTempl|
|00004730| 61 74 65 22 2c 2c 79 24 | 3a e1 0d 3d cc 53 dd f2 |ate",,y$|:..=.S..|
|00004740| 68 28 7a 24 29 3a ea 71 | 62 25 2c 72 62 25 2c 78 |h(z$):.q|b%,rb%,x|
|00004750| 25 3a c8 99 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |%:.."Wim|p_LoadTe|
|00004760| 6d 70 6c 61 74 65 22 2c | 2c 71 25 2c 65 61 25 2c |mplate",|,q%,ea%,|
|00004770| 66 61 25 2c 2d 31 2c 7a | 24 2c 30 b8 71 62 25 2c |fa%,-1,z|$,0.qb%,|
|00004780| 2c 65 61 25 2c 2c 2c 2c | 72 62 25 3a e1 0d 3d fe |,ea%,,,,|rb%:..=.|
|00004790| 20 dd f2 48 3a c8 99 22 | 57 69 6d 70 5f 43 6c 6f | ..H:.."|Wimp_Clo|
|000047a0| 73 65 54 65 6d 70 6c 61 | 74 65 22 3a e1 0d 3e 26 |seTempla|te":..>&|
|000047b0| 26 dd f2 6f 28 78 25 2c | 79 25 2c 77 25 2c 68 25 |&..o(x%,|y%,w%,h%|
|000047c0| 29 3a c8 97 c8 93 78 25 | 2c 79 25 2c 77 25 2c 68 |):....x%|,y%,w%,h|
|000047d0| 25 3a e1 0d 3e 62 4f dd | f2 41 28 62 2c 43 25 29 |%:..>bO.|.A(b,C%)|
|000047e0| 3a 62 21 30 3d 43 25 3a | c8 99 22 57 69 6d 70 5f |:b!0=C%:|.."Wimp_|
|000047f0| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00004800| 2c 62 3a f2 6f 28 62 21 | 34 2c 62 21 38 2c 62 21 |,b:.o(b!|4,b!8,b!|
|00004810| 31 32 2d 62 21 34 2c 62 | 21 31 36 2d 62 21 38 29 |12-b!4,b|!16-b!8)|
|00004820| 3a e1 0d 3e 94 19 dd f2 | 66 61 28 71 25 29 3a ea |:..>....|fa(q%):.|
|00004830| 74 24 3a c8 8e 71 25 21 | 33 32 ca 0d 3f 2a 9c c9 |t$:..q%!|32..?*..|
|00004840| 2d 32 3a 74 24 3d 22 54 | 68 69 73 20 69 73 20 74 |-2:t$="T|his is t|
|00004850| 68 65 20 56 69 64 65 6f | 42 61 73 65 20 69 63 6f |he Video|Base ico|
|00004860| 6e 2e 7c 4d 43 6c 69 63 | 6b 20 53 45 4c 45 43 54 |n.|MClic|k SELECT|
|00004870| 20 6f 6e 20 74 68 69 73 | 20 74 6f 20 6f 70 65 6e | on this| to open|
|00004880| 20 74 68 65 20 6d 61 69 | 6e 20 76 69 64 65 6f 62 | the mai|n videob|
|00004890| 61 73 65 20 77 69 6e 64 | 6f 77 2e 7c 4d 43 6c 69 |ase wind|ow.|MCli|
|000048a0| 63 6b 20 4d 45 4e 55 20 | 74 6f 20 6f 62 74 61 69 |ck MENU |to obtai|
|000048b0| 6e 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 6f 72 |n inform|ation or|
|000048c0| 20 71 75 69 74 20 74 68 | 65 20 61 70 70 6c 69 63 | quit th|e applic|
|000048d0| 61 74 69 6f 6e 2e 22 0d | 3f 48 10 c9 6b 25 3a c8 |ation.".|?H..k%:.|
|000048e0| 8e 71 25 21 33 36 ca 0d | 3f 52 46 c9 31 31 3a 74 |.q%!36..|?RF.11:t|
|000048f0| 24 3d 22 43 49 69 63 6b | 69 6e 67 20 53 45 4c 45 |$="CIick|ing SELE|
|00004900| 43 54 20 6f 6e 20 74 68 | 69 73 20 69 63 6f 6e 20 |CT on th|is icon |
|00004910| 61 6c 6c 6f 77 73 20 65 | 64 69 74 69 6e 67 20 6f |allows e|diting o|
|00004920| 66 20 74 68 65 20 74 69 | 74 6c 65 2e 22 0d 3f 70 |f the ti|tle.".?p|
|00004930| 48 c9 31 32 3a 74 24 3d | 22 43 49 69 63 6b 69 6e |H.12:t$=|"CIickin|
|00004940| 67 20 53 45 4c 45 43 54 | 20 6f 6e 20 74 68 69 73 |g SELECT| on this|
|00004950| 20 69 63 6f 6e 20 61 6c | 6c 6f 77 73 20 65 64 69 | icon al|lows edi|
|00004960| 74 69 6e 67 20 6f 66 20 | 74 68 65 20 73 75 62 6a |ting of |the subj|
|00004970| 65 63 74 2e 22 0d 3f 84 | 58 c9 31 34 3a 74 24 3d |ect.".?.|X.14:t$=|
|00004980| 22 43 49 69 63 6b 69 6e | 67 20 53 45 4c 45 43 54 |"CIickin|g SELECT|
|00004990| 20 6f 6e 20 74 68 69 73 | 20 69 63 6f 6e 20 61 6c | on this| icon al|
|000049a0| 6c 6f 77 73 20 65 64 69 | 74 69 6e 67 20 6f 66 20 |lows edi|ting of |
|000049b0| 74 68 65 20 6c 65 6e 67 | 74 68 20 6f 66 20 74 68 |the leng|th of th|
|000049c0| 65 20 72 65 63 6f 72 64 | 69 6e 67 2e 22 0d 3f 98 |e record|ing.".?.|
|000049d0| 6b c9 31 36 3a 74 24 3d | 22 43 49 69 63 6b 69 6e |k.16:t$=|"CIickin|
|000049e0| 67 20 53 45 4c 45 43 54 | 20 6f 6e 20 74 68 69 73 |g SELECT| on this|
|000049f0| 20 69 63 6f 6e 20 61 6c | 6c 6f 77 73 20 65 64 69 | icon al|lows edi|
|00004a00| 74 69 6e 67 20 6f 66 20 | 74 68 65 20 63 6f 75 6e |ting of |the coun|
|00004a10| 74 65 72 20 6e 75 6d 62 | 65 72 20 61 74 20 74 68 |ter numb|er at th|
|00004a20| 65 20 65 6e 64 20 6f 66 | 20 74 68 65 20 72 65 63 |e end of| the rec|
|00004a30| 6f 72 64 69 6e 67 2e 22 | 0d 3f ac 54 c9 32 32 3a |ording."|.?.T.22:|
|00004a40| 74 24 3d 22 43 6c 69 63 | 6b 69 6e 67 20 53 45 4c |t$="Clic|king SEL|
|00004a50| 45 43 54 20 6f 6e 20 74 | 68 69 73 20 69 63 6f 6e |ECT on t|his icon|
|00004a60| 20 64 69 73 70 6c 61 79 | 73 20 74 68 65 20 66 69 | display|s the fi|
|00004a70| 72 73 74 20 72 65 63 6f | 72 64 20 69 6e 20 74 68 |rst reco|rd in th|
|00004a80| 65 20 64 61 74 61 66 69 | 6c 65 2e 22 0d 3f c0 ca |e datafi|le.".?..|
|00004a90| c9 31 37 3a 74 24 3d 22 | 43 6c 69 63 6b 69 6e 67 |.17:t$="|Clicking|
|00004aa0| 20 53 45 4c 45 43 54 20 | 6f 6e 20 74 68 69 73 20 | SELECT |on this |
|00004ab0| 69 63 6f 6e 20 64 69 73 | 70 6c 61 79 73 20 74 68 |icon dis|plays th|
|00004ac0| 65 20 72 65 63 6f 72 64 | 20 61 74 20 74 68 65 20 |e record| at the |
|00004ad0| 73 74 61 72 74 20 6f 66 | 20 74 68 65 20 63 75 72 |start of| the cur|
|00004ae0| 72 65 6e 74 6c 79 20 64 | 69 73 70 6c 61 79 65 64 |rently d|isplayed|
|00004af0| 20 74 61 70 65 2c 20 75 | 6e 6c 65 73 73 20 74 68 | tape, u|nless th|
|00004b00| 69 73 20 69 73 20 61 6c | 72 65 61 64 79 20 64 69 |is is al|ready di|
|00004b10| 73 70 6c 61 79 65 64 2e | 20 49 6e 20 74 68 69 73 |splayed.| In this|
|00004b20| 20 63 61 73 65 20 74 68 | 65 20 66 69 72 73 74 20 | case th|e first |
|00004b30| 72 65 63 6f 72 64 20 6f | 66 20 74 68 65 20 70 72 |record o|f the pr|
|00004b40| 65 76 69 6f 75 73 20 74 | 61 70 65 20 69 73 20 73 |evious t|ape is s|
|00004b50| 68 6f 77 6e 2e 22 0d 3f | d4 0d c9 31 38 3a c8 8e |hown.".?|...18:..|
|00004b60| 64 24 ca 0d 3f de 5a c9 | 22 61 6c 6c 22 3a 74 24 |d$..?.Z.|"all":t$|
|00004b70| 3d 22 43 6c 69 63 6b 69 | 6e 67 20 53 45 4c 45 43 |="Clicki|ng SELEC|
|00004b80| 54 20 6f 6e 20 74 68 69 | 73 20 69 63 6f 6e 20 64 |T on thi|s icon d|
|00004b90| 69 73 70 6c 61 79 73 20 | 74 68 65 20 70 72 65 76 |isplays |the prev|
|00004ba0| 69 6f 75 73 20 72 65 63 | 6f 72 64 20 69 6e 20 74 |ious rec|ord in t|
|00004bb0| 68 65 20 64 61 74 61 66 | 69 6c 65 2e 22 0d 3f fc |he dataf|ile.".?.|
|00004bc0| 64 c9 22 75 6e 73 65 65 | 6e 22 3a 74 24 3d 22 43 |d."unsee|n":t$="C|
|00004bd0| 6c 69 63 6b 69 6e 67 20 | 53 45 4c 45 43 54 20 6f |licking |SELECT o|
|00004be0| 6e 20 74 68 69 73 20 69 | 63 6f 6e 20 64 69 73 70 |n this i|con disp|
|00004bf0| 6c 61 79 73 20 74 68 65 | 20 70 72 65 76 69 6f 75 |lays the| previou|
|00004c00| 73 20 75 6e 73 65 65 6e | 20 72 65 63 6f 72 64 20 |s unseen| record |
|00004c10| 69 6e 20 74 68 65 20 64 | 61 74 61 66 69 6c 65 2e |in the d|atafile.|
|00004c20| 22 0d 40 10 05 cb 0d 40 | 10 d0 c9 31 39 3a 74 24 |".@....@|...19:t$|
|00004c30| 3d 22 43 6c 69 63 6b 69 | 6e 67 20 53 45 4c 45 43 |="Clicki|ng SELEC|
|00004c40| 54 20 6f 6e 20 74 68 69 | 73 20 69 63 6f 6e 20 75 |T on thi|s icon u|
|00004c50| 70 64 61 74 65 73 20 74 | 68 65 20 64 61 74 61 66 |pdates t|he dataf|
|00004c60| 69 6c 65 20 77 69 74 68 | 20 61 6e 79 20 63 68 61 |ile with| any cha|
|00004c70| 6e 67 65 73 20 74 68 61 | 74 20 68 61 76 65 20 62 |nges tha|t have b|
|00004c80| 65 65 6e 20 6d 61 64 65 | 20 74 6f 20 74 68 65 20 |een made| to the |
|00004c90| 64 69 73 70 6c 61 79 65 | 64 20 72 65 63 6f 72 64 |displaye|d record|
|00004ca0| 2e 20 4e 6f 74 65 20 74 | 68 61 74 20 79 6f 75 20 |. Note t|hat you |
|00004cb0| 73 74 69 6c 6c 20 6e 65 | 65 64 20 74 6f 20 73 61 |still ne|ed to sa|
|00004cc0| 76 65 20 74 68 65 20 64 | 61 74 61 66 69 6c 65 20 |ve the d|atafile |
|00004cd0| 74 6f 20 64 69 73 6b 20 | 74 6f 20 6d 61 6b 65 20 |to disk |to make |
|00004ce0| 74 68 65 20 63 68 61 6e | 67 65 20 70 65 72 6d 61 |the chan|ge perma|
|00004cf0| 6e 65 6e 74 2e 22 0d 40 | 2e 0d c9 32 30 3a c8 8e |nent.".@|...20:..|
|00004d00| 64 24 ca 0d 40 38 56 c9 | 22 61 6c 6c 22 3a 74 24 |d$..@8V.|"all":t$|
|00004d10| 3d 22 43 6c 69 63 6b 69 | 6e 67 20 53 45 4c 45 43 |="Clicki|ng SELEC|
|00004d20| 54 20 6f 6e 20 74 68 69 | 73 20 69 63 6f 6e 20 64 |T on thi|s icon d|
|00004d30| 69 73 70 6c 61 79 73 20 | 74 68 65 20 6e 65 78 74 |isplays |the next|
|00004d40| 20 72 65 63 6f 72 64 20 | 69 6e 20 74 68 65 20 64 | record |in the d|
|00004d50| 61 74 61 66 69 6c 65 2e | 22 0d 40 56 60 c9 22 75 |atafile.|".@V`."u|
|00004d60| 6e 73 65 65 6e 22 3a 74 | 24 3d 22 43 6c 69 63 6b |nseen":t|$="Click|
|00004d70| 69 6e 67 20 53 45 4c 45 | 43 54 20 6f 6e 20 74 68 |ing SELE|CT on th|
|00004d80| 69 73 20 69 63 6f 6e 20 | 64 69 73 70 6c 61 79 73 |is icon |displays|
|00004d90| 20 74 68 65 20 6e 65 78 | 74 20 75 6e 73 65 65 6e | the nex|t unseen|
|00004da0| 20 72 65 63 6f 72 64 20 | 69 6e 20 74 68 65 20 64 | record |in the d|
|00004db0| 61 74 61 66 69 6c 65 2e | 22 0d 40 6a 05 cb 0d 40 |atafile.|".@j...@|
|00004dc0| 6a 5c c9 32 31 3a 74 24 | 3d 22 43 6c 69 63 6b 69 |j\.21:t$|="Clicki|
|00004dd0| 6e 67 20 6f 6e 20 53 45 | 4c 45 43 54 20 74 68 69 |ng on SE|LECT thi|
|00004de0| 73 20 69 63 6f 6e 20 64 | 69 73 70 6c 61 79 73 20 |s icon d|isplays |
|00004df0| 74 68 65 20 72 65 63 6f | 72 64 20 61 74 20 74 68 |the reco|rd at th|
|00004e00| 65 20 73 74 61 72 74 20 | 6f 66 20 74 68 65 20 6e |e start |of the n|
|00004e10| 65 78 74 20 74 61 70 65 | 2e 22 0d 40 88 53 c9 32 |ext tape|.".@.S.2|
|00004e20| 33 3a 74 24 3d 22 43 6c | 69 63 6b 69 6e 67 20 53 |3:t$="Cl|icking S|
|00004e30| 45 4c 45 43 54 20 6f 6e | 20 74 68 69 73 20 69 63 |ELECT on| this ic|
|00004e40| 6f 6e 20 64 69 73 70 6c | 61 79 73 20 74 68 65 20 |on displ|ays the |
|00004e50| 6c 61 73 74 20 72 65 63 | 6f 72 64 20 69 6e 20 74 |last rec|ord in t|
|00004e60| 68 65 20 64 61 74 61 66 | 69 6c 65 2e 22 0d 40 9c |he dataf|ile.".@.|
|00004e70| 6a c9 33 34 3a 74 24 3d | 22 57 68 65 6e 20 74 68 |j.34:t$=|"When th|
|00004e80| 69 73 20 69 63 6f 6e 20 | 69 73 20 73 65 6c 65 63 |is icon |is selec|
|00004e90| 74 65 64 20 62 79 20 63 | 6c 69 63 6b 69 6e 67 20 |ted by c|licking |
|00004ea0| 53 45 4c 45 43 54 20 6f | 6e 20 69 74 2c 20 61 6c |SELECT o|n it, al|
|00004eb0| 6c 20 74 68 65 20 61 76 | 61 69 6c 61 62 6c 65 20 |l the av|ailable |
|00004ec0| 72 65 63 6f 72 64 73 20 | 61 72 65 20 64 69 73 70 |records |are disp|
|00004ed0| 6c 61 79 65 64 2e 22 0d | 40 b0 94 c9 33 35 3a 74 |layed.".|@...35:t|
|00004ee0| 24 3d 22 43 49 69 63 6b | 69 6e 67 20 53 45 4c 45 |$="CIick|ing SELE|
|00004ef0| 43 54 20 6f 6e 20 74 68 | 69 73 20 69 63 6f 6e 20 |CT on th|is icon |
|00004f00| 74 6f 67 67 6c 65 73 20 | 74 68 65 20 27 43 68 65 |toggles |the 'Che|
|00004f10| 72 69 73 68 65 64 27 20 | 66 6c 61 67 20 66 6f 72 |rished' |flag for|
|00004f20| 20 74 68 65 20 64 69 73 | 70 6c 61 79 65 64 20 72 | the dis|played r|
|00004f30| 65 63 6f 72 64 2e 20 57 | 68 65 6e 20 74 68 69 73 |ecord. W|hen this|
|00004f40| 20 69 73 20 73 65 6c 65 | 63 74 65 64 20 74 68 65 | is sele|cted the|
|00004f50| 20 72 65 63 6f 72 64 20 | 63 61 6e 6e 6f 74 20 62 | record |cannot b|
|00004f60| 65 20 64 65 6c 65 74 65 | 64 2e 22 0d 40 c4 5d c9 |e delete|d.".@.].|
|00004f70| 33 36 3a 74 24 3d 22 43 | 49 69 63 6b 69 6e 67 20 |36:t$="C|Iicking |
|00004f80| 53 45 4c 45 43 54 20 6f | 6e 20 74 68 69 73 20 69 |SELECT o|n this i|
|00004f90| 63 6f 6e 20 74 6f 67 67 | 6c 65 73 20 74 68 65 20 |con togg|les the |
|00004fa0| 27 55 6e 73 65 65 6e 27 | 20 66 6c 61 67 20 66 6f |'Unseen'| flag fo|
|00004fb0| 72 20 74 68 65 20 64 69 | 73 70 6c 61 79 65 64 20 |r the di|splayed |
|00004fc0| 72 65 63 6f 72 64 2e 22 | 0d 40 d8 64 c9 33 37 3a |record."|.@.d.37:|
|00004fd0| 74 24 3d 22 57 68 65 6e | 20 74 68 69 73 20 69 63 |t$="When| this ic|
|00004fe0| 6f 6e 20 69 73 20 73 65 | 6c 65 63 74 65 64 20 62 |on is se|lected b|
|00004ff0| 79 20 63 6c 69 63 6b 69 | 6e 67 20 53 45 4c 45 43 |y clicki|ng SELEC|
|00005000| 54 20 6f 6e 20 69 74 2c | 20 6f 6e 6c 79 20 75 6e |T on it,| only un|
|00005010| 73 65 65 6e 20 72 65 63 | 6f 72 64 73 20 61 72 65 |seen rec|ords are|
|00005020| 20 64 69 73 70 6c 61 79 | 65 64 2e 22 0d 40 ec 54 | display|ed.".@.T|
|00005030| 7f 3a 74 24 3d 22 54 68 | 69 73 20 69 73 20 74 68 |.:t$="Th|is is th|
|00005040| 65 20 56 69 64 65 6f 42 | 61 73 65 20 6d 61 69 6e |e VideoB|ase main|
|00005050| 20 77 69 6e 64 6f 77 2e | 7c 4d 43 6c 69 63 6b 20 | window.||MClick |
|00005060| 4d 45 4e 55 20 66 6f 72 | 20 74 68 65 20 61 76 61 |MENU for| the ava|
|00005070| 69 6c 61 62 6c 65 20 6f | 70 74 69 6f 6e 73 2e 22 |ilable o|ptions."|
|00005080| 0d 41 00 05 cb 0d 41 00 | 05 cb 0d 41 0a 0c e7 74 |.A....A.|...A...t|
|00005090| 24 3c 3e 22 22 8c 0d 41 | 14 58 71 25 21 31 32 3d |$<>""..A|.Xq%!12=|
|000050a0| 71 25 21 38 3a 71 25 21 | 31 36 3d 31 32 38 33 3a |q%!8:q%!|16=1283:|
|000050b0| 24 28 71 25 2b 32 30 29 | 3d 74 24 2b bd 30 3a 21 |$(q%+20)|=t$+.0:!|
|000050c0| 71 25 3d 28 32 35 2b a9 | 74 24 29 80 ac 33 3a c8 |q%=(25+.|t$)..3:.|
|000050d0| 99 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 |."Wimp_S|endMessa|
|000050e0| 67 65 22 2c 31 37 2c 71 | 25 2c 71 25 21 34 0d 41 |ge",17,q|%,q%!4.A|
|000050f0| 50 05 cd 0d 41 50 05 e1 | 0d 41 5a 24 dd f2 69 28 |P...AP..|.AZ$..i(|
|00005100| 73 61 29 3a ea 68 3a 68 | 3d 91 2b 28 73 61 2a 31 |sa):.h:h|=.+(sa*1|
|00005110| 30 30 29 3a f5 3a fd 91 | 3e 68 3a e1 0d 41 a0 19 |00):.:..|>h:..A..|
|00005120| dd a4 63 28 61 24 29 3a | ea 63 25 3a e7 a9 28 61 |..c(a$):|.c%:..(a|
|00005130| 24 29 3e 30 8c 0d 41 c8 | 2f e3 63 25 3d 31 b8 a9 |$)>0..A.|/.c%=1..|
|00005140| 28 61 24 29 3a e7 c1 61 | 24 2c 63 25 2c 31 29 3e |(a$):..a|$,c%,1)>|
|00005150| 3d 22 61 22 80 c1 61 24 | 2c 63 25 2c 31 29 3c 3d |="a"..a$|,c%,1)<=|
|00005160| 22 7a 22 8c 0d 41 dc 21 | c1 61 24 2c 63 25 2c 31 |"z"..A.!|.a$,c%,1|
|00005170| 29 3d bd 28 97 28 c1 61 | 24 2c 63 25 2c 31 29 29 |)=.(.(.a|$,c%,1))|
|00005180| 80 32 32 33 29 0d 41 f0 | 05 cd 0d 41 f0 07 ed 63 |.223).A.|...A...c|
|00005190| 25 0d 42 04 05 cd 0d 42 | 04 07 3d 61 24 0d ff    |%.B....B|..=a$.. |
+--------+-------------------------+-------------------------+--------+--------+