/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_exa.dms / in.adf / amigamode / grep.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 61 76 65 72 61 | 67 65 73 20 31 34 6b 20 |;.;avera|ges 14k |
|00000010| 70 65 72 20 73 65 63 6f | 6e 64 20 6f 6e 20 36 38 |per seco|nd on 68|
|00000020| 30 30 30 00 3b 20 20 20 | 20 20 20 20 20 20 31 31 |000.;   |      11|
|00000030| 32 6b 20 70 65 72 20 73 | 65 63 6f 6e 64 20 6f 6e |2k per s|econd on|
|00000040| 20 36 38 30 33 30 20 28 | 32 35 4d 68 7a 29 20 28 | 68030 (|25Mhz) (|
|00000050| 63 61 63 68 65 20 26 20 | 62 75 72 73 74 20 6f 6e |cache & |burst on|
|00000060| 29 00 3b 00 3b 79 6f 75 | 20 6e 65 65 64 20 74 6f |).;.;you| need to|
|00000070| 20 63 72 65 61 74 65 20 | 61 6e 20 65 78 65 63 75 | create |an execu|
|00000080| 74 61 62 6c 65 20 61 6e | 64 20 72 75 6e 20 74 68 |table an|d run th|
|00000090| 69 73 20 66 72 6f 6d 20 | 74 68 65 20 43 4c 49 00 |is from |the CLI.|
|000000a0| 00 80 09 2e 6c 20 67 6c | 69 6e 65 7b 73 74 61 72 |....l gl|ine{star|
|000000b0| 74 2e 6c 7d 00 20 20 20 | 20 80 b1 20 61 34 00 20 |t.l}.   | .. a4. |
|000000c0| 20 20 20 80 7e 2e 6c 20 | 20 61 32 2c 2d 28 61 37 |   .~.l | a2,-(a7|
|000000d0| 29 00 20 20 20 20 80 7e | 2e 6c 20 20 64 30 2c 61 |).    .~|.l  d0,a|
|000000e0| 30 00 20 20 20 20 80 7e | 2e 6c 20 20 64 30 2c 61 |0.    .~|.l  d0,a|
|000000f0| 31 00 6c 70 31 3a 80 5c | 2e 62 20 20 20 23 33 32 |1.lp1:.\|.b   #32|
|00000100| 2c 2d 28 61 30 29 00 20 | 20 20 20 80 49 20 20 20 |,-(a0). |   .I   |
|00000110| 20 20 6c 70 31 00 20 20 | 20 20 80 40 2e 6c 20 20 |  lp1.  |  .@.l  |
|00000120| 23 31 2c 61 30 00 20 20 | 20 20 80 7e 2e 6c 20 20 |#1,a0.  |  .~.l  |
|00000130| 61 30 2c 64 30 20 20 20 | 20 20 20 20 3b 73 74 61 |a0,d0   |    ;sta|
|00000140| 72 74 20 70 6f 73 2e 2e | 00 6c 70 32 3a 80 5c 2e |rt pos..|.lp2:.\.|
|00000150| 62 20 20 20 23 33 32 2c | 28 61 31 29 2b 00 20 20 |b   #32,|(a1)+.  |
|00000160| 20 20 80 49 20 20 20 20 | 20 6c 70 32 00 20 20 20 |  .I    | lp2.   |
|00000170| 20 80 aa 2e 6c 20 20 23 | 31 2c 61 31 00 20 20 20 | ...l  #|1,a1.   |
|00000180| 20 80 7e 2e 6c 20 20 61 | 31 2c 64 31 20 20 20 20 | .~.l  a|1,d1    |
|00000190| 20 20 20 3b 65 6e 64 20 | 70 6f 73 2e 2e 2e 00 00 |   ;end |pos.....|
|000001a0| 20 20 20 20 80 a7 2e 6c | 20 20 20 64 30 2c 64 31 |    ...l|   d0,d1|
|000001b0| 20 20 20 20 20 20 20 3b | 6c 65 6e 2e 2e 00 20 20 |       ;|len...  |
|000001c0| 20 20 80 aa 20 20 20 20 | 23 31 2c 64 31 00 00 20 |  ..    |#1,d1.. |
|000001d0| 20 20 20 80 7a 20 20 20 | 20 20 73 74 72 28 70 63 |   .z   |  str(pc|
|000001e0| 29 2c 61 32 00 6c 70 3a | 00 20 20 20 20 80 7e 2e |),a2.lp:|.    .~.|
|000001f0| 62 20 20 28 61 30 29 2b | 2c 28 61 32 29 2b 00 20 |b  (a0)+|,(a2)+. |
|00000200| 20 20 20 80 6e 20 20 20 | 20 20 64 31 2c 6c 70 00 |   .n   |  d1,lp.|
|00000210| 20 20 20 20 80 7e 2e 62 | 20 20 23 30 2c 28 61 32 |    .~.b|  #0,(a2|
|00000220| 29 2b 00 20 20 20 20 80 | 7a 20 20 20 20 20 73 74 |)+.    .|z     st|
|00000230| 72 28 70 63 29 2c 61 30 | 00 20 20 20 20 80 7e 2e |r(pc),a0|.    .~.|
|00000240| 6c 20 20 61 30 2c 64 30 | 00 20 20 20 20 80 7e 2e |l  a0,d0|.    .~.|
|00000250| 6c 20 20 28 61 37 29 2b | 2c 61 32 00 20 20 20 20 |l  (a7)+|,a2.    |
|00000260| 80 94 00 00 73 74 72 3a | 20 20 20 20 80 28 2e 62 |....str:|    .(.b|
|00000270| 20 32 35 38 2c 30 00 00 | 80 02 20 80 09 00 00 00 | 258,0..|.. .....|
|00000280| 62 75 66 2e 6c 3d 33 30 | 30 30 30 20 20 20 20 20 |buf.l=30|000     |
|00000290| 3b 62 75 66 66 65 72 20 | 73 69 7a 65 00 00 80 0b |;buffer |size....|
|000002a0| 20 b5 01 3d 31 20 80 42 | 20 b5 02 28 31 29 3d 22 | ..=1 .B| ..(1)="|
|000002b0| 3f 22 00 20 20 20 20 63 | 24 3d dc 86 28 32 37 29 |?".    c|$=..(27)|
|000002c0| 2b 22 5b 33 33 6d 22 00 | 20 20 20 20 64 24 3d dc |+"[33m".|    d$=.|
|000002d0| 86 28 32 37 29 2b 22 5b | 3e 30 6d 22 2b dc 86 28 |.(27)+"[|>0m"+..(|
|000002e0| 32 37 29 2b 22 5b 33 31 | 3b 34 30 6d 22 00 20 20 |27)+"[31|;40m".  |
|000002f0| 20 20 dd 82 20 63 24 2c | 22 47 52 45 50 20 56 31 |  .. c$,|"GREP V1|
|00000300| 2e 32 22 2c 64 24 00 20 | 20 20 20 dd 82 20 22 47 |.2",d$. |   .. "G|
|00000310| 52 45 50 20 74 79 70 65 | 20 70 72 6f 67 72 61 6d |REP type| program|
|00000320| 20 62 79 20 50 61 75 6c | 20 41 6e 64 72 65 77 73 | by Paul| Andrews|
|00000330| 2e 20 57 72 69 74 74 65 | 6e 20 69 6e 20 42 6c 69 |. Writte|n in Bli|
|00000340| 74 7a 20 32 2e 22 00 20 | 20 20 20 dd 82 20 22 47 |tz 2.". |   .. "G|
|00000350| 52 45 50 20 5b 2d 62 78 | 78 5d 20 5b 2d 63 5d 20 |REP [-bx|x] [-c] |
|00000360| 6b 65 79 20 66 69 6c 65 | 22 00 20 20 20 20 dd 82 |key file|".    ..|
|00000370| 20 22 57 68 65 72 65 20 | 2d 62 20 63 68 61 6e 67 | "Where |-b chang|
|00000380| 65 73 20 64 65 66 61 75 | 6c 74 20 62 75 66 66 65 |es defau|lt buffe|
|00000390| 72 20 73 69 7a 65 2c 20 | 78 78 20 69 73 20 69 6e |r size, |xx is in|
|000003a0| 20 4b 62 2e 22 00 20 20 | 20 20 dd 82 20 22 65 2e | Kb.".  |  .. "e.|
|000003b0| 67 2e 20 2d 62 31 30 30 | 20 61 6c 6c 6f 63 61 74 |g. -b100| allocat|
|000003c0| 65 73 20 31 30 30 4b 2e | 20 44 65 66 61 75 6c 74 |es 100K.| Default|
|000003d0| 20 69 73 20 33 30 4b 22 | 00 20 20 20 20 dd 82 20 | is 30K"|.    .. |
|000003e0| 22 2d 63 20 73 77 69 74 | 63 68 65 73 20 6f 6e 20 |"-c swit|ches on |
|000003f0| 63 61 73 65 20 73 65 6e | 73 69 74 69 76 69 74 79 |case sen|sitivity|
|00000400| 2e 22 00 20 20 20 20 80 | 02 00 80 c0 00 00 80 0b |.".    .|........|
|00000410| 20 b5 01 3c 32 00 20 20 | 20 20 dd 82 20 22 45 72 | ..<2.  |  .. "Er|
|00000420| 72 6f 72 3a 20 4e 6f 74 | 20 45 6e 6f 75 67 68 20 |ror: Not| Enough |
|00000430| 50 61 72 61 6d 65 74 65 | 72 73 22 00 20 20 20 20 |Paramete|rs".    |
|00000440| dd 82 20 22 3f 20 66 6f | 72 20 68 65 6c 70 22 00 |.. "? fo|r help".|
|00000450| 20 20 20 20 80 02 00 80 | c0 00 00 66 24 3d 22 22 |    ....|...f$=""|
|00000460| 00 6b 24 3d 22 22 00 62 | 24 3d 22 33 30 22 00 63 |.k$="".b|$="30".c|
|00000470| 61 73 65 73 65 6e 2e 77 | 3d 30 20 20 20 20 20 3b |asesen.w|=0     ;|
|00000480| 63 61 73 65 20 69 6e 73 | 65 6e 73 69 74 69 76 65 |case ins|ensitive|
|00000490| 00 00 80 16 20 70 3d 31 | 20 80 18 20 b5 01 00 20 |.... p=1| .. ... |
|000004a0| 20 20 20 80 0b 20 dc 81 | 28 b5 02 28 70 29 2c 31 |   .. ..|(..(p),1|
|000004b0| 29 3d 22 2d 22 00 20 20 | 20 20 20 20 20 20 80 0b |)="-".  |      ..|
|000004c0| 20 dc 83 28 b5 02 28 70 | 29 2c 32 2c 31 29 3d 22 | ..(..(p|),2,1)="|
|000004d0| 62 22 00 20 20 20 20 20 | 20 20 20 20 20 20 20 62 |b".     |       b|
|000004e0| 24 3d dc 82 28 b5 02 28 | 70 29 2c dc 8f 28 b5 02 |$=..(..(|p),..(..|
|000004f0| 28 70 29 29 2d 32 29 00 | 20 20 20 20 20 20 20 20 |(p))-2).|        |
|00000500| 80 c0 00 20 20 20 20 20 | 20 20 20 80 0b 20 dc 83 |...     |   .. ..|
|00000510| 28 b5 02 28 70 29 2c 32 | 2c 31 29 3d 22 63 22 00 |(..(p),2|,1)="c".|
|00000520| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 61 73 65 |        |    case|
|00000530| 73 65 6e 2e 77 3d 31 00 | 20 20 20 20 20 20 20 20 |sen.w=1.|        |
|00000540| 80 c0 00 20 20 20 20 80 | 22 00 20 20 20 20 20 20 |...    .|".      |
|00000550| 20 20 80 0b 20 6b 24 3d | 22 22 00 20 20 20 20 20 |  .. k$=|"".     |
|00000560| 20 20 20 20 20 20 20 6b | 24 3d b5 02 28 70 29 00 |       k|$=..(p).|
|00000570| 20 20 20 20 20 20 20 20 | 80 22 00 20 20 20 20 20 |        |.".     |
|00000580| 20 20 20 20 20 20 20 80 | 0b 20 66 24 3c 3e 22 22 |       .|. f$<>""|
|00000590| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000005a0| 20 80 be 20 80 16 00 20 | 20 20 20 20 20 20 20 20 | .. ... |        |
|000005b0| 20 20 20 20 20 20 20 dd | 82 20 22 45 72 72 6f 72 |       .|. "Error|
|000005c0| 3a 20 54 6f 6f 20 4d 61 | 6e 79 20 50 61 72 61 6d |: Too Ma|ny Param|
|000005d0| 65 74 65 72 73 2e 22 00 | 20 20 20 20 20 20 20 20 |eters.".|        |
|000005e0| 20 20 20 20 20 20 20 20 | dd 82 20 22 3f 20 66 6f |        |.. "? fo|
|000005f0| 72 20 68 65 6c 70 22 00 | 20 20 20 20 20 20 20 20 |r help".|        |
|00000600| 20 20 20 20 20 20 20 20 | 80 02 00 20 20 20 20 20 |        |...     |
|00000610| 20 20 20 20 20 20 20 80 | c0 00 20 20 20 20 20 20 |       .|..      |
|00000620| 20 20 20 20 20 20 66 24 | 3d b5 02 28 70 29 00 20 |      f$|=..(p). |
|00000630| 20 20 20 20 20 20 20 80 | c0 00 20 20 20 20 80 c0 |       .|..    ..|
|00000640| 00 80 17 00 00 80 0b 20 | dc 8f 28 6b 24 29 3e 33 |....... |..(k$)>3|
|00000650| 32 00 20 20 20 20 dd 82 | 20 22 45 72 72 6f 72 3a |2.    ..| "Error:|
|00000660| 20 4b 65 79 20 74 6f 6f | 20 6c 6f 6e 67 2e 22 00 | Key too| long.".|
|00000670| 20 20 20 20 dd 82 20 22 | 3f 20 66 6f 72 20 68 65 |    .. "|? for he|
|00000680| 6c 70 22 00 20 20 20 20 | 80 02 00 80 c0 00 00 62 |lp".    |.......b|
|00000690| 75 66 2e 6c 3d bc 01 28 | 62 24 29 2a 31 30 32 34 |uf.l=..(|b$)*1024|
|000006a0| 00 00 80 04 20 43 56 2e | 6c 28 32 35 36 29 00 70 |.... CV.|l(256).p|
|000006b0| 61 74 24 3d 6b 24 00 6d | 2e 6c 3d 30 00 80 04 20 |at$=k$.m|.l=0... |
|000006c0| 62 69 74 2e 6c 28 33 32 | 29 00 00 80 04 20 6d 61 |bit.l(32|).... ma|
|000006d0| 74 63 68 24 28 32 30 30 | 29 00 63 6d 61 74 63 68 |tch$(200|).cmatch|
|000006e0| 2e 6c 3d 30 00 00 6d 3d | dc 8f 28 70 61 74 24 29 |.l=0..m=|..(pat$)|
|000006f0| 00 80 16 20 6a 3d 30 20 | 80 18 20 33 32 2d 31 00 |... j=0 |.. 32-1.|
|00000700| 20 20 20 20 62 69 74 28 | 6a 29 3d 28 31 20 80 7c |    bit(|j)=(1 .||
|00000710| 20 28 33 32 2d 6a 2d 31 | 29 29 00 80 17 00 80 16 | (32-j-1|))......|
|00000720| 20 69 3d 30 20 80 18 20 | 32 35 36 2d 31 00 20 20 | i=0 .. |256-1.  |
|00000730| 20 20 43 56 28 69 29 3d | 30 00 20 20 20 20 80 16 |  CV(i)=|0.    ..|
|00000740| 20 6a 3d 30 20 80 18 20 | 6d 2d 31 00 20 20 20 20 | j=0 .. |m-1.    |
|00000750| 20 20 20 20 80 0b 20 dc | 83 28 70 61 74 24 2c 6a |    .. .|.(pat$,j|
|00000760| 2b 31 2c 31 29 3d dc 86 | 28 69 29 00 20 20 20 20 |+1,1)=..|(i).    |
|00000770| 20 20 20 20 20 20 20 20 | 43 56 28 69 29 3d 43 56 |        |CV(i)=CV|
|00000780| 28 69 29 20 80 8a 20 62 | 69 74 28 6a 29 00 20 20 |(i) .. b|it(j).  |
|00000790| 20 20 20 20 20 20 80 c0 | 00 20 20 20 20 20 20 20 |      ..|.       |
|000007a0| 20 80 0b 20 63 61 73 65 | 73 65 6e 2e 77 3d 30 20 | .. case|sen.w=0 |
|000007b0| 20 20 20 20 20 3b 69 67 | 6e 6f 72 65 20 63 61 73 |     ;ig|nore cas|
|000007c0| 65 2e 2e 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |e...    |        |
|000007d0| 80 0b 20 dc 98 28 dc 83 | 28 70 61 74 24 2c 6a 2b |.. ..(..|(pat$,j+|
|000007e0| 31 2c 31 29 29 3d dc 86 | 28 69 29 00 20 20 20 20 |1,1))=..|(i).    |
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 56 28 69 |        |    CV(i|
|00000800| 29 3d 43 56 28 69 29 20 | 80 8a 20 62 69 74 28 6a |)=CV(i) |.. bit(j|
|00000810| 29 00 20 20 20 20 20 20 | 20 20 20 20 20 20 80 c0 |).      |      ..|
|00000820| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 |.       |     .. |
|00000830| dc 97 28 dc 83 28 70 61 | 74 24 2c 6a 2b 31 2c 31 |..(..(pa|t$,j+1,1|
|00000840| 29 29 3d dc 86 28 69 29 | 00 20 20 20 20 20 20 20 |))=..(i)|.       |
|00000850| 20 20 20 20 20 20 20 20 | 20 43 56 28 69 29 3d 43 |        | CV(i)=C|
|00000860| 56 28 69 29 20 80 8a 20 | 62 69 74 28 6a 29 00 20 |V(i) .. |bit(j). |
|00000870| 20 20 20 20 20 20 20 20 | 20 20 20 80 c0 00 20 20 |        |   ...  |
|00000880| 20 20 20 20 20 20 80 22 | 20 20 20 20 3b 63 61 73 |      ."|    ;cas|
|00000890| 65 20 73 65 6e 73 69 74 | 69 76 65 2e 2e 00 20 20 |e sensit|ive...  |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 80 0b 20 dc 83 28 |        |  .. ..(|
|000008b0| 70 61 74 24 2c 6a 2b 31 | 2c 31 29 3d dc 86 28 69 |pat$,j+1|,1)=..(i|
|000008c0| 29 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|000008d0| 20 20 43 56 28 69 29 3d | 43 56 28 69 29 20 80 8a |  CV(i)=|CV(i) ..|
|000008e0| 20 62 69 74 28 6a 29 00 | 20 20 20 20 20 20 20 20 | bit(j).|        |
|000008f0| 20 20 20 20 80 c0 00 20 | 20 20 20 20 20 20 20 80 |    ... |       .|
|00000900| c0 00 00 00 20 20 20 20 | 80 17 00 80 17 00 00 80 |....    |........|
|00000910| 0b 20 63 61 73 65 73 65 | 6e 3d 30 00 20 20 20 20 |. casese|n=0.    |
|00000920| dd 82 20 22 49 67 6e 6f | 72 69 6e 67 20 43 61 73 |.. "Igno|ring Cas|
|00000930| 65 2e 22 00 80 22 00 20 | 20 20 20 dd 82 20 22 43 |e."..". |   .. "C|
|00000940| 61 73 65 20 53 65 6e 73 | 69 74 69 76 65 2e 22 00 |ase Sens|itive.".|
|00000950| 80 c0 00 00 a6 02 20 30 | 2c 62 75 66 2c 30 00 73 |...... 0|,buf,0.s|
|00000960| 72 63 2e 6c 3d a6 06 28 | 30 29 00 00 68 2e 6c 3d |rc.l=..(|0)..h.l=|
|00000970| fe 01 28 66 24 2c 31 30 | 30 35 29 20 20 3b 6f 6c |..(f$,10|05)  ;ol|
|00000980| 64 20 66 69 6c 65 2e 2e | 00 00 80 0b 20 68 2e 6c |d file..|.... h.l|
|00000990| 3d 30 00 20 20 20 20 dd | 82 20 22 45 72 72 6f 72 |=0.    .|. "Error|
|000009a0| 3a 20 43 6f 75 6c 64 6e | 27 74 20 6f 70 65 6e 20 |: Couldn|'t open |
|000009b0| 22 2c 66 24 2c 22 2e 22 | 00 20 20 20 20 80 02 00 |",f$,"."|.    ...|
|000009c0| 80 c0 00 00 74 6f 74 6c | 65 6e 2e 6c 3d 30 00 dd |....totl|en.l=0..|
|000009d0| 82 20 22 53 65 61 72 63 | 68 69 6e 67 20 66 69 6c |. "Searc|hing fil|
|000009e0| 65 20 22 2c 66 24 2c 22 | 2e 2e 2e 22 00 dd 82 20 |e ",f$,"|..."... |
|000009f0| 22 22 00 80 30 20 35 00 | 20 20 20 20 74 69 6d 2e |""..0 5.|    tim.|
|00000a00| 6c 2b 31 00 80 02 20 80 | 30 00 00 74 69 6d 2e 6c |l+1... .|0..tim.l|
|00000a10| 3d 30 00 00 4c 6f 6f 70 | 3a 00 62 72 65 61 64 2e |=0..Loop|:.bread.|
|00000a20| 6c 3d fe 03 28 68 2c 73 | 72 63 2c 62 75 66 29 00 |l=..(h,s|rc,buf).|
|00000a30| 74 6f 74 6c 65 6e 2b 62 | 72 65 61 64 00 80 0b 20 |totlen+b|read... |
|00000a40| 62 72 65 61 64 3d 30 20 | 80 21 20 80 05 20 66 69 |bread=0 |.! .. fi|
|00000a50| 6e 69 73 68 65 64 00 74 | 65 78 74 2e 6c 3d 73 72 |nished.t|ext.l=sr|
|00000a60| 63 00 74 65 78 74 65 6e | 64 2e 6c 3d 73 72 63 2b |c.texten|d.l=src+|
|00000a70| 62 72 65 61 64 00 00 65 | 6e 64 70 6f 73 2e 6c 3d |bread..e|ndpos.l=|
|00000a80| 62 69 74 28 6d 2d 31 29 | 00 52 2e 6c 3d 62 69 74 |bit(m-1)|.R.l=bit|
|00000a90| 28 30 29 00 62 69 74 30 | 2e 6c 3d 52 00 61 24 3d |(0).bit0|.l=R.a$=|
|00000aa0| 22 22 00 00 80 0c 20 28 | 74 65 78 74 3c 74 65 78 |"".... (|text<tex|
|00000ab0| 74 65 6e 64 29 00 20 20 | 20 20 63 63 2e 6c 3d 43 |tend).  |  cc.l=C|
|00000ac0| 56 28 da 02 2e 62 28 74 | 65 78 74 29 29 3a 74 65 |V(...b(t|ext)):te|
|00000ad0| 78 74 2b 31 00 20 20 20 | 20 52 3d 28 28 52 20 80 |xt+1.   | R=((R .|
|00000ae0| 7d 20 31 29 20 80 8a 20 | 62 69 74 30 20 29 80 42 |} 1) .. |bit0 ).B|
|00000af0| 20 63 63 00 20 20 20 20 | 80 0b 20 28 52 26 65 6e | cc.    |.. (R&en|
|00000b00| 64 70 6f 73 29 00 20 20 | 20 20 20 20 20 20 80 0b |dpos).  |      ..|
|00000b10| 20 63 6d 61 74 63 68 3c | 32 30 30 00 20 20 20 20 | cmatch<|200.    |
|00000b20| 20 20 20 20 20 20 20 20 | 73 74 61 72 74 2e 6c 3d |        |start.l=|
|00000b30| 74 65 78 74 00 20 20 20 | 20 20 20 20 20 20 20 20 |text.   |        |
|00000b40| 20 61 73 2e 6c 3d 67 6c | 69 6e 65 7b 73 74 61 72 | as.l=gl|ine{star|
|00000b50| 74 7d 00 20 20 20 20 20 | 20 20 20 20 20 20 20 61 |t}.     |       a|
|00000b60| 24 3d da 02 24 28 61 73 | 29 00 20 20 20 20 20 20 |$=..$(as|).      |
|00000b70| 20 20 20 20 20 20 dd 82 | 20 61 24 00 20 20 20 20 |      ..| a$.    |
|00000b80| 20 20 20 20 20 20 20 20 | 63 6d 61 74 63 68 2b 31 |        |cmatch+1|
|00000b90| 00 20 20 20 20 20 20 20 | 20 80 c0 00 20 20 20 20 |.       | ...    |
|00000ba0| 80 c0 00 80 c1 00 00 80 | 05 20 4c 6f 6f 70 00 00 |........|. Loop..|
|00000bb0| 66 69 6e 69 73 68 65 64 | 3a 00 00 74 74 2e 66 3d |finished|:..tt.f=|
|00000bc0| 74 69 6d 3a 66 72 2e 66 | 3d 35 30 3a 80 0b 20 bc |tim:fr.f|=50:.. .|
|00000bd0| 0b 3c 3e 30 20 80 21 20 | 66 72 3d 36 30 00 74 68 |.<>0 .! |fr=60.th|
|00000be0| 72 75 70 75 74 2e 6c 3d | bc 02 28 28 74 6f 74 6c |ruput.l=|..((totl|
|00000bf0| 65 6e 2f 31 30 32 34 29 | 2f 28 74 74 2f 66 72 29 |en/1024)|/(tt/fr)|
|00000c00| 2b 2e 35 29 00 dd 82 20 | 22 22 00 dd 82 20 22 46 |+.5)... |""... "F|
|00000c10| 69 6e 69 73 68 65 64 2e | 20 53 63 61 6e 6e 65 64 |inished.| Scanned|
|00000c20| 20 22 2c 74 6f 74 6c 65 | 6e 2c 22 20 62 79 74 65 | ",totle|n," byte|
|00000c30| 73 20 69 6e 20 22 2c 74 | 74 2f 66 72 2c 22 20 73 |s in ",t|t/fr," s|
|00000c40| 65 63 6f 6e 64 73 2e 20 | 22 2c 74 68 72 75 70 75 |econds. |",thrupu|
|00000c50| 74 2c 22 4b 20 70 65 72 | 20 73 65 63 6f 6e 64 2e |t,"K per| second.|
|00000c60| 22 00 80 0b 20 63 6d 61 | 74 63 68 3e 30 00 20 20 |"... cma|tch>0.  |
|00000c70| 20 20 dd 82 20 22 46 6f | 75 6e 64 20 22 2c 63 6d |  .. "Fo|und ",cm|
|00000c80| 61 74 63 68 2d 31 2c 22 | 20 4d 61 74 63 68 65 73 |atch-1,"| Matches|
|00000c90| 2e 22 00 80 22 00 20 20 | 20 20 dd 82 20 22 4e 6f |."..".  |  .. "No|
|00000ca0| 20 4d 61 74 63 68 65 73 | 20 46 6f 75 6e 64 2e 22 | Matches| Found."|
|00000cb0| 00 80 c0 00 00 00       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+