' ' YOU NEED THE BITCHAR() ARRAY, AND THE SUB DRAWBITS() ' ' THE BITCHAR() ARRAY HOLDS AN 8X8 PIXEL IMAGE, USING COLORS 0-3 ' ' THE SUB DRAWBITS(C) WILL EDIT CHARACTER #C (WHATEVER # YOU INPUT) ' ' THE DO LOOP AND SUB SHOWBITS() CAN BE REMOVED ' AS THEY JUST HELP SHOW OFF THE DEMO ' ' TOUCHSCREEN REM WAS8BIT DIM GLOBAL BITCHAR(7,7) CELL SIZE 0,1 BG 1 BG FILL 0,0 TO 0,15 CHAR 10 BG FILL 19,0 TO 19,15 CHAR 10 CALL SHOWBITS DO IF TAP THEN TX=(TOUCH.X\16)-1 TY=TOUCH.Y\16 BG 1 IF TX>=0 AND TX<=7 THEN ADD BITCHAR(TX,TY),1,0 TO 3 CALL SHOWBITS CALL DRAWBITS(10) PLAY 0,80+BITCHAR(TX,TY),1 END IF END IF WAIT VBL LOOP SUB SHOWBITS BG 0 FOR Y=0 TO 7 FOR X=0 TO 7 C=BITCHAR(X,Y) CELL 1+X,Y,2+(2*C) NEXT X NEXT Y END SUB REM NEEDED SUBROUTINE SUB DRAWBITS(CNUM) FOR Y=0 TO 7 DAT1=0 DAT2=0 FOR X=0 TO 7 C=BITCHAR(X,Y) 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 0B3C300000383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 00000000000100020000000000000202 00000000008000400000000000804000 001F3F7F7F7F7F7F0000000000000000 00F8FCFEFEFEFEFE0000000000000000 0000000000000000001F3F7F7F7F7F7F 000000000000000000F8FCFEFEFEFEFE 001F3F7F7F7F7F7F001F3F7F7F7F7F7F 00F8FCFEFEFEFEFE00F8FCFEFEFEFEFE 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 02000100000000000002010000000000 40008000000000004040000000000000 7F7F7F7F7F3F1F000000000000000000 FEFEFEFEFEFCF8000000000000000000 00000000000000007F7F7F7F7F3F1F00 0000000000000000FEFEFEFEFEFCF800 7F7F7F7F7F3F1F007F7F7F7F7F3F1F00 FEFEFEFEFEFCF800FEFEFEFEFEFCF800