[from-internal]

exten => 1000,1,Answer()
same => n,Wait(1)
same => n,Goto(firstlevel,s,1)
same => n,Hangup()

exten => 1002,1,Answer()
same => n,Wait(1)
same => n,Goto(firstlevel,s,1)
same => n,Hangup()

;-- exten => 1004,1,Answer()
same => n,Wait(1)
same => n,Goto(firstlevel,s,1)
same => n,Hangup()

exten => 1006,1,Answer()
same => n,Wait(1)
same => n,Goto(firstlevel,s,1)
same => n,Hangup() --;


[firstlevel]
exten => s,1,Playback(cues/welcome)
same => n(mainreturn),Wait(1)
same => n,Background(cues/francais-trois)
same => n,Background(cues/talk-arg1&cues/dial-four)
same => n,Background(cues/talk-arg2&cues/dial-five)
same => n,Background(cues/talk-ans1&cues/dial-six)
same => n,Background(cues/talk-ans2&cues/dial-seven)
same => n,Background(cues/talk-flynn&cues/dial-eight)
same => n,Background(cues/misc-progs&cues/dial-nine)
same => n,Background(cues/strange&cues/dial-zero)
same => n,WaitExten(10)
same => n,Hangup()

; 3 plays back French message
exten => 3,1,Playback(cues/credits-deux)
same => n,Wait(1)
same => n,Playback(tracks/saint-laurent)
same => n,Wait(2)
same => n,Goto(s,mainreturn)
same => n,Hangup()

; 4 selects "Let's Talk About the Atom I"
exten => 4,1,Wait(1)
;same => n,Playback(digits/4)
same => n,Goto(subfour,s,1)
same => n,Hangup()

; 5 selects "Let's Talk About the Atom II"
exten => 5,1,Wait(1)
;same => n,Playback(digits/5)
same => n,Goto(subfive,s,1)
same => n,Hangup()

; 6 selects "Energy and the Atom I"
exten => 6,1,Wait(1)
;same => n,Playback(digits/6)
same => n,Goto(subsix,s,1)
same => n,Hangup()

; 7 selects "Energy and the Atom II"
exten => 7,1,Wait(1)
;same => n,Playback(digits/7)
same => n,Goto(subseven,s,1)
same => n,Hangup()

; 8 selects "Let's Talk About Energy"
exten => 8,1,Wait(1)
;same => n,Playback(digits/8)
same => n,Goto(subeight,s,1)
same => n,Hangup()

; 9 selects miscellaneous programs
exten => 9,1,Wait(1)
;same => n,Playback(digits/9)
same => n,Goto(subnine,s,1)
same => n,Hangup()

; 0 plays a randomly-selected short message
exten => 0,1,Playback(cues/requires&cues/credits-one)
same => 2,Wait(1)
same => 3,Goto(${MATH(${RAND(2,5)}*2,int)})
same => 4,Playback(tracks/ans-mars)
same => 5,Goto(zreturn)
same => 6,Playback(tracks/aip-starstuff)
same => 7,Goto(zreturn)
same => 8,Playback(tracks/aip-accelerators)
same => 9,Goto(zreturn)
same => 10,Playback(tracks/aip-cosmics)
same => 11(zreturn),Wait(2)
same => 12,Goto(s,mainreturn)
same => 13,Hangup()

; invalid selection
exten => i,1,Wait(1)
same => n,Playback(im-sorry)
same => n,Goto(s,mainreturn)
same => n,Hangup()



