'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,,) BG 0 FOR Y=0 TO 15 FOR X=0 TO 19 CELL X,Y,X + (Y AND 1) * 20 NEXT X NEXT Y 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 SUB GETPIXEL(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 REM WORMS BY WASHAW GAMES GAMEPAD 1 RANDOMIZE TIMER BG 1 BG COPY 0,0,20,16 TO 0,0 FOR IY=0 TO 15 FOR IX=0 TO 19 BG 1 CC=CELL.C(IX,IY) IF CC=126 OR CC=127 THEN BG 0 IF CC=126 THEN ATTR(2,,,,) IF CC=127 THEN ATTR(3,,,,) CELL IX,IY,IX + (IY AND 1) * 20 FOR Y=IY*8 TO IY*8+7 FOR X=IX*8 TO IX*8+7 C=INT(RND*3)+1 CALL SETPIXEL(X,Y,C) NEXT X NEXT Y END IF NEXT IX NEXT IY FOR I=40 TO 40 SPRITE I,20,20,112 SPRITE.A I,(1,0,0,1,0) NEXT I FOR I=20 TO 39 SPRITE I,200,200,64 SPRITE.A I,(0,0,0,1,0) NEXT I SPRITE 0,16,36,121 SPRITE 20,16,48,66 CALL PRINTNUM(16,48,35,40) PX=16 DO FARROW=(FARROW+1) MOD 10 IF FARROW=0 THEN IARROW=(IARROW+1) MOD 4 SPRITE 0,,,121+IARROW END IF IF RIGHT(0) THEN SPRITE 0,PX,36, SPRITE 20,PX,48,65 PX=PX+1 WAIT 5 SPRITE 0,PX,36, SPRITE 20,PX,48,64 CALL PRINTNUM(PX,48,35,40) WAIT 5 SPRITE 20,PX,48,66 END IF IF LEFT(0) THEN SPRITE 0,PX,36, SPRITE 20,PX,48,78 PX=PX-1 WAIT 5 SPRITE 0,PX,36, SPRITE 20,PX,48,79 CALL PRINTNUM(PX,48,35,40) WAIT 5 SPRITE 20,PX,48,77 END IF WAIT VBL LOOP FOR I=35 TO 0 STEP -1 CALL PRINTNUM(16,48,I,40) WAIT 15 WAIT VBL NEXT I SUB PRINTNUM(X,Y,N,I) PX=X PY=Y-8 IF N<9 THEN SPRITE.A I,(7,,,,) SPRITE I,PX,PY,112+(8-N) ELSE IF N>=9 AND N<18 THEN SPRITE.A I,(6,,,,) SPRITE I,PX,PY,112+(17-N) ELSE IF N>=18 AND N<27 THEN SPRITE.A I,(5,,,,) SPRITE I,PX,PY,112+(26-N) ELSE IF N>=27 THEN SPRITE.A I,(4,,,,) SPRITE I,PX,PY,112+(35-N) END IF END SUB #1:MAIN PALETTES 0B3A3F0000003F2A000C080400170302 000C0408003C142800301020002A0000 #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 0E040D1F1F0E6E9C001B1B0006000000 0E040D1F1F0E3E5C001B1B0006000000 0E0D041F1F0E6E9C001B1B0006000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 78B424FCF870763900D8D80060000000 7824B4FCF8707C3A00D8D80060000000 7824B4FCF870763900D8D80060000000 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 0000000000FFFFFF0000000000FF00FF 0000000000FFFEFF0000000000FF01FF 0000000000FFFCFF0000000000FF03FF 0000000000FFF8FF0000000000FF07FF 0000000000FFF0FF0000000000FF0FFF 0000000000FFE0FF0000000000FF1FFF 0000000000FFC0FF0000000000FF3FFF 0000000000FF80FF0000000000FF7FFF 0000000000FF00FF0000000000FFFFFF 000000000000000010107C3810000000 00000000000000000010107C38100000 0000000000000000000010107C381000 000000000000000000000010107C3810 FFFFFFFFFFFFFFFF0000000000000000 0000000000000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000000000000000007E027E027E02 7E027E02000000000000000000000000 00000000000000000000000000007E02 7E027E027E027E027E027E027E027E02 00000000000000000000000000000000 7E027E027E027E027E027E027E027E02 7E027E027E027E027E027E0200000000 0000000000007E027E027E027E027E02 00007E027E027E02000000007E027E02 7E027E027E0200000000000000007E02 7E027E027E0200000000000000000000 0000000000007E027E027E027E020000 0000000000007E027E027E027E020000 00000000000000000000000000000000 7E027E027E0200000000000000007E02 7E027E027E027E0200007E027E020000 7E027E027E027E027E027E027E027E02 0000000000007E027E027E027E027E02 7E027E027E027E027E027E027E027E02 7E027E027E027E027E02000000007E02 7E027E027E027E027E027E027E027E02 7E027E027E027E027E027E027E027E02 7E020000000000000000000000000000 00000000000000000000000000000000 0000000000000000000000007F037F03 7F037F037F037F037F037F037F037F03 7F037F037F037F037F037F037F037F03 7F037F03