home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / TIDDLEYWINKS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.1 KB  |  209 lines
  1. 5 REM     Q-LINK  DISK # X156
  2. 10 POKE53280,6:POKE53281,6:PRINT"[147][150]       [212]IDDLYWINKS       BY [204]EVIN1
  3. 80 [153]"CONTMID$OYSTICK IN PORT TWO. (null)OU TRY TO FLIP
  4. 85 PRINT"A CHIP INTO THE GLASS BY PRESSING ON
  5. 90 [153]"THE CHIP'S EDGE WITH ANOTHER CHIP UNTIL
  6. 95 PRINT"IT SNAPS INTO THE AIR. [213]SE THE JOYSTICK
  7. 105 [153]"TO MANEUVER THE FLIPPING STICK
  8. 110 PRINT"([211]NAPPER) OVER THE EDGE OF THE CHIP.
  9. 115 [153]"(null)HE BUTTON WILL SNAP IT DOWNWARD AND
  10. 120 PRINT"THE CHIPS FLIGHT WILL BE DETERMINED BY
  11. 125 [153]"THE HEIGHT OF THE SNAPPER AND THE
  12. 130 PRINT"DISTANCE OF THE SNAPPER TO THE EDGE OF
  13. 135 [153]"THE CHIP. (null)OINTS VARY ACCORDING TO
  14. 140 PRINT"DISTANCE OF THE CHIP FROM THE GLASS AND
  15. 145 [153]"WHETHER IT'S BOUNCED OFF THE WALL OR
  16. 150 PRINT"GOES STRAIGHT IN. [198]UN TO PLAY.
  17. 155 [153]"RIGHT$T'S PURE PEEKATN(null)RIGHT$LEN WITH SOUNDS AND COLOR.
  18. 160 PRINT"         [208]RESS <[211][208][193][195][197]> TO [208][204][193][217]":WAIT197,7
  19. 200 PRINT"[147][142]":POKE53280,6:POKE53281,15:CL=0:PS=203:S=54272:V=53248:DF=14
  20. 205 A(0)=V:A(1)=V+6:A(2)=V+8:X=V:Y=V+1:Z=2040:B(0)=2040:B(1)=2043:B(2)=2044
  21. 210 D(0)=3:D(1)=10:D(2)=18:D(3)=34:D(4)=66:P$=""
  22. 215 D(5)=130:A(3)=V+10:A(4)=V+12:A(5)=V+14:B(3)=2045:B(4)=2046:B(5)=2047
  23. 220 FORJ=828TO848:READ R:POKE J,R:NEXT
  24. 225 DATA 173,0,220,41,31,73,31,133,3,173,1,220,73,255,133,2,5,3,133,144,96
  25. 230 GOSUB1005:GOSUB715:GOSUB775:GOSUB935
  26. 235 PRINT"[144]     "CS:PRINTP$"PLAYER 1"
  27. 240 PRINT"[144]     "SC:GOTO370
  28. 245 RETURN
  29. 250 U=1*(PEEK(V+3)>142):RETURN
  30. 255 FORJ=2023TO1984STEP-1:POKES+J,INT(RND(1)*3)+6:NEXT
  31. 260 FORJ=1063TO2023STEP40:POKES+J,INT(RND(1)*3)+6:NEXT:RETURN
  32. 265 U=-1*(PEEK(V+3)<158):RETURN
  33. 270 L=-1
  34. 275 RETURN
  35. 280 U=1*(PEEK(V+3)>142):L=-1
  36. 285 RETURN
  37. 290 U=-1*(PEEK(V+3)<158):L=-1
  38. 295 RETURN
  39. 300 L=1
  40. 305 RETURN
  41. 310 L=1:U=1*(PEEK(V+3)>142)
  42. 315 RETURN
  43. 320 L=1:U=-1*(PEEK(V+3)<158)
  44. 325 RETURN
  45. 330 GOSUB395:POKEZ,192:A=0:FD=0
  46. 335 IFKO=0THENPOKES+11,129:POKES+11,128
  47. 340 IFE=1THEN890
  48. 345 POKEY,159:POKEX,PS:KO=0:RETURN
  49. 350 POKEX,PEEK(X)+1*(PEEK(X)>168):PS=PEEK(X):POKES+11,65:POKES+11,64
  50. 355 RETURN
  51. 360 POKEX,PEEK(X)-1*(PEEK(X)<234):PS=PEEK(X):POKES+11,65:POKES+11,64
  52. 365 RETURN
  53. 370 SYS828
  54. 375 ONPEEK(3)GOSUB250,265,245,270,350,290,245,300,360,320,245,245,245,245,245,330,245,245,245,350,245,245,245,360
  55. 380 POKEV+2,PEEK(V+2)+L:L=0:IFPEEK(V+2)>=253THENPOKEV+2,PEEK(V+2)-2
  56. 385 POKEV+3,PEEK(V+3)+U:U=0
  57. 390 GOTO370
  58. 395 PK=PEEK(V+30):G=1:GG=1:FD=(PEEK(V+2)-PEEK(X))-DF
  59. 400 FC=PEEK(Y)-PEEK(V+3):FORJ=PEEK(V+3)TOPEEK(Y)+1
  60. 405 POKEV+3,J:NEXT
  61. 410 IFPEEK(V+30)<D(CL)THENRETURN
  62. 415 POKES+15,30-((FD*2)*(FD>-15)):POKES+18,17:POKES+18,16
  63. 420 FV=FC*5*(5+FD):M=PEEK(X)-FV:EX=PEEK(X)-168:I=INT(EX/2)
  64. 425 A=0:POKES+24,4:FORJ=PEEK(X)TOMSTEP-3:POKES+18,129
  65. 430 POKES+18,128:POKEZ,194-A:A=ABS(A-2)
  66. 435 IFPEEK(Y)<=40THENGG=0
  67. 440 IFPEEK(X)<=25THENGOTO505
  68. 445 POKEX,J*G
  69. 450 POKEY,PEEK(Y)-1*GG
  70. 455 NEXT:A=0:POKES+24,47
  71. 460 FORJ=PEEK(X)TOM-FVSTEP-3
  72. 465 POKEZ,192+A:A=ABS(A-2)
  73. 470 IFPEEK(X)<=25THENGOTO535
  74. 475 POKEX,J*G
  75. 480 POKEY,PEEK(Y)+1
  76. 485 IFPEEK(V+30)>D(CL)+1THENPOKES+4,65:POKES+4,64:GOSUB615
  77. 490 NEXT:IFKO=0THENCL=CL+1:IFCL>5THENCL=0:E=1
  78. 495 POKEY,163+(2*CL):POKEZ,192:X=A(CL):Y=A(CL)+1:Z=B(CL)
  79. 500 RETURN
  80. 505 B=FV/100:J=M:POKES+18,17:POKES+18,16:FORJ=PEEK(Y)TO159STEP2
  81. 510 POKEZ,192+A:A=A+.5:IFA>3.5THENA=0
  82. 515 POKEX,PEEK(X)+B:IFPEEK(V+30)>D(CL)+1THEN565
  83. 520 POKEY,J
  84. 525 NEXT:POKEZ,192:POKES+11,129:POKES+11,128:CL=CL+1:IFCL>5THENCL=0:E=1
  85. 530 POKEY,159+(CL*2):X=A(CL):Y=A(CL)+1:Z=B(CL):RETURN
  86. 535 B=FV/100:J=M-FV:POKES+18,17:POKES+18,16:FORJ=PEEK(Y)TO159STEP2
  87. 540 POKEZ,192+A:A=A+.5:IFA>3.5THENA=0
  88. 545 POKEX,PEEK(X)+B:IFPEEK(V+30)>D(CL)+1THEN565
  89. 550 POKEY,J
  90. 555 NEXT:POKEZ,192:POKES+11,129:POKES+11,128:CL=CL+1:IFCL>5THENCL=0:E=1
  91. 560 POKEY,159+(CL*2):X=A(CL):Y=A(CL)+1:Z=B(CL):RETURN
  92. 565 J=159:IFPEEK(Y)>142THENPOKES+4,65:POKES+4,64:GOTO575
  93. 570 IFPEEK(X)<PEEK(V+4)+15ANDPEEK(X)>PEEK(V+4)-5THENBN=5:GOTO630
  94. 575 IFPEEK(X)<PEEK(V+4)+16ANDPEEK(X)>PEEK(V+4)-6THENBN=5:GOTO630
  95. 580 POKES+4,65:POKES+4,64
  96. 585 POKEX,PEEK(X)-8-(16*(PEEK(X)>PEEK(V+4)-5)):FORK=PEEK(Y)TO159
  97. 590 POKEY,K:
  98. 595 POKEZ,192+A:A=A+.5:IFA>3.5THENA=0
  99. 600 NEXT:POKEZ,192:POKES+11,129:POKES+11,128:CL=CL+1:IFCL>5THENCL=0:E=1
  100. 605 POKEY,159+(CL*2):X=A(CL):Y=A(CL)+1:Z=B(CL)
  101. 610 A=0:RETURN
  102. 615 IFPEEK(Y)>142THENPOKES+4,65:POKES+4,64:GOTO690
  103. 620 IFPEEK(X)<PEEK(V+4)+15ANDPEEK(X)>PEEK(V+4)-5THEN630
  104. 625 RETURN
  105. 630 POKEX,PEEK(V+4)+5
  106. 635 A=0:FORJJ=PEEK(Y)TO158:POKEY,JJ
  107. 640 POKEZ,193+A:A=ABS(A-2)
  108. 645 POKES+4,65:POKES+4,64
  109. 650 NEXT:POKEZ,192
  110. 655 J=M-FV:KO=1:POKEY,156-TW:TW=TW+2:SC=SC+10-BN:FORT=1TO500:NEXT
  111. 660 SC=INT(SC/5)+SC+I-BN
  112. 665 IFLP=0THENPRINT"[144]     "SC:GOTO675
  113. 670 PRINT"[144]     "SC
  114. 675 CL=CL+1:IFCL>5THENCL=0:E=1
  115. 680 X=A(CL):Y=A(CL)+1:Z=B(CL)
  116. 685 BN=0:RETURN
  117. 690 A=0:J=M-FV:FORK=PEEK(X)TOPEEK(X)+20STEP2
  118. 695 POKEX,K
  119. 700 POKEY,PEEK(Y)-(PEEK(Y)<159)
  120. 705 POKEZ,193+A:A=ABS(A-2)
  121. 710 NEXT:POKEZ,192:POKES+11,129:POKES+11,128:POKEY,159+(CL*2):RETURN
  122. 715 POKE 54293,0:POKE 54294,128
  123. 720 POKE 54295,32:POKE 54296,47
  124. 725 POKE 54272,46:POKE 54273,253
  125. 730 POKE 54274,0:POKE 54275,4
  126. 735 POKE 54277,2:POKE 54278,2
  127. 740 POKE 54279,143:POKE 54280,225
  128. 745 POKE 54281,0:POKE 54282,4
  129. 750 POKE 54284,5:POKE 54285,5
  130. 755 POKE 54286,30:POKE 54287,25
  131. 760 POKE 54288,0:POKE 54289,4
  132. 765 POKE 54291,1:POKE 54292,1
  133. 770 RETURN
  134. 775 PRINT"[147]";
  135. 780 PRINT"      SCORE                             ";
  136. 785 PRINT" o[183][183][183][183][183][183][183][183][183][183][183][183][183][183]p                       ";
  137. 790 PRINT" [180]PLAYER 1      [170]                       ";
  138. 795 PRINT" [180]              [170]      UP-DIAGONAL      ";
  139. 800 PRINT" [180]PLAYER 2      [170]      MOVES CHIP       ";
  140. 805 PRINT" l[175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]                       ";
  141. 810 PRINT"                           [144][172]  [144][187]         ";
  142. 815 PRINT"                           [144][182]  [144][181]         ";
  143. 820 PRINT"                           [144][182][164][164][181]         ";
  144. 825 PRINT"                               [146]         ";
  145. 830 PRINT"[144][172][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][144][187]    ";
  146. 835 PRINT"[144][167][153]                   <[192][192][192][192][192]>        [144][146][165]    ";
  147. 840 PRINT"[144][167][153]                                  [144][146][165]    ";
  148. 845 PRINT"[144][188][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][190]    ";
  149. 850 PRINT"                                        ";
  150. 855 PRINT" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]                       ";
  151. 860 PRINT" [180]              [170]                       ";
  152. 865 PRINT" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]                       ";
  153. 870 PRINT"                                        ";
  154. 875 FORJ=1063TO2023STEP40:POKEJ,81:POKES+J,INT(RND(1)*3)+6:NEXT
  155. 880 FORJ=2023TO1984STEP-1:POKEJ,81:POKES+J,INT(RND(1)*3)+6:NEXT
  156. 885 PRINT"":RETURN
  157. 890 IFPL=2THENGOTO915
  158. 895 GOSUB255:FORXX=1TO7:POKES+4,65:PRINTP$"[144]  FINAL  ":
  159. 900 PRINT"[158]PLAY AGAIN - BUTTON":POKES+4,64:NEXT:GOSUB255
  160. 905 SYS828:IFPEEK(3)<>16THEN905
  161. 910 RUN200
  162. 915 IFLP=1THENGOTO895
  163. 920 E=0:LP=1:PS=203:CS=SC:SC=0:TW=0:CL=0:FORT=1TO500:NEXT:GOSUB1040
  164. 925 FORXX=2TO12:PRINTCHR$(148+(XX/2))P$"PLAYER 2":POKES+4,65:POKES+4,64
  165. 930 FORT=1TO100:NEXT:NEXT:GOTO370
  166. 935 IFLP=1THENGOTO895
  167. 940 PRINT""TAB(60)"1 OR 2 PLAYERS[144]"
  168. 945 POKEV,202:POKEV+1,60
  169. 950 SYS828:ONPEEK(3)GOSUB245,245,245,970,245,245,245,975,245,245,245,245,245,245,245,980
  170. 955 IFPL>0THENPRINT""TAB(60)"               ":GOTO995
  171. 960 POKEV,202+QQ:POKES+11,128
  172. 965 GOTO950
  173. 970 QQ=-19:POKES+11,129:RETURN
  174. 975 QQ=19:POKES+11,129:RETURN
  175. 980 IFPEEK(V)<188THENPL=1
  176. 985 IFPEEK(V)>210THENPL=2
  177. 990 RETURN
  178. 995 POKEV,203:POKEV+1,159
  179. 1000 FORT=1TO1000:NEXT:RETURN
  180. 1005 PRINT"[151]USE JOYSTICK 2 TO POSITION SNAPPER."
  181. 1010 PRINT"UP-DIAGONAL POSITIONS CHIP."
  182. 1015 PRINT"DISTANCE WILL DEPEND ON HEIGHT OF"
  183. 1020 PRINT"SNAPPER AND CLOSENESS TO EDGE OF CHIP":PRINT"BUTTON TO SHOOT"
  184. 1025 FORJ=12288TO12288+384:READD:POKEJ,D:NEXT
  185. 1030 PRINT"BUTTON TO BEGIN"
  186. 1035 SYS828:IFPEEK(3)<>16THEN1035
  187. 1040 POKEV+21,255:POKEZ,192:POKE2041,196:POKE2042,197:POKEV+29,2
  188. 1045 POKEV+39,7:POKEV+40,0:POKEV+41,1
  189. 1050 POKEV+42,5:POKEV+43,2:POKEV+44,6:POKEV+45,1
  190. 1055 POKE2043,192:POKE2044,192:POKE2045,192:POKE2046,192
  191. 1060 POKEV+6,249:POKEV+7,106:POKEV+8,249:POKEV+9,109
  192. 1065 POKEV,203:POKEV+1,159:POKEV+2,220:POKEV+3,150:POKEV+4,50:POKEV+5,149
  193. 1070 POKEV+10,249:POKEV+11,112:POKEV+12,249:POKEV+13,115
  194. 1075 POKEV+14,249:POKEV+15,118:POKE2047,192:POKEV+46,11
  195. 1080 RETURN
  196. 1085 DATA,,,,,,,,,,,,,,,,,,,,,,,,255,252,0,255,252
  197. 1090 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,0
  198. 1095 DATA 63,,,,,,,,,,,,,,48,,,96,,,192,,1,128,,3,,,6,0
  199. 1100 DATA,12,,,24,,,48,,,96,,,192,,,,,,,,,,,,,,,,,,0
  200. 1105 DATA,,63,,,,,,,,,,,,,3,,,3,,,3,,,3,,,3,,,3,,0
  201. 1110 DATA 3,,,3,,,3,,,3,,,3,,,,,,,,,,,,,,,,,,,,,63
  202. 1115 DATA,,,,,,,,,,,,192,,,96,,,48,,,24,,,12,,,6,,,3
  203. 1120 DATA,,1,128,,,192,,,96,,,,,,,,,,,,,,,,,,,,,,0
  204. 1125 DATA 63,,,,,,,,,,,,,,,,,,,,120,,7,248,,255,128,,252,0
  205. 1130 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,0
  206. 1135 DATA 63,192,,3,192,,3,224,,7,112,,14,112,,14,112,,14,112,,14,112,0
  207. 1140 DATA 14,112,,14,112,,14,112,,14,112,,14,112,,14,112,,14,112,,14,112
  208. 1145 DATA,14,112,,14,120,,30,60,,60,31,255,248,15,255,240,,0
  209.