C                                                           ADVANCING CLOCK     
C                                                           IN ROTATING CUBE    
ERASE1  0                                                   CLEAR STACKS ...    
ERASE2  0                                                                       
NUORG      2.       5.0                                     SET 3D ORIGIN       
BOX  2  1  4.       4.        4.                            SET UP A BOX IN S2  
DUMP 2  1                                                                       
TNSFR1  10 1.       8.        2.        1.        1.        TRANSFER FRONT + TOP
DUMP 1  1                                                                       
SETCV1  2  4.       4.        0.                            RIGHT SIDE...       
EXPAR1  2  4.       0.        0.                                                
EXPAR1  2  4.       0.        4.                                                
CROSS1  3  0.       4.        4.        4.                  SET UP A CROSS      
YZROT1  3  4.       4.        -90.                          ON TOP OF CUBE      
SETLN1  4  2.       4.        2.                            SET UP SUSPENDING   
EXPAR1  4  2.       7.        2.                            WIRE...             
MULTV    1 0.                                               CLEAR VAR 1         
ADDV     1 25.                                              VAR. 1=OVER=25DEG.  
MULTV    2 0.                                               CLEAR VAR 2         
ADDV     2 12.25                                            VAR.2=TIME=12.25    
MULTV    3 0.                                                                   
ADDV     3 2.0                                                                  
MULTV    4 0.                                                                   
ADDV     4 5.0                                                                  
DO         4.                                                                   
CLOCK1  5  2.       2.        4.        1.5       902.      SET UP A NEW CLOCK  
DUMP 1  5
SDRAW1  0  901.     30.       15.       2.                  PLOT A FIGURE       
ADDV     1 10.                                              OVER=OVER+00 DEG.   
ADDV     2 .25                                              TIME=TIME+15 MIN    
ADDV     3 1.5                                                                  
SUBV     4 1.0                                                                  
NUORG      903.0    904.0                                                       
ERASE1  5                                                                       
LOOP                                                                            
STOP