The Best of Creative Computing Volume 1 (published 1976)

Page 204 << PREVIOUS >> NEXT Jump to page:
Go to contents Go to thumbnails

Computers in the English Curriculum

graphic of page

suggesting that examples of paradox, irony, symbols, metonymy, etc. could be
built into"the "body" of the story.

CONCLUSION

  I've presented four examples of "exploration and play" for English. In each
case, there was no such thing as a wrong answer, the user was active, and I
attempted to create an air of carefree play. It is my hope that others will
develop, use, evaluate, and distribute similar programs. While my programs are
intended examples, I'll be glad to send a paper tape (in HP-2000 BASIC) of any
or all of them to anyone who wants one (this offer only holds until I get
caught)!

BIBLIOGRAPHY

1. Press, L., The Use of Computer Simulation Models in Teaching Introductory
Mathematical Modeling Proc. of the 5th CCUC.

2. Papert, S., See for instance his paper: On Making a Theorem for a Child,
Proceedings of the 1972 ACM National Conference. Papert, a former student and
colleague of Piaget, has been working in this mode for a number of
years.

3. Holt, J., How Children Fail, Pitman Publishing Co., New York, 1964.

4. Koch, K., Wishes, Lies and Dreams, Chelsea House Publishers, New York, 1970.

5. Barth, J., Title, from Lost in the Funhouse, Doubleday and Co., New York,
1968.

6. Perrine, L., Sound and Sense: An Introduction to Poetry, 3rd ed., Harcourt,
Brace and World, Inc., New York, 1969.

*** 

