10 OUT 0,3:OUT&H32,0:OUT&H33,0 20 A=&H20:FORI=0TO2:OUTA,0:OUTA+1,5:OUTA+2,0:OUTA+3,5:A=A+6:NEXT 30 FORI=0TO255 40 R=(IAND&B11100000)/8:IFI<192THENR=R+&H80 50 G=(IAND&B00011100) 60 B=(IAND&B00000011)*8 70 OUT8,R:OUT9,G:OUT10,B:OUT11,I 80 NEXT 90 OUT4,0:OUT5,0:OUT6,0 100 A=0:FORY=0TO511:FORX=0TO511:A=A+1:IFA=256THENA=1 110 OUT 1,A:NEXT:NEXT 130 W0Y0=0:FORI=0TO511:W0X0=I:GOSUB160:IFIMOD2=1THENW0Y0=W0Y0+1 135 NEXT 140 IFA=0THENOUT0,3+16:A=1ELSEOUT0,3:A=0 150 GOTO 130 160 IF(INP(8)AND1)=0THEN165ELSE160 165 IFW0X0>255THEN OUT2,1:OUT&H32,W0X0-256ELSEOUT2,0:OUT&H32,W0X0 170 IFW0Y0>255THEN OUT2,1:OUT&H33,W0Y0-256ELSEOUT2,0:OUT&H33,W0Y0 175 IF(INP(8)AND1)=0THEN175 180 RETURN 190 PRINTINP(8)AND&B00000001:GOTO 190