RANDOMIZE TIMER TOUCHSCREEN COPY ROM(6),SIZE(6) TO $8000 ON RASTER CALL RAST REM WAS8BIT REM REMIXED BY ERICISONIT DIM X(63),Y(63),DX(63),DY(63),S(5),C(5) DIM GLOBAL R(127) SPD=1 FOR I=0 TO 127 IF I MOD 2=0 THEN R(I)=ROM(4) ELSE R(I)=ROM(5) END IF NEXT I FOR I=0 TO 5 READ S(I),C(I) NEXT I DATA 2,1, 3,4, 1,8,1,10,1,12,1,14 RNUM2=0 RNUM3=31 RESETME: IF TOUCH THEN ZX=TOUCH.X\(128\3) ZY=-(TOUCH.Y-64)/64 RNUM3=-1 RNUM2=0 IF ZX=0 THEN RZ=MIN(31,MAX(1,ABS(INT(ZY*30))+1)) IF RZRNUM THEN RNUM3=RZ RNUM2=RNUM+1 END IF RNUM=RZ ELSE IF ZX=1 THEN ACC=(ABS(INT(ZY*100))+2)*2 ELSE IF ZX=2 THEN ACC2=(ABS(INT(ZY*100))+2)*2 END IF ELSE SPD=RND*10 G=(RND*4)-2 RNUM=31 ACC=(RND(100)+2)*2 ACC2=(RND(100)+2)*2 END IF IF RNUM2<=RNUM3 THEN FOR I=RNUM2 TO RNUM3 T=1 X(I)=RND(127) Y(I)=RND(95) DX(I)=(RND*2-1) DY(I)=(RND*2-1) RP=RND(7) FX=RND(1) FY=RND(1) SPRITE I,X(I),Y(I),C(T) SPRITE I FLIP FX,FY SIZE S(T) PAL RP SPRITE I+32,X(I),Y(I),C(T)+64 SPRITE I+32 FLIP FX,FY SIZE S(T) PAL RP NEXT I END IF TRACE "RNUM=",RNUM TRACE "RNUM2=",RNUM2 TRACE "RNUM3=",RNUM3 TRACE "ACC=",ACC TRACE "ACC2=",ACC2 FOR I=5 TO 15 TRACE " " NEXT I DO FOR I=0 TO RNUM ADD X(I),DX(I)*SPD,0 TO 127 ADD Y(I),DY(I)*SPD,0 TO 95 SPRITE I,X(I),Y(I), SPRITE I+32,X(I)-G,Y(I), NEXT I SPD=COS((TIMER MOD ACC)*PI/ACC) G=((TIMER MOD ACC2)/ACC2)*4 'WAIT VBL IF TOUCH THEN GOTO RESETME LOOP SUB RAST COPY R(RASTER),32 TO $FF00 END SUB #1:MAIN PALETTES 0034201000382410003C2814000C0804 000F0A05000B06010023121100332211 #2:MAIN CHARACTERS 00000000000000000000000000000000 04200108400210800420010840021080 00000000000000000420010840021080 04200108400210800420010840021080 04200108400210800420010840021080 00000000000000000420010840021080 00000000000000000420010840021080 04200108400210800420010840021080 00000000000000000420010840021080 04200108400210800000000000000000 20048010024008010000000000000000 00000000000000002004801002400801 00000000000000000108400210800420 01084002108004200108400210800420 80100240080120048010024008012004 00000000000000008010024008012004 00000000000000000000000000000000 00000000000000000420010840021080 04200108400210800000000000000000 00000000000000000420010840021080 00000000000000000420010840021080 04200108400210800000000000000000 04200108400210800000000000000000 00000000000000000420010840021080 04200108400210800420010840021080 00000000000000000420010840021080 00000000000000002004801002400801 20048010024008012004801002400801 01084002108004200000000000000000 00000000000000000108400210800420 00000000000000008010024008012004 80100240080120040000000000000000 00000000000000000000000000000000 04200108400210800420010840021080 00000000000000000420010840021080 04200108400210800420010840021080 00000000000000000420010840021080 04200108400210800000000000000000 04200108400210800000000000000000 00000000000000000420010840021080 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 04200108400210800420010840021080 00000000000000000420010840021080 00000000000000000420010840021080 04200108400210800420010840021080 #4:PALETTES 003F3D39003F3E3D003F2F1F003F3B37 003F3736003F2B17003F2E1D003F3A35 #5:PALETTES 00383424003C2814000F0A0500332211 0036322100030201000C080400302010 #6:CHARACTERS 00000000000000000000000000000000 04200108400010800420010840021080 04200000000210800420010840000000 04200108000200800420010840021000 00000000000200000000000000020000 00000108400000000000010840021080 04200100000000000420010840021080 00000000400010000000000040001080 04200108400010800420010840021080 04200000000000000420010840021080 20040000000000002004801002400801 20048010020008012004801002400801 80000040000020008010024008012004 80100240080120040000000000000000 01084002108004200000000000000000 01000002000004000108400210800420 00000000000000000000000000000000 00200100400200800420000840001080 04200108400210800000000000000000 00200100400200800400010800021000 04000008000010000400010800021000 00000108000210000420000040000080 00200008400210800400010000000000 04000100000200000420010840021080 00200000400000800420010840021080 04200108400210800000000000000000 20048010024008010000000000000000 00040000020000012004801002400801 80100040080120048010024008012004 00000000000020048010024008012004 00000000000004200108400210800420 01080002108004200108400210800420 00000000000000000000000000000000 00200008400210800420010840021080 04200000000210800000010840021080 04000108400210800420010840021080 00200000400010000420010840021000 04200108000200000000000040001080 04200008400000000000010000021080 04000008000010000420000840001080 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 04000100000000000400010000000000 00000000400210000420010840021000 00000108400000000420010840000000 00200000000000000020000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000040000080000000004000108 00021080000000000002108004200108 40020000000000004002108004200108 00000080002000080000008000200008 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00001000002000000002100004200108 00021000042001084000008000000000 40001080042000080002000000000100 00020000040000084002108004200008 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 40000080002000084002108004200108 40021000040000000000008000200108 40001080000000000002000004200108 00001000002000004000108000200000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00020000000000000002000000000000 00000080042000004002108004200000 00021080000000004002108000000000 40000000000000004000000000000000