FILES KEYBOARD ON PRINT "ENTER BG SOURCE FILE" WAITFORSOURCE: REE$=INKEY$ IF REE$="" THEN GOTO WAITFORSOURCE PRINT VAL(REE$) LOAD VAL(REE$),$A000 DIM ATTRIBUTE(128,19) DIM CHARACTER(128,19) READBG=$A000+4 FOR I = 0 TO 127 FOR XI = 0 TO 19 ATTRIBUTE(I,XI)=PEEK(READBG+1) CHARACTER(I,XI)=PEEK(READBG) READBG=READBG+2 NEXT XI NEXT I WRITEBG=$A000 FOR I = 0 TO 127 FOR XI = 0 TO 19 POKE WRITEBG,CHARACTER(127-I,XI) POKE WRITEBG+1,ATTRIBUTE(127-I,XI) WRITEBG=WRITEBG+2 NEXT XI NEXT I KEYBOARD ON PRINT "ENTER OUTPUT FILE" WAITFOROUTPUT: C$=INKEY$ IF C$="" THEN GOTO WAITFOROUTPUT PRINT VAL(C$) SAVE VAL(C$),"REVERSED BG",$A000,256*20*2 PRINT "DONE"