-- card: 224092 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 250640
-- name: Contents
----- HyperTalk script -----
-- do not remove
-- cd Contents script
on showMover
  show btn "Put Article"
  show btn "After"
  show btn "PushMover"
  show btn "To Other Stack"
  show btn "Do It"
  show btn "Un/Lock"
  show bg fld "theMover"
  show bg fld "theTarget"
end showMover

on hideMover
  hide btn "Put Article"
  hide btn "After"
  hide btn "PushMover"
  hide btn "To Other Stack"
  hide btn "Do It"
  hide btn "Un/Lock"
  hide bg fld "theMover"
  hide bg fld "theTarget"
end hideMover



-- part 50 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=12 top=0 right=17 bottom=87
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Put Article
----- HyperTalk script -----
on mouseUp
  put value( the selectedLine ) into bg field "theMover"
end mouseUp



-- part 51 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=12 top=20 right=38 bottom=53
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: After
----- HyperTalk script -----
on mouseUp
  put value( the selectedLine) into bg field "theTarget"
end mouseUp



-- part 52 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=380 top=0 right=31 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 2730 / 2730
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pushMover
----- HyperTalk script -----
on mouseUp
  put bg field "theMover" into bg field "theTarget"
end mouseUp



-- part 53 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=406 top=0 right=16 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Other Stack
----- HyperTalk script -----
on mouseUp
  global lastStack, stackList
  put bkgnd field "theMover" into sourceTitle
  if sourceTitle is empty then
    beep
    put "No Source Title given!"
    exit mouseUp
  end if
  put bkgnd field "theTarget" into targetTitle
  if targetTitle is empty then
    --   beep
    put "No Target Title given!"
    --   exit mouseUp
  end if
  go to first card in background "Review"
  find sourceTitle in bkgnd field "theTitle"
  if the result is "not found" then
    go to card "Contents"
    beep
    put "Source Title not found!" into msg
    exit mouseUp
  end if
  put bkgnd field "theTitle" into sourceTitle2
  put empty into sourceIds
  repeat while sourceTitle2 is in bkgnd field "theTitle"
    get the id of this card
    put it & return after sourceIds
    go to next card
    if number of this card is 1 then exit repeat
  end repeat
  repeat
    go to card "Contents"
    answer "Found" && number of lines in sourceIds && "cards to move." with "Cancel" or "Review" or "OK"
    if it is "Cancel" then exit mouseUp
    if it is "OK" then exit repeat
    repeat with thisID = 1 to number of lines in sourceIds
      go to (line thisID of sourceIds)
    end repeat
  end repeat
  -- start new code
  repeat
    Ask "Domain Number of target stack?" with lastStack
    if it is empty then exit mouseUp
    put it into targStackNum
    if length( targStackNum ) < 2 then put "0" before targStackNum
    put item it of stackList into targetStack
    put it into lastStack
    put id of this card into testID
    push card
    go to stack targetStack
    if id of this card is testID then
      beep
      put "Stack not found"
      pop card
    else
      exit repeat
    end if
  end repeat
  go to first card in background "Review"
  if targetTitle is empty then
    go to last card
    put field "theTitle" into targetTitle
  else
    find targetTitle in bkgnd field "theTitle"
    if the result is "not found" then
      go to card "Contents"
      beep
      put "Target Title not found!" into msg
      pop card
      exit mouseUp
    end if
  end if
  put bkgnd field "theTitle" into targetTitle2
  repeat while bkgnd field "theTitle" is targetTitle2
    get the id of this card
    put it into targetID
    go to next card
    if number of this card is 1 then exit repeat
  end repeat
  go to (targetId)
  answer "Put them after this card?" with "Cancel" or "OK"
  if it is "Cancel" then
    pop card
    exit mouseUp
  end if

  pop card
  -- now to actually move the cards
  repeat with thisId = 1 to number of lines in sourceIds
    put (line thisId of sourceIds) into srcCard
    go to srcCard
    lock screen
    put the short name of this bkgnd into thisBkgnd
    put getFields() into fieldCount
    put "fc: " & fieldCount

    push card

    -- go get blank template card for this bg
    do ("go to first card of bkgnd" && thisBkgnd && "of stack" && targetStack)
    doMenu Copy Card
    go to targetId
    doMenu Paste Card
    get the long id of this card
    put it into targetId

    putFields fieldCount
    put targetStack into bg field "theTopic"
    put targStackNum & char 3 to length( field accession) of field accession into field accession

    if field "theIdent" is "access" then
      if field surveyAccession is not empty then
        put targStackNum & char 3 to length( field surveyAccession) of field surveyAccession into field surveyAccession
      end if
    end if
    -- move graphic, if appropriate
    if thisBkgnd is in "access,picture" then
      pop card
      -- horrible kluge...
      -- make a speck on the card picture, so we never copy a blank pict
      choose pencil tool
      click at 280,180  -- where there's prob'ly some graphic already
      -- we unmake the speck with another pencil click
      -- our card looks the same as originally, but is guaranteed to
      -- have a nonempty card picture
      click at 280,180
      choose select tool
      domenu "Select All"
      doMenu "Copy Picture"
      push card
      go to targetId
      doMenu "Paste Picture"
      choose browse tool
      -- make it transparent in all cases EXCEPT when fullScreen picture
      put no into decision
      if thisBkgnd is "access"
      then put yes into decision
    else if thisBkgnd is "picture" then
      -- put "fs: " & field "fullScreen"
      if field "fullScreen" is empty
      then put yes into decision
    end if
    if decision is "yes" then
      choose select tool
      domenu "Select All"
      doMenu "transparent"
      choose browse tool
    end if
  end if
  unlock screen
  pop card
