home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-04-04 | 10.1 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
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 00 3b 20 53 74 | 72 69 6e 67 20 66 75 6e |;.;.; St|ring fun|
|00000010| 63 74 69 6f 6e 73 20 6c | 69 62 72 61 72 79 00 3b |ctions l|ibrary.;|
|00000020| 00 3b 20 41 20 62 69 74 | 20 6d 65 73 73 79 20 63 |.; A bit| messy c|
|00000030| 6f 7a 20 69 74 27 73 20 | 6a 75 73 74 20 63 6f 6d |oz it's |just com|
|00000040| 65 20 66 72 6f 6d 20 67 | 65 6e 61 6d 21 00 3b 00 |e from g|enam!.;.|
|00000050| 00 3b 20 6d 61 72 63 68 | 20 31 39 39 34 20 20 63 |.; march| 1994 c|
|00000060| 68 61 6e 67 65 64 20 74 | 6f 20 68 61 6e 64 6c 65 |hanged t|o handle|
|00000070| 20 6e 65 77 20 6e 75 6c | 6c 20 61 6c 77 61 79 73 | new nul|l always|
|00000080| 20 75 70 67 72 61 64 65 | 00 3b 20 73 74 69 6c 6c | upgrade|.; still|
|00000090| 20 6e 65 65 64 73 20 65 | 72 72 20 63 68 65 63 6b | needs e|rr check|
|000000a0| 69 6e 67 00 00 21 6c 69 | 62 68 65 61 64 65 72 7b |ing..!li|bheader{|
|000000b0| 23 73 74 72 69 6e 67 66 | 75 6e 63 6c 69 62 2c 69 |#stringf|unclib,i|
|000000c0| 6e 69 74 2c 31 2c 30 2c | 30 7d 00 00 21 61 66 75 |nit,1,0,|0}..!afu|
|000000d0| 6e 63 74 69 6f 6e 7b 23 | 73 74 72 69 6e 67 7d 00 |nction{#|string}.|
|000000e0| 21 61 72 67 73 7b 23 73 | 74 72 69 6e 67 2c 23 6c |!args{#s|tring,#l|
|000000f0| 6f 6e 67 7d 00 21 6c 69 | 62 73 00 21 73 75 62 73 |ong}.!li|bs.!subs|
|00000100| 7b 6c 65 66 74 73 74 72 | 69 6e 67 2c 30 2c 30 7d |{leftstr|ing,0,0}|
|00000110| 00 21 6e 61 6d 65 7b 22 | 4c 65 66 74 24 22 2c 22 |.!name{"|Left$","|
|00000120| 28 53 74 72 69 6e 67 24 | 2c 4c 65 6e 67 74 68 29 |(String$|,Length)|
|00000130| 22 7d 00 00 21 61 66 75 | 6e 63 74 69 6f 6e 7b 23 |"}..!afu|nction{#|
|00000140| 73 74 72 69 6e 67 7d 00 | 21 61 72 67 73 7b 23 73 |string}.|!args{#s|
|00000150| 74 72 69 6e 67 2c 23 6c | 6f 6e 67 7d 00 21 6c 69 |tring,#l|ong}.!li|
|00000160| 62 73 00 21 73 75 62 73 | 7b 72 69 67 68 74 73 74 |bs.!subs|{rightst|
|00000170| 72 69 6e 67 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 7b |ring,0,0|}.!name{|
|00000180| 22 52 69 67 68 74 24 22 | 2c 22 28 53 74 72 69 6e |"Right$"|,"(Strin|
|00000190| 67 24 2c 4c 65 6e 67 74 | 68 29 22 7d 00 00 21 61 |g$,Lengt|h)"}..!a|
|000001a0| 66 75 6e 63 74 69 6f 6e | 7b 23 73 74 72 69 6e 67 |function|{#string|
|000001b0| 7d 00 3b 00 21 61 72 67 | 73 7b 23 73 74 72 69 6e |}.;.!arg|s{#strin|
|000001c0| 67 2c 23 6c 6f 6e 67 2c | 23 6c 6f 6e 67 7d 00 21 |g,#long,|#long}.!|
|000001d0| 6c 69 62 73 00 21 73 75 | 62 73 7b 6d 69 64 73 74 |libs.!su|bs{midst|
|000001e0| 72 69 6e 67 2c 30 2c 30 | 7d 00 3b 00 21 61 72 67 |ring,0,0|}.;.!arg|
|000001f0| 73 7b 23 73 74 72 69 6e | 67 2c 23 6c 6f 6e 67 7d |s{#strin|g,#long}|
|00000200| 00 21 6c 69 62 73 00 21 | 73 75 62 73 7b 6d 69 64 |.!libs.!|subs{mid|
|00000210| 73 74 72 69 6e 67 32 2c | 30 2c 30 7d 00 3b 00 21 |string2,|0,0}.;.!|
|00000220| 6e 61 6d 65 7b 22 4d 69 | 64 24 22 2c 22 28 53 74 |name{"Mi|d$","(St|
|00000230| 72 69 6e 67 24 2c 53 74 | 61 72 74 63 68 61 72 5b |ring$,St|artchar[|
|00000240| 2c 4c 65 6e 67 74 68 5d | 29 22 7d 00 00 21 61 66 |,Length]|)"}..!af|
|00000250| 75 6e 63 74 69 6f 6e 7b | 23 73 74 72 69 6e 67 7d |unction{|#string}|
|00000260| 00 21 61 72 67 73 7b 23 | 6c 6f 6e 67 7d 00 21 6c |.!args{#|long}.!l|
|00000270| 69 62 73 00 21 73 75 62 | 73 7b 68 65 78 73 74 72 |ibs.!sub|s{hexstr|
|00000280| 69 6e 67 2c 30 2c 30 7d | 00 21 6e 61 6d 65 7b 22 |ing,0,0}|.!name{"|
|00000290| 48 65 78 24 22 2c 22 28 | 45 78 70 72 65 73 73 69 |Hex$","(|Expressi|
|000002a0| 6f 6e 29 22 7d 00 00 21 | 61 66 75 6e 63 74 69 6f |on)"}..!|afunctio|
|000002b0| 6e 7b 23 73 74 72 69 6e | 67 7d 00 21 61 72 67 73 |n{#strin|g}.!args|
|000002c0| 7b 23 6c 6f 6e 67 7d 00 | 21 6c 69 62 73 00 21 73 |{#long}.|!libs.!s|
|000002d0| 75 62 73 7b 62 69 6e 73 | 74 72 69 6e 67 2c 30 2c |ubs{bins|tring,0,|
|000002e0| 30 7d 00 21 6e 61 6d 65 | 7b 22 42 69 6e 24 22 2c |0}.!name|{"Bin$",|
|000002f0| 22 28 45 78 70 72 65 73 | 73 69 6f 6e 29 22 7d 00 |"(Expres|sion)"}.|
|00000300| 00 21 61 66 75 6e 63 74 | 69 6f 6e 7b 23 73 74 72 |.!afunct|ion{#str|
|00000310| 69 6e 67 7d 00 21 61 72 | 67 73 7b 23 77 6f 72 64 |ing}.!ar|gs{#word|
|00000320| 7d 00 21 6c 69 62 73 00 | 21 73 75 62 73 7b 63 68 |}.!libs.|!subs{ch|
|00000330| 72 73 74 72 69 6e 67 2c | 30 2c 30 7d 00 21 6e 61 |rstring,|0,0}.!na|
|00000340| 6d 65 7b 22 43 68 72 24 | 22 2c 22 28 45 78 70 72 |me{"Chr$|","(Expr|
|00000350| 65 73 73 69 6f 6e 29 22 | 7d 00 00 21 61 66 75 6e |ession)"|}..!afun|
|00000360| 63 74 69 6f 6e 7b 23 77 | 6f 72 64 7d 00 21 61 72 |ction{#w|ord}.!ar|
|00000370| 67 73 7b 23 73 74 72 69 | 6e 67 7d 00 21 6c 69 62 |gs{#stri|ng}.!lib|
|00000380| 73 00 21 73 75 62 73 7b | 61 73 63 69 69 2c 30 2c |s.!subs{|ascii,0,|
|00000390| 30 7d 00 21 6e 61 6d 65 | 7b 22 41 73 63 22 2c 22 |0}.!name|{"Asc","|
|000003a0| 28 53 74 72 69 6e 67 24 | 29 22 7d 00 00 21 61 66 |(String$|)"}..!af|
|000003b0| 75 6e 63 74 69 6f 6e 7b | 23 73 74 72 69 6e 67 7d |unction{|#string}|
|000003c0| 00 21 61 72 67 73 7b 23 | 73 74 72 69 6e 67 2c 23 |.!args{#|string,#|
|000003d0| 6c 6f 6e 67 7d 00 21 6c | 69 62 73 00 21 73 75 62 |long}.!l|ibs.!sub|
|000003e0| 73 7b 73 74 72 69 6e 67 | 73 74 72 2c 30 2c 30 7d |s{string|str,0,0}|
|000003f0| 00 21 6e 61 6d 65 7b 22 | 53 74 72 69 6e 67 24 22 |.!name{"|String$"|
|00000400| 2c 22 28 53 74 72 69 6e | 67 24 2c 52 65 70 65 61 |,"(Strin|g$,Repea|
|00000410| 74 73 29 22 7d 00 00 21 | 61 66 75 6e 63 74 69 6f |ts)"}..!|afunctio|
|00000420| 6e 7b 23 6c 6f 6e 67 7d | 00 3b 00 21 61 72 67 73 |n{#long}|.;.!args|
|00000430| 7b 23 73 74 72 69 6e 67 | 2c 23 73 74 72 69 6e 67 |{#string|,#string|
|00000440| 7d 00 21 6c 69 62 73 00 | 21 73 75 62 73 7b 69 6e |}.!libs.|!subs{in|
|00000450| 73 74 72 73 74 72 69 6e | 67 2c 30 2c 30 7d 00 3b |strstrin|g,0,0}.;|
|00000460| 00 21 61 72 67 73 7b 23 | 73 74 72 69 6e 67 2c 23 |.!args{#|string,#|
|00000470| 73 74 72 69 6e 67 2c 23 | 6c 6f 6e 67 7d 00 21 6c |string,#|long}.!l|
|00000480| 69 62 73 00 21 73 75 62 | 73 7b 69 6e 73 74 72 73 |ibs.!sub|s{instrs|
|00000490| 74 72 69 6e 67 32 2c 30 | 2c 30 7d 00 3b 00 21 6e |tring2,0|,0}.;.!n|
|000004a0| 61 6d 65 7b 22 49 6e 73 | 74 72 22 2c 22 28 53 74 |ame{"Ins|tr","(St|
|000004b0| 72 69 6e 67 24 2c 46 69 | 6e 64 73 74 72 69 6e 67 |ring$,Fi|ndstring|
|000004c0| 24 5b 2c 53 74 61 72 74 | 70 6f 73 5d 29 22 7d 00 |$[,Start|pos])"}.|
|000004d0| 00 21 61 66 75 6e 63 74 | 69 6f 6e 7b 23 73 74 72 |.!afunct|ion{#str|
|000004e0| 69 6e 67 7d 00 21 61 72 | 67 73 7b 23 73 74 72 69 |ing}.!ar|gs{#stri|
|000004f0| 6e 67 2c 23 73 74 72 69 | 6e 67 2c 23 73 74 72 69 |ng,#stri|ng,#stri|
|00000500| 6e 67 7d 00 21 6c 69 62 | 73 00 21 73 75 62 73 7b |ng}.!lib|s.!subs{|
|00000510| 72 65 70 6c 61 63 65 2c | 30 2c 30 7d 00 21 6e 61 |replace,|0,0}.!na|
|00000520| 6d 65 7b 22 52 65 70 6c | 61 63 65 24 22 2c 22 28 |me{"Repl|ace$","(|
|00000530| 53 74 72 69 6e 67 24 2c | 46 69 6e 64 73 74 72 69 |String$,|Findstri|
|00000540| 6e 67 24 2c 52 65 70 6c | 61 63 65 73 74 72 69 6e |ng$,Repl|acestrin|
|00000550| 67 24 29 22 7d 00 00 21 | 61 66 75 6e 63 74 69 6f |g$)"}..!|afunctio|
|00000560| 6e 7b 23 73 74 72 69 6e | 67 7d 00 21 61 72 67 73 |n{#strin|g}.!args|
|00000570| 7b 23 6c 6f 6e 67 7d 00 | 21 6c 69 62 73 00 21 73 |{#long}.|!libs.!s|
|00000580| 75 62 73 7b 6d 6b 69 73 | 74 72 69 6e 67 2c 30 2c |ubs{mkis|tring,0,|
|00000590| 30 7d 00 21 6e 61 6d 65 | 7b 22 4d 6b 69 24 22 2c |0}.!name|{"Mki$",|
|000005a0| 22 28 49 6e 74 65 67 65 | 72 29 22 7d 00 00 21 61 |"(Intege|r)"}..!a|
|000005b0| 66 75 6e 63 74 69 6f 6e | 7b 23 73 74 72 69 6e 67 |function|{#string|
|000005c0| 7d 00 21 61 72 67 73 7b | 23 6c 6f 6e 67 7d 00 21 |}.!args{|#long}.!|
|000005d0| 6c 69 62 73 00 21 73 75 | 62 73 7b 6d 6b 6c 73 74 |libs.!su|bs{mklst|
|000005e0| 72 69 6e 67 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 7b |ring,0,0|}.!name{|
|000005f0| 22 4d 6b 6c 24 22 2c 22 | 28 4c 6f 6e 67 29 22 7d |"Mkl$","|(Long)"}|
|00000600| 00 00 21 61 66 75 6e 63 | 74 69 6f 6e 7b 23 77 6f |..!afunc|tion{#wo|
|00000610| 72 64 7d 00 21 61 72 67 | 73 7b 23 73 74 72 69 6e |rd}.!arg|s{#strin|
|00000620| 67 7d 00 21 6c 69 62 73 | 00 21 73 75 62 73 7b 63 |g}.!libs|.!subs{c|
|00000630| 76 69 73 74 72 69 6e 67 | 2c 30 2c 30 7d 00 21 6e |vistring|,0,0}.!n|
|00000640| 61 6d 65 7b 22 43 76 69 | 22 2c 22 28 53 74 72 69 |ame{"Cvi|","(Stri|
|00000650| 6e 67 24 29 22 7d 00 00 | 21 61 66 75 6e 63 74 69 |ng$)"}..|!afuncti|
|00000660| 6f 6e 7b 23 6c 6f 6e 67 | 7d 00 21 61 72 67 73 7b |on{#long|}.!args{|
|00000670| 23 73 74 72 69 6e 67 7d | 00 21 6c 69 62 73 00 21 |#string}|.!libs.!|
|00000680| 73 75 62 73 7b 63 76 6c | 73 74 72 69 6e 67 2c 30 |subs{cvl|string,0|
|00000690| 2c 30 7d 00 21 6e 61 6d | 65 7b 22 43 76 6c 22 2c |,0}.!nam|e{"Cvl",|
|000006a0| 22 28 53 74 72 69 6e 67 | 24 29 22 7d 00 00 21 61 |"(String|$)"}..!a|
|000006b0| 66 75 6e 63 74 69 6f 6e | 7b 23 6c 6f 6e 67 7d 00 |function|{#long}.|
|000006c0| 21 61 72 67 73 7b 23 73 | 74 72 69 6e 67 7d 00 21 |!args{#s|tring}.!|
|000006d0| 6c 69 62 73 00 21 73 75 | 62 73 7b 6c 65 6e 73 74 |libs.!su|bs{lenst|
|000006e0| 72 69 6e 67 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 7b |ring,0,0|}.!name{|
|000006f0| 22 4c 65 6e 22 2c 22 28 | 53 74 72 69 6e 67 24 29 |"Len","(|String$)|
|00000700| 22 7d 00 00 21 61 66 75 | 6e 63 74 69 6f 6e 7b 23 |"}..!afu|nction{#|
|00000710| 73 74 72 69 6e 67 7d 00 | 21 61 72 67 73 7b 23 73 |string}.|!args{#s|
|00000720| 74 72 69 6e 67 2c 23 6c | 6f 6e 67 7d 00 21 6c 69 |tring,#l|ong}.!li|
|00000730| 62 73 00 21 73 75 62 73 | 7b 75 6e 6c 65 66 74 73 |bs.!subs|{unlefts|
|00000740| 74 72 69 6e 67 2c 30 2c | 30 7d 00 21 6e 61 6d 65 |tring,0,|0}.!name|
|00000750| 7b 22 55 6e 4c 65 66 74 | 24 22 2c 22 28 53 74 72 |{"UnLeft|$","(Str|
|00000760| 69 6e 67 24 2c 4c 65 6e | 67 74 68 29 22 7d 00 00 |ing$,Len|gth)"}..|
|00000770| 21 61 66 75 6e 63 74 69 | 6f 6e 7b 23 73 74 72 69 |!afuncti|on{#stri|
|00000780| 6e 67 7d 00 21 61 72 67 | 73 7b 23 73 74 72 69 6e |ng}.!arg|s{#strin|
|00000790| 67 2c 23 6c 6f 6e 67 7d | 00 21 6c 69 62 73 00 21 |g,#long}|.!libs.!|
|000007a0| 73 75 62 73 7b 75 6e 72 | 69 67 68 74 73 74 72 69 |subs{unr|ightstri|
|000007b0| 6e 67 2c 30 2c 30 7d 00 | 21 6e 61 6d 65 7b 22 55 |ng,0,0}.|!name{"U|
|000007c0| 6e 52 69 67 68 74 24 22 | 2c 22 28 53 74 72 69 6e |nRight$"|,"(Strin|
|000007d0| 67 24 2c 4c 65 6e 67 74 | 68 29 22 7d 00 00 21 61 |g$,Lengt|h)"}..!a|
|000007e0| 66 75 6e 63 74 69 6f 6e | 7b 23 73 74 72 69 6e 67 |function|{#string|
|000007f0| 7d 00 21 61 72 67 73 7b | 23 73 74 72 69 6e 67 2c |}.!args{|#string,|
|00000800| 23 77 6f 72 64 7d 00 21 | 6c 69 62 73 00 21 73 75 |#word}.!|libs.!su|
|00000810| 62 73 7b 73 74 72 69 70 | 6c 65 61 64 2c 30 2c 30 |bs{strip|lead,0,0|
|00000820| 7d 00 21 6e 61 6d 65 7b | 22 53 74 72 69 70 4c 65 |}.!name{|"StripLe|
|00000830| 61 64 24 22 2c 22 28 53 | 74 72 69 6e 67 24 2c 41 |ad$","(S|tring$,A|
|00000840| 73 63 69 69 29 22 7d 00 | 00 21 61 66 75 6e 63 74 |scii)"}.|.!afunct|
|00000850| 69 6f 6e 7b 23 73 74 72 | 69 6e 67 7d 00 21 61 72 |ion{#str|ing}.!ar|
|00000860| 67 73 7b 23 73 74 72 69 | 6e 67 2c 23 77 6f 72 64 |gs{#stri|ng,#word|
|00000870| 7d 00 21 6c 69 62 73 00 | 21 73 75 62 73 7b 73 74 |}.!libs.|!subs{st|
|00000880| 72 69 70 74 72 61 69 6c | 2c 30 2c 30 7d 00 21 6e |riptrail|,0,0}.!n|
|00000890| 61 6d 65 7b 22 53 74 72 | 69 70 54 72 61 69 6c 24 |ame{"Str|ipTrail$|
|000008a0| 22 2c 22 28 53 74 72 69 | 6e 67 24 2c 41 73 63 69 |","(Stri|ng$,Asci|
|000008b0| 69 29 22 7d 00 00 21 61 | 66 75 6e 63 74 69 6f 6e |i)"}..!a|function|
|000008c0| 7b 23 73 74 72 69 6e 67 | 7d 00 21 61 72 67 73 7b |{#string|}.!args{|
|000008d0| 23 73 74 72 69 6e 67 2c | 23 6c 6f 6e 67 7d 00 21 |#string,|#long}.!|
|000008e0| 6c 69 62 73 00 21 73 75 | 62 73 7b 6c 73 65 74 73 |libs.!su|bs{lsets|
|000008f0| 74 72 69 6e 67 2c 30 2c | 30 7d 00 21 6e 61 6d 65 |tring,0,|0}.!name|
|00000900| 7b 22 4c 53 65 74 24 22 | 2c 22 28 53 74 72 69 6e |{"LSet$"|,"(Strin|
|00000910| 67 24 2c 43 68 61 72 61 | 63 74 65 72 73 29 22 7d |g$,Chara|cters)"}|
|00000920| 00 00 21 61 66 75 6e 63 | 74 69 6f 6e 7b 23 73 74 |..!afunc|tion{#st|
|00000930| 72 69 6e 67 7d 00 21 61 | 72 67 73 7b 23 73 74 72 |ring}.!a|rgs{#str|
|00000940| 69 6e 67 2c 23 6c 6f 6e | 67 7d 00 21 6c 69 62 73 |ing,#lon|g}.!libs|
|00000950| 00 21 73 75 62 73 7b 72 | 73 65 74 73 74 72 69 6e |.!subs{r|setstrin|
|00000960| 67 2c 30 2c 30 7d 00 21 | 6e 61 6d 65 7b 22 52 53 |g,0,0}.!|name{"RS|
|00000970| 65 74 24 22 2c 22 28 53 | 74 72 69 6e 67 24 2c 43 |et$","(S|tring$,C|
|00000980| 68 61 72 61 63 74 65 72 | 73 29 22 7d 00 00 21 61 |haracter|s)"}..!a|
|00000990| 66 75 6e 63 74 69 6f 6e | 7b 23 73 74 72 69 6e 67 |function|{#string|
|000009a0| 7d 00 21 61 72 67 73 7b | 23 73 74 72 69 6e 67 2c |}.!args{|#string,|
|000009b0| 23 6c 6f 6e 67 7d 00 21 | 6c 69 62 73 00 21 73 75 |#long}.!|libs.!su|
|000009c0| 62 73 7b 63 65 6e 74 72 | 65 73 74 72 69 6e 67 2c |bs{centr|estring,|
|000009d0| 30 2c 30 7d 00 21 6e 61 | 6d 65 7b 22 43 65 6e 74 |0,0}.!na|me{"Cent|
|000009e0| 72 65 24 22 2c 22 28 53 | 74 72 69 6e 67 24 2c 43 |re$","(S|tring$,C|
|000009f0| 68 61 72 61 63 74 65 72 | 73 29 22 7d 00 00 21 61 |haracter|s)"}..!a|
|00000a00| 66 75 6e 63 74 69 6f 6e | 7b 23 73 74 72 69 6e 67 |function|{#string|
|00000a10| 7d 00 21 61 72 67 73 7b | 23 73 74 72 69 6e 67 7d |}.!args{|#string}|
|00000a20| 00 21 6c 69 62 73 00 21 | 73 75 62 73 7b 6c 63 61 |.!libs.!|subs{lca|
|00000a30| 73 65 73 74 72 69 6e 67 | 2c 30 2c 30 7d 00 21 6e |sestring|,0,0}.!n|
|00000a40| 61 6d 65 7b 22 4c 43 61 | 73 65 24 22 2c 22 28 53 |ame{"LCa|se$","(S|
|00000a50| 74 72 69 6e 67 24 2c 43 | 68 61 72 61 63 74 65 72 |tring$,C|haracter|
|00000a60| 73 29 22 7d 00 00 21 61 | 66 75 6e 63 74 69 6f 6e |s)"}..!a|function|
|00000a70| 7b 23 73 74 72 69 6e 67 | 7d 00 21 61 72 67 73 7b |{#string|}.!args{|
|00000a80| 23 73 74 72 69 6e 67 7d | 00 21 6c 69 62 73 00 21 |#string}|.!libs.!|
|00000a90| 73 75 62 73 7b 75 63 61 | 73 65 73 74 72 69 6e 67 |subs{uca|sestring|
|00000aa0| 2c 30 2c 30 7d 00 21 6e | 61 6d 65 7b 22 55 43 61 |,0,0}.!n|ame{"UCa|
|00000ab0| 73 65 24 22 2c 22 28 53 | 74 72 69 6e 67 24 2c 43 |se$","(S|tring$,C|
|00000ac0| 68 61 72 61 63 74 65 72 | 73 29 22 7d 00 00 21 61 |haracter|s)"}..!a|
|00000ad0| 73 74 61 74 65 6d 65 6e | 74 00 21 61 72 67 73 7b |statemen|t.!args{|
|00000ae0| 23 77 6f 72 64 7d 00 21 | 6c 69 62 73 00 21 73 75 |#word}.!|libs.!su|
|00000af0| 62 73 7b 63 61 73 65 73 | 65 6e 73 65 73 74 72 69 |bs{cases|ensestri|
|00000b00| 6e 67 2c 30 2c 30 7d 00 | 21 6e 61 6d 65 7b 22 43 |ng,0,0}.|!name{"C|
|00000b10| 61 73 65 53 65 6e 73 65 | 22 2c 22 4f 6e 7c 4f 66 |aseSense|","On|Of|
|00000b20| 66 22 7d 00 00 21 61 66 | 75 6e 63 74 69 6f 6e 7b |f"}..!af|unction{|
|00000b30| 23 73 74 72 69 6e 67 7d | 00 21 61 72 67 73 7b 23 |#string}|.!args{#|
|00000b40| 71 75 69 63 6b 7d 00 21 | 6c 69 62 73 00 21 73 75 |quick}.!|libs.!su|
|00000b50| 62 73 7b 6d 6b 6c 73 74 | 72 69 6e 67 2c 30 2c 30 |bs{mklst|ring,0,0|
|00000b60| 7d 00 21 6e 61 6d 65 7b | 22 4d 6b 71 24 22 2c 22 |}.!name{|"Mkq$","|
|00000b70| 28 51 75 69 63 6b 29 22 | 7d 00 00 21 61 66 75 6e |(Quick)"|}..!afun|
|00000b80| 63 74 69 6f 6e 7b 23 71 | 75 69 63 6b 7d 00 21 61 |ction{#q|uick}.!a|
|00000b90| 72 67 73 7b 23 73 74 72 | 69 6e 67 7d 00 21 6c 69 |rgs{#str|ing}.!li|
|00000ba0| 62 73 00 21 73 75 62 73 | 7b 63 76 6c 73 74 72 69 |bs.!subs|{cvlstri|
|00000bb0| 6e 67 2c 30 2c 30 7d 00 | 21 6e 61 6d 65 7b 22 43 |ng,0,0}.|!name{"C|
|00000bc0| 76 71 22 2c 22 28 53 74 | 72 69 6e 67 24 29 22 7d |vq","(St|ring$)"}|
|00000bd0| 00 00 69 6e 69 74 3a 21 | 6e 75 6c 6c 73 75 62 7b |..init:!|nullsub{|
|00000be0| 63 6f 64 65 69 6e 69 74 | 2c 30 2c 30 7d 00 00 21 |codeinit|,0,0}..!|
|00000bf0| 6c 69 62 66 69 6e 00 00 | 3b 2a 2a 2a 2a 2a 2a 2a |libfin..|;*******|
|00000c00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 20 43 |********|****** C|
|00000c10| 4f 44 45 20 53 45 43 54 | 49 4f 4e 20 2a 2a 2a 2a |ODE SECT|ION ****|
|00000c20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c30| 2a 2a 2a 2a 2a 00 00 63 | 73 65 6e 73 65 3a 80 25 |*****..c|sense:.%|
|00000c40| 20 20 30 20 3b 30 3d 63 | 61 73 65 20 73 65 6e 73 | 0 ;0=c|ase sens|
|00000c50| 69 74 69 76 65 00 00 63 | 61 73 65 73 65 6e 73 65 |itive..c|asesense|
|00000c60| 73 74 72 69 6e 67 3a 80 | 7e 20 64 30 2c 63 73 65 |string:.|~ d0,cse|
|00000c70| 6e 73 65 3a 80 94 00 00 | 6d 6f 76 65 73 74 72 69 |nse:....|movestri|
|00000c80| 6e 67 20 20 3b 64 6f 20 | 61 20 6d 6f 76 65 20 6f |ng ;do |a move o|
|00000c90| 66 20 73 74 72 69 6e 67 | 20 66 72 6f 6d 20 61 30 |f string| from a0|
|00000ca0| 20 74 6f 20 61 33 2c 20 | 6c 65 6e 67 74 68 20 69 | to a3, |length i|
|00000cb0| 6e 20 64 31 00 20 20 3b | 00 20 20 3b 72 65 74 75 |n d1. ;|. ;retu|
|00000cc0| 72 6e 20 6c 65 6e 67 74 | 68 20 69 6e 20 64 30 00 |rn lengt|h in d0.|
|00000cd0| 20 20 3b 00 20 20 80 7e | 2e 6c 20 20 64 31 2c 64 | ;. .~|.l d1,d|
|00000ce0| 30 00 20 20 80 48 20 27 | 64 6f 6e 65 00 20 20 80 |0. .H '|done. .|
|00000cf0| 5c 2e 6c 20 23 38 2c 64 | 31 00 20 20 80 47 20 27 |\.l #8,d|1. .G '|
|00000d00| 73 6b 69 70 00 20 20 80 | 7e 2e 6c 20 20 64 31 2c |skip. .|~.l d1,|
|00000d10| 64 32 00 20 20 80 7d 2e | 6c 20 23 33 2c 64 32 00 |d2. .}.|l #3,d2.|
|00000d20| 20 20 80 48 20 27 73 6b | 69 70 00 27 6c 6f 6f 70 | .H 'sk|ip.'loop|
|00000d30| 3a 80 7e 2e 62 20 20 28 | 61 30 29 2b 2c 28 61 33 |:.~.b (|a0)+,(a3|
|00000d40| 29 2b 00 20 20 80 7e 2e | 62 20 20 28 61 30 29 2b |)+. .~.|b (a0)+|
|00000d50| 2c 28 61 33 29 2b 00 20 | 20 80 7e 2e 62 20 20 28 |,(a3)+. | .~.b (|
|00000d60| 61 30 29 2b 2c 28 61 33 | 29 2b 00 20 20 80 7e 2e |a0)+,(a3|)+. .~.|
|00000d70| 62 20 20 28 61 30 29 2b | 2c 28 61 33 29 2b 00 20 |b (a0)+|,(a3)+. |
|00000d80| 20 80 7e 2e 62 20 20 28 | 61 30 29 2b 2c 28 61 33 | .~.b (|a0)+,(a3|
|00000d90| 29 2b 00 20 20 80 7e 2e | 62 20 20 28 61 30 29 2b |)+. .~.|b (a0)+|
|00000da0| 2c 28 61 33 29 2b 00 20 | 20 80 7e 2e 62 20 20 28 |,(a3)+. | .~.b (|
|00000db0| 61 30 29 2b 2c 28 61 33 | 29 2b 00 20 20 80 7e 2e |a0)+,(a3|)+. .~.|
|00000dc0| 62 20 20 28 61 30 29 2b | 2c 28 61 33 29 2b 00 20 |b (a0)+|,(a3)+. |
|00000dd0| 20 80 aa 2e 6c 20 20 23 | 31 2c 64 32 00 20 20 80 | ...l #|1,d2. .|
|00000de0| 50 20 27 6c 6f 6f 70 00 | 20 20 80 42 20 23 37 2c |P 'loop.| .B #7,|
|00000df0| 64 31 00 20 20 80 48 20 | 27 64 6f 6e 65 00 27 73 |d1. .H |'done.'s|
|00000e00| 6b 69 70 3a 80 aa 20 20 | 23 31 2c 64 31 00 27 6c |kip:.. |#1,d1.'l|
|00000e10| 6f 6f 70 32 3a 80 7e 2e | 62 20 20 28 61 30 29 2b |oop2:.~.|b (a0)+|
|00000e20| 2c 28 61 33 29 2b 00 20 | 20 80 6e 20 64 31 2c 27 |,(a3)+. | .n d1,'|
|00000e30| 6c 6f 6f 70 32 00 27 64 | 6f 6e 65 3a 80 94 00 00 |loop2.'d|one:....|
|00000e40| 63 6f 64 65 69 6e 69 74 | 3a 80 7e 20 23 2d 31 2c |codeinit|:.~ #-1,|
|00000e50| 63 73 65 6e 73 65 3a 80 | 7a 20 6d 6f 76 65 73 74 |csense:.|z movest|
|00000e60| 72 69 6e 67 28 70 63 29 | 2c 61 30 3a 80 7e 2e 6c |ring(pc)|,a0:.~.l|
|00000e70| 20 61 30 2c 64 30 3a 80 | 94 00 00 73 74 72 69 70 | a0,d0:.|...strip|
|00000e80| 74 72 61 69 6c 20 20 3b | 73 74 72 69 70 20 6f 66 |trail ;|strip of|
|00000e90| 66 20 74 72 61 69 6c 69 | 6e 67 20 63 68 61 72 73 |f traili|ng chars|
|00000ea0| 00 20 20 3b 64 30 3d 73 | 74 72 69 6e 67 2c 20 64 |. ;d0=s|tring, d|
|00000eb0| 31 3d 73 74 72 69 70 20 | 61 73 63 69 69 00 20 20 |1=strip |ascii. |
|00000ec0| 3b 00 20 20 80 7e 2e 6c | 20 20 64 30 2c 61 33 00 |;. .~.l| d0,a3.|
|00000ed0| 20 20 80 7e 2e 6c 20 20 | 2d 28 61 32 29 2c 64 30 | .~.l |-(a2),d0|
|00000ee0| 00 20 20 80 3d 2e 6c 20 | 64 30 2c 61 33 00 27 6c |. .=.l |d0,a3.'l|
|00000ef0| 6f 6f 70 3a 80 aa 2e 6c | 20 20 23 31 2c 64 30 00 |oop:...l| #1,d0.|
|00000f00| 20 20 80 4f 20 27 64 6f | 6e 65 00 20 20 80 5c 2e | .O 'do|ne. .\.|
|00000f10| 62 20 2d 28 61 33 29 2c | 64 31 00 20 20 80 48 20 |b -(a3),|d1. .H |
|00000f20| 27 6c 6f 6f 70 00 20 20 | 80 40 20 20 23 31 2c 61 |'loop. |.@ #1,a|
|00000f30| 33 00 27 64 6f 6e 65 3a | 80 40 2e 6c 20 20 23 31 |3.'done:|.@.l #1|
|00000f40| 2c 64 30 00 20 20 80 94 | 00 00 75 6e 6c 65 66 74 |,d0. ..|..unleft|
|00000f50| 73 74 72 69 6e 67 00 20 | 20 80 7e 2e 6c 20 20 2d |string. | .~.l -|
|00000f60| 34 28 61 32 29 2c 64 32 | 00 20 20 80 a7 2e 6c 20 |4(a2),d2|. ...l |
|00000f70| 64 31 2c 64 32 00 20 20 | 80 7e 2e 6c 20 20 64 32 |d1,d2. |.~.l d2|
|00000f80| 2c 64 31 00 20 20 3b 00 | 6c 65 66 74 73 74 72 69 |,d1. ;.|leftstri|
|00000f90| 6e 67 20 20 3b 70 65 72 | 66 6f 72 6d 20 6c 65 66 |ng ;per|form lef|
|00000fa0| 74 24 28 64 30 2c 64 31 | 29 00 20 20 3b 00 20 20 |t$(d0,d1|). ;. |
|00000fb0| 80 7e 2e 6c 20 20 64 30 | 2c 61 33 00 20 20 80 5c |.~.l d0|,a3. .\|
|00000fc0| 2e 6c 20 2d 28 61 32 29 | 2c 64 31 00 20 20 80 4e |.l -(a2)|,d1. .N|
|00000fd0| 20 27 73 6b 69 70 00 20 | 20 80 7e 2e 6c 20 20 28 | 'skip. | .~.l (|
|00000fe0| 61 32 29 2c 64 31 20 3b | 6e 65 77 20 6c 65 6e 67 |a2),d1 ;|new leng|
|00000ff0| 74 68 00 27 73 6b 69 70 | 3a 80 7e 2e 6c 20 20 64 |th.'skip|:.~.l d|
|00001000| 31 2c 64 30 00 20 20 80 | 3d 2e 6c 20 64 30 2c 61 |1,d0. .|=.l d0,a|
|00001010| 33 20 3b 6e 65 77 20 65 | 6e 64 20 6f 66 20 73 74 |3 ;new e|nd of st|
|00001020| 72 69 6e 67 00 20 20 80 | 94 00 00 6c 73 65 74 73 |ring. .|...lsets|
|00001030| 74 72 69 6e 67 20 20 3b | 6c 65 66 74 20 6a 75 73 |tring ;|left jus|
|00001040| 74 69 66 79 20 61 20 73 | 74 72 69 6e 67 2e 00 20 |tify a s|tring.. |
|00001050| 20 80 7e 2e 6c 20 20 64 | 31 2c 64 33 20 3b 6e 65 | .~.l d|1,d3 ;ne|
|00001060| 77 20 6c 65 6e 67 74 68 | 00 20 20 80 7e 2e 6c 20 |w length|. .~.l |
|00001070| 20 2d 28 61 32 29 2c 64 | 32 20 20 3b 6c 65 6e 67 | -(a2),d|2 ;leng|
|00001080| 74 68 20 6f 66 20 73 74 | 72 69 6e 67 00 20 20 80 |th of st|ring. .|
|00001090| a7 2e 6c 20 64 32 2c 64 | 33 20 3b 68 6f 77 20 6d |..l d2,d|3 ;how m|
|000010a0| 75 63 68 20 74 6f 20 63 | 6c 65 61 72 00 20 20 80 |uch to c|lear. .|
|000010b0| 48 20 27 64 6f 6e 65 32 | 00 20 20 80 4f 20 27 64 |H 'done2|. .O 'd|
|000010c0| 6f 6e 65 00 27 64 6f 69 | 74 3a 80 7e 2e 62 20 20 |one.'doi|t:.~.b |
|000010d0| 23 33 32 2c 28 61 33 29 | 2b 00 20 20 80 aa 2e 6c |#32,(a3)|+. ...l|
|000010e0| 20 20 23 31 2c 64 33 00 | 20 20 80 50 20 27 64 6f | #1,d3.| .P 'do|
|000010f0| 69 74 00 27 64 6f 6e 65 | 3a 80 7e 2e 6c 20 20 64 |it.'done|:.~.l d|
|00001100| 30 2c 61 33 00 20 20 80 | 3d 2e 6c 20 64 31 2c 61 |0,a3. .|=.l d1,a|
|00001110| 33 00 27 64 6f 6e 65 32 | 3a 80 7e 2e 6c 20 20 64 |3.'done2|:.~.l d|
|00001120| 31 2c 64 30 00 20 20 80 | 94 00 00 72 73 65 74 73 |1,d0. .|...rsets|
|00001130| 74 72 69 6e 67 20 20 3b | 52 69 67 68 74 20 6a 75 |tring ;|Right ju|
|00001140| 73 74 69 66 79 20 61 20 | 73 74 72 69 6e 67 00 20 |stify a |string. |
|00001150| 20 80 aa 20 20 23 31 2c | 61 33 00 20 20 3b 00 20 | .. #1,|a3. ;. |
|00001160| 20 80 7e 2e 6c 20 20 64 | 31 2c 64 33 00 20 20 80 | .~.l d|1,d3. .|
|00001170| 7e 2e 6c 20 20 2d 28 61 | 32 29 2c 64 32 00 20 20 |~.l -(a|2),d2. |
|00001180| 80 a7 2e 6c 20 64 32 2c | 64 33 20 3b 68 6f 77 20 |...l d2,|d3 ;how |
|00001190| 6d 75 63 68 20 74 6f 20 | 63 6c 65 61 72 2e 00 20 |much to |clear.. |
|000011a0| 20 80 48 20 27 64 6f 6e | 65 00 20 20 80 4f 20 27 | .H 'don|e. .O '|
|000011b0| 62 61 63 6b 00 20 20 80 | 7e 2e 6c 20 20 64 30 2c |back. .|~.l d0,|
|000011c0| 61 30 00 20 20 80 3d 2e | 6c 20 64 31 2c 61 30 00 |a0. .=.|l d1,a0.|
|000011d0| 20 20 80 b0 2e 6c 20 64 | 32 00 20 20 80 48 20 27 | ...l d|2. .H '|
|000011e0| 6c 6f 6f 70 33 00 27 6c | 6f 6f 70 32 3a 80 7e 2e |loop3.'l|oop2:.~.|
|000011f0| 62 20 20 2d 28 61 33 29 | 2c 2d 28 61 30 29 00 20 |b -(a3)|,-(a0). |
|00001200| 20 80 aa 2e 6c 20 20 23 | 31 2c 64 32 00 20 20 80 | ...l #|1,d2. .|
|00001210| 50 20 27 6c 6f 6f 70 32 | 00 27 6c 6f 6f 70 33 3a |P 'loop2|.'loop3:|
|00001220| 80 7e 2e 62 20 20 23 33 | 32 2c 2d 28 61 30 29 00 |.~.b #3|2,-(a0).|
|00001230| 20 20 80 aa 2e 6c 20 20 | 23 31 2c 64 33 00 20 20 | ...l |#1,d3. |
|00001240| 80 50 20 27 6c 6f 6f 70 | 33 00 20 20 80 7e 2e 6c |.P 'loop|3. .~.l|
|00001250| 20 20 64 30 2c 61 33 00 | 20 20 80 3d 2e 6c 20 64 | d0,a3.| .=.l d|
|00001260| 31 2c 61 33 00 27 64 6f | 6e 65 3a 80 7e 2e 6c 20 |1,a3.'do|ne:.~.l |
|00001270| 20 64 31 2c 64 30 00 20 | 20 80 94 00 27 62 61 63 | d1,d0. | ...'bac|
|00001280| 6b 20 3b 74 6f 6f 20 6d | 61 6e 79 20 63 68 61 72 |k ;too m|any char|
|00001290| 61 63 74 65 72 73 00 20 | 20 80 7e 2e 6c 20 20 64 |acters. | .~.l d|
|000012a0| 30 2c 61 30 00 20 20 80 | 3d 2e 6c 20 64 32 2c 61 |0,a0. .|=.l d2,a|
|000012b0| 30 00 20 20 80 a7 2e 6c | 20 64 31 2c 61 30 00 20 |0. ...l| d1,a0. |
|000012c0| 20 80 7e 2e 6c 20 20 64 | 30 2c 61 33 00 20 20 80 | .~.l d|0,a3. .|
|000012d0| 58 20 6d 6f 76 65 73 74 | 72 69 6e 67 00 00 63 65 |X movest|ring..ce|
|000012e0| 6e 74 72 65 73 74 72 69 | 6e 67 20 20 3b 63 65 6e |ntrestri|ng ;cen|
|000012f0| 74 72 65 20 61 20 73 74 | 72 69 6e 67 2e 00 20 20 |tre a st|ring.. |
|00001300| 3b 00 20 20 80 aa 20 20 | 23 31 2c 61 33 00 20 20 |;. .. |#1,a3. |
|00001310| 3b 00 20 20 80 7e 2e 6c | 20 20 64 31 2c 64 33 00 |;. .~.l| d1,d3.|
|00001320| 20 20 80 7e 2e 6c 20 20 | 2d 28 61 32 29 2c 64 32 | .~.l |-(a2),d2|
|00001330| 00 20 20 80 a7 2e 6c 20 | 64 32 2c 64 33 20 3b 68 |. ...l |d2,d3 ;h|
|00001340| 6f 77 20 6d 75 63 68 20 | 74 6f 20 63 6c 65 61 72 |ow much |to clear|
|00001350| 00 20 20 80 4f 20 27 62 | 61 63 6b 00 20 20 80 48 |. .O 'b|ack. .H|
|00001360| 20 27 64 6f 6e 65 00 20 | 20 3b 00 20 20 80 7e 2e | 'done. | ;. .~.|
|00001370| 6c 20 20 64 30 2c 61 30 | 00 20 20 80 7e 2e 6c 20 |l d0,a0|. .~.l |
|00001380| 20 64 31 2c 64 34 00 20 | 20 80 7d 2e 6c 20 23 31 | d1,d4. | .}.l #1|
|00001390| 2c 64 34 00 20 20 80 3d | 2e 6c 20 64 34 2c 61 30 |,d4. .=|.l d4,a0|
|000013a0| 00 20 20 80 7e 2e 6c 20 | 20 64 32 2c 64 34 00 20 |. .~.l | d2,d4. |
|000013b0| 20 80 7d 2e 6c 20 23 31 | 2c 64 34 00 20 20 80 3d | .}.l #1|,d4. .=|
|000013c0| 2e 6c 20 64 34 2c 61 30 | 00 20 20 3b 00 20 20 80 |.l d4,a0|. ;. .|
|000013d0| 7e 20 20 64 31 2c 64 34 | 00 20 20 80 42 20 64 32 |~ d1,d4|. .B d2|
|000013e0| 2c 64 34 00 20 20 80 7d | 20 23 31 2c 64 34 00 20 |,d4. .}| #1,d4. |
|000013f0| 20 80 97 20 64 34 00 20 | 20 80 76 20 64 34 00 20 | .. d4. | .v d4. |
|00001400| 20 80 a7 20 64 34 2c 61 | 30 00 20 20 80 7e 2e 6c | .. d4,a|0. .~.l|
|00001410| 20 20 61 30 2c 2d 28 61 | 37 29 00 20 20 3b 00 20 | a0,-(a|7). ;. |
|00001420| 20 80 b0 2e 6c 20 64 32 | 00 20 20 80 48 20 27 73 | ...l d2|. .H 's|
|00001430| 6b 69 70 00 27 6c 6f 6f | 70 32 3a 80 7e 2e 62 20 |kip.'loo|p2:.~.b |
|00001440| 20 2d 28 61 33 29 2c 2d | 28 61 30 29 00 20 20 80 | -(a3),-|(a0). .|
|00001450| aa 2e 6c 20 20 23 31 2c | 64 32 00 20 20 80 50 20 |..l #1,|d2. .P |
|00001460| 27 6c 6f 6f 70 32 00 27 | 73 6b 69 70 3a 80 7e 2e |'loop2.'|skip:.~.|
|00001470| 6c 20 20 64 33 2c 64 34 | 00 20 20 80 7d 2e 6c 20 |l d3,d4|. .}.l |
|00001480| 23 31 2c 64 34 00 20 20 | 80 48 20 27 73 6b 69 70 |#1,d4. |.H 'skip|
|00001490| 32 00 27 6c 6f 6f 70 33 | 3a 80 7e 2e 62 20 20 23 |2.'loop3|:.~.b #|
|000014a0| 33 32 2c 2d 28 61 30 29 | 00 20 20 80 aa 2e 6c 20 |32,-(a0)|. ...l |
|000014b0| 20 23 31 2c 64 33 00 20 | 20 80 aa 2e 6c 20 20 23 | #1,d3. | ...l #|
|000014c0| 31 2c 64 34 00 20 20 80 | 50 20 27 6c 6f 6f 70 33 |1,d4. .|P 'loop3|
|000014d0| 00 27 73 6b 69 70 32 3a | 80 7e 2e 6c 20 20 28 61 |.'skip2:|.~.l (a|
|000014e0| 37 29 2b 2c 61 30 00 27 | 6c 6f 6f 70 34 3a 80 7e |7)+,a0.'|loop4:.~|
|000014f0| 2e 62 20 20 23 33 32 2c | 28 61 30 29 2b 00 20 20 |.b #32,|(a0)+. |
|00001500| 80 aa 2e 6c 20 20 23 31 | 2c 64 33 00 20 20 80 50 |...l #1|,d3. .P|
|00001510| 20 27 6c 6f 6f 70 34 00 | 20 20 3b 00 20 20 80 7e | 'loop4.| ;. .~|
|00001520| 2e 6c 20 20 64 30 2c 61 | 33 00 20 20 80 3d 2e 6c |.l d0,a|3. .=.l|
|00001530| 20 64 31 2c 61 33 00 27 | 64 6f 6e 65 3a 80 7e 2e | d1,a3.'|done:.~.|
|00001540| 6c 20 20 64 31 2c 64 30 | 00 20 20 80 94 00 20 20 |l d1,d0|. ... |
|00001550| 3b 00 27 62 61 63 6b 20 | 3b 73 74 72 69 6e 67 20 |;.'back |;string |
|00001560| 69 73 20 74 6f 6f 20 62 | 69 67 21 00 20 20 80 7e |is too b|ig!. .~|
|00001570| 2e 6c 20 20 64 30 2c 61 | 30 00 20 20 80 7d 2e 6c |.l d0,a|0. .}.l|
|00001580| 20 23 31 2c 64 32 00 20 | 20 80 3d 2e 6c 20 64 32 | #1,d2. | .=.l d2|
|00001590| 2c 61 30 00 20 20 80 7e | 2e 6c 20 20 64 31 2c 64 |,a0. .~|.l d1,d|
|000015a0| 32 00 20 20 80 7d 2e 6c | 20 23 31 2c 64 32 00 20 |2. .}.l| #1,d2. |
|000015b0| 20 80 a7 2e 6c 20 64 32 | 2c 61 30 00 20 20 80 7e | ...l d2|,a0. .~|
|000015c0| 2e 6c 20 20 64 30 2c 61 | 33 00 20 20 80 58 20 6d |.l d0,a|3. .X m|
|000015d0| 6f 76 65 73 74 72 69 6e | 67 00 00 6c 63 61 73 65 |ovestrin|g..lcase|
|000015e0| 73 74 72 69 6e 67 20 3b | 64 30 3d 73 74 72 69 6e |string ;|d0=strin|
|000015f0| 67 2e 00 20 20 80 7e 2e | 6c 20 20 2d 28 61 32 29 |g.. .~.|l -(a2)|
|00001600| 2c 64 31 00 20 20 80 48 | 20 27 64 6f 6e 65 00 20 |,d1. .H| 'done. |
|00001610| 20 80 7e 2e 6c 20 20 64 | 30 2c 61 33 00 20 20 80 | .~.l d|0,a3. .|
|00001620| 7e 2e 6c 20 20 64 31 2c | 64 32 00 27 6c 6f 6f 70 |~.l d1,|d2.'loop|
|00001630| 3a 80 5c 2e 62 20 23 22 | 41 22 2c 28 61 33 29 2b |:.\.b #"|A",(a3)+|
|00001640| 00 20 20 80 47 20 27 73 | 6b 69 70 00 20 20 80 5c |. .G 's|kip. .\|
|00001650| 2e 62 20 23 22 5a 22 2c | 2d 31 28 61 33 29 00 20 |.b #"Z",|-1(a3). |
|00001660| 20 80 4b 20 27 73 6b 69 | 70 00 20 20 80 8a 2e 62 | .K 'ski|p. ...b|
|00001670| 20 20 23 33 32 2c 2d 31 | 28 61 33 29 00 27 73 6b | #32,-1|(a3).'sk|
|00001680| 69 70 3a 80 aa 2e 6c 20 | 20 23 31 2c 64 32 00 20 |ip:...l | #1,d2. |
|00001690| 20 80 50 20 27 6c 6f 6f | 70 00 27 64 6f 6e 65 3a | .P 'loo|p.'done:|
|000016a0| 80 7e 2e 6c 20 20 64 31 | 2c 64 30 00 20 20 80 94 |.~.l d1|,d0. ..|
|000016b0| 00 00 75 63 61 73 65 73 | 74 72 69 6e 67 20 3b 64 |..ucases|tring ;d|
|000016c0| 30 3d 73 74 72 69 6e 67 | 2e 00 20 20 80 7e 2e 6c |0=string|.. .~.l|
|000016d0| 20 20 2d 28 61 32 29 2c | 64 31 00 20 20 80 48 20 | -(a2),|d1. .H |
|000016e0| 27 64 6f 6e 65 00 20 20 | 80 7e 2e 6c 20 20 64 30 |'done. |.~.l d0|
|000016f0| 2c 61 33 00 20 20 80 7e | 2e 6c 20 20 64 31 2c 64 |,a3. .~|.l d1,d|
|00001700| 32 00 27 6c 6f 6f 70 3a | 80 5c 2e 62 20 23 22 61 |2.'loop:|.\.b #"a|
|00001710| 22 2c 28 61 33 29 2b 00 | 20 20 80 47 20 27 73 6b |",(a3)+.| .G 'sk|
|00001720| 69 70 00 20 20 80 5c 2e | 62 20 23 22 7a 22 2c 2d |ip. .\.|b #"z",-|
|00001730| 31 28 61 33 29 00 20 20 | 80 4b 20 27 73 6b 69 70 |1(a3). |.K 'skip|
|00001740| 00 20 20 80 43 2e 62 20 | 23 32 35 35 2d 33 32 2c |. .C.b |#255-32,|
|00001750| 2d 31 28 61 33 29 00 27 | 73 6b 69 70 3a 80 aa 2e |-1(a3).'|skip:...|
|00001760| 6c 20 20 23 31 2c 64 32 | 00 20 20 80 50 20 27 6c |l #1,d2|. .P 'l|
|00001770| 6f 6f 70 00 27 64 6f 6e | 65 3a 80 7e 2e 6c 20 20 |oop.'don|e:.~.l |
|00001780| 64 31 2c 64 30 00 20 20 | 80 94 00 00 73 74 72 69 |d1,d0. |....stri|
|00001790| 70 6c 65 61 64 20 3b 64 | 30 3d 73 74 72 69 6e 67 |plead ;d|0=string|
|000017a0| 2c 20 64 31 3d 61 73 63 | 69 69 00 20 20 3b 00 20 |, d1=asc|ii. ;. |
|000017b0| 20 80 7e 20 20 64 31 2c | 64 32 00 20 20 80 7e 2e | .~ d1,|d2. .~.|
|000017c0| 6c 20 20 64 30 2c 61 33 | 20 3b 74 6f 2e 2e 2e 2e |l d0,a3| ;to....|
|000017d0| 2e 00 20 20 80 7e 2e 6c | 20 20 61 33 2c 61 30 20 |.. .~.l| a3,a0 |
|000017e0| 3b 66 72 6f 6d 00 20 20 | 80 7e 2e 6c 20 20 2d 28 |;from. |.~.l -(|
|000017f0| 61 32 29 2c 64 31 20 20 | 3b 6c 65 6e 67 74 68 00 |a2),d1 |;length.|
|00001800| 27 6c 6f 6f 70 3a 80 aa | 2e 6c 20 20 23 31 2c 64 |'loop:..|.l #1,d|
|00001810| 31 00 20 20 80 4f 20 27 | 64 6f 6e 65 00 20 20 80 |1. .O '|done. .|
|00001820| 5c 2e 62 20 28 61 30 29 | 2b 2c 64 32 00 20 20 80 |\.b (a0)|+,d2. .|
|00001830| 48 20 27 6c 6f 6f 70 00 | 20 20 80 aa 20 20 23 31 |H 'loop.| .. #1|
|00001840| 2c 61 30 00 20 20 80 40 | 2e 6c 20 20 23 31 2c 64 |,a0. .@|.l #1,d|
|00001850| 31 00 20 20 80 58 20 6d | 6f 76 65 73 74 72 69 6e |1. .X m|ovestrin|
|00001860| 67 00 27 64 6f 6e 65 3a | 80 81 20 23 30 2c 64 30 |g.'done:|.. #0,d0|
|00001870| 00 20 20 80 94 00 00 75 | 6e 72 69 67 68 74 73 74 |. ....u|nrightst|
|00001880| 72 69 6e 67 00 20 20 80 | 7e 2e 6c 20 20 2d 34 28 |ring. .|~.l -4(|
|00001890| 61 32 29 2c 64 32 00 20 | 20 80 a7 2e 6c 20 64 31 |a2),d2. | ...l d1|
|000018a0| 2c 64 32 00 20 20 80 7e | 2e 6c 20 20 64 32 2c 64 |,d2. .~|.l d2,d|
|000018b0| 31 00 20 20 3b 00 72 69 | 67 68 74 73 74 72 69 6e |1. ;.ri|ghtstrin|
|000018c0| 67 20 3b 70 65 72 66 6f | 72 6d 20 72 69 67 68 74 |g ;perfo|rm right|
|000018d0| 24 28 64 30 2c 64 31 29 | 00 20 20 3b 00 20 20 80 |$(d0,d1)|. ;. .|
|000018e0| 7e 2e 6c 20 20 64 30 2c | 61 33 00 20 20 80 5c 2e |~.l d0,|a3. .\.|
|000018f0| 6c 20 2d 28 61 32 29 2c | 64 31 00 20 20 80 49 20 |l -(a2),|d1. .I |
|00001900| 27 73 6b 69 70 00 20 20 | 3b 00 20 20 80 7e 2e 6c |'skip. |;. .~.l|
|00001910| 20 20 28 61 32 29 2c 64 | 30 00 20 20 80 a7 2e 6c | (a2),d|0. ...l|
|00001920| 20 64 31 2c 64 30 00 20 | 20 80 7a 20 30 28 61 33 | d1,d0. | .z 0(a3|
|00001930| 2c 64 30 29 2c 61 30 00 | 20 20 80 58 20 6d 6f 76 |,d0),a0.| .X mov|
|00001940| 65 73 74 72 69 6e 67 00 | 27 73 6b 69 70 3a 80 7e |estring.|'skip:.~|
|00001950| 2e 6c 20 20 28 61 32 29 | 2c 64 30 00 20 20 80 3d |.l (a2)|,d0. .=|
|00001960| 2e 6c 20 64 30 2c 61 33 | 00 20 20 80 94 00 00 6d |.l d0,a3|. ....m|
|00001970| 69 64 73 74 72 69 6e 67 | 32 00 20 20 80 7e 2e 6c |idstring|2. .~.l|
|00001980| 20 20 2d 34 28 61 32 29 | 2c 64 32 00 20 20 80 a7 | -4(a2)|,d2. ..|
|00001990| 2e 6c 20 64 31 2c 64 32 | 00 20 20 80 40 2e 6c 20 |.l d1,d2|. .@.l |
|000019a0| 20 23 31 2c 64 32 00 20 | 20 80 58 20 6d 69 64 63 | #1,d2. | .X midc|
|000019b0| 6f 6e 74 00 00 6d 69 64 | 73 74 72 69 6e 67 20 3b |ont..mid|string ;|
|000019c0| 70 65 72 66 6f 72 6d 20 | 6d 69 64 24 28 64 30 2c |perform |mid$(d0,|
|000019d0| 64 31 2c 64 32 29 00 20 | 20 3b 00 6d 69 64 63 6f |d1,d2). | ;.midco|
|000019e0| 6e 74 00 20 20 80 7e 2e | 6c 20 20 64 30 2c 61 33 |nt. .~.|l d0,a3|
|000019f0| 00 20 20 80 aa 2e 6c 20 | 20 23 31 2c 64 31 20 3b |. ...l | #1,d1 ;|
|00001a00| 66 69 72 73 74 20 70 6f | 73 69 74 69 6f 6e 3d 30 |first po|sition=0|
|00001a10| 00 20 20 3b 00 20 20 80 | 5c 2e 6c 20 2d 28 61 32 |. ;. .|\.l -(a2|
|00001a20| 29 2c 64 31 00 20 20 80 | 4a 20 27 73 6b 69 70 00 |),d1. .|J 'skip.|
|00001a30| 20 20 80 7e 2e 6c 20 20 | 64 31 2c 64 33 00 20 20 | .~.l |d1,d3. |
|00001a40| 80 3d 2e 6c 20 64 32 2c | 64 33 00 20 20 80 5c 2e |.=.l d2,|d3. .\.|
|00001a50| 6c 20 28 61 32 29 2c 64 | 33 00 20 20 80 4a 20 27 |l (a2),d|3. .J '|
|00001a60| 73 6b 69 70 32 00 27 64 | 6f 3a 80 7a 20 30 28 61 |skip2.'d|o:.z 0(a|
|00001a70| 33 2c 64 31 2e 6c 29 2c | 61 30 00 20 20 80 7e 2e |3,d1.l),|a0. .~.|
|00001a80| 6c 20 20 64 32 2c 64 31 | 00 20 20 80 58 20 6d 6f |l d2,d1|. .X mo|
|00001a90| 76 65 73 74 72 69 6e 67 | 00 27 73 6b 69 70 3a 80 |vestring|.'skip:.|
|00001aa0| 81 20 23 30 2c 64 30 00 | 20 20 80 94 00 27 73 6b |. #0,d0.| ...'sk|
|00001ab0| 69 70 32 3a 80 7e 2e 6c | 20 20 28 61 32 29 2c 64 |ip2:.~.l| (a2),d|
|00001ac0| 32 00 20 20 80 a7 2e 6c | 20 64 31 2c 64 32 00 20 |2. ...l| d1,d2. |
|00001ad0| 20 80 58 20 27 64 6f 00 | 00 63 68 72 73 74 72 69 | .X 'do.|.chrstri|
|00001ae0| 6e 67 20 3b 63 68 72 24 | 28 61 2e 77 29 00 20 20 |ng ;chr$|(a.w). |
|00001af0| 3b 00 20 20 80 25 20 20 | 24 61 30 30 30 2c 27 66 |;. .% |$a000,'f|
|00001b00| 69 6e 2d 27 73 74 61 72 | 74 00 27 73 74 61 72 74 |in-'star|t.'start|
|00001b10| 3a 80 7e 2e 62 20 20 64 | 30 2c 28 61 33 29 2b 00 |:.~.b d|0,(a3)+.|
|00001b20| 20 20 80 81 20 23 31 2c | 64 30 00 27 66 69 6e 3a | .. #1,|d0.'fin:|
|00001b30| 80 94 00 00 62 69 6e 73 | 74 72 69 6e 67 20 3b 42 |....bins|tring ;B|
|00001b40| 69 6e 24 28 64 30 2e 6c | 29 00 20 20 80 81 20 23 |in$(d0.l|). .. #|
|00001b50| 33 31 2c 64 32 00 20 20 | 80 81 20 23 30 2c 64 33 |31,d2. |.. #0,d3|
|00001b60| 00 20 20 3b 00 27 6c 6f | 6f 70 3a 80 81 20 23 34 |. ;.'lo|op:.. #4|
|00001b70| 38 2c 64 31 00 20 20 80 | 7c 2e 6c 20 23 31 2c 64 |8,d1. .||.l #1,d|
|00001b80| 30 00 20 20 80 41 20 20 | 64 33 2c 64 31 00 20 20 |0. .A |d3,d1. |
|00001b90| 80 7e 2e 62 20 20 64 31 | 2c 28 61 33 29 2b 00 20 |.~.b d1|,(a3)+. |
|00001ba0| 20 80 6e 20 64 32 2c 27 | 6c 6f 6f 70 00 20 20 80 | .n d2,'|loop. .|
|00001bb0| 81 20 23 33 32 2c 64 30 | 00 20 20 80 94 00 00 68 |. #32,d0|. ....h|
|00001bc0| 65 78 73 74 72 69 6e 67 | 20 3b 48 65 78 24 28 64 |exstring| ;Hex$(d|
|00001bd0| 30 2e 6c 29 00 20 20 3b | 00 20 20 80 81 20 23 37 |0.l). ;|. .. #7|
|00001be0| 2c 64 32 00 20 20 3b 00 | 27 6c 6f 6f 70 3a 80 81 |,d2. ;.|'loop:..|
|00001bf0| 20 23 30 2c 64 31 00 20 | 20 80 7c 2e 6c 20 23 31 | #0,d1. | .|.l #1|
|00001c00| 2c 64 30 00 20 20 80 90 | 20 20 23 31 2c 64 31 00 |,d0. ..| #1,d1.|
|00001c10| 20 20 80 7c 2e 6c 20 23 | 31 2c 64 30 00 20 20 80 | .|.l #|1,d0. .|
|00001c20| 90 20 20 23 31 2c 64 31 | 00 20 20 80 7c 2e 6c 20 |. #1,d1|. .|.l |
|00001c30| 23 31 2c 64 30 00 20 20 | 80 90 20 20 23 31 2c 64 |#1,d0. |.. #1,d|
|00001c40| 31 00 20 20 80 7c 2e 6c | 20 23 31 2c 64 30 00 20 |1. .|.l| #1,d0. |
|00001c50| 20 80 90 20 20 23 31 2c | 64 31 00 20 20 80 3d 20 | .. #1,|d1. .= |
|00001c60| 23 34 38 2c 64 31 00 20 | 20 80 5c 20 23 22 39 22 |#48,d1. | .\ #"9"|
|00001c70| 2c 64 31 00 20 20 80 4d | 20 27 73 6b 69 70 00 20 |,d1. .M| 'skip. |
|00001c80| 20 80 40 20 20 23 37 2c | 64 31 00 27 73 6b 69 70 | .@ #7,|d1.'skip|
|00001c90| 3a 80 7e 2e 62 20 20 64 | 31 2c 28 61 33 29 2b 00 |:.~.b d|1,(a3)+.|
|00001ca0| 20 20 80 6e 20 64 32 2c | 27 6c 6f 6f 70 00 20 20 | .n d2,|'loop. |
|00001cb0| 80 81 20 23 38 2c 64 30 | 00 20 20 80 94 00 00 61 |.. #8,d0|. ....a|
|00001cc0| 73 63 69 69 20 3b 61 73 | 63 28 64 30 24 29 00 20 |scii ;as|c(d0$). |
|00001cd0| 20 3b 00 20 20 80 b0 2e | 6c 20 2d 28 61 32 29 00 | ;. ...|l -(a2).|
|00001ce0| 20 20 80 48 20 27 73 6b | 69 70 00 20 20 80 7e 2e | .H 'sk|ip. .~.|
|00001cf0| 6c 20 20 64 30 2c 61 33 | 00 20 20 80 81 20 23 30 |l d0,a3|. .. #0|
|00001d00| 2c 64 30 00 20 20 80 7e | 2e 62 20 20 28 61 33 29 |,d0. .~|.b (a3)|
|00001d10| 2c 64 30 00 20 20 80 94 | 00 27 73 6b 69 70 3a 80 |,d0. ..|.'skip:.|
|00001d20| 81 20 23 2d 31 2c 64 30 | 00 20 20 80 94 00 00 73 |. #-1,d0|. ....s|
|00001d30| 74 72 69 6e 67 73 74 72 | 20 3b 73 74 72 69 6e 67 |tringstr| ;string|
|00001d40| 24 28 61 24 2c 64 31 29 | 00 20 20 3b 00 20 20 80 |$(a$,d1)|. ;. .|
|00001d50| 7e 2e 6c 20 20 64 31 2c | 64 33 00 20 20 80 48 20 |~.l d1,|d3. .H |
|00001d60| 27 73 6b 69 70 00 20 20 | 80 7e 2e 6c 20 20 64 30 |'skip. |.~.l d0|
|00001d70| 2c 61 30 00 20 20 80 7e | 2e 6c 20 20 61 30 2c 2d |,a0. .~|.l a0,-|
|00001d80| 28 61 37 29 00 20 20 80 | 7e 2e 6c 20 20 61 33 2c |(a7). .|~.l a3,|
|00001d90| 2d 28 61 37 29 00 20 20 | 80 7e 2e 6c 20 20 2d 28 |-(a7). |.~.l -(|
|00001da0| 61 32 29 2c 64 31 00 20 | 20 80 81 20 23 30 2c 64 |a2),d1. | .. #0,d|
|00001db0| 34 00 27 6c 6f 6f 70 3a | 80 59 20 6d 6f 76 65 73 |4.'loop:|.Y moves|
|00001dc0| 74 72 69 6e 67 00 20 20 | 80 7e 2e 6c 20 20 64 30 |tring. |.~.l d0|
|00001dd0| 2c 64 31 00 20 20 80 3d | 2e 6c 20 64 31 2c 64 34 |,d1. .=|.l d1,d4|
|00001de0| 00 20 20 80 aa 2e 6c 20 | 20 23 31 2c 64 33 00 20 |. ...l | #1,d3. |
|00001df0| 20 80 50 20 27 6c 6f 6f | 70 00 20 20 80 7e 2e 6c | .P 'loo|p. .~.l|
|00001e00| 20 20 28 61 37 29 2b 2c | 61 30 00 20 20 80 7e 2e | (a7)+,|a0. .~.|
|00001e10| 6c 20 20 28 61 37 29 2b | 2c 61 33 00 20 20 80 7e |l (a7)+|,a3. .~|
|00001e20| 2e 6c 20 20 64 34 2c 64 | 31 00 20 20 80 58 20 6d |.l d4,d|1. .X m|
|00001e30| 6f 76 65 73 74 72 69 6e | 67 00 27 73 6b 69 70 3a |ovestrin|g.'skip:|
|00001e40| 80 7e 2e 6c 20 20 64 30 | 2c 61 33 00 20 20 80 81 |.~.l d0|,a3. ..|
|00001e50| 20 23 30 2c 64 30 00 20 | 20 80 94 00 00 69 6e 73 | #0,d0. | ....ins|
|00001e60| 74 72 73 74 72 69 6e 67 | 32 20 20 3b 69 6e 73 74 |trstring|2 ;inst|
|00001e70| 72 28 64 30 24 2c 64 31 | 24 2c 64 32 28 73 74 61 |r(d0$,d1|$,d2(sta|
|00001e80| 72 74 29 29 00 20 20 80 | 7e 2e 6c 20 20 64 32 2c |rt)). .|~.l d2,|
|00001e90| 64 34 00 20 20 80 aa 2e | 6c 20 20 23 32 2c 64 34 |d4. ...|l #2,d4|
|00001ea0| 00 20 20 80 58 20 69 6e | 73 74 72 62 00 00 69 6e |. .X in|strb..in|
|00001eb0| 73 74 72 73 74 72 69 6e | 67 20 20 20 3b 70 65 72 |strstrin|g ;per|
|00001ec0| 66 6f 72 6d 20 61 20 66 | 69 6e 64 20 6f 66 20 64 |form a f|ind of d|
|00001ed0| 30 24 2c 64 31 24 00 20 | 20 3b 00 20 20 80 81 20 |0$,d1$. | ;. .. |
|00001ee0| 23 2d 31 2c 64 34 20 20 | 3b 63 68 61 72 20 73 65 |#-1,d4 |;char se|
|00001ef0| 61 72 63 68 20 70 6f 73 | 2e 00 69 6e 73 74 72 62 |arch pos|..instrb|
|00001f00| 3a 80 7e 2e 6c 20 20 64 | 30 2c 61 33 20 3b 66 69 |:.~.l d|0,a3 ;fi|
|00001f10| 78 20 73 74 72 69 6e 67 | 20 70 6f 69 6e 74 65 72 |x string| pointer|
|00001f20| 00 20 20 80 7e 2e 6c 20 | 20 2d 28 61 32 29 2c 64 |. .~.l | -(a2),d|
|00001f30| 32 20 20 3b 6c 65 6e 67 | 74 68 20 6f 66 20 73 74 |2 ;leng|th of st|
|00001f40| 72 69 6e 67 20 31 00 20 | 20 80 7e 2e 6c 20 20 2d |ring 1. | .~.l -|
|00001f50| 28 61 32 29 2c 64 33 20 | 20 3b 6c 65 6e 67 74 68 |(a2),d3 | ;length|
|00001f60| 20 6f 66 20 73 74 72 69 | 6e 67 20 32 00 69 6e 73 | of stri|ng 2.ins|
|00001f70| 74 72 6c 3a 80 40 2e 6c | 20 20 23 31 2c 64 34 00 |trl:.@.l| #1,d4.|
|00001f80| 20 20 80 7e 2e 6c 20 20 | 64 34 2c 64 35 00 20 20 | .~.l |d4,d5. |
|00001f90| 80 3d 2e 6c 20 64 33 2c | 64 35 00 20 20 80 5c 2e |.=.l d3,|d5. .\.|
|00001fa0| 6c 20 64 32 2c 64 35 00 | 20 20 80 4a 20 27 64 6f |l d2,d5.| .J 'do|
|00001fb0| 6e 65 00 20 20 80 7e 2e | 6c 20 20 64 30 2c 61 30 |ne. .~.|l d0,a0|
|00001fc0| 00 20 20 80 3d 2e 6c 20 | 64 34 2c 61 30 00 20 20 |. .=.l |d4,a0. |
|00001fd0| 80 7e 2e 6c 20 20 64 31 | 2c 61 31 00 20 20 80 7e |.~.l d1|,a1. .~|
|00001fe0| 2e 6c 20 20 64 33 2c 64 | 35 00 27 6c 6f 6f 70 32 |.l d3,d|5.'loop2|
|00001ff0| 3a 80 48 20 27 66 6f 75 | 6e 64 00 20 20 80 7e 20 |:.H 'fou|nd. .~ |
|00002000| 20 63 73 65 6e 73 65 28 | 70 63 29 2c 64 37 00 20 | csense(|pc),d7. |
|00002010| 20 80 50 20 27 6e 6f 72 | 6d 00 20 20 3b 00 20 20 | .P 'nor|m. ;. |
|00002020| 3b 6e 6f 20 63 61 73 65 | 20 73 65 6e 73 65 00 20 |;no case| sense. |
|00002030| 20 3b 00 20 20 80 7e 2e | 62 20 20 28 61 30 29 2b | ;. .~.|b (a0)+|
|00002040| 2c 64 37 00 20 20 80 5c | 2e 62 20 23 22 7a 22 2c |,d7. .\|.b #"z",|
|00002050| 64 37 00 20 20 80 4b 20 | 27 68 69 31 00 20 20 80 |d7. .K |'hi1. .|
|00002060| 5c 2e 62 20 23 22 61 22 | 2c 64 37 00 20 20 80 47 |\.b #"a"|,d7. .G|
|00002070| 20 27 68 69 31 00 20 20 | 80 42 2e 62 20 23 32 35 | 'hi1. |.B.b #25|
|00002080| 35 2d 33 32 2c 64 37 00 | 27 68 69 31 00 20 20 80 |5-32,d7.|'hi1. .|
|00002090| 7e 2e 62 20 20 28 61 31 | 29 2b 2c 64 36 00 20 20 |~.b (a1|)+,d6. |
|000020a0| 80 5c 2e 62 20 23 22 7a | 22 2c 64 36 00 20 20 80 |.\.b #"z|",d6. .|
|000020b0| 4b 20 27 68 69 32 00 20 | 20 80 5c 2e 62 20 23 22 |K 'hi2. | .\.b #"|
|000020c0| 61 22 2c 64 36 00 20 20 | 80 47 20 27 68 69 32 00 |a",d6. |.G 'hi2.|
|000020d0| 20 20 80 42 2e 62 20 23 | 32 35 35 2d 33 32 2c 64 | .B.b #|255-32,d|
|000020e0| 36 00 27 68 69 32 00 20 | 20 80 5c 2e 62 20 64 36 |6.'hi2. | .\.b d6|
|000020f0| 2c 64 37 00 20 20 80 58 | 20 27 6e 6f 72 6d 32 00 |,d7. .X| 'norm2.|
|00002100| 20 20 3b 00 27 6e 6f 72 | 6d 00 20 20 80 5f 2e 62 | ;.'nor|m. ._.b|
|00002110| 20 28 61 30 29 2b 2c 28 | 61 31 29 2b 00 27 6e 6f | (a0)+,(|a1)+.'no|
|00002120| 72 6d 32 00 20 20 80 50 | 20 69 6e 73 74 72 6c 00 |rm2. .P| instrl.|
|00002130| 20 20 80 aa 2e 6c 20 20 | 23 31 2c 64 35 00 20 20 | ...l |#1,d5. |
|00002140| 80 58 20 27 6c 6f 6f 70 | 32 00 27 66 6f 75 6e 64 |.X 'loop|2.'found|
|00002150| 00 20 20 80 40 2e 6c 20 | 20 23 31 2c 64 34 00 20 |. .@.l | #1,d4. |
|00002160| 20 80 7e 2e 6c 20 20 64 | 34 2c 64 30 00 20 20 80 | .~.l d|4,d0. .|
|00002170| 94 00 27 64 6f 6e 65 00 | 20 20 80 81 20 23 30 2c |..'done.| .. #0,|
|00002180| 64 30 20 3b 6e 6f 74 20 | 74 68 65 72 65 00 20 20 |d0 ;not |there. |
|00002190| 80 94 00 00 72 65 70 6c | 61 63 65 20 3b 61 24 3d |....repl|ace ;a$=|
|000021a0| 72 65 70 6c 61 63 65 24 | 28 64 30 24 2c 64 31 24 |replace$|(d0$,d1$|
|000021b0| 2c 64 32 24 29 00 20 20 | 3b 00 20 20 80 7e 2e 6c |,d2$). |;. .~.l|
|000021c0| 20 20 2d 28 61 32 29 2c | 64 33 20 20 3b 6c 65 6e | -(a2),|d3 ;len|
|000021d0| 20 31 20 20 27 74 69 74 | 73 27 20 34 00 20 20 80 | 1 'tit|s' 4. .|
|000021e0| 7e 2e 6c 20 20 2d 28 61 | 32 29 2c 64 34 20 20 3b |~.l -(a|2),d4 ;|
|000021f0| 6c 65 6e 20 32 20 20 27 | 73 73 27 20 20 20 32 00 |len 2 '|ss' 2.|
|00002200| 20 20 80 48 20 27 73 6b | 69 70 00 20 20 80 aa 20 | .H 'sk|ip. .. |
|00002210| 20 23 34 2c 61 32 00 20 | 20 80 7e 2e 6c 20 20 61 | #4,a2. | .~.l a|
|00002220| 33 2c 2d 28 61 37 29 00 | 20 20 80 7e 2e 6c 20 20 |3,-(a7).| .~.l |
|00002230| 64 30 2c 2d 28 61 37 29 | 00 20 20 80 7e 2e 6c 20 |d0,-(a7)|. .~.l |
|00002240| 20 64 30 2c 61 30 00 20 | 20 80 81 20 23 30 2c 64 | d0,a0. | .. #0,d|
|00002250| 35 20 3b 6e 65 77 20 6c | 65 6e 67 74 68 00 20 20 |5 ;new l|ength. |
|00002260| 80 7e 2e 6c 20 20 64 33 | 2c 64 36 00 27 6c 6f 6f |.~.l d3|,d6.'loo|
|00002270| 70 00 20 20 80 48 20 27 | 64 6f 6e 65 00 20 20 80 |p. .H '|done. .|
|00002280| 7e 2e 6c 20 20 61 30 2c | 64 37 00 20 20 80 3d 2e |~.l a0,|d7. .=.|
|00002290| 6c 20 64 34 2c 64 37 00 | 20 20 80 5c 2e 6c 20 64 |l d4,d7.| .\.l d|
|000022a0| 31 2c 64 37 00 20 20 80 | 4b 20 27 64 6f 6e 65 32 |1,d7. .|K 'done2|
|000022b0| 00 20 20 3b 00 20 20 80 | 7e 2e 6c 20 20 61 30 2c |. ;. .|~.l a0,|
|000022c0| 2d 28 61 37 29 00 20 20 | 80 7e 2e 6c 20 20 64 31 |-(a7). |.~.l d1|
|000022d0| 2c 61 31 00 20 20 80 7e | 2e 6c 20 20 64 34 2c 64 |,a1. .~|.l d4,d|
|000022e0| 37 00 20 20 80 7e 20 20 | 63 73 65 6e 73 65 28 70 |7. .~ |csense(p|
|000022f0| 63 29 2c 64 30 00 20 20 | 80 50 20 27 6e 6f 72 6d |c),d0. |.P 'norm|
|00002300| 00 20 20 3b 00 20 20 3b | 43 61 73 65 20 6f 66 66 |. ;. ;|Case off|
|00002310| 00 20 20 3b 00 20 20 80 | 7e 20 20 64 31 2c 2d 28 |. ;. .|~ d1,-(|
|00002320| 61 37 29 00 20 20 3b 00 | 27 6c 6f 6f 70 32 61 3a |a7). ;.|'loop2a:|
|00002330| 20 80 7e 2e 62 20 20 28 | 61 30 29 2b 2c 64 30 00 | .~.b (|a0)+,d0.|
|00002340| 20 20 80 5c 2e 62 20 23 | 22 7a 22 2c 64 30 00 20 | .\.b #|"z",d0. |
|00002350| 20 80 4b 20 27 68 69 31 | 00 20 20 80 5c 2e 62 20 | .K 'hi1|. .\.b |
|00002360| 23 22 61 22 2c 64 30 00 | 20 20 80 47 20 27 68 69 |#"a",d0.| .G 'hi|
|00002370| 31 00 20 20 80 42 2e 62 | 20 23 32 35 35 2d 33 32 |1. .B.b| #255-32|
|00002380| 2c 64 30 00 27 68 69 31 | 3a 20 20 80 7e 2e 62 20 |,d0.'hi1|: .~.b |
|00002390| 20 28 61 31 29 2b 2c 64 | 31 00 20 20 80 5c 2e 62 | (a1)+,d|1. .\.b|
|000023a0| 20 23 22 7a 22 2c 64 31 | 00 20 20 80 4b 20 27 68 | #"z",d1|. .K 'h|
|000023b0| 69 32 00 20 20 80 5c 2e | 62 20 23 22 61 22 2c 64 |i2. .\.|b #"a",d|
|000023c0| 31 00 20 20 80 47 20 27 | 68 69 32 00 20 20 80 42 |1. .G '|hi2. .B|
|000023d0| 2e 62 20 23 32 35 35 2d | 33 32 2c 64 31 00 27 68 |.b #255-|32,d1.'h|
|000023e0| 69 32 3a 20 20 80 5c 2e | 62 20 64 31 2c 64 30 00 |i2: .\.|b d1,d0.|
|000023f0| 20 20 80 50 20 27 5f 6e | 65 78 74 32 00 20 20 80 | .P '_n|ext2. .|
|00002400| aa 2e 6c 20 20 23 31 2c | 64 37 00 20 20 80 50 20 |..l #1,|d7. .P |
|00002410| 27 6c 6f 6f 70 32 61 00 | 20 20 80 7e 20 20 28 61 |'loop2a.| .~ (a|
|00002420| 37 29 2b 2c 64 31 00 20 | 20 80 58 20 27 6d 61 74 |7)+,d1. | .X 'mat|
|00002430| 63 68 00 20 20 3b 00 27 | 6e 6f 72 6d 3a 20 80 5f |ch. ;.'|norm: ._|
|00002440| 2e 62 20 28 61 30 29 2b | 2c 28 61 31 29 2b 00 20 |.b (a0)+|,(a1)+. |
|00002450| 20 80 50 20 27 5f 6e 65 | 78 74 00 20 20 80 aa 2e | .P '_ne|xt. ...|
|00002460| 6c 20 20 23 31 2c 64 37 | 00 20 20 80 50 20 27 6e |l #1,d7|. .P 'n|
|00002470| 6f 72 6d 00 20 20 3b 00 | 20 20 3b 4d 61 74 63 68 |orm. ;.| ;Match|
|00002480| 21 00 20 20 3b 00 27 6d | 61 74 63 68 3a 20 20 80 |!. ;.'m|atch: .|
|00002490| 7e 2e 6c 20 20 28 61 37 | 29 2b 2c 61 30 00 20 20 |~.l (a7|)+,a0. |
|000024a0| 80 7e 2e 6c 20 20 64 32 | 2c 61 31 00 20 20 80 7e |.~.l d2|,a1. .~|
|000024b0| 2e 6c 20 20 28 61 32 29 | 2c 64 37 00 27 6c 6f 6f |.l (a2)|,d7.'loo|
|000024c0| 70 33 3a 20 20 80 48 20 | 27 6d 6f 72 65 00 20 20 |p3: .H |'more. |
|000024d0| 80 7e 2e 62 20 20 28 61 | 31 29 2b 2c 28 61 33 29 |.~.b (a|1)+,(a3)|
|000024e0| 2b 00 20 20 80 aa 2e 6c | 20 20 23 31 2c 64 37 00 |+. ...l| #1,d7.|
|000024f0| 20 20 80 58 20 27 6c 6f | 6f 70 33 00 27 6d 6f 72 | .X 'lo|op3.'mor|
|00002500| 65 3a 20 80 3d 2e 6c 20 | 28 61 32 29 2c 64 35 00 |e: .=.l |(a2),d5.|
|00002510| 20 20 80 3d 2e 6c 20 64 | 34 2c 61 30 00 20 20 80 | .=.l d|4,a0. .|
|00002520| a7 2e 6c 20 64 34 2c 64 | 36 00 20 20 80 58 20 27 |..l d4,d|6. .X '|
|00002530| 6c 6f 6f 70 00 20 20 3b | 00 27 5f 6e 65 78 74 32 |loop. ;|.'_next2|
|00002540| 3a 20 20 80 7e 20 20 28 | 61 37 29 2b 2c 64 31 00 |: .~ (|a7)+,d1.|
|00002550| 27 5f 6e 65 78 74 3a 20 | 80 7e 2e 6c 20 20 28 61 |'_next: |.~.l (a|
|00002560| 37 29 2b 2c 61 30 00 20 | 20 80 7e 2e 62 20 20 28 |7)+,a0. | .~.b (|
|00002570| 61 30 29 2b 2c 28 61 33 | 29 2b 00 20 20 80 40 2e |a0)+,(a3|)+. .@.|
|00002580| 6c 20 20 23 31 2c 64 35 | 00 20 20 80 aa 2e 6c 20 |l #1,d5|. ...l |
|00002590| 20 23 31 2c 64 36 00 20 | 20 80 58 20 27 6c 6f 6f | #1,d6. | .X 'loo|
|000025a0| 70 00 20 20 3b 00 27 64 | 6f 6e 65 32 3a 20 20 80 |p. ;.'d|one2: .|
|000025b0| 7e 2e 62 20 20 28 61 30 | 29 2b 2c 28 61 33 29 2b |~.b (a0|)+,(a3)+|
|000025c0| 00 20 20 80 40 2e 6c 20 | 20 23 31 2c 64 35 00 20 |. .@.l | #1,d5. |
|000025d0| 20 80 aa 2e 6c 20 20 23 | 31 2c 64 36 00 20 20 80 | ...l #|1,d6. .|
|000025e0| 50 20 27 64 6f 6e 65 32 | 00 27 64 6f 6e 65 3a 20 |P 'done2|.'done: |
|000025f0| 80 7e 2e 6c 20 20 28 61 | 37 29 2b 2c 61 33 00 20 |.~.l (a|7)+,a3. |
|00002600| 20 80 7e 2e 6c 20 20 28 | 61 37 29 2b 2c 61 30 00 | .~.l (|a7)+,a0.|
|00002610| 20 20 80 7e 2e 6c 20 20 | 64 35 2c 64 31 00 20 20 | .~.l |d5,d1. |
|00002620| 80 58 20 6d 6f 76 65 73 | 74 72 69 6e 67 00 27 73 |.X moves|tring.'s|
|00002630| 6b 69 70 3a 20 80 7e 2e | 6c 20 20 64 33 2c 64 30 |kip: .~.|l d3,d0|
|00002640| 00 20 20 80 94 00 00 6d | 6b 69 73 74 72 69 6e 67 |. ....m|kistring|
|00002650| 3a 20 80 7e 2e 62 20 20 | 64 30 2c 31 28 61 33 29 |: .~.b |d0,1(a3)|
|00002660| 00 20 20 80 7d 20 23 38 | 2c 64 30 00 20 20 80 7e |. .} #8|,d0. .~|
|00002670| 2e 62 20 20 64 30 2c 28 | 61 33 29 00 20 20 80 40 |.b d0,(|a3). .@|
|00002680| 20 20 23 32 2c 61 33 00 | 20 20 80 81 20 23 32 2c | #2,a3.| .. #2,|
|00002690| 64 30 00 20 20 80 94 00 | 00 6d 6b 6c 73 74 72 69 |d0. ...|.mklstri|
|000026a0| 6e 67 3a 20 80 7e 2e 62 | 20 20 64 30 2c 33 28 61 |ng: .~.b| d0,3(a|
|000026b0| 33 29 00 20 20 80 7d 20 | 23 38 2c 64 30 00 20 20 |3). .} |#8,d0. |
|000026c0| 80 7e 2e 62 20 20 64 30 | 2c 32 28 61 33 29 00 20 |.~.b d0|,2(a3). |
|000026d0| 20 80 ac 20 20 64 30 00 | 20 20 80 7e 2e 62 20 20 | .. d0.| .~.b |
|000026e0| 64 30 2c 31 28 61 33 29 | 00 20 20 80 7d 20 23 38 |d0,1(a3)|. .} #8|
|000026f0| 2c 64 30 00 20 20 80 7e | 2e 62 20 20 64 30 2c 28 |,d0. .~|.b d0,(|
|00002700| 61 33 29 00 20 20 80 40 | 20 20 23 34 2c 61 33 00 |a3). .@| #4,a3.|
|00002710| 20 20 80 81 20 23 34 2c | 64 30 00 20 20 80 94 00 | .. #4,|d0. ...|
|00002720| 00 63 76 69 73 74 72 69 | 6e 67 00 20 20 80 7e 2e |.cvistri|ng. .~.|
|00002730| 6c 20 20 64 30 2c 61 30 | 00 20 20 80 7e 2e 6c 20 |l d0,a0|. .~.l |
|00002740| 20 64 30 2c 61 33 00 20 | 20 80 7e 2e 62 20 20 28 | d0,a3. | .~.b (|
|00002750| 61 30 29 2b 2c 64 30 00 | 20 20 80 7c 20 23 38 2c |a0)+,d0.| .| #8,|
|00002760| 64 30 00 20 20 80 7e 2e | 62 20 20 28 61 30 29 2c |d0. .~.|b (a0),|
|00002770| 64 30 00 20 20 80 94 00 | 00 63 76 6c 73 74 72 69 |d0. ...|.cvlstri|
|00002780| 6e 67 00 20 20 80 7e 2e | 6c 20 20 64 30 2c 61 30 |ng. .~.|l d0,a0|
|00002790| 00 20 20 80 7e 2e 6c 20 | 20 64 30 2c 61 33 00 20 |. .~.l | d0,a3. |
|000027a0| 20 80 81 20 23 33 2c 64 | 31 00 27 6c 6f 6f 70 3a | .. #3,d|1.'loop:|
|000027b0| 20 80 7c 2e 6c 20 23 38 | 2c 64 30 00 20 20 80 7e | .|.l #8|,d0. .~|
|000027c0| 2e 62 20 20 28 61 30 29 | 2b 2c 64 30 00 20 20 80 |.b (a0)|+,d0. .|
|000027d0| 6e 20 64 31 2c 27 6c 6f | 6f 70 00 20 20 80 94 00 |n d1,'lo|op. ...|
|000027e0| 00 6c 65 6e 73 74 72 69 | 6e 67 00 20 20 80 25 20 |.lenstri|ng. .% |
|000027f0| 24 61 30 30 30 2c 27 66 | 69 6e 2d 27 73 74 61 72 |$a000,'f|in-'star|
|00002800| 74 00 27 73 74 61 72 74 | 3a 80 7e 2e 6c 20 64 30 |t.'start|:.~.l d0|
|00002810| 2c 61 33 3a 80 7e 2e 6c | 20 2d 28 61 32 29 2c 64 |,a3:.~.l| -(a2),d|
|00002820| 30 00 27 66 69 6e 3a 80 | 94 00 00 3b 2a 2a 2a 2a |0.'fin:.|...;****|
|00002830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 20 47 4f |********|***** GO|
|00002840| 54 54 41 20 50 55 54 20 | 53 4f 4d 45 20 45 52 52 |TTA PUT |SOME ERR|
|00002850| 4f 52 53 20 49 4e 21 20 | 2a 2a 2a 2a 2a 2a 2a 2a |ORS IN! |********|
|00002860| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 00 00 |********|**.. |
+--------+-------------------------+-------------------------+--------+--------+
