/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / DLL_Toolkit / Samples / HTBString / string.prg

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 86 84 00 00 00 00 00 00 | 3e 06 00 00 00 00 00 00 |........|>.......|
|00000010| 08 00 f7 cd c9 a9 8f cc | 97 42 66 7a 00 00 00 00 |........|.Bfz....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 01 10 3e 06 00 00 00 00 | 06 01 00 00 9c 01 00 00 |..>.....|........|
|00000110| 35 06 00 00 00 00 00 00 | 00 00 00 00 0f 00 96 00 |5.......|........|
|00000120| 00 00 89 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 06 10 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 06 40 00 00 00 00 | 00 00 00 00 09 00 00 00 |...@....|........|
|00000150| 06 40 00 00 00 00 00 00 | 00 00 11 00 00 00 06 40 |.@......|.......@|
|00000160| 00 00 00 00 00 00 00 00 | 1b 00 00 00 00 40 00 00 |........|.....@..|
|00000170| 00 00 00 00 00 00 27 00 | 00 00 00 40 00 00 00 00 |......'.|...@....|
|00000180| 00 00 00 00 33 00 00 00 | 06 40 00 00 00 00 00 00 |....3...|.@......|
|00000190| 00 00 40 00 00 00 06 40 | 00 00 00 00 00 00 00 00 |..@....@|........|
|000001a0| 4d 00 00 00 00 40 00 00 | 00 00 00 00 00 00 5e 00 |M....@..|......^.|
|000001b0| 00 00 06 40 00 00 00 00 | 00 00 00 00 6b 00 00 00 |...@....|....k...|
|000001c0| 06 40 00 00 00 00 00 00 | 00 00 77 00 00 00 06 40 |.@......|..w....@|
|000001d0| 00 00 00 00 00 00 00 00 | 80 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 08 53 | 74 72 69 6e 67 31 24 07 |.......S|tring1$.|
|00000210| 41 70 70 65 6e 64 24 09 | 46 69 6e 64 63 68 61 72 |Append$.|Findchar|
|00000220| 24 0b 43 6f 70 79 73 74 | 72 69 6e 67 24 0b 46 69 |$.Copyst|ring$.Fi|
|00000230| 6e 64 66 72 6f 6d 73 65 | 74 0c 43 6f 6d 70 61 72 |ndfromse|t.Compar|
|00000240| 65 6c 6f 77 65 72 0c 41 | 70 70 65 6e 64 63 6f 75 |elower.A|ppendcou|
|00000250| 6e 74 24 10 43 6f 70 79 | 73 74 72 69 6e 67 63 6f |nt$.Copy|stringco|
|00000260| 75 6e 74 24 0c 43 6f 6d | 70 61 72 65 63 6f 75 6e |unt$.Com|parecoun|
|00000270| 74 0b 47 65 74 66 72 6f | 6d 73 65 74 24 08 52 65 |t.Getfro|mset$.Re|
|00000280| 76 65 72 73 65 24 08 46 | 69 6e 64 73 75 62 24 00 |verse$.F|indsub$.|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 16 00 0a |........|........|
|000002a0| 00 00 00 bf 5e cf 09 68 | 74 62 73 74 72 69 6e 67 |....^..h|tbstring|
|000002b0| ca c9 00 25 16 14 00 00 | 00 bf 3e cf 18 43 48 41 |...%....|..>..CHA|
|000002c0| 52 50 54 52 20 68 74 62 | 73 74 72 69 6e 67 3a 41 |RPTR htb|string:A|
|000002d0| 70 70 65 6e 64 ca c9 00 | 34 25 1e 00 00 00 bf 3e |ppend...|4%.....>|
|000002e0| cf 1a 43 48 41 52 50 54 | 52 20 68 74 62 73 74 72 |..CHARPT|R htbstr|
|000002f0| 69 6e 67 3a 46 69 6e 64 | 43 68 61 72 ca ff 64 cf |ing:Find|Char..d.|
|00000300| 08 46 69 6e 64 63 68 61 | 72 ca c9 00 38 34 28 00 |.Findcha|r...84(.|
|00000310| 00 00 bf 3e cf 1c 43 48 | 41 52 50 54 52 20 68 74 |...>..CH|ARPTR ht|
|00000320| 62 73 74 72 69 6e 67 3a | 43 6f 70 79 53 74 72 69 |bstring:|CopyStri|
|00000330| 6e 67 ca ff 64 cf 0a 43 | 6f 70 79 73 74 72 69 6e |ng..d..C|opystrin|
|00000340| 67 ca c9 00 38 38 32 00 | 00 00 bf 3e cf 1b 53 48 |g...882.|...>..SH|
|00000350| 4f 52 54 20 68 74 62 73 | 74 72 69 6e 67 3a 46 69 |ORT htbs|tring:Fi|
|00000360| 6e 64 46 72 6f 6d 53 65 | 74 ca ff 64 cf 0b 46 69 |ndFromSe|t..d..Fi|
|00000370| 6e 64 66 72 6f 6d 73 65 | 74 ca c9 00 35 38 3c 00 |ndfromse|t...58<.|
|00000380| 00 00 bf 3e cf 17 73 68 | 6f 72 74 20 68 74 62 73 |...>..sh|ort htbs|
|00000390| 74 72 69 6e 67 3a 43 6f | 6d 70 61 72 65 ca ff 64 |tring:Co|mpare..d|
|000003a0| cf 0c 43 6f 6d 70 61 72 | 65 6c 6f 77 65 72 ca c9 |..Compar|elower..|
|000003b0| 00 3a 35 46 00 00 00 bf | 3e cf 1d 43 48 41 52 50 |.:5F....|>..CHARP|
|000003c0| 54 52 20 68 74 62 73 74 | 72 69 6e 67 3a 41 70 70 |TR htbst|ring:App|
|000003d0| 65 6e 64 43 6f 75 6e 74 | ca ff 64 cf 0b 41 70 70 |endCount|..d..App|
|000003e0| 65 6e 64 63 6f 75 6e 74 | ca c9 00 42 3a 50 00 00 |endcount|...B:P..|
|000003f0| 00 bf 3e cf 21 43 48 41 | 52 50 54 52 20 68 74 62 |..>.!CHA|RPTR htb|
|00000400| 73 74 72 69 6e 67 3a 43 | 6f 70 79 53 74 72 69 6e |string:C|opyStrin|
|00000410| 67 43 6f 75 6e 74 ca ff | 64 cf 0f 43 6f 70 79 73 |gCount..|d..Copys|
|00000420| 74 72 69 6e 67 63 6f 75 | 6e 74 ca c9 00 40 42 5a |tringcou|nt...@BZ|
|00000430| 00 00 00 bf 3e cf 22 73 | 68 6f 72 74 20 68 74 62 |....>."s|hort htb|
|00000440| 73 74 72 69 6e 67 3a 43 | 6f 6d 70 61 72 65 53 74 |string:C|ompareSt|
|00000450| 72 69 6e 67 43 6f 75 6e | 74 ca ff 64 cf 0c 43 6f |ringCoun|t..d..Co|
|00000460| 6d 70 61 72 65 63 6f 75 | 6e 74 ca c9 00 38 40 64 |mparecou|nt...8@d|
|00000470| 00 00 00 bf 3e cf 1c 63 | 68 61 72 70 74 72 20 68 |....>..c|harptr h|
|00000480| 74 62 73 74 72 69 6e 67 | 3a 47 65 74 46 72 6f 6d |tbstring|:GetFrom|
|00000490| 53 65 74 ca ff 64 cf 0a | 47 65 74 66 72 6f 6d 73 |Set..d..|Getfroms|
|000004a0| 65 74 ca c9 00 26 38 6e | 00 00 00 bf 3e cf 19 63 |et...&8n|....>..c|
|000004b0| 68 61 72 70 74 72 20 68 | 74 62 73 74 72 69 6e 67 |harptr h|tbstring|
|000004c0| 3a 52 65 76 65 72 73 65 | ca c9 00 32 26 78 00 00 |:Reverse|...2&x..|
|000004d0| 00 bf 3e cf 19 63 68 61 | 72 70 74 72 20 68 74 62 |..>..cha|rptr htb|
|000004e0| 73 74 72 69 6e 67 3a 46 | 69 6e 64 53 75 62 ca ff |string:F|indSub..|
|000004f0| 64 cf 07 46 69 6e 64 73 | 75 62 ca c9 00 13 32 82 |d..Finds|ub....2.|
|00000500| 00 00 00 56 c7 00 df cf | 04 6f 6e 65 20 ca c9 00 |...V....|.one ...|
|00000510| 1c 13 8c 00 00 00 56 c7 | 00 df f8 c7 01 e0 c7 00 |......V.|........|
|00000520| ca de cf 03 74 77 6f ca | e1 ca c9 00 0c 1c 96 00 |....two.|........|
|00000530| 00 00 7f c7 00 ca c9 00 | 1a 0c a0 00 00 00 56 c7 |........|......V.|
|00000540| 00 df f8 c7 02 e0 c7 00 | ca de cf 01 74 ca e1 ca |........|....t...|
|00000550| c9 00 0c 1a aa 00 00 00 | 7f c7 00 ca c9 00 1e 0c |........|........|
|00000560| b4 00 00 00 56 c7 00 df | f8 c7 03 e0 c7 00 ca de |....V...|........|
|00000570| cf 05 74 68 72 65 65 ca | e1 ca c9 00 0c 1e be 00 |..three.|........|
|00000580| 00 00 7f c7 00 ca c9 00 | 4a 0c c8 00 00 00 7f cf |........|J.......|
|00000590| 2b 41 6e 20 27 72 27 20 | 6f 72 20 61 6e 20 27 65 |+An 'r' |or an 'e|
|000005a0| 27 20 66 69 72 73 74 20 | 61 70 70 65 61 72 73 20 |' first |appears |
|000005b0| 61 74 20 70 6f 73 69 74 | 69 6f 6e 20 f3 ff 53 e0 |at posit|ion ..S.|
|000005c0| f8 c7 04 e0 c7 00 ca de | cf 02 72 65 ca e1 e1 ca |........|..re....|
|000005d0| c9 00 33 4a d2 00 00 00 | 49 f8 c7 05 e0 cf 02 48 |..3J....|I......H|
|000005e0| 49 ca de cf 02 68 69 ca | e1 df cb 00 ca d1 7f cf |I....hi.|........|
|000005f0| 11 48 49 20 69 73 20 65 | 71 75 61 6c 20 74 6f 20 |.HI is e|qual to |
|00000600| 68 69 ca c9 00 29 33 dc | 00 00 00 56 c7 00 df f8 |hi...)3.|...V....|
|00000610| c7 06 e0 c7 00 ca de cf | 0c 20 66 6f 75 72 47 61 |........|. fourGa|
|00000620| 72 62 61 67 65 ca de cb | 05 ca e1 ca c9 00 0c 29 |rbage...|.......)|
|00000630| e6 00 00 00 7f c7 00 ca | c9 00 22 0c f0 00 00 00 |........|..".....|
|00000640| 56 c7 00 df f8 c7 07 e0 | c7 00 ca de cf 05 66 69 |V.......|......fi|
|00000650| 76 65 20 ca de cb 05 ca | e1 ca c9 00 0c 22 fa 00 |ve .....|....."..|
|00000660| 00 00 7f c7 00 ca c9 00 | 4b 0c 04 01 00 00 49 f8 |........|K.....I.|
|00000670| c7 08 e0 c7 00 ca de cf | 0c 66 69 76 65 20 68 75 |........|.five hu|
|00000680| 6e 64 72 65 64 ca de cb | 04 ca e1 df cb 00 ca d1 |ndred...|........|
|00000690| 7f cf 1d 66 69 76 65 20 | 69 73 20 65 71 75 61 6c |...five |is equal|
|000006a0| 20 74 6f 20 66 69 76 65 | 20 68 75 6e 64 72 65 64 | to five| hundred|
|000006b0| ca c9 00 1b 4b 0e 01 00 | 00 56 c7 00 df f8 c7 09 |....K...|.V......|
|000006c0| e0 c7 00 ca de cf 02 6f | 72 ca e1 ca c9 00 0c 1b |.......o|r.......|
|000006d0| 18 01 00 00 7f c7 00 ca | c9 00 1c 0c 22 01 00 00 |........|...."...|
|000006e0| 56 c7 00 df f8 c7 0a e0 | cf 07 52 65 76 65 72 73 |V.......|..Revers|
|000006f0| 65 ca e1 ca c9 00 0c 1c | 2c 01 00 00 7f c7 00 ca |e.......|,.......|
|00000700| c9 00 1b 0c 36 01 00 00 | 56 c7 00 df f8 c7 0b e0 |....6...|V.......|
|00000710| c7 00 ca de cf 02 65 76 | ca e1 ca c9 00 0c 1b 40 |......ev|.......@|
|00000720| 01 00 00 7f c7 00 ca c9 | 00 0d 0c 4a 01 00 00 bf |........|...J....|
|00000730| ff 65 ff 91 c9 00 09 0d | 54 01 00 00 33 c9       |.e......|T...3.  |
+--------+-------------------------+-------------------------+--------+--------+