[subfour]
exten => s,1,Wait(1)
same => n,Background(tracks/talk-atom-li)
same => n,Background(cues/intro-ronne)
same => n(fourmenu),Wait(1)
same => n, Background(cues/main-menu&cues/dial-zero)
same => n,Background(cues/talk-arg-01&cues/dial-44)
same => n,Background(cues/talk-arg-02&cues/dial-45)
same => n,Background(cues/talk-arg-03&cues/dial-46)
same => n,Background(cues/talk-arg-04&cues/dial-47)
same => n,Background(cues/talk-arg-05&cues/dial-48)
same => n,Background(cues/talk-arg-06&cues/dial-49)
same => n,Background(cues/talk-arg-07&cues/dial-54)
same => n,Background(cues/talk-arg-08&cues/dial-55)
same => n,Background(cues/talk-arg-09&cues/dial-56)
same => n,Background(cues/talk-arg-10&cues/dial-57)
same => n,Background(cues/talk-arg-11&cues/dial-58)
same => n,Background(cues/talk-arg-12&cues/dial-59)
same => n,WaitExten(10)
same => n,Goto(firstlevel,s,mainreturn)
same => n,Hangup()
same => n(fourreturn),Wait(1)
same => n,Playback(tracks/talk-atom-lo)
same => n,Wait(2)
same => n,Goto(fourmenu)
same => n,Hangup()


exten => 44,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-01) ; "The World's Largest Atom Smasher" / Dr Edwin L Goldwasser
same => n,Goto(s,fourreturn)
same => n,Hangup()

exten => 45,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-02) ; "The Atom -- Super-Sleuth in the Art Gallery" / Dr Bernard Keisch
same => n,Goto(s,fourreturn)
same => n,Hangup()

exten => 46,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-03) ; "Stepping Stone into Deep Space" / Milton Klein
same => n,Goto(s,fourreturn)
same => n,Hangup()

exten => 47,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-04) ; "Are Vaccines Pure Enough?" / Dr Norman Anderson
same => n,Goto(s,fourreturn)
same => n,Hangup()

exten => 48,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-05) ; "Project Gasbuggy -- Operation Plowshare" / Dr Glenn Werth
same => n,Goto(s,fourreturn)
same => n,Hangup()

exten => 49,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-06) ; "Cancer -- Research and Treatment" / Dr Alexander Gottschalk
same => n,Goto(s,fourreturn)
same => n,Hangup()

exten => 54,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-07) ; "The Atom Looks for Minerals" / Dr Frank Sentfle
same => n,Goto(s,fourreturn)
same => n,Hangup()

exten => 55,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-08) ; "Making the Deserts Bloom" / Dr Alvin Weinberg
same => n,Goto(s,fourreturn)
same => n,Hangup()

exten => 56,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-09) ; "The Atomic Powered Heart" / Eugene Fowler
same => n,Goto(s,fourreturn)
same => n,Hangup()

exten => 57,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-10) ; "The Atom Underground" / Gerald F Tape
same => n,Goto(s,fourreturn)
same => n,Hangup()

exten => 58,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-11) ; "SNAP 27 -- Atomic Power on the Moon" / Dr Don Lind
same => n,Goto(s,fourreturn)
same => n,Hangup()

exten => 59,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-12) ; "The Atom and the Year 2000" / Dr Glenn T Seaborg
same => n,Goto(s,fourreturn)
same => n,Hangup()

; exit
exten => 0,1,Goto(firstlevel,s,mainreturn)
same => n,Hangup()

; invalid selection
exten => i,1,Wait(1)
same => n,Playback(im-sorry)
same => n,Goto(s,fourmenu)
same => n,Hangup()



[subfive]
exten => s,1,Wait(1)
same => n,Background(tracks/talk-atom-li)
same => n,Background(cues/intro-ronne)
same => n(fivemenu),Wait(1)
same => n,Background(cues/main-menu&cues/dial-zero)
same => n,Background(cues/talk-arg-13&cues/dial-44)
same => n,Background(cues/talk-arg-14&cues/dial-45)
same => n,Background(cues/talk-arg-15&cues/dial-46)
same => n,Background(cues/talk-arg-16&cues/dial-47)
same => n,Background(cues/talk-arg-17&cues/dial-48)
same => n,Background(cues/talk-arg-18&cues/dial-49)
same => n,Background(cues/talk-arg-19&cues/dial-54)
same => n,Background(cues/talk-arg-20&cues/dial-55)
same => n,Background(cues/talk-arg-21&cues/dial-56)
same => n,Background(cues/talk-arg-22&cues/dial-57)
same => n,Background(cues/talk-arg-23&cues/dial-58)
same => n,Background(cues/talk-arg-24&cues/dial-59)
same => n,WaitExten(10)
same => n,Goto(firstlevel,s,mainreturn)
same => n,Hangup()
same => n(fivereturn),Wait(1)
same => n,Playback(tracks/talk-atom-lo)
same => n,Wait(2)
same => n,Goto(fivemenu)
same => n,Hangup()