end repeat

-- update both TOC
go to card "Contents"
put offset (sourceTitle, bkgnd field "theContents") into sourceOff
if sourceOff is 0 then
  beep
  put "Regenerate Contents of Source!"
else
  delete char sourceOff to (sourceOff + length(sourceTitle) - 1) of bkgnd field "theContents"
  if char sourceOff of bkgnd field "theContents" is return then
    delete char sourceOff of bkgnd field "theContents"
  end if
  if last char of sourceTitle is not return then put return after sourceTitle
end if
push card
go to card "Contents" of stack targetStack
put offset(targetTitle, bkgnd field "theContents") into targetOff
if targetOff is 0 then
  beep
  put "Regenerate Contents of Target!"
  pop card
  exit mouseUp
end if
add length(targetTitle) to targetOff
if char targetOff of bkgnd field "theContents" is return then add 1 to targetOff
put sourceTitle before char targetOff of bkgnd field "theContents"
pop card
end mouseUp

function getFields
global nameList
global fContents

put empty into nameList
put empty into fContents

put the number of bg fields into bgfc
repeat with f = 1 to bgfc
  put the name of bg field f & tab after nameList
  put bg field f & tab after fContents
end repeat

put the number of card fields into crdfc
repeat with f = 1 to crdfc
  put the name of card field f & tab after nameList
  put card field f & tab after fContents
end repeat

return bgfc + crdfc
end getFields

on putFields fCounts
  global nameList
  global fContents

  put first item of fCounts into bgfc
  put last item of fCounts into crdfc
  repeat with f = 1 to bgfc
    put pullName() into fName
    put fName
    do "put pullContents() into " & fName
  end repeat

end putFields

function pullContents
-- returns tab-delimited chunk from global fContents
-- deletes it from global fContents, too
global fContents
put offset( tab, fContents ) into tabSpot
if tabSpot > 0 then
  get char 1 to tabSpot-1 of fContents
  delete char 1 to tabSpot of fContents
  return it
end if
return empty
end pullContents

function pullName
-- returns tab-delimited chunk from global nameList
-- deletes it from global nameList, too
global nameList
put offset( tab, nameList ) into tabSpot
if tabSpot > 0 then
  get char 1 to tabSpot-1 of nameList
  delete char 1 to tabSpot of nameList
  return it
end if
return empty
end pullName




