home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / ET-PUZZLE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.6 KB  |  160 lines

  1. 0 REM  ET PUZZLE   TPUG C-M4
  2. 1 POKE53280,12:POKE53281,9
  3. 2 DIMA$(11):C=11:VC=9
  4. 5 PRINT"[147]":V=53248
  5. 20 POKEV+21,255:POKEV+23,255:POKEV+29,255
  6. 30 FORE=200TO207:POKE2040+E-200,E:FORD=64*ETO64*E+62:READS
  7. 31 POKED,S:NEXT:POKEV+39+E-200,C:NEXT
  8. 40 PRINT"[129]     [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  9. 41 FORD=1TO16:PRINT"                       ":NEXT
  10. 42 PRINT"[150]  "
  11. 99 POKEV+8,112:POKEV+9,106
  12. 100 FORD=105TO64STEP-1
  13. 110 POKEV,D:POKEV+1,D
  14. 115 POKEV+2,112:POKEV+3,D
  15. 120 POKEV+4,160+64-D:POKEV+5,D
  16. 130 POKEV+6,D:POKEV+7,106
  17. 140 POKEV+10,160+64-D:POKEV+11,106
  18. 150 POKEV+12,D:POKEV+13,106+106-D
  19. 160 POKEV+14,112:POKEV+15,106+106-D
  20. 190 NEXT
  21. 215 PRINTCHR$(14)"";
  22. 216 FORD=1TO18
  23. 217 READA$
  24. 220 PRINT"";
  25. 221 FORL=1TOLEN(A$):PRINTMID$(A$,L,1);:FORH=1TO1  :NEXT:NEXT:PRINT
  26. 240 NEXT
  27. 245 POKE198,0
  28. 250 GETA$:IFA$<>CHR$(13)THEN250
  29. 255 PRINT"";
  30. 260 FORD=1TO23:PRINTSPC(24)"                ";:FORB=1TO30:NEXT:NEXT
  31. 265 PRINT"";
  32. 270 FORD=1TO8
  33. 277 READA$
  34. 280 PRINT"";
  35. 290 FORL=1TOLEN(A$):PRINTMID$(A$,L,1);:FORH=1TO1  :NEXT:NEXT:PRINT
  36. 300 NEXT
  37. 305 FORL=1TO2E3:NEXT:FORD=PEEK(V+14)TOPEEK(V+14)+48STEP.25:POKEV+14,D:NEXT
  38. 309 PRINT"[150][208][210][197][211][211] [210][197][212][213][210][206]":POKE198,0
  39. 310 GETA$:IFA$<>CHR$(13)THEN310
  40. 320 PRINT"";
  41. 330 FORD=1TO23:PRINTSPC(24)"                ";:FORB=1TO30:NEXT:NEXT
  42. 350 FORD=1TO11:READA$(D):NEXT:A=INT(RND(1)*11)+1
  43. 360 FORD=0TO7:A(D)=(VAL(MID$(A$(A),D+1,1))-1):NEXT
  44. 370 FORD=1TO9:READB(D):NEXT
  45. 380 POKEV+21,0
  46. 390 PRINT"[159]  [207].[203] HERE COMES THE SCRAMBLED PICTURE"
  47. 400 POKEV+A(0)*2,64:POKEV+A(0)*2+1,64
  48. 401 POKEV+A(1)*2,112:POKEV+A(1)*2+1,64
  49. 402 POKEV+A(2)*2,160:POKEV+A(2)*2+1,64
  50. 403 POKEV+A(3)*2,64:POKEV+A(3)*2+1,106
  51. 404 POKEV+A(4)*2,112:POKEV+A(4)*2+1,106
  52. 405 POKEV+A(5)*2,160:POKEV+A(5)*2+1,106
  53. 406 POKEV+A(6)*2,64:POKEV+A(6)*2+1,148
  54. 407 POKEV+A(7)*2,112:POKEV+A(7)*2+1,148
  55. 410 C=0:FORD=0TO7:C=C+2^A(D):POKEV+21,C:FORH=1TO200:NEXT:NEXT
  56. 411 PRINT"                                      "
  57. 412 PRINT"[155]"SPC(30)"1  2  3[157][157][157][157][157][157][157]4  5  6[157][157][157][157][157][157][157]7  8  9"
  58. 420 PRINT"[155][205]OVE"
  59. 430 GETM$:M=VAL(M$):IFM$=""THEN430
  60. 435 IFM<1THEN430
  61. 440 M1=VAL(LEFT$(STR$(B(VC)),2))
  62. 441 M2=VAL(MID$(STR$(B(VC)),3,1))
  63. 442 M3=VAL(MID$(STR$(B(VC)),4,1))
  64. 443 M4=VAL(RIGHT$(STR$(B(VC)),1))
  65. 445 IF M<>M1 AND M<>M2 AND M<>M3 AND M<>M4 THEN 430
  66. 450 PRINT"    ":IFM<4THENY=64
  67. 451 IFM>3ANDM<7THENY=106
  68. 452 IFM>6THENY=148
  69. 453 IFM=1ORM=4ORM=7THENX=64
  70. 454 IFM=2ORM=5ORM=8THENX=112
  71. 455 IFM/3=INT(M/3)THENX=160
  72. 456 IFM=VC+3THENGOSUB800
  73. 457 IFM+3=VCTHENGOSUB850
  74. 458 IFM=VC+1THENGOSUB900
  75. 459 IFM+1=VCTHENGOSUB950
  76. 470 A(VC-1)=A(M-1):A(M-1)=99
  77. 475 C=0
  78. 480 FORD=1TO8:IFA(D)=DTHENC=C+1
  79. 490 NEXT
  80. 500 IFC=7THEN2000
  81. 510 VC=M
  82. 515 M5=M5+1:PRINT"[159]MOVES[146][155]";M5
  83. 520 GOTO420
  84. 800 REM ** UP **
  85. 805 FORL=YTOY-42STEP-1:POKEV+A(M-1)*2+1,L:NEXT
  86. 820 RETURN
  87. 850 REM * DOWN *
  88. 855 FORL=YTOY+42:POKEV+A(M-1)*2+1,L:NEXT
  89. 870 RETURN
  90. 900 REM * LEFT *
  91. 905 FORL=XTOX-48STEP-1:POKEV+A(M-1)*2,L:NEXT
  92. 920 RETURN
  93. 950 REM * RIGHT *
  94. 955 FORL=XTOX+48:POKEV+A(M-1)*2,L:NEXT
  95. 970 RETURN
  96. 999 REM **** SPRITE 1 ****
  97. 1000 DATA0,0,0,0,0,31,0,1,224,0,6,0,0,24,15,0,96,127,0,65,255,0,135,255,1,31,255
  98. 1001 DATA2,63,252,4,63,252,4,127,252,4,255,128,8,254,15,8,254,127,16,254,187,19
  99. 1002 DATA252,159,35,248,143,39,248,112,47,240,15,35,224,0
  100. 1003 REM **** SPRITE 2 ****
  101. 1004 DATA0,0,0,224,0,0,30,0,127,1,255,128,92,0,16,252,198,17,255,241,10,255,248
  102. 1005 DATA146,255,252,212,63,254,32,31,255,143,31,255,255,231,255,255,211,255,255
  103. 1006 DATA208,16,68,216,122,68,144,154,137,17,113,2,226,134,18,21,27,41,42,36,196
  104. 1007 REM **** SPRITE 3 ****
  105. 1008 DATA0,0,0,0,0,0,128,0,0,103,0,0,24,240,0,0,28,0,0,3,0,31,128,192,255,248,32
  106. 1009 DATA255,252,32,255,252,16,255,254,16,192,126,8,128,63,8,63,31,4,220,158,4
  107. 1010 DATA46,94,4,102,126,8,62,78,8,156,192,8,127,0,136
  108. 1011 REM **** SPRITE 4 ****
  109. 1012 DATA32,230,0,35,1,192,34,0,63,33,128,0,16,120,28,16,7,255,10,0,1,9,147,14,4
  110. 1013 DATA100,8,2,24,16,1,32,16,0,192,32,0,54,192,0,9,0,0,4,3,0,2,132,0,1,104,0,0
  111. 1014 DATA145,0,0,65,0,0,126,0,0,72
  112. 1015 REM **** SPRITE 5 ****
  113. 1016 DATA4,68,2,132,137,154,73,40,180,137,36,9,145,65,0,18,65,32,34,130,32,36,132
  114. 1017 DATA24,73,0,4,74,0,0,74,3,142,144,7,255,145,30,254,144,248,62,16,16,62,75,11
  115. 1018 DATA158,160,134,124,32,64,24,16,56,0,8,7,0,2,0,14
  116. 1019 REM **** SPRITE 6 ****
  117. 1020 DATA0,0,136,0,65,136,14,50,48,1,140,80,192,64,96,48,48,160,8,9,64,4,6,64,2,0
  118. 1021 DATA128,67,33,0,34,198,0,18,24,0,20,96,0,36,128,0,43,0,0,68,0,0,4,0,0,24,0,0
  119. 1022 DATA32,0,0,64,0,0,128,0,0
  120. 1023 REM **** SPRITE 7 ****
  121. 1024 DATA0,0,38,0,0,33,0,0,32,0,0,144,0,3,156,0,31,18,3,190,9,31,166,8,30,3,4,24,3
  122. 1025 DATA4,24,3,7,27,131,4,31,129,132,14,1,162,12,97,130,12,232,3,15,192,2,15,0,1
  123. 1026 DATA4,0,1,0,0,1,0,0,1
  124. 1027 REM **** SPRITE 8 ****
  125. 1028 DATA1,128,17,0,120,225,248,7,2,6,0,12,1,255,240,0,64,0,128,32,0,65,32,0,62
  126. 1029 DATA32,0,0,64,0,0,64,0,192,64,0,35,64,0,28,64,0,0,32,0,128,32,0,112,32,0,8
  127. 1030 DATA160,0,7,32,0,0,16,0,0,16,0
  128. 1040 DATA"[158][217]OUR OBJECTIVE",IS TO RECREATE,THIS PICTURE ,"OF [197].[212]."
  129. 1050 DATA,"[144][200]E IS MADE UP",OF A GRID OF,3X3 SPRITES,YOU CAN MOVE
  130. 1060 DATAEACH CELL INTO,THE VACANT ONE,,"[217]OU DO THIS BY","TYPING THE [206]O."
  131. 1070 DATAOF THE CELL YOU,WANT TO MOVE
  132. 1080 DATA,"[150][206][207][215] [208][210][197][211][211] [210][197][212][213][210][206]"
  133. 1090 DATA"[212]HE GRID IS SET","UP LIKE THIS :[192]"
  134. 1100 DATA"[155]  1  2  3","  4  5  6","  7  8  9"
  135. 1110 DATA,"[144][211]O TYPING 8","WILL DO THIS"
  136. 1120 DATA82167534,17654238,85476213,32856471,38764152,41257360,64132875,61873425
  137. 1130 DATA57638241,84657312,28654137
  138. 1140 DATA0024,0135,0260,0157,2468,0359,0480,0579,0680
  139. 2000 POKE54296,15
  140. 2010 A1=54291:R1=54292:A2=54277:R2=54278
  141. 2020 H1=54287:L1=54286:W1=54290:H2=54273:L2=54272:W2=54276
  142. 2040 POKEA1,102:POKER1,0:POKEA2,96:POKER2,0
  143. 2100 READH,L,D
  144. 2103 IFH=0THENPOKER1,14:POKE54296,0:POKEH1,0:POKEL1,0:POKEH2,0:POKEL2,0:END
  145. 2104 POKEW1,0:POKEW2,0
  146. 2105 POKEW1,17:POKEW2,33
  147. 2106 POKEH1,0:POKEH1,H:POKEH2,0:POKEH2,H
  148. 2110 POKEL1,0:POKEL1,L:POKEL2,0:POKEL2,L:FORE=0TO7*D:POKER2,136:POKER1,136:NEXT
  149. 2120 GOTO2100
  150. 2200 DATA34,75,6,51,97,6,45,198,1,43,52,1,38,126,1,43,52,1,34,75,6,25,177,10
  151. 2210 DATA28,214,6,57,172,6,51,97,1,48,127,1,43,52,1,48,127,1,38,126,6,64,188,10
  152. 2220 DATA38,126,6,68,149,6,64,188,1,57,172,1,51,97,1,45,198,1,40,200,6,34,75,10
  153. 2221 DATA40,200,6,34,75,6,68,149,4,76,252,2,64,188,12
  154. 2225 DATA68,150,6,102,196,6,90,99,1,86,52,1,76,126,1,86,52,1,68,75,6,50,177,10
  155. 2226 DATA56,214,6,114,172,6,102,97,1,96,127,1,86,52,1,96,127,1,76,126,6,128,188,10
  156. 2227 DATA76,126,6,136,149,6,128,188,1,114,172,1,102,97,1,90,198,1,80,200,6,68,75,10
  157. 2230 DATA80,200,6,68,75,6,136,149,4,152,252,2,128,188,12,136,149,6,204,194,6
  158. 2240 DATA192,254,6,152,252,6,136,149,12
  159. 2300 DATA0,0,0
  160.