10 ' ** SCREEN INVERT ** by David Hall 20 ' RUN the program then use*- 30 ' CALL 40000 (in ANY mode) 40 ' 50 MEMORY 39999:FOR h=40000 TO 40035 60 READ a$:POKE h,VAL("&"+a$):NEXT:END 70 DATA 21,00,C0,11,80,FF,0E,64,C5 80 DATA E5,D5,06,50,4E,1A,77,79,12 90 DATA 23,13,10,F7,E1,CD,29,BC,EB 100 DATA E1,CD,26,BC,C1,0D,20,E5,C9