REM ORIGINALY CALLED YING YANG YUNG REM BY TODDL IN ORIGINAL LOWRES REM REM IMPLEMENTED INTO LOWRES NX BY WAS8BIT RANDOMIZE TIMER DIM XDIR(7),YDIR(7) FOR I=0 TO 7 READ XDIR(I),YDIR(I) NEXT I DATA 0,-1, 1,-1, 1,0, 1,1, 0,1, -1,1, -1,0, -1,-1 TOUCHSCREEN REPLAY: FOR I=0 TO 63 SPRITE I,,,0 NEXT I CLS WAIT 15 CX=63.5 CY=63.5 SX0=60 SY=15 T2=0 X1=0 Y1=0 IDIR=INT(RND*8) BG 1 ATTR(RND*8) FOR I=1 TO 100 CELL RND*32,RND*32,INT(RND*3)+1 NEXT I N=1 ND=1 XSCROLL=0 YSCROLL=0 DO AA=INT(RND*8) CC=INT(RND*15)+1 FOR II=0 TO 63 IF II>=N*9 THEN C=0 ELSE C=CC SPRITE II,,,C SPRITE.A II,(AA) NEXT II NDD=0 DO SCROLL 1,XSCROLL,YSCROLL XSCROLL=XSCROLL+XDIR(IDIR) YSCROLL=YSCROLL+YDIR(IDIR) IF INT(RND*100)=0 THEN IDIR=IDIR+INT(RND*3)-1 IF IDIR<0 THEN IDIR=7 IF IDIR>7 THEN IDIR=0 END IF REM SX=SX0/N SX=SIN(T2)*SX0 T=T+0.1 T2=T2+0.1 A=0 FOR NN=0 TO N-1 GOSUB D A=A+(PI*2/N) NEXT NN WAIT VBL IF NDD>50 THEN GOTO EXITLOOP NDD=NDD+1 LOOP EXITLOOP: N=N+ND IF N>7 THEN N=6 ND=-1 END IF IF N<1 THEN ND=+1 N=2 END IF LOOP D: ICOUNT=0 FOR I=0 TO 1 STEP 0.1 X0=X1 Y0=Y1 X=(SIN(I*PI))*SX Y=(COS(I*PI)+1)*SY X1=X*COS(A+T)-Y*SIN(A+T) Y1=X*SIN(A+T)+Y*COS(A+T) REM IF I>0 THEN LINE X0+CX,Y0+CY TO X1+CX,Y1+CY IF I>0 THEN SPRITE ICOUNT+NN*9,X0+CX+12,Y0+CY, ICOUNT=ICOUNT+1 END IF NEXT I IF TOUCH THEN GOTO REPLAY RETURN #1:MAIN PALETTES 00302010003C2814000C0804000F0A05 000706030023131200332211003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 80000000000000000000000000000000 004000000000000040A0400000000000 2050A850200000002070D87020000000 82002810280082008244000000448200 10001010280082001010000000448200 00001824241800000000001818000000 3C4299BDBD99423C003C7E7E7E7E3C00 00244218184224000024660000662400 00002400002418000000000000000000 00000044001028100000000000000000 0040A040000000000000081408000000 40A04000040A040000000020542A0400 00002000080000000000001008000000 00002000280000000000202018000000 00000020440800000008040004080000 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000