exten => 44,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-13) ; "The Balance of Nature" / Dr Stanley Auerbach
same => n,Goto(s,fivereturn)
same => n,Hangup()

exten => 45,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-14) ; "Atomic Power, Today and Tomorrow" / Milton Shaw
same => n,Goto(s,fivereturn)
same => n,Hangup()

exten => 46,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-15) ; "Our Waterways ― Can They Stand the Heat?" / Dr John Totter
same => n,Goto(s,fivereturn)
same => n,Hangup()

exten => 47,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-16) ; "The Mouse House" / Drs William and Lianne Russell
same => n,Goto(s,fivereturn)
same => n,Hangup()

exten => 48,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-17) ; "Radiation is All Around Us" / Dr Donald Ross
same => n,Goto(s,fivereturn)
same => n,Hangup()

exten => 49,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-18) ; "Atomic Energy at the Smithsonian" / Dr Philip Bishop
same => n,Goto(s,fivereturn)
same => n,Hangup()

exten => 54,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-19) ; "Toward a Cure for Air Pollution" / Edward Croke
same => n,Goto(s,fivereturn)
same => n,Hangup()

exten => 55,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-20) ; "Guarding the Atom" / Delmar L Crowson
same => n,Goto(s,fivereturn)
same => n,Hangup()

exten => 56,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-21) ; "Atomic Energy to Help the Human Heart" / Commander John Prosser
same => n,Goto(s,fivereturn)
same => n,Hangup()

exten => 57,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-22) ; "What Can the Moon Rocks Tell Us?" / Robert Weeks
same => n,Goto(s,fivereturn)
same => n,Hangup()

exten => 58,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-23) ; "How Much Energy Do We Need?" / James T Ramey
same => n,Goto(s,fivereturn)
same => n,Hangup()

exten => 59,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-atom-24) ; "Atomic Power -- A Good Neighbor" / Wallace Behnke
same => n,Goto(s,fivereturn)
same => n,Hangup()

; exit
exten => 0,1,Goto(firstlevel,s,mainreturn)
same => n,Hangup()

; invalid selection
exten => i,1,Wait(1)
same => n,Playback(im-sorry)
same => n,Goto(s,fivemenu)
same => n,Hangup()


[subsix]
exten => s,1,Wait(1)
same => n,Background(tracks/energy-atom-li)
same => n,Background(cues/intro-ronne)
same => n(sixmenu),Wait(1)
same => n,Background(cues/main-menu&cues/dial-zero)
same => n,Background(cues/talk-ans-01&cues/dial-44)
same => n,Background(cues/talk-ans-02&cues/dial-45)
same => n,Background(cues/talk-ans-03&cues/dial-46)
same => n,Background(cues/talk-ans-04&cues/dial-47)
same => n,Background(cues/talk-ans-05&cues/dial-48)
same => n,Background(cues/talk-ans-06&cues/dial-49)
same => n,Background(cues/talk-ans-07&cues/dial-54)
same => n,Background(cues/talk-ans-08&cues/dial-55)
same => n,Background(cues/talk-ans-09&cues/dial-56)
same => n,Background(cues/talk-ans-10&cues/dial-57)
same => n,Background(cues/talk-ans-11&cues/dial-58)
same => n,Background(cues/talk-ans-12&cues/dial-59)
same => n,WaitExten(10)
same => n,Goto(firstlevel,s,mainreturn)
same => n,Hangup()
same => n(sixreturn),Wait(1)
same => n,Playback(tracks/energy-atom-lo)
same => n,Wait(2)
same => n,Goto(sixmenu)
same => n,Hangup()

