mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-12 07:40:50 -08:00
d26dbf036a
Spaces tend to cause annoyances in a Unix-style shell environment. This change fixes that.
27 lines
1.3 KiB
QBasic
27 lines
1.3 KiB
QBasic
10 PRINT TAB(26);"BUZZWORD GENERATOR"
|
|
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
30 PRINT:PRINT:PRINT
|
|
40 PRINT "THIS PROGRAM PRINTS HIGHLY ACCEPTABLE PHRASES IN"
|
|
50 PRINT "'EDUCATOR-SPEAK' THAT YOU CAN WORK INTO REPORTS"
|
|
60 PRINT "AND SPEECHES. WHENEVER A QUESTION MARK IS PRINTED,"
|
|
70 PRINT "TYPE A 'Y' FOR ANOTHER PHRASE OR 'N' TO QUIT."
|
|
80 PRINT:PRINT:PRINT "HERE'S THE FIRST PHRASE:"
|
|
90 DIM A$(40)
|
|
100 FOR I=1 TO 39 : READ A$(I) : NEXT I
|
|
110 PRINT A$(INT(13*RND(1)+1));" ";
|
|
120 PRINT A$(INT(13*RND(1)+14));" ";
|
|
130 PRINT A$(INT(13*RND(1)+27)) : PRINT
|
|
150 INPUT Y$ : IF Y$="Y" THEN 110
|
|
160 GOTO 999
|
|
200 DATA "ABILITY","BASAL","BEHAVIORAL","CHILD-CENTERED"
|
|
210 DATA "DIFFERENTIATED","DISCOVERY","FLEXIBLE","HETEROGENEOUS"
|
|
220 DATA "HOMOGENEOUS","MANIPULATIVE","MODULAR","TAVISTOCK"
|
|
230 DATA "INDIVIDUALIZED","LEARNING","EVALUATIVE","OBJECTIVE"
|
|
240 DATA "COGNITIVE","ENRICHMENT","SCHEDULING","HUMANISTIC"
|
|
250 DATA "INTEGRATED","NON-GRADED","TRAINING","VERTICAL AGE"
|
|
260 DATA "MOTIVATIONAL","CREATIVE","GROUPING","MODIFICATION"
|
|
270 DATA "ACCOUNTABILITY","PROCESS","CORE CURRICULUM","ALGORITHM"
|
|
280 DATA "PERFORMANCE","REINFORCEMENT","OPEN CLASSROOM","RESOURCE"
|
|
290 DATA "STRUCTURE","FACILITY","ENVIRONMENT"
|
|
999 PRINT "COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT!":END
|