home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-05-07 | 43.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| Truevision Targa Graphic (image/tga)
| magic
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 24 f4 20 3e 24 | 2e 57 6f 72 6b 46 69 6c |...$. >$|.WorkFil|
|00000010| 65 73 2e 21 56 69 64 65 | 6f 42 61 73 65 2e 53 6f |es.!Vide|oBase.So|
|00000020| 75 72 63 65 0d 00 14 23 | f4 20 41 20 76 69 64 65 |urce...#|. A vide|
|00000030| 6f 20 74 61 70 65 20 69 | 6e 64 65 78 69 6e 67 20 |o tape i|ndexing |
|00000040| 70 72 6f 67 72 61 6d 0d | 00 1e 1d f4 20 66 6f 72 |program.|.... for|
|00000050| 20 41 72 63 68 69 65 20 | 70 6f 6f 74 65 72 73 20 | Archie |pooters |
|00000060| 6f 6e 6c 79 0d 00 28 13 | f4 20 62 79 20 50 61 75 |only..(.|. by Pau|
|00000070| 6c 20 48 6f 62 62 73 0d | 00 32 04 0d 00 3c 1f 76 |l Hobbs.|.2...<.v|
|00000080| 65 72 73 69 6f 6e 24 3d | 22 31 2e 33 36 20 28 32 |ersion$=|"1.36 (2|
|00000090| 34 2d 53 65 70 2d 38 39 | 29 22 0d 00 46 04 0d 00 |4-Sep-89|)"..F...|
|000000a0| 50 14 f4 20 6b 6e 6f 77 | 6e 20 70 72 6f 62 6c 65 |P.. know|n proble|
|000000b0| 6d 73 0d 00 5a 4a f4 20 | 31 29 20 45 64 69 74 69 |ms..ZJ. |1) Editi|
|000000c0| 6e 67 20 74 69 6d 65 20 | 6f 66 20 72 65 63 6f 72 |ng time |of recor|
|000000d0| 64 69 6e 67 20 70 61 72 | 74 69 61 6c 6c 79 20 69 |ding par|tially i|
|000000e0| 6d 70 6c 65 6d 65 6e 74 | 65 64 2e 20 41 20 67 61 |mplement|ed. A ga|
|000000f0| 70 20 6d 75 73 74 20 65 | 78 69 73 74 0d 00 64 47 |p must e|xist..dG|
|00000100| f4 20 20 20 20 6f 6e 20 | 74 68 65 20 73 61 6d 65 |. on |the same|
|00000110| 20 74 61 70 65 20 28 61 | 66 74 65 72 20 74 68 65 | tape (a|fter the|
|00000120| 20 72 65 63 6f 72 64 20 | 62 65 69 6e 67 20 65 64 | record |being ed|
|00000130| 69 74 65 64 29 20 6f 74 | 68 65 72 77 69 73 65 20 |ited) ot|herwise |
|00000140| 74 68 65 0d 00 6e 1d f4 | 20 20 20 20 65 64 69 74 |the..n..| edit|
|00000150| 20 69 73 20 64 69 73 73 | 61 6c 6c 6f 77 65 64 2e | is diss|allowed.|
|00000160| 0d 00 78 05 3a 0d 00 82 | 4c f4 20 2d 2d 2d 2d 2d |..x.:...|L. -----|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00000180| 4c 6f 61 64 20 4c 69 62 | 72 61 72 79 20 46 69 6c |Load Lib|rary Fil|
|00000190| 65 73 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |es -----|--------|
|000001a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001b0| 2d 0d 00 8c 04 0d 00 96 | 4c f4 20 2d 2d 2d 2d 2d |-.......|L. -----|
|000001c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|000001d0| 49 6e 69 74 69 61 6c 69 | 73 61 74 69 6f 6e 20 2d |Initiali|sation -|
|000001e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 0d 00 a0 04 0d 00 aa | 0d de 20 71 25 20 31 34 |-.......|.. q% 14|
|00000210| 30 30 0d 00 b4 0e 24 71 | 25 3d 22 54 41 53 4b 22 |00....$q|%="TASK"|
|00000220| 0d 00 be 34 c8 99 20 22 | 57 69 6d 70 5f 49 6e 69 |...4.. "|Wimp_Ini|
|00000230| 74 69 61 6c 69 73 65 22 | 2c 32 30 30 2c 21 71 25 |tialise"|,200,!q%|
|00000240| 2c 22 56 69 64 65 6f 42 | 61 73 65 22 20 b8 20 2c |,"VideoB|ase" . ,|
|00000250| 74 61 73 6b 0d 00 c8 15 | c8 99 20 22 48 6f 75 72 |task....|.. "Hour|
|00000260| 67 6c 61 73 73 5f 4f 6e | 22 0d 00 d2 04 0d 00 dc |glass_On|".......|
|00000270| 4c f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |L. -----|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 20 | 4c 6f 61 64 20 53 70 72 |------- |Load Spr|
|00000290| 69 74 65 20 46 69 6c 65 | 20 2d 2d 2d 2d 2d 2d 2d |ite File| -------|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 00 e6 04 0d 00 f0 |--------|-.......|
|000002c0| 33 53 25 3d 8e 20 22 3c | 56 69 64 65 6f 42 61 73 |3S%=. "<|VideoBas|
|000002d0| 65 24 44 69 72 3e 2e 53 | 70 72 69 74 65 73 22 3a |e$Dir>.S|prites":|
|000002e0| 54 25 3d a2 23 53 25 2b | 31 36 3a d9 20 23 53 25 |T%=.#S%+|16:. #S%|
|000002f0| 0d 00 fa 19 de 20 73 70 | 20 54 25 3a 21 73 70 3d |..... sp| T%:!sp=|
|00000300| 54 25 3a 73 70 21 34 3d | 30 0d 01 04 14 73 70 21 |T%:sp!4=|0....sp!|
|00000310| 38 3d 31 36 3a 73 70 21 | 31 32 3d 31 36 0d 01 0e |8=16:sp!|12=16...|
|00000320| 4b c8 99 20 22 4f 53 5f | 53 70 72 69 74 65 4f 70 |K.. "OS_|SpriteOp|
|00000330| 22 2c 26 32 30 39 2c 73 | 70 20 20 20 20 20 20 20 |",&209,s|p |
|00000340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000350| 20 20 20 20 20 3a 20 f4 | 20 63 6c 65 61 72 20 75 | : .| clear u|
|00000360| 73 65 72 20 61 72 65 61 | 0d 01 18 48 c8 99 20 22 |ser area|...H.. "|
|00000370| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 26 32 30 |OS_Sprit|eOp",&20|
|00000380| 41 2c 73 70 2c 22 3c 56 | 69 64 65 6f 42 61 73 65 |A,sp,"<V|ideoBase|
|00000390| 24 44 69 72 3e 2e 53 70 | 72 69 74 65 73 22 20 20 |$Dir>.Sp|rites" |
|000003a0| 3a 20 f4 20 6c 6f 61 64 | 20 73 70 72 69 74 65 73 |: . load| sprites|
|000003b0| 0d 01 22 04 0d 01 2c 4c | f4 20 2d 2d 2d 2d 2d 2d |.."...,L|. ------|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 50 |--------|------ P|
|000003d0| 6c 61 63 65 20 53 70 72 | 69 74 65 20 4f 6e 20 49 |lace Spr|ite On I|
|000003e0| 63 6f 6e 20 42 61 72 20 | 2d 2d 2d 2d 2d 2d 2d 2d |con Bar |--------|
|000003f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000400| 0d 01 36 04 0d 01 40 3b | 73 69 63 6f 6e 3d a4 69 |..6...@;|sicon=.i|
|00000410| 63 6f 6e 5f 63 72 65 61 | 74 65 28 2d 31 2c 30 2c |con_crea|te(-1,0,|
|00000420| 30 2c 36 38 2c 36 38 2c | 30 2c 30 2c 26 33 30 30 |0,68,68,|0,0,&300|
|00000430| 32 2c 22 21 56 69 64 65 | 6f 42 61 73 65 22 29 0d |2,"!Vide|oBase").|
|00000440| 01 4a 04 0d 01 54 4c f4 | 20 2d 2d 2d 2d 2d 2d 2d |.J...TL.| -------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 49 6e |--------|----- In|
|00000460| 69 74 69 61 6c 69 73 65 | 20 43 6f 6e 73 74 61 6e |itialise| Constan|
|00000470| 74 73 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ts -----|--------|
|00000480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000490| 01 5e 04 0d 01 68 36 73 | 63 72 6f 6c 6c 62 61 72 |.^...h6s|crollbar|
|000004a0| 66 67 63 6f 6c 3d 33 3a | 73 63 72 6f 6c 6c 62 61 |fgcol=3:|scrollba|
|000004b0| 72 62 67 63 6f 6c 3d 31 | 3a 68 69 67 68 6c 69 67 |rbgcol=1|:highlig|
|000004c0| 68 74 62 67 63 6f 6c 3d | 32 0d 01 72 1d 74 69 74 |htbgcol=|2..r.tit|
|000004d0| 6c 65 66 67 63 6f 6c 3d | 37 3a 74 69 74 6c 65 62 |lefgcol=|7:titleb|
|000004e0| 67 63 6f 6c 3d 32 0d 01 | 86 04 0d 01 d6 16 f4 20 |gcol=2..|....... |
|000004f0| 4d 65 6e 75 20 74 69 74 | 6c 65 20 66 6c 61 67 73 |Menu tit|le flags|
|00000500| 0d 01 e0 04 0d 01 ea 21 | 74 69 74 6c 65 3d 31 3a |.......!|title=1:|
|00000510| 6d 6f 76 65 3d 32 3a 76 | 65 72 74 3d 34 3a 68 6f |move=2:v|ert=4:ho|
|00000520| 72 69 7a 3d 38 0d 01 fe | 04 0d 02 08 17 f4 20 4d |riz=8...|...... M|
|00000530| 61 63 72 6f 20 74 69 74 | 6c 65 20 66 6c 61 67 73 |acro tit|le flags|
|00000540| 0d 02 12 04 0d 02 26 21 | 77 69 6e 64 6f 77 66 3d |......&!|windowf=|
|00000550| 74 69 74 6c 65 2b 6d 6f | 76 65 2b 68 6f 72 69 7a |title+mo|ve+horiz|
|00000560| 2b 76 65 72 74 0d 02 3a | 04 0d 02 6c 04 0d 02 76 |+vert..:|...l...v|
|00000570| 4c f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |L. -----|--------|
|00000580| 2d 2d 2d 2d 2d 2d 2d 20 | 49 6e 69 74 69 61 6c 69 |------- |Initiali|
|00000590| 73 65 20 56 61 72 69 61 | 62 6c 65 73 20 2d 2d 2d |se Varia|bles ---|
|000005a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 02 80 04 0d 02 8a |--------|-.......|
|000005c0| 10 f4 20 6d 65 6e 75 20 | 66 6c 61 67 73 0d 02 94 |.. menu |flags...|
|000005d0| 04 0d 02 9e 11 74 69 63 | 6b 20 20 20 20 20 3d 26 |.....tic|k =&|
|000005e0| 30 31 0d 02 a8 11 64 6f | 74 74 65 64 20 20 20 3d |01....do|tted =|
|000005f0| 26 30 32 0d 02 b2 11 77 | 72 69 74 65 61 62 6c 65 |&02....w|riteable|
|00000600| 3d 26 30 34 0d 02 bc 11 | 6c 61 73 74 20 20 20 20 |=&04....|last |
|00000610| 20 3d 26 38 30 0d 02 c6 | 14 64 65 66 61 75 6c 74 | =&80...|.default|
|00000620| 20 20 3d 26 31 30 30 32 | 31 0d 02 d0 15 73 68 61 | =&1002|1....sha|
|00000630| 64 65 64 20 20 20 3d 26 | 34 30 30 30 30 30 0d 02 |ded =&|400000..|
|00000640| f8 04 0d 03 02 11 63 6c | 61 69 6d 6d 65 6e 75 24 |......cl|aimmenu$|
|00000650| 3d 22 22 0d 03 0c 16 63 | 6c 6f 73 65 64 6f 77 6e |=""....c|losedown|
|00000660| 20 20 20 20 20 20 20 3d | a3 0d 03 16 16 65 72 72 | =|.....err|
|00000670| 6f 72 5f 66 6c 61 67 25 | 20 20 20 20 20 3d 33 0d |or_flag%| =3.|
|00000680| 03 20 16 6f 70 65 6e 20 | 20 20 20 20 20 20 20 20 |. .open | |
|00000690| 20 20 20 3d a3 0d 03 2a | 04 0d 03 34 4c f4 20 2d | =...*|...4L. -|
|000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006b0| 2d 2d 2d 20 49 6e 69 74 | 69 61 6c 69 73 65 20 41 |--- Init|ialise A|
|000006c0| 72 72 61 79 73 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |rrays --|--------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006e0| 2d 2d 2d 2d 2d 0d 03 3e | 04 0d 03 48 25 de 20 74 |-----..>|...H%. t|
|000006f0| 65 78 74 24 28 35 30 29 | 2c 73 65 74 74 69 6e 67 |ext$(50)|,setting|
|00000700| 28 35 30 29 2c 66 6c 61 | 67 73 28 35 30 29 0d 03 |(50),fla|gs(50)..|
|00000710| 52 25 de 20 73 75 62 6d | 65 6e 75 28 35 30 29 2c |R%. subm|enu(50),|
|00000720| 72 65 66 28 35 30 29 2c | 6d 65 6e 75 70 6f 73 28 |ref(50),|menupos(|
|00000730| 32 30 29 0d 03 5c 04 0d | 03 66 4c f4 20 2d 2d 2d |20)..\..|.fL. ---|
|00000740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000750| 2d 20 49 6e 69 74 69 61 | 6c 69 73 65 20 53 74 6f |- Initia|lise Sto|
|00000760| 72 61 67 65 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |rage ---|--------|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000780| 2d 2d 2d 0d 03 70 04 0d | 03 7a 0f de 20 74 65 78 |---..p..|.z.. tex|
|00000790| 74 31 25 20 31 36 0d 03 | 84 15 de 20 69 6e 70 75 |t1% 16..|... inpu|
|000007a0| 74 5f 62 75 66 66 65 72 | 20 36 30 0d 03 8e 0f de |t_buffer| 60.....|
|000007b0| 20 6d 65 6e 75 25 20 35 | 31 32 0d 03 98 15 de 20 | menu% 5|12..... |
|000007c0| 69 6e 64 69 72 65 63 74 | 25 20 26 31 31 30 30 0d |indirect|% &1100.|
|000007d0| 03 a2 0d de 20 77 69 6e | 20 31 30 30 0d 03 ac 0d |.... win| 100....|
|000007e0| de 20 62 6c 6b 20 31 30 | 30 0d 03 b6 1b 24 74 65 |. blk 10|0....$te|
|000007f0| 78 74 31 25 3d 22 44 65 | 6c 65 74 65 20 52 65 63 |xt1%="De|lete Rec|
|00000800| 6f 72 64 22 0d 03 c0 04 | 0d 03 ca 4c f4 20 2d 2d |ord"....|...L. --|
|00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000820| 2d 2d 20 4d 69 73 63 65 | 6c 6c 65 61 6e 6f 75 73 |-- Misce|lleanous|
|00000830| 20 49 6e 69 74 69 61 6c | 69 73 61 74 69 6f 6e 20 | Initial|isation |
|00000840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000850| 2d 2d 2d 2d 0d 03 d4 04 | 0d 03 de 25 69 70 74 72 |----....|...%iptr|
|00000860| 25 3d 69 6e 64 69 72 65 | 63 74 25 3a 69 65 6e 64 |%=indire|ct%:iend|
|00000870| 25 3d 69 70 74 72 25 2b | 26 31 31 30 30 0d 03 e8 |%=iptr%+|&1100...|
|00000880| 10 e3 20 6c 70 25 3d 30 | 20 b8 20 36 30 0d 03 f2 |.. lp%=0| . 60...|
|00000890| 19 20 20 69 6e 70 75 74 | 5f 62 75 66 66 65 72 3f |. input|_buffer?|
|000008a0| 6c 70 25 3d 31 33 0d 03 | fc 09 ed 20 6c 70 25 0d |lp%=13..|... lp%.|
|000008b0| 04 06 04 0d 04 10 4c f4 | 20 2d 2d 2d 2d 2d 2d 2d |......L.| -------|
|000008c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 41 70 |--------|----- Ap|
|000008d0| 70 6c 69 63 61 74 69 6f | 6e 20 49 6e 69 74 69 61 |plicatio|n Initia|
|000008e0| 6c 69 73 61 74 69 6f 6e | 20 2d 2d 2d 2d 2d 2d 2d |lisation| -------|
|000008f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000900| 04 1a 04 0d 04 24 17 6d | 61 78 5f 74 61 70 65 73 |.....$.m|ax_tapes|
|00000910| 25 20 20 20 20 20 20 3d | 33 30 0d 04 2e 18 6d 61 |% =|30....ma|
|00000920| 78 5f 72 65 63 6f 72 64 | 73 25 20 20 20 20 3d 32 |x_record|s% =2|
|00000930| 30 30 0d 04 38 16 6e 6f | 5f 6f 66 5f 65 6e 74 72 |00..8.no|_of_entr|
|00000940| 69 65 73 25 20 20 3d 30 | 0d 04 42 16 62 72 6f 77 |ies% =0|..B.brow|
|00000950| 73 65 5f 64 69 72 65 63 | 74 69 6f 6e 3d 31 0d 04 |se_direc|tion=1..|
|00000960| 4c 1a 64 69 73 70 5f 6f | 70 24 20 20 20 20 20 20 |L.disp_o|p$ |
|00000970| 20 20 3d 22 61 6c 6c 22 | 0d 04 56 05 3a 0d 04 60 | ="all"|..V.:..`|
|00000980| 43 de 20 74 69 74 6c 65 | 24 28 6d 61 78 5f 72 65 |C. title|$(max_re|
|00000990| 63 6f 72 64 73 25 29 2c | 73 75 62 6a 65 63 74 24 |cords%),|subject$|
|000009a0| 28 6d 61 78 5f 72 65 63 | 6f 72 64 73 25 29 2c 63 |(max_rec|ords%),c|
|000009b0| 68 24 28 6d 61 78 5f 72 | 65 63 6f 72 64 73 25 29 |h$(max_r|ecords%)|
|000009c0| 0d 04 6a 38 de 20 74 61 | 70 65 5f 6e 72 25 28 6d |..j8. ta|pe_nr%(m|
|000009d0| 61 78 5f 72 65 63 6f 72 | 64 73 25 29 2c 74 61 70 |ax_recor|ds%),tap|
|000009e0| 65 5f 63 6f 75 6e 74 65 | 72 25 28 6d 61 78 5f 72 |e_counte|r%(max_r|
|000009f0| 65 63 6f 72 64 73 25 29 | 0d 04 74 1b de 20 6c 65 |ecords%)|..t.. le|
|00000a00| 6e 67 74 68 25 28 6d 61 | 78 5f 72 65 63 6f 72 64 |ngth%(ma|x_record|
|00000a10| 73 25 29 0d 04 7e 35 de | 20 74 69 6d 65 5f 75 73 |s%)..~5.| time_us|
|00000a20| 65 64 25 28 6d 61 78 5f | 74 61 70 65 73 25 29 2c |ed%(max_|tapes%),|
|00000a30| 74 61 70 65 5f 6c 65 6e | 67 74 68 25 28 6d 61 78 |tape_len|gth%(max|
|00000a40| 5f 74 61 70 65 73 25 29 | 0d 04 88 49 de 20 63 74 |_tapes%)|...I. ct|
|00000a50| 72 31 25 28 36 29 2c 63 | 74 72 32 25 28 36 29 2c |r1%(6),c|tr2%(6),|
|00000a60| 74 69 6d 31 25 28 36 29 | 2c 74 69 6d 32 25 28 36 |tim1%(6)|,tim2%(6|
|00000a70| 29 3a f4 20 63 61 6c 69 | 62 72 61 74 69 6f 6e 20 |):. cali|bration |
|00000a80| 64 61 74 61 20 66 6f 72 | 20 63 6f 75 6e 74 65 72 |data for| counter|
|00000a90| 73 0d 04 92 04 0d 04 9c | 1f 74 69 74 6c 65 24 28 |s.......|.title$(|
|00000aa0| 29 20 20 20 20 20 20 20 | 20 20 3d 20 c4 34 30 2c |) | = .40,|
|00000ab0| 22 20 22 29 0d 04 a6 1f | 73 75 62 6a 65 63 74 24 |" ")....|subject$|
|00000ac0| 28 29 20 20 20 20 20 20 | 20 3d 20 c4 34 30 2c 22 |() | = .40,"|
|00000ad0| 20 22 29 0d 04 b0 1b 63 | 68 24 28 29 20 20 20 20 | ")....c|h$() |
|00000ae0| 20 20 20 20 20 20 20 20 | 3d 20 22 20 20 22 0d 04 | |= " "..|
|00000af0| ba 18 74 61 70 65 5f 6e | 72 25 28 29 20 20 20 20 |..tape_n|r%() |
|00000b00| 20 20 20 3d 20 30 0d 04 | c4 18 74 61 70 65 5f 63 | = 0..|..tape_c|
|00000b10| 6f 75 6e 74 65 72 25 28 | 29 20 20 3d 20 30 0d 04 |ounter%(|) = 0..|
|00000b20| ce 18 6c 65 6e 67 74 68 | 25 28 29 20 20 20 20 20 |..length|%() |
|00000b30| 20 20 20 3d 20 30 0d 04 | d8 18 64 69 73 70 6c 61 | = 0..|..displa|
|00000b40| 79 5f 72 65 63 6f 72 64 | 25 20 20 3d 20 31 0d 04 |y_record|% = 1..|
|00000b50| e2 18 63 68 61 6e 67 65 | 64 25 20 20 20 20 20 20 |..change|d% |
|00000b60| 20 20 20 3d 20 a3 0d 04 | ec 19 73 65 61 72 63 68 | = ...|..search|
|00000b70| 31 24 20 20 20 20 20 20 | 20 20 20 3d 20 22 22 0d |1$ | = "".|
|00000b80| 04 f6 18 6e 72 5f 75 6e | 73 65 65 6e 25 20 20 20 |...nr_un|seen% |
|00000b90| 20 20 20 20 3d 20 30 0d | 05 28 18 73 65 61 72 63 | = 0.|.(.searc|
|00000ba0| 68 5f 69 6e 64 65 78 25 | 20 20 20 20 3d 20 31 0d |h_index%| = 1.|
|00000bb0| 05 3c 04 0d 05 46 22 58 | 25 3d 8e 28 22 3c 56 69 |.<...F"X|%=.("<Vi|
|00000bc0| 64 65 6f 42 61 73 65 24 | 44 69 72 3e 2e 57 56 44 |deoBase$|Dir>.WVD|
|00000bd0| 41 54 41 22 29 0d 05 50 | 09 d9 23 20 58 25 0d 05 |ATA")..P|..# X%..|
|00000be0| 5a 24 e7 20 58 25 3d 30 | 20 8c 20 f2 63 72 65 61 |Z$. X%=0| . .crea|
|00000bf0| 74 65 66 69 6c 65 20 8b | 20 f2 6c 6f 61 64 66 69 |tefile .| .loadfi|
|00000c00| 6c 65 0d 05 64 04 0d 05 | 6e 4c f4 20 2d 2d 2d 2d |le..d...|nL. ----|
|00000c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c20| 20 4c 6f 61 64 20 54 65 | 6d 70 6c 61 74 65 20 46 | Load Te|mplate F|
|00000c30| 69 6c 65 73 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |iles ---|--------|
|00000c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c50| 2d 2d 0d 05 78 04 0d 05 | 82 32 f2 6f 70 65 6e 74 |--..x...|.2.opent|
|00000c60| 65 6d 70 6c 61 74 65 66 | 69 6c 65 28 22 3c 56 69 |emplatef|ile("<Vi|
|00000c70| 64 65 6f 42 61 73 65 24 | 44 69 72 3e 2e 74 65 6d |deoBase$|Dir>.tem|
|00000c80| 70 6c 61 74 65 73 22 29 | 0d 05 8c 1a f2 6c 6f 61 |plates")|.....loa|
|00000c90| 64 74 65 6d 70 6c 61 74 | 65 28 22 76 62 61 73 65 |dtemplat|e("vbase|
|00000ca0| 22 29 0d 05 96 39 71 25 | 21 36 34 3d 73 70 20 3a |")...9q%|!64=sp :|
|00000cb0| 20 f4 20 74 68 65 20 6d | 61 67 69 63 20 62 69 74 | . the m|agic bit|
|00000cc0| 20 74 68 61 74 20 65 6e | 61 62 6c 65 73 20 75 73 | that en|ables us|
|00000cd0| 65 72 20 73 70 72 69 74 | 65 73 21 0d 05 a0 27 c8 |er sprit|es!...'.|
|00000ce0| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |. "Wimp_|CreateWi|
|00000cf0| 6e 64 6f 77 22 2c 2c 71 | 25 20 b8 20 76 62 61 73 |ndow",,q|% . vbas|
|00000d00| 65 25 0d 05 aa 1b f2 6c | 6f 61 64 74 65 6d 70 6c |e%.....l|oadtempl|
|00000d10| 61 74 65 28 22 6e 65 77 | 72 65 63 22 29 0d 05 b4 |ate("new|rec")...|
|00000d20| 0c 71 25 21 36 34 3d 73 | 70 0d 05 be 28 c8 99 20 |.q%!64=s|p...(.. |
|00000d30| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000d40| 6f 77 22 2c 2c 71 25 20 | b8 20 6e 65 77 72 65 63 |ow",,q% |. newrec|
|00000d50| 25 0d 05 c8 1c f2 6c 6f | 61 64 74 65 6d 70 6c 61 |%.....lo|adtempla|
|00000d60| 74 65 28 22 64 65 6c 74 | 61 70 65 22 29 0d 05 d2 |te("delt|ape")...|
|00000d70| 0c 71 25 21 36 34 3d 73 | 70 0d 05 dc 29 c8 99 20 |.q%!64=s|p...).. |
|00000d80| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000d90| 6f 77 22 2c 2c 71 25 20 | b8 20 64 65 6c 74 61 70 |ow",,q% |. deltap|
|00000da0| 65 25 0d 05 e6 1b f2 6c | 6f 61 64 74 65 6d 70 6c |e%.....l|oadtempl|
|00000db0| 61 74 65 28 22 73 65 61 | 72 63 68 22 29 0d 05 f0 |ate("sea|rch")...|
|00000dc0| 0c 71 25 21 36 34 3d 73 | 70 0d 05 fa 28 c8 99 20 |.q%!64=s|p...(.. |
|00000dd0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000de0| 6f 77 22 2c 2c 71 25 20 | b8 20 73 65 61 72 63 68 |ow",,q% |. search|
|00000df0| 25 0d 06 04 1b f2 6c 6f | 61 64 74 65 6d 70 6c 61 |%.....lo|adtempla|
|00000e00| 74 65 28 22 66 69 6e 64 | 73 70 22 29 0d 06 0e 0c |te("find|sp")....|
|00000e10| 71 25 21 36 34 3d 73 70 | 0d 06 18 28 c8 99 20 22 |q%!64=sp|...(.. "|
|00000e20| 57 69 6d 70 5f 43 72 65 | 61 74 65 57 69 6e 64 6f |Wimp_Cre|ateWindo|
|00000e30| 77 22 2c 2c 71 25 20 b8 | 20 66 69 6e 64 73 70 25 |w",,q% .| findsp%|
|00000e40| 0d 06 22 1c f2 6c 6f 61 | 64 74 65 6d 70 6c 61 74 |.."..loa|dtemplat|
|00000e50| 65 28 22 6e 65 77 74 61 | 70 65 22 29 0d 06 2c 0c |e("newta|pe")..,.|
|00000e60| 71 25 21 36 34 3d 73 70 | 0d 06 36 29 c8 99 20 22 |q%!64=sp|..6).. "|
|00000e70| 57 69 6d 70 5f 43 72 65 | 61 74 65 57 69 6e 64 6f |Wimp_Cre|ateWindo|
|00000e80| 77 22 2c 2c 71 25 20 b8 | 20 6e 65 77 74 61 70 65 |w",,q% .| newtape|
|00000e90| 25 0d 06 40 1c f2 6c 6f | 61 64 74 65 6d 70 6c 61 |%..@..lo|adtempla|
|00000ea0| 74 65 28 22 63 61 6c 74 | 61 70 65 22 29 0d 06 4a |te("calt|ape")..J|
|00000eb0| 0c 71 25 21 36 34 3d 73 | 70 0d 06 54 29 c8 99 20 |.q%!64=s|p..T).. |
|00000ec0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000ed0| 6f 77 22 2c 2c 71 25 20 | b8 20 63 61 6c 74 61 70 |ow",,q% |. caltap|
|00000ee0| 65 25 0d 06 5e 1c f2 6c | 6f 61 64 74 65 6d 70 6c |e%..^..l|oadtempl|
|00000ef0| 61 74 65 28 22 73 75 72 | 65 64 65 6c 22 29 0d 06 |ate("sur|edel")..|
|00000f00| 68 0c 71 25 21 36 34 3d | 73 70 0d 06 72 29 c8 99 |h.q%!64=|sp..r)..|
|00000f10| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e | "Wimp_C|reateWin|
|00000f20| 64 6f 77 22 2c 2c 71 25 | 20 b8 20 73 75 72 65 64 |dow",,q%| . sured|
|00000f30| 65 6c 25 0d 06 7c 1c f2 | 6c 6f 61 64 74 65 6d 70 |el%..|..|loadtemp|
|00000f40| 6c 61 74 65 28 22 75 6e | 73 61 76 65 64 22 29 0d |late("un|saved").|
|00000f50| 06 86 0c 71 25 21 36 34 | 3d 73 70 0d 06 90 29 c8 |...q%!64|=sp...).|
|00000f60| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |. "Wimp_|CreateWi|
|00000f70| 6e 64 6f 77 22 2c 2c 71 | 25 20 b8 20 75 6e 73 61 |ndow",,q|% . unsa|
|00000f80| 76 65 64 25 0d 06 9a 1d | f2 6c 6f 61 64 74 65 6d |ved%....|.loadtem|
|00000f90| 70 6c 61 74 65 28 22 70 | 72 6f 67 49 6e 66 6f 22 |plate("p|rogInfo"|
|00000fa0| 29 0d 06 a4 26 c8 99 20 | 22 57 69 6d 70 5f 43 72 |)...&.. |"Wimp_Cr|
|00000fb0| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 71 25 20 |eateWind|ow",,q% |
|00000fc0| b8 20 69 6e 66 6f 25 0d | 06 ae 16 f2 63 6c 6f 73 |. info%.|....clos|
|00000fd0| 65 74 65 6d 70 6c 61 74 | 65 66 69 6c 65 0d 06 b8 |etemplat|efile...|
|00000fe0| 04 0d 06 c2 4c f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |....L. -|--------|
|00000ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 20 44 65 66 69 |--------|--- Defi|
|00001000| 6e 65 20 57 69 6e 64 6f | 77 73 20 2d 2d 2d 2d 2d |ne Windo|ws -----|
|00001010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 06 cc |--------|-----...|
|00001030| 04 0d 06 d6 16 24 77 69 | 6e 3d 22 54 61 70 65 20 |.....$wi|n="Tape |
|00001040| 53 74 61 74 75 73 22 0d | 06 e0 44 73 74 61 74 75 |Status".|..Dstatu|
|00001050| 73 25 3d a4 63 72 65 61 | 74 65 77 69 6e 64 6f 77 |s%=.crea|tewindow|
|00001060| 28 77 69 6e 2c 77 69 6e | 64 6f 77 66 2c 37 2c 30 |(win,win|dowf,7,0|
|00001070| 2c 36 30 30 2c 33 30 30 | 30 2c 39 30 30 2c 32 30 |,600,300|0,900,20|
|00001080| 30 2c 31 35 30 30 2c 39 | 30 30 29 0d 06 ea 04 0d |0,1500,9|00).....|
|00001090| 06 f4 4c f4 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..L. ---|--------|
|000010a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 44 65 66 69 6e 65 |--------|- Define|
|000010b0| 20 49 63 6f 6e 73 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d | Icons -|--------|
|000010c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 06 fe 04 0d |--------|---.....|
|000010e0| 07 08 28 f2 69 63 6f 6e | 5f 70 75 74 64 61 74 61 |..(.icon|_putdata|
|000010f0| 28 71 25 2c 69 6e 66 6f | 25 2c 34 2c 76 65 72 73 |(q%,info|%,4,vers|
|00001100| 69 6f 6e 24 2c 30 29 0d | 07 12 12 e3 20 6c 6f 6f |ion$,0).|.... loo|
|00001110| 70 25 3d 20 31 20 b8 20 | 36 0d 07 1c 40 20 20 f2 |p%= 1 . |6...@ .|
|00001120| 69 63 6f 6e 5f 70 75 74 | 64 61 74 61 28 71 25 2c |icon_put|data(q%,|
|00001130| 63 61 6c 74 61 70 65 25 | 2c 28 6c 6f 6f 70 25 2d |caltape%|,(loop%-|
|00001140| 31 29 2a 34 2b 32 2c c3 | 28 63 74 72 31 25 28 6c |1)*4+2,.|(ctr1%(l|
|00001150| 6f 6f 70 25 29 29 2c a3 | 29 0d 07 26 40 20 20 f2 |oop%)),.|)..&@ .|
|00001160| 69 63 6f 6e 5f 70 75 74 | 64 61 74 61 28 71 25 2c |icon_put|data(q%,|
|00001170| 63 61 6c 74 61 70 65 25 | 2c 28 6c 6f 6f 70 25 2d |caltape%|,(loop%-|
|00001180| 31 29 2a 34 2b 33 2c c3 | 28 74 69 6d 31 25 28 6c |1)*4+3,.|(tim1%(l|
|00001190| 6f 6f 70 25 29 29 2c a3 | 29 0d 07 30 40 20 20 f2 |oop%)),.|)..0@ .|
|000011a0| 69 63 6f 6e 5f 70 75 74 | 64 61 74 61 28 71 25 2c |icon_put|data(q%,|
|000011b0| 63 61 6c 74 61 70 65 25 | 2c 28 6c 6f 6f 70 25 2d |caltape%|,(loop%-|
|000011c0| 31 29 2a 34 2b 34 2c c3 | 28 63 74 72 32 25 28 6c |1)*4+4,.|(ctr2%(l|
|000011d0| 6f 6f 70 25 29 29 2c a3 | 29 0d 07 3a 40 20 20 f2 |oop%)),.|)..:@ .|
|000011e0| 69 63 6f 6e 5f 70 75 74 | 64 61 74 61 28 71 25 2c |icon_put|data(q%,|
|000011f0| 63 61 6c 74 61 70 65 25 | 2c 28 6c 6f 6f 70 25 2d |caltape%|,(loop%-|
|00001200| 31 29 2a 34 2b 35 2c c3 | 28 74 69 6d 32 25 28 6c |1)*4+5,.|(tim2%(l|
|00001210| 6f 6f 70 25 29 29 2c a3 | 29 0d 07 44 0b ed 20 6c |oop%)),.|)..D.. l|
|00001220| 6f 6f 70 25 0d 07 4e 04 | 0d 07 58 4c f4 20 2d 2d |oop%..N.|..XL. --|
|00001230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001240| 2d 2d 20 4c 61 75 6e 63 | 68 20 49 6e 69 74 69 61 |-- Launc|h Initia|
|00001250| 6c 20 57 69 6e 64 6f 77 | 73 20 2d 2d 2d 2d 2d 2d |l Window|s ------|
|00001260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001270| 2d 2d 2d 2d 0d 07 62 04 | 0d 07 6c 16 c8 99 20 22 |----..b.|..l... "|
|00001280| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 66 66 22 0d 07 |Hourglas|s_Off"..|
|00001290| 76 04 0d 07 80 4c f4 20 | 2d 2d 2d 2d 2d 2d 2d 2d |v....L. |--------|
|000012a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 45 72 72 |--------|---- Err|
|000012b0| 6f 72 20 52 6f 75 74 69 | 6e 65 73 20 2d 2d 2d 2d |or Routi|nes ----|
|000012c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 07 |--------|------..|
|000012e0| 8a 04 0d 07 94 0e ee 20 | 85 20 f2 65 72 72 6f 72 |....... |. .error|
|000012f0| 0d 07 9e 04 0d 07 a8 4c | f4 20 2d 2d 2d 2d 2d 2d |.......L|. ------|
|00001300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 4d |--------|------ M|
|00001310| 61 69 6e 20 50 72 6f 67 | 72 61 6d 20 4c 6f 6f 70 |ain Prog|ram Loop|
|00001320| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00001330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001340| 0d 07 b2 04 0d 07 bc 05 | f5 0d 07 c6 17 20 20 f2 |........|..... .|
|00001350| 61 63 74 69 6f 6e 28 a4 | 70 6f 6c 6c 28 31 29 29 |action(.|poll(1))|
|00001360| 0d 07 d0 0f fd 20 63 6c | 6f 73 65 64 6f 77 6e 0d |..... cl|osedown.|
|00001370| 07 da 04 0d 07 e4 4c f4 | 20 2d 2d 2d 2d 2d 2d 2d |......L.| -------|
|00001380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 41 70 |--------|----- Ap|
|00001390| 70 6c 69 63 61 74 69 6f | 6e 20 43 6c 6f 73 65 64 |plicatio|n Closed|
|000013a0| 6f 77 6e 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |own ----|--------|
|000013b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000013c0| 07 ee 04 0d 07 f8 17 c8 | 99 20 22 57 69 6d 70 5f |........|. "Wimp_|
|000013d0| 43 6c 6f 73 65 44 6f 77 | 6e 22 0d 08 02 05 e0 0d |CloseDow|n"......|
|000013e0| 08 0c 04 0d 08 5c 0b dd | f2 65 72 72 6f 72 0d 08 |.....\..|.error..|
|000013f0| 66 15 e7 20 65 72 72 6f | 72 5f 66 6c 61 67 25 3d |f.. erro|r_flag%=|
|00001400| 33 20 8c 0d 08 70 44 20 | 20 f2 65 72 72 6f 72 62 |3 ...pD | .errorb|
|00001410| 6f 78 28 22 55 6e 65 78 | 70 65 63 74 65 64 20 65 |ox("Unex|pected e|
|00001420| 72 72 6f 72 3a 2d 20 22 | 2b f6 24 2b 22 20 49 6e |rror:- "|+.$+" In|
|00001430| 74 65 72 6e 61 6c 20 65 | 72 72 6f 72 20 63 6f 64 |ternal e|rror cod|
|00001440| 65 20 22 2b c3 9e 29 0d | 08 7a 05 cc 0d 08 84 13 |e "+..).|.z......|
|00001450| 20 20 f2 65 72 72 6f 72 | 62 6f 78 28 f6 24 29 0d | .error|box(.$).|
|00001460| 08 8e 05 cd 0d 08 98 11 | 65 72 72 6f 72 5f 66 6c |........|error_fl|
|00001470| 61 67 25 3d 33 0d 08 a2 | 18 c8 99 20 22 48 6f 75 |ag%=3...|... "Hou|
|00001480| 72 67 6c 61 73 73 5f 53 | 6d 61 73 68 22 0d 08 ac |rglass_S|mash"...|
|00001490| 05 e1 0d 08 b6 04 0d 08 | c0 0c dd f2 6f 6b 28 65 |........|....ok(e|
|000014a0| 24 29 0d 08 ca 11 65 72 | 72 6f 72 5f 66 6c 61 67 |$)....er|ror_flag|
|000014b0| 25 3d 31 0d 08 d4 0a 85 | 20 31 2c 65 24 0d 08 de |%=1.....| 1,e$...|
|000014c0| 05 e1 0d 08 e8 04 0d 09 | 24 12 dd f2 65 72 72 6f |........|$...erro|
|000014d0| 72 62 6f 78 28 72 24 29 | 0d 09 2e 08 ea 20 72 25 |rbox(r$)|..... r%|
|000014e0| 0d 09 38 19 21 71 25 3d | 9f 3a 24 28 71 25 2b 34 |..8.!q%=|.:$(q%+4|
|000014f0| 29 3d 72 24 2b bd 28 30 | 29 0d 09 42 39 c8 99 20 |)=r$+.(0|)..B9.. |
|00001500| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|00001510| 72 22 2c 71 25 2c 65 72 | 72 6f 72 5f 66 6c 61 67 |r",q%,er|ror_flag|
|00001520| 25 2c 22 56 69 64 65 6f | 42 61 73 65 22 20 b8 20 |%,"Video|Base" . |
|00001530| 72 25 0d 09 4c 18 e7 20 | 72 25 3d 32 20 8c 20 63 |r%..L.. |r%=2 . c|
|00001540| 6c 6f 73 65 64 6f 77 6e | 3d b9 0d 09 56 05 e1 0d |losedown|=...V...|
|00001550| 09 60 04 0d 09 6a 04 0d | 09 74 3c dd f2 63 6c 69 |.`...j..|.t<..cli|
|00001560| 63 6b 77 69 6e 64 6f 77 | 28 6d 6f 75 73 65 78 25 |ckwindow|(mousex%|
|00001570| 2c 6d 6f 75 73 65 79 25 | 2c 62 75 74 74 6f 6e 25 |,mousey%|,button%|
|00001580| 2c 68 61 6e 64 6c 65 25 | 2c 69 63 6f 6e 25 2c 6f |,handle%|,icon%,o|
|00001590| 62 25 29 0d 09 7e 10 c8 | 8e 20 68 61 6e 64 6c 65 |b%)..~..|. handle|
|000015a0| 25 20 ca 0d 09 88 2c 20 | 20 c9 20 76 62 61 73 65 |% ...., | . vbase|
|000015b0| 25 20 20 20 3a f2 63 6c | 69 63 6b 76 62 61 73 65 |% :.cl|ickvbase|
|000015c0| 28 62 75 74 74 6f 6e 25 | 2c 69 63 6f 6e 25 29 0d |(button%|,icon%).|
|000015d0| 09 92 2d 20 20 c9 20 6e | 65 77 72 65 63 25 20 20 |..- . n|ewrec% |
|000015e0| 3a f2 63 6c 69 63 6b 6e | 65 77 72 65 63 28 62 75 |:.clickn|ewrec(bu|
|000015f0| 74 74 6f 6e 25 2c 69 63 | 6f 6e 25 29 0d 09 9c 2e |tton%,ic|on%)....|
|00001600| 20 20 c9 20 64 65 6c 74 | 61 70 65 25 20 3a f2 63 | . delt|ape% :.c|
|00001610| 6c 69 63 6b 64 65 6c 74 | 61 70 65 28 62 75 74 74 |lickdelt|ape(butt|
|00001620| 6f 6e 25 2c 69 63 6f 6e | 25 29 0d 09 a6 2d 20 20 |on%,icon|%)...- |
|00001630| c9 20 73 65 61 72 63 68 | 25 20 20 3a f2 63 6c 69 |. search|% :.cli|
|00001640| 63 6b 73 65 61 72 63 68 | 28 62 75 74 74 6f 6e 25 |cksearch|(button%|
|00001650| 2c 69 63 6f 6e 25 29 0d | 09 b0 2d 20 20 c9 20 66 |,icon%).|..- . f|
|00001660| 69 6e 64 73 70 25 20 20 | 3a f2 63 6c 69 63 6b 66 |indsp% |:.clickf|
|00001670| 69 6e 64 73 70 28 62 75 | 74 74 6f 6e 25 2c 69 63 |indsp(bu|tton%,ic|
|00001680| 6f 6e 25 29 0d 09 ba 2e | 20 20 c9 20 6e 65 77 74 |on%)....| . newt|
|00001690| 61 70 65 25 20 3a f2 63 | 6c 69 63 6b 6e 65 77 74 |ape% :.c|licknewt|
|000016a0| 61 70 65 28 62 75 74 74 | 6f 6e 25 2c 69 63 6f 6e |ape(butt|on%,icon|
|000016b0| 25 29 0d 09 c4 2e 20 20 | c9 20 63 61 6c 74 61 70 |%).... |. caltap|
|000016c0| 65 25 20 3a f2 63 6c 69 | 63 6b 63 61 6c 74 61 70 |e% :.cli|ckcaltap|
|000016d0| 65 28 62 75 74 74 6f 6e | 25 2c 69 63 6f 6e 25 29 |e(button|%,icon%)|
|000016e0| 0d 09 ce 2e 20 20 c9 20 | 73 75 72 65 64 65 6c 25 |.... . |suredel%|
|000016f0| 20 3a f2 63 6c 69 63 6b | 73 75 72 65 64 65 6c 28 | :.click|suredel(|
|00001700| 62 75 74 74 6f 6e 25 2c | 69 63 6f 6e 25 29 0d 09 |button%,|icon%)..|
|00001710| d8 2e 20 20 c9 20 75 6e | 73 61 76 65 64 25 20 3a |.. . un|saved% :|
|00001720| f2 63 6c 69 63 6b 75 6e | 73 61 76 65 64 28 62 75 |.clickun|saved(bu|
|00001730| 74 74 6f 6e 25 2c 69 63 | 6f 6e 25 29 0d 09 e2 2e |tton%,ic|on%)....|
|00001740| 20 20 c9 20 2d 32 20 20 | 20 20 20 20 20 3a f2 63 | . -2 | :.c|
|00001750| 6c 69 63 6b 69 63 6f 6e | 62 61 72 28 62 75 74 74 |lickicon|bar(butt|
|00001760| 6f 6e 25 2c 69 63 6f 6e | 25 29 0d 09 ec 05 cb 0d |on%,icon|%)......|
|00001770| 09 f6 05 e1 0d 0a 00 04 | 0d 0a 0a 4c f4 20 2d 2d |........|...L. --|
|00001780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 4d |--------|------ M|
|00001790| 6f 75 73 65 20 43 6c 69 | 63 6b 20 52 6f 75 74 69 |ouse Cli|ck Routi|
|000017a0| 6e 65 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nes ----|--------|
|000017b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017c0| 2d 2d 2d 2d 0d 0a 14 04 | 0d 0a 1e 21 dd f2 63 6c |----....|...!..cl|
|000017d0| 69 63 6b 69 63 6f 6e 62 | 61 72 28 62 75 74 74 6f |ickiconb|ar(butto|
|000017e0| 6e 25 2c 69 63 6f 6e 25 | 29 0d 0a 28 11 e7 20 69 |n%,icon%|)..(.. i|
|000017f0| 63 6f 6e 25 3c 30 20 8c | 20 e1 0d 0a 32 0a c8 8e |con%<0 .| ...2...|
|00001800| 20 b9 20 ca 0d 0a 3c 11 | 20 20 c9 20 62 75 74 74 | . ...<.| . butt|
|00001810| 6f 6e 25 3d 32 0d 0a 46 | 17 20 20 20 20 e7 20 69 |on%=2..F|. . i|
|00001820| 63 6f 6e 25 3d 73 69 63 | 6f 6e 20 8c 0d 0a 50 15 |con%=sic|on ...P.|
|00001830| 20 20 20 20 20 20 f2 6d | 65 6e 75 5f 73 69 63 6f | .m|enu_sico|
|00001840| 6e 0d 0a 5a 09 20 20 20 | 20 cd 0d 0a 64 11 20 20 |n..Z. | ...d. |
|00001850| c9 20 62 75 74 74 6f 6e | 25 3d 34 0d 0a 6e 12 20 |. button|%=4..n. |
|00001860| 20 20 20 e7 20 ac 20 6f | 70 65 6e 20 8c 0d 0a 78 | . . o|pen ...x|
|00001870| 1d 20 20 20 20 20 20 f2 | 75 70 64 61 74 65 5f 69 |. .|update_i|
|00001880| 6e 66 6f 64 69 73 70 6c | 61 79 0d 0a 82 1b 20 20 |nfodispl|ay.... |
|00001890| 20 20 20 20 f2 64 69 73 | 70 6c 61 79 5f 76 62 61 | .dis|play_vba|
|000018a0| 73 65 28 31 29 0d 0a 8c | 22 20 20 20 20 20 20 f2 |se(1)...|" .|
|000018b0| 6f 70 65 6e 77 69 6e 64 | 6f 77 28 76 62 61 73 65 |openwind|ow(vbase|
|000018c0| 25 2c a3 2c 2d 31 29 0d | 0a 96 10 20 20 20 20 20 |%,.,-1).|... |
|000018d0| 20 6f 70 65 6e 3d b9 0d | 0a a0 09 20 20 20 20 cd | open=..|... .|
|000018e0| 0d 0a aa 05 cb 0d 0a b4 | 05 e1 0d 0a be 04 0d 0a |........|........|
|000018f0| c8 1f dd f2 63 6c 69 63 | 6b 76 62 61 73 65 28 62 |....clic|kvbase(b|
|00001900| 75 74 74 6f 6e 25 2c 69 | 63 6f 6e 25 29 0d 0a d2 |utton%,i|con%)...|
|00001910| 11 e7 20 62 75 74 74 6f | 6e 25 3d 32 20 8c 0d 0a |.. butto|n%=2 ...|
|00001920| dc 10 20 20 f2 6d 65 6e | 75 5f 6d 61 69 6e 0d 0a |.. .men|u_main..|
|00001930| e6 05 cd 0d 0a f0 0a c8 | 8e 20 b9 20 ca 0d 0a fa |........|. . ....|
|00001940| 22 20 20 c9 20 28 62 75 | 74 74 6f 6e 25 20 80 20 |" . (bu|tton% . |
|00001950| 34 29 3d 34 20 80 20 69 | 63 6f 6e 25 3d 31 37 0d |4)=4 . i|con%=17.|
|00001960| 0b 04 1b 20 20 20 20 62 | 72 6f 77 73 65 5f 64 69 |... b|rowse_di|
|00001970| 72 65 63 74 69 6f 6e 3d | 2d 31 0d 0b 0e 52 20 20 |rection=|-1...R |
|00001980| 20 20 e7 20 64 69 73 70 | 6c 61 79 5f 72 65 63 6f | . disp|lay_reco|
|00001990| 72 64 25 3c 3e 31 20 8c | 20 64 69 73 70 6c 61 79 |rd%<>1 .| display|
|000019a0| 5f 72 65 63 6f 72 64 25 | 2d 3d 31 20 8b 20 64 69 |_record%|-=1 . di|
|000019b0| 73 70 6c 61 79 5f 72 65 | 63 6f 72 64 25 3d 6e 6f |splay_re|cord%=no|
|000019c0| 5f 6f 66 5f 65 6e 74 72 | 69 65 73 25 0d 0b 18 2c |_of_entr|ies%...,|
|000019d0| 20 20 20 20 c8 95 20 74 | 61 70 65 5f 63 6f 75 6e | .. t|ape_coun|
|000019e0| 74 65 72 25 28 64 69 73 | 70 6c 61 79 5f 72 65 63 |ter%(dis|play_rec|
|000019f0| 6f 72 64 25 29 3c 3e 30 | 0d 0b 22 1c 20 20 20 20 |ord%)<>0|..". |
|00001a00| 20 20 64 69 73 70 6c 61 | 79 5f 72 65 63 6f 72 64 | displa|y_record|
|00001a10| 25 2d 3d 31 0d 0b 2c 3e | 20 20 20 20 20 20 e7 20 |%-=1..,>| . |
|00001a20| 64 69 73 70 6c 61 79 5f | 72 65 63 6f 72 64 25 3d |display_|record%=|
|00001a30| 30 20 8c 20 64 69 73 70 | 6c 61 79 5f 72 65 63 6f |0 . disp|lay_reco|
|00001a40| 72 64 25 3d 6e 6f 5f 6f | 66 5f 65 6e 74 72 69 65 |rd%=no_o|f_entrie|
|00001a50| 73 25 0d 0b 36 09 20 20 | 20 20 ce 0d 0b 40 27 20 |s%..6. | ...@' |
|00001a60| 20 20 20 f2 64 69 73 70 | 6c 61 79 5f 76 62 61 73 | .disp|lay_vbas|
|00001a70| 65 28 64 69 73 70 6c 61 | 79 5f 72 65 63 6f 72 64 |e(displa|y_record|
|00001a80| 25 29 0d 0b 4a 22 20 20 | c9 20 28 62 75 74 74 6f |%)..J" |. (butto|
|00001a90| 6e 25 20 80 20 34 29 3d | 34 20 80 20 69 63 6f 6e |n% . 4)=|4 . icon|
|00001aa0| 25 3d 31 38 0d 0b 54 1a | 20 20 20 20 64 69 73 70 |%=18..T.| disp|
|00001ab0| 6c 61 79 5f 72 65 63 6f | 72 64 25 2d 3d 31 0d 0b |lay_reco|rd%-=1..|
|00001ac0| 5e 1b 20 20 20 20 62 72 | 6f 77 73 65 5f 64 69 72 |^. br|owse_dir|
|00001ad0| 65 63 74 69 6f 6e 3d 2d | 31 0d 0b 68 1d 20 20 20 |ection=-|1..h. |
|00001ae0| 20 e7 20 64 69 73 70 5f | 6f 70 24 3d 22 75 6e 73 | . disp_|op$="uns|
|00001af0| 65 65 6e 22 20 8c 0d 0b | 72 2a 20 20 20 20 20 20 |een" ...|r* |
|00001b00| c8 95 20 c2 63 68 24 28 | 64 69 73 70 6c 61 79 5f |.. .ch$(|display_|
|00001b10| 72 65 63 6f 72 64 25 29 | 2c 31 29 3c 3e 22 2a 22 |record%)|,1)<>"*"|
|00001b20| 0d 0b 7c 2d 20 20 20 20 | 20 20 20 20 64 69 73 70 |..|- | disp|
|00001b30| 6c 61 79 5f 72 65 63 6f | 72 64 25 2b 3d 62 72 6f |lay_reco|rd%+=bro|
|00001b40| 77 73 65 5f 64 69 72 65 | 63 74 69 6f 6e 0d 0b 86 |wse_dire|ction...|
|00001b50| 3e 20 20 20 20 20 20 20 | 20 e7 20 64 69 73 70 6c |> | . displ|
|00001b60| 61 79 5f 72 65 63 6f 72 | 64 25 3e 6e 6f 5f 6f 66 |ay_recor|d%>no_of|
|00001b70| 5f 65 6e 74 72 69 65 73 | 25 3a 64 69 73 70 6c 61 |_entries|%:displa|
|00001b80| 79 5f 72 65 63 6f 72 64 | 25 3d 31 0d 0b 90 3e 20 |y_record|%=1...> |
|00001b90| 20 20 20 20 20 20 20 e7 | 20 64 69 73 70 6c 61 79 | .| display|
|00001ba0| 5f 72 65 63 6f 72 64 25 | 3d 30 3a 64 69 73 70 6c |_record%|=0:displ|
|00001bb0| 61 79 5f 72 65 63 6f 72 | 64 25 3d 6e 6f 5f 6f 66 |ay_recor|d%=no_of|
|00001bc0| 5f 65 6e 74 72 69 65 73 | 25 0d 0b 9a 0b 20 20 20 |_entries|%.... |
|00001bd0| 20 20 20 ce 0d 0b a4 09 | 20 20 20 20 cd 0d 0b ae | .....| ....|
|00001be0| 3a 20 20 20 20 e7 20 64 | 69 73 70 6c 61 79 5f 72 |: . d|isplay_r|
|00001bf0| 65 63 6f 72 64 25 3d 30 | 3a 64 69 73 70 6c 61 79 |ecord%=0|:display|
|00001c00| 5f 72 65 63 6f 72 64 25 | 3d 6e 6f 5f 6f 66 5f 65 |_record%|=no_of_e|
|00001c10| 6e 74 72 69 65 73 25 0d | 0b b8 27 20 20 20 20 f2 |ntries%.|..' .|
|00001c20| 64 69 73 70 6c 61 79 5f | 76 62 61 73 65 28 64 69 |display_|vbase(di|
|00001c30| 73 70 6c 61 79 5f 72 65 | 63 6f 72 64 25 29 0d 0b |splay_re|cord%)..|
|00001c40| c2 22 20 20 c9 20 28 62 | 75 74 74 6f 6e 25 20 80 |." . (b|utton% .|
|00001c50| 20 34 29 3d 34 20 80 20 | 69 63 6f 6e 25 3d 31 39 | 4)=4 . |icon%=19|
|00001c60| 0d 0b cc 11 20 20 20 20 | f2 6f 6b 5f 76 62 61 73 |.... |.ok_vbas|
|00001c70| 65 0d 0b d6 22 20 20 c9 | 20 28 62 75 74 74 6f 6e |e..." .| (button|
|00001c80| 25 20 80 20 34 29 3d 34 | 20 80 20 69 63 6f 6e 25 |% . 4)=4| . icon%|
|00001c90| 3d 32 30 0d 0b e0 1a 20 | 20 20 20 64 69 73 70 6c |=20.... | displ|
|00001ca0| 61 79 5f 72 65 63 6f 72 | 64 25 2b 3d 31 0d 0b ea |ay_recor|d%+=1...|
|00001cb0| 1a 20 20 20 20 62 72 6f | 77 73 65 5f 64 69 72 65 |. bro|wse_dire|
|00001cc0| 63 74 69 6f 6e 3d 31 0d | 0b f4 1d 20 20 20 20 e7 |ction=1.|... .|
|00001cd0| 20 64 69 73 70 5f 6f 70 | 24 3d 22 75 6e 73 65 65 | disp_op|$="unsee|
|00001ce0| 6e 22 20 8c 0d 0b fe 2a | 20 20 20 20 20 20 c8 95 |n" ....*| ..|
|00001cf0| 20 c2 63 68 24 28 64 69 | 73 70 6c 61 79 5f 72 65 | .ch$(di|splay_re|
|00001d00| 63 6f 72 64 25 29 2c 31 | 29 3c 3e 22 2a 22 0d 0c |cord%),1|)<>"*"..|
|00001d10| 08 2d 20 20 20 20 20 20 | 20 20 64 69 73 70 6c 61 |.- | displa|
|00001d20| 79 5f 72 65 63 6f 72 64 | 25 2b 3d 62 72 6f 77 73 |y_record|%+=brows|
|00001d30| 65 5f 64 69 72 65 63 74 | 69 6f 6e 0d 0c 12 3e 20 |e_direct|ion...> |
|00001d40| 20 20 20 20 20 20 20 e7 | 20 64 69 73 70 6c 61 79 | .| display|
|00001d50| 5f 72 65 63 6f 72 64 25 | 3e 6e 6f 5f 6f 66 5f 65 |_record%|>no_of_e|
|00001d60| 6e 74 72 69 65 73 25 3a | 64 69 73 70 6c 61 79 5f |ntries%:|display_|
|00001d70| 72 65 63 6f 72 64 25 3d | 31 0d 0c 1c 3e 20 20 20 |record%=|1...> |
|00001d80| 20 20 20 20 20 e7 20 64 | 69 73 70 6c 61 79 5f 72 | . d|isplay_r|
|00001d90| 65 63 6f 72 64 25 3d 30 | 3a 64 69 73 70 6c 61 79 |ecord%=0|:display|
|00001da0| 5f 72 65 63 6f 72 64 25 | 3d 6e 6f 5f 6f 66 5f 65 |_record%|=no_of_e|
|00001db0| 6e 74 72 69 65 73 25 0d | 0c 26 0b 20 20 20 20 20 |ntries%.|.&. |
|00001dc0| 20 ce 0d 0c 30 09 20 20 | 20 20 cd 0d 0c 3a 3a 20 | ...0. | ...:: |
|00001dd0| 20 20 20 e7 20 64 69 73 | 70 6c 61 79 5f 72 65 63 | . dis|play_rec|
|00001de0| 6f 72 64 25 3e 6e 6f 5f | 6f 66 5f 65 6e 74 72 69 |ord%>no_|of_entri|
|00001df0| 65 73 25 3a 64 69 73 70 | 6c 61 79 5f 72 65 63 6f |es%:disp|lay_reco|
|00001e00| 72 64 25 3d 31 0d 0c 44 | 27 20 20 20 20 f2 64 69 |rd%=1..D|' .di|
|00001e10| 73 70 6c 61 79 5f 76 62 | 61 73 65 28 64 69 73 70 |splay_vb|ase(disp|
|00001e20| 6c 61 79 5f 72 65 63 6f | 72 64 25 29 0d 0c 4e 22 |lay_reco|rd%)..N"|
|00001e30| 20 20 c9 20 28 62 75 74 | 74 6f 6e 25 20 80 20 34 | . (but|ton% . 4|
|00001e40| 29 3d 34 20 80 20 69 63 | 6f 6e 25 3d 32 31 0d 0c |)=4 . ic|on%=21..|
|00001e50| 58 27 20 20 20 20 74 65 | 6d 70 25 3d 74 61 70 65 |X' te|mp%=tape|
|00001e60| 5f 6e 72 25 28 64 69 73 | 70 6c 61 79 5f 72 65 63 |_nr%(dis|play_rec|
|00001e70| 6f 72 64 25 29 0d 0c 62 | 2a 20 20 20 20 c8 95 20 |ord%)..b|* .. |
|00001e80| 74 61 70 65 5f 6e 72 25 | 28 64 69 73 70 6c 61 79 |tape_nr%|(display|
|00001e90| 5f 72 65 63 6f 72 64 25 | 29 3d 74 65 6d 70 25 0d |_record%|)=temp%.|
|00001ea0| 0c 6c 1c 20 20 20 20 20 | 20 64 69 73 70 6c 61 79 |.l. | display|
|00001eb0| 5f 72 65 63 6f 72 64 25 | 2b 3d 31 0d 0c 76 3e 20 |_record%|+=1..v> |
|00001ec0| 20 20 20 20 20 e7 20 64 | 69 73 70 6c 61 79 5f 72 | . d|isplay_r|
|00001ed0| 65 63 6f 72 64 25 3e 6e | 6f 5f 6f 66 5f 65 6e 74 |ecord%>n|o_of_ent|
|00001ee0| 72 69 65 73 25 20 8c 20 | 64 69 73 70 6c 61 79 5f |ries% . |display_|
|00001ef0| 72 65 63 6f 72 64 25 3d | 31 0d 0c 80 09 20 20 20 |record%=|1.... |
|00001f00| 20 ce 0d 0c 8a 27 20 20 | 20 20 f2 64 69 73 70 6c | ....' | .displ|
|00001f10| 61 79 5f 76 62 61 73 65 | 28 64 69 73 70 6c 61 79 |ay_vbase|(display|
|00001f20| 5f 72 65 63 6f 72 64 25 | 29 0d 0c 94 22 20 20 c9 |_record%|)..." .|
|00001f30| 20 28 62 75 74 74 6f 6e | 25 20 80 20 34 29 3d 34 | (button|% . 4)=4|
|00001f40| 20 80 20 69 63 6f 6e 25 | 3d 32 32 0d 0c 9e 19 20 | . icon%|=22.... |
|00001f50| 20 20 20 64 69 73 70 6c | 61 79 5f 72 65 63 6f 72 | displ|ay_recor|
|00001f60| 64 25 3d 31 0d 0c a8 27 | 20 20 20 20 f2 64 69 73 |d%=1...'| .dis|
|00001f70| 70 6c 61 79 5f 76 62 61 | 73 65 28 64 69 73 70 6c |play_vba|se(displ|
|00001f80| 61 79 5f 72 65 63 6f 72 | 64 25 29 0d 0c b2 22 20 |ay_recor|d%)..." |
|00001f90| 20 c9 20 28 62 75 74 74 | 6f 6e 25 20 80 20 34 29 | . (butt|on% . 4)|
|00001fa0| 3d 34 20 80 20 69 63 6f | 6e 25 3d 32 33 0d 0c bc |=4 . ico|n%=23...|
|00001fb0| 26 20 20 20 20 64 69 73 | 70 6c 61 79 5f 72 65 63 |& dis|play_rec|
|00001fc0| 6f 72 64 25 3d 6e 6f 5f | 6f 66 5f 65 6e 74 72 69 |ord%=no_|of_entri|
|00001fd0| 65 73 25 0d 0c c6 27 20 | 20 20 20 f2 64 69 73 70 |es%...' | .disp|
|00001fe0| 6c 61 79 5f 76 62 61 73 | 65 28 64 69 73 70 6c 61 |lay_vbas|e(displa|
|00001ff0| 79 5f 72 65 63 6f 72 64 | 25 29 0d 0c d0 22 20 20 |y_record|%)..." |
|00002000| c9 20 28 62 75 74 74 6f | 6e 25 20 80 20 34 29 3d |. (butto|n% . 4)=|
|00002010| 34 20 80 20 69 63 6f 6e | 25 3d 33 34 0d 0c da 16 |4 . icon|%=34....|
|00002020| 20 20 20 20 64 69 73 70 | 5f 6f 70 24 3d 22 61 6c | disp|_op$="al|
|00002030| 6c 22 0d 0c e4 39 20 20 | 20 20 76 6f 69 64 25 3d |l"...9 | void%=|
|00002040| a4 69 63 6f 6e 5f 6e 65 | 77 73 70 72 69 74 65 28 |.icon_ne|wsprite(|
|00002050| 71 25 2c 76 62 61 73 65 | 25 2c 33 34 2c 22 72 61 |q%,vbase|%,34,"ra|
|00002060| 64 69 6f 32 5f 6f 6e 22 | 2c b9 29 0d 0c ee 3a 20 |dio2_on"|,.)...: |
|00002070| 20 20 20 76 6f 69 64 25 | 3d a4 69 63 6f 6e 5f 6e | void%|=.icon_n|
|00002080| 65 77 73 70 72 69 74 65 | 28 71 25 2c 76 62 61 73 |ewsprite|(q%,vbas|
|00002090| 65 25 2c 33 37 2c 22 72 | 61 64 69 6f 32 5f 6f 66 |e%,37,"r|adio2_of|
|000020a0| 66 22 2c b9 29 0d 0c f8 | 22 20 20 c9 20 28 62 75 |f",.)...|" . (bu|
|000020b0| 74 74 6f 6e 25 20 80 20 | 34 29 3d 34 20 80 20 69 |tton% . |4)=4 . i|
|000020c0| 63 6f 6e 25 3d 33 35 0d | 0d 02 4f 20 20 20 20 e7 |con%=35.|..O .|
|000020d0| 20 c0 74 69 74 6c 65 24 | 28 64 69 73 70 6c 61 79 | .title$|(display|
|000020e0| 5f 72 65 63 6f 72 64 25 | 29 2c 35 29 3c 3e 22 2a |_record%|),5)<>"*|
|000020f0| 47 41 50 2a 22 20 80 20 | c0 63 68 24 28 64 69 73 |GAP*" . |.ch$(dis|
|00002100| 70 6c 61 79 5f 72 65 63 | 6f 72 64 25 29 2c 31 29 |play_rec|ord%),1)|
|00002110| 3d 22 20 22 20 8c 0d 0d | 0c 3b 20 20 20 20 20 20 |=" " ...|.; |
|00002120| 63 68 24 28 64 69 73 70 | 6c 61 79 5f 72 65 63 6f |ch$(disp|lay_reco|
|00002130| 72 64 25 29 3d 22 2a 22 | 2b c2 63 68 24 28 64 69 |rd%)="*"|+.ch$(di|
|00002140| 73 70 6c 61 79 5f 72 65 | 63 6f 72 64 25 29 2c 31 |splay_re|cord%),1|
|00002150| 29 0d 0d 16 3b 20 20 20 | 20 20 20 76 6f 69 64 25 |)...; | void%|
|00002160| 3d a4 69 63 6f 6e 5f 6e | 65 77 73 70 72 69 74 65 |=.icon_n|ewsprite|
|00002170| 28 71 25 2c 76 62 61 73 | 65 25 2c 33 35 2c 22 72 |(q%,vbas|e%,35,"r|
|00002180| 61 64 69 6f 31 5f 6f 6e | 22 2c b9 29 0d 0d 20 14 |adio1_on|",.).. .|
|00002190| 20 20 20 20 20 20 63 68 | 61 6e 67 65 64 25 3d b9 | ch|anged%=.|
|000021a0| 0d 0d 2a 09 20 20 20 20 | cc 0d 0d 34 2a 20 20 20 |..*. |...4* |
|000021b0| 20 20 20 e7 20 c0 63 68 | 24 28 64 69 73 70 6c 61 | . .ch|$(displa|
|000021c0| 79 5f 72 65 63 6f 72 64 | 25 29 2c 31 29 3d 22 2a |y_record|%),1)="*|
|000021d0| 22 20 8c 0d 0d 3e 3d 20 | 20 20 20 20 20 20 20 63 |" ...>= | c|
|000021e0| 68 24 28 64 69 73 70 6c | 61 79 5f 72 65 63 6f 72 |h$(displ|ay_recor|
|000021f0| 64 25 29 3d 22 20 22 2b | c2 63 68 24 28 64 69 73 |d%)=" "+|.ch$(dis|
|00002200| 70 6c 61 79 5f 72 65 63 | 6f 72 64 25 29 2c 31 29 |play_rec|ord%),1)|
|00002210| 0d 0d 48 3e 20 20 20 20 | 20 20 20 20 76 6f 69 64 |..H> | void|
|00002220| 25 3d a4 69 63 6f 6e 5f | 6e 65 77 73 70 72 69 74 |%=.icon_|newsprit|
|00002230| 65 28 71 25 2c 76 62 61 | 73 65 25 2c 33 35 2c 22 |e(q%,vba|se%,35,"|
|00002240| 72 61 64 69 6f 31 5f 6f | 66 66 22 2c b9 29 0d 0d |radio1_o|ff",.)..|
|00002250| 52 16 20 20 20 20 20 20 | 20 20 63 68 61 6e 67 65 |R. | change|
|00002260| 64 25 3d b9 0d 0d 5c 0b | 20 20 20 20 20 20 cd 0d |d%=...\.| ..|
|00002270| 0d 66 09 20 20 20 20 cd | 0d 0d 70 22 20 20 c9 20 |.f. .|..p" . |
|00002280| 28 62 75 74 74 6f 6e 25 | 20 80 20 34 29 3d 34 20 |(button%| . 4)=4 |
|00002290| 80 20 69 63 6f 6e 25 3d | 33 36 0d 0d 7a 28 20 20 |. icon%=|36..z( |
|000022a0| 20 20 e7 20 c2 63 68 24 | 28 64 69 73 70 6c 61 79 | . .ch$|(display|
|000022b0| 5f 72 65 63 6f 72 64 25 | 29 2c 31 29 3d 22 2a 22 |_record%|),1)="*"|
|000022c0| 20 8c 0d 0d 84 3b 20 20 | 20 20 20 20 63 68 24 28 | ....; | ch$(|
|000022d0| 64 69 73 70 6c 61 79 5f | 72 65 63 6f 72 64 25 29 |display_|record%)|
|000022e0| 3d c0 63 68 24 28 64 69 | 73 70 6c 61 79 5f 72 65 |=.ch$(di|splay_re|
|000022f0| 63 6f 72 64 25 29 2c 31 | 29 2b 22 20 22 0d 0d 8e |cord%),1|)+" "...|
|00002300| 3c 20 20 20 20 20 20 76 | 6f 69 64 25 3d a4 69 63 |< v|oid%=.ic|
|00002310| 6f 6e 5f 6e 65 77 73 70 | 72 69 74 65 28 71 25 2c |on_newsp|rite(q%,|
|00002320| 76 62 61 73 65 25 2c 33 | 36 2c 22 72 61 64 69 6f |vbase%,3|6,"radio|
|00002330| 31 5f 6f 66 66 22 2c b9 | 29 0d 0d 98 17 20 20 20 |1_off",.|).... |
|00002340| 20 20 20 6e 72 5f 75 6e | 73 65 65 6e 25 2d 3d 31 | nr_un|seen%-=1|
|00002350| 0d 0d a2 1d 20 20 20 20 | 20 20 f2 75 70 64 61 74 |.... | .updat|
|00002360| 65 5f 69 6e 66 6f 64 69 | 73 70 6c 61 79 0d 0d ac |e_infodi|splay...|
|00002370| 14 20 20 20 20 20 20 63 | 68 61 6e 67 65 64 25 3d |. c|hanged%=|
|00002380| b9 0d 0d b6 09 20 20 20 | 20 cc 0d 0d c0 2a 20 20 |..... | ....* |
|00002390| 20 20 20 20 e7 20 c2 63 | 68 24 28 64 69 73 70 6c | . .c|h$(displ|
|000023a0| 61 79 5f 72 65 63 6f 72 | 64 25 29 2c 31 29 3d 22 |ay_recor|d%),1)="|
|000023b0| 20 22 20 8c 0d 0d ca 3d | 20 20 20 20 20 20 20 20 | " ....=| |
|000023c0| 63 68 24 28 64 69 73 70 | 6c 61 79 5f 72 65 63 6f |ch$(disp|lay_reco|
|000023d0| 72 64 25 29 3d c0 63 68 | 24 28 64 69 73 70 6c 61 |rd%)=.ch|$(displa|
|000023e0| 79 5f 72 65 63 6f 72 64 | 25 29 2c 31 29 2b 22 2a |y_record|%),1)+"*|
|000023f0| 22 0d 0d d4 3d 20 20 20 | 20 20 20 20 20 76 6f 69 |"...= | voi|
|00002400| 64 25 3d a4 69 63 6f 6e | 5f 6e 65 77 73 70 72 69 |d%=.icon|_newspri|
|00002410| 74 65 28 71 25 2c 76 62 | 61 73 65 25 2c 33 36 2c |te(q%,vb|ase%,36,|
|00002420| 22 72 61 64 69 6f 31 5f | 6f 6e 22 2c b9 29 0d 0d |"radio1_|on",.)..|
|00002430| de 19 20 20 20 20 20 20 | 20 20 6e 72 5f 75 6e 73 |.. | nr_uns|
|00002440| 65 65 6e 25 2b 3d 31 0d | 0d e8 1f 20 20 20 20 20 |een%+=1.|... |
|00002450| 20 20 20 f2 75 70 64 61 | 74 65 5f 69 6e 66 6f 64 | .upda|te_infod|
|00002460| 69 73 70 6c 61 79 0d 0d | f2 16 20 20 20 20 20 20 |isplay..|.. |
|00002470| 20 20 63 68 61 6e 67 65 | 64 25 3d b9 0d 0d fc 0b | change|d%=.....|
|00002480| 20 20 20 20 20 20 cd 0d | 0e 06 09 20 20 20 20 cd | ..|... .|
|00002490| 0d 0e 10 22 20 20 c9 20 | 28 62 75 74 74 6f 6e 25 |..." . |(button%|
|000024a0| 20 80 20 34 29 3d 34 20 | 80 20 69 63 6f 6e 25 3d | . 4)=4 |. icon%=|
|000024b0| 33 37 0d 0e 1a 18 20 20 | 20 20 e7 20 6e 72 5f 75 |37.... | . nr_u|
|000024c0| 6e 73 65 65 6e 25 3d 30 | 20 8c 0d 0e 24 22 20 20 |nseen%=0| ...$" |
|000024d0| 20 20 20 20 f2 6f 6b 28 | 22 4e 6f 20 75 6e 73 65 | .ok(|"No unse|
|000024e0| 65 6e 20 72 65 63 6f 72 | 64 73 22 29 0d 0e 2e 09 |en recor|ds")....|
|000024f0| 20 20 20 20 cc 0d 0e 38 | 1b 20 20 20 20 20 20 64 | ...8|. d|
|00002500| 69 73 70 5f 6f 70 24 3d | 22 75 6e 73 65 65 6e 22 |isp_op$=|"unseen"|
|00002510| 0d 0e 42 3b 20 20 20 20 | 20 20 76 6f 69 64 25 3d |..B; | void%=|
|00002520| a4 69 63 6f 6e 5f 6e 65 | 77 73 70 72 69 74 65 28 |.icon_ne|wsprite(|
|00002530| 71 25 2c 76 62 61 73 65 | 25 2c 33 37 2c 22 72 61 |q%,vbase|%,37,"ra|
|00002540| 64 69 6f 32 5f 6f 6e 22 | 2c b9 29 0d 0e 4c 3c 20 |dio2_on"|,.)..L< |
|00002550| 20 20 20 20 20 76 6f 69 | 64 25 3d a4 69 63 6f 6e | voi|d%=.icon|
|00002560| 5f 6e 65 77 73 70 72 69 | 74 65 28 71 25 2c 76 62 |_newspri|te(q%,vb|
|00002570| 61 73 65 25 2c 33 34 2c | 22 72 61 64 69 6f 32 5f |ase%,34,|"radio2_|
|00002580| 6f 66 66 22 2c b9 29 0d | 0e 56 2a 20 20 20 20 20 |off",.).|.V* |
|00002590| 20 c8 95 20 c2 63 68 24 | 28 64 69 73 70 6c 61 79 | .. .ch$|(display|
|000025a0| 5f 72 65 63 6f 72 64 25 | 29 2c 31 29 3c 3e 22 2a |_record%|),1)<>"*|
|000025b0| 22 0d 0e 60 2d 20 20 20 | 20 20 20 20 20 64 69 73 |"..`- | dis|
|000025c0| 70 6c 61 79 5f 72 65 63 | 6f 72 64 25 2b 3d 62 72 |play_rec|ord%+=br|
|000025d0| 6f 77 73 65 5f 64 69 72 | 65 63 74 69 6f 6e 0d 0e |owse_dir|ection..|
|000025e0| 6a 3e 20 20 20 20 20 20 | 20 20 e7 20 64 69 73 70 |j> | . disp|
|000025f0| 6c 61 79 5f 72 65 63 6f | 72 64 25 3e 6e 6f 5f 6f |lay_reco|rd%>no_o|
|00002600| 66 5f 65 6e 74 72 69 65 | 73 25 3a 64 69 73 70 6c |f_entrie|s%:displ|
|00002610| 61 79 5f 72 65 63 6f 72 | 64 25 3d 31 0d 0e 74 3e |ay_recor|d%=1..t>|
|00002620| 20 20 20 20 20 20 20 20 | e7 20 64 69 73 70 6c 61 | |. displa|
|00002630| 79 5f 72 65 63 6f 72 64 | 25 3d 30 3a 64 69 73 70 |y_record|%=0:disp|
|00002640| 6c 61 79 5f 72 65 63 6f | 72 64 25 3d 6e 6f 5f 6f |lay_reco|rd%=no_o|
|00002650| 66 5f 65 6e 74 72 69 65 | 73 25 0d 0e 7e 0b 20 20 |f_entrie|s%..~. |
|00002660| 20 20 20 20 ce 0d 0e 88 | 29 20 20 20 20 20 20 f2 | ....|) .|
|00002670| 64 69 73 70 6c 61 79 5f | 76 62 61 73 65 28 64 69 |display_|vbase(di|
|00002680| 73 70 6c 61 79 5f 72 65 | 63 6f 72 64 25 29 0d 0e |splay_re|cord%)..|
|00002690| 92 09 20 20 20 20 cd 0d | 0e 9c 07 20 20 7f 0d 0e |.. ..|... ...|
|000026a0| a6 05 cb 0d 0e b0 05 e1 | 0d 0e ba 04 0d 0e c4 21 |........|.......!|
|000026b0| dd f2 63 6c 69 63 6b 6e | 65 77 74 61 70 65 28 62 |..clickn|ewtape(b|
|000026c0| 75 74 74 6f 6e 25 2c 69 | 63 6f 6e 25 29 0d 0e ce |utton%,i|con%)...|
|000026d0| 10 e7 20 69 63 6f 6e 25 | 3d 2d 31 3a e1 0d 0e d8 |.. icon%|=-1:....|
|000026e0| 0a c8 8e 20 b9 20 ca 0d | 0e e2 0d c9 20 69 63 6f |... . ..|.... ico|
|000026f0| 6e 25 3d 31 0d 0e ec 11 | 20 20 f2 6f 6b 5f 6e 65 |n%=1....| .ok_ne|
|00002700| 77 74 61 70 65 0d 0e f6 | 05 cb 0d 0f 00 05 e1 0d |wtape...|........|
|00002710| 0f 0a 04 0d 0f 14 21 dd | f2 63 6c 69 63 6b 64 65 |......!.|.clickde|
|00002720| 6c 74 61 70 65 28 62 75 | 74 74 6f 6e 25 2c 69 63 |ltape(bu|tton%,ic|
|00002730| 6f 6e 25 29 0d 0f 1e 10 | e7 20 69 63 6f 6e 25 3d |on%)....|. icon%=|
|00002740| 2d 31 3a e1 0d 0f 28 0b | ea 20 76 6f 69 64 25 0d |-1:...(.|. void%.|
|00002750| 0f 32 0a c8 8e 20 b9 20 | ca 0d 0f 3c 0f 20 20 c9 |.2... . |...<. .|
|00002760| 20 69 63 6f 6e 25 3d 30 | 0d 0f 46 13 20 20 20 20 | icon%=0|..F. |
|00002770| f2 6f 6b 5f 64 65 6c 74 | 61 70 65 0d 0f 50 05 cb |.ok_delt|ape..P..|
|00002780| 0d 0f 5a 05 e1 0d 0f 64 | 04 0d 0f 6e 20 dd f2 63 |..Z....d|...n ..c|
|00002790| 6c 69 63 6b 73 65 61 72 | 63 68 28 62 75 74 74 6f |licksear|ch(butto|
|000027a0| 6e 25 2c 69 63 6f 6e 25 | 29 0d 0f 78 10 e7 20 69 |n%,icon%|)..x.. i|
|000027b0| 63 6f 6e 25 3d 2d 31 3a | e1 0d 0f 82 0a c8 8e 20 |con%=-1:|....... |
|000027c0| b9 20 ca 0d 0f 8c 0f 20 | 20 c9 20 69 63 6f 6e 25 |. ..... | . icon%|
|000027d0| 3d 36 0d 0f 96 12 20 20 | 20 20 f2 6f 6b 5f 73 65 |=6.... | .ok_se|
|000027e0| 61 72 63 68 0d 0f a0 3a | 20 20 20 20 e7 20 62 75 |arch...:| . bu|
|000027f0| 74 74 6f 6e 25 3d 34 20 | 84 20 62 75 74 74 6f 6e |tton%=4 |. button|
|00002800| 25 3d 32 20 8c 20 c8 99 | 20 22 57 69 6d 70 5f 43 |%=2 . ..| "Wimp_C|
|00002810| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 2d 31 0d 0f |reateMen|u",,-1..|
|00002820| aa 0f 20 20 c9 20 69 63 | 6f 6e 25 3d 37 0d 0f b4 |.. . ic|on%=7...|
|00002830| 28 20 20 20 20 f2 69 63 | 6f 6e 5f 70 75 74 64 61 |( .ic|on_putda|
|00002840| 74 61 28 71 25 2c 73 65 | 61 72 63 68 25 2c 32 2c |ta(q%,se|arch%,2,|
|00002850| 22 22 2c b9 29 0d 0f be | 28 20 20 20 20 f2 69 63 |"",.)...|( .ic|
|00002860| 6f 6e 5f 70 75 74 64 61 | 74 61 28 71 25 2c 73 65 |on_putda|ta(q%,se|
|00002870| 61 72 63 68 25 2c 33 2c | 22 22 2c b9 29 0d 0f c8 |arch%,3,|"",.)...|
|00002880| 05 cb 0d 0f d2 05 e1 0d | 0f dc 04 0d 0f e6 20 dd |........|...... .|
|00002890| f2 63 6c 69 63 6b 66 69 | 6e 64 73 70 28 62 75 74 |.clickfi|ndsp(but|
|000028a0| 74 6f 6e 25 2c 69 63 6f | 6e 25 29 0d 0f f0 10 e7 |ton%,ico|n%).....|
|000028b0| 20 69 63 6f 6e 25 3d 2d | 31 3a e1 0d 0f fa 0b ea | icon%=-|1:......|
|000028c0| 20 76 6f 69 64 25 0d 10 | 04 0a c8 8e 20 b9 20 ca | void%..|.... . .|
|000028d0| 0d 10 0e 0f 20 20 c9 20 | 69 63 6f 6e 25 3d 30 0d |.... . |icon%=0.|
|000028e0| 10 18 12 20 20 20 20 f2 | 6f 6b 5f 66 69 6e 64 73 |... .|ok_finds|
|000028f0| 70 0d 10 22 3a 20 20 20 | 20 e7 20 62 75 74 74 6f |p..": | . butto|
|00002900| 6e 25 3d 34 20 84 20 62 | 75 74 74 6f 6e 25 3d 32 |n%=4 . b|utton%=2|
|00002910| 20 8c 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 | . .. "W|imp_Crea|
|00002920| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 0d 10 2c 05 cb |teMenu",|,-1..,..|
|00002930| 0d 10 36 05 e1 0d 10 40 | 04 0d 10 4a 21 dd f2 63 |..6....@|...J!..c|
|00002940| 6c 69 63 6b 63 61 6c 74 | 61 70 65 28 62 75 74 74 |lickcalt|ape(butt|
|00002950| 6f 6e 25 2c 69 63 6f 6e | 25 29 0d 10 54 0e ea 20 |on%,icon|%)..T.. |
|00002960| 6c 6f 6f 70 25 2c 58 25 | 0d 10 5e 10 e7 20 69 63 |loop%,X%|..^.. ic|
|00002970| 6f 6e 25 3d 2d 31 3a e1 | 0d 10 68 0a c8 8e 20 b9 |on%=-1:.|..h... .|
|00002980| 20 ca 0d 10 72 0f 20 20 | c9 20 69 63 6f 6e 25 3d | ...r. |. icon%=|
|00002990| 30 0d 10 7c 13 20 20 20 | 20 f2 6f 6b 5f 63 61 6c |0..|. | .ok_cal|
|000029a0| 74 61 70 65 0d 10 86 3a | 20 20 20 20 e7 20 62 75 |tape...:| . bu|
|000029b0| 74 74 6f 6e 25 3d 34 20 | 84 20 62 75 74 74 6f 6e |tton%=4 |. button|
|000029c0| 25 3d 32 20 8c 20 c8 99 | 20 22 57 69 6d 70 5f 43 |%=2 . ..| "Wimp_C|
|000029d0| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 2d 31 0d 10 |reateMen|u",,-1..|
|000029e0| 90 05 cb 0d 10 9a 05 e1 | 0d 10 a4 04 0d 10 ae 20 |........|....... |
|000029f0| dd f2 63 6c 69 63 6b 6e | 65 77 72 65 63 28 62 75 |..clickn|ewrec(bu|
|00002a00| 74 74 6f 6e 25 2c 69 63 | 6f 6e 25 29 0d 10 b8 10 |tton%,ic|on%)....|
|00002a10| e7 20 69 63 6f 6e 25 3d | 2d 31 3a e1 0d 10 c2 0b |. icon%=|-1:.....|
|00002a20| ea 20 76 6f 69 64 25 0d | 10 cc 0a c8 8e 20 b9 20 |. void%.|..... . |
|00002a30| ca 0d 10 d6 10 20 20 c9 | 20 69 63 6f 6e 25 3d 31 |..... .| icon%=1|
|00002a40| 30 0d 10 e0 12 20 20 20 | 20 f2 6f 6b 5f 6e 65 77 |0.... | .ok_new|
|00002a50| 72 65 63 0d 10 ea 0f 20 | 20 c9 20 69 63 6f 6e 25 |rec.... | . icon%|
|00002a60| 3d 37 0d 10 f4 28 20 20 | 20 20 f2 69 63 6f 6e 5f |=7...( | .icon_|
|00002a70| 70 75 74 64 61 74 61 28 | 71 25 2c 6e 65 77 72 65 |putdata(|q%,newre|
|00002a80| 63 25 2c 32 2c 22 22 2c | b9 29 0d 10 fe 28 20 20 |c%,2,"",|.)...( |
|00002a90| 20 20 f2 69 63 6f 6e 5f | 70 75 74 64 61 74 61 28 | .icon_|putdata(|
|00002aa0| 71 25 2c 6e 65 77 72 65 | 63 25 2c 33 2c 22 22 2c |q%,newre|c%,3,"",|
|00002ab0| b9 29 0d 11 08 28 20 20 | 20 20 f2 69 63 6f 6e 5f |.)...( | .icon_|
|00002ac0| 70 75 74 64 61 74 61 28 | 71 25 2c 6e 65 77 72 65 |putdata(|q%,newre|
|00002ad0| 63 25 2c 34 2c 22 22 2c | b9 29 0d 11 12 28 20 20 |c%,4,"",|.)...( |
|00002ae0| 20 20 f2 69 63 6f 6e 5f | 70 75 74 64 61 74 61 28 | .icon_|putdata(|
|00002af0| 71 25 2c 6e 65 77 72 65 | 63 25 2c 35 2c 22 22 2c |q%,newre|c%,5,"",|
|00002b00| b9 29 0d 11 1c 28 20 20 | 20 20 f2 69 63 6f 6e 5f |.)...( | .icon_|
|00002b10| 70 75 74 64 61 74 61 28 | 71 25 2c 6e 65 77 72 65 |putdata(|q%,newre|
|00002b20| 63 25 2c 36 2c 22 22 2c | b9 29 0d 11 26 05 cb 0d |c%,6,"",|.)..&...|
|00002b30| 11 30 36 e7 20 62 75 74 | 74 6f 6e 25 3d 34 20 84 |.06. but|ton%=4 .|
|00002b40| 20 62 75 74 74 6f 6e 25 | 3d 32 20 8c 20 c8 99 20 | button%|=2 . .. |
|00002b50| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|00002b60| 22 2c 2c 2d 31 0d 11 3a | 05 e1 0d 11 44 04 0d 11 |",,-1..:|....D...|
|00002b70| 4e 21 dd f2 63 6c 69 63 | 6b 73 75 72 65 64 65 6c |N!..clic|ksuredel|
|00002b80| 28 62 75 74 74 6f 6e 25 | 2c 69 63 6f 6e 25 29 0d |(button%|,icon%).|
|00002b90| 11 58 0a c8 8e 20 b9 20 | ca 0d 11 62 21 c9 20 28 |.X... . |...b!. (|
|00002ba0| 62 75 74 74 6f 6e 25 20 | 80 20 34 29 3d 34 20 80 |button% |. 4)=4 .|
|00002bb0| 20 69 63 6f 6e 25 3c 3e | 2d 31 0d 11 6c 10 20 20 | icon%<>|-1..l. |
|00002bc0| c8 8e 20 69 63 6f 6e 25 | 20 ca 0d 11 76 09 20 20 |.. icon%| ...v. |
|00002bd0| c9 20 34 0d 11 80 1e 20 | 20 20 20 f2 63 6c 6f 73 |. 4.... | .clos|
|00002be0| 65 77 69 6e 64 6f 77 28 | 73 75 72 65 64 65 6c 25 |ewindow(|suredel%|
|00002bf0| 29 0d 11 8a 26 20 20 20 | 20 f2 69 63 6f 6e 5f 64 |)...& | .icon_d|
|00002c00| 65 73 65 6c 65 63 74 28 | 73 75 72 65 64 65 6c 25 |eselect(|suredel%|
|00002c10| 2c 69 63 6f 6e 25 29 0d | 11 94 27 20 20 20 20 f2 |,icon%).|..' .|
|00002c20| 6d 6f 75 73 65 5f 72 65 | 63 74 61 6e 67 6c 65 28 |mouse_re|ctangle(|
|00002c30| 30 2c 30 2c 33 30 30 30 | 2c 33 30 30 30 29 0d 11 |0,0,3000|,3000)..|
|00002c40| 9e 09 20 20 c9 20 35 0d | 11 a8 1e 20 20 20 20 f2 |.. . 5.|... .|
|00002c50| 63 6c 6f 73 65 77 69 6e | 64 6f 77 28 73 75 72 65 |closewin|dow(sure|
|00002c60| 64 65 6c 25 29 0d 11 b2 | 26 20 20 20 20 f2 69 63 |del%)...|& .ic|
|00002c70| 6f 6e 5f 64 65 73 65 6c | 65 63 74 28 73 75 72 65 |on_desel|ect(sure|
|00002c80| 64 65 6c 25 2c 69 63 6f | 6e 25 29 0d 11 bc 27 20 |del%,ico|n%)...' |
|00002c90| 20 20 20 f2 6d 6f 75 73 | 65 5f 72 65 63 74 61 6e | .mous|e_rectan|
|00002ca0| 67 6c 65 28 30 2c 30 2c | 33 30 30 30 2c 33 30 30 |gle(0,0,|3000,300|
|00002cb0| 30 29 0d 11 c6 28 20 20 | 20 20 e7 20 c0 63 68 24 |0)...( | . .ch$|
|00002cc0| 28 64 69 73 70 6c 61 79 | 5f 72 65 63 6f 72 64 25 |(display|_record%|
|00002cd0| 29 2c 31 29 3d 22 20 22 | 20 8c 0d 11 d0 38 20 20 |),1)=" "| ....8 |
|00002ce0| 20 20 20 20 e7 20 c2 63 | 68 24 28 64 69 73 70 6c | . .c|h$(displ|
|00002cf0| 61 79 5f 72 65 63 6f 72 | 64 25 29 2c 31 29 3d 22 |ay_recor|d%),1)="|
|00002d00| 2a 22 20 8c 20 6e 72 5f | 75 6e 73 65 65 6e 25 2d |*" . nr_|unseen%-|
|00002d10| 3d 31 0d 11 da 2a 20 20 | 20 20 20 20 f2 72 65 70 |=1...* | .rep|
|00002d20| 6c 61 63 65 5f 62 79 5f | 67 61 70 28 64 69 73 70 |lace_by_|gap(disp|
|00002d30| 6c 61 79 5f 72 65 63 6f | 72 64 25 29 0d 11 e4 3e |lay_reco|rd%)...>|
|00002d40| 20 20 20 20 20 20 e7 20 | 64 69 73 70 6c 61 79 5f | . |display_|
|00002d50| 72 65 63 6f 72 64 25 3e | 6e 6f 5f 6f 66 5f 65 6e |record%>|no_of_en|
|00002d60| 74 72 69 65 73 25 20 8c | 20 64 69 73 70 6c 61 79 |tries% .| display|
|00002d70| 5f 72 65 63 6f 72 64 25 | 3d 31 0d 11 ee 29 20 20 |_record%|=1...) |
|00002d80| 20 20 20 20 f2 64 69 73 | 70 6c 61 79 5f 76 62 61 | .dis|play_vba|
|00002d90| 73 65 28 64 69 73 70 6c | 61 79 5f 72 65 63 6f 72 |se(displ|ay_recor|
|00002da0| 64 25 29 0d 11 f8 1d 20 | 20 20 20 20 20 f2 75 70 |d%).... | .up|
|00002db0| 64 61 74 65 5f 69 6e 66 | 6f 64 69 73 70 6c 61 79 |date_inf|odisplay|
|00002dc0| 0d 12 02 14 20 20 20 20 | 20 20 63 68 61 6e 67 65 |.... | change|
|00002dd0| 64 25 3d b9 0d 12 0c 09 | 20 20 20 20 cc 0d 12 16 |d%=.....| ....|
|00002de0| 2f 20 20 20 20 20 20 f2 | 6f 6b 28 22 43 61 6e 27 |/ .|ok("Can'|
|00002df0| 74 20 64 65 6c 65 74 65 | 20 43 48 45 52 49 53 48 |t delete| CHERISH|
|00002e00| 45 44 20 72 65 63 6f 72 | 64 21 22 29 0d 12 20 09 |ED recor|d!").. .|
|00002e10| 20 20 20 20 cd 0d 12 2a | 07 20 20 cb 0d 12 34 05 | ...*|. ...4.|
|00002e20| cb 0d 12 3e 05 e1 0d 12 | 48 04 0d 12 52 21 dd f2 |...>....|H...R!..|
|00002e30| 63 6c 69 63 6b 75 6e 73 | 61 76 65 64 28 62 75 74 |clickuns|aved(but|
|00002e40| 74 6f 6e 25 2c 69 63 6f | 6e 25 29 0d 12 5c 0a c8 |ton%,ico|n%)..\..|
|00002e50| 8e 20 b9 20 ca 0d 12 66 | 21 c9 20 28 62 75 74 74 |. . ...f|!. (butt|
|00002e60| 6f 6e 25 20 80 20 34 29 | 3d 34 20 80 20 69 63 6f |on% . 4)|=4 . ico|
|00002e70| 6e 25 3c 3e 2d 31 0d 12 | 70 10 20 20 c8 8e 20 69 |n%<>-1..|p. .. i|
|00002e80| 63 6f 6e 25 20 ca 0d 12 | 7a 09 20 20 c9 20 34 0d |con% ...|z. . 4.|
|00002e90| 12 84 1e 20 20 20 20 f2 | 63 6c 6f 73 65 77 69 6e |... .|closewin|
|00002ea0| 64 6f 77 28 75 6e 73 61 | 76 65 64 25 29 0d 12 8e |dow(unsa|ved%)...|
|00002eb0| 26 20 20 20 20 f2 69 63 | 6f 6e 5f 64 65 73 65 6c |& .ic|on_desel|
|00002ec0| 65 63 74 28 75 6e 73 61 | 76 65 64 25 2c 69 63 6f |ect(unsa|ved%,ico|
|00002ed0| 6e 25 29 0d 12 98 27 20 | 20 20 20 f2 6d 6f 75 73 |n%)...' | .mous|
|00002ee0| 65 5f 72 65 63 74 61 6e | 67 6c 65 28 30 2c 30 2c |e_rectan|gle(0,0,|
|00002ef0| 33 30 30 30 2c 33 30 30 | 30 29 0d 12 a2 13 20 20 |3000,300|0).... |
|00002f00| 20 20 63 6c 6f 73 65 64 | 6f 77 6e 3d b9 0d 12 ac | closed|own=....|
|00002f10| 09 20 20 c9 20 35 0d 12 | b6 1e 20 20 20 20 f2 63 |. . 5..|.. .c|
|00002f20| 6c 6f 73 65 77 69 6e 64 | 6f 77 28 75 6e 73 61 76 |losewind|ow(unsav|
|00002f30| 65 64 25 29 0d 12 c0 26 | 20 20 20 20 f2 69 63 6f |ed%)...&| .ico|
|00002f40| 6e 5f 64 65 73 65 6c 65 | 63 74 28 75 6e 73 61 76 |n_desele|ct(unsav|
|00002f50| 65 64 25 2c 69 63 6f 6e | 25 29 0d 12 ca 19 20 20 |ed%,icon|%).... |
|00002f60| 20 20 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f | .. "Ho|urglass_|
|00002f70| 4f 6e 22 0d 12 d4 11 20 | 20 20 20 f2 73 61 76 65 |On".... | .save|
|00002f80| 66 69 6c 65 0d 12 de 1a | 20 20 20 20 c8 99 20 22 |file....| .. "|
|00002f90| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 66 66 22 0d 12 |Hourglas|s_Off"..|
|00002fa0| e8 13 20 20 20 20 63 6c | 6f 73 65 64 6f 77 6e 3d |.. cl|osedown=|
|00002fb0| b9 0d 12 f2 26 20 20 20 | f2 6d 6f 75 73 65 5f 72 |....& |.mouse_r|
|00002fc0| 65 63 74 61 6e 67 6c 65 | 28 30 2c 30 2c 33 30 30 |ectangle|(0,0,300|
|00002fd0| 30 2c 33 30 30 30 29 0d | 12 fc 07 20 20 cb 0d 13 |0,3000).|... ...|
|00002fe0| 06 05 cb 0d 13 10 05 e1 | 0d 13 1a 04 0d 13 24 18 |........|......$.|
|00002ff0| dd f2 64 6f 5f 62 61 63 | 6b 67 72 6f 75 6e 64 5f |..do_bac|kground_|
|00003000| 74 61 73 6b 0d 13 2e 05 | e1 0d 13 38 04 0d 13 42 |task....|...8...B|
|00003010| 1b dd f2 72 65 64 72 61 | 77 77 69 6e 64 6f 77 28 |...redra|wwindow(|
|00003020| 68 61 6e 64 6c 65 25 29 | 0d 13 43 0b ea 20 76 6f |handle%)|..C.. vo|
|00003030| 69 64 25 0d 13 4c 10 71 | 25 21 30 3d 68 61 6e 64 |id%..L.q|%!0=hand|
|00003040| 6c 65 25 0d 13 56 27 c8 | 99 20 22 57 69 6d 70 5f |le%..V'.|. "Wimp_|
|00003050| 52 65 64 72 61 77 57 69 | 6e 64 6f 77 22 2c 30 2c |RedrawWi|ndow",0,|
|00003060| 71 25 20 b8 20 6d 6f 72 | 65 25 0d 13 60 1c f2 6c |q% . mor|e%..`..l|
|00003070| 77 61 6f 72 69 67 69 6e | 28 71 25 2b 34 2c 78 30 |waorigin|(q%+4,x0|
|00003080| 25 2c 79 30 25 29 0d 13 | 6a 0c c8 95 20 6d 6f 72 |%,y0%)..|j... mor|
|00003090| 65 25 0d 13 74 0e 20 20 | f2 6e 65 77 76 61 6c 73 |e%..t. |.newvals|
|000030a0| 0d 13 7e 12 20 20 c8 8e | 20 68 61 6e 64 6c 65 25 |..~. ..| handle%|
|000030b0| 20 ca 0d 13 88 32 20 20 | 20 20 c9 20 73 74 61 74 | ....2 | . stat|
|000030c0| 75 73 25 20 3a 76 6f 69 | 64 25 3d a4 64 72 61 77 |us% :voi|d%=.draw|
|000030d0| 5f 74 61 70 65 73 74 61 | 74 75 73 28 78 30 25 2c |_tapesta|tus(x0%,|
|000030e0| 79 30 25 29 0d 13 92 07 | 20 20 cb 0d 13 9c 29 20 |y0%)....| ....) |
|000030f0| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 52 65 63 | .. "Wim|p_GetRec|
|00003100| 74 61 6e 67 6c 65 22 2c | 30 2c 71 25 20 b8 20 6d |tangle",|0,q% . m|
|00003110| 6f 72 65 25 0d 13 a6 05 | ce 0d 13 b0 05 e1 0d 13 |ore%....|........|
|00003120| ba 04 0d 13 c4 19 dd a4 | 6f 6b 74 6f 63 6c 6f 73 |........|oktoclos|
|00003130| 65 77 28 68 61 6e 64 6c | 65 25 29 0d 13 ce 0e 73 |ew(handl|e%)....s|
|00003140| 68 75 74 74 69 6e 67 3d | b9 0d 13 d8 1d e7 20 68 |hutting=|...... h|
|00003150| 61 6e 64 6c 65 25 3d 76 | 62 61 73 65 25 20 8c 20 |andle%=v|base% . |
|00003160| 6f 70 65 6e 3d a3 0d 13 | e2 0d 3d 73 68 75 74 74 |open=...|..=shutt|
|00003170| 69 6e 67 0d 13 ec 04 0d | 14 1e 0e dd f2 6b 65 79 |ing.....|.....key|
|00003180| 70 72 65 73 73 0d 14 28 | 09 ea 20 69 63 25 0d 14 |press..(|.. ic%..|
|00003190| 32 10 e7 20 71 25 21 34 | 3c 3e 2d 31 20 8c 0d 14 |2.. q%!4|<>-1 ...|
|000031a0| 3c 25 20 20 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |<% .. "|Wimp_Get|
|000031b0| 43 61 72 65 74 50 6f 73 | 69 74 69 6f 6e 22 2c 2c |CaretPos|ition",,|
|000031c0| 62 6c 6b 0d 14 46 0f 20 | 20 69 63 25 3d 62 6c 6b |blk..F. | ic%=blk|
|000031d0| 21 34 0d 14 50 10 20 20 | c8 8e 20 71 25 21 32 34 |!4..P. |.. q%!24|
|000031e0| 20 ca 0d 14 5a 0a 20 20 | c9 20 32 37 0d 14 64 20 | ...Z. |. 27..d |
|000031f0| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 | .. "|Wimp_Cre|
|00003200| 61 74 65 4d 65 6e 75 22 | 2c 2c 2d 31 0d 14 6e 0a |ateMenu"|,,-1..n.|
|00003210| 20 20 c9 20 31 33 0d 14 | 78 11 20 20 20 20 c8 8e | . 13..|x. ..|
|00003220| 20 71 25 21 30 20 ca 0d | 14 82 13 20 20 20 20 20 | q%!0 ..|... |
|00003230| 20 c9 20 6e 65 77 72 65 | 63 25 0d 14 8c 14 20 20 | . newre|c%.... |
|00003240| 20 20 20 20 20 20 c8 8e | 20 69 63 25 20 ca 0d 14 | ..| ic% ...|
|00003250| 96 17 20 20 20 20 20 20 | 20 20 20 20 c9 20 32 2c |.. | . 2,|
|00003260| 33 2c 34 2c 35 0d 14 a0 | 5d 20 20 20 20 20 20 20 |3,4,5...|] |
|00003270| 20 20 20 20 20 f2 63 61 | 72 65 74 5f 73 65 74 70 | .ca|ret_setp|
|00003280| 6f 73 69 74 69 6f 6e 28 | 6e 65 77 72 65 63 25 2c |osition(|newrec%,|
|00003290| 69 63 25 2b 31 2c 2d 31 | 2c 2d 31 2c 2d 31 2c a9 |ic%+1,-1|,-1,-1,.|
|000032a0| 28 a4 69 63 6f 6e 5f 67 | 65 74 64 61 74 61 28 71 |(.icon_g|etdata(q|
|000032b0| 25 2c 6e 65 77 72 65 63 | 25 2c 69 63 25 2b 31 29 |%,newrec|%,ic%+1)|
|000032c0| 29 29 0d 14 aa 11 20 20 | 20 20 20 20 20 20 20 20 |)).... | |
|000032d0| c9 20 36 0d 14 b4 33 20 | 20 20 20 20 20 20 20 20 |. 6...3 | |
|000032e0| 20 20 20 f2 69 63 6f 6e | 5f 73 65 74 66 67 63 6f | .icon|_setfgco|
|000032f0| 6c 6f 75 72 28 71 25 2c | 6e 65 77 72 65 63 25 2c |lour(q%,|newrec%,|
|00003300| 31 30 2c 31 32 29 0d 14 | be 32 20 20 20 20 20 20 |10,12)..|.2 |
|00003310| 20 20 20 20 20 20 f2 69 | 63 6f 6e 5f 73 65 74 62 | .i|con_setb|
|00003320| 67 63 6f 6c 6f 75 72 28 | 71 25 2c 6e 65 77 72 65 |gcolour(|q%,newre|
|00003330| 63 25 2c 31 30 2c 37 29 | 0d 14 c8 1b 20 20 20 20 |c%,10,7)|.... |
|00003340| 20 20 20 20 20 20 20 20 | f2 64 65 6c 61 79 28 30 | |.delay(0|
|00003350| 2e 32 29 0d 14 d2 32 20 | 20 20 20 20 20 20 20 20 |.2)...2 | |
|00003360| 20 20 20 f2 69 63 6f 6e | 5f 73 65 74 66 67 63 6f | .icon|_setfgco|
|00003370| 6c 6f 75 72 28 71 25 2c | 6e 65 77 72 65 63 25 2c |lour(q%,|newrec%,|
|00003380| 31 30 2c 37 29 0d 14 dc | 33 20 20 20 20 20 20 20 |10,7)...|3 |
|00003390| 20 20 20 20 20 f2 69 63 | 6f 6e 5f 73 65 74 62 67 | .ic|on_setbg|
|000033a0| 63 6f 6c 6f 75 72 28 71 | 25 2c 6e 65 77 72 65 63 |colour(q|%,newrec|
|000033b0| 25 2c 31 30 2c 31 32 29 | 0d 14 e6 1a 20 20 20 20 |%,10,12)|.... |
|000033c0| 20 20 20 20 20 20 20 20 | f2 6f 6b 5f 6e 65 77 72 | |.ok_newr|
|000033d0| 65 63 0d 14 f0 28 20 20 | 20 20 20 20 20 20 20 20 |ec...( | |
|000033e0| 20 20 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 | .. "Wi|mp_Creat|
|000033f0| 65 4d 65 6e 75 22 2c 2c | 2d 31 0d 14 fa 0d 20 20 |eMenu",,|-1.... |
|00003400| 20 20 20 20 20 20 cb 0d | 15 04 13 20 20 20 20 20 | ..|... |
|00003410| 20 c9 20 73 65 61 72 63 | 68 25 0d 15 0e 14 20 20 | . searc|h%.... |
|00003420| 20 20 20 20 20 20 c8 8e | 20 69 63 25 20 ca 0d 15 | ..| ic% ...|
|00003430| 18 11 20 20 20 20 20 20 | 20 20 20 20 c9 20 32 0d |.. | . 2.|
|00003440| 15 22 5d 20 20 20 20 20 | 20 20 20 20 20 20 20 f2 |."] | .|
|00003450| 63 61 72 65 74 5f 73 65 | 74 70 6f 73 69 74 69 6f |caret_se|tpositio|
|00003460| 6e 28 73 65 61 72 63 68 | 25 2c 69 63 25 2b 31 2c |n(search|%,ic%+1,|
|00003470| 2d 31 2c 2d 31 2c 2d 31 | 2c a9 28 a4 69 63 6f 6e |-1,-1,-1|,.(.icon|
|00003480| 5f 67 65 74 64 61 74 61 | 28 71 25 2c 73 65 61 72 |_getdata|(q%,sear|
|00003490| 63 68 25 2c 69 63 25 2b | 31 29 29 29 0d 15 2c 11 |ch%,ic%+|1)))..,.|
|000034a0| 20 20 20 20 20 20 20 20 | 20 20 c9 20 33 0d 15 36 | | . 3..6|
|000034b0| 32 20 20 20 20 20 20 20 | 20 20 20 20 20 f2 69 63 |2 | .ic|
|000034c0| 6f 6e 5f 73 65 74 66 67 | 63 6f 6c 6f 75 72 28 71 |on_setfg|colour(q|
|000034d0| 25 2c 73 65 61 72 63 68 | 25 2c 36 2c 31 32 29 0d |%,search|%,6,12).|
|000034e0| 15 40 31 20 20 20 20 20 | 20 20 20 20 20 20 20 f2 |.@1 | .|
|000034f0| 69 63 6f 6e 5f 73 65 74 | 62 67 63 6f 6c 6f 75 72 |icon_set|bgcolour|
|00003500| 28 71 25 2c 73 65 61 72 | 63 68 25 2c 36 2c 37 29 |(q%,sear|ch%,6,7)|
|00003510| 0d 15 4a 1b 20 20 20 20 | 20 20 20 20 20 20 20 20 |..J. | |
|00003520| f2 64 65 6c 61 79 28 30 | 2e 32 29 0d 15 54 31 20 |.delay(0|.2)..T1 |
|00003530| 20 20 20 20 20 20 20 20 | 20 20 20 f2 69 63 6f 6e | | .icon|
|00003540| 5f 73 65 74 66 67 63 6f | 6c 6f 75 72 28 71 25 2c |_setfgco|lour(q%,|
|00003550| 73 65 61 72 63 68 25 2c | 36 2c 37 29 0d 15 5e 32 |search%,|6,7)..^2|
|00003560| 20 20 20 20 20 20 20 20 | 20 20 20 20 f2 69 63 6f | | .ico|
|00003570| 6e 5f 73 65 74 62 67 63 | 6f 6c 6f 75 72 28 71 25 |n_setbgc|olour(q%|
|00003580| 2c 73 65 61 72 63 68 25 | 2c 36 2c 31 32 29 0d 15 |,search%|,6,12)..|
|00003590| 68 1a 20 20 20 20 20 20 | 20 20 20 20 20 20 f2 6f |h. | .o|
|000035a0| 6b 5f 73 65 61 72 63 68 | 0d 15 72 28 20 20 20 20 |k_search|..r( |
|000035b0| 20 20 20 20 20 20 20 20 | c8 99 20 22 57 69 6d 70 | |.. "Wimp|
|000035c0| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 2d 31 |_CreateM|enu",,-1|
|000035d0| 0d 15 7c 0e 20 20 20 20 | 20 20 20 20 20 cb 0d 15 |..|. | ...|
|000035e0| 86 14 20 20 20 20 20 20 | c9 20 63 61 6c 74 61 70 |.. |. caltap|
|000035f0| 65 25 0d 15 90 14 20 20 | 20 20 20 20 20 20 c8 8e |e%.... | ..|
|00003600| 20 69 63 25 20 ca 0d 15 | 9a 12 20 20 20 20 20 20 | ic% ...|.. |
|00003610| 20 20 20 20 c9 20 32 35 | 0d 15 a4 33 20 20 20 20 | . 25|...3 |
|00003620| 20 20 20 20 20 20 20 20 | f2 69 63 6f 6e 5f 73 65 | |.icon_se|
|00003630| 74 66 67 63 6f 6c 6f 75 | 72 28 71 25 2c 63 61 6c |tfgcolou|r(q%,cal|
|00003640| 74 61 70 65 25 2c 30 2c | 31 32 29 0d 15 ae 32 20 |tape%,0,|12)...2 |
|00003650| 20 20 20 20 20 20 20 20 | 20 20 20 f2 69 63 6f 6e | | .icon|
|00003660| 5f 73 65 74 62 67 63 6f | 6c 6f 75 72 28 71 25 2c |_setbgco|lour(q%,|
|00003670| 63 61 6c 74 61 70 65 25 | 2c 30 2c 37 29 0d 15 b8 |caltape%|,0,7)...|
|00003680| 1b 20 20 20 20 20 20 20 | 20 20 20 20 20 f2 64 65 |. | .de|
|00003690| 6c 61 79 28 30 2e 32 29 | 0d 15 c2 32 20 20 20 20 |lay(0.2)|...2 |
|000036a0| 20 20 20 20 20 20 20 20 | f2 69 63 6f 6e 5f 73 65 | |.icon_se|
|000036b0| 74 66 67 63 6f 6c 6f 75 | 72 28 71 25 2c 63 61 6c |tfgcolou|r(q%,cal|
|000036c0| 74 61 70 65 25 2c 30 2c | 37 29 0d 15 cc 33 20 20 |tape%,0,|7)...3 |
|000036d0| 20 20 20 20 20 20 20 20 | 20 20 f2 69 63 6f 6e 5f | | .icon_|
|000036e0| 73 65 74 62 67 63 6f 6c | 6f 75 72 28 71 25 2c 63 |setbgcol|our(q%,c|
|000036f0| 61 6c 74 61 70 65 25 2c | 30 2c 31 32 29 0d 15 d6 |altape%,|0,12)...|
|00003700| 1b 20 20 20 20 20 20 20 | 20 20 20 20 20 f2 6f 6b |. | .ok|
|00003710| 5f 63 61 6c 74 61 70 65 | 0d 15 e0 28 20 20 20 20 |_caltape|...( |
|00003720| 20 20 20 20 20 20 20 20 | c8 99 20 22 57 69 6d 70 | |.. "Wimp|
|00003730| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 2d 31 |_CreateM|enu",,-1|
|00003740| 0d 15 ea 0f 20 20 20 20 | 20 20 20 20 20 20 7f 0d |.... | ..|
|00003750| 15 f4 5f 20 20 20 20 20 | 20 20 20 20 20 20 20 f2 |.._ | .|
|00003760| 63 61 72 65 74 5f 73 65 | 74 70 6f 73 69 74 69 6f |caret_se|tpositio|
|00003770| 6e 28 63 61 6c 74 61 70 | 65 25 2c 69 63 25 2b 31 |n(caltap|e%,ic%+1|
|00003780| 2c 2d 31 2c 2d 31 2c 2d | 31 2c a9 28 a4 69 63 6f |,-1,-1,-|1,.(.ico|
|00003790| 6e 5f 67 65 74 64 61 74 | 61 28 71 25 2c 63 61 6c |n_getdat|a(q%,cal|
|000037a0| 74 61 70 65 25 2c 69 63 | 25 2b 31 29 29 29 0d 15 |tape%,ic|%+1)))..|
|000037b0| fe 0d 20 20 20 20 20 20 | 20 20 cb 0d 16 08 14 20 |.. | ..... |
|000037c0| 20 20 20 20 20 c9 20 6e | 65 77 74 61 70 65 25 0d | . n|ewtape%.|
|000037d0| 16 12 2f 20 20 20 20 20 | 20 20 20 f2 69 63 6f 6e |../ | .icon|
|000037e0| 5f 73 65 74 66 67 63 6f | 6c 6f 75 72 28 71 25 2c |_setfgco|lour(q%,|
|000037f0| 6e 65 77 74 61 70 65 25 | 2c 31 2c 31 32 29 0d 16 |newtape%|,1,12)..|
|00003800| 1c 2e 20 20 20 20 20 20 | 20 20 f2 69 63 6f 6e 5f |.. | .icon_|
|00003810| 73 65 74 62 67 63 6f 6c | 6f 75 72 28 71 25 2c 6e |setbgcol|our(q%,n|
|00003820| 65 77 74 61 70 65 25 2c | 31 2c 37 29 0d 16 26 17 |ewtape%,|1,7)..&.|
|00003830| 20 20 20 20 20 20 20 20 | f2 64 65 6c 61 79 28 30 | |.delay(0|
|00003840| 2e 32 29 0d 16 30 2e 20 | 20 20 20 20 20 20 20 f2 |.2)..0. | .|
|00003850| 69 63 6f 6e 5f 73 65 74 | 66 67 63 6f 6c 6f 75 72 |icon_set|fgcolour|
|00003860| 28 71 25 2c 6e 65 77 74 | 61 70 65 25 2c 31 2c 37 |(q%,newt|ape%,1,7|
|00003870| 29 0d 16 3a 2f 20 20 20 | 20 20 20 20 20 f2 69 63 |)..:/ | .ic|
|00003880| 6f 6e 5f 73 65 74 62 67 | 63 6f 6c 6f 75 72 28 71 |on_setbg|colour(q|
|00003890| 25 2c 6e 65 77 74 61 70 | 65 25 2c 31 2c 31 32 29 |%,newtap|e%,1,12)|
|000038a0| 0d 16 44 17 20 20 20 20 | 20 20 20 20 f2 6f 6b 5f |..D. | .ok_|
|000038b0| 6e 65 77 74 61 70 65 0d | 16 4e 24 20 20 20 20 20 |newtape.|.N$ |
|000038c0| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 | .. "W|imp_Crea|
|000038d0| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 0d 16 58 14 20 |teMenu",|,-1..X. |
|000038e0| 20 20 20 20 20 c9 20 64 | 65 6c 74 61 70 65 25 0d | . d|eltape%.|
|000038f0| 16 62 2f 20 20 20 20 20 | 20 20 20 f2 69 63 6f 6e |.b/ | .icon|
|00003900| 5f 73 65 74 66 67 63 6f | 6c 6f 75 72 28 71 25 2c |_setfgco|lour(q%,|
|00003910| 64 65 6c 74 61 70 65 25 | 2c 30 2c 31 32 29 0d 16 |deltape%|,0,12)..|
|00003920| 6c 2e 20 20 20 20 20 20 | 20 20 f2 69 63 6f 6e 5f |l. | .icon_|
|00003930| 73 65 74 62 67 63 6f 6c | 6f 75 72 28 71 25 2c 64 |setbgcol|our(q%,d|
|00003940| 65 6c 74 61 70 65 25 2c | 30 2c 37 29 0d 16 76 17 |eltape%,|0,7)..v.|
|00003950| 20 20 20 20 20 20 20 20 | f2 64 65 6c 61 79 28 30 | |.delay(0|
|00003960| 2e 32 29 0d 16 80 2e 20 | 20 20 20 20 20 20 20 f2 |.2).... | .|
|00003970| 69 63 6f 6e 5f 73 65 74 | 66 67 63 6f 6c 6f 75 72 |icon_set|fgcolour|
|00003980| 28 71 25 2c 64 65 6c 74 | 61 70 65 25 2c 30 2c 37 |(q%,delt|ape%,0,7|
|00003990| 29 0d 16 8a 2f 20 20 20 | 20 20 20 20 20 f2 69 63 |).../ | .ic|
|000039a0| 6f 6e 5f 73 65 74 62 67 | 63 6f 6c 6f 75 72 28 71 |on_setbg|colour(q|
|000039b0| 25 2c 64 65 6c 74 61 70 | 65 25 2c 30 2c 31 32 29 |%,deltap|e%,0,12)|
|000039c0| 0d 16 94 17 20 20 20 20 | 20 20 20 20 f2 6f 6b 5f |.... | .ok_|
|000039d0| 64 65 6c 74 61 70 65 0d | 16 9e 24 20 20 20 20 20 |deltape.|..$ |
|000039e0| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 | .. "W|imp_Crea|
|000039f0| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 0d 16 a8 13 20 |teMenu",|,-1.... |
|00003a00| 20 20 20 20 20 c9 20 66 | 69 6e 64 73 70 25 0d 16 | . f|indsp%..|
|00003a10| b2 2e 20 20 20 20 20 20 | 20 20 f2 69 63 6f 6e 5f |.. | .icon_|
|00003a20| 73 65 74 66 67 63 6f 6c | 6f 75 72 28 71 25 2c 66 |setfgcol|our(q%,f|
|00003a30| 69 6e 64 73 70 25 2c 30 | 2c 31 32 29 0d 16 bc 2d |indsp%,0|,12)...-|
|00003a40| 20 20 20 20 20 20 20 20 | f2 69 63 6f 6e 5f 73 65 | |.icon_se|
|00003a50| 74 62 67 63 6f 6c 6f 75 | 72 28 71 25 2c 66 69 6e |tbgcolou|r(q%,fin|
|00003a60| 64 73 70 25 2c 30 2c 37 | 29 0d 16 c6 17 20 20 20 |dsp%,0,7|).... |
|00003a70| 20 20 20 20 20 f2 64 65 | 6c 61 79 28 30 2e 32 29 | .de|lay(0.2)|
|00003a80| 0d 16 d0 2d 20 20 20 20 | 20 20 20 20 f2 69 63 6f |...- | .ico|
|00003a90| 6e 5f 73 65 74 66 67 63 | 6f 6c 6f 75 72 28 71 25 |n_setfgc|olour(q%|
|00003aa0| 2c 66 69 6e 64 73 70 25 | 2c 30 2c 37 29 0d 16 da |,findsp%|,0,7)...|
|00003ab0| 2e 20 20 20 20 20 20 20 | 20 f2 69 63 6f 6e 5f 73 |. | .icon_s|
|00003ac0| 65 74 62 67 63 6f 6c 6f | 75 72 28 71 25 2c 66 69 |etbgcolo|ur(q%,fi|
|00003ad0| 6e 64 73 70 25 2c 30 2c | 31 32 29 0d 16 e4 16 20 |ndsp%,0,|12).... |
|00003ae0| 20 20 20 20 20 20 20 f2 | 6f 6b 5f 66 69 6e 64 73 | .|ok_finds|
|00003af0| 70 0d 16 ee 24 20 20 20 | 20 20 20 20 20 c8 99 20 |p...$ | .. |
|00003b00| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|00003b10| 22 2c 2c 2d 31 0d 16 f8 | 12 20 20 20 20 20 20 c9 |",,-1...|. .|
|00003b20| 20 76 62 61 73 65 25 0d | 17 02 14 20 20 20 20 20 | vbase%.|... |
|00003b30| 20 20 20 c8 8e 20 69 63 | 25 20 ca 0d 17 0c 19 20 | .. ic|% ..... |
|00003b40| 20 20 20 20 20 20 20 20 | 20 c9 20 31 31 3a 69 63 | | . 11:ic|
|00003b50| 25 3d 31 32 0d 17 16 19 | 20 20 20 20 20 20 20 20 |%=12....| |
|00003b60| 20 20 c9 20 31 32 3a 69 | 63 25 3d 31 34 0d 17 20 | . 12:i|c%=14.. |
|00003b70| 19 20 20 20 20 20 20 20 | 20 20 20 c9 20 31 34 3a |. | . 14:|
|00003b80| 69 63 25 3d 31 36 0d 17 | 2a 19 20 20 20 20 20 20 |ic%=16..|*. |
|00003b90| 20 20 20 20 c9 20 31 36 | 3a 69 63 25 3d 2d 31 0d | . 16|:ic%=-1.|
|00003ba0| 17 34 0d 20 20 20 20 20 | 20 20 20 cb 0d 17 3e 17 |.4. | ...>.|
|00003bb0| 20 20 20 20 20 20 20 20 | e7 20 69 63 25 3c 3e 2d | |. ic%<>-|
|00003bc0| 31 20 8c 0d 17 48 55 20 | 20 20 20 20 20 20 20 20 |1 ...HU | |
|00003bd0| 20 f2 63 61 72 65 74 5f | 73 65 74 70 6f 73 69 74 | .caret_|setposit|
|00003be0| 69 6f 6e 28 76 62 61 73 | 65 25 2c 69 63 25 2c 2d |ion(vbas|e%,ic%,-|
|00003bf0| 31 2c 2d 31 2c 2d 31 2c | a9 28 a4 69 63 6f 6e 5f |1,-1,-1,|.(.icon_|
|00003c00| 67 65 74 64 61 74 61 28 | 71 25 2c 76 62 61 73 65 |getdata(|q%,vbase|
|00003c10| 25 2c 69 63 25 29 29 29 | 0d 17 52 0d 20 20 20 20 |%,ic%)))|..R. |
|00003c20| 20 20 20 20 cc 0d 17 5c | 17 20 20 20 20 20 20 20 | ...\|. |
|00003c30| 20 20 20 f2 6f 6b 5f 76 | 62 61 73 65 0d 17 66 2b | .ok_v|base..f+|
|00003c40| 20 20 20 20 20 20 20 20 | 20 20 c8 99 20 22 57 69 | | .. "Wi|
|00003c50| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|00003c60| 69 6f 6e 22 2c 2d 31 0d | 17 70 0d 20 20 20 20 20 |ion",-1.|.p. |
|00003c70| 20 20 20 cd 0d 17 7a 0b | 20 20 20 20 20 20 cb 0d | ...z.| ..|
|00003c80| 17 84 0e 20 20 20 20 c9 | 20 26 31 38 45 0d 17 8e |... .| &18E...|
|00003c90| 13 20 20 20 20 20 20 c8 | 8e 20 71 25 21 30 20 ca |. .|. q%!0 .|
|00003ca0| 0d 17 98 14 20 20 20 20 | 20 20 20 20 c9 20 76 62 |.... | . vb|
|00003cb0| 61 73 65 25 0d 17 a2 16 | 20 20 20 20 20 20 20 20 |ase%....| |
|00003cc0| 20 20 c8 8e 20 69 63 25 | 20 ca 0d 17 ac 1b 20 20 | .. ic%| ..... |
|00003cd0| 20 20 20 20 20 20 20 20 | 20 20 c9 20 31 31 3a 69 | | . 11:i|
|00003ce0| 63 25 3d 31 32 0d 17 b6 | 1b 20 20 20 20 20 20 20 |c%=12...|. |
|00003cf0| 20 20 20 20 20 c9 20 31 | 32 3a 69 63 25 3d 31 34 | . 1|2:ic%=14|
|00003d00| 0d 17 c0 1b 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|00003d10| c9 20 31 34 3a 69 63 25 | 3d 31 36 0d 17 ca 1b 20 |. 14:ic%|=16.... |
|00003d20| 20 20 20 20 20 20 20 20 | 20 20 20 c9 20 31 36 3a | | . 16:|
|00003d30| 69 63 25 3d 31 31 0d 17 | d4 0f 20 20 20 20 20 20 |ic%=11..|.. |
|00003d40| 20 20 20 20 cb 0d 17 de | 55 20 20 20 20 20 20 20 | ....|U |
|00003d50| 20 20 20 f2 63 61 72 65 | 74 5f 73 65 74 70 6f 73 | .care|t_setpos|
|00003d60| 69 74 69 6f 6e 28 76 62 | 61 73 65 25 2c 69 63 25 |ition(vb|ase%,ic%|
|00003d70| 2c 2d 31 2c 2d 31 2c 2d | 31 2c a9 28 a4 69 63 6f |,-1,-1,-|1,.(.ico|
|00003d80| 6e 5f 67 65 74 64 61 74 | 61 28 71 25 2c 76 62 61 |n_getdat|a(q%,vba|
|00003d90| 73 65 25 2c 69 63 25 29 | 29 29 0d 17 e8 15 20 20 |se%,ic%)|)).... |
|00003da0| 20 20 20 20 20 20 c9 20 | 6e 65 77 72 65 63 25 0d | . |newrec%.|
|00003db0| 17 f2 27 20 20 20 20 20 | 20 20 20 20 20 69 63 25 |..' | ic%|
|00003dc0| 3d 69 63 25 2b 31 3a e7 | 20 69 63 25 3e 36 20 8c |=ic%+1:.| ic%>6 .|
|00003dd0| 20 69 63 25 3d 32 0d 17 | fc 57 20 20 20 20 20 20 | ic%=2..|.W |
|00003de0| 20 20 20 20 f2 63 61 72 | 65 74 5f 73 65 74 70 6f | .car|et_setpo|
|00003df0| 73 69 74 69 6f 6e 28 6e | 65 77 72 65 63 25 2c 69 |sition(n|ewrec%,i|
|00003e00| 63 25 2c 2d 31 2c 2d 31 | 2c 2d 31 2c a9 28 a4 69 |c%,-1,-1|,-1,.(.i|
|00003e10| 63 6f 6e 5f 67 65 74 64 | 61 74 61 28 71 25 2c 6e |con_getd|ata(q%,n|
|00003e20| 65 77 72 65 63 25 2c 69 | 63 25 29 29 29 0d 18 06 |ewrec%,i|c%)))...|
|00003e30| 15 20 20 20 20 20 20 20 | 20 c9 20 73 65 61 72 63 |. | . searc|
|00003e40| 68 25 0d 18 10 27 20 20 | 20 20 20 20 20 20 20 20 |h%...' | |
|00003e50| 69 63 25 3d 69 63 25 2b | 31 3a e7 20 69 63 25 3e |ic%=ic%+|1:. ic%>|
|00003e60| 33 20 8c 20 69 63 25 3d | 32 0d 18 1a 57 20 20 20 |3 . ic%=|2...W |
|00003e70| 20 20 20 20 20 20 20 f2 | 63 61 72 65 74 5f 73 65 | .|caret_se|
|00003e80| 74 70 6f 73 69 74 69 6f | 6e 28 73 65 61 72 63 68 |tpositio|n(search|
|00003e90| 25 2c 69 63 25 2c 2d 31 | 2c 2d 31 2c 2d 31 2c a9 |%,ic%,-1|,-1,-1,.|
|00003ea0| 28 a4 69 63 6f 6e 5f 67 | 65 74 64 61 74 61 28 71 |(.icon_g|etdata(q|
|00003eb0| 25 2c 73 65 61 72 63 68 | 25 2c 69 63 25 29 29 29 |%,search|%,ic%)))|
|00003ec0| 0d 18 24 16 20 20 20 20 | 20 20 20 20 c9 20 63 61 |..$. | . ca|
|00003ed0| 6c 74 61 70 65 25 0d 18 | 2e 28 20 20 20 20 20 20 |ltape%..|.( |
|00003ee0| 20 20 20 20 69 63 25 3d | 69 63 25 2b 31 3a e7 20 | ic%=|ic%+1:. |
|00003ef0| 69 63 25 3e 32 35 20 8c | 20 69 63 25 3d 32 0d 18 |ic%>25 .| ic%=2..|
|00003f00| 38 59 20 20 20 20 20 20 | 20 20 20 20 f2 63 61 72 |8Y | .car|
|00003f10| 65 74 5f 73 65 74 70 6f | 73 69 74 69 6f 6e 28 63 |et_setpo|sition(c|
|00003f20| 61 6c 74 61 70 65 25 2c | 69 63 25 2c 2d 31 2c 2d |altape%,|ic%,-1,-|
|00003f30| 31 2c 2d 31 2c a9 28 a4 | 69 63 6f 6e 5f 67 65 74 |1,-1,.(.|icon_get|
|00003f40| 64 61 74 61 28 71 25 2c | 63 61 6c 74 61 70 65 25 |data(q%,|caltape%|
|00003f50| 2c 69 63 25 29 29 29 0d | 18 42 0b 20 20 20 20 20 |,ic%))).|.B. |
|00003f60| 20 cb 0d 18 4c 0e 20 20 | 20 20 c9 20 26 31 38 46 | ...L. | . &18F|
|00003f70| 0d 18 56 13 20 20 20 20 | 20 20 c8 8e 20 71 25 21 |..V. | .. q%!|
|00003f80| 30 20 ca 0d 18 60 14 20 | 20 20 20 20 20 20 20 c9 |0 ...`. | .|
|00003f90| 20 76 62 61 73 65 25 0d | 18 6a 16 20 20 20 20 20 | vbase%.|.j. |
|00003fa0| 20 20 20 20 20 c8 8e 20 | 69 63 25 20 ca 0d 18 74 | .. |ic% ...t|
|00003fb0| 1b 20 20 20 20 20 20 20 | 20 20 20 20 20 c9 20 31 |. | . 1|
|00003fc0| 31 3a 69 63 25 3d 31 36 | 0d 18 7e 1b 20 20 20 20 |1:ic%=16|..~. |
|00003fd0| 20 20 20 20 20 20 20 20 | c9 20 31 32 3a 69 63 25 | |. 12:ic%|
|00003fe0| 3d 31 31 0d 18 88 1b 20 | 20 20 20 20 20 20 20 20 |=11.... | |
|00003ff0| 20 20 20 c9 20 31 34 3a | 69 63 25 3d 31 32 0d 18 | . 14:|ic%=12..|
|00004000| 92 1b 20 20 20 20 20 20 | 20 20 20 20 20 20 c9 20 |.. | . |
|00004010| 31 36 3a 69 63 25 3d 31 | 34 0d 18 9c 0f 20 20 20 |16:ic%=1|4.... |
|00004020| 20 20 20 20 20 20 20 cb | 0d 18 a6 55 20 20 20 20 | .|...U |
|00004030| 20 20 20 20 20 20 f2 63 | 61 72 65 74 5f 73 65 74 | .c|aret_set|
|00004040| 70 6f 73 69 74 69 6f 6e | 28 76 62 61 73 65 25 2c |position|(vbase%,|
|00004050| 69 63 25 2c 2d 31 2c 2d | 31 2c 2d 31 2c a9 28 a4 |ic%,-1,-|1,-1,.(.|
|00004060| 69 63 6f 6e 5f 67 65 74 | 64 61 74 61 28 71 25 2c |icon_get|data(q%,|
|00004070| 76 62 61 73 65 25 2c 69 | 63 25 29 29 29 0d 18 b0 |vbase%,i|c%)))...|
|00004080| 15 20 20 20 20 20 20 20 | 20 c9 20 6e 65 77 72 65 |. | . newre|
|00004090| 63 25 0d 18 ba 27 20 20 | 20 20 20 20 20 20 20 20 |c%...' | |
|000040a0| 69 63 25 3d 69 63 25 2d | 31 3a e7 20 69 63 25 3c |ic%=ic%-|1:. ic%<|
|000040b0| 32 20 8c 20 69 63 25 3d | 36 0d 18 c4 57 20 20 20 |2 . ic%=|6...W |
|000040c0| 20 20 20 20 20 20 20 f2 | 63 61 72 65 74 5f 73 65 | .|caret_se|
|000040d0| 74 70 6f 73 69 74 69 6f | 6e 28 6e 65 77 72 65 63 |tpositio|n(newrec|
|000040e0| 25 2c 69 63 25 2c 2d 31 | 2c 2d 31 2c 2d 31 2c a9 |%,ic%,-1|,-1,-1,.|
|000040f0| 28 a4 69 63 6f 6e 5f 67 | 65 74 64 61 74 61 28 71 |(.icon_g|etdata(q|
|00004100| 25 2c 6e 65 77 72 65 63 | 25 2c 69 63 25 29 29 29 |%,newrec|%,ic%)))|
|00004110| 0d 18 ce 15 20 20 20 20 | 20 20 20 20 c9 20 73 65 |.... | . se|
|00004120| 61 72 63 68 25 0d 18 d8 | 27 20 20 20 20 20 20 20 |arch%...|' |
|00004130| 20 20 20 69 63 25 3d 69 | 63 25 2d 31 3a e7 20 69 | ic%=i|c%-1:. i|
|00004140| 63 25 3c 32 20 8c 20 69 | 63 25 3d 33 0d 18 e2 57 |c%<2 . i|c%=3...W|
|00004150| 20 20 20 20 20 20 20 20 | 20 20 f2 63 61 72 65 74 | | .caret|
|00004160| 5f 73 65 74 70 6f 73 69 | 74 69 6f 6e 28 73 65 61 |_setposi|tion(sea|
|00004170| 72 63 68 25 2c 69 63 25 | 2c 2d 31 2c 2d 31 2c 2d |rch%,ic%|,-1,-1,-|
|00004180| 31 2c a9 28 a4 69 63 6f | 6e 5f 67 65 74 64 61 74 |1,.(.ico|n_getdat|
|00004190| 61 28 71 25 2c 73 65 61 | 72 63 68 25 2c 69 63 25 |a(q%,sea|rch%,ic%|
|000041a0| 29 29 29 0d 18 ec 16 20 | 20 20 20 20 20 20 20 c9 |))).... | .|
|000041b0| 20 63 61 6c 74 61 70 65 | 25 0d 18 f6 28 20 20 20 | caltape|%...( |
|000041c0| 20 20 20 20 20 20 20 69 | 63 25 3d 69 63 25 2d 31 | i|c%=ic%-1|
|000041d0| 3a e7 20 69 63 25 3c 32 | 20 8c 20 69 63 25 3d 32 |:. ic%<2| . ic%=2|
|000041e0| 35 0d 19 00 59 20 20 20 | 20 20 20 20 20 20 20 f2 |5...Y | .|
|000041f0| 63 61 72 65 74 5f 73 65 | 74 70 6f 73 69 74 69 6f |caret_se|tpositio|
|00004200| 6e 28 63 61 6c 74 61 70 | 65 25 2c 69 63 25 2c 2d |n(caltap|e%,ic%,-|
|00004210| 31 2c 2d 31 2c 2d 31 2c | a9 28 a4 69 63 6f 6e 5f |1,-1,-1,|.(.icon_|
|00004220| 67 65 74 64 61 74 61 28 | 71 25 2c 63 61 6c 74 61 |getdata(|q%,calta|
|00004230| 70 65 25 2c 69 63 25 29 | 29 29 0d 19 0a 0b 20 20 |pe%,ic%)|)).... |
|00004240| 20 20 20 20 cb 0d 19 14 | 07 20 20 cb 0d 19 1e 05 | ....|. .....|
|00004250| cc 0d 19 28 09 20 20 ef | 20 37 0d 19 32 05 cd 0d |...(. .| 7..2...|
|00004260| 19 3c 05 e1 0d 19 46 04 | 0d 19 50 10 dd f2 6f 6b |.<....F.|..P...ok|
|00004270| 5f 6e 65 77 74 61 70 65 | 0d 19 5a 37 c8 99 20 22 |_newtape|..Z7.. "|
|00004280| 57 69 6d 70 5f 57 68 69 | 63 68 49 63 6f 6e 22 2c |Wimp_Whi|chIcon",|
|00004290| 6e 65 77 74 61 70 65 25 | 2c 71 25 2c 26 30 30 33 |newtape%|,q%,&003|
|000042a0| 46 30 30 30 30 2c 26 30 | 30 32 31 30 30 30 30 0d |F0000,&0|0210000.|
|000042b0| 19 64 16 73 65 6c 65 63 | 74 65 64 5f 65 73 67 25 |.d.selec|ted_esg%|
|000042c0| 3d 71 25 21 30 0d 19 6e | 2e 6e 65 77 5f 74 61 70 |=q%!0..n|.new_tap|
|000042d0| 65 25 3d bb 28 a4 69 63 | 6f 6e 5f 67 65 74 64 61 |e%=.(.ic|on_getda|
|000042e0| 74 61 28 71 25 2c 6e 65 | 77 74 61 70 65 25 2c 31 |ta(q%,ne|wtape%,1|
|000042f0| 30 29 29 0d 19 78 3b e7 | 20 74 61 70 65 5f 6c 65 |0))..x;.| tape_le|
|00004300| 6e 67 74 68 25 28 6e 65 | 77 5f 74 61 70 65 25 29 |ngth%(ne|w_tape%)|
|00004310| 3c 3e 30 20 8c 20 f2 6f | 6b 28 22 44 75 70 6c 69 |<>0 . .o|k("Dupli|
|00004320| 63 61 74 65 20 74 61 70 | 65 20 69 64 22 29 0d 19 |cate tap|e id")..|
|00004330| 82 19 e7 20 73 65 6c 65 | 63 74 65 64 5f 65 73 67 |... sele|cted_esg|
|00004340| 25 3c 3e 2d 31 20 8c 0d | 19 8c 32 20 20 e7 20 73 |%<>-1 ..|..2 . s|
|00004350| 65 6c 65 63 74 65 64 5f | 65 73 67 25 3d 30 3a 74 |elected_|esg%=0:t|
|00004360| 61 70 65 5f 6c 65 6e 67 | 74 68 25 28 6e 65 77 5f |ape_leng|th%(new_|
|00004370| 74 61 70 65 25 29 3d 36 | 30 0d 19 96 33 20 20 e7 |tape%)=6|0...3 .|
|00004380| 20 73 65 6c 65 63 74 65 | 64 5f 65 73 67 25 3d 35 | selecte|d_esg%=5|
|00004390| 3a 74 61 70 65 5f 6c 65 | 6e 67 74 68 25 28 6e 65 |:tape_le|ngth%(ne|
|000043a0| 77 5f 74 61 70 65 25 29 | 3d 31 32 30 0d 19 a0 33 |w_tape%)|=120...3|
|000043b0| 20 20 e7 20 73 65 6c 65 | 63 74 65 64 5f 65 73 67 | . sele|cted_esg|
|000043c0| 25 3d 33 3a 74 61 70 65 | 5f 6c 65 6e 67 74 68 25 |%=3:tape|_length%|
|000043d0| 28 6e 65 77 5f 74 61 70 | 65 25 29 3d 31 38 30 0d |(new_tap|e%)=180.|
|000043e0| 19 aa 33 20 20 e7 20 73 | 65 6c 65 63 74 65 64 5f |..3 . s|elected_|
|000043f0| 65 73 67 25 3d 34 3a 74 | 61 70 65 5f 6c 65 6e 67 |esg%=4:t|ape_leng|
|00004400| 74 68 25 28 6e 65 77 5f | 74 61 70 65 25 29 3d 32 |th%(new_|tape%)=2|
|00004410| 34 30 0d 19 b4 33 20 20 | e7 20 73 65 6c 65 63 74 |40...3 |. select|
|00004420| 65 64 5f 65 73 67 25 3d | 37 3a 74 61 70 65 5f 6c |ed_esg%=|7:tape_l|
|00004430| 65 6e 67 74 68 25 28 6e | 65 77 5f 74 61 70 65 25 |ength%(n|ew_tape%|
|00004440| 29 3d 33 36 30 0d 19 be | 33 20 20 e7 20 73 65 6c |)=360...|3 . sel|
|00004450| 65 63 74 65 64 5f 65 73 | 67 25 3d 38 3a 74 61 70 |ected_es|g%=8:tap|
|00004460| 65 5f 6c 65 6e 67 74 68 | 25 28 6e 65 77 5f 74 61 |e_length|%(new_ta|
|00004470| 70 65 25 29 3d 34 38 30 | 0d 19 c8 16 20 20 e7 20 |pe%)=480|.... . |
|00004480| 6e 65 77 5f 74 61 70 65 | 25 3c 3e 30 20 8c 0d 19 |new_tape|%<>0 ...|
|00004490| d2 1b 20 20 20 20 6e 6f | 5f 6f 66 5f 65 6e 74 72 |.. no|_of_entr|
|000044a0| 69 65 73 25 20 2b 3d 20 | 31 0d 19 dc 57 20 20 20 |ies% += |1...W |
|000044b0| 20 f2 73 61 76 65 5f 72 | 65 63 6f 72 64 28 6e 6f | .save_r|ecord(no|
|000044c0| 5f 6f 66 5f 65 6e 74 72 | 69 65 73 25 2c 22 2a 47 |_of_entr|ies%,"*G|
|000044d0| 41 50 2a 22 2c 22 22 2c | 22 20 22 2c 6e 65 77 5f |AP*","",|" ",new_|
|000044e0| 74 61 70 65 25 2c 30 2c | 74 61 70 65 5f 6c 65 6e |tape%,0,|tape_len|
|000044f0| 67 74 68 25 28 6e 65 77 | 5f 74 61 70 65 25 29 29 |gth%(new|_tape%))|
|00004500| 0d 19 e6 1f 20 20 20 20 | 74 69 6d 65 5f 75 73 65 |.... |time_use|
|00004510| 64 25 28 6e 65 77 5f 74 | 61 70 65 25 29 3d 30 0d |d%(new_t|ape%)=0.|
|00004520| 19 f0 12 20 20 20 20 63 | 68 61 6e 67 65 64 25 3d |... c|hanged%=|
|00004530| b9 0d 19 fa 32 20 20 20 | 20 c8 99 20 22 57 69 6d |....2 | .. "Wim|
|00004540| 70 5f 46 6f 72 63 65 52 | 65 64 72 61 77 22 2c 73 |p_ForceR|edraw",s|
|00004550| 74 61 74 75 73 25 2c 30 | 2c 30 2c 36 30 30 2c 33 |tatus%,0|,0,600,3|
|00004560| 30 30 30 0d 1a 04 07 20 | 20 cc 0d 1a 0e 21 20 20 |000.... | ....! |
|00004570| 20 20 f2 6f 6b 28 22 4e | 6f 20 74 61 70 65 20 6e | .ok("N|o tape n|
|00004580| 72 20 65 6e 74 65 72 65 | 64 22 29 0d 1a 18 07 20 |r entere|d").... |
|00004590| 20 cd 0d 1a 22 05 cc 0d | 1a 2c 29 20 20 f2 6f 6b | ..."...|.,) .ok|
|000045a0| 28 22 54 61 70 65 20 6c | 65 6e 67 74 68 20 6d 75 |("Tape l|ength mu|
|000045b0| 73 74 20 62 65 20 73 65 | 6c 65 63 74 65 64 22 29 |st be se|lected")|
|000045c0| 0d 1a 36 05 cd 0d 1a 40 | 36 e7 20 62 75 74 74 6f |..6....@|6. butto|
|000045d0| 6e 25 3d 34 20 84 20 62 | 75 74 74 6f 6e 25 3d 32 |n%=4 . b|utton%=2|
|000045e0| 20 8c 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 | . .. "W|imp_Crea|
|000045f0| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 0d 1a 4a 05 e1 |teMenu",|,-1..J..|
|00004600| 0d 1a 54 04 0d 1a 5e 10 | dd f2 6f 6b 5f 64 65 6c |..T...^.|..ok_del|
|00004610| 74 61 70 65 0d 1a 68 16 | 76 6f 69 64 25 3d a4 64 |tape..h.|void%=.d|
|00004620| 65 6c 65 74 65 5f 74 61 | 70 65 0d 1a 72 36 e7 20 |elete_ta|pe..r6. |
|00004630| 62 75 74 74 6f 6e 25 3d | 34 20 84 20 62 75 74 74 |button%=|4 . butt|
|00004640| 6f 6e 25 3d 32 20 8c 20 | c8 99 20 22 57 69 6d 70 |on%=2 . |.. "Wimp|
|00004650| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 2d 31 |_CreateM|enu",,-1|
|00004660| 0d 1a 7c 05 e1 0d 1a 86 | 04 0d 1a 90 0f dd f2 6f |..|.....|.......o|
|00004670| 6b 5f 73 65 61 72 63 68 | 0d 1a a4 0c f2 65 6e 74 |k_search|.....ent|
|00004680| 65 72 65 64 0d 1a ae 0b | f2 73 65 61 72 63 68 0d |ered....|.search.|
|00004690| 1a b8 23 f2 64 69 73 70 | 6c 61 79 5f 76 62 61 73 |..#.disp|lay_vbas|
|000046a0| 65 28 64 69 73 70 6c 61 | 79 5f 72 65 63 6f 72 64 |e(displa|y_record|
|000046b0| 25 29 0d 1a c2 05 e1 0d | 1a cc 04 0d 1a d6 0f dd |%)......|........|
|000046c0| f2 6f 6b 5f 66 69 6e 64 | 73 70 0d 1a e0 0b ea 20 |.ok_find|sp..... |
|000046d0| 76 6f 69 64 25 0d 1a ea | 12 6f 76 65 72 5f 72 65 |void%...|.over_re|
|000046e0| 63 6f 72 64 25 3d b9 0d | 1a f4 32 76 6f 69 64 25 |cord%=..|..2void%|
|000046f0| 3d a4 66 69 6e 64 67 61 | 70 28 bb 28 a4 69 63 6f |=.findga|p(.(.ico|
|00004700| 6e 5f 67 65 74 64 61 74 | 61 28 71 25 2c 66 69 6e |n_getdat|a(q%,fin|
|00004710| 64 73 70 25 2c 33 29 29 | 29 0d 1a fe 05 e1 0d 1b |dsp%,3))|).......|
|00004720| 08 04 0d 1b 12 0f dd f2 | 6f 6b 5f 6e 65 77 72 65 |........|ok_newre|
|00004730| 63 0d 1b 1c 09 f2 73 6f | 72 74 0d 1b 26 15 76 6f |c.....so|rt..&.vo|
|00004740| 69 64 25 3d a4 6e 65 77 | 5f 72 65 63 6f 72 64 0d |id%=.new|_record.|
|00004750| 1b 30 05 e1 0d 1b 3a 04 | 0d 1b 44 0e dd f2 6f 6b |.0....:.|..D...ok|
|00004760| 5f 76 62 61 73 65 0d 1b | 4e 0b ea 20 76 6f 69 64 |_vbase..|N.. void|
|00004770| 25 0d 1b 58 16 76 6f 69 | 64 25 3d a4 68 61 6e 64 |%..X.voi|d%=.hand|
|00004780| 6c 65 5f 65 64 69 74 0d | 1b 62 23 f2 64 69 73 70 |le_edit.|.b#.disp|
|00004790| 6c 61 79 5f 76 62 61 73 | 65 28 64 69 73 70 6c 61 |lay_vbas|e(displa|
|000047a0| 79 5f 72 65 63 6f 72 64 | 25 29 0d 1b 6c 21 c8 99 |y_record|%)..l!..|
|000047b0| 20 22 57 69 6d 70 5f 53 | 65 74 43 61 72 65 74 50 | "Wimp_S|etCaretP|
|000047c0| 6f 73 69 74 69 6f 6e 22 | 2c 2d 31 0d 1b 76 05 e1 |osition"|,-1..v..|
|000047d0| 0d 1b 80 04 0d 1b 8a 10 | dd f2 6f 6b 5f 63 61 6c |........|..ok_cal|
|000047e0| 74 61 70 65 0d 1b 94 11 | 71 25 21 30 3d 63 61 6c |tape....|q%!0=cal|
|000047f0| 74 61 70 65 25 0d 1b 9e | 12 e3 20 6c 6f 6f 70 25 |tape%...|.. loop%|
|00004800| 3d 20 31 20 b8 20 36 0d | 1b a8 3e 20 20 63 74 72 |= 1 . 6.|..> ctr|
|00004810| 31 25 28 6c 6f 6f 70 25 | 29 3d bb 28 a4 69 63 6f |1%(loop%|)=.(.ico|
|00004820| 6e 5f 67 65 74 64 61 74 | 61 28 71 25 2c 63 61 6c |n_getdat|a(q%,cal|
|00004830| 74 61 70 65 25 2c 28 6c | 6f 6f 70 25 2d 31 29 2a |tape%,(l|oop%-1)*|
|00004840| 34 2b 32 29 29 0d 1b b2 | 3e 20 20 74 69 6d 31 25 |4+2))...|> tim1%|
|00004850| 28 6c 6f 6f 70 25 29 3d | bb 28 a4 69 63 6f 6e 5f |(loop%)=|.(.icon_|
|00004860| 67 65 74 64 61 74 61 28 | 71 25 2c 63 61 6c 74 61 |getdata(|q%,calta|
|00004870| 70 65 25 2c 28 6c 6f 6f | 70 25 2d 31 29 2a 34 2b |pe%,(loo|p%-1)*4+|
|00004880| 33 29 29 0d 1b bc 3e 20 | 20 63 74 72 32 25 28 6c |3))...> | ctr2%(l|
|00004890| 6f 6f 70 25 29 3d bb 28 | a4 69 63 6f 6e 5f 67 65 |oop%)=.(|.icon_ge|
|000048a0| 74 64 61 74 61 28 71 25 | 2c 63 61 6c 74 61 70 65 |tdata(q%|,caltape|
|000048b0| 25 2c 28 6c 6f 6f 70 25 | 2d 31 29 2a 34 2b 34 29 |%,(loop%|-1)*4+4)|
|000048c0| 29 0d 1b c6 3e 20 20 74 | 69 6d 32 25 28 6c 6f 6f |)...> t|im2%(loo|
|000048d0| 70 25 29 3d bb 28 a4 69 | 63 6f 6e 5f 67 65 74 64 |p%)=.(.i|con_getd|
|000048e0| 61 74 61 28 71 25 2c 63 | 61 6c 74 61 70 65 25 2c |ata(q%,c|altape%,|
|000048f0| 28 6c 6f 6f 70 25 2d 31 | 29 2a 34 2b 35 29 29 0d |(loop%-1|)*4+5)).|
|00004900| 1b d0 0b ed 20 6c 6f 6f | 70 25 0d 1b da 25 58 25 |.... loo|p%...%X%|
|00004910| 3d ae 28 22 3c 56 69 64 | 65 6f 42 61 73 65 24 44 |=.("<Vid|eoBase$D|
|00004920| 69 72 3e 2e 57 56 43 41 | 4c 44 41 54 41 22 29 0d |ir>.WVCA|LDATA").|
|00004930| 1b e4 11 e3 20 6c 6f 6f | 70 25 3d 31 20 b8 20 36 |.... loo|p%=1 . 6|
|00004940| 0d 1b ee 3d f1 23 20 58 | 25 2c 63 74 72 31 25 28 |...=.# X|%,ctr1%(|
|00004950| 6c 6f 6f 70 25 29 2c 63 | 74 72 32 25 28 6c 6f 6f |loop%),c|tr2%(loo|
|00004960| 70 25 29 2c 74 69 6d 31 | 25 28 6c 6f 6f 70 25 29 |p%),tim1|%(loop%)|
|00004970| 2c 74 69 6d 32 25 28 6c | 6f 6f 70 25 29 0d 1b f8 |,tim2%(l|oop%)...|
|00004980| 0b ed 20 6c 6f 6f 70 25 | 0d 1c 02 09 d9 23 20 58 |.. loop%|.....# X|
|00004990| 25 0d 1c 0c 24 2a 53 54 | 41 4d 50 20 3c 56 69 64 |%...$*ST|AMP <Vid|
|000049a0| 65 6f 42 61 73 65 24 44 | 69 72 3e 2e 57 56 43 41 |eoBase$D|ir>.WVCA|
|000049b0| 4c 44 41 54 41 0d 1c 16 | 05 e1 0d 1c 20 04 0d 1c |LDATA...|.... ...|
|000049c0| 2a 1e dd a4 64 72 61 77 | 5f 74 61 70 65 73 74 61 |*...draw|_tapesta|
|000049d0| 74 75 73 28 78 30 25 2c | 79 30 25 29 0d 1c 34 2f |tus(x0%,|y0%)..4/|
|000049e0| ea 20 6c 6f 6f 70 25 2c | 78 25 2c 79 25 2c 6e 72 |. loop%,|x%,y%,nr|
|000049f0| 25 2c 6e 72 5f 6f 66 5f | 67 61 70 73 25 2c 74 6f |%,nr_of_|gaps%,to|
|00004a00| 74 61 6c 5f 6c 65 6e 67 | 74 68 25 0d 1c 3e 15 ec |tal_leng|th%..>..|
|00004a10| 20 78 30 25 2b 32 30 2c | 79 30 25 2b 32 39 35 30 | x0%+20,|y0%+2950|
|00004a20| 0d 1c 48 0f 79 25 3d 79 | 30 25 2b 32 39 35 30 0d |..H.y%=y|0%+2950.|
|00004a30| 1c 52 1c e3 20 6c 6f 6f | 70 25 20 3d 20 31 20 b8 |.R.. loo|p% = 1 .|
|00004a40| 20 6d 61 78 5f 74 61 70 | 65 73 25 0d 1c 5c 1f 20 | max_tap|es%..\. |
|00004a50| 20 e7 20 74 61 70 65 5f | 6c 65 6e 67 74 68 25 28 | . tape_|length%(|
|00004a60| 6c 6f 6f 70 25 29 3e 30 | 20 8c 0d 1c 66 19 20 20 |loop%)>0| ...f. |
|00004a70| 20 20 6e 72 5f 6f 66 5f | 67 61 70 73 25 20 20 20 | nr_of_|gaps% |
|00004a80| 3d 20 30 0d 1c 70 19 20 | 20 20 20 74 6f 74 61 6c |= 0..p. | total|
|00004a90| 5f 6c 65 6e 67 74 68 25 | 20 3d 20 30 0d 1c 7a 40 |_length%| = 0..z@|
|00004aa0| 20 20 20 20 ec 20 78 30 | 25 2b 32 30 2c 79 25 3a | . x0|%+20,y%:|
|00004ab0| f1 22 46 72 65 65 20 73 | 70 61 63 65 28 73 29 20 |."Free s|pace(s) |
|00004ac0| 74 61 70 65 20 6e 72 20 | 22 3b c2 22 20 20 20 22 |tape nr |";." "|
|00004ad0| 2b c3 28 6c 6f 6f 70 25 | 29 2c 33 29 0d 1c 84 22 |+.(loop%|),3)..."|
|00004ae0| 20 20 20 20 e3 20 6e 72 | 25 20 3d 20 31 20 b8 20 | . nr|% = 1 . |
|00004af0| 6e 6f 5f 6f 66 5f 65 6e | 74 72 69 65 73 25 0d 1c |no_of_en|tries%..|
|00004b00| 8e 3d 20 20 20 20 20 20 | e7 20 74 61 70 65 5f 6e |.= |. tape_n|
|00004b10| 72 25 28 6e 72 25 29 20 | 3d 20 6c 6f 6f 70 25 20 |r%(nr%) |= loop% |
|00004b20| 80 20 c0 74 69 74 6c 65 | 24 28 6e 72 25 29 2c 35 |. .title|$(nr%),5|
|00004b30| 29 3d 22 2a 47 41 50 2a | 22 20 8c 0d 1c 98 1c 20 |)="*GAP*|" ..... |
|00004b40| 20 20 20 20 20 20 20 6e | 72 5f 6f 66 5f 67 61 70 | n|r_of_gap|
|00004b50| 73 25 20 2b 3d 20 31 0d | 1c a2 18 20 20 20 20 20 |s% += 1.|... |
|00004b60| 20 20 20 ec 20 78 30 25 | 2b 34 35 30 2c 79 25 0d | . x0%|+450,y%.|
|00004b70| 1c ac 2f 20 20 20 20 20 | 20 20 20 f1 20 c2 22 20 |../ | . ." |
|00004b80| 20 20 22 2b c3 28 6c 65 | 6e 67 74 68 25 28 6e 72 | "+.(le|ngth%(nr|
|00004b90| 25 29 29 2c 33 29 3b 22 | 20 6d 69 6e 73 22 0d 1c |%)),3);"| mins"..|
|00004ba0| b6 12 20 20 20 20 20 20 | 20 20 79 25 2d 3d 33 32 |.. | y%-=32|
|00004bb0| 0d 1c c0 0b 20 20 20 20 | 20 20 cd 0d 1c ca 13 20 |.... | ..... |
|00004bc0| 20 20 20 ec 20 78 30 25 | 2b 32 30 2c 79 25 0d 1c | . x0%|+20,y%..|
|00004bd0| d4 0d 20 20 20 20 ed 20 | 6e 72 25 0d 1c de 38 20 |.. . |nr%...8 |
|00004be0| 20 20 20 e7 20 6e 72 5f | 6f 66 5f 67 61 70 73 25 | . nr_|of_gaps%|
|00004bf0| 3d 30 20 8c 20 ec 20 78 | 30 25 2b 34 38 34 2c 79 |=0 . . x|0%+484,y|
|00004c00| 25 3a f1 20 22 30 20 6d | 69 6e 73 22 3a 79 25 2d |%:. "0 m|ins":y%-|
|00004c10| 3d 33 32 0d 1c e8 07 20 | 20 cd 0d 1c f2 0b ed 20 |=32.... | ...... |
|00004c20| 6c 6f 6f 70 25 0d 1c fc | 06 3d 30 0d 1d 06 04 0d |loop%...|.=0.....|
|00004c30| 1d 10 16 dd f2 64 69 73 | 70 6c 61 79 5f 76 62 61 |.....dis|play_vba|
|00004c40| 73 65 28 6e 29 0d 1d 1a | 25 f2 69 63 6f 6e 5f 70 |se(n)...|%.icon_p|
|00004c50| 75 74 64 61 74 61 28 71 | 25 2c 76 62 61 73 65 25 |utdata(q|%,vbase%|
|00004c60| 2c 34 2c c3 28 6e 29 2c | b9 29 0d 1d 24 40 f2 69 |,4,.(n),|.)..$@.i|
|00004c70| 63 6f 6e 5f 70 75 74 64 | 61 74 61 28 71 25 2c 76 |con_putd|ata(q%,v|
|00004c80| 62 61 73 65 25 2c 31 31 | 2c a4 73 74 72 69 70 5f |base%,11|,.strip_|
|00004c90| 74 72 61 69 6c 69 6e 67 | 28 74 69 74 6c 65 24 28 |trailing|(title$(|
|00004ca0| 6e 29 2c 22 20 22 29 2c | b9 29 0d 1d 2e 42 f2 69 |n)," "),|.)...B.i|
|00004cb0| 63 6f 6e 5f 70 75 74 64 | 61 74 61 28 71 25 2c 76 |con_putd|ata(q%,v|
|00004cc0| 62 61 73 65 25 2c 31 32 | 2c a4 73 74 72 69 70 5f |base%,12|,.strip_|
|00004cd0| 74 72 61 69 6c 69 6e 67 | 28 73 75 62 6a 65 63 74 |trailing|(subject|
|00004ce0| 24 28 6e 29 2c 22 20 22 | 29 2c b9 29 0d 1d 38 45 |$(n)," "|),.)..8E|
|00004cf0| f2 69 63 6f 6e 5f 70 75 | 74 64 61 74 61 28 71 25 |.icon_pu|tdata(q%|
|00004d00| 2c 76 62 61 73 65 25 2c | 31 33 2c a4 73 74 72 69 |,vbase%,|13,.stri|
|00004d10| 70 5f 74 72 61 69 6c 69 | 6e 67 28 c3 28 74 61 70 |p_traili|ng(.(tap|
|00004d20| 65 5f 6e 72 25 28 6e 29 | 29 2c 22 20 22 29 2c b9 |e_nr%(n)|)," "),.|
|00004d30| 29 0d 1d 42 44 f2 69 63 | 6f 6e 5f 70 75 74 64 61 |)..BD.ic|on_putda|
|00004d40| 74 61 28 71 25 2c 76 62 | 61 73 65 25 2c 31 34 2c |ta(q%,vb|ase%,14,|
|00004d50| a4 73 74 72 69 70 5f 74 | 72 61 69 6c 69 6e 67 28 |.strip_t|railing(|
|00004d60| c3 28 6c 65 6e 67 74 68 | 25 28 6e 29 29 2c 22 20 |.(length|%(n))," |
|00004d70| 22 29 2c b9 29 0d 1d 4c | 4a f2 69 63 6f 6e 5f 70 |"),.)..L|J.icon_p|
|00004d80| 75 74 64 61 74 61 28 71 | 25 2c 76 62 61 73 65 25 |utdata(q|%,vbase%|
|00004d90| 2c 31 35 2c a4 73 74 72 | 69 70 5f 74 72 61 69 6c |,15,.str|ip_trail|
|00004da0| 69 6e 67 28 c3 28 74 61 | 70 65 5f 63 6f 75 6e 74 |ing(.(ta|pe_count|
|00004db0| 65 72 25 28 6e 29 29 2c | 22 20 22 29 2c b9 29 0d |er%(n)),|" "),.).|
|00004dc0| 1d 56 24 f2 69 63 6f 6e | 5f 70 75 74 64 61 74 61 |.V$.icon|_putdata|
|00004dd0| 28 71 25 2c 76 62 61 73 | 65 25 2c 31 36 2c 22 22 |(q%,vbas|e%,16,""|
|00004de0| 2c b9 29 0d 1d 60 22 e7 | 20 74 61 70 65 5f 6e 72 |,.)..`".| tape_nr|
|00004df0| 25 28 6e 2b 31 29 3c 3e | 74 61 70 65 5f 6e 72 25 |%(n+1)<>|tape_nr%|
|00004e00| 28 6e 29 20 8c 0d 1d 6a | 2a 20 20 f2 69 63 6f 6e |(n) ...j|* .icon|
|00004e10| 5f 70 75 74 64 61 74 61 | 28 71 25 2c 76 62 61 73 |_putdata|(q%,vbas|
|00004e20| 65 25 2c 31 36 2c 22 39 | 39 39 39 22 2c a3 29 0d |e%,16,"9|999",.).|
|00004e30| 1d 74 05 cc 0d 1d 7e 39 | 20 20 f2 69 63 6f 6e 5f |.t....~9| .icon_|
|00004e40| 70 75 74 64 61 74 61 28 | 71 25 2c 76 62 61 73 65 |putdata(|q%,vbase|
|00004e50| 25 2c 31 36 2c c3 28 74 | 61 70 65 5f 63 6f 75 6e |%,16,.(t|ape_coun|
|00004e60| 74 65 72 25 28 6e 2b 31 | 29 29 2c a3 29 0d 1d 88 |ter%(n+1|)),.)...|
|00004e70| 05 cd 0d 1d 92 17 e7 20 | c0 63 68 24 28 6e 29 2c |....... |.ch$(n),|
|00004e80| 31 29 3c 3e 22 20 22 20 | 8c 0d 1d 9c 3d 20 20 6e |1)<>" " |....= n|
|00004e90| 65 77 5f 63 68 69 63 6f | 6e 25 3d a4 69 63 6f 6e |ew_chico|n%=.icon|
|00004ea0| 5f 6e 65 77 73 70 72 69 | 74 65 28 71 25 2c 76 62 |_newspri|te(q%,vb|
|00004eb0| 61 73 65 25 2c 33 35 2c | 22 72 61 64 69 6f 31 5f |ase%,35,|"radio1_|
|00004ec0| 6f 6e 22 2c b9 29 0d 1d | a6 05 cc 0d 1d b0 3e 20 |on",.)..|......> |
|00004ed0| 20 6e 65 77 5f 63 68 69 | 63 6f 6e 25 3d a4 69 63 | new_chi|con%=.ic|
|00004ee0| 6f 6e 5f 6e 65 77 73 70 | 72 69 74 65 28 71 25 2c |on_newsp|rite(q%,|
|00004ef0| 76 62 61 73 65 25 2c 33 | 35 2c 22 72 61 64 69 6f |vbase%,3|5,"radio|
|00004f00| 31 5f 6f 66 66 22 2c b9 | 29 0d 1d ba 05 cd 0d 1d |1_off",.|).......|
|00004f10| c4 17 e7 20 c2 63 68 24 | 28 6e 29 2c 31 29 3c 3e |... .ch$|(n),1)<>|
|00004f20| 22 20 22 20 8c 0d 1d ce | 3d 20 20 6e 65 77 5f 73 |" " ....|= new_s|
|00004f30| 6e 69 63 6f 6e 25 3d a4 | 69 63 6f 6e 5f 6e 65 77 |nicon%=.|icon_new|
|00004f40| 73 70 72 69 74 65 28 71 | 25 2c 76 62 61 73 65 25 |sprite(q|%,vbase%|
|00004f50| 2c 33 36 2c 22 72 61 64 | 69 6f 31 5f 6f 6e 22 2c |,36,"rad|io1_on",|
|00004f60| b9 29 0d 1d d8 05 cc 0d | 1d e2 3e 20 20 6e 65 77 |.)......|..> new|
|00004f70| 5f 73 6e 69 63 6f 6e 25 | 3d a4 69 63 6f 6e 5f 6e |_snicon%|=.icon_n|
|00004f80| 65 77 73 70 72 69 74 65 | 28 71 25 2c 76 62 61 73 |ewsprite|(q%,vbas|
|00004f90| 65 25 2c 33 36 2c 22 72 | 61 64 69 6f 31 5f 6f 66 |e%,36,"r|adio1_of|
|00004fa0| 66 22 2c b9 29 0d 1d ec | 05 cd 0d 1d f6 21 c8 99 |f",.)...|.....!..|
|00004fb0| 20 22 57 69 6d 70 5f 53 | 65 74 43 61 72 65 74 50 | "Wimp_S|etCaretP|
|00004fc0| 6f 73 69 74 69 6f 6e 22 | 2c 2d 31 0d 1e 00 05 e1 |osition"|,-1.....|
|00004fd0| 0d 1e 0a 04 0d 1e 14 18 | dd f2 75 70 64 61 74 65 |........|..update|
|00004fe0| 5f 69 6e 66 6f 64 69 73 | 70 6c 61 79 0d 1e 1e 33 |_infodis|play...3|
|00004ff0| f2 69 63 6f 6e 5f 70 75 | 74 64 61 74 61 28 71 25 |.icon_pu|tdata(q%|
|00005000| 2c 76 62 61 73 65 25 2c | 32 34 2c c3 28 6e 6f 5f |,vbase%,|24,.(no_|
|00005010| 6f 66 5f 65 6e 74 72 69 | 65 73 25 29 2c b9 29 0d |of_entri|es%),.).|
|00005020| 1e 28 40 f2 69 63 6f 6e | 5f 70 75 74 64 61 74 61 |.(@.icon|_putdata|
|00005030| 28 71 25 2c 76 62 61 73 | 65 25 2c 32 35 2c c3 28 |(q%,vbas|e%,25,.(|
|00005040| 6d 61 78 5f 72 65 63 6f | 72 64 73 25 2d 6e 6f 5f |max_reco|rds%-no_|
|00005050| 6f 66 5f 65 6e 74 72 69 | 65 73 25 29 2c b9 29 0d |of_entri|es%),.).|
|00005060| 1e 32 2f f2 69 63 6f 6e | 5f 70 75 74 64 61 74 61 |.2/.icon|_putdata|
|00005070| 28 71 25 2c 76 62 61 73 | 65 25 2c 32 36 2c c3 28 |(q%,vbas|e%,26,.(|
|00005080| 6e 72 5f 75 6e 73 65 65 | 6e 25 29 2c b9 29 0d 1e |nr_unsee|n%),.)..|
|00005090| 3c 05 e1 0d 1e 46 04 0d | 1e 50 15 dd a4 6d 65 6e |<....F..|.P...men|
|000050a0| 75 73 65 6c 65 63 74 5f | 6d 61 69 6e 0d 1e 5a 0f |uselect_|main..Z.|
|000050b0| 6c 65 76 65 6c 30 3d 71 | 25 21 30 0d 1e 6e 0f c8 |level0=q|%!0..n..|
|000050c0| 8e 20 6c 65 76 65 6c 30 | 20 ca 0d 1e 78 23 20 20 |. level0| ...x# |
|000050d0| c9 20 30 20 20 3a 20 f4 | 20 3d 3d 3d 3d 20 54 61 |. 0 : .| ==== Ta|
|000050e0| 70 65 20 53 74 61 74 75 | 73 20 3d 3d 3d 0d 1e 82 |pe Statu|s ===...|
|000050f0| 21 20 20 20 20 f2 6f 70 | 65 6e 77 69 6e 64 6f 77 |! .op|enwindow|
|00005100| 28 73 74 61 74 75 73 25 | 2c a3 2c 2d 31 29 0d 1e |(status%|,.,-1)..|
|00005110| 8c 20 20 20 c9 20 31 20 | 20 3a 20 f4 20 3d 3d 3d |. . 1 | : . ===|
|00005120| 3d 20 41 64 64 20 54 61 | 70 65 20 3d 3d 3d 0d 1e |= Add Ta|pe ===..|
|00005130| 96 23 20 20 c9 20 32 20 | 20 3a 20 f4 20 3d 3d 3d |.# . 2 | : . ===|
|00005140| 3d 20 44 65 6c 65 74 65 | 20 54 61 70 65 20 3d 3d |= Delete| Tape ==|
|00005150| 3d 0d 1e a0 26 20 20 c9 | 20 33 20 20 3a 20 f4 20 |=...& .| 3 : . |
|00005160| 3d 3d 3d 3d 20 43 61 6c | 69 62 72 61 74 65 20 54 |==== Cal|ibrate T|
|00005170| 61 70 65 20 3d 3d 3d 0d | 1e aa 25 20 20 c9 20 34 |ape ===.|..% . 4|
|00005180| 20 20 3a 20 f4 20 3d 3d | 3d 3d 20 44 65 6c 65 74 | : . ==|== Delet|
|00005190| 65 20 52 65 63 6f 72 64 | 20 3d 3d 3d 0d 1e b4 22 |e Record| ===..."|
|000051a0| 20 20 20 20 f2 6f 70 65 | 6e 77 69 6e 64 6f 77 28 | .ope|nwindow(|
|000051b0| 73 75 72 65 64 65 6c 25 | 2c a3 2c 2d 31 29 0d 1e |suredel%|,.,-1)..|
|000051c0| be 21 20 20 20 20 f2 6d | 6f 75 73 65 5f 6c 69 6d |.! .m|ouse_lim|
|000051d0| 69 74 28 71 25 2c 73 75 | 72 65 64 65 6c 25 29 0d |it(q%,su|redel%).|
|000051e0| 1e c8 25 20 20 c9 20 35 | 20 20 3a 20 f4 20 3d 3d |..% . 5| : . ==|
|000051f0| 3d 3d 20 4e 65 77 20 52 | 65 63 6f 72 64 20 20 20 |== New R|ecord |
|00005200| 20 3d 3d 3d 0d 1e d2 25 | 20 20 c9 20 36 20 20 3a | ===...%| . 6 :|
|00005210| 20 f4 20 3d 3d 3d 3d 20 | 53 65 61 72 63 68 20 46 | . ==== |Search F|
|00005220| 69 6c 65 20 20 20 3d 3d | 3d 0d 1e dc 26 20 20 c9 |ile ==|=...& .|
|00005230| 20 37 20 20 3a 20 f4 20 | 3d 3d 3d 3d 20 46 69 6e | 7 : . |==== Fin|
|00005240| 64 20 53 70 61 63 65 20 | 20 20 20 3d 3d 3d 3d 0d |d Space | ====.|
|00005250| 1e e6 26 20 20 c9 20 38 | 20 20 3a 20 f4 20 3d 3d |..& . 8| : . ==|
|00005260| 3d 3d 20 53 61 76 65 20 | 44 61 74 61 20 20 20 20 |== Save |Data |
|00005270| 20 3d 3d 3d 3d 0d 1e f0 | 11 20 20 20 20 f2 73 61 | ====...|. .sa|
|00005280| 76 65 66 69 6c 65 0d 1e | fa 05 cb 0d 1f 04 06 3d |vefile..|.......=|
|00005290| 30 0d 1f 0e 04 0d 1f 18 | 16 dd a4 6d 65 6e 75 73 |0.......|...menus|
|000052a0| 65 6c 65 63 74 5f 73 69 | 63 6f 6e 0d 1f 22 0f 6c |elect_si|con..".l|
|000052b0| 65 76 65 6c 30 3d 71 25 | 21 30 0d 1f 2c 0f c8 8e |evel0=q%|!0..,...|
|000052c0| 20 6c 65 76 65 6c 30 20 | ca 0d 1f 36 09 20 20 c9 | level0 |...6. .|
|000052d0| 20 30 0d 1f 40 09 20 20 | c9 20 31 0d 1f 4a 14 20 | 0..@. |. 1..J. |
|000052e0| 20 20 20 e7 20 63 68 61 | 6e 67 65 64 25 20 8c 0d | . cha|nged% ..|
|000052f0| 1f 54 24 20 20 20 20 20 | 20 f2 6f 70 65 6e 77 69 |.T$ | .openwi|
|00005300| 6e 64 6f 77 28 75 6e 73 | 61 76 65 64 25 2c a3 2c |ndow(uns|aved%,.,|
|00005310| 2d 31 29 0d 1f 5e 23 20 | 20 20 20 20 20 f2 6d 6f |-1)..^# | .mo|
|00005320| 75 73 65 5f 6c 69 6d 69 | 74 28 71 25 2c 75 6e 73 |use_limi|t(q%,uns|
|00005330| 61 76 65 64 25 29 0d 1f | 68 09 20 20 20 20 cc 0d |aved%)..|h. ..|
|00005340| 1f 72 15 20 20 20 20 20 | 20 63 6c 6f 73 65 64 6f |.r. | closedo|
|00005350| 77 6e 3d b9 0d 1f 7c 09 | 20 20 20 20 cd 0d 1f 86 |wn=...|.| ....|
|00005360| 05 cb 0d 1f 90 06 3d 30 | 0d 1f 9a 04 0d 1f a4 0f |......=0|........|
|00005370| dd f2 6d 65 6e 75 5f 6d | 61 69 6e 0d 1f ae 11 6e |..menu_m|ain....n|
|00005380| 6f 3d 30 3a c8 97 20 78 | 2c 79 2c 62 0d 1f b8 41 |o=0:.. x|,y,b...A|
|00005390| f2 64 65 66 69 6e 65 5f | 6d 65 6e 75 5f 74 65 78 |.define_|menu_tex|
|000053a0| 74 28 22 54 61 70 65 20 | 53 74 61 74 75 73 22 2c |t("Tape |Status",|
|000053b0| 6e 6f 2c 30 2c 30 2c 30 | 2c 30 2c 64 65 66 61 75 |no,0,0,0|,0,defau|
|000053c0| 6c 74 2c 30 2c 30 29 3a | 6e 6f 2b 3d 31 0d 1f c2 |lt,0,0):|no+=1...|
|000053d0| 45 f2 64 65 66 69 6e 65 | 5f 6d 65 6e 75 5f 74 65 |E.define|_menu_te|
|000053e0| 78 74 28 22 41 64 64 20 | 54 61 70 65 22 2c 6e 6f |xt("Add |Tape",no|
|000053f0| 2c 30 2c 30 2c 30 2c 30 | 2c 64 65 66 61 75 6c 74 |,0,0,0,0|,default|
|00005400| 2c 6e 65 77 74 61 70 65 | 25 2c 30 29 3a 6e 6f 2b |,newtape|%,0):no+|
|00005410| 3d 31 0d 1f cc 48 f2 64 | 65 66 69 6e 65 5f 6d 65 |=1...H.d|efine_me|
|00005420| 6e 75 5f 74 65 78 74 28 | 22 44 65 6c 65 74 65 20 |nu_text(|"Delete |
|00005430| 54 61 70 65 22 2c 6e 6f | 2c 30 2c 30 2c 30 2c 30 |Tape",no|,0,0,0,0|
|00005440| 2c 64 65 66 61 75 6c 74 | 2c 64 65 6c 74 61 70 65 |,default|,deltape|
|00005450| 25 2c 30 29 3a 6e 6f 2b | 3d 31 0d 1f d6 47 f2 64 |%,0):no+|=1...G.d|
|00005460| 65 66 69 6e 65 5f 6d 65 | 6e 75 5f 74 65 78 74 28 |efine_me|nu_text(|
|00005470| 22 43 61 6c 69 62 72 61 | 74 65 22 2c 6e 6f 2c 30 |"Calibra|te",no,0|
|00005480| 2c 30 2c 2d 31 2c 30 2c | 64 65 66 61 75 6c 74 2c |,0,-1,0,|default,|
|00005490| 63 61 6c 74 61 70 65 25 | 2c 30 29 3a 6e 6f 2b 3d |caltape%|,0):no+=|
|000054a0| 31 0d 1f ea 40 f2 64 65 | 66 69 6e 65 5f 6d 65 6e |1...@.de|fine_men|
|000054b0| 75 5f 74 65 78 74 28 22 | 44 65 6c 65 74 65 20 52 |u_text("|Delete R|
|000054c0| 65 63 22 2c 6e 6f 2c 30 | 2c 30 2c 30 2c 30 2c 64 |ec",no,0|,0,0,0,d|
|000054d0| 65 66 61 75 6c 74 2c 30 | 2c 30 29 3a 6e 6f 2b 3d |efault,0|,0):no+=|
|000054e0| 31 0d 1f f4 46 f2 64 65 | 66 69 6e 65 5f 6d 65 6e |1...F.de|fine_men|
|000054f0| 75 5f 74 65 78 74 28 22 | 4e 65 77 20 52 65 63 6f |u_text("|New Reco|
|00005500| 72 64 22 2c 6e 6f 2c 30 | 2c 30 2c 30 2c 30 2c 64 |rd",no,0|,0,0,0,d|
|00005510| 65 66 61 75 6c 74 2c 6e | 65 77 72 65 63 25 2c 30 |efault,n|ewrec%,0|
|00005520| 29 3a 6e 6f 2b 3d 31 0d | 1f fe 47 f2 64 65 66 69 |):no+=1.|..G.defi|
|00005530| 6e 65 5f 6d 65 6e 75 5f | 74 65 78 74 28 22 53 65 |ne_menu_|text("Se|
|00005540| 61 72 63 68 20 46 69 6c | 65 22 2c 6e 6f 2c 30 2c |arch Fil|e",no,0,|
|00005550| 30 2c 30 2c 30 2c 64 65 | 66 61 75 6c 74 2c 73 65 |0,0,0,de|fault,se|
|00005560| 61 72 63 68 25 2c 30 29 | 3a 6e 6f 2b 3d 31 0d 20 |arch%,0)|:no+=1. |
|00005570| 08 47 f2 64 65 66 69 6e | 65 5f 6d 65 6e 75 5f 74 |.G.defin|e_menu_t|
|00005580| 65 78 74 28 22 46 69 6e | 64 20 53 70 61 63 65 22 |ext("Fin|d Space"|
|00005590| 2c 6e 6f 2c 30 2c 30 2c | 2d 31 2c 30 2c 64 65 66 |,no,0,0,|-1,0,def|
|000055a0| 61 75 6c 74 2c 66 69 6e | 64 73 70 25 2c 30 29 3a |ault,fin|dsp%,0):|
|000055b0| 6e 6f 2b 3d 31 0d 20 12 | 4b f2 64 65 66 69 6e 65 |no+=1. .|K.define|
|000055c0| 5f 6d 65 6e 75 5f 74 65 | 78 74 28 22 53 61 76 65 |_menu_te|xt("Save|
|000055d0| 20 44 61 74 61 22 2c 6e | 6f 2c 30 2c 30 2c 30 2c | Data",n|o,0,0,0,|
|000055e0| 28 ac 20 63 68 61 6e 67 | 65 64 25 29 2c 64 65 66 |(. chang|ed%),def|
|000055f0| 61 75 6c 74 2c 30 2c 2d | 31 29 3a 6e 6f 2b 3d 31 |ault,0,-|1):no+=1|
|00005600| 0d 20 1c 2b f2 63 72 65 | 61 74 65 5f 6d 65 6e 75 |. .+.cre|ate_menu|
|00005610| 28 22 56 69 64 65 6f 42 | 61 73 65 22 2c 6e 6f 2c |("VideoB|ase",no,|
|00005620| 32 32 30 2c 78 2d 36 34 | 2c 79 29 0d 20 26 0e 6d |220,x-64|,y). &.m|
|00005630| 65 6e 75 5f 6e 72 25 3d | 30 0d 20 30 15 63 6c 61 |enu_nr%=|0. 0.cla|
|00005640| 69 6d 6d 65 6e 75 24 3d | 22 6d 61 69 6e 22 0d 20 |immenu$=|"main". |
|00005650| 3a 21 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 43 61 |:!.. "Wi|mp_SetCa|
|00005660| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 2d 31 0d |retPosit|ion",-1.|
|00005670| 20 44 05 e1 0d 20 4e 04 | 0d 20 58 10 dd f2 6d 65 | D... N.|. X...me|
|00005680| 6e 75 5f 73 69 63 6f 6e | 0d 20 62 11 6e 6f 3d 30 |nu_sicon|. b.no=0|
|00005690| 3a c8 97 20 78 2c 79 2c | 62 0d 20 6c 3e f2 64 65 |:.. x,y,|b. l>.de|
|000056a0| 66 69 6e 65 5f 6d 65 6e | 75 5f 74 65 78 74 28 22 |fine_men|u_text("|
|000056b0| 49 6e 66 6f 22 2c 6e 6f | 2c 30 2c 30 2c 30 2c 30 |Info",no|,0,0,0,0|
|000056c0| 2c 64 65 66 61 75 6c 74 | 2c 69 6e 66 6f 25 2c 30 |,default|,info%,0|
|000056d0| 29 3a 6e 6f 2b 3d 31 0d | 20 76 3b f2 64 65 66 69 |):no+=1.| v;.defi|
|000056e0| 6e 65 5f 6d 65 6e 75 5f | 74 65 78 74 28 22 51 75 |ne_menu_|text("Qu|
|000056f0| 69 74 22 2c 6e 6f 2c 30 | 2c 30 2c 30 2c 30 2c 64 |it",no,0|,0,0,0,d|
|00005700| 65 66 61 75 6c 74 2c 30 | 2c 2d 31 29 3a 6e 6f 2b |efault,0|,-1):no+|
|00005710| 3d 31 0d 20 80 2d f2 63 | 72 65 61 74 65 5f 6d 65 |=1. .-.c|reate_me|
|00005720| 6e 75 28 22 56 69 64 65 | 6f 42 61 73 65 22 2c 6e |nu("Vide|oBase",n|
|00005730| 6f 2c 31 33 30 2c 78 2d | 36 34 2c 31 39 36 29 0d |o,130,x-|64,196).|
|00005740| 20 8a 0e 6d 65 6e 75 5f | 6e 72 25 3d 30 0d 20 94 | ..menu_|nr%=0. .|
|00005750| 16 63 6c 61 69 6d 6d 65 | 6e 75 24 3d 22 73 69 63 |.claimme|nu$="sic|
|00005760| 6f 6e 22 0d 20 9e 05 e1 | 0d 20 a8 04 0d 20 b2 4c |on". ...|. ... .L|
|00005770| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00005780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 41 70 70 |--------|---- App|
|00005790| 6c 69 63 61 74 69 6f 6e | 20 52 6f 75 74 69 6e 65 |lication| Routine|
|000057a0| 73 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |s ------|--------|
|000057b0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 20 bc 04 0d 20 c6 0e |--------|. ... ..|
|000057c0| dd f2 6c 6f 61 64 66 69 | 6c 65 0d 20 d0 10 6e 72 |..loadfi|le. ..nr|
|000057d0| 5f 75 6e 73 65 65 6e 25 | 3d 30 0d 20 da 24 58 25 |_unseen%|=0. .$X%|
|000057e0| 20 3d 20 ad 28 22 3c 56 | 69 64 65 6f 42 61 73 65 | = .("<V|ideoBase|
|000057f0| 24 44 69 72 3e 2e 57 56 | 44 41 54 41 22 29 0d 20 |$Dir>.WV|DATA"). |
|00005800| e4 1e e3 20 6c 6f 6f 70 | 25 20 3d 20 31 20 b8 20 |... loop|% = 1 . |
|00005810| 6d 61 78 5f 72 65 63 6f | 72 64 73 25 0d 20 ee 19 |max_reco|rds%. ..|
|00005820| 20 20 e8 23 20 58 25 2c | 74 69 74 6c 65 24 28 6c | .# X%,|title$(l|
|00005830| 6f 6f 70 25 29 0d 20 f8 | 1b 20 20 e8 23 20 58 25 |oop%). .|. .# X%|
|00005840| 2c 73 75 62 6a 65 63 74 | 24 28 6c 6f 6f 70 25 29 |,subject|$(loop%)|
|00005850| 0d 21 02 16 20 20 e8 23 | 20 58 25 2c 63 68 24 28 |.!.. .#| X%,ch$(|
|00005860| 6c 6f 6f 70 25 29 0d 21 | 0c 1b 20 20 e8 23 20 58 |loop%).!|.. .# X|
|00005870| 25 2c 74 61 70 65 5f 6e | 72 25 28 6c 6f 6f 70 25 |%,tape_n|r%(loop%|
|00005880| 29 0d 21 16 20 20 20 e8 | 23 20 58 25 2c 74 61 70 |).!. .|# X%,tap|
|00005890| 65 5f 63 6f 75 6e 74 65 | 72 25 28 6c 6f 6f 70 25 |e_counte|r%(loop%|
|000058a0| 29 0d 21 20 1a 20 20 e8 | 23 20 58 25 2c 6c 65 6e |).! . .|# X%,len|
|000058b0| 67 74 68 25 28 6c 6f 6f | 70 25 29 0d 21 2a 0b ed |gth%(loo|p%).!*..|
|000058c0| 20 6c 6f 6f 70 25 0d 21 | 34 09 d9 23 20 58 25 0d | loop%.!|4..# X%.|
|000058d0| 21 3e 26 58 25 20 3d 20 | ad 28 22 3c 56 69 64 65 |!>&X% = |.("<Vide|
|000058e0| 6f 42 61 73 65 24 44 69 | 72 3e 2e 57 56 46 4f 52 |oBase$Di|r>.WVFOR|
|000058f0| 4d 41 54 22 29 0d 21 48 | 18 e8 23 20 58 25 2c 6e |MAT").!H|..# X%,n|
|00005900| 6f 5f 6f 66 5f 65 6e 74 | 72 69 65 73 25 0d 21 52 |o_of_ent|ries%.!R|
|00005910| 14 e3 20 6c 6f 6f 70 25 | 20 3d 20 32 20 b8 20 31 |.. loop%| = 2 . 1|
|00005920| 30 0d 21 5c 12 20 20 e8 | 23 20 58 25 2c 64 75 6d |0.!\. .|# X%,dum|
|00005930| 6d 79 25 0d 21 66 0b ed | 20 6c 6f 6f 70 25 0d 21 |my%.!f..| loop%.!|
|00005940| 70 1c e3 20 6c 6f 6f 70 | 25 20 3d 20 31 20 b8 20 |p.. loop|% = 1 . |
|00005950| 6d 61 78 5f 74 61 70 65 | 73 25 0d 21 7a 1f 20 20 |max_tape|s%.!z. |
|00005960| e8 23 20 58 25 2c 74 61 | 70 65 5f 6c 65 6e 67 74 |.# X%,ta|pe_lengt|
|00005970| 68 25 28 6c 6f 6f 70 25 | 29 0d 21 84 1d 20 20 e8 |h%(loop%|).!.. .|
|00005980| 23 20 58 25 2c 74 69 6d | 65 5f 75 73 65 64 25 28 |# X%,tim|e_used%(|
|00005990| 6c 6f 6f 70 25 29 0d 21 | 8e 0b ed 20 6c 6f 6f 70 |loop%).!|... loop|
|000059a0| 25 0d 21 98 09 d9 23 20 | 58 25 0d 21 a2 1e e3 20 |%.!...# |X%.!... |
|000059b0| 6c 6f 6f 70 25 3d 31 20 | b8 20 6e 6f 5f 6f 66 5f |loop%=1 |. no_of_|
|000059c0| 65 6e 74 72 69 65 73 25 | 0d 21 ac 2a 20 20 e7 20 |entries%|.!.* . |
|000059d0| c2 63 68 24 28 6c 6f 6f | 70 25 29 2c 31 29 3d 22 |.ch$(loo|p%),1)="|
|000059e0| 2a 22 20 8c 20 6e 72 5f | 75 6e 73 65 65 6e 25 2b |*" . nr_|unseen%+|
|000059f0| 3d 31 0d 21 b6 0b ed 20 | 6c 6f 6f 70 25 0d 21 c0 |=1.!... |loop%.!.|
|00005a00| 25 58 25 3d ad 28 22 3c | 56 69 64 65 6f 42 61 73 |%X%=.("<|VideoBas|
|00005a10| 65 24 44 69 72 3e 2e 57 | 56 43 41 4c 44 41 54 41 |e$Dir>.W|VCALDATA|
|00005a20| 22 29 0d 21 ca 11 e3 20 | 6c 6f 6f 70 25 3d 31 20 |").!... |loop%=1 |
|00005a30| b8 20 36 0d 21 d4 3f 20 | 20 e8 23 20 58 25 2c 63 |. 6.!.? | .# X%,c|
|00005a40| 74 72 31 25 28 6c 6f 6f | 70 25 29 2c 63 74 72 32 |tr1%(loo|p%),ctr2|
|00005a50| 25 28 6c 6f 6f 70 25 29 | 2c 74 69 6d 31 25 28 6c |%(loop%)|,tim1%(l|
|00005a60| 6f 6f 70 25 29 2c 74 69 | 6d 32 25 28 6c 6f 6f 70 |oop%),ti|m2%(loop|
|00005a70| 25 29 0d 21 de 0b ed 20 | 6c 6f 6f 70 25 0d 21 e8 |%).!... |loop%.!.|
|00005a80| 09 d9 23 20 58 25 0d 21 | f2 05 e1 0d 21 fc 05 3a |..# X%.!|....!..:|
|00005a90| 0d 22 06 10 dd f2 63 72 | 65 61 74 65 66 69 6c 65 |."....cr|eatefile|
|00005aa0| 0d 22 10 0b ea 20 6c 6f | 6f 70 25 0d 22 1a 24 58 |."... lo|op%.".$X|
|00005ab0| 25 20 3d 20 ae 28 22 3c | 56 69 64 65 6f 42 61 73 |% = .("<|VideoBas|
|00005ac0| 65 24 44 69 72 3e 2e 57 | 56 44 41 54 41 22 29 0d |e$Dir>.W|VDATA").|
|00005ad0| 22 24 1e e3 20 6c 6f 6f | 70 25 20 3d 20 31 20 b8 |"$.. loo|p% = 1 .|
|00005ae0| 20 6d 61 78 5f 72 65 63 | 6f 72 64 73 25 0d 22 2e | max_rec|ords%.".|
|00005af0| 19 20 20 f1 23 20 58 25 | 2c 74 69 74 6c 65 24 28 |. .# X%|,title$(|
|00005b00| 6c 6f 6f 70 25 29 0d 22 | 38 1b 20 20 f1 23 20 58 |loop%)."|8. .# X|
|00005b10| 25 2c 73 75 62 6a 65 63 | 74 24 28 6c 6f 6f 70 25 |%,subjec|t$(loop%|
|00005b20| 29 0d 22 42 16 20 20 f1 | 23 20 58 25 2c 63 68 24 |)."B. .|# X%,ch$|
|00005b30| 28 6c 6f 6f 70 25 29 0d | 22 4c 1b 20 20 f1 23 20 |(loop%).|"L. .# |
|00005b40| 58 25 2c 74 61 70 65 5f | 6e 72 25 28 6c 6f 6f 70 |X%,tape_|nr%(loop|
|00005b50| 25 29 0d 22 56 20 20 20 | f1 23 20 58 25 2c 74 61 |%)."V |.# X%,ta|
|00005b60| 70 65 5f 63 6f 75 6e 74 | 65 72 25 28 6c 6f 6f 70 |pe_count|er%(loop|
|00005b70| 25 29 0d 22 60 1a 20 20 | f1 23 20 58 25 2c 6c 65 |%)."`. |.# X%,le|
|00005b80| 6e 67 74 68 25 28 6c 6f | 6f 70 25 29 0d 22 6a 0b |ngth%(lo|op%)."j.|
|00005b90| ed 20 6c 6f 6f 70 25 0d | 22 74 09 d9 23 20 58 25 |. loop%.|"t..# X%|
|00005ba0| 0d 22 7e 26 58 25 20 3d | 20 ae 28 22 3c 56 69 64 |."~&X% =| .("<Vid|
|00005bb0| 65 6f 42 61 73 65 24 44 | 69 72 3e 2e 57 56 46 4f |eoBase$D|ir>.WVFO|
|00005bc0| 52 4d 41 54 22 29 0d 22 | 88 18 f1 23 20 58 25 2c |RMAT")."|...# X%,|
|00005bd0| 6e 6f 5f 6f 66 5f 65 6e | 74 72 69 65 73 25 0d 22 |no_of_en|tries%."|
|00005be0| 92 14 e3 20 6c 6f 6f 70 | 25 20 3d 20 32 20 b8 20 |... loop|% = 2 . |
|00005bf0| 31 30 0d 22 9c 0d 20 20 | f1 23 20 58 25 2c 30 0d |10.".. |.# X%,0.|
|00005c00| 22 a6 0b ed 20 6c 6f 6f | 70 25 0d 22 b0 1c e3 20 |"... loo|p%."... |
|00005c10| 6c 6f 6f 70 25 20 3d 20 | 31 20 b8 20 6d 61 78 5f |loop% = |1 . max_|
|00005c20| 74 61 70 65 73 25 0d 22 | ba 1f 20 20 f1 23 20 58 |tapes%."|.. .# X|
|00005c30| 25 2c 74 61 70 65 5f 6c | 65 6e 67 74 68 25 28 6c |%,tape_l|ength%(l|
|00005c40| 6f 6f 70 25 29 0d 22 c4 | 1d 20 20 f1 23 20 58 25 |oop%).".|. .# X%|
|00005c50| 2c 74 69 6d 65 5f 75 73 | 65 64 25 28 6c 6f 6f 70 |,time_us|ed%(loop|
|00005c60| 25 29 0d 22 ce 0b ed 20 | 6c 6f 6f 70 25 0d 22 d8 |%)."... |loop%.".|
|00005c70| 09 d9 23 20 58 25 0d 22 | e2 25 58 25 3d 8e 28 22 |..# X%."|.%X%=.("|
|00005c80| 3c 56 69 64 65 6f 42 61 | 73 65 24 44 69 72 3e 2e |<VideoBa|se$Dir>.|
|00005c90| 57 56 43 41 4c 44 41 54 | 41 22 29 0d 22 ec 09 d9 |WVCALDAT|A")."...|
|00005ca0| 23 20 58 25 0d 22 f6 0c | e7 20 58 25 3d 30 20 8c |# X%."..|. X%=0 .|
|00005cb0| 0d 23 00 27 20 20 58 25 | 3d ae 28 22 3c 56 69 64 |.#.' X%|=.("<Vid|
|00005cc0| 65 6f 42 61 73 65 24 44 | 69 72 3e 2e 57 56 43 41 |eoBase$D|ir>.WVCA|
|00005cd0| 4c 44 41 54 41 22 29 0d | 23 0a 13 20 20 e3 20 6c |LDATA").|#.. . l|
|00005ce0| 6f 6f 70 25 3d 31 20 b8 | 20 36 0d 23 14 0f 20 20 |oop%=1 .| 6.#.. |
|00005cf0| 20 20 f1 23 20 58 25 2c | 30 0d 23 1e 0d 20 20 ed | .# X%,|0.#.. .|
|00005d00| 20 6c 6f 6f 70 25 0d 23 | 28 0b 20 20 d9 23 20 58 | loop%.#|(. .# X|
|00005d10| 25 0d 23 32 05 cc 0d 23 | 3c 27 20 20 58 25 3d ad |%.#2...#|<' X%=.|
|00005d20| 28 22 3c 56 69 64 65 6f | 42 61 73 65 24 44 69 72 |("<Video|Base$Dir|
|00005d30| 3e 2e 57 56 43 41 4c 44 | 41 54 41 22 29 0d 23 46 |>.WVCALD|ATA").#F|
|00005d40| 13 20 20 e3 20 6c 6f 6f | 70 25 3d 31 20 b8 20 36 |. . loo|p%=1 . 6|
|00005d50| 0d 23 50 41 20 20 20 20 | e8 23 20 58 25 2c 63 74 |.#PA |.# X%,ct|
|00005d60| 72 31 25 28 6c 6f 6f 70 | 25 29 2c 63 74 72 32 25 |r1%(loop|%),ctr2%|
|00005d70| 28 6c 6f 6f 70 25 29 2c | 74 69 6d 31 25 28 6c 6f |(loop%),|tim1%(lo|
|00005d80| 6f 70 25 29 2c 74 69 6d | 32 25 28 6c 6f 6f 70 25 |op%),tim|2%(loop%|
|00005d90| 29 0d 23 5a 0d 20 20 ed | 20 6c 6f 6f 70 25 0d 23 |).#Z. .| loop%.#|
|00005da0| 64 0b 20 20 d9 23 20 58 | 25 0d 23 6e 05 cd 0d 23 |d. .# X|%.#n...#|
|00005db0| 78 21 2a 53 54 41 4d 50 | 20 3c 56 69 64 65 6f 42 |x!*STAMP| <VideoB|
|00005dc0| 61 73 65 24 44 69 72 3e | 2e 57 56 44 41 54 41 0d |ase$Dir>|.WVDATA.|
|00005dd0| 23 82 23 2a 53 54 41 4d | 50 20 3c 56 69 64 65 6f |#.#*STAM|P <Video|
|00005de0| 42 61 73 65 24 44 69 72 | 3e 2e 57 56 46 4f 52 4d |Base$Dir|>.WVFORM|
|00005df0| 41 54 0d 23 8c 24 2a 53 | 54 41 4d 50 20 3c 56 69 |AT.#.$*S|TAMP <Vi|
|00005e00| 64 65 6f 42 61 73 65 24 | 44 69 72 3e 2e 57 56 43 |deoBase$|Dir>.WVC|
|00005e10| 41 4c 44 41 54 41 0d 23 | 96 05 e1 0d 23 a0 05 3a |ALDATA.#|....#..:|
|00005e20| 0d 23 aa 10 dd a4 6e 65 | 77 5f 72 65 63 6f 72 64 |.#....ne|w_record|
|00005e30| 0d 23 b4 45 ea 20 63 74 | 72 25 2c 6e 65 77 5f 6c |.#.E. ct|r%,new_l|
|00005e40| 65 6e 67 74 68 25 2c 6e | 65 77 5f 74 69 74 6c 65 |ength%,n|ew_title|
|00005e50| 24 2c 6e 65 77 5f 73 75 | 62 6a 65 63 74 24 2c 6e |$,new_su|bject$,n|
|00005e60| 65 77 5f 74 61 70 65 24 | 2c 6e 65 77 5f 63 6f 75 |ew_tape$|,new_cou|
|00005e70| 6e 74 65 72 24 0d 23 be | 1e ea 20 6e 65 77 5f 63 |nter$.#.|.. new_c|
|00005e80| 6f 75 6e 74 65 72 25 2c | 6e 65 77 5f 6c 65 6e 67 |ounter%,|new_leng|
|00005e90| 74 68 24 0d 23 c8 25 e7 | 20 6e 6f 5f 6f 66 5f 65 |th$.#.%.| no_of_e|
|00005ea0| 6e 74 72 69 65 73 25 20 | 3c 20 6d 61 78 5f 72 65 |ntries% |< max_re|
|00005eb0| 63 6f 72 64 73 25 20 8c | 0d 23 d2 2c 20 20 6e 65 |cords% .|.#., ne|
|00005ec0| 77 5f 74 69 74 6c 65 24 | 3d a4 69 63 6f 6e 5f 67 |w_title$|=.icon_g|
|00005ed0| 65 74 64 61 74 61 28 71 | 25 2c 6e 65 77 72 65 63 |etdata(q|%,newrec|
|00005ee0| 25 2c 32 29 0d 23 dc 2e | 20 20 6e 65 77 5f 73 75 |%,2).#..| new_su|
|00005ef0| 62 6a 65 63 74 24 3d a4 | 69 63 6f 6e 5f 67 65 74 |bject$=.|icon_get|
|00005f00| 64 61 74 61 28 71 25 2c | 6e 65 77 72 65 63 25 2c |data(q%,|newrec%,|
|00005f10| 33 29 0d 23 e6 2b 20 20 | 6e 65 77 5f 74 61 70 65 |3).#.+ |new_tape|
|00005f20| 24 3d a4 69 63 6f 6e 5f | 67 65 74 64 61 74 61 28 |$=.icon_|getdata(|
|00005f30| 71 25 2c 6e 65 77 72 65 | 63 25 2c 34 29 0d 23 f0 |q%,newre|c%,4).#.|
|00005f40| 2e 20 20 6e 65 77 5f 63 | 6f 75 6e 74 65 72 24 3d |. new_c|ounter$=|
|00005f50| a4 69 63 6f 6e 5f 67 65 | 74 64 61 74 61 28 71 25 |.icon_ge|tdata(q%|
|00005f60| 2c 6e 65 77 72 65 63 25 | 2c 36 29 0d 23 fa 2d 20 |,newrec%|,6).#.- |
|00005f70| 20 6e 65 77 5f 6c 65 6e | 67 74 68 24 3d a4 69 63 | new_len|gth$=.ic|
|00005f80| 6f 6e 5f 67 65 74 64 61 | 74 61 28 71 25 2c 6e 65 |on_getda|ta(q%,ne|
|00005f90| 77 72 65 63 25 2c 35 29 | 0d 24 04 33 20 20 e7 20 |wrec%,5)|.$.3 . |
|00005fa0| a9 28 6e 65 77 5f 74 69 | 74 6c 65 24 29 3d 30 20 |.(new_ti|tle$)=0 |
|00005fb0| 8c 20 f2 6f 6b 28 22 4d | 75 73 74 20 65 6e 74 65 |. .ok("M|ust ente|
|00005fc0| 72 20 61 20 74 69 74 6c | 65 22 29 0d 24 0e 37 20 |r a titl|e").$.7 |
|00005fd0| 20 e7 20 a9 28 6e 65 77 | 5f 73 75 62 6a 65 63 74 | . .(new|_subject|
|00005fe0| 24 29 3d 30 20 8c 20 f2 | 6f 6b 28 22 4d 75 73 74 |$)=0 . .|ok("Must|
|00005ff0| 20 65 6e 74 65 72 20 61 | 20 73 75 62 6a 65 63 74 | enter a| subject|
|00006000| 22 29 0d 24 18 1c 20 20 | 6e 65 77 5f 74 61 70 65 |").$.. |new_tape|
|00006010| 25 3d bb 28 6e 65 77 5f | 74 61 70 65 24 29 0d 24 |%=.(new_|tape$).$|
|00006020| 22 20 20 20 6e 65 77 5f | 6c 65 6e 67 74 68 25 3d |" new_|length%=|
|00006030| bb 28 6e 65 77 5f 6c 65 | 6e 67 74 68 24 29 0d 24 |.(new_le|ngth$).$|
|00006040| 2c 22 20 20 6e 65 77 5f | 63 6f 75 6e 74 65 72 25 |," new_|counter%|
|00006050| 3d bb 28 6e 65 77 5f 63 | 6f 75 6e 74 65 72 24 29 |=.(new_c|ounter$)|
|00006060| 0d 24 36 47 20 20 e7 20 | 6e 65 77 5f 74 61 70 65 |.$6G . |new_tape|
|00006070| 25 3c 31 20 84 20 6e 65 | 77 5f 74 61 70 65 25 3e |%<1 . ne|w_tape%>|
|00006080| 6d 61 78 5f 74 61 70 65 | 73 25 20 8c 20 f2 6f 6b |max_tape|s% . .ok|
|00006090| 28 22 49 6e 76 61 6c 69 | 64 20 74 61 70 65 20 6e |("Invali|d tape n|
|000060a0| 75 6d 62 65 72 22 29 0d | 24 40 37 20 20 e7 20 6e |umber").|$@7 . n|
|000060b0| 65 77 5f 6c 65 6e 67 74 | 68 25 3d 30 20 8c 20 f2 |ew_lengt|h%=0 . .|
|000060c0| 6f 6b 28 22 49 6e 76 61 | 6c 69 64 20 72 65 63 6f |ok("Inva|lid reco|
|000060d0| 72 64 69 6e 67 20 6c 65 | 6e 67 74 68 22 29 0d 24 |rding le|ngth").$|
|000060e0| 4a 1c 20 20 63 68 24 3d | 22 2a 2a 22 3a 6e 72 5f |J. ch$=|"**":nr_|
|000060f0| 75 6e 73 65 65 6e 25 2b | 3d 31 0d 24 54 36 20 20 |unseen%+|=1.$T6 |
|00006100| e7 20 74 61 70 65 5f 6e | 72 25 28 31 29 3d 30 20 |. tape_n|r%(1)=0 |
|00006110| 8c 20 74 61 70 65 5f 6e | 72 25 28 31 29 3d 31 3a |. tape_n|r%(1)=1:|
|00006120| f4 20 6e 65 77 20 64 61 | 74 61 20 66 69 6c 65 21 |. new da|ta file!|
|00006130| 0d 24 5e 35 20 20 67 61 | 70 5f 72 65 63 5f 6e 72 |.$^5 ga|p_rec_nr|
|00006140| 25 20 20 3d 20 a4 66 69 | 6e 64 5f 67 61 70 28 6e |% = .fi|nd_gap(n|
|00006150| 65 77 5f 74 61 70 65 25 | 2c 6e 65 77 5f 6c 65 6e |ew_tape%|,new_len|
|00006160| 67 74 68 25 29 0d 24 68 | 3c 20 20 e7 20 74 61 70 |gth%).$h|< . tap|
|00006170| 65 5f 6c 65 6e 67 74 68 | 25 28 6e 65 77 5f 74 61 |e_length|%(new_ta|
|00006180| 70 65 25 29 3d 30 20 8c | 20 f2 6f 6b 28 22 54 61 |pe%)=0 .| .ok("Ta|
|00006190| 70 65 20 6e 72 20 6e 6f | 74 20 66 6f 75 6e 64 22 |pe nr no|t found"|
|000061a0| 29 0d 24 72 28 20 20 e7 | 20 6e 65 77 5f 63 6f 75 |).$r( .| new_cou|
|000061b0| 6e 74 65 72 25 3d 30 20 | 8c 20 f2 68 61 6e 64 6c |nter%=0 |. .handl|
|000061c0| 65 5f 63 6f 75 6e 74 65 | 72 0d 24 7c 37 20 20 e7 |e_counte|r.$|7 .|
|000061d0| 20 67 61 70 5f 72 65 63 | 5f 6e 72 25 3d 2d 31 3a | gap_rec|_nr%=-1:|
|000061e0| f2 6f 6b 28 22 52 65 63 | 6f 72 64 69 6e 67 20 6c |.ok("Rec|ording l|
|000061f0| 65 6e 67 74 68 20 74 6f | 6f 20 6c 6f 6e 67 22 29 |ength to|o long")|
|00006200| 0d 24 86 16 20 20 f4 20 | 2a 2a 20 42 55 47 20 46 |.$.. . |** BUG F|
|00006210| 49 58 21 20 2a 2a 0d 24 | 90 17 20 20 e7 20 67 61 |IX! **.$|.. . ga|
|00006220| 70 5f 72 65 63 5f 6e 72 | 25 3e 31 20 8c 0d 24 9a |p_rec_nr|%>1 ..$.|
|00006230| 39 20 20 20 20 e7 20 74 | 61 70 65 5f 6e 72 25 28 |9 . t|ape_nr%(|
|00006240| 67 61 70 5f 72 65 63 5f | 6e 72 25 2d 31 29 3d 74 |gap_rec_|nr%-1)=t|
|00006250| 61 70 65 5f 6e 72 25 28 | 67 61 70 5f 72 65 63 5f |ape_nr%(|gap_rec_|
|00006260| 6e 72 25 29 20 8c 0d 24 | a4 80 20 20 20 20 20 20 |nr%) ..$|.. |
|00006270| e7 20 6e 65 77 5f 63 6f | 75 6e 74 65 72 25 3c 3d |. new_co|unter%<=|
|00006280| 74 61 70 65 5f 63 6f 75 | 6e 74 65 72 25 28 67 61 |tape_cou|nter%(ga|
|00006290| 70 5f 72 65 63 5f 6e 72 | 25 29 20 8c 20 f2 6f 6b |p_rec_nr|%) . .ok|
|000062a0| 28 22 43 6f 75 6e 74 65 | 72 20 6e 75 6d 62 65 72 |("Counte|r number|
|000062b0| 20 6d 75 73 74 20 62 65 | 20 67 72 65 61 74 65 72 | must be| greater|
|000062c0| 20 74 68 61 6e 20 22 2b | c3 28 74 61 70 65 5f 63 | than "+|.(tape_c|
|000062d0| 6f 75 6e 74 65 72 25 28 | 67 61 70 5f 72 65 63 5f |ounter%(|gap_rec_|
|000062e0| 6e 72 25 29 29 29 0d 24 | ae 09 20 20 20 20 cd 0d |nr%))).$|.. ..|
|000062f0| 24 b8 07 20 20 cd 0d 24 | c2 24 20 20 e7 20 67 61 |$.. ..$|.$ . ga|
|00006300| 70 5f 72 65 63 5f 6e 72 | 25 3c 6e 6f 5f 6f 66 5f |p_rec_nr|%<no_of_|
|00006310| 65 6e 74 72 69 65 73 25 | 20 8c 0d 24 cc 39 20 20 |entries%| ..$.9 |
|00006320| 20 20 e7 20 74 61 70 65 | 5f 6e 72 25 28 67 61 70 | . tape|_nr%(gap|
|00006330| 5f 72 65 63 5f 6e 72 25 | 2b 31 29 3d 74 61 70 65 |_rec_nr%|+1)=tape|
|00006340| 5f 6e 72 25 28 67 61 70 | 5f 72 65 63 5f 6e 72 25 |_nr%(gap|_rec_nr%|
|00006350| 29 20 8c 0d 24 d6 80 20 | 20 20 20 20 20 e7 20 6e |) ..$.. | . n|
|00006360| 65 77 5f 63 6f 75 6e 74 | 65 72 25 3e 74 61 70 65 |ew_count|er%>tape|
|00006370| 5f 63 6f 75 6e 74 65 72 | 25 28 67 61 70 5f 72 65 |_counter|%(gap_re|
|00006380| 63 5f 6e 72 25 2b 31 29 | 20 8c 20 f2 6f 6b 28 22 |c_nr%+1)| . .ok("|
|00006390| 43 6f 75 6e 74 65 72 20 | 6e 75 6d 62 65 72 20 6d |Counter |number m|
|000063a0| 75 73 74 20 62 65 20 6c | 65 73 73 20 74 68 61 6e |ust be l|ess than|
|000063b0| 20 22 2b c3 28 74 61 70 | 65 5f 63 6f 75 6e 74 65 | "+.(tap|e_counte|
|000063c0| 72 25 28 67 61 70 5f 72 | 65 63 5f 6e 72 25 2b 31 |r%(gap_r|ec_nr%+1|
|000063d0| 29 29 29 0d 24 e0 09 20 | 20 20 20 cd 0d 24 ea 07 |))).$.. | ..$..|
|000063e0| 20 20 cd 0d 24 f4 18 20 | 20 f4 20 2a 2a 20 45 4e | ..$.. | . ** EN|
|000063f0| 44 20 4f 46 20 46 49 58 | 20 2a 2a 0d 24 fe 3c 20 |D OF FIX| **.$.< |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