exten => 44,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-01) ; "What is a Reactor and How Does it Work?" / Gene Cramer
same => n,Goto(s,sixreturn)
same => n,Hangup()

exten => 45,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-02) ; "How Safe Are Nuclear Power Plants?" / Dr J Ernest Wilkins Jr
same => n,Goto(s,sixreturn)
same => n,Hangup()

exten => 46,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-03) ; "Ecology and Atomic Power" / Dr Steven Spigarelli
same => n,Goto(s,sixreturn)
same => n,Hangup()

exten => 47,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-04) ; "Nuclear Power Plants, Where Shall We Put Them?" / Sam Beall Jr
same => n,Goto(s,sixreturn)
same => n,Hangup()

exten => 48,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-05) ; "Diversion and Safeguards of Nuclear Materials" / Dr Carl Walske
same => n,Goto(s,sixreturn)
same => n,Hangup()

exten => 49,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-06) ; "Plutonium -- Is It Really That Dangerous?" / Lynn Wallis
same => n,Goto(s,sixreturn)
same => n,Hangup()

exten => 54,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-07) ; "Environmental Impact Statements" / Dr Philip Gustafson
same => n,Goto(s,sixreturn)
same => n,Hangup()

exten => 55,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-08) ; "Atomic Power... European Style" / Andre Gauvenet
same => n,Goto(s,sixreturn)
same => n,Hangup()

exten => 56,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-09) ; "The Clinch River Drama... The Case for the Breeder" / Wallace Behnke
same => n,Goto(s,sixreturn)
same => n,Hangup()

exten => 57,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-10) ; "The Atoms' Final Resting Place" / Dr Frank Pittman
same => n,Goto(s,sixreturn)
same => n,Hangup()

exten => 58,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-11) ; "The Public Acceptance of Nuclear Power" / Dr Chauncey Starr
same => n,Goto(s,sixreturn)
same => n,Hangup()

exten => 59,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-12) ; "The Future of Atomic Energy" / John Simpson
same => n,Goto(s,sixreturn)
same => n,Hangup()

; exit
exten => 0,1,Goto(firstlevel,s,mainreturn)
same => n,Hangup()

; invalid selection
exten => i,1,Wait(1)
same => n,Playback(im-sorry)
same => n,Goto(s,sixmenu)
same => n,Hangup()


[subseven]
exten => s,1,Wait(1)
same => n,Background(tracks/energy-atom-li)
same => n,Background(cues/intro-ronne)
same => n(sevenmenu),Wait(1)
same => n,Background(cues/main-menu&cues/dial-zero)
same => n,Background(cues/talk-ans-13&cues/dial-44)
same => n,Background(cues/talk-ans-14&cues/dial-45)
same => n,Background(cues/talk-ans-15&cues/dial-46)
same => n,Background(cues/talk-ans-16&cues/dial-47)
same => n,Background(cues/talk-ans-17&cues/dial-48)
same => n,Background(cues/talk-ans-18&cues/dial-49)
same => n,Background(cues/talk-ans-19&cues/dial-54)
same => n,Background(cues/talk-ans-20&cues/dial-55)
same => n,Background(cues/talk-ans-21&cues/dial-56)
same => n,Background(cues/talk-ans-22&cues/dial-57)
same => n,Background(cues/talk-ans-23&cues/dial-58)
same => n,Background(cues/talk-ans-24&cues/dial-59)
same => n,WaitExten(10)
same => n,Goto(firstlevel,s,mainreturn)
same => n,Hangup()
same => n(sevenreturn),Wait(1)
same => n,Playback(tracks/energy-atom-lo)
same => n,Wait(2)
same => n,Goto(sevenmenu)
same => n,Hangup()

