Create buzzword.pl

Made with Perl!

20 Buzzword/perl/buzzword.pl

@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+use strict;
+
+print ' 'x26 . "BUZZWORD GENERATOR\n";
+print ' 'x15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
+print "\n\n\n";
+
+print "THIS PROGRAM PRINTS HIGHLY ACCEPTABLE PHRASES IN\n";
+print "'EDUCATOR-SPEAK' THAT YOU CAN WORK INTO REPORTS\n";
+print "AND SPEECHES. WHENEVER A QUESTION MARK IS PRINTED,\n";
+print "TYPE A 'Y' FOR ANOTHER PHRASE OR 'N' TO QUIT.\n";
+print "\n\n"; print "HERE'S THE FIRST PHRASE; ";
+
+my @A= ("",
+	"ABILITY","BASAL","BEHAVIORAL","CHILD-CENTERED",
+	"DIFFERENTIATED","DISCOVERY","FLEXIBLE","HETEROGENEOUS",
+	"HOMOGENEOUS","MANIPULATIVE","MODULAR","TAVISTOCK",
+	"INDIVIDUALIZED","LEARNING","EVALUATIVE","OBJECTIVE", 
+	"COGNITIVE","ENRICHMENT","SCHEDULING","HUMANISTIC",
+	"INTEGRATED","NON-GRADED","TRAINING","VERTICAL AGE",
+	"MOTIVATIONAL","CREATIVE","GROUPING","MODIFICATION",
+	"ACCOUNTABILITY","PROCESS","CORE CURRICULUM","ALGORITHM",
+	"PERFORMANCE","REINFORCEMENT","OPEN CLASSROOM","RESOURCE", 
+	"STRUCTURE","FACILITY","ENVIRONMENT" 
+	);
+
+my $Y;
+do {
+	print $A[int(13*rand(1)+1)]." ";
+	print $A[int(13*rand(1)+14)]." ";
+	print $A[int(13*rand(1)+27)]; print "\n";
+	print "? ";
+	chomp ($Y = <STDIN>);
+	} until ($Y ne "Y");
+
+print "COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT!\n";
+exit;
+
+