home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug121.arc / KGAMES.ARK / RHYME.BAS < prev   
BASIC Source File  |  1988-02-29  |  17KB  |  322 lines
  1. 20 REM **********************************************************************
  2. 21 REM *  THIS SOFTWARE IS NOT INTENDED FOR COMMERCIAL USE.                 *
  3. 22 REM *                                                                    *
  4. 24 REM *  PROGRAM: KGAMES                 PROGRAMMER: ELIZABETH VAN KLEECK  *
  5. 26 REM *  LANGUAGE: MBASIC                OPERATING SYSTEM: CP/M            *
  6. 28 REM *  MACHINE: KAYPRO II              DATE: 11/14/84                    *
  7. 30 REM *                                                                    *
  8. 32 REM *                        SOFTWARE SHORTCUTS                          *
  9. 34 REM *                        1012 HARMONY LANDING LANE                   *
  10. 35 REM *                        GOSHEN, KY 40026                            *
  11. 36 REM *                                                                    *
  12. 37 REM *  KGAMES IS A SET OF THREE GAMES APPROPRIATE FOR CHILDREN AGED 3    *
  13. 38 REM *  TO 7. THE GAMES ARE MATCH!, 1 2 3 COUNT! AND RHYME TIME.          *
  14. 39 REM *                                                                    *
  15. 40 REM **********************************************************************
  16. 5520 REM
  17. 5530 REM PROGRAM: RHYME TIME                 PROGRAMMER: ELIZABETH VAN KLEECK
  18. 5540 REM LANGUAGE: MBASIC                    OPERATING SYSTEM: CP/M
  19. 5550 REM
  20. 5560 REM   RHYME TIME SHOWS THE PLAYER FOUR PICTURES OF FAMILIAR OBJECTS WITH
  21. 5570 REM   THEIR NAMES UNDER THEM AND AN ARROW POINTING TO ONE OF THEM. THE
  22. 5580 REM   PLAYER MUST FIND THE PICTURE THAT RHYMES WITH THE ONE THAT HAS THE
  23. 5590 REM  ARROW POINTING TO IT AND TYPE IN ITS NAME.
  24. 5600 REM
  25. 5610 REM   Y$(10) : INPUT OBJECT NAME
  26. 5620 REM   X : NUMBER OF SET OF PICTURES TO BE DISPLAYED
  27. 5630 REM**********************************************************************
  28. 5640 DIM Y$(10)
  29. 5650 PRINT CHR$(26)
  30. 5660 FOR I = 1 TO 3
  31. 5670    PRINT
  32. 5680 NEXT I
  33. 5690 PRINT "                          <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<"
  34. 5700 PRINT "                          <                             <"
  35. 5710 PRINT "                          !         RHYME TIME          !"
  36. 5720 PRINT "                          >                             >"
  37. 5730 PRINT "                          >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
  38. 5740 FOR I = 1 TO 4
  39. 5750    PRINT
  40. 5760 NEXT I
  41. 5770 GOSUB 6730: REM INSTRUCTIONS
  42. 5780 X = 0
  43. 5790 PRINT CHR$(26)
  44. 5800 GOSUB 6830: REM CHOOSE PICTURE
  45. 5810 X = X+1
  46. 5820 IF X > 6 GOTO 5840: REM END OF GAME
  47. 5830 GOTO 5790
  48. 5840 PRINT CHR$(26)
  49. 5850 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(45) CHR$(68) "BYE BYE!"
  50. 5852 FOR I = 1 TO 500
  51. 5854   REM   WAIT, THEN GO BACK TO MENU
  52. 5856 NEXT I
  53. 5860 SYSTEM
  54. 5870 PRINT CHR$(26)
  55. 5880 PRINT CHR$(7)
  56. 5890 GOSUB 6000
  57. 5900 GOSUB 6550
  58. 5910 PRINT CHR$(26)
  59. 5920 PRINT CHR$(7)
  60. 5930 GOSUB 6190
  61. 5940 GOSUB 6550
  62. 5950 PRINT CHR$(26)
  63. 5960 PRINT CHR$(7)
  64. 5970 GOSUB 6360
  65. 5980 GOSUB 6550
  66. 5990 RETURN
  67. 6000 PRINT TAB(47); "            * * *       "
  68. 6010 PRINT TAB(47); "           * @ @ * "
  69. 6020 PRINT TAB(47); "          *   .   *"
  70. 6030 PRINT TAB(47); "           *  _  *"
  71. 6040 PRINT TAB(47); "            * * * "
  72. 6050 PRINT TAB(47); "              *   "
  73. 6060 PRINT TAB(47); "        *************  "
  74. 6070 PRINT TAB(47); "       *  *********  *  "
  75. 6080 PRINT TAB(47);"      *    *******    *  "
  76. 6090 PRINT TAB(47);"     *      *****      *  "
  77. 6100 PRINT TAB(47);"    *      *******      *  "
  78. 6110 PRINT TAB(47);"   *       *** ***       *"
  79. 6120 PRINT TAB(47);"  **       *** ***       **"
  80. 6130 PRINT TAB(47);"           *** ***"
  81. 6140 PRINT TAB(47);"           *** ***     "
  82. 6150 PRINT TAB(47);"           *** *** "
  83. 6160 PRINT TAB(47);"           *** *** "
  84. 6170 PRINT TAB(47);"         ***** ***** "
  85. 6180 RETURN
  86. 6190 PRINT TAB(25);"  *****           *****"
  87. 6200 PRINT TAB(25);"     ***         ***"
  88. 6210 PRINT TAB(25);"      ***       ***"
  89. 6220 PRINT TAB(25);"       ***     ***"
  90. 6230 PRINT TAB(25);"        ***   ***"
  91. 6240 PRINT TAB(25);"         *******"
  92. 6250 PRINT TAB(25);"          *****"
  93. 6260 PRINT TAB(25);"         *******"
  94. 6270 PRINT TAB(25);"        *********"
  95. 6280 PRINT TAB(25);"       ***********"
  96. 6290 PRINT TAB(25);"      *     *     *"
  97. 6300 PRINT TAB(25);"     *    * * *    *"
  98. 6310 PRINT TAB(25);"    *    *  -  *    *"
  99. 6320 PRINT TAB(25);"   *    *   .   *    *"
  100. 6330 PRINT TAB(25);"  *      * @ @ *      *"
  101. 6340 PRINT TAB(25);"**        * * *        **"
  102. 6350 RETURN
  103. 6360 PRINT "             * * *"
  104. 6370 PRINT "            * @ @ *"
  105. 6380 PRINT "           *   .   *"
  106. 6390 PRINT "            *  _  *"
  107. 6400 PRINT "             * * *"
  108. 6410 PRINT "               *"
  109. 6420 PRINT "         *************"
  110. 6430 PRINT "        *  *********  *"
  111. 6440 PRINT "       *    *******    *"
  112. 6450 PRINT "      *      *****      *"
  113. 6460 PRINT "     *      *******      *"
  114. 6470 PRINT "    *       *** ***       *"
  115. 6480 PRINT "  **        *** ***        **"
  116. 6490 PRINT "            *** ***"
  117. 6500 PRINT "            *** ***"
  118. 6510 PRINT "            *** ***"
  119. 6520 PRINT "            *** ***"
  120. 6530 PRINT "          ***** *****"
  121. 6540 RETURN
  122. 6550 FOR I = 1 TO 100
  123. 6560   REM TIME LOOP
  124. 6570 NEXT I
  125. 6580 RETURN
  126. 6590 REM WRING ANSWER
  127. 6600 PRINT CHR$(26)
  128. 6610 PRINT:PRINT:PRINT
  129. 6620 PRINT "                                    *****"
  130. 6630 PRINT "                                   * @ @ *"
  131. 6640 PRINT "                                   *  '  *"
  132. 6650 PRINT "                                    * O *"
  133. 6660 PRINT "                                      *"
  134. 6670 PRINT
  135. 6680 PRINT "                             WHOOPS! WRONG ANSWER!"
  136. 6690 FOR I = 1 TO 700
  137. 6700   REM WASTE TIME
  138. 6710 NEXT I
  139. 6720 RETURN
  140. 6730 PRINT "             <<<<<<<<<<<<<<<<<<<<<<<<<<<!<<<<<<<<<<<<<<<<<<<<<<<<<<<"
  141. 6740 PRINT "             <                                                     <"
  142. 6750 PRINT "             <   FIND THE PICTURE WITH THE ARROW POINTING TO IT.   <"
  143. 6760 PRINT "             !   FIND THE PICTURE THAT RHYMES WITH THE FIRST       !"
  144. 6770 PRINT "             !   ONE, AND TYPE THE NAME OF THE RHYMING PICTURE.    !"
  145. 6780 PRINT "             >   NOW PRESS RETURN TO START.                        >"
  146. 6790 PRINT "             >                                                     >"
  147. 6800 PRINT "             >>>>>>>>>>>>>>>>>>>>>>>>>>>!>>>>>>>>>>>>>>>>>>>>>>>>>>>"
  148. 6810 T$ = INPUT$(1)
  149. 6820 RETURN
  150. 6830 REM CHOOSE PICTURE
  151. 6840 IF X = 0 THEN GOSUB 6920:REM CAT^,CONE,HAT,BLOCK
  152. 6850 IF X = 1 THEN GOSUB 6950: REM CAKE,RAKE^,CAT,CONE
  153. 6860 IF X = 2 THEN GOSUB 6980:REM HAT,BLOCK,CLOCK^,TEEPEE
  154. 6870 IF X = 3 THEN GOSUB 7010: REM FISH,BALLOON,LIGHT^,KITE
  155. 6880 IF X = 4 THEN GOSUB 7040:REM TREE,E^,LAMP,APPLE
  156. 6890 IF X = 5 THEN GOSUB 7060: REM DICE, CARD,TRAIN^, RAIN
  157. 6900 IF X = 6 THEN GOSUB 7090: REM HANDLE^, CANDLE, BROOM, A
  158. 6910 RETURN
  159. 6920 GOSUB 7120:GOSUB 7260
  160. 6930 INPUT Y$:IF Y$ = "HAT" THEN GOSUB 5870 ELSE GOSUB 6590
  161. 6940 RETURN
  162. 6950 GOSUB 7370:PRINT:PRINT:GOSUB 7260
  163. 6960 INPUT Y$:IF Y$ = "RAKE" THEN GOSUB 5870 ELSE GOSUB 6590
  164. 6970 RETURN
  165. 6980 GOSUB 7260:GOSUB 7470
  166. 6990 INPUT Y$:IF Y$ = "BLOCK" THEN GOSUB 5870 ELSE GOSUB 6590
  167. 7000 RETURN
  168. 7010 GOSUB 7820
  169. 7020 INPUT Y$:  IF Y$ = "KITE" THEN GOSUB 5870 ELSE GOSUB 6590
  170. 7030 RETURN
  171. 7040 GOSUB 7600:INPUT Y$:IF Y$ = "TREE" THEN GOSUB 5870 ELSE GOSUB 6590
  172. 7050 RETURN
  173. 7060 GOSUB 8200: GOSUB 8050
  174. 7070 INPUT Y$:IF Y$ = "RAIN" THEN GOSUB 5870 ELSE GOSUB 6590
  175. 7080 RETURN
  176. 7090 GOSUB 8410:GOSUB 8300
  177. 7100 INPUT Y$:IF Y$ = "CANDLE" THEN GOSUB 5870 ELSE GOSUB 6590
  178. 7110 RETURN
  179. 7120 PRINT "                       *  *                         *"
  180. 7130 PRINT "                      * ** *                       ( )"
  181. 7140 PRINT "                     * @  @ *          *          (   )"
  182. 7150 PRINT "                     *  .   *         *           *****"
  183. 7160 PRINT "                      * -  *          *            ***"
  184. 7170 PRINT "                        **           *              *"
  185. 7180 PRINT "                         ************      "
  186. 7190 PRINT "                         **       **          ICE CREAM CONE"
  187. 7200 PRINT "                         **       **"
  188. 7210 PRINT "                        ***      ***"
  189. 7220 PRINT
  190. 7230 PRINT "                            CAT"
  191. 7240 PRINT "                             ^"
  192. 7250 RETURN
  193. 7260 PRINT "               ***"
  194. 7270 PRINT "              *   *                         **********"
  195. 7280 PRINT "            *********                      *   A   * *"
  196. 7290 PRINT "                                          *       *  *"
  197. 7300 PRINT "                                         ********* B *"
  198. 7310 PRINT "               HAT                       *       *  *"
  199. 7320 PRINT "                                         *   C   * *"
  200. 7330 PRINT "                                         **********"
  201. 7340 PRINT 
  202. 7350 PRINT "                                            BLOCK"
  203. 7360 RETURN
  204. 7370 PRINT "                       ' ' '                         *"
  205. 7380 PRINT "                       | | |                         *"
  206. 7390 PRINT "                     *********                       *"
  207. 7400 PRINT "                     *********                       *"
  208. 7410 PRINT "                     *********                       *"
  209. 7420 PRINT "                                                 *********"
  210. 7430 PRINT "                       CAKE                      | | | | |"
  211. 7440 PRINT "                        ^"
  212. 7450 PRINT "                                                   RAKE"
  213. 7460 RETURN
  214. 7470 PRINT "                **************                          *"
  215. 7480 PRINT "                *     12     *                         * *"
  216. 7490 PRINT "                * 11       1 *                        *   *"
  217. 7500 PRINT "                * 10  ^    2 *                       *     *"
  218. 7510 PRINT "                * 9   @->  3 *                      *  ___  *"
  219. 7520 PRINT "                * 8        4 *                     *   | |   *"
  220. 7530 PRINT "                * 7        5 *              ************************"
  221. 7540 PRINT "                *     6      *"
  222. 7550 PRINT "                **************                       TEEPEE"
  223. 7560 PRINT
  224. 7570 PRINT "                    CLOCK "
  225. 7580 PRINT "                      ^"
  226. 7590 RETURN
  227. 7600 PRINT "                  *************                    **********"
  228. 7610 PRINT "                *               *                  **"
  229. 7620 PRINT "              *                   *                **"
  230. 7630 PRINT "             *                     *               ******"
  231. 7640 PRINT "             *                     *               **"
  232. 7650 PRINT "             *                     *               **"
  233. 7660 PRINT "              *                   *                **********"
  234. 7670 PRINT "                *               *                 "
  235. 7680 PRINT "                  *************                         E"
  236. 7690 PRINT"                       ***                              ^"
  237. 7700 PRINT"                       ***" 
  238. 7710 PRINT"                       ***                  ***                 /~"
  239. 7720 PRINT"                       ***                 *****                *"
  240. 7730 PRINT"                       ***                *******              * *"
  241. 7740 PRINT"             ***********************         *                 * *"
  242. 7750 PRINT"                                             *                *   *"
  243. 7760 PRINT"                      TREE                 *****             *     *"
  244. 7770 PRINT"                                                             *     *"
  245. 7780 PRINT"                                           LAMP               *****"
  246. 7790 PRINT
  247. 7800 PRINT"                                                               PEAR"
  248. 7810 RETURN
  249. 7820 PRINT  "                                                  *****"
  250. 7830 PRINT "                  *******                        *     *"
  251. 7840 PRINT "                 * @     *  *                   *       *"
  252. 7850 PRINT "                >         **                    *       *"
  253. 7860 PRINT "                 *       ***                     *     *"
  254. 7870 PRINT "                  *******   *                     *****"
  255. 7880 PRINT "                                                    *"
  256. 7890 PRINT "                   FISH                             *"
  257. 7900 PRINT "                                                    *"
  258. 7910 PRINT "               \    |    /             *            ***"
  259. 7920 PRINT "                                      ***              *   ***"
  260. 7930 PRINT "                  *****              *****              * *. .*"
  261. 7940 PRINT "             _   *     *   _        *******              ** ' *"
  262. 7950 PRINT "                 *     *             *****                **O*"
  263. 7960 PRINT "                  *   *               ***                   *"
  264. 7970 PRINT "              /    ***    \            *                    **"
  265. 7980 PRINT "                   ***               *                      * *"
  266. 7990 PRINT "                                    *                      * * **"
  267. 8000 PRINT "                  LIGHT             *                     *   *"
  268. 8010 PRINT "                    ^                 *                 ***   ***"
  269. 8020 PRINT "                                         *           "
  270. 8030 PRINT "                                      KITE               BALLOON"
  271. 8040 RETURN
  272. 8050 PRINT "                                                       /    /   /    /"
  273. 8060 PRINT "           ****                                       /   /    /   /   /"
  274. 8070 PRINT "        *   **  ***  ******           ********          /   /   /   /   "
  275. 8080 PRINT "        ********* *  ******  *******   ******         /   /   /   /   /"
  276. 8090 PRINT "        ***********__******__*******__********               *******"
  277. 8100 PRINT "         00    00    00  00  00   00   00  00               *   *   *"
  278. 8110 PRINT "                                                           *    *    *"
  279. 8120 PRINT "                        TRAIN                              *    *    *"
  280. 8130 PRINT "                          ^                                *----*----*"
  281. 8140 PRINT "                                                                |"
  282. 8150 PRINT "                                                                |"
  283. 8160 PRINT "                                                                |"
  284. 8170 PRINT
  285. 8180 PRINT "                                                               RAIN"
  286. 8190 RETURN
  287. 8200 PRINT "             ******                       **********"
  288. 8210 PRINT "            * .  **   ******              * 2      *"
  289. 8220 PRINT "           ******.*  *... **              *    *   *"
  290. 8230 PRINT "           * .. *.* ******.*              *   ***  *"
  291. 8240 PRINT "           * .. *.* * . .* *              *    *   *"
  292. 8250 PRINT "           *******  * ...* *              *      2 *"
  293. 8260 PRINT "                    *******               **********"
  294. 8270 PRINT 
  295. 8280 PRINT "                 DICE                        CARD"
  296. 8290 RETURN
  297. 8300 PRINT "                    '                           *"
  298. 8310 PRINT "                    |                           *"
  299. 8320 PRINT "                    |                           *"
  300. 8330 PRINT "                   ***                          *"
  301. 8340 PRINT "                                                *"
  302. 8350 PRINT "                                                *"
  303. 8360 PRINT "                 CANDLE                      *******"
  304. 8370 PRINT "                                            ///|||\\\"
  305. 8380 PRINT
  306. 8390 PRINT"                                              BROOM"
  307. 8400 RETURN
  308. 8410 PRINT "                   ****                             "
  309. 8420 PRINT "                   *  *  <- HANDLE                  "
  310. 8430 PRINT "            ******************                       *"
  311. 8440 PRINT "            ******************                      * *"
  312. 8450 PRINT "            ******************                     *   *"
  313. 8460 PRINT "            ******************                    *******"
  314. 8470 PRINT "            ******************                   *       *"
  315. 8480 PRINT "                                                *         *"
  316. 8490 PRINT 
  317. 8500 PRINT "                                                     A"
  318. 8510 RETURN
  319. 8520 REM *** END OF RHYME TIME LISTING - END OF PROGRAM IS LINE 5860 ***
  320.                                     A"
  321. 8510 RETURN
  322. 8520 REM *** END OF RHYME TIME LISTING - E