-- part 54 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=406 top=16 right=32 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Do It
----- HyperTalk script -----
on mouseUp
  put bkgnd field "theMover" into sourceTitle
  if sourceTitle is empty then
    beep
    put "No Source Title given!"
    exit mouseUp
  end if
  put bkgnd field "theTarget" into targetTitle
  if targetTitle is empty then
    beep
    put "No Target Title given!"
    exit mouseUp
  end if
  go to first card in background "Review"
  find sourceTitle in bkgnd field "theTitle"
  if the result is "not found" then
    go to card "Contents"
    beep
    put "Source Title not found!" into msg
    exit mouseUp
  end if
  put bkgnd field "theTitle" into sourceTitle2
  put empty into sourceIds
  repeat while sourceTitle2 is in bkgnd field "theTitle"
    get the id of this card
    put it & return after sourceIds
    go to next card
    if number of this card is 1 then exit repeat
  end repeat
  repeat
    go to card "Contents"
    answer "Found" && number of lines in sourceIds && "cards to move." with "Cancel" or "Review" or "OK"
    if it is "Cancel" then exit mouseUp
    if it is "OK" then exit repeat
    repeat with thisID = 1 to number of lines in sourceIds
      go to (line thisID of sourceIds)
    end repeat
  end repeat
  go to first card in background "Review"
  find targetTitle in bkgnd field "theTitle"
  if the result is "not found" then
    go to card "Contents"
    beep
    put "Target Title not found!" into msg
    exit mouseUp
  end if
  put bkgnd field "theTitle" into targetTitle2
  repeat while bkgnd field "theTitle" is targetTitle2
    get the id of this card
    put it into targetID
    go to next card
    if number of this card is 1 then exit repeat
  end repeat
  go to (targetId)
  answer "Put them after this card?" with "Cancel" or "OK"
  if it is "Cancel" then exit mouseUp
  push card
  repeat with thisId = 1 to number of lines in sourceIds
    go to (line thisId of sourceIds)
    doMenu Cut Card
    pop card
    doMenu Paste Card
    push card
  end repeat
  pop card
  go to card "Contents"
  put offset (sourceTitle, bkgnd field "theContents") into sourceOff
  if sourceOff is 0 then
    beep
    put "Regenerate Contents!"
    exit mouseUp
  end if
  delete char sourceOff to (sourceOff + length(sourceTitle) - 1) of bkgnd field "theContents"
  if char sourceOff of bkgnd field "theContents" is return then
    delete char sourceOff of bkgnd field "theContents"
  end if
  if last char of sourceTitle is not return then put return after sourceTitle
  put offset(targetTitle, bkgnd field "theContents") into targetOff
  if targetOff is 0 then
    beep
    put "Regenerate Contents!"
    exit mouseUp
  end if
  add length(targetTitle) to targetOff
  if char targetOff of bkgnd field "theContents" is return then add 1 to targetOff
  put sourceTitle before char targetOff of bkgnd field "theContents"
end mouseUp



-- part 55 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=406 top=32 right=48 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Un/Lock
----- HyperTalk script -----
on mouseUp
  get the lockText of fld "theContents"
  if it is false then
    set the lockText of fld "theContents" to true
  else
    set the lockText of fld "theContents" to false
  end if
end mouseUp



-- part contents for background part 6
----- text -----
Contents

-- part contents for background part 11
----- text -----
Menu

-- part contents for background part 17
----- text -----
MUSIC CONTENTS

-- part contents for background part 33
----- text -----
card id 103605
card id 267220
card id 278889
card id 188142
card id 184552
card id 301297
card id 189120
card id 12213
card id 187716
card id 164385
card id 6682
card id 174577
card id 307187
card id 185769
card id 181466
card id 176752
card id 180061
card id 204821
card id 34945
card id 302561
card id 190195
card id 172408
card id 171204
card id 169395
card id 118145
card id 141818
card id 204496
card id 185474
card id 234246
card id 234813
card id 235551
card id 237081
card id 239131
card id 105944
card id 16390
card id 39367
card id 199122
card id 41487
card id 121037
card id 192927
card id 31655
card id 123330
card id 304163
card id 304996
card id 221359
card id 279761
card id 40698
card id 191685
card id 188476
card id 183153
card id 169031
card id 306311
card id 106261
card id 280146
card id 227721
card id 193415
card id 167327
card id 194364
card id 200605
card id 198777
card id 196307
card id 198515
card id 196419
card id 194088
card id 208735
card id 313619
card id 315144
card id 225963
card id 316851
card id 207972
card id 311365
card id 206046
card id 312096
card id 313065
card id 246828
card id 308680
card id 309017
card id 166009
card id 210068
card id 122425
card id 472969
card id 282888
card id 214388
card id 14047
card id 85270
card id 78299
card id 81196
card id 82276
card id 22588
card id 58403
card id 212528
card id 26356
card id 67723
card id 83284
card id 79146
card id 84263
card id 31174
card id 224311
card id 33775
card id 222826
card id 221492
card id 219666
card id 218523
card id 217265
card id 309848
card id 162969
card id 473224
card id 247804
card id 484084
card id 41387
card id 330596
card id 351217
card id 425963
card id 329521
card id 339889
card id 140512
card id 429079
card id 441519
card id 402016
card id 2612
card id 120724
card id 140978
card id 124509
card id 185270
card id 125739
card id 250959
card id 416208
card id 397993
card id 421270
card id 411570
card id 418407
card id 423955
card id 440013
card id 132228
card id 267567
card id 427467
card id 436694
card id 434167
card id 340375
card id 136231
card id 445609
card id 443283
card id 447349
card id 139063
card id 106547
card id 248346
card id 370773
card id 390114
card id 396366
card id 382221
card id 367629
card id 142591
card id 143760
card id 248285
card id 358507
card id 146495
card id 147803
card id 363594
card id 149477
card id 150963
card id 365680
card id 250318
card id 406105
card id 408138
card id 129642
card id 153071
card id 154278
card id 156676
card id 160730
card id 404943
card id 382957
card id 449179
card id 452436
card id 457681
card id 49448
card id 355660
card id 455033
card id 434572
card id 462004
card id 162695
card id 469583
card id 468069


