home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / CRITICAL-MASS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.0 KB  |  187 lines
  1. 0 :::::  :::::            :::::  :::::     :::::  ::::: (null) TO 10 :::::  :::::
  2. 1 "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"    "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"
  3. 2 "[184]"                              "[184]"    "[184]"  ADAPTED FROM A VIC-20 GAME  "[184]"
  4. 3 "[184]"                              "[184]"    "[184]"       CALLED EXPLOSION       "[184]"
  5. 4 "[184]"                              "[184]"    "[184]" FROM COMMODORE USER, ENGLAND."[184]"
  6. 5 "[184]"                              "[184]"    "[184]"    GRAPHICS, SOUND, COLOR    "[184]"
  7. 6 "[184]"                              "[184]"    "[184]"     AND LOTSA OTHER JUNK     "[184]"
  8. 7 "[184]"                              "[184]"    "[184]"      ADDED BY JIM GREEN      "[184]"
  9. 8 "[184]"                              "[184]"    "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"
  10. 9 "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]" .
  11. 10 Z=828:FORT=828TO843:READX:POKET,X:NEXT
  12. 15 DATA 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
  13. 20 POKE53280,5:POKE53281,12:S=54272:PRINTCHR$(8)"[147][142]":POKE53265,11
  14. 25 PRINT"   [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][162][162][162][162][162][162][162][162]
  15. 30 [153][163]7)"OPENORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  16. 35 PRINTTAB(7)"[221]"TAB(32)"[221]
  17. 40 [153][163]7)"(null)"[163]32)"(null)
  18. 45 PRINTTAB(7)"[221]  [146][208]  [146][208]  [146] [207] [146][208]  [146]  [146][208]  [146][208]  [146]  [159][221]
  19. 50 [153][163]7)"(null) FOR WAIT   WAITSQR  WAIT   WAIT   WAIT  WAIT   WAITSQR  WAIT  OPEN(null)
  20. 55 PRINTTAB(7)"[221]  [146][186]  [146][205]  [146]   [146]   [146]  [146][186]  [146][167]  [146][186] [159][221]
  21. 60 [153][163]7)"(null)"[163]32)"(null)
  22. 65 PRINTTAB(7)"[221]     [158][221]                  [159][221]
  23. 70 [153][163]7)"(null)    SYS(null)(null)(null)   LOG WAIT(null)(null)  WAIT(null)  WAIT(null)  WAIT(null) OPEN(null)
  24. 75 PRINTTAB(7)"[221]   [158][192][192][209][158][192][192]   [129] [146][167][167]  [146][186] [223][223][146] [223][223][146] [159][221]
  25. 80 [153][163]7)"(null)    SYS(null)(null)(null)     WAITTHENTHEN  WAITTHEN (null) WAIT (null) WAIT OPEN(null)
  26. 85 PRINTTAB(7)"[221]     [158][221]                  [159][221]
  27. 90 [153][163]7)"(null)"[163]32)"(null)
  28. 95 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  29. 100 [153]"   NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  30. 105 [153]"":[129]T[178]1[164]17:[153][163]3)"GETWAIT"[163]36)"GET":[130]:[141]855
  31. 110 [153][163]5)"SYSWILL YOU REACH 'CRITICAL MASS'":[151]53265,27:[129]D[178]1[164]2E3:[130]
  32. 115 [129]T[178]1[164]18:[151]53265,11:[129]D[178]1[164]10:[130]:[151]53265,27:[129]D[178]1[164]30:[130]:[130]
  33. 120 [161]G$:[139]G$[178][199](13)[167]140
  34. 125 [158]Z,22,6:[153]"OPENTO CONTINUE PRESS  ONTOTOTOTOTOTOTOTOCMDCMDCMDCMDCMDCMDCMDCMD RETURN "
  35. 130 [129]D[178]1[164]500:[130]:[158]Z,21,25:[153]"        CMDCMDCMDCMDCMDCMDCMDCMD        "
  36. 135 [129]D[178]1[164]300:[130]:[137]120
  37. 140 [151]53280,12:[151]53281,12
  38. 145 X[178]0:[153]"LOADSYS":[129]T[178]0[164]10
  39. 150 [139]X[178]0[167][153][163]T)"SYSLEN(null)RIGHT$(null)RIGHT$LENATN(null)CLOSE(null)ATN(null)(null)":X[178]1:[137]160
  40. 155 [153][163]T)"LEN(null)RIGHT$(null)RIGHT$LENATN(null)CLOSE(null)ATN(null)(null)":[129]D[178]1[164]150:[130]:X[178]0
  41. 160 [130]
  42. 165 [153]""[163]21)"(null)EED RIGHT$NSTRUCTIONS
  43. 170 PRINTTAB(28)"[217]/[206]
  44. 175 [153][163]24)"OPEN(null)ROGRAM USES"
  45. 180 [153][163]24)38911[171]([184](0)[171]([184](0)[179]0)[172]65536)"BYTES
  46. 185 PRINTTAB(24)"OR 28 BLOCKS."
  47. 190 GETG$:IFG$<>"Y"ANDG$<>"N"THEN190
  48. 195 POKE53265,11
  49. 200 IFG$="Y"THEN655
  50. 205 GOSUB 855
  51. 210 POKE53280,12:POKE53281,12:PRINT"[147]";
  52. 215 DIMMA(6,6),L(6,6),C(6,6)
  53. 220 B$="12345":C$(0)="[158][167] [146][165]":C$(1)="[167] [146][165]":Q$(0)="[158]":Q$(1)=""
  54. 225 FORLX=1TO6:FORLY=1TO6:READC(LX,LY):NEXTLY,LX
  55. 230 FORD=1TO1500:NEXT:GOSUB840
  56. 235 PRINT"[147][155]  [176][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][174]
  57. 240 [129]LX[178]1[164]5:[153]"  (null)   (null)   (null)   (null)   (null)   (null)   (null)
  58. 245 PRINT"  [221]   [221]   [221]   [221]   [221]   [221]   [221]
  59. 250 [153]"  -TANTANTAN(null)TANTANTAN(null)TANTANTAN(null)TANTANTAN(null)TANTANTAN(null)TANTANTAN<":[130]
  60. 255 [129]LX[178]1[164]2:[153]"  (null)   (null)   (null)   (null)   (null)   (null)   (null)":[130]
  61. 260 [153]"  /TANTANTAN>TANTANTAN>TANTANTAN>TANTANTAN>TANTANTAN>TANTANTANEXP";:[151]53265,27:[141]645
  62. 265 [129]D[178]1[164]1200:[130]:[129]T[178]2[164]10:[158]Z,T,28:[153]"           "
  63. 270 [153][163]28)"OPENORTANTANTANTANTANTANTANTANTAN^
  64. 275 PRINTTAB(28)"[221]         [221]
  65. 280 [153][163]28)"(null)LENRITICAL OPEN(null)
  66. 285 PRINTTAB(28)"[221]         [221]
  67. 290 [153][163]28)"(null) SYS* * SYS(null)ASSOPEN(null)
  68. 295 PRINTTAB(28)"[221]         [221]
  69. 300 [153][163]28)"/TANTANTANTANTANTANTANTANTANEXP":[130]:X[178]0:[137]420
  70. 305 [129]D[178]1[164]1E3:[130]:[141]855:[129]T[178]1[164]3
  71. 310 [141]610:[153]"(null)SPC(STEPCMDCMDCMDSTEPSPC((null)":[129]D[178]1[164]25:[130]
  72. 315 [141]610:[153]"(null)FOR=WAITSTEPCMDCMDCMDSTEPFOR>WAIT(null)":[129]D[178]1[164]25:[130]
  73. 320 [141]610:[153]"DEF(null)SYS>WAITDEFSTEPCMDCMDCMDSTEPSYS=WAITDEF(null)":[129]D[178]1[164]25:[130]
  74. 325 [141]610:[153]"PRINTSPC(SPC(SPC(CMDCMDCMDSPC(SPC(SPC("
  75. 330 [141]610:[153]"   CMDCMDCMD   ":[129]D[178]1[164]25:[130]:[130]:[141]855
  76. 335 [143]  IFX=0THENPRINT"SYS";
  77. 340 [143]  IFX=1THENPRINT"";
  78. 345 MA(TX,TY)[178]MA(TX,TY)[171]C(TX,TY)
  79. 350 [139]MA(TX,TY)[177]0[167][141]615:[137]360
  80. 355 L(TX,TY)[178]0
  81. 360 EY[178]TY[171]1:[139]EY[178]0[167]370
  82. 365 [141]545
  83. 370 EX[178]TX[171]1:[139]EX[178]0[167]380
  84. 375 [141]570
  85. 380 EY[178]TY[170]1:[139]EY[177]6[167]390
  86. 385 [141]545
  87. 390 EX[178]TX[170]1:[139]EX[177]6[167][142]
  88. 395 [141]570:[142]
  89. 400 F[178]0:[129]TX[178]1[164]6:[129]TY[178]1[164]6
  90. 405 [139]MA(TX,TY)[178][177]C(TX,TY)[167]F[178]1:[141]305
  91. 410 [130]TY,TX
  92. 415 [141]470:[139]F[178]1[167]400
  93. 420 X[178]1[171]X
  94. 425 [141] 645:[151]198,0:[153]"OPEN(null)LAYER: "C$(X)" (null)HICH COLUMN?":[141]595
  95. 430 [153]"OPEN        (null)HICH ROW?       ":[141]600
  96. 435 [139]L(TX,TY)[179][177]X[170]1[175]L(TX,TY)[167][153]"    RIGHT$LLEGAL (null)OVE!!   ":[141] 605:[137] 425
  97. 440 [153]"                     "
  98. 445 MA(TX,TY)[178]MA(TX,TY)[170]1:[139]L(TX,TY)[178]0[167]L(TX,TY)[178]X[170]1
  99. 460 [141]615:[139]MA(TX,TY)[178][177]C(TX,TY)[167][141]305:[137]400
  100. 465 [137]420
  101. 470 V[178]0:[129]LX[178]1[164]6:[129]LY[178]1[164]6:[139]L(LX,LY)[178](1[171]X)[170]1[167]V[178]1
  102. 475 [130]LY,LX
  103. 480 [139]V[178]1[167][142]
  104. 485 [129]T[178]1[164]10:[151]53265,11:[129]D[178]1[164]10:[130]:[151]53265,27:[129]D[178]1[164]30:[130]:[130]
  105. 490 [129]LX[178]1[164]8:[153]"        (null)IN FOR (null)(null)ATN(null)VAL(null): "C$(X):[129]D[178]1[164]1E3:[130]:[141]840
  106. 495 P(X)[178]P(X)[170]1:[153]"LOAD"[163]14)"(null)LEN(null)(null)VALCLOSE(null)LEFT$VALVAL(null)
  107. 500 FORX=0TO1:PRINTTAB(12)"[159][208]LAYER "C$(X)"[159]:- "P(X)"":NEXT
  108. 505 SYSZ,17,5:PRINT"[158][196]O YOU WANT TO PLAY AGAIN [217]/[206]
  109. 510 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]510
  110. 515 [139]G$[178]"Y"[167][129]LX[178]1[164]6:[129]LY[178]1[164]6:MA(LX,LY)[178]0:L(LX,LY)[178]0:[130]LY,LX:[137]235
  111. 520 [158]Z,17,0:[153]"CHR$OLLY!! RIGHT$ WANTED YOU TO PLAY SOME MORE!!":[129]D[178]1[164]2E3:[130]
  112. 525 [158]Z,19,0:[153]" SYSATN(null)! (null)LEFT$(null)LEN(null)(null)!!":[129]D[178]1[164]1E3:[130]
  113. 526 [158]Z,19,0:[153]"              ATN(null)! (null)LEFT$(null)LEN(null)(null)!!":[129]D[178]1[164]1E3:[130]
  114. 527 [158]Z,19,13:[153]"              ATN(null)! (null)LEFT$(null)LEN(null)(null)!!":[129]D[178]1[164]1E3:[130]
  115. 528 [158]Z,19,0:[153]" SYSATN(null)! (null)LEFT$(null)LEN(null)(null)!!":[129]D[178]1[164]1E3:[130]
  116. 529 [158]Z,19,14:[153]"ATN(null)! (null)LEFT$(null)LEN(null)(null)!!OPEN":[129]D[178]1[164]1E3:[130]
  117. 530 [141]855:[129]D[178]1[164]2E3:[130]
  118. 532 [129]T[178]1[164]18:[151]53265,11:[129]D[178]1[164]10:[130]:[151]53265,27:[129]D[178]1[164]30:[130]:[130]
  119. 535 [128]
  120. 540 [131] 2,3,3,3,3,2,3,4,4,4,4,3,3,4,4,4,4,3,3,4,4,4,4,3,3,4,4,4,4,3,2,3,3,3,3,2
  121. 545 L(TX,EY)[178]X[170]1:MA(TX,EY)[178]MA(TX,EY)[170]1:[139]MA(TX,EY)[177]4[167]MA(TX,EY)[178]4
  122. 550 [158]Z,EY[172]3[170]2:TX[172]4[171]1:[153]"PRINT(null)LISTSPC(PRINTSTEPCMDCMDCMDSTEPLISTSPC(PRINT(null)"
  123. 555 [129]T[178]1[164]6:[151]S[170]24,0:[151]S[170]24,15:[130]
  124. 560 [158]Z,EY[172]3[170]2,TX[172]4[171]1:[153]Q$(X)"   CMDCMDCMD";
  125. 565 [153]" "[202](B$,MA(TX,EY),1)" ":[142]
  126. 570 L(EX,TY)[178]X[170]1:MA(EX,TY)[178]MA(EX,TY)[170]1:[139]MA(EX,TY)[177]4[167]MA(EX,TY)[178]4
  127. 575 [158]Z,TY[172]3[170]2:EX[172]4[171]1:[153]"PRINT(null)LISTSPC(PRINTSTEPCMDCMDCMDSTEPLISTSPC(PRINT(null)"
  128. 580 [129]T[178]1[164]6:[151]S[170]24,0:[151]S[170]24,15:[130]
  129. 585 [158]Z,TY[172]3[170]2:EX[172]4[171]1:[153]Q$(X)"   CMDCMDCMD";
  130. 590 [153]" "[202](B$,MA(EX,TY),1)" ":[142]
  131. 595 [141]635:TX[178][197](G$):[158]Z,3:TX[172]4:[153]"FOR"G$:[142]
  132. 600 [141]635:TY[178][197](G$):[158]Z,TY[172]3[170]3,0:[153]"FOR"G$:[142]
  133. 605 [141]840:[142]
  134. 610 [158]Z,TY[172]3[170]2:TX[172]4[171]1:[142]
  135. 615 [139]X[178]0[167][153]"SYS";
  136. 620 [139]X[178]1[167][153]"";
  137. 625 [158]Z,TY[172]3[170]2,TX[172]4[171]1:[153]"   CMDCMDCMD";
  138. 630 [153]" "[202](B$,MA(TX,TY),1)" ":[142]
  139. 635 [161]G$:[139]G$[179]"1"[176]G$[177]"6"[167]635
  140. 640 [141]840:[142]
  141. 645 [129]LX[178]1[164]6:[158]Z,LX[172]3[170]3,0:[153]"OPEN"LX
  142. 650 [158]Z,3,LX[172]4[171]1:[153]LX:[130]:[142]
  143. 655 [151]53280,15:[151]53281,15:[153]"LOADSYS";
  144. 660 J$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[153]J$;
  145. 665 [153]"       LEN(null)RIGHT$(null)RIGHT$LENATN(null)CLOSE(null)ATN(null)(null) RIGHT$NSTRUCTIONSYS":[153]J$:[141]855
  146. 670 [153]"POKELEN(null)RIGHT$(null)RIGHT$LENATN(null)CLOSE(null)ATN(null)(null)CLOSEIS A TWO-PLAYER GAME BASED";
  147. 675 [153]"ON A BOARD GAME CALLED VAL(null)(null)(null)(null)(null)RIGHT$(null)(null).
  148. 680 PRINT"[217]OU ARE PRESENTED WITH A 6[216]6 GRID. [197]ACH
  149. 685 [153]"PLAYER IN TURN PLACES ONE OF HIS PIECES
  150. 690 PRINT"A  [167] [146][165] [151]OR  [158][167] [146][165] [151]INTO AN EMPTY SQUARE
  151. 695 [153]"OR A SQUARE ALREADY OCCUPIED BY ONE OR
  152. 700 PRINT"MORE OF HIS OWN PIECES.
  153. 705 [153]"LEFT$OWEVER, EACH SQUARE HAS A POINT AT
  154. 710 PRINT"WHICH CRITICAL MASS IS REACHED AND
  155. 715 [153]"FISSION OCCURES. LENORNER SQUARES EXPLODE
  156. 720 PRINT"WHEN TWO PIECES ARE ON THEM, SIDE
  157. 725 [153]"SQUARES EXPLODE WHEN CONTAINING THREE
  158. 730 PRINT"PIECES AND CENTRAL SQUARES GO UP WHEN
  159. 735 [153]"FOUR PIECES OCCUPY THEIR SPACE.
  160. 740 PRINT"      [208]RESS <[211][208][193][195][197]> FOR NEXT PAGE":POKE53265,27
  161. 745 POKE198,0:WAIT198,1:GOSUB 855:POKE53265,11
  162. 750 PRINT"[147]"J$;:PRINT"[158]      [195] [210] [201] [212] [201] [195] [193] [204]     [205] [193] [211] [211]":PRINTJ$
  163. 755 PRINT"[151][215]HEN AN EXPLOSION OCCURS THE PIECES
  164. 760 [153]"ON THE EXPLODING SQUARE ARE DISTRIBUTED
  165. 765 PRINT"INTO THE ADJACENT SQUARES. [193]NY ENEMY
  166. 770 [153]"PIECES ON THE LATTER SQUARES ARE CAPT-
  167. 775 PRINT"URED AND BECOME PIECES BELONGING TO
  168. 780 [153]"THE MOVER. (null)HOULD RECEIVING SQUARES
  169. 785 PRINT"ATTAIN CRITICAL MASS FURTHER EXPLOSIONS
  170. 790 [153]"WILL RESULT.
  171. 795 PRINT"
  172. 800 [153]"(null)HE PLAYER HAVING NO PIECES LEFT AT
  173. 805 PRINT"THE END OF HIS OPPONENT'S MOVE IS THE
  174. 810 [153]"(null)(null)(null)VAL(null)!!!"
  175. 815 [153]" SYS(null)O COME ON AND LET'S GET VAL(null)(null)(null)(null)(null)RIGHT$(null)VAL!!!
  176. 820 PRINT"   [208]RESS <[211][208][193][195][197]> TO PLAY [195][210][201][212][201][195][193][204][160][205][193][211][211]":POKE53265,27
  177. 825 POKE198,0:WAIT198,1:GOSUB855
  178. 830 FORT=1TO10:POKE53265,11:FORD=1TO10:NEXT:POKE53265,27:FORD=1TO30:NEXT:NEXT
  179. 835 GOTO210
  180. 840 FORT=STOS+23:POKET,0:NEXT
  181. 845 POKES+24,15:POKES+1,110:POKES+5,9:POKES+6,9:POKES+4,17:POKES+4,16
  182. 850 FORD=1TO400:NEXT:FORT=STOS+23:POKET,0:NEXT:RETURN
  183. 855 FORT=STOS+23:POKET,0:NEXT:POKES+24,15
  184. 860 POKES+5,24:POKES+6,237:POKES+12,24:POKES+3,237:POKES+4,129:POKES+11,129
  185. 865 POKES,INT(RND(1)*50):POKES+1,INT(RND(1)*4)+1:POKES+7,INT(RND(1)*50)+50
  186. 870 POKES+8,INT(RND(1)*4)+5:POKES+4,128:POKES+11,128:FORD=1TO750:NEXT:RETURN
  187.