home *** CD-ROM | disk | FTP | other *** search
/ The Electronic Whole Earth Catalog / ElectronicWholeEarthCatalog.img / MUSIC / card_224092.txt < prev    next >
Text File  |  1989-02-14  |  22KB  |  1,240 lines
  1. -- card: 224092 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 250640
  5. -- name: Contents
  6. ----- HyperTalk script -----
  7. -- do not remove
  8. -- cd Contents script
  9. on showMover
  10.   show btn "Put Article"
  11.   show btn "After"
  12.   show btn "PushMover"
  13.   show btn "To Other Stack"
  14.   show btn "Do It"
  15.   show btn "Un/Lock"
  16.   show bg fld "theMover"
  17.   show bg fld "theTarget"
  18. end showMover
  19.  
  20. on hideMover
  21.   hide btn "Put Article"
  22.   hide btn "After"
  23.   hide btn "PushMover"
  24.   hide btn "To Other Stack"
  25.   hide btn "Do It"
  26.   hide btn "Un/Lock"
  27.   hide bg fld "theMover"
  28.   hide bg fld "theTarget"
  29. end hideMover
  30.  
  31.  
  32.  
  33. -- part 50 (button)
  34. -- low flags: 80
  35. -- high flags: 8002
  36. -- rect: left=12 top=0 right=17 bottom=87
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: Put Article
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   put value( the selectedLine ) into bg field "theMover"
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 51 (button)
  53. -- low flags: 80
  54. -- high flags: 8002
  55. -- rect: left=12 top=20 right=38 bottom=53
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: After
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   put value( the selectedLine) into bg field "theTarget"
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 52 (button)
  72. -- low flags: 80
  73. -- high flags: 0000
  74. -- rect: left=380 top=0 right=31 bottom=404
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 2730 / 2730
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: pushMover
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   put bg field "theMover" into bg field "theTarget"
  86. end mouseUp
  87.  
  88.  
  89.  
  90. -- part 53 (button)
  91. -- low flags: 80
  92. -- high flags: A004
  93. -- rect: left=406 top=0 right=16 bottom=512
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: To Other Stack
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   global lastStack, stackList
  105.   put bkgnd field "theMover" into sourceTitle
  106.   if sourceTitle is empty then
  107.     beep
  108.     put "No Source Title given!"
  109.     exit mouseUp
  110.   end if
  111.   put bkgnd field "theTarget" into targetTitle
  112.   if targetTitle is empty then
  113.     --   beep
  114.     put "No Target Title given!"
  115.     --   exit mouseUp
  116.   end if
  117.   go to first card in background "Review"
  118.   find sourceTitle in bkgnd field "theTitle"
  119.   if the result is "not found" then
  120.     go to card "Contents"
  121.     beep
  122.     put "Source Title not found!" into msg
  123.     exit mouseUp
  124.   end if
  125.   put bkgnd field "theTitle" into sourceTitle2
  126.   put empty into sourceIds
  127.   repeat while sourceTitle2 is in bkgnd field "theTitle"
  128.     get the id of this card
  129.     put it & return after sourceIds
  130.     go to next card
  131.     if number of this card is 1 then exit repeat
  132.   end repeat
  133.   repeat
  134.     go to card "Contents"
  135.     answer "Found" && number of lines in sourceIds && "cards to move." with "Cancel" or "Review" or "OK"
  136.     if it is "Cancel" then exit mouseUp
  137.     if it is "OK" then exit repeat
  138.     repeat with thisID = 1 to number of lines in sourceIds
  139.       go to (line thisID of sourceIds)
  140.     end repeat
  141.   end repeat
  142.   -- start new code
  143.   repeat
  144.     Ask "Domain Number of target stack?" with lastStack
  145.     if it is empty then exit mouseUp
  146.     put it into targStackNum
  147.     if length( targStackNum ) < 2 then put "0" before targStackNum
  148.     put item it of stackList into targetStack
  149.     put it into lastStack
  150.     put id of this card into testID
  151.     push card
  152.     go to stack targetStack
  153.     if id of this card is testID then
  154.       beep
  155.       put "Stack not found"
  156.       pop card
  157.     else
  158.       exit repeat
  159.     end if
  160.   end repeat
  161.   go to first card in background "Review"
  162.   if targetTitle is empty then
  163.     go to last card
  164.     put field "theTitle" into targetTitle
  165.   else
  166.     find targetTitle in bkgnd field "theTitle"
  167.     if the result is "not found" then
  168.       go to card "Contents"
  169.       beep
  170.       put "Target Title not found!" into msg
  171.       pop card
  172.       exit mouseUp
  173.     end if
  174.   end if
  175.   put bkgnd field "theTitle" into targetTitle2
  176.   repeat while bkgnd field "theTitle" is targetTitle2
  177.     get the id of this card
  178.     put it into targetID
  179.     go to next card
  180.     if number of this card is 1 then exit repeat
  181.   end repeat
  182.   go to (targetId)
  183.   answer "Put them after this card?" with "Cancel" or "OK"
  184.   if it is "Cancel" then
  185.     pop card
  186.     exit mouseUp
  187.   end if
  188.  
  189.   pop card
  190.   -- now to actually move the cards
  191.   repeat with thisId = 1 to number of lines in sourceIds
  192.     put (line thisId of sourceIds) into srcCard
  193.     go to srcCard
  194.     lock screen
  195.     put the short name of this bkgnd into thisBkgnd
  196.     put getFields() into fieldCount
  197.     put "fc: " & fieldCount
  198.  
  199.     push card
  200.  
  201.     -- go get blank template card for this bg
  202.     do ("go to first card of bkgnd" && thisBkgnd && "of stack" && targetStack)
  203.     doMenu Copy Card
  204.     go to targetId
  205.     doMenu Paste Card
  206.     get the long id of this card
  207.     put it into targetId
  208.  
  209.     putFields fieldCount
  210.     put targetStack into bg field "theTopic"
  211.     put targStackNum & char 3 to length( field accession) of field accession into field accession
  212.  
  213.     if field "theIdent" is "access" then
  214.       if field surveyAccession is not empty then
  215.         put targStackNum & char 3 to length( field surveyAccession) of field surveyAccession into field surveyAccession
  216.       end if
  217.     end if
  218.     -- move graphic, if appropriate
  219.     if thisBkgnd is in "access,picture" then
  220.       pop card
  221.       -- horrible kluge...
  222.       -- make a speck on the card picture, so we never copy a blank pict
  223.       choose pencil tool
  224.       click at 280,180  -- where there's prob'ly some graphic already
  225.       -- we unmake the speck with another pencil click
  226.       -- our card looks the same as originally, but is guaranteed to
  227.       -- have a nonempty card picture
  228.       click at 280,180
  229.       choose select tool
  230.       domenu "Select All"
  231.       doMenu "Copy Picture"
  232.       push card
  233.       go to targetId
  234.       doMenu "Paste Picture"
  235.       choose browse tool
  236.       -- make it transparent in all cases EXCEPT when fullScreen picture
  237.       put no into decision
  238.       if thisBkgnd is "access"
  239.       then put yes into decision
  240.     else if thisBkgnd is "picture" then
  241.       -- put "fs: " & field "fullScreen"
  242.       if field "fullScreen" is empty
  243.       then put yes into decision
  244.     end if
  245.     if decision is "yes" then
  246.       choose select tool
  247.       domenu "Select All"
  248.       doMenu "transparent"
  249.       choose browse tool
  250.     end if
  251.   end if
  252.   unlock screen
  253.   pop card
  254. end repeat
  255.  
  256. -- update both TOC
  257. go to card "Contents"
  258. put offset (sourceTitle, bkgnd field "theContents") into sourceOff
  259. if sourceOff is 0 then
  260.   beep
  261.   put "Regenerate Contents of Source!"
  262. else
  263.   delete char sourceOff to (sourceOff + length(sourceTitle) - 1) of bkgnd field "theContents"
  264.   if char sourceOff of bkgnd field "theContents" is return then
  265.     delete char sourceOff of bkgnd field "theContents"
  266.   end if
  267.   if last char of sourceTitle is not return then put return after sourceTitle
  268. end if
  269. push card
  270. go to card "Contents" of stack targetStack
  271. put offset(targetTitle, bkgnd field "theContents") into targetOff
  272. if targetOff is 0 then
  273.   beep
  274.   put "Regenerate Contents of Target!"
  275.   pop card
  276.   exit mouseUp
  277. end if
  278. add length(targetTitle) to targetOff
  279. if char targetOff of bkgnd field "theContents" is return then add 1 to targetOff
  280. put sourceTitle before char targetOff of bkgnd field "theContents"
  281. pop card
  282. end mouseUp
  283.  
  284. function getFields
  285. global nameList
  286. global fContents
  287.  
  288. put empty into nameList
  289. put empty into fContents
  290.  
  291. put the number of bg fields into bgfc
  292. repeat with f = 1 to bgfc
  293.   put the name of bg field f & tab after nameList
  294.   put bg field f & tab after fContents
  295. end repeat
  296.  
  297. put the number of card fields into crdfc
  298. repeat with f = 1 to crdfc
  299.   put the name of card field f & tab after nameList
  300.   put card field f & tab after fContents
  301. end repeat
  302.  
  303. return bgfc + crdfc
  304. end getFields
  305.  
  306. on putFields fCounts
  307.   global nameList
  308.   global fContents
  309.  
  310.   put first item of fCounts into bgfc
  311.   put last item of fCounts into crdfc
  312.   repeat with f = 1 to bgfc
  313.     put pullName() into fName
  314.     put fName
  315.     do "put pullContents() into " & fName
  316.   end repeat
  317.  
  318. end putFields
  319.  
  320. function pullContents
  321. -- returns tab-delimited chunk from global fContents
  322. -- deletes it from global fContents, too
  323. global fContents
  324. put offset( tab, fContents ) into tabSpot
  325. if tabSpot > 0 then
  326.   get char 1 to tabSpot-1 of fContents
  327.   delete char 1 to tabSpot of fContents
  328.   return it
  329. end if
  330. return empty
  331. end pullContents
  332.  
  333. function pullName
  334. -- returns tab-delimited chunk from global nameList
  335. -- deletes it from global nameList, too
  336. global nameList
  337. put offset( tab, nameList ) into tabSpot
  338. if tabSpot > 0 then
  339.   get char 1 to tabSpot-1 of nameList
  340.   delete char 1 to tabSpot of nameList
  341.   return it
  342. end if
  343. return empty
  344. end pullName
  345.  
  346.  
  347.  
  348.  
  349. -- part 54 (button)
  350. -- low flags: 80
  351. -- high flags: A004
  352. -- rect: left=406 top=16 right=32 bottom=512
  353. -- title width / last selected line: 0
  354. -- icon id / first selected line: 0 / 0
  355. -- text alignment: 1
  356. -- font id: 0
  357. -- text size: 12
  358. -- style flags: 0
  359. -- line height: 16
  360. -- part name: Do It
  361. ----- HyperTalk script -----
  362. on mouseUp
  363.   put bkgnd field "theMover" into sourceTitle
  364.   if sourceTitle is empty then
  365.     beep
  366.     put "No Source Title given!"
  367.     exit mouseUp
  368.   end if
  369.   put bkgnd field "theTarget" into targetTitle
  370.   if targetTitle is empty then
  371.     beep
  372.     put "No Target Title given!"
  373.     exit mouseUp
  374.   end if
  375.   go to first card in background "Review"
  376.   find sourceTitle in bkgnd field "theTitle"
  377.   if the result is "not found" then
  378.     go to card "Contents"
  379.     beep
  380.     put "Source Title not found!" into msg
  381.     exit mouseUp
  382.   end if
  383.   put bkgnd field "theTitle" into sourceTitle2
  384.   put empty into sourceIds
  385.   repeat while sourceTitle2 is in bkgnd field "theTitle"
  386.     get the id of this card
  387.     put it & return after sourceIds
  388.     go to next card
  389.     if number of this card is 1 then exit repeat
  390.   end repeat
  391.   repeat
  392.     go to card "Contents"
  393.     answer "Found" && number of lines in sourceIds && "cards to move." with "Cancel" or "Review" or "OK"
  394.     if it is "Cancel" then exit mouseUp
  395.     if it is "OK" then exit repeat
  396.     repeat with thisID = 1 to number of lines in sourceIds
  397.       go to (line thisID of sourceIds)
  398.     end repeat
  399.   end repeat
  400.   go to first card in background "Review"
  401.   find targetTitle in bkgnd field "theTitle"
  402.   if the result is "not found" then
  403.     go to card "Contents"
  404.     beep
  405.     put "Target Title not found!" into msg
  406.     exit mouseUp
  407.   end if
  408.   put bkgnd field "theTitle" into targetTitle2
  409.   repeat while bkgnd field "theTitle" is targetTitle2
  410.     get the id of this card
  411.     put it into targetID
  412.     go to next card
  413.     if number of this card is 1 then exit repeat
  414.   end repeat
  415.   go to (targetId)
  416.   answer "Put them after this card?" with "Cancel" or "OK"
  417.   if it is "Cancel" then exit mouseUp
  418.   push card
  419.   repeat with thisId = 1 to number of lines in sourceIds
  420.     go to (line thisId of sourceIds)
  421.     doMenu Cut Card
  422.     pop card
  423.     doMenu Paste Card
  424.     push card
  425.   end repeat
  426.   pop card
  427.   go to card "Contents"
  428.   put offset (sourceTitle, bkgnd field "theContents") into sourceOff
  429.   if sourceOff is 0 then
  430.     beep
  431.     put "Regenerate Contents!"
  432.     exit mouseUp
  433.   end if
  434.   delete char sourceOff to (sourceOff + length(sourceTitle) - 1) of bkgnd field "theContents"
  435.   if char sourceOff of bkgnd field "theContents" is return then
  436.     delete char sourceOff of bkgnd field "theContents"
  437.   end if
  438.   if last char of sourceTitle is not return then put return after sourceTitle
  439.   put offset(targetTitle, bkgnd field "theContents") into targetOff
  440.   if targetOff is 0 then
  441.     beep
  442.     put "Regenerate Contents!"
  443.     exit mouseUp
  444.   end if
  445.   add length(targetTitle) to targetOff
  446.   if char targetOff of bkgnd field "theContents" is return then add 1 to targetOff
  447.   put sourceTitle before char targetOff of bkgnd field "theContents"
  448. end mouseUp
  449.  
  450.  
  451.  
  452. -- part 55 (button)
  453. -- low flags: 80
  454. -- high flags: A004
  455. -- rect: left=406 top=32 right=48 bottom=512
  456. -- title width / last selected line: 0
  457. -- icon id / first selected line: 0 / 0
  458. -- text alignment: 1
  459. -- font id: 0
  460. -- text size: 12
  461. -- style flags: 0
  462. -- line height: 16
  463. -- part name: Un/Lock
  464. ----- HyperTalk script -----
  465. on mouseUp
  466.   get the lockText of fld "theContents"
  467.   if it is false then
  468.     set the lockText of fld "theContents" to true
  469.   else
  470.     set the lockText of fld "theContents" to false
  471.   end if
  472. end mouseUp
  473.  
  474.  
  475.  
  476. -- part contents for background part 6
  477. ----- text -----
  478. Contents
  479.  
  480. -- part contents for background part 11
  481. ----- text -----
  482. Menu
  483.  
  484. -- part contents for background part 17
  485. ----- text -----
  486. MUSIC CONTENTS
  487.  
  488. -- part contents for background part 33
  489. ----- text -----
  490. card id 103605
  491. card id 267220
  492. card id 278889
  493. card id 188142
  494. card id 184552
  495. card id 301297
  496. card id 189120
  497. card id 12213
  498. card id 187716
  499. card id 164385
  500. card id 6682
  501. card id 174577
  502. card id 307187
  503. card id 185769
  504. card id 181466
  505. card id 176752
  506. card id 180061
  507. card id 204821
  508. card id 34945
  509. card id 302561
  510. card id 190195
  511. card id 172408
  512. card id 171204
  513. card id 169395
  514. card id 118145
  515. card id 141818
  516. card id 204496
  517. card id 185474
  518. card id 234246
  519. card id 234813
  520. card id 235551
  521. card id 237081
  522. card id 239131
  523. card id 105944
  524. card id 16390
  525. card id 39367
  526. card id 199122
  527. card id 41487
  528. card id 121037
  529. card id 192927
  530. card id 31655
  531. card id 123330
  532. card id 304163
  533. card id 304996
  534. card id 221359
  535. card id 279761
  536. card id 40698
  537. card id 191685
  538. card id 188476
  539. card id 183153
  540. card id 169031
  541. card id 306311
  542. card id 106261
  543. card id 280146
  544. card id 227721
  545. card id 193415
  546. card id 167327
  547. card id 194364
  548. card id 200605
  549. card id 198777
  550. card id 196307
  551. card id 198515
  552. card id 196419
  553. card id 194088
  554. card id 208735
  555. card id 313619
  556. card id 315144
  557. card id 225963
  558. card id 316851
  559. card id 207972
  560. card id 311365
  561. card id 206046
  562. card id 312096
  563. card id 313065
  564. card id 246828
  565. card id 308680
  566. card id 309017
  567. card id 166009
  568. card id 210068
  569. card id 122425
  570. card id 472969
  571. card id 282888
  572. card id 214388
  573. card id 14047
  574. card id 85270
  575. card id 78299
  576. card id 81196
  577. card id 82276
  578. card id 22588
  579. card id 58403
  580. card id 212528
  581. card id 26356
  582. card id 67723
  583. card id 83284
  584. card id 79146
  585. card id 84263
  586. card id 31174
  587. card id 224311
  588. card id 33775
  589. card id 222826
  590. card id 221492
  591. card id 219666
  592. card id 218523
  593. card id 217265
  594. card id 309848
  595. card id 162969
  596. card id 473224
  597. card id 247804
  598. card id 484084
  599. card id 41387
  600. card id 330596
  601. card id 351217
  602. card id 425963
  603. card id 329521
  604. card id 339889
  605. card id 140512
  606. card id 429079
  607. card id 441519
  608. card id 402016
  609. card id 2612
  610. card id 120724
  611. card id 140978
  612. card id 124509
  613. card id 185270
  614. card id 125739
  615. card id 250959
  616. card id 416208
  617. card id 397993
  618. card id 421270
  619. card id 411570
  620. card id 418407
  621. card id 423955
  622. card id 440013
  623. card id 132228
  624. card id 267567
  625. card id 427467
  626. card id 436694
  627. card id 434167
  628. card id 340375
  629. card id 136231
  630. card id 445609
  631. card id 443283
  632. card id 447349
  633. card id 139063
  634. card id 106547
  635. card id 248346
  636. card id 370773
  637. card id 390114
  638. card id 396366
  639. card id 382221
  640. card id 367629
  641. card id 142591
  642. card id 143760
  643. card id 248285
  644. card id 358507
  645. card id 146495
  646. card id 147803
  647. card id 363594
  648. card id 149477
  649. card id 150963
  650. card id 365680
  651. card id 250318
  652. card id 406105
  653. card id 408138
  654. card id 129642
  655. card id 153071
  656. card id 154278
  657. card id 156676
  658. card id 160730
  659. card id 404943
  660. card id 382957
  661. card id 449179
  662. card id 452436
  663. card id 457681
  664. card id 49448
  665. card id 355660
  666. card id 455033
  667. card id 434572
  668. card id 462004
  669. card id 162695
  670. card id 469583
  671. card id 468069
  672.  
  673.  
  674. -- part contents for background part 34
  675. ----- text -----
  676. 14110901
  677. 14018000
  678. 14018102
  679. 14018124
  680. 14018215
  681. 14018248
  682. 14018113
  683. 14111026
  684. 14018306
  685. 14111071
  686. 14018226
  687. 14111060
  688. 14018668
  689. 14018237
  690. 14111117
  691. 14111093
  692. 14111082
  693. 14018204
  694. 14018419
  695. 14018431
  696. 14018135
  697. 14111037
  698. 14111048
  699. 14111059
  700. 14101251
  701. 14101284
  702. 14111220
  703. 14101104
  704. 14057212
  705. 14101319
  706. 14057223
  707. 14057234
  708. 14057245
  709. 14109000
  710. 14018408
  711. 14018340
  712. 14018533
  713. 14018522
  714. 14018317
  715. 14108407
  716. 14018328
  717. 14018420
  718. 14018646
  719. 14109884
  720. 14109920
  721. 14018500
  722. 14018339
  723. 14111128
  724. 14111139
  725. 14111140
  726. 14018657
  727. 14114767
  728. 14108009
  729. 14018602
  730. 14111151
  731. 14113448
  732. 14018635
  733. 14111162
  734. 14111173
  735. 14111184
  736. 14109599
  737. 14109635
  738. 14111219
  739. 14111195
  740. 14018806
  741. 14018817
  742. 14018828
  743. 14111231
  744. 14018839
  745. 14018704
  746. 14018748
  747. 14111242
  748. 14018759
  749. 00000000
  750. 00000000
  751. 14018726
  752. 14113426
  753. 14113437
  754. 14111253
  755. 14111264
  756. 14019001
  757. 14019103
  758. 14111275
  759. 14019227
  760. 14019261
  761. 14019114
  762. 14019136
  763. 14019250
  764. 14019238
  765. 14019205
  766. 14111286
  767. 14019249
  768. 14019216
  769. 14019147
  770. 14019125
  771. 14019158
  772. 14018544
  773. 14101206
  774. 14018511
  775. 14111311
  776. 14111322
  777. 14111333
  778. 14101160
  779. 14111344
  780. 14018737
  781. 14018715
  782. 14020004
  783. 14020106
  784. 14020117
  785. 14020128
  786. 14020140
  787. 14020162
  788. 14020617
  789. 14020139
  790. 14020151
  791. 14108203
  792. 14020639
  793. 14020720
  794. 14020424
  795. 14101159
  796. 14101013
  797. 14108305
  798. 14110934
  799. 14012753
  800. 14110945
  801. 14020504
  802. 14020526
  803. 14020413
  804. 14020548
  805. 14020515
  806. 14020537
  807. 14020559
  808. 14020719
  809. 14110956
  810. 14020606
  811. 14020628
  812. 14020651
  813. 14020640
  814. 14020708
  815. 14101182
  816. 14020742
  817. 14020731
  818. 14020753
  819. 14110967
  820. 14110003
  821. 14020300
  822. 14020322
  823. 14020344
  824. 14020355
  825. 14020333
  826. 14020311
  827. 14110978
  828. 14110989
  829. 14020208
  830. 14020219
  831. 14101068
  832. 14101035
  833. 14020220
  834. 14101079
  835. 14101273
  836. 14020242
  837. 14020402
  838. 14020446
  839. 14020457
  840. 14109691
  841. 14101240
  842. 14101217
  843. 14101137
  844. 14111015
  845. 14020435
  846. 14020800
  847. 14020811
  848. 14020822
  849. 14020855
  850. 14109668
  851. 14109737
  852. 14020833
  853. 14020902
  854. 14020924
  855. 14101046
  856. 14020957
  857. 14020946
  858.  
  859.  
  860. -- part contents for background part 35
  861. ----- text -----
  862. 1
  863. 2
  864. 3
  865. 4
  866. 4
  867. 4
  868. 4
  869. 4
  870. 3
  871. 4
  872. 4
  873. 4
  874. 4
  875. 4
  876. 4
  877. 4
  878. 4
  879. 3
  880. 4
  881. 4
  882. 4
  883. 4
  884. 4
  885. 4
  886. 5
  887. 5
  888. 4
  889. 3
  890. 4
  891. 4
  892. 4
  893. 4
  894. 4
  895. 2
  896. 3
  897. 4
  898. 4
  899. 4
  900. 4
  901. 3
  902. 4
  903. 4
  904. 4
  905. 5
  906. 5
  907. 3
  908. 4
  909. 4
  910. 4
  911. 4
  912. 4
  913. 5
  914. 2
  915. 3
  916. 4
  917. 5
  918. 4
  919. 4
  920. 4
  921. 4
  922. 4
  923. 5
  924. 5
  925. 5
  926. 3
  927. 4
  928. 4
  929. 4
  930. 4
  931. 3
  932. 4
  933. 4
  934. 4
  935. 5
  936. 5
  937. 4
  938. 5
  939. 5
  940. 4
  941. 4
  942. 2
  943. 3
  944. 4
  945. 4
  946. 4
  947. 4
  948. 4
  949. 4
  950. 4
  951. 3
  952. 4
  953. 4
  954. 4
  955. 4
  956. 4
  957. 4
  958. 4
  959. 3
  960. 4
  961. 4
  962. 4
  963. 4
  964. 4
  965. 4
  966. 4
  967. 4
  968. 2
  969. 3
  970. 4
  971. 4
  972. 4
  973. 4
  974. 4
  975. 4
  976. 4
  977. 3
  978. 4
  979. 4
  980. 4
  981. 4
  982. 4
  983. 3
  984. 4
  985. 4
  986. 4
  987. 3
  988. 4
  989. 4
  990. 4
  991. 4
  992. 4
  993. 4
  994. 4
  995. 4
  996. 3
  997. 4
  998. 4
  999. 4
  1000. 3
  1001. 4
  1002. 4
  1003. 4
  1004. 4
  1005. 4
  1006. 2
  1007. 3
  1008. 4
  1009. 4
  1010. 4
  1011. 4
  1012. 4
  1013. 4
  1014. 4
  1015. 3
  1016. 4
  1017. 4
  1018. 4
  1019. 4
  1020. 4
  1021. 4
  1022. 4
  1023. 3
  1024. 4
  1025. 4
  1026. 4
  1027. 4
  1028. 4
  1029. 4
  1030. 4
  1031. 4
  1032. 3
  1033. 4
  1034. 4
  1035. 4
  1036. 4
  1037. 4
  1038. 4
  1039. 3
  1040. 4
  1041. 4
  1042. 4
  1043. 4
  1044.  
  1045.  
  1046. -- part contents for background part 18
  1047. ----- text -----
  1048. MUSIC
  1049.   LEARNING & EARNING
  1050.     Music Theory
  1051.       Basic Concepts in Music
  1052.       Introducing Music
  1053.       Uncle Van‚Äôs Chord Book
  1054.       Composing Music
  1055.       Musical Applications of Microprocessors
  1056.     Musical Culture
  1057.       The Art of Noises
  1058.       The Tuning of the World
  1059.       New Sounds
  1060.       The Art of Electronic Music
  1061.       Musics of Many Cultures
  1062.       African Music ‚Äî A People‚Äôs Art
  1063.       Black Music of Two Worlds
  1064.       Da Capo Guide to Contemporary African Music
  1065.     How To Play
  1066.       Homespun Tapes
  1067.       Homegrown Music
  1068.       Traditional American Folk Songs
  1069.       African Rhythm and African Sensibility
  1070.       The Complete Yamaha DX7II Book
  1071.       DIGITAL SAMPLER BOOKS
  1072.         The Sampling Book 
  1073.         Casio FZ-1 & FZ-10M
  1074.       Mix Bookshelf
  1075.     How To Make Some Money
  1076.       MUSIC BUSINESS INTRODUCTION
  1077.       This  Business Of Music
  1078.       Making Money Making Music
  1079.       How To Make And Sell Your Own Record
  1080.       Making Music
  1081.   PLAYING  
  1082.     Building Instruments
  1083.       The Luthier‚Äôs Mercantile
  1084.       Vibrations
  1085.       Sound Designs
  1086.       Musical Instruments of the World
  1087.     Buying Instruments
  1088.       Elderly Instruments
  1089.       The Guitar Owner‚Äôs Manual
  1090.       CHEAPEST SYNTHESIZERS
  1091.         Yamaha FB-01
  1092.         Casio Synthesizers
  1093.     Instruments
  1094.       Musical Saw
  1095.       The Stick
  1096.       Roland D-50  
  1097.       Yamaha DX-7 II
  1098.       DIGITAL SAMPLERS
  1099.         Casio Digital Samplers
  1100.   RECORDING
  1101.     MIDI
  1102.       MIDI INTRODUCTION
  1103.         The International MIDI Association
  1104.       MIDI for Musicians
  1105.       The MIDI Book
  1106.       Computer Literacy for Musicians
  1107.       Music Through MIDI
  1108.       The MIDI Reference Series
  1109.         The MIDI Resource Book
  1110.         The MIDI Implementation Book
  1111.         The MIDI System Exclusive Book 
  1112.     Studios
  1113.       Modern Recording Techniques
  1114.       How To Build A Small Budget Recording Studio
  1115.       Fostex X-30
  1116.       TEAC Tascam PortaOne
  1117.     Music Software
  1118.       CODA
  1119.       Listen!
  1120.       Jam Session ‚Ä¢ Studio Session
  1121.         Jam Session
  1122.         Studio Session
  1123.       Professional Composer ‚Ä¢ Performer
  1124.         Professional Composer
  1125.         Performer
  1126.       Alchemy
  1127.       MacRecorder
  1128.   MUSIC MAGAZINES
  1129.     Rock Magazines
  1130.       New Musical Express
  1131.       OPTION    
  1132.       Puncture
  1133.       Maximum Rock‚Äôn‚ÄôRoll
  1134.       Rock and Roll Confidential
  1135.       Goldmine
  1136.       Sound Choice
  1137.     Other Music Mags
  1138.       Pulse!
  1139.       Ear
  1140.       The Reggae and African Beat
  1141.       JazzTimes
  1142.       down beat
  1143.       Living Blues
  1144.       Unsound
  1145.     Technical Music Mags
  1146.       Experimental Musical Instruments
  1147.       Keyboard
  1148.       Music Technology
  1149.       Electronic Musician
  1150.       Home and Studio Recording
  1151.       Music, Computers and Software
  1152.       Computers & Music Quarterly
  1153.       Computer Music Journal
  1154.   RECORDINGS BY MAIL I
  1155.     Multi-faceted Distributors
  1156.       RECORDINGS BY MAIL INTRODUCTION
  1157.       Down Home Music, Inc.
  1158.       Ladyslipper
  1159.       Roundup Records
  1160.       Alcazar 
  1161.       Express Music Catalog 
  1162.       New Music Distribution Service
  1163.     Multi-faceted Labels
  1164.       Carthage Records 
  1165.       Folkways Records ‚Ä¢ Smithsonian Institution
  1166.       Gold Castle
  1167.       Redwood Records
  1168.       Windham Hill Records
  1169.     Children‚Äôs
  1170.       Educational Activities
  1171.       Educational Record Center
  1172.       Kimbo
  1173.     New Music & New Age
  1174.       Global Pacific Records
  1175.       Eurock
  1176.       New Albion Records 
  1177.       Backroads Distributors
  1178.       The Moss Music Group, Inc. 
  1179.       Syntonic Research, Inc. 
  1180.       Composers Recordings, Inc. (CRI) 
  1181.       Heartsong Review
  1182.     Folk
  1183.       Andy‚Äôs Front Hall 
  1184.       Green Linnet Music 
  1185.       Folk-Legacy Records
  1186.     Ethnic and Classical
  1187.       Seven Arrows
  1188.       Lyrichord Discs, Inc. 
  1189.       Global Village Music
  1190.       Musical Heritage Society 
  1191.       International Book and Records
  1192.   RECORDINGS BY MAIL II
  1193.     World Beat and Reggae
  1194.       Original Music
  1195.       Shanachie Records
  1196.       World Music Institute
  1197.       ras 
  1198.       Nighthawk Records 
  1199.       Stern‚Äôs
  1200.       Bow Wow
  1201.     Blues and Jazz
  1202.       Alligator Records 
  1203.       Blind Pig Records
  1204.       Hightone Records
  1205.       Back Forty Records 
  1206.       Stash Records
  1207.       Caravan of Dreams
  1208.       Jaybee Jazz
  1209.     Rock
  1210.       Rhino Records
  1211.       SST  
  1212.       Enigma Mailorder
  1213.       Subterranean Records
  1214.       Alternative Tentacles
  1215.       Mordam
  1216.       Blacklist Mailorder
  1217.       Midnight Records
  1218.     Exotically Modern
  1219.       CellulOid Records 
  1220.       Crammed Discs US
  1221.       Ralph Records 
  1222.       Reckless Records
  1223.       Nu-Tone Records
  1224.       Giorno Poetry Systems
  1225.     Tapes
  1226.       Music of the World
  1227.       ROM
  1228.       ROIR 
  1229.       Off Centaur Inc. 
  1230.  
  1231.  
  1232. -- part contents for background part 48
  1233. ----- text -----
  1234. ‚Ä¢ WHOLE EARTH
  1235.  ‚Ä¢ MUSIC
  1236.  
  1237. -- part contents for background part 49
  1238. ----- text -----
  1239. stack "WHOLE EARTH"
  1240. stack "MUSIC"