SUB INIT C=1 FOR Y=0 TO 11 FOR X=0 TO 20 CELL X,Y,C C=C+1 NEXT X NEXT Y END SUB SUB C_RESTORE COPY ROM(2),SIZE(2) TO $8000 END SUB SUB PLOT(X,Y,C) CX=INT(X/8) CY=INT(Y/8) IF CELL.C(CX,CY)>0 THEN A=$8000+(CELL.C(CX,CY)*16)+(Y MOD 8) V=PEEK(A) OR (1*2^7)/2^(X MOD 8) IF C=0 THEN V=PEEK(A) AND (1*2^7)/2^(X MOD 8) POKE A,V END IF END SUB SUB PIX(X,Y,R) CX=INT(X) CY=INT(Y) IF X>-1 AND Y>-1 THEN R=VAL(MID$(BIN$(CELL.C(CX,Y),8),(X MOD 8)+1,1)) END SUB CALL INIT ON RASTER CALL RAINBOW TOUCHSCREEN DO CALL PLOT(TOUCH.X,TOUCH.Y,1) WAIT VBL LOOP SUB RAINBOW PALETTE 0,,(RASTER+TIMER) MOD 64,, END SUB #0:FONT 00 #1:MAIN PALETTES 003F2F1A00383400003C0C00002A3C00 00150000003F2A15003F2A15003F2A15