#Multiple Divide Routine
14-Jan-92 10:21:48
Sb: #Multiple Divide Routine
Fm: Robert Downey 73507,402
To: Tony Tanzillo [LISP TM] 71241,2067
Below is a multiple divide routine I hacked from Tip 389, But I have not
been able to get it to work. Can anyone offer suggestions. (DeFun C:MDIV (/
SS EN)
(PrinC "DIVIDE multiple objects")
(SetQ SS (SSGet))
(While (> (SSLength SS) 0)
(ProgN (SetQ EN (SSName SS 0))
(Command "DIVIDE" EN "10")
(SSDel EN SS) ) ) ) Thanks, Bob.