Hello all you of MSX systems, I have sended this program to you basic in order to convert the images from screen12 to screen8, but I would want that someone modified it in order to convert the images from screen12 to screen11.
To modify the program basic for convert images from screen12 to screen11: 10 REM CONVERTER OF IMAGES 20 REM FROM SCREEN 12 TO SCREEN 8 30 REM LOADING NESTOR BASIC OR XBASIC KUN 40 REM FOR BREAK PROGRAM 50 REM PUSH SPACE AND CTRL+STOP 60 REM 70 REM ANDREA GASPARRINI SOFTWARE 80 DEFINTA-Z 90 SCREEN0:WIDTH40:CLS:KEYOFF:FILES 100 LINEINPUT"NAME FILE ";N$ 110 SCREEN8:SETPAGE1,1:CLS:BLOAD N$,S 120 CALL TURBO ON 130 FOR Y=0 TO 211 140 FOR X=0 TO 255 STEP4 150 K=(POINT(X,Y)AND7)+8*(POINT(X+1,Y)AND7) 160 J=(POINT(X+2,Y)AND7)+8*(POINT(X+3,Y)AND7) 170 IF K>31 THEN K=K-64 180 IF J>31 THEN J=J-64 190 FOR T=0 TO 3 200 YC=POINT(X+T,Y)/8 210 R=YC+J:IF R<0 THEN R=0 ELSE IF R>31 THEN R=31 220 G=YC+K:IF G<0 THEN G=0 ELSE IF G>31 THEN G=31 230 B=(5*YC-2*J-K)/4 240 IF B<0 THEN B=0 ELSE IF B>31 THEN B=31 250 C=(G AND &B11100)*8 OR (R AND &B11100)OR B/8 260 PSET(X+T,Y),C 270 IF STRIG(0)=-1 THEN END 280 NEXT T,X,Y 290 CALL TURBO OFF 300 GOTO 300 Good bye and good work!!!! Andrea Gasparrini software -- For info, see http://www.stack.nl/~wynke/MSX/listinfo.html
