home *** CD-ROM | disk | FTP | other *** search
- 0 REM ET PUZZLE TPUG C-M4
- 1 POKE53280,12:POKE53281,9
- 2 DIMA$(11):C=11:VC=9
- 5 PRINT"[147]":V=53248
- 20 POKEV+21,255:POKEV+23,255:POKEV+29,255
- 30 FORE=200TO207:POKE2040+E-200,E:FORD=64*ETO64*E+62:READS
- 31 POKED,S:NEXT:POKEV+39+E-200,C:NEXT
- 40 PRINT"[129] [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
- 41 FORD=1TO16:PRINT" ":NEXT
- 42 PRINT"[150] "
- 99 POKEV+8,112:POKEV+9,106
- 100 FORD=105TO64STEP-1
- 110 POKEV,D:POKEV+1,D
- 115 POKEV+2,112:POKEV+3,D
- 120 POKEV+4,160+64-D:POKEV+5,D
- 130 POKEV+6,D:POKEV+7,106
- 140 POKEV+10,160+64-D:POKEV+11,106
- 150 POKEV+12,D:POKEV+13,106+106-D
- 160 POKEV+14,112:POKEV+15,106+106-D
- 190 NEXT
- 215 PRINTCHR$(14)"";
- 216 FORD=1TO18
- 217 READA$
- 220 PRINT"";
- 221 FORL=1TOLEN(A$):PRINTMID$(A$,L,1);:FORH=1TO1 :NEXT:NEXT:PRINT
- 240 NEXT
- 245 POKE198,0
- 250 GETA$:IFA$<>CHR$(13)THEN250
- 255 PRINT"";
- 260 FORD=1TO23:PRINTSPC(24)" ";:FORB=1TO30:NEXT:NEXT
- 265 PRINT"";
- 270 FORD=1TO8
- 277 READA$
- 280 PRINT"";
- 290 FORL=1TOLEN(A$):PRINTMID$(A$,L,1);:FORH=1TO1 :NEXT:NEXT:PRINT
- 300 NEXT
- 305 FORL=1TO2E3:NEXT:FORD=PEEK(V+14)TOPEEK(V+14)+48STEP.25:POKEV+14,D:NEXT
- 309 PRINT"[150][208][210][197][211][211] [210][197][212][213][210][206]":POKE198,0
- 310 GETA$:IFA$<>CHR$(13)THEN310
- 320 PRINT"";
- 330 FORD=1TO23:PRINTSPC(24)" ";:FORB=1TO30:NEXT:NEXT
- 350 FORD=1TO11:READA$(D):NEXT:A=INT(RND(1)*11)+1
- 360 FORD=0TO7:A(D)=(VAL(MID$(A$(A),D+1,1))-1):NEXT
- 370 FORD=1TO9:READB(D):NEXT
- 380 POKEV+21,0
- 390 PRINT"[159] [207].[203] HERE COMES THE SCRAMBLED PICTURE"
- 400 POKEV+A(0)*2,64:POKEV+A(0)*2+1,64
- 401 POKEV+A(1)*2,112:POKEV+A(1)*2+1,64
- 402 POKEV+A(2)*2,160:POKEV+A(2)*2+1,64
- 403 POKEV+A(3)*2,64:POKEV+A(3)*2+1,106
- 404 POKEV+A(4)*2,112:POKEV+A(4)*2+1,106
- 405 POKEV+A(5)*2,160:POKEV+A(5)*2+1,106
- 406 POKEV+A(6)*2,64:POKEV+A(6)*2+1,148
- 407 POKEV+A(7)*2,112:POKEV+A(7)*2+1,148
- 410 C=0:FORD=0TO7:C=C+2^A(D):POKEV+21,C:FORH=1TO200:NEXT:NEXT
- 411 PRINT" "
- 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"
- 420 PRINT"[155][205]OVE"
- 430 GETM$:M=VAL(M$):IFM$=""THEN430
- 435 IFM<1THEN430
- 440 M1=VAL(LEFT$(STR$(B(VC)),2))
- 441 M2=VAL(MID$(STR$(B(VC)),3,1))
- 442 M3=VAL(MID$(STR$(B(VC)),4,1))
- 443 M4=VAL(RIGHT$(STR$(B(VC)),1))
- 445 IF M<>M1 AND M<>M2 AND M<>M3 AND M<>M4 THEN 430
- 450 PRINT" ":IFM<4THENY=64
- 451 IFM>3ANDM<7THENY=106
- 452 IFM>6THENY=148
- 453 IFM=1ORM=4ORM=7THENX=64
- 454 IFM=2ORM=5ORM=8THENX=112
- 455 IFM/3=INT(M/3)THENX=160
- 456 IFM=VC+3THENGOSUB800
- 457 IFM+3=VCTHENGOSUB850
- 458 IFM=VC+1THENGOSUB900
- 459 IFM+1=VCTHENGOSUB950
- 470 A(VC-1)=A(M-1):A(M-1)=99
- 475 C=0
- 480 FORD=1TO8:IFA(D)=DTHENC=C+1
- 490 NEXT
- 500 IFC=7THEN2000
- 510 VC=M
- 515 M5=M5+1:PRINT"[159]MOVES[146][155]";M5
- 520 GOTO420
- 800 REM ** UP **
- 805 FORL=YTOY-42STEP-1:POKEV+A(M-1)*2+1,L:NEXT
- 820 RETURN
- 850 REM * DOWN *
- 855 FORL=YTOY+42:POKEV+A(M-1)*2+1,L:NEXT
- 870 RETURN
- 900 REM * LEFT *
- 905 FORL=XTOX-48STEP-1:POKEV+A(M-1)*2,L:NEXT
- 920 RETURN
- 950 REM * RIGHT *
- 955 FORL=XTOX+48:POKEV+A(M-1)*2,L:NEXT
- 970 RETURN
- 999 REM **** SPRITE 1 ****
- 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
- 1001 DATA2,63,252,4,63,252,4,127,252,4,255,128,8,254,15,8,254,127,16,254,187,19
- 1002 DATA252,159,35,248,143,39,248,112,47,240,15,35,224,0
- 1003 REM **** SPRITE 2 ****
- 1004 DATA0,0,0,224,0,0,30,0,127,1,255,128,92,0,16,252,198,17,255,241,10,255,248
- 1005 DATA146,255,252,212,63,254,32,31,255,143,31,255,255,231,255,255,211,255,255
- 1006 DATA208,16,68,216,122,68,144,154,137,17,113,2,226,134,18,21,27,41,42,36,196
- 1007 REM **** SPRITE 3 ****
- 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
- 1009 DATA255,252,32,255,252,16,255,254,16,192,126,8,128,63,8,63,31,4,220,158,4
- 1010 DATA46,94,4,102,126,8,62,78,8,156,192,8,127,0,136
- 1011 REM **** SPRITE 4 ****
- 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
- 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
- 1014 DATA145,0,0,65,0,0,126,0,0,72
- 1015 REM **** SPRITE 5 ****
- 1016 DATA4,68,2,132,137,154,73,40,180,137,36,9,145,65,0,18,65,32,34,130,32,36,132
- 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
- 1018 DATA158,160,134,124,32,64,24,16,56,0,8,7,0,2,0,14
- 1019 REM **** SPRITE 6 ****
- 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
- 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
- 1022 DATA32,0,0,64,0,0,128,0,0
- 1023 REM **** SPRITE 7 ****
- 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
- 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
- 1026 DATA4,0,1,0,0,1,0,0,1
- 1027 REM **** SPRITE 8 ****
- 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
- 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
- 1030 DATA160,0,7,32,0,0,16,0,0,16,0
- 1040 DATA"[158][217]OUR OBJECTIVE",IS TO RECREATE,THIS PICTURE ,"OF [197].[212]."
- 1050 DATA,"[144][200]E IS MADE UP",OF A GRID OF,3X3 SPRITES,YOU CAN MOVE
- 1060 DATAEACH CELL INTO,THE VACANT ONE,,"[217]OU DO THIS BY","TYPING THE [206]O."
- 1070 DATAOF THE CELL YOU,WANT TO MOVE
- 1080 DATA,"[150][206][207][215] [208][210][197][211][211] [210][197][212][213][210][206]"
- 1090 DATA"[212]HE GRID IS SET","UP LIKE THIS :[192]"
- 1100 DATA"[155] 1 2 3"," 4 5 6"," 7 8 9"
- 1110 DATA,"[144][211]O TYPING 8","WILL DO THIS"
- 1120 DATA82167534,17654238,85476213,32856471,38764152,41257360,64132875,61873425
- 1130 DATA57638241,84657312,28654137
- 1140 DATA0024,0135,0260,0157,2468,0359,0480,0579,0680
- 2000 POKE54296,15
- 2010 A1=54291:R1=54292:A2=54277:R2=54278
- 2020 H1=54287:L1=54286:W1=54290:H2=54273:L2=54272:W2=54276
- 2040 POKEA1,102:POKER1,0:POKEA2,96:POKER2,0
- 2100 READH,L,D
- 2103 IFH=0THENPOKER1,14:POKE54296,0:POKEH1,0:POKEL1,0:POKEH2,0:POKEL2,0:END
- 2104 POKEW1,0:POKEW2,0
- 2105 POKEW1,17:POKEW2,33
- 2106 POKEH1,0:POKEH1,H:POKEH2,0:POKEH2,H
- 2110 POKEL1,0:POKEL1,L:POKEL2,0:POKEL2,L:FORE=0TO7*D:POKER2,136:POKER1,136:NEXT
- 2120 GOTO2100
- 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
- 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
- 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
- 2221 DATA40,200,6,34,75,6,68,149,4,76,252,2,64,188,12
- 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
- 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
- 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
- 2230 DATA80,200,6,68,75,6,136,149,4,152,252,2,128,188,12,136,149,6,204,194,6
- 2240 DATA192,254,6,152,252,6,136,149,12
- 2300 DATA0,0,0
-