-- part contents for background part 34
----- text -----
14110901
14018000
14018102
14018124
14018215
14018248
14018113
14111026
14018306
14111071
14018226
14111060
14018668
14018237
14111117
14111093
14111082
14018204
14018419
14018431
14018135
14111037
14111048
14111059
14101251
14101284
14111220
14101104
14057212
14101319
14057223
14057234
14057245
14109000
14018408
14018340
14018533
14018522
14018317
14108407
14018328
14018420
14018646
14109884
14109920
14018500
14018339
14111128
14111139
14111140
14018657
14114767
14108009
14018602
14111151
14113448
14018635
14111162
14111173
14111184
14109599
14109635
14111219
14111195
14018806
14018817
14018828
14111231
14018839
14018704
14018748
14111242
14018759
00000000
00000000
14018726
14113426
14113437
14111253
14111264
14019001
14019103
14111275
14019227
14019261
14019114
14019136
14019250
14019238
14019205
14111286
14019249
14019216
14019147
14019125
14019158
14018544
14101206
14018511
14111311
14111322
14111333
14101160
14111344
14018737
14018715
14020004
14020106
14020117
14020128
14020140
14020162
14020617
14020139
14020151
14108203
14020639
14020720
14020424
14101159
14101013
14108305
14110934
14012753
14110945
14020504
14020526
14020413
14020548
14020515
14020537
14020559
14020719
14110956
14020606
14020628
14020651
14020640
14020708
14101182
14020742
14020731
14020753
14110967
14110003
14020300
14020322
14020344
14020355
14020333
14020311
14110978
14110989
14020208
14020219
14101068
14101035
14020220
14101079
14101273
14020242
14020402
14020446
14020457
14109691
14101240
14101217
14101137
14111015
14020435
14020800
14020811
14020822
14020855
14109668
14109737
14020833
14020902
14020924
14101046
14020957
14020946


-- part contents for background part 35
----- text -----
1
2
3
4
4
4
4
4
3
4
4
4
4
4
4
4
4
3
4
4
4
4
4
4
5
5
4
3
4
4
4
4
4
2
3
4
4
4
4
3
4
4
4
5
5
3
4
4
4
4
4
5
2
3
4
5
4
4
4
4
4
5
5
5
3
4
4
4
4
3
4
4
4
5
5
4
5
5
4
4
2
3
4
4
4
4
4
4
4
3
4
4
4
4
4
4
4
3
4
4
4
4
4
4
4
4
2
3
4
4
4
4
4
4
4
3
4
4
4
4
4
3
4
4
4
3
4
4
4
4
4
4
4
4
3
4
4
4
3
4
4
4
4
4
2
3
4
4
4
4
4
4
4
3
4
4
4
4
4
4
4
3
4
4
4
4
4
4
4
4
3
4
4
4
4
4
4
3
4
4
4
4


