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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 57 | 69 70 65 52 65 73 74 0d |..... >W|ipeRest.|
|00000010| 00 14 26 f4 20 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 0d 00 1e | 05 f4 0d 00 28 24 f4 20 |-----...|....($. |
|00000040| 20 20 55 4e 55 53 45 44 | 20 49 4e 53 54 52 55 4d |  UNUSED| INSTRUM|
|00000050| 45 4e 54 20 57 49 50 45 | 52 20 76 31 2e 31 0d 00 |ENT WIPE|R v1.1..|
|00000060| 32 05 f4 0d 00 3c 25 f4 | 20 20 28 63 29 20 44 65 |2....<%.|  (c) De|
|00000070| 63 65 6d 62 65 72 20 31 | 39 39 30 20 62 79 20 50 |cember 1|990 by P|
|00000080| 6c 61 79 66 69 65 6c 64 | 0d 00 46 05 f4 0d 00 50 |layfield|..F....P|
|00000090| 25 f4 20 20 4c 61 74 65 | 73 74 20 72 65 76 69 73 |%.  Late|st revis|
|000000a0| 69 6f 6e 20 20 2d 20 30 | 33 20 4d 61 72 20 31 39 |ion  - 0|3 Mar 19|
|000000b0| 39 31 0d 00 5a 05 f4 0d | 00 64 26 f4 20 2d 2d 2d |91..Z...|.d&. ---|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 00 6e |--------|-----..n|
|000000e0| 04 0d 00 78 32 2a 52 4d | 45 6e 73 75 72 65 20 50 |...x2*RM|Ensure P|
|000000f0| 61 63 6b 69 74 20 31 2e | 35 30 20 52 4d 4c 6f 61 |ackit 1.|50 RMLoa|
|00000100| 64 20 21 43 6f 63 6f 6e | 69 7a 65 72 2e 50 61 63 |d !Cocon|izer.Pac|
|00000110| 6b 69 74 0d 00 82 04 0d | 00 8c 34 de 20 6e 61 6d |kit.....|..4. nam|
|00000120| 65 24 28 32 30 30 32 29 | 2c 6c 6f 63 24 28 32 30 |e$(2002)|,loc$(20|
|00000130| 30 32 29 2c 75 73 65 64 | 25 28 32 30 30 32 29 2c |02),used|%(2002),|
|00000140| 77 69 70 65 24 28 32 30 | 30 32 29 0d 00 96 14 de |wipe$(20|02).....|
|00000150| 20 54 72 61 63 6b 20 32 | 35 36 2a 31 30 32 34 0d | Track 2|56*1024.|
|00000160| 00 a0 04 0d 00 aa 0a 70 | 6f 73 25 3d 30 0d 00 b4 |.......p|os%=0...|
|00000170| 13 66 25 3d 8e 20 22 6c | 6f 63 61 74 69 6f 6e 22 |.f%=. "l|ocation"|
|00000180| 0d 00 be 46 e7 20 66 25 | 3d 30 20 f1 27 22 43 41 |...F. f%|=0 .'"CA|
|00000190| 4e 27 54 20 46 49 4e 44 | 20 46 49 4c 45 20 22 22 |N'T FIND| FILE ""|
|000001a0| 4c 4f 43 41 54 49 4f 4e | 22 22 2e 20 50 4c 45 41 |LOCATION|"". PLEA|
|000001b0| 53 45 20 43 48 45 43 4b | 20 50 52 45 53 45 4e 43 |SE CHECK| PRESENC|
|000001c0| 45 2e 22 20 3a e0 0d 00 | c8 0d c8 95 20 ac 20 c5 |E." :...|.... . .|
|000001d0| 23 66 25 0d 00 d2 0d 20 | 20 70 6f 73 25 2b 3d 31 |#f%.... | pos%+=1|
|000001e0| 0d 00 dc 2e 20 20 6e 61 | 6d 65 24 28 70 6f 73 25 |....  na|me$(pos%|
|000001f0| 29 3d be 23 66 25 3a e8 | 23 66 25 2c 69 25 3a 6c |)=.#f%:.|#f%,i%:l|
|00000200| 6f 63 24 28 70 6f 73 25 | 29 3d be 23 66 25 0d 00 |oc$(pos%|)=.#f%..|
|00000210| e6 05 ce 0d 00 f0 08 d9 | 23 66 25 0d 00 fa 04 0d |........|#f%.....|
|00000220| 01 04 08 ef 20 31 35 0d | 01 0e 05 f5 0d 01 18 4a |.... 15.|.......J|
|00000230| 20 20 e8 27 22 50 6c 65 | 61 73 65 20 65 6e 74 65 |  .'"Ple|ase ente|
|00000240| 72 20 53 6f 6e 67 20 44 | 69 72 20 74 6f 20 73 65 |r Song D|ir to se|
|00000250| 61 72 63 68 20 73 6f 6e | 67 73 20 66 6f 72 20 5b |arch son|gs for [|
|00000260| 52 45 54 55 52 4e 3d 46 | 69 6e 69 5d 20 3a 20 22 |RETURN=F|ini] : "|
|00000270| 70 61 74 68 24 27 0d 01 | 22 13 20 20 e7 20 70 61 |path$'..|".  . pa|
|00000280| 74 68 24 3c 3e 22 22 20 | 8c 0d 01 2c 12 20 20 20 |th$<>"" |...,.   |
|00000290| 20 66 25 3d 8e 20 70 61 | 74 68 24 0d 01 36 40 20 | f%=. pa|th$..6@ |
|000002a0| 20 20 20 e7 20 66 25 3d | 30 20 8c 20 f1 20 22 43 |   . f%=|0 . . "C|
|000002b0| 41 4e 27 54 20 46 49 4e | 44 20 22 3b 70 61 74 68 |AN'T FIN|D ";path|
|000002c0| 24 3b 22 20 21 20 50 6c | 65 61 73 65 20 72 65 74 |$;" ! Pl|ease ret|
|000002d0| 72 79 2e 22 3a e5 20 8d | 54 58 41 0d 01 40 0c 20 |ry.":. .|TXA..@. |
|000002e0| 20 20 20 d9 23 66 25 0d | 01 4a 04 0d 01 54 26 20 |   .#f%.|.J...T& |
|000002f0| 20 20 20 ff 20 22 65 6e | 75 6d 64 69 72 20 22 2b |   . "en|umdir "+|
|00000300| 70 61 74 68 24 2b 22 20 | 72 61 6d 3a 54 65 6d 70 |path$+" |ram:Temp|
|00000310| 22 0d 01 5e 17 20 20 20 | 20 66 25 3d 8e 20 22 72 |"..^.   | f%=. "r|
|00000320| 61 6d 3a 54 65 6d 70 22 | 0d 01 68 04 0d 01 72 11 |am:Temp"|..h...r.|
|00000330| 20 20 20 20 c8 95 20 ac | 20 c5 23 66 25 0d 01 7c |    .. .| .#f%..||
|00000340| 14 20 20 20 20 20 20 73 | 6f 6e 67 24 3d be 23 66 |.      s|ong$=.#f|
|00000350| 25 0d 01 86 39 20 20 20 | 20 20 20 f1 20 22 43 75 |%...9   |   . "Cu|
|00000360| 72 72 65 6e 74 20 73 6f | 6e 67 20 69 73 3a 20 22 |rrent so|ng is: "|
|00000370| 3b 73 6f 6e 67 24 3b 3a | 61 24 3d 70 61 74 68 24 |;song$;:|a$=path$|
|00000380| 2b 22 2e 22 2b 73 6f 6e | 67 24 0d 01 90 11 20 20 |+"."+son|g$....  |
|00000390| 20 20 20 20 74 25 3d 8e | 20 61 24 0d 01 9a 39 20 |    t%=.| a$...9 |
|000003a0| 20 20 20 20 20 62 31 3d | 9a 23 74 25 3a 62 32 3d |     b1=|.#t%:b2=|
|000003b0| 9a 23 74 25 3a 62 33 3d | 9a 23 74 25 3a 62 34 3d |.#t%:b3=|.#t%:b4=|
|000003c0| 9a 23 74 25 3a 62 35 3d | 9a 23 74 25 3a 62 36 3d |.#t%:b5=|.#t%:b6=|
|000003d0| 9a 23 74 25 0d 01 a4 0e | 20 20 20 20 20 20 d9 23 |.#t%....|      .#|
|000003e0| 74 25 0d 01 ae 19 20 20 | 20 20 20 20 e7 20 62 34 |t%....  |    . b4|
|000003f0| 3d 30 20 80 20 62 35 3e | 30 20 8c 0d 01 b8 28 20 |=0 . b5>|0 ....( |
|00000400| 20 20 20 20 20 20 20 ff | 20 22 50 61 63 6b 4c 6f |       .| "PackLo|
|00000410| 61 64 20 22 2b 61 24 2b | 22 20 22 2b c3 7e 54 72 |ad "+a$+|" "+.~Tr|
|00000420| 61 63 6b 0d 01 c2 0b 20 | 20 20 20 20 20 cc 0d 01 |ack.... |     ...|
|00000430| cc 24 20 20 20 20 20 20 | 20 20 ff 20 22 4c 6f 61 |.$      |  . "Loa|
|00000440| 64 20 22 2b 61 24 2b 22 | 20 22 2b c3 7e 54 72 61 |d "+a$+"| "+.~Tra|
|00000450| 63 6b 0d 01 d6 0b 20 20 | 20 20 20 20 cd 0d 01 e0 |ck....  |    ....|
|00000460| 24 20 20 20 20 20 20 f1 | 20 8a 32 38 29 2c 54 72 |$      .| .28),Tr|
|00000470| 61 63 6b 3f 32 31 3b 22 | 20 73 61 6d 70 6c 65 73 |ack?21;"| samples|
|00000480| 22 0d 01 ea 1b 20 20 20 | 20 20 20 e3 20 69 25 3d |"....   |   . i%=|
|00000490| 31 20 b8 20 54 72 61 63 | 6b 3f 32 31 0d 01 f4 23 |1 . Trac|k?21...#|
|000004a0| 20 20 20 20 20 20 20 20 | 69 6e 73 74 24 3d 24 28 |        |inst$=$(|
|000004b0| 54 72 61 63 6b 2b 69 25 | 2a 33 32 2b 32 30 29 0d |Track+i%|*32+20).|
|000004c0| 01 fe 40 20 20 20 20 20 | 20 20 20 e3 20 6a 25 3d |..@     |   . j%=|
|000004d0| 31 20 b8 20 70 6f 73 25 | 3a e7 20 69 6e 73 74 24 |1 . pos%|:. inst$|
|000004e0| 3c 3e 6e 61 6d 65 24 28 | 6a 25 29 20 ed 20 6a 25 |<>name$(|j%) . j%|
|000004f0| 20 8b 20 75 73 65 64 25 | 28 6a 25 29 2b 3d 31 0d | . used%|(j%)+=1.|
|00000500| 02 08 0e 20 20 20 20 20 | 20 ed 20 69 25 0d 02 12 |...     | . i%...|
|00000510| 09 20 20 20 20 ce 0d 02 | 1c 04 0d 02 26 0c 20 20 |.    ...|....&.  |
|00000520| 20 20 d9 23 66 25 0d 02 | 30 07 20 20 cd 0d 02 3a |  .#f%..|0.  ...:|
|00000530| 0e fd 20 70 61 74 68 24 | 3d 22 22 0d 02 44 04 0d |.. path$|=""..D..|
|00000540| 02 4e 1f f1 27 22 55 6e | 75 73 65 64 20 69 6e 73 |.N..'"Un|used ins|
|00000550| 74 72 75 6d 65 6e 74 73 | 20 61 72 65 3a 22 0d 02 |truments| are:"..|
|00000560| 58 0a 64 65 6c 25 3d 30 | 0d 02 62 11 e3 20 69 25 |X.del%=0|..b.. i%|
|00000570| 3d 31 20 b8 20 70 6f 73 | 25 0d 02 6c 15 20 20 e7 |=1 . pos|%..l.  .|
|00000580| 20 75 73 65 64 25 28 69 | 25 29 3d 30 20 8c 0d 02 | used%(i|%)=0 ...|
|00000590| 76 0f 20 20 20 20 64 65 | 6c 25 2b 3d 31 0d 02 80 |v.    de|l%+=1...|
|000005a0| 31 20 20 20 20 77 69 70 | 65 24 28 64 65 6c 25 29 |1    wip|e$(del%)|
|000005b0| 3d 22 49 6e 73 74 22 2b | 6c 6f 63 24 28 69 25 29 |="Inst"+|loc$(i%)|
|000005c0| 2b 22 2e 22 2b 6e 61 6d | 65 24 28 69 25 29 0d 02 |+"."+nam|e$(i%)..|
|000005d0| 8a 15 20 20 20 20 f1 20 | 77 69 70 65 24 28 64 65 |..    . |wipe$(de|
|000005e0| 6c 25 29 0d 02 94 07 20 | 20 cd 0d 02 9e 08 ed 20 |l%).... | ...... |
|000005f0| 69 25 0d 02 a8 12 f2 5f | 53 6f 72 74 28 31 2c 64 |i%....._|Sort(1,d|
|00000600| 65 6c 25 29 0d 02 b2 04 | 0d 02 bc 46 f1 27 22 44 |el%)....|...F.'"D|
|00000610| 6f 20 79 6f 75 20 72 65 | 61 6c 6c 79 20 77 61 6e |o you re|ally wan|
|00000620| 74 20 74 6f 20 77 69 70 | 65 20 74 68 65 6d 20 28 |t to wip|e them (|
|00000630| 59 2f 4e 29 20 3f 20 22 | 3b 20 3a c8 99 20 22 4f |Y/N) ? "|; :.. "O|
|00000640| 53 5f 43 6f 6e 66 69 72 | 6d 22 20 b8 20 6b 0d 02 |S_Confir|m" . k..|
|00000650| c6 05 f1 0d 02 d0 0e e7 | 20 6b 3d 97 22 79 22 20 |........| k=."y" |
|00000660| 8c 0d 02 da 27 20 20 f1 | 27 22 57 69 70 69 6e 67 |....'  .|'"Wiping|
|00000670| 20 75 6e 75 73 65 64 20 | 73 61 6d 70 6c 65 20 66 | unused |sample f|
|00000680| 69 6c 65 73 2e 2e 2e 22 | 0d 02 e4 13 20 20 e3 20 |iles..."|....  . |
|00000690| 69 25 3d 31 20 b8 20 64 | 65 6c 25 0d 02 ee 14 20 |i%=1 . d|el%.... |
|000006a0| 20 20 20 61 24 3d 77 69 | 70 65 24 28 69 25 29 0d |   a$=wi|pe$(i%).|
|000006b0| 02 f8 0f 20 20 20 20 66 | 25 3d 8e 20 61 24 0d 03 |...    f|%=. a$..|
|000006c0| 02 0e 20 20 20 20 e7 20 | 66 25 20 8c 0d 03 0c 0e |..    . |f% .....|
|000006d0| 20 20 20 20 20 20 d9 23 | 66 25 0d 03 16 1e 20 20 |      .#|f%....  |
|000006e0| 20 20 20 20 f1 20 61 24 | 20 3a ff 20 22 44 65 6c |    . a$| :. "Del|
|000006f0| 65 74 65 20 22 2b 61 24 | 0d 03 20 09 20 20 20 20 |ete "+a$|.. .    |
|00000700| cc 0d 03 2a 25 20 20 20 | 20 20 20 64 69 73 63 25 |...*%   |   disc%|
|00000710| 3d 28 97 28 c1 61 24 2c | 35 29 29 2d 36 35 29 20 |=(.(.a$,|5))-65) |
|00000720| 81 20 32 20 2b 31 0d 03 | 34 37 20 20 20 20 20 20 |. 2 +1..|47      |
|00000730| f1 27 bd 37 3b 22 50 4c | 45 41 53 45 20 49 4e 53 |.'.7;"PL|EASE INS|
|00000740| 45 52 54 20 53 41 4d 50 | 4c 45 20 44 49 53 43 20 |ERT SAMP|LE DISC |
|00000750| 22 3b 64 69 73 63 25 20 | 3a 61 24 3d be 0d 03 3e |";disc% |:a$=...>|
|00000760| 22 20 20 20 20 20 20 69 | 25 2d 3d 31 20 3a f4 20 |"      i|%-=1 :. |
|00000770| 53 6f 72 72 79 20 47 75 | 74 74 6f 72 6d 2e 2e 0d |Sorry Gu|ttorm...|
|00000780| 03 48 09 20 20 20 20 cd | 0d 03 52 0a 20 20 ed 20 |.H.    .|..R.  . |
|00000790| 69 25 0d 03 5c 05 cd 0d | 03 66 17 ff 20 22 72 65 |i%..\...|.f.. "re|
|000007a0| 6d 6f 76 65 20 72 61 6d | 3a 54 65 6d 70 22 0d 03 |move ram|:Temp"..|
|000007b0| 70 05 e0 0d 03 7a 04 0d | 03 84 04 0d 03 8e 17 2d |p....z..|.......-|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007d0| 2d 2d 0d 03 98 17 51 75 | 69 63 6b 73 6f 72 74 20 |--....Qu|icksort |
|000007e0| 41 6c 67 6f 72 69 74 68 | 6d 0d 03 a2 17 2d 2d 2d |Algorith|m....---|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000800| 0d 03 ac 13 dd 20 f2 5f | 53 6f 72 74 28 6c 25 2c |..... ._|Sort(l%,|
|00000810| 72 25 29 0d 03 b6 0e ea | 20 69 25 2c 6a 25 2c 78 |r%).....| i%,j%,x|
|00000820| 24 0d 03 c0 27 69 25 3d | 6c 25 20 3a 6a 25 3d 72 |$...'i%=|l% :j%=r|
|00000830| 25 20 3a 78 24 3d 77 69 | 70 65 24 28 28 6c 25 2b |% :x$=wi|pe$((l%+|
|00000840| 72 25 29 20 81 20 32 29 | 0d 03 ca 05 f5 0d 03 d4 |r%) . 2)|........|
|00000850| 1f 20 20 c8 95 20 77 69 | 70 65 24 28 69 25 29 3c |.  .. wi|pe$(i%)<|
|00000860| 78 24 20 3a 69 25 2b 3d | 31 20 3a ce 0d 03 de 1f |x$ :i%+=|1 :.....|
|00000870| 20 20 c8 95 20 77 69 70 | 65 24 28 6a 25 29 3e 78 |  .. wip|e$(j%)>x|
|00000880| 24 20 3a 6a 25 2d 3d 31 | 20 3a ce 0d 03 e8 35 20 |$ :j%-=1| :....5 |
|00000890| 20 e7 20 69 25 3c 3d 6a | 25 20 8c 20 c8 94 20 77 | . i%<=j|% . .. w|
|000008a0| 69 70 65 24 28 69 25 29 | 2c 77 69 70 65 24 28 6a |ipe$(i%)|,wipe$(j|
|000008b0| 25 29 20 3a 69 25 2b 3d | 31 20 3a 6a 25 2d 3d 31 |%) :i%+=|1 :j%-=1|
|000008c0| 0d 03 f2 0b fd 20 69 25 | 3e 6a 25 0d 03 fc 1b e7 |..... i%|>j%.....|
|000008d0| 20 6c 25 3c 6a 25 20 8c | 20 f2 5f 53 6f 72 74 28 | l%<j% .| ._Sort(|
|000008e0| 6c 25 2c 6a 25 29 0d 04 | 06 1b e7 20 69 25 3c 72 |l%,j%)..|... i%<r|
|000008f0| 25 20 8c 20 f2 5f 53 6f | 72 74 28 69 25 2c 72 25 |% . ._So|rt(i%,r%|
|00000900| 29 0d 04 10 05 e1 0d ff |                         |).......|        |
+--------+-------------------------+-------------------------+--------+--------+