home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / FLAT-CUBE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.4 KB  |  202 lines
  1. 0 REM    FROM WWCUG DISK # 714
  2. 2 POKE53280,0:POKE53281,0:PRINT"[147][150]  >> [212]HE [198]LAT [195]UBE- BY [194]ILL [200]UGHES <<
  3. 3 [153]"LIST(null)RESS LETTERS TO MIX UP PUZZLE FIRST...
  4. 6 PRINT"            [159]TOP FACE
  5. 8 [153]"             CONTORTANTANTANTANTAN^
  6. 9 PRINT"[208]RESS LETTERS[221][158] [146]  [146]  [154][146][221]  [208]RE";
  7. 10 PRINT"SS SHIFT KEY   BELOW TO T";
  8. 11 PRINT"URN[221]     [221]  FIRST TO ROTA";
  9. 12 PRINT"TE     CLOCKWISE  [221][158] [146]  [146]  [154][146][221]";
  10. 13 PRINT"   ANTICLOCKWISE         ";
  11. 14 PRINT"        [221]     [221]          ";
  12. 15 PRINT"                       [221][158] ";
  13. 16 PRINT"[146]  [146]  [154][146][221]                    ";
  14. 17 PRINT"       [176]`````{`````{`````";
  15. 18 PRINT"[178][192][192][192][192][192][174]               [221] [146] ";
  16. 19 PRINT" [146]  [154][146][221][154] [146]  [146]  [154][146][221] [146]  [146]  [154][146][221][155] [146]  [146]  [154][146][221]   ";
  17. 20 PRINT"            [221]     [221]     [221]";
  18. 21 PRINT"     [221]     [221]         [159]LEFT";
  19. 22 PRINT"  [154][221] [146]  [146]  [154][146][221][154] [146]  [146]  [154][146][221] [146]  [146]  [154][146][221][155] [146]  [146][160]";
  20. 23 PRINT" [154][146][221][160][160][159]BACK   FACE  [154][221]     [221] ";
  21. 24 PRINT"    [221]     [221][160][160][160][160][160][221][160] [159]FACE  ";
  22. 25 PRINT"       [154][221] [146]  [146]  [154][146][221][154] [146]  [146]  [154][146][221] [146]  [146]  ";
  23. 26 PRINT"[154][146][221][155] [146]  [146]  [154][146][221]               [173][192][192]";
  24. 27 PRINT"```{`````{`````[177]`````[189]   ";
  25. 28 PRINT"      L=LEFT      [221][156] [146]  [146]  [154][146][221]";
  26. 29 PRINT"[159]RIGHT                [154]B=BA";
  27. 30 PRINT"SE      [221]     [221][159]FACE      ";
  28. 31 PRINT"           [154]T=TOP       [221][156] ";
  29. 32 PRINT"[146]  [146]  [154][146][221]                    ";
  30. 33 PRINT" F=FRONT     [221]     [221]   [153][211]=";
  31. 34 PRINT"[211]OLVE BY [195]64    [154]O=BACK   ";
  32. 35 PRINT"   [221][156] [146]  [146]  [154][146][221]               ";
  33. 36 PRINT"      R=RIGHT     [173][192][192][192][192][192][189]";
  34. 37 PRINT"                         ";
  35. 38 PRINT"      [159]BOTTOM FACE        ";
  36. 39 PRINT"               ";
  37. 100 V=55510
  38. 102 NM=V:NN=V+2:NO=V+4:NT=V+80:NP=V+84: NS=V+160:NR=V+162:NQ=V+164
  39. 105 NA=V+234:NB=V+236:NC=V+238:ND=V+240:NE=V+242:NF=V+244:NG=V+246:NH=V+248
  40. 110 NI=V+250:NJ=V+252:NK=V+254:NL=V+256
  41. 115 OO=V+314:OP=V+318:OQ=V+320:ZZ=V+324:OS=V+326:OT=V+330:OU=V+332:OV=V+336
  42. 120 NU=V+394:NV=V+396:NW=V+398:NX=V+400:NY=V+402:NZ=V+404:OA=V+406:OB=V+408
  43. 125 OC=V+410:OD=V+412:OE=V+414:QQ=V+416
  44. 130 OG=V+480:OH=V+482:OI=V+484:YY=V+560:OJ=V+564:OM=V+640:OL=V+642:OK=V+644
  45. 140 G$=""
  46. 150 GETA$:IFA$=""THEN GOTO150
  47. 180 IFA$="T"THEN GOSUB14800:GOSUB2800
  48. 185 IFA$="B"THEN GOSUB14800:GOSUB3800
  49. 186 IFA$="F"THEN GOSUB14800:GOSUB4800
  50. 187 IFA$="R"THEN GOSUB14800:GOSUB5800
  51. 188 IFA$="L"THEN GOSUB14800:GOSUB6800
  52. 189 IFA$="O"THEN GOSUB14800:GOSUB7800
  53. 190 IFA$="[212]"THEN GOSUB14800:GOSUB8800
  54. 200 IFA$="[194]"THEN GOSUB14800:GOSUB9800
  55. 210 IFA$="[198]"THEN GOSUB14800:GOSUB10800
  56. 220 IFA$="[210]"THEN GOSUB14800:GOSUB11800
  57. 230 IFA$="[204]"THEN GOSUB14800:GOSUB12800
  58. 240 IFA$="[207]"THEN GOSUB14800:GOSUB13800
  59. 245 IFA$="Q"THEN16000
  60. 250 IFA$="S"GOTO14840
  61. 900 GOTO150
  62. 2800 AU=PEEK(NM):AV=PEEK(NN):AW=PEEK(NO):BB=PEEK(NT):AX=PEEK(NP):BA=PEEK(NS)
  63. 2850 AZ=PEEK(NR):AY=PEEK(NQ)
  64. 2900 AI=PEEK(NA):AJ=PEEK(NB):AK=PEEK(NC):AL=PEEK(ND):AM=PEEK(NE):AN=PEEK(NF)
  65. 2950 AO=PEEK(NG):AP=PEEK(NH):AQ=PEEK(NI):AR=PEEK(NJ):AS=PEEK(NK):AT=PEEK(NL)
  66. 3000 POKENA,AL:POKENB,AM:POKENC,AN:
  67. 3050 POKEND,AO:POKENE,AP:POKENF,AQ:POKENG,AR:POKENH,AS:POKENI,AT
  68. 3100 POKENJ,AI:POKENK,AJ:POKENL,AK
  69. 3150 POKENM,BA:POKENN,BB:POKENO,AU:POKENP,AV:POKENQ,AW:POKENR,AX:POKENS,AY
  70. 3200 POKENT,AZ
  71. 3500 RETURN
  72. 3800 BC=PEEK(NU):BD=PEEK(NV):BE=PEEK(NW):BF=PEEK(NX):BG=PEEK(NY):BH=PEEK(NZ)
  73. 3850 BI=PEEK(OA):BJ=PEEK(OB):BK=PEEK(OC):BL=PEEK(OD):BM=PEEK(OE):BN=PEEK(QQ)
  74. 3900 BO=PEEK(OG):BP=PEEK(OH):BQ=PEEK(OI)
  75. 3950 BV=PEEK(YY):BR=PEEK(OJ):BU=PEEK(OM):BT=PEEK(OL):BS=PEEK(OK)
  76. 4000 POKEOG,BU:POKEOH,BV:POKEOI,BO:POKEOJ,BP:POKEOK,BQ:POKEOL,BR:POKEOM,BS
  77. 4050 POKEYY,BT
  78. 4100 POKENU,BL:POKENV,BM:POKENW,BN:POKENX,BC:POKENY,BD:POKENZ,BE:POKEOA,BF
  79. 4150 POKEOB,BG:POKEOC,BH:POKEOD,BI:POKEOE,BJ:POKEQQ,BK
  80. 4500 RETURN
  81. 4800 BA=PEEK(NS):AZ=PEEK(NR):AY=PEEK(NQ):AO=PEEK(NG):CA=PEEK(OS):BI=PEEK(OA)
  82. 4850 BQ=PEEK(OI):BP=PEEK(OH):BO=PEEK(OG):BE=PEEK(NW):BX=PEEK(OP):AK=PEEK(NC)
  83. 4900 AL=PEEK(ND):AM=PEEK(NE):AN=PEEK(NF)
  84. 4950 BZ=PEEK(ZZ):BH=PEEK(NZ):BG=PEEK(NY):BF=PEEK(NX):BY=PEEK(OQ)
  85. 5000 POKEND,BF:POKENE,BY:POKENF,AL:POKEZZ,AM:POKENZ,AN:POKENY,BZ:POKENX,BH
  86. 5050 POKEOQ,BG
  87. 5100 POKENS,BE:POKENR,BX:POKENQ,AK:POKENG,BA:POKEOS,AZ:POKEOA,AY:POKEOI,AO
  88. 5150 POKEOH,CA:POKEOG,BI:POKENW,BQ:POKEOP,BP:POKENC,BO
  89. 5500 RETURN
  90. 5800 AO=PEEK(NG):AP=PEEK(NH):AQ=PEEK(NI):CB=PEEK(OT):BK=PEEK(OC):BJ=PEEK(OB)
  91. 5850 BI=PEEK(OA):CA=PEEK(OS):BS=PEEK(OK):BR=PEEK(OJ):BQ=PEEK(OI):BH=PEEK(NZ)
  92. 5900 BZ=PEEK(ZZ):AN=PEEK(NF):AY=PEEK(NQ)
  93. 5950 AX=PEEK(NP):AW=PEEK(NO):AR=PEEK(NJ):CC=PEEK(OU):BL=PEEK(OD)
  94. 6000 POKENG,BI:POKENH,CA:POKENI,AO:POKEOT,AP:POKEOC,AQ:POKEOB,CB:POKEOA,BK
  95. 6050 POKEOS,BJ
  96. 6100 POKENF,BQ:POKENQ,BH:POKENP,BZ:POKENO,AN:POKENJ,AY:POKEOU,AX:POKEOD,AW
  97. 6150 POKEOK,AR:POKEOJ,CC:POKEOI,BL:POKENZ,BS:POKEZZ,BR
  98. 6500 RETURN
  99. 6800 AI=PEEK(NA):AJ=PEEK(NB):AK=PEEK(NC):BX=PEEK(OP):BE=PEEK(NW):BD=PEEK(NV)
  100. 6850 BC=PEEK(NU):BW=PEEK(OO):AU=PEEK(NM):BB=PEEK(NT):BA=PEEK(NS):AL=PEEK(ND)
  101. 6900 BY=PEEK(OQ):BF=PEEK(NX):BO=PEEK(OG)
  102. 6950 BV=PEEK(YY):BU=PEEK(OM):AT=PEEK(NL):CD=PEEK(OV):BN=PEEK(QQ)
  103. 7000 POKENA,BC:POKENB,BW:POKENC,AI:POKEOP,AJ:POKENW,AK:POKENV,BX:POKENU,BE
  104. 7050 POKEOO,BD
  105. 7100 POKEND,AU:POKEOQ,BB:POKENX,BA:POKEOG,AL:POKEYY,BY:POKEOM,BF:POKENL,BU
  106. 7150 POKEOV,BV:POKEQQ,BO:POKENM,BN:POKENT,CD:POKENS,AT
  107. 7500 RETURN
  108. 7800 AR=PEEK(NJ):AS=PEEK(NK):AT=PEEK(NL):CD=PEEK(OV):BN=PEEK(QQ):BM=PEEK(OE)
  109. 7850 BL=PEEK(OD):CC=PEEK(OU):AI=PEEK(NA):BW=PEEK(OO):BC=PEEK(NU):AU=PEEK(NM)
  110. 7900 AV=PEEK(NN):AW=PEEK(NO):AQ=PEEK(NI)
  111. 7950 CB=PEEK(OT):BK=PEEK(OC):BU=PEEK(OM):BT=PEEK(OL):BS=PEEK(OK)
  112. 8000 POKENJ,BL:POKENK,CC:POKENL,AR:POKEOV,AS:POKEQQ,AT:POKEOE,CD:POKEOD,BN
  113. 8050 POKEOU,BM
  114. 8100 POKEOC,BU:POKEOT,BT:POKENI,BS:POKENO,BK:POKENN,CB:POKENM,AQ:POKENA,AW
  115. 8150 POKEOO,AV:POKENU,AU:POKEOM,AI:POKEOL,BW:POKEOK,BC
  116. 8500 RETURN
  117. 8800 AU=PEEK(NM):AV=PEEK(NN):AW=PEEK(NO):BB=PEEK(NT):AX=PEEK(NP):BA=PEEK(NS)
  118. 8850 AZ=PEEK(NR):AY=PEEK(NQ)
  119. 8900 AI=PEEK(NA):AJ=PEEK(NB):AK=PEEK(NC):AL=PEEK(ND):AM=PEEK(NE):AN=PEEK(NF)
  120. 8950 AO=PEEK(NG):AP=PEEK(NH):AQ=PEEK(NI):AR=PEEK(NJ):AS=PEEK(NK):AT=PEEK(NL)
  121. 9000 POKENA,AR:POKENB,AS:POKENC,AT
  122. 9050 POKEND,AI:POKENE,AJ:POKENF,AK:POKENG,AL:POKENH,AM:POKENI,AN
  123. 9100 POKENJ,AO:POKENK,AP:POKENL,AQ
  124. 9150 POKENM,AW:POKENN,AX:POKENO,AY:POKENP,AZ:POKENQ,BA:POKENR,BB:POKENS,AU
  125. 9200 POKENT,AV
  126. 9500 RETURN
  127. 9800 BC=PEEK(NU):BD=PEEK(NV):BE=PEEK(NW):BF=PEEK(NX):BG=PEEK(NY):BH=PEEK(NZ)
  128. 9850 BI=PEEK(OA):BJ=PEEK(OB):BK=PEEK(OC):BL=PEEK(OD):BM=PEEK(OE):BN=PEEK(QQ)
  129. 9900 BO=PEEK(OG):BP=PEEK(OH):BQ=PEEK(OI)
  130. 9950 BR=PEEK(OJ):BS=PEEK(OK):BT=PEEK(OL)
  131. 9980 BU=PEEK(OM):BV=PEEK(YY)
  132. 10000 POKEOG,BQ:POKEOH,BR:POKEOI,BS:POKEOJ,BT:POKEOK,BU:POKEOL,BV:POKEOM,BO
  133. 10050 POKEYY,BP
  134. 10100 POKENU,BF:POKENV,BG:POKENW,BH:POKENX,BI:POKENY,BJ:POKENZ,BK:POKEOA,BL
  135. 10150 POKEOB,BM:POKEOC,BN:POKEOD,BC:POKEOE,BD:POKEQQ,BE
  136. 10500 RETURN
  137. 10800 BA=PEEK(NS):AZ=PEEK(NR):AY=PEEK(NQ):AO=PEEK(NG):CA=PEEK(OS):BI=PEEK(OA)
  138. 10850 BQ=PEEK(OI):BP=PEEK(OH):BO=PEEK(OG):BE=PEEK(NW):BX=PEEK(OP):AK=PEEK(NC)
  139. 10900 AL=PEEK(ND):AM=PEEK(NE):AN=PEEK(NF)
  140. 10950 BZ=PEEK(ZZ):BH=PEEK(NZ):BG=PEEK(NY):BF=PEEK(NX):BY=PEEK(OQ)
  141. 11000 POKEND,AN:POKENE,BZ:POKENF,BH:POKEZZ,BG:POKENZ,BF:POKENY,BY:POKENX,AL
  142. 11050 POKEOQ,AM:POKENR,CA:POKENQ,BI:POKENG,BQ:POKEOS,BP:POKEOA,BO:POKEOI,BE
  143. 11100 POKEOH,BX:POKEOG,AK:POKENW,BA:POKEOP,AZ:POKENC,AY:POKENS,AO:POKENR,CA
  144. 11500 RETURN
  145. 11800 AO=PEEK(NG):AP=PEEK(NH):AQ=PEEK(NI):CB=PEEK(OT):BK=PEEK(OC):BJ=PEEK(OB)
  146. 11850 BI=PEEK(OA):CA=PEEK(OS):BS=PEEK(OK):BR=PEEK(OJ):BQ=PEEK(OI):BH=PEEK(NZ)
  147. 11900 BZ=PEEK(ZZ):AN=PEEK(NF):AY=PEEK(NQ)
  148. 11950 AX=PEEK(NP):AW=PEEK(NO):AR=PEEK(NJ):CC=PEEK(OU):BL=PEEK(OD)
  149. 12000 POKENG,AQ:POKENH,CB:POKENI,BK:POKEOT,BJ:POKEOC,BI:POKEOB,CA:POKEOA,AO
  150. 12050 POKEOS,AP
  151. 12100 POKENF,AW:POKENQ,AR:POKENP,CC:POKENO,BL:POKENJ,BS:POKEOU,BR:POKEOD,BQ
  152. 12150 POKEOK,BH:POKEOJ,BZ:POKEOI,AN:POKENZ,AY:POKEZZ,AX
  153. 12500 RETURN
  154. 12800 AI=PEEK(NA):AJ=PEEK(NB):AK=PEEK(NC):BX=PEEK(OP):BE=PEEK(NW):BD=PEEK(NV)
  155. 12850 BC=PEEK(NU):BW=PEEK(OO):AU=PEEK(NM):BB=PEEK(NT):BA=PEEK(NS):AL=PEEK(ND)
  156. 12900 BY=PEEK(OQ):BF=PEEK(NX):BO=PEEK(OG)
  157. 12950 BV=PEEK(YY):BU=PEEK(OM):AT=PEEK(NL):CD=PEEK(OV):BN=PEEK(QQ)
  158. 13000 POKENA,AK:POKENB,BX:POKENC,BE:POKEOP,BD:POKENW,BC:POKENV,BW:POKENU,AI
  159. 13050 POKEOO,AJ
  160. 13100 POKEND,BO:POKEOQ,BV:POKENX,BU:POKEOG,BN:POKEYY,CD:POKEOM,AT:POKEQQ,AU
  161. 13150 POKEOV,BB:POKENL,BA:POKENM,AL:POKENT,BY:POKENS,BF
  162. 13500 RETURN
  163. 13800 AR=PEEK(NJ):AS=PEEK(NK):AT=PEEK(NL):CD=PEEK(OV):BN=PEEK(QQ):BM=PEEK(OE)
  164. 13850 BL=PEEK(OD):CC=PEEK(OU):AI=PEEK(NA):BW=PEEK(OO):BC=PEEK(NU):AU=PEEK(NM)
  165. 13900 AV=PEEK(NN):AW=PEEK(NO):AQ=PEEK(NI)
  166. 13950 CB=PEEK(OT):BK=PEEK(OC):BU=PEEK(OM):BT=PEEK(OL):BS=PEEK(OK)
  167. 14000 POKENJ,AT:POKENK,CD:POKENL,BN:POKEOV,BM:POKEQQ,BL:POKEOE,CC:POKEOD,AR
  168. 14050 POKEOU,AS
  169. 14100 POKEOC,AW:POKEOT,AV:POKENI,AU:POKENO,AI:POKENN,BW:POKENM,BC:POKENA,BU
  170. 14150 POKEOO,BT:POKENU,BS:POKEOM,BK:POKEOL,CB:POKEOK,AQ
  171. 14500 RETURN
  172. 14800 G$=A$+G$
  173. 14820 RETURN
  174. 14840 C=LEN(G$)
  175. 14850 FORI=1TOC
  176. 14860 D$=MID$(G$,I,1)
  177. 14870 IFD$="T"THENGOSUB8800
  178. 14880 IFD$="B"THENGOSUB9800
  179. 14900 IFD$="F"THENGOSUB10800
  180. 14920 IFD$="R"THENGOSUB11800
  181. 14940 IFD$="L"THENGOSUB12800
  182. 14960 IFD$="O"THENGOSUB13800
  183. 14980 IFD$="[212]"THENGOSUB2800
  184. 15000 IFD$="[194]"THENGOSUB3800
  185. 15020 IFD$="[198]"THENGOSUB4800
  186. 15040 IFD$="[210]"THENGOSUB5800
  187. 15060 IFD$="[204]"THENGOSUB6800
  188. 15080 IFD$="[207]"THENGOSUB7800
  189. 15120 FORZ=1TO200:NEXTZ:NEXTI:G$=""
  190. 15140 FORZ=1TO2E3:NEXT:PRINT"[154][171][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]
  191. 15145 [153]" (null) O L V E D  BY  LEN 64 WAITCONT(null)
  192. 15150 PRINT"[145][171][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]":FORZ=1TO2E3:NEXT
  193. 15160 PRINT"[158]           [208]LAY AGAIN  [217]/[206]            " :FORD=1TO400:NEXT
  194. 15165 PRINT"           [208]LAY AGAIN  [217]/[206]            ":FORD=1TO400:NEXT
  195. 15170 GETG$:IFG$<>"Y"ANDG$<>"N"THEN15160
  196. 15175 IFG$="Y"THENRUN
  197. 15180 FORZ=1TO2E3:NEXT:PRINT"[154][171][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]
  198. 15185 [153]" PEEKETTER LUCK NEXT TIME WAITCONT(null)
  199. 15190 PRINT"[145][171][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]":FORZ=1TO2E3:NEXT
  200. 15195 PRINT"":END
  201. 16000 PRINT"    DID YOU SOLVE IT...OR JUST QUIT...":END
  202.