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