REM 225 REM 15X15 REM 119X119 REM CHARACTERS 1 THRU 30 ARE USABLE FOR SPRITES AND SUCH... RANDOMIZE TIMER REM WAS8BIT DIM GLOBAL BITCHAR(7,7,224),LAYOUT(14,14) BG 1 SCROLL 1,0,4 C=31 FOR X=0 TO 14 FOR Y=0 TO 14 LAYOUT(X,Y)=C-31 XX=X+2 YY=Y+1 CELL XX,YY,C INC C NEXT Y NEXT X CALL CLEAR DO R=RND(58) CC=RND(2)+1 FOR A=0 TO 6.3 STEP 0.01 IX=(59+R*COS(A)) IY=(59+R*SIN(A)) GOSUB CALC NEXT A LOOP CALC: CX=IX\8 CY=IY\8 PX=IX MOD 8 PY=IY MOD 8 C=LAYOUT(CX,CY) BITCHAR(PX,PY,C)=CC CALL DRAWBITS(C) RETURN SUB CLEAR FOR I=0 TO 224 II=I+31 FOR Y=0 TO 7 POKE $8000+Y+II*16,0 POKE $8008+Y+II*16,0 NEXT Y NEXT I END SUB SUB DRAWBITS(DNUM) CNUM=DNUM+31 FOR Y=0 TO 7 DAT1=0 DAT2=0 FOR X=0 TO 7 C=BITCHAR(X,Y,DNUM) IF C=0 THEN C1=0 C2=0 ELSE IF C=1 THEN C1=1 C2=0 ELSE IF C=2 THEN C1=0 C2=1 ELSE IF C=3 THEN C1=1 C2=1 END IF POW=7-X DAT1=DAT1+C1*2^POW DAT2=DAT2+C2*2^POW NEXT X POKE $8000+Y+CNUM*16,DAT1 POKE $8008+Y+CNUM*16,DAT2 NEXT Y END SUB #1:MAIN PALETTES 0037190700383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF