home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e003 / 15.ddi / MODD8 < prev    next >
Encoding:
Text File  |  1987-04-09  |  2.0 KB  |  27 lines
  1. GENERATE SPINDLE WITH SOME SOLID ELEMENT                                        
  2. 1000,1000                                                                       
  3. ECHO
  4. SAP6                                                                            
  5. NO,1,5                                                                          
  6. TRAN,3,1,1,1,1,-1.                                                              
  7. ROTAT,4,4,4,1,1,22.5,A                                                          
  8. 2,1,,2,1,1                                                                      
  9. TRAN,6,8,8,1,1,0.,1                                                             
  10. ROTA,4,14,14,1,1,22.5,A                                                         
  11. 2,7,0,2,7,1                                                                     
  12. TRAN,3,18,18,1,1,1                                                              
  13. ROTA,20,1,21,1,21,18.,Y                                                         
  14. ELE,1,6,1,1                                                                     
  15. 1,2,23,22                                                                       
  16. REP,19                                                                          
  17. REP,19,1,20,1,21                                                                
  18. MERGE                                                                           
  19. SYM,1,420,1,420,Y                                                               
  20. TRAN,1,421,840,1,0,0,-0.5                                                       
  21. REP,1,1,400,1,420                                                               
  22. ELE,801,10,1,1                                                                  
  23. 1,22,23,22,421,422,443,442                                                      
  24. REP,2,801,801,1,1                                                               
  25. REP,10,801,803,1,21                                                             
  26. END                                                                             
  27.