Code: Select all
10 key off : curs off : hide on
20 X=hunt(start(1) to start(1)+length(1),"PALT") : X=X+4 : for A=0 to 15 : colour A,deek(X) : X=X+2 : next A
30 colour 0,$0 : A=100 : B=170
40 sprite 1,100+tan(A/21.7)*50,90+sin(A/21.7)*90,3
45 sprite 2,100+tan(B/21.7)*50,90+sin(B/21.7)*90,3 : wait vbl
50 inc A : inc B : goto 40