/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsc / computils / !CompUtils / Resources / Compress / Example

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 20 3e 20 | 3c 42 61 73 69 63 53 61 |..... > |<BasicSa|
|00000010| 76 65 24 44 69 72 3e 2e | 45 78 61 6d 70 6c 65 0d |ve$Dir>.|Example.|
|00000020| 00 14 04 0d 00 1e 16 69 | 6e 24 3d 22 52 41 4d 3a |.......i|n$="RAM:|
|00000030| 24 2e 49 6e 46 69 6c 65 | 22 0d 00 28 18 6f 75 74 |$.InFile|"..(.out|
|00000040| 24 3d 22 52 41 4d 3a 24 | 2e 4f 75 74 46 69 6c 65 |$="RAM:$|.OutFile|
|00000050| 22 0d 00 32 24 63 6f 64 | 65 24 3d 22 43 6f 6d 70 |"..2$cod|e$="Comp|
|00000060| 55 74 69 6c 73 3a 43 6f | 6d 70 72 65 73 73 2e 54 |Utils:Co|mpress.T|
|00000070| 79 70 65 36 22 0d 00 3c | 04 0d 00 46 1a f4 20 2d |ype6"..<|...F.. -|
|00000080| 2d 2d 20 6c 6f 61 64 20 | 75 74 69 6c 69 74 79 20 |-- load |utility |
|00000090| 2d 2d 2d 0d 00 50 23 c8 | 99 20 22 4f 53 5f 46 69 |---..P#.|. "OS_Fi|
|000000a0| 6c 65 22 2c 35 2c 63 6f | 64 65 24 20 b8 20 61 25 |le",5,co|de$ . a%|
|000000b0| 2c 2c 2c 2c 6c 25 0d 00 | 5a 13 e7 20 61 25 3c 3e |,,,,l%..|Z.. a%<>|
|000000c0| 31 20 8c 20 6c 25 3d 31 | 36 0d 00 64 0e de 20 63 |1 . l%=1|6..d.. c|
|000000d0| 6f 64 65 25 20 6c 25 0d | 00 6e 22 c8 99 20 22 4f |ode% l%.|.n".. "O|
|000000e0| 53 5f 46 69 6c 65 22 2c | 32 35 35 2c 63 6f 64 65 |S_File",|255,code|
|000000f0| 24 2c 63 6f 64 65 25 2c | 30 0d 00 78 04 0d 00 82 |$,code%,|0..x....|
|00000100| 22 f4 20 2d 2d 2d 20 73 | 65 74 20 75 70 20 73 6f |". --- s|et up so|
|00000110| 75 72 63 65 20 62 75 66 | 66 65 72 20 2d 2d 2d 0d |urce buf|fer ---.|
|00000120| 00 8c 13 73 72 63 6c 65 | 6e 25 3d 31 30 2a 31 30 |...srcle|n%=10*10|
|00000130| 32 34 0d 00 96 16 de 20 | 73 72 63 62 75 66 66 25 |24..... |srcbuff%|
|00000140| 20 73 72 63 6c 65 6e 25 | 0d 00 a0 04 0d 00 aa 27 | srclen%|.......'|
|00000150| f4 20 2d 2d 2d 20 73 65 | 74 20 75 70 20 64 65 73 |. --- se|t up des|
|00000160| 74 69 6e 61 74 69 6f 6e | 20 62 75 66 66 65 72 20 |tination| buffer |
|00000170| 2d 2d 2d 0d 00 b4 14 64 | 65 73 74 6c 65 6e 25 3d |---....d|estlen%=|
|00000180| 31 30 2a 31 30 32 34 0d | 00 be 18 de 20 64 65 73 |10*1024.|.... des|
|00000190| 74 62 75 66 66 25 20 64 | 65 73 74 6c 65 6e 25 0d |tbuff% d|estlen%.|
|000001a0| 00 c8 04 0d 00 d2 1d f4 | 20 2d 2d 2d 20 73 65 74 |........| --- set|
|000001b0| 20 75 70 20 70 6f 69 6e | 74 65 72 73 20 2d 2d 2d | up poin|ters ---|
|000001c0| 0d 00 dc 14 63 6f 64 65 | 25 21 38 3d 73 72 63 62 |....code|%!8=srcb|
|000001d0| 75 66 66 25 0d 00 e6 14 | 63 6f 64 65 25 21 31 32 |uff%....|code%!12|
|000001e0| 3d 73 72 63 6c 65 6e 25 | 0d 00 f0 16 63 6f 64 65 |=srclen%|....code|
|000001f0| 25 21 31 36 3d 64 65 73 | 74 62 75 66 66 25 0d 00 |%!16=des|tbuff%..|
|00000200| fa 15 63 6f 64 65 25 21 | 32 30 3d 64 65 73 74 6c |..code%!|20=destl|
|00000210| 65 6e 25 0d 01 04 04 0d | 01 0e 30 f4 20 2d 2d 2d |en%.....|..0. ---|
|00000220| 20 63 6c 61 69 6d 20 67 | 6c 6f 62 61 6c 20 61 6e | claim g|lobal an|
|00000230| 64 20 70 68 61 73 65 20 | 31 20 77 6f 72 6b 73 70 |d phase |1 worksp|
|00000240| 61 63 65 20 2d 2d 2d 0d | 01 18 31 e7 20 63 6f 64 |ace ---.|..1. cod|
|00000250| 65 25 21 32 38 3c 3e 30 | 20 8c 20 de 20 63 6f 64 |e%!28<>0| . . cod|
|00000260| 65 25 21 32 34 20 63 6f | 64 65 25 21 32 38 20 3a |e%!24 co|de%!28 :|
|00000270| f4 20 67 6c 6f 62 61 6c | 0d 01 2c 04 0d 01 36 1a |. global|..,...6.|
|00000280| f4 20 2d 2d 2d 20 73 70 | 65 63 69 61 6c 20 64 61 |. --- sp|ecial da|
|00000290| 74 61 20 2d 2d 2d 0d 01 | 40 2f 63 6f 64 65 25 21 |ta ---..|@/code%!|
|000002a0| 36 30 3d 25 31 20 20 20 | 20 20 20 20 20 3a f4 20 |60=%1   |     :. |
|000002b0| 66 6c 61 67 73 20 3d 20 | 6c 69 6e 65 61 72 20 66 |flags = |linear f|
|000002c0| 6f 72 6d 61 74 0d 01 4a | 04 0d 01 54 33 f4 20 2d |ormat..J|...T3. -|
|000002d0| 2d 2d 20 4f 70 65 6e 20 | 74 68 65 20 73 6f 75 72 |-- Open |the sour|
|000002e0| 63 65 20 61 6e 64 20 64 | 65 73 74 69 6e 61 74 69 |ce and d|estinati|
|000002f0| 6f 6e 20 66 69 6c 65 73 | 20 2d 2d 2d 0d 01 5e 0e |on files| ---..^.|
|00000300| 69 6e 25 3d 8e 28 69 6e | 24 29 0d 01 68 36 e7 20 |in%=.(in|$)..h6. |
|00000310| 69 6e 25 3d 30 20 8c 20 | f1 22 43 61 6e 27 74 20 |in%=0 . |."Can't |
|00000320| 6f 70 65 6e 20 69 6e 70 | 75 74 20 66 69 6c 65 20 |open inp|ut file |
|00000330| 27 22 2b 69 6e 24 2b 22 | 27 22 3a ef 20 37 3a e0 |'"+in$+"|'":. 7:.|
|00000340| 0d 01 72 10 6f 75 74 25 | 3d ae 28 6f 75 74 24 29 |..r.out%|=.(out$)|
|00000350| 0d 01 7c 3f e7 20 6f 75 | 74 25 3d 30 20 8c 20 d9 |..|?. ou|t%=0 . .|
|00000360| 23 69 6e 25 3a f1 22 43 | 61 6e 27 74 20 6f 70 65 |#in%:."C|an't ope|
|00000370| 6e 20 6f 75 74 70 75 74 | 20 66 69 6c 65 20 27 22 |n output| file '"|
|00000380| 2b 6f 75 74 24 2b 22 27 | 22 3a ef 20 37 3a e0 0d |+out$+"'|":. 7:..|
|00000390| 01 86 04 0d 01 90 42 f4 | 20 2d 2d 2d 20 72 65 73 |......B.| --- res|
|000003a0| 65 74 20 72 65 61 73 6f | 6e 20 63 6f 64 65 2c 20 |et reaso|n code, |
|000003b0| 73 65 74 20 73 61 6d 70 | 6c 65 20 6c 65 6e 67 74 |set samp|le lengt|
|000003c0| 68 20 61 6e 64 20 66 69 | 6e 64 20 70 65 72 69 6f |h and fi|nd perio|
|000003d0| 64 20 2d 2d 2d 0d 01 9a | 28 63 6f 64 65 25 21 34 |d ---...|(code%!4|
|000003e0| 3d 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |=0      |       :|
|000003f0| f4 20 72 65 61 73 6f 6e | 20 63 6f 64 65 0d 01 a4 |. reason| code...|
|00000400| 3b 63 6f 64 65 25 21 34 | 38 3d a2 23 69 6e 25 20 |;code%!4|8=.#in% |
|00000410| 2d 20 31 20 20 3a f4 20 | 64 6f 6e 27 74 20 69 6e |- 1  :. |don't in|
|00000420| 63 6c 75 64 65 20 73 61 | 6d 70 6c 65 20 70 65 72 |clude sa|mple per|
|00000430| 69 6f 64 20 62 79 74 65 | 0d 01 ae 3d 63 6f 64 65 |iod byte|...=code|
|00000440| 25 21 35 36 3d 9a 23 69 | 6e 25 20 20 20 20 20 3a |%!56=.#i|n%     :|
|00000450| f4 20 73 61 6d 70 6c 65 | 20 70 65 72 69 6f 64 20 |. sample| period |
|00000460| 2d 20 41 72 6d 61 64 65 | 75 73 20 66 69 6c 65 73 |- Armade|us files|
|00000470| 20 6f 6e 6c 79 0d 01 b8 | 04 0d 01 c2 0a 65 6e 64 | only...|.....end|
|00000480| 25 3d a3 0d 01 cc 1a d1 | 3d 30 3a f4 20 66 6f 72 |%=......|=0:. for|
|00000490| 20 74 69 6d 69 6e 67 20 | 6f 6e 6c 79 21 0d 01 d6 | timing |only!...|
|000004a0| 05 f5 0d 01 e0 0b d6 20 | 63 6f 64 65 25 0d 01 ea |....... |code%...|
|000004b0| 17 72 65 61 73 6f 6e 63 | 6f 64 65 25 3d 63 6f 64 |.reasonc|ode%=cod|
|000004c0| 65 25 21 34 0d 01 f4 14 | c8 8e 20 72 65 61 73 6f |e%!4....|.. reaso|
|000004d0| 6e 63 6f 64 65 25 20 ca | 0d 01 fe 0b 20 20 20 20 |ncode% .|....    |
|000004e0| c9 20 30 0d 02 08 1c 20 | 20 20 20 20 20 20 20 f4 |. 0.... |       .|
|000004f0| 20 20 20 61 6c 6c 20 66 | 69 6e 69 73 68 65 64 0d |   all f|inished.|
|00000500| 02 12 12 20 20 20 20 20 | 20 20 20 65 6e 64 25 3d |...     |   end%=|
|00000510| b9 0d 02 1c 0b 20 20 20 | 20 c9 20 31 0d 02 26 27 |.....   | . 1..&'|
|00000520| 20 20 20 20 20 20 20 20 | f4 20 20 20 6d 6f 72 65 |        |.   more|
|00000530| 20 73 6f 75 72 63 65 20 | 64 61 74 61 20 6e 65 65 | source |data nee|
|00000540| 64 65 64 0d 02 30 2f 20 | 20 20 20 20 20 20 20 c8 |ded..0/ |       .|
|00000550| 99 20 22 4f 53 5f 47 42 | 50 42 22 2c 34 2c 69 6e |. "OS_GB|PB",4,in|
|00000560| 25 2c 73 72 63 62 75 66 | 66 25 2c 73 72 63 6c 65 |%,srcbuf|f%,srcle|
|00000570| 6e 25 0d 02 3a 3d 20 20 | 20 20 20 20 20 20 f4 20 |n%..:=  |      . |
|00000580| 20 20 6e 6f 20 6e 65 65 | 64 20 74 6f 20 61 6c 74 |  no nee|d to alt|
|00000590| 65 72 20 62 75 66 66 65 | 72 20 70 6f 69 6e 74 65 |er buffe|r pointe|
|000005a0| 72 73 20 69 6e 20 68 65 | 61 64 65 72 20 61 73 0d |rs in he|ader as.|
|000005b0| 02 44 39 20 20 20 20 20 | 20 20 20 f4 20 20 20 62 |.D9     |   .   b|
|000005c0| 75 66 66 65 72 27 73 20 | 70 6f 73 69 74 69 6f 6e |uffer's |position|
|000005d0| 20 61 6e 64 20 6c 65 6e | 67 74 68 20 69 73 20 75 | and len|gth is u|
|000005e0| 6e 63 68 61 6e 67 65 64 | 0d 02 4e 43 20 20 20 20 |nchanged|..NC    |
|000005f0| 20 20 20 20 f4 20 20 20 | 4f 6e 6c 79 20 6c 61 73 |    .   |Only las|
|00000600| 74 20 62 75 66 66 65 72 | 20 63 6f 75 6c 64 20 62 |t buffer| could b|
|00000610| 65 20 6c 65 73 73 20 74 | 68 61 6e 20 63 6f 6d 70 |e less t|han comp|
|00000620| 6c 65 74 65 6c 79 20 66 | 75 6c 6c 0d 02 58 0b 20 |letely f|ull..X. |
|00000630| 20 20 20 c9 20 32 0d 02 | 62 27 20 20 20 20 20 20 |   . 2..|b'      |
|00000640| 20 20 f4 20 20 20 64 65 | 73 74 69 6e 61 74 69 6f |  .   de|stinatio|
|00000650| 6e 20 62 75 66 66 65 72 | 20 66 75 6c 6c 0d 02 6c |n buffer| full..l|
|00000660| 32 20 20 20 20 20 20 20 | 20 c8 99 20 22 4f 53 5f |2       | .. "OS_|
|00000670| 47 42 50 42 22 2c 32 2c | 6f 75 74 25 2c 64 65 73 |GBPB",2,|out%,des|
|00000680| 74 62 75 66 66 25 2c 63 | 6f 64 65 25 21 35 32 0d |tbuff%,c|ode%!52.|
|00000690| 02 76 0b 20 20 20 20 c9 | 20 33 0d 02 80 20 20 20 |.v.    .| 3...   |
|000006a0| 20 20 20 20 20 20 f4 20 | 20 20 70 68 61 73 65 20 |      . |  phase |
|000006b0| 31 20 63 6f 6d 70 6c 65 | 74 65 0d 02 8a 43 20 20 |1 comple|te...C  |
|000006c0| 20 20 20 20 20 20 f4 20 | 20 20 72 65 74 75 72 6e |      . |  return|
|000006d0| 20 74 6f 20 73 74 61 72 | 74 20 6f 66 20 66 69 6c | to star|t of fil|
|000006e0| 65 20 61 6e 64 20 63 6c | 61 69 6d 20 70 68 61 73 |e and cl|aim phas|
|000006f0| 65 20 32 20 77 6f 72 6b | 73 70 61 63 65 0d 02 94 |e 2 work|space...|
|00000700| 13 20 20 20 20 20 20 20 | 20 cf 23 69 6e 25 3d 31 |.       | .#in%=1|
|00000710| 0d 02 9e 2f 20 20 20 20 | 20 20 20 20 e7 20 63 6f |.../    |    . co|
|00000720| 64 65 25 21 34 34 3c 3e | 30 20 8c 20 de 20 63 6f |de%!44<>|0 . . co|
|00000730| 64 65 25 21 34 30 20 63 | 6f 64 65 25 21 34 34 0d |de%!40 c|ode%!44.|
|00000740| 02 a8 0b 20 20 20 20 c9 | 20 34 0d 02 b2 31 20 20 |...    .| 4...1  |
|00000750| 20 20 20 20 20 20 f4 20 | 20 20 61 6e 6f 74 68 65 |      . |  anothe|
|00000760| 72 20 70 61 73 73 20 6f | 66 20 74 68 65 20 73 61 |r pass o|f the sa|
|00000770| 6d 70 6c 65 20 6e 65 65 | 64 65 64 0d 02 bc 13 20 |mple nee|ded.... |
|00000780| 20 20 20 20 20 20 20 cf | 23 69 6e 25 3d 31 0d 02 |       .|#in%=1..|
|00000790| c6 0b 20 20 20 20 c9 20 | 37 0d 02 c7 1f 20 20 20 |..    . |7....   |
|000007a0| 20 20 20 20 20 f4 20 20 | 20 63 6c 61 69 6d 20 77 |     .  | claim w|
|000007b0| 6f 72 6b 73 70 61 63 65 | 0d 02 d0 3a 20 20 20 20 |orkspace|...:    |
|000007c0| 20 20 20 20 e7 20 63 6f | 64 65 25 21 33 36 3c 3e |    . co|de%!36<>|
|000007d0| 30 20 8c 20 de 20 63 6f | 64 65 25 21 33 32 20 63 |0 . . co|de%!32 c|
|000007e0| 6f 64 65 25 21 33 36 20 | 3a f4 20 70 68 61 73 65 |ode%!36 |:. phase|
|000007f0| 20 31 0d 02 e4 05 7f 0d | 02 ee 27 20 20 20 f1 22 | 1......|..'   ."|
|00000800| 45 72 72 6f 72 20 22 3b | 72 65 61 73 6f 6e 63 6f |Error ";|reasonco|
|00000810| 64 65 25 3b 22 20 6f 63 | 63 75 72 65 64 22 0d 02 |de%;" oc|cured"..|
|00000820| f8 09 20 20 20 ef 37 0d | 03 02 0d 20 20 20 65 6e |..   .7.|...   en|
|00000830| 64 25 3d b9 0d 03 0c 05 | cb 0d 03 16 0a fd 20 65 |d%=.....|...... e|
|00000840| 6e 64 25 0d 03 20 21 f1 | 22 54 69 6d 65 20 74 61 |nd%.. !.|"Time ta|
|00000850| 6b 65 6e 3a 20 22 3b 91 | 2f 31 30 30 3b 22 20 73 |ken: ";.|/100;" s|
|00000860| 65 63 73 22 0d 03 2a 0a | d9 20 23 69 6e 25 0d 03 |ecs"..*.|. #in%..|
|00000870| 34 0b d9 20 23 6f 75 74 | 25 0d 03 3e 27 ff 28 22 |4.. #out|%..>'.("|
|00000880| 73 65 74 74 79 70 65 20 | 22 2b 6f 75 74 24 2b 22 |settype |"+out$+"|
|00000890| 20 22 2b c3 7e 28 63 6f | 64 65 25 21 38 30 29 29 | "+.~(co|de%!80))|
|000008a0| 0d 03 48 05 e0 0d ff    |                         |..H.... |        |
+--------+-------------------------+-------------------------+--------+--------+