preserve.
set printback=on.

* SIMPLE AND COMPLEX RANDOM ASSIGNMENT IN EXPERIMENTAL DESIGNS
  Valentim R. Alferes, University of Coimbra (Portugal), 2009.

* BuzzEconomy.sps - Buzz Phrase Generator 
  (Economy - see http://www.dack.com/web/bullshit.html).

set printback=off.
set ovars labels onumbers values tvars labels tnumbers values.
data list free /list1(a20).
begin data
Aggregate Architect Benchmark Brand Cultivate Deliver Deploy Disintermediate 
Drive E-enable Embrace Empower Enable Engage Engineer Enhance Envisioneer 
Evolve Expedite Exploit Extend Facilitate Generate Grow Harness Implement 
Incentivize Incubate Innovate Integrate Iterate Leverage Matrix Maximize Mesh 
Monetize Morph Optimize Orchestrate Productize Recontextualize Redefine 
Reintermediate Reinvent Repurpose Revolutionize Scale Seize Strategize 
Streamline Syndicate Synergize Synthesize Target Transform Transition Unleash 
Utilize Visualize Whiteboard
end data.
save outfile=file1.
data list free /list2(a20).
begin data
24/365 24/7 B2B B2C back-end best-of-breed bleeding-edge bricks-and-clicks 
clicks-and-mortar collaborative compelling cross-platform cross-media 
customized cutting-edge distributed dot-com dynamic e-business efficient 
end-to-end enterprise extensible frictionless front-end global granular 
holistic impactful innovative integrated interactive intuitive killer 
leading-edge magnetic mission-critical next-generation one-to-one open-source 
out-of-the-box plug-and-play proactive real-time revolutionary rich robust 
scalable seamless sexy sticky strategic synergistic transparent turn-key 
ubiquitous user-centric value-added vertical viral virtual visionary 
web-enabled wireless world-class
end data.
save outfile=file2.
data list free /list3(a20).
begin data
action-items applications architectures bandwidth channels communities content 
convergence deliverables e-business e-commerce e-markets e-services e-tailers 
experiences eyeballs functionalities infomediaries infrastructures initiatives 
interfaces markets methodologies metrics mindshare models networks niches 
paradigms partnerships platforms portals relationships ROI synergies 
web-readiness schemas solutions supply-chains systems technologies users 
vortals webservices
end data.
save outfile=file3.
set seed random.
get file=file1.
compute rn=rv.uniform(0,1).
sort cases by rn(a).
n 1.
execute.
save outfile=file1/drop rn.
get file=file2.
compute rn=rv.uniform(0,1).
sort cases by rn(a).
n 1.
execute.
save outfile=file2/drop rn.
get file=file3.
compute rn=rv.uniform(0,1).
sort cases by rn(a).
n 1.
execute.
save outfile=file3/drop rn.
get file=file1.
match files/file=*/file=file2/file=file3.
execute.
string Phrase(a62).
compute phrase=concat(rtrim(list1)," ",rtrim(list2)," ",rtrim(list3)).
execute.
list phrase.
restore.