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