'TITLE: FRAMEBUFFER 'AUTHOR: LEE ' SETPIXEL CLEAR FIXED BY TIMO KLOSS REM SUPER MANDELBROTHERS CODE BY MRLEGOBOY REM CONVERTED TO LOWRES NX BY WAS8BIT REM RANDOMIZE TIMER DISPLAY (,,0,,) FOR Y=0 TO 15 FOR X=0 TO 19 CELL X,Y,X + (Y AND 1) * 20 NEXT X NEXT Y TOUCHSCREEN RANDOMIZE TIMER SUB SETPIXEL(X,Y,C) A=$A000+(Y AND $F8)*40+(X\8)*16+(Y AND 7) M=2^(7-(X AND 7)) IF C=1 OR C=3 THEN POKE A,M OR (PEEK(A) AND NOT M) IF C=2 OR C=0 THEN POKE A,PEEK(A) AND NOT M A=A+8 IF C=2 OR C=3 THEN POKE A,M OR (PEEK(A) AND NOT M) IF C=1 OR C=0 THEN POKE A,PEEK(A) AND NOT M END SUB DIM GLOBAL LINESRC(128) DIM GLOBAL LINEDST(128) DIM GLOBAL LINEIF(128) GLOBAL XX FOR I=0 TO 119 LINEIF(I)=-1 A=(I+8)*40 LINESRC(I)=$A000+A LINEDST(I)=$8000+(A MOD 640) NEXT I ON RASTER CALL BUNT ON VBL CALL FRAME SUB FRAME COPY $A000,320 TO $8000 END SUB SUB BUNT IF LINEIF(RASTER) THEN COPY LINESRC(RASTER),40 TO LINEDST(RASTER) END SUB REM PING BY WASHAW GAMES PMAX=100 DIM PX(PMAX),PY(PMAX),DPX(PMAX),DPY(PMAX),PC(PMAX),PT(PMAX) FOR I=0 TO PMAX PX(I)=RND*160 PY(I)=RND*128 DPX(I)=RND-RND DPY(I)=RND-RND PC(I)=INT(RND*3)+1 NEXT I SMAX=3 DIM SX(SMAX),SY(SMAX),DSX(SMAX),DSY(SMAX),SC(SMAX) CC=0 FOR I=1 TO SMAX SX(I)=RND*160 SY(I)=RND*128 DSX(I)=RND-RND DSY(I)=RND-RND SC(I)=CC+1 SPRITE I,SX(I),SY(I),81 SPRITE.A I,(SC(I),,,,) CC=(CC+1) MOD 3 NEXT I TMAX=6 DIM TX(TMAX),TY(TMAX),DTX(TMAX),DTY(TMAX),TI(TMAX) FOR I=1 TO TMAX TX(I)=RND*160 TY(I)=RND*128 DTX(I)=RND-RND DTY(I)=RND-RND TI(TMAX)=0 SPRITE 10+I,TX(I),TY(I),65 SPRITE.A 10+I,(I,,,,) NEXT I REM FILL $A000,$2000 DO FOR I=0 TO PMAX IF PC(I)>0 THEN CALL MOVEDOT(PX(I),PY(I),DPX(I),DPY(I),PC(I)) NEXT I FOR I=1 TO SMAX CALL MOVESPRITE(SX(I),SY(I),DSX(I),DSY(I),I) NEXT I FOR I=1 TO TMAX CALL MOVESPRITE(TX(I),TY(I),DTX(I),DTY(I),I+10) NEXT I WAIT VBL LOOP END SUB MOVEDOT(X,Y,DX,DY,C) CALL SETPIXEL(X,Y,0) X=X+DX Y=Y+DY IF X<0 THEN X=X+160 IF Y<0 THEN Y=Y+128 IF X>160 THEN X=X-160 IF Y>128 THEN Y=Y-128 CALL SETPIXEL(X,Y,C) END SUB SUB MOVESPRITE(X,Y,DX,DY,I) X=X+DX Y=Y+DY IF X<0 THEN X=X+160 IF Y<0 THEN Y=Y+128 IF X>160 THEN X=X-160 IF Y>128 THEN Y=Y-128 SPRITE I,X,Y, END SUB #1:MAIN PALETTES 00303C0B003A3020000B0703003C2814 000C080400332312000F0A05003F2A15 #2:MAIN CHARACTERS 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 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 00001824241800000000183C3C180000 0018245A5A24180000183C66663C1800 18245AA5A55A2418183C66DBDB663C18 245AA54242A55A243C66DBBDBDDB663C 18245AA5A55A2418245ABD7E7EBD5A24 4281182424188142A542993C3C9942A5 A5429924249942A5E7C3993C3C99C3E7 4281182424188142C381183C3C1881C3 81001824241800818100183C3C180081 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C7EFFFFFFFF7E3C3C7EFFFFFFFF7E3C 00000000000000003C7EFFFFFFFF7E3C 3C7EFFFFFFFF7E3C0000000000000000 00000000000000003C7EFFFFFFFF7E3C