C                                                           MOVING STICK FIGURE 
NUORG      4.       5.                                      SET 3D ORIGIN       
ERASE3                                                      CLEAR STACK 3       
ERASE4  0                                                   CLEAR STACK 4       
SETLN3  1  0.       0.        0.                            SET UP DIAGONAL     
EXPAR3  1  9.       0.        9.                            LINE                
RDRAW8  0  9.       2.        15.       4.                  PLOT AXES           
RDRAW3  0  9.       2.        15.       4.                  PLOT DIAG LINE      
SETCV4  1  0.       0.        0.                            SET UP STICK        
EXPAR4  1  1.       1.        0.                            FIGURE...           
EXPAR4  1  2.       0.        0.                                                
SETLN4  2  1.       1.        0.                                                
EXPAR4  2  1.       2.5       0.        .5                                      
EXPAR4  2  0.       2.        0.                                                
EXPAR4  2  2.       2.        0.                                                
CIRCL4  3  1.       3.        0.        .5                                      
RDRAW4  0  9.       2.        15.       4.                  PLOT FIRST FIGURE   
OFSET4  0  3.       0.        3.                            MOVE ALONG DIAG.LINE
RDRAW4  0  9.       2.        15.       4.                  PLOT SECOND FIGURE  
OFSET4  0  3.       0.        3.                            MOVE ALONG DIAG.LINE
RDRAW4  0  9.       2.        15.       4.                  PLOT THIRD FIGURE   
OFSET4  0  3.       0.        3.                            MOVE ALONG DIAG.LINE
RDRAW4  0  9.       2.        15.       4.                  PLOT FOURTH FIGURE  
STOP