/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_ext.dms / in.adf / LibsDev.lha / userlibsrc / ElmoreFuncsLib.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2e 46 55 4e 43 54 49 4f | 4e 53 00 00 3b 00 3b 20 |.FUNCTIO|NS..;.; |
|00000010| 20 23 65 6c 6d 6f 72 65 | 66 75 6e 63 73 6c 69 62 | #elmore|funcslib|
|00000020| 3d 31 30 31 20 20 28 72 | 65 76 20 42 55 4d 36 29 |=101  (r|ev BUM6)|
|00000030| 00 3b 00 00 80 0d 20 70 | 75 73 68 72 65 67 3a 80 |.;.... p|ushreg:.|
|00000040| 7e 2e 6c 20 60 31 2c 2d | 28 61 37 29 3a 80 02 20 |~.l `1,-|(a7):.. |
|00000050| 80 0d 00 80 0d 20 70 75 | 6c 6c 72 65 67 3a 80 7e |..... pu|llreg:.~|
|00000060| 2e 6c 20 28 61 37 29 2b | 2c 60 31 3a 80 02 20 80 |.l (a7)+|,`1:.. .|
|00000070| 0d 00 80 0d 20 70 75 73 | 68 72 65 67 73 3a 80 82 |.... pus|hregs:..|
|00000080| 2e 6c 20 60 31 2c 2d 28 | 61 37 29 3a 80 02 20 80 |.l `1,-(|a7):.. .|
|00000090| 0d 00 80 0d 20 70 75 6c | 6c 72 65 67 73 3a 80 82 |.... pul|lregs:..|
|000000a0| 2e 6c 20 28 61 37 29 2b | 2c 60 31 3a 80 02 20 80 |.l (a7)+|,`1:.. .|
|000000b0| 0d 00 80 0d 20 65 72 72 | 6f 72 3a 80 7e 2e 6c 20 |.... err|or:.~.l |
|000000c0| 23 60 31 2c 64 30 3a 80 | ae 23 30 3a 60 31 3a 80 |#`1,d0:.|.#0:`1:.|
|000000d0| 25 2e 62 20 60 32 2c 30 | 3a 80 27 3a 80 02 20 80 |%.b `2,0|:.':.. .|
|000000e0| 0d 00 00 21 6c 69 62 68 | 65 61 64 65 72 7b 23 65 |...!libh|eader{#e|
|000000f0| 6c 6d 6f 72 65 66 75 6e | 63 73 6c 69 62 2c 30 2c |lmorefun|cslib,0,|
|00000100| 30 2c 30 2c 30 7d 00 00 | 21 61 66 75 6e 63 74 69 |0,0,0}..|!afuncti|
|00000110| 6f 6e 7b 23 6c 6f 6e 67 | 7d 00 21 61 72 67 73 20 |on{#long|}.!args |
|00000120| 7b 23 61 72 72 61 79 7d | 00 21 6c 69 62 73 00 21 |{#array}|.!libs.!|
|00000130| 73 75 62 73 20 7b 5f 6c | 69 73 74 70 72 6f 63 2c |subs {_l|istproc,|
|00000140| 30 2c 30 7d 00 21 6e 61 | 6d 65 20 7b 22 49 6e 64 |0,0}.!na|me {"Ind|
|00000150| 65 78 22 2c 22 4c 69 73 | 74 28 29 20 3b 52 65 74 |ex","Lis|t() ;Ret|
|00000160| 75 72 6e 73 20 69 6e 64 | 65 78 20 66 72 6f 6d 20 |urns ind|ex from |
|00000170| 74 6f 70 20 6f 66 20 4c | 49 53 54 22 7d 00 00 00 |top of L|IST"}...|
|00000180| 3b 4d 69 73 63 2e 20 53 | 74 72 69 6e 67 20 66 75 |;Misc. S|tring fu|
|00000190| 6e 63 74 69 6f 6e 73 00 | 21 61 66 75 6e 63 74 69 |nctions.|!afuncti|
|000001a0| 6f 6e 20 7b 23 73 74 72 | 69 6e 67 7d 00 21 61 72 |on {#str|ing}.!ar|
|000001b0| 67 73 7b 23 6c 6f 6e 67 | 7d 00 21 6c 69 62 73 00 |gs{#long|}.!libs.|
|000001c0| 21 73 75 62 73 20 7b 5f | 73 70 61 63 65 2c 30 2c |!subs {_|space,0,|
|000001d0| 30 7d 00 21 6e 61 6d 65 | 20 7b 22 53 50 41 43 45 |0}.!name| {"SPACE|
|000001e0| 24 22 2c 22 28 6e 75 6d | 62 65 72 20 6f 66 20 73 |$","(num|ber of s|
|000001f0| 70 61 63 65 73 29 22 7d | 00 00 00 00 21 61 66 75 |paces)"}|....!afu|
|00000200| 6e 63 74 69 6f 6e 7b 23 | 6c 6f 6e 67 7d 00 21 61 |nction{#|long}.!a|
|00000210| 72 67 73 7b 23 73 74 72 | 69 6e 67 7d 00 21 6c 69 |rgs{#str|ing}.!li|
|00000220| 62 73 00 21 73 75 62 73 | 7b 5f 63 68 65 63 6b 73 |bs.!subs|{_checks|
|00000230| 75 6d 2c 30 2c 30 7d 00 | 21 6e 61 6d 65 7b 22 43 |um,0,0}.|!name{"C|
|00000240| 68 65 63 6b 73 75 6d 22 | 2c 22 28 53 74 72 69 6e |hecksum"|,"(Strin|
|00000250| 67 24 29 20 3b 52 65 74 | 75 72 6e 73 20 61 20 75 |g$) ;Ret|urns a u|
|00000260| 6e 69 71 75 65 20 63 68 | 65 63 6b 73 75 6d 20 66 |nique ch|ecksum f|
|00000270| 6f 72 20 61 20 67 69 76 | 65 6e 20 73 74 72 69 6e |or a giv|en strin|
|00000280| 67 22 7d 00 00 00 00 21 | 61 66 75 6e 63 74 69 6f |g"}....!|afunctio|
|00000290| 6e 7b 23 6c 6f 6e 67 7d | 00 21 61 72 67 73 7b 23 |n{#long}|.!args{#|
|000002a0| 73 74 72 69 6e 67 2c 23 | 62 79 74 65 7d 00 21 6c |string,#|byte}.!l|
|000002b0| 69 62 73 00 21 73 75 62 | 73 7b 5f 63 68 61 72 63 |ibs.!sub|s{_charc|
|000002c0| 6f 75 6e 74 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 7b |ount,0,0|}.!name{|
|000002d0| 22 43 68 61 72 43 6f 75 | 6e 74 22 2c 22 28 53 74 |"CharCou|nt","(St|
|000002e0| 72 69 6e 67 24 2c 62 79 | 74 65 29 20 3b 52 65 74 |ring$,by|te) ;Ret|
|000002f0| 75 72 6e 73 20 6e 6f 2e | 20 6f 63 63 75 72 61 6e |urns no.| occuran|
|00000300| 63 65 73 20 6f 66 20 27 | 62 79 74 65 27 20 69 6e |ces of '|byte' in|
|00000310| 20 27 73 74 72 69 6e 67 | 24 27 22 7d 00 00 00 21 | 'string|$'"}...!|
|00000320| 61 66 75 6e 63 74 69 6f | 6e 7b 23 6c 6f 6e 67 7d |afunctio|n{#long}|
|00000330| 00 21 61 72 67 73 7b 23 | 73 74 72 69 6e 67 2c 23 |.!args{#|string,#|
|00000340| 62 79 74 65 2c 23 6c 6f | 6e 67 7d 00 21 6c 69 62 |byte,#lo|ng}.!lib|
|00000350| 73 00 21 73 75 62 73 7b | 5f 62 69 6e 73 74 72 62 |s.!subs{|_binstrb|
|00000360| 2c 30 2c 30 7d 00 21 6e | 61 6d 65 7b 22 53 65 61 |,0,0}.!n|ame{"Sea|
|00000370| 72 63 68 45 6e 64 22 2c | 22 28 53 74 72 69 6e 67 |rchEnd",|"(String|
|00000380| 24 2c 62 79 74 65 2c 23 | 20 66 72 6f 6d 20 45 6e |$,byte,#| from En|
|00000390| 64 29 20 3b 53 65 61 72 | 63 68 65 73 20 73 74 72 |d) ;Sear|ches str|
|000003a0| 69 6e 67 20 62 61 63 6b | 77 61 72 64 73 20 66 6f |ing back|wards fo|
|000003b0| 72 20 4e 74 68 20 62 79 | 74 65 22 7d 00 00 00 21 |r Nth by|te"}...!|
|000003c0| 61 66 75 6e 63 74 69 6f | 6e 7b 23 6c 6f 6e 67 7d |afunctio|n{#long}|
|000003d0| 00 21 61 72 67 73 7b 23 | 73 74 72 69 6e 67 2c 23 |.!args{#|string,#|
|000003e0| 62 79 74 65 2c 23 6c 6f | 6e 67 7d 00 21 6c 69 62 |byte,#lo|ng}.!lib|
|000003f0| 73 00 21 73 75 62 73 7b | 5f 62 69 6e 73 74 72 66 |s.!subs{|_binstrf|
|00000400| 2c 30 2c 30 7d 00 21 6e | 61 6d 65 7b 22 53 65 61 |,0,0}.!n|ame{"Sea|
|00000410| 72 63 68 42 65 67 69 6e | 22 2c 22 28 53 74 72 69 |rchBegin|","(Stri|
|00000420| 6e 67 24 2c 62 79 74 65 | 2c 23 20 66 72 6f 6d 20 |ng$,byte|,# from |
|00000430| 42 65 67 69 6e 29 20 3b | 53 65 61 72 63 68 65 73 |Begin) ;|Searches|
|00000440| 20 73 74 72 69 6e 67 20 | 66 6f 72 20 4e 74 68 20 | string |for Nth |
|00000450| 62 79 74 65 22 7d 00 00 | 00 21 61 66 75 6e 63 74 |byte"}..|.!afunct|
|00000460| 69 6f 6e 7b 23 73 74 72 | 69 6e 67 7d 00 21 61 72 |ion{#str|ing}.!ar|
|00000470| 67 73 7b 23 73 74 72 69 | 6e 67 7d 00 21 6c 69 62 |gs{#stri|ng}.!lib|
|00000480| 73 00 21 73 75 62 73 7b | 5f 65 6e 63 72 79 70 74 |s.!subs{|_encrypt|
|00000490| 2c 30 2c 30 7d 00 21 6e | 61 6d 65 7b 22 43 69 70 |,0,0}.!n|ame{"Cip|
|000004a0| 68 65 72 24 22 2c 22 28 | 53 74 72 69 6e 67 24 29 |her$","(|String$)|
|000004b0| 20 3b 43 72 65 61 74 65 | 2f 55 6e 65 6e 63 72 79 | ;Create|/Unencry|
|000004c0| 70 74 20 61 20 43 69 70 | 68 65 72 24 28 29 20 73 |pt a Cip|her$() s|
|000004d0| 74 72 69 6e 67 22 7d 00 | 00 00 21 61 66 75 6e 63 |tring"}.|..!afunc|
|000004e0| 74 69 6f 6e 7b 23 6c 6f | 6e 67 7d 00 21 61 72 67 |tion{#lo|ng}.!arg|
|000004f0| 73 7b 23 73 74 72 69 6e | 67 7d 00 21 6c 69 62 73 |s{#strin|g}.!libs|
|00000500| 00 21 73 75 62 73 7b 5f | 72 65 70 65 61 74 73 2c |.!subs{_|repeats,|
|00000510| 30 2c 30 7d 00 21 6e 61 | 6d 65 7b 22 52 65 70 65 |0,0}.!na|me{"Repe|
|00000520| 61 74 73 22 2c 22 28 53 | 74 72 69 6e 67 24 29 20 |ats","(S|tring$) |
|00000530| 3b 52 65 74 75 72 6e 73 | 20 23 20 72 65 70 65 74 |;Returns| # repet|
|00000540| 69 74 69 76 65 20 63 68 | 61 72 61 63 74 65 72 73 |itive ch|aracters|
|00000550| 20 61 74 20 66 72 6f 6e | 74 20 6f 66 20 73 74 72 | at fron|t of str|
|00000560| 69 6e 67 22 7d 00 00 00 | 21 6c 69 62 66 69 6e 00 |ing"}...|!libfin.|
|00000570| 00 00 00 00 00 00 2e 5f | 73 70 61 63 65 00 21 70 |......._|space.!p|
|00000580| 75 73 68 72 65 67 73 7b | 61 30 2d 61 36 2f 64 31 |ushregs{|a0-a6/d1|
|00000590| 2d 64 32 7d 00 80 7e 2e | 6c 20 28 61 33 29 2c 70 |-d2}..~.|l (a3),p|
|000005a0| 73 74 72 69 6e 67 00 00 | 3b 64 30 20 68 6f 6c 64 |string..|;d0 hold|
|000005b0| 73 20 6c 65 6e 67 74 68 | 2c 20 64 31 20 69 73 20 |s length|, d1 is |
|000005c0| 74 65 6d 70 20 69 6e 64 | 65 78 00 80 7e 2e 6c 20 |temp ind|ex..~.l |
|000005d0| 64 30 2c 64 31 00 80 81 | 20 23 33 32 2c 64 32 00 |d0,d1...| #32,d2.|
|000005e0| 00 73 70 61 63 65 6c 6f | 6f 70 00 80 b0 2e 6c 20 |.spacelo|op....l |
|000005f0| 64 31 00 80 48 20 73 64 | 6f 6e 65 00 80 7e 2e 62 |d1..H sd|one..~.b|
|00000600| 20 64 32 2c 28 61 33 29 | 2b 00 80 aa 20 23 31 2c | d2,(a3)|+... #1,|
|00000610| 64 31 00 80 58 20 73 70 | 61 63 65 6c 6f 6f 70 00 |d1..X sp|aceloop.|
|00000620| 73 64 6f 6e 65 00 80 7e | 2e 6c 20 61 33 2c 70 73 |sdone..~|.l a3,ps|
|00000630| 74 72 69 6e 67 00 21 70 | 75 6c 6c 72 65 67 73 7b |tring.!p|ullregs{|
|00000640| 64 31 2d 64 32 2f 61 30 | 2d 61 36 7d 00 80 80 2e |d1-d2/a0|-a6}....|
|00000650| 6c 20 70 73 74 72 69 6e | 67 2c 61 33 00 80 94 00 |l pstrin|g,a3....|
|00000660| 00 00 00 00 2e 5f 6c 69 | 73 74 70 72 6f 63 00 00 |....._li|stproc..|
|00000670| 80 7e 2e 6c 20 64 30 2c | 61 30 20 20 20 20 20 20 |.~.l d0,|a0      |
|00000680| 20 20 3b 6c 69 73 74 20 | 62 61 73 65 00 80 7e 2e |  ;list |base..~.|
|00000690| 6c 20 2d 31 32 28 61 30 | 29 2c 64 30 20 20 20 3b |l -12(a0|),d0   ;|
|000006a0| 57 68 61 74 20 6b 69 6e | 64 20 6f 66 20 61 72 72 |What kin|d of arr|
|000006b0| 61 79 3f 00 00 80 5b 2e | 6c 20 64 30 20 20 20 20 |ay?...[.|l d0    |
|000006c0| 20 20 20 20 20 20 20 20 | 3b 52 65 73 65 74 20 63 |        |;Reset c|
|000006d0| 6f 75 6e 74 65 72 00 80 | 7e 2e 6c 20 2d 33 32 28 |ounter..|~.l -32(|
|000006e0| 61 30 29 2c 61 30 20 20 | 20 3b 43 75 72 72 65 6e |a0),a0  | ;Curren|
|000006f0| 74 20 69 74 65 6d 00 00 | 6c 69 73 74 6e 65 78 74 |t item..|listnext|
|00000700| 00 80 b0 2e 6c 20 28 61 | 30 29 20 20 20 20 20 20 |....l (a|0)      |
|00000710| 20 20 20 20 3b 45 6d 70 | 74 79 20 6e 6f 64 65 3f |    ;Emp|ty node?|
|00000720| 00 80 48 20 6c 69 73 74 | 64 6f 6e 65 20 20 20 20 |..H list|done    |
|00000730| 20 20 20 20 3b 45 78 69 | 74 20 69 66 20 73 6f 21 |    ;Exi|t if so!|
|00000740| 00 80 40 2e 6c 20 23 31 | 2c 64 30 20 20 20 20 20 |..@.l #1|,d0     |
|00000750| 20 20 20 3b 41 64 64 20 | 31 20 74 6f 20 69 6e 64 |   ;Add |1 to ind|
|00000760| 65 78 00 80 7e 2e 6c 20 | 34 28 61 30 29 2c 61 30 |ex..~.l |4(a0),a0|
|00000770| 20 20 20 20 20 3b 50 72 | 65 76 20 4c 49 53 54 20 |     ;Pr|ev LIST |
|00000780| 69 74 65 6d 2e 2e 2e 00 | 80 58 20 6c 69 73 74 6e |item....|.X listn|
|00000790| 65 78 74 00 00 6c 69 73 | 74 64 6f 6e 65 00 80 94 |ext..lis|tdone...|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 2e 5f 63 |........|......_c|
|000007b0| 68 65 63 6b 73 75 6d 00 | 80 5b 2e 6c 20 64 32 20 |hecksum.|.[.l d2 |
|000007c0| 20 20 20 20 20 20 20 20 | 20 3b 64 32 2e 6c 20 77 |        | ;d2.l w|
|000007d0| 69 6c 6c 20 63 6f 6e 74 | 61 69 6e 20 74 68 65 20 |ill cont|ain the |
|000007e0| 63 68 65 63 6b 73 75 6d | 00 80 7e 2e 6c 20 64 30 |checksum|..~.l d0|
|000007f0| 2c 61 30 20 20 20 20 20 | 20 3b 73 74 72 69 6e 67 |,a0     | ;string|
|00000800| 27 73 20 61 64 64 72 65 | 73 73 00 80 7e 2e 6c 20 |'s addre|ss..~.l |
|00000810| 2d 34 28 61 32 29 2c 64 | 30 20 20 3b 4c 65 6e 67 |-4(a2),d|0  ;Leng|
|00000820| 74 68 2e 2e 2e 00 00 63 | 68 65 63 6b 69 74 00 80 |th.....c|heckit..|
|00000830| 7e 2e 6c 20 28 61 30 29 | 2b 2c 64 31 20 20 20 3b |~.l (a0)|+,d1   ;|
|00000840| 47 65 74 20 62 79 74 65 | 20 66 72 6f 6d 20 73 74 |Get byte| from st|
|00000850| 72 69 6e 67 00 80 84 2e | 77 20 64 30 2c 64 31 20 |ring....|w d0,d1 |
|00000860| 20 20 20 20 20 3b 70 6f | 73 69 74 69 6f 6e 2d 73 |     ;po|sition-s|
|00000870| 65 6e 73 69 74 69 76 65 | 00 80 3d 2e 6c 20 64 31 |ensitive|..=.l d1|
|00000880| 2c 64 32 00 80 6f 20 64 | 30 2c 63 68 65 63 6b 69 |,d2..o d|0,checki|
|00000890| 74 00 00 80 7e 2e 6c 20 | 64 32 2c 64 30 20 20 20 |t...~.l |d2,d0   |
|000008a0| 20 20 20 3b 52 65 74 75 | 72 6e 20 61 73 20 66 75 |   ;Retu|rn as fu|
|000008b0| 6e 63 74 69 6f 6e 00 80 | 94 00 00 00 00 00 00 00 |nction..|........|
|000008c0| 00 00 00 2e 5f 63 68 61 | 72 63 6f 75 6e 74 00 80 |...._cha|rcount..|
|000008d0| 7e 2e 6c 20 64 30 2c 61 | 30 20 20 20 20 20 20 3b |~.l d0,a|0      ;|
|000008e0| 61 30 3d 73 74 72 2e 20 | 61 64 64 72 2e 00 80 7e |a0=str. |addr...~|
|000008f0| 2e 6c 20 64 31 2c 64 32 | 20 20 20 20 20 20 3b 64 |.l d1,d2|      ;d|
|00000900| 32 3d 62 79 74 65 20 74 | 6f 20 66 69 6e 64 00 80 |2=byte t|o find..|
|00000910| 7e 2e 6c 20 2d 32 28 61 | 32 29 2c 64 31 20 20 3b |~.l -2(a|2),d1  ;|
|00000920| 64 31 3d 6c 65 6e 67 74 | 68 20 6f 66 20 73 74 72 |d1=lengt|h of str|
|00000930| 2e 00 80 5b 2e 6c 20 64 | 30 20 20 20 20 20 20 20 |...[.l d|0       |
|00000940| 20 20 20 3b 64 30 3d 6e | 75 6d 62 65 72 20 66 6f |   ;d0=n|umber fo|
|00000950| 75 6e 64 2e 00 00 63 6f | 75 6e 74 69 74 00 80 5c |und...co|untit..\|
|00000960| 2e 62 20 28 61 30 29 2b | 2c 64 32 00 80 50 20 6e |.b (a0)+|,d2..P n|
|00000970| 6f 74 63 68 61 72 00 80 | 40 2e 6c 20 23 31 2c 64 |otchar..|@.l #1,d|
|00000980| 30 00 6e 6f 74 63 68 61 | 72 3a 00 80 6f 20 64 31 |0.notcha|r:..o d1|
|00000990| 2c 63 6f 75 6e 74 69 74 | 00 00 00 80 94 00 00 00 |,countit|........|
|000009a0| 00 2e 5f 62 69 6e 73 74 | 72 62 00 3b 44 30 3d 53 |.._binst|rb.;D0=S|
|000009b0| 74 72 69 6e 67 20 20 20 | 44 31 3d 42 79 74 65 20 |tring   |D1=Byte |
|000009c0| 20 20 44 32 3d 43 6f 75 | 6e 74 00 00 80 7e 2e 6c |  D2=Cou|nt...~.l|
|000009d0| 20 64 30 2c 61 30 20 20 | 20 20 20 20 3b 41 64 64 | d0,a0  |    ;Add|
|000009e0| 72 65 73 73 20 6f 66 20 | 73 74 72 69 6e 67 00 80 |ress of |string..|
|000009f0| 7e 2e 6c 20 2d 34 28 61 | 32 29 2c 64 30 20 20 3b |~.l -4(a|2),d0  ;|
|00000a00| 4c 61 73 74 20 63 68 61 | 72 20 69 6e 20 73 74 72 |Last cha|r in str|
|00000a10| 69 6e 67 20 28 4c 65 6e | 67 74 68 29 00 00 00 3b |ing (Len|gth)...;|
|00000a20| 43 68 65 63 6b 20 70 61 | 72 61 6d 65 74 65 72 73 |Check pa|rameters|
|00000a30| 20 61 72 65 20 6c 65 67 | 61 6c 3a 00 80 b0 2e 6c | are leg|al:....l|
|00000a40| 20 64 30 00 80 48 20 62 | 69 6e 7a 65 72 6f 20 20 | d0..H b|inzero  |
|00000a50| 20 20 20 20 20 3b 4e 75 | 6c 6c 2d 73 74 72 69 6e |     ;Nu|ll-strin|
|00000a60| 67 3f 00 00 80 b0 2e 6c | 20 64 32 00 80 48 20 62 |g?.....l| d2..H b|
|00000a70| 69 6e 7a 65 72 6f 20 20 | 20 20 20 20 20 3b 43 6f |inzero  |     ;Co|
|00000a80| 75 6e 74 20 7a 65 72 6f | 3f 3f 00 00 00 80 5c 2e |unt zero|??....\.|
|00000a90| 6c 20 23 31 2c 64 32 20 | 20 20 20 20 20 20 3b 43 |l #1,d2 |      ;C|
|00000aa0| 68 65 63 6b 20 6f 75 74 | 20 6f 75 72 20 22 63 6f |heck out| our "co|
|00000ab0| 75 6e 74 22 00 80 51 20 | 62 69 6e 73 65 61 72 63 |unt"..Q |binsearc|
|00000ac0| 68 20 20 20 20 20 3b 49 | 73 20 69 74 20 3e 3d 30 |h     ;I|s it >=0|
|00000ad0| 3f 00 00 80 5c 2e 6c 20 | 64 30 2c 64 32 20 20 20 |?...\.l |d0,d2   |
|00000ae0| 20 20 20 20 3b 43 61 6e | 27 74 20 62 65 20 6c 6f |    ;Can|'t be lo|
|00000af0| 6e 67 65 72 20 74 68 61 | 6e 20 74 68 65 20 73 74 |nger tha|n the st|
|00000b00| 72 69 6e 67 21 00 80 4c | 20 62 69 6e 73 65 61 72 |ring!..L| binsear|
|00000b10| 63 68 20 20 20 20 20 3b | 49 73 20 69 74 20 3c 3d |ch     ;|Is it <=|
|00000b20| 20 6c 65 6e 67 74 68 3f | 00 00 80 81 2e 6c 23 31 | length?|.....l#1|
|00000b30| 2c 64 32 20 20 20 20 20 | 20 3b 4d 61 6b 65 20 69 |,d2     | ;Make i|
|00000b40| 74 20 73 6f 2c 20 23 31 | 21 00 3b 3b 3b 3b 3b 3b |t so, #1|!.;;;;;;|
|00000b50| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000b60| 3b 3b 3b 3b 3b 3b 3b 3b | 00 00 00 62 69 6e 73 65 |;;;;;;;;|...binse|
|00000b70| 61 72 63 68 3a 00 80 5c | 2e 62 20 30 28 61 30 2c |arch:..\|.b 0(a0,|
|00000b80| 64 30 29 2c 64 31 20 3b | 49 73 20 69 74 20 6f 75 |d0),d1 ;|Is it ou|
|00000b90| 72 20 63 68 61 72 3f 00 | 80 48 20 66 6f 75 6e 64 |r char?.|.H found|
|00000ba0| 62 69 6e 20 20 20 20 20 | 20 3b 59 65 73 21 00 00 |bin     | ;Yes!..|
|00000bb0| 62 69 6e 6d 6f 72 65 3a | 00 80 6f 20 64 30 2c 62 |binmore:|..o d0,b|
|00000bc0| 69 6e 73 65 61 72 63 68 | 20 3b 4b 65 65 70 20 6c |insearch| ;Keep l|
|00000bd0| 6f 6f 6b 69 6e 27 00 00 | 62 69 6e 7a 65 72 6f 3a |ookin'..|binzero:|
|00000be0| 00 00 80 5b 2e 6c 20 64 | 30 00 80 94 20 20 20 20 |...[.l d|0...    |
|00000bf0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 52 65 74 75 |        |   ;Retu|
|00000c00| 72 6e 20 77 69 74 68 20 | 7a 65 72 6f 2e 2e 2e 00 |rn with |zero....|
|00000c10| 00 00 66 6f 75 6e 64 62 | 69 6e 3a 00 80 6f 20 64 |..foundb|in:..o d|
|00000c20| 32 2c 62 69 6e 6d 6f 72 | 65 20 20 20 3b 49 73 20 |2,binmor|e   ;Is |
|00000c30| 6f 75 72 20 63 6f 75 6e | 74 65 72 20 74 69 63 6b |our coun|ter tick|
|00000c40| 65 64 2d 6f 75 74 3f 00 | 00 3b 59 65 73 2c 20 69 |ed-out?.|.;Yes, i|
|00000c50| 74 20 69 73 21 00 00 80 | 40 2e 6c 23 31 2c 64 30 |t is!...|@.l#1,d0|
|00000c60| 20 20 20 20 20 20 20 3b | 41 64 64 20 22 31 22 20 |       ;|Add "1" |
|00000c70| 74 6f 20 70 6f 73 69 74 | 69 6f 6e 2e 2e 2e 00 00 |to posit|ion.....|
|00000c80| 80 94 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00000c90| 20 3b 52 65 74 75 72 6e | 20 77 69 74 68 20 63 68 | ;Return| with ch|
|00000ca0| 61 72 2e 20 70 6f 73 69 | 74 69 6f 6e 21 00 00 00 |ar. posi|tion!...|
|00000cb0| 00 2e 5f 62 69 6e 73 74 | 72 66 00 3b 44 30 2f 41 |.._binst|rf.;D0/A|
|00000cc0| 30 3d 50 6f 73 2e 20 20 | 44 31 3d 42 79 74 65 20 |0=Pos.  |D1=Byte |
|00000cd0| 20 44 32 3d 43 6f 75 6e | 74 20 20 44 33 3d 4c 65 | D2=Coun|t  D3=Le|
|00000ce0| 6e 67 74 68 00 00 00 80 | 7e 2e 6c 20 64 30 2c 61 |ngth....|~.l d0,a|
|00000cf0| 30 00 80 7e 2e 6c 20 2d | 34 28 61 32 29 2c 64 33 |0..~.l -|4(a2),d3|
|00000d00| 00 80 5b 2e 6c 20 64 30 | 00 00 80 aa 2e 6c 20 23 |..[.l d0|.....l #|
|00000d10| 31 2c 64 32 20 20 20 20 | 20 20 3b 53 75 62 74 72 |1,d2    |  ;Subtr|
|00000d20| 61 63 74 20 31 20 66 72 | 6f 6d 20 63 6f 75 6e 74 |act 1 fr|om count|
|00000d30| 2e 2e 2e 00 00 3b 43 68 | 65 63 6b 20 70 61 72 61 |.....;Ch|eck para|
|00000d40| 6d 65 74 65 72 73 20 61 | 72 65 20 6c 65 67 61 6c |meters a|re legal|
|00000d50| 3a 00 80 b0 2e 6c 20 64 | 33 00 80 48 20 62 69 6e |:....l d|3..H bin|
|00000d60| 7a 65 72 6f 20 20 20 20 | 20 20 20 3b 4e 75 6c 6c |zero    |   ;Null|
|00000d70| 2d 73 74 72 69 6e 67 3f | 00 00 80 5c 2e 6c 20 23 |-string?|...\.l #|
|00000d80| 31 2c 64 32 20 20 20 20 | 20 20 20 3b 43 68 65 63 |1,d2    |   ;Chec|
|00000d90| 6b 20 6f 75 74 20 6f 75 | 72 20 22 63 6f 75 6e 74 |k out ou|r "count|
|00000da0| 22 00 80 51 20 62 69 6e | 66 73 65 61 72 63 68 20 |"..Q bin|fsearch |
|00000db0| 20 20 20 3b 49 73 20 69 | 74 20 3e 3d 30 3f 00 00 |   ;Is i|t >=0?..|
|00000dc0| 80 5c 2e 6c 20 64 33 2c | 64 32 20 20 20 20 20 20 |.\.l d3,|d2      |
|00000dd0| 20 3b 43 61 6e 27 74 20 | 62 65 20 6c 6f 6e 67 65 | ;Can't |be longe|
|00000de0| 72 20 74 68 61 6e 20 74 | 68 65 20 73 74 72 69 6e |r than t|he strin|
|00000df0| 67 21 00 80 4c 20 62 69 | 6e 66 73 65 61 72 63 68 |g!..L bi|nfsearch|
|00000e00| 20 20 20 20 3b 49 73 20 | 69 74 20 3c 3d 20 6c 65 |    ;Is |it <= le|
|00000e10| 6e 67 74 68 3f 00 00 80 | 81 2e 6c 23 31 2c 64 32 |ngth?...|..l#1,d2|
|00000e20| 20 20 20 20 20 20 3b 4d | 61 6b 65 20 69 74 20 73 |      ;M|ake it s|
|00000e30| 6f 2c 20 23 31 21 00 00 | 00 62 69 6e 66 73 65 61 |o, #1!..|.binfsea|
|00000e40| 72 63 68 3a 00 80 5c 2e | 62 20 30 28 61 30 2c 64 |rch:..\.|b 0(a0,d|
|00000e50| 30 29 2c 64 31 20 20 20 | 3b 49 73 20 74 68 69 73 |0),d1   |;Is this|
|00000e60| 20 6f 75 72 20 67 75 79 | 3f 00 80 48 20 66 6f 75 | our guy|?..H fou|
|00000e70| 6e 64 66 62 69 6e 20 20 | 20 20 20 20 20 3b 59 65 |ndfbin  |     ;Ye|
|00000e80| 61 21 20 48 65 20 69 73 | 21 00 00 62 69 6e 66 6d |a! He is|!..binfm|
|00000e90| 6f 72 65 3a 00 80 40 2e | 6c 23 31 2c 64 30 20 20 |ore:..@.|l#1,d0  |
|00000ea0| 20 20 20 20 20 20 20 3b | 47 6f 20 75 70 20 73 74 |       ;|Go up st|
|00000eb0| 72 69 6e 67 20 73 6f 6d | 65 20 6d 6f 72 65 2e 2e |ring som|e more..|
|00000ec0| 2e 00 80 6f 20 64 33 2c | 62 69 6e 66 73 65 61 72 |...o d3,|binfsear|
|00000ed0| 63 68 3a 20 3b 42 75 74 | 20 6e 6f 74 20 66 75 72 |ch: ;But| not fur|
|00000ee0| 74 68 65 72 20 74 68 61 | 6e 20 69 74 27 73 20 6c |ther tha|n it's l|
|00000ef0| 65 6e 67 74 68 21 00 80 | 58 20 62 69 6e 7a 65 72 |ength!..|X binzer|
|00000f00| 6f 20 20 20 20 20 20 20 | 20 20 3b 72 65 74 75 72 |o       |  ;retur|
|00000f10| 6e 20 7a 65 72 6f 21 00 | 00 66 6f 75 6e 64 66 62 |n zero!.|.foundfb|
|00000f20| 69 6e 3a 00 80 6f 20 64 | 32 2c 62 69 6e 66 6d 6f |in:..o d|2,binfmo|
|00000f30| 72 65 20 20 20 20 3b 43 | 6f 75 6e 74 65 72 20 64 |re    ;C|ounter d|
|00000f40| 6f 6e 65 20 79 65 74 3f | 00 00 00 80 5c 2e 6c 20 |one yet?|....\.l |
|00000f50| 2d 34 28 61 32 29 2c 64 | 30 20 20 20 20 20 3b 69 |-4(a2),d|0     ;i|
|00000f60| 73 20 72 65 73 75 6c 74 | 20 6c 6f 6e 67 65 72 20 |s result| longer |
|00000f70| 74 68 61 6e 20 73 74 72 | 69 6e 67 3f 3f 3f 00 80 |than str|ing???..|
|00000f80| 4e 20 6e 6f 74 68 69 67 | 68 65 72 00 80 5b 2e 6c |N nothig|her..[.l|
|00000f90| 20 64 30 00 80 94 00 00 | 00 6e 6f 74 68 69 67 68 | d0.....|.nothigh|
|00000fa0| 65 72 3a 00 80 40 2e 6c | 23 31 2c 64 30 20 20 20 |er:..@.l|#1,d0   |
|00000fb0| 20 20 20 20 20 20 3b 41 | 64 64 20 61 20 6f 6e 65 |      ;A|dd a one|
|00000fc0| 20 28 70 6f 73 2e 20 31 | 20 69 6e 20 73 74 72 69 | (pos. 1| in stri|
|00000fd0| 6e 67 20 69 73 20 6f 66 | 66 73 65 74 20 30 29 00 |ng is of|fset 0).|
|00000fe0| 80 94 00 00 00 00 00 00 | 00 2e 5f 65 6e 63 72 79 |........|.._encry|
|00000ff0| 70 74 00 80 7e 2e 6c 20 | 64 30 2c 61 33 00 80 7e |pt..~.l |d0,a3..~|
|00001000| 2e 6c 20 2d 34 28 61 32 | 29 2c 64 30 00 80 7e 2e |.l -4(a2|),d0..~.|
|00001010| 6c 20 64 30 2c 64 31 00 | 00 65 6e 63 72 3a 00 80 |l d0,d1.|.encr:..|
|00001020| 73 2e 62 20 23 32 35 35 | 2c 28 61 33 29 2b 00 80 |s.b #255|,(a3)+..|
|00001030| 6f 20 64 31 2c 65 6e 63 | 72 00 80 94 00 00 00 2e |o d1,enc|r.......|
|00001040| 5f 72 65 70 65 61 74 73 | 00 80 7e 2e 6c 20 64 30 |_repeats|..~.l d0|
|00001050| 2c 61 30 00 80 7e 2e 6c | 20 2d 34 28 61 32 29 2c |,a0..~.l| -4(a2),|
|00001060| 64 31 00 80 5b 2e 6c 20 | 64 30 00 00 80 7e 2e 62 |d1..[.l |d0...~.b|
|00001070| 20 28 61 30 29 2c 64 32 | 00 00 80 b0 2e 6c 20 64 | (a0),d2|.....l d|
|00001080| 31 20 20 20 20 3b 49 73 | 20 69 74 20 6e 75 6c 6c |1    ;Is| it null|
|00001090| 3f 00 80 48 20 72 65 70 | 73 64 6f 6e 65 00 00 00 |?..H rep|sdone...|
|000010a0| 63 6f 75 6e 74 72 65 70 | 73 3a 00 80 5c 2e 62 20 |countrep|s:..\.b |
|000010b0| 28 61 30 29 2b 2c 64 32 | 00 80 50 20 72 65 70 73 |(a0)+,d2|..P reps|
|000010c0| 64 6f 6e 65 00 80 40 2e | 6c 23 31 2c 64 30 00 80 |done..@.|l#1,d0..|
|000010d0| 6f 20 64 31 2c 63 6f 75 | 6e 74 72 65 70 73 00 00 |o d1,cou|ntreps..|
|000010e0| 72 65 70 73 64 6f 6e 65 | 3a 00 80 94 00 00 00 00 |repsdone|:.......|
|000010f0| 65 7a 74 65 78 74 6c 65 | 6e 3a 00 80 26 2e 6c 20 |eztextle|n:..&.l |
|00001100| 31 00 00 70 73 74 72 69 | 6e 67 3a 00 80 26 2e 6c |1..pstri|ng:..&.l|
|00001110| 20 31 00 00 70 73 74 61 | 72 74 3a 00 80 26 2e 6c | 1..psta|rt:..&.l|
|00001120| 20 31 00 00 00 6c 69 73 | 74 74 6f 70 3a 00 80 26 | 1...lis|ttop:..&|
|00001130| 2e 77 20 31 00 00 00    |                         |.w 1... |        |
+--------+-------------------------+-------------------------+--------+--------+