home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / WISHES.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.8 KB  |  73 lines
  1. 10 DIM A$(217)
  2. 30 PRINT "LET'S WRITE A WISH POEM!!"
  3. 40 PRINT "TO WARM UP, TRY PLAYING WITH COLOR WORDS.  FOR EXAMPLE"
  4. 50 PRINT "WHAT COLOR DO YOU THINK OF WHEN I SAY APPLE?"
  5. 60 INPUT A$
  6. 70 PRINT "HOW ABOUT SKY?"
  7. 80 INPUT A$
  8. 90 PRINT "YOU KNOW, YOU DON'T ALWAYS HAVE TO USE THE REAL COLOR"
  9. 100 PRINT "OF SOMETHING IN A POEM.  YOU CAN USE ANY COLOR YOU FEEL
  10. 110 PRINT "LIKE EVEN IF IT SEEMS FREAKY OR SILLY.  IF YOU DON'T"
  11. 120 PRINT "COUNT RED OR GREEN, WHAT COLOR SEEMS LIKE APPLES?"
  12. 130 INPUT A$
  13. 140 PRINT "CLOSE YOUR EYES AND SEE IF YOU CAN IMAGINE A BIG,"
  14. 150 PRINT A$;" APPLE.  SEE IF YOU CAN MAKE IT GROW OR DANCE OR"
  15. 160 PRINT "DO SOMETHING SILLY.  JUST TYPE OK WHEN YOU ARE FINISHED."
  16. 170 INPUT A$
  17. 180 PRINT "THINGS LIKE APPLES ARE NOT THE ONLY THINGS THAT MAKE "
  18. 190 PRINT "PEOPLE THINK OF COLORS.  FOR EXAMPLE, A THIRD GRADER NAMED"
  19. 200 PRINT "JOHN THOUGHT THAT THE SOUND OF A CAR ENGINE WAS "
  20. 210 PRINT "SCRATCHY RED!"
  21. 220 PRINT "WHAT COLOR IS THE SOUND OF A WHISTLE?"
  22. 230 INPUT A$
  23. 240 PRINT "THE WHISTLE SOUNDS ";A$;"!"
  24. 250 PRINT "TRY MAKING THE SOUND OF A BALLOON POPPING.  WHAT COLOR"
  25. 260 PRINT "IS THAT?"
  26. 270 INPUT A$
  27. 280 PRINT "WHAT COLOR WAS THE BALLOON?"
  28. 290 INPUT A$
  29. 300 PRINT "WHAT COLOR DO YOU SEE WHEN YOU IMAGINE THE FEELING OF A "
  30. 310 PRINT "BIG ICE CUBE ON YOUR TUMMY?"
  31. 320 INPUT A$
  32. 330 PRINT "YOU ARE REALLY GETTING INTO COLOR WORDS!"
  33. 340 PRINT "NOW LET'S TRY WORKING ON A WISH POEM.  EACH LINE SHOULD HAVE"
  34. 350 PRINT "A WISH IN IT AND IF YOU WANT TO YOU CAN PUT IN COLORS TOO."
  35. 360 PRINT "JOHN AND HIS SISTER WHO IS IN KINDERGARTEN MADE UP THESE"
  36. 370 PRINT "EXAMPLES TO SHOW YOU:"
  37. 380 PRINT
  38. 381 PRINT "     I WISH FOR A BIG GREEN 1000 DOLLAR BILL"
  39. 390 PRINT "     I WISH THAT EVERY DAY WAS MY RED AND WHITE BIRTHDAY PARTY"
  40. 400 PRINT "     I WISH ALL THE STORES WERE FREE RED BLUE"
  41. 405 PRINT
  42. 410 PRINT "GET IT?  NOW YOU TYPE IN A WISH.  MAKE IT LESS THAN "
  43. 420 PRINT "ONE LINE LONG.  OK, WHAT DO YOU WISH?"
  44. 431 INPUT A$
  45. 450 PRINT "FAR OUT!  TRY ANOTHER ONE.  REMEMBER, IT CAN BE CRAZY"
  46. 460 PRINT "OR FREAKY IF YOU WANT IT TOO."
  47. 481 INPUT A$
  48. 490 PRINT "ALL RIGHT!  WOULD YOU LIKE TO MAKE UP MORE? "
  49. 510 FOR I=145 TO 217
  50. 511 INPUT A$(145)
  51. 520 IF A$(145)="NO" THEN 660
  52. 530 IF A$(145)="YES" THEN 560
  53. 540 PRINT "PLEASE ANSWER YES OR NO."
  54. 550 GOTO 490
  55. 560 PRINT "OK, GIVE ME AS MANY MORE WISHES AS YOU WANT TO.  JUST"
  56. 570 PRINT "TYPE 'STOP' WHEN YOU RUN OUT OF WISHES.  NOW"
  57. 580 PRINT "GIVE ME YOUR NEXT WISH PLEASE . . . "
  58. 590 INPUT A$(145)
  59. 600 IF A$(145)="STOP" THEN 660
  60. 610 PRINT A$
  61. 620 GOTO 580
  62. 625 NEXT I
  63. 630 PRINT "WOW!  MY STORAGE AREA IS FULL.  LET'S QUIT FOR NOW."
  64. 640 PRINT "IF YOU WANT TO DO MORE WISHING, YOU CAN RUN THIS"
  65. 650 PRINT "PROGRAM AGAIN."
  66. 660 PRINT
  67. 695 PRINT
  68. 700 FOR I=1 TO 1000
  69. 730 NEXT I
  70. 740 PRINT
  71. 750 PRINT "THAT'S A PRETTY SLICK WISH POEM YOU WROTE!!  CATCH YOU LATER."
  72. 760 END
  73.