/ APDL Public Domain 1 / APDL_PD1A.iso / music / coconizer / coco_131 / Tools / Locater

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 20 3e 4c | 6f 63 61 74 65 72 0d 00 |..... >L|ocater..|
|00000010| 14 2d f4 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-. ----|--------|
|00000020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 00 1e 05 f4 |--------|---.....|
|00000040| 0d 00 28 2b f4 20 20 20 | 53 41 4d 50 4c 45 20 41 |..(+.   |SAMPLE A|
|00000050| 4c 4c 4f 43 41 54 49 4f | 4e 20 46 49 4c 45 20 43 |LLOCATIO|N FILE C|
|00000060| 52 45 41 54 4f 52 20 76 | 31 2e 32 0d 00 32 05 f4 |REATOR v|1.2..2..|
|00000070| 0d 00 3c 2d f4 20 20 54 | 68 65 72 65 20 6d 75 73 |..<-.  T|here mus|
|00000080| 74 20 62 65 20 74 77 6f | 20 44 69 72 73 20 6f 6e |t be two| Dirs on|
|00000090| 74 6f 20 65 61 63 68 20 | 64 69 73 63 21 0d 00 46 |to each |disc!..F|
|000000a0| 05 f4 0d 00 50 28 f4 20 | 20 20 20 20 28 63 29 20 |....P(. |    (c) |
|000000b0| 31 37 74 68 20 4d 61 79 | 20 31 39 39 30 20 62 79 |17th May| 1990 by|
|000000c0| 20 50 6c 61 79 66 69 65 | 6c 64 0d 00 5a 05 f4 0d | Playfie|ld..Z...|
|000000d0| 00 64 28 f4 20 20 20 20 | 20 20 4c 61 74 65 73 74 |.d(.    |  Latest|
|000000e0| 20 72 65 76 69 73 69 6f | 6e 20 2d 20 30 33 20 4d | revisio|n - 03 M|
|000000f0| 61 72 20 31 39 39 31 0d | 00 6e 05 f4 0d 00 78 2d |ar 1991.|.n....x-|
|00000100| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00000110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 00 82 04 0d 00 8c |--------|-.......|
|00000130| 2b ee 20 85 20 c8 99 20 | 22 48 6f 75 72 67 6c 61 |+. . .. |"Hourgla|
|00000140| 73 73 5f 53 6d 61 73 68 | 22 3a f1 27 f6 24 3b 22 |ss_Smash|":.'.$;"|
|00000150| 20 40 20 22 3b 9e 3a e0 | 0d 00 96 04 0d 00 a0 0c | @ ";.:.|........|
|00000160| 40 25 3d 26 30 39 30 43 | 0d 00 aa 28 de 20 6e 61 |@%=&090C|...(. na|
|00000170| 6d 65 24 28 32 30 30 32 | 29 2c 62 79 74 65 25 28 |me$(2002|),byte%(|
|00000180| 32 30 30 32 29 2c 6c 6f | 63 24 28 32 30 30 32 29 |2002),lo|c$(2002)|
|00000190| 0d 00 b4 0d de 20 6d 65 | 6d 25 20 33 32 0d 00 be |..... me|m% 32...|
|000001a0| 27 74 6f 70 25 3d 31 20 | 3a 63 68 61 72 25 3d 97 |'top%=1 |:char%=.|
|000001b0| 22 41 22 2d 31 20 3a 68 | 64 25 3d b9 20 3a 6c 65 |"A"-1 :h|d%=. :le|
|000001c0| 6e 25 3d 30 0d 00 c8 04 | 0d 00 d2 0c 63 68 61 72 |n%=0....|....char|
|000001d0| 25 2b 3d 31 0d 00 dc 2f | 64 69 73 63 25 3d 28 63 |%+=1.../|disc%=(c|
|000001e0| 68 61 72 25 2d 36 35 29 | 20 81 20 32 20 2b 31 20 |har%-65)| . 2 +1 |
|000001f0| 3a 64 69 72 24 3d 22 49 | 6e 73 74 22 2b bd 63 68 |:dir$="I|nst"+.ch|
|00000200| 61 72 25 0d 00 e6 33 66 | 25 3d 8e 20 64 69 72 24 |ar%...3f|%=. dir$|
|00000210| 20 3a e7 20 66 25 20 8c | 20 d9 23 66 25 20 3a f2 | :. f% .| .#f% :.|
|00000220| 5f 45 6e 74 72 69 65 73 | 28 64 69 72 24 29 20 3a |_Entries|(dir$) :|
|00000230| e5 20 8d 64 52 40 0d 00 | f0 1d e7 20 64 69 72 24 |. .dR@..|... dir$|
|00000240| 3c 3d 22 49 6e 73 74 43 | 22 20 84 20 ac 20 68 64 |<="InstC|" . . hd|
|00000250| 25 20 8c 0d 00 fa 0b 20 | 20 68 64 25 3d a3 0d 01 |% ..... | hd%=...|
|00000260| 04 12 20 20 2a 64 69 73 | 6d 6f 75 6e 74 20 3a 30 |..  *dis|mount :0|
|00000270| 0d 01 0e 58 20 20 f1 20 | bd 37 3b 27 22 50 6c 65 |...X  . |.7;'"Ple|
|00000280| 61 73 65 20 69 6e 73 65 | 72 74 20 6e 65 78 74 20 |ase inse|rt next |
|00000290| 73 61 6d 70 6c 65 20 64 | 69 73 63 20 74 68 65 6e |sample d|isc then|
|000002a0| 20 70 72 65 73 73 20 59 | 2c 20 6f 72 20 61 6e 79 | press Y|, or any|
|000002b0| 74 68 69 6e 67 20 65 6c | 73 65 20 74 6f 20 73 75 |thing el|se to su|
|000002c0| 6d 20 75 70 2e 20 22 3b | 0d 01 18 1b 20 20 c8 99 |m up. ";|....  ..|
|000002d0| 20 22 4f 53 5f 43 6f 6e | 66 69 72 6d 22 20 b8 20 | "OS_Con|firm" . |
|000002e0| 63 6f 6e 0d 01 22 1b 20 | 20 f1 27 20 3a e7 20 63 |con..". | .' :. c|
|000002f0| 6f 6e 3d 97 22 79 22 20 | 8c 20 8d 64 66 40 0d 01 |on=."y" |. .df@..|
|00000300| 2c 05 cd 0d 01 36 04 0d | 01 40 0b 74 6f 70 25 2d |,....6..|.@.top%-|
|00000310| 3d 31 0d 01 4a 40 f1 27 | 22 54 6f 74 61 6c 20 61 |=1..J@.'|"Total a|
|00000320| 6d 6f 75 6e 74 20 6f 66 | 20 66 69 6c 65 73 3a 20 |mount of| files: |
|00000330| 22 3b 74 6f 70 25 2c 22 | 54 6f 74 61 6c 20 6c 65 |";top%,"|Total le|
|00000340| 6e 3a 20 22 3b 6c 65 6e | 25 3b 22 20 62 79 74 65 |n: ";len|%;" byte|
|00000350| 73 22 0d 01 54 04 0d 01 | 5e 45 f1 27 22 44 6f 20 |s"..T...|^E.'"Do |
|00000360| 79 6f 75 20 77 61 6e 74 | 20 61 20 6e 61 6d 65 20 |you want| a name |
|00000370| 73 6f 72 74 65 64 20 6c | 69 73 74 20 5b 79 5d 20 |sorted l|ist [y] |
|00000380| 3f 20 22 3b 20 3a c8 99 | 20 22 4f 53 5f 43 6f 6e |? "; :..| "OS_Con|
|00000390| 66 69 72 6d 22 20 b8 20 | 63 6f 6e 0d 01 68 10 e7 |firm" . |con..h..|
|000003a0| 20 63 6f 6e 3d 97 22 79 | 22 20 8c 0d 01 72 17 20 | con=."y|" ...r. |
|000003b0| 20 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f | .. "Hou|rglass_O|
|000003c0| 6e 22 0d 01 7c 3a 20 20 | f1 27 22 53 6f 72 74 69 |n"..|:  |.'"Sorti|
|000003d0| 6e 67 2c 20 6a 75 73 74 | 20 61 20 6d 6f 6d 65 6e |ng, just| a momen|
|000003e0| 74 20 70 6c 65 61 73 65 | 2e 2e 2e 22 20 3a f2 5f |t please|..." :._|
|000003f0| 53 6f 72 74 28 31 2c 74 | 6f 70 25 29 0d 01 86 18 |Sort(1,t|op%)....|
|00000400| 20 20 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |  .. "Ho|urglass_|
|00000410| 4f 66 66 22 0d 01 90 07 | cc 20 f1 0d 01 9a 05 cd |Off"....|. ......|
|00000420| 0d 01 a4 04 0d 01 ae 0d | e7 20 ac 20 68 64 25 20 |........|. . hd% |
|00000430| 8c 0d 01 b8 45 20 20 f1 | 27 22 50 6c 65 61 73 65 |....E  .|'"Please|
|00000440| 20 69 6e 73 65 72 74 20 | 43 6f 63 6f 6e 69 7a 65 | insert |Coconize|
|00000450| 72 20 64 69 73 63 20 66 | 6f 72 20 75 70 64 61 74 |r disc f|or updat|
|00000460| 69 6e 67 20 66 69 6c 65 | 20 22 22 6c 6f 63 61 74 |ing file| ""locat|
|00000470| 69 6f 6e 22 22 22 0d 01 | c2 0a 20 20 61 24 3d be |ion"""..|..  a$=.|
|00000480| 0d 01 cc 07 cc 20 f1 0d | 01 d6 05 cd 0d 01 e0 04 |..... ..|........|
|00000490| 0d 01 ea 13 66 25 3d ae | 20 22 6c 6f 63 61 74 69 |....f%=.| "locati|
|000004a0| 6f 6e 22 0d 01 f4 11 e3 | 20 69 25 3d 31 20 b8 20 |on".....| i%=1 . |
|000004b0| 74 6f 70 25 0d 01 fe 33 | 20 20 d5 23 66 25 2c 6e |top%...3|  .#f%,n|
|000004c0| 61 6d 65 24 28 69 25 29 | 20 3a f1 23 66 25 2c 62 |ame$(i%)| :.#f%,b|
|000004d0| 79 74 65 25 28 69 25 29 | 20 3a d5 23 66 25 2c 6c |yte%(i%)| :.#f%,l|
|000004e0| 6f 63 24 28 69 25 29 0d | 02 08 08 ed 20 69 25 0d |oc$(i%).|.... i%.|
|000004f0| 02 12 08 d9 23 66 25 0d | 02 1c 0d f1 20 22 44 6f |....#f%.|.... "Do|
|00000500| 6e 65 2e 22 0d 02 26 04 | 0d 02 30 11 e3 20 69 25 |ne."..&.|..0.. i%|
|00000510| 3d 31 20 b8 20 74 6f 70 | 25 0d 02 3a 44 f4 20 50 |=1 . top|%..:D. P|
|00000520| 52 49 4e 54 20 69 25 3b | 54 41 42 28 31 34 29 3b |RINT i%;|TAB(14);|
|00000530| 6e 61 6d 65 24 28 69 25 | 29 2c 62 79 74 65 25 28 |name$(i%|),byte%(|
|00000540| 69 25 29 2c 28 41 53 43 | 6c 6f 63 24 28 69 25 29 |i%),(ASC|loc$(i%)|
|00000550| 2d 36 35 29 20 44 49 56 | 20 32 20 2b 31 0d 02 44 |-65) DIV| 2 +1..D|
|00000560| 08 ed 20 69 25 0d 02 4e | 0c 40 25 3d 26 30 39 30 |.. i%..N|.@%=&090|
|00000570| 41 0d 02 58 05 e0 0d 02 | 62 04 0d 02 6c 17 2d 2d |A..X....|b...l.--|
|00000580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000590| 2d 0d 02 76 17 51 75 69 | 63 6b 73 6f 72 74 20 41 |-..v.Qui|cksort A|
|000005a0| 6c 67 6f 72 69 74 68 6d | 0d 02 80 17 2d 2d 2d 2d |lgorithm|....----|
|000005b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000005c0| 02 8a 13 dd 20 f2 5f 53 | 6f 72 74 28 6c 25 2c 72 |.... ._S|ort(l%,r|
|000005d0| 25 29 0d 02 94 0e ea 20 | 69 25 2c 6a 25 2c 78 24 |%)..... |i%,j%,x$|
|000005e0| 0d 02 9e 27 69 25 3d 6c | 25 20 3a 6a 25 3d 72 25 |...'i%=l|% :j%=r%|
|000005f0| 20 3a 78 24 3d 6e 61 6d | 65 24 28 28 6c 25 2b 72 | :x$=nam|e$((l%+r|
|00000600| 25 29 20 81 20 32 29 0d | 02 a8 05 f5 0d 02 b2 1f |%) . 2).|........|
|00000610| 20 20 c8 95 20 6e 61 6d | 65 24 28 69 25 29 3c 78 |  .. nam|e$(i%)<x|
|00000620| 24 20 3a 69 25 2b 3d 31 | 20 3a ce 0d 02 bc 1f 20 |$ :i%+=1| :..... |
|00000630| 20 c8 95 20 6e 61 6d 65 | 24 28 6a 25 29 3e 78 24 | .. name|$(j%)>x$|
|00000640| 20 3a 6a 25 2d 3d 31 20 | 3a ce 0d 02 c6 63 20 20 | :j%-=1 |:....c  |
|00000650| e7 20 69 25 3c 3d 6a 25 | 20 8c 20 c8 94 20 6e 61 |. i%<=j%| . .. na|
|00000660| 6d 65 24 28 69 25 29 2c | 6e 61 6d 65 24 28 6a 25 |me$(i%),|name$(j%|
|00000670| 29 20 3a c8 94 20 62 79 | 74 65 25 28 69 25 29 2c |) :.. by|te%(i%),|
|00000680| 62 79 74 65 25 28 6a 25 | 29 20 3a c8 94 20 6c 6f |byte%(j%|) :.. lo|
|00000690| 63 24 28 69 25 29 2c 6c | 6f 63 24 28 6a 25 29 20 |c$(i%),l|oc$(j%) |
|000006a0| 3a 69 25 2b 3d 31 20 3a | 6a 25 2d 3d 31 0d 02 d0 |:i%+=1 :|j%-=1...|
|000006b0| 0b fd 20 69 25 3e 6a 25 | 0d 02 da 1b e7 20 6c 25 |.. i%>j%|..... l%|
|000006c0| 3c 6a 25 20 8c 20 f2 5f | 53 6f 72 74 28 6c 25 2c |<j% . ._|Sort(l%,|
|000006d0| 6a 25 29 0d 02 e4 1b e7 | 20 69 25 3c 72 25 20 8c |j%).....| i%<r% .|
|000006e0| 20 f2 5f 53 6f 72 74 28 | 69 25 2c 72 25 29 0d 02 | ._Sort(|i%,r%)..|
|000006f0| ee 05 e1 0d 02 f8 04 0d | 03 02 2a 2d 2d 2d 2d 2d |........|..*-----|
|00000700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000720| 2d 0d 03 0c 2a 47 65 74 | 20 61 6c 6c 20 45 6e 74 |-...*Get| all Ent|
|00000730| 72 69 65 73 20 6f 66 20 | 61 20 63 65 72 74 61 69 |ries of |a certai|
|00000740| 6e 20 44 69 72 65 63 74 | 6f 72 79 0d 03 16 2a 2d |n Direct|ory...*-|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 2d 2d 2d 2d 2d 0d 03 20 | 13 dd 20 f2 5f 45 6e 74 |-----.. |.. ._Ent|
|00000780| 72 69 65 73 28 61 24 29 | 0d 03 2a 34 f1 20 22 53 |ries(a$)|..*4. "S|
|00000790| 63 61 6e 6e 69 6e 67 20 | 44 69 72 65 63 74 6f 72 |canning |Director|
|000007a0| 79 20 22 3b 64 69 72 24 | 2c 22 20 28 64 69 73 63 |y ";dir$|," (disc|
|000007b0| 20 22 3b 64 69 73 63 25 | 3b 22 29 22 0d 03 34 09 | ";disc%|;")"..4.|
|000007c0| 72 34 25 3d 30 0d 03 3e | 05 f5 0d 03 48 33 20 20 |r4%=0..>|....H3  |
|000007d0| c8 99 20 22 4f 53 5f 47 | 42 50 42 22 2c 31 30 2c |.. "OS_G|BPB",10,|
|000007e0| 61 24 2c 6d 65 6d 25 2c | 31 2c 72 34 25 2c 33 32 |a$,mem%,|1,r4%,32|
|000007f0| 20 b8 20 2c 2c 2c 72 33 | 25 2c 72 34 25 0d 03 52 | . ,,,r3|%,r4%..R|
|00000800| 0d 20 20 e7 20 72 33 25 | 20 8c 0d 03 5c 3f 20 20 |.  . r3%| ...\?  |
|00000810| 20 20 e3 20 6a 25 3d 32 | 30 20 b8 20 33 30 20 3a |  . j%=2|0 . 30 :|
|00000820| e7 20 6d 65 6d 25 3f 6a | 25 3e 33 31 20 8c 20 6e |. mem%?j|%>31 . n|
|00000830| 61 6d 65 24 28 74 6f 70 | 25 29 2b 3d bd 28 6d 65 |ame$(top|%)+=.(me|
|00000840| 6d 25 3f 6a 25 29 20 3a | ed 0d 03 66 1f 20 20 20 |m%?j%) :|...f.   |
|00000850| 20 e3 20 6c 25 3d 31 20 | b8 20 a9 28 6e 61 6d 65 | . l%=1 |. .(name|
|00000860| 24 28 74 6f 70 25 29 29 | 0d 03 70 22 20 20 20 20 |$(top%))|..p"    |
|00000870| 20 20 61 25 3d 97 28 c1 | 6e 61 6d 65 24 28 74 6f |  a%=.(.|name$(to|
|00000880| 70 25 29 2c 6c 25 2c 31 | 29 29 0d 03 7a 3b 20 20 |p%),l%,1|))..z;  |
|00000890| 20 20 20 20 e7 20 61 25 | 3e 3d 97 22 41 22 20 80 |    . a%|>=."A" .|
|000008a0| 20 61 25 3c 3d 97 22 5a | 22 20 8c 20 c1 6e 61 6d | a%<=."Z|" . .nam|
|000008b0| 65 24 28 74 6f 70 25 29 | 2c 6c 25 29 3d bd 28 61 |e$(top%)|,l%)=.(a|
|000008c0| 25 2b 33 32 29 0d 03 84 | 0c 20 20 20 20 ed 20 6c |%+32)...|.    . l|
|000008d0| 25 0d 03 8e 14 20 20 20 | 20 6c 65 6e 25 2b 3d 6d |%....   | len%+=m|
|000008e0| 65 6d 25 21 38 0d 03 98 | 1a 20 20 20 20 62 79 74 |em%!8...|.    byt|
|000008f0| 65 25 28 74 6f 70 25 29 | 3d 6d 65 6d 25 21 38 0d |e%(top%)|=mem%!8.|
|00000900| 03 a2 19 20 20 20 20 6c | 6f 63 24 28 74 6f 70 25 |...    l|oc$(top%|
|00000910| 29 3d bd 63 68 61 72 25 | 0d 03 ac 0f 20 20 20 20 |)=.char%|....    |
|00000920| 74 6f 70 25 2b 3d 31 0d | 03 b6 07 20 20 cd 0d 03 |top%+=1.|...  ...|
|00000930| c0 0c fd 20 72 34 25 3d | 2d 31 0d 03 ca 05 e1 0d |... r4%=|-1......|
|00000940| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+