6 lines
313 B
Mathematica
6 lines
313 B
Mathematica
XU8P204 ;BP-OAK/BDT - MODIFY BULLETIN FOR NEW USER ; [8/7/03 6:39am]
|
|
;;8.0;KERNEL;**204**;Jul 10, 1995
|
|
EN S ^DD(200,.01,1,10,1)="S Y(0)=X,D0=DA K XMB,XMY S XMB(1)=Y(0),XMB=""XMNEWUSER"" D ^XMB:$D(^XMB(3.6,""B"",XMB)) K Y,XMB"
|
|
I $D(^DD(200,.01,1,10,"CREATE CONDITION")) K ^DD(200,.01,1,10,"CREATE CONDITION")
|
|
Q
|