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
/
MATCH.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-02-29
|
10KB
|
209 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 **********************************************************************
110 REM
120 REM PROGRAM: MATCH! PROGRAMMER: ELIZABETH VAN KLEECK
130 REM LANGUAGE: MBASIC OPERATING SYSTEM: CP/M
140 REM
150 REM MATCH! PUTS TWO SHAPES ON THE SCREEN AND ASKS THE PLAYER IF THEY
160 REM MATCH. HE TYPES IN Y FOR YES OR N FOR NO. IF THE ANSWER IS RIGHT,
170 REM HE SEES A SMILING FACE; IF IT'S WRONG, HE SEES A SAD FACE.
180 REM
190 REM A$ : INPUT ANSWER
200 REM
210 REM *********************************************************************
220 REM
230 PRINT CHR$(26): REM CLEAR SCREEN, HOME CURSOR
240 PRINT:PRINT:PRINT
250 PRINT " []O<>[]O<>[]O<>[]O<>[]O<>[]O<>[]O<>[]O<>[]O<>[]O<>[]"
260 PRINT " [] []"
270 PRINT " [] MATCH! []"
280 PRINT " [] []"
290 PRINT " [] []"
300 PRINT TAB(14):PRINT "[] THIS IS A GAME FOR MATCHING SHAPES. []"
310 PRINT TAB(14):PRINT "[] WHEN TWO SHAPES APPEAR ON THE SCREEN, []"
320 PRINT TAB(14):PRINT "[] THE COMPUTER WILL ASK 'MATCH?' AND WAIT []"
330 PRINT TAB(14):PRINT "[] FOR AN ANSWER. IF YOU THINK THE SHAPES []"
340 PRINT TAB(14):PRINT "[] MATCH, TYPE Y FOR 'YES'. IF THEY DON'T []"
350 PRINT TAB(14):PRINT "[] MATCH, TYPE N FOR 'NO'. NOW PRESS []"
360 PRINT TAB(14):PRINT "[] RETURN TO START . []"
370 PRINT " [] []"
380 PRINT " [] []"
390 PRINT " []O<>[]O<>[]O<>[]O<>[]O<>[]O<>[]O<>[]O<>[]O<>[]O<>[]"
400 R$ = INPUT$(1)
410 PRINT CHR$(26)
420 GOSUB 1500: REM DRAW A SQUARE
430 GOSUB 1570:REM DRAW ANOTHER SQUARE
440 GOSUB 1860: REM DO THEY MATCH?
450 A$ = INPUT$(1)
460 PRINT CHR$(26)
470 IF A$ = "N" THEN GOSUB 1020:REM SAD FACE
480 PRINT CHR$(26)
490 IF A$="Y" THEN GOSUB 1260:REM DRAW HAPPY FACE
500 REM READY FOR NEXT MATCH
510 PRINT CHR$(26)
520 GOSUB 1640:REM DRAW TRIANGLE
530 GOSUB 1570: REM COMPARE WITH SQUARE
540 GOSUB 1860: REM MATCH?
550 A$ = INPUT$(1)
560 PRINT CHR$(26)
570 IF A$ = "Y" THEN GOSUB 1020
580 PRINT CHR$(26)
590 IF A$="N" THEN GOSUB 1260
600 PRINT CHR$(26)
610 GOSUB 1770:GOSUB 1770:GOSUB 1860
620 A$ = INPUT$(1): PRINT CHR$(26)
630 IF A$ = "Y" THEN GOSUB 1260
640 PRINT CHR$(26)
650 IF A$ ="N" THEN GOSUB 1020
660 REM READY FOR NEXT MATCH
670 PRINT CHR$(26)
680 GOSUB 1570: REM DRAW A SQUARE
690 GOSUB 1710: REM DRAW A RECTANGLE
700 GOSUB 1860: REM MATCH?
710 A$ = INPUT$(1)
720 PRINT CHR$(26)
730 IF A$="Y" THEN GOSUB 1020
740 PRINT CHR$(26)
750 IF A$ = "N" THEN GOSUB 1260
760 REM READY FOR NEXT MATCH
770 PRINT CHR$(26)
780 GOSUB 1640: REM A TRIANGLE
790 GOSUB 1770: REM A DIAMOND
800 GOSUB 1860: REM MATCH?
810 A$ = INPUT$(1): PRINT CHR$(26)
820 IF A$="Y" THEN GOSUB 1020
830 IF A$ = "N" THEN GOSUB 1260
840 REM READY FOR NEXT MATCH
850 PRINT CHR$(26)
860 GOSUB 1640:REM TRIANGLE
870 GOSUB 1640
880 GOSUB 1860
890 A$ = INPUT$(1): PRINT CHR$(26)
900 IF A$ = "N" THEN GOSUB 1020
910 IF A$ = "Y" THEN GOSUB 1260
920 PRINT CHR$(26)
930 GOSUB 1710:GOSUB 1710: GOSUB 1860
940 A$ = INPUT$(1): PRINT CHR$(26)
950 IF A$ = "Y" THEN GOSUB 1260
960 IF A$ = "N" THEN GOSUB 1020
970 PRINT CHR$(26)
980 PRINT " THE END"
990 PRINT
1000 PRINT " BYE BYE!"
1002 FOR I = 1 TO 500
1004 REM WAIT, THEN BACK TO MENU
1006 NEXT I
1010 SYSTEM
1020 PRINT" XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
1030 PRINT" XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
1040 PRINT" XXX XXX"
1050 PRINT" XXX XXX"
1060 PRINT" XXX XXXXX XXXXX XXX"
1070 PRINT" XXX X X X X XXX"
1080 PRINT" XXXX X X X X XXXX"
1090 PRINT" XXX X X O X X O X X XXX"
1100 PRINT" XXX X XXXXX XXXXX X XXX"
1110 PRINT" XXX X X XXX"
1120 PRINT" XXX X X X XXX"
1130 PRINT" XXX X XXX X XXX"
1140 PRINT" XXX X X X XXX"
1150 PRINT" >XXX< X X >XXX<"
1160 PRINT" XXX X XXXXX X XXX"
1170 PRINT" X X X X X X"
1180 PRINT" X X X X X X"
1190 PRINT" X XXXXX X "
1200 PRINT" X X"
1210 PRINT" XXXXXXXXXX"
1220 PRINT
1230 PRINT TAB(25):PRINT"SORRY, YOU MISSED THAT ONE.
1235 FOR I = 1 TO 800
1240 REM WASTE TIME
1245 NEXT I
1250 RETURN
1260 PRINT" X X"
1270 PRINT" XXX XXX"
1280 PRINT" >XXX< >XXX<"
1290 PRINT" XXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXX"
1300 PRINT" XXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXX"
1310 PRINT" XXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXX"
1320 PRINT" XXX XXX XXX XXX"
1330 PRINT" XXX XXX XXXX XXXX XXX XXX"
1340 PRINT" XXX XXX X X X X XXX XXX"
1350 PRINT" XXX XXX X O X X O X XXX XXX"
1360 PRINT" XXXXXX XXXX XXXX XXXXXXX"
1370 PRINT" XXXX X XXXX"
1380 PRINT" XX XXX XX"
1390 PRINT" XX X XX"
1400 PRINT" X X X X"
1410 PRINT" X X X X"
1420 PRINT" X XXXXXXXX X"
1430 PRINT" X X"
1440 PRINT" X X"
1450 PRINT" XXXXXX"
1460 PRINT CHR$(7)
1470 PRINT TAB(25):PRINT" YOU'RE RIGHT!!
1475 FOR I = 1 TO 800
1480 REM WASTE TIME
1485 NEXT I
1490 RETURN
1500 PRINT:PRINT:PRINT:PRINT:PRINT
1510 PRINT TAB(35):PRINT"XXXXXXXXXX"
1520 PRINT TAB(35):PRINT"XXXXXXXXXX"
1530 PRINT TAB(35):PRINT"XXXXXXXXXX"
1540 PRINT TAB(35):PRINT"XXXXXXXXXX"
1550 PRINT TAB(35):PRINT"XXXXXXXXXX"
1560 RETURN
1570 PRINT:PRINT:PRINT:PRINT:PRINT
1580 PRINT TAB(35):PRINT"XXXXXXXXXX"
1590 PRINT TAB(35):PRINT"XXXXXXXXXX"
1600 PRINT TAB(35):PRINT"XXXXXXXXXX"
1610 PRINT TAB(35):PRINT"XXXXXXXXXX"
1620 PRINT TAB(35):PRINT"XXXXXXXXXX"
1630 RETURN
1640 PRINT:PRINT:PRINT:PRINT:PRINT
1650 PRINT TAB(35):PRINT" X "
1660 PRINT TAB(35):PRINT" XXX "
1670 PRINT TAB(35):PRINT" XXXXX "
1680 PRINT TAB(35):PRINT" XXXXXXX "
1690 PRINT TAB(35):PRINT"XXXXXXXXX"
1700 RETURN
1710 PRINT:PRINT:PRINT:PRINT:PRINT
1720 PRINT TAB(35):PRINT"XXXXXXXXXXXXXXXXXXXXX"
1730 PRINT TAB(35):PRINT"XXXXXXXXXXXXXXXXXXXXX"
1740 PRINT TAB(35):PRINT"XXXXXXXXXXXXXXXXXXXXX"
1750 PRINT TAB(35):PRINT"XXXXXXXXXXXXXXXXXXXXX"
1760 RETURN
1770 PRINT
1780 PRINT TAB(35):PRINT" X "
1790 PRINT TAB(35):PRINT" XXX "
1800 PRINT TAB(35):PRINT" XXXXX "
1810 PRINT TAB(35):PRINT" XXXXXXX "
1820 PRINT TAB(35):PRINT" XXXXX "
1830 PRINT TAB(35):PRINT" XXX "
1840 PRINT TAB(35):PRINT" X "
1850 RETURN
1860 PRINT:PRINT:PRINT
1870 PRINT" *********** "
1880 PRINT" * * "
1890 PRINT" * MATCH ? * "
1900 PRINT" * * "
1910 PRINT" *********** "
1920 RETURN
1930 REM *** END OF MATCH! LISTING
1940 REM
T" *********** "
1920 RETURN
1930 REM *