10REM >12ToTp2 20REM 30REM Thursday 8th July 1993 40REM Friday 9th July 1993 50: 60MODE 12 70OFF 80INPUT "Input file:"file$ 90OSCLI "ScreenLoad "+file$ 100chan%=OPENOUT("Temp") 110FOR y%=0 TO 255 120FOR x%=0 TO 159 130colour%=POINT(x%*2,y%*4) 140IF colour%=0 OR colour%=1 THEN new% =0 150IF colour%=2 OR colour%=3 THEN new% =4 160IF colour%=4 OR colour%=5 THEN new% =1 170IF colour%=6 OR colour%=7 THEN new% =5 180IF colour%=8 OR colour%=9 THEN new% =2 190IF colour%=10 OR colour%=11 THEN ne w%=6 200IF colour%=12 OR colour%=13 THEN ne w%=3 210IF colour%=14 OR colour%=15 THEN ne w%=7 220BPUT #chan%,new% 230NEXT 240NEXT 250CLOSE #chan%