Removed spaces from top-level directory names.

Spaces tend to cause annoyances in a Unix-style shell environment.
This change fixes that.
This commit is contained in:
Chris Reuter
2021-11-21 18:30:21 -05:00
parent df2e7426eb
commit d26dbf036a
1725 changed files with 0 additions and 0 deletions
+39
View File
@@ -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;