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
/
RHYME.BAS
< prev
Wrap
BASIC Source File
|
1988-02-29
|
17KB
|
322 lines
20 REM **********************************************************************
21 REM * THIS SOFTWARE IS NOT INTENDED FOR COMMERCIAL USE. *
22 REM * *
24 REM * PROGRAM: KGAMES PROGRAMMER: ELIZABETH VAN KLEECK *
26 REM * LANGUAGE: MBASIC OPERATING SYSTEM: CP/M *
28 REM * MACHINE: KAYPRO II DATE: 11/14/84 *
30 REM * *
32 REM * SOFTWARE SHORTCUTS *
34 REM * 1012 HARMONY LANDING LANE *
35 REM * GOSHEN, KY 40026 *
36 REM * *
37 REM * KGAMES IS A SET OF THREE GAMES APPROPRIATE FOR CHILDREN AGED 3 *
38 REM * TO 7. THE GAMES ARE MATCH!, 1 2 3 COUNT! AND RHYME TIME. *
39 REM * *
40 REM **********************************************************************
5520 REM
5530 REM PROGRAM: RHYME TIME PROGRAMMER: ELIZABETH VAN KLEECK
5540 REM LANGUAGE: MBASIC OPERATING SYSTEM: CP/M
5550 REM
5560 REM RHYME TIME SHOWS THE PLAYER FOUR PICTURES OF FAMILIAR OBJECTS WITH
5570 REM THEIR NAMES UNDER THEM AND AN ARROW POINTING TO ONE OF THEM. THE
5580 REM PLAYER MUST FIND THE PICTURE THAT RHYMES WITH THE ONE THAT HAS THE
5590 REM ARROW POINTING TO IT AND TYPE IN ITS NAME.
5600 REM
5610 REM Y$(10) : INPUT OBJECT NAME
5620 REM X : NUMBER OF SET OF PICTURES TO BE DISPLAYED
5630 REM**********************************************************************
5640 DIM Y$(10)
5650 PRINT CHR$(26)
5660 FOR I = 1 TO 3
5670 PRINT
5680 NEXT I
5690 PRINT " <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<"
5700 PRINT " < <"
5710 PRINT " ! RHYME TIME !"
5720 PRINT " > >"
5730 PRINT " >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
5740 FOR I = 1 TO 4
5750 PRINT
5760 NEXT I
5770 GOSUB 6730: REM INSTRUCTIONS
5780 X = 0
5790 PRINT CHR$(26)
5800 GOSUB 6830: REM CHOOSE PICTURE
5810 X = X+1
5820 IF X > 6 GOTO 5840: REM END OF GAME
5830 GOTO 5790
5840 PRINT CHR$(26)
5850 PRINT CHR$(13) CHR$(10) CHR$(27) CHR$(61) CHR$(45) CHR$(68) "BYE BYE!"
5852 FOR I = 1 TO 500
5854 REM WAIT, THEN GO BACK TO MENU
5856 NEXT I
5860 SYSTEM
5870 PRINT CHR$(26)
5880 PRINT CHR$(7)
5890 GOSUB 6000
5900 GOSUB 6550
5910 PRINT CHR$(26)
5920 PRINT CHR$(7)
5930 GOSUB 6190
5940 GOSUB 6550
5950 PRINT CHR$(26)
5960 PRINT CHR$(7)
5970 GOSUB 6360
5980 GOSUB 6550
5990 RETURN
6000 PRINT TAB(47); " * * * "
6010 PRINT TAB(47); " * @ @ * "
6020 PRINT TAB(47); " * . *"
6030 PRINT TAB(47); " * _ *"
6040 PRINT TAB(47); " * * * "
6050 PRINT TAB(47); " * "
6060 PRINT TAB(47); " ************* "
6070 PRINT TAB(47); " * ********* * "
6080 PRINT TAB(47);" * ******* * "
6090 PRINT TAB(47);" * ***** * "
6100 PRINT TAB(47);" * ******* * "
6110 PRINT TAB(47);" * *** *** *"
6120 PRINT TAB(47);" ** *** *** **"
6130 PRINT TAB(47);" *** ***"
6140 PRINT TAB(47);" *** *** "
6150 PRINT TAB(47);" *** *** "
6160 PRINT TAB(47);" *** *** "
6170 PRINT TAB(47);" ***** ***** "
6180 RETURN
6190 PRINT TAB(25);" ***** *****"
6200 PRINT TAB(25);" *** ***"
6210 PRINT TAB(25);" *** ***"
6220 PRINT TAB(25);" *** ***"
6230 PRINT TAB(25);" *** ***"
6240 PRINT TAB(25);" *******"
6250 PRINT TAB(25);" *****"
6260 PRINT TAB(25);" *******"
6270 PRINT TAB(25);" *********"
6280 PRINT TAB(25);" ***********"
6290 PRINT TAB(25);" * * *"
6300 PRINT TAB(25);" * * * * *"
6310 PRINT TAB(25);" * * - * *"
6320 PRINT TAB(25);" * * . * *"
6330 PRINT TAB(25);" * * @ @ * *"
6340 PRINT TAB(25);"** * * * **"
6350 RETURN
6360 PRINT " * * *"
6370 PRINT " * @ @ *"
6380 PRINT " * . *"
6390 PRINT " * _ *"
6400 PRINT " * * *"
6410 PRINT " *"
6420 PRINT " *************"
6430 PRINT " * ********* *"
6440 PRINT " * ******* *"
6450 PRINT " * ***** *"
6460 PRINT " * ******* *"
6470 PRINT " * *** *** *"
6480 PRINT " ** *** *** **"
6490 PRINT " *** ***"
6500 PRINT " *** ***"
6510 PRINT " *** ***"
6520 PRINT " *** ***"
6530 PRINT " ***** *****"
6540 RETURN
6550 FOR I = 1 TO 100
6560 REM TIME LOOP
6570 NEXT I
6580 RETURN
6590 REM WRING ANSWER
6600 PRINT CHR$(26)
6610 PRINT:PRINT:PRINT
6620 PRINT " *****"
6630 PRINT " * @ @ *"
6640 PRINT " * ' *"
6650 PRINT " * O *"
6660 PRINT " *"
6670 PRINT
6680 PRINT " WHOOPS! WRONG ANSWER!"
6690 FOR I = 1 TO 700
6700 REM WASTE TIME
6710 NEXT I
6720 RETURN
6730 PRINT " <<<<<<<<<<<<<<<<<<<<<<<<<<<!<<<<<<<<<<<<<<<<<<<<<<<<<<<"
6740 PRINT " < <"
6750 PRINT " < FIND THE PICTURE WITH THE ARROW POINTING TO IT. <"
6760 PRINT " ! FIND THE PICTURE THAT RHYMES WITH THE FIRST !"
6770 PRINT " ! ONE, AND TYPE THE NAME OF THE RHYMING PICTURE. !"
6780 PRINT " > NOW PRESS RETURN TO START. >"
6790 PRINT " > >"
6800 PRINT " >>>>>>>>>>>>>>>>>>>>>>>>>>>!>>>>>>>>>>>>>>>>>>>>>>>>>>>"
6810 T$ = INPUT$(1)
6820 RETURN
6830 REM CHOOSE PICTURE
6840 IF X = 0 THEN GOSUB 6920:REM CAT^,CONE,HAT,BLOCK
6850 IF X = 1 THEN GOSUB 6950: REM CAKE,RAKE^,CAT,CONE
6860 IF X = 2 THEN GOSUB 6980:REM HAT,BLOCK,CLOCK^,TEEPEE
6870 IF X = 3 THEN GOSUB 7010: REM FISH,BALLOON,LIGHT^,KITE
6880 IF X = 4 THEN GOSUB 7040:REM TREE,E^,LAMP,APPLE
6890 IF X = 5 THEN GOSUB 7060: REM DICE, CARD,TRAIN^, RAIN
6900 IF X = 6 THEN GOSUB 7090: REM HANDLE^, CANDLE, BROOM, A
6910 RETURN
6920 GOSUB 7120:GOSUB 7260
6930 INPUT Y$:IF Y$ = "HAT" THEN GOSUB 5870 ELSE GOSUB 6590
6940 RETURN
6950 GOSUB 7370:PRINT:PRINT:GOSUB 7260
6960 INPUT Y$:IF Y$ = "RAKE" THEN GOSUB 5870 ELSE GOSUB 6590
6970 RETURN
6980 GOSUB 7260:GOSUB 7470
6990 INPUT Y$:IF Y$ = "BLOCK" THEN GOSUB 5870 ELSE GOSUB 6590
7000 RETURN
7010 GOSUB 7820
7020 INPUT Y$: IF Y$ = "KITE" THEN GOSUB 5870 ELSE GOSUB 6590
7030 RETURN
7040 GOSUB 7600:INPUT Y$:IF Y$ = "TREE" THEN GOSUB 5870 ELSE GOSUB 6590
7050 RETURN
7060 GOSUB 8200: GOSUB 8050
7070 INPUT Y$:IF Y$ = "RAIN" THEN GOSUB 5870 ELSE GOSUB 6590
7080 RETURN
7090 GOSUB 8410:GOSUB 8300
7100 INPUT Y$:IF Y$ = "CANDLE" THEN GOSUB 5870 ELSE GOSUB 6590
7110 RETURN
7120 PRINT " * * *"
7130 PRINT " * ** * ( )"
7140 PRINT " * @ @ * * ( )"
7150 PRINT " * . * * *****"
7160 PRINT " * - * * ***"
7170 PRINT " ** * *"
7180 PRINT " ************ "
7190 PRINT " ** ** ICE CREAM CONE"
7200 PRINT " ** **"
7210 PRINT " *** ***"
7220 PRINT
7230 PRINT " CAT"
7240 PRINT " ^"
7250 RETURN
7260 PRINT " ***"
7270 PRINT " * * **********"
7280 PRINT " ********* * A * *"
7290 PRINT " * * *"
7300 PRINT " ********* B *"
7310 PRINT " HAT * * *"
7320 PRINT " * C * *"
7330 PRINT " **********"
7340 PRINT
7350 PRINT " BLOCK"
7360 RETURN
7370 PRINT " ' ' ' *"
7380 PRINT " | | | *"
7390 PRINT " ********* *"
7400 PRINT " ********* *"
7410 PRINT " ********* *"
7420 PRINT " *********"
7430 PRINT " CAKE | | | | |"
7440 PRINT " ^"
7450 PRINT " RAKE"
7460 RETURN
7470 PRINT " ************** *"
7480 PRINT " * 12 * * *"
7490 PRINT " * 11 1 * * *"
7500 PRINT " * 10 ^ 2 * * *"
7510 PRINT " * 9 @-> 3 * * ___ *"
7520 PRINT " * 8 4 * * | | *"
7530 PRINT " * 7 5 * ************************"
7540 PRINT " * 6 *"
7550 PRINT " ************** TEEPEE"
7560 PRINT
7570 PRINT " CLOCK "
7580 PRINT " ^"
7590 RETURN
7600 PRINT " ************* **********"
7610 PRINT " * * **"
7620 PRINT " * * **"
7630 PRINT " * * ******"
7640 PRINT " * * **"
7650 PRINT " * * **"
7660 PRINT " * * **********"
7670 PRINT " * * "
7680 PRINT " ************* E"
7690 PRINT" *** ^"
7700 PRINT" ***"
7710 PRINT" *** *** /~"
7720 PRINT" *** ***** *"
7730 PRINT" *** ******* * *"
7740 PRINT" *********************** * * *"
7750 PRINT" * * *"
7760 PRINT" TREE ***** * *"
7770 PRINT" * *"
7780 PRINT" LAMP *****"
7790 PRINT
7800 PRINT" PEAR"
7810 RETURN
7820 PRINT " *****"
7830 PRINT " ******* * *"
7840 PRINT " * @ * * * *"
7850 PRINT " > ** * *"
7860 PRINT " * *** * *"
7870 PRINT " ******* * *****"
7880 PRINT " *"
7890 PRINT " FISH *"
7900 PRINT " *"
7910 PRINT " \ | / * ***"
7920 PRINT " *** * ***"
7930 PRINT " ***** ***** * *. .*"
7940 PRINT " _ * * _ ******* ** ' *"
7950 PRINT " * * ***** **O*"
7960 PRINT " * * *** *"
7970 PRINT " / *** \ * **"
7980 PRINT " *** * * *"
7990 PRINT " * * * **"
8000 PRINT " LIGHT * * *"
8010 PRINT " ^ * *** ***"
8020 PRINT " * "
8030 PRINT " KITE BALLOON"
8040 RETURN
8050 PRINT " / / / /"
8060 PRINT " **** / / / / /"
8070 PRINT " * ** *** ****** ******** / / / / "
8080 PRINT " ********* * ****** ******* ****** / / / / /"
8090 PRINT " ***********__******__*******__******** *******"
8100 PRINT " 00 00 00 00 00 00 00 00 * * *"
8110 PRINT " * * *"
8120 PRINT " TRAIN * * *"
8130 PRINT " ^ *----*----*"
8140 PRINT " |"
8150 PRINT " |"
8160 PRINT " |"
8170 PRINT
8180 PRINT " RAIN"
8190 RETURN
8200 PRINT " ****** **********"
8210 PRINT " * . ** ****** * 2 *"
8220 PRINT " ******.* *... ** * * *"
8230 PRINT " * .. *.* ******.* * *** *"
8240 PRINT " * .. *.* * . .* * * * *"
8250 PRINT " ******* * ...* * * 2 *"
8260 PRINT " ******* **********"
8270 PRINT
8280 PRINT " DICE CARD"
8290 RETURN
8300 PRINT " ' *"
8310 PRINT " | *"
8320 PRINT " | *"
8330 PRINT " *** *"
8340 PRINT " *"
8350 PRINT " *"
8360 PRINT " CANDLE *******"
8370 PRINT " ///|||\\\"
8380 PRINT
8390 PRINT" BROOM"
8400 RETURN
8410 PRINT " **** "
8420 PRINT " * * <- HANDLE "
8430 PRINT " ****************** *"
8440 PRINT " ****************** * *"
8450 PRINT " ****************** * *"
8460 PRINT " ****************** *******"
8470 PRINT " ****************** * *"
8480 PRINT " * *"
8490 PRINT
8500 PRINT " A"
8510 RETURN
8520 REM *** END OF RHYME TIME LISTING - END OF PROGRAM IS LINE 5860 ***
A"
8510 RETURN
8520 REM *** END OF RHYME TIME LISTING - E