It really is attached this time.
100 a=RESPR(1280*1024*3+54):b=RESPR(1280*3*1024):REMark max size 110 LBYTES image.bin,a 120 IF PEEK(a+28)<>24 THEN PRINT 'Not 24 Bit Image':STOP 130 w=PEEK(a+19)*256+PEEK(a+18):h=PEEK(a+23)*256+PEEK(a+22) 135 PRINT w&' '&h 140 n=0 150 FOR y=h-1 TO 0 STEP -1 160 FOR x=0 TO w-1 170 addr=x*3+y*3*w+a+54 180 blue=PEEK(addr)&&248:ugreen=PEEK(addr+1)&&224:lgreen=PEEK(addr+1)&&24:red=PEEK(addr+2)&&248 190 POKE b+n,(lgreen*8+blue/8):POKE b+n+1,(ugreen/32+red):n=n+2 200 END FOR x 210 END FOR y 220 SBYTES image.scr,b,n
