This might be considered better graphics. It is ASCII, but it is two characters written on top of each other. Here is the code:
:"OOOOOOOOOOOOOOOOO OO OO OO OO OO OOOOOOOOOOOOOOOOO->Str1
:"πππππππππππππππππ ππ ππ ππ ππ ππ πππππππππππππππππ->Str2
:For(A,1,8
:Text(-1,0,0,sub(Str1,16(A-1)+1,16A
:StorePic1
:For(A,1,8
:Text(-1,0,0,sub(Str2,16(A-1)+1,16A
:RecallPic1
:StorePic1
Where there is a gap between characters, there should be 14 spaces. The little π's are pi's. It stores the graph screen text as a Pic, writes over it with more characters, then recalls the Pic, then stores that image as a Pic. The reason this works is that recalling a Pic writes pixels over what is on the graph screen.