exten => 44,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-13) ; "The Nuclear Debate -- A Call to Reason" / Dr Ian Forbes
same => n,Goto(s,sevenreturn)
same => n,Hangup()

exten => 45,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-14) ; "A Look at Plutonium and Nuclear Wastes" / Professor Bernard Cohen
same => n,Goto(s,sevenreturn)
same => n,Hangup()

exten => 46,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-15) ; "A Nobel Laureate Looks at Nuclear Power" / Professor Hans Bethe
same => n,Goto(s,sevenreturn)
same => n,Hangup()

exten => 47,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-16) ; "The Matter of Nuclear Safeguards" / General Edward Giller
same => n,Goto(s,sevenreturn)
same => n,Hangup()

exten => 48,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-17) ; "Solar Power" / Dr John Martin
same => n,Goto(s,sevenreturn)
same => n,Hangup()

exten => 49,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-18) ; "Underground Energy... Heat from the Earth" / Ritchie Coryell
same => n,Goto(s,sevenreturn)
same => n,Hangup()

exten => 54,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-19) ; "Power from the Winds" / Ronald Thomas
same => n,Goto(s,sevenreturn)
same => n,Hangup()

exten => 55,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-20) ; "Government Regulation of Nuclear Power" / William Anders
same => n,Goto(s,sevenreturn)
same => n,Hangup()

exten => 56,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-21) ; "An Assessment of Accident Risks in Nuclear Power Plants" / Professor Norman Rasmussen
same => n,Goto(s,sevenreturn)
same => n,Hangup()

exten => 57,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-22) ; "Public Acceptance -- The Role of Government" / Dr Richard Roberts
same => n,Goto(s,sevenreturn)
same => n,Hangup()

exten => 58,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-23) ; "Nuclear Power Parks" / Melvin Feldman
same => n,Goto(s,sevenreturn)
same => n,Hangup()

exten => 59,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/energy-atom-24) ; "A New Generation of Nuclear Power Plants" / Dr Thomas Nemzek
same => n,Goto(s,sevenreturn)
same => n,Hangup()

; exit
exten => 0,1,Goto(firstlevel,s,mainreturn)
same => n,Hangup()

; invalid selection
exten => i,1,Wait(1)
same => n,Playback(im-sorry)
same => n,Goto(s,sevenmenu)
same => n,Hangup()


[subeight]
exten => s,1,Wait(1)
same => n,Background(cues/intro-flynn)
same => n(eightreturn),Background(cues/main-menu&cues/dial-zero)
same => n,Background(cues/talk-flynn-01&cues/dial-44)
same => n,Background(cues/talk-flynn-02&cues/dial-45)
same => n,Background(cues/talk-flynn-03&cues/dial-46)
same => n,Background(cues/talk-flynn-04&cues/dial-47)
same => n,Background(cues/talk-flynn-05&cues/dial-48)
same => n,Background(cues/talk-flynn-06&cues/dial-49)
same => n,Background(cues/talk-flynn-07&cues/dial-54)
same => n,Background(cues/talk-flynn-08&cues/dial-55)
same => n,Background(cues/talk-flynn-09&cues/dial-56)
same => n,Background(cues/talk-flynn-10&cues/dial-57)
same => n,Background(cues/talk-flynn-11&cues/dial-58)
same => n,Background(cues/talk-flynn-12&cues/dial-59)
same => n,WaitExten(10)
same => n,Goto(firstlevel,s,mainreturn)
same => n,Hangup()

exten => 44,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-01) ; "Conserving Our Energy" / S David Freeman
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

exten => 45,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-02) ; "Energy for the Future" / Dr John Gibbons
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

exten => 46,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-03) ; "The Peak Power Problem and Energy Storage" / Harold Falkenberry
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

exten => 47,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-04) ; "Get Up and Go... Transportation" / Dr Thomas Wolsko
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

exten => 48,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-05) ; "Energy from the Sun" / Dr Robert Stromberg
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

exten => 49,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-06) ; "Energy in the Earth's Crust" / Dr L J Patrick Muffler
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