INSULT
10 DIM A$ (30),N$(30),V$(30)
15 DIM F$(1)
20 PRINT LIN((2);"HEY STUPID; WHAT'S YOUR NAME ANYHOW??";LIN(2)
30 INPUT A$
40 PRINT "ALLRIGHT ";A$;", WHAT IS YOUR NAME ANYHOW??"LIN(2)
50 INPUT N$
60 PRINT LIN(2);"IT FIGURES! WELL WHAT'S YOUR FAVORITE VERB?";LIN(2)
70 INPUT V$
100 LET F$=N$[1,1]
110 IF F$="A" THEN 400
120 IF F$="E" THEN 400
130 IF F$="I" THEN 400
140 IF F$="O" THEN 400
150 IF F$="U" THEN 400
160 PRINT LIN(2);"HEY" =;AS;",HOW WOULD YOU LIKE TO ";VS;" A ";NS;"????"

170 STOP
400 PRINT LIN(2);"HEY=";AS;",HOW WOULD YOU LIKE TO ";VS; AN ";NS;"????

600 END

SESAME

5 DIM LS[72]
10  PRINT "LET'S MAKE THE UN-FAMILY WORDS! I NEED YOUR HELP."

20 PRINT "YOU GIVE THE START AND I WILL PUT IN THE 'UN'."

30 PRINT LIN(2); "GIVE ME ONE OR MORE LETTERS";
40 INPUT L$
50 PRINT L$" PLUS UN GIVES "L$"UN!!"

60 GOTO 30
70 END

BARTH

1  DIM A$[72], B$[72], C$[72], ES[72], F$[72], G$[72], HS[72], I$[72]
2  DIM J$[72], K$[72], L$[72], M$[72], N$[72]
10  PRINT "LET'S WRITE A STORY. YOU WILL HAVE TO GIVE ME SOME WORDS:"

20  PRINT
30  PRINT "FIRST, WHAT IS YOUR FAVORITE ARTICLE OF CLOTHING";
40  INPUT A$
50  PRINT "OKAY, WHAT IS YOUR FAVORITE NOUN";
55  INPUT B$
56  IF B$[LEN(B$), LEN(B$)]="S" THEN 60
57  B$[LEN(B$)+1, LEN(B$)+1]="S"

60  PRINT "NOW GIVE ME A DARK, SINISTER ADJECTIVE";
65  INPUT C$
70  PRINT "AND WHAT IS THE MOST EVIL COLOR YOU CAN THINK OF";
75  INPUT D$
80  PRINT "BYE THE WAY, WHAT IS YOUR FIRST NAME";
85  INPUT E$
90  PRINT "ALLRIGHT "E$", WHAT IS THE SWEETEST, MOST DELICATE FLOWER";
100 INPUT F$
110 PRINT "NOW I NEED AN ADJECTIVE. IT SHOULD BEGIN WITH AN 'S' SOUND"

115 PRINT "AND SHOULD BE REFINED AND GENTLE. IT COULD EVEN BE A NONSENCE"

118 PRINT "WORD IF IT SOUNDED NICE";
120 INPUT G$
130 PRINT "NEXT I WILL NEED A COLOR WHICH YOU FEEL SYMBOLIZES INNOCENCE";
135 INPUT H$
140 PRINT "NOW GIVE ME A SWEET, GENTLE NOUN";
145 INPUT I$
150 PRINT "OKAY, WHAT IS ANOTHER ARTICLE OF CLOTHING";
155 INPUT J$
160 PRINT "NOW, GIVE ME A PLURAL BODY PART";
165 INPUT K$
170 PRINT "FINALLY, I NEED TO KNOW WHICH ANIMAL SEEMS MOST COMICAL TO YOU";
180 INPUT L$
181 IF L$[LEN(L$), LEN(L$)]="S" THEN 200
190 L$[LEN(L$), LEN(L$)+1]="S"

200 PRINT LIN(2);"ALLRIGHT, THAT SHOULD DO IT. HERE IS OUR STORY:"

210 PRINT
218 PRINT
220 PRINT "   THE LEGEND OF LITTLE RED RIDING "A$;LIN(2)
230 PRINT " THERE ONCE WAS A GIRL CALLED LITTLE RED RIDING "A$". ONE DAY
240 PRINT "HER MOTHER GAVE HER A BASKET OF "B$" TO GIVE TO HER GRANDMOTHER."

250 PRINT "ON THE WAY, A "C$", "D$" FROG NAMED "E$" SAW HER. THE "

260 PRINT "FROG DECIDED TO GET TO GRANDMOTHER'S FIRST!"

270 PRINT " WHEN THE FROG GOT THERE, GRANDMA WAS TENDING HER "F$
280 PRINT "GARDEN, DRESSED IN "G$", "H$" SNEAKERS. SHE WAS SWEET AND"

290 PRINT "GENTLE AS "I$" SO THE FROG ATE HER UP, PUT ON HER "J$" AND "

300 PRINT "JUMPED INTO HER BED."

310 PRINT " YOU PROBABLY KNOW THE REST OF THE STORY, RIGHT? THEY GO"

320 PRINT "THROUGH THE 'MY WHAT BIG "K$" YOU HAVE' THING FOR A WHILE, THEN "

330 PRINT E$" KISSES RED, THEY BOTH TURN INTO "L$", THEY ARE MARRIED"

340 PRINT "AND LIVE HAPPILY EVER AFTER."

350 PRINT LIN(2); "SIGH.. A HAPPY ENDING"

360 END

WISHES

10  DIM A$[72], B$[72]
20  FILES WSHFL
30  PRINT "LET'S WRITE A WISH POEM!!"

40  PRINT "TO WARM UP, TRY PLAYING WITH COLOR WORDS. FOR EXAMPLE"

50  PRINT "WHAT COLOR DO YOU THINK OF WHEN i SAY APPLE";
60  INPUT A$
70  PRINT "HOW ABOUT SKY";
80  INPUT A$
90  PRINT "YOU KNOW, YOU DON'T ALWAYS HAVE TO USE THE REAL COLOR"

100 PRINT "OF SOMETHING IN A POEM. YOU CAN USE ANY COLOR YOU FEEL"

110 PRINT "LIKE EVEN IF IT SEEMS FREAKY OR SILLY. IF YOU DON'T"

120 PRINT "COUNT RED OR GREEN, WHAT COLOR SEEMS LIKE APPLES";
130 INPUT $A$
140 PRINT "CLOSE YOUR EYES AND SEE IF YOU CAN IMAGINE A bIG, "

150 PRINT A$" APPLE. SEE IF YOU CAN MAKE IT GROW OR DANCE OR"

160 PRINT "DO SOMETHING SILLY. JUST TYPE OK WHEN YOU ARE FINISHED."

170 INPUT A$
180 "THINGS LIKE APPLES ARE NOT THE ONLY THINGS THAT MAKE "

190 PRINT "PEOPLE THINK OF COLORS. FOR EXAMPLE A THIRD GRADER NAMED"

200 PRINT "JOHN THOUGHT THAT THE SOUND OF A CAR ENGINE WAS " 
210 PRINT "SCRATCHY RED!"

220 PRINT "WHAT COLOR IS THE SOUND OF A WHISTLE";
230 INPUT A$
240 PRINT "THE WHISTLE SOUNDS "A$"!"

250 PRINT "TRY MAKING THE SOUND OF A BALLOOON POPPING. WHAT COLOR"

260 PRINT "IS THAT";
270 INPUT A$
280 PRINT "WHAT COLOR WAS THE BALLOON";
290 INPUT A$
300 PRINT "WHAT COLOR DO YOU SEE WHEN YOU IMAGINE THE FEELING OF A"

310 PRINT "BIG ICE CUBE ON YOUR TUMMY";
320 INPUT A$
330 PRINT "YOU ARE REALLY GETTING INTO COLOR WORDS!"

340 PRINT "NOW LET'S TRY WORKING ON A WISH POEM. EACH LINE SHOULD HAVE"

350 PRINT "A WISH IN IT AND IF YOU WANT TO YOU CAN PUT IN COLORS TOO."

360 PRINT "JOHN AND HIS SISTER WHO IS IN KINDERGARTEN MADE UP THESE"

370 PRINT "EXAMPLES TO SHOW YOU:";LIN(1)
380 PRINT " I WISH FOR A BIG GREEN 1000 DOLLAR BILL"

390 PRINT " I WISH FOR THAT EVERY DAY WAS MY RED AND WHITE BIRTHDAY PARTY"

400 PRINT " I WISH ALL THE STORES WERE FREE RED BLUE"

410 PRINT LIN(1);"GET IT?" NOW YOU TYPE IN A WISH. MAKE IT LESS THAN"

420 PRINT "ONE LINE LONG, OKAY, WHAT DO YOU WISH?"

430 INPUT A$
440 IF END #1 THEN 630
450 PRINT "FAR OUT! TRY ANOTHER ONE. REMEMBER, IT CAN BE CRAZY"

460 PRINT "OR FREAKY IF YOU WANT IT TO."

470 PRINT #1;A$
480 INPUT A$
490 PRINT "ALLRIGHT! WOULD YOU LIKE TO MAKE UP MORE";
500 PRINT #1;A$
510 INPUT A$
600 IF A$[1,4]="STOP" THEN 660
610 PRINT #1;A$
620 GOTO 580
630 PRINT "WOW! MY STORAGE AREA IS FULL. LET'S QUIT FOR NOW."

640 PRINT "IF YOU WANT TO DO MORE WISHING, YOU CAN RUN THIS"

650 PRINT "PROGRAM AGAIN."

660 PRINT
670 IF END #1 THEN 740
680 READ #1,1
690 PRINT "NOW I'LL SHOW YOU A NEW WISH POEM.";LIN(2)
700 FOR I=1 TO 10000
710 READ #1;A$
730 NEXT I
740 PRINT
750 PRINT "THAT'S A PRETTY SLICK WISH POEM YOU WRITE!! CATCH YOU LATER."

760 END

Page 204 << PREVIOUS >> NEXT Jump to page:
Go to contents Go to thumbnails