home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / FLIP-FLOP (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.8 KB  |  202 lines
  1. 0 REM    SP DISK # 12
  2. 20 POKE53280,5:POKE53281,15:PRINTCHR$(142)"[147][152]"; :  REM  GOTO170
  3. 25 PRINT"[154]      [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  4. 30 [153]"      (null)    CAN YOU  FLIP-FLOP    (null)
  5. 35 PRINT"      [221]                          [221]
  6. 40 [153]"      (null) BETTER THAN THE COMPUTER (null)
  7. 45 PRINT"      [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  8. 50 PRINT"[150]";
  9. 55 PRINT"     [146]    [146][183][208]  [146]  [146]        [146]    [146][183][208]  [146][183][208]  [146]   "
  10. 60 PRINT"     [146][183]   [146]    [146]  [146][183][208] [162][162]   [146][183]   [146]    [146] [167]  [146][183][208] "
  11. 65 PRINT"     [146][175][186]  [146]    [146]  [146][175][186]      [146][175][186]  [146]    [146][175][186]  [146][175][186]  "
  12. 66 GOSUB1200:GOSUB1200
  13. 70 FORX=1TO2: FORD=1TO1000:NEXT:PRINT"[150]";
  14. 75 PRINT"     [146][183][208]  [146]    [146]  [146][183][208]    "
  15. 80 PRINT"     [146][175]   [146]    [146]  [146][175][186] [162][162] "
  16. 85 PRINT"     [146]    [146][175][186]  [146]  [146]      "
  17. 90 GOSUB1200:FORD=1TO500:NEXT:PRINT"";
  18. 95 PRINTTAB(21)"  [146][183][208]  [146]    [146][183][208]  [146][183][208] "
  19. 100 PRINTTAB(21)"  [146][175]   [146]    [146] [167]  [146][175][186] "
  20. 105 PRINTTAB(21)"  [146]    [146][175][186]  [146][175][186]  [146]   ":GOSUB1200
  21. 110 FORD=1TO500:NEXT:PRINT"";
  22. 115 PRINTTAB(21)"  [146]    [146][183][208]  [146][183][208]  [146]   "
  23. 120 PRINTTAB(21)"  [146][183]   [146]    [146] [167]  [146][183][208] "
  24. 125 PRINTTAB(21)"  [146][175][186]  [146]    [146][175][186]  [146][175][186] ":GOSUB1200
  25. 130 FORD=1TO500:NEXT:PRINT"[150]";
  26. 135 PRINT"     [146]    [146][183][208]  [146]  [146]   "
  27. 140 PRINT"     [146][183]   [146]    [146]  [146][183][208] [162][162]
  28. 145 [153]"     WAITANDSQR  WAIT    WAIT  WAITANDSQR ":[141]1200:[130]X
  29. 150 [129]D[178]1[164]500:[130]:[153]"DEF";
  30. 155 [153]"     WAITUSR(null)  WAIT    WAIT  WAITUSR(null)      WAITUSR(null)  WAIT    WAITUSR(null)  WAITUSR(null) "
  31. 160 [153]"     WAITAND   WAIT    WAIT  WAITANDSQR NEWNEW   WAITAND   WAIT    WAIT THEN  WAITANDSQR "
  32. 165 [153]"     WAIT    WAITANDSQR  WAIT  WAIT        WAIT    WAITANDSQR  WAITANDSQR  WAIT   ":[141]1200
  33. 170 [129]D[178]1[164]3000:[130]:NU[178]0
  34. 175 [151]59468,12:[134]A%(8,8),B%(8,8),RW(8),RS(8)
  35. 180 Z[178]215:T$(0)[178]"ANDCMD":T$(1)[178]" CMD":T[178]80
  36. 185 [129]I[178]1[164]8:A$(I)[178][199](I[170]64)
  37. 190 [129]J[178]1[164]8
  38. 195 [139](I[170]J)[175]1[167]A%(I,J)[178][171]1:[137]205
  39. 200 A%(I,J)[178]0
  40. 205 [130]:[130]:[139]NU[178]1[167]215
  41. 210 [141] 755 
  42. 215 [153]"LOAD"[163]15)"DEFFLIP-FLOPPRINT#
  43. 220 PRINT""TAB(27)"[150][215][154] = PLAYER":PRINTTAB(27)"[158][209] = COMPUTER[152]
  44. 225 Y$[178]"(null) (null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)":Z$[178]"-TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN<"
  45. 230 [153][163]12)"1 2 3 4 5 6 7 8
  46. 235 PRINTTAB(11)"[176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]
  47. 240 [129]I[178]1[164]7:[153][163]10)A$(I)Y$:[153][163]11)Z$:[130]
  48. 245 [153][163]10)A$(I)Y$:[153][163]11)"/TAN>TAN>TAN>TAN>TAN>TAN>TAN>TANEXP
  49. 250 GOSUB330:IFT$="Y"THEN290
  50. 255 S=INT(8*RND(TI)+1):W=INT(8*RND(TI)+1):IFA%(W,S)=0THEN255
  51. 260 GOTO270
  52. 265 GOTO 535
  53. 270 IFU=WANDV=STHEN265
  54. 275 PRINTTAB(27)"[158]MY TURN : "A$(W)RIGHT$(STR$(S),1):U=W:V=S
  55. 280 GOSUB370:GOSUB465:XT=XT+1:GOSUB330
  56. 285 IFSP=1ORCB=1THENGE=1:GOTO 510
  57. 290 GOSUB390
  58. 295 IFA%(W,S)=-1THENPRINT"[145][145][145]":GOTO290
  59. 300 IFU=WANDV=STHENPRINT"[145][145][145]":GOTO290
  60. 305 U=W:V=S
  61. 310 GOSUB370:GOSUB465:XT=XT+1:GOSUB330
  62. 315 IFSP=1ORCB=1THENGE=0:GOTO 500
  63. 320 GOTO265
  64. 325 REM   *** PRINT ROUTINE **
  65. 330 PRINT"TURN #"XT
  66. 335 FORI=1TO8:PRINTTAB(12);:W%(I)=0:S%(I)=0
  67. 340 FORJ=1TO8:IFZ+6*A%(I,J)=209THENPRINT"[158]";
  68. 345 IFZ+6*A%(I,J)=215THENPRINT"[150]";
  69. 350 PRINTCHR$(Z+6*A%(I,J))"";:B%(I,J)=A%(I,J):NEXT
  70. 355 REM FORJ=1TO8:PRINTCHR$(Z+6*A%(I,J))"";:B%(I,J)=A%(I,J):NEXT
  71. 360 PRINT:PRINT:NEXT:RETURN
  72. 365 REM   *** INVERS-ROUTINE ***
  73. 370 FORI=1TO8:A%(I,S)=NOT(A%(I,S))
  74. 375 A%(W,I)=NOT(A%(W,I)):NEXT
  75. 380 A%(W,S)=NOT(A%(W,S)):RETURN
  76. 385 REM   *** PLAYERS DRAW ***
  77. 390 GOSUB1200:PRINT"[150]YOUR TURN   [157][157]";
  78. 395 GOSUB445
  79. 400 IFT$<CHR$(65)ORT$>CHR$(72)THEN395
  80. 405 W=ASC(T$)-64:PRINTT$;
  81. 410 GOSUB445
  82. 415 IFT$=CHR$(20)THENPRINT"[157]  [157][157]";:GOTO395
  83. 420 IFT$<CHR$(49)ORT$>CHR$(56)THEN410
  84. 425 PRINTT$;:S=VAL(T$):IFA%(W,S)=-1THENPRINT"[145][145]":GOTO390
  85. 430 IFU=WANDV=STHENPRINT"[145][145]":GOTO390
  86. 435 PRINTTAB(37)"  ":RETURN
  87. 440 REM    *** INPUT (PLAYERS DRAW) ***
  88. 445 OPEN1,0,0
  89. 450 GETT$:PRINTT$(ABS(X));:FORI=1TOT:NEXT:X=NOT(X):IFT$=""THEN450
  90. 455 A=ASC(T$):CLOSE1:RETURN
  91. 460 REM   *** CALCULATION OF SCOPE ***
  92. 465 FORI=1TO8:FORJ=1TO8
  93. 470 W%(I)=W%(I)+A%(I,J)
  94. 475 S%(I)=S%(I)+A%(J,I)
  95. 480 :NEXT
  96. 485 IFW%(I)=-8ORS%(I)=-8THENSP=1
  97. 490 IFW%(I)=0ORS%(I)=0THENCB=1
  98. 495 NEXT:RETURN
  99. 500 PRINT" YOU WIN !!!   PLAY AGAIN Y/N           [152]";
  100. 505 GOTO 515
  101. 510 PRINT" I WIN !!!     PLAY AGAIN Y/N           [152]";
  102. 515 GETT$:IFT$=""THEN 515
  103. 520 IFT$="Y"THENCLR:PRINT"[157][157][157][157][157] YES  ":NU=1:GOTO175
  104. 525 IFT$<>"N"THEN 515
  105. 530 PRINT"[147]":END
  106. 535 REM   *** CALCULATION OF DRAW ***
  107. 540 FORI=1TO8:FORJ=1TO8
  108. 545 ZW(I)=ZW(I)+B%(I,J)
  109. 550 ZS(I)=ZS(I)+B%(J,I)
  110. 555 NEXT:NEXT:WG=0:SG=0
  111. 560 Z7=0:Z1=0:FORI=1TO8
  112. 565 IFZW(I)=-7THENZ7=Z7+1
  113. 570 IFZS(I)=-7THENZ7=Z7+1
  114. 575 IFZW(I)=-1THENZ1=Z1+1:WG=I
  115. 580 IFZS(I)=-1THENZ1=Z1+1:SG=I
  116. 585 ZS(I)=0:ZW(I)=0
  117. 590 NEXT:IFZ7>0ORZ1>0THEN 690
  118. 595 W=INT(8*RND(TI)+1):S=INT(8*RND(TI)+1):IFB%(W,S)=0THEN 595
  119. 600 FORI=1TO8:B%(I,S)=NOT(B%(I,S))
  120. 605 B%(W,I)=NOT(B%(W,I)):NEXT
  121. 610 B%(W,S)=NOT(B%(W,S))
  122. 615 FORI=1TO8:FORJ=1TO8
  123. 620 ZW(I)=ZW(I)+B%(I,J)
  124. 625 ZS(I)=ZS(I)+B%(J,I)
  125. 630 NEXT:NEXT
  126. 635 Z7=0:Z1=0:FORI=1TO8
  127. 640 IFZW(I)<=-7THENZ7=Z7+1
  128. 645 IFZS(I)<=-7THENZ7=Z7+1
  129. 650 IFZW(I)<=-1THENZ1=Z1+1
  130. 655 IFZS(I)<=-1THENZ1=Z1+1
  131. 660 ZS(I)=0:ZW(I)=0:NEXT
  132. 665 FORI=1TO8:B%(I,S)=NOT(B%(I,S))
  133. 670 B%(W,I)=NOT(B%(W,I)):NEXT
  134. 675 B%(W,S)=NOT(B%(W,S))
  135. 680 IFZ7<>0THEN 595
  136. 685 GOTO270
  137. 690 IFZ1=0THEN 595
  138. 695 IFWG=0THEN 725
  139. 700 FORI=1TO8:IFB%(WG,I)=-1THENSG=I
  140. 705 NEXT
  141. 710 FORI=1TO8:IFI=WGTHEN 720
  142. 715 IFB%(I,SG)=-1THENW=I:S=SG
  143. 720 NEXT:GOTO270
  144. 725 FORI=1TO8:IFB%(I,SG)=-1THENWG=I
  145. 730 NEXT
  146. 735 FORI=1TO8:IFI=SGTHEN 745
  147. 740 IFB%(WG,I)=-1THENW=WG:S=I
  148. 745 NEXT:GOTO270
  149. 750 REM  *** INSTRUCTIONS
  150. 755 POKE53280,15:PRINT"[147]"TAB(4)"[164][175][185][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][185][175][164]
  151. 760 [153][163]3)"INT       F L I P  - F L O P       ABS
  152. 765 PRINTTAB(4)"[163][183][184][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][184][183][163]
  153. 770 [153][163]5)"PRINT#A TACTICAL GAME OF YOU AGAINST
  154. 775 PRINTTAB(9)"THE COMMODORE COMPUTER.
  155. 780 [153][163]8)"DO YOU KNOW THE RULES Y/N
  156. 785 GETT$:IFT$<>"Y"ANDT$<>"N"THEN 785 
  157. 790 IFT$="N"THEN 825 
  158. 795 PRINT"YOU HAVE THE RED STONES ([150][215][152])
  159. 800 [153]"THE COMPUTER HAS THE YELLOW (SYS(null)PRINT#)
  160. 805 PRINT"PRESS <SPACE> TO PLAY
  161. 810 [161]G$:[139]G$[178]""[167] 810 
  162. 815 [142]
  163. 820 [172][172][172]  RULES  [172][172][172]
  164. 825 [153]"LOAD"[163]12)"RULES
  165. 830 PRINT"EACH PLAYER (YOU AND THE COMPUTER)
  166. 835 [153]"TRIES TO CHANGE THE OPPONENTS
  167. 840 PRINT"STONES INTO HIS OWN COLOR.
  168. 845 [153]"DURING THIS CHANGE, ALL STONES IN
  169. 850 PRINT"HORIZONTAL AND VERTICAL DIRECTION OF
  170. 855 [153]"THIS CHANGED STONE WILL BE CHANGED
  171. 860 PRINT"AS WELL.
  172. 865 [153]"    ( (null) TANTAN> (null)   AND  (null) TANTAN> (null) )
  173. 870 PRINT"PRESS <SPACE> TO CONTINUE
  174. 875 [151]198,0:[146]198,1
  175. 880 [153]"LOADEXAMPLE -
  176. 885 PRINT"THE CHANGED STONE (ARROW) AND ITS
  177. 890 [153]"HORIZONTAL AND VERTICAL ROW BEFORE
  178. 895 PRINT"CHANGE (1); AFTER CHANGE (2)
  179. 900 [153][163]10)"4"[163]25)"4"
  180. 905 [153][163]10)"(null)"[163]25)"(null)"
  181. 910 [153][163]10)"(null)"[163]25)"(null)"
  182. 915 [153][163]10)"(null)"[163]25)"(null)"
  183. 920 [153][163]10)"(null)"[163]25)"(null)"
  184. 925 [153][163]6)"E(null)(null)(null)(null)(null)(null)(null)(null)"[163]21)"E(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  185. 930 [153][163]9)"(null)(null)"[163]24)"(null)(null)"
  186. 935 [153][163]8)"(null) (null)"[163]23)"(null) (null)"
  187. 940 [153][163]6)"E4  (null)"[163]21)"E4  (null)"
  188. 945 [153][163]9)"(1)"[163]24)"(2)
  189. 950 PRINT"PRESS <SPACE> TO CONTINUE.
  190. 955 [151]198,0:[146]198,1
  191. 960 [153]"LOADA STONE JUST CHANGED BY THE OPPONENT
  192. 965 PRINT"CANNOT BE CHANGED BACK RIGHT AFTER THAT.
  193. 970 [153]"(THE COMPUTER WONT LET YOU DO IT).
  194. 975 PRINT"THE WINNER IS THE PLAYER, WHOSE
  195. 980 [153]"STONES FORM A STRAIGHT LINE FIRST.
  196. 985 PRINT"(HORIZONTALLY OR VERTICALLY.)
  197. 990 [153]"PRESS <SPACE> TO PLAY.
  198. 995 POKE198,0:WAIT198,1
  199. 1000 GOTO 755 
  200. 1200 S=54272:POKES+24,15:POKES+5,9:POKES+1,20:POKES+4,128
  201. 1210 FORD=1TO40:NEXT:POKES+4,129:RETURN
  202.