home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / MATCH-COLORS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.4 KB  |  194 lines
  1. 1 GOTO2000
  2. 100 REM***    DRAW BOARD   ***
  3. 105 PRINT"[147]":POKE646,0
  4. 107 PRINT""
  5. 110 PRINT"[151]         [169][144][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206][146]"
  6. 120 PRINT"        [167][169][183][183][183][223][169][183][183][183][223][169][183][183][183][223][181][146]"
  7. 130 PRINT"        [167][180] 1 [170][180] 2 [170][180] 3 [170][181][146]"
  8. 140 PRINT"        [167][204][175][175][175][186][204][175][175][175][186][204][175][175][175][186][181][146]"
  9. 150 PRINT"        [167][169][183][183][183][223][169][183][183][183][223][169][183][183][183][223][181][146]"
  10. 160 PRINT"        [167][180] 4 [170][180] 5 [170][180] 6 [170][181][146]"
  11. 170 PRINT"        [167][204][175][175][175][186][204][175][175][175][186][204][175][175][175][186][181][146]"
  12. 180 PRINT"        [167][169][183][183][183][223][169][183][183][183][223][169][183][183][183][223][181][146]"
  13. 190 PRINT"        [167][180] 7 [170][180] 8 [170][180] 9 [170][181][146]"
  14. 200 PRINT"        [167][204][175][175][175][186][204][175][175][175][186][204][175][175][175][186][181][146]"
  15. 210 PRINT"        [167][169][183][183][183][223][169][183][183][183][223][169][183][183][183][223][181][146]"
  16. 220 PRINT"        [167][180]10 [170][180]11 [170][180]12 [170][181][146]"
  17. 230 PRINT"        [167][204][175][175][175][186][204][175][175][175][186][204][175][175][175][186][181][146]"
  18. 240 PRINT"        [167][169][183][183][183][223][169][183][183][183][223][169][183][183][183][223][181][146]"
  19. 250 PRINT"        [167][180]13 [170][180]14 [170][180]15 [170][181][146]"
  20. 260 PRINT"        [167][204][175][175][175][186][204][175][175][175][186][204][175][175][175][186][169][144]"
  21. 270 PRINT"         [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  22. 299 RETURN
  23. 300 REM***   SELECT NUMBER   ***
  24. 320 PRINT
  25. 325 POKE781,21:POKE782,9:POKE783,0:SYS65520
  26. 330 INPUT"ENTER NUMBER";N1
  27. 335 IFN1<1ORN1>15THEN325
  28. 340 IFF(N1)=1THEN325
  29. 350 GOSUB600
  30. 355 POKE781,22:POKE782,9:POKE783,0:SYS65520
  31. 360 INPUT"ENTER NUMBER";N2
  32. 365 IFN2=N1THEN355
  33. 370 IFN2<1ORN2>15THEN325
  34. 380 IFF(N2)=1THEN355
  35. 390 GOSUB700
  36. 399 RETURN
  37. 400 REM***    ASSIGN COLORS   ***
  38. 420 FORI=1TO15
  39. 430 N=INT(RND(0)*8)+1
  40. 440 C(N)=C(N)+1
  41. 450 IFC(N)>2THEN430
  42. 460 P(I)=N
  43. 470 NEXTI
  44. 499 RETURN
  45. 500 REM***   COMPARE COLORS   ***
  46. 510 IFP(N1)=P(N2)THEN530
  47. 520 GOTO590
  48. 530 F(N1)=1:F(N2)=1
  49. 540 POKE781,12:POKE782,28:POKE783,0:SYS65520
  50. 550 POKE646,0
  51. 560 PRINT"MATCH![146]"
  52. 570 M=M+1
  53. 580 IFM=7THENGOSUB1000
  54. 590 FORT=1TO500:NEXT
  55. 599 RETURN
  56. 600 REM***   ASSIGN POSITIONS   ***
  57. 605 IFN1=1THENX=5:Y=9
  58. 610 IFN1=2THENX=5:Y=14
  59. 620 IFN1=3THENX=5:Y=19
  60. 625 IFN1=4THENX=8:Y=9
  61. 630 IFN1=5THENX=8:Y=14
  62. 635 IFN1=6THENX=8:Y=19
  63. 640 IFN1=7THENX=11:Y=9
  64. 645 IFN1=8THENX=11:Y=14
  65. 650 IFN1=9THENX=11:Y=19
  66. 655 IFN1=10THENX=14:Y=9
  67. 660 IFN1=11THENX=14:Y=14
  68. 665 IFN1=12THENX=14:Y=19
  69. 670 IFN1=13THENX=17:Y=9
  70. 675 IFN1=14THENX=17:Y=14
  71. 680 IFN1=15THENX=17:Y=19
  72. 685 FORI=1TO3
  73. 690 POKE781,X:POKE782,Y:POKE783,0:SYS65520
  74. 692 POKE646,P(N1)
  75. 694 PRINT"     [146]"
  76. 696 X=X+1
  77. 697 NEXT
  78. 698 POKE781,22:POKE782,0:POKE783,0:SYS65520:POKE646,0
  79. 699 RETURN
  80. 700 REM***   ASSIGN POSITIONS   ***
  81. 705 IFN2=1THENX=5:Y=9
  82. 710 IFN2=2THENX=5:Y=14
  83. 720 IFN2=3THENX=5:Y=19
  84. 725 IFN2=4THENX=8:Y=9
  85. 730 IFN2=5THENX=8:Y=14
  86. 735 IFN2=6THENX=8:Y=19
  87. 740 IFN2=7THENX=11:Y=9
  88. 745 IFN2=8THENX=11:Y=14
  89. 750 IFN2=9THENX=11:Y=19
  90. 755 IFN2=10THENX=14:Y=9
  91. 760 IFN2=11THENX=14:Y=14
  92. 765 IFN2=12THENX=14:Y=19
  93. 770 IFN2=13THENX=17:Y=9
  94. 775 IFN2=14THENX=17:Y=14
  95. 780 IFN2=15THENX=17:Y=19
  96. 785 FORI=1TO3
  97. 790 POKE781,X:POKE782,Y:POKE783,0:SYS65520
  98. 792 POKE646,P(N2)
  99. 794 PRINT"     [146]"
  100. 796 X=X+1
  101. 797 NEXT
  102. 798 POKE781,22:POKE782,0:POKE783,0:SYS65520:POKE646,0
  103. 799 RETURN
  104. 900 REM***   COLOR MATCHES   ***
  105. 910 FORK=1TO15
  106. 920 IFF(K)=1THENN1=K:GOSUB600
  107. 940 NEXT
  108. 999 RETURN
  109. 1000 REM***   WINNER   ***
  110. 1010 POKE781,21:POKE782,9:POKE783,0:SYS65520:POKE646,0
  111. 1020 PRINT"CONGRATULATIONS!"
  112. 1030 POKE781,22:POKE782,5:POKE783,0:SYS65520:POKE646,0
  113. 1040 V=VAL(RIGHT$(TI$,3))
  114. 1070 PRINT"YOU TOOK ";MID$(TI$,4,1);" MINS. ";RIGHT$(TI$,2);" SECS."
  115. 1080 Z=1
  116. 1090 FORT=1TO4000:NEXT
  117. 1099 RETURN
  118. 1100 REM***   LOSER   ***
  119. 1110 POKE781,21:POKE782,9:POKE783,0:SYS65520:POKE646,0
  120. 1120 PRINT"SORRY. YOU LOSE!"
  121. 1130 POKE781,22:POKE782,6:POKE783,0:SYS65520:POKE646,0
  122. 1140 PRINT"BETTER LUCK NEXT TIME!"
  123. 1150 Z=1
  124. 1160 FORT=1TO4000:NEXT
  125. 1199 RETURN
  126. 1200 REM***   SET UP   ***
  127. 1210 POKE53280,0:POKE53281,12
  128. 1220 PRINT"[147]":POKE646,0
  129. 1230 PRINT""
  130. 1240 POKE781,2:POKE782,1:POKE783,0:SYS65520
  131. 1250 INPUT"HOW MUCH TIME (SECS) DO YOU WANT";S
  132. 1260 IFS>240THEN1240
  133. 1265 IFS>240THEN1250
  134. 1270 IFS>180THENS=S+120
  135. 1280 IFS>120THENS=S+80
  136. 1290 IFS>60THENS=S+40
  137. 1295 TI$="000000"
  138. 1299 RETURN
  139. 1300 REM***   RESET GAME   ***
  140. 1310 PRINT"[147]"
  141. 1320 POKE781,2:POKE782,1:POKE783,0:SYS65520
  142. 1330 INPUT"DO YOU WANT TO PLAY AGAIN (Y/N)";Q$
  143. 1340 IFQ$="N"THENPRINT"[147]":GOTO2999
  144. 1350 PRINT
  145. 1399 RETURN
  146. 1500 REM***   INTRO SCREEN   ***
  147. 1510 POKE646,12:POKE53280,12:POKE53281,0
  148. 1520 FORD=1TO999:NEXT:PRINT"[147]":LC=1:PRINTCHR$(14)
  149. 1525 READD$:IFD$=""THEN1670
  150. 1530 FORI=1TOLEN(D$)
  151. 1535 PRINTMID$(D$,I,1);:FORX=1TO30:NEXTX,I:PRINT" ":LC=LC+1:IFLC>22THEN1520
  152. 1540 GOTO1525
  153. 1550 DATA"   [205] E E T    [217] O U R    [205] A T C H !   "
  154. 1555 DATA"                                      "
  155. 1560 DATA" [212]HIS LITTLE PUZZLER IS BASED UPON THE"
  156. 1565 DATA" BONUS ROUND OF THE POPULAR GAME SHOW,"
  157. 1570 DATA" '[195][207][206][195][197][206][212][210][193][212][201][207][206]'. [212]HE OBJECTIVE OF THE"
  158. 1575 DATA" GAME IS TO MATCH COLORS CORRESPONDING"
  159. 1580 DATA" TO NUMBERS THAT YOU ENTER THROUGH THE"
  160. 1585 DATA" KEYBOARD.   [193]T THE BEGINNING OF A NEW"
  161. 1590 DATA" GAME, YOU ARE PROMPTED FOR THE AMOUNT"
  162. 1595 DATA" OF TIME YOU THINK YOU WILL REQUIRE TO"
  163. 1600 DATA" COMPLETE THE BOARD.  [217]OU MAY INPUT UP"
  164. 1605 DATA" TO A MAXIMUM OF FOUR MINS (240 SECS)."
  165. 1610 DATA" [215]HEN PLAYING THE GAME, SIMPLY ENTER A"
  166. 1615 DATA" NUMBER WHEN PROMPTED AND PRESS [210][197][212][213][210][206]."
  167. 1620 DATA"                                      "
  168. 1625 DATA"          [200][160][193][160][214][160][197][160]   [198][160][213][160][206] !           "
  169. 1630 DATA""
  170. 1670 PRINT"     PRESS ANY KEY TO CONTINUE..."
  171. 1680 GETA$:IFA$=""THEN1680
  172. 1690 PRINTCHR$(142)
  173. 1699 RETURN
  174. 2000 REM***   MAIN ROUTINE   ***
  175. 2010 PRINT"[147]":POKE53280,12:POKE53281,0:POKE646,12
  176. 2020 POKE781,2:POKE782,1:POKE783,0:SYS65520
  177. 2030 INPUT" DO YOU WANT INSTRUCTIONS (Y/N)";A$
  178. 2040 IFA$="N"THEN2060
  179. 2050 GOSUB1500
  180. 2060 GOSUB1200
  181. 2070 DIMP(15):DIMF(15)
  182. 2100 GOSUB400
  183. 2110 IFVAL(TI$)>STHENGOSUB1100
  184. 2120 IFZ=1THEN2200
  185. 2130 GOSUB100
  186. 2140 GOSUB900
  187. 2150 GOSUB300
  188. 2160 GOSUB500
  189. 2170 IFZ=1THEN2200
  190. 2180 GOTO2110
  191. 2200 GOSUB1300
  192. 2210 RUN2020
  193. 2999 SYS64738:END
  194.