home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG121.ARC / KGAMES.ARK / COUNT.BAS next >
BASIC Source File  |  1988-02-29  |  12KB  |  355 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. 2030 REM
  17. 2040 REM   PROGRAM: 1 2 3 COUNT!              PROGRAMMER: ELIZABETH VAN KLEECK
  18. 2050 REM   LANGUAGE: MBASIC                   OPERATING SYSTEM: CP/M
  19. 2060 REM
  20. 2070 REM   1 2 3 COUNT! PUTS A NUMBER OF SHAPES ON THE SCREEN AND ASKS THE
  21. 2080 REM   PLAYER TO COUNT THEM AND TYPE IN HIS ANSWER. IF THE ANSWER IS CORRECT
  22. 2090 REM  A ROCKET BLASTS OFF STRAIGHT UP. IF THE ANSWER IS WRONG, THE ROCKET
  23. 2100 REM  DOES A NOSE DIVE AND CRASHES.
  24. 2110 REM
  25. 2120 REM  A$ : INPUT ANSWER
  26. 2130 REM
  27. 2140 REM ***********************************************************************
  28. 2150 REM
  29. 2160 PRINT CHR$(26) : PRINT
  30. 2170 GOSUB 2970 : REM INTRO
  31. 2180 Y$ = INPUT$(1)
  32. 2190 PRINT CHR$(26)
  33. 2200 FOR I = 1 TO 5
  34. 2210   PRINT
  35. 2220 NEXT I
  36. 2230 GOSUB 3390: REM DRAW 3 SQUARES
  37. 2240 GOSUB 5200: REM COUNT?
  38. 2250 IF A$ = "3" THEN GOSUB 4690: REM ROCKET UP
  39. 2260 IF A$ <>"3" THEN GOSUB 3760: REM ROCKET DOWN
  40. 2270 REM NEXT COUNT
  41. 2280 PRINT CHR$(26)
  42. 2290 FOR I = 1 TO 20
  43. 2300   PRINT
  44. 2310 NEXT I
  45. 2320 GOSUB 3470: REM 5 TRIANGLES
  46. 2330 GOSUB 5200
  47. 2340 IF A$ = "5" THEN GOSUB 4690
  48. 2350 IF A$ <>"5" THEN GOSUB 3760
  49. 2360 REM NEXT COUNT
  50. 2370 PRINT CHR$(26)
  51. 2380 FOR I = 1 TO 8
  52. 2390   PRINT
  53. 2400 NEXT I
  54. 2410 GOSUB 3620: REM 7 RECTANGLES
  55. 2420 GOSUB 5200
  56. 2430 IF A$ = "7" THEN GOSUB 4690
  57. 2440 IF A$ <> "7" THEN GOSUB 3760
  58. 2450 REM NEXT COUNT
  59. 2460 PRINT CHR$(26)
  60. 2470 FOR I = 1 TO 17
  61. 2480    PRINT
  62. 2490 NEXT I
  63. 2500 GOSUB 3700: REM 1 DIAMOND
  64. 2510 GOSUB 5200
  65. 2520 IF A$ = "1" THEN GOSUB 4690
  66. 2530 IF A$<>"1" THEN GOSUB 3760
  67. 2540 REM NEXT COUNT
  68. 2550 PRINT CHR$(26)
  69. 2560 GOSUB 3390:REM 3 SQUARES
  70. 2570 PRINT TAB(15):PRINT:PRINT
  71. 2580 GOSUB 3700:REM 1 DIAMOND
  72. 2590 GOSUB 5200
  73. 2600 IF A$ = "4" THEN GOSUB 4690
  74. 2610 IF A$<>"4"THEN GOSUB 3760
  75. 2620 REM NEXT COUNT
  76. 2630 PRINT CHR$(26)
  77. 2640 GOSUB 3620: REM 7 REC
  78. 2650 PRINT
  79. 2660 GOSUB 3700: REM 1 DIAMOND
  80. 2670 GOSUB 5200
  81. 2680 IF A$ = "8" THEN GOSUB 4690
  82. 2690 IF A$ <> "8" THEN GOSUB 3760
  83. 2700 REM NEXT COUNT
  84. 2710 PRINT CHR$(26)
  85. 2720 GOSUB 3700
  86. 2730 FOR I = 1 TO 3
  87. 2740    PRINT
  88. 2750 NEXT I
  89. 2760 GOSUB 3700: REM 1 DIAMOND
  90. 2770 GOSUB 5200
  91. 2780 IF A$ = "2" THEN GOSUB 4690
  92. 2790 IF A$ <> "2" THEN GOSUB 3760
  93. 2800 REM NEXT COUNT
  94. 2810 PRINT CHR$(26)
  95. 2820 GOSUB 3390: REM 3 SQUARES
  96. 2830 PRINT:PRINT:PRINT:PRINT:PRINT
  97. 2840 GOSUB 3390: REM 3 MORE SQUARES
  98. 2850 GOSUB 5200
  99. 2860 IF A$ = "6" THEN GOSUB 4690
  100. 2870 IF A$ <> "6" THEN GOSUB 3760
  101. 2880 PRINT CHR$(26)
  102. 2890 PRINT "                                      *****"
  103. 2900 PRINT "                                     * @ @ *"
  104. 2910 PRINT "                                     @  .  @"
  105. 2920 PRINT "                                      * ~ *"
  106. 2930 PRINT "                                        -      "
  107. 2940 PRINT
  108. 2950 PRINT "                                     BYE BYE !"
  109. 2952 FOR I = 1 TO 500
  110. 2954   REM   WAIT, THEN GO BACK TO MENU
  111. 2956 NEXT I
  112. 2960 SYSTEM
  113. 2970 PRINT "                  1234567890987654321234567890987654321234567890"
  114. 2980 PRINT "                  2                                            9"
  115. 2990 PRINT "                  3                                            8"
  116. 3000 PRINT "                  4                                            7"
  117. 3010 PRINT "                  5                                            6"
  118. 3020 PRINT "                  6                                            5"
  119. 3030 PRINT "                  7                                            4"
  120. 3040 PRINT "                  8                                            3"
  121. 3050 PRINT "                  9                                            2"
  122. 3060 PRINT "                  0                                            1"
  123. 3070 PRINT "                  9                                            2"
  124. 3080 PRINT "                  8                                            3"
  125. 3090 PRINT "                  7                                            4"
  126. 3100 PRINT "                  6                                            5"
  127. 3110 PRINT "                  5                                            6"
  128. 3120 PRINT "                  4                                            7"
  129. 3130 PRINT "                  3                                            8"
  130. 3140 PRINT "                  2                                            9"
  131. 3150 PRINT "                  1234567890987654321234567890987654321234567890"
  132. 3160 REM COUNTDOWN SLOWLY
  133. 3170 GOSUB 3350
  134. 3180 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(36) CHR$(72) "1"
  135. 3190 GOSUB 3350
  136. 3200 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(38) CHR$(72) "2"
  137. 3210 GOSUB 3350
  138. 3220 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(40) CHR$(72) "3"
  139. 3230 GOSUB 3350
  140. 3240 FOR L = 1 TO 2
  141. 3250 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(42) CHR$(69) "COUNT!"
  142. 3260 GOSUB 3350
  143. 3270 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(42) CHR$(69) "      "
  144. 3280 GOSUB 3350
  145. 3290 NEXT L
  146. 3300 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(42) CHR$(69) "COUNT!"
  147. 3310 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(45) CHR$(53) "COUNT THE SHAPES YOU SEE ON THE SCREEN"
  148. 3320 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(46) CHR$(53) "AND TYPE IN YOUR ANSWER. THE COMPUTER"
  149. 3330 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(47) CHR$(53) "WILL TELL YOU IF YOU'RE RIGHT OR WRONG."
  150. 3340 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(49) CHR$(59) "NOW PRESS RETURN TO START."
  151. 3350 FOR K = 1 TO 300
  152. 3360   REM
  153. 3370 NEXT K
  154. 3380 RETURN
  155. 3390 FOR I = 1 TO 3
  156. 3400    PRINT TAB(30)
  157. 3410      FOR J = 1 TO 3
  158. 3420         PRINT "XXXXX     ";
  159. 3430       NEXT J
  160. 3440    PRINT CHR$(13)
  161. 3450 NEXT I
  162. 3460 RETURN
  163. 3470 PRINT TAB(15)
  164. 3480 FOR I = 1 TO 5
  165. 3490   PRINT "     X     ";
  166. 3500 NEXT I
  167. 3510 PRINT CHR$(13)
  168. 3520 PRINT TAB(15)
  169. 3530 FOR I = 1 TO 5
  170. 3540   PRINT "    XXX    ";
  171. 3550 NEXT I
  172. 3560 PRINT CHR$(13)
  173. 3570 PRINT TAB(15)
  174. 3580 FOR I = 1 TO 5
  175. 3590   PRINT "   XXXXX   ";
  176. 3600 NEXT I
  177. 3610 RETURN
  178. 3620 FOR I = 1 TO 8
  179. 3630    PRINT TAB(10)
  180. 3640      FOR J = 1 TO 7
  181. 3650       PRINT "XXXXX    ";
  182. 3660      NEXT J
  183. 3670    PRINT CHR$(13)
  184. 3680 NEXT I
  185. 3690 RETURN
  186. 3700 PRINT TAB(42);"X"
  187. 3710 PRINT TAB(41);"XXX"
  188. 3720 PRINT TAB(40);"XXXXX"
  189. 3730 PRINT TAB(41);"XXX"
  190. 3740 PRINT TAB(42);"X"
  191. 3750 RETURN
  192. 3760 PRINT CHR$(26)
  193. 3770 GOSUB 4300
  194. 3780 PRINT CHR$(26)
  195. 3790 FOR I = 1 TO 3
  196. 3800   PRINT
  197. 3810 NEXT I
  198. 3820 GOSUB 4300
  199. 3830 PRINT CHR$(26)
  200. 3840 FOR I = 1 TO 5
  201. 3850    PRINT
  202. 3860 NEXT I
  203. 3870 GOSUB 4300
  204. 3880 PRINT CHR$(26)
  205. 3890 FOR I = 1 TO 7
  206. 3900   PRINT
  207. 3910 NEXT I
  208. 3920 GOSUB 4300
  209. 3930 PRINT CHR$(26)
  210. 3940 FOR I = 1 TO 10
  211. 3950   PRINT
  212. 3960 NEXT I
  213. 3970 GOSUB 4300
  214. 3980 PRINT CHR$(26)
  215. 3990 FOR I = 1 TO 13
  216. 4000     PRINT
  217. 4010 NEXT I
  218. 4020 GOSUB 4300
  219. 4030 PRINT CHR$(26)
  220. 4040 FOR I = 1 TO 15
  221. 4050   PRINT
  222. 4060 NEXT I
  223. 4070 GOSUB 4300
  224. 4080 PRINT CHR$(26)
  225. 4090 FOR I = 1 TO 15
  226. 4100    PRINT
  227. 4110 NEXT I
  228. 4120 GOSUB 4400 
  229. 4130 PRINT CHR$(26)
  230. 4140 FOR I = 1 TO 15
  231. 4150    PRINT
  232. 4160 NEXT I
  233. 4170 GOSUB 4490
  234. 4180 PRINT CHR$(26)
  235. 4190 FOR I = 1 TO 15
  236. 4200    PRINT
  237. 4210 NEXT I
  238. 4220 GOSUB 4560
  239. 4230 PRINT CHR$(26)
  240. 4240 FOR I = 1 TO 15
  241. 4250   PRINT
  242. 4260 NEXT I
  243. 4270 GOSUB 4620
  244. 4280 RETURN
  245. 4290 PRINT TAB(20)
  246. 4300 PRINT TAB(30); "           X   X     "
  247. 4310 PRINT TAB(30); "           XX XX      "
  248. 4320 PRINT TAB(30); "           XXXXX      "
  249. 4330 PRINT TAB(30); "           XXXXX      "
  250. 4340 PRINT TAB(30); "           XXXXX   "
  251. 4350 PRINT TAB(30); "           XXXXX    "
  252. 4360 PRINT TAB(30); "            XXX     "
  253. 4370 PRINT TAB(30); "             X       "
  254. 4380 PRINT CHR$(7)
  255. 4390 RETURN
  256. 4400 REM ROCKET FALLING APART
  257. 4410 PRINT TAB(30); "        XX       XX  "
  258. 4420 PRINT TAB(30); "        XX       XX  "
  259. 4430 PRINT TAB(30); "          XX   XX    "
  260. 4440 PRINT TAB(30); "          XX   XX     "
  261. 4450 PRINT TAB(30); "           XX XX      "
  262. 4460 PRINT TAB(30); "            XXX   "
  263. 4470 PRINT TAB(30); "             X     "
  264. 4480 RETURN
  265. 4490 PRINT:PRINT
  266. 4500 PRINT TAB(30); "   XX              XX  "
  267. 4510 PRINT TAB(30); "     XX          XX    "
  268. 4520 PRINT TAB(30); "         XX  XX       "
  269. 4530 PRINT TAB(30); "          XXXX   "
  270. 4540 PRINT TAB(30); "           XX    "
  271. 4550 RETURN
  272. 4560 PRINT:PRINT:PRINT
  273. 4570 PRINT TAB(30); "  XXX               XXX  "
  274. 4580 PRINT TAB(30); "      XXX       XXX       "
  275. 4590 PRINT TAB(30); "         XXX XXX         "
  276. 4600 PRINT TAB(30); "           XXX        "
  277. 4610 RETURN
  278. 4620 FOR I = 1 TO 6
  279. 4630    PRINT
  280. 4640 NEXT I
  281. 4650 PRINT TAB(30); "XXXXXXXXXXXXXXXXXXXXXXXXXXX"
  282. 4660 PRINT TAB(34); "SORRY, WRONG GUESS."
  283. 4665 FOR I = 1 TO 500
  284. 4670   REM WASTE TIME
  285. 4675 NEXT I
  286. 4680 RETURN
  287. 4690 FOR I=1 TO 15
  288. 4700    PRINT
  289. 4710 NEXT I
  290. 4720 PRINT TAB(8);"                                 X  "
  291. 4730 PRINT "                                       X X"
  292. 4740 PRINT TAB(8); "                               X   X  "
  293. 4750 PRINT TAB(8); "                               X   X   "
  294. 4760 PRINT TAB(8); "                               XXXXX    "
  295. 4770 PRINT TAB(8);"                               XXXXX    "
  296. 4780 PRINT TAB(8);"                               XXXXX "
  297. 4790 PRINT TAB(8);"                               XXXXX"
  298. 4800 PRINT TAB(8);"                               XXXXX  "
  299. 4810 PRINT TAB(8);"                               XX XX  "
  300. 4820 PRINT TAB(8);"                                X X  "
  301. 4830 GOSUB 4870
  302. 4840 PRINT TAB(37); "YOU WIN!!!
  303. 4845 FOR I = 1 TO 500
  304. 4850   REM WASTE TIME
  305. 4855 NEXT I
  306. 4860 RETURN
  307. 4870 FOR J= 1 TO 22
  308. 4880   PRINT
  309. 4890 NEXT J
  310. 4900 PRINT TAB(8); "                       *                      *    "
  311. 4910 PRINT CHR$(7)
  312. 4920 PRINT CHR$(26)
  313. 4930 FOR I=1 TO 4
  314. 4940   PRINT
  315. 4950 NEXT I
  316. 4960 PRINT  TAB(8);"                  *             *                *  "
  317. 4970 PRINT CHR$(7)
  318. 4980 PRINT CHR$(26)
  319. 4990 FOR I=1 TO 10
  320. 5000   PRINT
  321. 5010 NEXT I
  322. 5020 PRINT  TAB(8);"            *            *               *             *   "
  323. 5030 PRINT CHR$(7)
  324. 5040 PRINT CHR$(26)
  325. 5050 FOR I = 1 TO 20
  326. 5060   PRINT
  327. 5070 NEXT I
  328. 5080 PRINT "                 *                   *            *          "
  329. 5090 PRINT CHR$(7)
  330. 5100 PRINT CHR$(26)
  331. 5110 FOR I = 1 TO 30
  332. 5120   PRINT
  333. 5130 NEXT I
  334. 5140 PRINT CHR$(7)
  335. 5150 PRINT CHR$(26)
  336. 5160 FOR I = 1 TO 20
  337. 5170    PRINT
  338. 5180 NEXT I
  339. 5190 RETURN
  340. 5200 PRINT:PRINT:PRINT
  341. 5210 PRINT TAB(31); "**********************"
  342. 5220 PRINT TAB(31); "*                    *"
  343. 5230 PRINT TAB(31); "*  HOW MANY SHAPES?  *"
  344. 5240 PRINT TAB(31); "*                    *"
  345. 5250 PRINT TAB(31); "**********************"
  346. 5260 A$ = INPUT$(1)
  347. 5270 RETURN
  348. 5275 REM
  349. 5280 REM *** END OF 1 2 3 COUNT! LISTING
  350. 5290 REM
  351. 31); "**********************"
  352. 5260 A$ = INPUT$(1)
  353. 5270 RETURN
  354. 5275 REM
  355. 5280