\xjunk=60 \yjunk=3                                                              
\loop                                                                           
\drawline(0,0)(\xjunk,\yjunk)                                                   
\drawline(0,0)(-\xjunk,\yjunk)                                                  
\drawline(0,0)(\xjunk,-\yjunk)                                                  
\drawline(0,0)(-\xjunk,-\yjunk)                                                 
\put(\xjunk,\yjunk){\plotchar}                                                  
\put(-\xjunk,\yjunk){\plotchar}                                                 
\put(\xjunk,-\yjunk){\plotchar}                                                 
\put(-\xjunk,-\yjunk){\plotchar}                                                
\put(\xjunk,\yjunk){\makebox(8,0)[l]{\ \ (\number\xjunk,\number\yjunk)}}        
\put(-\xjunk,\yjunk){\makebox(-4,0)[r]{(\number-\xjunk,\number\yjunk)}}         
\put(\xjunk,-\yjunk){\makebox(8,0)[l]{\ \ (\number\xjunk,\number-\yjunk)}}      
\put(-\xjunk,-\yjunk){\makebox(-4,0)[r]{(\number-\xjunk,\number-\yjunk)}}       
\ifnum\yjunk < 53 \advance\yjunk by 10 %will go till 53.                        
\repeat                                                                         
\xjunk=3 \yjunk=60                                                              
\loop                                                                           
\drawline(0,0)(\xjunk,\yjunk)                                                   
\drawline(0,0)(-\xjunk,\yjunk)                                                  
\drawline(0,0)(\xjunk,-\yjunk)                                                  
\drawline(0,0)(-\xjunk,-\yjunk)                                                 
\put(\xjunk,\yjunk){\plotchar}                                                  
\put(-\xjunk,\yjunk){\plotchar}                                                 
\put(\xjunk,-\yjunk){\plotchar}                                                 
\put(-\xjunk,-\yjunk){\plotchar}                                                
\put(\xjunk,\yjunk){\makebox(0,7)[t]{(\number\xjunk,\number\yjunk)}}            
\put(-\xjunk,\yjunk){\makebox(0,5)[t]{(\number-\xjunk,\number\yjunk)}}          
\put(\xjunk,-\yjunk){\makebox(0,-4)[t]{(\number\xjunk,\number-\yjunk)}}         
\put(-\xjunk,-\yjunk){\makebox(0,-6)[t]{(\number-\xjunk,\number-\yjunk)}}       
\ifnum\xjunk < 53 \advance\xjunk by 10                                          
\repeat                                                                         