exten => 54,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-07) ; "New Sources of Gas for Fuel" / Dr Glenn Werth
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

exten => 55,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-08) ; "Nuclear Power... Where do we Go from Here?" / Professor Manson Benedict
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

exten => 56,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-09) ; "Energy and the Environment" / Dr Jeff Swinebroad
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

exten => 57,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-10) ; "Cold Power" / Dr Hugh Long
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

exten => 58,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-11) ; "Breeding a New Fuel for Power" / Thomas A Nemzek
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

exten => 59,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-two)
same => n,Wait(1)
same => n,Playback(tracks/talk-energy-12) ; "Fusion Power" / Dr Robert L Hirsch
same => n,Wait(2)
same => n,Goto(s,eightreturn)
same => n,Hangup()

;exit
exten => 0,1,Goto(firstlevel,s,mainreturn)
same => n,Hangup()

; invalid selection
exten => i,1,Wait(1)
same => n,Playback(im-sorry)
same => n,Goto(s,eightreturn)
same => n,Hangup()


[subnine]
exten => s,1,Wait(1)
same => n(ninereturn),Background(cues/main-menu&cues/dial-zero)
same => n,Background(cues/yeartwentyfive&cues/dial-44)
same => n,Background(cues/century-a&cues/dial-54)
same => n,Background(cues/century-b&cues/dial-55)
same => n,Background(cues/century-c&cues/dial-56)
same => n,Background(cues/century-d&cues/dial-57)
same => n,Background(cues/fermi-a&cues/dial-64)
same => n,Background(cues/fermi-b&cues/dial-65)
same => n,Background(cues/fermi-c&cues/dial-66)
same => n,Background(cues/fermi-d&cues/dial-67)
same => n,Background(cues/clearair-a&cues/dial-74)
same => n,Background(cues/clearair-b&cues/dial-75)
same => n,Background(cues/beckmann-a&cues/dial-84)
same => n,Background(cues/beckmann-b&cues/dial-85)
same => n,WaitExten(10)
same => n,Goto(firstlevel,s,mainreturn)
same => n,Hangup()

exten => 44,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-five)
same => n,Wait(1)
same => n,Playback(tracks/year-25)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 54,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-three)
same => n,Wait(1)
same => n,Playback(tracks/century-side1)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 55,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-three)
same => n,Wait(1)
same => n,Playback(tracks/century-side2)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 56,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-three)
same => n,Wait(1)
same => n,Playback(tracks/century-side3)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 57,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-three)
same => n,Wait(1)
same => n,Playback(tracks/century-side4)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 64,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-five)
same => n,Wait(1)
same => n,Playback(tracks/tofermi-side1)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 65,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-five)
same => n,Wait(1)
same => n,Playback(tracks/tofermi-side2)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 66,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-five)
same => n,Wait(1)
same => n,Playback(tracks/tofermi-side3)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 67,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-four)
same => n,Wait(1)
same => n,Playback(tracks/tofermi-side4)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 74,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-three)
same => n,Wait(1)
same => n,Playback(tracks/clearair-side1)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 75,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-three)
same => n,Wait(1)
same => n,Playback(tracks/clearair-side2)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 84,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-five)
same => n,Wait(1)
same => n,Playback(tracks/beckmann-side1)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

exten => 85,1,Wait(1)
same => n,Playback(cues/requires&cues/credits-four)
same => n,Wait(1)
same => n,Playback(tracks/beckmann-side2)
same => n,Wait(2)
same => n,Goto(s,ninereturn)
same => n,Hangup()

;exit
exten => 0,1,Goto(firstlevel,s,mainreturn)
same => n,Hangup()

; invalid selection
exten => i,1,Wait(1)
same => n,Playback(im-sorry)
same => n,Goto(s,ninereturn)
same => n,Hangup()


;;;;;
; Created by C.D. Carson
; Revised : 2024-04-18
; uncomment blocks for x1004 and x1006 if using with MP-114