/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / sound / computils / !CompUtils / LoadSample / BuildLib

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 20 f4 20 3e 20 | 3c 42 61 73 69 63 53 61 |... . > |<BasicSa|
|00000010| 76 65 24 44 69 72 3e 2e | 42 75 69 6c 64 4c 69 62 |ve$Dir>.|BuildLib|
|00000020| 0d 00 14 04 0d 00 1e 1f | 74 65 78 74 5f 6e 61 6d |........|text_nam|
|00000030| 65 24 3d 22 52 41 4d 3a | 24 2e 54 65 78 74 46 69 |e$="RAM:|$.TextFi|
|00000040| 6c 65 22 0d 00 28 13 6d | 61 78 65 6e 74 72 69 65 |le"..(.m|axentrie|
|00000050| 73 25 3d 31 30 30 0d 00 | 32 04 0d 00 3c 11 65 6e |s%=100..|2...<.en|
|00000060| 74 72 79 73 69 7a 65 25 | 3d 32 34 0d 00 46 12 68 |trysize%|=24..F.h|
|00000070| 65 61 64 65 72 73 69 7a | 65 25 3d 31 32 0d 00 50 |eadersiz|e%=12..P|
|00000080| 04 0d 00 5a 17 62 75 66 | 66 65 72 73 69 7a 65 25 |...Z.buf|fersize%|
|00000090| 3d 34 30 2a 31 30 32 34 | 0d 00 64 30 de 20 68 65 |=40*1024|..d0. he|
|000000a0| 61 64 65 72 25 20 68 65 | 61 64 65 72 73 69 7a 65 |ader% he|adersize|
|000000b0| 25 2b 65 6e 74 72 79 73 | 69 7a 65 25 2a 6d 61 78 |%+entrys|ize%*max|
|000000c0| 65 6e 74 72 69 65 73 25 | 0d 00 6e 19 de 20 62 75 |entries%|..n.. bu|
|000000d0| 66 66 65 72 25 20 62 75 | 66 66 65 72 73 69 7a 65 |ffer% bu|ffersize|
|000000e0| 25 0d 00 78 04 0d 00 82 | 10 70 74 72 25 3d 68 65 |%..x....|.ptr%=he|
|000000f0| 61 64 65 72 25 0d 00 8c | 18 24 70 74 72 25 3d 22 |ader%...|.$ptr%="|
|00000100| 4c 49 42 52 22 3a 70 74 | 72 25 2b 3d 34 0d 00 96 |LIBR":pt|r%+=4...|
|00000110| 1c 65 6e 74 72 69 65 73 | 70 74 72 25 3d 70 74 72 |.entries|ptr%=ptr|
|00000120| 25 3a 70 74 72 25 2b 3d | 34 0d 00 a0 1c 21 70 74 |%:ptr%+=|4....!pt|
|00000130| 72 25 3d 65 6e 74 72 79 | 73 69 7a 65 25 3a 70 74 |r%=entry|size%:pt|
|00000140| 72 25 2b 3d 34 0d 00 aa | 04 0d 00 b4 12 21 65 6e |r%+=4...|.....!en|
|00000150| 74 72 69 65 73 70 74 72 | 25 3d 30 0d 00 be 0c 69 |triesptr|%=0....i|
|00000160| 6e 64 65 78 25 3d 30 0d | 00 c8 04 0d 00 d2 1b 74 |ndex%=0.|.......t|
|00000170| 65 78 74 66 69 6c 65 25 | 3d 8e 28 74 65 78 74 5f |extfile%|=.(text_|
|00000180| 6e 61 6d 65 24 29 0d 00 | dc 17 69 6e 5f 70 72 65 |name$)..|..in_pre|
|00000190| 66 69 78 24 3d a4 67 65 | 74 6c 69 6e 65 0d 00 e6 |fix$=.ge|tline...|
|000001a0| 16 6f 75 74 5f 6e 61 6d | 65 24 3d a4 67 65 74 6c |.out_nam|e$=.getl|
|000001b0| 69 6e 65 0d 00 f0 19 68 | 65 61 64 65 72 5f 6e 61 |ine....h|eader_na|
|000001c0| 6d 65 24 3d a4 67 65 74 | 6c 69 6e 65 0d 00 fa 18 |me$=.get|line....|
|000001d0| 64 61 74 61 70 74 72 25 | 3d 8f 23 74 65 78 74 66 |dataptr%|=.#textf|
|000001e0| 69 6c 65 25 0d 01 04 04 | 0d 01 0e 19 f1 22 42 75 |ile%....|....."Bu|
|000001f0| 69 6c 64 69 6e 67 20 68 | 65 61 64 65 72 2e 2e 2e |ilding h|eader...|
|00000200| 22 0d 01 18 0d 58 25 3d | 30 3a 59 25 3d 30 0d 01 |"....X%=|0:Y%=0..|
|00000210| 22 0e ee 20 85 20 f2 65 | 72 72 6f 72 0d 01 2c 04 |".. . .e|rror..,.|
|00000220| 0d 01 36 05 f5 0d 01 40 | 12 20 20 20 61 24 3d a4 |..6....@|.   a$=.|
|00000230| 67 65 74 6c 69 6e 65 0d | 01 4a 11 20 20 20 e7 20 |getline.|.J.   . |
|00000240| 61 24 3c 3e 22 22 20 8c | 0d 01 54 1a 20 20 20 20 |a$<>"" .|..T.    |
|00000250| 20 20 61 24 3d 69 6e 5f | 70 72 65 66 69 78 24 2b |  a$=in_|prefix$+|
|00000260| 61 24 0d 01 5e 7e 20 20 | 20 20 20 20 e7 20 21 65 |a$..^~  |    . !e|
|00000270| 6e 74 72 69 65 73 70 74 | 72 25 3e 3d 6d 61 78 65 |ntriespt|r%>=maxe|
|00000280| 6e 74 72 69 65 73 25 20 | 8c 20 f1 22 54 6f 6f 20 |ntries% |. ."Too |
|00000290| 6d 61 6e 79 20 65 6e 74 | 72 69 65 73 21 20 49 6e |many ent|ries! In|
|000002a0| 63 72 65 61 73 65 20 73 | 69 7a 65 20 6f 66 20 6d |crease s|ize of m|
|000002b0| 61 78 65 6e 74 72 69 65 | 73 25 20 6e 65 61 72 20 |axentrie|s% near |
|000002c0| 73 74 61 72 74 20 6f 66 | 20 70 72 6f 67 72 61 6d |start of| program|
|000002d0| 2e 22 3a d9 23 74 65 78 | 74 66 69 6c 65 25 3a e0 |.":.#tex|tfile%:.|
|000002e0| 0d 01 68 26 20 20 20 20 | 20 20 f4 20 2d 2d 2d 20 |..h&    |  . --- |
|000002f0| 77 6f 72 6b 20 6f 75 74 | 20 73 61 6d 70 6c 65 20 |work out| sample |
|00000300| 49 44 20 2d 2d 2d 0d 01 | 72 0f 20 20 20 20 20 20 |ID ---..|r.      |
|00000310| 62 24 3d 61 24 0d 01 7c | 2c 20 20 20 20 20 20 c8 |b$=a$..||,      .|
|00000320| 95 20 a7 62 24 2c 22 3a | 22 29 3e 30 3a 62 24 3d |. .b$,":|")>0:b$=|
|00000330| c1 62 24 2c a7 62 24 2c | 22 3a 22 29 2b 31 29 3a |.b$,.b$,|":")+1):|
|00000340| ce 0d 01 86 2c 20 20 20 | 20 20 20 c8 95 20 a7 62 |....,   |   .. .b|
|00000350| 24 2c 22 2e 22 29 3e 30 | 3a 62 24 3d c1 62 24 2c |$,".")>0|:b$=.b$,|
|00000360| a7 62 24 2c 22 2e 22 29 | 2b 31 29 3a ce 0d 01 90 |.b$,".")|+1):....|
|00000370| 14 20 20 20 20 20 20 62 | 24 3d c0 62 24 2c 31 30 |.      b|$=.b$,10|
|00000380| 29 0d 01 9a 1f 20 20 20 | 20 20 20 f4 20 2d 2d 2d |)....   |   . ---|
|00000390| 20 67 65 74 20 20 6c 65 | 6e 67 74 68 20 2d 2d 2d | get  le|ngth ---|
|000003a0| 0d 01 a4 28 20 20 20 20 | 20 20 c8 99 20 22 4f 53 |...(    |  .. "OS|
|000003b0| 5f 46 69 6c 65 22 2c 35 | 2c 61 24 20 b8 20 61 25 |_File",5|,a$ . a%|
|000003c0| 2c 2c 2c 2c 6c 65 6e 25 | 0d 01 ae 39 20 20 20 20 |,,,,len%|...9    |
|000003d0| 20 20 e7 20 61 25 3d 30 | 20 f1 22 46 69 6c 65 20 |  . a%=0| ."File |
|000003e0| 27 22 3b 61 24 3b 22 27 | 20 6e 6f 74 20 66 6f 75 |'";a$;"'| not fou|
|000003f0| 6e 64 22 3a d9 23 74 65 | 78 74 66 69 6c 65 25 3a |nd":.#te|xtfile%:|
|00000400| e0 0d 01 b8 39 20 20 20 | 20 20 20 e7 20 61 25 3d |....9   |   . a%=|
|00000410| 32 20 f1 22 27 22 3b 61 | 24 3b 22 27 20 69 73 20 |2 ."'";a|$;"' is |
|00000420| 61 20 64 69 72 65 63 74 | 6f 72 79 22 3a d9 23 74 |a direct|ory":.#t|
|00000430| 65 78 74 66 69 6c 65 25 | 3a e0 0d 01 c2 12 20 20 |extfile%|:.....  |
|00000440| 20 20 20 20 58 25 3d 8e | 28 61 24 29 0d 01 cc 25 |    X%=.|(a$)...%|
|00000450| 20 20 20 20 20 20 c8 99 | 20 22 4f 53 5f 47 42 50 |      ..| "OS_GBP|
|00000460| 42 22 2c 34 2c 58 25 2c | 62 75 66 66 65 72 25 2c |B",4,X%,|buffer%,|
|00000470| 34 0d 01 d6 14 20 20 20 | 20 20 20 d9 20 23 58 25 |4....   |   . #X%|
|00000480| 3a 58 25 3d 30 0d 01 e0 | 2e 20 20 20 20 20 20 72 |:X%=0...|.      r|
|00000490| 65 61 6c 6c 65 6e 25 3d | 28 21 62 75 66 66 65 72 |eallen%=|(!buffer|
|000004a0| 25 20 80 20 26 30 46 46 | 46 46 46 46 46 29 20 2a |% . &0FF|FFFFF) *|
|000004b0| 20 31 36 0d 01 ea 12 20 | 20 20 20 20 20 24 70 74 | 16.... |     $pt|
|000004c0| 72 25 3d 62 24 0d 01 f4 | 18 20 20 20 20 20 20 70 |r%=b$...|.      p|
|000004d0| 74 72 25 21 31 32 3d 69 | 6e 64 65 78 25 0d 01 fe |tr%!12=i|ndex%...|
|000004e0| 16 20 20 20 20 20 20 70 | 74 72 25 21 31 36 3d 6c |.      p|tr%!16=l|
|000004f0| 65 6e 25 0d 02 08 1a 20 | 20 20 20 20 20 70 74 72 |en%.... |     ptr|
|00000500| 25 21 32 30 3d 72 65 61 | 6c 6c 65 6e 25 0d 02 12 |%!20=rea|llen%...|
|00000510| 1a 20 20 20 20 20 20 70 | 74 72 25 2b 3d 65 6e 74 |.      p|tr%+=ent|
|00000520| 72 79 73 69 7a 65 25 0d | 02 1c 16 20 20 20 20 20 |rysize%.|...     |
|00000530| 20 69 6e 64 65 78 25 2b | 3d 6c 65 6e 25 0d 02 26 | index%+|=len%..&|
|00000540| 19 20 20 20 20 20 20 21 | 65 6e 74 72 69 65 73 70 |.      !|entriesp|
|00000550| 74 72 25 2b 3d 31 0d 02 | 30 08 20 20 20 cd 0d 02 |tr%+=1..|0.   ...|
|00000560| 3a 0b fd 20 61 24 3d 22 | 22 0d 02 44 04 0d 02 4e |:.. a$="|"..D...N|
|00000570| 1f 72 65 61 6c 68 65 61 | 64 65 72 6c 65 6e 25 3d |.realhea|derlen%=|
|00000580| 70 74 72 25 2d 68 65 61 | 64 65 72 25 0d 02 58 49 |ptr%-hea|der%..XI|
|00000590| e7 20 21 65 6e 74 72 69 | 65 73 70 74 72 25 3c 3d |. !entri|esptr%<=|
|000005a0| 30 20 8c 20 f1 22 57 68 | 61 74 3f 20 4e 6f 20 73 |0 . ."Wh|at? No s|
|000005b0| 61 6d 70 6c 65 73 3f 20 | 42 69 74 20 70 6f 69 6e |amples? |Bit poin|
|000005c0| 74 6c 65 73 73 21 22 3a | d9 23 74 65 78 74 66 69 |tless!":|.#textfi|
|000005d0| 6c 65 25 3a e0 0d 02 62 | 04 0d 02 6c 17 e7 20 68 |le%:...b|...l.. h|
|000005e0| 65 61 64 65 72 5f 6e 61 | 6d 65 24 3d 22 22 20 8c |eader_na|me$="" .|
|000005f0| 0d 02 76 1f 20 20 20 70 | 74 72 25 3d 68 65 61 64 |..v.   p|tr%=head|
|00000600| 65 72 25 2b 68 65 61 64 | 65 72 73 69 7a 65 25 0d |er%+head|ersize%.|
|00000610| 02 80 1c 20 20 20 e3 20 | 54 25 3d 31 20 b8 20 21 |...   . |T%=1 . !|
|00000620| 65 6e 74 72 69 65 73 70 | 74 72 25 0d 02 8a 21 20 |entriesp|tr%...! |
|00000630| 20 20 20 20 20 70 74 72 | 25 21 31 32 2b 3d 72 65 |     ptr|%!12+=re|
|00000640| 61 6c 68 65 61 64 65 72 | 6c 65 6e 25 0d 02 94 1a |alheader|len%....|
|00000650| 20 20 20 20 20 20 70 74 | 72 25 2b 3d 65 6e 74 72 |      pt|r%+=entr|
|00000660| 79 73 69 7a 65 25 0d 02 | 9e 08 20 20 20 ed 0d 02 |ysize%..|..   ...|
|00000670| a8 05 cd 0d 02 b2 04 0d | 02 bc 1a f4 20 2d 2d 2d |........|.... ---|
|00000680| 20 77 72 69 74 65 20 68 | 65 61 64 65 72 20 2d 2d | write h|eader --|
|00000690| 2d 0d 02 c6 3c e7 20 68 | 65 61 64 65 72 5f 6e 61 |-...<. h|eader_na|
|000006a0| 6d 65 24 3d 22 22 20 8c | 20 59 25 3d ae 28 6f 75 |me$="" .| Y%=.(ou|
|000006b0| 74 5f 6e 61 6d 65 24 29 | 20 8b 20 59 25 3d ae 28 |t_name$)| . Y%=.(|
|000006c0| 68 65 61 64 65 72 5f 6e | 61 6d 65 24 29 0d 02 d0 |header_n|ame$)...|
|000006d0| 2c c8 99 20 22 4f 53 5f | 47 42 50 42 22 2c 32 2c |,.. "OS_|GBPB",2,|
|000006e0| 59 25 2c 68 65 61 64 65 | 72 25 2c 72 65 61 6c 68 |Y%,heade|r%,realh|
|000006f0| 65 61 64 65 72 6c 65 6e | 25 0d 02 da 18 e7 20 68 |eaderlen|%..... h|
|00000700| 65 61 64 65 72 5f 6e 61 | 6d 65 24 3c 3e 22 22 20 |eader_na|me$<>"" |
|00000710| 8c 0d 02 e4 0c 20 20 20 | d9 20 23 59 25 0d 02 ee |.....   |. #Y%...|
|00000720| 16 20 20 20 59 25 3d ae | 28 6f 75 74 5f 6e 61 6d |.   Y%=.|(out_nam|
|00000730| 65 24 29 0d 02 f8 05 cd | 0d 03 02 04 0d 03 0c 18 |e$).....|........|
|00000740| cf 23 74 65 78 74 66 69 | 6c 65 25 3d 64 61 74 61 |.#textfi|le%=data|
|00000750| 70 74 72 25 0d 03 16 1c | 70 74 72 25 3d 68 65 61 |ptr%....|ptr%=hea|
|00000760| 64 65 72 25 2b 68 65 61 | 64 65 72 73 69 7a 65 25 |der%+hea|dersize%|
|00000770| 0d 03 20 05 f5 0d 03 2a | 12 20 20 20 61 24 3d a4 |.. ....*|.   a$=.|
|00000780| 67 65 74 6c 69 6e 65 0d | 03 34 11 20 20 20 e7 20 |getline.|.4.   . |
|00000790| 61 24 3c 3e 22 22 20 8c | 0d 03 3e 1a 20 20 20 20 |a$<>"" .|..>.    |
|000007a0| 20 20 61 24 3d 69 6e 5f | 70 72 65 66 69 78 24 2b |  a$=in_|prefix$+|
|000007b0| 61 24 0d 03 48 28 20 20 | 20 20 20 20 f1 22 43 6f |a$..H(  |    ."Co|
|000007c0| 70 79 69 6e 67 20 66 69 | 6c 65 20 27 22 3b 24 70 |pying fi|le '";$p|
|000007d0| 74 72 25 3b 22 27 2e 2e | 2e 22 0d 03 52 16 20 20 |tr%;"'..|."..R.  |
|000007e0| 20 20 20 20 6c 65 6e 25 | 3d 70 74 72 25 21 31 36 |    len%|=ptr%!16|
|000007f0| 0d 03 5c 12 20 20 20 20 | 20 20 58 25 3d 8e 28 61 |..\.    |  X%=.(a|
|00000800| 24 29 0d 03 66 13 20 20 | 20 20 20 20 c8 95 20 6c |$)..f.  |    .. l|
|00000810| 65 6e 25 3e 30 0d 03 70 | 3a 20 20 20 20 20 20 20 |en%>0..p|:       |
|00000820| 20 20 e7 20 6c 65 6e 25 | 3e 62 75 66 66 65 72 73 |  . len%|>buffers|
|00000830| 69 7a 65 25 20 8c 20 6a | 25 3d 62 75 66 66 65 72 |ize% . j|%=buffer|
|00000840| 73 69 7a 65 25 20 8b 20 | 6a 25 3d 6c 65 6e 25 0d |size% . |j%=len%.|
|00000850| 03 7a 29 20 20 20 20 20 | 20 20 20 20 c8 99 20 22 |.z)     |    .. "|
|00000860| 4f 53 5f 47 42 50 42 22 | 2c 34 2c 58 25 2c 62 75 |OS_GBPB"|,4,X%,bu|
|00000870| 66 66 65 72 25 2c 6a 25 | 0d 03 84 29 20 20 20 20 |ffer%,j%|...)    |
|00000880| 20 20 20 20 20 c8 99 20 | 22 4f 53 5f 47 42 50 42 |     .. |"OS_GBPB|
|00000890| 22 2c 32 2c 59 25 2c 62 | 75 66 66 65 72 25 2c 6a |",2,Y%,b|uffer%,j|
|000008a0| 25 0d 03 8e 15 20 20 20 | 20 20 20 20 20 20 6c 65 |%....   |      le|
|000008b0| 6e 25 2d 3d 6a 25 0d 03 | 98 0b 20 20 20 20 20 20 |n%-=j%..|..      |
|000008c0| ce 0d 03 a2 14 20 20 20 | 20 20 20 d9 20 23 58 25 |.....   |   . #X%|
|000008d0| 3a 58 25 3d 30 0d 03 ac | 1a 20 20 20 20 20 20 70 |:X%=0...|.      p|
|000008e0| 74 72 25 2b 3d 65 6e 74 | 72 79 73 69 7a 65 25 0d |tr%+=ent|rysize%.|
|000008f0| 03 b6 08 20 20 20 cd 0d | 03 c0 0b fd 20 61 24 3d |...   ..|.... a$=|
|00000900| 22 22 0d 03 ca 04 0d 03 | d4 09 d9 20 23 59 25 0d |""......|... #Y%.|
|00000910| 03 de 10 d9 20 23 74 65 | 78 74 66 69 6c 65 25 0d |.... #te|xtfile%.|
|00000920| 03 e8 05 e0 0d 03 f2 04 | 0d 03 fc 0c dd 20 f2 65 |........|..... .e|
|00000930| 72 72 6f 72 0d 04 06 09 | ee 20 85 20 87 0d 04 10 |rror....|. . ....|
|00000940| 14 f6 3a f1 22 20 61 74 | 20 6c 69 6e 65 20 22 3b |..:." at| line ";|
|00000950| 9e 0d 04 1a 17 e7 20 59 | 25 3c 3e 30 20 8c 20 d9 |...... Y|%<>0 . .|
|00000960| 23 59 25 3a 59 25 3d 30 | 0d 04 24 17 e7 20 58 25 |#Y%:Y%=0|..$.. X%|
|00000970| 3c 3e 30 20 8c 20 d9 23 | 58 25 3a 58 25 3d 30 0d |<>0 . .#|X%:X%=0.|
|00000980| 04 2e 2b e7 20 74 65 78 | 66 69 6c 65 25 3c 3e 30 |..+. tex|file%<>0|
|00000990| 20 8c 20 d9 23 74 65 78 | 74 66 69 6c 65 25 3a 74 | . .#tex|tfile%:t|
|000009a0| 65 78 74 66 69 6c 65 25 | 3d 30 0d 04 38 05 e0 0d |extfile%|=0..8...|
|000009b0| 04 42 05 e1 0d 04 4c 04 | 0d 04 56 0e dd 20 a4 67 |.B....L.|..V.. .g|
|000009c0| 65 74 6c 69 6e 65 0d 04 | 60 08 ea 20 61 24 0d 04 |etline..|`.. a$..|
|000009d0| 6a 2a e7 20 c5 23 74 65 | 78 74 66 69 6c 65 25 20 |j*. .#te|xtfile% |
|000009e0| 8c 20 61 24 3d 22 22 20 | 8b 20 61 24 3d be 23 74 |. a$="" |. a$=.#t|
|000009f0| 65 78 74 66 69 6c 65 25 | 0d 04 74 1d c8 95 20 c0 |extfile%|..t... .|
|00000a00| 61 24 2c 31 29 3d 22 20 | 22 3a 61 24 3d c1 61 24 |a$,1)=" |":a$=.a$|
|00000a10| 2c 32 29 3a ce 0d 04 7e | 21 c8 95 20 c2 61 24 2c |,2):...~|!.. .a$,|
|00000a20| 31 29 3d 22 20 22 3a 61 | 24 3d c0 61 24 2c a9 61 |1)=" ":a|$=.a$,.a|
|00000a30| 24 2d 31 29 3a ce 0d 04 | 88 07 3d 61 24 0d ff    |$-1):...|..=a$.. |
+--------+-------------------------+-------------------------+--------+--------+