-- part contents for background part 18
----- text -----
MUSIC
  LEARNING & EARNING
    Music Theory
      Basic Concepts in Music
      Introducing Music
      Uncle Van’s Chord Book
      Composing Music
      Musical Applications of Microprocessors
    Musical Culture
      The Art of Noises
      The Tuning of the World
      New Sounds
      The Art of Electronic Music
      Musics of Many Cultures
      African Music — A People’s Art
      Black Music of Two Worlds
      Da Capo Guide to Contemporary African Music
    How To Play
      Homespun Tapes
      Homegrown Music
      Traditional American Folk Songs
      African Rhythm and African Sensibility
      The Complete Yamaha DX7II Book
      DIGITAL SAMPLER BOOKS
        The Sampling Book 
        Casio FZ-1 & FZ-10M
      Mix Bookshelf
    How To Make Some Money
      MUSIC BUSINESS INTRODUCTION
      This  Business Of Music
      Making Money Making Music
      How To Make And Sell Your Own Record
      Making Music
  PLAYING  
    Building Instruments
      The Luthier’s Mercantile
      Vibrations
      Sound Designs
      Musical Instruments of the World
    Buying Instruments
      Elderly Instruments
      The Guitar Owner’s Manual
      CHEAPEST SYNTHESIZERS
        Yamaha FB-01
        Casio Synthesizers
    Instruments
      Musical Saw
      The Stick
      Roland D-50  
      Yamaha DX-7 II
      DIGITAL SAMPLERS
        Casio Digital Samplers
  RECORDING
    MIDI
      MIDI INTRODUCTION
        The International MIDI Association
      MIDI for Musicians
      The MIDI Book
      Computer Literacy for Musicians
      Music Through MIDI
      The MIDI Reference Series
        The MIDI Resource Book
        The MIDI Implementation Book
        The MIDI System Exclusive Book 
    Studios
      Modern Recording Techniques
      How To Build A Small Budget Recording Studio
      Fostex X-30
      TEAC Tascam PortaOne
    Music Software
      CODA
      Listen!
      Jam Session • Studio Session
        Jam Session
        Studio Session
      Professional Composer • Performer
        Professional Composer
        Performer
      Alchemy
      MacRecorder
  MUSIC MAGAZINES
    Rock Magazines
      New Musical Express
      OPTION    
      Puncture
      Maximum Rock’n’Roll
      Rock and Roll Confidential
      Goldmine
      Sound Choice
    Other Music Mags
      Pulse!
      Ear
      The Reggae and African Beat
      JazzTimes
      down beat
      Living Blues
      Unsound
    Technical Music Mags
      Experimental Musical Instruments
      Keyboard
      Music Technology
      Electronic Musician
      Home and Studio Recording
      Music, Computers and Software
      Computers & Music Quarterly
      Computer Music Journal
  RECORDINGS BY MAIL I
    Multi-faceted Distributors
      RECORDINGS BY MAIL INTRODUCTION
      Down Home Music, Inc.
      Ladyslipper
      Roundup Records
      Alcazar 
      Express Music Catalog 
      New Music Distribution Service
    Multi-faceted Labels
      Carthage Records 
      Folkways Records • Smithsonian Institution
      Gold Castle
      Redwood Records
      Windham Hill Records
    Children’s
      Educational Activities
      Educational Record Center
      Kimbo
    New Music & New Age
      Global Pacific Records
      Eurock
      New Albion Records 
      Backroads Distributors
      The Moss Music Group, Inc. 
      Syntonic Research, Inc. 
      Composers Recordings, Inc. (CRI) 
      Heartsong Review
    Folk
      Andy’s Front Hall 
      Green Linnet Music 
      Folk-Legacy Records
    Ethnic and Classical
      Seven Arrows
      Lyrichord Discs, Inc. 
      Global Village Music
      Musical Heritage Society 
      International Book and Records
  RECORDINGS BY MAIL II
    World Beat and Reggae
      Original Music
      Shanachie Records
      World Music Institute
      ras 
      Nighthawk Records 
      Stern’s
      Bow Wow
    Blues and Jazz
      Alligator Records 
      Blind Pig Records
      Hightone Records
      Back Forty Records 
      Stash Records
      Caravan of Dreams
      Jaybee Jazz
    Rock
      Rhino Records
      SST  
      Enigma Mailorder
      Subterranean Records
      Alternative Tentacles
      Mordam
      Blacklist Mailorder
      Midnight Records
    Exotically Modern
      CellulOid Records 
      Crammed Discs US
      Ralph Records 
      Reckless Records
      Nu-Tone Records
      Giorno Poetry Systems
    Tapes
      Music of the World
      ROM
      ROIR 
      Off Centaur Inc. 


-- part contents for background part 48
----- text -----
• WHOLE EARTH
 • MUSIC

-- part contents for background part 49
----- text -----
stack "WHOLE EARTH"
stack "MUSIC"