/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / sound / computils / !CompUtils / Expand / Example

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 15 69 | 6e 24 3d 22 3a 30 2e 24 |.......i|n$=":0.$|
|00000030| 2e 49 6e 46 69 6c 65 22 | 0d 00 28 17 6f 75 74 24 |.InFile"|..(.out$|
|00000040| 3d 22 3a 30 2e 24 2e 4f | 75 74 46 69 6c 65 22 0d |=":0.$.O|utFile".|
|00000050| 00 32 1c 64 69 72 24 3d | 22 21 43 6f 6d 70 55 74 |.2.dir$=|"!CompUt|
|00000060| 69 6c 73 2e 45 78 70 61 | 6e 64 22 0d 00 3c 04 0d |ils.Expa|nd"..<..|
|00000070| 00 46 1a f4 20 2d 2d 2d | 20 6c 6f 61 64 20 75 74 |.F.. ---| load ut|
|00000080| 69 6c 69 74 79 20 2d 2d | 2d 0d 00 50 2e c8 99 20 |ility --|-..P... |
|00000090| 22 4f 53 5f 46 69 6c 65 | 22 2c 35 2c 64 69 72 24 |"OS_File|",5,dir$|
|000000a0| 2b 22 2e 45 78 70 61 6e | 64 22 20 b8 20 2c 2c 2c |+".Expan|d" . ,,,|
|000000b0| 2c 6c 25 20 3b 66 25 0d | 00 5a 0e de 20 63 6f 64 |,l% ;f%.|.Z.. cod|
|000000c0| 65 25 20 6c 25 0d 00 64 | 31 c8 99 20 22 4f 53 5f |e% l%..d|1.. "OS_|
|000000d0| 46 69 6c 65 22 2c 32 35 | 35 2c 64 69 72 24 2b 22 |File",25|5,dir$+"|
|000000e0| 2e 45 78 70 61 6e 64 22 | 2c 63 6f 64 65 25 2c 30 |.Expand"|,code%,0|
|000000f0| 20 b8 20 3b 66 25 0d 00 | 6e 04 0d 00 78 22 f4 20 | . ;f%..|n...x". |
|00000100| 2d 2d 2d 20 73 65 74 20 | 75 70 20 66 69 72 73 74 |--- set |up first|
|00000110| 20 62 75 66 66 65 72 73 | 20 2d 2d 2d 0d 00 82 16 | buffers| ---....|
|00000120| 73 6f 75 72 63 65 6c 65 | 6e 25 3d 31 30 32 34 2a |sourcele|n%=1024*|
|00000130| 31 30 0d 00 8c 1e de 20 | 73 6f 75 72 63 65 62 75 |10..... |sourcebu|
|00000140| 66 66 65 72 25 20 73 6f | 75 72 63 65 6c 65 6e 25 |ffer% so|urcelen%|
|00000150| 0d 00 96 13 de 20 74 65 | 6d 70 62 75 66 66 65 72 |..... te|mpbuffer|
|00000160| 25 20 31 0d 00 a0 04 0d | 00 aa 1d f4 20 2d 2d 2d |% 1.....|.... ---|
|00000170| 20 73 65 74 20 75 70 20 | 70 6f 69 6e 74 65 72 73 | set up |pointers|
|00000180| 20 2d 2d 2d 0d 00 b4 1a | 63 6f 64 65 25 21 31 32 | ---....|code%!12|
|00000190| 3d 73 6f 75 72 63 65 62 | 75 66 66 65 72 25 0d 00 |=sourceb|uffer%..|
|000001a0| be 17 63 6f 64 65 25 21 | 31 36 3d 73 6f 75 72 63 |..code%!|16=sourc|
|000001b0| 65 6c 65 6e 25 0d 00 c8 | 18 63 6f 64 65 25 21 32 |elen%...|.code%!2|
|000001c0| 30 3d 74 65 6d 70 62 75 | 66 66 65 72 25 0d 00 d2 |0=tempbu|ffer%...|
|000001d0| 0e 63 6f 64 65 25 21 32 | 34 3d 31 0d 00 dc 04 0d |.code%!2|4=1.....|
|000001e0| 00 e6 34 f4 20 2d 2d 2d | 20 72 65 73 65 74 20 72 |..4. ---| reset r|
|000001f0| 65 61 73 6f 6e 20 63 6f | 64 65 20 61 6e 64 20 73 |eason co|de and s|
|00000200| 65 74 20 6f 75 74 70 75 | 74 20 66 6c 61 67 73 20 |et outpu|t flags |
|00000210| 2d 2d 2d 0d 00 f0 0e 63 | 6f 64 65 25 21 33 32 3d |---....c|ode%!32=|
|00000220| 30 0d 00 fa 10 63 6f 64 | 65 25 21 33 36 3d 25 30 |0....cod|e%!36=%0|
|00000230| 30 0d 01 04 25 f4 20 69 | 65 2e 20 56 49 44 43 20 |0...%. i|e. VIDC |
|00000240| 66 6f 72 6d 61 74 2c 20 | 6e 6f 20 65 6e 68 61 6e |format, |no enhan|
|00000250| 63 65 6d 65 6e 74 0d 01 | 0e 04 0d 01 18 34 f4 20 |cement..|.....4. |
|00000260| 2d 2d 2d 20 6f 70 65 6e | 20 73 6f 75 72 63 65 20 |--- open| source |
|00000270| 66 69 6c 65 20 61 6e 64 | 20 6c 6f 61 64 20 66 69 |file and| load fi|
|00000280| 72 73 74 20 62 75 66 66 | 65 72 20 2d 2d 2d 0d 01 |rst buff|er ---..|
|00000290| 22 07 d1 3d 30 0d 01 2c | 12 68 61 6e 64 6c 65 25 |"..=0..,|.handle%|
|000002a0| 3d 8e 28 69 6e 24 29 0d | 01 36 33 c8 99 20 22 4f |=.(in$).|.63.. "O|
|000002b0| 53 5f 47 42 50 42 22 2c | 34 2c 68 61 6e 64 6c 65 |S_GBPB",|4,handle|
|000002c0| 25 2c 73 6f 75 72 63 65 | 62 75 66 66 65 72 25 2c |%,source|buffer%,|
|000002d0| 73 6f 75 72 63 65 6c 65 | 6e 25 0d 01 40 2c f4 20 |sourcele|n%..@,. |
|000002e0| 73 6f 75 72 63 65 20 62 | 75 66 66 65 72 20 6d 75 |source b|uffer mu|
|000002f0| 73 74 20 62 65 20 63 6f | 6d 70 6c 65 74 65 6c 79 |st be co|mpletely|
|00000300| 20 66 75 6c 6c 21 0d 01 | 4a 26 f4 20 20 20 20 20 | full!..|J&.     |
|00000310| 20 20 28 75 6e 6c 65 73 | 73 20 69 74 20 69 73 20 |  (unles|s it is |
|00000320| 6c 61 73 74 20 62 75 66 | 66 65 72 29 0d 01 54 04 |last buf|fer)..T.|
|00000330| 0d 01 5e 0f 66 69 6e 69 | 73 68 65 64 25 3d a3 0d |..^.fini|shed%=..|
|00000340| 01 68 05 f5 0d 01 72 0b | d6 20 63 6f 64 65 25 0d |.h....r.|. code%.|
|00000350| 01 7c 18 72 65 61 73 6f | 6e 63 6f 64 65 25 3d 63 |.|.reaso|ncode%=c|
|00000360| 6f 64 65 25 21 33 32 0d | 01 86 14 c8 8e 20 72 65 |ode%!32.|..... re|
|00000370| 61 73 6f 6e 63 6f 64 65 | 25 20 ca 0d 01 90 0a 20 |asoncode|% ..... |
|00000380| 20 20 c9 20 30 0d 01 9a | 1a 20 20 20 20 20 20 f4 |  . 0...|.      .|
|00000390| 20 20 20 61 6c 6c 20 66 | 69 6e 69 73 68 65 64 0d |   all f|inished.|
|000003a0| 01 a4 15 20 20 20 20 20 | 20 66 69 6e 69 73 68 65 |...     | finishe|
|000003b0| 64 25 3d b9 0d 01 ae 0a | 20 20 20 c9 20 31 0d 01 |d%=.....|   . 1..|
|000003c0| b8 25 20 20 20 20 20 20 | f4 20 20 20 6d 6f 72 65 |.%      |.   more|
|000003d0| 20 73 6f 75 72 63 65 20 | 64 61 74 61 20 6e 65 65 | source |data nee|
|000003e0| 64 65 64 0d 01 c2 39 20 | 20 20 20 20 20 c8 99 20 |ded...9 |     .. |
|000003f0| 22 4f 53 5f 47 42 50 42 | 22 2c 34 2c 68 61 6e 64 |"OS_GBPB|",4,hand|
|00000400| 6c 65 25 2c 73 6f 75 72 | 63 65 62 75 66 66 65 72 |le%,sour|cebuffer|
|00000410| 25 2c 73 6f 75 72 63 65 | 6c 65 6e 25 0d 01 cc 44 |%,source|len%...D|
|00000420| 20 20 20 20 20 20 f4 20 | 20 20 6e 6f 20 6e 65 65 |      . |  no nee|
|00000430| 64 20 74 6f 20 61 6c 74 | 65 72 20 62 75 66 66 65 |d to alt|er buffe|
|00000440| 72 20 70 6f 69 6e 74 65 | 72 73 20 69 6e 20 68 65 |r pointe|rs in he|
|00000450| 61 64 65 72 20 61 73 20 | 62 75 66 66 65 72 27 73 |ader as |buffer's|
|00000460| 0d 01 d6 2e 20 20 20 20 | 20 20 f4 20 20 20 70 6f |....    |  .   po|
|00000470| 73 69 74 69 6f 6e 20 61 | 6e 64 20 6c 65 6e 67 74 |sition a|nd lengt|
|00000480| 68 20 69 73 20 75 6e 63 | 68 61 6e 67 65 64 0d 01 |h is unc|hanged..|
|00000490| e0 0a 20 20 20 c9 20 32 | 0d 01 ea 25 20 20 20 20 |..   . 2|...%    |
|000004a0| 20 20 f4 20 20 20 64 65 | 73 74 69 6e 61 74 69 6f |  .   de|stinatio|
|000004b0| 6e 20 62 75 66 66 65 72 | 20 66 75 6c 6c 0d 01 f4 |n buffer| full...|
|000004c0| 3b 20 20 20 20 20 20 f4 | 20 20 20 4f 68 20 64 65 |;      .|   Oh de|
|000004d0| 61 72 21 21 21 20 53 6f | 6d 65 74 68 69 6e 67 20 |ar!!! So|mething |
|000004e0| 68 61 73 20 67 6f 6e 65 | 20 74 65 72 72 69 62 6c |has gone| terribl|
|000004f0| 79 20 77 72 6f 6e 67 21 | 0d 01 fe 30 20 20 20 20 |y wrong!|...0    |
|00000500| 20 20 f1 20 22 44 65 73 | 74 69 6e 61 74 69 6f 6e |  . "Des|tination|
|00000510| 20 62 75 66 66 65 72 20 | 6e 6f 74 20 6c 6f 6e 67 | buffer |not long|
|00000520| 20 65 6e 6f 75 67 68 22 | 0d 02 08 14 20 20 20 20 | enough"|....    |
|00000530| 20 20 d9 20 23 68 61 6e | 64 6c 65 25 0d 02 12 0b |  . #han|dle%....|
|00000540| 20 20 20 20 20 20 e0 0d | 02 1c 0a 20 20 20 c9 20 |      ..|...   . |
|00000550| 33 0d 02 26 25 20 20 20 | 20 20 20 f4 20 20 20 69 |3..&%   |   .   i|
|00000560| 6e 69 74 69 61 6c 69 73 | 61 74 69 6f 6e 20 63 6f |nitialis|ation co|
|00000570| 6d 70 6c 65 74 65 0d 02 | 30 37 20 20 20 20 20 20 |mplete..|07      |
|00000580| f4 20 20 20 66 69 6e 64 | 20 6c 65 6e 67 74 68 20 |.   find| length |
|00000590| 6f 66 20 73 61 6d 70 6c | 65 20 61 6e 64 20 63 72 |of sampl|e and cr|
|000005a0| 65 61 74 65 20 61 20 70 | 72 6f 70 65 72 0d 02 3a |eate a p|roper..:|
|000005b0| 20 20 20 20 20 20 20 f4 | 20 20 20 64 65 73 74 69 |       .|   desti|
|000005c0| 6e 61 74 69 6f 6e 20 62 | 75 66 66 65 72 0d 02 44 |nation b|uffer..D|
|000005d0| 1b 20 20 20 20 20 20 64 | 65 73 74 6c 65 6e 25 3d |.      d|estlen%=|
|000005e0| 63 6f 64 65 25 21 34 30 | 0d 02 4e 35 20 20 20 20 |code%!40|..N5    |
|000005f0| 20 20 f4 20 20 20 6e 6f | 74 65 20 64 65 73 74 6c |  .   no|te destl|
|00000600| 65 6e 25 20 69 6e 63 6c | 75 64 65 73 20 73 61 6d |en% incl|udes sam|
|00000610| 70 6c 65 20 72 61 74 65 | 20 62 79 74 65 0d 02 58 |ple rate| byte..X|
|00000620| 2e 20 20 20 20 20 20 f4 | 20 20 20 62 75 74 20 49 |.      .|   but I|
|00000630| 20 77 61 6e 74 20 72 61 | 77 20 73 61 6d 70 6c 65 | want ra|w sample|
|00000640| 20 64 61 74 61 20 73 6f | 2e 2e 2e 0d 02 62 2b 20 | data so|.....b+ |
|00000650| 20 20 20 20 20 e7 20 28 | 63 6f 64 65 25 21 33 36 |     . (|code%!36|
|00000660| 20 80 20 31 29 3c 3e 30 | 20 8c 20 64 65 73 74 6c | . 1)<>0| . destl|
|00000670| 65 6e 25 2d 3d 31 0d 02 | 6c 1e 20 20 20 20 20 20 |en%-=1..|l.      |
|00000680| de 20 64 65 73 74 62 75 | 66 66 25 20 64 65 73 74 |. destbu|ff% dest|
|00000690| 6c 65 6e 25 0d 02 76 1c | 20 20 20 20 20 20 63 6f |len%..v.|      co|
|000006a0| 64 65 25 21 32 30 3d 64 | 65 73 74 62 75 66 66 25 |de%!20=d|estbuff%|
|000006b0| 0d 02 80 1b 20 20 20 20 | 20 20 63 6f 64 65 25 21 |....    |  code%!|
|000006c0| 32 34 3d 64 65 73 74 6c | 65 6e 25 0d 02 8a 05 7f |24=destl|en%.....|
|000006d0| 0d 02 94 2d 20 20 20 f1 | 22 41 6e 20 65 72 72 6f |...-   .|"An erro|
|000006e0| 72 20 68 61 73 20 6f 63 | 63 75 72 65 64 20 2d 20 |r has oc|cured - |
|000006f0| 22 3b 72 65 61 73 6f 6e | 63 6f 64 65 25 0d 02 9e |";reason|code%...|
|00000700| 11 20 20 20 d9 20 23 68 | 61 6e 64 6c 65 25 0d 02 |.   . #h|andle%..|
|00000710| a8 08 20 20 20 e0 0d 02 | b2 05 cb 0d 02 bc 0f fd |..   ...|........|
|00000720| 20 66 69 6e 69 73 68 65 | 64 25 0d 02 c6 29 f1 22 | finishe|d%...)."|
|00000730| 54 69 6d 65 20 74 61 6b | 65 6e 3a 20 22 3b a8 28 |Time tak|en: ";.(|
|00000740| 91 2f 35 30 2b 30 2e 35 | 29 2f 32 3b 22 20 73 65 |./50+0.5|)/2;" se|
|00000750| 63 73 22 0d 02 d0 0d d9 | 23 68 61 6e 64 6c 65 25 |cs".....|#handle%|
|00000760| 0d 02 da 04 0d 02 e4 2d | f4 20 2d 2d 2d 20 73 61 |.......-|. --- sa|
|00000770| 76 65 20 64 65 73 74 69 | 6e 61 74 69 6f 6e 20 62 |ve desti|nation b|
|00000780| 75 66 66 65 72 20 74 6f | 20 64 69 73 63 20 2d 2d |uffer to| disc --|
|00000790| 2d 0d 02 ee 32 f4 20 6f | 66 66 73 65 74 20 2b 32 |-...2. o|ffset +2|
|000007a0| 38 20 63 6f 6e 74 61 69 | 6e 73 20 6c 65 6e 67 74 |8 contai|ns lengt|
|000007b0| 68 20 6f 66 20 64 61 74 | 61 20 69 6e 20 62 75 66 |h of dat|a in buf|
|000007c0| 66 65 72 0d 02 f8 3b c8 | 99 20 22 4f 53 5f 46 69 |fer...;.|. "OS_Fi|
|000007d0| 6c 65 22 2c 31 30 2c 6f | 75 74 24 2c 26 46 46 44 |le",10,o|ut$,&FFD|
|000007e0| 2c 2c 64 65 73 74 62 75 | 66 66 25 2c 64 65 73 74 |,,destbu|ff%,dest|
|000007f0| 62 75 66 66 25 2b 63 6f | 64 65 25 21 32 38 0d 03 |buff%+co|de%!28..|
|00000800| 02 04 0d 03 0c 18 f4 20 | 20 20 41 6c 6c 20 64 6f |....... |  All do|
|00000810| 6e 65 2c 20 73 6f 20 65 | 6e 64 0d 03 16 04 0d 03 |ne, so e|nd......|
|00000820| 20 34 f4 20 20 20 49 66 | 20 79 6f 75 20 77 61 6e | 4.   If| you wan|
|00000830| 74 20 74 6f 20 63 68 65 | 63 6b 20 74 68 65 20 6f |t to che|ck the o|
|00000840| 75 74 70 75 74 20 66 69 | 6c 65 20 6c 6f 61 64 20 |utput fi|le load |
|00000850| 69 74 0d 03 2a 2a f4 20 | 20 20 69 6e 74 6f 20 61 |it..**. |  into a|
|00000860| 6e 20 65 64 69 74 6f 72 | 20 61 73 20 6c 6f 67 61 |n editor| as loga|
|00000870| 72 69 74 68 6d 69 63 20 | 64 61 74 61 0d 03 34 04 |rithmic |data..4.|
|00000880| 0d 03 3e 1b f4 20 20 20 | 54 68 61 74 27 73 20 61 |..>..   |That's a|
|00000890| 6c 6c 20 66 6f 6c 6b 73 | 21 21 21 0d 03 48 05 e0 |ll folks|!!!..H..|
|000008a0| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+