home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / cinquain.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  4.1 KB  |  155 lines
  1. 1   REM  CINQUAIN
  2. 2   REM
  3. 3   REM  IBM SOFTSWAP
  4. 4   REM  
  5. 5   REM  ADAPTED FROM APPLE SOFTSWAP
  6. 6   REM   
  7. 7   REM    
  8. 8   REM   
  9. 9   REM    
  10. 10   REM  
  11. 11   REM         
  12. 12   REM  ***********************
  13. 13   REM  *                     *
  14. 14   REM  *  SAN MATEO COUNTY   *
  15. 15   REM  * OFFICE OF EDUCATION *
  16. 16   REM  *          &          *
  17. 17   REM  *   COMPUTER-USING    *
  18. 18   REM  *      EDUCATORS      *
  19. 19   REM  *                     *
  20. 20   REM  *      SOFTSWAP       *
  21. 21   REM  *                     *
  22. 22   REM  *   333 MAIN STREET   *
  23. 23   REM  *     REDWOOD CITY    *
  24. 24   REM  *       CA 94063      *
  25. 25   REM  *     (415)363-5472   *
  26. 26   REM  *                     *
  27. 27   REM  ***********************
  28. 28   REM  *
  29. 29   REM  ***********************
  30. 30   REM  *PROGRAM MAY BE COPIED*
  31. 31   REM  *FOR EDUCATIONAL USE &*
  32. 32   REM  *MAY NOT BE SOLD.COPY-*
  33. 33   REM  *RIGHT 1983 CUE,INC   *
  34. 34   REM  ***********************
  35. 100   CLS 
  36. 110  W = 100: GOSUB 1230
  37. 120  CLS:LOCATE 1,1
  38. 130   INPUT "WHAT IS YOUR NAME? ";N$
  39. 140   IF N$ = "" THEN  PRINT "GEE, I THOUGHT EVERYONE HAD A NAME.": LOCATE 1 : GOTO 130
  40. 150   GOSUB 420: REM  INTRODUCTION TO GAME
  41. 160   GOSUB 590: PRINT : REM  TITLE
  42. 170   GOSUB 860: REM  2ND LINE OF POEM
  43. 180   PRINT
  44. 190   GOSUB 950: REM  3RD LINE OF POEM
  45. 200   PRINT
  46. 210   GOSUB 1050: REM   4TH LINE OF POEM
  47. 220   PRINT
  48. 230   GOSUB 1150: REM   5TH LINE OF POEM
  49. 240   PRINT
  50. 250   PRINT N$", HERE IS YOUR CINQUAIN: "
  51. 260   PRINT : PRINT : PRINT 
  52. 270   PRINT  SPC( (20 -  LEN (S$) / 2))S$: PRINT 
  53. 280   PRINT  SPC( (20 -  LEN (B$) / 2))B$: PRINT 
  54. 290   PRINT  SPC( (20 -  LEN (D$) / 2))D$: PRINT 
  55. 300   PRINT  SPC( (20 -  LEN (G$) / 2))G$: PRINT 
  56. 310   PRINT  SPC( (20 -  LEN (K$) / 2))K$: PRINT 
  57. 320   PRINT "WOULD YOU LIKE TO TRY ANOTHER CINQUAIN?"
  58. 330   PRINT "(Y FOR YES OR N FOR NO)=>";
  59. 340   V$=INKEY$: IF V$ = "" THEN 340
  60. 350   IF V$ = "Y" OR V$="y"  THEN 110
  61. 360   IF V$ <  > "N"AND V$<>"n" THEN 340
  62. 370   CLS : LOCATE 3: PRINT "IS THERE ANYONE ELSE WHO WANTS": PRINT "TO TRY? (Y FOR YES OR N FOR NO)=>";
  63. 380   V$=INKEY$: IF V$ = "Y" OR V$="y" THEN  RUN
  64. 390   IF V$ <  > "N" AND V$<>"n" THEN 380
  65. 400   PRINT : PRINT : PRINT "GOOD BYE ";N$
  66. 410  CHAIN "MENU",170: RUN
  67. 420   CLS : LOCATE 3: REM  INTRODUCTION
  68. 430   PRINT : PRINT "HI, "N$"."
  69. 440   PRINT 
  70. 450   PRINT "DO YOU KNOW WHAT A CINQUAIN IS? "
  71. 460   PRINT "(Y, N, OR <ESC> IF YOU WANT TO QUIT=>";
  72. 470   A$=INKEY$: IF  A$ = CHR$(27) THEN 370
  73. 480   IF A$ = "Y" OR A$="y"  THEN  PRINT : GOTO 540
  74. 490   IF A$ <  > "N" AND A$<>"n"  THEN 470
  75. 500   CLS : LOCATE 2
  76. 510   PRINT "A CINQUAIN (SIN KWANE') IS A POEM THAT"
  77. 520   PRINT "HAS ONLY 5 LINES."
  78. 530  W = 150: GOSUB 1230
  79. 540   PRINT
  80. 550   PRINT "I'M GOING TO HELP YOU WRITE A CINQUAIN."
  81. 560   GOSUB 1280: GOTO 580
  82. 570  W = 150: GOSUB 1230
  83. 580   RETURN 
  84. 590   REM  - CHOOSING A TITLE
  85. 600   CLS : LOCATE 2
  86. 610   PRINT " WHAT IS YOUR FAVORITE SEASON? "
  87. 620   PRINT "  ------"
  88. 630   PRINT "  SUMMER"
  89. 640   PRINT "  AUTUMN"
  90. 650   PRINT "  WINTER"
  91. 660   PRINT "  SPRING"
  92. 670   PRINT 
  93. 680   PRINT "TYPE IN TITLE'S NAME AND PRESS <RETURN>."
  94. 690   INPUT "WHICH ONE? ";S$
  95. 700   IF S$ = "SUMMER" OR S$="summer" OR S$="autumn" OR S$= "winter" OR S$= "spring" THEN 740
  96. 710   IF S$ = "AUTUMN" OR S$ = "WINTER" OR S$ = "SPRING" THEN 740
  97. 720   PRINT 
  98. 730   PRINT "ENTER ONLY ONE OF THE WORDS ABOVE. ":W = 150: GOSUB 1230: GOTO 600
  99. 740   REM 
  100. 750   CLS : PRINT : PRINT 
  101. 760   REM 
  102. 770   PRINT S$
  103. 780   PRINT 
  104. 790  W = 10: GOSUB 1230
  105. 800  W = 10: GOSUB 1230
  106. 810   PRINT "THAT'S THE FIRST LINE OF YOUR CINQUAIN."
  107. 820  W = 300: GOSUB 1230
  108. 830  W = 10: GOSUB 1230
  109. 840   RETURN 
  110. 850   PRINT 
  111. 860   REM  SECOND LINE OF PROGRAM
  112. 870   PRINT "THE SECOND LINE YOUR CINQUAIN NEEDS 2"
  113. 880   PRINT "WORDS THAT DESCRIBE "S$"."
  114. 890   PRINT 
  115. 900   PRINT "PLEASE TYPE IN A DESCRIPTION USING TWO  WORDS."
  116. 910   GOSUB 1270: INPUT "=>";B$
  117. 920   IF B$ = "" THEN 910
  118. 930   CLS : PRINT : PRINT 
  119. 940   RETURN 
  120. 950   REM  3RD LINE OF POEM
  121. 960   PRINT "THE 3RD LINE OF YOUR CINQUAIN NEEDS"
  122. 970   PRINT "THREE WORDS THAT DESCRIBE SOMETHING"
  123. 980   PRINT "THAT HAPPENS IN "S$"."
  124. 990   PRINT 
  125. 1000   PRINT "TYPE IN A HAPPENING USING THREE WORDS."
  126. 1010   GOSUB 1270: INPUT "=>";D$
  127. 1020   IF D$ = "" THEN 1010
  128. 1030   CLS : PRINT : PRINT 
  129. 1040   RETURN 
  130. 1050   REM  4TH LINE OF PROGRAM
  131. 1060   PRINT "THE 4TH LINE OF YOUR CINQUAIN NEEDS FOUR";
  132. 1070   PRINT "WORDS THAT DESCRIBE A FEELING YOU GET"
  133. 1080   PRINT "DURING "S$"."
  134. 1090   PRINT 
  135. 1100   PRINT "TYPE IN A FEELING USING FOUR WORDS."
  136. 1110   GOSUB 1270: INPUT "=>";G$
  137. 1120   IF G$ = "" THEN 1110
  138. 1130   CLS : PRINT : PRINT 
  139. 1140   RETURN 
  140. 1150   REM  5TH LINE OF POEM
  141. 1160   PRINT "THE 5TH, AND LAST, LINE OF YOUR CINQUAIN";
  142. 1170   PRINT "NEEDS ONE WORD THAT REFERS TO "S$
  143. 1180   PRINT "TYPE IN ONE WORD."
  144. 1190   GOSUB 1270: INPUT "=>";K$
  145. 1200   IF K$ = "" THEN 1190
  146. 1210   CLS : PRINT : PRINT 
  147. 1220   RETURN 
  148. 1230   REM  SECOND TIMER
  149. 1240  T = T1
  150. 1250   IF TI < T + W THEN TI = TI + 1: GOTO 1250
  151. 1260   RETURN 
  152. 1270   LOCATE 12,1:RETURN
  153. 1280   LOCATE 23: PRINT "PRESS <RETURN> TO CONTINUE.";: IN$=INKEY$: PRINT : IF  IN$ <  > CHR$(13) THEN 1280
  154. 1290   RETURN
  155.