REM PICTURE PICTURE REM CODE ENTIRELY BY WAS8BIT DIM GLOBAL SET0(7),SET1(7) FOR I=0 TO 7 READ SET0(I) READ SET1(I) NEXT I DATA %01111111 DATA %10000000 DATA %10111111 DATA %01000000 DATA %11011111 DATA %00100000 DATA %11101111 DATA %00010000 DATA %11110111 DATA %00001000 DATA %11111011 DATA %00000100 DATA %11111101 DATA %00000010 DATA %11111110 DATA %00000001 PAL 2 FOR X=0 TO 3 CELL X,12,8+X CELL X+5,12,12+X CELL X,14,24+X CELL X+5,14,28+X NEXT X PAL 3 FOR Y=0 TO 19 CELL 10,Y,1 CELL 19,Y,1 NEXT Y FOR X=0 TO 10 CELL X,10,1 CELL X+11,9,1 CELL X+11,10,1 CELL X+11,0,1 NEXT X CALL PBOX(13,12,0,1) CALL PBOX(15,12,0,2) CALL PBOX(17,12,0,3) CALL PBOX(13,14,1,1) CALL PBOX(15,14,1,2) CALL PBOX(17,14,1,3) I=55 BG 1 PAL 1 FOR IY=0 TO 9 FOR IX=0 TO 9 INC I CELL IX,IY,I NEXT IX NEXT IY BG 0 PAL 0 FOR IY=0 TO 9 FOR IX=0 TO 9 INC I CELL IX,IY,I NEXT IX NEXT IY TOUCHSCREEN INITIALIZE: SPRITE 0,0,0,4 SPRITE 1,13*8,12*8,5 SPRITE 1 PAL 2 SIZE 1 PALCOLOR=0 XCOLOR=13 YCOLOR=12 XCELL=0 YCELL=0 DO IF TOUCH THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 REM CELL SELECT IF TX<10 AND TY<10 THEN SPRITE 0,TX*8,TY*8, XCELL=TX YCELL=TY CALL READCELL(XCELL,YCELL) END IF REM COLOR SELECT IF TX>=11 AND TY>=12 THEN TTX=(TOUCH.X+8)\16 TTY=TOUCH.Y\16 SPRITE 1,TTX*16-8,TTY*16, XCOLOR=TX YCOLOR=TY IF TY>12 THEN PALCOLOR=1 ELSE PALCOLOR=0 END IF REM PIXEL DRAW IF TX>10 AND TX<19 AND TY<9 AND TY>0 THEN SPRITE 0,-8,-8, PAL PALCOLOR BG 0 CSET=CELL.C(XCOLOR,YCOLOR) CELL TX,TY,CSET IF PALCOLOR=0 THEN CC=101 ELSE CC=1 XSET=TX-11 YSET=TY-1 IF CSET=0 THEN CALL PLOT(XSET,YSET,CSET,1+55+XCELL+(YCELL*10)) CALL PLOT(XSET,YSET,CSET,101+55+XCELL+(YCELL*10)) ELSE CALL PLOT(XSET,YSET,CSET,CC+55+XCELL+(YCELL*10)) END IF END IF REM WHITE BUTTONS IF TY>=10 AND TX<=10 THEN REM SAVE IF TY=12 AND TX<=3 THEN COPY $8000,$1000 TO $E000 PLAY 0,90,90 END IF REM LOAD IF TY=14 AND TX<=3 THEN COPY $E000,$1000 TO $8000 PLAY 0,80,90 GOTO INITIALIZE END IF END IF END IF LOOP SUB PBOX(X,Y,P,C) PAL P CELL X,Y,C CELL X+1,Y,C CELL X,Y+1,C CELL X+1,Y+1,C END SUB SUB PLOT(X,Y,C,CC) A=$8000+CC*16 IF C=0 THEN POKE A+Y,PEEK(A+Y) AND SET0(X) POKE A+Y+8,PEEK(A+Y+8) AND SET0(X) END IF IF C=1 THEN POKE A+Y,PEEK(A+Y) OR SET1(X) POKE A+Y+8,PEEK(A+Y+8) AND SET0(X) END IF IF C=2 THEN POKE A+Y,PEEK(A+Y) AND SET0(X) POKE A+Y+8,PEEK(A+Y+8) OR SET1(X) END IF IF C=3 THEN POKE A+Y,PEEK(A+Y) OR SET1(X) POKE A+Y+8,PEEK(A+Y+8) OR SET1(X) END IF END SUB SUB READCELL (CX,CY) PAL 0 CELLNUM=101+55+CX+(CY*10) A=$8000+CELLNUM*16 FOR Y=0 TO 7 FOR X=0 TO 7 N1=PEEK(A+Y) AND SET1(X) N2=PEEK(A+Y+8) AND SET1(X) NUM=SGN(N1)+SGN(N2)*2 CELL X+11,Y+1,NUM NEXT X NEXT Y PAL 1 CELLNUM=1+55+CX+(CY*10) A=$8000+CELLNUM*16 FOR Y=0 TO 7 FOR X=0 TO 7 N1=PEEK(A+Y) AND SET1(X) N2=PEEK(A+Y+8) AND SET1(X) NUM=SGN(N1)+SGN(N2)*2 IF NUM>0 THEN CELL X+11,Y+1,NUM NEXT X NEXT Y END SUB #0:NO FONTS 01010101010101010110101010100101 #1:MAIN PALETTES 0030383C00080723003F0C00002A3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 0000000000000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FF818181818181FF0000000000000000 FF808080808080800000000000000000 FF010101010101010000000000000000 00000000000000000000000000000000 3F7CFBFCFFF87F3F0000000000000000 FF73EDE16DEDFFFF0000000000000000 FF7676AEAEDEFFFF0000000000000000 FC3EFF7FFF3FFEFC0000000000000000 3F6EEEEEEAF57F3F0000000000000000 FF8EB78FB7BAFFFF0000000000000000 FF207B7B7B3BFFFF0000000000000000 FC86BF8FBF87FEFC0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 80808080808080FF0000000000000000 01010101010101FF0000000000000000 00000000000000000000000000000000 3F7BFBFBFBF87F3F0000000000000000 FFF3EDEDED73FFFF0000000000000000 FFCEB686B6B6FFFF0000000000000000 FC3EDFDFDE3FFEFC0000000000000000 3F7CFDFCFDFD7F3F0000000000000000 FF71B773B7B1FFFF0000000000000000 FFCEB686B6B6FFFF0000000000000000 FC3EDFDFDF3FFEFC0000000000000000 #3:MAIN BG 00001410000000000000000000000000 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 00000000